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

#include <bigloo.h>


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_svarzf2iinfozf2_bgl {
   obj_t BgL_fzd2markzd2;
   obj_t BgL_uzd2markzd2;
   bool_t BgL_kapturedzf3zf3;
   bool_t BgL_celledzf3zf3;
} *BgL_svarzf2iinfozf2_bglt;

typedef struct BgL_sexitzf2iinfozf2_bgl {
   obj_t BgL_fzd2markzd2;
   obj_t BgL_uzd2markzd2;
   bool_t BgL_kapturedzf3zf3;
   bool_t BgL_celledzf3zf3;
} *BgL_sexitzf2iinfozf2_bglt;

typedef struct BgL_sfunzf2iinfozf2_bgl {
   obj_t BgL_ownerz00;
   obj_t BgL_freez00;
   obj_t BgL_boundz00;
   obj_t BgL_cfromz00;
   obj_t BgL_ctoz00;
   obj_t BgL_kz00;
   obj_t BgL_kza2za2;
   obj_t BgL_uz00;
   obj_t BgL_cnz00;
   obj_t BgL_ctz00;
   obj_t BgL_kontz00;
   bool_t BgL_gzf3zf3;
   obj_t BgL_lz00;
   obj_t BgL_ledz00;
   obj_t BgL_istampz00;
   obj_t BgL_globalz00;
   obj_t BgL_kapturedz00;
   obj_t BgL_tailzd2coercionzd2;
} *BgL_sfunzf2iinfozf2_bglt;


static obj_t BGl_nodezd2Azd2default2955z00zzintegrate_az00(BgL_nodez00_bglt, BgL_variablez00_bglt, obj_t, obj_t);
static obj_t BGl_nodezd2Azd2boxzd2setz123002zc0zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzintegrate_az00();
extern obj_t BGl_za2pairzd2nilza2zd2zztype_cachez00;
BGL_EXPORTED_DEF obj_t BGl_za2phiza2z00zzintegrate_az00 = BUNSPEC;
static obj_t BGl_getzd2newzd2kontz00zzintegrate_az00();
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_Az00zzintegrate_az00(BgL_globalz00_bglt, BgL_nodez00_bglt);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
extern obj_t BGl_svarzf2Iinfozf2zzintegrate_infoz00;
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_nodezd2Azd2jumpzd2exzd2it2998z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl__nodezd2Azd2default2955z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2Azd2app2971z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_nodezd2Azd2select2989z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2Azd2letzd2fun2991zd2zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_nodezd2Azd2setzd2exzd2it2995z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_nodezd2Azd2cast2979z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_globalz00zzast_varz00;
extern BgL_typez00_bglt BGl_typeofz00zztype_typeofz00(BgL_nodez00_bglt);
extern obj_t BGl_typez00zztype_typez00;
static obj_t BGl_nodezd2Azd2letzd2var2993zd2zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__A4417z00zzintegrate_az00(obj_t, obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_wideningzd2sfunzf2Iinfoz20zzintegrate_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_za2kontza2z00zzintegrate_az00 = BUNSPEC;
static obj_t BGl_zc3anonymousza33072ze3z83zzintegrate_az00(obj_t);
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzintegrate_az00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzintegrate_az00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_nodezd2Azd2appzd2ly2973zd2zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
static bool_t BGl_initializa7ezd2funz12z67zzintegrate_az00(BgL_variablez00_bglt, BgL_variablez00_bglt);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzintegrate_az00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl_nodezd2Azd2setq2982z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
extern obj_t BGl_sexitzf2Iinfozf2zzintegrate_infoz00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzintegrate_az00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzintegrate_infoz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(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_ports_6_10_1z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
static obj_t BGl_nodezd2Azd2kwote2961z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_tracezd2Azd2zzintegrate_az00(obj_t, char *);
static obj_t BGl_nodezd2Azd2makezd2box3000zd2zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2Azd2boxzd2ref3004zd2zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
static obj_t BGl_tailzd2coercionzd2zzintegrate_az00(obj_t, BgL_globalz00_bglt);
static obj_t BGl_nodezd2Azd2extern2977z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__nodezd2Azd2zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
extern obj_t BGl_za2boolza2z00zztype_cachez00;
static obj_t BGl_nodezd2Azd2var2964z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2Azd2atom2959z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_sfunzf2Iinfozf2zzintegrate_infoz00;
extern obj_t BGl_wideningzd2svarzf2Iinfoz20zzintegrate_infoz00(obj_t, obj_t, bool_t, bool_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
BGL_IMPORT obj_t display_string(obj_t, obj_t);
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_nodezd2Azd2funcall2975z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_localz00zzast_varz00;
extern obj_t BGl_closurez00zzast_nodez00;
static obj_t BGl_nodezd2Azd2closure2967z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2objza2z00zztype_cachez00;
BGL_IMPORT obj_t BGl_warningz00zz__errorz00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzintegrate_az00 = BUNSPEC;
static obj_t BGl_nodezd2Azd2fail2987z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2magicza2z00zztype_cachez00;
static obj_t BGl_nodezd2Azd2conditional2985z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2pairza2z00zztype_cachez00;
static obj_t BGl_libraryzd2moduleszd2initz00zzintegrate_az00();
extern obj_t BGl_wideningzd2sexitzf2Iinfoz20zzintegrate_infoz00(obj_t, obj_t, bool_t, bool_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t BGl_nodezd2Azd2sequence2969z00zzintegrate_az00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2Azd2zzintegrate_az00(BgL_nodez00_bglt, BgL_variablez00_bglt, obj_t, obj_t);
static obj_t __cnst[ 2 ] ;


DEFINE_STRING( BGl_string4991z00zzintegrate_az00, BgL_bgl_string4991za700za7za7integrate_aza7005045z00, "Globalizing `", 13 );
DEFINE_STRING( BGl_string4990z00zzintegrate_az00, BgL_bgl_string4990za700za7za7integrate_aza7005046z00, "' because used in two different type contexts: ", 47 );
DEFINE_STRING( BGl_string4989z00zzintegrate_az00, BgL_bgl_string4989za700za7za7integrate_aza7005047z00, " )", 2 );
DEFINE_STRING( BGl_string4988z00zzintegrate_az00, BgL_bgl_string4988za700za7za7integrate_aza7005048z00, ", ", 2 );
DEFINE_STRING( BGl_string4987z00zzintegrate_az00, BgL_bgl_string4987za700za7za7integrate_aza7005049z00, "A( ", 3 );
DEFINE_STRING( BGl_string5016z00zzintegrate_az00, BgL_bgl_string5016za700za7za7integrate_aza7005050z00, "node-A-default2955 tail ", 24 );
DEFINE_STRING( BGl_string5015z00zzintegrate_az00, BgL_bgl_string5015za700za7za7integrate_aza7005051z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string5014z00zzintegrate_az00, BgL_bgl_string5014za700za7za7integrate_aza7005052z00, "Unexpected closure", 18 );
DEFINE_STRING( BGl_string5013z00zzintegrate_az00, BgL_bgl_string5013za700za7za7integrate_aza7005053z00, "node-A", 6 );
DEFINE_STATIC_GENERIC( BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_bgl__nodeza7d2aza7d2za7za7integrate_aza7005054za7, BGl__nodezd2Azd2zzintegrate_az00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_Azd2envzd2zzintegrate_az00, BgL_bgl__a4417za700za7za7integrate_aza7005055z00, BGl__A4417z00zzintegrate_az00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5000z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2extern2977za700za7za7integrate_aza7005056z00, BGl_nodezd2Azd2extern2977z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5001z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2cast2979za700za7za7integrate_aza7005057z00, BGl_nodezd2Azd2cast2979z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5002z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2setq2982za700za7za7integrate_aza7005058z00, BGl_nodezd2Azd2setq2982z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5003z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2conditional2985za700za7za7integrate_aza7005059z00, BGl_nodezd2Azd2conditional2985z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5004z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2fail2987za700za7za7integrate_aza7005060z00, BGl_nodezd2Azd2fail2987z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5005z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2select2989za700za7za7integrate_aza7005061z00, BGl_nodezd2Azd2select2989z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5006z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2letza7d2fun2991za7d2za7za7integrate_aza7005062za7, BGl_nodezd2Azd2letzd2fun2991zd2zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5007z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2letza7d2var2993za7d2za7za7integrate_aza7005063za7, BGl_nodezd2Azd2letzd2var2993zd2zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5008z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2setza7d2exza7d2it2995za700za7za7integrate_aza7005064z00, BGl_nodezd2Azd2setzd2exzd2it2995z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5010z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2makeza7d2box3000za7d2za7za7integrate_aza7005065za7, BGl_nodezd2Azd2makezd2box3000zd2zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5009z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2jumpza7d2exza7d2it2998za700za7za7integrate_aza7005066z00, BGl_nodezd2Azd2jumpzd2exzd2it2998z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5011z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2boxza7d2setza7123002za7c0za7za7integrate_aza7005067z00, BGl_nodezd2Azd2boxzd2setz123002zc0zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc5012z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2boxza7d2ref3004za7d2za7za7integrate_aza7005068za7, BGl_nodezd2Azd2boxzd2ref3004zd2zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4992z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2atom2959za700za7za7integrate_aza7005069z00, BGl_nodezd2Azd2atom2959z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4993z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2kwote2961za700za7za7integrate_aza7005070z00, BGl_nodezd2Azd2kwote2961z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4994z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2var2964za700za7za7integrate_aza7005071z00, BGl_nodezd2Azd2var2964z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4995z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2closure2967za700za7za7integrate_aza7005072z00, BGl_nodezd2Azd2closure2967z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4996z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2sequence2969za700za7za7integrate_aza7005073z00, BGl_nodezd2Azd2sequence2969z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4997z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2app2971za700za7za7integrate_aza7005074z00, BGl_nodezd2Azd2app2971z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4998z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2appza7d2ly2973za7d2za7za7integrate_aza7005075za7, BGl_nodezd2Azd2appzd2ly2973zd2zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4999z00zzintegrate_az00, BgL_bgl_nodeza7d2aza7d2funcall2975za700za7za7integrate_aza7005076z00, BGl_nodezd2Azd2funcall2975z00zzintegrate_az00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_nodezd2Azd2default2955zd2envzd2zzintegrate_az00, BgL_bgl__nodeza7d2aza7d2default2955za700za7za7integrate_aza7005077z00, BGl__nodezd2Azd2default2955z00zzintegrate_az00, 0L, 4 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzintegrate_az00(long BgL_checksumz00_3061, char * BgL_fromz00_3062)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzintegrate_az00))
{ 
BGl_requirezd2initializa7ationz75zzintegrate_az00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzintegrate_az00(); 
BGl_cnstzd2initzd2zzintegrate_az00(); 
BGl_importedzd2moduleszd2initz00zzintegrate_az00(); 
BGl_methodzd2initzd2zzintegrate_az00(); 
BGl_toplevelzd2initzd2zzintegrate_az00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzintegrate_az00()
{ AN_OBJECT;
{ /* ./Integrate/a.scm 18 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "integrate_a"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "integrate_a"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "integrate_a"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)0), "integrate_a"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "integrate_a"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzintegrate_az00()
{ AN_OBJECT;
{ /* ./Integrate/a.scm 18 */
{ /* ./Integrate/a.scm 18 */
obj_t BgL_cportz00_3034;
BgL_cportz00_3034 = 
open_input_string(BGl_string5016z00zzintegrate_az00); 
{ 
long BgL_iz00_3035;
BgL_iz00_3035 = ((long)1); 
BgL_loopz00_3036:
{ /* ./Integrate/a.scm 18 */
bool_t BgL_test5018z00_3037;
BgL_test5018z00_3037 = 
(BgL_iz00_3035==((long)-1)); 
if(BgL_test5018z00_3037)
{ /* ./Integrate/a.scm 18 */
return BUNSPEC;}  else 
{ /* ./Integrate/a.scm 18 */
{ /* ./Integrate/a.scm 18 */
obj_t BgL_arg5020z00_3038;
{ /* ./Integrate/a.scm 18 */
obj_t BgL_list5023z00_3039;
BgL_list5023z00_3039 = 
MAKE_PAIR(BgL_cportz00_3034, BNIL); 
BgL_arg5020z00_3038 = 
BGl_readz00zz__readerz00(BgL_list5023z00_3039); } 
{ /* ./Integrate/a.scm 18 */
int BgL_auxz00_3081;
BgL_auxz00_3081 = 
(int)(BgL_iz00_3035); 
CNST_TABLE_SET(BgL_auxz00_3081, BgL_arg5020z00_3038); } } 
{ /* ./Integrate/a.scm 18 */
int BgL_auxz00_3040;
{ /* ./Integrate/a.scm 18 */
long BgL_auxz00_3084;
BgL_auxz00_3084 = 
(BgL_iz00_3035-((long)1)); 
BgL_auxz00_3040 = 
(int)(BgL_auxz00_3084); } 
{ 
long BgL_iz00_3087;
BgL_iz00_3087 = 
(long)(BgL_auxz00_3040); 
BgL_iz00_3035 = BgL_iz00_3087; 
goto BgL_loopz00_3036;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzintegrate_az00()
{ AN_OBJECT;
{ /* ./Integrate/a.scm 18 */
BGl_za2phiza2z00zzintegrate_az00 = BUNSPEC; 
BGl_za2kontza2z00zzintegrate_az00 = BUNSPEC; 
return BUNSPEC;} 
}



/* A */
BGL_EXPORTED_DEF obj_t BGl_Az00zzintegrate_az00(BgL_globalz00_bglt BgL_globalz00_1, BgL_nodez00_bglt BgL_nodez00_2)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 42 */
{ /* ./Integrate/a.scm 44 */
obj_t BgL_list3006z00_868;
{ /* ./Integrate/a.scm 44 */
obj_t BgL_auxz00_3089;
BgL_auxz00_3089 = 
(obj_t)(BgL_globalz00_1); 
BgL_list3006z00_868 = 
MAKE_PAIR(BgL_auxz00_3089, BNIL); } 
BGl_za2phiza2z00zzintegrate_az00 = BgL_list3006z00_868; } 
BGl_za2kontza2z00zzintegrate_az00 = 
BINT(((long)0)); 
BGl_initializa7ezd2funz12z67zzintegrate_az00(
(BgL_variablez00_bglt)(BgL_globalz00_1), 
(BgL_variablez00_bglt)(BgL_globalz00_1)); 
{ /* ./Integrate/a.scm 48 */
obj_t BgL_az00_869;
{ /* ./Integrate/a.scm 48 */
obj_t BgL_arg3013z00_871;
{ /* ./Integrate/a.scm 48 */
obj_t BgL_arg3017z00_873;BgL_typez00_bglt BgL_arg3018z00_874;
BgL_arg3017z00_873 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Integrate/a.scm 48 */
BgL_variablez00_bglt BgL_obj1097z00_1817;
BgL_obj1097z00_1817 = 
(BgL_variablez00_bglt)(BgL_globalz00_1); 
BgL_arg3018z00_874 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_1817))->BgL_typez00); } 
{ /* ./Integrate/a.scm 48 */
obj_t BgL_auxz00_3099;
BgL_auxz00_3099 = 
(obj_t)(BgL_arg3018z00_874); 
BgL_arg3013z00_871 = 
MAKE_PAIR(BgL_arg3017z00_873, BgL_auxz00_3099); } } 
{ /* ./Integrate/a.scm 48 */
BgL_variablez00_bglt BgL_hostz00_1819;
BgL_hostz00_1819 = 
(BgL_variablez00_bglt)(BgL_globalz00_1); 
{ /* ./Integrate/a.scm 48 */
obj_t BgL_method2956z00_1822;
{ /* ./Integrate/a.scm 48 */
BgL_objectz00_bglt BgL_objz00_1823;
BgL_objz00_1823 = 
(BgL_objectz00_bglt)(BgL_nodez00_2); 
{ /* ./Integrate/a.scm 48 */
long BgL_objzd2classzd2numz00_1824;
BgL_objzd2classzd2numz00_1824 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1823); 
{ /* ./Integrate/a.scm 48 */
obj_t BgL_arg2017z00_1825;
{ /* ./Integrate/a.scm 48 */
int BgL_auxz00_3105;
BgL_auxz00_3105 = 
(int)(((long)1)); 
BgL_arg2017z00_1825 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3105); } 
{ /* ./Integrate/a.scm 48 */
int BgL_offsetz00_1828;
BgL_offsetz00_1828 = 
(int)(BgL_objzd2classzd2numz00_1824); 
{ /* ./Integrate/a.scm 48 */
long BgL_offsetz00_1829;
{ /* ./Integrate/a.scm 48 */
long BgL_auxz00_3109;
BgL_auxz00_3109 = 
(long)(BgL_offsetz00_1828); 
BgL_offsetz00_1829 = 
(BgL_auxz00_3109-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 48 */
long BgL_modz00_1830;
{ /* ./Integrate/a.scm 48 */
int BgL_arg2028z00_1831;
BgL_arg2028z00_1831 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 48 */
long BgL_n2z00_1839;
BgL_n2z00_1839 = 
(long)(BgL_arg2028z00_1831); 
BgL_modz00_1830 = 
(BgL_offsetz00_1829/BgL_n2z00_1839); } } 
{ /* ./Integrate/a.scm 48 */
long BgL_restz00_1832;
{ /* ./Integrate/a.scm 48 */
int BgL_arg2024z00_1833;
BgL_arg2024z00_1833 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 48 */
long BgL_n2z00_1842;
BgL_n2z00_1842 = 
(long)(BgL_arg2024z00_1833); 
BgL_restz00_1832 = 
(BgL_offsetz00_1829%BgL_n2z00_1842); } } 
{ /* ./Integrate/a.scm 48 */

{ /* ./Integrate/a.scm 48 */
obj_t BgL_bucketz00_1834;
{ /* ./Integrate/a.scm 48 */
int BgL_kz00_1844;
BgL_kz00_1844 = 
(int)(BgL_modz00_1830); 
BgL_bucketz00_1834 = 
VECTOR_REF(BgL_arg2017z00_1825,BgL_kz00_1844); } 
{ /* ./Integrate/a.scm 48 */
int BgL_kz00_1846;
BgL_kz00_1846 = 
(int)(BgL_restz00_1832); 
BgL_method2956z00_1822 = 
VECTOR_REF(BgL_bucketz00_1834,BgL_kz00_1846); } } } } } } } } } } 
BgL_az00_869 = 
PROCEDURE_ENTRY(BgL_method2956z00_1822)(BgL_method2956z00_1822, 
(obj_t)(BgL_nodez00_2), 
(obj_t)(BgL_hostz00_1819), BgL_arg3013z00_871, BNIL, BEOA); } } } 
{ /* ./Integrate/a.scm 48 */
obj_t BgL_az72z72_870;
BgL_az72z72_870 = 
BGl_tailzd2coercionzd2zzintegrate_az00(BgL_az00_869, BgL_globalz00_1); 
{ /* ./Integrate/a.scm 49 */

BGl_tracezd2Azd2zzintegrate_az00(BgL_az00_869, "Before tail-coercion"); 
BGl_tracezd2Azd2zzintegrate_az00(BgL_az72z72_870, "After tail-coercion"); 
return BgL_az72z72_870;} } } } 
}



/* _A4417 */
obj_t BGl__A4417z00zzintegrate_az00(obj_t BgL_envz00_2892, obj_t BgL_globalz00_2893, obj_t BgL_nodez00_2894)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 42 */
return 
BGl_Az00zzintegrate_az00(
(BgL_globalz00_bglt)(BgL_globalz00_2893), 
(BgL_nodez00_bglt)(BgL_nodez00_2894));} 
}



/* initialize-fun! */
bool_t BGl_initializa7ezd2funz12z67zzintegrate_az00(BgL_variablez00_bglt BgL_funz00_3, BgL_variablez00_bglt BgL_ownerz00_4)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 57 */
{ /* ./Integrate/a.scm 58 */
BgL_sfunz00_bglt BgL_obj2899z00_875;
{ 
BgL_sfunz00_bglt BgL_auxz00_3132;
{ /* ./Integrate/a.scm 58 */
BgL_valuez00_bglt BgL_auxz00_3133;
BgL_auxz00_3133 = 
(((BgL_variablez00_bglt)CREF(BgL_funz00_3))->BgL_valuez00); 
BgL_auxz00_3132 = 
(BgL_sfunz00_bglt)(BgL_auxz00_3133); } 
BgL_obj2899z00_875 = 
((BgL_sfunz00_bglt)BgL_auxz00_3132); } 
{ /* ./Integrate/a.scm 59 */
obj_t BgL_arg3022z00_876;
{ /* ./Integrate/a.scm 59 */
BgL_variablez00_bglt BgL_arg3025z00_877;bool_t BgL_arg3034z00_886;
BgL_arg3025z00_877 = BgL_ownerz00_4; 
{ /* ./Integrate/a.scm 60 */
obj_t BgL_obj1240z00_1848;
BgL_obj1240z00_1848 = 
(obj_t)(BgL_funz00_3); 
BgL_arg3034z00_886 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1848, BGl_globalz00zzast_varz00); } 
BgL_arg3022z00_876 = 
BGl_wideningzd2sfunzf2Iinfoz20zzintegrate_infoz00(
(obj_t)(BgL_arg3025z00_877), BUNSPEC, BNIL, BNIL, BNIL, BNIL, BNIL, BUNSPEC, BNIL, BNIL, BNIL, BgL_arg3034z00_886, BUNSPEC, BNIL, BUNSPEC, BUNSPEC, BUNSPEC, BUNSPEC); } 
{ /* ./Integrate/a.scm 58 */
BgL_objectz00_bglt BgL_auxz00_3141;
BgL_auxz00_3141 = 
(BgL_objectz00_bglt)(BgL_obj2899z00_875); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3141, BgL_arg3022z00_876); } } 
{ /* ./Integrate/a.scm 58 */
long BgL_arg3039z00_888;
BgL_arg3039z00_888 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunzf2Iinfozf2zzintegrate_infoz00); 
{ /* ./Integrate/a.scm 58 */
BgL_objectz00_bglt BgL_objz00_1849;
BgL_objz00_1849 = 
(BgL_objectz00_bglt)(BgL_obj2899z00_875); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1849, BgL_arg3039z00_888); } } 
{ /* ./Integrate/a.scm 58 */
obj_t BgL_objz00_1851;
BgL_objz00_1851 = 
(obj_t)(BgL_obj2899z00_875); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1851); BUNSPEC; } BgL_obj2899z00_875; } 
{ 
obj_t BgL_l2900z00_889;
{ /* ./Integrate/a.scm 63 */
obj_t BgL_arg3045z00_891;
{ /* ./Integrate/a.scm 63 */
BgL_sfunz00_bglt BgL_obj1367z00_1853;
{ /* ./Integrate/a.scm 63 */
BgL_valuez00_bglt BgL_auxz00_3149;
BgL_auxz00_3149 = 
(((BgL_variablez00_bglt)CREF(BgL_funz00_3))->BgL_valuez00); 
BgL_obj1367z00_1853 = 
(BgL_sfunz00_bglt)(BgL_auxz00_3149); } 
BgL_arg3045z00_891 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1853))->BgL_argsz00); } 
BgL_l2900z00_889 = BgL_arg3045z00_891; 
BgL_forzd2each2901zd2_890:
{ /* ./Integrate/a.scm 61 */
bool_t BgL_test3051z00_893;
BgL_test3051z00_893 = 
PAIRP(BgL_l2900z00_889); 
if(BgL_test3051z00_893)
{ /* ./Integrate/a.scm 61 */
{ /* ./Integrate/a.scm 62 */
obj_t BgL_xz00_894;
BgL_xz00_894 = 
CAR(BgL_l2900z00_889); 
{ /* ./Integrate/a.scm 62 */
BgL_svarz00_bglt BgL_obj2902z00_895;
{ 
BgL_svarz00_bglt BgL_auxz00_3156;
{ /* ./Integrate/a.scm 62 */
BgL_valuez00_bglt BgL_auxz00_3157;
{ /* ./Integrate/a.scm 62 */
BgL_variablez00_bglt BgL_obj1100z00_3042;
BgL_obj1100z00_3042 = 
(BgL_variablez00_bglt)(BgL_xz00_894); 
BgL_auxz00_3157 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3042))->BgL_valuez00); } 
BgL_auxz00_3156 = 
(BgL_svarz00_bglt)(BgL_auxz00_3157); } 
BgL_obj2902z00_895 = 
((BgL_svarz00_bglt)BgL_auxz00_3156); } 
{ /* ./Integrate/a.scm 62 */
obj_t BgL_arg3053z00_896;
BgL_arg3053z00_896 = 
BGl_wideningzd2svarzf2Iinfoz20zzintegrate_infoz00(BUNSPEC, BUNSPEC, ((bool_t)0), ((bool_t)0)); 
{ /* ./Integrate/a.scm 62 */
BgL_objectz00_bglt BgL_auxz00_3163;
BgL_auxz00_3163 = 
(BgL_objectz00_bglt)(BgL_obj2902z00_895); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3163, BgL_arg3053z00_896); } } 
{ /* ./Integrate/a.scm 62 */
long BgL_arg3057z00_897;
BgL_arg3057z00_897 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Iinfozf2zzintegrate_infoz00); 
{ /* ./Integrate/a.scm 62 */
BgL_objectz00_bglt BgL_objz00_1857;
BgL_objz00_1857 = 
(BgL_objectz00_bglt)(BgL_obj2902z00_895); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1857, BgL_arg3057z00_897); } } 
{ /* ./Integrate/a.scm 62 */
obj_t BgL_objz00_1859;
BgL_objz00_1859 = 
(obj_t)(BgL_obj2902z00_895); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1859); BUNSPEC; } BgL_obj2902z00_895; } } 
{ /* ./Integrate/a.scm 61 */
obj_t BgL_arg3064z00_898;
BgL_arg3064z00_898 = 
CDR(BgL_l2900z00_889); 
{ 
obj_t BgL_l2900z00_3172;
BgL_l2900z00_3172 = BgL_arg3064z00_898; 
BgL_l2900z00_889 = BgL_l2900z00_3172; 
goto BgL_forzd2each2901zd2_890;} } }  else 
{ /* ./Integrate/a.scm 61 */
return ((bool_t)1);} } } } } 
}



/* get-new-kont */
obj_t BGl_getzd2newzd2kontz00zzintegrate_az00()
{ AN_OBJECT;
{ /* ./Integrate/a.scm 73 */
{ /* ./Integrate/a.scm 74 */
long BgL_za72za7_1862;
BgL_za72za7_1862 = 
(long)CINT(BGl_za2kontza2z00zzintegrate_az00); 
{ /* ./Integrate/a.scm 74 */
long BgL_auxz00_3174;
BgL_auxz00_3174 = 
(((long)1)+BgL_za72za7_1862); 
BGl_za2kontza2z00zzintegrate_az00 = 
BINT(BgL_auxz00_3174); } } 
return BGl_za2kontza2z00zzintegrate_az00;} 
}



