/*===========================================================================*/
/*   (Cfa/iterate.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 Cfa/iterate.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_approxz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
   bool_t BgL_typezd2lockedzf3z21;
   obj_t BgL_allocsz00;
   bool_t BgL_topzf3zf3;
   long BgL_lostzd2stampzd2;
} *BgL_approxz00_bglt;

typedef struct BgL_cfunzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_cfunzf2cinfozf2_bglt;

typedef struct BgL_externzd2sfunzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_externzd2sfunzf2cinfoz20_bglt;

typedef struct BgL_internzd2sfunzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   long BgL_stampz00;
} *BgL_internzd2sfunzf2cinfoz20_bglt;

typedef struct BgL_scnstzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_scnstzf2cinfozf2_bglt;

typedef struct BgL_prezd2clozd2envz00_bgl {
   char dummy;
} *BgL_prezd2clozd2envz00_bglt;

typedef struct BgL_svarzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   bool_t BgL_clozd2envzf3z21;
} *BgL_svarzf2cinfozf2_bglt;

typedef struct BgL_cvarzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_cvarzf2cinfozf2_bglt;

typedef struct BgL_sexitzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_sexitzf2cinfozf2_bglt;

typedef struct BgL_reshapedzd2localzd2_bgl {
   obj_t BgL_bindingzd2valuezd2;
} *BgL_reshapedzd2localzd2_bglt;

typedef struct BgL_reshapedzd2globalzd2_bgl {
   char dummy;
} *BgL_reshapedzd2globalzd2_bglt;

typedef struct BgL_atomzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_atomzf2cinfozf2_bglt;

typedef struct BgL_kwotezf2nodezf2_bgl {
   struct BgL_nodez00_bgl * BgL_nodez00;
} *BgL_kwotezf2nodezf2_bglt;

typedef struct BgL_kwotezf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_kwotezf2cinfozf2_bglt;

typedef struct BgL_appzd2lyzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_appzd2lyzf2cinfoz20_bglt;

typedef struct BgL_funcallzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_vazd2approxzd2;
   bool_t BgL_arityzd2errorzd2noticedzf3zf3;
   bool_t BgL_typezd2errorzd2noticedzf3zf3;
} *BgL_funcallzf2cinfozf2_bglt;

typedef struct BgL_setqzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_setqzf2cinfozf2_bglt;

typedef struct BgL_conditionalzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_conditionalzf2cinfozf2_bglt;

typedef struct BgL_failzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_failzf2cinfozf2_bglt;

typedef struct BgL_selectzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_selectzf2cinfozf2_bglt;

typedef struct BgL_setzd2exzd2itzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_setzd2exzd2itzf2cinfozf2_bglt;

typedef struct BgL_jumpzd2exzd2itzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_jumpzd2exzd2itzf2cinfozf2_bglt;

typedef struct BgL_prezd2makezd2boxz00_bgl {
   char dummy;
} *BgL_prezd2makezd2boxz00_bglt;

typedef struct BgL_makezd2boxzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_makezd2boxzf2cinfoz20_bglt;

typedef struct BgL_makezd2boxzf2ozd2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
} *BgL_makezd2boxzf2ozd2cinfozf2_bglt;

typedef struct BgL_boxzd2setz12zf2cinfoz32_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2setz12zf2cinfoz32_bglt;

typedef struct BgL_boxzd2refzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2refzf2cinfoz20_bglt;

typedef struct BgL_boxzd2setz12zf2ozd2cinfoze0_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2setz12zf2ozd2cinfoze0_bglt;

typedef struct BgL_boxzd2refzf2ozd2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2refzf2ozd2cinfozf2_bglt;

typedef struct BgL_prezd2arithmeticzd2appz00_bgl {
   obj_t BgL_speczd2typeszd2;
} *BgL_prezd2arithmeticzd2appz00_bglt;

typedef struct BgL_arithmeticzd2appzd2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   obj_t BgL_speczd2typeszd2;
} *BgL_arithmeticzd2appzd2_bglt;

typedef struct BgL_prezd2makezd2procedurezd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2procedurezd2appzd2_bglt;

typedef struct BgL_prezd2procedurezd2refzd2appzd2_bgl {
   char dummy;
} *BgL_prezd2procedurezd2refzd2appzd2_bglt;

typedef struct BgL_prezd2procedurezd2setz12zd2appzc0_bgl {
   char dummy;
} *BgL_prezd2procedurezd2setz12zd2appzc0_bglt;

typedef struct BgL_makezd2procedurezd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   obj_t BgL_valueszd2approxzd2;
   long BgL_lostzd2stampzd2;
   bool_t BgL_xzd2tzf3z21;
   bool_t BgL_xz00;
   bool_t BgL_tz00;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
} *BgL_makezd2procedurezd2appz00_bglt;

typedef struct BgL_procedurezd2refzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_procedurezd2refzd2appz00_bglt;

typedef struct BgL_procedurezd2setz12zd2appz12_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_procedurezd2setz12zd2appz12_bglt;

typedef struct BgL_prezd2makezd2vectorzd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2vectorzd2appzd2_bglt;

typedef struct BgL_makezd2vectorzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
   long BgL_lostzd2stampzd2;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
   bool_t BgL_seenzf3zf3;
} *BgL_makezd2vectorzd2appz00_bglt;

typedef struct BgL_prezd2makezd2structzd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2structzd2appzd2_bglt;

typedef struct BgL_prezd2structzd2refzd2appzd2_bgl {
   char dummy;
} *BgL_prezd2structzd2refzd2appzd2_bglt;

typedef struct BgL_prezd2structzd2setz12zd2appzc0_bgl {
   char dummy;
} *BgL_prezd2structzd2setz12zd2appzc0_bglt;

typedef struct BgL_makezd2structzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
   long BgL_lostzd2stampzd2;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
} *BgL_makezd2structzd2appz00_bglt;

typedef struct BgL_structzd2refzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_structzd2refzd2appz00_bglt;

typedef struct BgL_structzd2setz12zd2appz12_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_structzd2setz12zd2appz12_bglt;


static obj_t BGl_methodzd2initzd2zzcfa_iteratez00();
BGL_IMPORT obj_t open_input_string(obj_t);
extern BgL_approxz00_bglt BGl_loosez12z12zzcfa_loosez00(BgL_approxz00_bglt, obj_t);
extern obj_t BGl_sfunz00zzast_varz00;
extern BgL_approxz00_bglt BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_approxz00_bglt, BgL_approxz00_bglt);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_cfazd2exportzd2varz12zd2svarzf2Cinfo4097z32zzcfa_iteratez00(obj_t, obj_t, obj_t);
static obj_t BGl__cfazd2exportzd2varz12z12zzcfa_iteratez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_cfazd2exportzd2varz12zd2default4094zc0zzcfa_iteratez00(BgL_valuez00_bglt, obj_t);
extern obj_t BGl_unitzd2initializa7ersz75zzast_unitz00();
BGL_EXPORTED_DEF obj_t BGl_za2cfazd2stampza2zd2zzcfa_iteratez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cfazd2exportzd2varz12z12zzcfa_iteratez00(BgL_valuez00_bglt, obj_t);
static obj_t BGl_cnstzd2initzd2zzcfa_iteratez00();
BGL_EXPORTED_DECL obj_t BGl_cfazd2iteratez12zc0zzcfa_iteratez00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcfa_iteratez00();
extern obj_t BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00;
static obj_t BGl_za2cfazd2continuezf3za2z21zzcfa_iteratez00 = BUNSPEC;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern BgL_approxz00_bglt BGl_cfaz12z12zzcfa_cfaz00(BgL_nodez00_bglt);
static obj_t BGl_toplevelzd2initzd2zzcfa_iteratez00();
static obj_t BGl__cfazd2internzd2sfunz12z12zzcfa_iteratez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_iteratez00(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_modulezd2initializa7ationz75zzast_unitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_cfaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_infoz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_info2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_loosez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_approxz00(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 obj_t BGl__cfazd2exportzd2varz12zd2default4094zc0zzcfa_iteratez00(obj_t, obj_t, obj_t);
extern obj_t BGl_svarzf2Cinfozf2zzcfa_infoz00;
BGL_EXPORTED_DECL obj_t BGl_cfazd2iteratezd2tozd2fixpointz12zc0zzcfa_iteratez00(obj_t);
extern obj_t BGl_approxzd2setzd2topz12z12zzcfa_approxz00(BgL_approxz00_bglt);
extern obj_t BGl_cfazd2variablezd2valuezd2approxzd2zzcfa_cfaz00(BgL_valuez00_bglt);
static obj_t BGl__cfazd2iteratezd2tozd2fixpointz12zc0zzcfa_iteratez00(obj_t, obj_t);
static obj_t BGl__cfazd2iteratez12zc0zzcfa_iteratez00(obj_t, obj_t);
static obj_t BGl__continuezd2cfaz12zc0zzcfa_iteratez00(obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzcfa_iteratez00 = BUNSPEC;
static obj_t BGl_cfazd2exportzd2varz12zd2internzd2sfunzf2Cinfo4099ze0zzcfa_iteratez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_continuezd2cfaz12zc0zzcfa_iteratez00();
static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_iteratez00();
BGL_EXPORTED_DECL BgL_approxz00_bglt BGl_cfazd2internzd2sfunz12z12zzcfa_iteratez00(BgL_internzd2sfunzf2cinfoz20_bglt, obj_t);
static obj_t __cnst[ 3 ] ;


DEFINE_STRING( BGl_string5030z00zzcfa_iteratez00, BgL_bgl_string5030za700za7za7cfa_iterateza7005057z00, "cfa-export-var!-default4094 all export ", 39 );
DEFINE_STRING( BGl_string5029z00zzcfa_iteratez00, BgL_bgl_string5029za700za7za7cfa_iterateza7005058z00, "No method for this object", 25 );
DEFINE_STATIC_PROCEDURE( BGl_cfazd2exportzd2varz12zd2default4094zd2envz12zzcfa_iteratez00, BgL_bgl__cfaza7d2exportza7d2varza712za7d2default4094za7c0za7za7cfa_iterateza7005059z00, BGl__cfazd2exportzd2varz12zd2default4094zc0zzcfa_iteratez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_continuezd2cfaz12zd2envz12zzcfa_iteratez00, BgL_bgl__continueza7d2cfaza712za7c0za7za7cfa_iterateza7005060z00, BGl__continuezd2cfaz12zc0zzcfa_iteratez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_cfazd2iteratez12zd2envz12zzcfa_iteratez00, BgL_bgl__cfaza7d2iterateza712za7c0za7za7cfa_iterateza7005061z00, BGl__cfazd2iteratez12zc0zzcfa_iteratez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cfazd2iteratezd2tozd2fixpointz12zd2envz12zzcfa_iteratez00, BgL_bgl__cfaza7d2iterateza7d2toza7d2fixpointza712za7c0za7za7cfa_iterateza7005062z00, BGl__cfazd2iteratezd2tozd2fixpointz12zc0zzcfa_iteratez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cfazd2internzd2sfunz12zd2envzc0zzcfa_iteratez00, BgL_bgl__cfaza7d2internza7d2sfunza712za712za7za7cfa_iterateza7005063za7, BGl__cfazd2internzd2sfunz12z12zzcfa_iteratez00, 0L, 2 );
DEFINE_EXPORT_GENERIC( BGl_cfazd2exportzd2varz12zd2envzc0zzcfa_iteratez00, BgL_bgl__cfaza7d2exportza7d2varza712za712za7za7cfa_iterateza7005064za7, BGl__cfazd2exportzd2varz12z12zzcfa_iteratez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5027z00zzcfa_iteratez00, BgL_bgl_cfaza7d2exportza7d2varza712za7d2svarza7f2cinfo4097za732za7za7cfa_iterateza7005065za7, BGl_cfazd2exportzd2varz12zd2svarzf2Cinfo4097z32zzcfa_iteratez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5028z00zzcfa_iteratez00, BgL_bgl_cfaza7d2exportza7d2varza712za7d2internza7d2sfunza7f2cinfo4099za7e0za7za7cfa_iterateza7005066z00, BGl_cfazd2exportzd2varz12zd2internzd2sfunzf2Cinfo4099ze0zzcfa_iteratez00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcfa_iteratez00(long BgL_checksumz00_1627, char * BgL_fromz00_1628)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcfa_iteratez00))
{ 
BGl_requirezd2initializa7ationz75zzcfa_iteratez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcfa_iteratez00(); 
BGl_cnstzd2initzd2zzcfa_iteratez00(); 
BGl_importedzd2moduleszd2initz00zzcfa_iteratez00(); 
BGl_methodzd2initzd2zzcfa_iteratez00(); 
BGl_toplevelzd2initzd2zzcfa_iteratez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcfa_iteratez00()
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cfa_iterate"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cfa_iterate"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "cfa_iterate"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcfa_iteratez00()
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 15 */
{ /* ./Cfa/iterate.scm 15 */
obj_t BgL_cportz00_1620;
BgL_cportz00_1620 = 
open_input_string(BGl_string5030z00zzcfa_iteratez00); 
{ 
long BgL_iz00_1621;
BgL_iz00_1621 = ((long)2); 
BgL_loopz00_1622:
{ /* ./Cfa/iterate.scm 15 */
bool_t BgL_test5032z00_1623;
BgL_test5032z00_1623 = 
(BgL_iz00_1621==((long)-1)); 
if(BgL_test5032z00_1623)
{ /* ./Cfa/iterate.scm 15 */
return BUNSPEC;}  else 
{ /* ./Cfa/iterate.scm 15 */
{ /* ./Cfa/iterate.scm 15 */
obj_t BgL_arg5034z00_1624;
{ /* ./Cfa/iterate.scm 15 */
obj_t BgL_list5037z00_1625;
BgL_list5037z00_1625 = 
MAKE_PAIR(BgL_cportz00_1620, BNIL); 
BgL_arg5034z00_1624 = 
BGl_readz00zz__readerz00(BgL_list5037z00_1625); } 
{ /* ./Cfa/iterate.scm 15 */
int BgL_auxz00_1645;
BgL_auxz00_1645 = 
(int)(BgL_iz00_1621); 
CNST_TABLE_SET(BgL_auxz00_1645, BgL_arg5034z00_1624); } } 
{ /* ./Cfa/iterate.scm 15 */
int BgL_auxz00_1626;
{ /* ./Cfa/iterate.scm 15 */
long BgL_auxz00_1648;
BgL_auxz00_1648 = 
(BgL_iz00_1621-((long)1)); 
BgL_auxz00_1626 = 
(int)(BgL_auxz00_1648); } 
{ 
long BgL_iz00_1651;
BgL_iz00_1651 = 
(long)(BgL_auxz00_1626); 
BgL_iz00_1621 = BgL_iz00_1651; 
goto BgL_loopz00_1622;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcfa_iteratez00()
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 15 */
BGl_za2cfazd2continuezf3za2z21zzcfa_iteratez00 = BUNSPEC; 
return ( 
BGl_za2cfazd2stampza2zd2zzcfa_iteratez00 = 
BINT(((long)-1)), BUNSPEC) ;} 
}



/* cfa-iterate-to-fixpoint! */
BGL_EXPORTED_DEF obj_t BGl_cfazd2iteratezd2tozd2fixpointz12zc0zzcfa_iteratez00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 37 */
BGl_za2cfazd2stampza2zd2zzcfa_iteratez00 = 
BINT(((long)-1)); 
{ /* ./Cfa/iterate.scm 42 */
obj_t BgL_glodefsz00_937;
BgL_glodefsz00_937 = BNIL; 
{ 
obj_t BgL_l4082z00_938;
BgL_l4082z00_938 = BgL_globalsz00_1; 
BgL_forzd2each4083zd2_939:
{ /* ./Cfa/iterate.scm 43 */
bool_t BgL_test4101z00_940;
BgL_test4101z00_940 = 
PAIRP(BgL_l4082z00_938); 
if(BgL_test4101z00_940)
{ /* ./Cfa/iterate.scm 43 */
{ /* ./Cfa/iterate.scm 44 */
obj_t BgL_gz00_941;
BgL_gz00_941 = 
CAR(BgL_l4082z00_938); 
{ /* ./Cfa/iterate.scm 44 */
bool_t BgL_test4102z00_942;
{ /* ./Cfa/iterate.scm 44 */
obj_t BgL_auxz00_1661;obj_t BgL_auxz00_1658;
BgL_auxz00_1661 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Cfa/iterate.scm 44 */
BgL_globalz00_bglt BgL_obj1168z00_1508;
BgL_obj1168z00_1508 = 
(BgL_globalz00_bglt)(BgL_gz00_941); 
BgL_auxz00_1658 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1168z00_1508))->BgL_importz00); } 
BgL_test4102z00_942 = 
(BgL_auxz00_1658==BgL_auxz00_1661); } 
if(BgL_test4102z00_942)
{ /* ./Cfa/iterate.scm 44 */
BgL_glodefsz00_937 = 
MAKE_PAIR(BgL_gz00_941, BgL_glodefsz00_937); }  else 
{ /* ./Cfa/iterate.scm 44 */BFALSE; } } } 
{ /* ./Cfa/iterate.scm 43 */
obj_t BgL_arg4111z00_945;
BgL_arg4111z00_945 = 
CDR(BgL_l4082z00_938); 
{ 
obj_t BgL_l4082z00_1667;
BgL_l4082z00_1667 = BgL_arg4111z00_945; 
BgL_l4082z00_938 = BgL_l4082z00_1667; 
goto BgL_forzd2each4083zd2_939;} } }  else 
{ /* ./Cfa/iterate.scm 43 */((bool_t)1); } } } 
{ /* ./Cfa/iterate.scm 48 */
obj_t BgL_arg4116z00_946;
BgL_arg4116z00_946 = 
BGl_unitzd2initializa7ersz75zzast_unitz00(); 
BgL_glodefsz00_937 = 
bgl_append2(BgL_arg4116z00_946, BgL_glodefsz00_937); } 
BGl_continuezd2cfaz12zc0zzcfa_iteratez00(); 
{ 

BgL_loopz00_947:
{ /* ./Cfa/iterate.scm 53 */
bool_t BgL_test4121z00_948;
BgL_test4121z00_948 = 
CBOOL(BGl_za2cfazd2continuezf3za2z21zzcfa_iteratez00); 
if(BgL_test4121z00_948)
{ /* ./Cfa/iterate.scm 53 */
BGl_cfazd2iteratez12zc0zzcfa_iteratez00(BgL_glodefsz00_937); 
goto BgL_loopz00_947;}  else 
{ /* ./Cfa/iterate.scm 53 */
return BgL_glodefsz00_937;} } } } } 
}



