/*===========================================================================*/
/*   (Effect/feffect.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 Effect/feffect.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_nodez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_nodez00_bglt;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_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_localzf2fromzf2_bgl {
   obj_t BgL_fromz00;
} *BgL_localzf2fromzf2_bglt;

typedef struct BgL_globalzf2fromzf2_bgl {
   obj_t BgL_fromz00;
} *BgL_globalzf2fromzf2_bglt;


static obj_t BGl_methodzd2initzd2zzeffect_feffectz00();
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl__bodyzd2effectz12zd2default2845z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_sfunz00zzast_varz00;
static obj_t BGl_bodyzd2effectza2z12z62zzeffect_feffectz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_bodyzd2effectz12zd2makezd2box2866zc0zzeffect_feffectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_kwotez00zzast_nodez00;
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_bodyzd2effectz12zd2cast2872z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_globalz00zzast_varz00;
BGL_IMPORT obj_t BGl_putpropz12z12zz__r4_symbols_6_4z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_feffectz12z12zzeffect_feffectz00(obj_t);
static obj_t BGl_bodyzd2effectz12zd2select2858z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
static BgL_feffectz00_bglt BGl_funzd2effectz12zc0zzeffect_feffectz00(obj_t);
static obj_t BGl_bodyzd2effectz12zd2appzd2ly2878zc0zzeffect_feffectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
static obj_t BGl_bodyzd2effectz12zd2app2880z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_feffectz00_bglt BGl_parsezd2effectzd2zzeffect_feffectz00(obj_t);
static BgL_feffectz00_bglt BGl_funzd2effectzd2modulez12z12zzeffect_feffectz00(BgL_globalz00_bglt);
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzeffect_feffectz00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
static obj_t BGl_bodyzd2effectz12zd2letzd2var2886zc0zzeffect_feffectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_zc3anonymousza33495ze3z83zzeffect_feffectz00(obj_t);
BGL_IMPORT obj_t BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_bodyzd2effectz12zd2funcall2876z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzeffect_feffectz00();
static BgL_feffectz00_bglt BGl_funzd2effectzd2alienz12z12zzeffect_feffectz00(BgL_globalz00_bglt);
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_bodyzd2effectz12zd2conditional2856z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
static obj_t BGl_bodyzd2effectz12zd2boxzd2setz122870zd2zzeffect_feffectz00(obj_t, obj_t, obj_t);
static obj_t BGl__parsezd2effectzd2zzeffect_feffectz00(obj_t, obj_t);
static BgL_feffectz00_bglt BGl_bodyzd2effectz12zd2default2845z12zzeffect_feffectz00(BgL_nodez00_bglt, BgL_feffectz00_bglt);
static obj_t BGl_bodyzd2effectz12zd2letzd2fun2884zc0zzeffect_feffectz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern BgL_feffectz00_bglt BGl_makezd2feffectzd2zzast_varz00(obj_t, obj_t);
static obj_t BGl_bodyzd2effectz12zd2jumpzd2exzd2it2864z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
static BgL_feffectz00_bglt BGl_za2effectzd2readzd2memza2z00zzeffect_feffectz00;
static obj_t BGl_bodyzd2effectz12zd2sequence2874z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
static obj_t BGl_bodyzd2effectz12zd2setq2854z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzeffect_feffectz00();
BGL_IMPORT obj_t BGl_printfz00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzeffect_feffectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzeffect_cgraphz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
static obj_t BGl__feffectz12z12zzeffect_feffectz00(obj_t, obj_t);
extern obj_t BGl_userzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t, obj_t);
static BgL_feffectz00_bglt BGl_funzd2effectzd2globalz12z12zzeffect_feffectz00(BgL_globalz00_bglt);
static obj_t BGl__bodyzd2effectz12zc0zzeffect_feffectz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_rempropz12z12zz__r4_symbols_6_4z00(obj_t, obj_t);
static obj_t BGl_objectzd2displayzd2feffect2844z00zzeffect_feffectz00(obj_t, obj_t, obj_t);
static BgL_feffectz00_bglt BGl_za2effectzd2writezd2memza2z00zzeffect_feffectz00;
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_bodyzd2effectz12zd2atom2848z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
static BgL_feffectz00_bglt BGl_bodyzd2effectz12zc0zzeffect_feffectz00(BgL_nodez00_bglt, BgL_feffectz00_bglt);
static obj_t BGl_mergezd2callerz12zc0zzeffect_feffectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
static bool_t BGl_mergezd2effectsz12zc0zzeffect_feffectz00(obj_t, obj_t);
extern obj_t BGl_sequencez00zzast_nodez00;
BGL_IMPORT obj_t BGl_getpropz00zz__r4_symbols_6_4z00(obj_t, obj_t);
static obj_t BGl_bodyzd2effectz12zd2setzd2exzd2it2862z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_bodyzd2effectz12zd2extern2882z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
static obj_t BGl_bodyzd2effectz12zd2var2852z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_localzf2fromzf2zzeffect_cgraphz00;
extern obj_t BGl_feffectz00zzast_varz00;
static obj_t BGl_bodyzd2effectz12zd2kwote2850z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_globalzf2fromzf2zzeffect_cgraphz00;
static obj_t BGl_mergez12z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
static obj_t BGl_bodyzd2effectz12zd2fail2860z12zzeffect_feffectz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzeffect_feffectz00 = BUNSPEC;
static BgL_feffectz00_bglt BGl_za2effectzd2topza2zd2zzeffect_feffectz00;
static obj_t BGl_libraryzd2moduleszd2initz00zzeffect_feffectz00();
static obj_t BGl_bodyzd2effectz12zd2boxzd2ref2868zc0zzeffect_feffectz00(obj_t, obj_t, obj_t);
static bool_t BGl_feffectzd2fixzd2pointz12z12zzeffect_feffectz00(obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static BgL_feffectz00_bglt BGl_dozd2funzd2effectz12z12zzeffect_feffectz00(BgL_variablez00_bglt);
static obj_t __cnst[ 6 ] ;


BGL_IMPORT obj_t BGl_objectzd2displayzd2envz00zz__objectz00;
DEFINE_STATIC_PROCEDURE( BGl_proc4380z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2atom2848za712za7za7effect_feffectza7004432za7, BGl_bodyzd2effectz12zd2atom2848z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4379z00zzeffect_feffectz00, BgL_bgl_objectza7d2displayza7d2feffect2844za700za7za7effect_feffectza7004433z00, va_generic_entry, BGl_objectzd2displayzd2feffect2844z00zzeffect_feffectz00, -2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4381z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2kwote2850za712za7za7effect_feffectza7004434za7, BGl_bodyzd2effectz12zd2kwote2850z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4382z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2var2852za712za7za7effect_feffectza7004435za7, BGl_bodyzd2effectz12zd2var2852z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4383z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2setq2854za712za7za7effect_feffectza7004436za7, BGl_bodyzd2effectz12zd2setq2854z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4384z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2conditional2856za712za7za7effect_feffectza7004437za7, BGl_bodyzd2effectz12zd2conditional2856z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4385z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2select2858za712za7za7effect_feffectza7004438za7, BGl_bodyzd2effectz12zd2select2858z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4386z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2fail2860za712za7za7effect_feffectza7004439za7, BGl_bodyzd2effectz12zd2fail2860z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4387z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2setza7d2exza7d2it2862za712za7za7effect_feffectza7004440za7, BGl_bodyzd2effectz12zd2setzd2exzd2it2862z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4388z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2jumpza7d2exza7d2it2864za712za7za7effect_feffectza7004441za7, BGl_bodyzd2effectz12zd2jumpzd2exzd2it2864z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4390z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2boxza7d2ref2868za7c0za7za7effect_feffectza7004442z00, BGl_bodyzd2effectz12zd2boxzd2ref2868zc0zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4389z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2makeza7d2box2866za7c0za7za7effect_feffectza7004443z00, BGl_bodyzd2effectz12zd2makezd2box2866zc0zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4391z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2boxza7d2setza7122870za7d2za7za7effect_feffectza7004444za7, BGl_bodyzd2effectz12zd2boxzd2setz122870zd2zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4392z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2cast2872za712za7za7effect_feffectza7004445za7, BGl_bodyzd2effectz12zd2cast2872z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4393z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2sequence2874za712za7za7effect_feffectza7004446za7, BGl_bodyzd2effectz12zd2sequence2874z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4394z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2funcall2876za712za7za7effect_feffectza7004447za7, BGl_bodyzd2effectz12zd2funcall2876z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4395z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2appza7d2ly2878za7c0za7za7effect_feffectza7004448z00, BGl_bodyzd2effectz12zd2appzd2ly2878zc0zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4396z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2app2880za712za7za7effect_feffectza7004449za7, BGl_bodyzd2effectz12zd2app2880z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4397z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2extern2882za712za7za7effect_feffectza7004450za7, BGl_bodyzd2effectz12zd2extern2882z12zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4398z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2letza7d2fun2884za7c0za7za7effect_feffectza7004451z00, BGl_bodyzd2effectz12zd2letzd2fun2884zc0zzeffect_feffectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4399z00zzeffect_feffectz00, BgL_bgl_bodyza7d2effectza712za7d2letza7d2var2886za7c0za7za7effect_feffectza7004452z00, BGl_bodyzd2effectz12zd2letzd2var2886zc0zzeffect_feffectz00, 0L, 2 );
DEFINE_STRING( BGl_string4402z00zzeffect_feffectz00, BgL_bgl_string4402za700za7za7effect_feffectza7004453z00, "body-effect!-default2845 (static export) write read (memory) top ", 65 );
DEFINE_STRING( BGl_string4401z00zzeffect_feffectz00, BgL_bgl_string4401za700za7za7effect_feffectza7004454z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string4400z00zzeffect_feffectz00, BgL_bgl_string4400za700za7za7effect_feffectza7004455z00, "#|feffect: ~a ~a|", 17 );
DEFINE_STRING( BGl_string4378z00zzeffect_feffectz00, BgL_bgl_string4378za700za7za7effect_feffectza7004456z00, "Illegal `effect' pragma", 23 );
DEFINE_STRING( BGl_string4377z00zzeffect_feffectz00, BgL_bgl_string4377za700za7za7effect_feffectza7004457z00, "Parse error", 11 );
DEFINE_STATIC_GENERIC( BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_bgl__bodyza7d2effectza712za7c0za7za7effect_feffectza7004458z00, BGl__bodyzd2effectz12zc0zzeffect_feffectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_parsezd2effectzd2envz00zzeffect_feffectz00, BgL_bgl__parseza7d2effectza7d2za7za7effect_feffectza7004459za7, BGl__parsezd2effectzd2zzeffect_feffectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_feffectz12zd2envzc0zzeffect_feffectz00, BgL_bgl__feffectza712za712za7za7effect_feffectza7004460za7, BGl__feffectz12z12zzeffect_feffectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_bodyzd2effectz12zd2default2845zd2envzc0zzeffect_feffectz00, BgL_bgl__bodyza7d2effectza712za7d2default2845za712za7za7effect_feffectza7004461za7, BGl__bodyzd2effectz12zd2default2845z12zzeffect_feffectz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzeffect_feffectz00(long BgL_checksumz00_2361, char * BgL_fromz00_2362)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzeffect_feffectz00))
{ 
BGl_requirezd2initializa7ationz75zzeffect_feffectz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzeffect_feffectz00(); 
BGl_cnstzd2initzd2zzeffect_feffectz00(); 
BGl_importedzd2moduleszd2initz00zzeffect_feffectz00(); 
BGl_methodzd2initzd2zzeffect_feffectz00(); 
BGl_toplevelzd2initzd2zzeffect_feffectz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzeffect_feffectz00()
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 16 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "effect_feffect"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "effect_feffect"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "effect_feffect"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)0), "effect_feffect"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "effect_feffect"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "effect_feffect"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzeffect_feffectz00()
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 16 */
{ /* ./Effect/feffect.scm 16 */
obj_t BgL_cportz00_2350;
BgL_cportz00_2350 = 
open_input_string(BGl_string4402z00zzeffect_feffectz00); 
{ 
long BgL_iz00_2351;
BgL_iz00_2351 = ((long)5); 
BgL_loopz00_2352:
{ /* ./Effect/feffect.scm 16 */
bool_t BgL_test4404z00_2353;
BgL_test4404z00_2353 = 
(BgL_iz00_2351==((long)-1)); 
if(BgL_test4404z00_2353)
{ /* ./Effect/feffect.scm 16 */
return BUNSPEC;}  else 
{ /* ./Effect/feffect.scm 16 */
{ /* ./Effect/feffect.scm 16 */
obj_t BgL_arg4406z00_2354;
{ /* ./Effect/feffect.scm 16 */
obj_t BgL_list4409z00_2355;
BgL_list4409z00_2355 = 
MAKE_PAIR(BgL_cportz00_2350, BNIL); 
BgL_arg4406z00_2354 = 
BGl_readz00zz__readerz00(BgL_list4409z00_2355); } 
{ /* ./Effect/feffect.scm 16 */
int BgL_auxz00_2382;
BgL_auxz00_2382 = 
(int)(BgL_iz00_2351); 
CNST_TABLE_SET(BgL_auxz00_2382, BgL_arg4406z00_2354); } } 
{ /* ./Effect/feffect.scm 16 */
int BgL_auxz00_2356;
{ /* ./Effect/feffect.scm 16 */
long BgL_auxz00_2385;
BgL_auxz00_2385 = 
(BgL_iz00_2351-((long)1)); 
BgL_auxz00_2356 = 
(int)(BgL_auxz00_2385); } 
{ 
long BgL_iz00_2388;
BgL_iz00_2388 = 
(long)(BgL_auxz00_2356); 
BgL_iz00_2351 = BgL_iz00_2388; 
goto BgL_loopz00_2352;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzeffect_feffectz00()
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 16 */
BGl_za2effectzd2topza2zd2zzeffect_feffectz00 = 
BGl_makezd2feffectzd2zzast_varz00(
CNST_TABLE_REF(((long)0)), 
CNST_TABLE_REF(((long)0))); 
BGl_za2effectzd2readzd2memza2z00zzeffect_feffectz00 = 
BGl_makezd2feffectzd2zzast_varz00(
CNST_TABLE_REF(((long)1)), BNIL); 
BGl_za2effectzd2writezd2memza2z00zzeffect_feffectz00 = 
BGl_makezd2feffectzd2zzast_varz00(BNIL, 
CNST_TABLE_REF(((long)1))); 
return BUNSPEC;} 
}



/* feffect! */
BGL_EXPORTED_DEF obj_t BGl_feffectz12z12zzeffect_feffectz00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 32 */
{ 
obj_t BgL_l2787z00_729;
BgL_l2787z00_729 = BgL_globalsz00_1; 
BgL_forzd2each2788zd2_730:
{ /* ./Effect/feffect.scm 33 */
bool_t BgL_test2891z00_731;
BgL_test2891z00_731 = 
PAIRP(BgL_l2787z00_729); 
if(BgL_test2891z00_731)
{ /* ./Effect/feffect.scm 33 */
{ /* ./Effect/feffect.scm 33 */
obj_t BgL_arg2893z00_732;
BgL_arg2893z00_732 = 
CAR(BgL_l2787z00_729); 
BGl_funzd2effectzd2modulez12z12zzeffect_feffectz00(
(BgL_globalz00_bglt)(BgL_arg2893z00_732)); } 
{ /* ./Effect/feffect.scm 33 */
obj_t BgL_arg2897z00_733;
BgL_arg2897z00_733 = 
CDR(BgL_l2787z00_729); 
{ 
obj_t BgL_l2787z00_2403;
BgL_l2787z00_2403 = BgL_arg2897z00_733; 
BgL_l2787z00_729 = BgL_l2787z00_2403; 
goto BgL_forzd2each2788zd2_730;} } }  else 
{ /* ./Effect/feffect.scm 33 */((bool_t)1); } } } 
{ /* ./Effect/feffect.scm 34 */
bool_t BgL_auxz00_2404;
BgL_auxz00_2404 = 
BGl_feffectzd2fixzd2pointz12z12zzeffect_feffectz00(BgL_globalsz00_1); 
return 
BBOOL(BgL_auxz00_2404);} } 
}



/* _feffect! */
obj_t BGl__feffectz12z12zzeffect_feffectz00(obj_t BgL_envz00_2241, obj_t BgL_globalsz00_2242)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 32 */
return 
BGl_feffectz12z12zzeffect_feffectz00(BgL_globalsz00_2242);} 
}



/* feffect-fix-point! */
bool_t BGl_feffectzd2fixzd2pointz12z12zzeffect_feffectz00(obj_t BgL_globalsz00_2)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 39 */
{ /* ./Effect/feffect.scm 40 */
obj_t BgL_changedz00_734;
BgL_changedz00_734 = 
MAKE_CELL(BTRUE); 
{ 
obj_t BgL_varz00_742;
{ 

BgL_loopz00_736:
{ /* ./Effect/feffect.scm 54 */
bool_t BgL_testz00_2408;
{ /* ./Effect/feffect.scm 54 */
obj_t BgL_auxz00_2409;
BgL_auxz00_2409 = 
CELL_REF(BgL_changedz00_734); 
BgL_testz00_2408 = 
CBOOL(BgL_auxz00_2409); } 
if(BgL_testz00_2408)
{ /* ./Effect/feffect.scm 54 */
CELL_SET(BgL_changedz00_734, BFALSE); 
{ 
obj_t BgL_l2794z00_737;
BgL_l2794z00_737 = BgL_globalsz00_2; 
BgL_forzd2each2795zd2_738:
{ /* ./Effect/feffect.scm 57 */
bool_t BgL_test2904z00_739;
BgL_test2904z00_739 = 
PAIRP(BgL_l2794z00_737); 
if(BgL_test2904z00_739)
{ /* ./Effect/feffect.scm 57 */
{ /* ./Effect/feffect.scm 57 */
obj_t BgL_arg2906z00_740;
BgL_arg2906z00_740 = 
CAR(BgL_l2794z00_737); 
BgL_varz00_742 = BgL_arg2906z00_740; 
{ /* ./Effect/feffect.scm 47 */

{ /* ./Effect/feffect.scm 49 */
bool_t BgL_test2916z00_746;
BgL_test2916z00_746 = 
BGl_iszd2azf3z21zz__objectz00(BgL_varz00_742, BGl_localzf2fromzf2zzeffect_cgraphz00); 
if(BgL_test2916z00_746)
{ /* ./Effect/feffect.scm 49 */
{ 
obj_t BgL_l2790z00_747;
{ /* ./Effect/feffect.scm 50 */
obj_t BgL_arg2918z00_749;
{ /* ./Effect/feffect.scm 50 */
BgL_localzf2fromzf2_bglt BgL_obj2681z00_1441;
BgL_obj2681z00_1441 = 
(BgL_localzf2fromzf2_bglt)(BgL_varz00_742); 
{ 
obj_t BgL_auxz00_2417;
{ /* ./Effect/feffect.scm 50 */
BgL_objectz00_bglt BgL_auxz00_2418;
BgL_auxz00_2418 = 
(BgL_objectz00_bglt)(BgL_obj2681z00_1441); 
BgL_auxz00_2417 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2418); } 
BgL_arg2918z00_749 = 
(((BgL_localzf2fromzf2_bglt)CREF(BgL_auxz00_2417))->BgL_fromz00); } } 
BgL_l2790z00_747 = BgL_arg2918z00_749; 
BgL_forzd2each2791zd2_748:
{ /* ./Effect/feffect.scm 50 */
bool_t BgL_test2921z00_750;
BgL_test2921z00_750 = 
PAIRP(BgL_l2790z00_747); 
if(BgL_test2921z00_750)
{ /* ./Effect/feffect.scm 50 */
{ /* ./Effect/feffect.scm 50 */
obj_t BgL_arg2924z00_751;
BgL_arg2924z00_751 = 
CAR(BgL_l2790z00_747); 
BGl_mergezd2callerz12zc0zzeffect_feffectz00(BgL_changedz00_734, BgL_varz00_742, BgL_arg2924z00_751); } 
{ /* ./Effect/feffect.scm 50 */
obj_t BgL_arg2928z00_752;
BgL_arg2928z00_752 = 
CDR(BgL_l2790z00_747); 
{ 
obj_t BgL_l2790z00_2427;
BgL_l2790z00_2427 = BgL_arg2928z00_752; 
BgL_l2790z00_747 = BgL_l2790z00_2427; 
goto BgL_forzd2each2791zd2_748;} } }  else 
{ /* ./Effect/feffect.scm 50 */((bool_t)1); } } } } }  else 
{ /* ./Effect/feffect.scm 51 */
bool_t BgL_test2932z00_753;
BgL_test2932z00_753 = 
BGl_iszd2azf3z21zz__objectz00(BgL_varz00_742, BGl_globalzf2fromzf2zzeffect_cgraphz00); 
if(BgL_test2932z00_753)
{ /* ./Effect/feffect.scm 51 */
{ 
obj_t BgL_l2792z00_754;
{ /* ./Effect/feffect.scm 52 */
obj_t BgL_arg2934z00_756;
{ /* ./Effect/feffect.scm 52 */
BgL_globalzf2fromzf2_bglt BgL_obj2735z00_1446;
BgL_obj2735z00_1446 = 
(BgL_globalzf2fromzf2_bglt)(BgL_varz00_742); 
{ 
obj_t BgL_auxz00_2431;
{ /* ./Effect/feffect.scm 52 */
BgL_objectz00_bglt BgL_auxz00_2432;
BgL_auxz00_2432 = 
(BgL_objectz00_bglt)(BgL_obj2735z00_1446); 
BgL_auxz00_2431 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2432); } 
BgL_arg2934z00_756 = 
(((BgL_globalzf2fromzf2_bglt)CREF(BgL_auxz00_2431))->BgL_fromz00); } } 
BgL_l2792z00_754 = BgL_arg2934z00_756; 
BgL_forzd2each2793zd2_755:
{ /* ./Effect/feffect.scm 52 */
bool_t BgL_test2937z00_757;
BgL_test2937z00_757 = 
PAIRP(BgL_l2792z00_754); 
if(BgL_test2937z00_757)
{ /* ./Effect/feffect.scm 52 */
{ /* ./Effect/feffect.scm 52 */
obj_t BgL_arg2939z00_758;
BgL_arg2939z00_758 = 
CAR(BgL_l2792z00_754); 
BGl_mergezd2callerz12zc0zzeffect_feffectz00(BgL_changedz00_734, BgL_varz00_742, BgL_arg2939z00_758); } 
{ /* ./Effect/feffect.scm 52 */
obj_t BgL_arg2943z00_759;
BgL_arg2943z00_759 = 
CDR(BgL_l2792z00_754); 
{ 
obj_t BgL_l2792z00_2441;
BgL_l2792z00_2441 = BgL_arg2943z00_759; 
BgL_l2792z00_754 = BgL_l2792z00_2441; 
goto BgL_forzd2each2793zd2_755;} } }  else 
{ /* ./Effect/feffect.scm 52 */((bool_t)1); } } } } }  else 
{ /* ./Effect/feffect.scm 51 */((bool_t)0); } } } } } 
{ /* ./Effect/feffect.scm 57 */
obj_t BgL_arg2910z00_741;
BgL_arg2910z00_741 = 
CDR(BgL_l2794z00_737); 
{ 
obj_t BgL_l2794z00_2443;
BgL_l2794z00_2443 = BgL_arg2910z00_741; 
BgL_l2794z00_737 = BgL_l2794z00_2443; 
goto BgL_forzd2each2795zd2_738;} } }  else 
{ /* ./Effect/feffect.scm 57 */((bool_t)1); } } } 
goto BgL_loopz00_736;}  else 
{ /* ./Effect/feffect.scm 54 */
return ((bool_t)0);} } } } } } 
}



