/*===========================================================================*/
/*   (Integrate/node.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/node.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__integratezd2celledzf3z21zzintegrate_nodez00(obj_t, obj_t);
static obj_t BGl_gloza2z12zb0zzintegrate_nodez00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzintegrate_nodez00();
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
extern obj_t BGl_svarzf2Iinfozf2zzintegrate_infoz00;
extern BgL_letzd2varzd2_bglt BGl_makezd2letzd2varz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, BgL_nodez00_bglt, bool_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_gloz12zd2select3000zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
static obj_t BGl__gloz12zd2default2968zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_cellzd2formalszd2zzintegrate_nodez00(obj_t, BgL_nodez00_bglt);
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_gloz12zd2conditional2995zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2atom2971zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2_za2z00zztype_cachez00;
BGL_EXPORTED_DECL bool_t BGl_integratezd2celledzf3z21zzintegrate_nodez00(BgL_localz00_bglt);
extern obj_t BGl_globalz00zzast_varz00;
static obj_t BGl_gloz12zd2boxzd2setz123014z00zzintegrate_nodez00(obj_t, obj_t, obj_t);
static BgL_makezd2boxzd2_bglt BGl_azd2makezd2cellz00zzintegrate_nodez00(BgL_nodez00_bglt, BgL_variablez00_bglt);
extern obj_t BGl_castz00zzast_nodez00;
static obj_t BGl_gloz12zd2makezd2box3010z12zzintegrate_nodez00(obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
static obj_t BGl_gloz12zd2app2982zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzintegrate_nodez00();
BGL_EXPORTED_DECL obj_t BGl_globaliza7ez12zb5zzintegrate_nodez00(BgL_nodez00_bglt, BgL_variablez00_bglt, obj_t);
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_gloz12zd2appzd2ly2985z12zzintegrate_nodez00(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2kwote2973zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2funcall2987zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzintegrate_nodez00();
static obj_t BGl_gloz12zd2setq2993zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_gloz12zd2closure2977zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzintegrate_nodez00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl_gloz12zd2letzd2fun3002z12zzintegrate_nodez00(obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzintegrate_nodez00(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_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzintegrate_infoz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzintegrate_localzd2ze3globalz31(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
static BgL_nodez00_bglt BGl_gloz12zd2default2968zc0zzintegrate_nodez00(BgL_nodez00_bglt, BgL_variablez00_bglt);
static obj_t BGl_gloz12zd2letzd2var3004z12zzintegrate_nodez00(obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
static obj_t BGl_gloz12zd2extern2989zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2cast2991zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_wideningzd2svarzf2Iinfoz20zzintegrate_infoz00(obj_t, obj_t, bool_t, bool_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl_globaliza7ezd2localzd2funz12zb5zzintegrate_nodez00(BgL_localz00_bglt, BgL_variablez00_bglt);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
static obj_t BGl_gloz12zd2sequence2979zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t, BgL_typez00_bglt);
extern BgL_boxzd2setz12zc0_bglt BGl_makezd2boxzd2setz12z12zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt);
extern obj_t BGl_sequencez00zzast_nodez00;
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_celledzd2bindingszd2zzintegrate_nodez00(obj_t);
static obj_t BGl__globaliza7ez124226zb5zzintegrate_nodez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_gloz12zd2var2975zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
extern obj_t BGl_localz00zzast_varz00;
static obj_t BGl_gloz12zd2setzd2exzd2it3006zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
extern obj_t BGl_closurez00zzast_nodez00;
extern BgL_varz00_bglt BGl_makezd2varzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
extern BgL_makezd2boxzd2_bglt BGl_makezd2makezd2boxz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt);
static obj_t BGl__gloz124228z12zzintegrate_nodez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
extern obj_t BGl_za2objza2z00zztype_cachez00;
static BgL_nodez00_bglt BGl_gloz12z12zzintegrate_nodez00(BgL_nodez00_bglt, BgL_variablez00_bglt);
extern obj_t BGl_thezd2globalzd2zzintegrate_localzd2ze3globalz31(BgL_localz00_bglt);
static obj_t BGl_requirezd2initializa7ationz75zzintegrate_nodez00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzintegrate_nodez00();
static obj_t BGl_gloz12zd2fail2998zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
extern BgL_boxzd2refzd2_bglt BGl_makezd2boxzd2refz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt);
static obj_t BGl_gloz12zd2jumpzd2exzd2it3008zc0zzintegrate_nodez00(obj_t, obj_t, obj_t);
static obj_t BGl_gloz12zd2boxzd2ref3012z12zzintegrate_nodez00(obj_t, obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 5 ] ;


DEFINE_STRING( BGl_string4890z00zzintegrate_nodez00, BgL_bgl_string4890za700za7za7integrate_nodeza7004919z00, "glo!-default2968 aux done (write cell-integrate) cell-integrate ", 64 );
DEFINE_STRING( BGl_string4889z00zzintegrate_nodez00, BgL_bgl_string4889za700za7za7integrate_nodeza7004920z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string4888z00zzintegrate_nodez00, BgL_bgl_string4888za700za7za7integrate_nodeza7004921z00, "Unexepected `closure' node", 26 );
DEFINE_STRING( BGl_string4887z00zzintegrate_nodez00, BgL_bgl_string4887za700za7za7integrate_nodeza7004922z00, "node-free", 9 );
DEFINE_STATIC_GENERIC( BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_bgl__gloza7124228za712za7za7integrate_nodeza7004923za7, BGl__gloz124228z12zzintegrate_nodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_integratezd2celledzf3zd2envzf3zzintegrate_nodez00, BgL_bgl__integrateza7d2celledza7f3za721za7za7integrate_nodeza7004924z00, BGl__integratezd2celledzf3z21zzintegrate_nodez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_globaliza7ez12zd2envz67zzintegrate_nodez00, BgL_bgl__globaliza7a7eza7124226za7b5za7za7integrate_nodeza7004925z00, BGl__globaliza7ez124226zb5zzintegrate_nodez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4866z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2atom2971za7c0za7za7integrate_nodeza7004926z00, BGl_gloz12zd2atom2971zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4867z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2kwote2973za7c0za7za7integrate_nodeza7004927z00, BGl_gloz12zd2kwote2973zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4868z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2var2975za7c0za7za7integrate_nodeza7004928z00, BGl_gloz12zd2var2975zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4870z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2sequence2979za7c0za7za7integrate_nodeza7004929z00, BGl_gloz12zd2sequence2979zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4869z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2closure2977za7c0za7za7integrate_nodeza7004930z00, BGl_gloz12zd2closure2977zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4871z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2app2982za7c0za7za7integrate_nodeza7004931z00, BGl_gloz12zd2app2982zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4872z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2appza7d2ly2985za712za7za7integrate_nodeza7004932za7, BGl_gloz12zd2appzd2ly2985z12zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4873z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2funcall2987za7c0za7za7integrate_nodeza7004933z00, BGl_gloz12zd2funcall2987zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4874z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2extern2989za7c0za7za7integrate_nodeza7004934z00, BGl_gloz12zd2extern2989zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4875z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2cast2991za7c0za7za7integrate_nodeza7004935z00, BGl_gloz12zd2cast2991zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4876z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2setq2993za7c0za7za7integrate_nodeza7004936z00, BGl_gloz12zd2setq2993zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4877z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2conditional2995za7c0za7za7integrate_nodeza7004937z00, BGl_gloz12zd2conditional2995zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4878z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2fail2998za7c0za7za7integrate_nodeza7004938z00, BGl_gloz12zd2fail2998zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4880z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2letza7d2fun3002za712za7za7integrate_nodeza7004939za7, BGl_gloz12zd2letzd2fun3002z12zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4879z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2select3000za7c0za7za7integrate_nodeza7004940z00, BGl_gloz12zd2select3000zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4881z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2letza7d2var3004za712za7za7integrate_nodeza7004941za7, BGl_gloz12zd2letzd2var3004z12zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4882z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2setza7d2exza7d2it3006za7c0za7za7integrate_nodeza7004942z00, BGl_gloz12zd2setzd2exzd2it3006zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4883z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2jumpza7d2exza7d2it3008za7c0za7za7integrate_nodeza7004943z00, BGl_gloz12zd2jumpzd2exzd2it3008zc0zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4884z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2makeza7d2box3010za712za7za7integrate_nodeza7004944za7, BGl_gloz12zd2makezd2box3010z12zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4885z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2boxza7d2ref3012za712za7za7integrate_nodeza7004945za7, BGl_gloz12zd2boxzd2ref3012z12zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4886z00zzintegrate_nodez00, BgL_bgl_gloza712za7d2boxza7d2setza7123014za700za7za7integrate_nodeza7004946z00, BGl_gloz12zd2boxzd2setz123014z00zzintegrate_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_gloz12zd2default2968zd2envz12zzintegrate_nodez00, BgL_bgl__gloza712za7d2default2968za7c0za7za7integrate_nodeza7004947z00, BGl__gloz12zd2default2968zc0zzintegrate_nodez00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzintegrate_nodez00(long BgL_checksumz00_2816, char * BgL_fromz00_2817)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzintegrate_nodez00))
{ 
BGl_requirezd2initializa7ationz75zzintegrate_nodez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzintegrate_nodez00(); 
BGl_cnstzd2initzd2zzintegrate_nodez00(); 
BGl_importedzd2moduleszd2initz00zzintegrate_nodez00(); 
BGl_methodzd2initzd2zzintegrate_nodez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzintegrate_nodez00()
{ AN_OBJECT;
{ /* ./Integrate/node.scm 15 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "integrate_node"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "integrate_node"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "integrate_node"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzintegrate_nodez00()
{ AN_OBJECT;
{ /* ./Integrate/node.scm 15 */
{ /* ./Integrate/node.scm 15 */
obj_t BgL_cportz00_2801;
BgL_cportz00_2801 = 
open_input_string(BGl_string4890z00zzintegrate_nodez00); 
{ 
long BgL_iz00_2802;
BgL_iz00_2802 = ((long)4); 
BgL_loopz00_2803:
{ /* ./Integrate/node.scm 15 */
bool_t BgL_test4892z00_2804;
BgL_test4892z00_2804 = 
(BgL_iz00_2802==((long)-1)); 
if(BgL_test4892z00_2804)
{ /* ./Integrate/node.scm 15 */
return BUNSPEC;}  else 
{ /* ./Integrate/node.scm 15 */
{ /* ./Integrate/node.scm 15 */
obj_t BgL_arg4894z00_2805;
{ /* ./Integrate/node.scm 15 */
obj_t BgL_list4897z00_2806;
BgL_list4897z00_2806 = 
MAKE_PAIR(BgL_cportz00_2801, BNIL); 
BgL_arg4894z00_2805 = 
BGl_readz00zz__readerz00(BgL_list4897z00_2806); } 
{ /* ./Integrate/node.scm 15 */
int BgL_auxz00_2833;
BgL_auxz00_2833 = 
(int)(BgL_iz00_2802); 
CNST_TABLE_SET(BgL_auxz00_2833, BgL_arg4894z00_2805); } } 
{ /* ./Integrate/node.scm 15 */
int BgL_auxz00_2807;
{ /* ./Integrate/node.scm 15 */
long BgL_auxz00_2836;
BgL_auxz00_2836 = 
(BgL_iz00_2802-((long)1)); 
BgL_auxz00_2807 = 
(int)(BgL_auxz00_2836); } 
{ 
long BgL_iz00_2839;
BgL_iz00_2839 = 
(long)(BgL_auxz00_2807); 
BgL_iz00_2802 = BgL_iz00_2839; 
goto BgL_loopz00_2803;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzintegrate_nodez00()
{ AN_OBJECT;
{ /* ./Integrate/node.scm 15 */
return BUNSPEC;} 
}



/* globalize! */
BGL_EXPORTED_DEF obj_t BGl_globaliza7ez12zb5zzintegrate_nodez00(BgL_nodez00_bglt BgL_astz00_1, BgL_variablez00_bglt BgL_integratorz00_2, obj_t BgL_whatzf2byza2z50_3)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 35 */
{ /* ./Integrate/node.scm 41 */
BgL_valuez00_bglt BgL_funz00_827;
BgL_funz00_827 = 
(((BgL_variablez00_bglt)CREF(BgL_integratorz00_2))->BgL_valuez00); 
{ /* ./Integrate/node.scm 41 */
obj_t BgL_celledz00_828;
{ /* ./Integrate/node.scm 42 */
obj_t BgL_arg3047z00_845;
{ /* ./Integrate/node.scm 42 */
BgL_sfunz00_bglt BgL_obj1367z00_1619;
BgL_obj1367z00_1619 = 
(BgL_sfunz00_bglt)(BgL_funz00_827); 
BgL_arg3047z00_845 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1619))->BgL_argsz00); } 
BgL_celledz00_828 = 
BGl_celledzd2bindingszd2zzintegrate_nodez00(BgL_arg3047z00_845); } 
{ /* ./Integrate/node.scm 42 */
obj_t BgL_whatzf2byza2z50_829;
BgL_whatzf2byza2z50_829 = 
bgl_append2(BgL_celledz00_828, BgL_whatzf2byza2z50_3); 
{ /* ./Integrate/node.scm 43 */

{ 
obj_t BgL_l2899z00_830;
BgL_l2899z00_830 = BgL_whatzf2byza2z50_829; 
BgL_forzd2each2900zd2_831:
{ /* ./Integrate/node.scm 45 */
bool_t BgL_test3016z00_832;
BgL_test3016z00_832 = 
PAIRP(BgL_l2899z00_830); 
if(BgL_test3016z00_832)
{ /* ./Integrate/node.scm 45 */
{ /* ./Integrate/node.scm 46 */
obj_t BgL_wze2bze2_833;
BgL_wze2bze2_833 = 
CAR(BgL_l2899z00_830); 
{ /* ./Integrate/node.scm 46 */
obj_t BgL_arg3018z00_834;obj_t BgL_arg3019z00_835;
BgL_arg3018z00_834 = 
CAR(BgL_wze2bze2_833); 
BgL_arg3019z00_835 = 
CDR(BgL_wze2bze2_833); 
{ /* ./Integrate/node.scm 46 */
BgL_variablez00_bglt BgL_obj1108z00_1624;obj_t BgL_val1107z00_1625;
BgL_obj1108z00_1624 = 
(BgL_variablez00_bglt)(BgL_arg3018z00_834); 
BgL_val1107z00_1625 = BgL_arg3019z00_835; 
((((BgL_variablez00_bglt)CREF(BgL_obj1108z00_1624))->BgL_fastzd2alphazd2) = ((obj_t)BgL_val1107z00_1625), BUNSPEC); } } } 
{ /* ./Integrate/node.scm 45 */
obj_t BgL_arg3025z00_836;
BgL_arg3025z00_836 = 
CDR(BgL_l2899z00_830); 
{ 
obj_t BgL_l2899z00_2854;
BgL_l2899z00_2854 = BgL_arg3025z00_836; 
BgL_l2899z00_830 = BgL_l2899z00_2854; 
goto BgL_forzd2each2900zd2_831;} } }  else 
{ /* ./Integrate/node.scm 45 */((bool_t)1); } } } 
{ /* ./Integrate/node.scm 48 */
obj_t BgL_resz00_837;
{ /* ./Integrate/node.scm 48 */
BgL_nodez00_bglt BgL_arg3042z00_844;
{ /* ./Integrate/node.scm 48 */
BgL_nodez00_bglt BgL_res4138z00_1654;
{ /* ./Integrate/node.scm 48 */
obj_t BgL_method2969z00_1629;
{ /* ./Integrate/node.scm 48 */
BgL_objectz00_bglt BgL_objz00_1630;
BgL_objz00_1630 = 
(BgL_objectz00_bglt)(BgL_astz00_1); 
{ /* ./Integrate/node.scm 48 */
long BgL_objzd2classzd2numz00_1631;
BgL_objzd2classzd2numz00_1631 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1630); 
{ /* ./Integrate/node.scm 48 */
obj_t BgL_arg2017z00_1632;
{ /* ./Integrate/node.scm 48 */
int BgL_auxz00_2857;
BgL_auxz00_2857 = 
(int)(((long)1)); 
BgL_arg2017z00_1632 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_2857); } 
{ /* ./Integrate/node.scm 48 */
int BgL_offsetz00_1635;
BgL_offsetz00_1635 = 
(int)(BgL_objzd2classzd2numz00_1631); 
{ /* ./Integrate/node.scm 48 */
long BgL_offsetz00_1636;
{ /* ./Integrate/node.scm 48 */
long BgL_auxz00_2861;
BgL_auxz00_2861 = 
(long)(BgL_offsetz00_1635); 
BgL_offsetz00_1636 = 
(BgL_auxz00_2861-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 48 */
long BgL_modz00_1637;
{ /* ./Integrate/node.scm 48 */
int BgL_arg2028z00_1638;
BgL_arg2028z00_1638 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 48 */
long BgL_n2z00_1646;
BgL_n2z00_1646 = 
(long)(BgL_arg2028z00_1638); 
BgL_modz00_1637 = 
(BgL_offsetz00_1636/BgL_n2z00_1646); } } 
{ /* ./Integrate/node.scm 48 */
long BgL_restz00_1639;
{ /* ./Integrate/node.scm 48 */
int BgL_arg2024z00_1640;
BgL_arg2024z00_1640 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 48 */
long BgL_n2z00_1649;
BgL_n2z00_1649 = 
(long)(BgL_arg2024z00_1640); 
BgL_restz00_1639 = 
(BgL_offsetz00_1636%BgL_n2z00_1649); } } 
{ /* ./Integrate/node.scm 48 */

{ /* ./Integrate/node.scm 48 */
obj_t BgL_bucketz00_1641;
{ /* ./Integrate/node.scm 48 */
int BgL_kz00_1651;
BgL_kz00_1651 = 
(int)(BgL_modz00_1637); 
BgL_bucketz00_1641 = 
VECTOR_REF(BgL_arg2017z00_1632,BgL_kz00_1651); } 
{ /* ./Integrate/node.scm 48 */
int BgL_kz00_1653;
BgL_kz00_1653 = 
(int)(BgL_restz00_1639); 
BgL_method2969z00_1629 = 
VECTOR_REF(BgL_bucketz00_1641,BgL_kz00_1653); } } } } } } } } } } 
{ /* ./Integrate/node.scm 48 */
obj_t BgL_auxz00_2874;
BgL_auxz00_2874 = 
PROCEDURE_ENTRY(BgL_method2969z00_1629)(BgL_method2969z00_1629, 
(obj_t)(BgL_astz00_1), 
(obj_t)(BgL_integratorz00_2), BEOA); 
BgL_res4138z00_1654 = 
(BgL_nodez00_bglt)(BgL_auxz00_2874); } } 
BgL_arg3042z00_844 = BgL_res4138z00_1654; } 
BgL_resz00_837 = 
BGl_cellzd2formalszd2zzintegrate_nodez00(BgL_celledz00_828, BgL_arg3042z00_844); } 
{ 
obj_t BgL_l2901z00_838;
BgL_l2901z00_838 = BgL_whatzf2byza2z50_829; 
BgL_forzd2each2902zd2_839:
{ /* ./Integrate/node.scm 50 */
bool_t BgL_test3030z00_840;
BgL_test3030z00_840 = 
PAIRP(BgL_l2901z00_838); 
if(BgL_test3030z00_840)
{ /* ./Integrate/node.scm 50 */
{ /* ./Integrate/node.scm 51 */
obj_t BgL_wze2bze2_841;
BgL_wze2bze2_841 = 
CAR(BgL_l2901z00_838); 
{ /* ./Integrate/node.scm 51 */
obj_t BgL_arg3032z00_842;
BgL_arg3032z00_842 = 
CAR(BgL_wze2bze2_841); 
{ /* ./Integrate/node.scm 51 */
BgL_variablez00_bglt BgL_obj1108z00_1658;obj_t BgL_val1107z00_1659;
BgL_obj1108z00_1658 = 
(BgL_variablez00_bglt)(BgL_arg3032z00_842); 
BgL_val1107z00_1659 = BUNSPEC; 
((((BgL_variablez00_bglt)CREF(BgL_obj1108z00_1658))->BgL_fastzd2alphazd2) = ((obj_t)BgL_val1107z00_1659), BUNSPEC); } } } 
{ /* ./Integrate/node.scm 50 */
obj_t BgL_arg3037z00_843;
BgL_arg3037z00_843 = 
CDR(BgL_l2901z00_838); 
{ 
obj_t BgL_l2901z00_2888;
BgL_l2901z00_2888 = BgL_arg3037z00_843; 
BgL_l2901z00_838 = BgL_l2901z00_2888; 
goto BgL_forzd2each2902zd2_839;} } }  else 
{ /* ./Integrate/node.scm 50 */((bool_t)1); } } } 
return BgL_resz00_837;} } } } } } 
}



/* _globalize!4226 */
obj_t BGl__globaliza7ez124226zb5zzintegrate_nodez00(obj_t BgL_envz00_2705, obj_t BgL_astz00_2706, obj_t BgL_integratorz00_2707, obj_t BgL_whatzf2byza2z50_2708)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 35 */
return 
BGl_globaliza7ez12zb5zzintegrate_nodez00(
(BgL_nodez00_bglt)(BgL_astz00_2706), 
(BgL_variablez00_bglt)(BgL_integratorz00_2707), BgL_whatzf2byza2z50_2708);} 
}



/* celled-bindings */
obj_t BGl_celledzd2bindingszd2zzintegrate_nodez00(obj_t BgL_formalsz00_4)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 58 */
{ 
obj_t BgL_celledz00_846;obj_t BgL_formalsz00_847;
BgL_celledz00_846 = BNIL; 
BgL_formalsz00_847 = BgL_formalsz00_4; 
BgL_loopz00_848:
{ /* ./Integrate/node.scm 62 */
bool_t BgL_test3052z00_849;
BgL_test3052z00_849 = 
NULLP(BgL_formalsz00_847); 
if(BgL_test3052z00_849)
{ /* ./Integrate/node.scm 62 */
return BgL_celledz00_846;}  else 
{ /* ./Integrate/node.scm 64 */
bool_t BgL_test3053z00_850;
{ /* ./Integrate/node.scm 64 */
BgL_localz00_bglt BgL_auxz00_2894;
{ /* ./Integrate/node.scm 64 */
obj_t BgL_auxz00_2895;
BgL_auxz00_2895 = 
CAR(BgL_formalsz00_847); 
BgL_auxz00_2894 = 
(BgL_localz00_bglt)(BgL_auxz00_2895); } 
BgL_test3053z00_850 = 
BGl_integratezd2celledzf3z21zzintegrate_nodez00(BgL_auxz00_2894); } 
if(BgL_test3053z00_850)
{ /* ./Integrate/node.scm 64 */
{ /* ./Integrate/node.scm 67 */
BgL_localz00_bglt BgL_varz00_851;
{ /* ./Integrate/node.scm 67 */
obj_t BgL_arg3080z00_861;
{ /* ./Integrate/node.scm 67 */
BgL_variablez00_bglt BgL_obj1093z00_1664;
{ /* ./Integrate/node.scm 67 */
obj_t BgL_auxz00_2900;
BgL_auxz00_2900 = 
CAR(BgL_formalsz00_847); 
BgL_obj1093z00_1664 = 
(BgL_variablez00_bglt)(BgL_auxz00_2900); } 
BgL_arg3080z00_861 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1664))->BgL_idz00); } 
BgL_varz00_851 = 
BGl_makezd2localzd2svarz00zzast_localz00(BgL_arg3080z00_861, 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); } 
{ /* ./Integrate/node.scm 67 */
obj_t BgL_oze2nze2_852;
{ /* ./Integrate/node.scm 68 */
obj_t BgL_arg3076z00_860;
BgL_arg3076z00_860 = 
CAR(BgL_formalsz00_847); 
{ /* ./Integrate/node.scm 68 */
obj_t BgL_auxz00_2907;
BgL_auxz00_2907 = 
(obj_t)(BgL_varz00_851); 
BgL_oze2nze2_852 = 
MAKE_PAIR(BgL_arg3076z00_860, BgL_auxz00_2907); } } 
{ /* ./Integrate/node.scm 68 */

{ /* ./Integrate/node.scm 69 */
BgL_variablez00_bglt BgL_obj1105z00_1666;obj_t BgL_val1104z00_1667;
BgL_obj1105z00_1666 = 
(BgL_variablez00_bglt)(BgL_varz00_851); 
BgL_val1104z00_1667 = 
CNST_TABLE_REF(((long)0)); 
((((BgL_variablez00_bglt)CREF(BgL_obj1105z00_1666))->BgL_accessz00) = ((obj_t)BgL_val1104z00_1667), BUNSPEC); } 
{ /* ./Integrate/node.scm 70 */
BgL_svarz00_bglt BgL_obj2903z00_853;
{ 
BgL_svarz00_bglt BgL_auxz00_2913;
{ /* ./Integrate/node.scm 70 */
BgL_valuez00_bglt BgL_auxz00_2914;
{ /* ./Integrate/node.scm 70 */
BgL_variablez00_bglt BgL_obj1100z00_2808;
BgL_obj1100z00_2808 = 
(BgL_variablez00_bglt)(BgL_varz00_851); 
BgL_auxz00_2914 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2808))->BgL_valuez00); } 
BgL_auxz00_2913 = 
(BgL_svarz00_bglt)(BgL_auxz00_2914); } 
BgL_obj2903z00_853 = 
((BgL_svarz00_bglt)BgL_auxz00_2913); } 
{ /* ./Integrate/node.scm 72 */
obj_t BgL_arg3056z00_854;
{ /* ./Integrate/node.scm 72 */
bool_t BgL_arg3059z00_855;bool_t BgL_arg3061z00_856;
BgL_arg3059z00_855 = ((bool_t)1); 
BgL_arg3061z00_856 = ((bool_t)1); 
BgL_arg3056z00_854 = 
BGl_wideningzd2svarzf2Iinfoz20zzintegrate_infoz00(BUNSPEC, BUNSPEC, BgL_arg3059z00_855, BgL_arg3061z00_856); } 
{ /* ./Integrate/node.scm 70 */
BgL_objectz00_bglt BgL_auxz00_2920;
BgL_auxz00_2920 = 
(BgL_objectz00_bglt)(BgL_obj2903z00_853); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2920, BgL_arg3056z00_854); } } 
{ /* ./Integrate/node.scm 70 */
long BgL_arg3064z00_857;
BgL_arg3064z00_857 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Iinfozf2zzintegrate_infoz00); 
{ /* ./Integrate/node.scm 70 */
BgL_objectz00_bglt BgL_objz00_1669;
BgL_objz00_1669 = 
(BgL_objectz00_bglt)(BgL_obj2903z00_853); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1669, BgL_arg3064z00_857); } } 
{ /* ./Integrate/node.scm 70 */
obj_t BgL_objz00_1671;
BgL_objz00_1671 = 
(obj_t)(BgL_obj2903z00_853); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1671); BUNSPEC; } BgL_obj2903z00_853; } 
{ /* ./Integrate/node.scm 73 */
obj_t BgL_arg3070z00_858;obj_t BgL_arg3071z00_859;
BgL_arg3070z00_858 = 
MAKE_PAIR(BgL_oze2nze2_852, BgL_celledz00_846); 
BgL_arg3071z00_859 = 
CDR(BgL_formalsz00_847); 
{ 
obj_t BgL_formalsz00_2931;obj_t BgL_celledz00_2930;
BgL_celledz00_2930 = BgL_arg3070z00_858; 
BgL_formalsz00_2931 = BgL_arg3071z00_859; 
BgL_formalsz00_847 = BgL_formalsz00_2931; 
BgL_celledz00_846 = BgL_celledz00_2930; 
goto BgL_loopz00_848;} } } } } }  else 
{ /* ./Integrate/node.scm 64 */
{ /* ./Integrate/node.scm 65 */
obj_t BgL_arg3087z00_863;
BgL_arg3087z00_863 = 
CDR(BgL_formalsz00_847); 
{ 
obj_t BgL_formalsz00_2933;
BgL_formalsz00_2933 = BgL_arg3087z00_863; 
BgL_formalsz00_847 = BgL_formalsz00_2933; 
goto BgL_loopz00_848;} } } } } } } 
}