/* _cfa-iterate-to-fixpoint! */
obj_t BGl__cfazd2iteratezd2tozd2fixpointz12zc0zzcfa_iteratez00(obj_t BgL_envz00_1598, obj_t BgL_globalsz00_1599)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 37 */
return 
BGl_cfazd2iteratezd2tozd2fixpointz12zc0zzcfa_iteratez00(BgL_globalsz00_1599);} 
}



/* cfa-iterate! */
BGL_EXPORTED_DEF obj_t BGl_cfazd2iteratez12zc0zzcfa_iteratez00(obj_t BgL_globalsz00_2)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 63 */
BGl_za2cfazd2continuezf3za2z21zzcfa_iteratez00 = BFALSE; 
{ /* ./Cfa/iterate.scm 65 */
long BgL_za72za7_1511;
BgL_za72za7_1511 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
{ /* ./Cfa/iterate.scm 65 */
long BgL_auxz00_1676;
BgL_auxz00_1676 = 
(((long)1)+BgL_za72za7_1511); 
BGl_za2cfazd2stampza2zd2zzcfa_iteratez00 = 
BINT(BgL_auxz00_1676); } } 
{ 
obj_t BgL_l4084z00_949;
BgL_l4084z00_949 = BgL_globalsz00_2; 
BgL_forzd2each4085zd2_950:
{ /* ./Cfa/iterate.scm 67 */
bool_t BgL_test4128z00_951;
BgL_test4128z00_951 = 
PAIRP(BgL_l4084z00_949); 
if(BgL_test4128z00_951)
{ /* ./Cfa/iterate.scm 67 */
{ /* ./Cfa/iterate.scm 68 */
obj_t BgL_gz00_952;
BgL_gz00_952 = 
CAR(BgL_l4084z00_949); 
{ /* ./Cfa/iterate.scm 69 */
BgL_valuez00_bglt BgL_arg4130z00_953;
{ /* ./Cfa/iterate.scm 69 */
BgL_variablez00_bglt BgL_obj1100z00_1514;
BgL_obj1100z00_1514 = 
(BgL_variablez00_bglt)(BgL_gz00_952); 
BgL_arg4130z00_953 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1514))->BgL_valuez00); } 
{ /* ./Cfa/iterate.scm 69 */
obj_t BgL_method4095z00_1517;
{ /* ./Cfa/iterate.scm 69 */
BgL_objectz00_bglt BgL_objz00_1518;
BgL_objz00_1518 = 
(BgL_objectz00_bglt)(BgL_arg4130z00_953); 
{ /* ./Cfa/iterate.scm 69 */
long BgL_objzd2classzd2numz00_1519;
BgL_objzd2classzd2numz00_1519 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1518); 
{ /* ./Cfa/iterate.scm 69 */
obj_t BgL_arg2017z00_1520;
{ /* ./Cfa/iterate.scm 69 */
int BgL_auxz00_1686;
BgL_auxz00_1686 = 
(int)(((long)1)); 
BgL_arg2017z00_1520 = 
PROCEDURE_REF(BGl_cfazd2exportzd2varz12zd2envzc0zzcfa_iteratez00, BgL_auxz00_1686); } 
{ /* ./Cfa/iterate.scm 69 */
int BgL_offsetz00_1523;
BgL_offsetz00_1523 = 
(int)(BgL_objzd2classzd2numz00_1519); 
{ /* ./Cfa/iterate.scm 69 */
long BgL_offsetz00_1524;
{ /* ./Cfa/iterate.scm 69 */
long BgL_auxz00_1690;
BgL_auxz00_1690 = 
(long)(BgL_offsetz00_1523); 
BgL_offsetz00_1524 = 
(BgL_auxz00_1690-OBJECT_TYPE); } 
{ /* ./Cfa/iterate.scm 69 */
long BgL_modz00_1525;
{ /* ./Cfa/iterate.scm 69 */
int BgL_arg2028z00_1526;
BgL_arg2028z00_1526 = 
(int)(((long)8)); 
{ /* ./Cfa/iterate.scm 69 */
long BgL_n2z00_1534;
BgL_n2z00_1534 = 
(long)(BgL_arg2028z00_1526); 
BgL_modz00_1525 = 
(BgL_offsetz00_1524/BgL_n2z00_1534); } } 
{ /* ./Cfa/iterate.scm 69 */
long BgL_restz00_1527;
{ /* ./Cfa/iterate.scm 69 */
int BgL_arg2024z00_1528;
BgL_arg2024z00_1528 = 
(int)(((long)8)); 
{ /* ./Cfa/iterate.scm 69 */
long BgL_n2z00_1537;
BgL_n2z00_1537 = 
(long)(BgL_arg2024z00_1528); 
BgL_restz00_1527 = 
(BgL_offsetz00_1524%BgL_n2z00_1537); } } 
{ /* ./Cfa/iterate.scm 69 */

{ /* ./Cfa/iterate.scm 69 */
obj_t BgL_bucketz00_1529;
{ /* ./Cfa/iterate.scm 69 */
int BgL_kz00_1539;
BgL_kz00_1539 = 
(int)(BgL_modz00_1525); 
BgL_bucketz00_1529 = 
VECTOR_REF(BgL_arg2017z00_1520,BgL_kz00_1539); } 
{ /* ./Cfa/iterate.scm 69 */
int BgL_kz00_1541;
BgL_kz00_1541 = 
(int)(BgL_restz00_1527); 
BgL_method4095z00_1517 = 
VECTOR_REF(BgL_bucketz00_1529,BgL_kz00_1541); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4095z00_1517)(BgL_method4095z00_1517, 
(obj_t)(BgL_arg4130z00_953), BgL_gz00_952, BEOA); } } BNIL; } 
{ /* ./Cfa/iterate.scm 67 */
obj_t BgL_arg4135z00_954;
BgL_arg4135z00_954 = 
CDR(BgL_l4084z00_949); 
{ 
obj_t BgL_l4084z00_1707;
BgL_l4084z00_1707 = BgL_arg4135z00_954; 
BgL_l4084z00_949 = BgL_l4084z00_1707; 
goto BgL_forzd2each4085zd2_950;} } }  else 
{ /* ./Cfa/iterate.scm 67 */((bool_t)1); } } } 
return BNIL;} 
}



/* _cfa-iterate! */
obj_t BGl__cfazd2iteratez12zc0zzcfa_iteratez00(obj_t BgL_envz00_1600, obj_t BgL_globalsz00_1601)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 63 */
return 
BGl_cfazd2iteratez12zc0zzcfa_iteratez00(BgL_globalsz00_1601);} 
}



/* cfa-intern-sfun! */
BGL_EXPORTED_DEF BgL_approxz00_bglt BGl_cfazd2internzd2sfunz12z12zzcfa_iteratez00(BgL_internzd2sfunzf2cinfoz20_bglt BgL_sfunz00_11, obj_t BgL_ownerz00_12)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 124 */
{ /* ./Cfa/iterate.scm 127 */
bool_t BgL_test4139z00_956;
{ /* ./Cfa/iterate.scm 127 */
long BgL_arg4153z00_960;
{ 
obj_t BgL_auxz00_1709;
{ /* ./Cfa/iterate.scm 127 */
BgL_objectz00_bglt BgL_auxz00_1710;
BgL_auxz00_1710 = 
(BgL_objectz00_bglt)(BgL_sfunz00_11); 
BgL_auxz00_1709 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1710); } 
BgL_arg4153z00_960 = 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1709))->BgL_stampz00); } 
{ /* ./Cfa/iterate.scm 127 */
long BgL_n2z00_1545;
BgL_n2z00_1545 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
BgL_test4139z00_956 = 
(BgL_arg4153z00_960==BgL_n2z00_1545); } } 
if(BgL_test4139z00_956)
{ 
obj_t BgL_auxz00_1717;
{ /* ./Cfa/iterate.scm 128 */
BgL_objectz00_bglt BgL_auxz00_1718;
BgL_auxz00_1718 = 
(BgL_objectz00_bglt)(BgL_sfunz00_11); 
BgL_auxz00_1717 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1718); } 
return 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1717))->BgL_approxz00);}  else 
{ /* ./Cfa/iterate.scm 127 */
{ /* ./Cfa/iterate.scm 130 */
long BgL_val2824z00_1548;
BgL_val2824z00_1548 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
{ 
obj_t BgL_auxz00_1723;
{ /* ./Cfa/iterate.scm 130 */
BgL_objectz00_bglt BgL_auxz00_1724;
BgL_auxz00_1724 = 
(BgL_objectz00_bglt)(BgL_sfunz00_11); 
BgL_auxz00_1723 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1724); } 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1723))->BgL_stampz00) = ((long)BgL_val2824z00_1548), BUNSPEC); } } 
{ /* ./Cfa/iterate.scm 131 */
BgL_approxz00_bglt BgL_arg4143z00_957;BgL_approxz00_bglt BgL_arg4144z00_958;
{ 
obj_t BgL_auxz00_1728;
{ /* ./Cfa/iterate.scm 131 */
BgL_objectz00_bglt BgL_auxz00_1729;
BgL_auxz00_1729 = 
(BgL_objectz00_bglt)(BgL_sfunz00_11); 
BgL_auxz00_1728 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1729); } 
BgL_arg4143z00_957 = 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1728))->BgL_approxz00); } 
{ /* ./Cfa/iterate.scm 131 */
obj_t BgL_arg4148z00_959;
{ /* ./Cfa/iterate.scm 131 */
BgL_sfunz00_bglt BgL_obj1370z00_1550;
BgL_obj1370z00_1550 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_11); 
BgL_arg4148z00_959 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1550))->BgL_bodyz00); } 
BgL_arg4144z00_958 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg4148z00_959)); } 
BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_arg4143z00_957, BgL_arg4144z00_958); } 
{ 
obj_t BgL_auxz00_1738;
{ /* ./Cfa/iterate.scm 132 */
BgL_objectz00_bglt BgL_auxz00_1739;
BgL_auxz00_1739 = 
(BgL_objectz00_bglt)(BgL_sfunz00_11); 
BgL_auxz00_1738 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1739); } 
return 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1738))->BgL_approxz00);} } } } 
}



