/*===========================================================================*/
/*   (Integrate/kaptured.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/kaptured.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_methodzd2initzd2zzintegrate_kapturedz00();
static long BGl_za2unionzd2roundza2zd2zzintegrate_kapturedz00;
static obj_t BGl__setzd2kapturedz12zc0zzintegrate_kapturedz00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_setzd2onezd2kapturedz12z12zzintegrate_kapturedz00(obj_t, obj_t);
static obj_t BGl_unionz00zzintegrate_kapturedz00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzintegrate_kapturedz00();
static obj_t BGl_toplevelzd2initzd2zzintegrate_kapturedz00();
extern obj_t BGl_setzd2ctoz12zc0zzintegrate_ctoz00(BgL_nodez00_bglt, BgL_localz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzintegrate_kapturedz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzintegrate_infoz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzintegrate_freez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzintegrate_ctoz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
extern obj_t BGl_freezd2fromzd2zzintegrate_freez00(obj_t, BgL_localz00_bglt);
extern obj_t BGl_getzd2freezd2varsz00zzintegrate_freez00(BgL_nodez00_bglt, BgL_localz00_bglt);
extern obj_t BGl_localz00zzast_varz00;
static obj_t BGl_requirezd2initializa7ationz75zzintegrate_kapturedz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_setzd2kapturedz12zc0zzintegrate_kapturedz00(obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzintegrate_kapturedz00();
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_setzd2kapturedz12zd2envz12zzintegrate_kapturedz00, BgL_bgl__setza7d2kapturedza712za7c0za7za7integrate_kapturedza7003530z00, BGl__setzd2kapturedz12zc0zzintegrate_kapturedz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzintegrate_kapturedz00(long BgL_checksumz00_1319, char * BgL_fromz00_1320)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzintegrate_kapturedz00))
{ 
BGl_requirezd2initializa7ationz75zzintegrate_kapturedz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzintegrate_kapturedz00(); 
BGl_importedzd2moduleszd2initz00zzintegrate_kapturedz00(); 
BGl_toplevelzd2initzd2zzintegrate_kapturedz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzintegrate_kapturedz00()
{ AN_OBJECT;
{ /* ./Integrate/kaptured.scm 17 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "integrate_kaptured"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "integrate_kaptured"); 
return BUNSPEC;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzintegrate_kapturedz00()
{ AN_OBJECT;
{ /* ./Integrate/kaptured.scm 17 */
return ( 
BGl_za2unionzd2roundza2zd2zzintegrate_kapturedz00 = ((long)0), BUNSPEC) ;} 
}



/* set-kaptured! */
BGL_EXPORTED_DEF obj_t BGl_setzd2kapturedz12zc0zzintegrate_kapturedz00(obj_t BgL_localza2za2_1)
{ AN_OBJECT;
{ /* ./Integrate/kaptured.scm 31 */
{ 
obj_t BgL_l2899z00_772;
{ /* ./Integrate/kaptured.scm 32 */
bool_t BgL_auxz00_1329;
BgL_l2899z00_772 = BgL_localza2za2_1; 
BgL_forzd2each2900zd2_773:
{ /* ./Integrate/kaptured.scm 32 */
bool_t BgL_test2908z00_774;
BgL_test2908z00_774 = 
PAIRP(BgL_l2899z00_772); 
if(BgL_test2908z00_774)
{ /* ./Integrate/kaptured.scm 32 */
{ /* ./Integrate/kaptured.scm 33 */
obj_t BgL_localz00_775;
BgL_localz00_775 = 
CAR(BgL_l2899z00_772); 
BGl_setzd2onezd2kapturedz12z12zzintegrate_kapturedz00(BgL_localz00_775, BgL_localz00_775); } 
{ /* ./Integrate/kaptured.scm 32 */
obj_t BgL_arg2912z00_776;
BgL_arg2912z00_776 = 
CDR(BgL_l2899z00_772); 
{ 
obj_t BgL_l2899z00_1335;
BgL_l2899z00_1335 = BgL_arg2912z00_776; 
BgL_l2899z00_772 = BgL_l2899z00_1335; 
goto BgL_forzd2each2900zd2_773;} } }  else 
{ /* ./Integrate/kaptured.scm 32 */
BgL_auxz00_1329 = ((bool_t)1); } } 
return 
BBOOL(BgL_auxz00_1329);} } } 
}