/* trace-A */
obj_t BGl_tracezd2Azd2zzintegrate_az00(obj_t BgL_az00_5, char * BgL_msgz00_6)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 80 */
{ /* ./Integrate/a.scm 81 */
obj_t BgL_pz00_899;
{ /* ./Integrate/a.scm 83 */
obj_t BgL_zc3anonymousza33072ze3z83_2900;
{ 
int BgL_auxz00_3179;int BgL_auxz00_3177;
BgL_auxz00_3179 = 
(int)(((long)1)); 
BgL_auxz00_3177 = 
(int)(((long)0)); 
BgL_zc3anonymousza33072ze3z83_2900 = 
make_fx_procedure(BGl_zc3anonymousza33072ze3z83zzintegrate_az00, BgL_auxz00_3177, BgL_auxz00_3179); } 
{ /* ./Integrate/a.scm 83 */
int BgL_auxz00_3182;
BgL_auxz00_3182 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33072ze3z83_2900, BgL_auxz00_3182, BgL_az00_5); } 
BgL_pz00_899 = 
BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(BgL_zc3anonymousza33072ze3z83_2900); } 
return BNIL;} } 
}



/* <anonymous:3072> */
obj_t BGl_zc3anonymousza33072ze3z83zzintegrate_az00(obj_t BgL_envz00_2901)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 82 */
{ /* ./Integrate/a.scm 83 */
obj_t BgL_az00_2902;
{ /* ./Integrate/a.scm 83 */
int BgL_auxz00_3186;
BgL_auxz00_3186 = 
(int)(((long)0)); 
BgL_az00_2902 = 
PROCEDURE_REF(BgL_envz00_2901, BgL_auxz00_3186); } 
{ 

{ /* ./Integrate/a.scm 83 */
bool_t BgL_auxz00_3189;
{ 
obj_t BgL_l2903z00_902;
BgL_l2903z00_902 = BgL_az00_2902; 
BgL_forzd2each2904zd2_903:
{ /* ./Integrate/a.scm 83 */
bool_t BgL_test3074z00_904;
BgL_test3074z00_904 = 
PAIRP(BgL_l2903z00_902); 
if(BgL_test3074z00_904)
{ /* ./Integrate/a.scm 83 */
{ /* ./Integrate/a.scm 84 */
obj_t BgL_az00_905;
BgL_az00_905 = 
CAR(BgL_l2903z00_902); 
{ /* ./Integrate/a.scm 84 */
obj_t BgL_port2905z00_906;
BgL_port2905z00_906 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string4987z00zzintegrate_az00, BgL_port2905z00_906); 
{ /* ./Integrate/a.scm 84 */
obj_t BgL_arg3077z00_907;
{ /* ./Integrate/a.scm 84 */
obj_t BgL_arg3080z00_908;
BgL_arg3080z00_908 = 
CAR(BgL_az00_905); 
BgL_arg3077z00_907 = 
BGl_shapez00zztools_shapez00(BgL_arg3080z00_908); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3077z00_907, BgL_port2905z00_906); } 
display_string(BGl_string4988z00zzintegrate_az00, BgL_port2905z00_906); 
{ /* ./Integrate/a.scm 85 */
obj_t BgL_arg3085z00_909;
{ /* ./Integrate/a.scm 85 */
obj_t BgL_arg3088z00_910;
{ /* ./Integrate/a.scm 85 */
obj_t BgL_auxz00_3199;
BgL_auxz00_3199 = 
CDR(BgL_az00_905); 
BgL_arg3088z00_910 = 
CAR(BgL_auxz00_3199); } 
BgL_arg3085z00_909 = 
BGl_shapez00zztools_shapez00(BgL_arg3088z00_910); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3085z00_909, BgL_port2905z00_906); } 
display_string(BGl_string4988z00zzintegrate_az00, BgL_port2905z00_906); 
{ /* ./Integrate/a.scm 86 */
obj_t BgL_arg3094z00_911;
{ /* ./Integrate/a.scm 86 */
obj_t BgL_arg3097z00_912;
{ /* ./Integrate/a.scm 86 */
obj_t BgL_auxz00_3205;
{ /* ./Integrate/a.scm 86 */
obj_t BgL_auxz00_3206;
BgL_auxz00_3206 = 
CDR(BgL_az00_905); 
BgL_auxz00_3205 = 
CDR(BgL_auxz00_3206); } 
BgL_arg3097z00_912 = 
CAR(BgL_auxz00_3205); } 
BgL_arg3094z00_911 = 
BGl_shapez00zztools_shapez00(BgL_arg3097z00_912); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3094z00_911, BgL_port2905z00_906); } 
display_string(BGl_string4989z00zzintegrate_az00, BgL_port2905z00_906); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port2905z00_906); } } 
{ /* ./Integrate/a.scm 83 */
obj_t BgL_arg3105z00_913;
BgL_arg3105z00_913 = 
CDR(BgL_l2903z00_902); 
{ 
obj_t BgL_l2903z00_3215;
BgL_l2903z00_3215 = BgL_arg3105z00_913; 
BgL_l2903z00_902 = BgL_l2903z00_3215; 
goto BgL_forzd2each2904zd2_903;} } }  else 
{ /* ./Integrate/a.scm 83 */
BgL_auxz00_3189 = ((bool_t)1); } } } 
return 
BBOOL(BgL_auxz00_3189);} } } } 
}



/* tail-coercion */
obj_t BGl_tailzd2coercionzd2zzintegrate_az00(obj_t BgL_az00_7, BgL_globalz00_bglt BgL_globalz00_8)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 104 */
{ 
obj_t BgL_l2906z00_915;
BgL_l2906z00_915 = BgL_az00_7; 
BgL_forzd2each2907zd2_916:
{ /* ./Integrate/a.scm 106 */
bool_t BgL_test3110z00_917;
BgL_test3110z00_917 = 
PAIRP(BgL_l2906z00_915); 
if(BgL_test3110z00_917)
{ /* ./Integrate/a.scm 106 */
{ /* ./Integrate/a.scm 107 */
obj_t BgL_az00_918;
BgL_az00_918 = 
CAR(BgL_l2906z00_915); 
{ 
obj_t BgL_calleez00_919;obj_t BgL_typez00_920;
{ /* ./Integrate/a.scm 107 */
bool_t BgL_test3111z00_923;
BgL_test3111z00_923 = 
PAIRP(BgL_az00_918); 
if(BgL_test3111z00_923)
{ /* ./Integrate/a.scm 107 */
obj_t BgL_cdrzd2127zd2_924;
BgL_cdrzd2127zd2_924 = 
CDR(BgL_az00_918); 
{ /* ./Integrate/a.scm 107 */
bool_t BgL_test3112z00_925;
BgL_test3112z00_925 = 
PAIRP(BgL_cdrzd2127zd2_924); 
if(BgL_test3112z00_925)
{ /* ./Integrate/a.scm 107 */
obj_t BgL_cdrzd2131zd2_926;
BgL_cdrzd2131zd2_926 = 
CDR(BgL_cdrzd2127zd2_924); 
{ /* ./Integrate/a.scm 107 */
bool_t BgL_test3113z00_927;
BgL_test3113z00_927 = 
PAIRP(BgL_cdrzd2131zd2_926); 
if(BgL_test3113z00_927)
{ /* ./Integrate/a.scm 107 */
obj_t BgL_carzd2134zd2_928;
BgL_carzd2134zd2_928 = 
CAR(BgL_cdrzd2131zd2_926); 
{ /* ./Integrate/a.scm 107 */
bool_t BgL_test3114z00_929;
BgL_test3114z00_929 = 
PAIRP(BgL_carzd2134zd2_928); 
if(BgL_test3114z00_929)
{ /* ./Integrate/a.scm 107 */
bool_t BgL_test3115z00_930;
{ /* ./Integrate/a.scm 107 */
obj_t BgL_auxz00_3231;
BgL_auxz00_3231 = 
CDR(BgL_cdrzd2131zd2_926); 
BgL_test3115z00_930 = 
NULLP(BgL_auxz00_3231); } 
if(BgL_test3115z00_930)
{ /* ./Integrate/a.scm 107 */
obj_t BgL_arg3117z00_931;obj_t BgL_arg3118z00_932;
BgL_arg3117z00_931 = 
CAR(BgL_cdrzd2127zd2_924); 
BgL_arg3118z00_932 = 
CDR(BgL_carzd2134zd2_928); 
BgL_calleez00_919 = BgL_arg3117z00_931; 
BgL_typez00_920 = BgL_arg3118z00_932; 
{ /* ./Integrate/a.scm 109 */
BgL_valuez00_bglt BgL_funz00_934;
{ /* ./Integrate/a.scm 109 */
BgL_variablez00_bglt BgL_obj1100z00_1891;
BgL_obj1100z00_1891 = 
(BgL_variablez00_bglt)(BgL_calleez00_919); 
BgL_funz00_934 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1891))->BgL_valuez00); } 
{ /* ./Integrate/a.scm 112 */
bool_t BgL_test3133z00_936;
BgL_test3133z00_936 = 
BGl_iszd2azf3z21zz__objectz00(BgL_typez00_920, BGl_typez00zztype_typez00); 
if(BgL_test3133z00_936)
{ /* ./Integrate/a.scm 114 */
bool_t BgL_test3134z00_937;
{ /* ./Integrate/a.scm 114 */
bool_t BgL_test3204z00_966;
BgL_test3204z00_966 = 
(BgL_typez00_920==BGl_za2objza2z00zztype_cachez00); 
if(BgL_test3204z00_966)
{ /* ./Integrate/a.scm 114 */
BgL_test3134z00_937 = ((bool_t)1); }  else 
{ /* ./Integrate/a.scm 114 */
BgL_test3134z00_937 = 
(BgL_typez00_920==BGl_za2magicza2z00zztype_cachez00); } } 
if(BgL_test3134z00_937)
{ /* ./Integrate/a.scm 114 */BUNSPEC; }  else 
{ /* ./Integrate/a.scm 116 */
bool_t BgL_test3135z00_938;
{ /* ./Integrate/a.scm 116 */
obj_t BgL_auxz00_3245;
{ /* ./Integrate/a.scm 116 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2857z00_1893;
BgL_obj2857z00_1893 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_funz00_934); 
{ 
obj_t BgL_auxz00_3247;
{ /* ./Integrate/a.scm 116 */
BgL_objectz00_bglt BgL_auxz00_3248;
BgL_auxz00_3248 = 
(BgL_objectz00_bglt)(BgL_obj2857z00_1893); 
BgL_auxz00_3247 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3248); } 
BgL_auxz00_3245 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_3247))->BgL_tailzd2coercionzd2); } } 
BgL_test3135z00_938 = 
(BgL_auxz00_3245==BUNSPEC); } 
if(BgL_test3135z00_938)
{ /* ./Integrate/a.scm 116 */
{ /* ./Integrate/a.scm 117 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2859z00_1894;obj_t BgL_val2858z00_1895;
BgL_obj2859z00_1894 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_funz00_934); 
BgL_val2858z00_1895 = BgL_typez00_920; 
{ 
obj_t BgL_auxz00_3255;
{ /* ./Integrate/a.scm 117 */
BgL_objectz00_bglt BgL_auxz00_3256;
BgL_auxz00_3256 = 
(BgL_objectz00_bglt)(BgL_obj2859z00_1894); 
BgL_auxz00_3255 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3256); } 
((((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_3255))->BgL_tailzd2coercionzd2) = ((obj_t)BgL_val2858z00_1895), BUNSPEC); } } }  else 
{ /* ./Integrate/a.scm 118 */
bool_t BgL_test3137z00_939;
{ /* ./Integrate/a.scm 118 */
bool_t BgL_test3196z00_964;
BgL_test3196z00_964 = 
(BgL_typez00_920==BGl_za2pairzd2nilza2zd2zztype_cachez00); 
if(BgL_test3196z00_964)
{ /* ./Integrate/a.scm 118 */
BgL_test3137z00_939 = ((bool_t)1); }  else 
{ /* ./Integrate/a.scm 118 */
BgL_test3137z00_939 = 
(BgL_typez00_920==BGl_za2magicza2z00zztype_cachez00); } } 
if(BgL_test3137z00_939)
{ /* ./Integrate/a.scm 118 */BUNSPEC; }  else 
{ /* ./Integrate/a.scm 120 */
bool_t BgL_test3138z00_940;
{ /* ./Integrate/a.scm 120 */
bool_t BgL_test3184z00_959;
{ /* ./Integrate/a.scm 120 */
bool_t BgL_test3190z00_962;
BgL_test3190z00_962 = 
(BgL_typez00_920==BGl_za2pairzd2nilza2zd2zztype_cachez00); 
if(BgL_test3190z00_962)
{ /* ./Integrate/a.scm 121 */
obj_t BgL_arg3192z00_963;
{ /* ./Integrate/a.scm 121 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2857z00_1896;
BgL_obj2857z00_1896 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_funz00_934); 
{ 
obj_t BgL_auxz00_3267;
{ /* ./Integrate/a.scm 121 */
BgL_objectz00_bglt BgL_auxz00_3268;
BgL_auxz00_3268 = 
(BgL_objectz00_bglt)(BgL_obj2857z00_1896); 
BgL_auxz00_3267 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3268); } 
BgL_arg3192z00_963 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_3267))->BgL_tailzd2coercionzd2); } } 
BgL_test3184z00_959 = 
(BgL_arg3192z00_963==BGl_za2pairza2z00zztype_cachez00); }  else 
{ /* ./Integrate/a.scm 120 */
BgL_test3184z00_959 = ((bool_t)0); } } 
if(BgL_test3184z00_959)
{ /* ./Integrate/a.scm 120 */
BgL_test3138z00_940 = ((bool_t)1); }  else 
{ /* ./Integrate/a.scm 122 */
bool_t BgL__andtest_2910z00_960;
BgL__andtest_2910z00_960 = 
(BgL_typez00_920==BGl_za2pairza2z00zztype_cachez00); 
if(BgL__andtest_2910z00_960)
{ /* ./Integrate/a.scm 123 */
obj_t BgL_arg3186z00_961;
{ /* ./Integrate/a.scm 123 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2857z00_1897;
BgL_obj2857z00_1897 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_funz00_934); 
{ 
obj_t BgL_auxz00_3277;
{ /* ./Integrate/a.scm 123 */
BgL_objectz00_bglt BgL_auxz00_3278;
BgL_auxz00_3278 = 
(BgL_objectz00_bglt)(BgL_obj2857z00_1897); 
BgL_auxz00_3277 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3278); } 
BgL_arg3186z00_961 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_3277))->BgL_tailzd2coercionzd2); } } 
BgL_test3138z00_940 = 
(BgL_arg3186z00_961==BGl_za2pairzd2nilza2zd2zztype_cachez00); }  else 
{ /* ./Integrate/a.scm 122 */
BgL_test3138z00_940 = ((bool_t)0); } } } 
if(BgL_test3138z00_940)
{ /* ./Integrate/a.scm 120 */BUNSPEC; }  else 
{ /* ./Integrate/a.scm 125 */
bool_t BgL_test3139z00_941;
{ /* ./Integrate/a.scm 125 */
obj_t BgL_auxz00_3284;
{ /* ./Integrate/a.scm 125 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2857z00_1898;
BgL_obj2857z00_1898 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_funz00_934); 
{ 
obj_t BgL_auxz00_3286;
{ /* ./Integrate/a.scm 125 */
BgL_objectz00_bglt BgL_auxz00_3287;
BgL_auxz00_3287 = 
(BgL_objectz00_bglt)(BgL_obj2857z00_1898); 
BgL_auxz00_3286 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3287); } 
BgL_auxz00_3284 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_3286))->BgL_tailzd2coercionzd2); } } 
BgL_test3139z00_941 = 
(BgL_auxz00_3284==BgL_typez00_920); } 
if(BgL_test3139z00_941)
{ /* ./Integrate/a.scm 125 */BFALSE; }  else 
{ /* ./Integrate/a.scm 125 */
{ /* ./Integrate/a.scm 126 */
bool_t BgL_test3140z00_942;
BgL_test3140z00_942 = 
BGl_iszd2azf3z21zz__objectz00(BgL_calleez00_919, BGl_localz00zzast_varz00); 
if(BgL_test3140z00_942)
{ /* ./Integrate/a.scm 127 */
obj_t BgL_arg3142z00_943;obj_t BgL_arg3144z00_945;obj_t BgL_arg3146z00_947;obj_t BgL_arg3148z00_949;
BgL_arg3142z00_943 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_globalz00_8)); 
BgL_arg3144z00_945 = 
BGl_shapez00zztools_shapez00(BgL_calleez00_919); 
{ /* ./Integrate/a.scm 131 */
obj_t BgL_arg3174z00_957;
{ /* ./Integrate/a.scm 131 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2857z00_1900;
BgL_obj2857z00_1900 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_funz00_934); 
{ 
obj_t BgL_auxz00_3299;
{ /* ./Integrate/a.scm 131 */
BgL_objectz00_bglt BgL_auxz00_3300;
BgL_auxz00_3300 = 
(BgL_objectz00_bglt)(BgL_obj2857z00_1900); 
BgL_auxz00_3299 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3300); } 
BgL_arg3174z00_957 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_3299))->BgL_tailzd2coercionzd2); } } 
BgL_arg3146z00_947 = 
BGl_shapez00zztools_shapez00(BgL_arg3174z00_957); } 
BgL_arg3148z00_949 = 
BGl_shapez00zztools_shapez00(BgL_typez00_920); 
{ /* ./Integrate/a.scm 127 */
obj_t BgL_list3150z00_950;
{ /* ./Integrate/a.scm 127 */
obj_t BgL_arg3152z00_951;
{ /* ./Integrate/a.scm 127 */
obj_t BgL_arg3156z00_952;
{ /* ./Integrate/a.scm 127 */
obj_t BgL_arg3159z00_953;
{ /* ./Integrate/a.scm 127 */
obj_t BgL_arg3162z00_954;
{ /* ./Integrate/a.scm 127 */
obj_t BgL_arg3165z00_955;
{ /* ./Integrate/a.scm 127 */
obj_t BgL_arg3168z00_956;
BgL_arg3168z00_956 = 
MAKE_PAIR(BgL_arg3148z00_949, BNIL); 
BgL_arg3165z00_955 = 
MAKE_PAIR(BGl_string4988z00zzintegrate_az00, BgL_arg3168z00_956); } 
BgL_arg3162z00_954 = 
MAKE_PAIR(BgL_arg3146z00_947, BgL_arg3165z00_955); } 
BgL_arg3159z00_953 = 
MAKE_PAIR(BGl_string4990z00zzintegrate_az00, BgL_arg3162z00_954); } 
BgL_arg3156z00_952 = 
MAKE_PAIR(BgL_arg3144z00_945, BgL_arg3159z00_953); } 
BgL_arg3152z00_951 = 
MAKE_PAIR(BGl_string4991z00zzintegrate_az00, BgL_arg3156z00_952); } 
BgL_list3150z00_950 = 
MAKE_PAIR(BgL_arg3142z00_943, BgL_arg3152z00_951); } 
BGl_warningz00zz__errorz00(BgL_list3150z00_950); } }  else 
{ /* ./Integrate/a.scm 126 */BFALSE; } } 
{ /* ./Integrate/a.scm 133 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2859z00_1901;obj_t BgL_val2858z00_1902;
BgL_obj2859z00_1901 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_funz00_934); 
BgL_val2858z00_1902 = BFALSE; 
{ 
obj_t BgL_auxz00_3315;
{ /* ./Integrate/a.scm 133 */
BgL_objectz00_bglt BgL_auxz00_3316;
BgL_auxz00_3316 = 
(BgL_objectz00_bglt)(BgL_obj2859z00_1901); 
BgL_auxz00_3315 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3316); } 
((((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_3315))->BgL_tailzd2coercionzd2) = ((obj_t)BgL_val2858z00_1902), BUNSPEC); } } } } } } } }  else 
{ /* ./Integrate/a.scm 112 */BUNSPEC; } } } }  else 
{ /* ./Integrate/a.scm 107 */BFALSE; } }  else 
{ /* ./Integrate/a.scm 107 */BFALSE; } } }  else 
{ /* ./Integrate/a.scm 107 */BFALSE; } } }  else 
{ /* ./Integrate/a.scm 107 */BFALSE; } } }  else 
{ /* ./Integrate/a.scm 107 */BFALSE; } } } } 
{ /* ./Integrate/a.scm 106 */
obj_t BgL_arg3211z00_967;
BgL_arg3211z00_967 = 
CDR(BgL_l2906z00_915); 
{ 
obj_t BgL_l2906z00_3321;
BgL_l2906z00_3321 = BgL_arg3211z00_967; 
BgL_l2906z00_915 = BgL_l2906z00_3321; 
goto BgL_forzd2each2907zd2_916;} } }  else 
{ /* ./Integrate/a.scm 106 */((bool_t)1); } } } 
{ /* ./Integrate/a.scm 136 */
bool_t BgL_test3215z00_969;
BgL_test3215z00_969 = 
NULLP(BgL_az00_7); 
if(BgL_test3215z00_969)
{ /* ./Integrate/a.scm 136 */
return BNIL;}  else 
{ /* ./Integrate/a.scm 136 */
obj_t BgL_head2913z00_970;
BgL_head2913z00_970 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2911z00_971;obj_t BgL_tail2914z00_972;
BgL_l2911z00_971 = BgL_az00_7; 
BgL_tail2914z00_972 = BgL_head2913z00_970; 
BgL_map2912z00_973:
{ /* ./Integrate/a.scm 136 */
bool_t BgL_test3217z00_974;
BgL_test3217z00_974 = 
NULLP(BgL_l2911z00_971); 
if(BgL_test3217z00_974)
{ /* ./Integrate/a.scm 136 */
return 
CDR(BgL_head2913z00_970);}  else 
{ /* ./Integrate/a.scm 137 */
obj_t BgL_newtail2915z00_975;
{ /* ./Integrate/a.scm 137 */
obj_t BgL_arg3225z00_977;
{ /* ./Integrate/a.scm 137 */
obj_t BgL_az00_979;
BgL_az00_979 = 
CAR(BgL_l2911z00_971); 
{ 
obj_t BgL_callerz00_980;obj_t BgL_calleez00_981;obj_t BgL_typez00_982;
{ /* ./Integrate/a.scm 137 */
bool_t BgL_test3228z00_991;
BgL_test3228z00_991 = 
PAIRP(BgL_az00_979); 
if(BgL_test3228z00_991)
{ /* ./Integrate/a.scm 137 */
obj_t BgL_cdrzd2152zd2_992;
BgL_cdrzd2152zd2_992 = 
CDR(BgL_az00_979); 
{ /* ./Integrate/a.scm 137 */
bool_t BgL_test3229z00_993;
BgL_test3229z00_993 = 
PAIRP(BgL_cdrzd2152zd2_992); 
if(BgL_test3229z00_993)
{ /* ./Integrate/a.scm 137 */
obj_t BgL_cdrzd2157zd2_994;
BgL_cdrzd2157zd2_994 = 
CDR(BgL_cdrzd2152zd2_992); 
{ /* ./Integrate/a.scm 137 */
bool_t BgL_test3230z00_995;
BgL_test3230z00_995 = 
PAIRP(BgL_cdrzd2157zd2_994); 
if(BgL_test3230z00_995)
{ /* ./Integrate/a.scm 137 */
obj_t BgL_carzd2160zd2_996;
BgL_carzd2160zd2_996 = 
CAR(BgL_cdrzd2157zd2_994); 
{ /* ./Integrate/a.scm 137 */
bool_t BgL_test3231z00_997;
BgL_test3231z00_997 = 
PAIRP(BgL_carzd2160zd2_996); 
if(BgL_test3231z00_997)
{ /* ./Integrate/a.scm 137 */
bool_t BgL_test3232z00_998;
{ /* ./Integrate/a.scm 137 */
obj_t BgL_auxz00_3342;obj_t BgL_auxz00_3340;
BgL_auxz00_3342 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_3340 = 
CAR(BgL_carzd2160zd2_996); 
BgL_test3232z00_998 = 
(BgL_auxz00_3340==BgL_auxz00_3342); } 
if(BgL_test3232z00_998)
{ /* ./Integrate/a.scm 137 */
bool_t BgL_test3233z00_999;
{ /* ./Integrate/a.scm 137 */
obj_t BgL_auxz00_3346;
BgL_auxz00_3346 = 
CDR(BgL_cdrzd2157zd2_994); 
BgL_test3233z00_999 = 
NULLP(BgL_auxz00_3346); } 
if(BgL_test3233z00_999)
{ /* ./Integrate/a.scm 137 */
obj_t BgL_arg3235z00_1000;obj_t BgL_arg3236z00_1001;obj_t BgL_arg3237z00_1002;
BgL_arg3235z00_1000 = 
CAR(BgL_az00_979); 
BgL_arg3236z00_1001 = 
CAR(BgL_cdrzd2152zd2_992); 
BgL_arg3237z00_1002 = 
CDR(BgL_carzd2160zd2_996); 
BgL_callerz00_980 = BgL_arg3235z00_1000; 
BgL_calleez00_981 = BgL_arg3236z00_1001; 
BgL_typez00_982 = BgL_arg3237z00_1002; 
{ /* ./Integrate/a.scm 139 */
BgL_valuez00_bglt BgL_funz00_1015;
{ /* ./Integrate/a.scm 139 */
BgL_variablez00_bglt BgL_obj1100z00_1941;
BgL_obj1100z00_1941 = 
(BgL_variablez00_bglt)(BgL_calleez00_981); 
BgL_funz00_1015 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1941))->BgL_valuez00); } 
{ /* ./Integrate/a.scm 143 */
obj_t BgL_arg3284z00_1017;
{ /* ./Integrate/a.scm 143 */
bool_t BgL_test3294z00_1021;
{ /* ./Integrate/a.scm 143 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2857z00_1942;
BgL_obj2857z00_1942 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_funz00_1015); 
{ /* ./Integrate/a.scm 143 */
obj_t BgL_auxz00_3356;
{ 
obj_t BgL_auxz00_3357;
{ /* ./Integrate/a.scm 143 */
BgL_objectz00_bglt BgL_auxz00_3358;
BgL_auxz00_3358 = 
(BgL_objectz00_bglt)(BgL_obj2857z00_1942); 
BgL_auxz00_3357 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3358); } 
BgL_auxz00_3356 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_3357))->BgL_tailzd2coercionzd2); } 
BgL_test3294z00_1021 = 
CBOOL(BgL_auxz00_3356); } } 
if(BgL_test3294z00_1021)
{ /* ./Integrate/a.scm 143 */
BgL_arg3284z00_1017 = 
CNST_TABLE_REF(((long)0)); }  else 
{ /* ./Integrate/a.scm 143 */
BgL_arg3284z00_1017 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); } } 
{ /* ./Integrate/a.scm 141 */
obj_t BgL_list3286z00_1018;
{ /* ./Integrate/a.scm 141 */
obj_t BgL_arg3288z00_1019;
{ /* ./Integrate/a.scm 141 */
obj_t BgL_arg3291z00_1020;
BgL_arg3291z00_1020 = 
MAKE_PAIR(BgL_arg3284z00_1017, BNIL); 
BgL_arg3288z00_1019 = 
MAKE_PAIR(BgL_calleez00_981, BgL_arg3291z00_1020); } 
BgL_list3286z00_1018 = 
MAKE_PAIR(BgL_callerz00_980, BgL_arg3288z00_1019); } 
BgL_arg3225z00_977 = BgL_list3286z00_1018; } } } }  else 
{ /* ./Integrate/a.scm 137 */
BgL_arg3225z00_977 = BgL_az00_979; } }  else 
{ /* ./Integrate/a.scm 137 */
obj_t BgL_cdrzd2196zd2_1005;
BgL_cdrzd2196zd2_1005 = 
CDR(BgL_cdrzd2152zd2_992); 
{ /* ./Integrate/a.scm 137 */
obj_t BgL_carzd2201zd2_1006;
BgL_carzd2201zd2_1006 = 
CAR(BgL_cdrzd2196zd2_1005); 
{ /* ./Integrate/a.scm 137 */
bool_t BgL_test3248z00_1007;
{ /* ./Integrate/a.scm 137 */
obj_t BgL_auxz00_3371;
BgL_auxz00_3371 = 
CDR(BgL_cdrzd2196zd2_1005); 
BgL_test3248z00_1007 = 
NULLP(BgL_auxz00_3371); } 
if(BgL_test3248z00_1007)
{ /* ./Integrate/a.scm 137 */
obj_t BgL_arg3250z00_1008;obj_t BgL_arg3251z00_1009;obj_t BgL_arg3252z00_1010;
BgL_arg3250z00_1008 = 
CAR(BgL_az00_979); 
BgL_arg3251z00_1009 = 
CAR(BgL_cdrzd2152zd2_992); 
BgL_arg3252z00_1010 = 
CAR(BgL_carzd2201zd2_1006); 
{ /* ./Integrate/a.scm 137 */
obj_t BgL_list3299z00_1936;
{ /* ./Integrate/a.scm 137 */
obj_t BgL_arg3301z00_1937;
{ /* ./Integrate/a.scm 137 */
obj_t BgL_arg3304z00_1938;
BgL_arg3304z00_1938 = 
MAKE_PAIR(BgL_arg3252z00_1010, BNIL); 
BgL_arg3301z00_1937 = 
MAKE_PAIR(BgL_arg3251z00_1009, BgL_arg3304z00_1938); } 
BgL_list3299z00_1936 = 
MAKE_PAIR(BgL_arg3250z00_1008, BgL_arg3301z00_1937); } 
BgL_arg3225z00_977 = BgL_list3299z00_1936; } }  else 
{ /* ./Integrate/a.scm 137 */
BgL_arg3225z00_977 = BgL_az00_979; } } } } }  else 
{ /* ./Integrate/a.scm 137 */
BgL_arg3225z00_977 = BgL_az00_979; } } }  else 
{ /* ./Integrate/a.scm 137 */
BgL_arg3225z00_977 = BgL_az00_979; } } }  else 
{ /* ./Integrate/a.scm 137 */
BgL_arg3225z00_977 = BgL_az00_979; } } }  else 
{ /* ./Integrate/a.scm 137 */
BgL_arg3225z00_977 = BgL_az00_979; } } } } 
BgL_newtail2915z00_975 = 
MAKE_PAIR(BgL_arg3225z00_977, BNIL); } 
SET_CDR(BgL_tail2914z00_972, BgL_newtail2915z00_975); 
{ /* ./Integrate/a.scm 136 */
obj_t BgL_arg3221z00_976;
BgL_arg3221z00_976 = 
CDR(BgL_l2911z00_971); 
{ 
obj_t BgL_tail2914z00_3385;obj_t BgL_l2911z00_3384;
BgL_l2911z00_3384 = BgL_arg3221z00_976; 
BgL_tail2914z00_3385 = BgL_newtail2915z00_975; 
BgL_tail2914z00_972 = BgL_tail2914z00_3385; 
BgL_l2911z00_971 = BgL_l2911z00_3384; 
goto BgL_map2912z00_973;} } } } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzintegrate_az00()
{ AN_OBJECT;
{ /* ./Integrate/a.scm 18 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_nodezd2Azd2default2955zd2envzd2zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_atomz00zzast_nodez00, BGl_proc4992z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_kwotez00zzast_nodez00, BGl_proc4993z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_varz00zzast_nodez00, BGl_proc4994z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_closurez00zzast_nodez00, BGl_proc4995z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_sequencez00zzast_nodez00, BGl_proc4996z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_appz00zzast_nodez00, BGl_proc4997z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4998z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_funcallz00zzast_nodez00, BGl_proc4999z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_externz00zzast_nodez00, BGl_proc5000z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_castz00zzast_nodez00, BGl_proc5001z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_setqz00zzast_nodez00, BGl_proc5002z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_conditionalz00zzast_nodez00, BGl_proc5003z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_failz00zzast_nodez00, BGl_proc5004z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_selectz00zzast_nodez00, BGl_proc5005z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_letzd2funzd2zzast_nodez00, BGl_proc5006z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_letzd2varzd2zzast_nodez00, BGl_proc5007z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc5008z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc5009z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc5010z00zzintegrate_az00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc5011z00zzintegrate_az00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2Azd2envz00zzintegrate_az00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc5012z00zzintegrate_az00);} 
}



/* node-A-box-ref3004 */
obj_t BGl_nodezd2Azd2boxzd2ref3004zd2zzintegrate_az00(obj_t BgL_envz00_2924, obj_t BgL_nodez00_2925, obj_t BgL_hostz00_2926, obj_t BgL_kz00_2927, obj_t BgL_az00_2928)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 401 */
return BgL_az00_2928;} 
}