/* _cfa-intern-sfun! */
obj_t BGl__cfazd2internzd2sfunz12z12zzcfa_iteratez00(obj_t BgL_envz00_1605, obj_t BgL_sfunz00_1606, obj_t BgL_ownerz00_1607)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 124 */
{ /* ./Cfa/iterate.scm 125 */
BgL_approxz00_bglt BgL_auxz00_1743;
BgL_auxz00_1743 = 
BGl_cfazd2internzd2sfunz12z12zzcfa_iteratez00(
(BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_sfunz00_1606), BgL_ownerz00_1607); 
return 
(obj_t)(BgL_auxz00_1743);} } 
}



/* continue-cfa! */
BGL_EXPORTED_DEF obj_t BGl_continuezd2cfaz12zc0zzcfa_iteratez00()
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 143 */
if(
CBOOL(BGl_za2cfazd2continuezf3za2z21zzcfa_iteratez00))
{ /* ./Cfa/iterate.scm 144 */BFALSE; }  else 
{ /* ./Cfa/iterate.scm 144 */BNIL; } 
return ( 
BGl_za2cfazd2continuezf3za2z21zzcfa_iteratez00 = BTRUE, BUNSPEC) ;} 
}



/* _continue-cfa! */
obj_t BGl__continuezd2cfaz12zc0zzcfa_iteratez00(obj_t BgL_envz00_1608)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 143 */
return 
BGl_continuezd2cfaz12zc0zzcfa_iteratez00();} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcfa_iteratez00()
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_cfazd2exportzd2varz12zd2envzc0zzcfa_iteratez00, BGl_cfazd2exportzd2varz12zd2default4094zd2envz12zzcfa_iteratez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfazd2exportzd2varz12zd2envzc0zzcfa_iteratez00, BGl_svarzf2Cinfozf2zzcfa_infoz00, BGl_proc5027z00zzcfa_iteratez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfazd2exportzd2varz12zd2envzc0zzcfa_iteratez00, BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00, BGl_proc5028z00zzcfa_iteratez00);} 
}