/* merge-caller! */
obj_t BGl_mergezd2callerz12zc0zzeffect_feffectz00(obj_t BgL_changedz00_2347, obj_t BgL_varz00_2346, obj_t BgL_fz00_760)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 46 */
{ /* ./Effect/feffect.scm 43 */
obj_t BgL_efz00_762;obj_t BgL_etz00_763;
{ /* ./Effect/feffect.scm 43 */
BgL_funz00_bglt BgL_obj2422z00_1451;
{ /* ./Effect/feffect.scm 43 */
BgL_valuez00_bglt BgL_auxz00_2444;
{ /* ./Effect/feffect.scm 43 */
BgL_variablez00_bglt BgL_obj2205z00_1450;
BgL_obj2205z00_1450 = 
(BgL_variablez00_bglt)(BgL_fz00_760); 
BgL_auxz00_2444 = 
(((BgL_variablez00_bglt)CREF(BgL_obj2205z00_1450))->BgL_valuez00); } 
BgL_obj2422z00_1451 = 
(BgL_funz00_bglt)(BgL_auxz00_2444); } 
BgL_efz00_762 = 
(((BgL_funz00_bglt)CREF(BgL_obj2422z00_1451))->BgL_effectz00); } 
{ /* ./Effect/feffect.scm 44 */
BgL_funz00_bglt BgL_obj2422z00_1453;
{ /* ./Effect/feffect.scm 44 */
BgL_valuez00_bglt BgL_auxz00_2449;
{ /* ./Effect/feffect.scm 44 */
BgL_variablez00_bglt BgL_obj2205z00_1452;
BgL_obj2205z00_1452 = 
(BgL_variablez00_bglt)(BgL_varz00_2346); 
BgL_auxz00_2449 = 
(((BgL_variablez00_bglt)CREF(BgL_obj2205z00_1452))->BgL_valuez00); } 
BgL_obj2422z00_1453 = 
(BgL_funz00_bglt)(BgL_auxz00_2449); } 
BgL_etz00_763 = 
(((BgL_funz00_bglt)CREF(BgL_obj2422z00_1453))->BgL_effectz00); } 
{ /* ./Effect/feffect.scm 45 */
bool_t BgL_test2951z00_764;
{ /* ./Effect/feffect.scm 45 */
obj_t BgL_obj2663z00_1454;
BgL_obj2663z00_1454 = BgL_efz00_762; 
BgL_test2951z00_764 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2663z00_1454, BGl_feffectz00zzast_varz00); } 
if(BgL_test2951z00_764)
{ /* ./Effect/feffect.scm 45 */BUNSPEC; }  else 
{ /* ./Effect/feffect.scm 45 */
BgL_efz00_762 = 
(obj_t)(BGl_za2effectzd2topza2zd2zzeffect_feffectz00); } } 
{ /* ./Effect/feffect.scm 46 */
obj_t BgL_auxz00_2348;
{ /* ./Effect/feffect.scm 46 */
bool_t BgL__ortest_2789z00_765;
BgL__ortest_2789z00_765 = 
BGl_mergezd2effectsz12zc0zzeffect_feffectz00(BgL_etz00_763, BgL_efz00_762); 
if(BgL__ortest_2789z00_765)
{ /* ./Effect/feffect.scm 46 */
BgL_auxz00_2348 = 
BBOOL(BgL__ortest_2789z00_765); }  else 
{ /* ./Effect/feffect.scm 46 */
BgL_auxz00_2348 = 
CELL_REF(BgL_changedz00_2347); } } 
return 
CELL_SET(BgL_changedz00_2347, BgL_auxz00_2348);} } } 
}



/* parse-effect */
BGL_EXPORTED_DEF BgL_feffectz00_bglt BGl_parsezd2effectzd2zzeffect_feffectz00(obj_t BgL_propz00_5)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 79 */
{ /* ./Effect/feffect.scm 80 */
BgL_feffectz00_bglt BgL_ez00_770;
BgL_ez00_770 = 
BGl_makezd2feffectzd2zzast_varz00(BNIL, BNIL); 
{ 
obj_t BgL_vz00_771;
{ /* ./Effect/feffect.scm 81 */
obj_t BgL_arg2963z00_773;
BgL_arg2963z00_773 = 
CDR(BgL_propz00_5); 
{ /* ./Effect/feffect.scm 81 */
obj_t BgL_auxz00_2462;
BgL_vz00_771 = BgL_arg2963z00_773; 
BgL_loopz00_772:
{ /* ./Effect/feffect.scm 82 */
bool_t BgL_test2966z00_774;
BgL_test2966z00_774 = 
NULLP(BgL_vz00_771); 
if(BgL_test2966z00_774)
{ /* ./Effect/feffect.scm 82 */
BgL_auxz00_2462 = 
(obj_t)(BgL_ez00_770)
; }  else 
{ 

{ /* ./Effect/feffect.scm 84 */
obj_t BgL_ezd2123zd2_780;
BgL_ezd2123zd2_780 = 
CAR(BgL_vz00_771); 
{ /* ./Effect/feffect.scm 84 */
bool_t BgL_test2967z00_781;
BgL_test2967z00_781 = 
PAIRP(BgL_ezd2123zd2_780); 
if(BgL_test2967z00_781)
{ /* ./Effect/feffect.scm 84 */
obj_t BgL_cdrzd2128zd2_782;
BgL_cdrzd2128zd2_782 = 
CDR(BgL_ezd2123zd2_780); 
{ /* ./Effect/feffect.scm 84 */
bool_t BgL_test2968z00_783;
{ /* ./Effect/feffect.scm 84 */
obj_t BgL_auxz00_2472;obj_t BgL_auxz00_2470;
BgL_auxz00_2472 = 
CNST_TABLE_REF(((long)2)); 
BgL_auxz00_2470 = 
CAR(BgL_ezd2123zd2_780); 
BgL_test2968z00_783 = 
(BgL_auxz00_2470==BgL_auxz00_2472); } 
if(BgL_test2968z00_783)
{ /* ./Effect/feffect.scm 84 */
bool_t BgL_test2969z00_784;
BgL_test2969z00_784 = 
PAIRP(BgL_cdrzd2128zd2_782); 
if(BgL_test2969z00_784)
{ /* ./Effect/feffect.scm 84 */
bool_t BgL_test2970z00_785;
{ /* ./Effect/feffect.scm 84 */
obj_t BgL_auxz00_2478;
BgL_auxz00_2478 = 
CDR(BgL_cdrzd2128zd2_782); 
BgL_test2970z00_785 = 
NULLP(BgL_auxz00_2478); } 
if(BgL_test2970z00_785)
{ /* ./Effect/feffect.scm 84 */
obj_t BgL_arg2973z00_786;
BgL_arg2973z00_786 = 
CAR(BgL_cdrzd2128zd2_782); 
{ /* ./Effect/feffect.scm 84 */
BgL_feffectz00_bglt BgL_obj2650z00_1467;obj_t BgL_val2649z00_1468;
BgL_obj2650z00_1467 = BgL_ez00_770; 
BgL_val2649z00_1468 = BgL_arg2973z00_786; 
((((BgL_feffectz00_bglt)CREF(BgL_obj2650z00_1467))->BgL_readz00) = ((obj_t)BgL_val2649z00_1468), BUNSPEC); } 
{ /* ./Effect/feffect.scm 84 */
obj_t BgL_arg3017z00_1466;
BgL_arg3017z00_1466 = 
CDR(BgL_vz00_771); 
{ 
obj_t BgL_vz00_2485;
BgL_vz00_2485 = BgL_arg3017z00_1466; 
BgL_vz00_771 = BgL_vz00_2485; 
goto BgL_loopz00_772;} } }  else 
{ /* ./Effect/feffect.scm 84 */
BgL_tagzd2122zd2_779:
BgL_auxz00_2462 = 
BGl_userzd2errorzd2zztools_errorz00(BGl_string4377z00zzeffect_feffectz00, BGl_string4378z00zzeffect_feffectz00, BgL_vz00_771, BNIL)
; } }  else 
{ /* ./Effect/feffect.scm 84 */
goto BgL_tagzd2122zd2_779;} }  else 
{ /* ./Effect/feffect.scm 84 */
bool_t BgL_test2983z00_789;
{ /* ./Effect/feffect.scm 84 */
obj_t BgL_auxz00_2489;obj_t BgL_auxz00_2487;
BgL_auxz00_2489 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_2487 = 
CAR(BgL_ezd2123zd2_780); 
BgL_test2983z00_789 = 
(BgL_auxz00_2487==BgL_auxz00_2489); } 
if(BgL_test2983z00_789)
{ /* ./Effect/feffect.scm 84 */
bool_t BgL_test2984z00_790;
BgL_test2984z00_790 = 
PAIRP(BgL_cdrzd2128zd2_782); 
if(BgL_test2984z00_790)
{ /* ./Effect/feffect.scm 84 */
bool_t BgL_test2985z00_791;
{ /* ./Effect/feffect.scm 84 */
obj_t BgL_auxz00_2495;
BgL_auxz00_2495 = 
CDR(BgL_cdrzd2128zd2_782); 
BgL_test2985z00_791 = 
NULLP(BgL_auxz00_2495); } 
if(BgL_test2985z00_791)
{ /* ./Effect/feffect.scm 84 */
obj_t BgL_arg2987z00_792;
BgL_arg2987z00_792 = 
CAR(BgL_cdrzd2128zd2_782); 
{ /* ./Effect/feffect.scm 84 */
BgL_feffectz00_bglt BgL_obj2653z00_1478;obj_t BgL_val2652z00_1479;
BgL_obj2653z00_1478 = BgL_ez00_770; 
BgL_val2652z00_1479 = BgL_arg2987z00_792; 
((((BgL_feffectz00_bglt)CREF(BgL_obj2653z00_1478))->BgL_writez00) = ((obj_t)BgL_val2652z00_1479), BUNSPEC); } 
{ /* ./Effect/feffect.scm 84 */
obj_t BgL_arg3022z00_1477;
BgL_arg3022z00_1477 = 
CDR(BgL_vz00_771); 
{ 
obj_t BgL_vz00_2502;
BgL_vz00_2502 = BgL_arg3022z00_1477; 
BgL_vz00_771 = BgL_vz00_2502; 
goto BgL_loopz00_772;} } }  else 
{ /* ./Effect/feffect.scm 84 */
goto BgL_tagzd2122zd2_779;} }  else 
{ /* ./Effect/feffect.scm 84 */
goto BgL_tagzd2122zd2_779;} }  else 
{ /* ./Effect/feffect.scm 84 */
goto BgL_tagzd2122zd2_779;} } } }  else 
{ /* ./Effect/feffect.scm 84 */
goto BgL_tagzd2122zd2_779;} } } } } 
return 
(BgL_feffectz00_bglt)(BgL_auxz00_2462);} } } } } 
}



/* _parse-effect */
obj_t BGl__parsezd2effectzd2zzeffect_feffectz00(obj_t BgL_envz00_2243, obj_t BgL_propz00_2244)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 79 */
{ /* ./Effect/feffect.scm 80 */
BgL_feffectz00_bglt BgL_auxz00_2504;
BgL_auxz00_2504 = 
BGl_parsezd2effectzd2zzeffect_feffectz00(BgL_propz00_2244); 
return 
(obj_t)(BgL_auxz00_2504);} } 
}



/* merge-effects! */
bool_t BGl_mergezd2effectsz12zc0zzeffect_feffectz00(obj_t BgL_f1z00_6, obj_t BgL_f2z00_7)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 100 */
{ /* ./Effect/feffect.scm 135 */
obj_t BgL_changedz00_803;
BgL_changedz00_803 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Effect/feffect.scm 101 */
obj_t BgL_auxz00_2345;
BgL_auxz00_2345 = BFALSE; 
CELL_SET(BgL_changedz00_803, BgL_auxz00_2345); } 
{ /* ./Effect/feffect.scm 136 */
obj_t BgL_arg3030z00_804;
{ /* ./Effect/feffect.scm 136 */
obj_t BgL_arg3033z00_805;obj_t BgL_arg3034z00_806;
{ /* ./Effect/feffect.scm 136 */
BgL_feffectz00_bglt BgL_obj2648z00_1489;
BgL_obj2648z00_1489 = 
(BgL_feffectz00_bglt)(BgL_f1z00_6); 
BgL_arg3033z00_805 = 
(((BgL_feffectz00_bglt)CREF(BgL_obj2648z00_1489))->BgL_readz00); } 
{ /* ./Effect/feffect.scm 136 */
BgL_feffectz00_bglt BgL_obj2648z00_1490;
BgL_obj2648z00_1490 = 
(BgL_feffectz00_bglt)(BgL_f2z00_7); 
BgL_arg3034z00_806 = 
(((BgL_feffectz00_bglt)CREF(BgL_obj2648z00_1490))->BgL_readz00); } 
BgL_arg3030z00_804 = 
BGl_mergez12z12zzeffect_feffectz00(BgL_changedz00_803, BgL_arg3033z00_805, BgL_arg3034z00_806); } 
{ /* ./Effect/feffect.scm 136 */
BgL_feffectz00_bglt BgL_obj2650z00_1491;obj_t BgL_val2649z00_1492;
BgL_obj2650z00_1491 = 
(BgL_feffectz00_bglt)(BgL_f1z00_6); 
BgL_val2649z00_1492 = BgL_arg3030z00_804; 
((((BgL_feffectz00_bglt)CREF(BgL_obj2650z00_1491))->BgL_readz00) = ((obj_t)BgL_val2649z00_1492), BUNSPEC); } } 
{ /* ./Effect/feffect.scm 137 */
obj_t BgL_arg3039z00_807;
{ /* ./Effect/feffect.scm 137 */
obj_t BgL_arg3042z00_808;obj_t BgL_arg3043z00_809;
{ /* ./Effect/feffect.scm 137 */
BgL_feffectz00_bglt BgL_obj2651z00_1493;
BgL_obj2651z00_1493 = 
(BgL_feffectz00_bglt)(BgL_f1z00_6); 
BgL_arg3042z00_808 = 
(((BgL_feffectz00_bglt)CREF(BgL_obj2651z00_1493))->BgL_writez00); } 
{ /* ./Effect/feffect.scm 137 */
BgL_feffectz00_bglt BgL_obj2651z00_1494;
BgL_obj2651z00_1494 = 
(BgL_feffectz00_bglt)(BgL_f2z00_7); 
BgL_arg3043z00_809 = 
(((BgL_feffectz00_bglt)CREF(BgL_obj2651z00_1494))->BgL_writez00); } 
BgL_arg3039z00_807 = 
BGl_mergez12z12zzeffect_feffectz00(BgL_changedz00_803, BgL_arg3042z00_808, BgL_arg3043z00_809); } 
{ /* ./Effect/feffect.scm 137 */
BgL_feffectz00_bglt BgL_obj2653z00_1495;obj_t BgL_val2652z00_1496;
BgL_obj2653z00_1495 = 
(BgL_feffectz00_bglt)(BgL_f1z00_6); 
BgL_val2652z00_1496 = BgL_arg3039z00_807; 
((((BgL_feffectz00_bglt)CREF(BgL_obj2653z00_1495))->BgL_writez00) = ((obj_t)BgL_val2652z00_1496), BUNSPEC); } } 
{ /* ./Effect/feffect.scm 137 */
obj_t BgL_auxz00_2521;
BgL_auxz00_2521 = 
CELL_REF(BgL_changedz00_803); 
return 
CBOOL(BgL_auxz00_2521);} } } 
}



/* merge! */
obj_t BGl_mergez12z12zzeffect_feffectz00(obj_t BgL_changedz00_2341, obj_t BgL_e1z00_810, obj_t BgL_e2z00_811)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 135 */
{ 
obj_t BgL_l1z00_816;obj_t BgL_l2z00_817;
{ /* ./Effect/feffect.scm 127 */
bool_t BgL_test3048z00_813;
{ /* ./Effect/feffect.scm 127 */
obj_t BgL_auxz00_2523;
BgL_auxz00_2523 = 
CNST_TABLE_REF(((long)0)); 
BgL_test3048z00_813 = 
(BgL_e1z00_810==BgL_auxz00_2523); } 
if(BgL_test3048z00_813)
{ /* ./Effect/feffect.scm 127 */
return BgL_e1z00_810;}  else 
{ /* ./Effect/feffect.scm 129 */
bool_t BgL_test3049z00_814;
BgL_test3049z00_814 = 
NULLP(BgL_e2z00_811); 
if(BgL_test3049z00_814)
{ /* ./Effect/feffect.scm 129 */
return BgL_e1z00_810;}  else 
{ /* ./Effect/feffect.scm 131 */
bool_t BgL_test3050z00_815;
{ /* ./Effect/feffect.scm 131 */
obj_t BgL_auxz00_2529;
BgL_auxz00_2529 = 
CNST_TABLE_REF(((long)0)); 
BgL_test3050z00_815 = 
(BgL_e2z00_811==BgL_auxz00_2529); } 
if(BgL_test3050z00_815)
{ /* ./Effect/feffect.scm 131 */
CELL_SET(BgL_changedz00_2341, BTRUE); 
return 
CNST_TABLE_REF(((long)0));}  else 
{ /* ./Effect/feffect.scm 131 */
BgL_l1z00_816 = BgL_e1z00_810; 
BgL_l2z00_817 = BgL_e2z00_811; 
{ /* ./Effect/feffect.scm 104 */
bool_t BgL_test3056z00_819;
{ /* ./Effect/feffect.scm 104 */
obj_t BgL_objz00_1498;
BgL_objz00_1498 = BgL_l1z00_816; 
BgL_test3056z00_819 = 
NULLP(BgL_objz00_1498); } 
if(BgL_test3056z00_819)
{ /* ./Effect/feffect.scm 104 */
{ /* ./Effect/feffect.scm 105 */
bool_t BgL_test3057z00_820;
BgL_test3057z00_820 = 
PAIRP(BgL_l2z00_817); 
if(BgL_test3057z00_820)
{ /* ./Effect/feffect.scm 105 */
CELL_SET(BgL_changedz00_2341, BTRUE); }  else 
{ /* ./Effect/feffect.scm 105 */BFALSE; } } 
return BgL_l2z00_817;}  else 
{ /* ./Effect/feffect.scm 108 */
bool_t BgL_test3059z00_821;
BgL_test3059z00_821 = 
NULLP(BgL_l2z00_817); 
if(BgL_test3059z00_821)
{ /* ./Effect/feffect.scm 108 */
return BgL_l1z00_816;}  else 
{ /* ./Effect/feffect.scm 108 */
{ /* ./Effect/feffect.scm 111 */
obj_t BgL_kz00_822;
BgL_kz00_822 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
{ 
obj_t BgL_l2802z00_823;
BgL_l2802z00_823 = BgL_l1z00_816; 
BgL_forzd2each2803zd2_824:
{ /* ./Effect/feffect.scm 112 */
bool_t BgL_test3061z00_825;
BgL_test3061z00_825 = 
PAIRP(BgL_l2802z00_823); 
if(BgL_test3061z00_825)
{ /* ./Effect/feffect.scm 112 */
{ /* ./Effect/feffect.scm 113 */
obj_t BgL_sz00_826;
BgL_sz00_826 = 
CAR(BgL_l2802z00_823); 
BGl_putpropz12z12zz__r4_symbols_6_4z00(BgL_sz00_826, BgL_kz00_822, BTRUE); } 
{ /* ./Effect/feffect.scm 112 */
obj_t BgL_arg3065z00_827;
BgL_arg3065z00_827 = 
CDR(BgL_l2802z00_823); 
{ 
obj_t BgL_l2802z00_2547;
BgL_l2802z00_2547 = BgL_arg3065z00_827; 
BgL_l2802z00_823 = BgL_l2802z00_2547; 
goto BgL_forzd2each2803zd2_824;} } }  else 
{ /* ./Effect/feffect.scm 112 */((bool_t)1); } } } 
{ 
obj_t BgL_l2804z00_828;
BgL_l2804z00_828 = BgL_l2z00_817; 
BgL_forzd2each2805zd2_829:
{ /* ./Effect/feffect.scm 115 */
bool_t BgL_test3070z00_830;
BgL_test3070z00_830 = 
PAIRP(BgL_l2804z00_828); 
if(BgL_test3070z00_830)
{ /* ./Effect/feffect.scm 115 */
{ /* ./Effect/feffect.scm 116 */
obj_t BgL_sz00_831;
BgL_sz00_831 = 
CAR(BgL_l2804z00_828); 
{ /* ./Effect/feffect.scm 116 */
bool_t BgL_test3071z00_832;
{ /* ./Effect/feffect.scm 116 */
obj_t BgL_auxz00_2551;
BgL_auxz00_2551 = 
BGl_getpropz00zz__r4_symbols_6_4z00(BgL_sz00_831, BgL_kz00_822); 
BgL_test3071z00_832 = 
CBOOL(BgL_auxz00_2551); } 
if(BgL_test3071z00_832)
{ /* ./Effect/feffect.scm 116 */BFALSE; }  else 
{ /* ./Effect/feffect.scm 116 */
CELL_SET(BgL_changedz00_2341, BTRUE); 
BgL_l1z00_816 = 
MAKE_PAIR(BgL_sz00_831, BgL_l1z00_816); } } } 
{ /* ./Effect/feffect.scm 115 */
obj_t BgL_arg3076z00_833;
BgL_arg3076z00_833 = 
CDR(BgL_l2804z00_828); 
{ 
obj_t BgL_l2804z00_2557;
BgL_l2804z00_2557 = BgL_arg3076z00_833; 
BgL_l2804z00_828 = BgL_l2804z00_2557; 
goto BgL_forzd2each2805zd2_829;} } }  else 
{ /* ./Effect/feffect.scm 115 */((bool_t)1); } } } 
{ 
obj_t BgL_l2806z00_834;
BgL_l2806z00_834 = BgL_l1z00_816; 
BgL_forzd2each2807zd2_835:
{ /* ./Effect/feffect.scm 121 */
bool_t BgL_test3081z00_836;
BgL_test3081z00_836 = 
PAIRP(BgL_l2806z00_834); 
if(BgL_test3081z00_836)
{ /* ./Effect/feffect.scm 121 */
{ /* ./Effect/feffect.scm 122 */
obj_t BgL_sz00_837;
BgL_sz00_837 = 
CAR(BgL_l2806z00_834); 
BGl_rempropz12z12zz__r4_symbols_6_4z00(BgL_sz00_837, BgL_kz00_822); } 
{ /* ./Effect/feffect.scm 121 */
obj_t BgL_arg3085z00_838;
BgL_arg3085z00_838 = 
CDR(BgL_l2806z00_834); 
{ 
obj_t BgL_l2806z00_2563;
BgL_l2806z00_2563 = BgL_arg3085z00_838; 
BgL_l2806z00_834 = BgL_l2806z00_2563; 
goto BgL_forzd2each2807zd2_835;} } }  else 
{ /* ./Effect/feffect.scm 121 */((bool_t)1); } } } 
return BgL_l1z00_816;} } } } } } } } } } 
}