/* _set-kaptured! */
obj_t BGl__setzd2kapturedz12zc0zzintegrate_kapturedz00(obj_t BgL_envz00_1317, obj_t BgL_localza2za2_1318)
{ AN_OBJECT;
{ /* ./Integrate/kaptured.scm 31 */
return 
BGl_setzd2kapturedz12zc0zzintegrate_kapturedz00(BgL_localza2za2_1318);} 
}



/* set-one-kaptured! */
obj_t BGl_setzd2onezd2kapturedz12z12zzintegrate_kapturedz00(obj_t BgL_localz00_2, obj_t BgL_lockingz00_3)
{ AN_OBJECT;
{ /* ./Integrate/kaptured.scm 48 */
{ /* ./Integrate/kaptured.scm 52 */
BgL_valuez00_bglt BgL_infoz00_777;
{ /* ./Integrate/kaptured.scm 52 */
BgL_variablez00_bglt BgL_obj1100z00_1236;
BgL_obj1100z00_1236 = 
(BgL_variablez00_bglt)(BgL_localz00_2); 
BgL_infoz00_777 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1236))->BgL_valuez00); } 
{ /* ./Integrate/kaptured.scm 52 */
obj_t BgL_kapturedz00_778;
{ /* ./Integrate/kaptured.scm 53 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2854z00_1237;
BgL_obj2854z00_1237 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_infoz00_777); 
{ 
obj_t BgL_auxz00_1341;
{ /* ./Integrate/kaptured.scm 53 */
BgL_objectz00_bglt BgL_auxz00_1342;
BgL_auxz00_1342 = 
(BgL_objectz00_bglt)(BgL_obj2854z00_1237); 
BgL_auxz00_1341 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1342); } 
BgL_kapturedz00_778 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1341))->BgL_kapturedz00); } } 
{ /* ./Integrate/kaptured.scm 53 */

{ /* ./Integrate/kaptured.scm 55 */
bool_t BgL_test2916z00_779;
if(
PAIRP(BgL_kapturedz00_778))
{ /* ./Integrate/kaptured.scm 55 */
BgL_test2916z00_779 = ((bool_t)1); }  else 
{ /* ./Integrate/kaptured.scm 55 */
BgL_test2916z00_779 = 
NULLP(BgL_kapturedz00_778); } 
if(BgL_test2916z00_779)
{ /* ./Integrate/kaptured.scm 55 */
{ /* ./Integrate/kaptured.scm 58 */
obj_t BgL_v2901z00_780;
{ 
int BgL_auxz00_1350;
BgL_auxz00_1350 = 
(int)(((long)3)); 
BgL_v2901z00_780 = 
create_vector(BgL_auxz00_1350); } 
{ /* ./Integrate/kaptured.scm 58 */
int BgL_kz00_1241;
BgL_kz00_1241 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v2901z00_780,BgL_kz00_1241,BgL_kapturedz00_778); } 
{ /* ./Integrate/kaptured.scm 58 */
int BgL_kz00_1244;
BgL_kz00_1244 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v2901z00_780,BgL_kz00_1244,BgL_lockingz00_3); } 
{ /* ./Integrate/kaptured.scm 58 */
int BgL_kz00_1247;
BgL_kz00_1247 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v2901z00_780,BgL_kz00_1247,BTRUE); } 
return BgL_v2901z00_780;} }  else 
{ /* ./Integrate/kaptured.scm 59 */
bool_t BgL_test2921z00_781;
BgL_test2921z00_781 = 
BGl_iszd2azf3z21zz__objectz00(BgL_kapturedz00_778, BGl_localz00zzast_varz00); 
if(BgL_test2921z00_781)
{ /* ./Integrate/kaptured.scm 59 */
{ /* ./Integrate/kaptured.scm 62 */
obj_t BgL_v2902z00_782;
{ 
int BgL_auxz00_1361;
BgL_auxz00_1361 = 
(int)(((long)3)); 
BgL_v2902z00_782 = 
create_vector(BgL_auxz00_1361); } 
{ /* ./Integrate/kaptured.scm 62 */
int BgL_kz00_1251;
BgL_kz00_1251 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v2902z00_782,BgL_kz00_1251,BNIL); } 
{ /* ./Integrate/kaptured.scm 62 */
int BgL_kz00_1254;
BgL_kz00_1254 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v2902z00_782,BgL_kz00_1254,BgL_lockingz00_3); } 
{ /* ./Integrate/kaptured.scm 62 */
int BgL_kz00_1257;
BgL_kz00_1257 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v2902z00_782,BgL_kz00_1257,BFALSE); } 
return BgL_v2902z00_782;} }  else 
{ /* ./Integrate/kaptured.scm 59 */
{ /* ./Integrate/kaptured.scm 64 */
obj_t BgL_bodyz00_783;
{ /* ./Integrate/kaptured.scm 64 */
BgL_sfunz00_bglt BgL_obj1370z00_1260;
{ /* ./Integrate/kaptured.scm 64 */
BgL_valuez00_bglt BgL_auxz00_1370;
{ /* ./Integrate/kaptured.scm 64 */
BgL_variablez00_bglt BgL_obj1100z00_1259;
BgL_obj1100z00_1259 = 
(BgL_variablez00_bglt)(BgL_localz00_2); 
BgL_auxz00_1370 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1259))->BgL_valuez00); } 
BgL_obj1370z00_1260 = 
(BgL_sfunz00_bglt)(BgL_auxz00_1370); } 
BgL_bodyz00_783 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1260))->BgL_bodyz00); } 
BGl_setzd2ctoz12zc0zzintegrate_ctoz00(
(BgL_nodez00_bglt)(BgL_bodyz00_783), 
(BgL_localz00_bglt)(BgL_localz00_2)); 
{ /* ./Integrate/kaptured.scm 71 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2856z00_1261;obj_t BgL_val2855z00_1262;
BgL_obj2856z00_1261 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_infoz00_777); 
BgL_val2855z00_1262 = BgL_localz00_2; 
{ 
obj_t BgL_auxz00_1379;
{ /* ./Integrate/kaptured.scm 71 */
BgL_objectz00_bglt BgL_auxz00_1380;
BgL_auxz00_1380 = 
(BgL_objectz00_bglt)(BgL_obj2856z00_1261); 
BgL_auxz00_1379 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1380); } 
((((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1379))->BgL_kapturedz00) = ((obj_t)BgL_val2855z00_1262), BUNSPEC); } } 
{ 
obj_t BgL_kapturedz00_784;obj_t BgL_ctoz00_785;bool_t BgL_setterzf3zf3_786;
{ /* ./Integrate/kaptured.scm 73 */
obj_t BgL_arg2930z00_789;
{ /* ./Integrate/kaptured.scm 74 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2818z00_1263;
BgL_obj2818z00_1263 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_infoz00_777); 
{ 
obj_t BgL_auxz00_1385;
{ /* ./Integrate/kaptured.scm 74 */
BgL_objectz00_bglt BgL_auxz00_1386;
BgL_auxz00_1386 = 
(BgL_objectz00_bglt)(BgL_obj2818z00_1263); 
BgL_auxz00_1385 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1386); } 
BgL_arg2930z00_789 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1385))->BgL_ctoz00); } } 
BgL_kapturedz00_784 = BNIL; 
BgL_ctoz00_785 = BgL_arg2930z00_789; 
BgL_setterzf3zf3_786 = ((bool_t)1); 
BgL_loopz00_787:
{ /* ./Integrate/kaptured.scm 82 */
bool_t BgL_test2933z00_790;
BgL_test2933z00_790 = 
NULLP(BgL_ctoz00_785); 
if(BgL_test2933z00_790)
{ /* ./Integrate/kaptured.scm 82 */
{ /* ./Integrate/kaptured.scm 83 */
obj_t BgL_freez00_791;
BgL_freez00_791 = 
BGl_getzd2freezd2varsz00zzintegrate_freez00(
(BgL_nodez00_bglt)(BgL_bodyz00_783), 
(BgL_localz00_bglt)(BgL_localz00_2)); 
{ /* ./Integrate/kaptured.scm 83 */
obj_t BgL_fkapturedz00_792;
BgL_fkapturedz00_792 = 
BGl_freezd2fromzd2zzintegrate_freez00(BgL_kapturedz00_784, 
(BgL_localz00_bglt)(BgL_localz00_2)); 
{ /* ./Integrate/kaptured.scm 84 */
obj_t BgL_rkapturedz00_793;
{ /* ./Integrate/kaptured.scm 85 */
obj_t BgL_arg2953z00_801;
BgL_arg2953z00_801 = 
MAKE_PAIR(BgL_freez00_791, BgL_fkapturedz00_792); 
BgL_rkapturedz00_793 = 
BGl_unionz00zzintegrate_kapturedz00(BgL_arg2953z00_801); } 
{ /* ./Integrate/kaptured.scm 85 */

if(BgL_setterzf3zf3_786)
{ /* ./Integrate/kaptured.scm 98 */
{ /* ./Integrate/kaptured.scm 101 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2856z00_1265;obj_t BgL_val2855z00_1266;
BgL_obj2856z00_1265 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_infoz00_777); 
BgL_val2855z00_1266 = BgL_rkapturedz00_793; 
{ 
obj_t BgL_auxz00_1401;
{ /* ./Integrate/kaptured.scm 101 */
BgL_objectz00_bglt BgL_auxz00_1402;
BgL_auxz00_1402 = 
(BgL_objectz00_bglt)(BgL_obj2856z00_1265); 
BgL_auxz00_1401 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1402); } 
((((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1401))->BgL_kapturedz00) = ((obj_t)BgL_val2855z00_1266), BUNSPEC); } } 
{ 
obj_t BgL_l2903z00_794;
{ /* ./Integrate/kaptured.scm 103 */
bool_t BgL_auxz00_1406;
BgL_l2903z00_794 = BgL_rkapturedz00_793; 
BgL_forzd2each2904zd2_795:
{ /* ./Integrate/kaptured.scm 103 */
bool_t BgL_test2936z00_796;
BgL_test2936z00_796 = 
PAIRP(BgL_l2903z00_794); 
if(BgL_test2936z00_796)
{ /* ./Integrate/kaptured.scm 103 */
{ /* ./Integrate/kaptured.scm 104 */
obj_t BgL_localz00_797;
BgL_localz00_797 = 
CAR(BgL_l2903z00_794); 
{ /* ./Integrate/kaptured.scm 105 */
BgL_valuez00_bglt BgL_arg2938z00_798;
{ /* ./Integrate/kaptured.scm 105 */
BgL_variablez00_bglt BgL_obj1100z00_1269;
BgL_obj1100z00_1269 = 
(BgL_variablez00_bglt)(BgL_localz00_797); 
BgL_arg2938z00_798 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1269))->BgL_valuez00); } 
{ /* ./Integrate/kaptured.scm 104 */
BgL_svarzf2iinfozf2_bglt BgL_obj2690z00_1270;bool_t BgL_val2688z00_1271;
BgL_obj2690z00_1270 = 
(BgL_svarzf2iinfozf2_bglt)(BgL_arg2938z00_798); 
BgL_val2688z00_1271 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_1413;
{ /* ./Integrate/kaptured.scm 104 */
BgL_objectz00_bglt BgL_auxz00_1414;
BgL_auxz00_1414 = 
(BgL_objectz00_bglt)(BgL_obj2690z00_1270); 
BgL_auxz00_1413 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1414); } 
((((BgL_svarzf2iinfozf2_bglt)CREF(BgL_auxz00_1413))->BgL_kapturedzf3zf3) = ((bool_t)BgL_val2688z00_1271), BUNSPEC); } } } } 
{ /* ./Integrate/kaptured.scm 103 */
obj_t BgL_arg2943z00_799;
BgL_arg2943z00_799 = 
CDR(BgL_l2903z00_794); 
{ 
obj_t BgL_l2903z00_1419;
BgL_l2903z00_1419 = BgL_arg2943z00_799; 
BgL_l2903z00_794 = BgL_l2903z00_1419; 
goto BgL_forzd2each2904zd2_795;} } }  else 
{ /* ./Integrate/kaptured.scm 103 */
BgL_auxz00_1406 = ((bool_t)1); } } 
BBOOL(BgL_auxz00_1406); } } }  else 
{ /* ./Integrate/kaptured.scm 109 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2856z00_1273;obj_t BgL_val2855z00_1274;
BgL_obj2856z00_1273 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_infoz00_777); 
BgL_val2855z00_1274 = BUNSPEC; 
{ 
obj_t BgL_auxz00_1422;
{ /* ./Integrate/kaptured.scm 109 */
BgL_objectz00_bglt BgL_auxz00_1423;
BgL_auxz00_1423 = 
(BgL_objectz00_bglt)(BgL_obj2856z00_1273); 
BgL_auxz00_1422 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1423); } 
((((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1422))->BgL_kapturedz00) = ((obj_t)BgL_val2855z00_1274), BUNSPEC); } } 
{ /* ./Integrate/kaptured.scm 110 */
obj_t BgL_v2905z00_800;
{ 
int BgL_auxz00_1427;
BgL_auxz00_1427 = 
(int)(((long)3)); 
BgL_v2905z00_800 = 
create_vector(BgL_auxz00_1427); } 
{ /* ./Integrate/kaptured.scm 110 */
int BgL_kz00_1276;
BgL_kz00_1276 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v2905z00_800,BgL_kz00_1276,BgL_rkapturedz00_793); } 
{ /* ./Integrate/kaptured.scm 110 */
int BgL_kz00_1279;
BgL_kz00_1279 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v2905z00_800,BgL_kz00_1279,BgL_lockingz00_3); } 
{ /* ./Integrate/kaptured.scm 110 */
int BgL_kz00_1282;obj_t BgL_objz00_1283;
BgL_kz00_1282 = 
(int)(((long)0)); 
BgL_objz00_1283 = 
BBOOL(BgL_setterzf3zf3_786); 
VECTOR_SET(BgL_v2905z00_800,BgL_kz00_1282,BgL_objz00_1283); } 
return BgL_v2905z00_800;} } } } } }  else 
{ /* ./Integrate/kaptured.scm 111 */
bool_t BgL_test2958z00_802;
{ /* ./Integrate/kaptured.scm 111 */
obj_t BgL_auxz00_1437;
BgL_auxz00_1437 = 
CAR(BgL_ctoz00_785); 
BgL_test2958z00_802 = 
(BgL_auxz00_1437==BgL_localz00_2); } 
if(BgL_test2958z00_802)
{ /* ./Integrate/kaptured.scm 111 */
{ /* ./Integrate/kaptured.scm 113 */
obj_t BgL_arg2960z00_803;
BgL_arg2960z00_803 = 
CDR(BgL_ctoz00_785); 
{ 
obj_t BgL_ctoz00_1442;
BgL_ctoz00_1442 = BgL_arg2960z00_803; 
BgL_ctoz00_785 = BgL_ctoz00_1442; 
goto BgL_loopz00_787;} } }  else 
{ /* ./Integrate/kaptured.scm 115 */
bool_t BgL_test2963z00_804;
{ /* ./Integrate/kaptured.scm 115 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2839z00_1288;
{ /* ./Integrate/kaptured.scm 115 */
BgL_valuez00_bglt BgL_auxz00_1443;
{ /* ./Integrate/kaptured.scm 115 */
BgL_variablez00_bglt BgL_obj1100z00_1287;
{ /* ./Integrate/kaptured.scm 115 */
obj_t BgL_auxz00_1444;
BgL_auxz00_1444 = 
CAR(BgL_ctoz00_785); 
BgL_obj1100z00_1287 = 
(BgL_variablez00_bglt)(BgL_auxz00_1444); } 
BgL_auxz00_1443 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1287))->BgL_valuez00); } 
BgL_obj2839z00_1288 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_auxz00_1443); } 
{ 
obj_t BgL_auxz00_1449;
{ /* ./Integrate/kaptured.scm 115 */
BgL_objectz00_bglt BgL_auxz00_1450;
BgL_auxz00_1450 = 
(BgL_objectz00_bglt)(BgL_obj2839z00_1288); 
BgL_auxz00_1449 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1450); } 
BgL_test2963z00_804 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1449))->BgL_gzf3zf3); } } 
if(BgL_test2963z00_804)
{ /* ./Integrate/kaptured.scm 115 */
{ /* ./Integrate/kaptured.scm 116 */
obj_t BgL_otherzd2kapturedzd2_805;
{ /* ./Integrate/kaptured.scm 116 */
obj_t BgL_arg2991z00_816;
BgL_arg2991z00_816 = 
CAR(BgL_ctoz00_785); 
BgL_otherzd2kapturedzd2_805 = 
BGl_setzd2onezd2kapturedz12z12zzintegrate_kapturedz00(BgL_arg2991z00_816, BgL_lockingz00_3); } 
{ /* ./Integrate/kaptured.scm 118 */
bool_t BgL_test2964z00_806;
{ /* ./Integrate/kaptured.scm 118 */
int BgL_kz00_1291;
BgL_kz00_1291 = 
(int)(((long)0)); 
{ /* ./Integrate/kaptured.scm 118 */
obj_t BgL_auxz00_1458;
BgL_auxz00_1458 = 
VECTOR_REF(BgL_otherzd2kapturedzd2_805,BgL_kz00_1291); 
BgL_test2964z00_806 = 
CBOOL(BgL_auxz00_1458); } } 
if(BgL_test2964z00_806)
{ /* ./Integrate/kaptured.scm 124 */
obj_t BgL_arg2966z00_807;obj_t BgL_arg2967z00_808;
{ /* ./Integrate/kaptured.scm 124 */
obj_t BgL_arg2970z00_809;
{ /* ./Integrate/kaptured.scm 124 */
int BgL_kz00_1293;
BgL_kz00_1293 = 
(int)(((long)2)); 
BgL_arg2970z00_809 = 
VECTOR_REF(BgL_otherzd2kapturedzd2_805,BgL_kz00_1293); } 
BgL_arg2966z00_807 = 
MAKE_PAIR(BgL_arg2970z00_809, BgL_kapturedz00_784); } 
BgL_arg2967z00_808 = 
CDR(BgL_ctoz00_785); 
{ 
obj_t BgL_ctoz00_1467;obj_t BgL_kapturedz00_1466;
BgL_kapturedz00_1466 = BgL_arg2966z00_807; 
BgL_ctoz00_1467 = BgL_arg2967z00_808; 
BgL_ctoz00_785 = BgL_ctoz00_1467; 
BgL_kapturedz00_784 = BgL_kapturedz00_1466; 
goto BgL_loopz00_787;} }  else 
{ /* ./Integrate/kaptured.scm 119 */
obj_t BgL_arg2975z00_810;obj_t BgL_arg2976z00_811;bool_t BgL_arg2977z00_812;
{ /* ./Integrate/kaptured.scm 119 */
obj_t BgL_arg2980z00_813;
{ /* ./Integrate/kaptured.scm 119 */
int BgL_kz00_1296;
BgL_kz00_1296 = 
(int)(((long)2)); 
BgL_arg2980z00_813 = 
VECTOR_REF(BgL_otherzd2kapturedzd2_805,BgL_kz00_1296); } 
BgL_arg2975z00_810 = 
MAKE_PAIR(BgL_arg2980z00_813, BgL_kapturedz00_784); } 
BgL_arg2976z00_811 = 
CDR(BgL_ctoz00_785); 
if(BgL_setterzf3zf3_786)
{ /* ./Integrate/kaptured.scm 122 */
obj_t BgL_arg2986z00_815;
{ /* ./Integrate/kaptured.scm 122 */
int BgL_kz00_1299;
BgL_kz00_1299 = 
(int)(((long)1)); 
BgL_arg2986z00_815 = 
VECTOR_REF(BgL_otherzd2kapturedzd2_805,BgL_kz00_1299); } 
BgL_arg2977z00_812 = 
(BgL_arg2986z00_815==BgL_localz00_2); }  else 
{ /* ./Integrate/kaptured.scm 121 */
BgL_arg2977z00_812 = ((bool_t)0); } 
{ 
bool_t BgL_setterzf3zf3_1478;obj_t BgL_ctoz00_1477;obj_t BgL_kapturedz00_1476;
BgL_kapturedz00_1476 = BgL_arg2975z00_810; 
BgL_ctoz00_1477 = BgL_arg2976z00_811; 
BgL_setterzf3zf3_1478 = BgL_arg2977z00_812; 
BgL_setterzf3zf3_786 = BgL_setterzf3zf3_1478; 
BgL_ctoz00_785 = BgL_ctoz00_1477; 
BgL_kapturedz00_784 = BgL_kapturedz00_1476; 
goto BgL_loopz00_787;} } } } }  else 
{ /* ./Integrate/kaptured.scm 115 */
{ /* ./Integrate/kaptured.scm 129 */
obj_t BgL_arg2995z00_817;
BgL_arg2995z00_817 = 
CDR(BgL_ctoz00_785); 
{ 
obj_t BgL_ctoz00_1480;
BgL_ctoz00_1480 = BgL_arg2995z00_817; 
BgL_ctoz00_785 = BgL_ctoz00_1480; 
goto BgL_loopz00_787;} } } } } } } } } } } } } } } } 
}