/* cfa-export-var!-intern-sfun/Cinfo4099 */
obj_t BGl_cfazd2exportzd2varz12zd2internzd2sfunzf2Cinfo4099ze0zzcfa_iteratez00(obj_t BgL_envz00_1611, obj_t BgL_valuez00_1612, obj_t BgL_ownerz00_1613)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 96 */
{ 
BgL_internzd2sfunzf2cinfoz20_bglt BgL_valuez00_1485;obj_t BgL_ownerz00_1486;
{ /* ./Cfa/iterate.scm 97 */
BgL_approxz00_bglt BgL_auxz00_1753;
BgL_valuez00_1485 = 
(BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_valuez00_1612); 
BgL_ownerz00_1486 = BgL_ownerz00_1613; 
{ /* ./Cfa/iterate.scm 101 */
bool_t BgL_test4888z00_1490;
{ /* ./Cfa/iterate.scm 101 */
long BgL_arg4915z00_1502;
{ 
obj_t BgL_auxz00_1754;
{ /* ./Cfa/iterate.scm 101 */
BgL_objectz00_bglt BgL_auxz00_1755;
BgL_auxz00_1755 = 
(BgL_objectz00_bglt)(BgL_valuez00_1485); 
BgL_auxz00_1754 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1755); } 
BgL_arg4915z00_1502 = 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1754))->BgL_stampz00); } 
{ /* ./Cfa/iterate.scm 101 */
long BgL_n2z00_1559;
BgL_n2z00_1559 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
BgL_test4888z00_1490 = 
(BgL_arg4915z00_1502==BgL_n2z00_1559); } } 
if(BgL_test4888z00_1490)
{ /* ./Cfa/iterate.scm 101 */
{ /* ./Cfa/iterate.scm 103 */
long BgL_val2824z00_1561;
BgL_val2824z00_1561 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
{ 
obj_t BgL_auxz00_1763;
{ /* ./Cfa/iterate.scm 103 */
BgL_objectz00_bglt BgL_auxz00_1764;
BgL_auxz00_1764 = 
(BgL_objectz00_bglt)(BgL_valuez00_1485); 
BgL_auxz00_1763 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1764); } 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1763))->BgL_stampz00) = ((long)BgL_val2824z00_1561), BUNSPEC); } } 
{ 
obj_t BgL_auxz00_1768;
{ /* ./Cfa/iterate.scm 104 */
BgL_objectz00_bglt BgL_auxz00_1769;
BgL_auxz00_1769 = 
(BgL_objectz00_bglt)(BgL_valuez00_1485); 
BgL_auxz00_1768 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1769); } 
BgL_auxz00_1753 = 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1768))->BgL_approxz00); } }  else 
{ /* ./Cfa/iterate.scm 101 */
{ 
obj_t BgL_l4090z00_1491;
{ /* ./Cfa/iterate.scm 110 */
obj_t BgL_arg4892z00_1493;
{ /* ./Cfa/iterate.scm 110 */
BgL_sfunz00_bglt BgL_obj1367z00_1563;
BgL_obj1367z00_1563 = 
(BgL_sfunz00_bglt)(BgL_valuez00_1485); 
BgL_arg4892z00_1493 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1563))->BgL_argsz00); } 
BgL_l4090z00_1491 = BgL_arg4892z00_1493; 
BgL_forzd2each4091zd2_1492:
{ /* ./Cfa/iterate.scm 110 */
bool_t BgL_test4895z00_1494;
BgL_test4895z00_1494 = 
PAIRP(BgL_l4090z00_1491); 
if(BgL_test4895z00_1494)
{ /* ./Cfa/iterate.scm 110 */
{ /* ./Cfa/iterate.scm 111 */
obj_t BgL_localz00_1495;
BgL_localz00_1495 = 
CAR(BgL_l4090z00_1491); 
{ /* ./Cfa/iterate.scm 111 */
BgL_valuez00_bglt BgL_valz00_1496;
{ /* ./Cfa/iterate.scm 111 */
BgL_variablez00_bglt BgL_obj1100z00_1566;
BgL_obj1100z00_1566 = 
(BgL_variablez00_bglt)(BgL_localz00_1495); 
BgL_valz00_1496 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1566))->BgL_valuez00); } 
{ /* ./Cfa/iterate.scm 115 */
bool_t BgL_test4896z00_1497;
{ /* ./Cfa/iterate.scm 115 */
BgL_svarzf2cinfozf2_bglt BgL_obj2903z00_1567;
BgL_obj2903z00_1567 = 
(BgL_svarzf2cinfozf2_bglt)(BgL_valz00_1496); 
{ 
obj_t BgL_auxz00_1781;
{ /* ./Cfa/iterate.scm 115 */
BgL_objectz00_bglt BgL_auxz00_1782;
BgL_auxz00_1782 = 
(BgL_objectz00_bglt)(BgL_obj2903z00_1567); 
BgL_auxz00_1781 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1782); } 
BgL_test4896z00_1497 = 
(((BgL_svarzf2cinfozf2_bglt)CREF(BgL_auxz00_1781))->BgL_clozd2envzf3z21); } } 
if(BgL_test4896z00_1497)
{ /* ./Cfa/iterate.scm 115 */BFALSE; }  else 
{ /* ./Cfa/iterate.scm 116 */
BgL_approxz00_bglt BgL_arg4898z00_1498;
{ /* ./Cfa/iterate.scm 116 */
BgL_svarzf2cinfozf2_bglt BgL_obj2902z00_1568;
BgL_obj2902z00_1568 = 
(BgL_svarzf2cinfozf2_bglt)(BgL_valz00_1496); 
{ 
obj_t BgL_auxz00_1788;
{ /* ./Cfa/iterate.scm 116 */
BgL_objectz00_bglt BgL_auxz00_1789;
BgL_auxz00_1789 = 
(BgL_objectz00_bglt)(BgL_obj2902z00_1568); 
BgL_auxz00_1788 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1789); } 
BgL_arg4898z00_1498 = 
(((BgL_svarzf2cinfozf2_bglt)CREF(BgL_auxz00_1788))->BgL_approxz00); } } 
BGl_approxzd2setzd2topz12z12zzcfa_approxz00(BgL_arg4898z00_1498); } } } } 
{ /* ./Cfa/iterate.scm 110 */
obj_t BgL_arg4905z00_1499;
BgL_arg4905z00_1499 = 
CDR(BgL_l4090z00_1491); 
{ 
obj_t BgL_l4090z00_1795;
BgL_l4090z00_1795 = BgL_arg4905z00_1499; 
BgL_l4090z00_1491 = BgL_l4090z00_1795; 
goto BgL_forzd2each4091zd2_1492;} } }  else 
{ /* ./Cfa/iterate.scm 110 */((bool_t)1); } } } } 
{ /* ./Cfa/iterate.scm 119 */
BgL_approxz00_bglt BgL_arg4910z00_1500;obj_t BgL_arg4911z00_1501;
BgL_arg4910z00_1500 = 
BGl_cfazd2internzd2sfunz12z12zzcfa_iteratez00(BgL_valuez00_1485, BgL_ownerz00_1486); 
BgL_arg4911z00_1501 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_1753 = 
BGl_loosez12z12zzcfa_loosez00(BgL_arg4910z00_1500, BgL_arg4911z00_1501); } } } 
return 
(obj_t)(BgL_auxz00_1753);} } } 
}