/* node-A-box-set!3002 */
obj_t BGl_nodezd2Azd2boxzd2setz123002zc0zzintegrate_az00(obj_t BgL_envz00_2929, obj_t BgL_nodez00_2930, obj_t BgL_hostz00_2931, obj_t BgL_kz00_2932, obj_t BgL_az00_2933)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 394 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1792;obj_t BgL_hostz00_1793;obj_t BgL_kz00_1794;obj_t BgL_az00_1795;
BgL_nodez00_1792 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2930); 
BgL_hostz00_1793 = BgL_hostz00_2931; 
BgL_kz00_1794 = BgL_kz00_2932; 
BgL_az00_1795 = BgL_az00_2933; 
{ /* ./Integrate/a.scm 395 */
BgL_nodez00_bglt BgL_arg4319z00_2828;obj_t BgL_arg4320z00_2829;
BgL_arg4319z00_2828 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1792))->BgL_valuez00); 
{ /* ./Integrate/a.scm 395 */
obj_t BgL_arg4324z00_2830;BgL_typez00_bglt BgL_arg4325z00_2831;
BgL_arg4324z00_2830 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 395 */
BgL_nodez00_bglt BgL_arg4329z00_2832;
BgL_arg4329z00_2832 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1792))->BgL_valuez00); 
BgL_arg4325z00_2831 = 
BGl_typeofz00zztype_typeofz00(BgL_arg4329z00_2832); } 
{ /* ./Integrate/a.scm 395 */
obj_t BgL_auxz00_3412;
BgL_auxz00_3412 = 
(obj_t)(BgL_arg4325z00_2831); 
BgL_arg4320z00_2829 = 
MAKE_PAIR(BgL_arg4324z00_2830, BgL_auxz00_3412); } } 
{ /* ./Integrate/a.scm 395 */
BgL_variablez00_bglt BgL_hostz00_2836;
BgL_hostz00_2836 = 
(BgL_variablez00_bglt)(BgL_hostz00_1793); 
{ /* ./Integrate/a.scm 395 */
obj_t BgL_method2956z00_2839;
{ /* ./Integrate/a.scm 395 */
BgL_objectz00_bglt BgL_objz00_2840;
BgL_objz00_2840 = 
(BgL_objectz00_bglt)(BgL_arg4319z00_2828); 
{ /* ./Integrate/a.scm 395 */
long BgL_objzd2classzd2numz00_2841;
BgL_objzd2classzd2numz00_2841 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2840); 
{ /* ./Integrate/a.scm 395 */
obj_t BgL_arg2017z00_2842;
{ /* ./Integrate/a.scm 395 */
int BgL_auxz00_3418;
BgL_auxz00_3418 = 
(int)(((long)1)); 
BgL_arg2017z00_2842 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3418); } 
{ /* ./Integrate/a.scm 395 */
int BgL_offsetz00_2845;
BgL_offsetz00_2845 = 
(int)(BgL_objzd2classzd2numz00_2841); 
{ /* ./Integrate/a.scm 395 */
long BgL_offsetz00_2846;
{ /* ./Integrate/a.scm 395 */
long BgL_auxz00_3422;
BgL_auxz00_3422 = 
(long)(BgL_offsetz00_2845); 
BgL_offsetz00_2846 = 
(BgL_auxz00_3422-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 395 */
long BgL_modz00_2847;
{ /* ./Integrate/a.scm 395 */
int BgL_arg2028z00_2848;
BgL_arg2028z00_2848 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 395 */
long BgL_n2z00_2856;
BgL_n2z00_2856 = 
(long)(BgL_arg2028z00_2848); 
BgL_modz00_2847 = 
(BgL_offsetz00_2846/BgL_n2z00_2856); } } 
{ /* ./Integrate/a.scm 395 */
long BgL_restz00_2849;
{ /* ./Integrate/a.scm 395 */
int BgL_arg2024z00_2850;
BgL_arg2024z00_2850 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 395 */
long BgL_n2z00_2859;
BgL_n2z00_2859 = 
(long)(BgL_arg2024z00_2850); 
BgL_restz00_2849 = 
(BgL_offsetz00_2846%BgL_n2z00_2859); } } 
{ /* ./Integrate/a.scm 395 */

{ /* ./Integrate/a.scm 395 */
obj_t BgL_bucketz00_2851;
{ /* ./Integrate/a.scm 395 */
int BgL_kz00_2861;
BgL_kz00_2861 = 
(int)(BgL_modz00_2847); 
BgL_bucketz00_2851 = 
VECTOR_REF(BgL_arg2017z00_2842,BgL_kz00_2861); } 
{ /* ./Integrate/a.scm 395 */
int BgL_kz00_2863;
BgL_kz00_2863 = 
(int)(BgL_restz00_2849); 
BgL_method2956z00_2839 = 
VECTOR_REF(BgL_bucketz00_2851,BgL_kz00_2863); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2839)(BgL_method2956z00_2839, 
(obj_t)(BgL_arg4319z00_2828), 
(obj_t)(BgL_hostz00_2836), BgL_arg4320z00_2829, BgL_az00_1795, BEOA);} } } } } 
}



/* node-A-make-box3000 */
obj_t BGl_nodezd2Azd2makezd2box3000zd2zzintegrate_az00(obj_t BgL_envz00_2934, obj_t BgL_nodez00_2935, obj_t BgL_hostz00_2936, obj_t BgL_kz00_2937, obj_t BgL_az00_2938)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 387 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1778;obj_t BgL_hostz00_1779;obj_t BgL_kz00_1780;obj_t BgL_az00_1781;
BgL_nodez00_1778 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2935); 
BgL_hostz00_1779 = BgL_hostz00_2936; 
BgL_kz00_1780 = BgL_kz00_2937; 
BgL_az00_1781 = BgL_az00_2938; 
{ /* ./Integrate/a.scm 388 */
BgL_nodez00_bglt BgL_arg4299z00_2791;obj_t BgL_arg4300z00_2792;
BgL_arg4299z00_2791 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1778))->BgL_valuez00); 
{ /* ./Integrate/a.scm 388 */
obj_t BgL_arg4304z00_2793;BgL_typez00_bglt BgL_arg4305z00_2794;
BgL_arg4304z00_2793 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 388 */
BgL_nodez00_bglt BgL_arg4309z00_2795;
BgL_arg4309z00_2795 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1778))->BgL_valuez00); 
BgL_arg4305z00_2794 = 
BGl_typeofz00zztype_typeofz00(BgL_arg4309z00_2795); } 
{ /* ./Integrate/a.scm 388 */
obj_t BgL_auxz00_3444;
BgL_auxz00_3444 = 
(obj_t)(BgL_arg4305z00_2794); 
BgL_arg4300z00_2792 = 
MAKE_PAIR(BgL_arg4304z00_2793, BgL_auxz00_3444); } } 
{ /* ./Integrate/a.scm 388 */
BgL_variablez00_bglt BgL_hostz00_2799;
BgL_hostz00_2799 = 
(BgL_variablez00_bglt)(BgL_hostz00_1779); 
{ /* ./Integrate/a.scm 388 */
obj_t BgL_method2956z00_2802;
{ /* ./Integrate/a.scm 388 */
BgL_objectz00_bglt BgL_objz00_2803;
BgL_objz00_2803 = 
(BgL_objectz00_bglt)(BgL_arg4299z00_2791); 
{ /* ./Integrate/a.scm 388 */
long BgL_objzd2classzd2numz00_2804;
BgL_objzd2classzd2numz00_2804 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2803); 
{ /* ./Integrate/a.scm 388 */
obj_t BgL_arg2017z00_2805;
{ /* ./Integrate/a.scm 388 */
int BgL_auxz00_3450;
BgL_auxz00_3450 = 
(int)(((long)1)); 
BgL_arg2017z00_2805 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3450); } 
{ /* ./Integrate/a.scm 388 */
int BgL_offsetz00_2808;
BgL_offsetz00_2808 = 
(int)(BgL_objzd2classzd2numz00_2804); 
{ /* ./Integrate/a.scm 388 */
long BgL_offsetz00_2809;
{ /* ./Integrate/a.scm 388 */
long BgL_auxz00_3454;
BgL_auxz00_3454 = 
(long)(BgL_offsetz00_2808); 
BgL_offsetz00_2809 = 
(BgL_auxz00_3454-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 388 */
long BgL_modz00_2810;
{ /* ./Integrate/a.scm 388 */
int BgL_arg2028z00_2811;
BgL_arg2028z00_2811 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 388 */
long BgL_n2z00_2819;
BgL_n2z00_2819 = 
(long)(BgL_arg2028z00_2811); 
BgL_modz00_2810 = 
(BgL_offsetz00_2809/BgL_n2z00_2819); } } 
{ /* ./Integrate/a.scm 388 */
long BgL_restz00_2812;
{ /* ./Integrate/a.scm 388 */
int BgL_arg2024z00_2813;
BgL_arg2024z00_2813 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 388 */
long BgL_n2z00_2822;
BgL_n2z00_2822 = 
(long)(BgL_arg2024z00_2813); 
BgL_restz00_2812 = 
(BgL_offsetz00_2809%BgL_n2z00_2822); } } 
{ /* ./Integrate/a.scm 388 */

{ /* ./Integrate/a.scm 388 */
obj_t BgL_bucketz00_2814;
{ /* ./Integrate/a.scm 388 */
int BgL_kz00_2824;
BgL_kz00_2824 = 
(int)(BgL_modz00_2810); 
BgL_bucketz00_2814 = 
VECTOR_REF(BgL_arg2017z00_2805,BgL_kz00_2824); } 
{ /* ./Integrate/a.scm 388 */
int BgL_kz00_2826;
BgL_kz00_2826 = 
(int)(BgL_restz00_2812); 
BgL_method2956z00_2802 = 
VECTOR_REF(BgL_bucketz00_2814,BgL_kz00_2826); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2802)(BgL_method2956z00_2802, 
(obj_t)(BgL_arg4299z00_2791), 
(obj_t)(BgL_hostz00_2799), BgL_arg4300z00_2792, BgL_az00_1781, BEOA);} } } } } 
}



/* node-A-jump-ex-it2998 */
obj_t BGl_nodezd2Azd2jumpzd2exzd2it2998z00zzintegrate_az00(obj_t BgL_envz00_2939, obj_t BgL_nodez00_2940, obj_t BgL_hostz00_2941, obj_t BgL_kz00_2942, obj_t BgL_az00_2943)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 377 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1758;obj_t BgL_hostz00_1759;obj_t BgL_kz00_1760;obj_t BgL_az00_1761;
BgL_nodez00_1758 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2940); 
BgL_hostz00_1759 = BgL_hostz00_2941; 
BgL_kz00_1760 = BgL_kz00_2942; 
BgL_az00_1761 = BgL_az00_2943; 
{ /* ./Integrate/a.scm 379 */
BgL_nodez00_bglt BgL_arg4264z00_1765;obj_t BgL_arg4265z00_1766;obj_t BgL_arg4266z00_1767;
BgL_arg4264z00_1765 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1758))->BgL_exitz00); 
{ /* ./Integrate/a.scm 381 */
obj_t BgL_arg4270z00_1768;BgL_typez00_bglt BgL_arg4271z00_1769;
BgL_arg4270z00_1768 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 381 */
BgL_nodez00_bglt BgL_arg4275z00_1770;
BgL_arg4275z00_1770 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1758))->BgL_exitz00); 
BgL_arg4271z00_1769 = 
BGl_typeofz00zztype_typeofz00(BgL_arg4275z00_1770); } 
{ /* ./Integrate/a.scm 381 */
obj_t BgL_auxz00_3476;
BgL_auxz00_3476 = 
(obj_t)(BgL_arg4271z00_1769); 
BgL_arg4265z00_1766 = 
MAKE_PAIR(BgL_arg4270z00_1768, BgL_auxz00_3476); } } 
{ /* ./Integrate/a.scm 382 */
BgL_nodez00_bglt BgL_arg4279z00_1771;obj_t BgL_arg4280z00_1772;
BgL_arg4279z00_1771 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1758))->BgL_valuez00); 
{ /* ./Integrate/a.scm 382 */
obj_t BgL_arg4284z00_1773;BgL_typez00_bglt BgL_arg4285z00_1774;
BgL_arg4284z00_1773 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 382 */
BgL_nodez00_bglt BgL_arg4289z00_1775;
BgL_arg4289z00_1775 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1758))->BgL_valuez00); 
BgL_arg4285z00_1774 = 
BGl_typeofz00zztype_typeofz00(BgL_arg4289z00_1775); } 
{ /* ./Integrate/a.scm 382 */
obj_t BgL_auxz00_3483;
BgL_auxz00_3483 = 
(obj_t)(BgL_arg4285z00_1774); 
BgL_arg4280z00_1772 = 
MAKE_PAIR(BgL_arg4284z00_1773, BgL_auxz00_3483); } } 
{ /* ./Integrate/a.scm 382 */
BgL_variablez00_bglt BgL_hostz00_2733;
BgL_hostz00_2733 = 
(BgL_variablez00_bglt)(BgL_hostz00_1759); 
{ /* ./Integrate/a.scm 382 */
obj_t BgL_method2956z00_2736;
{ /* ./Integrate/a.scm 382 */
BgL_objectz00_bglt BgL_objz00_2737;
BgL_objz00_2737 = 
(BgL_objectz00_bglt)(BgL_arg4279z00_1771); 
{ /* ./Integrate/a.scm 382 */
long BgL_objzd2classzd2numz00_2738;
BgL_objzd2classzd2numz00_2738 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2737); 
{ /* ./Integrate/a.scm 382 */
obj_t BgL_arg2017z00_2739;
{ /* ./Integrate/a.scm 382 */
int BgL_auxz00_3489;
BgL_auxz00_3489 = 
(int)(((long)1)); 
BgL_arg2017z00_2739 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3489); } 
{ /* ./Integrate/a.scm 382 */
int BgL_offsetz00_2742;
BgL_offsetz00_2742 = 
(int)(BgL_objzd2classzd2numz00_2738); 
{ /* ./Integrate/a.scm 382 */
long BgL_offsetz00_2743;
{ /* ./Integrate/a.scm 382 */
long BgL_auxz00_3493;
BgL_auxz00_3493 = 
(long)(BgL_offsetz00_2742); 
BgL_offsetz00_2743 = 
(BgL_auxz00_3493-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 382 */
long BgL_modz00_2744;
{ /* ./Integrate/a.scm 382 */
int BgL_arg2028z00_2745;
BgL_arg2028z00_2745 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 382 */
long BgL_n2z00_2753;
BgL_n2z00_2753 = 
(long)(BgL_arg2028z00_2745); 
BgL_modz00_2744 = 
(BgL_offsetz00_2743/BgL_n2z00_2753); } } 
{ /* ./Integrate/a.scm 382 */
long BgL_restz00_2746;
{ /* ./Integrate/a.scm 382 */
int BgL_arg2024z00_2747;
BgL_arg2024z00_2747 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 382 */
long BgL_n2z00_2756;
BgL_n2z00_2756 = 
(long)(BgL_arg2024z00_2747); 
BgL_restz00_2746 = 
(BgL_offsetz00_2743%BgL_n2z00_2756); } } 
{ /* ./Integrate/a.scm 382 */

{ /* ./Integrate/a.scm 382 */
obj_t BgL_bucketz00_2748;
{ /* ./Integrate/a.scm 382 */
int BgL_kz00_2758;
BgL_kz00_2758 = 
(int)(BgL_modz00_2744); 
BgL_bucketz00_2748 = 
VECTOR_REF(BgL_arg2017z00_2739,BgL_kz00_2758); } 
{ /* ./Integrate/a.scm 382 */
int BgL_kz00_2760;
BgL_kz00_2760 = 
(int)(BgL_restz00_2746); 
BgL_method2956z00_2736 = 
VECTOR_REF(BgL_bucketz00_2748,BgL_kz00_2760); } } } } } } } } } } 
BgL_arg4266z00_1767 = 
PROCEDURE_ENTRY(BgL_method2956z00_2736)(BgL_method2956z00_2736, 
(obj_t)(BgL_arg4279z00_1771), 
(obj_t)(BgL_hostz00_2733), BgL_arg4280z00_1772, BgL_az00_1761, BEOA); } } } 
{ /* ./Integrate/a.scm 379 */
BgL_variablez00_bglt BgL_hostz00_2762;
BgL_hostz00_2762 = 
(BgL_variablez00_bglt)(BgL_hostz00_1759); 
{ /* ./Integrate/a.scm 379 */
obj_t BgL_method2956z00_2765;
{ /* ./Integrate/a.scm 379 */
BgL_objectz00_bglt BgL_objz00_2766;
BgL_objz00_2766 = 
(BgL_objectz00_bglt)(BgL_arg4264z00_1765); 
{ /* ./Integrate/a.scm 379 */
long BgL_objzd2classzd2numz00_2767;
BgL_objzd2classzd2numz00_2767 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2766); 
{ /* ./Integrate/a.scm 379 */
obj_t BgL_arg2017z00_2768;
{ /* ./Integrate/a.scm 379 */
int BgL_auxz00_3513;
BgL_auxz00_3513 = 
(int)(((long)1)); 
BgL_arg2017z00_2768 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3513); } 
{ /* ./Integrate/a.scm 379 */
int BgL_offsetz00_2771;
BgL_offsetz00_2771 = 
(int)(BgL_objzd2classzd2numz00_2767); 
{ /* ./Integrate/a.scm 379 */
long BgL_offsetz00_2772;
{ /* ./Integrate/a.scm 379 */
long BgL_auxz00_3517;
BgL_auxz00_3517 = 
(long)(BgL_offsetz00_2771); 
BgL_offsetz00_2772 = 
(BgL_auxz00_3517-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 379 */
long BgL_modz00_2773;
{ /* ./Integrate/a.scm 379 */
int BgL_arg2028z00_2774;
BgL_arg2028z00_2774 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 379 */
long BgL_n2z00_2782;
BgL_n2z00_2782 = 
(long)(BgL_arg2028z00_2774); 
BgL_modz00_2773 = 
(BgL_offsetz00_2772/BgL_n2z00_2782); } } 
{ /* ./Integrate/a.scm 379 */
long BgL_restz00_2775;
{ /* ./Integrate/a.scm 379 */
int BgL_arg2024z00_2776;
BgL_arg2024z00_2776 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 379 */
long BgL_n2z00_2785;
BgL_n2z00_2785 = 
(long)(BgL_arg2024z00_2776); 
BgL_restz00_2775 = 
(BgL_offsetz00_2772%BgL_n2z00_2785); } } 
{ /* ./Integrate/a.scm 379 */

{ /* ./Integrate/a.scm 379 */
obj_t BgL_bucketz00_2777;
{ /* ./Integrate/a.scm 379 */
int BgL_kz00_2787;
BgL_kz00_2787 = 
(int)(BgL_modz00_2773); 
BgL_bucketz00_2777 = 
VECTOR_REF(BgL_arg2017z00_2768,BgL_kz00_2787); } 
{ /* ./Integrate/a.scm 379 */
int BgL_kz00_2789;
BgL_kz00_2789 = 
(int)(BgL_restz00_2775); 
BgL_method2956z00_2765 = 
VECTOR_REF(BgL_bucketz00_2777,BgL_kz00_2789); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2765)(BgL_method2956z00_2765, 
(obj_t)(BgL_arg4264z00_1765), 
(obj_t)(BgL_hostz00_2762), BgL_arg4265z00_1766, BgL_arg4266z00_1767, BEOA);} } } } } 
}



/* node-A-set-ex-it2995 */
obj_t BGl_nodezd2Azd2setzd2exzd2it2995z00zzintegrate_az00(obj_t BgL_envz00_2944, obj_t BgL_nodez00_2945, obj_t BgL_hostz00_2946, obj_t BgL_kz00_2947, obj_t BgL_az00_2948)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 356 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1719;obj_t BgL_hostz00_1720;obj_t BgL_kz00_1721;obj_t BgL_az00_1722;
BgL_nodez00_1719 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2945); 
BgL_hostz00_1720 = BgL_hostz00_2946; 
BgL_kz00_1721 = BgL_kz00_2947; 
BgL_az00_1722 = BgL_az00_2948; 
{ /* ./Integrate/a.scm 362 */
BgL_variablez00_bglt BgL_exitz00_1726;
{ /* ./Integrate/a.scm 362 */
BgL_varz00_bglt BgL_arg4254z00_1755;
BgL_arg4254z00_1755 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1719))->BgL_varz00); 
BgL_exitz00_1726 = 
(((BgL_varz00_bglt)CREF(BgL_arg4254z00_1755))->BgL_variablez00); } 
{ /* ./Integrate/a.scm 362 */
obj_t BgL_hdlgz00_1727;
{ /* ./Integrate/a.scm 363 */
BgL_sexitz00_bglt BgL_obj1528z00_2690;
{ /* ./Integrate/a.scm 363 */
BgL_valuez00_bglt BgL_auxz00_3537;
BgL_auxz00_3537 = 
(((BgL_variablez00_bglt)CREF(BgL_exitz00_1726))->BgL_valuez00); 
BgL_obj1528z00_2690 = 
(BgL_sexitz00_bglt)(BgL_auxz00_3537); } 
BgL_hdlgz00_1727 = 
(((BgL_sexitz00_bglt)CREF(BgL_obj1528z00_2690))->BgL_handlerz00); } 
{ /* ./Integrate/a.scm 363 */

{ /* ./Integrate/a.scm 364 */
BgL_sexitz00_bglt BgL_obj2947z00_1728;
{ 
BgL_sexitz00_bglt BgL_auxz00_3541;
{ /* ./Integrate/a.scm 364 */
BgL_valuez00_bglt BgL_auxz00_3542;
BgL_auxz00_3542 = 
(((BgL_variablez00_bglt)CREF(BgL_exitz00_1726))->BgL_valuez00); 
BgL_auxz00_3541 = 
(BgL_sexitz00_bglt)(BgL_auxz00_3542); } 
BgL_obj2947z00_1728 = 
((BgL_sexitz00_bglt)BgL_auxz00_3541); } 
{ /* ./Integrate/a.scm 364 */
obj_t BgL_arg4184z00_1729;
BgL_arg4184z00_1729 = 
BGl_wideningzd2sexitzf2Iinfoz20zzintegrate_infoz00(BUNSPEC, BUNSPEC, ((bool_t)0), ((bool_t)0)); 
{ /* ./Integrate/a.scm 364 */
BgL_objectz00_bglt BgL_auxz00_3547;
BgL_auxz00_3547 = 
(BgL_objectz00_bglt)(BgL_obj2947z00_1728); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3547, BgL_arg4184z00_1729); } } 
{ /* ./Integrate/a.scm 364 */
long BgL_arg4188z00_1730;
BgL_arg4188z00_1730 = 
BGl_classzd2numzd2zz__objectz00(BGl_sexitzf2Iinfozf2zzintegrate_infoz00); 
{ /* ./Integrate/a.scm 364 */
BgL_objectz00_bglt BgL_objz00_2692;
BgL_objz00_2692 = 
(BgL_objectz00_bglt)(BgL_obj2947z00_1728); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2692, BgL_arg4188z00_1730); } } 
{ /* ./Integrate/a.scm 364 */
obj_t BgL_objz00_2694;
BgL_objz00_2694 = 
(obj_t)(BgL_obj2947z00_1728); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2694); BUNSPEC; } BgL_obj2947z00_1728; } 
{ /* ./Integrate/a.scm 365 */
bool_t BgL_test4193z00_1731;
{ /* ./Integrate/a.scm 365 */
BgL_sexitz00_bglt BgL_obj1531z00_2696;
{ /* ./Integrate/a.scm 365 */
BgL_valuez00_bglt BgL_auxz00_3555;
BgL_auxz00_3555 = 
(((BgL_variablez00_bglt)CREF(BgL_exitz00_1726))->BgL_valuez00); 
BgL_obj1531z00_2696 = 
(BgL_sexitz00_bglt)(BgL_auxz00_3555); } 
BgL_test4193z00_1731 = 
(((BgL_sexitz00_bglt)CREF(BgL_obj1531z00_2696))->BgL_detachedzf3zf3); } 
if(BgL_test4193z00_1731)
{ /* ./Integrate/a.scm 365 */
return BgL_az00_1722;}  else 
{ /* ./Integrate/a.scm 366 */
obj_t BgL_call1z00_1732;obj_t BgL_call2z00_1733;
{ /* ./Integrate/a.scm 366 */
obj_t BgL_arg4214z00_1741;
{ /* ./Integrate/a.scm 366 */
obj_t BgL_arg4217z00_1742;
{ /* ./Integrate/a.scm 366 */
obj_t BgL_arg4220z00_1743;
{ /* ./Integrate/a.scm 366 */
obj_t BgL_arg4224z00_1745;BgL_typez00_bglt BgL_arg4225z00_1746;
BgL_arg4224z00_1745 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
BgL_arg4225z00_1746 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_nodez00_1719)); 
{ /* ./Integrate/a.scm 366 */
obj_t BgL_auxz00_3563;
BgL_auxz00_3563 = 
(obj_t)(BgL_arg4225z00_1746); 
BgL_arg4220z00_1743 = 
MAKE_PAIR(BgL_arg4224z00_1745, BgL_auxz00_3563); } } 
BgL_arg4217z00_1742 = 
MAKE_PAIR(BgL_arg4220z00_1743, BNIL); } 
BgL_arg4214z00_1741 = 
MAKE_PAIR(BgL_hdlgz00_1727, BgL_arg4217z00_1742); } 
BgL_call1z00_1732 = 
MAKE_PAIR(BgL_hdlgz00_1727, BgL_arg4214z00_1741); } 
{ /* ./Integrate/a.scm 367 */
obj_t BgL_arg4230z00_1747;
{ /* ./Integrate/a.scm 367 */
obj_t BgL_arg4233z00_1748;
{ /* ./Integrate/a.scm 367 */
obj_t BgL_arg4236z00_1749;
{ /* ./Integrate/a.scm 367 */
obj_t BgL_arg4240z00_1751;BgL_typez00_bglt BgL_arg4241z00_1752;
BgL_arg4240z00_1751 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
BgL_arg4241z00_1752 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_nodez00_1719)); 
{ /* ./Integrate/a.scm 367 */
obj_t BgL_auxz00_3572;
BgL_auxz00_3572 = 
(obj_t)(BgL_arg4241z00_1752); 
BgL_arg4236z00_1749 = 
MAKE_PAIR(BgL_arg4240z00_1751, BgL_auxz00_3572); } } 
BgL_arg4233z00_1748 = 
MAKE_PAIR(BgL_arg4236z00_1749, BNIL); } 
BgL_arg4230z00_1747 = 
MAKE_PAIR(BgL_hdlgz00_1727, BgL_arg4233z00_1748); } 
BgL_call2z00_1733 = 
MAKE_PAIR(BgL_hdlgz00_1727, BgL_arg4230z00_1747); } 
{ /* ./Integrate/a.scm 368 */
BgL_nodez00_bglt BgL_arg4195z00_1734;obj_t BgL_arg4196z00_1735;obj_t BgL_arg4197z00_1736;
BgL_arg4195z00_1734 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1719))->BgL_bodyz00); 
{ /* ./Integrate/a.scm 370 */
obj_t BgL_arg4201z00_1737;BgL_typez00_bglt BgL_arg4202z00_1738;
BgL_arg4201z00_1737 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 370 */
BgL_nodez00_bglt BgL_arg4206z00_1739;
BgL_arg4206z00_1739 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1719))->BgL_bodyz00); 
BgL_arg4202z00_1738 = 
BGl_typeofz00zztype_typeofz00(BgL_arg4206z00_1739); } 
{ /* ./Integrate/a.scm 370 */
obj_t BgL_auxz00_3582;
BgL_auxz00_3582 = 
(obj_t)(BgL_arg4202z00_1738); 
BgL_arg4196z00_1735 = 
MAKE_PAIR(BgL_arg4201z00_1737, BgL_auxz00_3582); } } 
{ /* ./Integrate/a.scm 371 */
obj_t BgL_arg4210z00_1740;
BgL_arg4210z00_1740 = 
MAKE_PAIR(BgL_call2z00_1733, BgL_az00_1722); 
BgL_arg4197z00_1736 = 
MAKE_PAIR(BgL_call1z00_1732, BgL_arg4210z00_1740); } 
{ /* ./Integrate/a.scm 368 */
BgL_variablez00_bglt BgL_hostz00_2700;
BgL_hostz00_2700 = 
(BgL_variablez00_bglt)(BgL_hostz00_1720); 
{ /* ./Integrate/a.scm 368 */
obj_t BgL_method2956z00_2703;
{ /* ./Integrate/a.scm 368 */
BgL_objectz00_bglt BgL_objz00_2704;
BgL_objz00_2704 = 
(BgL_objectz00_bglt)(BgL_arg4195z00_1734); 
{ /* ./Integrate/a.scm 368 */
long BgL_objzd2classzd2numz00_2705;
BgL_objzd2classzd2numz00_2705 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2704); 
{ /* ./Integrate/a.scm 368 */
obj_t BgL_arg2017z00_2706;
{ /* ./Integrate/a.scm 368 */
int BgL_auxz00_3590;
BgL_auxz00_3590 = 
(int)(((long)1)); 
BgL_arg2017z00_2706 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3590); } 
{ /* ./Integrate/a.scm 368 */
int BgL_offsetz00_2709;
BgL_offsetz00_2709 = 
(int)(BgL_objzd2classzd2numz00_2705); 
{ /* ./Integrate/a.scm 368 */
long BgL_offsetz00_2710;
{ /* ./Integrate/a.scm 368 */
long BgL_auxz00_3594;
BgL_auxz00_3594 = 
(long)(BgL_offsetz00_2709); 
BgL_offsetz00_2710 = 
(BgL_auxz00_3594-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 368 */
long BgL_modz00_2711;
{ /* ./Integrate/a.scm 368 */
int BgL_arg2028z00_2712;
BgL_arg2028z00_2712 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 368 */
long BgL_n2z00_2720;
BgL_n2z00_2720 = 
(long)(BgL_arg2028z00_2712); 
BgL_modz00_2711 = 
(BgL_offsetz00_2710/BgL_n2z00_2720); } } 
{ /* ./Integrate/a.scm 368 */
long BgL_restz00_2713;
{ /* ./Integrate/a.scm 368 */
int BgL_arg2024z00_2714;
BgL_arg2024z00_2714 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 368 */
long BgL_n2z00_2723;
BgL_n2z00_2723 = 
(long)(BgL_arg2024z00_2714); 
BgL_restz00_2713 = 
(BgL_offsetz00_2710%BgL_n2z00_2723); } } 
{ /* ./Integrate/a.scm 368 */

{ /* ./Integrate/a.scm 368 */
obj_t BgL_bucketz00_2715;
{ /* ./Integrate/a.scm 368 */
int BgL_kz00_2725;
BgL_kz00_2725 = 
(int)(BgL_modz00_2711); 
BgL_bucketz00_2715 = 
VECTOR_REF(BgL_arg2017z00_2706,BgL_kz00_2725); } 
{ /* ./Integrate/a.scm 368 */
int BgL_kz00_2727;
BgL_kz00_2727 = 
(int)(BgL_restz00_2713); 
BgL_method2956z00_2703 = 
VECTOR_REF(BgL_bucketz00_2715,BgL_kz00_2727); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2703)(BgL_method2956z00_2703, 
(obj_t)(BgL_arg4195z00_1734), 
(obj_t)(BgL_hostz00_2700), BgL_arg4196z00_1735, BgL_arg4197z00_1736, BEOA);} } } } } } } } } } 
}