/* fun-effect! */
BgL_feffectz00_bglt BGl_funzd2effectz12zc0zzeffect_feffectz00(obj_t BgL_vz00_8)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 143 */
{ /* ./Effect/feffect.scm 144 */
bool_t BgL_test3092z00_841;
BgL_test3092z00_841 = 
BGl_iszd2azf3z21zz__objectz00(BgL_vz00_8, BGl_globalz00zzast_varz00); 
if(BgL_test3092z00_841)
{ /* ./Effect/feffect.scm 144 */
return 
BGl_funzd2effectzd2globalz12z12zzeffect_feffectz00(
(BgL_globalz00_bglt)(BgL_vz00_8));}  else 
{ /* ./Effect/feffect.scm 146 */
BgL_localz00_bglt BgL_vz00_1511;
BgL_vz00_1511 = 
(BgL_localz00_bglt)(BgL_vz00_8); 
return 
BGl_dozd2funzd2effectz12z12zzeffect_feffectz00(
(BgL_variablez00_bglt)(BgL_vz00_1511));} } } 
}



/* fun-effect-global! */
BgL_feffectz00_bglt BGl_funzd2effectzd2globalz12z12zzeffect_feffectz00(BgL_globalz00_bglt BgL_vz00_9)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 151 */
{ /* ./Effect/feffect.scm 152 */
bool_t BgL_test3096z00_842;
{ /* ./Effect/feffect.scm 152 */
bool_t BgL_test3099z00_843;
{ /* ./Effect/feffect.scm 152 */
obj_t BgL_auxz00_2571;
BgL_auxz00_2571 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
(((BgL_globalz00_bglt)CREF(BgL_vz00_9))->BgL_importz00), 
CNST_TABLE_REF(((long)4))); 
BgL_test3099z00_843 = 
CBOOL(BgL_auxz00_2571); } 
if(BgL_test3099z00_843)
{ /* ./Effect/feffect.scm 153 */
bool_t BgL_test3100z00_844;
{ /* ./Effect/feffect.scm 153 */
BgL_valuez00_bglt BgL_arg3102z00_845;
{ /* ./Effect/feffect.scm 153 */
BgL_variablez00_bglt BgL_obj2205z00_1513;
BgL_obj2205z00_1513 = 
(BgL_variablez00_bglt)(BgL_vz00_9); 
BgL_arg3102z00_845 = 
(((BgL_variablez00_bglt)CREF(BgL_obj2205z00_1513))->BgL_valuez00); } 
{ /* ./Effect/feffect.scm 153 */
obj_t BgL_obj2529z00_1514;
BgL_obj2529z00_1514 = 
(obj_t)(BgL_arg3102z00_845); 
BgL_test3100z00_844 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2529z00_1514, BGl_sfunz00zzast_varz00); } } 
if(BgL_test3100z00_844)
{ /* ./Effect/feffect.scm 153 */
BgL_test3096z00_842 = ((bool_t)0); }  else 
{ /* ./Effect/feffect.scm 153 */
BgL_test3096z00_842 = ((bool_t)1); } }  else 
{ /* ./Effect/feffect.scm 152 */
BgL_test3096z00_842 = ((bool_t)1); } } 
if(BgL_test3096z00_842)
{ /* ./Effect/feffect.scm 152 */
return 
BGl_funzd2effectzd2alienz12z12zzeffect_feffectz00(BgL_vz00_9);}  else 
{ /* ./Effect/feffect.scm 152 */
return 
BGl_funzd2effectzd2modulez12z12zzeffect_feffectz00(BgL_vz00_9);} } } 
}



/* fun-effect-alien! */
BgL_feffectz00_bglt BGl_funzd2effectzd2alienz12z12zzeffect_feffectz00(BgL_globalz00_bglt BgL_gz00_10)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 162 */
{ /* ./Effect/feffect.scm 163 */
BgL_valuez00_bglt BgL_instance2808z00_848;
{ /* ./Effect/feffect.scm 163 */
BgL_variablez00_bglt BgL_obj2205z00_1515;
BgL_obj2205z00_1515 = 
(BgL_variablez00_bglt)(BgL_gz00_10); 
BgL_instance2808z00_848 = 
(((BgL_variablez00_bglt)CREF(BgL_obj2205z00_1515))->BgL_valuez00); } 
{ /* ./Effect/feffect.scm 164 */
bool_t BgL_test3110z00_849;
{ /* ./Effect/feffect.scm 164 */
obj_t BgL_arg3113z00_850;
{ /* ./Effect/feffect.scm 164 */
BgL_funz00_bglt BgL_obj2422z00_1516;
BgL_obj2422z00_1516 = 
(BgL_funz00_bglt)(BgL_instance2808z00_848); 
BgL_arg3113z00_850 = 
(((BgL_funz00_bglt)CREF(BgL_obj2422z00_1516))->BgL_effectz00); } 
BgL_test3110z00_849 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg3113z00_850, BGl_feffectz00zzast_varz00); } 
if(BgL_test3110z00_849)
{ /* ./Effect/feffect.scm 164 */BFALSE; }  else 
{ /* ./Effect/feffect.scm 165 */
BgL_funz00_bglt BgL_obj2424z00_1518;obj_t BgL_val2423z00_1519;
BgL_obj2424z00_1518 = 
(BgL_funz00_bglt)(BgL_instance2808z00_848); 
BgL_val2423z00_1519 = 
(obj_t)(BGl_za2effectzd2topza2zd2zzeffect_feffectz00); 
((((BgL_funz00_bglt)CREF(BgL_obj2424z00_1518))->BgL_effectz00) = ((obj_t)BgL_val2423z00_1519), BUNSPEC); } } 
{ /* ./Effect/feffect.scm 166 */
BgL_funz00_bglt BgL_obj2422z00_1520;
BgL_obj2422z00_1520 = 
(BgL_funz00_bglt)(BgL_instance2808z00_848); 
{ /* ./Effect/feffect.scm 166 */
obj_t BgL_auxz00_2595;
BgL_auxz00_2595 = 
(((BgL_funz00_bglt)CREF(BgL_obj2422z00_1520))->BgL_effectz00); 
return 
(BgL_feffectz00_bglt)(BgL_auxz00_2595);} } } } 
}



/* fun-effect-module! */
BgL_feffectz00_bglt BGl_funzd2effectzd2modulez12z12zzeffect_feffectz00(BgL_globalz00_bglt BgL_vz00_11)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 171 */
{ /* ./Effect/feffect.scm 172 */
BgL_valuez00_bglt BgL_funz00_851;
{ /* ./Effect/feffect.scm 172 */
BgL_variablez00_bglt BgL_obj2205z00_1521;
BgL_obj2205z00_1521 = 
(BgL_variablez00_bglt)(BgL_vz00_11); 
BgL_funz00_851 = 
(((BgL_variablez00_bglt)CREF(BgL_obj2205z00_1521))->BgL_valuez00); } 
{ /* ./Effect/feffect.scm 172 */
obj_t BgL_efz00_852;
{ /* ./Effect/feffect.scm 173 */
BgL_funz00_bglt BgL_obj2422z00_1522;
BgL_obj2422z00_1522 = 
(BgL_funz00_bglt)(BgL_funz00_851); 
BgL_efz00_852 = 
(((BgL_funz00_bglt)CREF(BgL_obj2422z00_1522))->BgL_effectz00); } 
{ /* ./Effect/feffect.scm 173 */

{ /* ./Effect/feffect.scm 176 */
bool_t BgL_test3118z00_853;
{ /* ./Effect/feffect.scm 176 */
obj_t BgL_obj2663z00_1523;
BgL_obj2663z00_1523 = 
(obj_t)(BgL_funz00_851); 
BgL_test3118z00_853 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2663z00_1523, BGl_feffectz00zzast_varz00); } 
if(BgL_test3118z00_853)
{ /* ./Effect/feffect.scm 176 */
return 
(BgL_feffectz00_bglt)(BgL_efz00_852);}  else 
{ /* ./Effect/feffect.scm 176 */
return 
BGl_dozd2funzd2effectz12z12zzeffect_feffectz00(
(BgL_variablez00_bglt)(BgL_vz00_11));} } } } } } 
}



/* do-fun-effect! */
BgL_feffectz00_bglt BGl_dozd2funzd2effectz12z12zzeffect_feffectz00(BgL_variablez00_bglt BgL_vz00_13)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 195 */
{ /* ./Effect/feffect.scm 196 */
BgL_valuez00_bglt BgL_instance2810z00_854;
BgL_instance2810z00_854 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_13))->BgL_valuez00); 
{ /* ./Effect/feffect.scm 197 */
bool_t BgL_test3124z00_855;
{ /* ./Effect/feffect.scm 197 */
obj_t BgL_arg3138z00_859;
{ /* ./Effect/feffect.scm 197 */
BgL_funz00_bglt BgL_obj2422z00_1525;
BgL_obj2422z00_1525 = 
(BgL_funz00_bglt)(BgL_instance2810z00_854); 
BgL_arg3138z00_859 = 
(((BgL_funz00_bglt)CREF(BgL_obj2422z00_1525))->BgL_effectz00); } 
BgL_test3124z00_855 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg3138z00_859, BGl_feffectz00zzast_varz00); } 
if(BgL_test3124z00_855)
{ /* ./Effect/feffect.scm 198 */
BgL_funz00_bglt BgL_obj2422z00_1527;
BgL_obj2422z00_1527 = 
(BgL_funz00_bglt)(BgL_instance2810z00_854); 
{ /* ./Effect/feffect.scm 198 */
obj_t BgL_auxz00_2614;
BgL_auxz00_2614 = 
(((BgL_funz00_bglt)CREF(BgL_obj2422z00_1527))->BgL_effectz00); 
return 
(BgL_feffectz00_bglt)(BgL_auxz00_2614);} }  else 
{ /* ./Effect/feffect.scm 197 */
{ /* ./Effect/feffect.scm 200 */
BgL_feffectz00_bglt BgL_arg3128z00_856;
BgL_arg3128z00_856 = 
BGl_makezd2feffectzd2zzast_varz00(BNIL, BNIL); 
{ /* ./Effect/feffect.scm 200 */
BgL_funz00_bglt BgL_obj2424z00_1528;obj_t BgL_val2423z00_1529;
BgL_obj2424z00_1528 = 
(BgL_funz00_bglt)(BgL_instance2810z00_854); 
BgL_val2423z00_1529 = 
(obj_t)(BgL_arg3128z00_856); 
((((BgL_funz00_bglt)CREF(BgL_obj2424z00_1528))->BgL_effectz00) = ((obj_t)BgL_val2423z00_1529), BUNSPEC); } } 
{ /* ./Effect/feffect.scm 201 */
obj_t BgL_arg3132z00_857;obj_t BgL_arg3133z00_858;
{ /* ./Effect/feffect.scm 201 */
BgL_sfunz00_bglt BgL_obj2475z00_1530;
BgL_obj2475z00_1530 = 
(BgL_sfunz00_bglt)(BgL_instance2810z00_854); 
BgL_arg3132z00_857 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj2475z00_1530))->BgL_bodyz00); } 
{ /* ./Effect/feffect.scm 201 */
BgL_funz00_bglt BgL_obj2422z00_1531;
BgL_obj2422z00_1531 = 
(BgL_funz00_bglt)(BgL_instance2810z00_854); 
BgL_arg3133z00_858 = 
(((BgL_funz00_bglt)CREF(BgL_obj2422z00_1531))->BgL_effectz00); } 
{ /* ./Effect/feffect.scm 201 */
BgL_feffectz00_bglt BgL_res3812z00_1559;
{ /* ./Effect/feffect.scm 201 */
BgL_nodez00_bglt BgL_nodez00_1532;BgL_feffectz00_bglt BgL_effectz00_1533;
BgL_nodez00_1532 = 
(BgL_nodez00_bglt)(BgL_arg3132z00_857); 
BgL_effectz00_1533 = 
(BgL_feffectz00_bglt)(BgL_arg3133z00_858); 
{ /* ./Effect/feffect.scm 201 */
obj_t BgL_method2846z00_1534;
{ /* ./Effect/feffect.scm 201 */
BgL_objectz00_bglt BgL_objz00_1535;
BgL_objz00_1535 = 
(BgL_objectz00_bglt)(BgL_nodez00_1532); 
{ /* ./Effect/feffect.scm 201 */
long BgL_objzd2classzd2numz00_1536;
BgL_objzd2classzd2numz00_1536 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1535); 
{ /* ./Effect/feffect.scm 201 */
obj_t BgL_arg2017z00_1537;
{ /* ./Effect/feffect.scm 201 */
int BgL_auxz00_2629;
BgL_auxz00_2629 = 
(int)(((long)1)); 
BgL_arg2017z00_1537 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_2629); } 
{ /* ./Effect/feffect.scm 201 */
int BgL_offsetz00_1540;
BgL_offsetz00_1540 = 
(int)(BgL_objzd2classzd2numz00_1536); 
{ /* ./Effect/feffect.scm 201 */
long BgL_offsetz00_1541;
{ /* ./Effect/feffect.scm 201 */
long BgL_auxz00_2633;
BgL_auxz00_2633 = 
(long)(BgL_offsetz00_1540); 
BgL_offsetz00_1541 = 
(BgL_auxz00_2633-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 201 */
long BgL_modz00_1542;
{ /* ./Effect/feffect.scm 201 */
int BgL_arg2028z00_1543;
BgL_arg2028z00_1543 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 201 */
long BgL_n2z00_1551;
BgL_n2z00_1551 = 
(long)(BgL_arg2028z00_1543); 
BgL_modz00_1542 = 
(BgL_offsetz00_1541/BgL_n2z00_1551); } } 
{ /* ./Effect/feffect.scm 201 */
long BgL_restz00_1544;
{ /* ./Effect/feffect.scm 201 */
int BgL_arg2024z00_1545;
BgL_arg2024z00_1545 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 201 */
long BgL_n2z00_1554;
BgL_n2z00_1554 = 
(long)(BgL_arg2024z00_1545); 
BgL_restz00_1544 = 
(BgL_offsetz00_1541%BgL_n2z00_1554); } } 
{ /* ./Effect/feffect.scm 201 */

{ /* ./Effect/feffect.scm 201 */
obj_t BgL_bucketz00_1546;
{ /* ./Effect/feffect.scm 201 */
int BgL_kz00_1556;
BgL_kz00_1556 = 
(int)(BgL_modz00_1542); 
BgL_bucketz00_1546 = 
VECTOR_REF(BgL_arg2017z00_1537,BgL_kz00_1556); } 
{ /* ./Effect/feffect.scm 201 */
int BgL_kz00_1558;
BgL_kz00_1558 = 
(int)(BgL_restz00_1544); 
BgL_method2846z00_1534 = 
VECTOR_REF(BgL_bucketz00_1546,BgL_kz00_1558); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 201 */
obj_t BgL_auxz00_2646;
BgL_auxz00_2646 = 
PROCEDURE_ENTRY(BgL_method2846z00_1534)(BgL_method2846z00_1534, 
(obj_t)(BgL_nodez00_1532), 
(obj_t)(BgL_effectz00_1533), BEOA); 
BgL_res3812z00_1559 = 
(BgL_feffectz00_bglt)(BgL_auxz00_2646); } } } 
return BgL_res3812z00_1559;} } } } } } 
}