/* cfa-export-var!-svar/Cinfo4097 */
obj_t BGl_cfazd2exportzd2varz12zd2svarzf2Cinfo4097z32zzcfa_iteratez00(obj_t BgL_envz00_1614, obj_t BgL_valuez00_1615, obj_t BgL_ownerz00_1616)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 82 */
{ 
BgL_svarzf2cinfozf2_bglt BgL_valuez00_1474;obj_t BgL_ownerz00_1475;
BgL_valuez00_1474 = 
(BgL_svarzf2cinfozf2_bglt)(BgL_valuez00_1615); 
BgL_ownerz00_1475 = BgL_ownerz00_1616; 
{ /* ./Cfa/iterate.scm 83 */
obj_t BgL_instance4086z00_1478;
BgL_instance4086z00_1478 = BGl_sfunz00zzast_varz00; 
{ /* ./Cfa/iterate.scm 87 */
bool_t BgL_test4870z00_1479;
{ /* ./Cfa/iterate.scm 87 */
long BgL_arg4879z00_1482;
{ /* ./Cfa/iterate.scm 87 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_obj2823z00_1552;
BgL_obj2823z00_1552 = 
(BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_instance4086z00_1478); 
{ 
obj_t BgL_auxz00_1802;
{ /* ./Cfa/iterate.scm 87 */
BgL_objectz00_bglt BgL_auxz00_1803;
BgL_auxz00_1803 = 
(BgL_objectz00_bglt)(BgL_obj2823z00_1552); 
BgL_auxz00_1802 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1803); } 
BgL_arg4879z00_1482 = 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1802))->BgL_stampz00); } } 
{ /* ./Cfa/iterate.scm 87 */
long BgL_n2z00_1554;
BgL_n2z00_1554 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
BgL_test4870z00_1479 = 
(BgL_arg4879z00_1482==BgL_n2z00_1554); } } 
if(BgL_test4870z00_1479)
{ /* ./Cfa/iterate.scm 87 */
return 
BGl_cfazd2variablezd2valuezd2approxzd2zzcfa_cfaz00(
(BgL_valuez00_bglt)(BgL_valuez00_1474));}  else 
{ /* ./Cfa/iterate.scm 87 */
{ /* ./Cfa/iterate.scm 90 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_obj2825z00_1555;long BgL_val2824z00_1556;
BgL_obj2825z00_1555 = 
(BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_instance4086z00_1478); 
BgL_val2824z00_1556 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
{ 
obj_t BgL_auxz00_1814;
{ /* ./Cfa/iterate.scm 90 */
BgL_objectz00_bglt BgL_auxz00_1815;
BgL_auxz00_1815 = 
(BgL_objectz00_bglt)(BgL_obj2825z00_1555); 
BgL_auxz00_1814 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1815); } 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1814))->BgL_stampz00) = ((long)BgL_val2824z00_1556), BUNSPEC); } } 
{ /* ./Cfa/iterate.scm 91 */
obj_t BgL_arg4874z00_1480;obj_t BgL_arg4875z00_1481;
BgL_arg4874z00_1480 = 
BGl_cfazd2variablezd2valuezd2approxzd2zzcfa_cfaz00(
(BgL_valuez00_bglt)(BgL_valuez00_1474)); 
BgL_arg4875z00_1481 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Cfa/iterate.scm 91 */
BgL_approxz00_bglt BgL_auxz00_1822;
BgL_auxz00_1822 = 
BGl_loosez12z12zzcfa_loosez00(
(BgL_approxz00_bglt)(BgL_arg4874z00_1480), BgL_arg4875z00_1481); 
return 
(obj_t)(BgL_auxz00_1822);} } } } } } } 
}