/* cell-formals */
obj_t BGl_cellzd2formalszd2zzintegrate_nodez00(obj_t BgL_celledz00_5, BgL_nodez00_bglt BgL_bodyz00_6)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 78 */
{ /* ./Integrate/node.scm 79 */
bool_t BgL_test3095z00_865;
BgL_test3095z00_865 = 
NULLP(BgL_celledz00_5); 
if(BgL_test3095z00_865)
{ /* ./Integrate/node.scm 79 */
return 
(obj_t)(BgL_bodyz00_6);}  else 
{ /* ./Integrate/node.scm 81 */
obj_t BgL_locz00_866;
BgL_locz00_866 = 
(((BgL_nodez00_bglt)CREF(BgL_bodyz00_6))->BgL_locz00); 
{ /* ./Integrate/node.scm 83 */
obj_t BgL_arg3097z00_867;obj_t BgL_arg3098z00_868;obj_t BgL_arg3100z00_870;BgL_nodez00_bglt BgL_arg3101z00_871;
BgL_arg3097z00_867 = BgL_locz00_866; 
BgL_arg3098z00_868 = BGl_za2_za2z00zztype_cachez00; 
if(BgL_test3095z00_865)
{ /* ./Integrate/node.scm 86 */
BgL_arg3100z00_870 = BNIL; }  else 
{ /* ./Integrate/node.scm 86 */
obj_t BgL_head2907z00_874;
BgL_head2907z00_874 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2905z00_875;obj_t BgL_tail2908z00_876;
BgL_l2905z00_875 = BgL_celledz00_5; 
BgL_tail2908z00_876 = BgL_head2907z00_874; 
BgL_map2906z00_877:
{ /* ./Integrate/node.scm 86 */
bool_t BgL_test3105z00_878;
BgL_test3105z00_878 = 
NULLP(BgL_l2905z00_875); 
if(BgL_test3105z00_878)
{ /* ./Integrate/node.scm 86 */
BgL_arg3100z00_870 = 
CDR(BgL_head2907z00_874); }  else 
{ /* ./Integrate/node.scm 87 */
obj_t BgL_newtail2909z00_879;
{ /* ./Integrate/node.scm 87 */
obj_t BgL_arg3113z00_881;
{ /* ./Integrate/node.scm 87 */
obj_t BgL_oze2nze2_883;
BgL_oze2nze2_883 = 
CAR(BgL_l2905z00_875); 
{ /* ./Integrate/node.scm 87 */
obj_t BgL_arg3117z00_884;BgL_makezd2boxzd2_bglt BgL_arg3118z00_885;
BgL_arg3117z00_884 = 
CDR(BgL_oze2nze2_883); 
{ /* ./Integrate/node.scm 90 */
BgL_varz00_bglt BgL_arg3122z00_886;obj_t BgL_arg3123z00_887;
{ /* ./Integrate/node.scm 90 */
obj_t BgL_arg3126z00_888;obj_t BgL_arg3128z00_889;obj_t BgL_arg3129z00_890;
BgL_arg3126z00_888 = BgL_locz00_866; 
BgL_arg3128z00_889 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3129z00_890 = 
CAR(BgL_oze2nze2_883); 
BgL_arg3122z00_886 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3126z00_888, 
(BgL_typez00_bglt)(BgL_arg3128z00_889), 
(BgL_variablez00_bglt)(BgL_arg3129z00_890)); } 
BgL_arg3123z00_887 = 
CAR(BgL_oze2nze2_883); 
BgL_arg3118z00_885 = 
BGl_azd2makezd2cellz00zzintegrate_nodez00(
(BgL_nodez00_bglt)(BgL_arg3122z00_886), 
(BgL_variablez00_bglt)(BgL_arg3123z00_887)); } 
{ /* ./Integrate/node.scm 87 */
obj_t BgL_auxz00_2953;
BgL_auxz00_2953 = 
(obj_t)(BgL_arg3118z00_885); 
BgL_arg3113z00_881 = 
MAKE_PAIR(BgL_arg3117z00_884, BgL_auxz00_2953); } } } 
BgL_newtail2909z00_879 = 
MAKE_PAIR(BgL_arg3113z00_881, BNIL); } 
SET_CDR(BgL_tail2908z00_876, BgL_newtail2909z00_879); 
{ /* ./Integrate/node.scm 86 */
obj_t BgL_arg3109z00_880;
BgL_arg3109z00_880 = 
CDR(BgL_l2905z00_875); 
{ 
obj_t BgL_tail2908z00_2960;obj_t BgL_l2905z00_2959;
BgL_l2905z00_2959 = BgL_arg3109z00_880; 
BgL_tail2908z00_2960 = BgL_newtail2909z00_879; 
BgL_tail2908z00_876 = BgL_tail2908z00_2960; 
BgL_l2905z00_875 = BgL_l2905z00_2959; 
goto BgL_map2906z00_877;} } } } } } 
BgL_arg3101z00_871 = BgL_bodyz00_6; 
{ /* ./Integrate/node.scm 82 */
BgL_letzd2varzd2_bglt BgL_auxz00_2961;
BgL_auxz00_2961 = 
BGl_makezd2letzd2varz00zzast_nodez00(BgL_arg3097z00_867, 
(BgL_typez00_bglt)(BgL_arg3098z00_868), BUNSPEC, 
BINT(((long)-1)), BgL_arg3100z00_870, BgL_arg3101z00_871, ((bool_t)1)); 
return 
(obj_t)(BgL_auxz00_2961);} } } } } 
}



/* a-make-cell */
BgL_makezd2boxzd2_bglt BGl_azd2makezd2cellz00zzintegrate_nodez00(BgL_nodez00_bglt BgL_nodez00_7, BgL_variablez00_bglt BgL_variablez00_8)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 98 */
{ /* ./Integrate/node.scm 102 */
BgL_variablez00_bglt BgL_obj1105z00_1690;obj_t BgL_val1104z00_1691;
BgL_obj1105z00_1690 = BgL_variablez00_8; 
BgL_val1104z00_1691 = 
CNST_TABLE_REF(((long)0)); 
((((BgL_variablez00_bglt)CREF(BgL_obj1105z00_1690))->BgL_accessz00) = ((obj_t)BgL_val1104z00_1691), BUNSPEC); } 
{ /* ./Integrate/node.scm 103 */
BgL_valuez00_bglt BgL_arg3141z00_892;
BgL_arg3141z00_892 = 
(((BgL_variablez00_bglt)CREF(BgL_variablez00_8))->BgL_valuez00); 
{ /* ./Integrate/node.scm 103 */
BgL_svarzf2iinfozf2_bglt BgL_obj2693z00_1693;bool_t BgL_val2692z00_1694;
BgL_obj2693z00_1693 = 
(BgL_svarzf2iinfozf2_bglt)(BgL_arg3141z00_892); 
BgL_val2692z00_1694 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_2970;
{ /* ./Integrate/node.scm 103 */
BgL_objectz00_bglt BgL_auxz00_2971;
BgL_auxz00_2971 = 
(BgL_objectz00_bglt)(BgL_obj2693z00_1693); 
BgL_auxz00_2970 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2971); } 
((((BgL_svarzf2iinfozf2_bglt)CREF(BgL_auxz00_2970))->BgL_celledzf3zf3) = ((bool_t)BgL_val2692z00_1694), BUNSPEC); } } } 
{ /* ./Integrate/node.scm 104 */
obj_t BgL_arg3145z00_893;obj_t BgL_arg3146z00_894;BgL_nodez00_bglt BgL_arg3148z00_896;
BgL_arg3145z00_893 = 
(((BgL_nodez00_bglt)CREF(BgL_nodez00_7))->BgL_locz00); 
BgL_arg3146z00_894 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3148z00_896 = BgL_nodez00_7; 
return 
BGl_makezd2makezd2boxz00zzast_nodez00(BgL_arg3145z00_893, 
(BgL_typez00_bglt)(BgL_arg3146z00_894), BUNSPEC, 
BINT(((long)-1)), BgL_arg3148z00_896);} } 
}



/* integrate-celled? */
BGL_EXPORTED_DEF bool_t BGl_integratezd2celledzf3z21zzintegrate_nodez00(BgL_localz00_bglt BgL_variablez00_9)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 109 */
{ /* ./Integrate/node.scm 120 */
bool_t BgL__andtest_2914z00_897;
{ /* ./Integrate/node.scm 120 */
BgL_valuez00_bglt BgL_arg3165z00_904;
{ /* ./Integrate/node.scm 120 */
BgL_variablez00_bglt BgL_obj1100z00_1696;
BgL_obj1100z00_1696 = 
(BgL_variablez00_bglt)(BgL_variablez00_9); 
BgL_arg3165z00_904 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1696))->BgL_valuez00); } 
{ /* ./Integrate/node.scm 120 */
obj_t BgL_obj2679z00_1697;
BgL_obj2679z00_1697 = 
(obj_t)(BgL_arg3165z00_904); 
BgL__andtest_2914z00_897 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2679z00_1697, BGl_svarzf2Iinfozf2zzintegrate_infoz00); } } 
if(BgL__andtest_2914z00_897)
{ /* ./Integrate/node.scm 121 */
bool_t BgL__ortest_2915z00_898;
{ /* ./Integrate/node.scm 121 */
BgL_svarzf2iinfozf2_bglt BgL_obj2691z00_1699;
{ /* ./Integrate/node.scm 121 */
BgL_valuez00_bglt BgL_auxz00_2984;
{ /* ./Integrate/node.scm 121 */
BgL_variablez00_bglt BgL_obj1100z00_1698;
BgL_obj1100z00_1698 = 
(BgL_variablez00_bglt)(BgL_variablez00_9); 
BgL_auxz00_2984 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1698))->BgL_valuez00); } 
BgL_obj2691z00_1699 = 
(BgL_svarzf2iinfozf2_bglt)(BgL_auxz00_2984); } 
{ 
obj_t BgL_auxz00_2988;
{ /* ./Integrate/node.scm 121 */
BgL_objectz00_bglt BgL_auxz00_2989;
BgL_auxz00_2989 = 
(BgL_objectz00_bglt)(BgL_obj2691z00_1699); 
BgL_auxz00_2988 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2989); } 
BgL__ortest_2915z00_898 = 
(((BgL_svarzf2iinfozf2_bglt)CREF(BgL_auxz00_2988))->BgL_celledzf3zf3); } } 
if(BgL__ortest_2915z00_898)
{ /* ./Integrate/node.scm 121 */
return BgL__ortest_2915z00_898;}  else 
{ /* ./Integrate/node.scm 122 */
bool_t BgL_testz00_2994;
{ /* ./Integrate/node.scm 122 */
obj_t BgL_auxz00_2995;
{ /* ./Integrate/node.scm 122 */
obj_t BgL_auxz00_2996;
{ /* ./Integrate/node.scm 122 */
BgL_variablez00_bglt BgL_obj1103z00_1700;
BgL_obj1103z00_1700 = 
(BgL_variablez00_bglt)(BgL_variablez00_9); 
BgL_auxz00_2996 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1103z00_1700))->BgL_accessz00); } 
BgL_auxz00_2995 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_2996, 
CNST_TABLE_REF(((long)1))); } 
BgL_testz00_2994 = 
CBOOL(BgL_auxz00_2995); } 
if(BgL_testz00_2994)
{ /* ./Integrate/node.scm 123 */
BgL_svarzf2iinfozf2_bglt BgL_obj2687z00_1702;
{ /* ./Integrate/node.scm 123 */
BgL_valuez00_bglt BgL_auxz00_3002;
{ /* ./Integrate/node.scm 123 */
BgL_variablez00_bglt BgL_obj1100z00_1701;
BgL_obj1100z00_1701 = 
(BgL_variablez00_bglt)(BgL_variablez00_9); 
BgL_auxz00_3002 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1701))->BgL_valuez00); } 
BgL_obj2687z00_1702 = 
(BgL_svarzf2iinfozf2_bglt)(BgL_auxz00_3002); } 
{ 
obj_t BgL_auxz00_3006;
{ /* ./Integrate/node.scm 123 */
BgL_objectz00_bglt BgL_auxz00_3007;
BgL_auxz00_3007 = 
(BgL_objectz00_bglt)(BgL_obj2687z00_1702); 
BgL_auxz00_3006 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3007); } 
return 
(((BgL_svarzf2iinfozf2_bglt)CREF(BgL_auxz00_3006))->BgL_kapturedzf3zf3);} }  else 
{ /* ./Integrate/node.scm 122 */
return ((bool_t)0);} } }  else 
{ /* ./Integrate/node.scm 120 */
return ((bool_t)0);} } } 
}



/* _integrate-celled? */
obj_t BGl__integratezd2celledzf3z21zzintegrate_nodez00(obj_t BgL_envz00_2712, obj_t BgL_variablez00_2713)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 109 */
{ /* ./Integrate/node.scm 110 */
bool_t BgL_auxz00_3011;
BgL_auxz00_3011 = 
BGl_integratezd2celledzf3z21zzintegrate_nodez00(
(BgL_localz00_bglt)(BgL_variablez00_2713)); 
return 
BBOOL(BgL_auxz00_3011);} } 
}



/* glo*! */
obj_t BGl_gloza2z12zb0zzintegrate_nodez00(obj_t BgL_nodeza2za2_56, obj_t BgL_integratorz00_57)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 395 */
{ 
obj_t BgL_nodeza2za2_905;
BgL_nodeza2za2_905 = BgL_nodeza2za2_56; 
BgL_loopz00_906:
{ /* ./Integrate/node.scm 397 */
bool_t BgL_test3169z00_907;
BgL_test3169z00_907 = 
NULLP(BgL_nodeza2za2_905); 
if(BgL_test3169z00_907)
{ /* ./Integrate/node.scm 397 */
return 
CNST_TABLE_REF(((long)2));}  else 
{ /* ./Integrate/node.scm 397 */
{ /* ./Integrate/node.scm 400 */
BgL_nodez00_bglt BgL_arg3171z00_908;
{ /* ./Integrate/node.scm 400 */
obj_t BgL_arg3174z00_909;
BgL_arg3174z00_909 = 
CAR(BgL_nodeza2za2_905); 
{ /* ./Integrate/node.scm 400 */
BgL_nodez00_bglt BgL_res4141z00_1732;
{ /* ./Integrate/node.scm 400 */
BgL_nodez00_bglt BgL_nodez00_1705;BgL_variablez00_bglt BgL_integratorz00_1706;
BgL_nodez00_1705 = 
(BgL_nodez00_bglt)(BgL_arg3174z00_909); 
BgL_integratorz00_1706 = 
(BgL_variablez00_bglt)(BgL_integratorz00_57); 
{ /* ./Integrate/node.scm 400 */
obj_t BgL_method2969z00_1707;
{ /* ./Integrate/node.scm 400 */
BgL_objectz00_bglt BgL_objz00_1708;
BgL_objz00_1708 = 
(BgL_objectz00_bglt)(BgL_nodez00_1705); 
{ /* ./Integrate/node.scm 400 */
long BgL_objzd2classzd2numz00_1709;
BgL_objzd2classzd2numz00_1709 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1708); 
{ /* ./Integrate/node.scm 400 */
obj_t BgL_arg2017z00_1710;
{ /* ./Integrate/node.scm 400 */
int BgL_auxz00_3023;
BgL_auxz00_3023 = 
(int)(((long)1)); 
BgL_arg2017z00_1710 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3023); } 
{ /* ./Integrate/node.scm 400 */
int BgL_offsetz00_1713;
BgL_offsetz00_1713 = 
(int)(BgL_objzd2classzd2numz00_1709); 
{ /* ./Integrate/node.scm 400 */
long BgL_offsetz00_1714;
{ /* ./Integrate/node.scm 400 */
long BgL_auxz00_3027;
BgL_auxz00_3027 = 
(long)(BgL_offsetz00_1713); 
BgL_offsetz00_1714 = 
(BgL_auxz00_3027-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 400 */
long BgL_modz00_1715;
{ /* ./Integrate/node.scm 400 */
int BgL_arg2028z00_1716;
BgL_arg2028z00_1716 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 400 */
long BgL_n2z00_1724;
BgL_n2z00_1724 = 
(long)(BgL_arg2028z00_1716); 
BgL_modz00_1715 = 
(BgL_offsetz00_1714/BgL_n2z00_1724); } } 
{ /* ./Integrate/node.scm 400 */
long BgL_restz00_1717;
{ /* ./Integrate/node.scm 400 */
int BgL_arg2024z00_1718;
BgL_arg2024z00_1718 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 400 */
long BgL_n2z00_1727;
BgL_n2z00_1727 = 
(long)(BgL_arg2024z00_1718); 
BgL_restz00_1717 = 
(BgL_offsetz00_1714%BgL_n2z00_1727); } } 
{ /* ./Integrate/node.scm 400 */

{ /* ./Integrate/node.scm 400 */
obj_t BgL_bucketz00_1719;
{ /* ./Integrate/node.scm 400 */
int BgL_kz00_1729;
BgL_kz00_1729 = 
(int)(BgL_modz00_1715); 
BgL_bucketz00_1719 = 
VECTOR_REF(BgL_arg2017z00_1710,BgL_kz00_1729); } 
{ /* ./Integrate/node.scm 400 */
int BgL_kz00_1731;
BgL_kz00_1731 = 
(int)(BgL_restz00_1717); 
BgL_method2969z00_1707 = 
VECTOR_REF(BgL_bucketz00_1719,BgL_kz00_1731); } } } } } } } } } } 
{ /* ./Integrate/node.scm 400 */
obj_t BgL_auxz00_3040;
BgL_auxz00_3040 = 
PROCEDURE_ENTRY(BgL_method2969z00_1707)(BgL_method2969z00_1707, 
(obj_t)(BgL_nodez00_1705), 
(obj_t)(BgL_integratorz00_1706), BEOA); 
BgL_res4141z00_1732 = 
(BgL_nodez00_bglt)(BgL_auxz00_3040); } } } 
BgL_arg3171z00_908 = BgL_res4141z00_1732; } } 
{ /* ./Integrate/node.scm 400 */
obj_t BgL_objz00_1734;
BgL_objz00_1734 = 
(obj_t)(BgL_arg3171z00_908); 
SET_CAR(BgL_nodeza2za2_905, BgL_objz00_1734); } } 
{ /* ./Integrate/node.scm 401 */
obj_t BgL_arg3178z00_910;
BgL_arg3178z00_910 = 
CDR(BgL_nodeza2za2_905); 
{ 
obj_t BgL_nodeza2za2_3049;
BgL_nodeza2za2_3049 = BgL_arg3178z00_910; 
BgL_nodeza2za2_905 = BgL_nodeza2za2_3049; 
goto BgL_loopz00_906;} } } } } } 
}