/* body-effect*! */
obj_t BGl_bodyzd2effectza2z12z62zzeffect_feffectz00(obj_t BgL_nodeza2za2_58, obj_t BgL_effectz00_59)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 373 */
{ 
obj_t BgL_l2841z00_860;
BgL_l2841z00_860 = BgL_nodeza2za2_58; 
BgL_forzd2each2842zd2_861:
{ /* ./Effect/feffect.scm 374 */
bool_t BgL_test3143z00_862;
BgL_test3143z00_862 = 
PAIRP(BgL_l2841z00_860); 
if(BgL_test3143z00_862)
{ /* ./Effect/feffect.scm 374 */
{ /* ./Effect/feffect.scm 374 */
obj_t BgL_nz00_863;
BgL_nz00_863 = 
CAR(BgL_l2841z00_860); 
{ /* ./Effect/feffect.scm 374 */
BgL_feffectz00_bglt BgL_res3815z00_1589;
{ /* ./Effect/feffect.scm 374 */
BgL_nodez00_bglt BgL_nodez00_1562;BgL_feffectz00_bglt BgL_effectz00_1563;
BgL_nodez00_1562 = 
(BgL_nodez00_bglt)(BgL_nz00_863); 
BgL_effectz00_1563 = 
(BgL_feffectz00_bglt)(BgL_effectz00_59); 
{ /* ./Effect/feffect.scm 374 */
obj_t BgL_method2846z00_1564;
{ /* ./Effect/feffect.scm 374 */
BgL_objectz00_bglt BgL_objz00_1565;
BgL_objz00_1565 = 
(BgL_objectz00_bglt)(BgL_nodez00_1562); 
{ /* ./Effect/feffect.scm 374 */
long BgL_objzd2classzd2numz00_1566;
BgL_objzd2classzd2numz00_1566 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1565); 
{ /* ./Effect/feffect.scm 374 */
obj_t BgL_arg2017z00_1567;
{ /* ./Effect/feffect.scm 374 */
int BgL_auxz00_2659;
BgL_auxz00_2659 = 
(int)(((long)1)); 
BgL_arg2017z00_1567 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_2659); } 
{ /* ./Effect/feffect.scm 374 */
int BgL_offsetz00_1570;
BgL_offsetz00_1570 = 
(int)(BgL_objzd2classzd2numz00_1566); 
{ /* ./Effect/feffect.scm 374 */
long BgL_offsetz00_1571;
{ /* ./Effect/feffect.scm 374 */
long BgL_auxz00_2663;
BgL_auxz00_2663 = 
(long)(BgL_offsetz00_1570); 
BgL_offsetz00_1571 = 
(BgL_auxz00_2663-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 374 */
long BgL_modz00_1572;
{ /* ./Effect/feffect.scm 374 */
int BgL_arg2028z00_1573;
BgL_arg2028z00_1573 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 374 */
long BgL_n2z00_1581;
BgL_n2z00_1581 = 
(long)(BgL_arg2028z00_1573); 
BgL_modz00_1572 = 
(BgL_offsetz00_1571/BgL_n2z00_1581); } } 
{ /* ./Effect/feffect.scm 374 */
long BgL_restz00_1574;
{ /* ./Effect/feffect.scm 374 */
int BgL_arg2024z00_1575;
BgL_arg2024z00_1575 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 374 */
long BgL_n2z00_1584;
BgL_n2z00_1584 = 
(long)(BgL_arg2024z00_1575); 
BgL_restz00_1574 = 
(BgL_offsetz00_1571%BgL_n2z00_1584); } } 
{ /* ./Effect/feffect.scm 374 */

{ /* ./Effect/feffect.scm 374 */
obj_t BgL_bucketz00_1576;
{ /* ./Effect/feffect.scm 374 */
int BgL_kz00_1586;
BgL_kz00_1586 = 
(int)(BgL_modz00_1572); 
BgL_bucketz00_1576 = 
VECTOR_REF(BgL_arg2017z00_1567,BgL_kz00_1586); } 
{ /* ./Effect/feffect.scm 374 */
int BgL_kz00_1588;
BgL_kz00_1588 = 
(int)(BgL_restz00_1574); 
BgL_method2846z00_1564 = 
VECTOR_REF(BgL_bucketz00_1576,BgL_kz00_1588); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 374 */
obj_t BgL_auxz00_2676;
BgL_auxz00_2676 = 
PROCEDURE_ENTRY(BgL_method2846z00_1564)(BgL_method2846z00_1564, 
(obj_t)(BgL_nodez00_1562), 
(obj_t)(BgL_effectz00_1563), BEOA); 
BgL_res3815z00_1589 = 
(BgL_feffectz00_bglt)(BgL_auxz00_2676); } } } BgL_res3815z00_1589; } } 
{ /* ./Effect/feffect.scm 374 */
obj_t BgL_arg3147z00_864;
BgL_arg3147z00_864 = 
CDR(BgL_l2841z00_860); 
{ 
obj_t BgL_l2841z00_2683;
BgL_l2841z00_2683 = BgL_arg3147z00_864; 
BgL_l2841z00_860 = BgL_l2841z00_2683; 
goto BgL_forzd2each2842zd2_861;} } }  else 
{ /* ./Effect/feffect.scm 374 */((bool_t)1); } } } 
return BgL_effectz00_59;} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzeffect_feffectz00()
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 16 */
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2displayzd2envz00zz__objectz00, BGl_feffectz00zzast_varz00, BGl_proc4379z00zzeffect_feffectz00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_bodyzd2effectz12zd2default2845zd2envzc0zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_atomz00zzast_nodez00, BGl_proc4380z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_kwotez00zzast_nodez00, BGl_proc4381z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_varz00zzast_nodez00, BGl_proc4382z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_setqz00zzast_nodez00, BGl_proc4383z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_conditionalz00zzast_nodez00, BGl_proc4384z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_selectz00zzast_nodez00, BGl_proc4385z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_failz00zzast_nodez00, BGl_proc4386z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4387z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4388z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4389z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4390z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4391z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_castz00zzast_nodez00, BGl_proc4392z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_sequencez00zzast_nodez00, BGl_proc4393z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_funcallz00zzast_nodez00, BGl_proc4394z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4395z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_appz00zzast_nodez00, BGl_proc4396z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_externz00zzast_nodez00, BGl_proc4397z00zzeffect_feffectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4398z00zzeffect_feffectz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4399z00zzeffect_feffectz00);} 
}



/* body-effect!-let-var2886 */
obj_t BGl_bodyzd2effectz12zd2letzd2var2886zc0zzeffect_feffectz00(obj_t BgL_envz00_2270, obj_t BgL_nodez00_2271, obj_t BgL_effectz00_2272)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 363 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1417;BgL_feffectz00_bglt BgL_effectz00_1418;
{ /* ./Effect/feffect.scm 364 */
BgL_feffectz00_bglt BgL_auxz00_2706;
BgL_nodez00_1417 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2271); 
BgL_effectz00_1418 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2272); 
{ 
obj_t BgL_l2839z00_1422;
{ /* ./Effect/feffect.scm 365 */
obj_t BgL_arg3777z00_1424;
BgL_arg3777z00_1424 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1417))->BgL_bindingsz00); 
BgL_l2839z00_1422 = BgL_arg3777z00_1424; 
BgL_forzd2each2840zd2_1423:
{ /* ./Effect/feffect.scm 365 */
bool_t BgL_test3780z00_1425;
BgL_test3780z00_1425 = 
PAIRP(BgL_l2839z00_1422); 
if(BgL_test3780z00_1425)
{ /* ./Effect/feffect.scm 365 */
{ /* ./Effect/feffect.scm 366 */
obj_t BgL_bindingz00_1426;
BgL_bindingz00_1426 = 
CAR(BgL_l2839z00_1422); 
{ /* ./Effect/feffect.scm 366 */
obj_t BgL_arg3782z00_1427;
BgL_arg3782z00_1427 = 
CDR(BgL_bindingz00_1426); 
{ /* ./Effect/feffect.scm 366 */
BgL_feffectz00_bglt BgL_res3872z00_2182;
{ /* ./Effect/feffect.scm 366 */
BgL_nodez00_bglt BgL_nodez00_2155;
BgL_nodez00_2155 = 
(BgL_nodez00_bglt)(BgL_arg3782z00_1427); 
{ /* ./Effect/feffect.scm 366 */
obj_t BgL_method2846z00_2157;
{ /* ./Effect/feffect.scm 366 */
BgL_objectz00_bglt BgL_objz00_2158;
BgL_objz00_2158 = 
(BgL_objectz00_bglt)(BgL_nodez00_2155); 
{ /* ./Effect/feffect.scm 366 */
long BgL_objzd2classzd2numz00_2159;
BgL_objzd2classzd2numz00_2159 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2158); 
{ /* ./Effect/feffect.scm 366 */
obj_t BgL_arg2017z00_2160;
{ /* ./Effect/feffect.scm 366 */
int BgL_auxz00_2715;
BgL_auxz00_2715 = 
(int)(((long)1)); 
BgL_arg2017z00_2160 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_2715); } 
{ /* ./Effect/feffect.scm 366 */
int BgL_offsetz00_2163;
BgL_offsetz00_2163 = 
(int)(BgL_objzd2classzd2numz00_2159); 
{ /* ./Effect/feffect.scm 366 */
long BgL_offsetz00_2164;
{ /* ./Effect/feffect.scm 366 */
long BgL_auxz00_2719;
BgL_auxz00_2719 = 
(long)(BgL_offsetz00_2163); 
BgL_offsetz00_2164 = 
(BgL_auxz00_2719-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 366 */
long BgL_modz00_2165;
{ /* ./Effect/feffect.scm 366 */
int BgL_arg2028z00_2166;
BgL_arg2028z00_2166 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 366 */
long BgL_n2z00_2174;
BgL_n2z00_2174 = 
(long)(BgL_arg2028z00_2166); 
BgL_modz00_2165 = 
(BgL_offsetz00_2164/BgL_n2z00_2174); } } 
{ /* ./Effect/feffect.scm 366 */
long BgL_restz00_2167;
{ /* ./Effect/feffect.scm 366 */
int BgL_arg2024z00_2168;
BgL_arg2024z00_2168 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 366 */
long BgL_n2z00_2177;
BgL_n2z00_2177 = 
(long)(BgL_arg2024z00_2168); 
BgL_restz00_2167 = 
(BgL_offsetz00_2164%BgL_n2z00_2177); } } 
{ /* ./Effect/feffect.scm 366 */

{ /* ./Effect/feffect.scm 366 */
obj_t BgL_bucketz00_2169;
{ /* ./Effect/feffect.scm 366 */
int BgL_kz00_2179;
BgL_kz00_2179 = 
(int)(BgL_modz00_2165); 
BgL_bucketz00_2169 = 
VECTOR_REF(BgL_arg2017z00_2160,BgL_kz00_2179); } 
{ /* ./Effect/feffect.scm 366 */
int BgL_kz00_2181;
BgL_kz00_2181 = 
(int)(BgL_restz00_2167); 
BgL_method2846z00_2157 = 
VECTOR_REF(BgL_bucketz00_2169,BgL_kz00_2181); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 366 */
obj_t BgL_auxz00_2732;
BgL_auxz00_2732 = 
PROCEDURE_ENTRY(BgL_method2846z00_2157)(BgL_method2846z00_2157, 
(obj_t)(BgL_nodez00_2155), 
(obj_t)(BgL_effectz00_1418), BEOA); 
BgL_res3872z00_2182 = 
(BgL_feffectz00_bglt)(BgL_auxz00_2732); } } } BgL_res3872z00_2182; } } } 
{ /* ./Effect/feffect.scm 365 */
obj_t BgL_arg3787z00_1428;
BgL_arg3787z00_1428 = 
CDR(BgL_l2839z00_1422); 
{ 
obj_t BgL_l2839z00_2739;
BgL_l2839z00_2739 = BgL_arg3787z00_1428; 
BgL_l2839z00_1422 = BgL_l2839z00_2739; 
goto BgL_forzd2each2840zd2_1423;} } }  else 
{ /* ./Effect/feffect.scm 365 */((bool_t)1); } } } } 
{ /* ./Effect/feffect.scm 368 */
BgL_nodez00_bglt BgL_arg3792z00_1429;
BgL_arg3792z00_1429 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1417))->BgL_bodyz00); 
{ /* ./Effect/feffect.scm 368 */
BgL_feffectz00_bglt BgL_res3875z00_2212;
{ /* ./Effect/feffect.scm 368 */
obj_t BgL_method2846z00_2187;
{ /* ./Effect/feffect.scm 368 */
BgL_objectz00_bglt BgL_objz00_2188;
BgL_objz00_2188 = 
(BgL_objectz00_bglt)(BgL_arg3792z00_1429); 
{ /* ./Effect/feffect.scm 368 */
long BgL_objzd2classzd2numz00_2189;
BgL_objzd2classzd2numz00_2189 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2188); 
{ /* ./Effect/feffect.scm 368 */
obj_t BgL_arg2017z00_2190;
{ /* ./Effect/feffect.scm 368 */
int BgL_auxz00_2743;
BgL_auxz00_2743 = 
(int)(((long)1)); 
BgL_arg2017z00_2190 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_2743); } 
{ /* ./Effect/feffect.scm 368 */
int BgL_offsetz00_2193;
BgL_offsetz00_2193 = 
(int)(BgL_objzd2classzd2numz00_2189); 
{ /* ./Effect/feffect.scm 368 */
long BgL_offsetz00_2194;
{ /* ./Effect/feffect.scm 368 */
long BgL_auxz00_2747;
BgL_auxz00_2747 = 
(long)(BgL_offsetz00_2193); 
BgL_offsetz00_2194 = 
(BgL_auxz00_2747-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 368 */
long BgL_modz00_2195;
{ /* ./Effect/feffect.scm 368 */
int BgL_arg2028z00_2196;
BgL_arg2028z00_2196 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 368 */
long BgL_n2z00_2204;
BgL_n2z00_2204 = 
(long)(BgL_arg2028z00_2196); 
BgL_modz00_2195 = 
(BgL_offsetz00_2194/BgL_n2z00_2204); } } 
{ /* ./Effect/feffect.scm 368 */
long BgL_restz00_2197;
{ /* ./Effect/feffect.scm 368 */
int BgL_arg2024z00_2198;
BgL_arg2024z00_2198 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 368 */
long BgL_n2z00_2207;
BgL_n2z00_2207 = 
(long)(BgL_arg2024z00_2198); 
BgL_restz00_2197 = 
(BgL_offsetz00_2194%BgL_n2z00_2207); } } 
{ /* ./Effect/feffect.scm 368 */

{ /* ./Effect/feffect.scm 368 */
obj_t BgL_bucketz00_2199;
{ /* ./Effect/feffect.scm 368 */
int BgL_kz00_2209;
BgL_kz00_2209 = 
(int)(BgL_modz00_2195); 
BgL_bucketz00_2199 = 
VECTOR_REF(BgL_arg2017z00_2190,BgL_kz00_2209); } 
{ /* ./Effect/feffect.scm 368 */
int BgL_kz00_2211;
BgL_kz00_2211 = 
(int)(BgL_restz00_2197); 
BgL_method2846z00_2187 = 
VECTOR_REF(BgL_bucketz00_2199,BgL_kz00_2211); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 368 */
obj_t BgL_auxz00_2760;
BgL_auxz00_2760 = 
PROCEDURE_ENTRY(BgL_method2846z00_2187)(BgL_method2846z00_2187, 
(obj_t)(BgL_arg3792z00_1429), 
(obj_t)(BgL_effectz00_1418), BEOA); 
BgL_res3875z00_2212 = 
(BgL_feffectz00_bglt)(BgL_auxz00_2760); } } 
BgL_auxz00_2706 = BgL_res3875z00_2212; } } 
return 
(obj_t)(BgL_auxz00_2706);} } } 
}



/* body-effect!-let-fun2884 */
obj_t BGl_bodyzd2effectz12zd2letzd2fun2884zc0zzeffect_feffectz00(obj_t BgL_envz00_2273, obj_t BgL_nodez00_2274, obj_t BgL_effectz00_2275)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 355 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1403;BgL_feffectz00_bglt BgL_effectz00_1404;
{ /* ./Effect/feffect.scm 356 */
BgL_feffectz00_bglt BgL_auxz00_2769;
BgL_nodez00_1403 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2274); 
BgL_effectz00_1404 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2275); 
{ 
obj_t BgL_l2835z00_1408;
{ /* ./Effect/feffect.scm 357 */
obj_t BgL_arg3752z00_1410;
BgL_arg3752z00_1410 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1403))->BgL_localsz00); 
BgL_l2835z00_1408 = BgL_arg3752z00_1410; 
BgL_forzd2each2836zd2_1409:
{ /* ./Effect/feffect.scm 357 */
bool_t BgL_test3755z00_1411;
BgL_test3755z00_1411 = 
PAIRP(BgL_l2835z00_1408); 
if(BgL_test3755z00_1411)
{ /* ./Effect/feffect.scm 357 */
{ /* ./Effect/feffect.scm 357 */
obj_t BgL_arg3757z00_1412;
BgL_arg3757z00_1412 = 
CAR(BgL_l2835z00_1408); 
BGl_funzd2effectz12zc0zzeffect_feffectz00(BgL_arg3757z00_1412); } 
{ /* ./Effect/feffect.scm 357 */
obj_t BgL_arg3761z00_1413;
BgL_arg3761z00_1413 = 
CDR(BgL_l2835z00_1408); 
{ 
obj_t BgL_l2835z00_2776;
BgL_l2835z00_2776 = BgL_arg3761z00_1413; 
BgL_l2835z00_1408 = BgL_l2835z00_2776; 
goto BgL_forzd2each2836zd2_1409;} } }  else 
{ /* ./Effect/feffect.scm 357 */((bool_t)1); } } } } 
{ /* ./Effect/feffect.scm 358 */
BgL_nodez00_bglt BgL_arg3766z00_1414;
BgL_arg3766z00_1414 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1403))->BgL_bodyz00); 
{ /* ./Effect/feffect.scm 358 */
BgL_feffectz00_bglt BgL_res3869z00_2150;
{ /* ./Effect/feffect.scm 358 */
obj_t BgL_method2846z00_2125;
{ /* ./Effect/feffect.scm 358 */
BgL_objectz00_bglt BgL_objz00_2126;
BgL_objz00_2126 = 
(BgL_objectz00_bglt)(BgL_arg3766z00_1414); 
{ /* ./Effect/feffect.scm 358 */
long BgL_objzd2classzd2numz00_2127;
BgL_objzd2classzd2numz00_2127 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2126); 
{ /* ./Effect/feffect.scm 358 */
obj_t BgL_arg2017z00_2128;
{ /* ./Effect/feffect.scm 358 */
int BgL_auxz00_2780;
BgL_auxz00_2780 = 
(int)(((long)1)); 
BgL_arg2017z00_2128 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_2780); } 
{ /* ./Effect/feffect.scm 358 */
int BgL_offsetz00_2131;
BgL_offsetz00_2131 = 
(int)(BgL_objzd2classzd2numz00_2127); 
{ /* ./Effect/feffect.scm 358 */
long BgL_offsetz00_2132;
{ /* ./Effect/feffect.scm 358 */
long BgL_auxz00_2784;
BgL_auxz00_2784 = 
(long)(BgL_offsetz00_2131); 
BgL_offsetz00_2132 = 
(BgL_auxz00_2784-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 358 */
long BgL_modz00_2133;
{ /* ./Effect/feffect.scm 358 */
int BgL_arg2028z00_2134;
BgL_arg2028z00_2134 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 358 */
long BgL_n2z00_2142;
BgL_n2z00_2142 = 
(long)(BgL_arg2028z00_2134); 
BgL_modz00_2133 = 
(BgL_offsetz00_2132/BgL_n2z00_2142); } } 
{ /* ./Effect/feffect.scm 358 */
long BgL_restz00_2135;
{ /* ./Effect/feffect.scm 358 */
int BgL_arg2024z00_2136;
BgL_arg2024z00_2136 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 358 */
long BgL_n2z00_2145;
BgL_n2z00_2145 = 
(long)(BgL_arg2024z00_2136); 
BgL_restz00_2135 = 
(BgL_offsetz00_2132%BgL_n2z00_2145); } } 
{ /* ./Effect/feffect.scm 358 */

{ /* ./Effect/feffect.scm 358 */
obj_t BgL_bucketz00_2137;
{ /* ./Effect/feffect.scm 358 */
int BgL_kz00_2147;
BgL_kz00_2147 = 
(int)(BgL_modz00_2133); 
BgL_bucketz00_2137 = 
VECTOR_REF(BgL_arg2017z00_2128,BgL_kz00_2147); } 
{ /* ./Effect/feffect.scm 358 */
int BgL_kz00_2149;
BgL_kz00_2149 = 
(int)(BgL_restz00_2135); 
BgL_method2846z00_2125 = 
VECTOR_REF(BgL_bucketz00_2137,BgL_kz00_2149); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 358 */
obj_t BgL_auxz00_2797;
BgL_auxz00_2797 = 
PROCEDURE_ENTRY(BgL_method2846z00_2125)(BgL_method2846z00_2125, 
(obj_t)(BgL_arg3766z00_1414), 
(obj_t)(BgL_effectz00_1404), BEOA); 
BgL_res3869z00_2150 = 
(BgL_feffectz00_bglt)(BgL_auxz00_2797); } } 
BgL_auxz00_2769 = BgL_res3869z00_2150; } } 
return 
(obj_t)(BgL_auxz00_2769);} } } 
}



/* body-effect!-extern2882 */
obj_t BGl_bodyzd2effectz12zd2extern2882z12zzeffect_feffectz00(obj_t BgL_envz00_2276, obj_t BgL_nodez00_2277, obj_t BgL_effectz00_2278)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 345 */
{ 
BgL_externz00_bglt BgL_nodez00_1394;obj_t BgL_effectz00_1395;
BgL_nodez00_1394 = 
(BgL_externz00_bglt)(BgL_nodez00_2277); 
BgL_effectz00_1395 = BgL_effectz00_2278; 
{ /* ./Effect/feffect.scm 346 */
obj_t BgL_efz00_1398;
{ /* ./Effect/feffect.scm 346 */
bool_t BgL_test3739z00_1399;
{ /* ./Effect/feffect.scm 346 */
obj_t BgL_arg3742z00_1400;
BgL_arg3742z00_1400 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1394))->BgL_effectz00); 
BgL_test3739z00_1399 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg3742z00_1400, BGl_feffectz00zzast_varz00); } 
if(BgL_test3739z00_1399)
{ /* ./Effect/feffect.scm 346 */
BgL_efz00_1398 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1394))->BgL_effectz00); }  else 
{ /* ./Effect/feffect.scm 346 */
BgL_efz00_1398 = 
(obj_t)(BGl_za2effectzd2topza2zd2zzeffect_feffectz00); } } 
BGl_mergezd2effectsz12zc0zzeffect_feffectz00(BgL_effectz00_1395, BgL_efz00_1398); 
return BgL_effectz00_1395;} } } 
}



/* body-effect!-app2880 */
obj_t BGl_bodyzd2effectz12zd2app2880z12zzeffect_feffectz00(obj_t BgL_envz00_2279, obj_t BgL_nodez00_2280, obj_t BgL_effectz00_2281)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 335 */
{ 
BgL_appz00_bglt BgL_nodez00_1383;obj_t BgL_effectz00_1384;
BgL_nodez00_1383 = 
(BgL_appz00_bglt)(BgL_nodez00_2280); 
BgL_effectz00_1384 = BgL_effectz00_2281; 
{ /* ./Effect/feffect.scm 337 */
obj_t BgL_arg3721z00_1388;
BgL_arg3721z00_1388 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1383))->BgL_argsz00); 
BGl_bodyzd2effectza2z12z62zzeffect_feffectz00(BgL_arg3721z00_1388, BgL_effectz00_1384); } 
{ /* ./Effect/feffect.scm 338 */
BgL_feffectz00_bglt BgL_efz00_1389;
{ /* ./Effect/feffect.scm 338 */
BgL_variablez00_bglt BgL_arg3726z00_1390;
{ /* ./Effect/feffect.scm 338 */
BgL_varz00_bglt BgL_arg3729z00_1391;
BgL_arg3729z00_1391 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1383))->BgL_funz00); 
BgL_arg3726z00_1390 = 
(((BgL_varz00_bglt)CREF(BgL_arg3729z00_1391))->BgL_variablez00); } 
BgL_efz00_1389 = 
BGl_funzd2effectz12zc0zzeffect_feffectz00(
(obj_t)(BgL_arg3726z00_1390)); } 
BGl_mergezd2effectsz12zc0zzeffect_feffectz00(BgL_effectz00_1384, 
(obj_t)(BgL_efz00_1389)); } 
return BgL_effectz00_1384;} } 
}