/* node-A-let-var2993 */
obj_t BGl_nodezd2Azd2letzd2var2993zd2zzintegrate_az00(obj_t BgL_envz00_2949, obj_t BgL_nodez00_2950, obj_t BgL_hostz00_2951, obj_t BgL_kz00_2952, obj_t BgL_az00_2953)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 337 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1693;obj_t BgL_hostz00_1694;obj_t BgL_kz00_1695;obj_t BgL_az00_1696;
BgL_nodez00_1693 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2950); 
BgL_hostz00_1694 = BgL_hostz00_2951; 
BgL_kz00_1695 = BgL_kz00_2952; 
BgL_az00_1696 = BgL_az00_2953; 
{ 
obj_t BgL_bindingsz00_1700;obj_t BgL_az00_1701;
{ /* ./Integrate/a.scm 339 */
obj_t BgL_arg4141z00_1703;
BgL_arg4141z00_1703 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1693))->BgL_bindingsz00); 
BgL_bindingsz00_1700 = BgL_arg4141z00_1703; 
BgL_az00_1701 = BgL_az00_1696; 
BgL_liipz00_1702:
{ /* ./Integrate/a.scm 341 */
bool_t BgL_test4144z00_1704;
BgL_test4144z00_1704 = 
NULLP(BgL_bindingsz00_1700); 
if(BgL_test4144z00_1704)
{ /* ./Integrate/a.scm 342 */
BgL_nodez00_bglt BgL_arg4146z00_1705;
BgL_arg4146z00_1705 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1693))->BgL_bodyz00); 
{ /* ./Integrate/a.scm 342 */
BgL_variablez00_bglt BgL_hostz00_2621;
BgL_hostz00_2621 = 
(BgL_variablez00_bglt)(BgL_hostz00_1694); 
{ /* ./Integrate/a.scm 342 */
obj_t BgL_method2956z00_2624;
{ /* ./Integrate/a.scm 342 */
BgL_objectz00_bglt BgL_objz00_2625;
BgL_objz00_2625 = 
(BgL_objectz00_bglt)(BgL_arg4146z00_1705); 
{ /* ./Integrate/a.scm 342 */
long BgL_objzd2classzd2numz00_2626;
BgL_objzd2classzd2numz00_2626 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2625); 
{ /* ./Integrate/a.scm 342 */
obj_t BgL_arg2017z00_2627;
{ /* ./Integrate/a.scm 342 */
int BgL_auxz00_3619;
BgL_auxz00_3619 = 
(int)(((long)1)); 
BgL_arg2017z00_2627 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3619); } 
{ /* ./Integrate/a.scm 342 */
int BgL_offsetz00_2630;
BgL_offsetz00_2630 = 
(int)(BgL_objzd2classzd2numz00_2626); 
{ /* ./Integrate/a.scm 342 */
long BgL_offsetz00_2631;
{ /* ./Integrate/a.scm 342 */
long BgL_auxz00_3623;
BgL_auxz00_3623 = 
(long)(BgL_offsetz00_2630); 
BgL_offsetz00_2631 = 
(BgL_auxz00_3623-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 342 */
long BgL_modz00_2632;
{ /* ./Integrate/a.scm 342 */
int BgL_arg2028z00_2633;
BgL_arg2028z00_2633 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 342 */
long BgL_n2z00_2641;
BgL_n2z00_2641 = 
(long)(BgL_arg2028z00_2633); 
BgL_modz00_2632 = 
(BgL_offsetz00_2631/BgL_n2z00_2641); } } 
{ /* ./Integrate/a.scm 342 */
long BgL_restz00_2634;
{ /* ./Integrate/a.scm 342 */
int BgL_arg2024z00_2635;
BgL_arg2024z00_2635 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 342 */
long BgL_n2z00_2644;
BgL_n2z00_2644 = 
(long)(BgL_arg2024z00_2635); 
BgL_restz00_2634 = 
(BgL_offsetz00_2631%BgL_n2z00_2644); } } 
{ /* ./Integrate/a.scm 342 */

{ /* ./Integrate/a.scm 342 */
obj_t BgL_bucketz00_2636;
{ /* ./Integrate/a.scm 342 */
int BgL_kz00_2646;
BgL_kz00_2646 = 
(int)(BgL_modz00_2632); 
BgL_bucketz00_2636 = 
VECTOR_REF(BgL_arg2017z00_2627,BgL_kz00_2646); } 
{ /* ./Integrate/a.scm 342 */
int BgL_kz00_2648;
BgL_kz00_2648 = 
(int)(BgL_restz00_2634); 
BgL_method2956z00_2624 = 
VECTOR_REF(BgL_bucketz00_2636,BgL_kz00_2648); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2624)(BgL_method2956z00_2624, 
(obj_t)(BgL_arg4146z00_1705), 
(obj_t)(BgL_hostz00_2621), BgL_kz00_1695, BgL_az00_1701, BEOA);} } }  else 
{ /* ./Integrate/a.scm 343 */
obj_t BgL_bindingz00_1706;
BgL_bindingz00_1706 = 
CAR(BgL_bindingsz00_1700); 
{ /* ./Integrate/a.scm 343 */
obj_t BgL_varz00_1707;
BgL_varz00_1707 = 
CAR(BgL_bindingz00_1706); 
{ /* ./Integrate/a.scm 344 */
obj_t BgL_valz00_1708;
BgL_valz00_1708 = 
CDR(BgL_bindingz00_1706); 
{ /* ./Integrate/a.scm 345 */

{ /* ./Integrate/a.scm 346 */
BgL_svarz00_bglt BgL_obj2944z00_1709;
{ 
BgL_svarz00_bglt BgL_auxz00_3643;
{ /* ./Integrate/a.scm 346 */
BgL_valuez00_bglt BgL_auxz00_3644;
{ /* ./Integrate/a.scm 346 */
BgL_variablez00_bglt BgL_obj1100z00_3048;
BgL_obj1100z00_3048 = 
(BgL_variablez00_bglt)(BgL_varz00_1707); 
BgL_auxz00_3644 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3048))->BgL_valuez00); } 
BgL_auxz00_3643 = 
(BgL_svarz00_bglt)(BgL_auxz00_3644); } 
BgL_obj2944z00_1709 = 
((BgL_svarz00_bglt)BgL_auxz00_3643); } 
{ /* ./Integrate/a.scm 346 */
obj_t BgL_arg4150z00_1710;
BgL_arg4150z00_1710 = 
BGl_wideningzd2svarzf2Iinfoz20zzintegrate_infoz00(BUNSPEC, BUNSPEC, ((bool_t)0), ((bool_t)0)); 
{ /* ./Integrate/a.scm 346 */
BgL_objectz00_bglt BgL_auxz00_3650;
BgL_auxz00_3650 = 
(BgL_objectz00_bglt)(BgL_obj2944z00_1709); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3650, BgL_arg4150z00_1710); } } 
{ /* ./Integrate/a.scm 346 */
long BgL_arg4154z00_1711;
BgL_arg4154z00_1711 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Iinfozf2zzintegrate_infoz00); 
{ /* ./Integrate/a.scm 346 */
BgL_objectz00_bglt BgL_objz00_2653;
BgL_objz00_2653 = 
(BgL_objectz00_bglt)(BgL_obj2944z00_1709); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2653, BgL_arg4154z00_1711); } } 
{ /* ./Integrate/a.scm 346 */
obj_t BgL_objz00_2655;
BgL_objz00_2655 = 
(obj_t)(BgL_obj2944z00_1709); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2655); BUNSPEC; } BgL_obj2944z00_1709; } 
{ /* ./Integrate/a.scm 347 */
obj_t BgL_arg4160z00_1712;obj_t BgL_arg4161z00_1713;
BgL_arg4160z00_1712 = 
CDR(BgL_bindingsz00_1700); 
{ /* ./Integrate/a.scm 350 */
obj_t BgL_arg4165z00_1714;
{ /* ./Integrate/a.scm 350 */
obj_t BgL_arg4168z00_1715;BgL_typez00_bglt BgL_arg4169z00_1716;
BgL_arg4168z00_1715 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 350 */
BgL_variablez00_bglt BgL_obj1097z00_2657;
BgL_obj1097z00_2657 = 
(BgL_variablez00_bglt)(BgL_varz00_1707); 
BgL_arg4169z00_1716 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2657))->BgL_typez00); } 
{ /* ./Integrate/a.scm 350 */
obj_t BgL_auxz00_3662;
BgL_auxz00_3662 = 
(obj_t)(BgL_arg4169z00_1716); 
BgL_arg4165z00_1714 = 
MAKE_PAIR(BgL_arg4168z00_1715, BgL_auxz00_3662); } } 
{ /* ./Integrate/a.scm 348 */
BgL_nodez00_bglt BgL_nodez00_2658;BgL_variablez00_bglt BgL_hostz00_2659;
BgL_nodez00_2658 = 
(BgL_nodez00_bglt)(BgL_valz00_1708); 
BgL_hostz00_2659 = 
(BgL_variablez00_bglt)(BgL_hostz00_1694); 
{ /* ./Integrate/a.scm 348 */
obj_t BgL_method2956z00_2662;
{ /* ./Integrate/a.scm 348 */
BgL_objectz00_bglt BgL_objz00_2663;
BgL_objz00_2663 = 
(BgL_objectz00_bglt)(BgL_nodez00_2658); 
{ /* ./Integrate/a.scm 348 */
long BgL_objzd2classzd2numz00_2664;
BgL_objzd2classzd2numz00_2664 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2663); 
{ /* ./Integrate/a.scm 348 */
obj_t BgL_arg2017z00_2665;
{ /* ./Integrate/a.scm 348 */
int BgL_auxz00_3669;
BgL_auxz00_3669 = 
(int)(((long)1)); 
BgL_arg2017z00_2665 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3669); } 
{ /* ./Integrate/a.scm 348 */
int BgL_offsetz00_2668;
BgL_offsetz00_2668 = 
(int)(BgL_objzd2classzd2numz00_2664); 
{ /* ./Integrate/a.scm 348 */
long BgL_offsetz00_2669;
{ /* ./Integrate/a.scm 348 */
long BgL_auxz00_3673;
BgL_auxz00_3673 = 
(long)(BgL_offsetz00_2668); 
BgL_offsetz00_2669 = 
(BgL_auxz00_3673-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 348 */
long BgL_modz00_2670;
{ /* ./Integrate/a.scm 348 */
int BgL_arg2028z00_2671;
BgL_arg2028z00_2671 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 348 */
long BgL_n2z00_2679;
BgL_n2z00_2679 = 
(long)(BgL_arg2028z00_2671); 
BgL_modz00_2670 = 
(BgL_offsetz00_2669/BgL_n2z00_2679); } } 
{ /* ./Integrate/a.scm 348 */
long BgL_restz00_2672;
{ /* ./Integrate/a.scm 348 */
int BgL_arg2024z00_2673;
BgL_arg2024z00_2673 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 348 */
long BgL_n2z00_2682;
BgL_n2z00_2682 = 
(long)(BgL_arg2024z00_2673); 
BgL_restz00_2672 = 
(BgL_offsetz00_2669%BgL_n2z00_2682); } } 
{ /* ./Integrate/a.scm 348 */

{ /* ./Integrate/a.scm 348 */
obj_t BgL_bucketz00_2674;
{ /* ./Integrate/a.scm 348 */
int BgL_kz00_2684;
BgL_kz00_2684 = 
(int)(BgL_modz00_2670); 
BgL_bucketz00_2674 = 
VECTOR_REF(BgL_arg2017z00_2665,BgL_kz00_2684); } 
{ /* ./Integrate/a.scm 348 */
int BgL_kz00_2686;
BgL_kz00_2686 = 
(int)(BgL_restz00_2672); 
BgL_method2956z00_2662 = 
VECTOR_REF(BgL_bucketz00_2674,BgL_kz00_2686); } } } } } } } } } } 
BgL_arg4161z00_1713 = 
PROCEDURE_ENTRY(BgL_method2956z00_2662)(BgL_method2956z00_2662, 
(obj_t)(BgL_nodez00_2658), 
(obj_t)(BgL_hostz00_2659), BgL_arg4165z00_1714, BgL_az00_1701, BEOA); } } } 
{ 
obj_t BgL_az00_3691;obj_t BgL_bindingsz00_3690;
BgL_bindingsz00_3690 = BgL_arg4160z00_1712; 
BgL_az00_3691 = BgL_arg4161z00_1713; 
BgL_az00_1701 = BgL_az00_3691; 
BgL_bindingsz00_1700 = BgL_bindingsz00_3690; 
goto BgL_liipz00_1702;} } } } } } } } } } } 
}