/* globalize-local-fun! */
obj_t BGl_globaliza7ezd2localzd2funz12zb5zzintegrate_nodez00(BgL_localz00_bglt BgL_localz00_58, BgL_variablez00_bglt BgL_integratorz00_59)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 406 */
{ /* ./Integrate/node.scm 409 */
BgL_valuez00_bglt BgL_funz00_911;
{ /* ./Integrate/node.scm 409 */
BgL_variablez00_bglt BgL_obj1100z00_1736;
BgL_obj1100z00_1736 = 
(BgL_variablez00_bglt)(BgL_localz00_58); 
BgL_funz00_911 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1736))->BgL_valuez00); } 
{ /* ./Integrate/node.scm 409 */
obj_t BgL_obodyz00_912;
{ /* ./Integrate/node.scm 410 */
BgL_sfunz00_bglt BgL_obj1370z00_1737;
BgL_obj1370z00_1737 = 
(BgL_sfunz00_bglt)(BgL_funz00_911); 
BgL_obodyz00_912 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1737))->BgL_bodyz00); } 
{ /* ./Integrate/node.scm 410 */

{ /* ./Integrate/node.scm 411 */
bool_t BgL_test3182z00_913;
{ /* ./Integrate/node.scm 411 */
obj_t BgL_auxz00_3056;obj_t BgL_auxz00_3054;
BgL_auxz00_3056 = 
(obj_t)(BgL_integratorz00_59); 
BgL_auxz00_3054 = 
(obj_t)(BgL_localz00_58); 
BgL_test3182z00_913 = 
(BgL_auxz00_3054==BgL_auxz00_3056); } 
if(BgL_test3182z00_913)
{ /* ./Integrate/node.scm 412 */
BgL_nodez00_bglt BgL_arg3184z00_914;
{ /* ./Integrate/node.scm 412 */
BgL_nodez00_bglt BgL_res4144z00_1765;
{ /* ./Integrate/node.scm 412 */
BgL_nodez00_bglt BgL_nodez00_1738;
BgL_nodez00_1738 = 
(BgL_nodez00_bglt)(BgL_obodyz00_912); 
{ /* ./Integrate/node.scm 412 */
obj_t BgL_method2969z00_1740;
{ /* ./Integrate/node.scm 412 */
BgL_objectz00_bglt BgL_objz00_1741;
BgL_objz00_1741 = 
(BgL_objectz00_bglt)(BgL_nodez00_1738); 
{ /* ./Integrate/node.scm 412 */
long BgL_objzd2classzd2numz00_1742;
BgL_objzd2classzd2numz00_1742 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1741); 
{ /* ./Integrate/node.scm 412 */
obj_t BgL_arg2017z00_1743;
{ /* ./Integrate/node.scm 412 */
int BgL_auxz00_3063;
BgL_auxz00_3063 = 
(int)(((long)1)); 
BgL_arg2017z00_1743 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3063); } 
{ /* ./Integrate/node.scm 412 */
int BgL_offsetz00_1746;
BgL_offsetz00_1746 = 
(int)(BgL_objzd2classzd2numz00_1742); 
{ /* ./Integrate/node.scm 412 */
long BgL_offsetz00_1747;
{ /* ./Integrate/node.scm 412 */
long BgL_auxz00_3067;
BgL_auxz00_3067 = 
(long)(BgL_offsetz00_1746); 
BgL_offsetz00_1747 = 
(BgL_auxz00_3067-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 412 */
long BgL_modz00_1748;
{ /* ./Integrate/node.scm 412 */
int BgL_arg2028z00_1749;
BgL_arg2028z00_1749 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 412 */
long BgL_n2z00_1757;
BgL_n2z00_1757 = 
(long)(BgL_arg2028z00_1749); 
BgL_modz00_1748 = 
(BgL_offsetz00_1747/BgL_n2z00_1757); } } 
{ /* ./Integrate/node.scm 412 */
long BgL_restz00_1750;
{ /* ./Integrate/node.scm 412 */
int BgL_arg2024z00_1751;
BgL_arg2024z00_1751 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 412 */
long BgL_n2z00_1760;
BgL_n2z00_1760 = 
(long)(BgL_arg2024z00_1751); 
BgL_restz00_1750 = 
(BgL_offsetz00_1747%BgL_n2z00_1760); } } 
{ /* ./Integrate/node.scm 412 */

{ /* ./Integrate/node.scm 412 */
obj_t BgL_bucketz00_1752;
{ /* ./Integrate/node.scm 412 */
int BgL_kz00_1762;
BgL_kz00_1762 = 
(int)(BgL_modz00_1748); 
BgL_bucketz00_1752 = 
VECTOR_REF(BgL_arg2017z00_1743,BgL_kz00_1762); } 
{ /* ./Integrate/node.scm 412 */
int BgL_kz00_1764;
BgL_kz00_1764 = 
(int)(BgL_restz00_1750); 
BgL_method2969z00_1740 = 
VECTOR_REF(BgL_bucketz00_1752,BgL_kz00_1764); } } } } } } } } } } 
{ /* ./Integrate/node.scm 412 */
obj_t BgL_auxz00_3080;
BgL_auxz00_3080 = 
PROCEDURE_ENTRY(BgL_method2969z00_1740)(BgL_method2969z00_1740, 
(obj_t)(BgL_nodez00_1738), 
(obj_t)(BgL_integratorz00_59), BEOA); 
BgL_res4144z00_1765 = 
(BgL_nodez00_bglt)(BgL_auxz00_3080); } } } 
BgL_arg3184z00_914 = BgL_res4144z00_1765; } 
{ /* ./Integrate/node.scm 412 */
BgL_sfunz00_bglt BgL_obj1373z00_1766;obj_t BgL_val1371z00_1767;
BgL_obj1373z00_1766 = 
(BgL_sfunz00_bglt)(BgL_funz00_911); 
BgL_val1371z00_1767 = 
(obj_t)(BgL_arg3184z00_914); 
return 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1766))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1767), BUNSPEC);} }  else 
{ /* ./Integrate/node.scm 413 */
obj_t BgL_celledz00_915;
{ /* ./Integrate/node.scm 413 */
obj_t BgL_arg3218z00_931;
{ /* ./Integrate/node.scm 413 */
BgL_sfunz00_bglt BgL_obj1367z00_1768;
BgL_obj1367z00_1768 = 
(BgL_sfunz00_bglt)(BgL_funz00_911); 
BgL_arg3218z00_931 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1768))->BgL_argsz00); } 
BgL_celledz00_915 = 
BGl_celledzd2bindingszd2zzintegrate_nodez00(BgL_arg3218z00_931); } 
{ 
obj_t BgL_l2964z00_916;
BgL_l2964z00_916 = BgL_celledz00_915; 
BgL_forzd2each2965zd2_917:
{ /* ./Integrate/node.scm 414 */
bool_t BgL_test3188z00_918;
BgL_test3188z00_918 = 
PAIRP(BgL_l2964z00_916); 
if(BgL_test3188z00_918)
{ /* ./Integrate/node.scm 414 */
{ /* ./Integrate/node.scm 415 */
obj_t BgL_wze2bze2_919;
BgL_wze2bze2_919 = 
CAR(BgL_l2964z00_916); 
{ /* ./Integrate/node.scm 415 */
obj_t BgL_arg3190z00_920;obj_t BgL_arg3191z00_921;
BgL_arg3190z00_920 = 
CAR(BgL_wze2bze2_919); 
BgL_arg3191z00_921 = 
CDR(BgL_wze2bze2_919); 
{ /* ./Integrate/node.scm 415 */
BgL_variablez00_bglt BgL_obj1108z00_1773;obj_t BgL_val1107z00_1774;
BgL_obj1108z00_1773 = 
(BgL_variablez00_bglt)(BgL_arg3190z00_920); 
BgL_val1107z00_1774 = BgL_arg3191z00_921; 
((((BgL_variablez00_bglt)CREF(BgL_obj1108z00_1773))->BgL_fastzd2alphazd2) = ((obj_t)BgL_val1107z00_1774), BUNSPEC); } } } 
{ /* ./Integrate/node.scm 414 */
obj_t BgL_arg3197z00_922;
BgL_arg3197z00_922 = 
CDR(BgL_l2964z00_916); 
{ 
obj_t BgL_l2964z00_3100;
BgL_l2964z00_3100 = BgL_arg3197z00_922; 
BgL_l2964z00_916 = BgL_l2964z00_3100; 
goto BgL_forzd2each2965zd2_917;} } }  else 
{ /* ./Integrate/node.scm 414 */((bool_t)1); } } } 
{ /* ./Integrate/node.scm 417 */
BgL_nodez00_bglt BgL_nbody1z00_923;
{ /* ./Integrate/node.scm 417 */
BgL_nodez00_bglt BgL_res4147z00_1803;
{ /* ./Integrate/node.scm 417 */
BgL_nodez00_bglt BgL_nodez00_1776;
BgL_nodez00_1776 = 
(BgL_nodez00_bglt)(BgL_obodyz00_912); 
{ /* ./Integrate/node.scm 417 */
obj_t BgL_method2969z00_1778;
{ /* ./Integrate/node.scm 417 */
BgL_objectz00_bglt BgL_objz00_1779;
BgL_objz00_1779 = 
(BgL_objectz00_bglt)(BgL_nodez00_1776); 
{ /* ./Integrate/node.scm 417 */
long BgL_objzd2classzd2numz00_1780;
BgL_objzd2classzd2numz00_1780 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1779); 
{ /* ./Integrate/node.scm 417 */
obj_t BgL_arg2017z00_1781;
{ /* ./Integrate/node.scm 417 */
int BgL_auxz00_3104;
BgL_auxz00_3104 = 
(int)(((long)1)); 
BgL_arg2017z00_1781 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3104); } 
{ /* ./Integrate/node.scm 417 */
int BgL_offsetz00_1784;
BgL_offsetz00_1784 = 
(int)(BgL_objzd2classzd2numz00_1780); 
{ /* ./Integrate/node.scm 417 */
long BgL_offsetz00_1785;
{ /* ./Integrate/node.scm 417 */
long BgL_auxz00_3108;
BgL_auxz00_3108 = 
(long)(BgL_offsetz00_1784); 
BgL_offsetz00_1785 = 
(BgL_auxz00_3108-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 417 */
long BgL_modz00_1786;
{ /* ./Integrate/node.scm 417 */
int BgL_arg2028z00_1787;
BgL_arg2028z00_1787 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 417 */
long BgL_n2z00_1795;
BgL_n2z00_1795 = 
(long)(BgL_arg2028z00_1787); 
BgL_modz00_1786 = 
(BgL_offsetz00_1785/BgL_n2z00_1795); } } 
{ /* ./Integrate/node.scm 417 */
long BgL_restz00_1788;
{ /* ./Integrate/node.scm 417 */
int BgL_arg2024z00_1789;
BgL_arg2024z00_1789 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 417 */
long BgL_n2z00_1798;
BgL_n2z00_1798 = 
(long)(BgL_arg2024z00_1789); 
BgL_restz00_1788 = 
(BgL_offsetz00_1785%BgL_n2z00_1798); } } 
{ /* ./Integrate/node.scm 417 */

{ /* ./Integrate/node.scm 417 */
obj_t BgL_bucketz00_1790;
{ /* ./Integrate/node.scm 417 */
int BgL_kz00_1800;
BgL_kz00_1800 = 
(int)(BgL_modz00_1786); 
BgL_bucketz00_1790 = 
VECTOR_REF(BgL_arg2017z00_1781,BgL_kz00_1800); } 
{ /* ./Integrate/node.scm 417 */
int BgL_kz00_1802;
BgL_kz00_1802 = 
(int)(BgL_restz00_1788); 
BgL_method2969z00_1778 = 
VECTOR_REF(BgL_bucketz00_1790,BgL_kz00_1802); } } } } } } } } } } 
{ /* ./Integrate/node.scm 417 */
obj_t BgL_auxz00_3121;
BgL_auxz00_3121 = 
PROCEDURE_ENTRY(BgL_method2969z00_1778)(BgL_method2969z00_1778, 
(obj_t)(BgL_nodez00_1776), 
(obj_t)(BgL_integratorz00_59), BEOA); 
BgL_res4147z00_1803 = 
(BgL_nodez00_bglt)(BgL_auxz00_3121); } } } 
BgL_nbody1z00_923 = BgL_res4147z00_1803; } 
{ /* ./Integrate/node.scm 417 */
obj_t BgL_nbody2z00_924;
BgL_nbody2z00_924 = 
BGl_cellzd2formalszd2zzintegrate_nodez00(BgL_celledz00_915, BgL_nbody1z00_923); 
{ /* ./Integrate/node.scm 418 */

{ 
obj_t BgL_l2966z00_925;
BgL_l2966z00_925 = BgL_celledz00_915; 
BgL_forzd2each2967zd2_926:
{ /* ./Integrate/node.scm 419 */
bool_t BgL_test3202z00_927;
BgL_test3202z00_927 = 
PAIRP(BgL_l2966z00_925); 
if(BgL_test3202z00_927)
{ /* ./Integrate/node.scm 419 */
{ /* ./Integrate/node.scm 420 */
obj_t BgL_wze2bze2_928;
BgL_wze2bze2_928 = 
CAR(BgL_l2966z00_925); 
{ /* ./Integrate/node.scm 420 */
obj_t BgL_arg3204z00_929;
BgL_arg3204z00_929 = 
CAR(BgL_wze2bze2_928); 
{ /* ./Integrate/node.scm 420 */
BgL_variablez00_bglt BgL_obj1108z00_1807;obj_t BgL_val1107z00_1808;
BgL_obj1108z00_1807 = 
(BgL_variablez00_bglt)(BgL_arg3204z00_929); 
BgL_val1107z00_1808 = BUNSPEC; 
((((BgL_variablez00_bglt)CREF(BgL_obj1108z00_1807))->BgL_fastzd2alphazd2) = ((obj_t)BgL_val1107z00_1808), BUNSPEC); } } } 
{ /* ./Integrate/node.scm 419 */
obj_t BgL_arg3210z00_930;
BgL_arg3210z00_930 = 
CDR(BgL_l2966z00_925); 
{ 
obj_t BgL_l2966z00_3135;
BgL_l2966z00_3135 = BgL_arg3210z00_930; 
BgL_l2966z00_925 = BgL_l2966z00_3135; 
goto BgL_forzd2each2967zd2_926;} } }  else 
{ /* ./Integrate/node.scm 419 */((bool_t)1); } } } 
{ /* ./Integrate/node.scm 422 */
BgL_sfunz00_bglt BgL_obj1373z00_1810;obj_t BgL_val1371z00_1811;
BgL_obj1373z00_1810 = 
(BgL_sfunz00_bglt)(BgL_funz00_911); 
BgL_val1371z00_1811 = BgL_nbody2z00_924; 
return 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1810))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1811), BUNSPEC);} } } } } } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzintegrate_nodez00()
{ AN_OBJECT;
{ /* ./Integrate/node.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_gloz12zd2default2968zd2envz12zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_atomz00zzast_nodez00, BGl_proc4866z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_kwotez00zzast_nodez00, BGl_proc4867z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_varz00zzast_nodez00, BGl_proc4868z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_closurez00zzast_nodez00, BGl_proc4869z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_sequencez00zzast_nodez00, BGl_proc4870z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_appz00zzast_nodez00, BGl_proc4871z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4872z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_funcallz00zzast_nodez00, BGl_proc4873z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_externz00zzast_nodez00, BGl_proc4874z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_castz00zzast_nodez00, BGl_proc4875z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_setqz00zzast_nodez00, BGl_proc4876z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_conditionalz00zzast_nodez00, BGl_proc4877z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_failz00zzast_nodez00, BGl_proc4878z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_selectz00zzast_nodez00, BGl_proc4879z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4880z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4881z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4882z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4883z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4884z00zzintegrate_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4885z00zzintegrate_nodez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_gloz12zd2envzc0zzintegrate_nodez00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4886z00zzintegrate_nodez00);} 
}



/* glo!-box-set!3014 */
obj_t BGl_gloz12zd2boxzd2setz123014z00zzintegrate_nodez00(obj_t BgL_envz00_2735, obj_t BgL_nodez00_2736, obj_t BgL_integratorz00_2737)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 385 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1606;obj_t BgL_integratorz00_1607;
{ /* ./Tools/trace.sch 42 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_3160;
BgL_nodez00_1606 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2736); 
BgL_integratorz00_1607 = BgL_integratorz00_2737; 
{ /* ./Integrate/node.scm 388 */
BgL_nodez00_bglt BgL_arg4105z00_1611;
{ /* ./Integrate/node.scm 388 */
BgL_varz00_bglt BgL_arg4108z00_1612;
BgL_arg4108z00_1612 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1606))->BgL_varz00); 
{ /* ./Integrate/node.scm 388 */
BgL_nodez00_bglt BgL_res4220z00_2643;
{ /* ./Integrate/node.scm 388 */
BgL_nodez00_bglt BgL_nodez00_2616;BgL_variablez00_bglt BgL_integratorz00_2617;
BgL_nodez00_2616 = 
(BgL_nodez00_bglt)(BgL_arg4108z00_1612); 
BgL_integratorz00_2617 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1607); 
{ /* ./Integrate/node.scm 388 */
obj_t BgL_method2969z00_2618;
{ /* ./Integrate/node.scm 388 */
BgL_objectz00_bglt BgL_objz00_2619;
BgL_objz00_2619 = 
(BgL_objectz00_bglt)(BgL_nodez00_2616); 
{ /* ./Integrate/node.scm 388 */
long BgL_objzd2classzd2numz00_2620;
BgL_objzd2classzd2numz00_2620 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2619); 
{ /* ./Integrate/node.scm 388 */
obj_t BgL_arg2017z00_2621;
{ /* ./Integrate/node.scm 388 */
int BgL_auxz00_3166;
BgL_auxz00_3166 = 
(int)(((long)1)); 
BgL_arg2017z00_2621 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3166); } 
{ /* ./Integrate/node.scm 388 */
int BgL_offsetz00_2624;
BgL_offsetz00_2624 = 
(int)(BgL_objzd2classzd2numz00_2620); 
{ /* ./Integrate/node.scm 388 */
long BgL_offsetz00_2625;
{ /* ./Integrate/node.scm 388 */
long BgL_auxz00_3170;
BgL_auxz00_3170 = 
(long)(BgL_offsetz00_2624); 
BgL_offsetz00_2625 = 
(BgL_auxz00_3170-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 388 */
long BgL_modz00_2626;
{ /* ./Integrate/node.scm 388 */
int BgL_arg2028z00_2627;
BgL_arg2028z00_2627 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 388 */
long BgL_n2z00_2635;
BgL_n2z00_2635 = 
(long)(BgL_arg2028z00_2627); 
BgL_modz00_2626 = 
(BgL_offsetz00_2625/BgL_n2z00_2635); } } 
{ /* ./Integrate/node.scm 388 */
long BgL_restz00_2628;
{ /* ./Integrate/node.scm 388 */
int BgL_arg2024z00_2629;
BgL_arg2024z00_2629 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 388 */
long BgL_n2z00_2638;
BgL_n2z00_2638 = 
(long)(BgL_arg2024z00_2629); 
BgL_restz00_2628 = 
(BgL_offsetz00_2625%BgL_n2z00_2638); } } 
{ /* ./Integrate/node.scm 388 */

{ /* ./Integrate/node.scm 388 */
obj_t BgL_bucketz00_2630;
{ /* ./Integrate/node.scm 388 */
int BgL_kz00_2640;
BgL_kz00_2640 = 
(int)(BgL_modz00_2626); 
BgL_bucketz00_2630 = 
VECTOR_REF(BgL_arg2017z00_2621,BgL_kz00_2640); } 
{ /* ./Integrate/node.scm 388 */
int BgL_kz00_2642;
BgL_kz00_2642 = 
(int)(BgL_restz00_2628); 
BgL_method2969z00_2618 = 
VECTOR_REF(BgL_bucketz00_2630,BgL_kz00_2642); } } } } } } } } } } 
{ /* ./Integrate/node.scm 388 */
obj_t BgL_auxz00_3183;
BgL_auxz00_3183 = 
PROCEDURE_ENTRY(BgL_method2969z00_2618)(BgL_method2969z00_2618, 
(obj_t)(BgL_nodez00_2616), 
(obj_t)(BgL_integratorz00_2617), BEOA); 
BgL_res4220z00_2643 = 
(BgL_nodez00_bglt)(BgL_auxz00_3183); } } } 
BgL_arg4105z00_1611 = BgL_res4220z00_2643; } } 
{ /* ./Integrate/node.scm 388 */
BgL_boxzd2setz12zc0_bglt BgL_obj2642z00_2644;BgL_varz00_bglt BgL_val2641z00_2645;
BgL_obj2642z00_2644 = BgL_nodez00_1606; 
BgL_val2641z00_2645 = 
(BgL_varz00_bglt)(BgL_arg4105z00_1611); 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2642z00_2644))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2641z00_2645), BUNSPEC); } } 
{ /* ./Integrate/node.scm 389 */
BgL_nodez00_bglt BgL_arg4112z00_1613;
{ /* ./Integrate/node.scm 389 */
BgL_nodez00_bglt BgL_arg4115z00_1614;
BgL_arg4115z00_1614 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1606))->BgL_valuez00); 
{ /* ./Integrate/node.scm 389 */
BgL_nodez00_bglt BgL_res4223z00_2674;
{ /* ./Integrate/node.scm 389 */
BgL_variablez00_bglt BgL_integratorz00_2648;
BgL_integratorz00_2648 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1607); 
{ /* ./Integrate/node.scm 389 */
obj_t BgL_method2969z00_2649;
{ /* ./Integrate/node.scm 389 */
BgL_objectz00_bglt BgL_objz00_2650;
BgL_objz00_2650 = 
(BgL_objectz00_bglt)(BgL_arg4115z00_1614); 
{ /* ./Integrate/node.scm 389 */
long BgL_objzd2classzd2numz00_2651;
BgL_objzd2classzd2numz00_2651 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2650); 
{ /* ./Integrate/node.scm 389 */
obj_t BgL_arg2017z00_2652;
{ /* ./Integrate/node.scm 389 */
int BgL_auxz00_3195;
BgL_auxz00_3195 = 
(int)(((long)1)); 
BgL_arg2017z00_2652 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3195); } 
{ /* ./Integrate/node.scm 389 */
int BgL_offsetz00_2655;
BgL_offsetz00_2655 = 
(int)(BgL_objzd2classzd2numz00_2651); 
{ /* ./Integrate/node.scm 389 */
long BgL_offsetz00_2656;
{ /* ./Integrate/node.scm 389 */
long BgL_auxz00_3199;
BgL_auxz00_3199 = 
(long)(BgL_offsetz00_2655); 
BgL_offsetz00_2656 = 
(BgL_auxz00_3199-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 389 */
long BgL_modz00_2657;
{ /* ./Integrate/node.scm 389 */
int BgL_arg2028z00_2658;
BgL_arg2028z00_2658 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 389 */
long BgL_n2z00_2666;
BgL_n2z00_2666 = 
(long)(BgL_arg2028z00_2658); 
BgL_modz00_2657 = 
(BgL_offsetz00_2656/BgL_n2z00_2666); } } 
{ /* ./Integrate/node.scm 389 */
long BgL_restz00_2659;
{ /* ./Integrate/node.scm 389 */
int BgL_arg2024z00_2660;
BgL_arg2024z00_2660 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 389 */
long BgL_n2z00_2669;
BgL_n2z00_2669 = 
(long)(BgL_arg2024z00_2660); 
BgL_restz00_2659 = 
(BgL_offsetz00_2656%BgL_n2z00_2669); } } 
{ /* ./Integrate/node.scm 389 */

{ /* ./Integrate/node.scm 389 */
obj_t BgL_bucketz00_2661;
{ /* ./Integrate/node.scm 389 */
int BgL_kz00_2671;
BgL_kz00_2671 = 
(int)(BgL_modz00_2657); 
BgL_bucketz00_2661 = 
VECTOR_REF(BgL_arg2017z00_2652,BgL_kz00_2671); } 
{ /* ./Integrate/node.scm 389 */
int BgL_kz00_2673;
BgL_kz00_2673 = 
(int)(BgL_restz00_2659); 
BgL_method2969z00_2649 = 
VECTOR_REF(BgL_bucketz00_2661,BgL_kz00_2673); } } } } } } } } } } 
{ /* ./Integrate/node.scm 389 */
obj_t BgL_auxz00_3212;
BgL_auxz00_3212 = 
PROCEDURE_ENTRY(BgL_method2969z00_2649)(BgL_method2969z00_2649, 
(obj_t)(BgL_arg4115z00_1614), 
(obj_t)(BgL_integratorz00_2648), BEOA); 
BgL_res4223z00_2674 = 
(BgL_nodez00_bglt)(BgL_auxz00_3212); } } } 
BgL_arg4112z00_1613 = BgL_res4223z00_2674; } } 
{ /* ./Integrate/node.scm 389 */
BgL_boxzd2setz12zc0_bglt BgL_obj2645z00_2675;BgL_nodez00_bglt BgL_val2644z00_2676;
BgL_obj2645z00_2675 = BgL_nodez00_1606; 
BgL_val2644z00_2676 = BgL_arg4112z00_1613; 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2645z00_2675))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2644z00_2676), BUNSPEC); } } 
BgL_auxz00_3160 = BgL_nodez00_1606; 
return 
(obj_t)(BgL_auxz00_3160);} } } 
}



/* glo!-box-ref3012 */
obj_t BGl_gloz12zd2boxzd2ref3012z12zzintegrate_nodez00(obj_t BgL_envz00_2738, obj_t BgL_nodez00_2739, obj_t BgL_integratorz00_2740)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 376 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1597;obj_t BgL_integratorz00_1598;
{ /* ./Tools/trace.sch 42 */
BgL_boxzd2refzd2_bglt BgL_auxz00_3221;
BgL_nodez00_1597 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2739); 
BgL_integratorz00_1598 = BgL_integratorz00_2740; 
{ /* ./Integrate/node.scm 378 */
BgL_nodez00_bglt BgL_arg4092z00_2582;
{ /* ./Integrate/node.scm 378 */
BgL_varz00_bglt BgL_arg4095z00_2583;
BgL_arg4095z00_2583 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1597))->BgL_varz00); 
{ /* ./Integrate/node.scm 378 */
BgL_nodez00_bglt BgL_res4217z00_2612;
{ /* ./Integrate/node.scm 378 */
BgL_nodez00_bglt BgL_nodez00_2585;BgL_variablez00_bglt BgL_integratorz00_2586;
BgL_nodez00_2585 = 
(BgL_nodez00_bglt)(BgL_arg4095z00_2583); 
BgL_integratorz00_2586 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1598); 
{ /* ./Integrate/node.scm 378 */
obj_t BgL_method2969z00_2587;
{ /* ./Integrate/node.scm 378 */
BgL_objectz00_bglt BgL_objz00_2588;
BgL_objz00_2588 = 
(BgL_objectz00_bglt)(BgL_nodez00_2585); 
{ /* ./Integrate/node.scm 378 */
long BgL_objzd2classzd2numz00_2589;
BgL_objzd2classzd2numz00_2589 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2588); 
{ /* ./Integrate/node.scm 378 */
obj_t BgL_arg2017z00_2590;
{ /* ./Integrate/node.scm 378 */
int BgL_auxz00_3227;
BgL_auxz00_3227 = 
(int)(((long)1)); 
BgL_arg2017z00_2590 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3227); } 
{ /* ./Integrate/node.scm 378 */
int BgL_offsetz00_2593;
BgL_offsetz00_2593 = 
(int)(BgL_objzd2classzd2numz00_2589); 
{ /* ./Integrate/node.scm 378 */
long BgL_offsetz00_2594;
{ /* ./Integrate/node.scm 378 */
long BgL_auxz00_3231;
BgL_auxz00_3231 = 
(long)(BgL_offsetz00_2593); 
BgL_offsetz00_2594 = 
(BgL_auxz00_3231-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 378 */
long BgL_modz00_2595;
{ /* ./Integrate/node.scm 378 */
int BgL_arg2028z00_2596;
BgL_arg2028z00_2596 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 378 */
long BgL_n2z00_2604;
BgL_n2z00_2604 = 
(long)(BgL_arg2028z00_2596); 
BgL_modz00_2595 = 
(BgL_offsetz00_2594/BgL_n2z00_2604); } } 
{ /* ./Integrate/node.scm 378 */
long BgL_restz00_2597;
{ /* ./Integrate/node.scm 378 */
int BgL_arg2024z00_2598;
BgL_arg2024z00_2598 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 378 */
long BgL_n2z00_2607;
BgL_n2z00_2607 = 
(long)(BgL_arg2024z00_2598); 
BgL_restz00_2597 = 
(BgL_offsetz00_2594%BgL_n2z00_2607); } } 
{ /* ./Integrate/node.scm 378 */

{ /* ./Integrate/node.scm 378 */
obj_t BgL_bucketz00_2599;
{ /* ./Integrate/node.scm 378 */
int BgL_kz00_2609;
BgL_kz00_2609 = 
(int)(BgL_modz00_2595); 
BgL_bucketz00_2599 = 
VECTOR_REF(BgL_arg2017z00_2590,BgL_kz00_2609); } 
{ /* ./Integrate/node.scm 378 */
int BgL_kz00_2611;
BgL_kz00_2611 = 
(int)(BgL_restz00_2597); 
BgL_method2969z00_2587 = 
VECTOR_REF(BgL_bucketz00_2599,BgL_kz00_2611); } } } } } } } } } } 
{ /* ./Integrate/node.scm 378 */
obj_t BgL_auxz00_3244;
BgL_auxz00_3244 = 
PROCEDURE_ENTRY(BgL_method2969z00_2587)(BgL_method2969z00_2587, 
(obj_t)(BgL_nodez00_2585), 
(obj_t)(BgL_integratorz00_2586), BEOA); 
BgL_res4217z00_2612 = 
(BgL_nodez00_bglt)(BgL_auxz00_3244); } } } 
BgL_arg4092z00_2582 = BgL_res4217z00_2612; } } 
{ /* ./Integrate/node.scm 378 */
BgL_boxzd2refzd2_bglt BgL_obj2616z00_2613;BgL_varz00_bglt BgL_val2615z00_2614;
BgL_obj2616z00_2613 = BgL_nodez00_1597; 
BgL_val2615z00_2614 = 
(BgL_varz00_bglt)(BgL_arg4092z00_2582); 
((((BgL_boxzd2refzd2_bglt)CREF(BgL_obj2616z00_2613))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2615z00_2614), BUNSPEC); } } 
BgL_auxz00_3221 = BgL_nodez00_1597; 
return 
(obj_t)(BgL_auxz00_3221);} } } 
}



/* glo!-make-box3010 */
obj_t BGl_gloz12zd2makezd2box3010z12zzintegrate_nodez00(obj_t BgL_envz00_2741, obj_t BgL_nodez00_2742, obj_t BgL_integratorz00_2743)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 368 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1588;obj_t BgL_integratorz00_1589;
{ /* ./Integrate/node.scm 369 */
BgL_makezd2boxzd2_bglt BgL_auxz00_3254;
BgL_nodez00_1588 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2742); 
BgL_integratorz00_1589 = BgL_integratorz00_2743; 
{ /* ./Integrate/node.scm 369 */
BgL_nodez00_bglt BgL_arg4079z00_2548;
{ /* ./Integrate/node.scm 369 */
BgL_nodez00_bglt BgL_arg4082z00_2549;
BgL_arg4082z00_2549 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1588))->BgL_valuez00); 
{ /* ./Integrate/node.scm 369 */
BgL_nodez00_bglt BgL_res4214z00_2578;
{ /* ./Integrate/node.scm 369 */
BgL_variablez00_bglt BgL_integratorz00_2552;
BgL_integratorz00_2552 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1589); 
{ /* ./Integrate/node.scm 369 */
obj_t BgL_method2969z00_2553;
{ /* ./Integrate/node.scm 369 */
BgL_objectz00_bglt BgL_objz00_2554;
BgL_objz00_2554 = 
(BgL_objectz00_bglt)(BgL_arg4082z00_2549); 
{ /* ./Integrate/node.scm 369 */
long BgL_objzd2classzd2numz00_2555;
BgL_objzd2classzd2numz00_2555 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2554); 
{ /* ./Integrate/node.scm 369 */
obj_t BgL_arg2017z00_2556;
{ /* ./Integrate/node.scm 369 */
int BgL_auxz00_3259;
BgL_auxz00_3259 = 
(int)(((long)1)); 
BgL_arg2017z00_2556 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3259); } 
{ /* ./Integrate/node.scm 369 */
int BgL_offsetz00_2559;
BgL_offsetz00_2559 = 
(int)(BgL_objzd2classzd2numz00_2555); 
{ /* ./Integrate/node.scm 369 */
long BgL_offsetz00_2560;
{ /* ./Integrate/node.scm 369 */
long BgL_auxz00_3263;
BgL_auxz00_3263 = 
(long)(BgL_offsetz00_2559); 
BgL_offsetz00_2560 = 
(BgL_auxz00_3263-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 369 */
long BgL_modz00_2561;
{ /* ./Integrate/node.scm 369 */
int BgL_arg2028z00_2562;
BgL_arg2028z00_2562 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 369 */
long BgL_n2z00_2570;
BgL_n2z00_2570 = 
(long)(BgL_arg2028z00_2562); 
BgL_modz00_2561 = 
(BgL_offsetz00_2560/BgL_n2z00_2570); } } 
{ /* ./Integrate/node.scm 369 */
long BgL_restz00_2563;
{ /* ./Integrate/node.scm 369 */
int BgL_arg2024z00_2564;
BgL_arg2024z00_2564 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 369 */
long BgL_n2z00_2573;
BgL_n2z00_2573 = 
(long)(BgL_arg2024z00_2564); 
BgL_restz00_2563 = 
(BgL_offsetz00_2560%BgL_n2z00_2573); } } 
{ /* ./Integrate/node.scm 369 */

{ /* ./Integrate/node.scm 369 */
obj_t BgL_bucketz00_2565;
{ /* ./Integrate/node.scm 369 */
int BgL_kz00_2575;
BgL_kz00_2575 = 
(int)(BgL_modz00_2561); 
BgL_bucketz00_2565 = 
VECTOR_REF(BgL_arg2017z00_2556,BgL_kz00_2575); } 
{ /* ./Integrate/node.scm 369 */
int BgL_kz00_2577;
BgL_kz00_2577 = 
(int)(BgL_restz00_2563); 
BgL_method2969z00_2553 = 
VECTOR_REF(BgL_bucketz00_2565,BgL_kz00_2577); } } } } } } } } } } 
{ /* ./Integrate/node.scm 369 */
obj_t BgL_auxz00_3276;
BgL_auxz00_3276 = 
PROCEDURE_ENTRY(BgL_method2969z00_2553)(BgL_method2969z00_2553, 
(obj_t)(BgL_arg4082z00_2549), 
(obj_t)(BgL_integratorz00_2552), BEOA); 
BgL_res4214z00_2578 = 
(BgL_nodez00_bglt)(BgL_auxz00_3276); } } } 
BgL_arg4079z00_2548 = BgL_res4214z00_2578; } } 
{ /* ./Integrate/node.scm 369 */
BgL_makezd2boxzd2_bglt BgL_obj2584z00_2579;BgL_nodez00_bglt BgL_val2583z00_2580;
BgL_obj2584z00_2579 = BgL_nodez00_1588; 
BgL_val2583z00_2580 = BgL_arg4079z00_2548; 
((((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2584z00_2579))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2583z00_2580), BUNSPEC); } } 
BgL_auxz00_3254 = BgL_nodez00_1588; 
return 
(obj_t)(BgL_auxz00_3254);} } } 
}