/* body-effect!-app-ly2878 */
obj_t BGl_bodyzd2effectz12zd2appzd2ly2878zc0zzeffect_feffectz00(obj_t BgL_envz00_2282, obj_t BgL_nodez00_2283, obj_t BgL_effectz00_2284)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 328 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1377;BgL_feffectz00_bglt BgL_effectz00_1378;
{ /* ./Effect/feffect.scm 329 */
BgL_feffectz00_bglt BgL_auxz00_2822;
BgL_nodez00_1377 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2283); 
BgL_effectz00_1378 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2284); 
BGl_mergezd2effectsz12zc0zzeffect_feffectz00(
(obj_t)(BgL_effectz00_1378), 
(obj_t)(BGl_za2effectzd2topza2zd2zzeffect_feffectz00)); 
BgL_auxz00_2822 = BgL_effectz00_1378; 
return 
(obj_t)(BgL_auxz00_2822);} } } 
}



/* body-effect!-funcall2876 */
obj_t BGl_bodyzd2effectz12zd2funcall2876z12zzeffect_feffectz00(obj_t BgL_envz00_2285, obj_t BgL_nodez00_2286, obj_t BgL_effectz00_2287)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 321 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1371;BgL_feffectz00_bglt BgL_effectz00_1372;
{ /* ./Effect/feffect.scm 322 */
BgL_feffectz00_bglt BgL_auxz00_2829;
BgL_nodez00_1371 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2286); 
BgL_effectz00_1372 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2287); 
BGl_mergezd2effectsz12zc0zzeffect_feffectz00(
(obj_t)(BgL_effectz00_1372), 
(obj_t)(BGl_za2effectzd2topza2zd2zzeffect_feffectz00)); 
BgL_auxz00_2829 = BgL_effectz00_1372; 
return 
(obj_t)(BgL_auxz00_2829);} } } 
}



/* body-effect!-sequence2874 */
obj_t BGl_bodyzd2effectz12zd2sequence2874z12zzeffect_feffectz00(obj_t BgL_envz00_2288, obj_t BgL_nodez00_2289, obj_t BgL_effectz00_2290)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 315 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1364;BgL_feffectz00_bglt BgL_effectz00_1365;
BgL_nodez00_1364 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2289); 
BgL_effectz00_1365 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2290); 
{ /* ./Effect/feffect.scm 316 */
obj_t BgL_arg3697z00_2110;
BgL_arg3697z00_2110 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1364))->BgL_nodesz00); 
return 
BGl_bodyzd2effectza2z12z62zzeffect_feffectz00(BgL_arg3697z00_2110, 
(obj_t)(BgL_effectz00_1365));} } } 
}



/* body-effect!-cast2872 */
obj_t BGl_bodyzd2effectz12zd2cast2872z12zzeffect_feffectz00(obj_t BgL_envz00_2291, obj_t BgL_nodez00_2292, obj_t BgL_effectz00_2293)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 308 */
{ 
BgL_castz00_bglt BgL_nodez00_1356;BgL_feffectz00_bglt BgL_effectz00_1357;
{ /* ./Effect/feffect.scm 309 */
BgL_feffectz00_bglt BgL_auxz00_2841;
BgL_nodez00_1356 = 
(BgL_castz00_bglt)(BgL_nodez00_2292); 
BgL_effectz00_1357 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2293); 
{ /* ./Effect/feffect.scm 309 */
BgL_nodez00_bglt BgL_arg3686z00_2080;
BgL_arg3686z00_2080 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1356))->BgL_argz00); 
{ /* ./Effect/feffect.scm 309 */
BgL_feffectz00_bglt BgL_res3866z00_2109;
{ /* ./Effect/feffect.scm 309 */
obj_t BgL_method2846z00_2084;
{ /* ./Effect/feffect.scm 309 */
BgL_objectz00_bglt BgL_objz00_2085;
BgL_objz00_2085 = 
(BgL_objectz00_bglt)(BgL_arg3686z00_2080); 
{ /* ./Effect/feffect.scm 309 */
long BgL_objzd2classzd2numz00_2086;
BgL_objzd2classzd2numz00_2086 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2085); 
{ /* ./Effect/feffect.scm 309 */
obj_t BgL_arg2017z00_2087;
{ /* ./Effect/feffect.scm 309 */
int BgL_auxz00_2845;
BgL_auxz00_2845 = 
(int)(((long)1)); 
BgL_arg2017z00_2087 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_2845); } 
{ /* ./Effect/feffect.scm 309 */
int BgL_offsetz00_2090;
BgL_offsetz00_2090 = 
(int)(BgL_objzd2classzd2numz00_2086); 
{ /* ./Effect/feffect.scm 309 */
long BgL_offsetz00_2091;
{ /* ./Effect/feffect.scm 309 */
long BgL_auxz00_2849;
BgL_auxz00_2849 = 
(long)(BgL_offsetz00_2090); 
BgL_offsetz00_2091 = 
(BgL_auxz00_2849-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 309 */
long BgL_modz00_2092;
{ /* ./Effect/feffect.scm 309 */
int BgL_arg2028z00_2093;
BgL_arg2028z00_2093 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 309 */
long BgL_n2z00_2101;
BgL_n2z00_2101 = 
(long)(BgL_arg2028z00_2093); 
BgL_modz00_2092 = 
(BgL_offsetz00_2091/BgL_n2z00_2101); } } 
{ /* ./Effect/feffect.scm 309 */
long BgL_restz00_2094;
{ /* ./Effect/feffect.scm 309 */
int BgL_arg2024z00_2095;
BgL_arg2024z00_2095 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 309 */
long BgL_n2z00_2104;
BgL_n2z00_2104 = 
(long)(BgL_arg2024z00_2095); 
BgL_restz00_2094 = 
(BgL_offsetz00_2091%BgL_n2z00_2104); } } 
{ /* ./Effect/feffect.scm 309 */

{ /* ./Effect/feffect.scm 309 */
obj_t BgL_bucketz00_2096;
{ /* ./Effect/feffect.scm 309 */
int BgL_kz00_2106;
BgL_kz00_2106 = 
(int)(BgL_modz00_2092); 
BgL_bucketz00_2096 = 
VECTOR_REF(BgL_arg2017z00_2087,BgL_kz00_2106); } 
{ /* ./Effect/feffect.scm 309 */
int BgL_kz00_2108;
BgL_kz00_2108 = 
(int)(BgL_restz00_2094); 
BgL_method2846z00_2084 = 
VECTOR_REF(BgL_bucketz00_2096,BgL_kz00_2108); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 309 */
obj_t BgL_auxz00_2862;
BgL_auxz00_2862 = 
PROCEDURE_ENTRY(BgL_method2846z00_2084)(BgL_method2846z00_2084, 
(obj_t)(BgL_arg3686z00_2080), 
(obj_t)(BgL_effectz00_1357), BEOA); 
BgL_res3866z00_2109 = 
(BgL_feffectz00_bglt)(BgL_auxz00_2862); } } 
BgL_auxz00_2841 = BgL_res3866z00_2109; } } 
return 
(obj_t)(BgL_auxz00_2841);} } } 
}



/* body-effect!-box-set!2870 */
obj_t BGl_bodyzd2effectz12zd2boxzd2setz122870zd2zzeffect_feffectz00(obj_t BgL_envz00_2294, obj_t BgL_nodez00_2295, obj_t BgL_effectz00_2296)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 300 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1347;BgL_feffectz00_bglt BgL_effectz00_1348;
{ /* ./Effect/feffect.scm 301 */
BgL_feffectz00_bglt BgL_auxz00_2871;
BgL_nodez00_1347 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2295); 
BgL_effectz00_1348 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2296); 
{ /* ./Effect/feffect.scm 301 */
BgL_varz00_bglt BgL_arg3672z00_2019;
BgL_arg3672z00_2019 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1347))->BgL_varz00); 
{ /* ./Effect/feffect.scm 301 */
BgL_feffectz00_bglt BgL_res3860z00_2049;
{ /* ./Effect/feffect.scm 301 */
BgL_nodez00_bglt BgL_nodez00_2022;
BgL_nodez00_2022 = 
(BgL_nodez00_bglt)(BgL_arg3672z00_2019); 
{ /* ./Effect/feffect.scm 301 */
obj_t BgL_method2846z00_2024;
{ /* ./Effect/feffect.scm 301 */
BgL_objectz00_bglt BgL_objz00_2025;
BgL_objz00_2025 = 
(BgL_objectz00_bglt)(BgL_nodez00_2022); 
{ /* ./Effect/feffect.scm 301 */
long BgL_objzd2classzd2numz00_2026;
BgL_objzd2classzd2numz00_2026 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2025); 
{ /* ./Effect/feffect.scm 301 */
obj_t BgL_arg2017z00_2027;
{ /* ./Effect/feffect.scm 301 */
int BgL_auxz00_2876;
BgL_auxz00_2876 = 
(int)(((long)1)); 
BgL_arg2017z00_2027 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_2876); } 
{ /* ./Effect/feffect.scm 301 */
int BgL_offsetz00_2030;
BgL_offsetz00_2030 = 
(int)(BgL_objzd2classzd2numz00_2026); 
{ /* ./Effect/feffect.scm 301 */
long BgL_offsetz00_2031;
{ /* ./Effect/feffect.scm 301 */
long BgL_auxz00_2880;
BgL_auxz00_2880 = 
(long)(BgL_offsetz00_2030); 
BgL_offsetz00_2031 = 
(BgL_auxz00_2880-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 301 */
long BgL_modz00_2032;
{ /* ./Effect/feffect.scm 301 */
int BgL_arg2028z00_2033;
BgL_arg2028z00_2033 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 301 */
long BgL_n2z00_2041;
BgL_n2z00_2041 = 
(long)(BgL_arg2028z00_2033); 
BgL_modz00_2032 = 
(BgL_offsetz00_2031/BgL_n2z00_2041); } } 
{ /* ./Effect/feffect.scm 301 */
long BgL_restz00_2034;
{ /* ./Effect/feffect.scm 301 */
int BgL_arg2024z00_2035;
BgL_arg2024z00_2035 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 301 */
long BgL_n2z00_2044;
BgL_n2z00_2044 = 
(long)(BgL_arg2024z00_2035); 
BgL_restz00_2034 = 
(BgL_offsetz00_2031%BgL_n2z00_2044); } } 
{ /* ./Effect/feffect.scm 301 */

{ /* ./Effect/feffect.scm 301 */
obj_t BgL_bucketz00_2036;
{ /* ./Effect/feffect.scm 301 */
int BgL_kz00_2046;
BgL_kz00_2046 = 
(int)(BgL_modz00_2032); 
BgL_bucketz00_2036 = 
VECTOR_REF(BgL_arg2017z00_2027,BgL_kz00_2046); } 
{ /* ./Effect/feffect.scm 301 */
int BgL_kz00_2048;
BgL_kz00_2048 = 
(int)(BgL_restz00_2034); 
BgL_method2846z00_2024 = 
VECTOR_REF(BgL_bucketz00_2036,BgL_kz00_2048); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 301 */
obj_t BgL_auxz00_2893;
BgL_auxz00_2893 = 
PROCEDURE_ENTRY(BgL_method2846z00_2024)(BgL_method2846z00_2024, 
(obj_t)(BgL_nodez00_2022), 
(obj_t)(BgL_effectz00_1348), BEOA); 
BgL_res3860z00_2049 = 
(BgL_feffectz00_bglt)(BgL_auxz00_2893); } } } BgL_res3860z00_2049; } } 
{ /* ./Effect/feffect.scm 301 */
BgL_nodez00_bglt BgL_arg3676z00_2020;
BgL_arg3676z00_2020 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1347))->BgL_valuez00); 
{ /* ./Effect/feffect.scm 301 */
BgL_feffectz00_bglt BgL_res3863z00_2078;
{ /* ./Effect/feffect.scm 301 */
obj_t BgL_method2846z00_2053;
{ /* ./Effect/feffect.scm 301 */
BgL_objectz00_bglt BgL_objz00_2054;
BgL_objz00_2054 = 
(BgL_objectz00_bglt)(BgL_arg3676z00_2020); 
{ /* ./Effect/feffect.scm 301 */
long BgL_objzd2classzd2numz00_2055;
BgL_objzd2classzd2numz00_2055 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2054); 
{ /* ./Effect/feffect.scm 301 */
obj_t BgL_arg2017z00_2056;
{ /* ./Effect/feffect.scm 301 */
int BgL_auxz00_2902;
BgL_auxz00_2902 = 
(int)(((long)1)); 
BgL_arg2017z00_2056 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_2902); } 
{ /* ./Effect/feffect.scm 301 */
int BgL_offsetz00_2059;
BgL_offsetz00_2059 = 
(int)(BgL_objzd2classzd2numz00_2055); 
{ /* ./Effect/feffect.scm 301 */
long BgL_offsetz00_2060;
{ /* ./Effect/feffect.scm 301 */
long BgL_auxz00_2906;
BgL_auxz00_2906 = 
(long)(BgL_offsetz00_2059); 
BgL_offsetz00_2060 = 
(BgL_auxz00_2906-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 301 */
long BgL_modz00_2061;
{ /* ./Effect/feffect.scm 301 */
int BgL_arg2028z00_2062;
BgL_arg2028z00_2062 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 301 */
long BgL_n2z00_2070;
BgL_n2z00_2070 = 
(long)(BgL_arg2028z00_2062); 
BgL_modz00_2061 = 
(BgL_offsetz00_2060/BgL_n2z00_2070); } } 
{ /* ./Effect/feffect.scm 301 */
long BgL_restz00_2063;
{ /* ./Effect/feffect.scm 301 */
int BgL_arg2024z00_2064;
BgL_arg2024z00_2064 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 301 */
long BgL_n2z00_2073;
BgL_n2z00_2073 = 
(long)(BgL_arg2024z00_2064); 
BgL_restz00_2063 = 
(BgL_offsetz00_2060%BgL_n2z00_2073); } } 
{ /* ./Effect/feffect.scm 301 */

{ /* ./Effect/feffect.scm 301 */
obj_t BgL_bucketz00_2065;
{ /* ./Effect/feffect.scm 301 */
int BgL_kz00_2075;
BgL_kz00_2075 = 
(int)(BgL_modz00_2061); 
BgL_bucketz00_2065 = 
VECTOR_REF(BgL_arg2017z00_2056,BgL_kz00_2075); } 
{ /* ./Effect/feffect.scm 301 */
int BgL_kz00_2077;
BgL_kz00_2077 = 
(int)(BgL_restz00_2063); 
BgL_method2846z00_2053 = 
VECTOR_REF(BgL_bucketz00_2065,BgL_kz00_2077); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 301 */
obj_t BgL_auxz00_2919;
BgL_auxz00_2919 = 
PROCEDURE_ENTRY(BgL_method2846z00_2053)(BgL_method2846z00_2053, 
(obj_t)(BgL_arg3676z00_2020), 
(obj_t)(BgL_effectz00_1348), BEOA); 
BgL_res3863z00_2078 = 
(BgL_feffectz00_bglt)(BgL_auxz00_2919); } } 
BgL_auxz00_2871 = BgL_res3863z00_2078; } } 
return 
(obj_t)(BgL_auxz00_2871);} } } 
}



/* body-effect!-box-ref2868 */
obj_t BGl_bodyzd2effectz12zd2boxzd2ref2868zc0zzeffect_feffectz00(obj_t BgL_envz00_2297, obj_t BgL_nodez00_2298, obj_t BgL_effectz00_2299)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 294 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1340;BgL_feffectz00_bglt BgL_effectz00_1341;
{ /* ./Effect/feffect.scm 295 */
BgL_feffectz00_bglt BgL_auxz00_2928;
BgL_nodez00_1340 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2298); 
BgL_effectz00_1341 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2299); 
{ /* ./Effect/feffect.scm 295 */
BgL_varz00_bglt BgL_arg3662z00_1988;
BgL_arg3662z00_1988 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1340))->BgL_varz00); 
{ /* ./Effect/feffect.scm 295 */
BgL_feffectz00_bglt BgL_res3857z00_2017;
{ /* ./Effect/feffect.scm 295 */
BgL_nodez00_bglt BgL_nodez00_1990;
BgL_nodez00_1990 = 
(BgL_nodez00_bglt)(BgL_arg3662z00_1988); 
{ /* ./Effect/feffect.scm 295 */
obj_t BgL_method2846z00_1992;
{ /* ./Effect/feffect.scm 295 */
BgL_objectz00_bglt BgL_objz00_1993;
BgL_objz00_1993 = 
(BgL_objectz00_bglt)(BgL_nodez00_1990); 
{ /* ./Effect/feffect.scm 295 */
long BgL_objzd2classzd2numz00_1994;
BgL_objzd2classzd2numz00_1994 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1993); 
{ /* ./Effect/feffect.scm 295 */
obj_t BgL_arg2017z00_1995;
{ /* ./Effect/feffect.scm 295 */
int BgL_auxz00_2933;
BgL_auxz00_2933 = 
(int)(((long)1)); 
BgL_arg2017z00_1995 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_2933); } 
{ /* ./Effect/feffect.scm 295 */
int BgL_offsetz00_1998;
BgL_offsetz00_1998 = 
(int)(BgL_objzd2classzd2numz00_1994); 
{ /* ./Effect/feffect.scm 295 */
long BgL_offsetz00_1999;
{ /* ./Effect/feffect.scm 295 */
long BgL_auxz00_2937;
BgL_auxz00_2937 = 
(long)(BgL_offsetz00_1998); 
BgL_offsetz00_1999 = 
(BgL_auxz00_2937-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 295 */
long BgL_modz00_2000;
{ /* ./Effect/feffect.scm 295 */
int BgL_arg2028z00_2001;
BgL_arg2028z00_2001 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 295 */
long BgL_n2z00_2009;
BgL_n2z00_2009 = 
(long)(BgL_arg2028z00_2001); 
BgL_modz00_2000 = 
(BgL_offsetz00_1999/BgL_n2z00_2009); } } 
{ /* ./Effect/feffect.scm 295 */
long BgL_restz00_2002;
{ /* ./Effect/feffect.scm 295 */
int BgL_arg2024z00_2003;
BgL_arg2024z00_2003 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 295 */
long BgL_n2z00_2012;
BgL_n2z00_2012 = 
(long)(BgL_arg2024z00_2003); 
BgL_restz00_2002 = 
(BgL_offsetz00_1999%BgL_n2z00_2012); } } 
{ /* ./Effect/feffect.scm 295 */

{ /* ./Effect/feffect.scm 295 */
obj_t BgL_bucketz00_2004;
{ /* ./Effect/feffect.scm 295 */
int BgL_kz00_2014;
BgL_kz00_2014 = 
(int)(BgL_modz00_2000); 
BgL_bucketz00_2004 = 
VECTOR_REF(BgL_arg2017z00_1995,BgL_kz00_2014); } 
{ /* ./Effect/feffect.scm 295 */
int BgL_kz00_2016;
BgL_kz00_2016 = 
(int)(BgL_restz00_2002); 
BgL_method2846z00_1992 = 
VECTOR_REF(BgL_bucketz00_2004,BgL_kz00_2016); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 295 */
obj_t BgL_auxz00_2950;
BgL_auxz00_2950 = 
PROCEDURE_ENTRY(BgL_method2846z00_1992)(BgL_method2846z00_1992, 
(obj_t)(BgL_nodez00_1990), 
(obj_t)(BgL_effectz00_1341), BEOA); 
BgL_res3857z00_2017 = 
(BgL_feffectz00_bglt)(BgL_auxz00_2950); } } } 
BgL_auxz00_2928 = BgL_res3857z00_2017; } } 
return 
(obj_t)(BgL_auxz00_2928);} } } 
}



/* body-effect!-make-box2866 */
obj_t BGl_bodyzd2effectz12zd2makezd2box2866zc0zzeffect_feffectz00(obj_t BgL_envz00_2300, obj_t BgL_nodez00_2301, obj_t BgL_effectz00_2302)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 288 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1333;BgL_feffectz00_bglt BgL_effectz00_1334;
{ /* ./Effect/feffect.scm 289 */
BgL_feffectz00_bglt BgL_auxz00_2959;
BgL_nodez00_1333 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2301); 
BgL_effectz00_1334 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2302); 
{ /* ./Effect/feffect.scm 289 */
BgL_nodez00_bglt BgL_arg3652z00_1958;
BgL_arg3652z00_1958 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1333))->BgL_valuez00); 
{ /* ./Effect/feffect.scm 289 */
BgL_feffectz00_bglt BgL_res3854z00_1987;
{ /* ./Effect/feffect.scm 289 */
obj_t BgL_method2846z00_1962;
{ /* ./Effect/feffect.scm 289 */
BgL_objectz00_bglt BgL_objz00_1963;
BgL_objz00_1963 = 
(BgL_objectz00_bglt)(BgL_arg3652z00_1958); 
{ /* ./Effect/feffect.scm 289 */
long BgL_objzd2classzd2numz00_1964;
BgL_objzd2classzd2numz00_1964 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1963); 
{ /* ./Effect/feffect.scm 289 */
obj_t BgL_arg2017z00_1965;
{ /* ./Effect/feffect.scm 289 */
int BgL_auxz00_2963;
BgL_auxz00_2963 = 
(int)(((long)1)); 
BgL_arg2017z00_1965 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_2963); } 
{ /* ./Effect/feffect.scm 289 */
int BgL_offsetz00_1968;
BgL_offsetz00_1968 = 
(int)(BgL_objzd2classzd2numz00_1964); 
{ /* ./Effect/feffect.scm 289 */
long BgL_offsetz00_1969;
{ /* ./Effect/feffect.scm 289 */
long BgL_auxz00_2967;
BgL_auxz00_2967 = 
(long)(BgL_offsetz00_1968); 
BgL_offsetz00_1969 = 
(BgL_auxz00_2967-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 289 */
long BgL_modz00_1970;
{ /* ./Effect/feffect.scm 289 */
int BgL_arg2028z00_1971;
BgL_arg2028z00_1971 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 289 */
long BgL_n2z00_1979;
BgL_n2z00_1979 = 
(long)(BgL_arg2028z00_1971); 
BgL_modz00_1970 = 
(BgL_offsetz00_1969/BgL_n2z00_1979); } } 
{ /* ./Effect/feffect.scm 289 */
long BgL_restz00_1972;
{ /* ./Effect/feffect.scm 289 */
int BgL_arg2024z00_1973;
BgL_arg2024z00_1973 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 289 */
long BgL_n2z00_1982;
BgL_n2z00_1982 = 
(long)(BgL_arg2024z00_1973); 
BgL_restz00_1972 = 
(BgL_offsetz00_1969%BgL_n2z00_1982); } } 
{ /* ./Effect/feffect.scm 289 */

{ /* ./Effect/feffect.scm 289 */
obj_t BgL_bucketz00_1974;
{ /* ./Effect/feffect.scm 289 */
int BgL_kz00_1984;
BgL_kz00_1984 = 
(int)(BgL_modz00_1970); 
BgL_bucketz00_1974 = 
VECTOR_REF(BgL_arg2017z00_1965,BgL_kz00_1984); } 
{ /* ./Effect/feffect.scm 289 */
int BgL_kz00_1986;
BgL_kz00_1986 = 
(int)(BgL_restz00_1972); 
BgL_method2846z00_1962 = 
VECTOR_REF(BgL_bucketz00_1974,BgL_kz00_1986); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 289 */
obj_t BgL_auxz00_2980;
BgL_auxz00_2980 = 
PROCEDURE_ENTRY(BgL_method2846z00_1962)(BgL_method2846z00_1962, 
(obj_t)(BgL_arg3652z00_1958), 
(obj_t)(BgL_effectz00_1334), BEOA); 
BgL_res3854z00_1987 = 
(BgL_feffectz00_bglt)(BgL_auxz00_2980); } } 
BgL_auxz00_2959 = BgL_res3854z00_1987; } } 
return 
(obj_t)(BgL_auxz00_2959);} } } 
}



/* body-effect!-jump-ex-it2864 */
obj_t BGl_bodyzd2effectz12zd2jumpzd2exzd2it2864z12zzeffect_feffectz00(obj_t BgL_envz00_2303, obj_t BgL_nodez00_2304, obj_t BgL_effectz00_2305)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 280 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1324;BgL_feffectz00_bglt BgL_effectz00_1325;
{ /* ./Effect/feffect.scm 281 */
BgL_feffectz00_bglt BgL_auxz00_2989;
BgL_nodez00_1324 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2304); 
BgL_effectz00_1325 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2305); 
{ /* ./Effect/feffect.scm 281 */
BgL_nodez00_bglt BgL_arg3638z00_1898;
BgL_arg3638z00_1898 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1324))->BgL_exitz00); 
{ /* ./Effect/feffect.scm 281 */
BgL_feffectz00_bglt BgL_res3848z00_1928;
{ /* ./Effect/feffect.scm 281 */
obj_t BgL_method2846z00_1903;
{ /* ./Effect/feffect.scm 281 */
BgL_objectz00_bglt BgL_objz00_1904;
BgL_objz00_1904 = 
(BgL_objectz00_bglt)(BgL_arg3638z00_1898); 
{ /* ./Effect/feffect.scm 281 */
long BgL_objzd2classzd2numz00_1905;
BgL_objzd2classzd2numz00_1905 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1904); 
{ /* ./Effect/feffect.scm 281 */
obj_t BgL_arg2017z00_1906;
{ /* ./Effect/feffect.scm 281 */
int BgL_auxz00_2993;
BgL_auxz00_2993 = 
(int)(((long)1)); 
BgL_arg2017z00_1906 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_2993); } 
{ /* ./Effect/feffect.scm 281 */
int BgL_offsetz00_1909;
BgL_offsetz00_1909 = 
(int)(BgL_objzd2classzd2numz00_1905); 
{ /* ./Effect/feffect.scm 281 */
long BgL_offsetz00_1910;
{ /* ./Effect/feffect.scm 281 */
long BgL_auxz00_2997;
BgL_auxz00_2997 = 
(long)(BgL_offsetz00_1909); 
BgL_offsetz00_1910 = 
(BgL_auxz00_2997-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 281 */
long BgL_modz00_1911;
{ /* ./Effect/feffect.scm 281 */
int BgL_arg2028z00_1912;
BgL_arg2028z00_1912 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 281 */
long BgL_n2z00_1920;
BgL_n2z00_1920 = 
(long)(BgL_arg2028z00_1912); 
BgL_modz00_1911 = 
(BgL_offsetz00_1910/BgL_n2z00_1920); } } 
{ /* ./Effect/feffect.scm 281 */
long BgL_restz00_1913;
{ /* ./Effect/feffect.scm 281 */
int BgL_arg2024z00_1914;
BgL_arg2024z00_1914 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 281 */
long BgL_n2z00_1923;
BgL_n2z00_1923 = 
(long)(BgL_arg2024z00_1914); 
BgL_restz00_1913 = 
(BgL_offsetz00_1910%BgL_n2z00_1923); } } 
{ /* ./Effect/feffect.scm 281 */

{ /* ./Effect/feffect.scm 281 */
obj_t BgL_bucketz00_1915;
{ /* ./Effect/feffect.scm 281 */
int BgL_kz00_1925;
BgL_kz00_1925 = 
(int)(BgL_modz00_1911); 
BgL_bucketz00_1915 = 
VECTOR_REF(BgL_arg2017z00_1906,BgL_kz00_1925); } 
{ /* ./Effect/feffect.scm 281 */
int BgL_kz00_1927;
BgL_kz00_1927 = 
(int)(BgL_restz00_1913); 
BgL_method2846z00_1903 = 
VECTOR_REF(BgL_bucketz00_1915,BgL_kz00_1927); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 281 */
obj_t BgL_auxz00_3010;
BgL_auxz00_3010 = 
PROCEDURE_ENTRY(BgL_method2846z00_1903)(BgL_method2846z00_1903, 
(obj_t)(BgL_arg3638z00_1898), 
(obj_t)(BgL_effectz00_1325), BEOA); 
BgL_res3848z00_1928 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3010); } } BgL_res3848z00_1928; } } 
{ /* ./Effect/feffect.scm 281 */
BgL_nodez00_bglt BgL_arg3642z00_1899;
BgL_arg3642z00_1899 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1324))->BgL_valuez00); 
{ /* ./Effect/feffect.scm 281 */
BgL_feffectz00_bglt BgL_res3851z00_1957;
{ /* ./Effect/feffect.scm 281 */
obj_t BgL_method2846z00_1932;
{ /* ./Effect/feffect.scm 281 */
BgL_objectz00_bglt BgL_objz00_1933;
BgL_objz00_1933 = 
(BgL_objectz00_bglt)(BgL_arg3642z00_1899); 
{ /* ./Effect/feffect.scm 281 */
long BgL_objzd2classzd2numz00_1934;
BgL_objzd2classzd2numz00_1934 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1933); 
{ /* ./Effect/feffect.scm 281 */
obj_t BgL_arg2017z00_1935;
{ /* ./Effect/feffect.scm 281 */
int BgL_auxz00_3019;
BgL_auxz00_3019 = 
(int)(((long)1)); 
BgL_arg2017z00_1935 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3019); } 
{ /* ./Effect/feffect.scm 281 */
int BgL_offsetz00_1938;
BgL_offsetz00_1938 = 
(int)(BgL_objzd2classzd2numz00_1934); 
{ /* ./Effect/feffect.scm 281 */
long BgL_offsetz00_1939;
{ /* ./Effect/feffect.scm 281 */
long BgL_auxz00_3023;
BgL_auxz00_3023 = 
(long)(BgL_offsetz00_1938); 
BgL_offsetz00_1939 = 
(BgL_auxz00_3023-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 281 */
long BgL_modz00_1940;
{ /* ./Effect/feffect.scm 281 */
int BgL_arg2028z00_1941;
BgL_arg2028z00_1941 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 281 */
long BgL_n2z00_1949;
BgL_n2z00_1949 = 
(long)(BgL_arg2028z00_1941); 
BgL_modz00_1940 = 
(BgL_offsetz00_1939/BgL_n2z00_1949); } } 
{ /* ./Effect/feffect.scm 281 */
long BgL_restz00_1942;
{ /* ./Effect/feffect.scm 281 */
int BgL_arg2024z00_1943;
BgL_arg2024z00_1943 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 281 */
long BgL_n2z00_1952;
BgL_n2z00_1952 = 
(long)(BgL_arg2024z00_1943); 
BgL_restz00_1942 = 
(BgL_offsetz00_1939%BgL_n2z00_1952); } } 
{ /* ./Effect/feffect.scm 281 */

{ /* ./Effect/feffect.scm 281 */
obj_t BgL_bucketz00_1944;
{ /* ./Effect/feffect.scm 281 */
int BgL_kz00_1954;
BgL_kz00_1954 = 
(int)(BgL_modz00_1940); 
BgL_bucketz00_1944 = 
VECTOR_REF(BgL_arg2017z00_1935,BgL_kz00_1954); } 
{ /* ./Effect/feffect.scm 281 */
int BgL_kz00_1956;
BgL_kz00_1956 = 
(int)(BgL_restz00_1942); 
BgL_method2846z00_1932 = 
VECTOR_REF(BgL_bucketz00_1944,BgL_kz00_1956); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 281 */
obj_t BgL_auxz00_3036;
BgL_auxz00_3036 = 
PROCEDURE_ENTRY(BgL_method2846z00_1932)(BgL_method2846z00_1932, 
(obj_t)(BgL_arg3642z00_1899), 
(obj_t)(BgL_effectz00_1325), BEOA); 
BgL_res3851z00_1957 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3036); } } 
BgL_auxz00_2989 = BgL_res3851z00_1957; } } 
return 
(obj_t)(BgL_auxz00_2989);} } } 
}



/* body-effect!-set-ex-it2862 */
obj_t BGl_bodyzd2effectz12zd2setzd2exzd2it2862z12zzeffect_feffectz00(obj_t BgL_envz00_2306, obj_t BgL_nodez00_2307, obj_t BgL_effectz00_2308)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 273 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1316;BgL_feffectz00_bglt BgL_effectz00_1317;
{ /* ./Effect/feffect.scm 275 */
BgL_feffectz00_bglt BgL_auxz00_3045;
BgL_nodez00_1316 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2307); 
BgL_effectz00_1317 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2308); 
{ /* ./Effect/feffect.scm 275 */
BgL_nodez00_bglt BgL_arg3628z00_1867;
BgL_arg3628z00_1867 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1316))->BgL_bodyz00); 
{ /* ./Effect/feffect.scm 275 */
BgL_feffectz00_bglt BgL_res3845z00_1896;
{ /* ./Effect/feffect.scm 275 */
obj_t BgL_method2846z00_1871;
{ /* ./Effect/feffect.scm 275 */
BgL_objectz00_bglt BgL_objz00_1872;
BgL_objz00_1872 = 
(BgL_objectz00_bglt)(BgL_arg3628z00_1867); 
{ /* ./Effect/feffect.scm 275 */
long BgL_objzd2classzd2numz00_1873;
BgL_objzd2classzd2numz00_1873 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1872); 
{ /* ./Effect/feffect.scm 275 */
obj_t BgL_arg2017z00_1874;
{ /* ./Effect/feffect.scm 275 */
int BgL_auxz00_3049;
BgL_auxz00_3049 = 
(int)(((long)1)); 
BgL_arg2017z00_1874 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3049); } 
{ /* ./Effect/feffect.scm 275 */
int BgL_offsetz00_1877;
BgL_offsetz00_1877 = 
(int)(BgL_objzd2classzd2numz00_1873); 
{ /* ./Effect/feffect.scm 275 */
long BgL_offsetz00_1878;
{ /* ./Effect/feffect.scm 275 */
long BgL_auxz00_3053;
BgL_auxz00_3053 = 
(long)(BgL_offsetz00_1877); 
BgL_offsetz00_1878 = 
(BgL_auxz00_3053-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 275 */
long BgL_modz00_1879;
{ /* ./Effect/feffect.scm 275 */
int BgL_arg2028z00_1880;
BgL_arg2028z00_1880 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 275 */
long BgL_n2z00_1888;
BgL_n2z00_1888 = 
(long)(BgL_arg2028z00_1880); 
BgL_modz00_1879 = 
(BgL_offsetz00_1878/BgL_n2z00_1888); } } 
{ /* ./Effect/feffect.scm 275 */
long BgL_restz00_1881;
{ /* ./Effect/feffect.scm 275 */
int BgL_arg2024z00_1882;
BgL_arg2024z00_1882 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 275 */
long BgL_n2z00_1891;
BgL_n2z00_1891 = 
(long)(BgL_arg2024z00_1882); 
BgL_restz00_1881 = 
(BgL_offsetz00_1878%BgL_n2z00_1891); } } 
{ /* ./Effect/feffect.scm 275 */

{ /* ./Effect/feffect.scm 275 */
obj_t BgL_bucketz00_1883;
{ /* ./Effect/feffect.scm 275 */
int BgL_kz00_1893;
BgL_kz00_1893 = 
(int)(BgL_modz00_1879); 
BgL_bucketz00_1883 = 
VECTOR_REF(BgL_arg2017z00_1874,BgL_kz00_1893); } 
{ /* ./Effect/feffect.scm 275 */
int BgL_kz00_1895;
BgL_kz00_1895 = 
(int)(BgL_restz00_1881); 
BgL_method2846z00_1871 = 
VECTOR_REF(BgL_bucketz00_1883,BgL_kz00_1895); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 275 */
obj_t BgL_auxz00_3066;
BgL_auxz00_3066 = 
PROCEDURE_ENTRY(BgL_method2846z00_1871)(BgL_method2846z00_1871, 
(obj_t)(BgL_arg3628z00_1867), 
(obj_t)(BgL_effectz00_1317), BEOA); 
BgL_res3845z00_1896 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3066); } } 
BgL_auxz00_3045 = BgL_res3845z00_1896; } } 
return 
(obj_t)(BgL_auxz00_3045);} } } 
}