/* node-A-let-fun2991 */
obj_t BGl_nodezd2Azd2letzd2fun2991zd2zzintegrate_az00(obj_t BgL_envz00_2954, obj_t BgL_nodez00_2955, obj_t BgL_hostz00_2956, obj_t BgL_kz00_2957, obj_t BgL_az00_2958)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 316 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1662;obj_t BgL_hostz00_1663;obj_t BgL_kz00_1664;obj_t BgL_az00_1665;
BgL_nodez00_1662 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2955); 
BgL_hostz00_1663 = BgL_hostz00_2956; 
BgL_kz00_1664 = BgL_kz00_2957; 
BgL_az00_1665 = BgL_az00_2958; 
{ 
obj_t BgL_l2940z00_1669;
{ /* ./Integrate/a.scm 322 */
obj_t BgL_arg4085z00_1671;
BgL_arg4085z00_1671 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1662))->BgL_localsz00); 
BgL_l2940z00_1669 = BgL_arg4085z00_1671; 
BgL_forzd2each2941zd2_1670:
{ /* ./Integrate/a.scm 319 */
bool_t BgL_test4088z00_1672;
BgL_test4088z00_1672 = 
PAIRP(BgL_l2940z00_1669); 
if(BgL_test4088z00_1672)
{ /* ./Integrate/a.scm 319 */
{ /* ./Integrate/a.scm 320 */
obj_t BgL_fz00_1673;
BgL_fz00_1673 = 
CAR(BgL_l2940z00_1669); 
BGl_initializa7ezd2funz12z67zzintegrate_az00(
(BgL_variablez00_bglt)(BgL_fz00_1673), 
(BgL_variablez00_bglt)(BgL_hostz00_1663)); 
BGl_za2phiza2z00zzintegrate_az00 = 
MAKE_PAIR(BgL_fz00_1673, BGl_za2phiza2z00zzintegrate_az00); } 
{ /* ./Integrate/a.scm 319 */
obj_t BgL_arg4093z00_1674;
BgL_arg4093z00_1674 = 
CDR(BgL_l2940z00_1669); 
{ 
obj_t BgL_l2940z00_3702;
BgL_l2940z00_3702 = BgL_arg4093z00_1674; 
BgL_l2940z00_1669 = BgL_l2940z00_3702; 
goto BgL_forzd2each2941zd2_1670;} } }  else 
{ /* ./Integrate/a.scm 319 */((bool_t)1); } } } } 
{ 
obj_t BgL_localsz00_1675;obj_t BgL_az00_1676;
{ /* ./Integrate/a.scm 324 */
obj_t BgL_arg4098z00_1678;
BgL_arg4098z00_1678 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1662))->BgL_localsz00); 
BgL_localsz00_1675 = BgL_arg4098z00_1678; 
BgL_az00_1676 = BgL_az00_1665; 
BgL_liipz00_1677:
{ /* ./Integrate/a.scm 326 */
bool_t BgL_test4101z00_1679;
BgL_test4101z00_1679 = 
NULLP(BgL_localsz00_1675); 
if(BgL_test4101z00_1679)
{ /* ./Integrate/a.scm 327 */
BgL_nodez00_bglt BgL_arg4103z00_1680;
BgL_arg4103z00_1680 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1662))->BgL_bodyz00); 
{ /* ./Integrate/a.scm 327 */
BgL_variablez00_bglt BgL_hostz00_2553;
BgL_hostz00_2553 = 
(BgL_variablez00_bglt)(BgL_hostz00_1663); 
{ /* ./Integrate/a.scm 327 */
obj_t BgL_method2956z00_2556;
{ /* ./Integrate/a.scm 327 */
BgL_objectz00_bglt BgL_objz00_2557;
BgL_objz00_2557 = 
(BgL_objectz00_bglt)(BgL_arg4103z00_1680); 
{ /* ./Integrate/a.scm 327 */
long BgL_objzd2classzd2numz00_2558;
BgL_objzd2classzd2numz00_2558 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2557); 
{ /* ./Integrate/a.scm 327 */
obj_t BgL_arg2017z00_2559;
{ /* ./Integrate/a.scm 327 */
int BgL_auxz00_3710;
BgL_auxz00_3710 = 
(int)(((long)1)); 
BgL_arg2017z00_2559 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3710); } 
{ /* ./Integrate/a.scm 327 */
int BgL_offsetz00_2562;
BgL_offsetz00_2562 = 
(int)(BgL_objzd2classzd2numz00_2558); 
{ /* ./Integrate/a.scm 327 */
long BgL_offsetz00_2563;
{ /* ./Integrate/a.scm 327 */
long BgL_auxz00_3714;
BgL_auxz00_3714 = 
(long)(BgL_offsetz00_2562); 
BgL_offsetz00_2563 = 
(BgL_auxz00_3714-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 327 */
long BgL_modz00_2564;
{ /* ./Integrate/a.scm 327 */
int BgL_arg2028z00_2565;
BgL_arg2028z00_2565 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 327 */
long BgL_n2z00_2573;
BgL_n2z00_2573 = 
(long)(BgL_arg2028z00_2565); 
BgL_modz00_2564 = 
(BgL_offsetz00_2563/BgL_n2z00_2573); } } 
{ /* ./Integrate/a.scm 327 */
long BgL_restz00_2566;
{ /* ./Integrate/a.scm 327 */
int BgL_arg2024z00_2567;
BgL_arg2024z00_2567 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 327 */
long BgL_n2z00_2576;
BgL_n2z00_2576 = 
(long)(BgL_arg2024z00_2567); 
BgL_restz00_2566 = 
(BgL_offsetz00_2563%BgL_n2z00_2576); } } 
{ /* ./Integrate/a.scm 327 */

{ /* ./Integrate/a.scm 327 */
obj_t BgL_bucketz00_2568;
{ /* ./Integrate/a.scm 327 */
int BgL_kz00_2578;
BgL_kz00_2578 = 
(int)(BgL_modz00_2564); 
BgL_bucketz00_2568 = 
VECTOR_REF(BgL_arg2017z00_2559,BgL_kz00_2578); } 
{ /* ./Integrate/a.scm 327 */
int BgL_kz00_2580;
BgL_kz00_2580 = 
(int)(BgL_restz00_2566); 
BgL_method2956z00_2556 = 
VECTOR_REF(BgL_bucketz00_2568,BgL_kz00_2580); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2556)(BgL_method2956z00_2556, 
(obj_t)(BgL_arg4103z00_1680), 
(obj_t)(BgL_hostz00_2553), BgL_kz00_1664, BgL_az00_1676, BEOA);} } }  else 
{ /* ./Integrate/a.scm 328 */
obj_t BgL_arg4107z00_1681;obj_t BgL_arg4108z00_1682;
BgL_arg4107z00_1681 = 
CDR(BgL_localsz00_1675); 
{ /* ./Integrate/a.scm 329 */
obj_t BgL_arg4112z00_1683;obj_t BgL_arg4113z00_1684;obj_t BgL_arg4114z00_1685;
{ /* ./Integrate/a.scm 329 */
BgL_sfunz00_bglt BgL_obj1370z00_2584;
{ /* ./Integrate/a.scm 329 */
BgL_valuez00_bglt BgL_auxz00_3732;
{ /* ./Integrate/a.scm 329 */
BgL_variablez00_bglt BgL_obj1100z00_2583;
{ /* ./Integrate/a.scm 329 */
obj_t BgL_auxz00_3733;
BgL_auxz00_3733 = 
CAR(BgL_localsz00_1675); 
BgL_obj1100z00_2583 = 
(BgL_variablez00_bglt)(BgL_auxz00_3733); } 
BgL_auxz00_3732 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2583))->BgL_valuez00); } 
BgL_obj1370z00_2584 = 
(BgL_sfunz00_bglt)(BgL_auxz00_3732); } 
BgL_arg4112z00_1683 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2584))->BgL_bodyz00); } 
BgL_arg4113z00_1684 = 
CAR(BgL_localsz00_1675); 
{ /* ./Integrate/a.scm 331 */
obj_t BgL_arg4126z00_1688;BgL_typez00_bglt BgL_arg4127z00_1689;
BgL_arg4126z00_1688 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Integrate/a.scm 331 */
BgL_variablez00_bglt BgL_obj1097z00_2587;
{ /* ./Integrate/a.scm 331 */
obj_t BgL_auxz00_3741;
BgL_auxz00_3741 = 
CAR(BgL_localsz00_1675); 
BgL_obj1097z00_2587 = 
(BgL_variablez00_bglt)(BgL_auxz00_3741); } 
BgL_arg4127z00_1689 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2587))->BgL_typez00); } 
{ /* ./Integrate/a.scm 331 */
obj_t BgL_auxz00_3745;
BgL_auxz00_3745 = 
(obj_t)(BgL_arg4127z00_1689); 
BgL_arg4114z00_1685 = 
MAKE_PAIR(BgL_arg4126z00_1688, BgL_auxz00_3745); } } 
{ /* ./Integrate/a.scm 329 */
BgL_nodez00_bglt BgL_nodez00_2588;BgL_variablez00_bglt BgL_hostz00_2589;
BgL_nodez00_2588 = 
(BgL_nodez00_bglt)(BgL_arg4112z00_1683); 
BgL_hostz00_2589 = 
(BgL_variablez00_bglt)(BgL_arg4113z00_1684); 
{ /* ./Integrate/a.scm 329 */
obj_t BgL_method2956z00_2592;
{ /* ./Integrate/a.scm 329 */
BgL_objectz00_bglt BgL_objz00_2593;
BgL_objz00_2593 = 
(BgL_objectz00_bglt)(BgL_nodez00_2588); 
{ /* ./Integrate/a.scm 329 */
long BgL_objzd2classzd2numz00_2594;
BgL_objzd2classzd2numz00_2594 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2593); 
{ /* ./Integrate/a.scm 329 */
obj_t BgL_arg2017z00_2595;
{ /* ./Integrate/a.scm 329 */
int BgL_auxz00_3752;
BgL_auxz00_3752 = 
(int)(((long)1)); 
BgL_arg2017z00_2595 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3752); } 
{ /* ./Integrate/a.scm 329 */
int BgL_offsetz00_2598;
BgL_offsetz00_2598 = 
(int)(BgL_objzd2classzd2numz00_2594); 
{ /* ./Integrate/a.scm 329 */
long BgL_offsetz00_2599;
{ /* ./Integrate/a.scm 329 */
long BgL_auxz00_3756;
BgL_auxz00_3756 = 
(long)(BgL_offsetz00_2598); 
BgL_offsetz00_2599 = 
(BgL_auxz00_3756-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 329 */
long BgL_modz00_2600;
{ /* ./Integrate/a.scm 329 */
int BgL_arg2028z00_2601;
BgL_arg2028z00_2601 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 329 */
long BgL_n2z00_2609;
BgL_n2z00_2609 = 
(long)(BgL_arg2028z00_2601); 
BgL_modz00_2600 = 
(BgL_offsetz00_2599/BgL_n2z00_2609); } } 
{ /* ./Integrate/a.scm 329 */
long BgL_restz00_2602;
{ /* ./Integrate/a.scm 329 */
int BgL_arg2024z00_2603;
BgL_arg2024z00_2603 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 329 */
long BgL_n2z00_2612;
BgL_n2z00_2612 = 
(long)(BgL_arg2024z00_2603); 
BgL_restz00_2602 = 
(BgL_offsetz00_2599%BgL_n2z00_2612); } } 
{ /* ./Integrate/a.scm 329 */

{ /* ./Integrate/a.scm 329 */
obj_t BgL_bucketz00_2604;
{ /* ./Integrate/a.scm 329 */
int BgL_kz00_2614;
BgL_kz00_2614 = 
(int)(BgL_modz00_2600); 
BgL_bucketz00_2604 = 
VECTOR_REF(BgL_arg2017z00_2595,BgL_kz00_2614); } 
{ /* ./Integrate/a.scm 329 */
int BgL_kz00_2616;
BgL_kz00_2616 = 
(int)(BgL_restz00_2602); 
BgL_method2956z00_2592 = 
VECTOR_REF(BgL_bucketz00_2604,BgL_kz00_2616); } } } } } } } } } } 
BgL_arg4108z00_1682 = 
PROCEDURE_ENTRY(BgL_method2956z00_2592)(BgL_method2956z00_2592, 
(obj_t)(BgL_nodez00_2588), 
(obj_t)(BgL_hostz00_2589), BgL_arg4114z00_1685, BgL_az00_1676, BEOA); } } } 
{ 
obj_t BgL_az00_3774;obj_t BgL_localsz00_3773;
BgL_localsz00_3773 = BgL_arg4107z00_1681; 
BgL_az00_3774 = BgL_arg4108z00_1682; 
BgL_az00_1676 = BgL_az00_3774; 
BgL_localsz00_1675 = BgL_localsz00_3773; 
goto BgL_liipz00_1677;} } } } } } } 
}



/* node-A-select2989 */
obj_t BGl_nodezd2Azd2select2989z00zzintegrate_az00(obj_t BgL_envz00_2959, obj_t BgL_nodez00_2960, obj_t BgL_hostz00_2961, obj_t BgL_kz00_2962, obj_t BgL_az00_2963)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 301 */
{ 
BgL_selectz00_bglt BgL_nodez00_1639;obj_t BgL_hostz00_1640;obj_t BgL_kz00_1641;obj_t BgL_az00_1642;
BgL_nodez00_1639 = 
(BgL_selectz00_bglt)(BgL_nodez00_2960); 
BgL_hostz00_1640 = BgL_hostz00_2961; 
BgL_kz00_1641 = BgL_kz00_2962; 
BgL_az00_1642 = BgL_az00_2963; 
{ 
obj_t BgL_clausesz00_1646;obj_t BgL_az00_1647;
{ /* ./Integrate/a.scm 303 */
obj_t BgL_arg4049z00_1649;obj_t BgL_arg4050z00_1650;
BgL_arg4049z00_1649 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1639))->BgL_clausesz00); 
{ /* ./Integrate/a.scm 304 */
BgL_nodez00_bglt BgL_arg4054z00_1651;obj_t BgL_arg4055z00_1652;
BgL_arg4054z00_1651 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1639))->BgL_testz00); 
{ /* ./Integrate/a.scm 306 */
obj_t BgL_arg4059z00_1653;BgL_typez00_bglt BgL_arg4060z00_1654;
BgL_arg4059z00_1653 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
BgL_arg4060z00_1654 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1639))->BgL_itemzd2typezd2); 
{ /* ./Integrate/a.scm 306 */
obj_t BgL_auxz00_3780;
BgL_auxz00_3780 = 
(obj_t)(BgL_arg4060z00_1654); 
BgL_arg4055z00_1652 = 
MAKE_PAIR(BgL_arg4059z00_1653, BgL_auxz00_3780); } } 
{ /* ./Integrate/a.scm 304 */
BgL_variablez00_bglt BgL_hostz00_2484;
BgL_hostz00_2484 = 
(BgL_variablez00_bglt)(BgL_hostz00_1640); 
{ /* ./Integrate/a.scm 304 */
obj_t BgL_method2956z00_2487;
{ /* ./Integrate/a.scm 304 */
BgL_objectz00_bglt BgL_objz00_2488;
BgL_objz00_2488 = 
(BgL_objectz00_bglt)(BgL_arg4054z00_1651); 
{ /* ./Integrate/a.scm 304 */
long BgL_objzd2classzd2numz00_2489;
BgL_objzd2classzd2numz00_2489 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2488); 
{ /* ./Integrate/a.scm 304 */
obj_t BgL_arg2017z00_2490;
{ /* ./Integrate/a.scm 304 */
int BgL_auxz00_3786;
BgL_auxz00_3786 = 
(int)(((long)1)); 
BgL_arg2017z00_2490 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3786); } 
{ /* ./Integrate/a.scm 304 */
int BgL_offsetz00_2493;
BgL_offsetz00_2493 = 
(int)(BgL_objzd2classzd2numz00_2489); 
{ /* ./Integrate/a.scm 304 */
long BgL_offsetz00_2494;
{ /* ./Integrate/a.scm 304 */
long BgL_auxz00_3790;
BgL_auxz00_3790 = 
(long)(BgL_offsetz00_2493); 
BgL_offsetz00_2494 = 
(BgL_auxz00_3790-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 304 */
long BgL_modz00_2495;
{ /* ./Integrate/a.scm 304 */
int BgL_arg2028z00_2496;
BgL_arg2028z00_2496 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 304 */
long BgL_n2z00_2504;
BgL_n2z00_2504 = 
(long)(BgL_arg2028z00_2496); 
BgL_modz00_2495 = 
(BgL_offsetz00_2494/BgL_n2z00_2504); } } 
{ /* ./Integrate/a.scm 304 */
long BgL_restz00_2497;
{ /* ./Integrate/a.scm 304 */
int BgL_arg2024z00_2498;
BgL_arg2024z00_2498 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 304 */
long BgL_n2z00_2507;
BgL_n2z00_2507 = 
(long)(BgL_arg2024z00_2498); 
BgL_restz00_2497 = 
(BgL_offsetz00_2494%BgL_n2z00_2507); } } 
{ /* ./Integrate/a.scm 304 */

{ /* ./Integrate/a.scm 304 */
obj_t BgL_bucketz00_2499;
{ /* ./Integrate/a.scm 304 */
int BgL_kz00_2509;
BgL_kz00_2509 = 
(int)(BgL_modz00_2495); 
BgL_bucketz00_2499 = 
VECTOR_REF(BgL_arg2017z00_2490,BgL_kz00_2509); } 
{ /* ./Integrate/a.scm 304 */
int BgL_kz00_2511;
BgL_kz00_2511 = 
(int)(BgL_restz00_2497); 
BgL_method2956z00_2487 = 
VECTOR_REF(BgL_bucketz00_2499,BgL_kz00_2511); } } } } } } } } } } 
BgL_arg4050z00_1650 = 
PROCEDURE_ENTRY(BgL_method2956z00_2487)(BgL_method2956z00_2487, 
(obj_t)(BgL_arg4054z00_1651), 
(obj_t)(BgL_hostz00_2484), BgL_arg4055z00_1652, BgL_az00_1642, BEOA); } } } 
BgL_clausesz00_1646 = BgL_arg4049z00_1649; 
BgL_az00_1647 = BgL_arg4050z00_1650; 
BgL_liipz00_1648:
{ /* ./Integrate/a.scm 308 */
bool_t BgL_test4064z00_1655;
BgL_test4064z00_1655 = 
NULLP(BgL_clausesz00_1646); 
if(BgL_test4064z00_1655)
{ /* ./Integrate/a.scm 308 */
return BgL_az00_1647;}  else 
{ /* ./Integrate/a.scm 310 */
obj_t BgL_arg4066z00_1656;obj_t BgL_arg4067z00_1657;
BgL_arg4066z00_1656 = 
CDR(BgL_clausesz00_1646); 
{ /* ./Integrate/a.scm 311 */
obj_t BgL_arg4071z00_1658;
{ /* ./Integrate/a.scm 311 */
obj_t BgL_auxz00_3810;
BgL_auxz00_3810 = 
CAR(BgL_clausesz00_1646); 
BgL_arg4071z00_1658 = 
CDR(BgL_auxz00_3810); } 
{ /* ./Integrate/a.scm 311 */
BgL_nodez00_bglt BgL_nodez00_2516;BgL_variablez00_bglt BgL_hostz00_2517;
BgL_nodez00_2516 = 
(BgL_nodez00_bglt)(BgL_arg4071z00_1658); 
BgL_hostz00_2517 = 
(BgL_variablez00_bglt)(BgL_hostz00_1640); 
{ /* ./Integrate/a.scm 311 */
obj_t BgL_method2956z00_2520;
{ /* ./Integrate/a.scm 311 */
BgL_objectz00_bglt BgL_objz00_2521;
BgL_objz00_2521 = 
(BgL_objectz00_bglt)(BgL_nodez00_2516); 
{ /* ./Integrate/a.scm 311 */
long BgL_objzd2classzd2numz00_2522;
BgL_objzd2classzd2numz00_2522 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2521); 
{ /* ./Integrate/a.scm 311 */
obj_t BgL_arg2017z00_2523;
{ /* ./Integrate/a.scm 311 */
int BgL_auxz00_3817;
BgL_auxz00_3817 = 
(int)(((long)1)); 
BgL_arg2017z00_2523 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3817); } 
{ /* ./Integrate/a.scm 311 */
int BgL_offsetz00_2526;
BgL_offsetz00_2526 = 
(int)(BgL_objzd2classzd2numz00_2522); 
{ /* ./Integrate/a.scm 311 */
long BgL_offsetz00_2527;
{ /* ./Integrate/a.scm 311 */
long BgL_auxz00_3821;
BgL_auxz00_3821 = 
(long)(BgL_offsetz00_2526); 
BgL_offsetz00_2527 = 
(BgL_auxz00_3821-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 311 */
long BgL_modz00_2528;
{ /* ./Integrate/a.scm 311 */
int BgL_arg2028z00_2529;
BgL_arg2028z00_2529 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 311 */
long BgL_n2z00_2537;
BgL_n2z00_2537 = 
(long)(BgL_arg2028z00_2529); 
BgL_modz00_2528 = 
(BgL_offsetz00_2527/BgL_n2z00_2537); } } 
{ /* ./Integrate/a.scm 311 */
long BgL_restz00_2530;
{ /* ./Integrate/a.scm 311 */
int BgL_arg2024z00_2531;
BgL_arg2024z00_2531 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 311 */
long BgL_n2z00_2540;
BgL_n2z00_2540 = 
(long)(BgL_arg2024z00_2531); 
BgL_restz00_2530 = 
(BgL_offsetz00_2527%BgL_n2z00_2540); } } 
{ /* ./Integrate/a.scm 311 */

{ /* ./Integrate/a.scm 311 */
obj_t BgL_bucketz00_2532;
{ /* ./Integrate/a.scm 311 */
int BgL_kz00_2542;
BgL_kz00_2542 = 
(int)(BgL_modz00_2528); 
BgL_bucketz00_2532 = 
VECTOR_REF(BgL_arg2017z00_2523,BgL_kz00_2542); } 
{ /* ./Integrate/a.scm 311 */
int BgL_kz00_2544;
BgL_kz00_2544 = 
(int)(BgL_restz00_2530); 
BgL_method2956z00_2520 = 
VECTOR_REF(BgL_bucketz00_2532,BgL_kz00_2544); } } } } } } } } } } 
BgL_arg4067z00_1657 = 
PROCEDURE_ENTRY(BgL_method2956z00_2520)(BgL_method2956z00_2520, 
(obj_t)(BgL_nodez00_2516), 
(obj_t)(BgL_hostz00_2517), BgL_kz00_1641, BgL_az00_1647, BEOA); } } } 
{ 
obj_t BgL_az00_3839;obj_t BgL_clausesz00_3838;
BgL_clausesz00_3838 = BgL_arg4066z00_1656; 
BgL_az00_3839 = BgL_arg4067z00_1657; 
BgL_az00_1647 = BgL_az00_3839; 
BgL_clausesz00_1646 = BgL_clausesz00_3838; 
goto BgL_liipz00_1648;} } } } } } } 
}