/* glo!-jump-ex-it3008 */
obj_t BGl_gloz12zd2jumpzd2exzd2it3008zc0zzintegrate_nodez00(obj_t BgL_envz00_2744, obj_t BgL_nodez00_2745, obj_t BgL_integratorz00_2746)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 359 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1577;obj_t BgL_integratorz00_1578;
{ /* ./Integrate/node.scm 360 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_3285;
BgL_nodez00_1577 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2745); 
BgL_integratorz00_1578 = BgL_integratorz00_2746; 
{ /* ./Integrate/node.scm 361 */
BgL_nodez00_bglt BgL_arg4059z00_1582;
{ /* ./Integrate/node.scm 361 */
BgL_nodez00_bglt BgL_arg4062z00_1583;
BgL_arg4062z00_1583 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1577))->BgL_exitz00); 
{ /* ./Integrate/node.scm 361 */
BgL_nodez00_bglt BgL_res4208z00_2513;
{ /* ./Integrate/node.scm 361 */
BgL_variablez00_bglt BgL_integratorz00_2487;
BgL_integratorz00_2487 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1578); 
{ /* ./Integrate/node.scm 361 */
obj_t BgL_method2969z00_2488;
{ /* ./Integrate/node.scm 361 */
BgL_objectz00_bglt BgL_objz00_2489;
BgL_objz00_2489 = 
(BgL_objectz00_bglt)(BgL_arg4062z00_1583); 
{ /* ./Integrate/node.scm 361 */
long BgL_objzd2classzd2numz00_2490;
BgL_objzd2classzd2numz00_2490 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2489); 
{ /* ./Integrate/node.scm 361 */
obj_t BgL_arg2017z00_2491;
{ /* ./Integrate/node.scm 361 */
int BgL_auxz00_3290;
BgL_auxz00_3290 = 
(int)(((long)1)); 
BgL_arg2017z00_2491 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3290); } 
{ /* ./Integrate/node.scm 361 */
int BgL_offsetz00_2494;
BgL_offsetz00_2494 = 
(int)(BgL_objzd2classzd2numz00_2490); 
{ /* ./Integrate/node.scm 361 */
long BgL_offsetz00_2495;
{ /* ./Integrate/node.scm 361 */
long BgL_auxz00_3294;
BgL_auxz00_3294 = 
(long)(BgL_offsetz00_2494); 
BgL_offsetz00_2495 = 
(BgL_auxz00_3294-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 361 */
long BgL_modz00_2496;
{ /* ./Integrate/node.scm 361 */
int BgL_arg2028z00_2497;
BgL_arg2028z00_2497 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 361 */
long BgL_n2z00_2505;
BgL_n2z00_2505 = 
(long)(BgL_arg2028z00_2497); 
BgL_modz00_2496 = 
(BgL_offsetz00_2495/BgL_n2z00_2505); } } 
{ /* ./Integrate/node.scm 361 */
long BgL_restz00_2498;
{ /* ./Integrate/node.scm 361 */
int BgL_arg2024z00_2499;
BgL_arg2024z00_2499 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 361 */
long BgL_n2z00_2508;
BgL_n2z00_2508 = 
(long)(BgL_arg2024z00_2499); 
BgL_restz00_2498 = 
(BgL_offsetz00_2495%BgL_n2z00_2508); } } 
{ /* ./Integrate/node.scm 361 */

{ /* ./Integrate/node.scm 361 */
obj_t BgL_bucketz00_2500;
{ /* ./Integrate/node.scm 361 */
int BgL_kz00_2510;
BgL_kz00_2510 = 
(int)(BgL_modz00_2496); 
BgL_bucketz00_2500 = 
VECTOR_REF(BgL_arg2017z00_2491,BgL_kz00_2510); } 
{ /* ./Integrate/node.scm 361 */
int BgL_kz00_2512;
BgL_kz00_2512 = 
(int)(BgL_restz00_2498); 
BgL_method2969z00_2488 = 
VECTOR_REF(BgL_bucketz00_2500,BgL_kz00_2512); } } } } } } } } } } 
{ /* ./Integrate/node.scm 361 */
obj_t BgL_auxz00_3307;
BgL_auxz00_3307 = 
PROCEDURE_ENTRY(BgL_method2969z00_2488)(BgL_method2969z00_2488, 
(obj_t)(BgL_arg4062z00_1583), 
(obj_t)(BgL_integratorz00_2487), BEOA); 
BgL_res4208z00_2513 = 
(BgL_nodez00_bglt)(BgL_auxz00_3307); } } } 
BgL_arg4059z00_1582 = BgL_res4208z00_2513; } } 
{ /* ./Integrate/node.scm 361 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2552z00_2514;BgL_nodez00_bglt BgL_val2551z00_2515;
BgL_obj2552z00_2514 = BgL_nodez00_1577; 
BgL_val2551z00_2515 = BgL_arg4059z00_1582; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2552z00_2514))->BgL_exitz00) = ((BgL_nodez00_bglt)BgL_val2551z00_2515), BUNSPEC); } } 
{ /* ./Integrate/node.scm 362 */
BgL_nodez00_bglt BgL_arg4066z00_1584;
{ /* ./Integrate/node.scm 362 */
BgL_nodez00_bglt BgL_arg4069z00_1585;
BgL_arg4069z00_1585 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1577))->BgL_valuez00); 
{ /* ./Integrate/node.scm 362 */
BgL_nodez00_bglt BgL_res4211z00_2544;
{ /* ./Integrate/node.scm 362 */
BgL_variablez00_bglt BgL_integratorz00_2518;
BgL_integratorz00_2518 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1578); 
{ /* ./Integrate/node.scm 362 */
obj_t BgL_method2969z00_2519;
{ /* ./Integrate/node.scm 362 */
BgL_objectz00_bglt BgL_objz00_2520;
BgL_objz00_2520 = 
(BgL_objectz00_bglt)(BgL_arg4069z00_1585); 
{ /* ./Integrate/node.scm 362 */
long BgL_objzd2classzd2numz00_2521;
BgL_objzd2classzd2numz00_2521 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2520); 
{ /* ./Integrate/node.scm 362 */
obj_t BgL_arg2017z00_2522;
{ /* ./Integrate/node.scm 362 */
int BgL_auxz00_3318;
BgL_auxz00_3318 = 
(int)(((long)1)); 
BgL_arg2017z00_2522 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3318); } 
{ /* ./Integrate/node.scm 362 */
int BgL_offsetz00_2525;
BgL_offsetz00_2525 = 
(int)(BgL_objzd2classzd2numz00_2521); 
{ /* ./Integrate/node.scm 362 */
long BgL_offsetz00_2526;
{ /* ./Integrate/node.scm 362 */
long BgL_auxz00_3322;
BgL_auxz00_3322 = 
(long)(BgL_offsetz00_2525); 
BgL_offsetz00_2526 = 
(BgL_auxz00_3322-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 362 */
long BgL_modz00_2527;
{ /* ./Integrate/node.scm 362 */
int BgL_arg2028z00_2528;
BgL_arg2028z00_2528 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 362 */
long BgL_n2z00_2536;
BgL_n2z00_2536 = 
(long)(BgL_arg2028z00_2528); 
BgL_modz00_2527 = 
(BgL_offsetz00_2526/BgL_n2z00_2536); } } 
{ /* ./Integrate/node.scm 362 */
long BgL_restz00_2529;
{ /* ./Integrate/node.scm 362 */
int BgL_arg2024z00_2530;
BgL_arg2024z00_2530 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 362 */
long BgL_n2z00_2539;
BgL_n2z00_2539 = 
(long)(BgL_arg2024z00_2530); 
BgL_restz00_2529 = 
(BgL_offsetz00_2526%BgL_n2z00_2539); } } 
{ /* ./Integrate/node.scm 362 */

{ /* ./Integrate/node.scm 362 */
obj_t BgL_bucketz00_2531;
{ /* ./Integrate/node.scm 362 */
int BgL_kz00_2541;
BgL_kz00_2541 = 
(int)(BgL_modz00_2527); 
BgL_bucketz00_2531 = 
VECTOR_REF(BgL_arg2017z00_2522,BgL_kz00_2541); } 
{ /* ./Integrate/node.scm 362 */
int BgL_kz00_2543;
BgL_kz00_2543 = 
(int)(BgL_restz00_2529); 
BgL_method2969z00_2519 = 
VECTOR_REF(BgL_bucketz00_2531,BgL_kz00_2543); } } } } } } } } } } 
{ /* ./Integrate/node.scm 362 */
obj_t BgL_auxz00_3335;
BgL_auxz00_3335 = 
PROCEDURE_ENTRY(BgL_method2969z00_2519)(BgL_method2969z00_2519, 
(obj_t)(BgL_arg4069z00_1585), 
(obj_t)(BgL_integratorz00_2518), BEOA); 
BgL_res4211z00_2544 = 
(BgL_nodez00_bglt)(BgL_auxz00_3335); } } } 
BgL_arg4066z00_1584 = BgL_res4211z00_2544; } } 
{ /* ./Integrate/node.scm 362 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2555z00_2545;BgL_nodez00_bglt BgL_val2554z00_2546;
BgL_obj2555z00_2545 = BgL_nodez00_1577; 
BgL_val2554z00_2546 = BgL_arg4066z00_1584; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2555z00_2545))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2554z00_2546), BUNSPEC); } } 
BgL_auxz00_3285 = BgL_nodez00_1577; 
return 
(obj_t)(BgL_auxz00_3285);} } } 
}



/* glo!-set-ex-it3006 */
obj_t BGl_gloz12zd2setzd2exzd2it3006zc0zzintegrate_nodez00(obj_t BgL_envz00_2747, obj_t BgL_nodez00_2748, obj_t BgL_integratorz00_2749)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 351 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1568;obj_t BgL_integratorz00_1569;
{ /* ./Integrate/node.scm 352 */
BgL_setzd2exzd2itz00_bglt BgL_auxz00_3344;
BgL_nodez00_1568 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2748); 
BgL_integratorz00_1569 = BgL_integratorz00_2749; 
{ /* ./Integrate/node.scm 352 */
BgL_nodez00_bglt BgL_arg4046z00_2452;
{ /* ./Integrate/node.scm 352 */
BgL_nodez00_bglt BgL_arg4049z00_2453;
BgL_arg4049z00_2453 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1568))->BgL_bodyz00); 
{ /* ./Integrate/node.scm 352 */
BgL_nodez00_bglt BgL_res4205z00_2482;
{ /* ./Integrate/node.scm 352 */
BgL_variablez00_bglt BgL_integratorz00_2456;
BgL_integratorz00_2456 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1569); 
{ /* ./Integrate/node.scm 352 */
obj_t BgL_method2969z00_2457;
{ /* ./Integrate/node.scm 352 */
BgL_objectz00_bglt BgL_objz00_2458;
BgL_objz00_2458 = 
(BgL_objectz00_bglt)(BgL_arg4049z00_2453); 
{ /* ./Integrate/node.scm 352 */
long BgL_objzd2classzd2numz00_2459;
BgL_objzd2classzd2numz00_2459 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2458); 
{ /* ./Integrate/node.scm 352 */
obj_t BgL_arg2017z00_2460;
{ /* ./Integrate/node.scm 352 */
int BgL_auxz00_3349;
BgL_auxz00_3349 = 
(int)(((long)1)); 
BgL_arg2017z00_2460 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3349); } 
{ /* ./Integrate/node.scm 352 */
int BgL_offsetz00_2463;
BgL_offsetz00_2463 = 
(int)(BgL_objzd2classzd2numz00_2459); 
{ /* ./Integrate/node.scm 352 */
long BgL_offsetz00_2464;
{ /* ./Integrate/node.scm 352 */
long BgL_auxz00_3353;
BgL_auxz00_3353 = 
(long)(BgL_offsetz00_2463); 
BgL_offsetz00_2464 = 
(BgL_auxz00_3353-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 352 */
long BgL_modz00_2465;
{ /* ./Integrate/node.scm 352 */
int BgL_arg2028z00_2466;
BgL_arg2028z00_2466 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 352 */
long BgL_n2z00_2474;
BgL_n2z00_2474 = 
(long)(BgL_arg2028z00_2466); 
BgL_modz00_2465 = 
(BgL_offsetz00_2464/BgL_n2z00_2474); } } 
{ /* ./Integrate/node.scm 352 */
long BgL_restz00_2467;
{ /* ./Integrate/node.scm 352 */
int BgL_arg2024z00_2468;
BgL_arg2024z00_2468 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 352 */
long BgL_n2z00_2477;
BgL_n2z00_2477 = 
(long)(BgL_arg2024z00_2468); 
BgL_restz00_2467 = 
(BgL_offsetz00_2464%BgL_n2z00_2477); } } 
{ /* ./Integrate/node.scm 352 */

{ /* ./Integrate/node.scm 352 */
obj_t BgL_bucketz00_2469;
{ /* ./Integrate/node.scm 352 */
int BgL_kz00_2479;
BgL_kz00_2479 = 
(int)(BgL_modz00_2465); 
BgL_bucketz00_2469 = 
VECTOR_REF(BgL_arg2017z00_2460,BgL_kz00_2479); } 
{ /* ./Integrate/node.scm 352 */
int BgL_kz00_2481;
BgL_kz00_2481 = 
(int)(BgL_restz00_2467); 
BgL_method2969z00_2457 = 
VECTOR_REF(BgL_bucketz00_2469,BgL_kz00_2481); } } } } } } } } } } 
{ /* ./Integrate/node.scm 352 */
obj_t BgL_auxz00_3366;
BgL_auxz00_3366 = 
PROCEDURE_ENTRY(BgL_method2969z00_2457)(BgL_method2969z00_2457, 
(obj_t)(BgL_arg4049z00_2453), 
(obj_t)(BgL_integratorz00_2456), BEOA); 
BgL_res4205z00_2482 = 
(BgL_nodez00_bglt)(BgL_auxz00_3366); } } } 
BgL_arg4046z00_2452 = BgL_res4205z00_2482; } } 
{ /* ./Integrate/node.scm 352 */
BgL_setzd2exzd2itz00_bglt BgL_obj2529z00_2483;BgL_nodez00_bglt BgL_val2528z00_2484;
BgL_obj2529z00_2483 = BgL_nodez00_1568; 
BgL_val2528z00_2484 = BgL_arg4046z00_2452; 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2529z00_2483))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2528z00_2484), BUNSPEC); } } 
BgL_auxz00_3344 = BgL_nodez00_1568; 
return 
(obj_t)(BgL_auxz00_3344);} } } 
}



/* glo!-let-var3004 */
obj_t BGl_gloz12zd2letzd2var3004z12zzintegrate_nodez00(obj_t BgL_envz00_2750, obj_t BgL_nodez00_2751, obj_t BgL_integratorz00_2752)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 333 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1547;obj_t BgL_integratorz00_1548;
{ /* ./Integrate/node.scm 334 */
BgL_letzd2varzd2_bglt BgL_auxz00_3375;
BgL_nodez00_1547 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2751); 
BgL_integratorz00_1548 = BgL_integratorz00_2752; 
{ 
obj_t BgL_l2952z00_1552;
{ /* ./Integrate/node.scm 335 */
obj_t BgL_arg4006z00_1554;
BgL_arg4006z00_1554 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1547))->BgL_bindingsz00); 
BgL_l2952z00_1552 = BgL_arg4006z00_1554; 
BgL_forzd2each2953zd2_1553:
{ /* ./Integrate/node.scm 335 */
bool_t BgL_test4009z00_1555;
BgL_test4009z00_1555 = 
PAIRP(BgL_l2952z00_1552); 
if(BgL_test4009z00_1555)
{ /* ./Integrate/node.scm 335 */
{ /* ./Integrate/node.scm 336 */
obj_t BgL_bindingz00_1556;
BgL_bindingz00_1556 = 
CAR(BgL_l2952z00_1552); 
{ /* ./Integrate/node.scm 336 */
obj_t BgL_varz00_1557;obj_t BgL_valz00_1558;
BgL_varz00_1557 = 
CAR(BgL_bindingz00_1556); 
BgL_valz00_1558 = 
CDR(BgL_bindingz00_1556); 
{ /* ./Integrate/node.scm 338 */
BgL_nodez00_bglt BgL_arg4011z00_1559;
{ /* ./Integrate/node.scm 338 */
BgL_nodez00_bglt BgL_res4199z00_2411;
{ /* ./Integrate/node.scm 338 */
BgL_nodez00_bglt BgL_nodez00_2384;BgL_variablez00_bglt BgL_integratorz00_2385;
BgL_nodez00_2384 = 
(BgL_nodez00_bglt)(BgL_valz00_1558); 
BgL_integratorz00_2385 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1548); 
{ /* ./Integrate/node.scm 338 */
obj_t BgL_method2969z00_2386;
{ /* ./Integrate/node.scm 338 */
BgL_objectz00_bglt BgL_objz00_2387;
BgL_objz00_2387 = 
(BgL_objectz00_bglt)(BgL_nodez00_2384); 
{ /* ./Integrate/node.scm 338 */
long BgL_objzd2classzd2numz00_2388;
BgL_objzd2classzd2numz00_2388 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2387); 
{ /* ./Integrate/node.scm 338 */
obj_t BgL_arg2017z00_2389;
{ /* ./Integrate/node.scm 338 */
int BgL_auxz00_3386;
BgL_auxz00_3386 = 
(int)(((long)1)); 
BgL_arg2017z00_2389 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3386); } 
{ /* ./Integrate/node.scm 338 */
int BgL_offsetz00_2392;
BgL_offsetz00_2392 = 
(int)(BgL_objzd2classzd2numz00_2388); 
{ /* ./Integrate/node.scm 338 */
long BgL_offsetz00_2393;
{ /* ./Integrate/node.scm 338 */
long BgL_auxz00_3390;
BgL_auxz00_3390 = 
(long)(BgL_offsetz00_2392); 
BgL_offsetz00_2393 = 
(BgL_auxz00_3390-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 338 */
long BgL_modz00_2394;
{ /* ./Integrate/node.scm 338 */
int BgL_arg2028z00_2395;
BgL_arg2028z00_2395 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 338 */
long BgL_n2z00_2403;
BgL_n2z00_2403 = 
(long)(BgL_arg2028z00_2395); 
BgL_modz00_2394 = 
(BgL_offsetz00_2393/BgL_n2z00_2403); } } 
{ /* ./Integrate/node.scm 338 */
long BgL_restz00_2396;
{ /* ./Integrate/node.scm 338 */
int BgL_arg2024z00_2397;
BgL_arg2024z00_2397 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 338 */
long BgL_n2z00_2406;
BgL_n2z00_2406 = 
(long)(BgL_arg2024z00_2397); 
BgL_restz00_2396 = 
(BgL_offsetz00_2393%BgL_n2z00_2406); } } 
{ /* ./Integrate/node.scm 338 */

{ /* ./Integrate/node.scm 338 */
obj_t BgL_bucketz00_2398;
{ /* ./Integrate/node.scm 338 */
int BgL_kz00_2408;
BgL_kz00_2408 = 
(int)(BgL_modz00_2394); 
BgL_bucketz00_2398 = 
VECTOR_REF(BgL_arg2017z00_2389,BgL_kz00_2408); } 
{ /* ./Integrate/node.scm 338 */
int BgL_kz00_2410;
BgL_kz00_2410 = 
(int)(BgL_restz00_2396); 
BgL_method2969z00_2386 = 
VECTOR_REF(BgL_bucketz00_2398,BgL_kz00_2410); } } } } } } } } } } 
{ /* ./Integrate/node.scm 338 */
obj_t BgL_auxz00_3403;
BgL_auxz00_3403 = 
PROCEDURE_ENTRY(BgL_method2969z00_2386)(BgL_method2969z00_2386, 
(obj_t)(BgL_nodez00_2384), 
(obj_t)(BgL_integratorz00_2385), BEOA); 
BgL_res4199z00_2411 = 
(BgL_nodez00_bglt)(BgL_auxz00_3403); } } } 
BgL_arg4011z00_1559 = BgL_res4199z00_2411; } 
{ /* ./Integrate/node.scm 338 */
obj_t BgL_objz00_2413;
BgL_objz00_2413 = 
(obj_t)(BgL_arg4011z00_1559); 
SET_CDR(BgL_bindingz00_1556, BgL_objz00_2413); } } 
{ /* ./Integrate/node.scm 339 */
bool_t BgL_test4014z00_1560;
BgL_test4014z00_1560 = 
BGl_integratezd2celledzf3z21zzintegrate_nodez00(
(BgL_localz00_bglt)(BgL_varz00_1557)); 
if(BgL_test4014z00_1560)
{ /* ./Integrate/node.scm 339 */
{ /* ./Integrate/node.scm 341 */
BgL_variablez00_bglt BgL_obj1099z00_2414;BgL_typez00_bglt BgL_val1098z00_2415;
BgL_obj1099z00_2414 = 
(BgL_variablez00_bglt)(BgL_varz00_1557); 
BgL_val1098z00_2415 = 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00); 
((((BgL_variablez00_bglt)CREF(BgL_obj1099z00_2414))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1098z00_2415), BUNSPEC); } 
{ /* ./Integrate/node.scm 342 */
BgL_makezd2boxzd2_bglt BgL_arg4017z00_1561;
{ /* ./Integrate/node.scm 342 */
obj_t BgL_arg4020z00_1562;
BgL_arg4020z00_1562 = 
CDR(BgL_bindingz00_1556); 
BgL_arg4017z00_1561 = 
BGl_azd2makezd2cellz00zzintegrate_nodez00(
(BgL_nodez00_bglt)(BgL_arg4020z00_1562), 
(BgL_variablez00_bglt)(BgL_varz00_1557)); } 
{ /* ./Integrate/node.scm 342 */
obj_t BgL_objz00_2418;
BgL_objz00_2418 = 
(obj_t)(BgL_arg4017z00_1561); 
SET_CDR(BgL_bindingz00_1556, BgL_objz00_2418); } } }  else 
{ /* ./Integrate/node.scm 339 */BFALSE; } } } } 
{ /* ./Integrate/node.scm 335 */
obj_t BgL_arg4028z00_1563;
BgL_arg4028z00_1563 = 
CDR(BgL_l2952z00_1552); 
{ 
obj_t BgL_l2952z00_3424;
BgL_l2952z00_3424 = BgL_arg4028z00_1563; 
BgL_l2952z00_1552 = BgL_l2952z00_3424; 
goto BgL_forzd2each2953zd2_1553;} } }  else 
{ /* ./Integrate/node.scm 335 */((bool_t)1); } } } } 
{ /* ./Integrate/node.scm 345 */
BgL_nodez00_bglt BgL_arg4033z00_1564;
{ /* ./Integrate/node.scm 345 */
BgL_nodez00_bglt BgL_arg4036z00_1565;
BgL_arg4036z00_1565 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1547))->BgL_bodyz00); 
{ /* ./Integrate/node.scm 345 */
BgL_nodez00_bglt BgL_res4202z00_2448;
{ /* ./Integrate/node.scm 345 */
BgL_variablez00_bglt BgL_integratorz00_2422;
BgL_integratorz00_2422 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1548); 
{ /* ./Integrate/node.scm 345 */
obj_t BgL_method2969z00_2423;
{ /* ./Integrate/node.scm 345 */
BgL_objectz00_bglt BgL_objz00_2424;
BgL_objz00_2424 = 
(BgL_objectz00_bglt)(BgL_arg4036z00_1565); 
{ /* ./Integrate/node.scm 345 */
long BgL_objzd2classzd2numz00_2425;
BgL_objzd2classzd2numz00_2425 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2424); 
{ /* ./Integrate/node.scm 345 */
obj_t BgL_arg2017z00_2426;
{ /* ./Integrate/node.scm 345 */
int BgL_auxz00_3429;
BgL_auxz00_3429 = 
(int)(((long)1)); 
BgL_arg2017z00_2426 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3429); } 
{ /* ./Integrate/node.scm 345 */
int BgL_offsetz00_2429;
BgL_offsetz00_2429 = 
(int)(BgL_objzd2classzd2numz00_2425); 
{ /* ./Integrate/node.scm 345 */
long BgL_offsetz00_2430;
{ /* ./Integrate/node.scm 345 */
long BgL_auxz00_3433;
BgL_auxz00_3433 = 
(long)(BgL_offsetz00_2429); 
BgL_offsetz00_2430 = 
(BgL_auxz00_3433-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 345 */
long BgL_modz00_2431;
{ /* ./Integrate/node.scm 345 */
int BgL_arg2028z00_2432;
BgL_arg2028z00_2432 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 345 */
long BgL_n2z00_2440;
BgL_n2z00_2440 = 
(long)(BgL_arg2028z00_2432); 
BgL_modz00_2431 = 
(BgL_offsetz00_2430/BgL_n2z00_2440); } } 
{ /* ./Integrate/node.scm 345 */
long BgL_restz00_2433;
{ /* ./Integrate/node.scm 345 */
int BgL_arg2024z00_2434;
BgL_arg2024z00_2434 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 345 */
long BgL_n2z00_2443;
BgL_n2z00_2443 = 
(long)(BgL_arg2024z00_2434); 
BgL_restz00_2433 = 
(BgL_offsetz00_2430%BgL_n2z00_2443); } } 
{ /* ./Integrate/node.scm 345 */

{ /* ./Integrate/node.scm 345 */
obj_t BgL_bucketz00_2435;
{ /* ./Integrate/node.scm 345 */
int BgL_kz00_2445;
BgL_kz00_2445 = 
(int)(BgL_modz00_2431); 
BgL_bucketz00_2435 = 
VECTOR_REF(BgL_arg2017z00_2426,BgL_kz00_2445); } 
{ /* ./Integrate/node.scm 345 */
int BgL_kz00_2447;
BgL_kz00_2447 = 
(int)(BgL_restz00_2433); 
BgL_method2969z00_2423 = 
VECTOR_REF(BgL_bucketz00_2435,BgL_kz00_2447); } } } } } } } } } } 
{ /* ./Integrate/node.scm 345 */
obj_t BgL_auxz00_3446;
BgL_auxz00_3446 = 
PROCEDURE_ENTRY(BgL_method2969z00_2423)(BgL_method2969z00_2423, 
(obj_t)(BgL_arg4036z00_1565), 
(obj_t)(BgL_integratorz00_2422), BEOA); 
BgL_res4202z00_2448 = 
(BgL_nodez00_bglt)(BgL_auxz00_3446); } } } 
BgL_arg4033z00_1564 = BgL_res4202z00_2448; } } 
{ /* ./Integrate/node.scm 345 */
BgL_letzd2varzd2_bglt BgL_obj2491z00_2449;BgL_nodez00_bglt BgL_val2490z00_2450;
BgL_obj2491z00_2449 = BgL_nodez00_1547; 
BgL_val2490z00_2450 = BgL_arg4033z00_1564; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2491z00_2449))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2490z00_2450), BUNSPEC); } } 
BgL_auxz00_3375 = BgL_nodez00_1547; 
return 
(obj_t)(BgL_auxz00_3375);} } } 
}



/* glo!-let-fun3002 */
obj_t BGl_gloz12zd2letzd2fun3002z12zzintegrate_nodez00(obj_t BgL_envz00_2753, obj_t BgL_nodez00_2754, obj_t BgL_integratorz00_2755)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 322 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1532;obj_t BgL_integratorz00_1533;
{ /* ./Integrate/node.scm 323 */
BgL_letzd2funzd2_bglt BgL_auxz00_3455;
BgL_nodez00_1532 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2754); 
BgL_integratorz00_1533 = BgL_integratorz00_2755; 
{ /* ./Integrate/node.scm 324 */
BgL_nodez00_bglt BgL_arg3981z00_1537;
{ /* ./Integrate/node.scm 324 */
BgL_nodez00_bglt BgL_arg3984z00_1538;
BgL_arg3984z00_1538 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1532))->BgL_bodyz00); 
{ /* ./Integrate/node.scm 324 */
BgL_nodez00_bglt BgL_res4196z00_2372;
{ /* ./Integrate/node.scm 324 */
BgL_variablez00_bglt BgL_integratorz00_2346;
BgL_integratorz00_2346 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1533); 
{ /* ./Integrate/node.scm 324 */
obj_t BgL_method2969z00_2347;
{ /* ./Integrate/node.scm 324 */
BgL_objectz00_bglt BgL_objz00_2348;
BgL_objz00_2348 = 
(BgL_objectz00_bglt)(BgL_arg3984z00_1538); 
{ /* ./Integrate/node.scm 324 */
long BgL_objzd2classzd2numz00_2349;
BgL_objzd2classzd2numz00_2349 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2348); 
{ /* ./Integrate/node.scm 324 */
obj_t BgL_arg2017z00_2350;
{ /* ./Integrate/node.scm 324 */
int BgL_auxz00_3460;
BgL_auxz00_3460 = 
(int)(((long)1)); 
BgL_arg2017z00_2350 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3460); } 
{ /* ./Integrate/node.scm 324 */
int BgL_offsetz00_2353;
BgL_offsetz00_2353 = 
(int)(BgL_objzd2classzd2numz00_2349); 
{ /* ./Integrate/node.scm 324 */
long BgL_offsetz00_2354;
{ /* ./Integrate/node.scm 324 */
long BgL_auxz00_3464;
BgL_auxz00_3464 = 
(long)(BgL_offsetz00_2353); 
BgL_offsetz00_2354 = 
(BgL_auxz00_3464-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 324 */
long BgL_modz00_2355;
{ /* ./Integrate/node.scm 324 */
int BgL_arg2028z00_2356;
BgL_arg2028z00_2356 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 324 */
long BgL_n2z00_2364;
BgL_n2z00_2364 = 
(long)(BgL_arg2028z00_2356); 
BgL_modz00_2355 = 
(BgL_offsetz00_2354/BgL_n2z00_2364); } } 
{ /* ./Integrate/node.scm 324 */
long BgL_restz00_2357;
{ /* ./Integrate/node.scm 324 */
int BgL_arg2024z00_2358;
BgL_arg2024z00_2358 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 324 */
long BgL_n2z00_2367;
BgL_n2z00_2367 = 
(long)(BgL_arg2024z00_2358); 
BgL_restz00_2357 = 
(BgL_offsetz00_2354%BgL_n2z00_2367); } } 
{ /* ./Integrate/node.scm 324 */

{ /* ./Integrate/node.scm 324 */
obj_t BgL_bucketz00_2359;
{ /* ./Integrate/node.scm 324 */
int BgL_kz00_2369;
BgL_kz00_2369 = 
(int)(BgL_modz00_2355); 
BgL_bucketz00_2359 = 
VECTOR_REF(BgL_arg2017z00_2350,BgL_kz00_2369); } 
{ /* ./Integrate/node.scm 324 */
int BgL_kz00_2371;
BgL_kz00_2371 = 
(int)(BgL_restz00_2357); 
BgL_method2969z00_2347 = 
VECTOR_REF(BgL_bucketz00_2359,BgL_kz00_2371); } } } } } } } } } } 
{ /* ./Integrate/node.scm 324 */
obj_t BgL_auxz00_3477;
BgL_auxz00_3477 = 
PROCEDURE_ENTRY(BgL_method2969z00_2347)(BgL_method2969z00_2347, 
(obj_t)(BgL_arg3984z00_1538), 
(obj_t)(BgL_integratorz00_2346), BEOA); 
BgL_res4196z00_2372 = 
(BgL_nodez00_bglt)(BgL_auxz00_3477); } } } 
BgL_arg3981z00_1537 = BgL_res4196z00_2372; } } 
{ /* ./Integrate/node.scm 324 */
BgL_letzd2funzd2_bglt BgL_obj2453z00_2373;BgL_nodez00_bglt BgL_val2452z00_2374;
BgL_obj2453z00_2373 = BgL_nodez00_1532; 
BgL_val2452z00_2374 = BgL_arg3981z00_1537; 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2453z00_2373))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2452z00_2374), BUNSPEC); } } 
{ 
obj_t BgL_l2948z00_1539;
{ /* ./Integrate/node.scm 325 */
obj_t BgL_arg3988z00_1541;
BgL_arg3988z00_1541 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1532))->BgL_localsz00); 
BgL_l2948z00_1539 = BgL_arg3988z00_1541; 
BgL_forzd2each2949zd2_1540:
{ /* ./Integrate/node.scm 325 */
bool_t BgL_test3991z00_1542;
BgL_test3991z00_1542 = 
PAIRP(BgL_l2948z00_1539); 
if(BgL_test3991z00_1542)
{ /* ./Integrate/node.scm 325 */
{ /* ./Integrate/node.scm 326 */
obj_t BgL_localz00_1543;
BgL_localz00_1543 = 
CAR(BgL_l2948z00_1539); 
BGl_globaliza7ezd2localzd2funz12zb5zzintegrate_nodez00(
(BgL_localz00_bglt)(BgL_localz00_1543), 
(BgL_variablez00_bglt)(BgL_integratorz00_1533)); } 
{ /* ./Integrate/node.scm 325 */
obj_t BgL_arg3995z00_1544;
BgL_arg3995z00_1544 = 
CDR(BgL_l2948z00_1539); 
{ 
obj_t BgL_l2948z00_3492;
BgL_l2948z00_3492 = BgL_arg3995z00_1544; 
BgL_l2948z00_1539 = BgL_l2948z00_3492; 
goto BgL_forzd2each2949zd2_1540;} } }  else 
{ /* ./Integrate/node.scm 325 */((bool_t)1); } } } } 
BgL_auxz00_3455 = BgL_nodez00_1532; 
return 
(obj_t)(BgL_auxz00_3455);} } } 
}