/* body-effect!-fail2860 */
obj_t BGl_bodyzd2effectz12zd2fail2860z12zzeffect_feffectz00(obj_t BgL_envz00_2309, obj_t BgL_nodez00_2310, obj_t BgL_effectz00_2311)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 264 */
{ 
BgL_failz00_bglt BgL_nodez00_1306;BgL_feffectz00_bglt BgL_effectz00_1307;
{ /* ./Effect/feffect.scm 265 */
BgL_feffectz00_bglt BgL_auxz00_3075;
BgL_nodez00_1306 = 
(BgL_failz00_bglt)(BgL_nodez00_2310); 
BgL_effectz00_1307 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2311); 
{ /* ./Effect/feffect.scm 266 */
BgL_nodez00_bglt BgL_arg3610z00_1311;
BgL_arg3610z00_1311 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1306))->BgL_procz00); 
{ /* ./Effect/feffect.scm 266 */
BgL_feffectz00_bglt BgL_res3836z00_1808;
{ /* ./Effect/feffect.scm 266 */
obj_t BgL_method2846z00_1783;
{ /* ./Effect/feffect.scm 266 */
BgL_objectz00_bglt BgL_objz00_1784;
BgL_objz00_1784 = 
(BgL_objectz00_bglt)(BgL_arg3610z00_1311); 
{ /* ./Effect/feffect.scm 266 */
long BgL_objzd2classzd2numz00_1785;
BgL_objzd2classzd2numz00_1785 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1784); 
{ /* ./Effect/feffect.scm 266 */
obj_t BgL_arg2017z00_1786;
{ /* ./Effect/feffect.scm 266 */
int BgL_auxz00_3079;
BgL_auxz00_3079 = 
(int)(((long)1)); 
BgL_arg2017z00_1786 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3079); } 
{ /* ./Effect/feffect.scm 266 */
int BgL_offsetz00_1789;
BgL_offsetz00_1789 = 
(int)(BgL_objzd2classzd2numz00_1785); 
{ /* ./Effect/feffect.scm 266 */
long BgL_offsetz00_1790;
{ /* ./Effect/feffect.scm 266 */
long BgL_auxz00_3083;
BgL_auxz00_3083 = 
(long)(BgL_offsetz00_1789); 
BgL_offsetz00_1790 = 
(BgL_auxz00_3083-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 266 */
long BgL_modz00_1791;
{ /* ./Effect/feffect.scm 266 */
int BgL_arg2028z00_1792;
BgL_arg2028z00_1792 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 266 */
long BgL_n2z00_1800;
BgL_n2z00_1800 = 
(long)(BgL_arg2028z00_1792); 
BgL_modz00_1791 = 
(BgL_offsetz00_1790/BgL_n2z00_1800); } } 
{ /* ./Effect/feffect.scm 266 */
long BgL_restz00_1793;
{ /* ./Effect/feffect.scm 266 */
int BgL_arg2024z00_1794;
BgL_arg2024z00_1794 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 266 */
long BgL_n2z00_1803;
BgL_n2z00_1803 = 
(long)(BgL_arg2024z00_1794); 
BgL_restz00_1793 = 
(BgL_offsetz00_1790%BgL_n2z00_1803); } } 
{ /* ./Effect/feffect.scm 266 */

{ /* ./Effect/feffect.scm 266 */
obj_t BgL_bucketz00_1795;
{ /* ./Effect/feffect.scm 266 */
int BgL_kz00_1805;
BgL_kz00_1805 = 
(int)(BgL_modz00_1791); 
BgL_bucketz00_1795 = 
VECTOR_REF(BgL_arg2017z00_1786,BgL_kz00_1805); } 
{ /* ./Effect/feffect.scm 266 */
int BgL_kz00_1807;
BgL_kz00_1807 = 
(int)(BgL_restz00_1793); 
BgL_method2846z00_1783 = 
VECTOR_REF(BgL_bucketz00_1795,BgL_kz00_1807); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 266 */
obj_t BgL_auxz00_3096;
BgL_auxz00_3096 = 
PROCEDURE_ENTRY(BgL_method2846z00_1783)(BgL_method2846z00_1783, 
(obj_t)(BgL_arg3610z00_1311), 
(obj_t)(BgL_effectz00_1307), BEOA); 
BgL_res3836z00_1808 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3096); } } BgL_res3836z00_1808; } } 
{ /* ./Effect/feffect.scm 267 */
BgL_nodez00_bglt BgL_arg3614z00_1312;
BgL_arg3614z00_1312 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1306))->BgL_msgz00); 
{ /* ./Effect/feffect.scm 267 */
BgL_feffectz00_bglt BgL_res3839z00_1837;
{ /* ./Effect/feffect.scm 267 */
obj_t BgL_method2846z00_1812;
{ /* ./Effect/feffect.scm 267 */
BgL_objectz00_bglt BgL_objz00_1813;
BgL_objz00_1813 = 
(BgL_objectz00_bglt)(BgL_arg3614z00_1312); 
{ /* ./Effect/feffect.scm 267 */
long BgL_objzd2classzd2numz00_1814;
BgL_objzd2classzd2numz00_1814 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1813); 
{ /* ./Effect/feffect.scm 267 */
obj_t BgL_arg2017z00_1815;
{ /* ./Effect/feffect.scm 267 */
int BgL_auxz00_3105;
BgL_auxz00_3105 = 
(int)(((long)1)); 
BgL_arg2017z00_1815 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3105); } 
{ /* ./Effect/feffect.scm 267 */
int BgL_offsetz00_1818;
BgL_offsetz00_1818 = 
(int)(BgL_objzd2classzd2numz00_1814); 
{ /* ./Effect/feffect.scm 267 */
long BgL_offsetz00_1819;
{ /* ./Effect/feffect.scm 267 */
long BgL_auxz00_3109;
BgL_auxz00_3109 = 
(long)(BgL_offsetz00_1818); 
BgL_offsetz00_1819 = 
(BgL_auxz00_3109-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 267 */
long BgL_modz00_1820;
{ /* ./Effect/feffect.scm 267 */
int BgL_arg2028z00_1821;
BgL_arg2028z00_1821 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 267 */
long BgL_n2z00_1829;
BgL_n2z00_1829 = 
(long)(BgL_arg2028z00_1821); 
BgL_modz00_1820 = 
(BgL_offsetz00_1819/BgL_n2z00_1829); } } 
{ /* ./Effect/feffect.scm 267 */
long BgL_restz00_1822;
{ /* ./Effect/feffect.scm 267 */
int BgL_arg2024z00_1823;
BgL_arg2024z00_1823 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 267 */
long BgL_n2z00_1832;
BgL_n2z00_1832 = 
(long)(BgL_arg2024z00_1823); 
BgL_restz00_1822 = 
(BgL_offsetz00_1819%BgL_n2z00_1832); } } 
{ /* ./Effect/feffect.scm 267 */

{ /* ./Effect/feffect.scm 267 */
obj_t BgL_bucketz00_1824;
{ /* ./Effect/feffect.scm 267 */
int BgL_kz00_1834;
BgL_kz00_1834 = 
(int)(BgL_modz00_1820); 
BgL_bucketz00_1824 = 
VECTOR_REF(BgL_arg2017z00_1815,BgL_kz00_1834); } 
{ /* ./Effect/feffect.scm 267 */
int BgL_kz00_1836;
BgL_kz00_1836 = 
(int)(BgL_restz00_1822); 
BgL_method2846z00_1812 = 
VECTOR_REF(BgL_bucketz00_1824,BgL_kz00_1836); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 267 */
obj_t BgL_auxz00_3122;
BgL_auxz00_3122 = 
PROCEDURE_ENTRY(BgL_method2846z00_1812)(BgL_method2846z00_1812, 
(obj_t)(BgL_arg3614z00_1312), 
(obj_t)(BgL_effectz00_1307), BEOA); 
BgL_res3839z00_1837 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3122); } } BgL_res3839z00_1837; } } 
{ /* ./Effect/feffect.scm 268 */
BgL_nodez00_bglt BgL_arg3618z00_1313;
BgL_arg3618z00_1313 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1306))->BgL_objz00); 
{ /* ./Effect/feffect.scm 268 */
BgL_feffectz00_bglt BgL_res3842z00_1866;
{ /* ./Effect/feffect.scm 268 */
obj_t BgL_method2846z00_1841;
{ /* ./Effect/feffect.scm 268 */
BgL_objectz00_bglt BgL_objz00_1842;
BgL_objz00_1842 = 
(BgL_objectz00_bglt)(BgL_arg3618z00_1313); 
{ /* ./Effect/feffect.scm 268 */
long BgL_objzd2classzd2numz00_1843;
BgL_objzd2classzd2numz00_1843 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1842); 
{ /* ./Effect/feffect.scm 268 */
obj_t BgL_arg2017z00_1844;
{ /* ./Effect/feffect.scm 268 */
int BgL_auxz00_3131;
BgL_auxz00_3131 = 
(int)(((long)1)); 
BgL_arg2017z00_1844 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3131); } 
{ /* ./Effect/feffect.scm 268 */
int BgL_offsetz00_1847;
BgL_offsetz00_1847 = 
(int)(BgL_objzd2classzd2numz00_1843); 
{ /* ./Effect/feffect.scm 268 */
long BgL_offsetz00_1848;
{ /* ./Effect/feffect.scm 268 */
long BgL_auxz00_3135;
BgL_auxz00_3135 = 
(long)(BgL_offsetz00_1847); 
BgL_offsetz00_1848 = 
(BgL_auxz00_3135-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 268 */
long BgL_modz00_1849;
{ /* ./Effect/feffect.scm 268 */
int BgL_arg2028z00_1850;
BgL_arg2028z00_1850 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 268 */
long BgL_n2z00_1858;
BgL_n2z00_1858 = 
(long)(BgL_arg2028z00_1850); 
BgL_modz00_1849 = 
(BgL_offsetz00_1848/BgL_n2z00_1858); } } 
{ /* ./Effect/feffect.scm 268 */
long BgL_restz00_1851;
{ /* ./Effect/feffect.scm 268 */
int BgL_arg2024z00_1852;
BgL_arg2024z00_1852 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 268 */
long BgL_n2z00_1861;
BgL_n2z00_1861 = 
(long)(BgL_arg2024z00_1852); 
BgL_restz00_1851 = 
(BgL_offsetz00_1848%BgL_n2z00_1861); } } 
{ /* ./Effect/feffect.scm 268 */

{ /* ./Effect/feffect.scm 268 */
obj_t BgL_bucketz00_1853;
{ /* ./Effect/feffect.scm 268 */
int BgL_kz00_1863;
BgL_kz00_1863 = 
(int)(BgL_modz00_1849); 
BgL_bucketz00_1853 = 
VECTOR_REF(BgL_arg2017z00_1844,BgL_kz00_1863); } 
{ /* ./Effect/feffect.scm 268 */
int BgL_kz00_1865;
BgL_kz00_1865 = 
(int)(BgL_restz00_1851); 
BgL_method2846z00_1841 = 
VECTOR_REF(BgL_bucketz00_1853,BgL_kz00_1865); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 268 */
obj_t BgL_auxz00_3148;
BgL_auxz00_3148 = 
PROCEDURE_ENTRY(BgL_method2846z00_1841)(BgL_method2846z00_1841, 
(obj_t)(BgL_arg3618z00_1313), 
(obj_t)(BgL_effectz00_1307), BEOA); 
BgL_res3842z00_1866 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3148); } } 
BgL_auxz00_3075 = BgL_res3842z00_1866; } } 
return 
(obj_t)(BgL_auxz00_3075);} } } 
}



/* body-effect!-select2858 */
obj_t BGl_bodyzd2effectz12zd2select2858z12zzeffect_feffectz00(obj_t BgL_envz00_2312, obj_t BgL_nodez00_2313, obj_t BgL_effectz00_2314)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 253 */
{ 
BgL_selectz00_bglt BgL_nodez00_1291;BgL_feffectz00_bglt BgL_effectz00_1292;
{ /* ./Effect/feffect.scm 254 */
BgL_feffectz00_bglt BgL_auxz00_3157;
BgL_nodez00_1291 = 
(BgL_selectz00_bglt)(BgL_nodez00_2313); 
BgL_effectz00_1292 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2314); 
{ /* ./Effect/feffect.scm 255 */
BgL_nodez00_bglt BgL_arg3585z00_1296;
BgL_arg3585z00_1296 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1291))->BgL_testz00); 
{ /* ./Effect/feffect.scm 255 */
BgL_feffectz00_bglt BgL_res3830z00_1746;
{ /* ./Effect/feffect.scm 255 */
obj_t BgL_method2846z00_1721;
{ /* ./Effect/feffect.scm 255 */
BgL_objectz00_bglt BgL_objz00_1722;
BgL_objz00_1722 = 
(BgL_objectz00_bglt)(BgL_arg3585z00_1296); 
{ /* ./Effect/feffect.scm 255 */
long BgL_objzd2classzd2numz00_1723;
BgL_objzd2classzd2numz00_1723 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1722); 
{ /* ./Effect/feffect.scm 255 */
obj_t BgL_arg2017z00_1724;
{ /* ./Effect/feffect.scm 255 */
int BgL_auxz00_3161;
BgL_auxz00_3161 = 
(int)(((long)1)); 
BgL_arg2017z00_1724 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3161); } 
{ /* ./Effect/feffect.scm 255 */
int BgL_offsetz00_1727;
BgL_offsetz00_1727 = 
(int)(BgL_objzd2classzd2numz00_1723); 
{ /* ./Effect/feffect.scm 255 */
long BgL_offsetz00_1728;
{ /* ./Effect/feffect.scm 255 */
long BgL_auxz00_3165;
BgL_auxz00_3165 = 
(long)(BgL_offsetz00_1727); 
BgL_offsetz00_1728 = 
(BgL_auxz00_3165-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 255 */
long BgL_modz00_1729;
{ /* ./Effect/feffect.scm 255 */
int BgL_arg2028z00_1730;
BgL_arg2028z00_1730 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 255 */
long BgL_n2z00_1738;
BgL_n2z00_1738 = 
(long)(BgL_arg2028z00_1730); 
BgL_modz00_1729 = 
(BgL_offsetz00_1728/BgL_n2z00_1738); } } 
{ /* ./Effect/feffect.scm 255 */
long BgL_restz00_1731;
{ /* ./Effect/feffect.scm 255 */
int BgL_arg2024z00_1732;
BgL_arg2024z00_1732 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 255 */
long BgL_n2z00_1741;
BgL_n2z00_1741 = 
(long)(BgL_arg2024z00_1732); 
BgL_restz00_1731 = 
(BgL_offsetz00_1728%BgL_n2z00_1741); } } 
{ /* ./Effect/feffect.scm 255 */

{ /* ./Effect/feffect.scm 255 */
obj_t BgL_bucketz00_1733;
{ /* ./Effect/feffect.scm 255 */
int BgL_kz00_1743;
BgL_kz00_1743 = 
(int)(BgL_modz00_1729); 
BgL_bucketz00_1733 = 
VECTOR_REF(BgL_arg2017z00_1724,BgL_kz00_1743); } 
{ /* ./Effect/feffect.scm 255 */
int BgL_kz00_1745;
BgL_kz00_1745 = 
(int)(BgL_restz00_1731); 
BgL_method2846z00_1721 = 
VECTOR_REF(BgL_bucketz00_1733,BgL_kz00_1745); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 255 */
obj_t BgL_auxz00_3178;
BgL_auxz00_3178 = 
PROCEDURE_ENTRY(BgL_method2846z00_1721)(BgL_method2846z00_1721, 
(obj_t)(BgL_arg3585z00_1296), 
(obj_t)(BgL_effectz00_1292), BEOA); 
BgL_res3830z00_1746 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3178); } } BgL_res3830z00_1746; } } 
{ 
obj_t BgL_l2819z00_1297;
{ /* ./Effect/feffect.scm 256 */
obj_t BgL_arg3589z00_1299;
BgL_arg3589z00_1299 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1291))->BgL_clausesz00); 
BgL_l2819z00_1297 = BgL_arg3589z00_1299; 
BgL_forzd2each2820zd2_1298:
{ /* ./Effect/feffect.scm 256 */
bool_t BgL_test3592z00_1300;
BgL_test3592z00_1300 = 
PAIRP(BgL_l2819z00_1297); 
if(BgL_test3592z00_1300)
{ /* ./Effect/feffect.scm 256 */
{ /* ./Effect/feffect.scm 257 */
obj_t BgL_clausez00_1301;
BgL_clausez00_1301 = 
CAR(BgL_l2819z00_1297); 
{ /* ./Effect/feffect.scm 257 */
obj_t BgL_arg3594z00_1302;
BgL_arg3594z00_1302 = 
CDR(BgL_clausez00_1301); 
{ /* ./Effect/feffect.scm 257 */
BgL_feffectz00_bglt BgL_res3833z00_1778;
{ /* ./Effect/feffect.scm 257 */
BgL_nodez00_bglt BgL_nodez00_1751;
BgL_nodez00_1751 = 
(BgL_nodez00_bglt)(BgL_arg3594z00_1302); 
{ /* ./Effect/feffect.scm 257 */
obj_t BgL_method2846z00_1753;
{ /* ./Effect/feffect.scm 257 */
BgL_objectz00_bglt BgL_objz00_1754;
BgL_objz00_1754 = 
(BgL_objectz00_bglt)(BgL_nodez00_1751); 
{ /* ./Effect/feffect.scm 257 */
long BgL_objzd2classzd2numz00_1755;
BgL_objzd2classzd2numz00_1755 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1754); 
{ /* ./Effect/feffect.scm 257 */
obj_t BgL_arg2017z00_1756;
{ /* ./Effect/feffect.scm 257 */
int BgL_auxz00_3192;
BgL_auxz00_3192 = 
(int)(((long)1)); 
BgL_arg2017z00_1756 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3192); } 
{ /* ./Effect/feffect.scm 257 */
int BgL_offsetz00_1759;
BgL_offsetz00_1759 = 
(int)(BgL_objzd2classzd2numz00_1755); 
{ /* ./Effect/feffect.scm 257 */
long BgL_offsetz00_1760;
{ /* ./Effect/feffect.scm 257 */
long BgL_auxz00_3196;
BgL_auxz00_3196 = 
(long)(BgL_offsetz00_1759); 
BgL_offsetz00_1760 = 
(BgL_auxz00_3196-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 257 */
long BgL_modz00_1761;
{ /* ./Effect/feffect.scm 257 */
int BgL_arg2028z00_1762;
BgL_arg2028z00_1762 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 257 */
long BgL_n2z00_1770;
BgL_n2z00_1770 = 
(long)(BgL_arg2028z00_1762); 
BgL_modz00_1761 = 
(BgL_offsetz00_1760/BgL_n2z00_1770); } } 
{ /* ./Effect/feffect.scm 257 */
long BgL_restz00_1763;
{ /* ./Effect/feffect.scm 257 */
int BgL_arg2024z00_1764;
BgL_arg2024z00_1764 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 257 */
long BgL_n2z00_1773;
BgL_n2z00_1773 = 
(long)(BgL_arg2024z00_1764); 
BgL_restz00_1763 = 
(BgL_offsetz00_1760%BgL_n2z00_1773); } } 
{ /* ./Effect/feffect.scm 257 */

{ /* ./Effect/feffect.scm 257 */
obj_t BgL_bucketz00_1765;
{ /* ./Effect/feffect.scm 257 */
int BgL_kz00_1775;
BgL_kz00_1775 = 
(int)(BgL_modz00_1761); 
BgL_bucketz00_1765 = 
VECTOR_REF(BgL_arg2017z00_1756,BgL_kz00_1775); } 
{ /* ./Effect/feffect.scm 257 */
int BgL_kz00_1777;
BgL_kz00_1777 = 
(int)(BgL_restz00_1763); 
BgL_method2846z00_1753 = 
VECTOR_REF(BgL_bucketz00_1765,BgL_kz00_1777); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 257 */
obj_t BgL_auxz00_3209;
BgL_auxz00_3209 = 
PROCEDURE_ENTRY(BgL_method2846z00_1753)(BgL_method2846z00_1753, 
(obj_t)(BgL_nodez00_1751), 
(obj_t)(BgL_effectz00_1292), BEOA); 
BgL_res3833z00_1778 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3209); } } } BgL_res3833z00_1778; } } } 
{ /* ./Effect/feffect.scm 256 */
obj_t BgL_arg3599z00_1303;
BgL_arg3599z00_1303 = 
CDR(BgL_l2819z00_1297); 
{ 
obj_t BgL_l2819z00_3216;
BgL_l2819z00_3216 = BgL_arg3599z00_1303; 
BgL_l2819z00_1297 = BgL_l2819z00_3216; 
goto BgL_forzd2each2820zd2_1298;} } }  else 
{ /* ./Effect/feffect.scm 256 */((bool_t)1); } } } } 
BgL_auxz00_3157 = BgL_effectz00_1292; 
return 
(obj_t)(BgL_auxz00_3157);} } } 
}



/* body-effect!-conditional2856 */
obj_t BGl_bodyzd2effectz12zd2conditional2856z12zzeffect_feffectz00(obj_t BgL_envz00_2315, obj_t BgL_nodez00_2316, obj_t BgL_effectz00_2317)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 244 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1281;BgL_feffectz00_bglt BgL_effectz00_1282;
{ /* ./Effect/feffect.scm 245 */
BgL_feffectz00_bglt BgL_auxz00_3220;
BgL_nodez00_1281 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2316); 
BgL_effectz00_1282 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2317); 
{ /* ./Effect/feffect.scm 246 */
BgL_nodez00_bglt BgL_arg3567z00_1286;
BgL_arg3567z00_1286 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1281))->BgL_testz00); 
{ /* ./Effect/feffect.scm 246 */
BgL_feffectz00_bglt BgL_res3821z00_1659;
{ /* ./Effect/feffect.scm 246 */
obj_t BgL_method2846z00_1634;
{ /* ./Effect/feffect.scm 246 */
BgL_objectz00_bglt BgL_objz00_1635;
BgL_objz00_1635 = 
(BgL_objectz00_bglt)(BgL_arg3567z00_1286); 
{ /* ./Effect/feffect.scm 246 */
long BgL_objzd2classzd2numz00_1636;
BgL_objzd2classzd2numz00_1636 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1635); 
{ /* ./Effect/feffect.scm 246 */
obj_t BgL_arg2017z00_1637;
{ /* ./Effect/feffect.scm 246 */
int BgL_auxz00_3224;
BgL_auxz00_3224 = 
(int)(((long)1)); 
BgL_arg2017z00_1637 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3224); } 
{ /* ./Effect/feffect.scm 246 */
int BgL_offsetz00_1640;
BgL_offsetz00_1640 = 
(int)(BgL_objzd2classzd2numz00_1636); 
{ /* ./Effect/feffect.scm 246 */
long BgL_offsetz00_1641;
{ /* ./Effect/feffect.scm 246 */
long BgL_auxz00_3228;
BgL_auxz00_3228 = 
(long)(BgL_offsetz00_1640); 
BgL_offsetz00_1641 = 
(BgL_auxz00_3228-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 246 */
long BgL_modz00_1642;
{ /* ./Effect/feffect.scm 246 */
int BgL_arg2028z00_1643;
BgL_arg2028z00_1643 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 246 */
long BgL_n2z00_1651;
BgL_n2z00_1651 = 
(long)(BgL_arg2028z00_1643); 
BgL_modz00_1642 = 
(BgL_offsetz00_1641/BgL_n2z00_1651); } } 
{ /* ./Effect/feffect.scm 246 */
long BgL_restz00_1644;
{ /* ./Effect/feffect.scm 246 */
int BgL_arg2024z00_1645;
BgL_arg2024z00_1645 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 246 */
long BgL_n2z00_1654;
BgL_n2z00_1654 = 
(long)(BgL_arg2024z00_1645); 
BgL_restz00_1644 = 
(BgL_offsetz00_1641%BgL_n2z00_1654); } } 
{ /* ./Effect/feffect.scm 246 */

{ /* ./Effect/feffect.scm 246 */
obj_t BgL_bucketz00_1646;
{ /* ./Effect/feffect.scm 246 */
int BgL_kz00_1656;
BgL_kz00_1656 = 
(int)(BgL_modz00_1642); 
BgL_bucketz00_1646 = 
VECTOR_REF(BgL_arg2017z00_1637,BgL_kz00_1656); } 
{ /* ./Effect/feffect.scm 246 */
int BgL_kz00_1658;
BgL_kz00_1658 = 
(int)(BgL_restz00_1644); 
BgL_method2846z00_1634 = 
VECTOR_REF(BgL_bucketz00_1646,BgL_kz00_1658); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 246 */
obj_t BgL_auxz00_3241;
BgL_auxz00_3241 = 
PROCEDURE_ENTRY(BgL_method2846z00_1634)(BgL_method2846z00_1634, 
(obj_t)(BgL_arg3567z00_1286), 
(obj_t)(BgL_effectz00_1282), BEOA); 
BgL_res3821z00_1659 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3241); } } BgL_res3821z00_1659; } } 
{ /* ./Effect/feffect.scm 247 */
BgL_nodez00_bglt BgL_arg3571z00_1287;
BgL_arg3571z00_1287 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1281))->BgL_truez00); 
{ /* ./Effect/feffect.scm 247 */
BgL_feffectz00_bglt BgL_res3824z00_1688;
{ /* ./Effect/feffect.scm 247 */
obj_t BgL_method2846z00_1663;
{ /* ./Effect/feffect.scm 247 */
BgL_objectz00_bglt BgL_objz00_1664;
BgL_objz00_1664 = 
(BgL_objectz00_bglt)(BgL_arg3571z00_1287); 
{ /* ./Effect/feffect.scm 247 */
long BgL_objzd2classzd2numz00_1665;
BgL_objzd2classzd2numz00_1665 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1664); 
{ /* ./Effect/feffect.scm 247 */
obj_t BgL_arg2017z00_1666;
{ /* ./Effect/feffect.scm 247 */
int BgL_auxz00_3250;
BgL_auxz00_3250 = 
(int)(((long)1)); 
BgL_arg2017z00_1666 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3250); } 
{ /* ./Effect/feffect.scm 247 */
int BgL_offsetz00_1669;
BgL_offsetz00_1669 = 
(int)(BgL_objzd2classzd2numz00_1665); 
{ /* ./Effect/feffect.scm 247 */
long BgL_offsetz00_1670;
{ /* ./Effect/feffect.scm 247 */
long BgL_auxz00_3254;
BgL_auxz00_3254 = 
(long)(BgL_offsetz00_1669); 
BgL_offsetz00_1670 = 
(BgL_auxz00_3254-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 247 */
long BgL_modz00_1671;
{ /* ./Effect/feffect.scm 247 */
int BgL_arg2028z00_1672;
BgL_arg2028z00_1672 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 247 */
long BgL_n2z00_1680;
BgL_n2z00_1680 = 
(long)(BgL_arg2028z00_1672); 
BgL_modz00_1671 = 
(BgL_offsetz00_1670/BgL_n2z00_1680); } } 
{ /* ./Effect/feffect.scm 247 */
long BgL_restz00_1673;
{ /* ./Effect/feffect.scm 247 */
int BgL_arg2024z00_1674;
BgL_arg2024z00_1674 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 247 */
long BgL_n2z00_1683;
BgL_n2z00_1683 = 
(long)(BgL_arg2024z00_1674); 
BgL_restz00_1673 = 
(BgL_offsetz00_1670%BgL_n2z00_1683); } } 
{ /* ./Effect/feffect.scm 247 */

{ /* ./Effect/feffect.scm 247 */
obj_t BgL_bucketz00_1675;
{ /* ./Effect/feffect.scm 247 */
int BgL_kz00_1685;
BgL_kz00_1685 = 
(int)(BgL_modz00_1671); 
BgL_bucketz00_1675 = 
VECTOR_REF(BgL_arg2017z00_1666,BgL_kz00_1685); } 
{ /* ./Effect/feffect.scm 247 */
int BgL_kz00_1687;
BgL_kz00_1687 = 
(int)(BgL_restz00_1673); 
BgL_method2846z00_1663 = 
VECTOR_REF(BgL_bucketz00_1675,BgL_kz00_1687); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 247 */
obj_t BgL_auxz00_3267;
BgL_auxz00_3267 = 
PROCEDURE_ENTRY(BgL_method2846z00_1663)(BgL_method2846z00_1663, 
(obj_t)(BgL_arg3571z00_1287), 
(obj_t)(BgL_effectz00_1282), BEOA); 
BgL_res3824z00_1688 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3267); } } BgL_res3824z00_1688; } } 
{ /* ./Effect/feffect.scm 248 */
BgL_nodez00_bglt BgL_arg3575z00_1288;
BgL_arg3575z00_1288 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1281))->BgL_falsez00); 
{ /* ./Effect/feffect.scm 248 */
BgL_feffectz00_bglt BgL_res3827z00_1717;
{ /* ./Effect/feffect.scm 248 */
obj_t BgL_method2846z00_1692;
{ /* ./Effect/feffect.scm 248 */
BgL_objectz00_bglt BgL_objz00_1693;
BgL_objz00_1693 = 
(BgL_objectz00_bglt)(BgL_arg3575z00_1288); 
{ /* ./Effect/feffect.scm 248 */
long BgL_objzd2classzd2numz00_1694;
BgL_objzd2classzd2numz00_1694 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1693); 
{ /* ./Effect/feffect.scm 248 */
obj_t BgL_arg2017z00_1695;
{ /* ./Effect/feffect.scm 248 */
int BgL_auxz00_3276;
BgL_auxz00_3276 = 
(int)(((long)1)); 
BgL_arg2017z00_1695 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3276); } 
{ /* ./Effect/feffect.scm 248 */
int BgL_offsetz00_1698;
BgL_offsetz00_1698 = 
(int)(BgL_objzd2classzd2numz00_1694); 
{ /* ./Effect/feffect.scm 248 */
long BgL_offsetz00_1699;
{ /* ./Effect/feffect.scm 248 */
long BgL_auxz00_3280;
BgL_auxz00_3280 = 
(long)(BgL_offsetz00_1698); 
BgL_offsetz00_1699 = 
(BgL_auxz00_3280-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 248 */
long BgL_modz00_1700;
{ /* ./Effect/feffect.scm 248 */
int BgL_arg2028z00_1701;
BgL_arg2028z00_1701 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 248 */
long BgL_n2z00_1709;
BgL_n2z00_1709 = 
(long)(BgL_arg2028z00_1701); 
BgL_modz00_1700 = 
(BgL_offsetz00_1699/BgL_n2z00_1709); } } 
{ /* ./Effect/feffect.scm 248 */
long BgL_restz00_1702;
{ /* ./Effect/feffect.scm 248 */
int BgL_arg2024z00_1703;
BgL_arg2024z00_1703 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 248 */
long BgL_n2z00_1712;
BgL_n2z00_1712 = 
(long)(BgL_arg2024z00_1703); 
BgL_restz00_1702 = 
(BgL_offsetz00_1699%BgL_n2z00_1712); } } 
{ /* ./Effect/feffect.scm 248 */

{ /* ./Effect/feffect.scm 248 */
obj_t BgL_bucketz00_1704;
{ /* ./Effect/feffect.scm 248 */
int BgL_kz00_1714;
BgL_kz00_1714 = 
(int)(BgL_modz00_1700); 
BgL_bucketz00_1704 = 
VECTOR_REF(BgL_arg2017z00_1695,BgL_kz00_1714); } 
{ /* ./Effect/feffect.scm 248 */
int BgL_kz00_1716;
BgL_kz00_1716 = 
(int)(BgL_restz00_1702); 
BgL_method2846z00_1692 = 
VECTOR_REF(BgL_bucketz00_1704,BgL_kz00_1716); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 248 */
obj_t BgL_auxz00_3293;
BgL_auxz00_3293 = 
PROCEDURE_ENTRY(BgL_method2846z00_1692)(BgL_method2846z00_1692, 
(obj_t)(BgL_arg3575z00_1288), 
(obj_t)(BgL_effectz00_1282), BEOA); 
BgL_res3827z00_1717 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3293); } } 
BgL_auxz00_3220 = BgL_res3827z00_1717; } } 
return 
(obj_t)(BgL_auxz00_3220);} } } 
}



/* body-effect!-setq2854 */
obj_t BGl_bodyzd2effectz12zd2setq2854z12zzeffect_feffectz00(obj_t BgL_envz00_2318, obj_t BgL_nodez00_2319, obj_t BgL_effectz00_2320)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 235 */
{ 
BgL_setqz00_bglt BgL_nodez00_1270;BgL_feffectz00_bglt BgL_effectz00_1271;
{ /* ./Effect/feffect.scm 236 */
BgL_feffectz00_bglt BgL_auxz00_3302;
BgL_nodez00_1270 = 
(BgL_setqz00_bglt)(BgL_nodez00_2319); 
BgL_effectz00_1271 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2320); 
{ /* ./Effect/feffect.scm 237 */
bool_t BgL_test3547z00_1275;
{ /* ./Effect/feffect.scm 237 */
BgL_variablez00_bglt BgL_arg3550z00_1276;
{ /* ./Effect/feffect.scm 237 */
BgL_varz00_bglt BgL_arg3553z00_1277;
BgL_arg3553z00_1277 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1270))->BgL_varz00); 
BgL_arg3550z00_1276 = 
(((BgL_varz00_bglt)CREF(BgL_arg3553z00_1277))->BgL_variablez00); } 
{ /* ./Effect/feffect.scm 237 */
obj_t BgL_obj2345z00_1601;
BgL_obj2345z00_1601 = 
(obj_t)(BgL_arg3550z00_1276); 
BgL_test3547z00_1275 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2345z00_1601, BGl_globalz00zzast_varz00); } } 
if(BgL_test3547z00_1275)
{ /* ./Effect/feffect.scm 237 */
BGl_mergezd2effectsz12zc0zzeffect_feffectz00(
(obj_t)(BgL_effectz00_1271), 
(obj_t)(BGl_za2effectzd2writezd2memza2z00zzeffect_feffectz00)); }  else 
{ /* ./Effect/feffect.scm 237 */((bool_t)0); } } 
{ /* ./Effect/feffect.scm 239 */
BgL_nodez00_bglt BgL_arg3557z00_1278;
BgL_arg3557z00_1278 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1270))->BgL_valuez00); 
{ /* ./Effect/feffect.scm 239 */
BgL_feffectz00_bglt BgL_res3818z00_1630;
{ /* ./Effect/feffect.scm 239 */
obj_t BgL_method2846z00_1605;
{ /* ./Effect/feffect.scm 239 */
BgL_objectz00_bglt BgL_objz00_1606;
BgL_objz00_1606 = 
(BgL_objectz00_bglt)(BgL_arg3557z00_1278); 
{ /* ./Effect/feffect.scm 239 */
long BgL_objzd2classzd2numz00_1607;
BgL_objzd2classzd2numz00_1607 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1606); 
{ /* ./Effect/feffect.scm 239 */
obj_t BgL_arg2017z00_1608;
{ /* ./Effect/feffect.scm 239 */
int BgL_auxz00_3314;
BgL_auxz00_3314 = 
(int)(((long)1)); 
BgL_arg2017z00_1608 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3314); } 
{ /* ./Effect/feffect.scm 239 */
int BgL_offsetz00_1611;
BgL_offsetz00_1611 = 
(int)(BgL_objzd2classzd2numz00_1607); 
{ /* ./Effect/feffect.scm 239 */
long BgL_offsetz00_1612;
{ /* ./Effect/feffect.scm 239 */
long BgL_auxz00_3318;
BgL_auxz00_3318 = 
(long)(BgL_offsetz00_1611); 
BgL_offsetz00_1612 = 
(BgL_auxz00_3318-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 239 */
long BgL_modz00_1613;
{ /* ./Effect/feffect.scm 239 */
int BgL_arg2028z00_1614;
BgL_arg2028z00_1614 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 239 */
long BgL_n2z00_1622;
BgL_n2z00_1622 = 
(long)(BgL_arg2028z00_1614); 
BgL_modz00_1613 = 
(BgL_offsetz00_1612/BgL_n2z00_1622); } } 
{ /* ./Effect/feffect.scm 239 */
long BgL_restz00_1615;
{ /* ./Effect/feffect.scm 239 */
int BgL_arg2024z00_1616;
BgL_arg2024z00_1616 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 239 */
long BgL_n2z00_1625;
BgL_n2z00_1625 = 
(long)(BgL_arg2024z00_1616); 
BgL_restz00_1615 = 
(BgL_offsetz00_1612%BgL_n2z00_1625); } } 
{ /* ./Effect/feffect.scm 239 */

{ /* ./Effect/feffect.scm 239 */
obj_t BgL_bucketz00_1617;
{ /* ./Effect/feffect.scm 239 */
int BgL_kz00_1627;
BgL_kz00_1627 = 
(int)(BgL_modz00_1613); 
BgL_bucketz00_1617 = 
VECTOR_REF(BgL_arg2017z00_1608,BgL_kz00_1627); } 
{ /* ./Effect/feffect.scm 239 */
int BgL_kz00_1629;
BgL_kz00_1629 = 
(int)(BgL_restz00_1615); 
BgL_method2846z00_1605 = 
VECTOR_REF(BgL_bucketz00_1617,BgL_kz00_1629); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 239 */
obj_t BgL_auxz00_3331;
BgL_auxz00_3331 = 
PROCEDURE_ENTRY(BgL_method2846z00_1605)(BgL_method2846z00_1605, 
(obj_t)(BgL_arg3557z00_1278), 
(obj_t)(BgL_effectz00_1271), BEOA); 
BgL_res3818z00_1630 = 
(BgL_feffectz00_bglt)(BgL_auxz00_3331); } } 
BgL_auxz00_3302 = BgL_res3818z00_1630; } } 
return 
(obj_t)(BgL_auxz00_3302);} } } 
}



/* body-effect!-var2852 */
obj_t BGl_bodyzd2effectz12zd2var2852z12zzeffect_feffectz00(obj_t BgL_envz00_2321, obj_t BgL_nodez00_2322, obj_t BgL_effectz00_2323)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 227 */
{ 
BgL_varz00_bglt BgL_nodez00_1262;BgL_feffectz00_bglt BgL_effectz00_1263;
{ /* ./Effect/feffect.scm 228 */
BgL_feffectz00_bglt BgL_auxz00_3340;
BgL_nodez00_1262 = 
(BgL_varz00_bglt)(BgL_nodez00_2322); 
BgL_effectz00_1263 = 
(BgL_feffectz00_bglt)(BgL_effectz00_2323); 
{ /* ./Effect/feffect.scm 228 */
bool_t BgL_test3535z00_1595;
{ /* ./Effect/feffect.scm 228 */
BgL_variablez00_bglt BgL_arg3538z00_1596;
BgL_arg3538z00_1596 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1262))->BgL_variablez00); 
{ /* ./Effect/feffect.scm 228 */
obj_t BgL_obj2345z00_1598;
BgL_obj2345z00_1598 = 
(obj_t)(BgL_arg3538z00_1596); 
BgL_test3535z00_1595 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2345z00_1598, BGl_globalz00zzast_varz00); } } 
if(BgL_test3535z00_1595)
{ /* ./Effect/feffect.scm 228 */
BGl_mergezd2effectsz12zc0zzeffect_feffectz00(
(obj_t)(BgL_effectz00_1263), 
(obj_t)(BGl_za2effectzd2readzd2memza2z00zzeffect_feffectz00)); }  else 
{ /* ./Effect/feffect.scm 228 */((bool_t)0); } } 
BgL_auxz00_3340 = BgL_effectz00_1263; 
return 
(obj_t)(BgL_auxz00_3340);} } } 
}