/* node-A-fail2987 */
obj_t BGl_nodezd2Azd2fail2987z00zzintegrate_az00(obj_t BgL_envz00_2964, obj_t BgL_nodez00_2965, obj_t BgL_hostz00_2966, obj_t BgL_kz00_2967, obj_t BgL_az00_2968)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 285 */
{ 
BgL_failz00_bglt BgL_nodez00_1614;obj_t BgL_hostz00_1615;obj_t BgL_kz00_1616;obj_t BgL_az00_1617;
BgL_nodez00_1614 = 
(BgL_failz00_bglt)(BgL_nodez00_2965); 
BgL_hostz00_1615 = BgL_hostz00_2966; 
BgL_kz00_1616 = BgL_kz00_2967; 
BgL_az00_1617 = BgL_az00_2968; 
{ /* ./Integrate/a.scm 287 */
BgL_nodez00_bglt BgL_arg4002z00_1621;obj_t BgL_arg4003z00_1622;obj_t BgL_arg4004z00_1623;
BgL_arg4002z00_1621 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1614))->BgL_procz00); 
{ /* ./Integrate/a.scm 289 */
obj_t BgL_arg4008z00_1624;BgL_nodez00_bglt BgL_arg4009z00_1625;
BgL_arg4008z00_1624 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
BgL_arg4009z00_1625 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1614))->BgL_procz00); 
{ /* ./Integrate/a.scm 289 */
obj_t BgL_auxz00_3844;
BgL_auxz00_3844 = 
(obj_t)(BgL_arg4009z00_1625); 
BgL_arg4003z00_1622 = 
MAKE_PAIR(BgL_arg4008z00_1624, BgL_auxz00_3844); } } 
{ /* ./Integrate/a.scm 290 */
BgL_nodez00_bglt BgL_arg4014z00_1626;obj_t BgL_arg4015z00_1627;obj_t BgL_arg4016z00_1628;
BgL_arg4014z00_1626 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1614))->BgL_msgz00); 
{ /* ./Integrate/a.scm 292 */
obj_t BgL_arg4020z00_1629;BgL_typez00_bglt BgL_arg4021z00_1630;
BgL_arg4020z00_1629 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 292 */
BgL_nodez00_bglt BgL_arg4025z00_1631;
BgL_arg4025z00_1631 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1614))->BgL_msgz00); 
BgL_arg4021z00_1630 = 
BGl_typeofz00zztype_typeofz00(BgL_arg4025z00_1631); } 
{ /* ./Integrate/a.scm 292 */
obj_t BgL_auxz00_3851;
BgL_auxz00_3851 = 
(obj_t)(BgL_arg4021z00_1630); 
BgL_arg4015z00_1627 = 
MAKE_PAIR(BgL_arg4020z00_1629, BgL_auxz00_3851); } } 
{ /* ./Integrate/a.scm 293 */
BgL_nodez00_bglt BgL_arg4029z00_1632;obj_t BgL_arg4030z00_1633;
BgL_arg4029z00_1632 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1614))->BgL_objz00); 
{ /* ./Integrate/a.scm 295 */
obj_t BgL_arg4034z00_1634;BgL_typez00_bglt BgL_arg4035z00_1635;
BgL_arg4034z00_1634 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 295 */
BgL_nodez00_bglt BgL_arg4039z00_1636;
BgL_arg4039z00_1636 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1614))->BgL_objz00); 
BgL_arg4035z00_1635 = 
BGl_typeofz00zztype_typeofz00(BgL_arg4039z00_1636); } 
{ /* ./Integrate/a.scm 295 */
obj_t BgL_auxz00_3858;
BgL_auxz00_3858 = 
(obj_t)(BgL_arg4035z00_1635); 
BgL_arg4030z00_1633 = 
MAKE_PAIR(BgL_arg4034z00_1634, BgL_auxz00_3858); } } 
{ /* ./Integrate/a.scm 293 */
BgL_variablez00_bglt BgL_hostz00_2394;
BgL_hostz00_2394 = 
(BgL_variablez00_bglt)(BgL_hostz00_1615); 
{ /* ./Integrate/a.scm 293 */
obj_t BgL_method2956z00_2397;
{ /* ./Integrate/a.scm 293 */
BgL_objectz00_bglt BgL_objz00_2398;
BgL_objz00_2398 = 
(BgL_objectz00_bglt)(BgL_arg4029z00_1632); 
{ /* ./Integrate/a.scm 293 */
long BgL_objzd2classzd2numz00_2399;
BgL_objzd2classzd2numz00_2399 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2398); 
{ /* ./Integrate/a.scm 293 */
obj_t BgL_arg2017z00_2400;
{ /* ./Integrate/a.scm 293 */
int BgL_auxz00_3864;
BgL_auxz00_3864 = 
(int)(((long)1)); 
BgL_arg2017z00_2400 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3864); } 
{ /* ./Integrate/a.scm 293 */
int BgL_offsetz00_2403;
BgL_offsetz00_2403 = 
(int)(BgL_objzd2classzd2numz00_2399); 
{ /* ./Integrate/a.scm 293 */
long BgL_offsetz00_2404;
{ /* ./Integrate/a.scm 293 */
long BgL_auxz00_3868;
BgL_auxz00_3868 = 
(long)(BgL_offsetz00_2403); 
BgL_offsetz00_2404 = 
(BgL_auxz00_3868-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 293 */
long BgL_modz00_2405;
{ /* ./Integrate/a.scm 293 */
int BgL_arg2028z00_2406;
BgL_arg2028z00_2406 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 293 */
long BgL_n2z00_2414;
BgL_n2z00_2414 = 
(long)(BgL_arg2028z00_2406); 
BgL_modz00_2405 = 
(BgL_offsetz00_2404/BgL_n2z00_2414); } } 
{ /* ./Integrate/a.scm 293 */
long BgL_restz00_2407;
{ /* ./Integrate/a.scm 293 */
int BgL_arg2024z00_2408;
BgL_arg2024z00_2408 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 293 */
long BgL_n2z00_2417;
BgL_n2z00_2417 = 
(long)(BgL_arg2024z00_2408); 
BgL_restz00_2407 = 
(BgL_offsetz00_2404%BgL_n2z00_2417); } } 
{ /* ./Integrate/a.scm 293 */

{ /* ./Integrate/a.scm 293 */
obj_t BgL_bucketz00_2409;
{ /* ./Integrate/a.scm 293 */
int BgL_kz00_2419;
BgL_kz00_2419 = 
(int)(BgL_modz00_2405); 
BgL_bucketz00_2409 = 
VECTOR_REF(BgL_arg2017z00_2400,BgL_kz00_2419); } 
{ /* ./Integrate/a.scm 293 */
int BgL_kz00_2421;
BgL_kz00_2421 = 
(int)(BgL_restz00_2407); 
BgL_method2956z00_2397 = 
VECTOR_REF(BgL_bucketz00_2409,BgL_kz00_2421); } } } } } } } } } } 
BgL_arg4016z00_1628 = 
PROCEDURE_ENTRY(BgL_method2956z00_2397)(BgL_method2956z00_2397, 
(obj_t)(BgL_arg4029z00_1632), 
(obj_t)(BgL_hostz00_2394), BgL_arg4030z00_1633, BgL_az00_1617, BEOA); } } } 
{ /* ./Integrate/a.scm 290 */
BgL_variablez00_bglt BgL_hostz00_2423;
BgL_hostz00_2423 = 
(BgL_variablez00_bglt)(BgL_hostz00_1615); 
{ /* ./Integrate/a.scm 290 */
obj_t BgL_method2956z00_2426;
{ /* ./Integrate/a.scm 290 */
BgL_objectz00_bglt BgL_objz00_2427;
BgL_objz00_2427 = 
(BgL_objectz00_bglt)(BgL_arg4014z00_1626); 
{ /* ./Integrate/a.scm 290 */
long BgL_objzd2classzd2numz00_2428;
BgL_objzd2classzd2numz00_2428 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2427); 
{ /* ./Integrate/a.scm 290 */
obj_t BgL_arg2017z00_2429;
{ /* ./Integrate/a.scm 290 */
int BgL_auxz00_3888;
BgL_auxz00_3888 = 
(int)(((long)1)); 
BgL_arg2017z00_2429 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3888); } 
{ /* ./Integrate/a.scm 290 */
int BgL_offsetz00_2432;
BgL_offsetz00_2432 = 
(int)(BgL_objzd2classzd2numz00_2428); 
{ /* ./Integrate/a.scm 290 */
long BgL_offsetz00_2433;
{ /* ./Integrate/a.scm 290 */
long BgL_auxz00_3892;
BgL_auxz00_3892 = 
(long)(BgL_offsetz00_2432); 
BgL_offsetz00_2433 = 
(BgL_auxz00_3892-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 290 */
long BgL_modz00_2434;
{ /* ./Integrate/a.scm 290 */
int BgL_arg2028z00_2435;
BgL_arg2028z00_2435 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 290 */
long BgL_n2z00_2443;
BgL_n2z00_2443 = 
(long)(BgL_arg2028z00_2435); 
BgL_modz00_2434 = 
(BgL_offsetz00_2433/BgL_n2z00_2443); } } 
{ /* ./Integrate/a.scm 290 */
long BgL_restz00_2436;
{ /* ./Integrate/a.scm 290 */
int BgL_arg2024z00_2437;
BgL_arg2024z00_2437 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 290 */
long BgL_n2z00_2446;
BgL_n2z00_2446 = 
(long)(BgL_arg2024z00_2437); 
BgL_restz00_2436 = 
(BgL_offsetz00_2433%BgL_n2z00_2446); } } 
{ /* ./Integrate/a.scm 290 */

{ /* ./Integrate/a.scm 290 */
obj_t BgL_bucketz00_2438;
{ /* ./Integrate/a.scm 290 */
int BgL_kz00_2448;
BgL_kz00_2448 = 
(int)(BgL_modz00_2434); 
BgL_bucketz00_2438 = 
VECTOR_REF(BgL_arg2017z00_2429,BgL_kz00_2448); } 
{ /* ./Integrate/a.scm 290 */
int BgL_kz00_2450;
BgL_kz00_2450 = 
(int)(BgL_restz00_2436); 
BgL_method2956z00_2426 = 
VECTOR_REF(BgL_bucketz00_2438,BgL_kz00_2450); } } } } } } } } } } 
BgL_arg4004z00_1623 = 
PROCEDURE_ENTRY(BgL_method2956z00_2426)(BgL_method2956z00_2426, 
(obj_t)(BgL_arg4014z00_1626), 
(obj_t)(BgL_hostz00_2423), BgL_arg4015z00_1627, BgL_arg4016z00_1628, BEOA); } } } 
{ /* ./Integrate/a.scm 287 */
BgL_variablez00_bglt BgL_hostz00_2452;
BgL_hostz00_2452 = 
(BgL_variablez00_bglt)(BgL_hostz00_1615); 
{ /* ./Integrate/a.scm 287 */
obj_t BgL_method2956z00_2455;
{ /* ./Integrate/a.scm 287 */
BgL_objectz00_bglt BgL_objz00_2456;
BgL_objz00_2456 = 
(BgL_objectz00_bglt)(BgL_arg4002z00_1621); 
{ /* ./Integrate/a.scm 287 */
long BgL_objzd2classzd2numz00_2457;
BgL_objzd2classzd2numz00_2457 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2456); 
{ /* ./Integrate/a.scm 287 */
obj_t BgL_arg2017z00_2458;
{ /* ./Integrate/a.scm 287 */
int BgL_auxz00_3912;
BgL_auxz00_3912 = 
(int)(((long)1)); 
BgL_arg2017z00_2458 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3912); } 
{ /* ./Integrate/a.scm 287 */
int BgL_offsetz00_2461;
BgL_offsetz00_2461 = 
(int)(BgL_objzd2classzd2numz00_2457); 
{ /* ./Integrate/a.scm 287 */
long BgL_offsetz00_2462;
{ /* ./Integrate/a.scm 287 */
long BgL_auxz00_3916;
BgL_auxz00_3916 = 
(long)(BgL_offsetz00_2461); 
BgL_offsetz00_2462 = 
(BgL_auxz00_3916-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 287 */
long BgL_modz00_2463;
{ /* ./Integrate/a.scm 287 */
int BgL_arg2028z00_2464;
BgL_arg2028z00_2464 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 287 */
long BgL_n2z00_2472;
BgL_n2z00_2472 = 
(long)(BgL_arg2028z00_2464); 
BgL_modz00_2463 = 
(BgL_offsetz00_2462/BgL_n2z00_2472); } } 
{ /* ./Integrate/a.scm 287 */
long BgL_restz00_2465;
{ /* ./Integrate/a.scm 287 */
int BgL_arg2024z00_2466;
BgL_arg2024z00_2466 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 287 */
long BgL_n2z00_2475;
BgL_n2z00_2475 = 
(long)(BgL_arg2024z00_2466); 
BgL_restz00_2465 = 
(BgL_offsetz00_2462%BgL_n2z00_2475); } } 
{ /* ./Integrate/a.scm 287 */

{ /* ./Integrate/a.scm 287 */
obj_t BgL_bucketz00_2467;
{ /* ./Integrate/a.scm 287 */
int BgL_kz00_2477;
BgL_kz00_2477 = 
(int)(BgL_modz00_2463); 
BgL_bucketz00_2467 = 
VECTOR_REF(BgL_arg2017z00_2458,BgL_kz00_2477); } 
{ /* ./Integrate/a.scm 287 */
int BgL_kz00_2479;
BgL_kz00_2479 = 
(int)(BgL_restz00_2465); 
BgL_method2956z00_2455 = 
VECTOR_REF(BgL_bucketz00_2467,BgL_kz00_2479); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2455)(BgL_method2956z00_2455, 
(obj_t)(BgL_arg4002z00_1621), 
(obj_t)(BgL_hostz00_2452), BgL_arg4003z00_1622, BgL_arg4004z00_1623, BEOA);} } } } } 
}



/* node-A-conditional2985 */
obj_t BGl_nodezd2Azd2conditional2985z00zzintegrate_az00(obj_t BgL_envz00_2969, obj_t BgL_nodez00_2970, obj_t BgL_hostz00_2971, obj_t BgL_kz00_2972, obj_t BgL_az00_2973)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 277 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1598;obj_t BgL_hostz00_1599;obj_t BgL_kz00_1600;obj_t BgL_az00_1601;
BgL_nodez00_1598 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2970); 
BgL_hostz00_1599 = BgL_hostz00_2971; 
BgL_kz00_1600 = BgL_kz00_2972; 
BgL_az00_1601 = BgL_az00_2973; 
{ /* ./Integrate/a.scm 279 */
obj_t BgL_az00_1605;
{ /* ./Integrate/a.scm 279 */
BgL_nodez00_bglt BgL_arg3987z00_1609;obj_t BgL_arg3988z00_1610;
BgL_arg3987z00_1609 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1598))->BgL_testz00); 
{ /* ./Integrate/a.scm 279 */
obj_t BgL_arg3992z00_1611;
BgL_arg3992z00_1611 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
BgL_arg3988z00_1610 = 
MAKE_PAIR(BgL_arg3992z00_1611, BGl_za2boolza2z00zztype_cachez00); } 
{ /* ./Integrate/a.scm 279 */
BgL_variablez00_bglt BgL_hostz00_2299;
BgL_hostz00_2299 = 
(BgL_variablez00_bglt)(BgL_hostz00_1599); 
{ /* ./Integrate/a.scm 279 */
obj_t BgL_method2956z00_2302;
{ /* ./Integrate/a.scm 279 */
BgL_objectz00_bglt BgL_objz00_2303;
BgL_objz00_2303 = 
(BgL_objectz00_bglt)(BgL_arg3987z00_1609); 
{ /* ./Integrate/a.scm 279 */
long BgL_objzd2classzd2numz00_2304;
BgL_objzd2classzd2numz00_2304 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2303); 
{ /* ./Integrate/a.scm 279 */
obj_t BgL_arg2017z00_2305;
{ /* ./Integrate/a.scm 279 */
int BgL_auxz00_3940;
BgL_auxz00_3940 = 
(int)(((long)1)); 
BgL_arg2017z00_2305 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3940); } 
{ /* ./Integrate/a.scm 279 */
int BgL_offsetz00_2308;
BgL_offsetz00_2308 = 
(int)(BgL_objzd2classzd2numz00_2304); 
{ /* ./Integrate/a.scm 279 */
long BgL_offsetz00_2309;
{ /* ./Integrate/a.scm 279 */
long BgL_auxz00_3944;
BgL_auxz00_3944 = 
(long)(BgL_offsetz00_2308); 
BgL_offsetz00_2309 = 
(BgL_auxz00_3944-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 279 */
long BgL_modz00_2310;
{ /* ./Integrate/a.scm 279 */
int BgL_arg2028z00_2311;
BgL_arg2028z00_2311 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 279 */
long BgL_n2z00_2319;
BgL_n2z00_2319 = 
(long)(BgL_arg2028z00_2311); 
BgL_modz00_2310 = 
(BgL_offsetz00_2309/BgL_n2z00_2319); } } 
{ /* ./Integrate/a.scm 279 */
long BgL_restz00_2312;
{ /* ./Integrate/a.scm 279 */
int BgL_arg2024z00_2313;
BgL_arg2024z00_2313 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 279 */
long BgL_n2z00_2322;
BgL_n2z00_2322 = 
(long)(BgL_arg2024z00_2313); 
BgL_restz00_2312 = 
(BgL_offsetz00_2309%BgL_n2z00_2322); } } 
{ /* ./Integrate/a.scm 279 */

{ /* ./Integrate/a.scm 279 */
obj_t BgL_bucketz00_2314;
{ /* ./Integrate/a.scm 279 */
int BgL_kz00_2324;
BgL_kz00_2324 = 
(int)(BgL_modz00_2310); 
BgL_bucketz00_2314 = 
VECTOR_REF(BgL_arg2017z00_2305,BgL_kz00_2324); } 
{ /* ./Integrate/a.scm 279 */
int BgL_kz00_2326;
BgL_kz00_2326 = 
(int)(BgL_restz00_2312); 
BgL_method2956z00_2302 = 
VECTOR_REF(BgL_bucketz00_2314,BgL_kz00_2326); } } } } } } } } } } 
BgL_az00_1605 = 
PROCEDURE_ENTRY(BgL_method2956z00_2302)(BgL_method2956z00_2302, 
(obj_t)(BgL_arg3987z00_1609), 
(obj_t)(BgL_hostz00_2299), BgL_arg3988z00_1610, BgL_az00_1601, BEOA); } } } 
{ /* ./Integrate/a.scm 280 */
BgL_nodez00_bglt BgL_arg3978z00_1606;obj_t BgL_arg3979z00_1607;
BgL_arg3978z00_1606 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1598))->BgL_truez00); 
{ /* ./Integrate/a.scm 280 */
BgL_nodez00_bglt BgL_arg3983z00_1608;
BgL_arg3983z00_1608 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1598))->BgL_falsez00); 
{ /* ./Integrate/a.scm 280 */
BgL_variablez00_bglt BgL_hostz00_2330;
BgL_hostz00_2330 = 
(BgL_variablez00_bglt)(BgL_hostz00_1599); 
{ /* ./Integrate/a.scm 280 */
obj_t BgL_method2956z00_2333;
{ /* ./Integrate/a.scm 280 */
BgL_objectz00_bglt BgL_objz00_2334;
BgL_objz00_2334 = 
(BgL_objectz00_bglt)(BgL_arg3983z00_1608); 
{ /* ./Integrate/a.scm 280 */
long BgL_objzd2classzd2numz00_2335;
BgL_objzd2classzd2numz00_2335 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2334); 
{ /* ./Integrate/a.scm 280 */
obj_t BgL_arg2017z00_2336;
{ /* ./Integrate/a.scm 280 */
int BgL_auxz00_3966;
BgL_auxz00_3966 = 
(int)(((long)1)); 
BgL_arg2017z00_2336 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3966); } 
{ /* ./Integrate/a.scm 280 */
int BgL_offsetz00_2339;
BgL_offsetz00_2339 = 
(int)(BgL_objzd2classzd2numz00_2335); 
{ /* ./Integrate/a.scm 280 */
long BgL_offsetz00_2340;
{ /* ./Integrate/a.scm 280 */
long BgL_auxz00_3970;
BgL_auxz00_3970 = 
(long)(BgL_offsetz00_2339); 
BgL_offsetz00_2340 = 
(BgL_auxz00_3970-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 280 */
long BgL_modz00_2341;
{ /* ./Integrate/a.scm 280 */
int BgL_arg2028z00_2342;
BgL_arg2028z00_2342 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 280 */
long BgL_n2z00_2350;
BgL_n2z00_2350 = 
(long)(BgL_arg2028z00_2342); 
BgL_modz00_2341 = 
(BgL_offsetz00_2340/BgL_n2z00_2350); } } 
{ /* ./Integrate/a.scm 280 */
long BgL_restz00_2343;
{ /* ./Integrate/a.scm 280 */
int BgL_arg2024z00_2344;
BgL_arg2024z00_2344 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 280 */
long BgL_n2z00_2353;
BgL_n2z00_2353 = 
(long)(BgL_arg2024z00_2344); 
BgL_restz00_2343 = 
(BgL_offsetz00_2340%BgL_n2z00_2353); } } 
{ /* ./Integrate/a.scm 280 */

{ /* ./Integrate/a.scm 280 */
obj_t BgL_bucketz00_2345;
{ /* ./Integrate/a.scm 280 */
int BgL_kz00_2355;
BgL_kz00_2355 = 
(int)(BgL_modz00_2341); 
BgL_bucketz00_2345 = 
VECTOR_REF(BgL_arg2017z00_2336,BgL_kz00_2355); } 
{ /* ./Integrate/a.scm 280 */
int BgL_kz00_2357;
BgL_kz00_2357 = 
(int)(BgL_restz00_2343); 
BgL_method2956z00_2333 = 
VECTOR_REF(BgL_bucketz00_2345,BgL_kz00_2357); } } } } } } } } } } 
BgL_arg3979z00_1607 = 
PROCEDURE_ENTRY(BgL_method2956z00_2333)(BgL_method2956z00_2333, 
(obj_t)(BgL_arg3983z00_1608), 
(obj_t)(BgL_hostz00_2330), BgL_kz00_1600, BgL_az00_1605, BEOA); } } } 
{ /* ./Integrate/a.scm 280 */
BgL_variablez00_bglt BgL_hostz00_2359;
BgL_hostz00_2359 = 
(BgL_variablez00_bglt)(BgL_hostz00_1599); 
{ /* ./Integrate/a.scm 280 */
obj_t BgL_method2956z00_2362;
{ /* ./Integrate/a.scm 280 */
BgL_objectz00_bglt BgL_objz00_2363;
BgL_objz00_2363 = 
(BgL_objectz00_bglt)(BgL_arg3978z00_1606); 
{ /* ./Integrate/a.scm 280 */
long BgL_objzd2classzd2numz00_2364;
BgL_objzd2classzd2numz00_2364 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2363); 
{ /* ./Integrate/a.scm 280 */
obj_t BgL_arg2017z00_2365;
{ /* ./Integrate/a.scm 280 */
int BgL_auxz00_3990;
BgL_auxz00_3990 = 
(int)(((long)1)); 
BgL_arg2017z00_2365 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_3990); } 
{ /* ./Integrate/a.scm 280 */
int BgL_offsetz00_2368;
BgL_offsetz00_2368 = 
(int)(BgL_objzd2classzd2numz00_2364); 
{ /* ./Integrate/a.scm 280 */
long BgL_offsetz00_2369;
{ /* ./Integrate/a.scm 280 */
long BgL_auxz00_3994;
BgL_auxz00_3994 = 
(long)(BgL_offsetz00_2368); 
BgL_offsetz00_2369 = 
(BgL_auxz00_3994-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 280 */
long BgL_modz00_2370;
{ /* ./Integrate/a.scm 280 */
int BgL_arg2028z00_2371;
BgL_arg2028z00_2371 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 280 */
long BgL_n2z00_2379;
BgL_n2z00_2379 = 
(long)(BgL_arg2028z00_2371); 
BgL_modz00_2370 = 
(BgL_offsetz00_2369/BgL_n2z00_2379); } } 
{ /* ./Integrate/a.scm 280 */
long BgL_restz00_2372;
{ /* ./Integrate/a.scm 280 */
int BgL_arg2024z00_2373;
BgL_arg2024z00_2373 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 280 */
long BgL_n2z00_2382;
BgL_n2z00_2382 = 
(long)(BgL_arg2024z00_2373); 
BgL_restz00_2372 = 
(BgL_offsetz00_2369%BgL_n2z00_2382); } } 
{ /* ./Integrate/a.scm 280 */

{ /* ./Integrate/a.scm 280 */
obj_t BgL_bucketz00_2374;
{ /* ./Integrate/a.scm 280 */
int BgL_kz00_2384;
BgL_kz00_2384 = 
(int)(BgL_modz00_2370); 
BgL_bucketz00_2374 = 
VECTOR_REF(BgL_arg2017z00_2365,BgL_kz00_2384); } 
{ /* ./Integrate/a.scm 280 */
int BgL_kz00_2386;
BgL_kz00_2386 = 
(int)(BgL_restz00_2372); 
BgL_method2956z00_2362 = 
VECTOR_REF(BgL_bucketz00_2374,BgL_kz00_2386); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2362)(BgL_method2956z00_2362, 
(obj_t)(BgL_arg3978z00_1606), 
(obj_t)(BgL_hostz00_2359), BgL_kz00_1600, BgL_arg3979z00_1607, BEOA);} } } } } } 
}



/* node-A-setq2982 */
obj_t BGl_nodezd2Azd2setq2982z00zzintegrate_az00(obj_t BgL_envz00_2974, obj_t BgL_nodez00_2975, obj_t BgL_hostz00_2976, obj_t BgL_kz00_2977, obj_t BgL_az00_2978)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 270 */
{ 
BgL_setqz00_bglt BgL_nodez00_1584;obj_t BgL_hostz00_1585;obj_t BgL_kz00_1586;obj_t BgL_az00_1587;
BgL_nodez00_1584 = 
(BgL_setqz00_bglt)(BgL_nodez00_2975); 
BgL_hostz00_1585 = BgL_hostz00_2976; 
BgL_kz00_1586 = BgL_kz00_2977; 
BgL_az00_1587 = BgL_az00_2978; 
{ /* ./Integrate/a.scm 271 */
BgL_nodez00_bglt BgL_arg3958z00_2261;obj_t BgL_arg3959z00_2262;
BgL_arg3958z00_2261 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1584))->BgL_valuez00); 
{ /* ./Integrate/a.scm 271 */
obj_t BgL_arg3963z00_2263;BgL_typez00_bglt BgL_arg3964z00_2264;
BgL_arg3963z00_2263 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 271 */
BgL_nodez00_bglt BgL_arg3968z00_2265;
BgL_arg3968z00_2265 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1584))->BgL_valuez00); 
BgL_arg3964z00_2264 = 
BGl_typeofz00zztype_typeofz00(BgL_arg3968z00_2265); } 
{ /* ./Integrate/a.scm 271 */
obj_t BgL_auxz00_4016;
BgL_auxz00_4016 = 
(obj_t)(BgL_arg3964z00_2264); 
BgL_arg3959z00_2262 = 
MAKE_PAIR(BgL_arg3963z00_2263, BgL_auxz00_4016); } } 
{ /* ./Integrate/a.scm 271 */
BgL_variablez00_bglt BgL_hostz00_2269;
BgL_hostz00_2269 = 
(BgL_variablez00_bglt)(BgL_hostz00_1585); 
{ /* ./Integrate/a.scm 271 */
obj_t BgL_method2956z00_2272;
{ /* ./Integrate/a.scm 271 */
BgL_objectz00_bglt BgL_objz00_2273;
BgL_objz00_2273 = 
(BgL_objectz00_bglt)(BgL_arg3958z00_2261); 
{ /* ./Integrate/a.scm 271 */
long BgL_objzd2classzd2numz00_2274;
BgL_objzd2classzd2numz00_2274 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2273); 
{ /* ./Integrate/a.scm 271 */
obj_t BgL_arg2017z00_2275;
{ /* ./Integrate/a.scm 271 */
int BgL_auxz00_4022;
BgL_auxz00_4022 = 
(int)(((long)1)); 
BgL_arg2017z00_2275 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_4022); } 
{ /* ./Integrate/a.scm 271 */
int BgL_offsetz00_2278;
BgL_offsetz00_2278 = 
(int)(BgL_objzd2classzd2numz00_2274); 
{ /* ./Integrate/a.scm 271 */
long BgL_offsetz00_2279;
{ /* ./Integrate/a.scm 271 */
long BgL_auxz00_4026;
BgL_auxz00_4026 = 
(long)(BgL_offsetz00_2278); 
BgL_offsetz00_2279 = 
(BgL_auxz00_4026-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 271 */
long BgL_modz00_2280;
{ /* ./Integrate/a.scm 271 */
int BgL_arg2028z00_2281;
BgL_arg2028z00_2281 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 271 */
long BgL_n2z00_2289;
BgL_n2z00_2289 = 
(long)(BgL_arg2028z00_2281); 
BgL_modz00_2280 = 
(BgL_offsetz00_2279/BgL_n2z00_2289); } } 
{ /* ./Integrate/a.scm 271 */
long BgL_restz00_2282;
{ /* ./Integrate/a.scm 271 */
int BgL_arg2024z00_2283;
BgL_arg2024z00_2283 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 271 */
long BgL_n2z00_2292;
BgL_n2z00_2292 = 
(long)(BgL_arg2024z00_2283); 
BgL_restz00_2282 = 
(BgL_offsetz00_2279%BgL_n2z00_2292); } } 
{ /* ./Integrate/a.scm 271 */

{ /* ./Integrate/a.scm 271 */
obj_t BgL_bucketz00_2284;
{ /* ./Integrate/a.scm 271 */
int BgL_kz00_2294;
BgL_kz00_2294 = 
(int)(BgL_modz00_2280); 
BgL_bucketz00_2284 = 
VECTOR_REF(BgL_arg2017z00_2275,BgL_kz00_2294); } 
{ /* ./Integrate/a.scm 271 */
int BgL_kz00_2296;
BgL_kz00_2296 = 
(int)(BgL_restz00_2282); 
BgL_method2956z00_2272 = 
VECTOR_REF(BgL_bucketz00_2284,BgL_kz00_2296); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2272)(BgL_method2956z00_2272, 
(obj_t)(BgL_arg3958z00_2261), 
(obj_t)(BgL_hostz00_2269), BgL_arg3959z00_2262, BgL_az00_1587, BEOA);} } } } } 
}



/* node-A-cast2979 */
obj_t BGl_nodezd2Azd2cast2979z00zzintegrate_az00(obj_t BgL_envz00_2979, obj_t BgL_nodez00_2980, obj_t BgL_hostz00_2981, obj_t BgL_kz00_2982, obj_t BgL_az00_2983)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 263 */
{ 
BgL_castz00_bglt BgL_nodez00_1570;obj_t BgL_hostz00_1571;obj_t BgL_kz00_1572;obj_t BgL_az00_1573;
BgL_nodez00_1570 = 
(BgL_castz00_bglt)(BgL_nodez00_2980); 
BgL_hostz00_1571 = BgL_hostz00_2981; 
BgL_kz00_1572 = BgL_kz00_2982; 
BgL_az00_1573 = BgL_az00_2983; 
{ /* ./Integrate/a.scm 264 */
BgL_nodez00_bglt BgL_arg3938z00_2224;obj_t BgL_arg3939z00_2225;
BgL_arg3938z00_2224 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1570))->BgL_argz00); 
{ /* ./Integrate/a.scm 264 */
obj_t BgL_arg3943z00_2226;BgL_typez00_bglt BgL_arg3944z00_2227;
BgL_arg3943z00_2226 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 264 */
BgL_nodez00_bglt BgL_arg3948z00_2228;
BgL_arg3948z00_2228 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1570))->BgL_argz00); 
BgL_arg3944z00_2227 = 
BGl_typeofz00zztype_typeofz00(BgL_arg3948z00_2228); } 
{ /* ./Integrate/a.scm 264 */
obj_t BgL_auxz00_4048;
BgL_auxz00_4048 = 
(obj_t)(BgL_arg3944z00_2227); 
BgL_arg3939z00_2225 = 
MAKE_PAIR(BgL_arg3943z00_2226, BgL_auxz00_4048); } } 
{ /* ./Integrate/a.scm 264 */
BgL_variablez00_bglt BgL_hostz00_2232;
BgL_hostz00_2232 = 
(BgL_variablez00_bglt)(BgL_hostz00_1571); 
{ /* ./Integrate/a.scm 264 */
obj_t BgL_method2956z00_2235;
{ /* ./Integrate/a.scm 264 */
BgL_objectz00_bglt BgL_objz00_2236;
BgL_objz00_2236 = 
(BgL_objectz00_bglt)(BgL_arg3938z00_2224); 
{ /* ./Integrate/a.scm 264 */
long BgL_objzd2classzd2numz00_2237;
BgL_objzd2classzd2numz00_2237 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2236); 
{ /* ./Integrate/a.scm 264 */
obj_t BgL_arg2017z00_2238;
{ /* ./Integrate/a.scm 264 */
int BgL_auxz00_4054;
BgL_auxz00_4054 = 
(int)(((long)1)); 
BgL_arg2017z00_2238 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_4054); } 
{ /* ./Integrate/a.scm 264 */
int BgL_offsetz00_2241;
BgL_offsetz00_2241 = 
(int)(BgL_objzd2classzd2numz00_2237); 
{ /* ./Integrate/a.scm 264 */
long BgL_offsetz00_2242;
{ /* ./Integrate/a.scm 264 */
long BgL_auxz00_4058;
BgL_auxz00_4058 = 
(long)(BgL_offsetz00_2241); 
BgL_offsetz00_2242 = 
(BgL_auxz00_4058-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 264 */
long BgL_modz00_2243;
{ /* ./Integrate/a.scm 264 */
int BgL_arg2028z00_2244;
BgL_arg2028z00_2244 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 264 */
long BgL_n2z00_2252;
BgL_n2z00_2252 = 
(long)(BgL_arg2028z00_2244); 
BgL_modz00_2243 = 
(BgL_offsetz00_2242/BgL_n2z00_2252); } } 
{ /* ./Integrate/a.scm 264 */
long BgL_restz00_2245;
{ /* ./Integrate/a.scm 264 */
int BgL_arg2024z00_2246;
BgL_arg2024z00_2246 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 264 */
long BgL_n2z00_2255;
BgL_n2z00_2255 = 
(long)(BgL_arg2024z00_2246); 
BgL_restz00_2245 = 
(BgL_offsetz00_2242%BgL_n2z00_2255); } } 
{ /* ./Integrate/a.scm 264 */

{ /* ./Integrate/a.scm 264 */
obj_t BgL_bucketz00_2247;
{ /* ./Integrate/a.scm 264 */
int BgL_kz00_2257;
BgL_kz00_2257 = 
(int)(BgL_modz00_2243); 
BgL_bucketz00_2247 = 
VECTOR_REF(BgL_arg2017z00_2238,BgL_kz00_2257); } 
{ /* ./Integrate/a.scm 264 */
int BgL_kz00_2259;
BgL_kz00_2259 = 
(int)(BgL_restz00_2245); 
BgL_method2956z00_2235 = 
VECTOR_REF(BgL_bucketz00_2247,BgL_kz00_2259); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2235)(BgL_method2956z00_2235, 
(obj_t)(BgL_arg3938z00_2224), 
(obj_t)(BgL_hostz00_2232), BgL_arg3939z00_2225, BgL_az00_1573, BEOA);} } } } } 
}



/* node-A-extern2977 */
obj_t BGl_nodezd2Azd2extern2977z00zzintegrate_az00(obj_t BgL_envz00_2984, obj_t BgL_nodez00_2985, obj_t BgL_hostz00_2986, obj_t BgL_kz00_2987, obj_t BgL_az00_2988)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 248 */
{ 
BgL_externz00_bglt BgL_nodez00_1549;obj_t BgL_hostz00_1550;obj_t BgL_kz00_1551;obj_t BgL_az00_1552;
BgL_nodez00_1549 = 
(BgL_externz00_bglt)(BgL_nodez00_2985); 
BgL_hostz00_1550 = BgL_hostz00_2986; 
BgL_kz00_1551 = BgL_kz00_2987; 
BgL_az00_1552 = BgL_az00_2988; 
{ 
obj_t BgL_astsz00_1556;obj_t BgL_az00_1557;
{ /* ./Integrate/a.scm 250 */
obj_t BgL_arg3907z00_1559;
BgL_arg3907z00_1559 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1549))->BgL_exprza2za2); 
BgL_astsz00_1556 = BgL_arg3907z00_1559; 
BgL_az00_1557 = BgL_az00_1552; 
BgL_liipz00_1558:
{ /* ./Integrate/a.scm 252 */
bool_t BgL_test3910z00_1560;
BgL_test3910z00_1560 = 
NULLP(BgL_astsz00_1556); 
if(BgL_test3910z00_1560)
{ /* ./Integrate/a.scm 252 */
return BgL_az00_1557;}  else 
{ /* ./Integrate/a.scm 254 */
obj_t BgL_arg3912z00_1561;obj_t BgL_arg3913z00_1562;
BgL_arg3912z00_1561 = 
CDR(BgL_astsz00_1556); 
{ /* ./Integrate/a.scm 255 */
obj_t BgL_arg3917z00_1563;obj_t BgL_arg3918z00_1564;
BgL_arg3917z00_1563 = 
CAR(BgL_astsz00_1556); 
{ /* ./Integrate/a.scm 257 */
obj_t BgL_arg3922z00_1565;BgL_typez00_bglt BgL_arg3923z00_1566;
BgL_arg3922z00_1565 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 257 */
obj_t BgL_arg3927z00_1567;
BgL_arg3927z00_1567 = 
CAR(BgL_astsz00_1556); 
BgL_arg3923z00_1566 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_arg3927z00_1567)); } 
{ /* ./Integrate/a.scm 257 */
obj_t BgL_auxz00_4085;
BgL_auxz00_4085 = 
(obj_t)(BgL_arg3923z00_1566); 
BgL_arg3918z00_1564 = 
MAKE_PAIR(BgL_arg3922z00_1565, BgL_auxz00_4085); } } 
{ /* ./Integrate/a.scm 255 */
BgL_nodez00_bglt BgL_nodez00_2194;BgL_variablez00_bglt BgL_hostz00_2195;
BgL_nodez00_2194 = 
(BgL_nodez00_bglt)(BgL_arg3917z00_1563); 
BgL_hostz00_2195 = 
(BgL_variablez00_bglt)(BgL_hostz00_1550); 
{ /* ./Integrate/a.scm 255 */
obj_t BgL_method2956z00_2198;
{ /* ./Integrate/a.scm 255 */
BgL_objectz00_bglt BgL_objz00_2199;
BgL_objz00_2199 = 
(BgL_objectz00_bglt)(BgL_nodez00_2194); 
{ /* ./Integrate/a.scm 255 */
long BgL_objzd2classzd2numz00_2200;
BgL_objzd2classzd2numz00_2200 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2199); 
{ /* ./Integrate/a.scm 255 */
obj_t BgL_arg2017z00_2201;
{ /* ./Integrate/a.scm 255 */
int BgL_auxz00_4092;
BgL_auxz00_4092 = 
(int)(((long)1)); 
BgL_arg2017z00_2201 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_4092); } 
{ /* ./Integrate/a.scm 255 */
int BgL_offsetz00_2204;
BgL_offsetz00_2204 = 
(int)(BgL_objzd2classzd2numz00_2200); 
{ /* ./Integrate/a.scm 255 */
long BgL_offsetz00_2205;
{ /* ./Integrate/a.scm 255 */
long BgL_auxz00_4096;
BgL_auxz00_4096 = 
(long)(BgL_offsetz00_2204); 
BgL_offsetz00_2205 = 
(BgL_auxz00_4096-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 255 */
long BgL_modz00_2206;
{ /* ./Integrate/a.scm 255 */
int BgL_arg2028z00_2207;
BgL_arg2028z00_2207 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 255 */
long BgL_n2z00_2215;
BgL_n2z00_2215 = 
(long)(BgL_arg2028z00_2207); 
BgL_modz00_2206 = 
(BgL_offsetz00_2205/BgL_n2z00_2215); } } 
{ /* ./Integrate/a.scm 255 */
long BgL_restz00_2208;
{ /* ./Integrate/a.scm 255 */
int BgL_arg2024z00_2209;
BgL_arg2024z00_2209 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 255 */
long BgL_n2z00_2218;
BgL_n2z00_2218 = 
(long)(BgL_arg2024z00_2209); 
BgL_restz00_2208 = 
(BgL_offsetz00_2205%BgL_n2z00_2218); } } 
{ /* ./Integrate/a.scm 255 */

{ /* ./Integrate/a.scm 255 */
obj_t BgL_bucketz00_2210;
{ /* ./Integrate/a.scm 255 */
int BgL_kz00_2220;
BgL_kz00_2220 = 
(int)(BgL_modz00_2206); 
BgL_bucketz00_2210 = 
VECTOR_REF(BgL_arg2017z00_2201,BgL_kz00_2220); } 
{ /* ./Integrate/a.scm 255 */
int BgL_kz00_2222;
BgL_kz00_2222 = 
(int)(BgL_restz00_2208); 
BgL_method2956z00_2198 = 
VECTOR_REF(BgL_bucketz00_2210,BgL_kz00_2222); } } } } } } } } } } 
BgL_arg3913z00_1562 = 
PROCEDURE_ENTRY(BgL_method2956z00_2198)(BgL_method2956z00_2198, 
(obj_t)(BgL_nodez00_2194), 
(obj_t)(BgL_hostz00_2195), BgL_arg3918z00_1564, BgL_az00_1557, BEOA); } } } 
{ 
obj_t BgL_az00_4114;obj_t BgL_astsz00_4113;
BgL_astsz00_4113 = BgL_arg3912z00_1561; 
BgL_az00_4114 = BgL_arg3913z00_1562; 
BgL_az00_1557 = BgL_az00_4114; 
BgL_astsz00_1556 = BgL_astsz00_4113; 
goto BgL_liipz00_1558;} } } } } } } 
}