/* glo!-select3000 */
obj_t BGl_gloz12zd2select3000zc0zzintegrate_nodez00(obj_t BgL_envz00_2756, obj_t BgL_nodez00_2757, obj_t BgL_integratorz00_2758)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 311 */
{ 
BgL_selectz00_bglt BgL_nodez00_1515;obj_t BgL_integratorz00_1516;
{ /* ./Integrate/node.scm 312 */
BgL_selectz00_bglt BgL_auxz00_3495;
BgL_nodez00_1515 = 
(BgL_selectz00_bglt)(BgL_nodez00_2757); 
BgL_integratorz00_1516 = BgL_integratorz00_2758; 
{ /* ./Integrate/node.scm 313 */
BgL_nodez00_bglt BgL_arg3950z00_1520;
{ /* ./Integrate/node.scm 313 */
BgL_nodez00_bglt BgL_arg3953z00_1521;
BgL_arg3953z00_1521 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1515))->BgL_testz00); 
{ /* ./Integrate/node.scm 313 */
BgL_nodez00_bglt BgL_res4190z00_2306;
{ /* ./Integrate/node.scm 313 */
BgL_variablez00_bglt BgL_integratorz00_2280;
BgL_integratorz00_2280 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1516); 
{ /* ./Integrate/node.scm 313 */
obj_t BgL_method2969z00_2281;
{ /* ./Integrate/node.scm 313 */
BgL_objectz00_bglt BgL_objz00_2282;
BgL_objz00_2282 = 
(BgL_objectz00_bglt)(BgL_arg3953z00_1521); 
{ /* ./Integrate/node.scm 313 */
long BgL_objzd2classzd2numz00_2283;
BgL_objzd2classzd2numz00_2283 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2282); 
{ /* ./Integrate/node.scm 313 */
obj_t BgL_arg2017z00_2284;
{ /* ./Integrate/node.scm 313 */
int BgL_auxz00_3500;
BgL_auxz00_3500 = 
(int)(((long)1)); 
BgL_arg2017z00_2284 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3500); } 
{ /* ./Integrate/node.scm 313 */
int BgL_offsetz00_2287;
BgL_offsetz00_2287 = 
(int)(BgL_objzd2classzd2numz00_2283); 
{ /* ./Integrate/node.scm 313 */
long BgL_offsetz00_2288;
{ /* ./Integrate/node.scm 313 */
long BgL_auxz00_3504;
BgL_auxz00_3504 = 
(long)(BgL_offsetz00_2287); 
BgL_offsetz00_2288 = 
(BgL_auxz00_3504-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 313 */
long BgL_modz00_2289;
{ /* ./Integrate/node.scm 313 */
int BgL_arg2028z00_2290;
BgL_arg2028z00_2290 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 313 */
long BgL_n2z00_2298;
BgL_n2z00_2298 = 
(long)(BgL_arg2028z00_2290); 
BgL_modz00_2289 = 
(BgL_offsetz00_2288/BgL_n2z00_2298); } } 
{ /* ./Integrate/node.scm 313 */
long BgL_restz00_2291;
{ /* ./Integrate/node.scm 313 */
int BgL_arg2024z00_2292;
BgL_arg2024z00_2292 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 313 */
long BgL_n2z00_2301;
BgL_n2z00_2301 = 
(long)(BgL_arg2024z00_2292); 
BgL_restz00_2291 = 
(BgL_offsetz00_2288%BgL_n2z00_2301); } } 
{ /* ./Integrate/node.scm 313 */

{ /* ./Integrate/node.scm 313 */
obj_t BgL_bucketz00_2293;
{ /* ./Integrate/node.scm 313 */
int BgL_kz00_2303;
BgL_kz00_2303 = 
(int)(BgL_modz00_2289); 
BgL_bucketz00_2293 = 
VECTOR_REF(BgL_arg2017z00_2284,BgL_kz00_2303); } 
{ /* ./Integrate/node.scm 313 */
int BgL_kz00_2305;
BgL_kz00_2305 = 
(int)(BgL_restz00_2291); 
BgL_method2969z00_2281 = 
VECTOR_REF(BgL_bucketz00_2293,BgL_kz00_2305); } } } } } } } } } } 
{ /* ./Integrate/node.scm 313 */
obj_t BgL_auxz00_3517;
BgL_auxz00_3517 = 
PROCEDURE_ENTRY(BgL_method2969z00_2281)(BgL_method2969z00_2281, 
(obj_t)(BgL_arg3953z00_1521), 
(obj_t)(BgL_integratorz00_2280), BEOA); 
BgL_res4190z00_2306 = 
(BgL_nodez00_bglt)(BgL_auxz00_3517); } } } 
BgL_arg3950z00_1520 = BgL_res4190z00_2306; } } 
{ /* ./Integrate/node.scm 313 */
BgL_selectz00_bglt BgL_obj2410z00_2307;BgL_nodez00_bglt BgL_val2409z00_2308;
BgL_obj2410z00_2307 = BgL_nodez00_1515; 
BgL_val2409z00_2308 = BgL_arg3950z00_1520; 
((((BgL_selectz00_bglt)CREF(BgL_obj2410z00_2307))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2409z00_2308), BUNSPEC); } } 
{ 
obj_t BgL_l2944z00_1522;
{ /* ./Integrate/node.scm 314 */
obj_t BgL_arg3957z00_1524;
BgL_arg3957z00_1524 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1515))->BgL_clausesz00); 
BgL_l2944z00_1522 = BgL_arg3957z00_1524; 
BgL_forzd2each2945zd2_1523:
{ /* ./Integrate/node.scm 314 */
bool_t BgL_test3960z00_1525;
BgL_test3960z00_1525 = 
PAIRP(BgL_l2944z00_1522); 
if(BgL_test3960z00_1525)
{ /* ./Integrate/node.scm 314 */
{ /* ./Integrate/node.scm 315 */
obj_t BgL_clausez00_1526;
BgL_clausez00_1526 = 
CAR(BgL_l2944z00_1522); 
{ /* ./Integrate/node.scm 315 */
BgL_nodez00_bglt BgL_arg3962z00_1527;
{ /* ./Integrate/node.scm 315 */
obj_t BgL_arg3965z00_1528;
BgL_arg3965z00_1528 = 
CDR(BgL_clausez00_1526); 
{ /* ./Integrate/node.scm 315 */
BgL_nodez00_bglt BgL_res4193z00_2340;
{ /* ./Integrate/node.scm 315 */
BgL_nodez00_bglt BgL_nodez00_2313;BgL_variablez00_bglt BgL_integratorz00_2314;
BgL_nodez00_2313 = 
(BgL_nodez00_bglt)(BgL_arg3965z00_1528); 
BgL_integratorz00_2314 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1516); 
{ /* ./Integrate/node.scm 315 */
obj_t BgL_method2969z00_2315;
{ /* ./Integrate/node.scm 315 */
BgL_objectz00_bglt BgL_objz00_2316;
BgL_objz00_2316 = 
(BgL_objectz00_bglt)(BgL_nodez00_2313); 
{ /* ./Integrate/node.scm 315 */
long BgL_objzd2classzd2numz00_2317;
BgL_objzd2classzd2numz00_2317 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2316); 
{ /* ./Integrate/node.scm 315 */
obj_t BgL_arg2017z00_2318;
{ /* ./Integrate/node.scm 315 */
int BgL_auxz00_3533;
BgL_auxz00_3533 = 
(int)(((long)1)); 
BgL_arg2017z00_2318 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3533); } 
{ /* ./Integrate/node.scm 315 */
int BgL_offsetz00_2321;
BgL_offsetz00_2321 = 
(int)(BgL_objzd2classzd2numz00_2317); 
{ /* ./Integrate/node.scm 315 */
long BgL_offsetz00_2322;
{ /* ./Integrate/node.scm 315 */
long BgL_auxz00_3537;
BgL_auxz00_3537 = 
(long)(BgL_offsetz00_2321); 
BgL_offsetz00_2322 = 
(BgL_auxz00_3537-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 315 */
long BgL_modz00_2323;
{ /* ./Integrate/node.scm 315 */
int BgL_arg2028z00_2324;
BgL_arg2028z00_2324 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 315 */
long BgL_n2z00_2332;
BgL_n2z00_2332 = 
(long)(BgL_arg2028z00_2324); 
BgL_modz00_2323 = 
(BgL_offsetz00_2322/BgL_n2z00_2332); } } 
{ /* ./Integrate/node.scm 315 */
long BgL_restz00_2325;
{ /* ./Integrate/node.scm 315 */
int BgL_arg2024z00_2326;
BgL_arg2024z00_2326 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 315 */
long BgL_n2z00_2335;
BgL_n2z00_2335 = 
(long)(BgL_arg2024z00_2326); 
BgL_restz00_2325 = 
(BgL_offsetz00_2322%BgL_n2z00_2335); } } 
{ /* ./Integrate/node.scm 315 */

{ /* ./Integrate/node.scm 315 */
obj_t BgL_bucketz00_2327;
{ /* ./Integrate/node.scm 315 */
int BgL_kz00_2337;
BgL_kz00_2337 = 
(int)(BgL_modz00_2323); 
BgL_bucketz00_2327 = 
VECTOR_REF(BgL_arg2017z00_2318,BgL_kz00_2337); } 
{ /* ./Integrate/node.scm 315 */
int BgL_kz00_2339;
BgL_kz00_2339 = 
(int)(BgL_restz00_2325); 
BgL_method2969z00_2315 = 
VECTOR_REF(BgL_bucketz00_2327,BgL_kz00_2339); } } } } } } } } } } 
{ /* ./Integrate/node.scm 315 */
obj_t BgL_auxz00_3550;
BgL_auxz00_3550 = 
PROCEDURE_ENTRY(BgL_method2969z00_2315)(BgL_method2969z00_2315, 
(obj_t)(BgL_nodez00_2313), 
(obj_t)(BgL_integratorz00_2314), BEOA); 
BgL_res4193z00_2340 = 
(BgL_nodez00_bglt)(BgL_auxz00_3550); } } } 
BgL_arg3962z00_1527 = BgL_res4193z00_2340; } } 
{ /* ./Integrate/node.scm 315 */
obj_t BgL_objz00_2342;
BgL_objz00_2342 = 
(obj_t)(BgL_arg3962z00_1527); 
SET_CDR(BgL_clausez00_1526, BgL_objz00_2342); } } } 
{ /* ./Integrate/node.scm 314 */
obj_t BgL_arg3970z00_1529;
BgL_arg3970z00_1529 = 
CDR(BgL_l2944z00_1522); 
{ 
obj_t BgL_l2944z00_3559;
BgL_l2944z00_3559 = BgL_arg3970z00_1529; 
BgL_l2944z00_1522 = BgL_l2944z00_3559; 
goto BgL_forzd2each2945zd2_1523;} } }  else 
{ /* ./Integrate/node.scm 314 */((bool_t)1); } } } } 
BgL_auxz00_3495 = BgL_nodez00_1515; 
return 
(obj_t)(BgL_auxz00_3495);} } } 
}



/* glo!-fail2998 */
obj_t BGl_gloz12zd2fail2998zc0zzintegrate_nodez00(obj_t BgL_envz00_2759, obj_t BgL_nodez00_2760, obj_t BgL_integratorz00_2761)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 301 */
{ 
BgL_failz00_bglt BgL_nodez00_1502;obj_t BgL_integratorz00_1503;
{ /* ./Integrate/node.scm 302 */
BgL_failz00_bglt BgL_auxz00_3562;
BgL_nodez00_1502 = 
(BgL_failz00_bglt)(BgL_nodez00_2760); 
BgL_integratorz00_1503 = BgL_integratorz00_2761; 
{ /* ./Integrate/node.scm 303 */
BgL_nodez00_bglt BgL_arg3922z00_1507;
{ /* ./Integrate/node.scm 303 */
BgL_nodez00_bglt BgL_arg3925z00_1508;
BgL_arg3925z00_1508 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1502))->BgL_procz00); 
{ /* ./Integrate/node.scm 303 */
BgL_nodez00_bglt BgL_res4181z00_2213;
{ /* ./Integrate/node.scm 303 */
BgL_variablez00_bglt BgL_integratorz00_2187;
BgL_integratorz00_2187 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1503); 
{ /* ./Integrate/node.scm 303 */
obj_t BgL_method2969z00_2188;
{ /* ./Integrate/node.scm 303 */
BgL_objectz00_bglt BgL_objz00_2189;
BgL_objz00_2189 = 
(BgL_objectz00_bglt)(BgL_arg3925z00_1508); 
{ /* ./Integrate/node.scm 303 */
long BgL_objzd2classzd2numz00_2190;
BgL_objzd2classzd2numz00_2190 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2189); 
{ /* ./Integrate/node.scm 303 */
obj_t BgL_arg2017z00_2191;
{ /* ./Integrate/node.scm 303 */
int BgL_auxz00_3567;
BgL_auxz00_3567 = 
(int)(((long)1)); 
BgL_arg2017z00_2191 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3567); } 
{ /* ./Integrate/node.scm 303 */
int BgL_offsetz00_2194;
BgL_offsetz00_2194 = 
(int)(BgL_objzd2classzd2numz00_2190); 
{ /* ./Integrate/node.scm 303 */
long BgL_offsetz00_2195;
{ /* ./Integrate/node.scm 303 */
long BgL_auxz00_3571;
BgL_auxz00_3571 = 
(long)(BgL_offsetz00_2194); 
BgL_offsetz00_2195 = 
(BgL_auxz00_3571-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 303 */
long BgL_modz00_2196;
{ /* ./Integrate/node.scm 303 */
int BgL_arg2028z00_2197;
BgL_arg2028z00_2197 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 303 */
long BgL_n2z00_2205;
BgL_n2z00_2205 = 
(long)(BgL_arg2028z00_2197); 
BgL_modz00_2196 = 
(BgL_offsetz00_2195/BgL_n2z00_2205); } } 
{ /* ./Integrate/node.scm 303 */
long BgL_restz00_2198;
{ /* ./Integrate/node.scm 303 */
int BgL_arg2024z00_2199;
BgL_arg2024z00_2199 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 303 */
long BgL_n2z00_2208;
BgL_n2z00_2208 = 
(long)(BgL_arg2024z00_2199); 
BgL_restz00_2198 = 
(BgL_offsetz00_2195%BgL_n2z00_2208); } } 
{ /* ./Integrate/node.scm 303 */

{ /* ./Integrate/node.scm 303 */
obj_t BgL_bucketz00_2200;
{ /* ./Integrate/node.scm 303 */
int BgL_kz00_2210;
BgL_kz00_2210 = 
(int)(BgL_modz00_2196); 
BgL_bucketz00_2200 = 
VECTOR_REF(BgL_arg2017z00_2191,BgL_kz00_2210); } 
{ /* ./Integrate/node.scm 303 */
int BgL_kz00_2212;
BgL_kz00_2212 = 
(int)(BgL_restz00_2198); 
BgL_method2969z00_2188 = 
VECTOR_REF(BgL_bucketz00_2200,BgL_kz00_2212); } } } } } } } } } } 
{ /* ./Integrate/node.scm 303 */
obj_t BgL_auxz00_3584;
BgL_auxz00_3584 = 
PROCEDURE_ENTRY(BgL_method2969z00_2188)(BgL_method2969z00_2188, 
(obj_t)(BgL_arg3925z00_1508), 
(obj_t)(BgL_integratorz00_2187), BEOA); 
BgL_res4181z00_2213 = 
(BgL_nodez00_bglt)(BgL_auxz00_3584); } } } 
BgL_arg3922z00_1507 = BgL_res4181z00_2213; } } 
{ /* ./Integrate/node.scm 303 */
BgL_failz00_bglt BgL_obj2372z00_2214;BgL_nodez00_bglt BgL_val2371z00_2215;
BgL_obj2372z00_2214 = BgL_nodez00_1502; 
BgL_val2371z00_2215 = BgL_arg3922z00_1507; 
((((BgL_failz00_bglt)CREF(BgL_obj2372z00_2214))->BgL_procz00) = ((BgL_nodez00_bglt)BgL_val2371z00_2215), BUNSPEC); } } 
{ /* ./Integrate/node.scm 304 */
BgL_nodez00_bglt BgL_arg3929z00_1509;
{ /* ./Integrate/node.scm 304 */
BgL_nodez00_bglt BgL_arg3932z00_1510;
BgL_arg3932z00_1510 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1502))->BgL_msgz00); 
{ /* ./Integrate/node.scm 304 */
BgL_nodez00_bglt BgL_res4184z00_2244;
{ /* ./Integrate/node.scm 304 */
BgL_variablez00_bglt BgL_integratorz00_2218;
BgL_integratorz00_2218 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1503); 
{ /* ./Integrate/node.scm 304 */
obj_t BgL_method2969z00_2219;
{ /* ./Integrate/node.scm 304 */
BgL_objectz00_bglt BgL_objz00_2220;
BgL_objz00_2220 = 
(BgL_objectz00_bglt)(BgL_arg3932z00_1510); 
{ /* ./Integrate/node.scm 304 */
long BgL_objzd2classzd2numz00_2221;
BgL_objzd2classzd2numz00_2221 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2220); 
{ /* ./Integrate/node.scm 304 */
obj_t BgL_arg2017z00_2222;
{ /* ./Integrate/node.scm 304 */
int BgL_auxz00_3595;
BgL_auxz00_3595 = 
(int)(((long)1)); 
BgL_arg2017z00_2222 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3595); } 
{ /* ./Integrate/node.scm 304 */
int BgL_offsetz00_2225;
BgL_offsetz00_2225 = 
(int)(BgL_objzd2classzd2numz00_2221); 
{ /* ./Integrate/node.scm 304 */
long BgL_offsetz00_2226;
{ /* ./Integrate/node.scm 304 */
long BgL_auxz00_3599;
BgL_auxz00_3599 = 
(long)(BgL_offsetz00_2225); 
BgL_offsetz00_2226 = 
(BgL_auxz00_3599-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 304 */
long BgL_modz00_2227;
{ /* ./Integrate/node.scm 304 */
int BgL_arg2028z00_2228;
BgL_arg2028z00_2228 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 304 */
long BgL_n2z00_2236;
BgL_n2z00_2236 = 
(long)(BgL_arg2028z00_2228); 
BgL_modz00_2227 = 
(BgL_offsetz00_2226/BgL_n2z00_2236); } } 
{ /* ./Integrate/node.scm 304 */
long BgL_restz00_2229;
{ /* ./Integrate/node.scm 304 */
int BgL_arg2024z00_2230;
BgL_arg2024z00_2230 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 304 */
long BgL_n2z00_2239;
BgL_n2z00_2239 = 
(long)(BgL_arg2024z00_2230); 
BgL_restz00_2229 = 
(BgL_offsetz00_2226%BgL_n2z00_2239); } } 
{ /* ./Integrate/node.scm 304 */

{ /* ./Integrate/node.scm 304 */
obj_t BgL_bucketz00_2231;
{ /* ./Integrate/node.scm 304 */
int BgL_kz00_2241;
BgL_kz00_2241 = 
(int)(BgL_modz00_2227); 
BgL_bucketz00_2231 = 
VECTOR_REF(BgL_arg2017z00_2222,BgL_kz00_2241); } 
{ /* ./Integrate/node.scm 304 */
int BgL_kz00_2243;
BgL_kz00_2243 = 
(int)(BgL_restz00_2229); 
BgL_method2969z00_2219 = 
VECTOR_REF(BgL_bucketz00_2231,BgL_kz00_2243); } } } } } } } } } } 
{ /* ./Integrate/node.scm 304 */
obj_t BgL_auxz00_3612;
BgL_auxz00_3612 = 
PROCEDURE_ENTRY(BgL_method2969z00_2219)(BgL_method2969z00_2219, 
(obj_t)(BgL_arg3932z00_1510), 
(obj_t)(BgL_integratorz00_2218), BEOA); 
BgL_res4184z00_2244 = 
(BgL_nodez00_bglt)(BgL_auxz00_3612); } } } 
BgL_arg3929z00_1509 = BgL_res4184z00_2244; } } 
{ /* ./Integrate/node.scm 304 */
BgL_failz00_bglt BgL_obj2375z00_2245;BgL_nodez00_bglt BgL_val2374z00_2246;
BgL_obj2375z00_2245 = BgL_nodez00_1502; 
BgL_val2374z00_2246 = BgL_arg3929z00_1509; 
((((BgL_failz00_bglt)CREF(BgL_obj2375z00_2245))->BgL_msgz00) = ((BgL_nodez00_bglt)BgL_val2374z00_2246), BUNSPEC); } } 
{ /* ./Integrate/node.scm 305 */
BgL_nodez00_bglt BgL_arg3937z00_1511;
{ /* ./Integrate/node.scm 305 */
BgL_nodez00_bglt BgL_arg3940z00_1512;
BgL_arg3940z00_1512 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1502))->BgL_objz00); 
{ /* ./Integrate/node.scm 305 */
BgL_nodez00_bglt BgL_res4187z00_2275;
{ /* ./Integrate/node.scm 305 */
BgL_variablez00_bglt BgL_integratorz00_2249;
BgL_integratorz00_2249 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1503); 
{ /* ./Integrate/node.scm 305 */
obj_t BgL_method2969z00_2250;
{ /* ./Integrate/node.scm 305 */
BgL_objectz00_bglt BgL_objz00_2251;
BgL_objz00_2251 = 
(BgL_objectz00_bglt)(BgL_arg3940z00_1512); 
{ /* ./Integrate/node.scm 305 */
long BgL_objzd2classzd2numz00_2252;
BgL_objzd2classzd2numz00_2252 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2251); 
{ /* ./Integrate/node.scm 305 */
obj_t BgL_arg2017z00_2253;
{ /* ./Integrate/node.scm 305 */
int BgL_auxz00_3623;
BgL_auxz00_3623 = 
(int)(((long)1)); 
BgL_arg2017z00_2253 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3623); } 
{ /* ./Integrate/node.scm 305 */
int BgL_offsetz00_2256;
BgL_offsetz00_2256 = 
(int)(BgL_objzd2classzd2numz00_2252); 
{ /* ./Integrate/node.scm 305 */
long BgL_offsetz00_2257;
{ /* ./Integrate/node.scm 305 */
long BgL_auxz00_3627;
BgL_auxz00_3627 = 
(long)(BgL_offsetz00_2256); 
BgL_offsetz00_2257 = 
(BgL_auxz00_3627-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 305 */
long BgL_modz00_2258;
{ /* ./Integrate/node.scm 305 */
int BgL_arg2028z00_2259;
BgL_arg2028z00_2259 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 305 */
long BgL_n2z00_2267;
BgL_n2z00_2267 = 
(long)(BgL_arg2028z00_2259); 
BgL_modz00_2258 = 
(BgL_offsetz00_2257/BgL_n2z00_2267); } } 
{ /* ./Integrate/node.scm 305 */
long BgL_restz00_2260;
{ /* ./Integrate/node.scm 305 */
int BgL_arg2024z00_2261;
BgL_arg2024z00_2261 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 305 */
long BgL_n2z00_2270;
BgL_n2z00_2270 = 
(long)(BgL_arg2024z00_2261); 
BgL_restz00_2260 = 
(BgL_offsetz00_2257%BgL_n2z00_2270); } } 
{ /* ./Integrate/node.scm 305 */

{ /* ./Integrate/node.scm 305 */
obj_t BgL_bucketz00_2262;
{ /* ./Integrate/node.scm 305 */
int BgL_kz00_2272;
BgL_kz00_2272 = 
(int)(BgL_modz00_2258); 
BgL_bucketz00_2262 = 
VECTOR_REF(BgL_arg2017z00_2253,BgL_kz00_2272); } 
{ /* ./Integrate/node.scm 305 */
int BgL_kz00_2274;
BgL_kz00_2274 = 
(int)(BgL_restz00_2260); 
BgL_method2969z00_2250 = 
VECTOR_REF(BgL_bucketz00_2262,BgL_kz00_2274); } } } } } } } } } } 
{ /* ./Integrate/node.scm 305 */
obj_t BgL_auxz00_3640;
BgL_auxz00_3640 = 
PROCEDURE_ENTRY(BgL_method2969z00_2250)(BgL_method2969z00_2250, 
(obj_t)(BgL_arg3940z00_1512), 
(obj_t)(BgL_integratorz00_2249), BEOA); 
BgL_res4187z00_2275 = 
(BgL_nodez00_bglt)(BgL_auxz00_3640); } } } 
BgL_arg3937z00_1511 = BgL_res4187z00_2275; } } 
{ /* ./Integrate/node.scm 305 */
BgL_failz00_bglt BgL_obj2378z00_2276;BgL_nodez00_bglt BgL_val2377z00_2277;
BgL_obj2378z00_2276 = BgL_nodez00_1502; 
BgL_val2377z00_2277 = BgL_arg3937z00_1511; 
((((BgL_failz00_bglt)CREF(BgL_obj2378z00_2276))->BgL_objz00) = ((BgL_nodez00_bglt)BgL_val2377z00_2277), BUNSPEC); } } 
BgL_auxz00_3562 = BgL_nodez00_1502; 
return 
(obj_t)(BgL_auxz00_3562);} } } 
}