/* body-effect!-kwote2850 */
obj_t BGl_bodyzd2effectz12zd2kwote2850z12zzeffect_feffectz00(obj_t BgL_envz00_2324, obj_t BgL_nodez00_2325, obj_t BgL_effectz00_2326)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 221 */
return BgL_effectz00_2326;} 
}



/* body-effect!-atom2848 */
obj_t BGl_bodyzd2effectz12zd2atom2848z12zzeffect_feffectz00(obj_t BgL_envz00_2327, obj_t BgL_nodez00_2328, obj_t BgL_effectz00_2329)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 215 */
return BgL_effectz00_2329;} 
}



/* object-display-feffect2844 */
obj_t BGl_objectzd2displayzd2feffect2844z00zzeffect_feffectz00(obj_t BgL_envz00_2330, obj_t BgL_fz00_2331, obj_t BgL_pz00_2332)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 63 */
{ 
BgL_feffectz00_bglt BgL_fz00_1229;obj_t BgL_pz00_1230;
BgL_fz00_1229 = 
(BgL_feffectz00_bglt)(BgL_fz00_2331); 
BgL_pz00_1230 = BgL_pz00_2332; 
{ /* ./Effect/feffect.scm 64 */
obj_t BgL_arg3488z00_1233;
{ /* ./Effect/feffect.scm 64 */
bool_t BgL_test3491z00_1235;
BgL_test3491z00_1235 = 
PAIRP(BgL_pz00_1230); 
if(BgL_test3491z00_1235)
{ /* ./Effect/feffect.scm 64 */
BgL_arg3488z00_1233 = 
CAR(BgL_pz00_1230); }  else 
{ /* ./Effect/feffect.scm 64 */
BgL_arg3488z00_1233 = 
BGL_CURRENT_OUTPUT_PORT(); } } 
{ /* ./Effect/feffect.scm 66 */
obj_t BgL_zc3anonymousza33495ze3z83_2268;
{ 
int BgL_auxz00_3357;int BgL_auxz00_3355;
BgL_auxz00_3357 = 
(int)(((long)1)); 
BgL_auxz00_3355 = 
(int)(((long)0)); 
BgL_zc3anonymousza33495ze3z83_2268 = 
make_fx_procedure(BGl_zc3anonymousza33495ze3z83zzeffect_feffectz00, BgL_auxz00_3355, BgL_auxz00_3357); } 
{ /* ./Effect/feffect.scm 66 */
obj_t BgL_auxz00_3362;int BgL_auxz00_3360;
BgL_auxz00_3362 = 
(obj_t)(BgL_fz00_1229); 
BgL_auxz00_3360 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33495ze3z83_2268, BgL_auxz00_3360, BgL_auxz00_3362); } 
return 
BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_arg3488z00_1233, BgL_zc3anonymousza33495ze3z83_2268);} } } } 
}