/* node-A-funcall2975 */
obj_t BGl_nodezd2Azd2funcall2975z00zzintegrate_az00(obj_t BgL_envz00_2989, obj_t BgL_nodez00_2990, obj_t BgL_hostz00_2991, obj_t BgL_kz00_2992, obj_t BgL_az00_2993)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 230 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1522;obj_t BgL_hostz00_1523;obj_t BgL_kz00_1524;obj_t BgL_az00_1525;
BgL_nodez00_1522 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2990); 
BgL_hostz00_1523 = BgL_hostz00_2991; 
BgL_kz00_1524 = BgL_kz00_2992; 
BgL_az00_1525 = BgL_az00_2993; 
{ /* ./Integrate/a.scm 232 */
BgL_nodez00_bglt BgL_arg3861z00_1529;obj_t BgL_arg3862z00_1530;obj_t BgL_arg3863z00_1531;
BgL_arg3861z00_1529 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1522))->BgL_funz00); 
{ /* ./Integrate/a.scm 234 */
obj_t BgL_arg3867z00_1532;BgL_typez00_bglt BgL_arg3868z00_1533;
BgL_arg3867z00_1532 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 234 */
BgL_nodez00_bglt BgL_arg3872z00_1534;
BgL_arg3872z00_1534 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1522))->BgL_funz00); 
BgL_arg3868z00_1533 = 
BGl_typeofz00zztype_typeofz00(BgL_arg3872z00_1534); } 
{ /* ./Integrate/a.scm 234 */
obj_t BgL_auxz00_4120;
BgL_auxz00_4120 = 
(obj_t)(BgL_arg3868z00_1533); 
BgL_arg3862z00_1530 = 
MAKE_PAIR(BgL_arg3867z00_1532, BgL_auxz00_4120); } } 
{ 
obj_t BgL_argsz00_1535;obj_t BgL_az00_1536;
{ /* ./Integrate/a.scm 235 */
obj_t BgL_arg3876z00_1538;
BgL_arg3876z00_1538 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1522))->BgL_argsz00); 
BgL_argsz00_1535 = BgL_arg3876z00_1538; 
BgL_az00_1536 = BgL_az00_1525; 
BgL_liipz00_1537:
{ /* ./Integrate/a.scm 237 */
bool_t BgL_test3879z00_1539;
BgL_test3879z00_1539 = 
NULLP(BgL_argsz00_1535); 
if(BgL_test3879z00_1539)
{ /* ./Integrate/a.scm 237 */
BgL_arg3863z00_1531 = BgL_az00_1536; }  else 
{ /* ./Integrate/a.scm 239 */
obj_t BgL_arg3881z00_1540;obj_t BgL_arg3882z00_1541;
BgL_arg3881z00_1540 = 
CDR(BgL_argsz00_1535); 
{ /* ./Integrate/a.scm 240 */
obj_t BgL_arg3886z00_1542;obj_t BgL_arg3887z00_1543;
BgL_arg3886z00_1542 = 
CAR(BgL_argsz00_1535); 
{ /* ./Integrate/a.scm 242 */
obj_t BgL_arg3891z00_1544;BgL_typez00_bglt BgL_arg3892z00_1545;
BgL_arg3891z00_1544 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 242 */
obj_t BgL_arg3896z00_1546;
BgL_arg3896z00_1546 = 
CAR(BgL_argsz00_1535); 
BgL_arg3892z00_1545 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_arg3896z00_1546)); } 
{ /* ./Integrate/a.scm 242 */
obj_t BgL_auxz00_4132;
BgL_auxz00_4132 = 
(obj_t)(BgL_arg3892z00_1545); 
BgL_arg3887z00_1543 = 
MAKE_PAIR(BgL_arg3891z00_1544, BgL_auxz00_4132); } } 
{ /* ./Integrate/a.scm 240 */
BgL_nodez00_bglt BgL_nodez00_2131;BgL_variablez00_bglt BgL_hostz00_2132;
BgL_nodez00_2131 = 
(BgL_nodez00_bglt)(BgL_arg3886z00_1542); 
BgL_hostz00_2132 = 
(BgL_variablez00_bglt)(BgL_hostz00_1523); 
{ /* ./Integrate/a.scm 240 */
obj_t BgL_method2956z00_2135;
{ /* ./Integrate/a.scm 240 */
BgL_objectz00_bglt BgL_objz00_2136;
BgL_objz00_2136 = 
(BgL_objectz00_bglt)(BgL_nodez00_2131); 
{ /* ./Integrate/a.scm 240 */
long BgL_objzd2classzd2numz00_2137;
BgL_objzd2classzd2numz00_2137 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2136); 
{ /* ./Integrate/a.scm 240 */
obj_t BgL_arg2017z00_2138;
{ /* ./Integrate/a.scm 240 */
int BgL_auxz00_4139;
BgL_auxz00_4139 = 
(int)(((long)1)); 
BgL_arg2017z00_2138 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_4139); } 
{ /* ./Integrate/a.scm 240 */
int BgL_offsetz00_2141;
BgL_offsetz00_2141 = 
(int)(BgL_objzd2classzd2numz00_2137); 
{ /* ./Integrate/a.scm 240 */
long BgL_offsetz00_2142;
{ /* ./Integrate/a.scm 240 */
long BgL_auxz00_4143;
BgL_auxz00_4143 = 
(long)(BgL_offsetz00_2141); 
BgL_offsetz00_2142 = 
(BgL_auxz00_4143-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 240 */
long BgL_modz00_2143;
{ /* ./Integrate/a.scm 240 */
int BgL_arg2028z00_2144;
BgL_arg2028z00_2144 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 240 */
long BgL_n2z00_2152;
BgL_n2z00_2152 = 
(long)(BgL_arg2028z00_2144); 
BgL_modz00_2143 = 
(BgL_offsetz00_2142/BgL_n2z00_2152); } } 
{ /* ./Integrate/a.scm 240 */
long BgL_restz00_2145;
{ /* ./Integrate/a.scm 240 */
int BgL_arg2024z00_2146;
BgL_arg2024z00_2146 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 240 */
long BgL_n2z00_2155;
BgL_n2z00_2155 = 
(long)(BgL_arg2024z00_2146); 
BgL_restz00_2145 = 
(BgL_offsetz00_2142%BgL_n2z00_2155); } } 
{ /* ./Integrate/a.scm 240 */

{ /* ./Integrate/a.scm 240 */
obj_t BgL_bucketz00_2147;
{ /* ./Integrate/a.scm 240 */
int BgL_kz00_2157;
BgL_kz00_2157 = 
(int)(BgL_modz00_2143); 
BgL_bucketz00_2147 = 
VECTOR_REF(BgL_arg2017z00_2138,BgL_kz00_2157); } 
{ /* ./Integrate/a.scm 240 */
int BgL_kz00_2159;
BgL_kz00_2159 = 
(int)(BgL_restz00_2145); 
BgL_method2956z00_2135 = 
VECTOR_REF(BgL_bucketz00_2147,BgL_kz00_2159); } } } } } } } } } } 
BgL_arg3882z00_1541 = 
PROCEDURE_ENTRY(BgL_method2956z00_2135)(BgL_method2956z00_2135, 
(obj_t)(BgL_nodez00_2131), 
(obj_t)(BgL_hostz00_2132), BgL_arg3887z00_1543, BgL_az00_1536, BEOA); } } } 
{ 
obj_t BgL_az00_4161;obj_t BgL_argsz00_4160;
BgL_argsz00_4160 = BgL_arg3881z00_1540; 
BgL_az00_4161 = BgL_arg3882z00_1541; 
BgL_az00_1536 = BgL_az00_4161; 
BgL_argsz00_1535 = BgL_argsz00_4160; 
goto BgL_liipz00_1537;} } } } } 
{ /* ./Integrate/a.scm 232 */
BgL_variablez00_bglt BgL_hostz00_2161;
BgL_hostz00_2161 = 
(BgL_variablez00_bglt)(BgL_hostz00_1523); 
{ /* ./Integrate/a.scm 232 */
obj_t BgL_method2956z00_2164;
{ /* ./Integrate/a.scm 232 */
BgL_objectz00_bglt BgL_objz00_2165;
BgL_objz00_2165 = 
(BgL_objectz00_bglt)(BgL_arg3861z00_1529); 
{ /* ./Integrate/a.scm 232 */
long BgL_objzd2classzd2numz00_2166;
BgL_objzd2classzd2numz00_2166 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2165); 
{ /* ./Integrate/a.scm 232 */
obj_t BgL_arg2017z00_2167;
{ /* ./Integrate/a.scm 232 */
int BgL_auxz00_4165;
BgL_auxz00_4165 = 
(int)(((long)1)); 
BgL_arg2017z00_2167 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_4165); } 
{ /* ./Integrate/a.scm 232 */
int BgL_offsetz00_2170;
BgL_offsetz00_2170 = 
(int)(BgL_objzd2classzd2numz00_2166); 
{ /* ./Integrate/a.scm 232 */
long BgL_offsetz00_2171;
{ /* ./Integrate/a.scm 232 */
long BgL_auxz00_4169;
BgL_auxz00_4169 = 
(long)(BgL_offsetz00_2170); 
BgL_offsetz00_2171 = 
(BgL_auxz00_4169-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 232 */
long BgL_modz00_2172;
{ /* ./Integrate/a.scm 232 */
int BgL_arg2028z00_2173;
BgL_arg2028z00_2173 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 232 */
long BgL_n2z00_2181;
BgL_n2z00_2181 = 
(long)(BgL_arg2028z00_2173); 
BgL_modz00_2172 = 
(BgL_offsetz00_2171/BgL_n2z00_2181); } } 
{ /* ./Integrate/a.scm 232 */
long BgL_restz00_2174;
{ /* ./Integrate/a.scm 232 */
int BgL_arg2024z00_2175;
BgL_arg2024z00_2175 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 232 */
long BgL_n2z00_2184;
BgL_n2z00_2184 = 
(long)(BgL_arg2024z00_2175); 
BgL_restz00_2174 = 
(BgL_offsetz00_2171%BgL_n2z00_2184); } } 
{ /* ./Integrate/a.scm 232 */

{ /* ./Integrate/a.scm 232 */
obj_t BgL_bucketz00_2176;
{ /* ./Integrate/a.scm 232 */
int BgL_kz00_2186;
BgL_kz00_2186 = 
(int)(BgL_modz00_2172); 
BgL_bucketz00_2176 = 
VECTOR_REF(BgL_arg2017z00_2167,BgL_kz00_2186); } 
{ /* ./Integrate/a.scm 232 */
int BgL_kz00_2188;
BgL_kz00_2188 = 
(int)(BgL_restz00_2174); 
BgL_method2956z00_2164 = 
VECTOR_REF(BgL_bucketz00_2176,BgL_kz00_2188); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2164)(BgL_method2956z00_2164, 
(obj_t)(BgL_arg3861z00_1529), 
(obj_t)(BgL_hostz00_2161), BgL_arg3862z00_1530, BgL_arg3863z00_1531, BEOA);} } } } } 
}



/* node-A-app-ly2973 */
obj_t BGl_nodezd2Azd2appzd2ly2973zd2zzintegrate_az00(obj_t BgL_envz00_2994, obj_t BgL_nodez00_2995, obj_t BgL_hostz00_2996, obj_t BgL_kz00_2997, obj_t BgL_az00_2998)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 220 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1502;obj_t BgL_hostz00_1503;obj_t BgL_kz00_1504;obj_t BgL_az00_1505;
BgL_nodez00_1502 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2995); 
BgL_hostz00_1503 = BgL_hostz00_2996; 
BgL_kz00_1504 = BgL_kz00_2997; 
BgL_az00_1505 = BgL_az00_2998; 
{ /* ./Integrate/a.scm 222 */
BgL_nodez00_bglt BgL_arg3826z00_1509;obj_t BgL_arg3827z00_1510;obj_t BgL_arg3828z00_1511;
BgL_arg3826z00_1509 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1502))->BgL_funz00); 
{ /* ./Integrate/a.scm 224 */
obj_t BgL_arg3832z00_1512;BgL_typez00_bglt BgL_arg3833z00_1513;
BgL_arg3832z00_1512 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 224 */
BgL_nodez00_bglt BgL_arg3837z00_1514;
BgL_arg3837z00_1514 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1502))->BgL_funz00); 
BgL_arg3833z00_1513 = 
BGl_typeofz00zztype_typeofz00(BgL_arg3837z00_1514); } 
{ /* ./Integrate/a.scm 224 */
obj_t BgL_auxz00_4191;
BgL_auxz00_4191 = 
(obj_t)(BgL_arg3833z00_1513); 
BgL_arg3827z00_1510 = 
MAKE_PAIR(BgL_arg3832z00_1512, BgL_auxz00_4191); } } 
{ /* ./Integrate/a.scm 225 */
BgL_nodez00_bglt BgL_arg3841z00_1515;obj_t BgL_arg3842z00_1516;
BgL_arg3841z00_1515 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1502))->BgL_argz00); 
{ /* ./Integrate/a.scm 225 */
obj_t BgL_arg3846z00_1517;BgL_typez00_bglt BgL_arg3847z00_1518;
BgL_arg3846z00_1517 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 225 */
BgL_nodez00_bglt BgL_arg3851z00_1519;
BgL_arg3851z00_1519 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1502))->BgL_argz00); 
BgL_arg3847z00_1518 = 
BGl_typeofz00zztype_typeofz00(BgL_arg3851z00_1519); } 
{ /* ./Integrate/a.scm 225 */
obj_t BgL_auxz00_4198;
BgL_auxz00_4198 = 
(obj_t)(BgL_arg3847z00_1518); 
BgL_arg3842z00_1516 = 
MAKE_PAIR(BgL_arg3846z00_1517, BgL_auxz00_4198); } } 
{ /* ./Integrate/a.scm 225 */
BgL_variablez00_bglt BgL_hostz00_2067;
BgL_hostz00_2067 = 
(BgL_variablez00_bglt)(BgL_hostz00_1503); 
{ /* ./Integrate/a.scm 225 */
obj_t BgL_method2956z00_2070;
{ /* ./Integrate/a.scm 225 */
BgL_objectz00_bglt BgL_objz00_2071;
BgL_objz00_2071 = 
(BgL_objectz00_bglt)(BgL_arg3841z00_1515); 
{ /* ./Integrate/a.scm 225 */
long BgL_objzd2classzd2numz00_2072;
BgL_objzd2classzd2numz00_2072 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2071); 
{ /* ./Integrate/a.scm 225 */
obj_t BgL_arg2017z00_2073;
{ /* ./Integrate/a.scm 225 */
int BgL_auxz00_4204;
BgL_auxz00_4204 = 
(int)(((long)1)); 
BgL_arg2017z00_2073 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_4204); } 
{ /* ./Integrate/a.scm 225 */
int BgL_offsetz00_2076;
BgL_offsetz00_2076 = 
(int)(BgL_objzd2classzd2numz00_2072); 
{ /* ./Integrate/a.scm 225 */
long BgL_offsetz00_2077;
{ /* ./Integrate/a.scm 225 */
long BgL_auxz00_4208;
BgL_auxz00_4208 = 
(long)(BgL_offsetz00_2076); 
BgL_offsetz00_2077 = 
(BgL_auxz00_4208-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 225 */
long BgL_modz00_2078;
{ /* ./Integrate/a.scm 225 */
int BgL_arg2028z00_2079;
BgL_arg2028z00_2079 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 225 */
long BgL_n2z00_2087;
BgL_n2z00_2087 = 
(long)(BgL_arg2028z00_2079); 
BgL_modz00_2078 = 
(BgL_offsetz00_2077/BgL_n2z00_2087); } } 
{ /* ./Integrate/a.scm 225 */
long BgL_restz00_2080;
{ /* ./Integrate/a.scm 225 */
int BgL_arg2024z00_2081;
BgL_arg2024z00_2081 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 225 */
long BgL_n2z00_2090;
BgL_n2z00_2090 = 
(long)(BgL_arg2024z00_2081); 
BgL_restz00_2080 = 
(BgL_offsetz00_2077%BgL_n2z00_2090); } } 
{ /* ./Integrate/a.scm 225 */

{ /* ./Integrate/a.scm 225 */
obj_t BgL_bucketz00_2082;
{ /* ./Integrate/a.scm 225 */
int BgL_kz00_2092;
BgL_kz00_2092 = 
(int)(BgL_modz00_2078); 
BgL_bucketz00_2082 = 
VECTOR_REF(BgL_arg2017z00_2073,BgL_kz00_2092); } 
{ /* ./Integrate/a.scm 225 */
int BgL_kz00_2094;
BgL_kz00_2094 = 
(int)(BgL_restz00_2080); 
BgL_method2956z00_2070 = 
VECTOR_REF(BgL_bucketz00_2082,BgL_kz00_2094); } } } } } } } } } } 
BgL_arg3828z00_1511 = 
PROCEDURE_ENTRY(BgL_method2956z00_2070)(BgL_method2956z00_2070, 
(obj_t)(BgL_arg3841z00_1515), 
(obj_t)(BgL_hostz00_2067), BgL_arg3842z00_1516, BgL_az00_1505, BEOA); } } } 
{ /* ./Integrate/a.scm 222 */
BgL_variablez00_bglt BgL_hostz00_2096;
BgL_hostz00_2096 = 
(BgL_variablez00_bglt)(BgL_hostz00_1503); 
{ /* ./Integrate/a.scm 222 */
obj_t BgL_method2956z00_2099;
{ /* ./Integrate/a.scm 222 */
BgL_objectz00_bglt BgL_objz00_2100;
BgL_objz00_2100 = 
(BgL_objectz00_bglt)(BgL_arg3826z00_1509); 
{ /* ./Integrate/a.scm 222 */
long BgL_objzd2classzd2numz00_2101;
BgL_objzd2classzd2numz00_2101 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2100); 
{ /* ./Integrate/a.scm 222 */
obj_t BgL_arg2017z00_2102;
{ /* ./Integrate/a.scm 222 */
int BgL_auxz00_4228;
BgL_auxz00_4228 = 
(int)(((long)1)); 
BgL_arg2017z00_2102 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_4228); } 
{ /* ./Integrate/a.scm 222 */
int BgL_offsetz00_2105;
BgL_offsetz00_2105 = 
(int)(BgL_objzd2classzd2numz00_2101); 
{ /* ./Integrate/a.scm 222 */
long BgL_offsetz00_2106;
{ /* ./Integrate/a.scm 222 */
long BgL_auxz00_4232;
BgL_auxz00_4232 = 
(long)(BgL_offsetz00_2105); 
BgL_offsetz00_2106 = 
(BgL_auxz00_4232-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 222 */
long BgL_modz00_2107;
{ /* ./Integrate/a.scm 222 */
int BgL_arg2028z00_2108;
BgL_arg2028z00_2108 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 222 */
long BgL_n2z00_2116;
BgL_n2z00_2116 = 
(long)(BgL_arg2028z00_2108); 
BgL_modz00_2107 = 
(BgL_offsetz00_2106/BgL_n2z00_2116); } } 
{ /* ./Integrate/a.scm 222 */
long BgL_restz00_2109;
{ /* ./Integrate/a.scm 222 */
int BgL_arg2024z00_2110;
BgL_arg2024z00_2110 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 222 */
long BgL_n2z00_2119;
BgL_n2z00_2119 = 
(long)(BgL_arg2024z00_2110); 
BgL_restz00_2109 = 
(BgL_offsetz00_2106%BgL_n2z00_2119); } } 
{ /* ./Integrate/a.scm 222 */

{ /* ./Integrate/a.scm 222 */
obj_t BgL_bucketz00_2111;
{ /* ./Integrate/a.scm 222 */
int BgL_kz00_2121;
BgL_kz00_2121 = 
(int)(BgL_modz00_2107); 
BgL_bucketz00_2111 = 
VECTOR_REF(BgL_arg2017z00_2102,BgL_kz00_2121); } 
{ /* ./Integrate/a.scm 222 */
int BgL_kz00_2123;
BgL_kz00_2123 = 
(int)(BgL_restz00_2109); 
BgL_method2956z00_2099 = 
VECTOR_REF(BgL_bucketz00_2111,BgL_kz00_2123); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2099)(BgL_method2956z00_2099, 
(obj_t)(BgL_arg3826z00_1509), 
(obj_t)(BgL_hostz00_2096), BgL_arg3827z00_1510, BgL_arg3828z00_1511, BEOA);} } } } } 
}



/* node-A-app2971 */
obj_t BGl_nodezd2Azd2app2971z00zzintegrate_az00(obj_t BgL_envz00_2999, obj_t BgL_nodez00_3000, obj_t BgL_hostz00_3001, obj_t BgL_kz00_3002, obj_t BgL_az00_3003)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 199 */
{ 
BgL_appz00_bglt BgL_nodez00_1475;obj_t BgL_hostz00_1476;obj_t BgL_kz00_1477;obj_t BgL_az00_1478;
BgL_nodez00_1475 = 
(BgL_appz00_bglt)(BgL_nodez00_3000); 
BgL_hostz00_1476 = BgL_hostz00_3001; 
BgL_kz00_1477 = BgL_kz00_3002; 
BgL_az00_1478 = BgL_az00_3003; 
{ /* ./Integrate/a.scm 201 */
BgL_variablez00_bglt BgL_calleez00_1482;
{ /* ./Integrate/a.scm 201 */
BgL_varz00_bglt BgL_arg3816z00_1499;
BgL_arg3816z00_1499 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1475))->BgL_funz00); 
BgL_calleez00_1482 = 
(((BgL_varz00_bglt)CREF(BgL_arg3816z00_1499))->BgL_variablez00); } 
{ 
obj_t BgL_argsz00_1483;obj_t BgL_az00_1484;
{ /* ./Integrate/a.scm 203 */
obj_t BgL_arg3778z00_1486;
BgL_arg3778z00_1486 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1475))->BgL_argsz00); 
BgL_argsz00_1483 = BgL_arg3778z00_1486; 
BgL_az00_1484 = BgL_az00_1478; 
BgL_liipz00_1485:
{ /* ./Integrate/a.scm 205 */
bool_t BgL_test3781z00_1487;
BgL_test3781z00_1487 = 
NULLP(BgL_argsz00_1483); 
if(BgL_test3781z00_1487)
{ /* ./Integrate/a.scm 206 */
bool_t BgL_test3782z00_1488;
{ /* ./Integrate/a.scm 207 */
obj_t BgL_obj1300z00_2029;
BgL_obj1300z00_2029 = 
(obj_t)(BgL_calleez00_1482); 
BgL_test3782z00_1488 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1300z00_2029, BGl_localz00zzast_varz00); } 
if(BgL_test3782z00_1488)
{ /* ./Integrate/a.scm 206 */
{ /* ./Integrate/a.scm 208 */
obj_t BgL_arg3784z00_1489;
{ /* ./Integrate/a.scm 208 */
obj_t BgL_arg3787z00_1490;
{ /* ./Integrate/a.scm 208 */
obj_t BgL_arg3791z00_1491;
BgL_arg3791z00_1491 = 
MAKE_PAIR(BgL_kz00_1477, BNIL); 
{ /* ./Integrate/a.scm 208 */
obj_t BgL_auxz00_4259;
BgL_auxz00_4259 = 
(obj_t)(BgL_calleez00_1482); 
BgL_arg3787z00_1490 = 
MAKE_PAIR(BgL_auxz00_4259, BgL_arg3791z00_1491); } } 
BgL_arg3784z00_1489 = 
MAKE_PAIR(BgL_hostz00_1476, BgL_arg3787z00_1490); } 
return 
MAKE_PAIR(BgL_arg3784z00_1489, BgL_az00_1484);} }  else 
{ /* ./Integrate/a.scm 206 */
return BgL_az00_1484;} }  else 
{ /* ./Integrate/a.scm 211 */
obj_t BgL_arg3796z00_1492;obj_t BgL_arg3797z00_1493;
BgL_arg3796z00_1492 = 
CDR(BgL_argsz00_1483); 
{ /* ./Integrate/a.scm 212 */
obj_t BgL_arg3801z00_1494;obj_t BgL_arg3802z00_1495;
BgL_arg3801z00_1494 = 
CAR(BgL_argsz00_1483); 
{ /* ./Integrate/a.scm 214 */
obj_t BgL_arg3806z00_1496;BgL_typez00_bglt BgL_arg3807z00_1497;
BgL_arg3806z00_1496 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 214 */
obj_t BgL_arg3811z00_1498;
BgL_arg3811z00_1498 = 
CAR(BgL_argsz00_1483); 
BgL_arg3807z00_1497 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_arg3811z00_1498)); } 
{ /* ./Integrate/a.scm 214 */
obj_t BgL_auxz00_4270;
BgL_auxz00_4270 = 
(obj_t)(BgL_arg3807z00_1497); 
BgL_arg3802z00_1495 = 
MAKE_PAIR(BgL_arg3806z00_1496, BgL_auxz00_4270); } } 
{ /* ./Integrate/a.scm 212 */
BgL_nodez00_bglt BgL_nodez00_2033;BgL_variablez00_bglt BgL_hostz00_2034;
BgL_nodez00_2033 = 
(BgL_nodez00_bglt)(BgL_arg3801z00_1494); 
BgL_hostz00_2034 = 
(BgL_variablez00_bglt)(BgL_hostz00_1476); 
{ /* ./Integrate/a.scm 212 */
obj_t BgL_method2956z00_2037;
{ /* ./Integrate/a.scm 212 */
BgL_objectz00_bglt BgL_objz00_2038;
BgL_objz00_2038 = 
(BgL_objectz00_bglt)(BgL_nodez00_2033); 
{ /* ./Integrate/a.scm 212 */
long BgL_objzd2classzd2numz00_2039;
BgL_objzd2classzd2numz00_2039 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2038); 
{ /* ./Integrate/a.scm 212 */
obj_t BgL_arg2017z00_2040;
{ /* ./Integrate/a.scm 212 */
int BgL_auxz00_4277;
BgL_auxz00_4277 = 
(int)(((long)1)); 
BgL_arg2017z00_2040 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_4277); } 
{ /* ./Integrate/a.scm 212 */
int BgL_offsetz00_2043;
BgL_offsetz00_2043 = 
(int)(BgL_objzd2classzd2numz00_2039); 
{ /* ./Integrate/a.scm 212 */
long BgL_offsetz00_2044;
{ /* ./Integrate/a.scm 212 */
long BgL_auxz00_4281;
BgL_auxz00_4281 = 
(long)(BgL_offsetz00_2043); 
BgL_offsetz00_2044 = 
(BgL_auxz00_4281-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 212 */
long BgL_modz00_2045;
{ /* ./Integrate/a.scm 212 */
int BgL_arg2028z00_2046;
BgL_arg2028z00_2046 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 212 */
long BgL_n2z00_2054;
BgL_n2z00_2054 = 
(long)(BgL_arg2028z00_2046); 
BgL_modz00_2045 = 
(BgL_offsetz00_2044/BgL_n2z00_2054); } } 
{ /* ./Integrate/a.scm 212 */
long BgL_restz00_2047;
{ /* ./Integrate/a.scm 212 */
int BgL_arg2024z00_2048;
BgL_arg2024z00_2048 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 212 */
long BgL_n2z00_2057;
BgL_n2z00_2057 = 
(long)(BgL_arg2024z00_2048); 
BgL_restz00_2047 = 
(BgL_offsetz00_2044%BgL_n2z00_2057); } } 
{ /* ./Integrate/a.scm 212 */

{ /* ./Integrate/a.scm 212 */
obj_t BgL_bucketz00_2049;
{ /* ./Integrate/a.scm 212 */
int BgL_kz00_2059;
BgL_kz00_2059 = 
(int)(BgL_modz00_2045); 
BgL_bucketz00_2049 = 
VECTOR_REF(BgL_arg2017z00_2040,BgL_kz00_2059); } 
{ /* ./Integrate/a.scm 212 */
int BgL_kz00_2061;
BgL_kz00_2061 = 
(int)(BgL_restz00_2047); 
BgL_method2956z00_2037 = 
VECTOR_REF(BgL_bucketz00_2049,BgL_kz00_2061); } } } } } } } } } } 
BgL_arg3797z00_1493 = 
PROCEDURE_ENTRY(BgL_method2956z00_2037)(BgL_method2956z00_2037, 
(obj_t)(BgL_nodez00_2033), 
(obj_t)(BgL_hostz00_2034), BgL_arg3802z00_1495, BgL_az00_1484, BEOA); } } } 
{ 
obj_t BgL_az00_4299;obj_t BgL_argsz00_4298;
BgL_argsz00_4298 = BgL_arg3796z00_1492; 
BgL_az00_4299 = BgL_arg3797z00_1493; 
BgL_az00_1484 = BgL_az00_4299; 
BgL_argsz00_1483 = BgL_argsz00_4298; 
goto BgL_liipz00_1485;} } } } } } } } 
}