/* glo!-conditional2995 */
obj_t BGl_gloz12zd2conditional2995zc0zzintegrate_nodez00(obj_t BgL_envz00_2762, obj_t BgL_nodez00_2763, obj_t BgL_integratorz00_2764)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 291 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1489;obj_t BgL_integratorz00_1490;
{ /* ./Integrate/node.scm 292 */
BgL_conditionalz00_bglt BgL_auxz00_3649;
BgL_nodez00_1489 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2763); 
BgL_integratorz00_1490 = BgL_integratorz00_2764; 
{ /* ./Integrate/node.scm 293 */
BgL_nodez00_bglt BgL_arg3895z00_1494;
{ /* ./Integrate/node.scm 293 */
BgL_nodez00_bglt BgL_arg3898z00_1495;
BgL_arg3898z00_1495 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1489))->BgL_testz00); 
{ /* ./Integrate/node.scm 293 */
BgL_nodez00_bglt BgL_res4172z00_2120;
{ /* ./Integrate/node.scm 293 */
BgL_variablez00_bglt BgL_integratorz00_2094;
BgL_integratorz00_2094 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1490); 
{ /* ./Integrate/node.scm 293 */
obj_t BgL_method2969z00_2095;
{ /* ./Integrate/node.scm 293 */
BgL_objectz00_bglt BgL_objz00_2096;
BgL_objz00_2096 = 
(BgL_objectz00_bglt)(BgL_arg3898z00_1495); 
{ /* ./Integrate/node.scm 293 */
long BgL_objzd2classzd2numz00_2097;
BgL_objzd2classzd2numz00_2097 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2096); 
{ /* ./Integrate/node.scm 293 */
obj_t BgL_arg2017z00_2098;
{ /* ./Integrate/node.scm 293 */
int BgL_auxz00_3654;
BgL_auxz00_3654 = 
(int)(((long)1)); 
BgL_arg2017z00_2098 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3654); } 
{ /* ./Integrate/node.scm 293 */
int BgL_offsetz00_2101;
BgL_offsetz00_2101 = 
(int)(BgL_objzd2classzd2numz00_2097); 
{ /* ./Integrate/node.scm 293 */
long BgL_offsetz00_2102;
{ /* ./Integrate/node.scm 293 */
long BgL_auxz00_3658;
BgL_auxz00_3658 = 
(long)(BgL_offsetz00_2101); 
BgL_offsetz00_2102 = 
(BgL_auxz00_3658-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 293 */
long BgL_modz00_2103;
{ /* ./Integrate/node.scm 293 */
int BgL_arg2028z00_2104;
BgL_arg2028z00_2104 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 293 */
long BgL_n2z00_2112;
BgL_n2z00_2112 = 
(long)(BgL_arg2028z00_2104); 
BgL_modz00_2103 = 
(BgL_offsetz00_2102/BgL_n2z00_2112); } } 
{ /* ./Integrate/node.scm 293 */
long BgL_restz00_2105;
{ /* ./Integrate/node.scm 293 */
int BgL_arg2024z00_2106;
BgL_arg2024z00_2106 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 293 */
long BgL_n2z00_2115;
BgL_n2z00_2115 = 
(long)(BgL_arg2024z00_2106); 
BgL_restz00_2105 = 
(BgL_offsetz00_2102%BgL_n2z00_2115); } } 
{ /* ./Integrate/node.scm 293 */

{ /* ./Integrate/node.scm 293 */
obj_t BgL_bucketz00_2107;
{ /* ./Integrate/node.scm 293 */
int BgL_kz00_2117;
BgL_kz00_2117 = 
(int)(BgL_modz00_2103); 
BgL_bucketz00_2107 = 
VECTOR_REF(BgL_arg2017z00_2098,BgL_kz00_2117); } 
{ /* ./Integrate/node.scm 293 */
int BgL_kz00_2119;
BgL_kz00_2119 = 
(int)(BgL_restz00_2105); 
BgL_method2969z00_2095 = 
VECTOR_REF(BgL_bucketz00_2107,BgL_kz00_2119); } } } } } } } } } } 
{ /* ./Integrate/node.scm 293 */
obj_t BgL_auxz00_3671;
BgL_auxz00_3671 = 
PROCEDURE_ENTRY(BgL_method2969z00_2095)(BgL_method2969z00_2095, 
(obj_t)(BgL_arg3898z00_1495), 
(obj_t)(BgL_integratorz00_2094), BEOA); 
BgL_res4172z00_2120 = 
(BgL_nodez00_bglt)(BgL_auxz00_3671); } } } 
BgL_arg3895z00_1494 = BgL_res4172z00_2120; } } 
{ /* ./Integrate/node.scm 293 */
BgL_conditionalz00_bglt BgL_obj2334z00_2121;BgL_nodez00_bglt BgL_val2333z00_2122;
BgL_obj2334z00_2121 = BgL_nodez00_1489; 
BgL_val2333z00_2122 = BgL_arg3895z00_1494; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2334z00_2121))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2333z00_2122), BUNSPEC); } } 
{ /* ./Integrate/node.scm 294 */
BgL_nodez00_bglt BgL_arg3902z00_1496;
{ /* ./Integrate/node.scm 294 */
BgL_nodez00_bglt BgL_arg3905z00_1497;
BgL_arg3905z00_1497 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1489))->BgL_truez00); 
{ /* ./Integrate/node.scm 294 */
BgL_nodez00_bglt BgL_res4175z00_2151;
{ /* ./Integrate/node.scm 294 */
BgL_variablez00_bglt BgL_integratorz00_2125;
BgL_integratorz00_2125 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1490); 
{ /* ./Integrate/node.scm 294 */
obj_t BgL_method2969z00_2126;
{ /* ./Integrate/node.scm 294 */
BgL_objectz00_bglt BgL_objz00_2127;
BgL_objz00_2127 = 
(BgL_objectz00_bglt)(BgL_arg3905z00_1497); 
{ /* ./Integrate/node.scm 294 */
long BgL_objzd2classzd2numz00_2128;
BgL_objzd2classzd2numz00_2128 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2127); 
{ /* ./Integrate/node.scm 294 */
obj_t BgL_arg2017z00_2129;
{ /* ./Integrate/node.scm 294 */
int BgL_auxz00_3682;
BgL_auxz00_3682 = 
(int)(((long)1)); 
BgL_arg2017z00_2129 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3682); } 
{ /* ./Integrate/node.scm 294 */
int BgL_offsetz00_2132;
BgL_offsetz00_2132 = 
(int)(BgL_objzd2classzd2numz00_2128); 
{ /* ./Integrate/node.scm 294 */
long BgL_offsetz00_2133;
{ /* ./Integrate/node.scm 294 */
long BgL_auxz00_3686;
BgL_auxz00_3686 = 
(long)(BgL_offsetz00_2132); 
BgL_offsetz00_2133 = 
(BgL_auxz00_3686-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 294 */
long BgL_modz00_2134;
{ /* ./Integrate/node.scm 294 */
int BgL_arg2028z00_2135;
BgL_arg2028z00_2135 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 294 */
long BgL_n2z00_2143;
BgL_n2z00_2143 = 
(long)(BgL_arg2028z00_2135); 
BgL_modz00_2134 = 
(BgL_offsetz00_2133/BgL_n2z00_2143); } } 
{ /* ./Integrate/node.scm 294 */
long BgL_restz00_2136;
{ /* ./Integrate/node.scm 294 */
int BgL_arg2024z00_2137;
BgL_arg2024z00_2137 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 294 */
long BgL_n2z00_2146;
BgL_n2z00_2146 = 
(long)(BgL_arg2024z00_2137); 
BgL_restz00_2136 = 
(BgL_offsetz00_2133%BgL_n2z00_2146); } } 
{ /* ./Integrate/node.scm 294 */

{ /* ./Integrate/node.scm 294 */
obj_t BgL_bucketz00_2138;
{ /* ./Integrate/node.scm 294 */
int BgL_kz00_2148;
BgL_kz00_2148 = 
(int)(BgL_modz00_2134); 
BgL_bucketz00_2138 = 
VECTOR_REF(BgL_arg2017z00_2129,BgL_kz00_2148); } 
{ /* ./Integrate/node.scm 294 */
int BgL_kz00_2150;
BgL_kz00_2150 = 
(int)(BgL_restz00_2136); 
BgL_method2969z00_2126 = 
VECTOR_REF(BgL_bucketz00_2138,BgL_kz00_2150); } } } } } } } } } } 
{ /* ./Integrate/node.scm 294 */
obj_t BgL_auxz00_3699;
BgL_auxz00_3699 = 
PROCEDURE_ENTRY(BgL_method2969z00_2126)(BgL_method2969z00_2126, 
(obj_t)(BgL_arg3905z00_1497), 
(obj_t)(BgL_integratorz00_2125), BEOA); 
BgL_res4175z00_2151 = 
(BgL_nodez00_bglt)(BgL_auxz00_3699); } } } 
BgL_arg3902z00_1496 = BgL_res4175z00_2151; } } 
{ /* ./Integrate/node.scm 294 */
BgL_conditionalz00_bglt BgL_obj2337z00_2152;BgL_nodez00_bglt BgL_val2336z00_2153;
BgL_obj2337z00_2152 = BgL_nodez00_1489; 
BgL_val2336z00_2153 = BgL_arg3902z00_1496; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2337z00_2152))->BgL_truez00) = ((BgL_nodez00_bglt)BgL_val2336z00_2153), BUNSPEC); } } 
{ /* ./Integrate/node.scm 295 */
BgL_nodez00_bglt BgL_arg3909z00_1498;
{ /* ./Integrate/node.scm 295 */
BgL_nodez00_bglt BgL_arg3912z00_1499;
BgL_arg3912z00_1499 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1489))->BgL_falsez00); 
{ /* ./Integrate/node.scm 295 */
BgL_nodez00_bglt BgL_res4178z00_2182;
{ /* ./Integrate/node.scm 295 */
BgL_variablez00_bglt BgL_integratorz00_2156;
BgL_integratorz00_2156 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1490); 
{ /* ./Integrate/node.scm 295 */
obj_t BgL_method2969z00_2157;
{ /* ./Integrate/node.scm 295 */
BgL_objectz00_bglt BgL_objz00_2158;
BgL_objz00_2158 = 
(BgL_objectz00_bglt)(BgL_arg3912z00_1499); 
{ /* ./Integrate/node.scm 295 */
long BgL_objzd2classzd2numz00_2159;
BgL_objzd2classzd2numz00_2159 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2158); 
{ /* ./Integrate/node.scm 295 */
obj_t BgL_arg2017z00_2160;
{ /* ./Integrate/node.scm 295 */
int BgL_auxz00_3710;
BgL_auxz00_3710 = 
(int)(((long)1)); 
BgL_arg2017z00_2160 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3710); } 
{ /* ./Integrate/node.scm 295 */
int BgL_offsetz00_2163;
BgL_offsetz00_2163 = 
(int)(BgL_objzd2classzd2numz00_2159); 
{ /* ./Integrate/node.scm 295 */
long BgL_offsetz00_2164;
{ /* ./Integrate/node.scm 295 */
long BgL_auxz00_3714;
BgL_auxz00_3714 = 
(long)(BgL_offsetz00_2163); 
BgL_offsetz00_2164 = 
(BgL_auxz00_3714-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 295 */
long BgL_modz00_2165;
{ /* ./Integrate/node.scm 295 */
int BgL_arg2028z00_2166;
BgL_arg2028z00_2166 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 295 */
long BgL_n2z00_2174;
BgL_n2z00_2174 = 
(long)(BgL_arg2028z00_2166); 
BgL_modz00_2165 = 
(BgL_offsetz00_2164/BgL_n2z00_2174); } } 
{ /* ./Integrate/node.scm 295 */
long BgL_restz00_2167;
{ /* ./Integrate/node.scm 295 */
int BgL_arg2024z00_2168;
BgL_arg2024z00_2168 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 295 */
long BgL_n2z00_2177;
BgL_n2z00_2177 = 
(long)(BgL_arg2024z00_2168); 
BgL_restz00_2167 = 
(BgL_offsetz00_2164%BgL_n2z00_2177); } } 
{ /* ./Integrate/node.scm 295 */

{ /* ./Integrate/node.scm 295 */
obj_t BgL_bucketz00_2169;
{ /* ./Integrate/node.scm 295 */
int BgL_kz00_2179;
BgL_kz00_2179 = 
(int)(BgL_modz00_2165); 
BgL_bucketz00_2169 = 
VECTOR_REF(BgL_arg2017z00_2160,BgL_kz00_2179); } 
{ /* ./Integrate/node.scm 295 */
int BgL_kz00_2181;
BgL_kz00_2181 = 
(int)(BgL_restz00_2167); 
BgL_method2969z00_2157 = 
VECTOR_REF(BgL_bucketz00_2169,BgL_kz00_2181); } } } } } } } } } } 
{ /* ./Integrate/node.scm 295 */
obj_t BgL_auxz00_3727;
BgL_auxz00_3727 = 
PROCEDURE_ENTRY(BgL_method2969z00_2157)(BgL_method2969z00_2157, 
(obj_t)(BgL_arg3912z00_1499), 
(obj_t)(BgL_integratorz00_2156), BEOA); 
BgL_res4178z00_2182 = 
(BgL_nodez00_bglt)(BgL_auxz00_3727); } } } 
BgL_arg3909z00_1498 = BgL_res4178z00_2182; } } 
{ /* ./Integrate/node.scm 295 */
BgL_conditionalz00_bglt BgL_obj2340z00_2183;BgL_nodez00_bglt BgL_val2339z00_2184;
BgL_obj2340z00_2183 = BgL_nodez00_1489; 
BgL_val2339z00_2184 = BgL_arg3909z00_1498; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2340z00_2183))->BgL_falsez00) = ((BgL_nodez00_bglt)BgL_val2339z00_2184), BUNSPEC); } } 
BgL_auxz00_3649 = BgL_nodez00_1489; 
return 
(obj_t)(BgL_auxz00_3649);} } } 
}



/* glo!-setq2993 */
obj_t BGl_gloz12zd2setq2993zc0zzintegrate_nodez00(obj_t BgL_envz00_2765, obj_t BgL_nodez00_2766, obj_t BgL_integratorz00_2767)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 257 */
{ 
BgL_setqz00_bglt BgL_nodez00_1446;obj_t BgL_integratorz00_1447;
BgL_nodez00_1446 = 
(BgL_setqz00_bglt)(BgL_nodez00_2766); 
BgL_integratorz00_1447 = BgL_integratorz00_2767; 
{ /* ./Integrate/node.scm 259 */
BgL_nodez00_bglt BgL_arg3812z00_1451;
{ /* ./Integrate/node.scm 259 */
BgL_nodez00_bglt BgL_arg3815z00_1452;
BgL_arg3815z00_1452 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1446))->BgL_valuez00); 
{ /* ./Integrate/node.scm 259 */
BgL_nodez00_bglt BgL_res4168z00_2067;
{ /* ./Integrate/node.scm 259 */
BgL_variablez00_bglt BgL_integratorz00_2041;
BgL_integratorz00_2041 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1447); 
{ /* ./Integrate/node.scm 259 */
obj_t BgL_method2969z00_2042;
{ /* ./Integrate/node.scm 259 */
BgL_objectz00_bglt BgL_objz00_2043;
BgL_objz00_2043 = 
(BgL_objectz00_bglt)(BgL_arg3815z00_1452); 
{ /* ./Integrate/node.scm 259 */
long BgL_objzd2classzd2numz00_2044;
BgL_objzd2classzd2numz00_2044 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2043); 
{ /* ./Integrate/node.scm 259 */
obj_t BgL_arg2017z00_2045;
{ /* ./Integrate/node.scm 259 */
int BgL_auxz00_3740;
BgL_auxz00_3740 = 
(int)(((long)1)); 
BgL_arg2017z00_2045 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3740); } 
{ /* ./Integrate/node.scm 259 */
int BgL_offsetz00_2048;
BgL_offsetz00_2048 = 
(int)(BgL_objzd2classzd2numz00_2044); 
{ /* ./Integrate/node.scm 259 */
long BgL_offsetz00_2049;
{ /* ./Integrate/node.scm 259 */
long BgL_auxz00_3744;
BgL_auxz00_3744 = 
(long)(BgL_offsetz00_2048); 
BgL_offsetz00_2049 = 
(BgL_auxz00_3744-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 259 */
long BgL_modz00_2050;
{ /* ./Integrate/node.scm 259 */
int BgL_arg2028z00_2051;
BgL_arg2028z00_2051 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 259 */
long BgL_n2z00_2059;
BgL_n2z00_2059 = 
(long)(BgL_arg2028z00_2051); 
BgL_modz00_2050 = 
(BgL_offsetz00_2049/BgL_n2z00_2059); } } 
{ /* ./Integrate/node.scm 259 */
long BgL_restz00_2052;
{ /* ./Integrate/node.scm 259 */
int BgL_arg2024z00_2053;
BgL_arg2024z00_2053 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 259 */
long BgL_n2z00_2062;
BgL_n2z00_2062 = 
(long)(BgL_arg2024z00_2053); 
BgL_restz00_2052 = 
(BgL_offsetz00_2049%BgL_n2z00_2062); } } 
{ /* ./Integrate/node.scm 259 */

{ /* ./Integrate/node.scm 259 */
obj_t BgL_bucketz00_2054;
{ /* ./Integrate/node.scm 259 */
int BgL_kz00_2064;
BgL_kz00_2064 = 
(int)(BgL_modz00_2050); 
BgL_bucketz00_2054 = 
VECTOR_REF(BgL_arg2017z00_2045,BgL_kz00_2064); } 
{ /* ./Integrate/node.scm 259 */
int BgL_kz00_2066;
BgL_kz00_2066 = 
(int)(BgL_restz00_2052); 
BgL_method2969z00_2042 = 
VECTOR_REF(BgL_bucketz00_2054,BgL_kz00_2066); } } } } } } } } } } 
{ /* ./Integrate/node.scm 259 */
obj_t BgL_auxz00_3757;
BgL_auxz00_3757 = 
PROCEDURE_ENTRY(BgL_method2969z00_2042)(BgL_method2969z00_2042, 
(obj_t)(BgL_arg3815z00_1452), 
(obj_t)(BgL_integratorz00_2041), BEOA); 
BgL_res4168z00_2067 = 
(BgL_nodez00_bglt)(BgL_auxz00_3757); } } } 
BgL_arg3812z00_1451 = BgL_res4168z00_2067; } } 
{ /* ./Integrate/node.scm 259 */
BgL_setqz00_bglt BgL_obj2305z00_2068;BgL_nodez00_bglt BgL_val2304z00_2069;
BgL_obj2305z00_2068 = BgL_nodez00_1446; 
BgL_val2304z00_2069 = BgL_arg3812z00_1451; 
((((BgL_setqz00_bglt)CREF(BgL_obj2305z00_2068))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2304z00_2069), BUNSPEC); } } 
{ /* ./Integrate/node.scm 260 */
BgL_variablez00_bglt BgL_varz00_1453;
{ /* ./Integrate/node.scm 260 */
BgL_varz00_bglt BgL_arg3885z00_1486;
BgL_arg3885z00_1486 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1446))->BgL_varz00); 
BgL_varz00_1453 = 
(((BgL_varz00_bglt)CREF(BgL_arg3885z00_1486))->BgL_variablez00); } 
{ 
obj_t BgL_varz00_1454;obj_t BgL_alphaz00_1455;
{ /* ./Integrate/node.scm 262 */
obj_t BgL_arg3819z00_1457;
BgL_arg3819z00_1457 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_1453))->BgL_fastzd2alphazd2); 
BgL_varz00_1454 = 
(obj_t)(BgL_varz00_1453); 
BgL_alphaz00_1455 = BgL_arg3819z00_1457; 
BgL_loopz00_1456:
{ /* ./Integrate/node.scm 263 */
bool_t BgL_test3822z00_1458;
BgL_test3822z00_1458 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1455, BGl_localz00zzast_varz00); 
if(BgL_test3822z00_1458)
{ /* ./Integrate/node.scm 263 */
{ /* ./Integrate/node.scm 265 */
BgL_varz00_bglt BgL_arg3824z00_1459;
BgL_arg3824z00_1459 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1446))->BgL_varz00); 
{ /* ./Integrate/node.scm 265 */
BgL_varz00_bglt BgL_obj1627z00_2075;BgL_variablez00_bglt BgL_val1626z00_2076;
BgL_obj1627z00_2075 = BgL_arg3824z00_1459; 
BgL_val1626z00_2076 = 
(BgL_variablez00_bglt)(BgL_alphaz00_1455); 
((((BgL_varz00_bglt)CREF(BgL_obj1627z00_2075))->BgL_variablez00) = ((BgL_variablez00_bglt)BgL_val1626z00_2076), BUNSPEC); } } 
{ /* ./Integrate/node.scm 266 */
obj_t BgL_arg3828z00_1460;
{ /* ./Integrate/node.scm 266 */
BgL_variablez00_bglt BgL_obj1106z00_2077;
BgL_obj1106z00_2077 = 
(BgL_variablez00_bglt)(BgL_alphaz00_1455); 
BgL_arg3828z00_1460 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1106z00_2077))->BgL_fastzd2alphazd2); } 
{ 
obj_t BgL_alphaz00_3775;obj_t BgL_varz00_3774;
BgL_varz00_3774 = BgL_alphaz00_1455; 
BgL_alphaz00_3775 = BgL_arg3828z00_1460; 
BgL_alphaz00_1455 = BgL_alphaz00_3775; 
BgL_varz00_1454 = BgL_varz00_3774; 
goto BgL_loopz00_1456;} } }  else 
{ /* ./Integrate/node.scm 267 */
BgL_variablez00_bglt BgL_varz00_1461;
{ /* ./Integrate/node.scm 267 */
BgL_varz00_bglt BgL_arg3879z00_1485;
BgL_arg3879z00_1485 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1446))->BgL_varz00); 
BgL_varz00_1461 = 
(((BgL_varz00_bglt)CREF(BgL_arg3879z00_1485))->BgL_variablez00); } 
{ /* ./Integrate/node.scm 268 */
bool_t BgL_test3831z00_1462;
{ /* ./Integrate/node.scm 268 */
bool_t BgL_test3875z00_1484;
{ /* ./Integrate/node.scm 268 */
obj_t BgL_obj1300z00_2080;
BgL_obj1300z00_2080 = 
(obj_t)(BgL_varz00_1461); 
BgL_test3875z00_1484 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1300z00_2080, BGl_localz00zzast_varz00); } 
if(BgL_test3875z00_1484)
{ /* ./Integrate/node.scm 268 */
BgL_test3831z00_1462 = 
BGl_integratezd2celledzf3z21zzintegrate_nodez00(
(BgL_localz00_bglt)(BgL_varz00_1461)); }  else 
{ /* ./Integrate/node.scm 268 */
BgL_test3831z00_1462 = ((bool_t)0); } } 
if(BgL_test3831z00_1462)
{ /* ./Integrate/node.scm 269 */
BgL_localz00_bglt BgL_azd2varzd2_1463;obj_t BgL_locz00_1464;
BgL_azd2varzd2_1463 = 
BGl_makezd2localzd2svarz00zzast_localz00(
CNST_TABLE_REF(((long)3)), 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); 
{ /* ./Integrate/node.scm 270 */
BgL_nodez00_bglt BgL_obj1560z00_2081;
BgL_obj1560z00_2081 = 
(BgL_nodez00_bglt)(BgL_nodez00_1446); 
BgL_locz00_1464 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2081))->BgL_locz00); } 
{ /* ./Integrate/node.scm 271 */
BgL_variablez00_bglt BgL_obj1105z00_2082;obj_t BgL_val1104z00_2083;
BgL_obj1105z00_2082 = BgL_varz00_1461; 
BgL_val1104z00_2083 = 
CNST_TABLE_REF(((long)0)); 
((((BgL_variablez00_bglt)CREF(BgL_obj1105z00_2082))->BgL_accessz00) = ((obj_t)BgL_val1104z00_2083), BUNSPEC); } 
{ /* ./Integrate/node.scm 272 */
BgL_svarz00_bglt BgL_obj2934z00_1465;
{ 
BgL_svarz00_bglt BgL_auxz00_3791;
{ /* ./Integrate/node.scm 272 */
BgL_valuez00_bglt BgL_auxz00_3792;
{ /* ./Integrate/node.scm 272 */
BgL_variablez00_bglt BgL_obj1100z00_2809;
BgL_obj1100z00_2809 = 
(BgL_variablez00_bglt)(BgL_azd2varzd2_1463); 
BgL_auxz00_3792 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2809))->BgL_valuez00); } 
BgL_auxz00_3791 = 
(BgL_svarz00_bglt)(BgL_auxz00_3792); } 
BgL_obj2934z00_1465 = 
((BgL_svarz00_bglt)BgL_auxz00_3791); } 
{ /* ./Integrate/node.scm 273 */
obj_t BgL_arg3834z00_1466;
{ /* ./Integrate/node.scm 273 */
bool_t BgL_arg3837z00_1467;
BgL_arg3837z00_1467 = ((bool_t)0); 
BgL_arg3834z00_1466 = 
BGl_wideningzd2svarzf2Iinfoz20zzintegrate_infoz00(BUNSPEC, BUNSPEC, BgL_arg3837z00_1467, ((bool_t)0)); } 
{ /* ./Integrate/node.scm 272 */
BgL_objectz00_bglt BgL_auxz00_3798;
BgL_auxz00_3798 = 
(BgL_objectz00_bglt)(BgL_obj2934z00_1465); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3798, BgL_arg3834z00_1466); } } 
{ /* ./Integrate/node.scm 272 */
long BgL_arg3840z00_1468;
BgL_arg3840z00_1468 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Iinfozf2zzintegrate_infoz00); 
{ /* ./Integrate/node.scm 272 */
BgL_objectz00_bglt BgL_objz00_2085;
BgL_objz00_2085 = 
(BgL_objectz00_bglt)(BgL_obj2934z00_1465); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2085, BgL_arg3840z00_1468); } } 
{ /* ./Integrate/node.scm 272 */
obj_t BgL_objz00_2087;
BgL_objz00_2087 = 
(obj_t)(BgL_obj2934z00_1465); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2087); BUNSPEC; } BgL_obj2934z00_1465; } 
{ /* ./Integrate/node.scm 275 */
obj_t BgL_arg3846z00_1469;obj_t BgL_arg3847z00_1470;obj_t BgL_arg3849z00_1472;BgL_boxzd2setz12zc0_bglt BgL_arg3850z00_1473;
BgL_arg3846z00_1469 = BgL_locz00_1464; 
BgL_arg3847z00_1470 = BGl_za2_za2z00zztype_cachez00; 
{ /* ./Integrate/node.scm 277 */
obj_t BgL_arg3853z00_1474;
{ /* ./Integrate/node.scm 277 */
BgL_nodez00_bglt BgL_arg3858z00_1476;
BgL_arg3858z00_1476 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1446))->BgL_valuez00); 
{ /* ./Integrate/node.scm 277 */
obj_t BgL_auxz00_3809;obj_t BgL_auxz00_3807;
BgL_auxz00_3809 = 
(obj_t)(BgL_arg3858z00_1476); 
BgL_auxz00_3807 = 
(obj_t)(BgL_azd2varzd2_1463); 
BgL_arg3853z00_1474 = 
MAKE_PAIR(BgL_auxz00_3807, BgL_auxz00_3809); } } 
{ /* ./Integrate/node.scm 277 */
obj_t BgL_list3855z00_1475;
BgL_list3855z00_1475 = 
MAKE_PAIR(BgL_arg3853z00_1474, BNIL); 
BgL_arg3849z00_1472 = BgL_list3855z00_1475; } } 
{ /* ./Integrate/node.scm 279 */
obj_t BgL_arg3862z00_1477;obj_t BgL_arg3863z00_1478;BgL_varz00_bglt BgL_arg3864z00_1479;BgL_varz00_bglt BgL_arg3865z00_1480;
BgL_arg3862z00_1477 = BgL_locz00_1464; 
BgL_arg3863z00_1478 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3864z00_1479 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1446))->BgL_varz00); 
{ /* ./Integrate/node.scm 283 */
obj_t BgL_arg3869z00_1481;obj_t BgL_arg3870z00_1482;BgL_localz00_bglt BgL_arg3871z00_1483;
BgL_arg3869z00_1481 = BgL_locz00_1464; 
BgL_arg3870z00_1482 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3871z00_1483 = BgL_azd2varzd2_1463; 
BgL_arg3865z00_1480 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3869z00_1481, 
(BgL_typez00_bglt)(BgL_arg3870z00_1482), 
(BgL_variablez00_bglt)(BgL_arg3871z00_1483)); } 
BgL_arg3850z00_1473 = 
BGl_makezd2boxzd2setz12z12zzast_nodez00(BgL_arg3862z00_1477, 
(BgL_typez00_bglt)(BgL_arg3863z00_1478), BgL_arg3864z00_1479, 
(BgL_nodez00_bglt)(BgL_arg3865z00_1480)); } 
{ /* ./Integrate/node.scm 274 */
BgL_letzd2varzd2_bglt BgL_auxz00_3820;
BgL_auxz00_3820 = 
BGl_makezd2letzd2varz00zzast_nodez00(BgL_arg3846z00_1469, 
(BgL_typez00_bglt)(BgL_arg3847z00_1470), BUNSPEC, 
BINT(((long)-1)), BgL_arg3849z00_1472, 
(BgL_nodez00_bglt)(BgL_arg3850z00_1473), ((bool_t)1)); 
return 
(obj_t)(BgL_auxz00_3820);} } }  else 
{ /* ./Integrate/node.scm 268 */
return 
(obj_t)(BgL_nodez00_1446);} } } } } } } } } 
}



