/*===========================================================================*/
/*   (Integrate/ctn.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/ctn.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_ctnz00();
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern obj_t BGl_globalz00zzast_varz00;
static obj_t BGl_cnstzd2initzd2zzintegrate_ctnz00();
BGL_IMPORT obj_t display_fixnum(obj_t, obj_t);
static obj_t BGl__Cnz62Ctz12z70zzintegrate_ctnz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzintegrate_ctnz00();
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzintegrate_ctnz00(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_az00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_IMPORT obj_t display_string(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_Cnz62Ctz12z70zzintegrate_ctnz00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzintegrate_ctnz00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzintegrate_ctnz00();
static obj_t __cnst[ 3 ] ;


DEFINE_STRING( BGl_string3446z00zzintegrate_ctnz00, BgL_bgl_string3446za700za7za7integrate_ctnza7003472z00, "Cn&Ct! escape tail ", 19 );
DEFINE_STRING( BGl_string3445z00zzintegrate_ctnz00, BgL_bgl_string3445za700za7za7integrate_ctnza7003473z00, "SHould not be here", 18 );
DEFINE_STRING( BGl_string3444z00zzintegrate_ctnz00, BgL_bgl_string3444za700za7za7integrate_ctnza7003474z00, "!!!!! SHOULD NOT BE HERE.....", 29 );
DEFINE_STRING( BGl_string3443z00zzintegrate_ctnz00, BgL_bgl_string3443za700za7za7integrate_ctnza7003475z00, ":", 1 );
DEFINE_STRING( BGl_string3442z00zzintegrate_ctnz00, BgL_bgl_string3442za700za7za7integrate_ctnza7003476z00, ",", 1 );
DEFINE_STRING( BGl_string3441z00zzintegrate_ctnz00, BgL_bgl_string3441za700za7za7integrate_ctnza7003477z00, "./Integrate/ctn.scm", 19 );
DEFINE_EXPORT_PROCEDURE( BGl_Cnz62Ctz12zd2envza2zzintegrate_ctnz00, BgL_bgl__cnza762ctza712za770za7za7integrate_ctnza7003478z00, BGl__Cnz62Ctz12z70zzintegrate_ctnz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzintegrate_ctnz00(long BgL_checksumz00_1252, char * BgL_fromz00_1253)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzintegrate_ctnz00))
{ 
BGl_requirezd2initializa7ationz75zzintegrate_ctnz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzintegrate_ctnz00(); 
BGl_cnstzd2initzd2zzintegrate_ctnz00(); 
BGl_importedzd2moduleszd2initz00zzintegrate_ctnz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



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



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzintegrate_ctnz00()
{ AN_OBJECT;
{ /* ./Integrate/ctn.scm 15 */
{ /* ./Integrate/ctn.scm 15 */
obj_t BgL_cportz00_1245;
BgL_cportz00_1245 = 
open_input_string(BGl_string3446z00zzintegrate_ctnz00); 
{ 
long BgL_iz00_1246;
BgL_iz00_1246 = ((long)2); 
BgL_loopz00_1247:
{ /* ./Integrate/ctn.scm 15 */
bool_t BgL_test3448z00_1248;
BgL_test3448z00_1248 = 
(BgL_iz00_1246==((long)-1)); 
if(BgL_test3448z00_1248)
{ /* ./Integrate/ctn.scm 15 */
return BUNSPEC;}  else 
{ /* ./Integrate/ctn.scm 15 */
{ /* ./Integrate/ctn.scm 15 */
obj_t BgL_arg3450z00_1249;
{ /* ./Integrate/ctn.scm 15 */
obj_t BgL_list3453z00_1250;
BgL_list3453z00_1250 = 
MAKE_PAIR(BgL_cportz00_1245, BNIL); 
BgL_arg3450z00_1249 = 
BGl_readz00zz__readerz00(BgL_list3453z00_1250); } 
{ /* ./Integrate/ctn.scm 15 */
int BgL_auxz00_1268;
BgL_auxz00_1268 = 
(int)(BgL_iz00_1246); 
CNST_TABLE_SET(BgL_auxz00_1268, BgL_arg3450z00_1249); } } 
{ /* ./Integrate/ctn.scm 15 */
int BgL_auxz00_1251;
{ /* ./Integrate/ctn.scm 15 */
long BgL_auxz00_1271;
BgL_auxz00_1271 = 
(BgL_iz00_1246-((long)1)); 
BgL_auxz00_1251 = 
(int)(BgL_auxz00_1271); } 
{ 
long BgL_iz00_1274;
BgL_iz00_1274 = 
(long)(BgL_auxz00_1251); 
BgL_iz00_1246 = BgL_iz00_1274; 
goto BgL_loopz00_1247;} } } } } } } 
}