/* cfa-export-var! */
BGL_EXPORTED_DEF obj_t BGl_cfazd2exportzd2varz12z12zzcfa_iteratez00(BgL_valuez00_bglt BgL_valuez00_3, obj_t BgL_ownerz00_4)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 77 */
{ /* ./Cfa/iterate.scm 77 */
obj_t BgL_method4095z00_1570;
{ /* ./Cfa/iterate.scm 77 */
BgL_objectz00_bglt BgL_objz00_1571;
BgL_objz00_1571 = 
(BgL_objectz00_bglt)(BgL_valuez00_3); 
{ /* ./Cfa/iterate.scm 77 */
long BgL_objzd2classzd2numz00_1572;
BgL_objzd2classzd2numz00_1572 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1571); 
{ /* ./Cfa/iterate.scm 77 */
obj_t BgL_arg2017z00_1573;
{ /* ./Cfa/iterate.scm 77 */
int BgL_auxz00_1829;
BgL_auxz00_1829 = 
(int)(((long)1)); 
BgL_arg2017z00_1573 = 
PROCEDURE_REF(BGl_cfazd2exportzd2varz12zd2envzc0zzcfa_iteratez00, BgL_auxz00_1829); } 
{ /* ./Cfa/iterate.scm 77 */
int BgL_offsetz00_1576;
BgL_offsetz00_1576 = 
(int)(BgL_objzd2classzd2numz00_1572); 
{ /* ./Cfa/iterate.scm 77 */
long BgL_offsetz00_1577;
{ /* ./Cfa/iterate.scm 77 */
long BgL_auxz00_1833;
BgL_auxz00_1833 = 
(long)(BgL_offsetz00_1576); 
BgL_offsetz00_1577 = 
(BgL_auxz00_1833-OBJECT_TYPE); } 
{ /* ./Cfa/iterate.scm 77 */
long BgL_modz00_1578;
{ /* ./Cfa/iterate.scm 77 */
int BgL_arg2028z00_1579;
BgL_arg2028z00_1579 = 
(int)(((long)8)); 
{ /* ./Cfa/iterate.scm 77 */
long BgL_n2z00_1587;
BgL_n2z00_1587 = 
(long)(BgL_arg2028z00_1579); 
BgL_modz00_1578 = 
(BgL_offsetz00_1577/BgL_n2z00_1587); } } 
{ /* ./Cfa/iterate.scm 77 */
long BgL_restz00_1580;
{ /* ./Cfa/iterate.scm 77 */
int BgL_arg2024z00_1581;
BgL_arg2024z00_1581 = 
(int)(((long)8)); 
{ /* ./Cfa/iterate.scm 77 */
long BgL_n2z00_1590;
BgL_n2z00_1590 = 
(long)(BgL_arg2024z00_1581); 
BgL_restz00_1580 = 
(BgL_offsetz00_1577%BgL_n2z00_1590); } } 
{ /* ./Cfa/iterate.scm 77 */

{ /* ./Cfa/iterate.scm 77 */
obj_t BgL_bucketz00_1582;
{ /* ./Cfa/iterate.scm 77 */
int BgL_kz00_1592;
BgL_kz00_1592 = 
(int)(BgL_modz00_1578); 
BgL_bucketz00_1582 = 
VECTOR_REF(BgL_arg2017z00_1573,BgL_kz00_1592); } 
{ /* ./Cfa/iterate.scm 77 */
int BgL_kz00_1594;
BgL_kz00_1594 = 
(int)(BgL_restz00_1580); 
BgL_method4095z00_1570 = 
VECTOR_REF(BgL_bucketz00_1582,BgL_kz00_1594); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4095z00_1570)(BgL_method4095z00_1570, 
(obj_t)(BgL_valuez00_3), BgL_ownerz00_4, BEOA);} } 
}



/* _cfa-export-var! */
obj_t BGl__cfazd2exportzd2varz12z12zzcfa_iteratez00(obj_t BgL_envz00_1602, obj_t BgL_valuez00_1603, obj_t BgL_ownerz00_1604)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 77 */
return 
BGl_cfazd2exportzd2varz12z12zzcfa_iteratez00(
(BgL_valuez00_bglt)(BgL_valuez00_1603), BgL_ownerz00_1604);} 
}



/* cfa-export-var!-default4094 */
obj_t BGl_cfazd2exportzd2varz12zd2default4094zc0zzcfa_iteratez00(BgL_valuez00_bglt BgL_valuez00_5, obj_t BgL_ownerz00_6)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 15 */
{ /* ./Cfa/iterate.scm 15 */
obj_t BgL_procz00_1595;obj_t BgL_objectz00_1597;
BgL_procz00_1595 = 
CNST_TABLE_REF(((long)2)); 
BgL_objectz00_1597 = 
(obj_t)(BgL_valuez00_5); 
FAILURE(BgL_procz00_1595,BGl_string5029z00zzcfa_iteratez00,BgL_objectz00_1597);} } 
}



/* _cfa-export-var!-default4094 */
obj_t BGl__cfazd2exportzd2varz12zd2default4094zc0zzcfa_iteratez00(obj_t BgL_envz00_1617, obj_t BgL_valuez00_1618, obj_t BgL_ownerz00_1619)
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 15 */
return 
BGl_cfazd2exportzd2varz12zd2default4094zc0zzcfa_iteratez00(
(BgL_valuez00_bglt)(BgL_valuez00_1618), BgL_ownerz00_1619);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcfa_iteratez00()
{ AN_OBJECT;
{ /* ./Cfa/iterate.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "cfa_iterate"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "cfa_iterate"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cfa_iterate"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cfa_iterate"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cfa_iterate"); 
BGl_modulezd2initializa7ationz75zzast_unitz00(((long)47192), "cfa_iterate"); 
BGl_modulezd2initializa7ationz75zzcfa_cfaz00(((long)65191), "cfa_iterate"); 
BGl_modulezd2initializa7ationz75zzcfa_infoz00(((long)2565), "cfa_iterate"); 
BGl_modulezd2initializa7ationz75zzcfa_info2z00(((long)0), "cfa_iterate"); 
BGl_modulezd2initializa7ationz75zzcfa_loosez00(((long)78579), "cfa_iterate"); 
return 
BGl_modulezd2initializa7ationz75zzcfa_approxz00(((long)43477), "cfa_iterate");} 
}