/* <anonymous:3495> */
obj_t BGl_zc3anonymousza33495ze3z83zzeffect_feffectz00(obj_t BgL_envz00_2333)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 65 */
{ /* ./Effect/feffect.scm 66 */
obj_t BgL_fz00_2334;
{ /* ./Effect/feffect.scm 66 */
int BgL_auxz00_3367;
BgL_auxz00_3367 = 
(int)(((long)0)); 
BgL_fz00_2334 = 
PROCEDURE_REF(BgL_envz00_2333, BgL_auxz00_3367); } 
{ 

{ /* ./Effect/feffect.scm 67 */
obj_t BgL_arg3498z00_1239;obj_t BgL_arg3499z00_1240;
{ /* ./Effect/feffect.scm 67 */
BgL_feffectz00_bglt BgL_obj2648z00_1593;
BgL_obj2648z00_1593 = 
(BgL_feffectz00_bglt)(BgL_fz00_2334); 
BgL_arg3498z00_1239 = 
(((BgL_feffectz00_bglt)CREF(BgL_obj2648z00_1593))->BgL_readz00); } 
{ /* ./Effect/feffect.scm 67 */
BgL_feffectz00_bglt BgL_obj2651z00_1594;
BgL_obj2651z00_1594 = 
(BgL_feffectz00_bglt)(BgL_fz00_2334); 
BgL_arg3499z00_1240 = 
(((BgL_feffectz00_bglt)CREF(BgL_obj2651z00_1594))->BgL_writez00); } 
{ /* ./Effect/feffect.scm 67 */
obj_t BgL_list3501z00_1241;
{ /* ./Effect/feffect.scm 67 */
obj_t BgL_arg3503z00_1242;
BgL_arg3503z00_1242 = 
MAKE_PAIR(BgL_arg3499z00_1240, BNIL); 
BgL_list3501z00_1241 = 
MAKE_PAIR(BgL_arg3498z00_1239, BgL_arg3503z00_1242); } 
return 
BGl_printfz00zz__r4_output_6_10_3z00(BGl_string4400z00zzeffect_feffectz00, BgL_list3501z00_1241);} } } } } 
}



/* body-effect! */
BgL_feffectz00_bglt BGl_bodyzd2effectz12zc0zzeffect_feffectz00(BgL_nodez00_bglt BgL_nodez00_14, BgL_feffectz00_bglt BgL_effectz00_15)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 210 */
{ /* ./Effect/feffect.scm 210 */
obj_t BgL_method2846z00_2213;
{ /* ./Effect/feffect.scm 210 */
BgL_objectz00_bglt BgL_objz00_2214;
BgL_objz00_2214 = 
(BgL_objectz00_bglt)(BgL_nodez00_14); 
{ /* ./Effect/feffect.scm 210 */
long BgL_objzd2classzd2numz00_2215;
BgL_objzd2classzd2numz00_2215 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2214); 
{ /* ./Effect/feffect.scm 210 */
obj_t BgL_arg2017z00_2216;
{ /* ./Effect/feffect.scm 210 */
int BgL_auxz00_3379;
BgL_auxz00_3379 = 
(int)(((long)1)); 
BgL_arg2017z00_2216 = 
PROCEDURE_REF(BGl_bodyzd2effectz12zd2envz12zzeffect_feffectz00, BgL_auxz00_3379); } 
{ /* ./Effect/feffect.scm 210 */
int BgL_offsetz00_2219;
BgL_offsetz00_2219 = 
(int)(BgL_objzd2classzd2numz00_2215); 
{ /* ./Effect/feffect.scm 210 */
long BgL_offsetz00_2220;
{ /* ./Effect/feffect.scm 210 */
long BgL_auxz00_3383;
BgL_auxz00_3383 = 
(long)(BgL_offsetz00_2219); 
BgL_offsetz00_2220 = 
(BgL_auxz00_3383-OBJECT_TYPE); } 
{ /* ./Effect/feffect.scm 210 */
long BgL_modz00_2221;
{ /* ./Effect/feffect.scm 210 */
int BgL_arg2028z00_2222;
BgL_arg2028z00_2222 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 210 */
long BgL_n2z00_2230;
BgL_n2z00_2230 = 
(long)(BgL_arg2028z00_2222); 
BgL_modz00_2221 = 
(BgL_offsetz00_2220/BgL_n2z00_2230); } } 
{ /* ./Effect/feffect.scm 210 */
long BgL_restz00_2223;
{ /* ./Effect/feffect.scm 210 */
int BgL_arg2024z00_2224;
BgL_arg2024z00_2224 = 
(int)(((long)8)); 
{ /* ./Effect/feffect.scm 210 */
long BgL_n2z00_2233;
BgL_n2z00_2233 = 
(long)(BgL_arg2024z00_2224); 
BgL_restz00_2223 = 
(BgL_offsetz00_2220%BgL_n2z00_2233); } } 
{ /* ./Effect/feffect.scm 210 */

{ /* ./Effect/feffect.scm 210 */
obj_t BgL_bucketz00_2225;
{ /* ./Effect/feffect.scm 210 */
int BgL_kz00_2235;
BgL_kz00_2235 = 
(int)(BgL_modz00_2221); 
BgL_bucketz00_2225 = 
VECTOR_REF(BgL_arg2017z00_2216,BgL_kz00_2235); } 
{ /* ./Effect/feffect.scm 210 */
int BgL_kz00_2237;
BgL_kz00_2237 = 
(int)(BgL_restz00_2223); 
BgL_method2846z00_2213 = 
VECTOR_REF(BgL_bucketz00_2225,BgL_kz00_2237); } } } } } } } } } } 
{ /* ./Effect/feffect.scm 210 */
obj_t BgL_auxz00_3396;
BgL_auxz00_3396 = 
PROCEDURE_ENTRY(BgL_method2846z00_2213)(BgL_method2846z00_2213, 
(obj_t)(BgL_nodez00_14), 
(obj_t)(BgL_effectz00_15), BEOA); 
return 
(BgL_feffectz00_bglt)(BgL_auxz00_3396);} } } 
}



/* _body-effect! */
obj_t BGl__bodyzd2effectz12zc0zzeffect_feffectz00(obj_t BgL_envz00_2245, obj_t BgL_nodez00_2246, obj_t BgL_effectz00_2247)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 210 */
{ /* ./Effect/feffect.scm 210 */
BgL_feffectz00_bglt BgL_auxz00_3402;
BgL_auxz00_3402 = 
BGl_bodyzd2effectz12zc0zzeffect_feffectz00(
(BgL_nodez00_bglt)(BgL_nodez00_2246), 
(BgL_feffectz00_bglt)(BgL_effectz00_2247)); 
return 
(obj_t)(BgL_auxz00_3402);} } 
}



/* body-effect!-default2845 */
BgL_feffectz00_bglt BGl_bodyzd2effectz12zd2default2845z12zzeffect_feffectz00(BgL_nodez00_bglt BgL_nodez00_16, BgL_feffectz00_bglt BgL_effectz00_17)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 16 */
{ /* ./Effect/feffect.scm 16 */
obj_t BgL_procz00_2238;obj_t BgL_objectz00_2240;
BgL_procz00_2238 = 
CNST_TABLE_REF(((long)5)); 
BgL_objectz00_2240 = 
(obj_t)(BgL_nodez00_16); 
FAILURE(BgL_procz00_2238,BGl_string4401z00zzeffect_feffectz00,BgL_objectz00_2240);} } 
}



/* _body-effect!-default2845 */
obj_t BGl__bodyzd2effectz12zd2default2845z12zzeffect_feffectz00(obj_t BgL_envz00_2338, obj_t BgL_nodez00_2339, obj_t BgL_effectz00_2340)
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 16 */
{ /* ./Effect/feffect.scm 16 */
BgL_feffectz00_bglt BgL_auxz00_3410;
BgL_auxz00_3410 = 
BGl_bodyzd2effectz12zd2default2845z12zzeffect_feffectz00(
(BgL_nodez00_bglt)(BgL_nodez00_2339), 
(BgL_feffectz00_bglt)(BgL_effectz00_2340)); 
return 
(obj_t)(BgL_auxz00_3410);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzeffect_feffectz00()
{ AN_OBJECT;
{ /* ./Effect/feffect.scm 16 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "effect_feffect"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "effect_feffect"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "effect_feffect"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "effect_feffect"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "effect_feffect"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "effect_feffect"); 
return 
BGl_modulezd2initializa7ationz75zzeffect_cgraphz00(((long)17595), "effect_feffect");} 
}