/* glo!-cast2991 */
obj_t BGl_gloz12zd2cast2991zc0zzintegrate_nodez00(obj_t BgL_envz00_2768, obj_t BgL_nodez00_2769, obj_t BgL_integratorz00_2770)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 249 */
{ 
BgL_castz00_bglt BgL_nodez00_1438;obj_t BgL_integratorz00_1439;
{ /* ./Integrate/node.scm 250 */
BgL_castz00_bglt BgL_auxz00_3829;
BgL_nodez00_1438 = 
(BgL_castz00_bglt)(BgL_nodez00_2769); 
BgL_integratorz00_1439 = BgL_integratorz00_2770; 
{ /* ./Integrate/node.scm 250 */
BgL_nodez00_bglt BgL_arg3802z00_2009;
BgL_arg3802z00_2009 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1438))->BgL_argz00); 
{ /* ./Integrate/node.scm 250 */
BgL_nodez00_bglt BgL_res4165z00_2038;
{ /* ./Integrate/node.scm 250 */
BgL_variablez00_bglt BgL_integratorz00_2012;
BgL_integratorz00_2012 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1439); 
{ /* ./Integrate/node.scm 250 */
obj_t BgL_method2969z00_2013;
{ /* ./Integrate/node.scm 250 */
BgL_objectz00_bglt BgL_objz00_2014;
BgL_objz00_2014 = 
(BgL_objectz00_bglt)(BgL_arg3802z00_2009); 
{ /* ./Integrate/node.scm 250 */
long BgL_objzd2classzd2numz00_2015;
BgL_objzd2classzd2numz00_2015 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2014); 
{ /* ./Integrate/node.scm 250 */
obj_t BgL_arg2017z00_2016;
{ /* ./Integrate/node.scm 250 */
int BgL_auxz00_3834;
BgL_auxz00_3834 = 
(int)(((long)1)); 
BgL_arg2017z00_2016 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3834); } 
{ /* ./Integrate/node.scm 250 */
int BgL_offsetz00_2019;
BgL_offsetz00_2019 = 
(int)(BgL_objzd2classzd2numz00_2015); 
{ /* ./Integrate/node.scm 250 */
long BgL_offsetz00_2020;
{ /* ./Integrate/node.scm 250 */
long BgL_auxz00_3838;
BgL_auxz00_3838 = 
(long)(BgL_offsetz00_2019); 
BgL_offsetz00_2020 = 
(BgL_auxz00_3838-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 250 */
long BgL_modz00_2021;
{ /* ./Integrate/node.scm 250 */
int BgL_arg2028z00_2022;
BgL_arg2028z00_2022 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 250 */
long BgL_n2z00_2030;
BgL_n2z00_2030 = 
(long)(BgL_arg2028z00_2022); 
BgL_modz00_2021 = 
(BgL_offsetz00_2020/BgL_n2z00_2030); } } 
{ /* ./Integrate/node.scm 250 */
long BgL_restz00_2023;
{ /* ./Integrate/node.scm 250 */
int BgL_arg2024z00_2024;
BgL_arg2024z00_2024 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 250 */
long BgL_n2z00_2033;
BgL_n2z00_2033 = 
(long)(BgL_arg2024z00_2024); 
BgL_restz00_2023 = 
(BgL_offsetz00_2020%BgL_n2z00_2033); } } 
{ /* ./Integrate/node.scm 250 */

{ /* ./Integrate/node.scm 250 */
obj_t BgL_bucketz00_2025;
{ /* ./Integrate/node.scm 250 */
int BgL_kz00_2035;
BgL_kz00_2035 = 
(int)(BgL_modz00_2021); 
BgL_bucketz00_2025 = 
VECTOR_REF(BgL_arg2017z00_2016,BgL_kz00_2035); } 
{ /* ./Integrate/node.scm 250 */
int BgL_kz00_2037;
BgL_kz00_2037 = 
(int)(BgL_restz00_2023); 
BgL_method2969z00_2013 = 
VECTOR_REF(BgL_bucketz00_2025,BgL_kz00_2037); } } } } } } } } } } 
{ /* ./Integrate/node.scm 250 */
obj_t BgL_auxz00_3851;
BgL_auxz00_3851 = 
PROCEDURE_ENTRY(BgL_method2969z00_2013)(BgL_method2969z00_2013, 
(obj_t)(BgL_arg3802z00_2009), 
(obj_t)(BgL_integratorz00_2012), BEOA); 
BgL_res4165z00_2038 = 
(BgL_nodez00_bglt)(BgL_auxz00_3851); } } } BgL_res4165z00_2038; } } 
BgL_auxz00_3829 = BgL_nodez00_1438; 
return 
(obj_t)(BgL_auxz00_3829);} } } 
}



/* glo!-extern2989 */
obj_t BGl_gloz12zd2extern2989zc0zzintegrate_nodez00(obj_t BgL_envz00_2771, obj_t BgL_nodez00_2772, obj_t BgL_integratorz00_2773)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 241 */
{ 
BgL_externz00_bglt BgL_nodez00_1430;obj_t BgL_integratorz00_1431;
{ /* ./Integrate/node.scm 242 */
BgL_externz00_bglt BgL_auxz00_3859;
BgL_nodez00_1430 = 
(BgL_externz00_bglt)(BgL_nodez00_2772); 
BgL_integratorz00_1431 = BgL_integratorz00_2773; 
{ /* ./Integrate/node.scm 242 */
obj_t BgL_arg3792z00_2006;
BgL_arg3792z00_2006 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1430))->BgL_exprza2za2); 
BGl_gloza2z12zb0zzintegrate_nodez00(BgL_arg3792z00_2006, BgL_integratorz00_1431); } 
BgL_auxz00_3859 = BgL_nodez00_1430; 
return 
(obj_t)(BgL_auxz00_3859);} } } 
}



/* glo!-funcall2987 */
obj_t BGl_gloz12zd2funcall2987zc0zzintegrate_nodez00(obj_t BgL_envz00_2774, obj_t BgL_nodez00_2775, obj_t BgL_integratorz00_2776)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 232 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1420;obj_t BgL_integratorz00_1421;
{ /* ./Integrate/node.scm 233 */
BgL_funcallz00_bglt BgL_auxz00_3864;
BgL_nodez00_1420 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2775); 
BgL_integratorz00_1421 = BgL_integratorz00_2776; 
{ /* ./Integrate/node.scm 234 */
BgL_nodez00_bglt BgL_arg3775z00_1425;
{ /* ./Integrate/node.scm 234 */
BgL_nodez00_bglt BgL_arg3778z00_1426;
BgL_arg3778z00_1426 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1420))->BgL_funz00); 
{ /* ./Integrate/node.scm 234 */
BgL_nodez00_bglt BgL_res4162z00_2001;
{ /* ./Integrate/node.scm 234 */
BgL_variablez00_bglt BgL_integratorz00_1975;
BgL_integratorz00_1975 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1421); 
{ /* ./Integrate/node.scm 234 */
obj_t BgL_method2969z00_1976;
{ /* ./Integrate/node.scm 234 */
BgL_objectz00_bglt BgL_objz00_1977;
BgL_objz00_1977 = 
(BgL_objectz00_bglt)(BgL_arg3778z00_1426); 
{ /* ./Integrate/node.scm 234 */
long BgL_objzd2classzd2numz00_1978;
BgL_objzd2classzd2numz00_1978 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1977); 
{ /* ./Integrate/node.scm 234 */
obj_t BgL_arg2017z00_1979;
{ /* ./Integrate/node.scm 234 */
int BgL_auxz00_3869;
BgL_auxz00_3869 = 
(int)(((long)1)); 
BgL_arg2017z00_1979 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3869); } 
{ /* ./Integrate/node.scm 234 */
int BgL_offsetz00_1982;
BgL_offsetz00_1982 = 
(int)(BgL_objzd2classzd2numz00_1978); 
{ /* ./Integrate/node.scm 234 */
long BgL_offsetz00_1983;
{ /* ./Integrate/node.scm 234 */
long BgL_auxz00_3873;
BgL_auxz00_3873 = 
(long)(BgL_offsetz00_1982); 
BgL_offsetz00_1983 = 
(BgL_auxz00_3873-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 234 */
long BgL_modz00_1984;
{ /* ./Integrate/node.scm 234 */
int BgL_arg2028z00_1985;
BgL_arg2028z00_1985 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 234 */
long BgL_n2z00_1993;
BgL_n2z00_1993 = 
(long)(BgL_arg2028z00_1985); 
BgL_modz00_1984 = 
(BgL_offsetz00_1983/BgL_n2z00_1993); } } 
{ /* ./Integrate/node.scm 234 */
long BgL_restz00_1986;
{ /* ./Integrate/node.scm 234 */
int BgL_arg2024z00_1987;
BgL_arg2024z00_1987 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 234 */
long BgL_n2z00_1996;
BgL_n2z00_1996 = 
(long)(BgL_arg2024z00_1987); 
BgL_restz00_1986 = 
(BgL_offsetz00_1983%BgL_n2z00_1996); } } 
{ /* ./Integrate/node.scm 234 */

{ /* ./Integrate/node.scm 234 */
obj_t BgL_bucketz00_1988;
{ /* ./Integrate/node.scm 234 */
int BgL_kz00_1998;
BgL_kz00_1998 = 
(int)(BgL_modz00_1984); 
BgL_bucketz00_1988 = 
VECTOR_REF(BgL_arg2017z00_1979,BgL_kz00_1998); } 
{ /* ./Integrate/node.scm 234 */
int BgL_kz00_2000;
BgL_kz00_2000 = 
(int)(BgL_restz00_1986); 
BgL_method2969z00_1976 = 
VECTOR_REF(BgL_bucketz00_1988,BgL_kz00_2000); } } } } } } } } } } 
{ /* ./Integrate/node.scm 234 */
obj_t BgL_auxz00_3886;
BgL_auxz00_3886 = 
PROCEDURE_ENTRY(BgL_method2969z00_1976)(BgL_method2969z00_1976, 
(obj_t)(BgL_arg3778z00_1426), 
(obj_t)(BgL_integratorz00_1975), BEOA); 
BgL_res4162z00_2001 = 
(BgL_nodez00_bglt)(BgL_auxz00_3886); } } } 
BgL_arg3775z00_1425 = BgL_res4162z00_2001; } } 
{ /* ./Integrate/node.scm 234 */
BgL_funcallz00_bglt BgL_obj1781z00_2002;BgL_nodez00_bglt BgL_val1780z00_2003;
BgL_obj1781z00_2002 = BgL_nodez00_1420; 
BgL_val1780z00_2003 = BgL_arg3775z00_1425; 
((((BgL_funcallz00_bglt)CREF(BgL_obj1781z00_2002))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1780z00_2003), BUNSPEC); } } 
{ /* ./Integrate/node.scm 235 */
obj_t BgL_arg3782z00_1427;
BgL_arg3782z00_1427 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1420))->BgL_argsz00); 
BGl_gloza2z12zb0zzintegrate_nodez00(BgL_arg3782z00_1427, BgL_integratorz00_1421); } 
BgL_auxz00_3864 = BgL_nodez00_1420; 
return 
(obj_t)(BgL_auxz00_3864);} } } 
}



/* glo!-app-ly2985 */
obj_t BGl_gloz12zd2appzd2ly2985z12zzintegrate_nodez00(obj_t BgL_envz00_2777, obj_t BgL_nodez00_2778, obj_t BgL_integratorz00_2779)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 223 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1409;obj_t BgL_integratorz00_1410;
{ /* ./Integrate/node.scm 224 */
BgL_appzd2lyzd2_bglt BgL_auxz00_3897;
BgL_nodez00_1409 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2778); 
BgL_integratorz00_1410 = BgL_integratorz00_2779; 
{ /* ./Integrate/node.scm 225 */
BgL_nodez00_bglt BgL_arg3755z00_1414;
{ /* ./Integrate/node.scm 225 */
BgL_nodez00_bglt BgL_arg3758z00_1415;
BgL_arg3758z00_1415 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1409))->BgL_funz00); 
{ /* ./Integrate/node.scm 225 */
BgL_nodez00_bglt BgL_res4156z00_1939;
{ /* ./Integrate/node.scm 225 */
BgL_variablez00_bglt BgL_integratorz00_1913;
BgL_integratorz00_1913 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1410); 
{ /* ./Integrate/node.scm 225 */
obj_t BgL_method2969z00_1914;
{ /* ./Integrate/node.scm 225 */
BgL_objectz00_bglt BgL_objz00_1915;
BgL_objz00_1915 = 
(BgL_objectz00_bglt)(BgL_arg3758z00_1415); 
{ /* ./Integrate/node.scm 225 */
long BgL_objzd2classzd2numz00_1916;
BgL_objzd2classzd2numz00_1916 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1915); 
{ /* ./Integrate/node.scm 225 */
obj_t BgL_arg2017z00_1917;
{ /* ./Integrate/node.scm 225 */
int BgL_auxz00_3902;
BgL_auxz00_3902 = 
(int)(((long)1)); 
BgL_arg2017z00_1917 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3902); } 
{ /* ./Integrate/node.scm 225 */
int BgL_offsetz00_1920;
BgL_offsetz00_1920 = 
(int)(BgL_objzd2classzd2numz00_1916); 
{ /* ./Integrate/node.scm 225 */
long BgL_offsetz00_1921;
{ /* ./Integrate/node.scm 225 */
long BgL_auxz00_3906;
BgL_auxz00_3906 = 
(long)(BgL_offsetz00_1920); 
BgL_offsetz00_1921 = 
(BgL_auxz00_3906-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 225 */
long BgL_modz00_1922;
{ /* ./Integrate/node.scm 225 */
int BgL_arg2028z00_1923;
BgL_arg2028z00_1923 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 225 */
long BgL_n2z00_1931;
BgL_n2z00_1931 = 
(long)(BgL_arg2028z00_1923); 
BgL_modz00_1922 = 
(BgL_offsetz00_1921/BgL_n2z00_1931); } } 
{ /* ./Integrate/node.scm 225 */
long BgL_restz00_1924;
{ /* ./Integrate/node.scm 225 */
int BgL_arg2024z00_1925;
BgL_arg2024z00_1925 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 225 */
long BgL_n2z00_1934;
BgL_n2z00_1934 = 
(long)(BgL_arg2024z00_1925); 
BgL_restz00_1924 = 
(BgL_offsetz00_1921%BgL_n2z00_1934); } } 
{ /* ./Integrate/node.scm 225 */

{ /* ./Integrate/node.scm 225 */
obj_t BgL_bucketz00_1926;
{ /* ./Integrate/node.scm 225 */
int BgL_kz00_1936;
BgL_kz00_1936 = 
(int)(BgL_modz00_1922); 
BgL_bucketz00_1926 = 
VECTOR_REF(BgL_arg2017z00_1917,BgL_kz00_1936); } 
{ /* ./Integrate/node.scm 225 */
int BgL_kz00_1938;
BgL_kz00_1938 = 
(int)(BgL_restz00_1924); 
BgL_method2969z00_1914 = 
VECTOR_REF(BgL_bucketz00_1926,BgL_kz00_1938); } } } } } } } } } } 
{ /* ./Integrate/node.scm 225 */
obj_t BgL_auxz00_3919;
BgL_auxz00_3919 = 
PROCEDURE_ENTRY(BgL_method2969z00_1914)(BgL_method2969z00_1914, 
(obj_t)(BgL_arg3758z00_1415), 
(obj_t)(BgL_integratorz00_1913), BEOA); 
BgL_res4156z00_1939 = 
(BgL_nodez00_bglt)(BgL_auxz00_3919); } } } 
BgL_arg3755z00_1414 = BgL_res4156z00_1939; } } 
{ /* ./Integrate/node.scm 225 */
BgL_appzd2lyzd2_bglt BgL_obj1753z00_1940;BgL_nodez00_bglt BgL_val1752z00_1941;
BgL_obj1753z00_1940 = BgL_nodez00_1409; 
BgL_val1752z00_1941 = BgL_arg3755z00_1414; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1753z00_1940))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1752z00_1941), BUNSPEC); } } 
{ /* ./Integrate/node.scm 226 */
BgL_nodez00_bglt BgL_arg3762z00_1416;
{ /* ./Integrate/node.scm 226 */
BgL_nodez00_bglt BgL_arg3765z00_1417;
BgL_arg3765z00_1417 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1409))->BgL_argz00); 
{ /* ./Integrate/node.scm 226 */
BgL_nodez00_bglt BgL_res4159z00_1970;
{ /* ./Integrate/node.scm 226 */
BgL_variablez00_bglt BgL_integratorz00_1944;
BgL_integratorz00_1944 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1410); 
{ /* ./Integrate/node.scm 226 */
obj_t BgL_method2969z00_1945;
{ /* ./Integrate/node.scm 226 */
BgL_objectz00_bglt BgL_objz00_1946;
BgL_objz00_1946 = 
(BgL_objectz00_bglt)(BgL_arg3765z00_1417); 
{ /* ./Integrate/node.scm 226 */
long BgL_objzd2classzd2numz00_1947;
BgL_objzd2classzd2numz00_1947 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1946); 
{ /* ./Integrate/node.scm 226 */
obj_t BgL_arg2017z00_1948;
{ /* ./Integrate/node.scm 226 */
int BgL_auxz00_3930;
BgL_auxz00_3930 = 
(int)(((long)1)); 
BgL_arg2017z00_1948 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3930); } 
{ /* ./Integrate/node.scm 226 */
int BgL_offsetz00_1951;
BgL_offsetz00_1951 = 
(int)(BgL_objzd2classzd2numz00_1947); 
{ /* ./Integrate/node.scm 226 */
long BgL_offsetz00_1952;
{ /* ./Integrate/node.scm 226 */
long BgL_auxz00_3934;
BgL_auxz00_3934 = 
(long)(BgL_offsetz00_1951); 
BgL_offsetz00_1952 = 
(BgL_auxz00_3934-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 226 */
long BgL_modz00_1953;
{ /* ./Integrate/node.scm 226 */
int BgL_arg2028z00_1954;
BgL_arg2028z00_1954 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 226 */
long BgL_n2z00_1962;
BgL_n2z00_1962 = 
(long)(BgL_arg2028z00_1954); 
BgL_modz00_1953 = 
(BgL_offsetz00_1952/BgL_n2z00_1962); } } 
{ /* ./Integrate/node.scm 226 */
long BgL_restz00_1955;
{ /* ./Integrate/node.scm 226 */
int BgL_arg2024z00_1956;
BgL_arg2024z00_1956 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 226 */
long BgL_n2z00_1965;
BgL_n2z00_1965 = 
(long)(BgL_arg2024z00_1956); 
BgL_restz00_1955 = 
(BgL_offsetz00_1952%BgL_n2z00_1965); } } 
{ /* ./Integrate/node.scm 226 */

{ /* ./Integrate/node.scm 226 */
obj_t BgL_bucketz00_1957;
{ /* ./Integrate/node.scm 226 */
int BgL_kz00_1967;
BgL_kz00_1967 = 
(int)(BgL_modz00_1953); 
BgL_bucketz00_1957 = 
VECTOR_REF(BgL_arg2017z00_1948,BgL_kz00_1967); } 
{ /* ./Integrate/node.scm 226 */
int BgL_kz00_1969;
BgL_kz00_1969 = 
(int)(BgL_restz00_1955); 
BgL_method2969z00_1945 = 
VECTOR_REF(BgL_bucketz00_1957,BgL_kz00_1969); } } } } } } } } } } 
{ /* ./Integrate/node.scm 226 */
obj_t BgL_auxz00_3947;
BgL_auxz00_3947 = 
PROCEDURE_ENTRY(BgL_method2969z00_1945)(BgL_method2969z00_1945, 
(obj_t)(BgL_arg3765z00_1417), 
(obj_t)(BgL_integratorz00_1944), BEOA); 
BgL_res4159z00_1970 = 
(BgL_nodez00_bglt)(BgL_auxz00_3947); } } } 
BgL_arg3762z00_1416 = BgL_res4159z00_1970; } } 
{ /* ./Integrate/node.scm 226 */
BgL_appzd2lyzd2_bglt BgL_obj1756z00_1971;BgL_nodez00_bglt BgL_val1755z00_1972;
BgL_obj1756z00_1971 = BgL_nodez00_1409; 
BgL_val1755z00_1972 = BgL_arg3762z00_1416; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1756z00_1971))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val1755z00_1972), BUNSPEC); } } 
BgL_auxz00_3897 = BgL_nodez00_1409; 
return 
(obj_t)(BgL_auxz00_3897);} } } 
}