/* node-A-sequence2969 */
obj_t BGl_nodezd2Azd2sequence2969z00zzintegrate_az00(obj_t BgL_envz00_3004, obj_t BgL_nodez00_3005, obj_t BgL_hostz00_3006, obj_t BgL_kz00_3007, obj_t BgL_az00_3008)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 182 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1450;obj_t BgL_hostz00_1451;obj_t BgL_kz00_1452;obj_t BgL_az00_1453;
BgL_nodez00_1450 = 
(BgL_sequencez00_bglt)(BgL_nodez00_3005); 
BgL_hostz00_1451 = BgL_hostz00_3006; 
BgL_kz00_1452 = BgL_kz00_3007; 
BgL_az00_1453 = BgL_az00_3008; 
{ /* ./Integrate/a.scm 184 */
bool_t BgL_test3734z00_1457;
{ /* ./Integrate/a.scm 184 */
obj_t BgL_auxz00_4301;
BgL_auxz00_4301 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1450))->BgL_nodesz00); 
BgL_test3734z00_1457 = 
NULLP(BgL_auxz00_4301); } 
if(BgL_test3734z00_1457)
{ /* ./Integrate/a.scm 184 */
return BgL_az00_1453;}  else 
{ 
obj_t BgL_ndsz00_1458;obj_t BgL_az00_1459;
{ /* ./Integrate/a.scm 186 */
obj_t BgL_arg3736z00_1461;
BgL_arg3736z00_1461 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1450))->BgL_nodesz00); 
BgL_ndsz00_1458 = BgL_arg3736z00_1461; 
BgL_az00_1459 = BgL_az00_1453; 
BgL_liipz00_1460:
{ /* ./Integrate/a.scm 188 */
bool_t BgL_test3739z00_1462;
{ /* ./Integrate/a.scm 188 */
obj_t BgL_auxz00_4306;
BgL_auxz00_4306 = 
CDR(BgL_ndsz00_1458); 
BgL_test3739z00_1462 = 
NULLP(BgL_auxz00_4306); } 
if(BgL_test3739z00_1462)
{ /* ./Integrate/a.scm 189 */
obj_t BgL_arg3741z00_1463;
BgL_arg3741z00_1463 = 
CAR(BgL_ndsz00_1458); 
{ /* ./Integrate/a.scm 189 */
BgL_nodez00_bglt BgL_nodez00_1964;BgL_variablez00_bglt BgL_hostz00_1965;
BgL_nodez00_1964 = 
(BgL_nodez00_bglt)(BgL_arg3741z00_1463); 
BgL_hostz00_1965 = 
(BgL_variablez00_bglt)(BgL_hostz00_1451); 
{ /* ./Integrate/a.scm 189 */
obj_t BgL_method2956z00_1968;
{ /* ./Integrate/a.scm 189 */
BgL_objectz00_bglt BgL_objz00_1969;
BgL_objz00_1969 = 
(BgL_objectz00_bglt)(BgL_nodez00_1964); 
{ /* ./Integrate/a.scm 189 */
long BgL_objzd2classzd2numz00_1970;
BgL_objzd2classzd2numz00_1970 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1969); 
{ /* ./Integrate/a.scm 189 */
obj_t BgL_arg2017z00_1971;
{ /* ./Integrate/a.scm 189 */
int BgL_auxz00_4315;
BgL_auxz00_4315 = 
(int)(((long)1)); 
BgL_arg2017z00_1971 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_4315); } 
{ /* ./Integrate/a.scm 189 */
int BgL_offsetz00_1974;
BgL_offsetz00_1974 = 
(int)(BgL_objzd2classzd2numz00_1970); 
{ /* ./Integrate/a.scm 189 */
long BgL_offsetz00_1975;
{ /* ./Integrate/a.scm 189 */
long BgL_auxz00_4319;
BgL_auxz00_4319 = 
(long)(BgL_offsetz00_1974); 
BgL_offsetz00_1975 = 
(BgL_auxz00_4319-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 189 */
long BgL_modz00_1976;
{ /* ./Integrate/a.scm 189 */
int BgL_arg2028z00_1977;
BgL_arg2028z00_1977 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 189 */
long BgL_n2z00_1985;
BgL_n2z00_1985 = 
(long)(BgL_arg2028z00_1977); 
BgL_modz00_1976 = 
(BgL_offsetz00_1975/BgL_n2z00_1985); } } 
{ /* ./Integrate/a.scm 189 */
long BgL_restz00_1978;
{ /* ./Integrate/a.scm 189 */
int BgL_arg2024z00_1979;
BgL_arg2024z00_1979 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 189 */
long BgL_n2z00_1988;
BgL_n2z00_1988 = 
(long)(BgL_arg2024z00_1979); 
BgL_restz00_1978 = 
(BgL_offsetz00_1975%BgL_n2z00_1988); } } 
{ /* ./Integrate/a.scm 189 */

{ /* ./Integrate/a.scm 189 */
obj_t BgL_bucketz00_1980;
{ /* ./Integrate/a.scm 189 */
int BgL_kz00_1990;
BgL_kz00_1990 = 
(int)(BgL_modz00_1976); 
BgL_bucketz00_1980 = 
VECTOR_REF(BgL_arg2017z00_1971,BgL_kz00_1990); } 
{ /* ./Integrate/a.scm 189 */
int BgL_kz00_1992;
BgL_kz00_1992 = 
(int)(BgL_restz00_1978); 
BgL_method2956z00_1968 = 
VECTOR_REF(BgL_bucketz00_1980,BgL_kz00_1992); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_1968)(BgL_method2956z00_1968, 
(obj_t)(BgL_nodez00_1964), 
(obj_t)(BgL_hostz00_1965), BgL_kz00_1452, BgL_az00_1459, BEOA);} } }  else 
{ /* ./Integrate/a.scm 190 */
obj_t BgL_arg3745z00_1464;obj_t BgL_arg3746z00_1465;
BgL_arg3745z00_1464 = 
CDR(BgL_ndsz00_1458); 
{ /* ./Integrate/a.scm 191 */
obj_t BgL_arg3750z00_1466;obj_t BgL_arg3751z00_1467;
BgL_arg3750z00_1466 = 
CAR(BgL_ndsz00_1458); 
{ /* ./Integrate/a.scm 193 */
obj_t BgL_arg3755z00_1468;BgL_typez00_bglt BgL_arg3756z00_1469;
BgL_arg3755z00_1468 = 
BGl_getzd2newzd2kontz00zzintegrate_az00(); 
{ /* ./Integrate/a.scm 193 */
obj_t BgL_arg3760z00_1470;
BgL_arg3760z00_1470 = 
CAR(BgL_ndsz00_1458); 
BgL_arg3756z00_1469 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_arg3760z00_1470)); } 
{ /* ./Integrate/a.scm 193 */
obj_t BgL_auxz00_4342;
BgL_auxz00_4342 = 
(obj_t)(BgL_arg3756z00_1469); 
BgL_arg3751z00_1467 = 
MAKE_PAIR(BgL_arg3755z00_1468, BgL_auxz00_4342); } } 
{ /* ./Integrate/a.scm 191 */
BgL_nodez00_bglt BgL_nodez00_1996;BgL_variablez00_bglt BgL_hostz00_1997;
BgL_nodez00_1996 = 
(BgL_nodez00_bglt)(BgL_arg3750z00_1466); 
BgL_hostz00_1997 = 
(BgL_variablez00_bglt)(BgL_hostz00_1451); 
{ /* ./Integrate/a.scm 191 */
obj_t BgL_method2956z00_2000;
{ /* ./Integrate/a.scm 191 */
BgL_objectz00_bglt BgL_objz00_2001;
BgL_objz00_2001 = 
(BgL_objectz00_bglt)(BgL_nodez00_1996); 
{ /* ./Integrate/a.scm 191 */
long BgL_objzd2classzd2numz00_2002;
BgL_objzd2classzd2numz00_2002 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2001); 
{ /* ./Integrate/a.scm 191 */
obj_t BgL_arg2017z00_2003;
{ /* ./Integrate/a.scm 191 */
int BgL_auxz00_4349;
BgL_auxz00_4349 = 
(int)(((long)1)); 
BgL_arg2017z00_2003 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_4349); } 
{ /* ./Integrate/a.scm 191 */
int BgL_offsetz00_2006;
BgL_offsetz00_2006 = 
(int)(BgL_objzd2classzd2numz00_2002); 
{ /* ./Integrate/a.scm 191 */
long BgL_offsetz00_2007;
{ /* ./Integrate/a.scm 191 */
long BgL_auxz00_4353;
BgL_auxz00_4353 = 
(long)(BgL_offsetz00_2006); 
BgL_offsetz00_2007 = 
(BgL_auxz00_4353-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 191 */
long BgL_modz00_2008;
{ /* ./Integrate/a.scm 191 */
int BgL_arg2028z00_2009;
BgL_arg2028z00_2009 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 191 */
long BgL_n2z00_2017;
BgL_n2z00_2017 = 
(long)(BgL_arg2028z00_2009); 
BgL_modz00_2008 = 
(BgL_offsetz00_2007/BgL_n2z00_2017); } } 
{ /* ./Integrate/a.scm 191 */
long BgL_restz00_2010;
{ /* ./Integrate/a.scm 191 */
int BgL_arg2024z00_2011;
BgL_arg2024z00_2011 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 191 */
long BgL_n2z00_2020;
BgL_n2z00_2020 = 
(long)(BgL_arg2024z00_2011); 
BgL_restz00_2010 = 
(BgL_offsetz00_2007%BgL_n2z00_2020); } } 
{ /* ./Integrate/a.scm 191 */

{ /* ./Integrate/a.scm 191 */
obj_t BgL_bucketz00_2012;
{ /* ./Integrate/a.scm 191 */
int BgL_kz00_2022;
BgL_kz00_2022 = 
(int)(BgL_modz00_2008); 
BgL_bucketz00_2012 = 
VECTOR_REF(BgL_arg2017z00_2003,BgL_kz00_2022); } 
{ /* ./Integrate/a.scm 191 */
int BgL_kz00_2024;
BgL_kz00_2024 = 
(int)(BgL_restz00_2010); 
BgL_method2956z00_2000 = 
VECTOR_REF(BgL_bucketz00_2012,BgL_kz00_2024); } } } } } } } } } } 
BgL_arg3746z00_1465 = 
PROCEDURE_ENTRY(BgL_method2956z00_2000)(BgL_method2956z00_2000, 
(obj_t)(BgL_nodez00_1996), 
(obj_t)(BgL_hostz00_1997), BgL_arg3751z00_1467, BgL_az00_1459, BEOA); } } } 
{ 
obj_t BgL_az00_4371;obj_t BgL_ndsz00_4370;
BgL_ndsz00_4370 = BgL_arg3745z00_1464; 
BgL_az00_4371 = BgL_arg3746z00_1465; 
BgL_az00_1459 = BgL_az00_4371; 
BgL_ndsz00_1458 = BgL_ndsz00_4370; 
goto BgL_liipz00_1460;} } } } } } } } 
}



/* node-A-closure2967 */
obj_t BGl_nodezd2Azd2closure2967z00zzintegrate_az00(obj_t BgL_envz00_3009, obj_t BgL_nodez00_3010, obj_t BgL_hostz00_3011, obj_t BgL_kz00_3012, obj_t BgL_az00_3013)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 176 */
{ 
BgL_closurez00_bglt BgL_nodez00_1439;obj_t BgL_hostz00_1440;obj_t BgL_kz00_1441;obj_t BgL_az00_1442;
BgL_nodez00_1439 = 
(BgL_closurez00_bglt)(BgL_nodez00_3010); 
BgL_hostz00_1440 = BgL_hostz00_3011; 
BgL_kz00_1441 = BgL_kz00_3012; 
BgL_az00_1442 = BgL_az00_3013; 
{ /* ./Integrate/a.scm 177 */
obj_t BgL_arg3725z00_1957;
BgL_arg3725z00_1957 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1439)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string5013z00zzintegrate_az00, BGl_string5014z00zzintegrate_az00, BgL_arg3725z00_1957);} } } 
}



/* node-A-var2964 */
obj_t BGl_nodezd2Azd2var2964z00zzintegrate_az00(obj_t BgL_envz00_3014, obj_t BgL_nodez00_3015, obj_t BgL_hostz00_3016, obj_t BgL_kz00_3017, obj_t BgL_az00_3018)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 170 */
return BgL_az00_3018;} 
}



/* node-A-kwote2961 */
obj_t BGl_nodezd2Azd2kwote2961z00zzintegrate_az00(obj_t BgL_envz00_3019, obj_t BgL_nodez00_3020, obj_t BgL_hostz00_3021, obj_t BgL_kz00_3022, obj_t BgL_az00_3023)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 164 */
return BgL_az00_3023;} 
}



/* node-A-atom2959 */
obj_t BGl_nodezd2Azd2atom2959z00zzintegrate_az00(obj_t BgL_envz00_3024, obj_t BgL_nodez00_3025, obj_t BgL_hostz00_3026, obj_t BgL_kz00_3027, obj_t BgL_az00_3028)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 158 */
return BgL_az00_3028;} 
}



/* node-A */
obj_t BGl_nodezd2Azd2zzintegrate_az00(BgL_nodez00_bglt BgL_nodez00_9, BgL_variablez00_bglt BgL_hostz00_10, obj_t BgL_kz00_11, obj_t BgL_az00_12)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 153 */
{ /* ./Integrate/a.scm 153 */
obj_t BgL_method2956z00_2864;
{ /* ./Integrate/a.scm 153 */
BgL_objectz00_bglt BgL_objz00_2865;
BgL_objz00_2865 = 
(BgL_objectz00_bglt)(BgL_nodez00_9); 
{ /* ./Integrate/a.scm 153 */
long BgL_objzd2classzd2numz00_2866;
BgL_objzd2classzd2numz00_2866 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2865); 
{ /* ./Integrate/a.scm 153 */
obj_t BgL_arg2017z00_2867;
{ /* ./Integrate/a.scm 153 */
int BgL_auxz00_4379;
BgL_auxz00_4379 = 
(int)(((long)1)); 
BgL_arg2017z00_2867 = 
PROCEDURE_REF(BGl_nodezd2Azd2envz00zzintegrate_az00, BgL_auxz00_4379); } 
{ /* ./Integrate/a.scm 153 */
int BgL_offsetz00_2870;
BgL_offsetz00_2870 = 
(int)(BgL_objzd2classzd2numz00_2866); 
{ /* ./Integrate/a.scm 153 */
long BgL_offsetz00_2871;
{ /* ./Integrate/a.scm 153 */
long BgL_auxz00_4383;
BgL_auxz00_4383 = 
(long)(BgL_offsetz00_2870); 
BgL_offsetz00_2871 = 
(BgL_auxz00_4383-OBJECT_TYPE); } 
{ /* ./Integrate/a.scm 153 */
long BgL_modz00_2872;
{ /* ./Integrate/a.scm 153 */
int BgL_arg2028z00_2873;
BgL_arg2028z00_2873 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 153 */
long BgL_n2z00_2881;
BgL_n2z00_2881 = 
(long)(BgL_arg2028z00_2873); 
BgL_modz00_2872 = 
(BgL_offsetz00_2871/BgL_n2z00_2881); } } 
{ /* ./Integrate/a.scm 153 */
long BgL_restz00_2874;
{ /* ./Integrate/a.scm 153 */
int BgL_arg2024z00_2875;
BgL_arg2024z00_2875 = 
(int)(((long)8)); 
{ /* ./Integrate/a.scm 153 */
long BgL_n2z00_2884;
BgL_n2z00_2884 = 
(long)(BgL_arg2024z00_2875); 
BgL_restz00_2874 = 
(BgL_offsetz00_2871%BgL_n2z00_2884); } } 
{ /* ./Integrate/a.scm 153 */

{ /* ./Integrate/a.scm 153 */
obj_t BgL_bucketz00_2876;
{ /* ./Integrate/a.scm 153 */
int BgL_kz00_2886;
BgL_kz00_2886 = 
(int)(BgL_modz00_2872); 
BgL_bucketz00_2876 = 
VECTOR_REF(BgL_arg2017z00_2867,BgL_kz00_2886); } 
{ /* ./Integrate/a.scm 153 */
int BgL_kz00_2888;
BgL_kz00_2888 = 
(int)(BgL_restz00_2874); 
BgL_method2956z00_2864 = 
VECTOR_REF(BgL_bucketz00_2876,BgL_kz00_2888); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2956z00_2864)(BgL_method2956z00_2864, 
(obj_t)(BgL_nodez00_9), 
(obj_t)(BgL_hostz00_10), BgL_kz00_11, BgL_az00_12, BEOA);} } 
}



/* _node-A */
obj_t BGl__nodezd2Azd2zzintegrate_az00(obj_t BgL_envz00_2895, obj_t BgL_nodez00_2896, obj_t BgL_hostz00_2897, obj_t BgL_kz00_2898, obj_t BgL_az00_2899)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 153 */
return 
BGl_nodezd2Azd2zzintegrate_az00(
(BgL_nodez00_bglt)(BgL_nodez00_2896), 
(BgL_variablez00_bglt)(BgL_hostz00_2897), BgL_kz00_2898, BgL_az00_2899);} 
}



/* node-A-default2955 */
obj_t BGl_nodezd2Azd2default2955z00zzintegrate_az00(BgL_nodez00_bglt BgL_nodez00_13, BgL_variablez00_bglt BgL_hostz00_14, obj_t BgL_kz00_15, obj_t BgL_az00_16)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 18 */
{ /* ./Integrate/a.scm 18 */
obj_t BgL_procz00_2889;obj_t BgL_objectz00_2891;
BgL_procz00_2889 = 
CNST_TABLE_REF(((long)1)); 
BgL_objectz00_2891 = 
(obj_t)(BgL_nodez00_13); 
FAILURE(BgL_procz00_2889,BGl_string5015z00zzintegrate_az00,BgL_objectz00_2891);} } 
}



/* _node-A-default2955 */
obj_t BGl__nodezd2Azd2default2955z00zzintegrate_az00(obj_t BgL_envz00_3029, obj_t BgL_nodez00_3030, obj_t BgL_hostz00_3031, obj_t BgL_kz00_3032, obj_t BgL_az00_3033)
{ AN_OBJECT;
{ /* ./Integrate/a.scm 18 */
return 
BGl_nodezd2Azd2default2955z00zzintegrate_az00(
(BgL_nodez00_bglt)(BgL_nodez00_3030), 
(BgL_variablez00_bglt)(BgL_hostz00_3031), BgL_kz00_3032, BgL_az00_3033);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzintegrate_az00()
{ AN_OBJECT;
{ /* ./Integrate/a.scm 18 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "integrate_a"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "integrate_a"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "integrate_a"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "integrate_a"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "integrate_a"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "integrate_a"); 
BGl_modulezd2initializa7ationz75zzintegrate_infoz00(((long)0), "integrate_a"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "integrate_a"); 
return 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "integrate_a");} 
}