/* Cn&Ct! */
BGL_EXPORTED_DEF obj_t BGl_Cnz62Ctz12z70zzintegrate_ctnz00(obj_t BgL_az00_1)
{ AN_OBJECT;
{ /* ./Integrate/ctn.scm 31 */
{ 
obj_t BgL_asz00_769;obj_t BgL_gzf2cnzf2_770;
BgL_asz00_769 = BgL_az00_1; 
BgL_gzf2cnzf2_770 = BNIL; 
BgL_loopz00_771:
{ /* ./Integrate/ctn.scm 34 */
bool_t BgL_test2901z00_772;
BgL_test2901z00_772 = 
NULLP(BgL_asz00_769); 
if(BgL_test2901z00_772)
{ /* ./Integrate/ctn.scm 34 */
return BgL_gzf2cnzf2_770;}  else 
{ /* ./Integrate/ctn.scm 38 */
obj_t BgL_az00_773;
BgL_az00_773 = 
CAR(BgL_asz00_769); 
{ /* ./Integrate/ctn.scm 38 */
obj_t BgL_fz00_774;
BgL_fz00_774 = 
CAR(BgL_az00_773); 
{ /* ./Integrate/ctn.scm 39 */
obj_t BgL_gz00_775;
{ /* ./Integrate/ctn.scm 40 */
obj_t BgL_auxz00_1280;
BgL_auxz00_1280 = 
CDR(BgL_az00_773); 
BgL_gz00_775 = 
CAR(BgL_auxz00_1280); } 
{ /* ./Integrate/ctn.scm 40 */
obj_t BgL_kz00_776;
{ /* ./Integrate/ctn.scm 41 */
obj_t BgL_auxz00_1283;
{ /* ./Integrate/ctn.scm 41 */
obj_t BgL_auxz00_1284;
BgL_auxz00_1284 = 
CDR(BgL_az00_773); 
BgL_auxz00_1283 = 
CDR(BgL_auxz00_1284); } 
BgL_kz00_776 = 
CAR(BgL_auxz00_1283); } 
{ /* ./Integrate/ctn.scm 41 */
BgL_valuez00_bglt BgL_fiz00_777;
{ /* ./Integrate/ctn.scm 42 */
BgL_variablez00_bglt BgL_obj1100z00_1210;
BgL_obj1100z00_1210 = 
(BgL_variablez00_bglt)(BgL_fz00_774); 
BgL_fiz00_777 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1210))->BgL_valuez00); } 
{ /* ./Integrate/ctn.scm 42 */
BgL_valuez00_bglt BgL_giz00_778;
{ /* ./Integrate/ctn.scm 43 */
BgL_variablez00_bglt BgL_obj1100z00_1211;
BgL_obj1100z00_1211 = 
(BgL_variablez00_bglt)(BgL_gz00_775); 
BgL_giz00_778 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1211))->BgL_valuez00); } 
{ /* ./Integrate/ctn.scm 43 */

{ /* ./Integrate/ctn.scm 45 */
bool_t BgL_test2903z00_779;
BgL_test2903z00_779 = 
BGl_iszd2azf3z21zz__objectz00(BgL_gz00_775, BGl_globalz00zzast_varz00); 
if(BgL_test2903z00_779)
{ /* ./Integrate/ctn.scm 45 */
{ /* ./Integrate/ctn.scm 46 */
obj_t BgL_arg2905z00_780;
BgL_arg2905z00_780 = 
CDR(BgL_asz00_769); 
{ 
obj_t BgL_asz00_1295;
BgL_asz00_1295 = BgL_arg2905z00_780; 
BgL_asz00_769 = BgL_asz00_1295; 
goto BgL_loopz00_771;} } }  else 
{ /* ./Integrate/ctn.scm 47 */
bool_t BgL_test2908z00_781;
{ /* ./Integrate/ctn.scm 47 */
obj_t BgL_auxz00_1296;
BgL_auxz00_1296 = 
CNST_TABLE_REF(((long)0)); 
BgL_test2908z00_781 = 
(BgL_kz00_776==BgL_auxz00_1296); } 
if(BgL_test2908z00_781)
{ /* ./Integrate/ctn.scm 47 */
{ /* ./Integrate/ctn.scm 48 */
obj_t BgL_arg2910z00_782;
{ /* ./Integrate/ctn.scm 48 */
obj_t BgL_arg2913z00_783;
{ /* ./Integrate/ctn.scm 48 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2833z00_1214;
BgL_obj2833z00_1214 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
{ 
obj_t BgL_auxz00_1301;
{ /* ./Integrate/ctn.scm 48 */
BgL_objectz00_bglt BgL_auxz00_1302;
BgL_auxz00_1302 = 
(BgL_objectz00_bglt)(BgL_obj2833z00_1214); 
BgL_auxz00_1301 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1302); } 
BgL_arg2913z00_783 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1301))->BgL_ctz00); } } 
BgL_arg2910z00_782 = 
MAKE_PAIR(BgL_gz00_775, BgL_arg2913z00_783); } 
{ /* ./Integrate/ctn.scm 48 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2835z00_1215;obj_t BgL_val2834z00_1216;
BgL_obj2835z00_1215 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
BgL_val2834z00_1216 = BgL_arg2910z00_782; 
{ 
obj_t BgL_auxz00_1308;
{ /* ./Integrate/ctn.scm 48 */
BgL_objectz00_bglt BgL_auxz00_1309;
BgL_auxz00_1309 = 
(BgL_objectz00_bglt)(BgL_obj2835z00_1215); 
BgL_auxz00_1308 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1309); } 
((((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1308))->BgL_ctz00) = ((obj_t)BgL_val2834z00_1216), BUNSPEC); } } } 
{ /* ./Integrate/ctn.scm 49 */
bool_t BgL_test2916z00_784;
if(
(BgL_fz00_774==BgL_gz00_775))
{ /* ./Integrate/ctn.scm 49 */
BgL_test2916z00_784 = ((bool_t)0); }  else 
{ /* ./Integrate/ctn.scm 50 */
bool_t BgL_testz00_1315;
{ /* ./Integrate/ctn.scm 50 */
obj_t BgL_auxz00_1316;
{ /* ./Integrate/ctn.scm 50 */
obj_t BgL_auxz00_1317;
{ /* ./Integrate/ctn.scm 50 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2836z00_1217;
BgL_obj2836z00_1217 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
{ 
obj_t BgL_auxz00_1319;
{ /* ./Integrate/ctn.scm 50 */
BgL_objectz00_bglt BgL_auxz00_1320;
BgL_auxz00_1320 = 
(BgL_objectz00_bglt)(BgL_obj2836z00_1217); 
BgL_auxz00_1319 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1320); } 
BgL_auxz00_1317 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1319))->BgL_kontz00); } } 
BgL_auxz00_1316 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_gz00_775, BgL_auxz00_1317); } 
BgL_testz00_1315 = 
CBOOL(BgL_auxz00_1316); } 
if(BgL_testz00_1315)
{ /* ./Integrate/ctn.scm 50 */
BgL_test2916z00_784 = ((bool_t)0); }  else 
{ /* ./Integrate/ctn.scm 50 */
BgL_test2916z00_784 = ((bool_t)1); } } 
if(BgL_test2916z00_784)
{ /* ./Integrate/ctn.scm 51 */
obj_t BgL_arg2918z00_785;
{ /* ./Integrate/ctn.scm 51 */
obj_t BgL_arg2921z00_786;
{ /* ./Integrate/ctn.scm 51 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2836z00_1218;
BgL_obj2836z00_1218 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
{ 
obj_t BgL_auxz00_1328;
{ /* ./Integrate/ctn.scm 51 */
BgL_objectz00_bglt BgL_auxz00_1329;
BgL_auxz00_1329 = 
(BgL_objectz00_bglt)(BgL_obj2836z00_1218); 
BgL_auxz00_1328 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1329); } 
BgL_arg2921z00_786 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1328))->BgL_kontz00); } } 
BgL_arg2918z00_785 = 
MAKE_PAIR(BgL_gz00_775, BgL_arg2921z00_786); } 
{ /* ./Integrate/ctn.scm 51 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2838z00_1219;obj_t BgL_val2837z00_1220;
BgL_obj2838z00_1219 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
BgL_val2837z00_1220 = BgL_arg2918z00_785; 
{ 
obj_t BgL_auxz00_1335;
{ /* ./Integrate/ctn.scm 51 */
BgL_objectz00_bglt BgL_auxz00_1336;
BgL_auxz00_1336 = 
(BgL_objectz00_bglt)(BgL_obj2838z00_1219); 
BgL_auxz00_1335 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1336); } 
((((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1335))->BgL_kontz00) = ((obj_t)BgL_val2837z00_1220), BUNSPEC); } } }  else 
{ /* ./Integrate/ctn.scm 49 */BFALSE; } } 
{ /* ./Integrate/ctn.scm 52 */
obj_t BgL_arg2932z00_790;
BgL_arg2932z00_790 = 
CDR(BgL_asz00_769); 
{ 
obj_t BgL_asz00_1341;
BgL_asz00_1341 = BgL_arg2932z00_790; 
BgL_asz00_769 = BgL_asz00_1341; 
goto BgL_loopz00_771;} } }  else 
{ /* ./Integrate/ctn.scm 53 */
bool_t BgL_test2935z00_791;
{ /* ./Integrate/ctn.scm 53 */
obj_t BgL_auxz00_1342;
BgL_auxz00_1342 = 
CNST_TABLE_REF(((long)1)); 
BgL_test2935z00_791 = 
(BgL_kz00_776==BgL_auxz00_1342); } 
if(BgL_test2935z00_791)
{ /* ./Integrate/ctn.scm 53 */
{ /* ./Integrate/ctn.scm 54 */
obj_t BgL_port2899z00_792;
BgL_port2899z00_792 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string3441z00zzintegrate_ctnz00, BgL_port2899z00_792); 
display_string(BGl_string3442z00zzintegrate_ctnz00, BgL_port2899z00_792); 
{ /* ./Integrate/ctn.scm 54 */
obj_t BgL_auxz00_1349;
BgL_auxz00_1349 = 
BINT(((long)54)); 
display_fixnum(BgL_auxz00_1349, BgL_port2899z00_792); } 
display_string(BGl_string3443z00zzintegrate_ctnz00, BgL_port2899z00_792); 
display_string(BGl_string3444z00zzintegrate_ctnz00, BgL_port2899z00_792); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port2899z00_792); } 
{ /* ./Integrate/ctn.scm 55 */
obj_t BgL_procz00_1223;
BgL_procz00_1223 = 
CNST_TABLE_REF(((long)2)); 
FAILURE(BgL_procz00_1223,BGl_string3445z00zzintegrate_ctnz00,BgL_az00_773);} }  else 
{ /* ./Integrate/ctn.scm 60 */
bool_t BgL_test2944z00_793;
{ /* ./Integrate/ctn.scm 60 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2827z00_1226;
BgL_obj2827z00_1226 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_giz00_778); 
{ /* ./Integrate/ctn.scm 60 */
obj_t BgL_auxz00_1358;
{ 
obj_t BgL_auxz00_1359;
{ /* ./Integrate/ctn.scm 60 */
BgL_objectz00_bglt BgL_auxz00_1360;
BgL_auxz00_1360 = 
(BgL_objectz00_bglt)(BgL_obj2827z00_1226); 
BgL_auxz00_1359 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1360); } 
BgL_auxz00_1358 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1359))->BgL_uz00); } 
BgL_test2944z00_793 = 
CBOOL(BgL_auxz00_1358); } } 
if(BgL_test2944z00_793)
{ /* ./Integrate/ctn.scm 60 */
{ /* ./Integrate/ctn.scm 61 */
obj_t BgL_arg2946z00_794;
{ /* ./Integrate/ctn.scm 61 */
obj_t BgL_arg2949z00_795;
{ /* ./Integrate/ctn.scm 61 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2833z00_1227;
BgL_obj2833z00_1227 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
{ 
obj_t BgL_auxz00_1367;
{ /* ./Integrate/ctn.scm 61 */
BgL_objectz00_bglt BgL_auxz00_1368;
BgL_auxz00_1368 = 
(BgL_objectz00_bglt)(BgL_obj2833z00_1227); 
BgL_auxz00_1367 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1368); } 
BgL_arg2949z00_795 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1367))->BgL_ctz00); } } 
BgL_arg2946z00_794 = 
MAKE_PAIR(BgL_gz00_775, BgL_arg2949z00_795); } 
{ /* ./Integrate/ctn.scm 61 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2835z00_1228;obj_t BgL_val2834z00_1229;
BgL_obj2835z00_1228 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
BgL_val2834z00_1229 = BgL_arg2946z00_794; 
{ 
obj_t BgL_auxz00_1374;
{ /* ./Integrate/ctn.scm 61 */
BgL_objectz00_bglt BgL_auxz00_1375;
BgL_auxz00_1375 = 
(BgL_objectz00_bglt)(BgL_obj2835z00_1228); 
BgL_auxz00_1374 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1375); } 
((((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1374))->BgL_ctz00) = ((obj_t)BgL_val2834z00_1229), BUNSPEC); } } } 
{ /* ./Integrate/ctn.scm 62 */
bool_t BgL_test2952z00_796;
{ /* ./Integrate/ctn.scm 62 */
obj_t BgL_auxz00_1379;
{ /* ./Integrate/ctn.scm 62 */
obj_t BgL_auxz00_1380;
{ /* ./Integrate/ctn.scm 62 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2836z00_1230;
BgL_obj2836z00_1230 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
{ 
obj_t BgL_auxz00_1382;
{ /* ./Integrate/ctn.scm 62 */
BgL_objectz00_bglt BgL_auxz00_1383;
BgL_auxz00_1383 = 
(BgL_objectz00_bglt)(BgL_obj2836z00_1230); 
BgL_auxz00_1382 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1383); } 
BgL_auxz00_1380 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1382))->BgL_kontz00); } } 
BgL_auxz00_1379 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_gz00_775, BgL_auxz00_1380); } 
BgL_test2952z00_796 = 
CBOOL(BgL_auxz00_1379); } 
if(BgL_test2952z00_796)
{ /* ./Integrate/ctn.scm 62 */BFALSE; }  else 
{ /* ./Integrate/ctn.scm 63 */
obj_t BgL_arg2954z00_797;
{ /* ./Integrate/ctn.scm 63 */
obj_t BgL_arg2957z00_798;
{ /* ./Integrate/ctn.scm 63 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2836z00_1231;
BgL_obj2836z00_1231 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
{ 
obj_t BgL_auxz00_1391;
{ /* ./Integrate/ctn.scm 63 */
BgL_objectz00_bglt BgL_auxz00_1392;
BgL_auxz00_1392 = 
(BgL_objectz00_bglt)(BgL_obj2836z00_1231); 
BgL_auxz00_1391 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1392); } 
BgL_arg2957z00_798 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1391))->BgL_kontz00); } } 
BgL_arg2954z00_797 = 
MAKE_PAIR(BgL_gz00_775, BgL_arg2957z00_798); } 
{ /* ./Integrate/ctn.scm 63 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2838z00_1232;obj_t BgL_val2837z00_1233;
BgL_obj2838z00_1232 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
BgL_val2837z00_1233 = BgL_arg2954z00_797; 
{ 
obj_t BgL_auxz00_1398;
{ /* ./Integrate/ctn.scm 63 */
BgL_objectz00_bglt BgL_auxz00_1399;
BgL_auxz00_1399 = 
(BgL_objectz00_bglt)(BgL_obj2838z00_1232); 
BgL_auxz00_1398 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1399); } 
((((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1398))->BgL_kontz00) = ((obj_t)BgL_val2837z00_1233), BUNSPEC); } } } } 
{ /* ./Integrate/ctn.scm 64 */
obj_t BgL_arg2965z00_800;
BgL_arg2965z00_800 = 
CDR(BgL_asz00_769); 
{ 
obj_t BgL_asz00_1404;
BgL_asz00_1404 = BgL_arg2965z00_800; 
BgL_asz00_769 = BgL_asz00_1404; 
goto BgL_loopz00_771;} } }  else 
{ /* ./Integrate/ctn.scm 60 */
{ /* ./Integrate/ctn.scm 66 */
obj_t BgL_arg2969z00_801;
{ /* ./Integrate/ctn.scm 66 */
obj_t BgL_arg2973z00_802;
{ /* ./Integrate/ctn.scm 66 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2830z00_1235;
BgL_obj2830z00_1235 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
{ 
obj_t BgL_auxz00_1406;
{ /* ./Integrate/ctn.scm 66 */
BgL_objectz00_bglt BgL_auxz00_1407;
BgL_auxz00_1407 = 
(BgL_objectz00_bglt)(BgL_obj2830z00_1235); 
BgL_auxz00_1406 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1407); } 
BgL_arg2973z00_802 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1406))->BgL_cnz00); } } 
BgL_arg2969z00_801 = 
MAKE_PAIR(BgL_gz00_775, BgL_arg2973z00_802); } 
{ /* ./Integrate/ctn.scm 66 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2832z00_1236;obj_t BgL_val2831z00_1237;
BgL_obj2832z00_1236 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_fiz00_777); 
BgL_val2831z00_1237 = BgL_arg2969z00_801; 
{ 
obj_t BgL_auxz00_1413;
{ /* ./Integrate/ctn.scm 66 */
BgL_objectz00_bglt BgL_auxz00_1414;
BgL_auxz00_1414 = 
(BgL_objectz00_bglt)(BgL_obj2832z00_1236); 
BgL_auxz00_1413 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1414); } 
((((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1413))->BgL_cnz00) = ((obj_t)BgL_val2831z00_1237), BUNSPEC); } } } 
{ /* ./Integrate/ctn.scm 67 */
bool_t BgL_test2976z00_803;
{ /* ./Integrate/ctn.scm 67 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2839z00_1238;
BgL_obj2839z00_1238 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_giz00_778); 
{ 
obj_t BgL_auxz00_1419;
{ /* ./Integrate/ctn.scm 67 */
BgL_objectz00_bglt BgL_auxz00_1420;
BgL_auxz00_1420 = 
(BgL_objectz00_bglt)(BgL_obj2839z00_1238); 
BgL_auxz00_1419 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1420); } 
BgL_test2976z00_803 = 
(((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1419))->BgL_gzf3zf3); } } 
if(BgL_test2976z00_803)
{ /* ./Integrate/ctn.scm 71 */
obj_t BgL_arg2978z00_804;
BgL_arg2978z00_804 = 
CDR(BgL_asz00_769); 
{ 
obj_t BgL_asz00_1426;
BgL_asz00_1426 = BgL_arg2978z00_804; 
BgL_asz00_769 = BgL_asz00_1426; 
goto BgL_loopz00_771;} }  else 
{ /* ./Integrate/ctn.scm 67 */
{ /* ./Integrate/ctn.scm 69 */
BgL_sfunzf2iinfozf2_bglt BgL_obj2841z00_1240;bool_t BgL_val2840z00_1241;
BgL_obj2841z00_1240 = 
(BgL_sfunzf2iinfozf2_bglt)(BgL_giz00_778); 
BgL_val2840z00_1241 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_1428;
{ /* ./Integrate/ctn.scm 69 */
BgL_objectz00_bglt BgL_auxz00_1429;
BgL_auxz00_1429 = 
(BgL_objectz00_bglt)(BgL_obj2841z00_1240); 
BgL_auxz00_1428 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1429); } 
((((BgL_sfunzf2iinfozf2_bglt)CREF(BgL_auxz00_1428))->BgL_gzf3zf3) = ((bool_t)BgL_val2840z00_1241), BUNSPEC); } } 
{ /* ./Integrate/ctn.scm 70 */
obj_t BgL_arg2983z00_805;obj_t BgL_arg2984z00_806;
BgL_arg2983z00_805 = 
CDR(BgL_asz00_769); 
BgL_arg2984z00_806 = 
MAKE_PAIR(BgL_gz00_775, BgL_gzf2cnzf2_770); 
{ 
obj_t BgL_gzf2cnzf2_1436;obj_t BgL_asz00_1435;
BgL_asz00_1435 = BgL_arg2983z00_805; 
BgL_gzf2cnzf2_1436 = BgL_arg2984z00_806; 
BgL_gzf2cnzf2_770 = BgL_gzf2cnzf2_1436; 
BgL_asz00_769 = BgL_asz00_1435; 
goto BgL_loopz00_771;} } } } } } } } } } } } } } } } } } } 
}



/* _Cn&Ct! */
obj_t BGl__Cnz62Ctz12z70zzintegrate_ctnz00(obj_t BgL_envz00_1243, obj_t BgL_az00_1244)
{ AN_OBJECT;
{ /* ./Integrate/ctn.scm 31 */
return 
BGl_Cnz62Ctz12z70zzintegrate_ctnz00(BgL_az00_1244);} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzintegrate_ctnz00()
{ AN_OBJECT;
{ /* ./Integrate/ctn.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzintegrate_ctnz00()
{ AN_OBJECT;
{ /* ./Integrate/ctn.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "integrate_ctn"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "integrate_ctn"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "integrate_ctn"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "integrate_ctn"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "integrate_ctn"); 
BGl_modulezd2initializa7ationz75zzintegrate_infoz00(((long)0), "integrate_ctn"); 
return 
BGl_modulezd2initializa7ationz75zzintegrate_az00(((long)47899), "integrate_ctn");} 
}