/* glo!-app2982 */
obj_t BGl_gloz12zd2app2982zc0zzintegrate_nodez00(obj_t BgL_envz00_2780, obj_t BgL_nodez00_2781, obj_t BgL_integratorz00_2782)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 180 */
{ 
BgL_appz00_bglt BgL_nodez00_1366;obj_t BgL_integratorz00_1367;
{ /* ./Integrate/node.scm 181 */
BgL_appz00_bglt BgL_auxz00_3956;
BgL_nodez00_1366 = 
(BgL_appz00_bglt)(BgL_nodez00_2781); 
BgL_integratorz00_1367 = BgL_integratorz00_2782; 
{ /* ./Integrate/node.scm 182 */
BgL_variablez00_bglt BgL_funz00_1371;
{ /* ./Integrate/node.scm 182 */
BgL_varz00_bglt BgL_arg3745z00_1406;
BgL_arg3745z00_1406 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1366))->BgL_funz00); 
BgL_funz00_1371 = 
(((BgL_varz00_bglt)CREF(BgL_arg3745z00_1406))->BgL_variablez00); } 
{ /* ./Integrate/node.scm 182 */
BgL_valuez00_bglt BgL_infoz00_1372;
BgL_infoz00_1372 = 
(((BgL_variablez00_bglt)CREF(BgL_funz00_1371))->BgL_valuez00); 
{ /* ./Integrate/node.scm 183 */

{ /* ./Integrate/node.scm 185 */
bool_t BgL_test3674z00_1373;
{ /* ./Integrate/node.scm 185 */
bool_t BgL_test3690z00_1379;
{ /* ./Integrate/node.scm 185 */
obj_t BgL_obj1300z00_1859;
BgL_obj1300z00_1859 = 
(obj_t)(BgL_funz00_1371); 
BgL_test3690z00_1379 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1300z00_1859, BGl_localz00zzast_varz00); } 
if(BgL_test3690z00_1379)
{ /* ./Integrate/node.scm 185 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2839z00_1860;
BgL_obj2839z00_1860 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_infoz00_1372); 
{ 
obj_t BgL_auxz00_3964;
{ /* ./Integrate/node.scm 185 */
BgL_objectz00_bglt BgL_auxz00_3965;
BgL_auxz00_3965 = 
(BgL_objectz00_bglt)(BgL_obj2839z00_1860); 
BgL_auxz00_3964 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3965); } 
BgL_test3674z00_1373 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_3964))->BgL_gzf3zf3); } }  else 
{ /* ./Integrate/node.scm 185 */
BgL_test3674z00_1373 = ((bool_t)0); } } 
if(BgL_test3674z00_1373)
{ /* ./Integrate/node.scm 188 */
BgL_varz00_bglt BgL_arg3676z00_1374;
{ /* ./Integrate/node.scm 188 */
obj_t BgL_arg3679z00_1375;BgL_typez00_bglt BgL_arg3681z00_1376;obj_t BgL_arg3682z00_1377;
{ /* ./Integrate/node.scm 188 */
BgL_nodez00_bglt BgL_obj1560z00_1861;
BgL_obj1560z00_1861 = 
(BgL_nodez00_bglt)(BgL_nodez00_1366); 
BgL_arg3679z00_1375 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1861))->BgL_locz00); } 
{ /* ./Integrate/node.scm 189 */
obj_t BgL_arg3686z00_1378;
BgL_arg3686z00_1378 = 
BGl_thezd2globalzd2zzintegrate_localzd2ze3globalz31(
(BgL_localz00_bglt)(BgL_funz00_1371)); 
{ /* ./Integrate/node.scm 189 */
BgL_variablez00_bglt BgL_obj1097z00_1862;
BgL_obj1097z00_1862 = 
(BgL_variablez00_bglt)(BgL_arg3686z00_1378); 
BgL_arg3681z00_1376 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_1862))->BgL_typez00); } } 
BgL_arg3682z00_1377 = 
BGl_thezd2globalzd2zzintegrate_localzd2ze3globalz31(
(BgL_localz00_bglt)(BgL_funz00_1371)); 
BgL_arg3676z00_1374 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3679z00_1375, BgL_arg3681z00_1376, 
(BgL_variablez00_bglt)(BgL_arg3682z00_1377)); } 
{ /* ./Integrate/node.scm 186 */
BgL_appz00_bglt BgL_obj1721z00_1863;BgL_varz00_bglt BgL_val1720z00_1864;
BgL_obj1721z00_1863 = BgL_nodez00_1366; 
BgL_val1720z00_1864 = BgL_arg3676z00_1374; 
((((BgL_appz00_bglt)CREF(BgL_obj1721z00_1863))->BgL_funz00) = ((BgL_varz00_bglt)BgL_val1720z00_1864), BUNSPEC); } }  else 
{ /* ./Integrate/node.scm 185 */BFALSE; } } 
{ 
obj_t BgL_nodesz00_1380;
{ /* ./Integrate/node.scm 193 */
obj_t BgL_arg3694z00_1382;
BgL_arg3694z00_1382 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1366))->BgL_argsz00); 
BgL_nodesz00_1380 = BgL_arg3694z00_1382; 
BgL_liipz00_1381:
{ /* ./Integrate/node.scm 194 */
bool_t BgL_test3697z00_1383;
BgL_test3697z00_1383 = 
NULLP(BgL_nodesz00_1380); 
if(BgL_test3697z00_1383)
{ /* ./Integrate/node.scm 194 */
CNST_TABLE_REF(((long)2)); }  else 
{ /* ./Integrate/node.scm 194 */
{ /* ./Integrate/node.scm 197 */
BgL_nodez00_bglt BgL_arg3699z00_1384;
{ /* ./Integrate/node.scm 197 */
obj_t BgL_arg3702z00_1385;
BgL_arg3702z00_1385 = 
CAR(BgL_nodesz00_1380); 
{ /* ./Integrate/node.scm 197 */
BgL_nodez00_bglt BgL_res4153z00_1895;
{ /* ./Integrate/node.scm 197 */
BgL_nodez00_bglt BgL_nodez00_1868;BgL_variablez00_bglt BgL_integratorz00_1869;
BgL_nodez00_1868 = 
(BgL_nodez00_bglt)(BgL_arg3702z00_1385); 
BgL_integratorz00_1869 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1367); 
{ /* ./Integrate/node.scm 197 */
obj_t BgL_method2969z00_1870;
{ /* ./Integrate/node.scm 197 */
BgL_objectz00_bglt BgL_objz00_1871;
BgL_objz00_1871 = 
(BgL_objectz00_bglt)(BgL_nodez00_1868); 
{ /* ./Integrate/node.scm 197 */
long BgL_objzd2classzd2numz00_1872;
BgL_objzd2classzd2numz00_1872 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1871); 
{ /* ./Integrate/node.scm 197 */
obj_t BgL_arg2017z00_1873;
{ /* ./Integrate/node.scm 197 */
int BgL_auxz00_3990;
BgL_auxz00_3990 = 
(int)(((long)1)); 
BgL_arg2017z00_1873 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_3990); } 
{ /* ./Integrate/node.scm 197 */
int BgL_offsetz00_1876;
BgL_offsetz00_1876 = 
(int)(BgL_objzd2classzd2numz00_1872); 
{ /* ./Integrate/node.scm 197 */
long BgL_offsetz00_1877;
{ /* ./Integrate/node.scm 197 */
long BgL_auxz00_3994;
BgL_auxz00_3994 = 
(long)(BgL_offsetz00_1876); 
BgL_offsetz00_1877 = 
(BgL_auxz00_3994-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 197 */
long BgL_modz00_1878;
{ /* ./Integrate/node.scm 197 */
int BgL_arg2028z00_1879;
BgL_arg2028z00_1879 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 197 */
long BgL_n2z00_1887;
BgL_n2z00_1887 = 
(long)(BgL_arg2028z00_1879); 
BgL_modz00_1878 = 
(BgL_offsetz00_1877/BgL_n2z00_1887); } } 
{ /* ./Integrate/node.scm 197 */
long BgL_restz00_1880;
{ /* ./Integrate/node.scm 197 */
int BgL_arg2024z00_1881;
BgL_arg2024z00_1881 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 197 */
long BgL_n2z00_1890;
BgL_n2z00_1890 = 
(long)(BgL_arg2024z00_1881); 
BgL_restz00_1880 = 
(BgL_offsetz00_1877%BgL_n2z00_1890); } } 
{ /* ./Integrate/node.scm 197 */

{ /* ./Integrate/node.scm 197 */
obj_t BgL_bucketz00_1882;
{ /* ./Integrate/node.scm 197 */
int BgL_kz00_1892;
BgL_kz00_1892 = 
(int)(BgL_modz00_1878); 
BgL_bucketz00_1882 = 
VECTOR_REF(BgL_arg2017z00_1873,BgL_kz00_1892); } 
{ /* ./Integrate/node.scm 197 */
int BgL_kz00_1894;
BgL_kz00_1894 = 
(int)(BgL_restz00_1880); 
BgL_method2969z00_1870 = 
VECTOR_REF(BgL_bucketz00_1882,BgL_kz00_1894); } } } } } } } } } } 
{ /* ./Integrate/node.scm 197 */
obj_t BgL_auxz00_4007;
BgL_auxz00_4007 = 
PROCEDURE_ENTRY(BgL_method2969z00_1870)(BgL_method2969z00_1870, 
(obj_t)(BgL_nodez00_1868), 
(obj_t)(BgL_integratorz00_1869), BEOA); 
BgL_res4153z00_1895 = 
(BgL_nodez00_bglt)(BgL_auxz00_4007); } } } 
BgL_arg3699z00_1384 = BgL_res4153z00_1895; } } 
{ /* ./Integrate/node.scm 197 */
obj_t BgL_objz00_1897;
BgL_objz00_1897 = 
(obj_t)(BgL_arg3699z00_1384); 
SET_CAR(BgL_nodesz00_1380, BgL_objz00_1897); } } 
{ /* ./Integrate/node.scm 198 */
obj_t BgL_arg3706z00_1386;
BgL_arg3706z00_1386 = 
CDR(BgL_nodesz00_1380); 
{ 
obj_t BgL_nodesz00_4016;
BgL_nodesz00_4016 = BgL_arg3706z00_1386; 
BgL_nodesz00_1380 = BgL_nodesz00_4016; 
goto BgL_liipz00_1381;} } } } } } 
{ /* ./Integrate/node.scm 200 */
bool_t BgL_test3710z00_1387;
{ /* ./Integrate/node.scm 200 */
bool_t BgL_test3739z00_1404;
{ /* ./Integrate/node.scm 200 */
obj_t BgL_obj1240z00_1899;
BgL_obj1240z00_1899 = 
(obj_t)(BgL_funz00_1371); 
BgL_test3739z00_1404 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1899, BGl_globalz00zzast_varz00); } 
if(BgL_test3739z00_1404)
{ /* ./Integrate/node.scm 200 */
BgL_test3710z00_1387 = ((bool_t)1); }  else 
{ /* ./Integrate/node.scm 200 */
bool_t BgL_testz00_4020;
{ /* ./Integrate/node.scm 200 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2839z00_1900;
BgL_obj2839z00_1900 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_infoz00_1372); 
{ 
obj_t BgL_auxz00_4022;
{ /* ./Integrate/node.scm 200 */
BgL_objectz00_bglt BgL_auxz00_4023;
BgL_auxz00_4023 = 
(BgL_objectz00_bglt)(BgL_obj2839z00_1900); 
BgL_auxz00_4022 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4023); } 
BgL_testz00_4020 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_4022))->BgL_gzf3zf3); } } 
if(BgL_testz00_4020)
{ /* ./Integrate/node.scm 200 */
BgL_test3710z00_1387 = ((bool_t)0); }  else 
{ /* ./Integrate/node.scm 200 */
BgL_test3710z00_1387 = ((bool_t)1); } } } 
if(BgL_test3710z00_1387)
{ /* ./Integrate/node.scm 200 */
CNST_TABLE_REF(((long)2)); }  else 
{ /* ./Integrate/node.scm 200 */
{ 
obj_t BgL_newzd2actualszd2_1388;obj_t BgL_kapturedz00_1389;
{ /* ./Integrate/node.scm 205 */
obj_t BgL_arg3712z00_1391;obj_t BgL_arg3713z00_1392;
BgL_arg3712z00_1391 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1366))->BgL_argsz00); 
{ /* ./Integrate/node.scm 206 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2854z00_1902;
BgL_obj2854z00_1902 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_infoz00_1372); 
{ 
obj_t BgL_auxz00_4031;
{ /* ./Integrate/node.scm 206 */
BgL_objectz00_bglt BgL_auxz00_4032;
BgL_auxz00_4032 = 
(BgL_objectz00_bglt)(BgL_obj2854z00_1902); 
BgL_auxz00_4031 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4032); } 
BgL_arg3713z00_1392 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_4031))->BgL_kapturedz00); } } 
BgL_newzd2actualszd2_1388 = BgL_arg3712z00_1391; 
BgL_kapturedz00_1389 = BgL_arg3713z00_1392; 
BgL_loopz00_1390:
{ /* ./Integrate/node.scm 207 */
bool_t BgL_test3717z00_1393;
BgL_test3717z00_1393 = 
NULLP(BgL_kapturedz00_1389); 
if(BgL_test3717z00_1393)
{ /* ./Integrate/node.scm 208 */
BgL_appz00_bglt BgL_obj1724z00_1904;obj_t BgL_val1723z00_1905;
BgL_obj1724z00_1904 = BgL_nodez00_1366; 
BgL_val1723z00_1905 = BgL_newzd2actualszd2_1388; 
((((BgL_appz00_bglt)CREF(BgL_obj1724z00_1904))->BgL_argsz00) = ((obj_t)BgL_val1723z00_1905), BUNSPEC); }  else 
{ /* ./Integrate/node.scm 209 */
obj_t BgL_kapz00_1394;
BgL_kapz00_1394 = 
CAR(BgL_kapturedz00_1389); 
{ /* ./Integrate/node.scm 209 */
obj_t BgL_alphaz00_1395;
{ /* ./Integrate/node.scm 210 */
BgL_variablez00_bglt BgL_obj1106z00_1907;
BgL_obj1106z00_1907 = 
(BgL_variablez00_bglt)(BgL_kapz00_1394); 
BgL_alphaz00_1395 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1106z00_1907))->BgL_fastzd2alphazd2); } 
{ /* ./Integrate/node.scm 210 */
obj_t BgL_varz00_1396;
{ /* ./Integrate/node.scm 211 */
bool_t BgL_test3734z00_1403;
BgL_test3734z00_1403 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1395, BGl_localz00zzast_varz00); 
if(BgL_test3734z00_1403)
{ /* ./Integrate/node.scm 211 */
BgL_varz00_1396 = BgL_alphaz00_1395; }  else 
{ /* ./Integrate/node.scm 211 */
BgL_varz00_1396 = BgL_kapz00_1394; } } 
{ /* ./Integrate/node.scm 211 */

{ /* ./Integrate/node.scm 213 */
obj_t BgL_arg3720z00_1397;obj_t BgL_arg3721z00_1398;
{ /* ./Integrate/node.scm 213 */
BgL_varz00_bglt BgL_arg3724z00_1399;
{ /* ./Integrate/node.scm 213 */
obj_t BgL_arg3728z00_1400;obj_t BgL_arg3729z00_1401;obj_t BgL_arg3730z00_1402;
{ /* ./Integrate/node.scm 213 */
BgL_nodez00_bglt BgL_obj1560z00_1909;
BgL_obj1560z00_1909 = 
(BgL_nodez00_bglt)(BgL_nodez00_1366); 
BgL_arg3728z00_1400 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1909))->BgL_locz00); } 
BgL_arg3729z00_1401 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3730z00_1402 = BgL_varz00_1396; 
BgL_arg3724z00_1399 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3728z00_1400, 
(BgL_typez00_bglt)(BgL_arg3729z00_1401), 
(BgL_variablez00_bglt)(BgL_arg3730z00_1402)); } 
{ /* ./Integrate/node.scm 212 */
obj_t BgL_auxz00_4049;
BgL_auxz00_4049 = 
(obj_t)(BgL_arg3724z00_1399); 
BgL_arg3720z00_1397 = 
MAKE_PAIR(BgL_auxz00_4049, BgL_newzd2actualszd2_1388); } } 
BgL_arg3721z00_1398 = 
CDR(BgL_kapturedz00_1389); 
{ 
obj_t BgL_kapturedz00_4054;obj_t BgL_newzd2actualszd2_4053;
BgL_newzd2actualszd2_4053 = BgL_arg3720z00_1397; 
BgL_kapturedz00_4054 = BgL_arg3721z00_1398; 
BgL_kapturedz00_1389 = BgL_kapturedz00_4054; 
BgL_newzd2actualszd2_1388 = BgL_newzd2actualszd2_4053; 
goto BgL_loopz00_1390;} } } } } } } } } } } 
BgL_auxz00_3956 = BgL_nodez00_1366; } } } 
return 
(obj_t)(BgL_auxz00_3956);} } } 
}



/* glo!-sequence2979 */
obj_t BGl_gloz12zd2sequence2979zc0zzintegrate_nodez00(obj_t BgL_envz00_2783, obj_t BgL_nodez00_2784, obj_t BgL_integratorz00_2785)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 172 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1358;obj_t BgL_integratorz00_1359;
{ /* ./Integrate/node.scm 173 */
BgL_sequencez00_bglt BgL_auxz00_4057;
BgL_nodez00_1358 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2784); 
BgL_integratorz00_1359 = BgL_integratorz00_2785; 
{ /* ./Integrate/node.scm 173 */
obj_t BgL_arg3665z00_1854;
BgL_arg3665z00_1854 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1358))->BgL_nodesz00); 
BGl_gloza2z12zb0zzintegrate_nodez00(BgL_arg3665z00_1854, BgL_integratorz00_1359); } 
BgL_auxz00_4057 = BgL_nodez00_1358; 
return 
(obj_t)(BgL_auxz00_4057);} } } 
}



/* glo!-closure2977 */
obj_t BGl_gloz12zd2closure2977zc0zzintegrate_nodez00(obj_t BgL_envz00_2786, obj_t BgL_nodez00_2787, obj_t BgL_integratorz00_2788)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 166 */
{ 
BgL_closurez00_bglt BgL_nodez00_1349;obj_t BgL_integratorz00_1350;
BgL_nodez00_1349 = 
(BgL_closurez00_bglt)(BgL_nodez00_2787); 
BgL_integratorz00_1350 = BgL_integratorz00_2788; 
{ /* ./Integrate/node.scm 167 */
obj_t BgL_arg3655z00_1852;
BgL_arg3655z00_1852 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1349)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string4887z00zzintegrate_nodez00, BGl_string4888z00zzintegrate_nodez00, BgL_arg3655z00_1852);} } } 
}



/* glo!-var2975 */
obj_t BGl_gloz12zd2var2975zc0zzintegrate_nodez00(obj_t BgL_envz00_2789, obj_t BgL_nodez00_2790, obj_t BgL_integratorz00_2791)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 145 */
{ 
BgL_varz00_bglt BgL_nodez00_1334;obj_t BgL_integratorz00_1335;
BgL_nodez00_1334 = 
(BgL_varz00_bglt)(BgL_nodez00_2790); 
BgL_integratorz00_1335 = BgL_integratorz00_2791; 
{ /* ./Integrate/node.scm 146 */
BgL_variablez00_bglt BgL_varz00_1338;
BgL_varz00_1338 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1334))->BgL_variablez00); 
{ /* ./Integrate/node.scm 146 */
obj_t BgL_alphaz00_1339;
BgL_alphaz00_1339 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_1338))->BgL_fastzd2alphazd2); 
{ /* ./Integrate/node.scm 147 */

{ /* ./Integrate/node.scm 149 */
bool_t BgL_test3627z00_1340;
BgL_test3627z00_1340 = 
BGl_iszd2azf3z21zz__objectz00(BgL_alphaz00_1339, BGl_localz00zzast_varz00); 
if(BgL_test3627z00_1340)
{ /* ./Integrate/node.scm 149 */
{ /* ./Integrate/node.scm 150 */
BgL_varz00_bglt BgL_obj1627z00_1815;BgL_variablez00_bglt BgL_val1626z00_1816;
BgL_obj1627z00_1815 = BgL_nodez00_1334; 
BgL_val1626z00_1816 = 
(BgL_variablez00_bglt)(BgL_alphaz00_1339); 
((((BgL_varz00_bglt)CREF(BgL_obj1627z00_1815))->BgL_variablez00) = ((BgL_variablez00_bglt)BgL_val1626z00_1816), BUNSPEC); } 
{ /* ./Integrate/node.scm 151 */
BgL_nodez00_bglt BgL_res4150z00_1844;
{ /* ./Integrate/node.scm 151 */
BgL_nodez00_bglt BgL_nodez00_1817;BgL_variablez00_bglt BgL_integratorz00_1818;
BgL_nodez00_1817 = 
(BgL_nodez00_bglt)(BgL_nodez00_1334); 
BgL_integratorz00_1818 = 
(BgL_variablez00_bglt)(BgL_integratorz00_1335); 
{ /* ./Integrate/node.scm 151 */
obj_t BgL_method2969z00_1819;
{ /* ./Integrate/node.scm 151 */
BgL_objectz00_bglt BgL_objz00_1820;
BgL_objz00_1820 = 
(BgL_objectz00_bglt)(BgL_nodez00_1817); 
{ /* ./Integrate/node.scm 151 */
long BgL_objzd2classzd2numz00_1821;
BgL_objzd2classzd2numz00_1821 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1820); 
{ /* ./Integrate/node.scm 151 */
obj_t BgL_arg2017z00_1822;
{ /* ./Integrate/node.scm 151 */
int BgL_auxz00_4076;
BgL_auxz00_4076 = 
(int)(((long)1)); 
BgL_arg2017z00_1822 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_4076); } 
{ /* ./Integrate/node.scm 151 */
int BgL_offsetz00_1825;
BgL_offsetz00_1825 = 
(int)(BgL_objzd2classzd2numz00_1821); 
{ /* ./Integrate/node.scm 151 */
long BgL_offsetz00_1826;
{ /* ./Integrate/node.scm 151 */
long BgL_auxz00_4080;
BgL_auxz00_4080 = 
(long)(BgL_offsetz00_1825); 
BgL_offsetz00_1826 = 
(BgL_auxz00_4080-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 151 */
long BgL_modz00_1827;
{ /* ./Integrate/node.scm 151 */
int BgL_arg2028z00_1828;
BgL_arg2028z00_1828 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 151 */
long BgL_n2z00_1836;
BgL_n2z00_1836 = 
(long)(BgL_arg2028z00_1828); 
BgL_modz00_1827 = 
(BgL_offsetz00_1826/BgL_n2z00_1836); } } 
{ /* ./Integrate/node.scm 151 */
long BgL_restz00_1829;
{ /* ./Integrate/node.scm 151 */
int BgL_arg2024z00_1830;
BgL_arg2024z00_1830 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 151 */
long BgL_n2z00_1839;
BgL_n2z00_1839 = 
(long)(BgL_arg2024z00_1830); 
BgL_restz00_1829 = 
(BgL_offsetz00_1826%BgL_n2z00_1839); } } 
{ /* ./Integrate/node.scm 151 */

{ /* ./Integrate/node.scm 151 */
obj_t BgL_bucketz00_1831;
{ /* ./Integrate/node.scm 151 */
int BgL_kz00_1841;
BgL_kz00_1841 = 
(int)(BgL_modz00_1827); 
BgL_bucketz00_1831 = 
VECTOR_REF(BgL_arg2017z00_1822,BgL_kz00_1841); } 
{ /* ./Integrate/node.scm 151 */
int BgL_kz00_1843;
BgL_kz00_1843 = 
(int)(BgL_restz00_1829); 
BgL_method2969z00_1819 = 
VECTOR_REF(BgL_bucketz00_1831,BgL_kz00_1843); } } } } } } } } } } 
{ /* ./Integrate/node.scm 151 */
obj_t BgL_auxz00_4093;
BgL_auxz00_4093 = 
PROCEDURE_ENTRY(BgL_method2969z00_1819)(BgL_method2969z00_1819, 
(obj_t)(BgL_nodez00_1817), 
(obj_t)(BgL_integratorz00_1818), BEOA); 
BgL_res4150z00_1844 = 
(BgL_nodez00_bglt)(BgL_auxz00_4093); } } } 
return 
(obj_t)(BgL_res4150z00_1844);} }  else 
{ /* ./Integrate/node.scm 152 */
bool_t BgL_test3630z00_1341;
{ /* ./Integrate/node.scm 152 */
obj_t BgL_obj1240z00_1845;
BgL_obj1240z00_1845 = 
(obj_t)(BgL_varz00_1338); 
BgL_test3630z00_1341 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1845, BGl_globalz00zzast_varz00); } 
if(BgL_test3630z00_1341)
{ /* ./Integrate/node.scm 152 */
return 
(obj_t)(BgL_nodez00_1334);}  else 
{ /* ./Integrate/node.scm 154 */
bool_t BgL_test3631z00_1342;
BgL_test3631z00_1342 = 
BGl_integratezd2celledzf3z21zzintegrate_nodez00(
(BgL_localz00_bglt)(BgL_varz00_1338)); 
if(BgL_test3631z00_1342)
{ /* ./Integrate/node.scm 154 */
{ /* ./Integrate/node.scm 155 */
BgL_variablez00_bglt BgL_obj1105z00_1846;obj_t BgL_val1104z00_1847;
BgL_obj1105z00_1846 = BgL_varz00_1338; 
BgL_val1104z00_1847 = 
CNST_TABLE_REF(((long)0)); 
((((BgL_variablez00_bglt)CREF(BgL_obj1105z00_1846))->BgL_accessz00) = ((obj_t)BgL_val1104z00_1847), BUNSPEC); } 
{ /* ./Integrate/node.scm 157 */
obj_t BgL_arg3634z00_1343;BgL_typez00_bglt BgL_arg3635z00_1344;BgL_varz00_bglt BgL_arg3637z00_1346;
{ /* ./Integrate/node.scm 157 */
BgL_nodez00_bglt BgL_obj1560z00_1848;
BgL_obj1560z00_1848 = 
(BgL_nodez00_bglt)(BgL_nodez00_1334); 
BgL_arg3634z00_1343 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1848))->BgL_locz00); } 
{ /* ./Integrate/node.scm 158 */
BgL_nodez00_bglt BgL_obj1561z00_1849;
BgL_obj1561z00_1849 = 
(BgL_nodez00_bglt)(BgL_nodez00_1334); 
BgL_arg3635z00_1344 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1849))->BgL_typez00); } 
BgL_arg3637z00_1346 = BgL_nodez00_1334; 
{ /* ./Integrate/node.scm 156 */
BgL_boxzd2refzd2_bglt BgL_auxz00_4113;
BgL_auxz00_4113 = 
BGl_makezd2boxzd2refz00zzast_nodez00(BgL_arg3634z00_1343, BgL_arg3635z00_1344, BUNSPEC, 
BINT(((long)-1)), BgL_arg3637z00_1346); 
return 
(obj_t)(BgL_auxz00_4113);} } }  else 
{ /* ./Integrate/node.scm 154 */
return 
(obj_t)(BgL_nodez00_1334);} } } } } } } } } 
}



/* glo!-kwote2973 */
obj_t BGl_gloz12zd2kwote2973zc0zzintegrate_nodez00(obj_t BgL_envz00_2792, obj_t BgL_nodez00_2793, obj_t BgL_integratorz00_2794)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 139 */
{ /* ./Integrate/node.scm 140 */
BgL_kwotez00_bglt BgL_auxz00_4119;
BgL_auxz00_4119 = 
(BgL_kwotez00_bglt)(BgL_nodez00_2793); 
return 
(obj_t)(BgL_auxz00_4119);} } 
}



/* glo!-atom2971 */
obj_t BGl_gloz12zd2atom2971zc0zzintegrate_nodez00(obj_t BgL_envz00_2795, obj_t BgL_nodez00_2796, obj_t BgL_integratorz00_2797)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 133 */
{ /* ./Integrate/node.scm 134 */
BgL_atomz00_bglt BgL_auxz00_4122;
BgL_auxz00_4122 = 
(BgL_atomz00_bglt)(BgL_nodez00_2796); 
return 
(obj_t)(BgL_auxz00_4122);} } 
}



/* glo! */
BgL_nodez00_bglt BGl_gloz12z12zzintegrate_nodez00(BgL_nodez00_bglt BgL_nodez00_10, BgL_variablez00_bglt BgL_integratorz00_11)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 128 */
{ /* ./Integrate/node.scm 128 */
obj_t BgL_method2969z00_2677;
{ /* ./Integrate/node.scm 128 */
BgL_objectz00_bglt BgL_objz00_2678;
BgL_objz00_2678 = 
(BgL_objectz00_bglt)(BgL_nodez00_10); 
{ /* ./Integrate/node.scm 128 */
long BgL_objzd2classzd2numz00_2679;
BgL_objzd2classzd2numz00_2679 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2678); 
{ /* ./Integrate/node.scm 128 */
obj_t BgL_arg2017z00_2680;
{ /* ./Integrate/node.scm 128 */
int BgL_auxz00_4127;
BgL_auxz00_4127 = 
(int)(((long)1)); 
BgL_arg2017z00_2680 = 
PROCEDURE_REF(BGl_gloz12zd2envzc0zzintegrate_nodez00, BgL_auxz00_4127); } 
{ /* ./Integrate/node.scm 128 */
int BgL_offsetz00_2683;
BgL_offsetz00_2683 = 
(int)(BgL_objzd2classzd2numz00_2679); 
{ /* ./Integrate/node.scm 128 */
long BgL_offsetz00_2684;
{ /* ./Integrate/node.scm 128 */
long BgL_auxz00_4131;
BgL_auxz00_4131 = 
(long)(BgL_offsetz00_2683); 
BgL_offsetz00_2684 = 
(BgL_auxz00_4131-OBJECT_TYPE); } 
{ /* ./Integrate/node.scm 128 */
long BgL_modz00_2685;
{ /* ./Integrate/node.scm 128 */
int BgL_arg2028z00_2686;
BgL_arg2028z00_2686 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 128 */
long BgL_n2z00_2694;
BgL_n2z00_2694 = 
(long)(BgL_arg2028z00_2686); 
BgL_modz00_2685 = 
(BgL_offsetz00_2684/BgL_n2z00_2694); } } 
{ /* ./Integrate/node.scm 128 */
long BgL_restz00_2687;
{ /* ./Integrate/node.scm 128 */
int BgL_arg2024z00_2688;
BgL_arg2024z00_2688 = 
(int)(((long)8)); 
{ /* ./Integrate/node.scm 128 */
long BgL_n2z00_2697;
BgL_n2z00_2697 = 
(long)(BgL_arg2024z00_2688); 
BgL_restz00_2687 = 
(BgL_offsetz00_2684%BgL_n2z00_2697); } } 
{ /* ./Integrate/node.scm 128 */

{ /* ./Integrate/node.scm 128 */
obj_t BgL_bucketz00_2689;
{ /* ./Integrate/node.scm 128 */
int BgL_kz00_2699;
BgL_kz00_2699 = 
(int)(BgL_modz00_2685); 
BgL_bucketz00_2689 = 
VECTOR_REF(BgL_arg2017z00_2680,BgL_kz00_2699); } 
{ /* ./Integrate/node.scm 128 */
int BgL_kz00_2701;
BgL_kz00_2701 = 
(int)(BgL_restz00_2687); 
BgL_method2969z00_2677 = 
VECTOR_REF(BgL_bucketz00_2689,BgL_kz00_2701); } } } } } } } } } } 
{ /* ./Integrate/node.scm 128 */
obj_t BgL_auxz00_4144;
BgL_auxz00_4144 = 
PROCEDURE_ENTRY(BgL_method2969z00_2677)(BgL_method2969z00_2677, 
(obj_t)(BgL_nodez00_10), 
(obj_t)(BgL_integratorz00_11), BEOA); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_4144);} } } 
}



/* _glo!4228 */
obj_t BGl__gloz124228z12zzintegrate_nodez00(obj_t BgL_envz00_2709, obj_t BgL_nodez00_2710, obj_t BgL_integratorz00_2711)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 128 */
{ /* ./Integrate/node.scm 128 */
BgL_nodez00_bglt BgL_auxz00_4150;
BgL_auxz00_4150 = 
BGl_gloz12z12zzintegrate_nodez00(
(BgL_nodez00_bglt)(BgL_nodez00_2710), 
(BgL_variablez00_bglt)(BgL_integratorz00_2711)); 
return 
(obj_t)(BgL_auxz00_4150);} } 
}



/* glo!-default2968 */
BgL_nodez00_bglt BGl_gloz12zd2default2968zc0zzintegrate_nodez00(BgL_nodez00_bglt BgL_nodez00_12, BgL_variablez00_bglt BgL_integratorz00_13)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 15 */
{ /* ./Integrate/node.scm 15 */
obj_t BgL_procz00_2702;obj_t BgL_objectz00_2704;
BgL_procz00_2702 = 
CNST_TABLE_REF(((long)4)); 
BgL_objectz00_2704 = 
(obj_t)(BgL_nodez00_12); 
FAILURE(BgL_procz00_2702,BGl_string4889z00zzintegrate_nodez00,BgL_objectz00_2704);} } 
}



/* _glo!-default2968 */
obj_t BGl__gloz12zd2default2968zc0zzintegrate_nodez00(obj_t BgL_envz00_2798, obj_t BgL_nodez00_2799, obj_t BgL_integratorz00_2800)
{ AN_OBJECT;
{ /* ./Integrate/node.scm 15 */
{ /* ./Integrate/node.scm 15 */
BgL_nodez00_bglt BgL_auxz00_4158;
BgL_auxz00_4158 = 
BGl_gloz12zd2default2968zc0zzintegrate_nodez00(
(BgL_nodez00_bglt)(BgL_nodez00_2799), 
(BgL_variablez00_bglt)(BgL_integratorz00_2800)); 
return 
(obj_t)(BgL_auxz00_4158);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzintegrate_nodez00()
{ AN_OBJECT;
{ /* ./Integrate/node.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "integrate_node"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "integrate_node"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "integrate_node"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "integrate_node"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "integrate_node"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "integrate_node"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "integrate_node"); 
BGl_modulezd2initializa7ationz75zzast_localz00(((long)28959), "integrate_node"); 
BGl_modulezd2initializa7ationz75zzintegrate_infoz00(((long)0), "integrate_node"); 
return 
BGl_modulezd2initializa7ationz75zzintegrate_localzd2ze3globalz31(((long)5502), "integrate_node");} 
}