/* union */
obj_t BGl_unionz00zzintegrate_kapturedz00(obj_t BgL_setsz00_4)
{ AN_OBJECT;
{ /* ./Integrate/kaptured.scm 140 */
{ /* ./Integrate/kaptured.scm 141 */
long BgL_za72za7_1302;
BgL_za72za7_1302 = BGl_za2unionzd2roundza2zd2zzintegrate_kapturedz00; 
BGl_za2unionzd2roundza2zd2zzintegrate_kapturedz00 = 
(((long)1)+BgL_za72za7_1302); } 
{ 
obj_t BgL_setsz00_823;obj_t BgL_unionz00_824;
BgL_setsz00_823 = BgL_setsz00_4; 
BgL_unionz00_824 = BNIL; 
BgL_loopz00_825:
{ /* ./Integrate/kaptured.scm 144 */
bool_t BgL_test3023z00_826;
BgL_test3023z00_826 = 
NULLP(BgL_setsz00_823); 
if(BgL_test3023z00_826)
{ /* ./Integrate/kaptured.scm 144 */
return BgL_unionz00_824;}  else 
{ 
obj_t BgL_setz00_827;obj_t BgL_unionz00_828;
{ /* ./Integrate/kaptured.scm 146 */
obj_t BgL_arg3025z00_830;
BgL_arg3025z00_830 = 
CAR(BgL_setsz00_823); 
BgL_setz00_827 = BgL_arg3025z00_830; 
BgL_unionz00_828 = BgL_unionz00_824; 
BgL_liipz00_829:
{ /* ./Integrate/kaptured.scm 149 */
bool_t BgL_test3028z00_831;
BgL_test3028z00_831 = 
NULLP(BgL_setz00_827); 
if(BgL_test3028z00_831)
{ /* ./Integrate/kaptured.scm 149 */
{ /* ./Integrate/kaptured.scm 150 */
obj_t BgL_arg3030z00_832;
BgL_arg3030z00_832 = 
CDR(BgL_setsz00_823); 
{ 
obj_t BgL_unionz00_1489;obj_t BgL_setsz00_1488;
BgL_setsz00_1488 = BgL_arg3030z00_832; 
BgL_unionz00_1489 = BgL_unionz00_828; 
BgL_unionz00_824 = BgL_unionz00_1489; 
BgL_setsz00_823 = BgL_setsz00_1488; 
goto BgL_loopz00_825;} } }  else 
{ /* ./Integrate/kaptured.scm 151 */
bool_t BgL_test3033z00_833;
{ /* ./Integrate/kaptured.scm 151 */
obj_t BgL_arg3056z00_840;
{ /* ./Integrate/kaptured.scm 151 */
BgL_svarzf2iinfozf2_bglt BgL_obj2684z00_1309;
{ /* ./Integrate/kaptured.scm 151 */
BgL_valuez00_bglt BgL_auxz00_1490;
{ /* ./Integrate/kaptured.scm 151 */
BgL_variablez00_bglt BgL_obj1100z00_1308;
{ /* ./Integrate/kaptured.scm 151 */
obj_t BgL_auxz00_1491;
BgL_auxz00_1491 = 
CAR(BgL_setz00_827); 
BgL_obj1100z00_1308 = 
(BgL_variablez00_bglt)(BgL_auxz00_1491); } 
BgL_auxz00_1490 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1308))->BgL_valuez00); } 
BgL_obj2684z00_1309 = 
(BgL_svarzf2iinfozf2_bglt)(BgL_auxz00_1490); } 
{ 
obj_t BgL_auxz00_1496;
{ /* ./Integrate/kaptured.scm 151 */
BgL_objectz00_bglt BgL_auxz00_1497;
BgL_auxz00_1497 = 
(BgL_objectz00_bglt)(BgL_obj2684z00_1309); 
BgL_auxz00_1496 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1497); } 
BgL_arg3056z00_840 = 
(((BgL_svarzf2iinfozf2_bglt)CREF(BgL_auxz00_1496))->BgL_uzd2markzd2); } } 
{ /* ./Integrate/kaptured.scm 151 */
obj_t BgL_auxz00_1501;
BgL_auxz00_1501 = 
BINT(BGl_za2unionzd2roundza2zd2zzintegrate_kapturedz00); 
BgL_test3033z00_833 = 
(BgL_arg3056z00_840==BgL_auxz00_1501); } } 
if(BgL_test3033z00_833)
{ /* ./Integrate/kaptured.scm 151 */
{ /* ./Integrate/kaptured.scm 153 */
obj_t BgL_arg3035z00_834;
BgL_arg3035z00_834 = 
CDR(BgL_setz00_827); 
{ 
obj_t BgL_setz00_1506;
BgL_setz00_1506 = BgL_arg3035z00_834; 
BgL_setz00_827 = BgL_setz00_1506; 
goto BgL_liipz00_829;} } }  else 
{ /* ./Integrate/kaptured.scm 151 */
{ /* ./Integrate/kaptured.scm 155 */
BgL_valuez00_bglt BgL_arg3039z00_835;
{ /* ./Integrate/kaptured.scm 155 */
BgL_variablez00_bglt BgL_obj1100z00_1312;
{ /* ./Integrate/kaptured.scm 155 */
obj_t BgL_auxz00_1507;
BgL_auxz00_1507 = 
CAR(BgL_setz00_827); 
BgL_obj1100z00_1312 = 
(BgL_variablez00_bglt)(BgL_auxz00_1507); } 
BgL_arg3039z00_835 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1312))->BgL_valuez00); } 
{ /* ./Integrate/kaptured.scm 155 */
BgL_svarzf2iinfozf2_bglt BgL_obj2686z00_1313;obj_t BgL_val2685z00_1314;
BgL_obj2686z00_1313 = 
(BgL_svarzf2iinfozf2_bglt)(BgL_arg3039z00_835); 
BgL_val2685z00_1314 = 
BINT(BGl_za2unionzd2roundza2zd2zzintegrate_kapturedz00); 
{ 
obj_t BgL_auxz00_1513;
{ /* ./Integrate/kaptured.scm 155 */
BgL_objectz00_bglt BgL_auxz00_1514;
BgL_auxz00_1514 = 
(BgL_objectz00_bglt)(BgL_obj2686z00_1313); 
BgL_auxz00_1513 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1514); } 
((((BgL_svarzf2iinfozf2_bglt)CREF(BgL_auxz00_1513))->BgL_uzd2markzd2) = ((obj_t)BgL_val2685z00_1314), BUNSPEC); } } } 
{ /* ./Integrate/kaptured.scm 156 */
obj_t BgL_arg3047z00_837;obj_t BgL_arg3048z00_838;
BgL_arg3047z00_837 = 
CDR(BgL_setz00_827); 
{ /* ./Integrate/kaptured.scm 156 */
obj_t BgL_arg3052z00_839;
BgL_arg3052z00_839 = 
CAR(BgL_setz00_827); 
BgL_arg3048z00_838 = 
MAKE_PAIR(BgL_arg3052z00_839, BgL_unionz00_828); } 
{ 
obj_t BgL_unionz00_1522;obj_t BgL_setz00_1521;
BgL_setz00_1521 = BgL_arg3047z00_837; 
BgL_unionz00_1522 = BgL_arg3048z00_838; 
BgL_unionz00_828 = BgL_unionz00_1522; 
BgL_setz00_827 = BgL_setz00_1521; 
goto BgL_liipz00_829;} } } } } } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzintegrate_kapturedz00()
{ AN_OBJECT;
{ /* ./Integrate/kaptured.scm 17 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzintegrate_kapturedz00()
{ AN_OBJECT;
{ /* ./Integrate/kaptured.scm 17 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "integrate_kaptured"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "integrate_kaptured"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "integrate_kaptured"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "integrate_kaptured"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "integrate_kaptured"); 
BGl_modulezd2initializa7ationz75zzintegrate_infoz00(((long)0), "integrate_kaptured"); 
BGl_modulezd2initializa7ationz75zzintegrate_freez00(((long)29509), "integrate_kaptured"); 
return 
BGl_modulezd2initializa7ationz75zzintegrate_ctoz00(((long)38767), "integrate_kaptured");} 
}

