/*===========================================================================*/
/*   (Reduce/1occ.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 Reduce/1occ.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;


static obj_t BGl_methodzd2initzd2zzreduce_1occz00();
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2kwote2757z12zzreduce_1occz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd21occz12zd2atom2755z12zzreduce_1occz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl__reducezd21occz12zc0zzreduce_1occz00(obj_t, obj_t);
static obj_t BGl_nodezd21occz12zd2conditional2775z12zzreduce_1occz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2appzd2ly2765zc0zzreduce_1occz00(obj_t, obj_t, obj_t);
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2boxzd2setz122791zd2zzreduce_1occz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_reducezd21occz12zc0zzreduce_1occz00(obj_t);
static obj_t BGl_nodezd21occz12zd2setq2773z12zzreduce_1occz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_IMPORT obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzreduce_1occz00();
static obj_t BGl__nodezd21occz12zc0zzreduce_1occz00(obj_t, obj_t, obj_t);
extern obj_t BGl_atomz00zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2sequence2763z12zzreduce_1occz00(obj_t, obj_t, obj_t);
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2select2779z12zzreduce_1occz00(obj_t, obj_t, obj_t);
extern obj_t BGl_occurzd2varzd2zzast_occurz00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzreduce_1occz00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2letzd2fun2781zc0zzreduce_1occz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2app2795z12zzreduce_1occz00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzreduce_1occz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzreduce_1occz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcoerce_coercez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzeffect_effectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_lvtypez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_occurz00(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 *);
extern bool_t BGl_sidezd2effectzf3z21zzeffect_effectz00(BgL_nodez00_bglt);
static obj_t BGl_nodezd21occz12zd2letzd2var2783zc0zzreduce_1occz00(obj_t, obj_t, obj_t);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
static obj_t BGl_nodezd21occz12zd2funcall2767z12zzreduce_1occz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd21occz12zd2cast2771z12zzreduce_1occz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd21occz12zd2jumpzd2exzd2it2787z12zzreduce_1occz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd21occz12zd2closure2761z12zzreduce_1occz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd21occz12zc0zzreduce_1occz00(BgL_nodez00_bglt, obj_t);
static obj_t BGl_nodezd21occza2z12z62zzreduce_1occz00(obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2makezd2box2789zc0zzreduce_1occz00(obj_t, obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2setzd2exzd2it2785z12zzreduce_1occz00(obj_t, obj_t, obj_t);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2default2752z12zzreduce_1occz00(BgL_nodez00_bglt, obj_t);
static long BGl_za2variablezd2removedza2zd2zzreduce_1occz00;
static obj_t BGl__nodezd21occz12zd2default2752z12zzreduce_1occz00(obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2extern2769z12zzreduce_1occz00(obj_t, obj_t, obj_t);
extern obj_t BGl_closurez00zzast_nodez00;
static obj_t BGl_nodezd21occz12zd2fail2777z12zzreduce_1occz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzreduce_1occz00 = BUNSPEC;
static obj_t BGl_nodezd21occz12zd2boxzd2ref2793zc0zzreduce_1occz00(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzreduce_1occz00();
static obj_t BGl_nodezd21occz12zd2var2759z12zzreduce_1occz00(obj_t, obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 2 ] ;


DEFINE_STATIC_PROCEDURE( BGl_nodezd21occz12zd2default2752zd2envzc0zzreduce_1occz00, BgL_bgl__nodeza7d21occza712za7d2default2752za712za7za7reduce_1occza7004323za7, BGl__nodezd21occz12zd2default2752z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_GENERIC( BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_bgl__nodeza7d21occza712za7c0za7za7reduce_1occza7004324z00, BGl__nodezd21occz12zc0zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4274z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2atom2755za712za7za7reduce_1occza7004325za7, BGl_nodezd21occz12zd2atom2755z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4275z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2kwote2757za712za7za7reduce_1occza7004326za7, BGl_nodezd21occz12zd2kwote2757z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4276z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2var2759za712za7za7reduce_1occza7004327za7, BGl_nodezd21occz12zd2var2759z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4277z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2closure2761za712za7za7reduce_1occza7004328za7, BGl_nodezd21occz12zd2closure2761z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4278z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2sequence2763za712za7za7reduce_1occza7004329za7, BGl_nodezd21occz12zd2sequence2763z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4280z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2funcall2767za712za7za7reduce_1occza7004330za7, BGl_nodezd21occz12zd2funcall2767z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4279z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2appza7d2ly2765za7c0za7za7reduce_1occza7004331z00, BGl_nodezd21occz12zd2appzd2ly2765zc0zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4281z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2extern2769za712za7za7reduce_1occza7004332za7, BGl_nodezd21occz12zd2extern2769z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4282z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2cast2771za712za7za7reduce_1occza7004333za7, BGl_nodezd21occz12zd2cast2771z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4283z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2setq2773za712za7za7reduce_1occza7004334za7, BGl_nodezd21occz12zd2setq2773z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4284z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2conditional2775za712za7za7reduce_1occza7004335za7, BGl_nodezd21occz12zd2conditional2775z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4285z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2fail2777za712za7za7reduce_1occza7004336za7, BGl_nodezd21occz12zd2fail2777z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4286z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2select2779za712za7za7reduce_1occza7004337za7, BGl_nodezd21occz12zd2select2779z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4287z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2letza7d2fun2781za7c0za7za7reduce_1occza7004338z00, BGl_nodezd21occz12zd2letzd2fun2781zc0zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4288z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2letza7d2var2783za7c0za7za7reduce_1occza7004339z00, BGl_nodezd21occz12zd2letzd2var2783zc0zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4290z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2jumpza7d2exza7d2it2787za712za7za7reduce_1occza7004340za7, BGl_nodezd21occz12zd2jumpzd2exzd2it2787z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4289z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2setza7d2exza7d2it2785za712za7za7reduce_1occza7004341za7, BGl_nodezd21occz12zd2setzd2exzd2it2785z12zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4291z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2makeza7d2box2789za7c0za7za7reduce_1occza7004342z00, BGl_nodezd21occz12zd2makezd2box2789zc0zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4292z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2boxza7d2setza7122791za7d2za7za7reduce_1occza7004343za7, BGl_nodezd21occz12zd2boxzd2setz122791zd2zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4293z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2boxza7d2ref2793za7c0za7za7reduce_1occza7004344z00, BGl_nodezd21occz12zd2boxzd2ref2793zc0zzreduce_1occz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4294z00zzreduce_1occz00, BgL_bgl_nodeza7d21occza712za7d2app2795za712za7za7reduce_1occza7004345za7, BGl_nodezd21occz12zd2app2795z12zzreduce_1occz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_reducezd21occz12zd2envz12zzreduce_1occz00, BgL_bgl__reduceza7d21occza712za7c0za7za7reduce_1occza7004346z00, BGl__reducezd21occz12zc0zzreduce_1occz00, 0L, 1 );
DEFINE_STRING( BGl_string4296z00zzreduce_1occz00, BgL_bgl_string4296za700za7za7reduce_1occza7004347z00, "node-1occ!-default2752 read ", 28 );
DEFINE_STRING( BGl_string4295z00zzreduce_1occz00, BgL_bgl_string4295za700za7za7reduce_1occza7004348z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string4273z00zzreduce_1occz00, BgL_bgl_string4273za700za7za7reduce_1occza7004349z00, "(removed : ", 11 );
DEFINE_STRING( BGl_string4272z00zzreduce_1occz00, BgL_bgl_string4272za700za7za7reduce_1occza7004350z00, "      single occurrence      ", 29 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzreduce_1occz00(long BgL_checksumz00_2537, char * BgL_fromz00_2538)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzreduce_1occz00))
{ 
BGl_requirezd2initializa7ationz75zzreduce_1occz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzreduce_1occz00(); 
BGl_cnstzd2initzd2zzreduce_1occz00(); 
BGl_importedzd2moduleszd2initz00zzreduce_1occz00(); 
BGl_methodzd2initzd2zzreduce_1occz00(); 
BGl_toplevelzd2initzd2zzreduce_1occz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzreduce_1occz00()
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 16 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "reduce_1occ"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzreduce_1occz00()
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 16 */
{ /* ./Reduce/1occ.scm 16 */
obj_t BgL_cportz00_2530;
BgL_cportz00_2530 = 
open_input_string(BGl_string4296z00zzreduce_1occz00); 
{ 
long BgL_iz00_2531;
BgL_iz00_2531 = ((long)1); 
BgL_loopz00_2532:
{ /* ./Reduce/1occ.scm 16 */
bool_t BgL_test4298z00_2533;
BgL_test4298z00_2533 = 
(BgL_iz00_2531==((long)-1)); 
if(BgL_test4298z00_2533)
{ /* ./Reduce/1occ.scm 16 */
return BUNSPEC;}  else 
{ /* ./Reduce/1occ.scm 16 */
{ /* ./Reduce/1occ.scm 16 */
obj_t BgL_arg4300z00_2534;
{ /* ./Reduce/1occ.scm 16 */
obj_t BgL_list4303z00_2535;
BgL_list4303z00_2535 = 
MAKE_PAIR(BgL_cportz00_2530, BNIL); 
BgL_arg4300z00_2534 = 
BGl_readz00zz__readerz00(BgL_list4303z00_2535); } 
{ /* ./Reduce/1occ.scm 16 */
int BgL_auxz00_2555;
BgL_auxz00_2555 = 
(int)(BgL_iz00_2531); 
CNST_TABLE_SET(BgL_auxz00_2555, BgL_arg4300z00_2534); } } 
{ /* ./Reduce/1occ.scm 16 */
int BgL_auxz00_2536;
{ /* ./Reduce/1occ.scm 16 */
long BgL_auxz00_2558;
BgL_auxz00_2558 = 
(BgL_iz00_2531-((long)1)); 
BgL_auxz00_2536 = 
(int)(BgL_auxz00_2558); } 
{ 
long BgL_iz00_2561;
BgL_iz00_2561 = 
(long)(BgL_auxz00_2536); 
BgL_iz00_2531 = BgL_iz00_2561; 
goto BgL_loopz00_2532;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzreduce_1occz00()
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 16 */
BGl_za2variablezd2removedza2zd2zzreduce_1occz00 = ((long)0); 
return BUNSPEC;} 
}



/* reduce-1occ! */
BGL_EXPORTED_DEF obj_t BGl_reducezd21occz12zc0zzreduce_1occz00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 35 */
{ /* ./Reduce/1occ.scm 36 */
obj_t BgL_list2797z00_707;
BgL_list2797z00_707 = 
MAKE_PAIR(BGl_string4272z00zzreduce_1occz00, BNIL); 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list2797z00_707); } 
BGl_occurzd2varzd2zzast_occurz00(BgL_globalsz00_1); 
BGl_za2variablezd2removedza2zd2zzreduce_1occz00 = ((long)0); 
{ 
obj_t BgL_l2662z00_708;
BgL_l2662z00_708 = BgL_globalsz00_1; 
BgL_forzd2each2663zd2_709:
{ /* ./Reduce/1occ.scm 42 */
bool_t BgL_test2801z00_710;
BgL_test2801z00_710 = 
PAIRP(BgL_l2662z00_708); 
if(BgL_test2801z00_710)
{ /* ./Reduce/1occ.scm 42 */
{ /* ./Reduce/1occ.scm 43 */
obj_t BgL_globalz00_711;
BgL_globalz00_711 = 
CAR(BgL_l2662z00_708); 
{ /* ./Reduce/1occ.scm 43 */
BgL_valuez00_bglt BgL_funz00_712;
{ /* ./Reduce/1occ.scm 43 */
BgL_variablez00_bglt BgL_obj1100z00_1462;
BgL_obj1100z00_1462 = 
(BgL_variablez00_bglt)(BgL_globalz00_711); 
BgL_funz00_712 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1462))->BgL_valuez00); } 
{ /* ./Reduce/1occ.scm 43 */
obj_t BgL_nodez00_713;
{ /* ./Reduce/1occ.scm 44 */
BgL_sfunz00_bglt BgL_obj1370z00_1463;
BgL_obj1370z00_1463 = 
(BgL_sfunz00_bglt)(BgL_funz00_712); 
BgL_nodez00_713 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1463))->BgL_bodyz00); } 
{ /* ./Reduce/1occ.scm 44 */

{ /* ./Reduce/1occ.scm 45 */
obj_t BgL_arg2803z00_714;
{ /* ./Reduce/1occ.scm 45 */
obj_t BgL__z00_715;
{ /* ./Reduce/1occ.scm 46 */
BgL_nodez00_bglt BgL_nodez00_1464;
BgL_nodez00_1464 = 
(BgL_nodez00_bglt)(BgL_nodez00_713); 
{ /* ./Reduce/1occ.scm 46 */
obj_t BgL_method2753z00_1466;
{ /* ./Reduce/1occ.scm 46 */
BgL_objectz00_bglt BgL_objz00_1467;
BgL_objz00_1467 = 
(BgL_objectz00_bglt)(BgL_nodez00_1464); 
{ /* ./Reduce/1occ.scm 46 */
long BgL_objzd2classzd2numz00_1468;
BgL_objzd2classzd2numz00_1468 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1467); 
{ /* ./Reduce/1occ.scm 46 */
obj_t BgL_arg2017z00_1469;
{ /* ./Reduce/1occ.scm 46 */
int BgL_auxz00_2577;
BgL_auxz00_2577 = 
(int)(((long)1)); 
BgL_arg2017z00_1469 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_2577); } 
{ /* ./Reduce/1occ.scm 46 */
int BgL_offsetz00_1472;
BgL_offsetz00_1472 = 
(int)(BgL_objzd2classzd2numz00_1468); 
{ /* ./Reduce/1occ.scm 46 */
long BgL_offsetz00_1473;
{ /* ./Reduce/1occ.scm 46 */
long BgL_auxz00_2581;
BgL_auxz00_2581 = 
(long)(BgL_offsetz00_1472); 
BgL_offsetz00_1473 = 
(BgL_auxz00_2581-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 46 */
long BgL_modz00_1474;
{ /* ./Reduce/1occ.scm 46 */
int BgL_arg2028z00_1475;
BgL_arg2028z00_1475 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 46 */
long BgL_n2z00_1483;
BgL_n2z00_1483 = 
(long)(BgL_arg2028z00_1475); 
BgL_modz00_1474 = 
(BgL_offsetz00_1473/BgL_n2z00_1483); } } 
{ /* ./Reduce/1occ.scm 46 */
long BgL_restz00_1476;
{ /* ./Reduce/1occ.scm 46 */
int BgL_arg2024z00_1477;
BgL_arg2024z00_1477 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 46 */
long BgL_n2z00_1486;
BgL_n2z00_1486 = 
(long)(BgL_arg2024z00_1477); 
BgL_restz00_1476 = 
(BgL_offsetz00_1473%BgL_n2z00_1486); } } 
{ /* ./Reduce/1occ.scm 46 */

{ /* ./Reduce/1occ.scm 46 */
obj_t BgL_bucketz00_1478;
{ /* ./Reduce/1occ.scm 46 */
int BgL_kz00_1488;
BgL_kz00_1488 = 
(int)(BgL_modz00_1474); 
BgL_bucketz00_1478 = 
VECTOR_REF(BgL_arg2017z00_1469,BgL_kz00_1488); } 
{ /* ./Reduce/1occ.scm 46 */
int BgL_kz00_1490;
BgL_kz00_1490 = 
(int)(BgL_restz00_1476); 
BgL_method2753z00_1466 = 
VECTOR_REF(BgL_bucketz00_1478,BgL_kz00_1490); } } } } } } } } } } 
BgL__z00_715 = 
PROCEDURE_ENTRY(BgL_method2753z00_1466)(BgL_method2753z00_1466, 
(obj_t)(BgL_nodez00_1464), BNIL, BEOA); } } 
{ /* ./Reduce/1occ.scm 45 */
obj_t BgL_nodez00_716;
{ /* ./Reduce/1occ.scm 45 */
int BgL_nz00_1491;
BgL_nz00_1491 = 
(int)(((long)1)); 
BgL_nodez00_716 = 
BGL_MVALUES_VAL(BgL_nz00_1491); } 
BgL_arg2803z00_714 = BgL_nodez00_716; } } 
{ /* ./Reduce/1occ.scm 45 */
BgL_sfunz00_bglt BgL_obj1373z00_1492;obj_t BgL_val1371z00_1493;
BgL_obj1373z00_1492 = 
(BgL_sfunz00_bglt)(BgL_funz00_712); 
BgL_val1371z00_1493 = BgL_arg2803z00_714; 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1492))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1493), BUNSPEC); } } BUNSPEC; } } } } 
{ /* ./Reduce/1occ.scm 42 */
obj_t BgL_arg2811z00_717;
BgL_arg2811z00_717 = 
CDR(BgL_l2662z00_708); 
{ 
obj_t BgL_l2662z00_2602;
BgL_l2662z00_2602 = BgL_arg2811z00_717; 
BgL_l2662z00_708 = BgL_l2662z00_2602; 
goto BgL_forzd2each2663zd2_709;} } }  else 
{ /* ./Reduce/1occ.scm 42 */((bool_t)1); } } } 
{ /* ./Reduce/1occ.scm 50 */
obj_t BgL_list2816z00_718;
{ /* ./Reduce/1occ.scm 50 */
obj_t BgL_arg2819z00_720;
{ /* ./Reduce/1occ.scm 50 */
obj_t BgL_arg2822z00_721;
{ /* ./Reduce/1occ.scm 50 */
obj_t BgL_arg2825z00_722;
{ /* ./Reduce/1occ.scm 50 */
obj_t BgL_auxz00_2603;
BgL_auxz00_2603 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2825z00_722 = 
MAKE_PAIR(BgL_auxz00_2603, BNIL); } 
{ /* ./Reduce/1occ.scm 50 */
obj_t BgL_auxz00_2606;
BgL_auxz00_2606 = 
BCHAR(((unsigned char)')')); 
BgL_arg2822z00_721 = 
MAKE_PAIR(BgL_auxz00_2606, BgL_arg2825z00_722); } } 
{ /* ./Reduce/1occ.scm 50 */
obj_t BgL_auxz00_2609;
BgL_auxz00_2609 = 
BINT(BGl_za2variablezd2removedza2zd2zzreduce_1occz00); 
BgL_arg2819z00_720 = 
MAKE_PAIR(BgL_auxz00_2609, BgL_arg2822z00_721); } } 
BgL_list2816z00_718 = 
MAKE_PAIR(BGl_string4273z00zzreduce_1occz00, BgL_arg2819z00_720); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list2816z00_718); } 
return BgL_globalsz00_1;} 
}



/* _reduce-1occ! */
obj_t BGl__reducezd21occz12zc0zzreduce_1occz00(obj_t BgL_envz00_2438, obj_t BgL_globalsz00_2439)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 35 */
return 
BGl_reducezd21occz12zc0zzreduce_1occz00(BgL_globalsz00_2439);} 
}



/* node-1occ*! */
obj_t BGl_nodezd21occza2z12z62zzreduce_1occz00(obj_t BgL_nodeza2za2_48, obj_t BgL_1zd2expza2z70_49)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 381 */
{ 
obj_t BgL_nodeza2za2_723;bool_t BgL_resetz00_724;obj_t BgL_1zd2expza2z70_725;
BgL_nodeza2za2_723 = BgL_nodeza2za2_48; 
BgL_resetz00_724 = ((bool_t)0); 
BgL_1zd2expza2z70_725 = BgL_1zd2expza2z70_49; 
BgL_loopz00_726:
{ /* ./Reduce/1occ.scm 386 */
bool_t BgL_test2829z00_727;
BgL_test2829z00_727 = 
NULLP(BgL_nodeza2za2_723); 
if(BgL_test2829z00_727)
{ /* ./Reduce/1occ.scm 386 */
return 
BBOOL(BgL_resetz00_724);}  else 
{ /* ./Reduce/1occ.scm 388 */
bool_t BgL_test2830z00_728;
{ /* ./Reduce/1occ.scm 388 */
obj_t BgL_auxz00_2619;
BgL_auxz00_2619 = 
CDR(BgL_nodeza2za2_723); 
BgL_test2830z00_728 = 
NULLP(BgL_auxz00_2619); } 
if(BgL_test2830z00_728)
{ /* ./Reduce/1occ.scm 388 */
{ /* ./Reduce/1occ.scm 389 */
obj_t BgL_resetz72z72_729;
{ /* ./Reduce/1occ.scm 390 */
obj_t BgL_arg2834z00_732;
BgL_arg2834z00_732 = 
CAR(BgL_nodeza2za2_723); 
{ /* ./Reduce/1occ.scm 390 */
BgL_nodez00_bglt BgL_nodez00_1499;
BgL_nodez00_1499 = 
(BgL_nodez00_bglt)(BgL_arg2834z00_732); 
{ /* ./Reduce/1occ.scm 390 */
obj_t BgL_method2753z00_1501;
{ /* ./Reduce/1occ.scm 390 */
BgL_objectz00_bglt BgL_objz00_1502;
BgL_objz00_1502 = 
(BgL_objectz00_bglt)(BgL_nodez00_1499); 
{ /* ./Reduce/1occ.scm 390 */
long BgL_objzd2classzd2numz00_1503;
BgL_objzd2classzd2numz00_1503 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1502); 
{ /* ./Reduce/1occ.scm 390 */
obj_t BgL_arg2017z00_1504;
{ /* ./Reduce/1occ.scm 390 */
int BgL_auxz00_2627;
BgL_auxz00_2627 = 
(int)(((long)1)); 
BgL_arg2017z00_1504 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_2627); } 
{ /* ./Reduce/1occ.scm 390 */
int BgL_offsetz00_1507;
BgL_offsetz00_1507 = 
(int)(BgL_objzd2classzd2numz00_1503); 
{ /* ./Reduce/1occ.scm 390 */
long BgL_offsetz00_1508;
{ /* ./Reduce/1occ.scm 390 */
long BgL_auxz00_2631;
BgL_auxz00_2631 = 
(long)(BgL_offsetz00_1507); 
BgL_offsetz00_1508 = 
(BgL_auxz00_2631-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 390 */
long BgL_modz00_1509;
{ /* ./Reduce/1occ.scm 390 */
int BgL_arg2028z00_1510;
BgL_arg2028z00_1510 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 390 */
long BgL_n2z00_1518;
BgL_n2z00_1518 = 
(long)(BgL_arg2028z00_1510); 
BgL_modz00_1509 = 
(BgL_offsetz00_1508/BgL_n2z00_1518); } } 
{ /* ./Reduce/1occ.scm 390 */
long BgL_restz00_1511;
{ /* ./Reduce/1occ.scm 390 */
int BgL_arg2024z00_1512;
BgL_arg2024z00_1512 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 390 */
long BgL_n2z00_1521;
BgL_n2z00_1521 = 
(long)(BgL_arg2024z00_1512); 
BgL_restz00_1511 = 
(BgL_offsetz00_1508%BgL_n2z00_1521); } } 
{ /* ./Reduce/1occ.scm 390 */

{ /* ./Reduce/1occ.scm 390 */
obj_t BgL_bucketz00_1513;
{ /* ./Reduce/1occ.scm 390 */
int BgL_kz00_1523;
BgL_kz00_1523 = 
(int)(BgL_modz00_1509); 
BgL_bucketz00_1513 = 
VECTOR_REF(BgL_arg2017z00_1504,BgL_kz00_1523); } 
{ /* ./Reduce/1occ.scm 390 */
int BgL_kz00_1525;
BgL_kz00_1525 = 
(int)(BgL_restz00_1511); 
BgL_method2753z00_1501 = 
VECTOR_REF(BgL_bucketz00_1513,BgL_kz00_1525); } } } } } } } } } } 
BgL_resetz72z72_729 = 
PROCEDURE_ENTRY(BgL_method2753z00_1501)(BgL_method2753z00_1501, 
(obj_t)(BgL_nodez00_1499), BgL_1zd2expza2z70_725, BEOA); } } } 
{ /* ./Reduce/1occ.scm 391 */
obj_t BgL_nodez00_730;
{ /* ./Reduce/1occ.scm 391 */
int BgL_nz00_1526;
BgL_nz00_1526 = 
(int)(((long)1)); 
BgL_nodez00_730 = 
BGL_MVALUES_VAL(BgL_nz00_1526); } 
SET_CAR(BgL_nodeza2za2_723, BgL_nodez00_730); 
if(BgL_resetz00_724)
{ /* ./Reduce/1occ.scm 392 */
return 
BBOOL(BgL_resetz00_724);}  else 
{ /* ./Reduce/1occ.scm 392 */
return BgL_resetz72z72_729;} } } }  else 
{ /* ./Reduce/1occ.scm 388 */
{ /* ./Reduce/1occ.scm 394 */
obj_t BgL_resetz72z72_733;
{ /* ./Reduce/1occ.scm 395 */
obj_t BgL_arg2850z00_739;
BgL_arg2850z00_739 = 
CAR(BgL_nodeza2za2_723); 
{ /* ./Reduce/1occ.scm 395 */
BgL_nodez00_bglt BgL_nodez00_1530;
BgL_nodez00_1530 = 
(BgL_nodez00_bglt)(BgL_arg2850z00_739); 
{ /* ./Reduce/1occ.scm 395 */
obj_t BgL_method2753z00_1532;
{ /* ./Reduce/1occ.scm 395 */
BgL_objectz00_bglt BgL_objz00_1533;
BgL_objz00_1533 = 
(BgL_objectz00_bglt)(BgL_nodez00_1530); 
{ /* ./Reduce/1occ.scm 395 */
long BgL_objzd2classzd2numz00_1534;
BgL_objzd2classzd2numz00_1534 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1533); 
{ /* ./Reduce/1occ.scm 395 */
obj_t BgL_arg2017z00_1535;
{ /* ./Reduce/1occ.scm 395 */
int BgL_auxz00_2656;
BgL_auxz00_2656 = 
(int)(((long)1)); 
BgL_arg2017z00_1535 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_2656); } 
{ /* ./Reduce/1occ.scm 395 */
int BgL_offsetz00_1538;
BgL_offsetz00_1538 = 
(int)(BgL_objzd2classzd2numz00_1534); 
{ /* ./Reduce/1occ.scm 395 */
long BgL_offsetz00_1539;
{ /* ./Reduce/1occ.scm 395 */
long BgL_auxz00_2660;
BgL_auxz00_2660 = 
(long)(BgL_offsetz00_1538); 
BgL_offsetz00_1539 = 
(BgL_auxz00_2660-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 395 */
long BgL_modz00_1540;
{ /* ./Reduce/1occ.scm 395 */
int BgL_arg2028z00_1541;
BgL_arg2028z00_1541 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 395 */
long BgL_n2z00_1549;
BgL_n2z00_1549 = 
(long)(BgL_arg2028z00_1541); 
BgL_modz00_1540 = 
(BgL_offsetz00_1539/BgL_n2z00_1549); } } 
{ /* ./Reduce/1occ.scm 395 */
long BgL_restz00_1542;
{ /* ./Reduce/1occ.scm 395 */
int BgL_arg2024z00_1543;
BgL_arg2024z00_1543 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 395 */
long BgL_n2z00_1552;
BgL_n2z00_1552 = 
(long)(BgL_arg2024z00_1543); 
BgL_restz00_1542 = 
(BgL_offsetz00_1539%BgL_n2z00_1552); } } 
{ /* ./Reduce/1occ.scm 395 */

{ /* ./Reduce/1occ.scm 395 */
obj_t BgL_bucketz00_1544;
{ /* ./Reduce/1occ.scm 395 */
int BgL_kz00_1554;
BgL_kz00_1554 = 
(int)(BgL_modz00_1540); 
BgL_bucketz00_1544 = 
VECTOR_REF(BgL_arg2017z00_1535,BgL_kz00_1554); } 
{ /* ./Reduce/1occ.scm 395 */
int BgL_kz00_1556;
BgL_kz00_1556 = 
(int)(BgL_restz00_1542); 
BgL_method2753z00_1532 = 
VECTOR_REF(BgL_bucketz00_1544,BgL_kz00_1556); } } } } } } } } } } 
BgL_resetz72z72_733 = 
PROCEDURE_ENTRY(BgL_method2753z00_1532)(BgL_method2753z00_1532, 
(obj_t)(BgL_nodez00_1530), BgL_1zd2expza2z70_725, BEOA); } } } 
{ /* ./Reduce/1occ.scm 396 */
obj_t BgL_nodez00_734;
{ /* ./Reduce/1occ.scm 396 */
int BgL_nz00_1557;
BgL_nz00_1557 = 
(int)(((long)1)); 
BgL_nodez00_734 = 
BGL_MVALUES_VAL(BgL_nz00_1557); } 
SET_CAR(BgL_nodeza2za2_723, BgL_nodez00_734); 
{ /* ./Reduce/1occ.scm 397 */
bool_t BgL_test2838z00_735;
if(BgL_resetz00_724)
{ /* ./Reduce/1occ.scm 397 */
BgL_test2838z00_735 = ((bool_t)1); }  else 
{ /* ./Reduce/1occ.scm 397 */
BgL_test2838z00_735 = 
CBOOL(BgL_resetz72z72_733); } 
if(BgL_test2838z00_735)
{ /* ./Reduce/1occ.scm 398 */
obj_t BgL_arg2840z00_736;
BgL_arg2840z00_736 = 
CDR(BgL_nodeza2za2_723); 
{ 
obj_t BgL_1zd2expza2z70_2685;bool_t BgL_resetz00_2684;obj_t BgL_nodeza2za2_2683;
BgL_nodeza2za2_2683 = BgL_arg2840z00_736; 
BgL_resetz00_2684 = ((bool_t)1); 
BgL_1zd2expza2z70_2685 = BNIL; 
BgL_1zd2expza2z70_725 = BgL_1zd2expza2z70_2685; 
BgL_resetz00_724 = BgL_resetz00_2684; 
BgL_nodeza2za2_723 = BgL_nodeza2za2_2683; 
goto BgL_loopz00_726;} }  else 
{ /* ./Reduce/1occ.scm 399 */
obj_t BgL_arg2845z00_738;
BgL_arg2845z00_738 = 
CDR(BgL_nodeza2za2_723); 
{ 
bool_t BgL_resetz00_2688;obj_t BgL_nodeza2za2_2687;
BgL_nodeza2za2_2687 = BgL_arg2845z00_738; 
BgL_resetz00_2688 = ((bool_t)0); 
BgL_resetz00_724 = BgL_resetz00_2688; 
BgL_nodeza2za2_723 = BgL_nodeza2za2_2687; 
goto BgL_loopz00_726;} } } } } } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzreduce_1occz00()
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 16 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_nodezd21occz12zd2default2752zd2envzc0zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_atomz00zzast_nodez00, BGl_proc4274z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_kwotez00zzast_nodez00, BGl_proc4275z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_varz00zzast_nodez00, BGl_proc4276z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_closurez00zzast_nodez00, BGl_proc4277z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_sequencez00zzast_nodez00, BGl_proc4278z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4279z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_funcallz00zzast_nodez00, BGl_proc4280z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_externz00zzast_nodez00, BGl_proc4281z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_castz00zzast_nodez00, BGl_proc4282z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_setqz00zzast_nodez00, BGl_proc4283z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_conditionalz00zzast_nodez00, BGl_proc4284z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_failz00zzast_nodez00, BGl_proc4285z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_selectz00zzast_nodez00, BGl_proc4286z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4287z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4288z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4289z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4290z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4291z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4292z00zzreduce_1occz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4293z00zzreduce_1occz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BGl_appz00zzast_nodez00, BGl_proc4294z00zzreduce_1occz00);} 
}



/* node-1occ!-app2795 */
obj_t BGl_nodezd21occz12zd2app2795z12zzreduce_1occz00(obj_t BgL_envz00_2464, obj_t BgL_nodez00_2465, obj_t BgL_1zd2expza2z70_2466)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 368 */
{ 
BgL_appz00_bglt BgL_nodez00_1445;obj_t BgL_1zd2expza2z70_1446;
{ /* ./Reduce/1occ.scm 369 */
bool_t BgL_auxz00_2711;
BgL_nodez00_1445 = 
(BgL_appz00_bglt)(BgL_nodez00_2465); 
BgL_1zd2expza2z70_1446 = BgL_1zd2expza2z70_2466; 
{ /* ./Reduce/1occ.scm 370 */
obj_t BgL_resetz00_1450;
{ /* ./Reduce/1occ.scm 370 */
obj_t BgL_arg3651z00_1456;
BgL_arg3651z00_1456 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1445))->BgL_argsz00); 
BgL_resetz00_1450 = 
BGl_nodezd21occza2z12z62zzreduce_1occz00(BgL_arg3651z00_1456, BgL_1zd2expza2z70_1446); } 
{ /* ./Reduce/1occ.scm 371 */
bool_t BgL_test3644z00_1451;
if(
CBOOL(BgL_resetz00_1450))
{ /* ./Reduce/1occ.scm 371 */
BgL_test3644z00_1451 = ((bool_t)1); }  else 
{ /* ./Reduce/1occ.scm 371 */
BgL_test3644z00_1451 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_nodez00_1445)); } 
if(BgL_test3644z00_1451)
{ /* ./Reduce/1occ.scm 371 */
{ /* ./Reduce/1occ.scm 375 */
int BgL_nz00_2404;
BgL_nz00_2404 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2404); } 
{ /* ./Reduce/1occ.scm 375 */
int BgL_nz00_2405;obj_t BgL_oz00_2406;
BgL_nz00_2405 = 
(int)(((long)1)); 
BgL_oz00_2406 = 
(obj_t)(BgL_nodez00_1445); 
BGL_MVALUES_VAL_SET(BgL_nz00_2405, BgL_oz00_2406); } 
BgL_auxz00_2711 = ((bool_t)1); }  else 
{ /* ./Reduce/1occ.scm 371 */
{ /* ./Reduce/1occ.scm 376 */
int BgL_nz00_2407;
BgL_nz00_2407 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2407); } 
{ /* ./Reduce/1occ.scm 376 */
int BgL_nz00_2408;obj_t BgL_oz00_2409;
BgL_nz00_2408 = 
(int)(((long)1)); 
BgL_oz00_2409 = 
(obj_t)(BgL_nodez00_1445); 
BGL_MVALUES_VAL_SET(BgL_nz00_2408, BgL_oz00_2409); } 
BgL_auxz00_2711 = ((bool_t)0); } } } 
return 
BBOOL(BgL_auxz00_2711);} } } 
}



/* node-1occ!-box-ref2793 */
obj_t BGl_nodezd21occz12zd2boxzd2ref2793zc0zzreduce_1occz00(obj_t BgL_envz00_2467, obj_t BgL_nodez00_2468, obj_t BgL_1zd2expza2z70_2469)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 362 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1437;obj_t BgL_1zd2expza2z70_1438;
{ /* ./Reduce/1occ.scm 363 */
bool_t BgL_auxz00_2731;
BgL_nodez00_1437 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2468); 
BgL_1zd2expza2z70_1438 = BgL_1zd2expza2z70_2469; 
{ /* ./Reduce/1occ.scm 363 */
int BgL_nz00_2400;
BgL_nz00_2400 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2400); } 
{ /* ./Reduce/1occ.scm 363 */
int BgL_nz00_2401;obj_t BgL_oz00_2402;
BgL_nz00_2401 = 
(int)(((long)1)); 
BgL_oz00_2402 = 
(obj_t)(BgL_nodez00_1437); 
BGL_MVALUES_VAL_SET(BgL_nz00_2401, BgL_oz00_2402); } 
BgL_auxz00_2731 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_2731);} } } 
}



/* node-1occ!-box-set!2791 */
obj_t BGl_nodezd21occz12zd2boxzd2setz122791zd2zzreduce_1occz00(obj_t BgL_envz00_2470, obj_t BgL_nodez00_2471, obj_t BgL_1zd2expza2z70_2472)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 352 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1425;obj_t BgL_1zd2expza2z70_1426;
BgL_nodez00_1425 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2471); 
BgL_1zd2expza2z70_1426 = BgL_1zd2expza2z70_2472; 
{ /* ./Reduce/1occ.scm 354 */
obj_t BgL_resetz00_1430;
{ /* ./Reduce/1occ.scm 355 */
BgL_nodez00_bglt BgL_arg3627z00_1434;
BgL_arg3627z00_1434 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1425))->BgL_valuez00); 
{ /* ./Reduce/1occ.scm 355 */
obj_t BgL_method2753z00_2367;
{ /* ./Reduce/1occ.scm 355 */
BgL_objectz00_bglt BgL_objz00_2368;
BgL_objz00_2368 = 
(BgL_objectz00_bglt)(BgL_arg3627z00_1434); 
{ /* ./Reduce/1occ.scm 355 */
long BgL_objzd2classzd2numz00_2369;
BgL_objzd2classzd2numz00_2369 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2368); 
{ /* ./Reduce/1occ.scm 355 */
obj_t BgL_arg2017z00_2370;
{ /* ./Reduce/1occ.scm 355 */
int BgL_auxz00_2742;
BgL_auxz00_2742 = 
(int)(((long)1)); 
BgL_arg2017z00_2370 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_2742); } 
{ /* ./Reduce/1occ.scm 355 */
int BgL_offsetz00_2373;
BgL_offsetz00_2373 = 
(int)(BgL_objzd2classzd2numz00_2369); 
{ /* ./Reduce/1occ.scm 355 */
long BgL_offsetz00_2374;
{ /* ./Reduce/1occ.scm 355 */
long BgL_auxz00_2746;
BgL_auxz00_2746 = 
(long)(BgL_offsetz00_2373); 
BgL_offsetz00_2374 = 
(BgL_auxz00_2746-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 355 */
long BgL_modz00_2375;
{ /* ./Reduce/1occ.scm 355 */
int BgL_arg2028z00_2376;
BgL_arg2028z00_2376 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 355 */
long BgL_n2z00_2384;
BgL_n2z00_2384 = 
(long)(BgL_arg2028z00_2376); 
BgL_modz00_2375 = 
(BgL_offsetz00_2374/BgL_n2z00_2384); } } 
{ /* ./Reduce/1occ.scm 355 */
long BgL_restz00_2377;
{ /* ./Reduce/1occ.scm 355 */
int BgL_arg2024z00_2378;
BgL_arg2024z00_2378 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 355 */
long BgL_n2z00_2387;
BgL_n2z00_2387 = 
(long)(BgL_arg2024z00_2378); 
BgL_restz00_2377 = 
(BgL_offsetz00_2374%BgL_n2z00_2387); } } 
{ /* ./Reduce/1occ.scm 355 */

{ /* ./Reduce/1occ.scm 355 */
obj_t BgL_bucketz00_2379;
{ /* ./Reduce/1occ.scm 355 */
int BgL_kz00_2389;
BgL_kz00_2389 = 
(int)(BgL_modz00_2375); 
BgL_bucketz00_2379 = 
VECTOR_REF(BgL_arg2017z00_2370,BgL_kz00_2389); } 
{ /* ./Reduce/1occ.scm 355 */
int BgL_kz00_2391;
BgL_kz00_2391 = 
(int)(BgL_restz00_2377); 
BgL_method2753z00_2367 = 
VECTOR_REF(BgL_bucketz00_2379,BgL_kz00_2391); } } } } } } } } } } 
BgL_resetz00_1430 = 
PROCEDURE_ENTRY(BgL_method2753z00_2367)(BgL_method2753z00_2367, 
(obj_t)(BgL_arg3627z00_1434), BgL_1zd2expza2z70_1426, BEOA); } } 
{ /* ./Reduce/1occ.scm 356 */
obj_t BgL_nvaluez00_1431;
{ /* ./Reduce/1occ.scm 356 */
int BgL_nz00_2392;
BgL_nz00_2392 = 
(int)(((long)1)); 
BgL_nvaluez00_1431 = 
BGL_MVALUES_VAL(BgL_nz00_2392); } 
{ /* ./Reduce/1occ.scm 356 */
BgL_boxzd2setz12zc0_bglt BgL_obj2645z00_2393;BgL_nodez00_bglt BgL_val2644z00_2394;
BgL_obj2645z00_2393 = BgL_nodez00_1425; 
BgL_val2644z00_2394 = 
(BgL_nodez00_bglt)(BgL_nvaluez00_1431); 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2645z00_2393))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2644z00_2394), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 357 */
int BgL_nz00_2395;
BgL_nz00_2395 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2395); } 
{ /* ./Reduce/1occ.scm 357 */
int BgL_nz00_2396;obj_t BgL_oz00_2397;
BgL_nz00_2396 = 
(int)(((long)1)); 
BgL_oz00_2397 = 
(obj_t)(BgL_nodez00_1425); 
BGL_MVALUES_VAL_SET(BgL_nz00_2396, BgL_oz00_2397); } 
return BgL_resetz00_1430;} } } } 
}



/* node-1occ!-make-box2789 */
obj_t BGl_nodezd21occz12zd2makezd2box2789zc0zzreduce_1occz00(obj_t BgL_envz00_2473, obj_t BgL_nodez00_2474, obj_t BgL_1zd2expza2z70_2475)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 342 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1413;obj_t BgL_1zd2expza2z70_1414;
BgL_nodez00_1413 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2474); 
BgL_1zd2expza2z70_1414 = BgL_1zd2expza2z70_2475; 
{ /* ./Reduce/1occ.scm 344 */
obj_t BgL_resetz00_1418;
{ /* ./Reduce/1occ.scm 345 */
BgL_nodez00_bglt BgL_arg3613z00_1422;
BgL_arg3613z00_1422 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1413))->BgL_valuez00); 
{ /* ./Reduce/1occ.scm 345 */
obj_t BgL_method2753z00_2333;
{ /* ./Reduce/1occ.scm 345 */
BgL_objectz00_bglt BgL_objz00_2334;
BgL_objz00_2334 = 
(BgL_objectz00_bglt)(BgL_arg3613z00_1422); 
{ /* ./Reduce/1occ.scm 345 */
long BgL_objzd2classzd2numz00_2335;
BgL_objzd2classzd2numz00_2335 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2334); 
{ /* ./Reduce/1occ.scm 345 */
obj_t BgL_arg2017z00_2336;
{ /* ./Reduce/1occ.scm 345 */
int BgL_auxz00_2775;
BgL_auxz00_2775 = 
(int)(((long)1)); 
BgL_arg2017z00_2336 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_2775); } 
{ /* ./Reduce/1occ.scm 345 */
int BgL_offsetz00_2339;
BgL_offsetz00_2339 = 
(int)(BgL_objzd2classzd2numz00_2335); 
{ /* ./Reduce/1occ.scm 345 */
long BgL_offsetz00_2340;
{ /* ./Reduce/1occ.scm 345 */
long BgL_auxz00_2779;
BgL_auxz00_2779 = 
(long)(BgL_offsetz00_2339); 
BgL_offsetz00_2340 = 
(BgL_auxz00_2779-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 345 */
long BgL_modz00_2341;
{ /* ./Reduce/1occ.scm 345 */
int BgL_arg2028z00_2342;
BgL_arg2028z00_2342 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 345 */
long BgL_n2z00_2350;
BgL_n2z00_2350 = 
(long)(BgL_arg2028z00_2342); 
BgL_modz00_2341 = 
(BgL_offsetz00_2340/BgL_n2z00_2350); } } 
{ /* ./Reduce/1occ.scm 345 */
long BgL_restz00_2343;
{ /* ./Reduce/1occ.scm 345 */
int BgL_arg2024z00_2344;
BgL_arg2024z00_2344 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 345 */
long BgL_n2z00_2353;
BgL_n2z00_2353 = 
(long)(BgL_arg2024z00_2344); 
BgL_restz00_2343 = 
(BgL_offsetz00_2340%BgL_n2z00_2353); } } 
{ /* ./Reduce/1occ.scm 345 */

{ /* ./Reduce/1occ.scm 345 */
obj_t BgL_bucketz00_2345;
{ /* ./Reduce/1occ.scm 345 */
int BgL_kz00_2355;
BgL_kz00_2355 = 
(int)(BgL_modz00_2341); 
BgL_bucketz00_2345 = 
VECTOR_REF(BgL_arg2017z00_2336,BgL_kz00_2355); } 
{ /* ./Reduce/1occ.scm 345 */
int BgL_kz00_2357;
BgL_kz00_2357 = 
(int)(BgL_restz00_2343); 
BgL_method2753z00_2333 = 
VECTOR_REF(BgL_bucketz00_2345,BgL_kz00_2357); } } } } } } } } } } 
BgL_resetz00_1418 = 
PROCEDURE_ENTRY(BgL_method2753z00_2333)(BgL_method2753z00_2333, 
(obj_t)(BgL_arg3613z00_1422), BgL_1zd2expza2z70_1414, BEOA); } } 
{ /* ./Reduce/1occ.scm 346 */
obj_t BgL_nvaluez00_1419;
{ /* ./Reduce/1occ.scm 346 */
int BgL_nz00_2358;
BgL_nz00_2358 = 
(int)(((long)1)); 
BgL_nvaluez00_1419 = 
BGL_MVALUES_VAL(BgL_nz00_2358); } 
{ /* ./Reduce/1occ.scm 346 */
BgL_makezd2boxzd2_bglt BgL_obj2584z00_2359;BgL_nodez00_bglt BgL_val2583z00_2360;
BgL_obj2584z00_2359 = BgL_nodez00_1413; 
BgL_val2583z00_2360 = 
(BgL_nodez00_bglt)(BgL_nvaluez00_1419); 
((((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2584z00_2359))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2583z00_2360), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 347 */
int BgL_nz00_2361;
BgL_nz00_2361 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2361); } 
{ /* ./Reduce/1occ.scm 347 */
int BgL_nz00_2362;obj_t BgL_oz00_2363;
BgL_nz00_2362 = 
(int)(((long)1)); 
BgL_oz00_2363 = 
(obj_t)(BgL_nodez00_1413); 
BGL_MVALUES_VAL_SET(BgL_nz00_2362, BgL_oz00_2363); } 
return BgL_resetz00_1418;} } } } 
}



/* node-1occ!-jump-ex-it2787 */
obj_t BGl_nodezd21occz12zd2jumpzd2exzd2it2787z12zzreduce_1occz00(obj_t BgL_envz00_2476, obj_t BgL_nodez00_2477, obj_t BgL_1zd2expza2z70_2478)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 328 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1396;obj_t BgL_1zd2expza2z70_1397;
BgL_nodez00_1396 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2477); 
BgL_1zd2expza2z70_1397 = BgL_1zd2expza2z70_2478; 
{ /* ./Reduce/1occ.scm 330 */
obj_t BgL_resetz00_1401;
{ /* ./Reduce/1occ.scm 331 */
BgL_nodez00_bglt BgL_arg3599z00_1410;
BgL_arg3599z00_1410 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1396))->BgL_exitz00); 
{ /* ./Reduce/1occ.scm 331 */
obj_t BgL_method2753z00_2268;
{ /* ./Reduce/1occ.scm 331 */
BgL_objectz00_bglt BgL_objz00_2269;
BgL_objz00_2269 = 
(BgL_objectz00_bglt)(BgL_arg3599z00_1410); 
{ /* ./Reduce/1occ.scm 331 */
long BgL_objzd2classzd2numz00_2270;
BgL_objzd2classzd2numz00_2270 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2269); 
{ /* ./Reduce/1occ.scm 331 */
obj_t BgL_arg2017z00_2271;
{ /* ./Reduce/1occ.scm 331 */
int BgL_auxz00_2808;
BgL_auxz00_2808 = 
(int)(((long)1)); 
BgL_arg2017z00_2271 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_2808); } 
{ /* ./Reduce/1occ.scm 331 */
int BgL_offsetz00_2274;
BgL_offsetz00_2274 = 
(int)(BgL_objzd2classzd2numz00_2270); 
{ /* ./Reduce/1occ.scm 331 */
long BgL_offsetz00_2275;
{ /* ./Reduce/1occ.scm 331 */
long BgL_auxz00_2812;
BgL_auxz00_2812 = 
(long)(BgL_offsetz00_2274); 
BgL_offsetz00_2275 = 
(BgL_auxz00_2812-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 331 */
long BgL_modz00_2276;
{ /* ./Reduce/1occ.scm 331 */
int BgL_arg2028z00_2277;
BgL_arg2028z00_2277 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 331 */
long BgL_n2z00_2285;
BgL_n2z00_2285 = 
(long)(BgL_arg2028z00_2277); 
BgL_modz00_2276 = 
(BgL_offsetz00_2275/BgL_n2z00_2285); } } 
{ /* ./Reduce/1occ.scm 331 */
long BgL_restz00_2278;
{ /* ./Reduce/1occ.scm 331 */
int BgL_arg2024z00_2279;
BgL_arg2024z00_2279 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 331 */
long BgL_n2z00_2288;
BgL_n2z00_2288 = 
(long)(BgL_arg2024z00_2279); 
BgL_restz00_2278 = 
(BgL_offsetz00_2275%BgL_n2z00_2288); } } 
{ /* ./Reduce/1occ.scm 331 */

{ /* ./Reduce/1occ.scm 331 */
obj_t BgL_bucketz00_2280;
{ /* ./Reduce/1occ.scm 331 */
int BgL_kz00_2290;
BgL_kz00_2290 = 
(int)(BgL_modz00_2276); 
BgL_bucketz00_2280 = 
VECTOR_REF(BgL_arg2017z00_2271,BgL_kz00_2290); } 
{ /* ./Reduce/1occ.scm 331 */
int BgL_kz00_2292;
BgL_kz00_2292 = 
(int)(BgL_restz00_2278); 
BgL_method2753z00_2268 = 
VECTOR_REF(BgL_bucketz00_2280,BgL_kz00_2292); } } } } } } } } } } 
BgL_resetz00_1401 = 
PROCEDURE_ENTRY(BgL_method2753z00_2268)(BgL_method2753z00_2268, 
(obj_t)(BgL_arg3599z00_1410), BgL_1zd2expza2z70_1397, BEOA); } } 
{ /* ./Reduce/1occ.scm 332 */
obj_t BgL_nexitz00_1402;
{ /* ./Reduce/1occ.scm 332 */
int BgL_nz00_2293;
BgL_nz00_2293 = 
(int)(((long)1)); 
BgL_nexitz00_1402 = 
BGL_MVALUES_VAL(BgL_nz00_2293); } 
{ /* ./Reduce/1occ.scm 332 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2552z00_2294;BgL_nodez00_bglt BgL_val2551z00_2295;
BgL_obj2552z00_2294 = BgL_nodez00_1396; 
BgL_val2551z00_2295 = 
(BgL_nodez00_bglt)(BgL_nexitz00_1402); 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2552z00_2294))->BgL_exitz00) = ((BgL_nodez00_bglt)BgL_val2551z00_2295), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 333 */
obj_t BgL_1zd2expza2z72z02_1403;
if(
CBOOL(BgL_resetz00_1401))
{ /* ./Reduce/1occ.scm 333 */
BgL_1zd2expza2z72z02_1403 = BNIL; }  else 
{ /* ./Reduce/1occ.scm 333 */
BgL_1zd2expza2z72z02_1403 = BgL_1zd2expza2z70_1397; } 
{ /* ./Reduce/1occ.scm 334 */
obj_t BgL_resetz72z72_1404;
{ /* ./Reduce/1occ.scm 335 */
BgL_nodez00_bglt BgL_arg3594z00_1409;
BgL_arg3594z00_1409 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1396))->BgL_valuez00); 
{ /* ./Reduce/1occ.scm 335 */
obj_t BgL_method2753z00_2299;
{ /* ./Reduce/1occ.scm 335 */
BgL_objectz00_bglt BgL_objz00_2300;
BgL_objz00_2300 = 
(BgL_objectz00_bglt)(BgL_arg3594z00_1409); 
{ /* ./Reduce/1occ.scm 335 */
long BgL_objzd2classzd2numz00_2301;
BgL_objzd2classzd2numz00_2301 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2300); 
{ /* ./Reduce/1occ.scm 335 */
obj_t BgL_arg2017z00_2302;
{ /* ./Reduce/1occ.scm 335 */
int BgL_auxz00_2837;
BgL_auxz00_2837 = 
(int)(((long)1)); 
BgL_arg2017z00_2302 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_2837); } 
{ /* ./Reduce/1occ.scm 335 */
int BgL_offsetz00_2305;
BgL_offsetz00_2305 = 
(int)(BgL_objzd2classzd2numz00_2301); 
{ /* ./Reduce/1occ.scm 335 */
long BgL_offsetz00_2306;
{ /* ./Reduce/1occ.scm 335 */
long BgL_auxz00_2841;
BgL_auxz00_2841 = 
(long)(BgL_offsetz00_2305); 
BgL_offsetz00_2306 = 
(BgL_auxz00_2841-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 335 */
long BgL_modz00_2307;
{ /* ./Reduce/1occ.scm 335 */
int BgL_arg2028z00_2308;
BgL_arg2028z00_2308 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 335 */
long BgL_n2z00_2316;
BgL_n2z00_2316 = 
(long)(BgL_arg2028z00_2308); 
BgL_modz00_2307 = 
(BgL_offsetz00_2306/BgL_n2z00_2316); } } 
{ /* ./Reduce/1occ.scm 335 */
long BgL_restz00_2309;
{ /* ./Reduce/1occ.scm 335 */
int BgL_arg2024z00_2310;
BgL_arg2024z00_2310 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 335 */
long BgL_n2z00_2319;
BgL_n2z00_2319 = 
(long)(BgL_arg2024z00_2310); 
BgL_restz00_2309 = 
(BgL_offsetz00_2306%BgL_n2z00_2319); } } 
{ /* ./Reduce/1occ.scm 335 */

{ /* ./Reduce/1occ.scm 335 */
obj_t BgL_bucketz00_2311;
{ /* ./Reduce/1occ.scm 335 */
int BgL_kz00_2321;
BgL_kz00_2321 = 
(int)(BgL_modz00_2307); 
BgL_bucketz00_2311 = 
VECTOR_REF(BgL_arg2017z00_2302,BgL_kz00_2321); } 
{ /* ./Reduce/1occ.scm 335 */
int BgL_kz00_2323;
BgL_kz00_2323 = 
(int)(BgL_restz00_2309); 
BgL_method2753z00_2299 = 
VECTOR_REF(BgL_bucketz00_2311,BgL_kz00_2323); } } } } } } } } } } 
BgL_resetz72z72_1404 = 
PROCEDURE_ENTRY(BgL_method2753z00_2299)(BgL_method2753z00_2299, 
(obj_t)(BgL_arg3594z00_1409), BgL_1zd2expza2z72z02_1403, BEOA); } } 
{ /* ./Reduce/1occ.scm 336 */
obj_t BgL_nvaluez00_1405;
{ /* ./Reduce/1occ.scm 336 */
int BgL_nz00_2324;
BgL_nz00_2324 = 
(int)(((long)1)); 
BgL_nvaluez00_1405 = 
BGL_MVALUES_VAL(BgL_nz00_2324); } 
{ /* ./Reduce/1occ.scm 336 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2555z00_2325;BgL_nodez00_bglt BgL_val2554z00_2326;
BgL_obj2555z00_2325 = BgL_nodez00_1396; 
BgL_val2554z00_2326 = 
(BgL_nodez00_bglt)(BgL_nvaluez00_1405); 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2555z00_2325))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2554z00_2326), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 337 */
obj_t BgL_val0_2732z00_1406;
if(
CBOOL(BgL_resetz00_1401))
{ /* ./Reduce/1occ.scm 337 */
BgL_val0_2732z00_1406 = BgL_resetz00_1401; }  else 
{ /* ./Reduce/1occ.scm 337 */
BgL_val0_2732z00_1406 = BgL_resetz72z72_1404; } 
{ /* ./Reduce/1occ.scm 337 */
int BgL_nz00_2327;
BgL_nz00_2327 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2327); } 
{ /* ./Reduce/1occ.scm 337 */
int BgL_nz00_2328;obj_t BgL_oz00_2329;
BgL_nz00_2328 = 
(int)(((long)1)); 
BgL_oz00_2329 = 
(obj_t)(BgL_nodez00_1396); 
BGL_MVALUES_VAL_SET(BgL_nz00_2328, BgL_oz00_2329); } 
return BgL_val0_2732z00_1406;} } } } } } } } 
}



/* node-1occ!-set-ex-it2785 */
obj_t BGl_nodezd21occz12zd2setzd2exzd2it2785z12zzreduce_1occz00(obj_t BgL_envz00_2479, obj_t BgL_nodez00_2480, obj_t BgL_1zd2expza2z70_2481)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 318 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1384;obj_t BgL_1zd2expza2z70_1385;
BgL_nodez00_1384 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2480); 
BgL_1zd2expza2z70_1385 = BgL_1zd2expza2z70_2481; 
{ /* ./Reduce/1occ.scm 320 */
obj_t BgL_resetz00_1389;
{ /* ./Reduce/1occ.scm 321 */
BgL_nodez00_bglt BgL_arg3579z00_1393;
BgL_arg3579z00_1393 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1384))->BgL_bodyz00); 
{ /* ./Reduce/1occ.scm 321 */
obj_t BgL_method2753z00_2234;
{ /* ./Reduce/1occ.scm 321 */
BgL_objectz00_bglt BgL_objz00_2235;
BgL_objz00_2235 = 
(BgL_objectz00_bglt)(BgL_arg3579z00_1393); 
{ /* ./Reduce/1occ.scm 321 */
long BgL_objzd2classzd2numz00_2236;
BgL_objzd2classzd2numz00_2236 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2235); 
{ /* ./Reduce/1occ.scm 321 */
obj_t BgL_arg2017z00_2237;
{ /* ./Reduce/1occ.scm 321 */
int BgL_auxz00_2872;
BgL_auxz00_2872 = 
(int)(((long)1)); 
BgL_arg2017z00_2237 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_2872); } 
{ /* ./Reduce/1occ.scm 321 */
int BgL_offsetz00_2240;
BgL_offsetz00_2240 = 
(int)(BgL_objzd2classzd2numz00_2236); 
{ /* ./Reduce/1occ.scm 321 */
long BgL_offsetz00_2241;
{ /* ./Reduce/1occ.scm 321 */
long BgL_auxz00_2876;
BgL_auxz00_2876 = 
(long)(BgL_offsetz00_2240); 
BgL_offsetz00_2241 = 
(BgL_auxz00_2876-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 321 */
long BgL_modz00_2242;
{ /* ./Reduce/1occ.scm 321 */
int BgL_arg2028z00_2243;
BgL_arg2028z00_2243 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 321 */
long BgL_n2z00_2251;
BgL_n2z00_2251 = 
(long)(BgL_arg2028z00_2243); 
BgL_modz00_2242 = 
(BgL_offsetz00_2241/BgL_n2z00_2251); } } 
{ /* ./Reduce/1occ.scm 321 */
long BgL_restz00_2244;
{ /* ./Reduce/1occ.scm 321 */
int BgL_arg2024z00_2245;
BgL_arg2024z00_2245 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 321 */
long BgL_n2z00_2254;
BgL_n2z00_2254 = 
(long)(BgL_arg2024z00_2245); 
BgL_restz00_2244 = 
(BgL_offsetz00_2241%BgL_n2z00_2254); } } 
{ /* ./Reduce/1occ.scm 321 */

{ /* ./Reduce/1occ.scm 321 */
obj_t BgL_bucketz00_2246;
{ /* ./Reduce/1occ.scm 321 */
int BgL_kz00_2256;
BgL_kz00_2256 = 
(int)(BgL_modz00_2242); 
BgL_bucketz00_2246 = 
VECTOR_REF(BgL_arg2017z00_2237,BgL_kz00_2256); } 
{ /* ./Reduce/1occ.scm 321 */
int BgL_kz00_2258;
BgL_kz00_2258 = 
(int)(BgL_restz00_2244); 
BgL_method2753z00_2234 = 
VECTOR_REF(BgL_bucketz00_2246,BgL_kz00_2258); } } } } } } } } } } 
BgL_resetz00_1389 = 
PROCEDURE_ENTRY(BgL_method2753z00_2234)(BgL_method2753z00_2234, 
(obj_t)(BgL_arg3579z00_1393), BgL_1zd2expza2z70_1385, BEOA); } } 
{ /* ./Reduce/1occ.scm 322 */
obj_t BgL_nbodyz00_1390;
{ /* ./Reduce/1occ.scm 322 */
int BgL_nz00_2259;
BgL_nz00_2259 = 
(int)(((long)1)); 
BgL_nbodyz00_1390 = 
BGL_MVALUES_VAL(BgL_nz00_2259); } 
{ /* ./Reduce/1occ.scm 322 */
BgL_setzd2exzd2itz00_bglt BgL_obj2529z00_2260;BgL_nodez00_bglt BgL_val2528z00_2261;
BgL_obj2529z00_2260 = BgL_nodez00_1384; 
BgL_val2528z00_2261 = 
(BgL_nodez00_bglt)(BgL_nbodyz00_1390); 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2529z00_2260))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2528z00_2261), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 323 */
int BgL_nz00_2262;
BgL_nz00_2262 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2262); } 
{ /* ./Reduce/1occ.scm 323 */
int BgL_nz00_2263;obj_t BgL_oz00_2264;
BgL_nz00_2263 = 
(int)(((long)1)); 
BgL_oz00_2264 = 
(obj_t)(BgL_nodez00_1384); 
BGL_MVALUES_VAL_SET(BgL_nz00_2263, BgL_oz00_2264); } 
return BgL_resetz00_1389;} } } } 
}



/* node-1occ!-let-var2783 */
obj_t BGl_nodezd21occz12zd2letzd2var2783zc0zzreduce_1occz00(obj_t BgL_envz00_2482, obj_t BgL_nodez00_2483, obj_t BgL_1zd2expza2z70_2484)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 231 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1302;obj_t BgL_1zd2expza2z70_1303;
BgL_nodez00_1302 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2483); 
BgL_1zd2expza2z70_1303 = BgL_1zd2expza2z70_2484; 
{ 
obj_t BgL_obindingsz00_1307;bool_t BgL_resetz00_1308;obj_t BgL_extendz00_1309;
{ /* ./Reduce/1occ.scm 233 */
obj_t BgL_arg3430z00_1311;
BgL_arg3430z00_1311 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1302))->BgL_bindingsz00); 
BgL_obindingsz00_1307 = BgL_arg3430z00_1311; 
BgL_resetz00_1308 = ((bool_t)0); 
BgL_extendz00_1309 = BNIL; 
BgL_loopz00_1310:
{ /* ./Reduce/1occ.scm 236 */
bool_t BgL_test3434z00_1313;
BgL_test3434z00_1313 = 
NULLP(BgL_obindingsz00_1307); 
if(BgL_test3434z00_1313)
{ /* ./Reduce/1occ.scm 237 */
bool_t BgL_test3435z00_1314;
if(BgL_resetz00_1308)
{ /* ./Reduce/1occ.scm 237 */
BgL_test3435z00_1314 = ((bool_t)1); }  else 
{ /* ./Reduce/1occ.scm 237 */
BgL_nodez00_bglt BgL_arg3502z00_1351;
BgL_arg3502z00_1351 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1302))->BgL_bodyz00); 
BgL_test3435z00_1314 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(BgL_arg3502z00_1351); } 
if(BgL_test3435z00_1314)
{ /* ./Reduce/1occ.scm 238 */
obj_t BgL_resetz72z72_1315;
{ /* ./Reduce/1occ.scm 239 */
BgL_nodez00_bglt BgL_arg3441z00_1319;
BgL_arg3441z00_1319 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1302))->BgL_bodyz00); 
{ /* ./Reduce/1occ.scm 239 */
obj_t BgL_method2753z00_2100;
{ /* ./Reduce/1occ.scm 239 */
BgL_objectz00_bglt BgL_objz00_2101;
BgL_objz00_2101 = 
(BgL_objectz00_bglt)(BgL_arg3441z00_1319); 
{ /* ./Reduce/1occ.scm 239 */
long BgL_objzd2classzd2numz00_2102;
BgL_objzd2classzd2numz00_2102 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2101); 
{ /* ./Reduce/1occ.scm 239 */
obj_t BgL_arg2017z00_2103;
{ /* ./Reduce/1occ.scm 239 */
int BgL_auxz00_2912;
BgL_auxz00_2912 = 
(int)(((long)1)); 
BgL_arg2017z00_2103 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_2912); } 
{ /* ./Reduce/1occ.scm 239 */
int BgL_offsetz00_2106;
BgL_offsetz00_2106 = 
(int)(BgL_objzd2classzd2numz00_2102); 
{ /* ./Reduce/1occ.scm 239 */
long BgL_offsetz00_2107;
{ /* ./Reduce/1occ.scm 239 */
long BgL_auxz00_2916;
BgL_auxz00_2916 = 
(long)(BgL_offsetz00_2106); 
BgL_offsetz00_2107 = 
(BgL_auxz00_2916-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 239 */
long BgL_modz00_2108;
{ /* ./Reduce/1occ.scm 239 */
int BgL_arg2028z00_2109;
BgL_arg2028z00_2109 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 239 */
long BgL_n2z00_2117;
BgL_n2z00_2117 = 
(long)(BgL_arg2028z00_2109); 
BgL_modz00_2108 = 
(BgL_offsetz00_2107/BgL_n2z00_2117); } } 
{ /* ./Reduce/1occ.scm 239 */
long BgL_restz00_2110;
{ /* ./Reduce/1occ.scm 239 */
int BgL_arg2024z00_2111;
BgL_arg2024z00_2111 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 239 */
long BgL_n2z00_2120;
BgL_n2z00_2120 = 
(long)(BgL_arg2024z00_2111); 
BgL_restz00_2110 = 
(BgL_offsetz00_2107%BgL_n2z00_2120); } } 
{ /* ./Reduce/1occ.scm 239 */

{ /* ./Reduce/1occ.scm 239 */
obj_t BgL_bucketz00_2112;
{ /* ./Reduce/1occ.scm 239 */
int BgL_kz00_2122;
BgL_kz00_2122 = 
(int)(BgL_modz00_2108); 
BgL_bucketz00_2112 = 
VECTOR_REF(BgL_arg2017z00_2103,BgL_kz00_2122); } 
{ /* ./Reduce/1occ.scm 239 */
int BgL_kz00_2124;
BgL_kz00_2124 = 
(int)(BgL_restz00_2110); 
BgL_method2753z00_2100 = 
VECTOR_REF(BgL_bucketz00_2112,BgL_kz00_2124); } } } } } } } } } } 
BgL_resetz72z72_1315 = 
PROCEDURE_ENTRY(BgL_method2753z00_2100)(BgL_method2753z00_2100, 
(obj_t)(BgL_arg3441z00_1319), BNIL, BEOA); } } 
{ /* ./Reduce/1occ.scm 239 */
obj_t BgL_nbodyz00_1316;
{ /* ./Reduce/1occ.scm 239 */
int BgL_nz00_2125;
BgL_nz00_2125 = 
(int)(((long)1)); 
BgL_nbodyz00_1316 = 
BGL_MVALUES_VAL(BgL_nz00_2125); } 
{ /* ./Reduce/1occ.scm 240 */
BgL_letzd2varzd2_bglt BgL_obj2491z00_2126;BgL_nodez00_bglt BgL_val2490z00_2127;
BgL_obj2491z00_2126 = BgL_nodez00_1302; 
BgL_val2490z00_2127 = 
(BgL_nodez00_bglt)(BgL_nbodyz00_1316); 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2491z00_2126))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2490z00_2127), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 241 */
int BgL_nz00_2128;
BgL_nz00_2128 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2128); } 
{ /* ./Reduce/1occ.scm 241 */
int BgL_nz00_2129;obj_t BgL_oz00_2130;
BgL_nz00_2129 = 
(int)(((long)1)); 
BgL_oz00_2130 = 
(obj_t)(BgL_nodez00_1302); 
BGL_MVALUES_VAL_SET(BgL_nz00_2129, BgL_oz00_2130); } 
return BTRUE;} }  else 
{ /* ./Reduce/1occ.scm 242 */
obj_t BgL_1zd2expza2z72z02_1321;
BgL_1zd2expza2z72z02_1321 = 
bgl_append2(BgL_extendz00_1309, BgL_1zd2expza2z70_1303); 
{ /* ./Reduce/1occ.scm 243 */
obj_t BgL_resetz72z72_1322;
{ /* ./Reduce/1occ.scm 244 */
BgL_nodez00_bglt BgL_arg3497z00_1350;
BgL_arg3497z00_1350 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1302))->BgL_bodyz00); 
{ /* ./Reduce/1occ.scm 244 */
obj_t BgL_method2753z00_2134;
{ /* ./Reduce/1occ.scm 244 */
BgL_objectz00_bglt BgL_objz00_2135;
BgL_objz00_2135 = 
(BgL_objectz00_bglt)(BgL_arg3497z00_1350); 
{ /* ./Reduce/1occ.scm 244 */
long BgL_objzd2classzd2numz00_2136;
BgL_objzd2classzd2numz00_2136 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2135); 
{ /* ./Reduce/1occ.scm 244 */
obj_t BgL_arg2017z00_2137;
{ /* ./Reduce/1occ.scm 244 */
int BgL_auxz00_2945;
BgL_auxz00_2945 = 
(int)(((long)1)); 
BgL_arg2017z00_2137 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_2945); } 
{ /* ./Reduce/1occ.scm 244 */
int BgL_offsetz00_2140;
BgL_offsetz00_2140 = 
(int)(BgL_objzd2classzd2numz00_2136); 
{ /* ./Reduce/1occ.scm 244 */
long BgL_offsetz00_2141;
{ /* ./Reduce/1occ.scm 244 */
long BgL_auxz00_2949;
BgL_auxz00_2949 = 
(long)(BgL_offsetz00_2140); 
BgL_offsetz00_2141 = 
(BgL_auxz00_2949-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 244 */
long BgL_modz00_2142;
{ /* ./Reduce/1occ.scm 244 */
int BgL_arg2028z00_2143;
BgL_arg2028z00_2143 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 244 */
long BgL_n2z00_2151;
BgL_n2z00_2151 = 
(long)(BgL_arg2028z00_2143); 
BgL_modz00_2142 = 
(BgL_offsetz00_2141/BgL_n2z00_2151); } } 
{ /* ./Reduce/1occ.scm 244 */
long BgL_restz00_2144;
{ /* ./Reduce/1occ.scm 244 */
int BgL_arg2024z00_2145;
BgL_arg2024z00_2145 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 244 */
long BgL_n2z00_2154;
BgL_n2z00_2154 = 
(long)(BgL_arg2024z00_2145); 
BgL_restz00_2144 = 
(BgL_offsetz00_2141%BgL_n2z00_2154); } } 
{ /* ./Reduce/1occ.scm 244 */

{ /* ./Reduce/1occ.scm 244 */
obj_t BgL_bucketz00_2146;
{ /* ./Reduce/1occ.scm 244 */
int BgL_kz00_2156;
BgL_kz00_2156 = 
(int)(BgL_modz00_2142); 
BgL_bucketz00_2146 = 
VECTOR_REF(BgL_arg2017z00_2137,BgL_kz00_2156); } 
{ /* ./Reduce/1occ.scm 244 */
int BgL_kz00_2158;
BgL_kz00_2158 = 
(int)(BgL_restz00_2144); 
BgL_method2753z00_2134 = 
VECTOR_REF(BgL_bucketz00_2146,BgL_kz00_2158); } } } } } } } } } } 
BgL_resetz72z72_1322 = 
PROCEDURE_ENTRY(BgL_method2753z00_2134)(BgL_method2753z00_2134, 
(obj_t)(BgL_arg3497z00_1350), BgL_1zd2expza2z72z02_1321, BEOA); } } 
{ /* ./Reduce/1occ.scm 245 */
obj_t BgL_nbodyz00_1323;
{ /* ./Reduce/1occ.scm 245 */
int BgL_nz00_2159;
BgL_nz00_2159 = 
(int)(((long)1)); 
BgL_nbodyz00_1323 = 
BGL_MVALUES_VAL(BgL_nz00_2159); } 
{ /* ./Reduce/1occ.scm 245 */
BgL_letzd2varzd2_bglt BgL_obj2491z00_2160;BgL_nodez00_bglt BgL_val2490z00_2161;
BgL_obj2491z00_2160 = BgL_nodez00_1302; 
BgL_val2490z00_2161 = 
(BgL_nodez00_bglt)(BgL_nbodyz00_1323); 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2491z00_2160))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2490z00_2161), BUNSPEC); } 
{ 
obj_t BgL_obindingsz00_1324;obj_t BgL_nbindingsz00_1325;
{ /* ./Reduce/1occ.scm 248 */
obj_t BgL_arg3447z00_1327;
BgL_arg3447z00_1327 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1302))->BgL_bindingsz00); 
BgL_obindingsz00_1324 = BgL_arg3447z00_1327; 
BgL_nbindingsz00_1325 = BNIL; 
BgL_loopz00_1326:
{ /* ./Reduce/1occ.scm 251 */
bool_t BgL_test3451z00_1329;
BgL_test3451z00_1329 = 
NULLP(BgL_obindingsz00_1324); 
if(BgL_test3451z00_1329)
{ /* ./Reduce/1occ.scm 251 */
{ /* ./Reduce/1occ.scm 252 */
bool_t BgL_test3452z00_1330;
if(
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1302))->BgL_removablezf3zf3))
{ /* ./Reduce/1occ.scm 252 */
BgL_test3452z00_1330 = 
NULLP(BgL_nbindingsz00_1325); }  else 
{ /* ./Reduce/1occ.scm 252 */
BgL_test3452z00_1330 = ((bool_t)0); } 
if(BgL_test3452z00_1330)
{ /* ./Reduce/1occ.scm 252 */
{ /* ./Reduce/1occ.scm 258 */
BgL_nodez00_bglt BgL_val1_2722z00_1332;
BgL_val1_2722z00_1332 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1302))->BgL_bodyz00); 
{ /* ./Reduce/1occ.scm 258 */
int BgL_nz00_2167;
BgL_nz00_2167 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2167); } 
{ /* ./Reduce/1occ.scm 258 */
int BgL_nz00_2168;obj_t BgL_oz00_2169;
BgL_nz00_2168 = 
(int)(((long)1)); 
BgL_oz00_2169 = 
(obj_t)(BgL_val1_2722z00_1332); 
BGL_MVALUES_VAL_SET(BgL_nz00_2168, BgL_oz00_2169); } 
return BgL_resetz72z72_1322;} }  else 
{ /* ./Reduce/1occ.scm 252 */
{ /* ./Reduce/1occ.scm 260 */
obj_t BgL_arg3457z00_1333;
BgL_arg3457z00_1333 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_nbindingsz00_1325); 
{ /* ./Reduce/1occ.scm 260 */
BgL_letzd2varzd2_bglt BgL_obj2488z00_2170;obj_t BgL_val2487z00_2171;
BgL_obj2488z00_2170 = BgL_nodez00_1302; 
BgL_val2487z00_2171 = BgL_arg3457z00_1333; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2488z00_2170))->BgL_bindingsz00) = ((obj_t)BgL_val2487z00_2171), BUNSPEC); } } 
{ /* ./Reduce/1occ.scm 261 */
int BgL_nz00_2172;
BgL_nz00_2172 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2172); } 
{ /* ./Reduce/1occ.scm 261 */
int BgL_nz00_2173;obj_t BgL_oz00_2174;
BgL_nz00_2173 = 
(int)(((long)1)); 
BgL_oz00_2174 = 
(obj_t)(BgL_nodez00_1302); 
BGL_MVALUES_VAL_SET(BgL_nz00_2173, BgL_oz00_2174); } 
return BgL_resetz72z72_1322;} } }  else 
{ /* ./Reduce/1occ.scm 262 */
bool_t BgL_test3465z00_1337;
{ /* ./Reduce/1occ.scm 262 */
obj_t BgL_varz00_1342;obj_t BgL_valz00_1343;
{ /* ./Reduce/1occ.scm 262 */
obj_t BgL_auxz00_2989;
BgL_auxz00_2989 = 
CAR(BgL_obindingsz00_1324); 
BgL_varz00_1342 = 
CAR(BgL_auxz00_2989); } 
{ /* ./Reduce/1occ.scm 263 */
obj_t BgL_auxz00_2992;
BgL_auxz00_2992 = 
CAR(BgL_obindingsz00_1324); 
BgL_valz00_1343 = 
CDR(BgL_auxz00_2992); } 
{ /* ./Reduce/1occ.scm 264 */
bool_t BgL__andtest_2725z00_1344;
{ /* ./Reduce/1occ.scm 264 */
long BgL_auxz00_2995;
{ /* ./Reduce/1occ.scm 264 */
BgL_variablez00_bglt BgL_obj1112z00_2179;
BgL_obj1112z00_2179 = 
(BgL_variablez00_bglt)(BgL_varz00_1342); 
BgL_auxz00_2995 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1112z00_2179))->BgL_occurrencez00); } 
BgL__andtest_2725z00_1344 = 
(BgL_auxz00_2995==((long)0)); } 
if(BgL__andtest_2725z00_1344)
{ /* ./Reduce/1occ.scm 265 */
bool_t BgL_test3479z00_1345;
BgL_test3479z00_1345 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_valz00_1343)); 
if(BgL_test3479z00_1345)
{ /* ./Reduce/1occ.scm 265 */
BgL_test3465z00_1337 = ((bool_t)0); }  else 
{ /* ./Reduce/1occ.scm 265 */
BgL_test3465z00_1337 = ((bool_t)1); } }  else 
{ /* ./Reduce/1occ.scm 264 */
BgL_test3465z00_1337 = ((bool_t)0); } } } 
if(BgL_test3465z00_1337)
{ /* ./Reduce/1occ.scm 262 */
{ /* ./Reduce/1occ.scm 270 */
obj_t BgL_arg3467z00_1338;
BgL_arg3467z00_1338 = 
CDR(BgL_obindingsz00_1324); 
{ 
obj_t BgL_obindingsz00_3005;
BgL_obindingsz00_3005 = BgL_arg3467z00_1338; 
BgL_obindingsz00_1324 = BgL_obindingsz00_3005; 
goto BgL_loopz00_1326;} } }  else 
{ /* ./Reduce/1occ.scm 262 */
{ /* ./Reduce/1occ.scm 272 */
obj_t BgL_arg3471z00_1339;obj_t BgL_arg3472z00_1340;
BgL_arg3471z00_1339 = 
CDR(BgL_obindingsz00_1324); 
{ /* ./Reduce/1occ.scm 273 */
obj_t BgL_arg3476z00_1341;
BgL_arg3476z00_1341 = 
CAR(BgL_obindingsz00_1324); 
BgL_arg3472z00_1340 = 
MAKE_PAIR(BgL_arg3476z00_1341, BgL_nbindingsz00_1325); } 
{ 
obj_t BgL_nbindingsz00_3010;obj_t BgL_obindingsz00_3009;
BgL_obindingsz00_3009 = BgL_arg3471z00_1339; 
BgL_nbindingsz00_3010 = BgL_arg3472z00_1340; 
BgL_nbindingsz00_1325 = BgL_nbindingsz00_3010; 
BgL_obindingsz00_1324 = BgL_obindingsz00_3009; 
goto BgL_loopz00_1326;} } } } } } } } } } }  else 
{ /* ./Reduce/1occ.scm 274 */
obj_t BgL_bindingz00_1352;
BgL_bindingz00_1352 = 
CAR(BgL_obindingsz00_1307); 
{ /* ./Reduce/1occ.scm 275 */
obj_t BgL_varz00_1353;obj_t BgL_valz00_1354;
BgL_varz00_1353 = 
CAR(BgL_bindingz00_1352); 
BgL_valz00_1354 = 
CDR(BgL_bindingz00_1352); 
{ /* ./Reduce/1occ.scm 277 */
obj_t BgL_resetz72z72_1355;
{ /* ./Reduce/1occ.scm 278 */
BgL_nodez00_bglt BgL_nodez00_2188;
BgL_nodez00_2188 = 
(BgL_nodez00_bglt)(BgL_valz00_1354); 
{ /* ./Reduce/1occ.scm 278 */
obj_t BgL_method2753z00_2190;
{ /* ./Reduce/1occ.scm 278 */
BgL_objectz00_bglt BgL_objz00_2191;
BgL_objz00_2191 = 
(BgL_objectz00_bglt)(BgL_nodez00_2188); 
{ /* ./Reduce/1occ.scm 278 */
long BgL_objzd2classzd2numz00_2192;
BgL_objzd2classzd2numz00_2192 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2191); 
{ /* ./Reduce/1occ.scm 278 */
obj_t BgL_arg2017z00_2193;
{ /* ./Reduce/1occ.scm 278 */
int BgL_auxz00_3017;
BgL_auxz00_3017 = 
(int)(((long)1)); 
BgL_arg2017z00_2193 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3017); } 
{ /* ./Reduce/1occ.scm 278 */
int BgL_offsetz00_2196;
BgL_offsetz00_2196 = 
(int)(BgL_objzd2classzd2numz00_2192); 
{ /* ./Reduce/1occ.scm 278 */
long BgL_offsetz00_2197;
{ /* ./Reduce/1occ.scm 278 */
long BgL_auxz00_3021;
BgL_auxz00_3021 = 
(long)(BgL_offsetz00_2196); 
BgL_offsetz00_2197 = 
(BgL_auxz00_3021-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 278 */
long BgL_modz00_2198;
{ /* ./Reduce/1occ.scm 278 */
int BgL_arg2028z00_2199;
BgL_arg2028z00_2199 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 278 */
long BgL_n2z00_2207;
BgL_n2z00_2207 = 
(long)(BgL_arg2028z00_2199); 
BgL_modz00_2198 = 
(BgL_offsetz00_2197/BgL_n2z00_2207); } } 
{ /* ./Reduce/1occ.scm 278 */
long BgL_restz00_2200;
{ /* ./Reduce/1occ.scm 278 */
int BgL_arg2024z00_2201;
BgL_arg2024z00_2201 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 278 */
long BgL_n2z00_2210;
BgL_n2z00_2210 = 
(long)(BgL_arg2024z00_2201); 
BgL_restz00_2200 = 
(BgL_offsetz00_2197%BgL_n2z00_2210); } } 
{ /* ./Reduce/1occ.scm 278 */

{ /* ./Reduce/1occ.scm 278 */
obj_t BgL_bucketz00_2202;
{ /* ./Reduce/1occ.scm 278 */
int BgL_kz00_2212;
BgL_kz00_2212 = 
(int)(BgL_modz00_2198); 
BgL_bucketz00_2202 = 
VECTOR_REF(BgL_arg2017z00_2193,BgL_kz00_2212); } 
{ /* ./Reduce/1occ.scm 278 */
int BgL_kz00_2214;
BgL_kz00_2214 = 
(int)(BgL_restz00_2200); 
BgL_method2753z00_2190 = 
VECTOR_REF(BgL_bucketz00_2202,BgL_kz00_2214); } } } } } } } } } } 
BgL_resetz72z72_1355 = 
PROCEDURE_ENTRY(BgL_method2753z00_2190)(BgL_method2753z00_2190, 
(obj_t)(BgL_nodez00_2188), BgL_1zd2expza2z70_1303, BEOA); } } 
{ /* ./Reduce/1occ.scm 279 */
obj_t BgL_nvalz00_1356;
{ /* ./Reduce/1occ.scm 279 */
int BgL_nz00_2215;
BgL_nz00_2215 = 
(int)(((long)1)); 
BgL_nvalz00_1356 = 
BGL_MVALUES_VAL(BgL_nz00_2215); } 
SET_CDR(BgL_bindingz00_1352, BgL_nvalz00_1356); 
{ /* ./Reduce/1occ.scm 281 */
bool_t BgL_test3506z00_1357;
if(BgL_resetz00_1308)
{ /* ./Reduce/1occ.scm 281 */
BgL_test3506z00_1357 = ((bool_t)1); }  else 
{ /* ./Reduce/1occ.scm 281 */
BgL_test3506z00_1357 = 
CBOOL(BgL_resetz72z72_1355); } 
if(BgL_test3506z00_1357)
{ /* ./Reduce/1occ.scm 281 */
{ /* ./Reduce/1occ.scm 282 */
obj_t BgL_arg3508z00_1358;
BgL_arg3508z00_1358 = 
CDR(BgL_obindingsz00_1307); 
{ 
obj_t BgL_extendz00_3046;bool_t BgL_resetz00_3045;obj_t BgL_obindingsz00_3044;
BgL_obindingsz00_3044 = BgL_arg3508z00_1358; 
BgL_resetz00_3045 = ((bool_t)1); 
BgL_extendz00_3046 = BNIL; 
BgL_extendz00_1309 = BgL_extendz00_3046; 
BgL_resetz00_1308 = BgL_resetz00_3045; 
BgL_obindingsz00_1307 = BgL_obindingsz00_3044; 
goto BgL_loopz00_1310;} } }  else 
{ /* ./Reduce/1occ.scm 285 */
bool_t BgL_test3512z00_1360;
{ /* ./Reduce/1occ.scm 285 */
obj_t BgL_auxz00_3050;obj_t BgL_auxz00_3047;
BgL_auxz00_3050 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Reduce/1occ.scm 285 */
BgL_variablez00_bglt BgL_obj1103z00_2219;
BgL_obj1103z00_2219 = 
(BgL_variablez00_bglt)(BgL_varz00_1353); 
BgL_auxz00_3047 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1103z00_2219))->BgL_accessz00); } 
BgL_test3512z00_1360 = 
(BgL_auxz00_3047==BgL_auxz00_3050); } 
if(BgL_test3512z00_1360)
{ /* ./Reduce/1occ.scm 289 */
bool_t BgL_test3513z00_1361;
{ /* ./Reduce/1occ.scm 289 */
bool_t BgL_test3539z00_1372;
{ /* ./Reduce/1occ.scm 289 */
long BgL_auxz00_3054;
{ /* ./Reduce/1occ.scm 289 */
BgL_variablez00_bglt BgL_obj1112z00_2220;
BgL_obj1112z00_2220 = 
(BgL_variablez00_bglt)(BgL_varz00_1353); 
BgL_auxz00_3054 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1112z00_2220))->BgL_occurrencez00); } 
BgL_test3539z00_1372 = 
(BgL_auxz00_3054==((long)1)); } 
if(BgL_test3539z00_1372)
{ /* ./Reduce/1occ.scm 289 */
if(BgL_test3512z00_1360)
{ /* ./Reduce/1occ.scm 291 */
bool_t BgL_test3541z00_1374;
BgL_test3541z00_1374 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_valz00_1354)); 
if(BgL_test3541z00_1374)
{ /* ./Reduce/1occ.scm 291 */
BgL_test3513z00_1361 = ((bool_t)0); }  else 
{ /* ./Reduce/1occ.scm 291 */
BgL_test3513z00_1361 = ((bool_t)1); } }  else 
{ /* ./Reduce/1occ.scm 290 */
BgL_test3513z00_1361 = ((bool_t)0); } }  else 
{ /* ./Reduce/1occ.scm 289 */
BgL_test3513z00_1361 = ((bool_t)0); } } 
if(BgL_test3513z00_1361)
{ /* ./Reduce/1occ.scm 289 */
{ /* ./Reduce/1occ.scm 298 */
obj_t BgL_arg3515z00_1362;obj_t BgL_arg3517z00_1363;
BgL_arg3515z00_1362 = 
CDR(BgL_obindingsz00_1307); 
BgL_arg3517z00_1363 = 
MAKE_PAIR(BgL_bindingz00_1352, BgL_extendz00_1309); 
{ 
obj_t BgL_extendz00_3068;bool_t BgL_resetz00_3067;obj_t BgL_obindingsz00_3066;
BgL_obindingsz00_3066 = BgL_arg3515z00_1362; 
BgL_resetz00_3067 = ((bool_t)0); 
BgL_extendz00_3068 = BgL_arg3517z00_1363; 
BgL_extendz00_1309 = BgL_extendz00_3068; 
BgL_resetz00_1308 = BgL_resetz00_3067; 
BgL_obindingsz00_1307 = BgL_obindingsz00_3066; 
goto BgL_loopz00_1310;} } }  else 
{ /* ./Reduce/1occ.scm 289 */
{ /* ./Reduce/1occ.scm 302 */
bool_t BgL_test3521z00_1364;
{ /* ./Reduce/1occ.scm 302 */
bool_t BgL_test3522z00_1365;
{ /* ./Reduce/1occ.scm 302 */
long BgL_auxz00_3069;
{ /* ./Reduce/1occ.scm 302 */
BgL_variablez00_bglt BgL_obj1112z00_2225;
BgL_obj1112z00_2225 = 
(BgL_variablez00_bglt)(BgL_varz00_1353); 
BgL_auxz00_3069 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1112z00_2225))->BgL_occurrencez00); } 
BgL_test3522z00_1365 = 
(BgL_auxz00_3069==((long)1)); } 
if(BgL_test3522z00_1365)
{ /* ./Reduce/1occ.scm 303 */
bool_t BgL_test3523z00_1366;
{ /* ./Reduce/1occ.scm 303 */
obj_t BgL_auxz00_3077;obj_t BgL_auxz00_3074;
BgL_auxz00_3077 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Reduce/1occ.scm 303 */
BgL_variablez00_bglt BgL_obj1103z00_2228;
BgL_obj1103z00_2228 = 
(BgL_variablez00_bglt)(BgL_varz00_1353); 
BgL_auxz00_3074 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1103z00_2228))->BgL_accessz00); } 
BgL_test3523z00_1366 = 
(BgL_auxz00_3074==BgL_auxz00_3077); } 
if(BgL_test3523z00_1366)
{ /* ./Reduce/1occ.scm 303 */
BgL_test3521z00_1364 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_valz00_1354)); }  else 
{ /* ./Reduce/1occ.scm 303 */
BgL_test3521z00_1364 = ((bool_t)0); } }  else 
{ /* ./Reduce/1occ.scm 302 */
BgL_test3521z00_1364 = ((bool_t)0); } } 
if(BgL_test3521z00_1364)
{ /* ./Reduce/1occ.scm 302 */BNIL; }  else 
{ /* ./Reduce/1occ.scm 302 */BFALSE; } } 
{ /* ./Reduce/1occ.scm 311 */
obj_t BgL_arg3536z00_1371;
BgL_arg3536z00_1371 = 
CDR(BgL_obindingsz00_1307); 
{ 
bool_t BgL_resetz00_3086;obj_t BgL_obindingsz00_3085;
BgL_obindingsz00_3085 = BgL_arg3536z00_1371; 
BgL_resetz00_3086 = ((bool_t)0); 
BgL_resetz00_1308 = BgL_resetz00_3086; 
BgL_obindingsz00_1307 = BgL_obindingsz00_3085; 
goto BgL_loopz00_1310;} } } }  else 
{ /* ./Reduce/1occ.scm 285 */
{ /* ./Reduce/1occ.scm 286 */
obj_t BgL_arg3554z00_1379;
BgL_arg3554z00_1379 = 
CDR(BgL_obindingsz00_1307); 
{ 
bool_t BgL_resetz00_3089;obj_t BgL_obindingsz00_3088;
BgL_obindingsz00_3088 = BgL_arg3554z00_1379; 
BgL_resetz00_3089 = ((bool_t)0); 
BgL_resetz00_1308 = BgL_resetz00_3089; 
BgL_obindingsz00_1307 = BgL_obindingsz00_3088; 
goto BgL_loopz00_1310;} } } } } } } } } } } } } } 
}



/* node-1occ!-let-fun2781 */
obj_t BGl_nodezd21occz12zd2letzd2fun2781zc0zzreduce_1occz00(obj_t BgL_envz00_2485, obj_t BgL_nodez00_2486, obj_t BgL_1zd2expza2z70_2487)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 212 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1276;obj_t BgL_1zd2expza2z70_1277;
BgL_nodez00_1276 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2486); 
BgL_1zd2expza2z70_1277 = BgL_1zd2expza2z70_2487; 
{ /* ./Reduce/1occ.scm 214 */
obj_t BgL_resetz00_1281;
{ /* ./Reduce/1occ.scm 215 */
BgL_nodez00_bglt BgL_arg3420z00_1299;
BgL_arg3420z00_1299 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1276))->BgL_bodyz00); 
{ /* ./Reduce/1occ.scm 215 */
obj_t BgL_method2753z00_2027;
{ /* ./Reduce/1occ.scm 215 */
BgL_objectz00_bglt BgL_objz00_2028;
BgL_objz00_2028 = 
(BgL_objectz00_bglt)(BgL_arg3420z00_1299); 
{ /* ./Reduce/1occ.scm 215 */
long BgL_objzd2classzd2numz00_2029;
BgL_objzd2classzd2numz00_2029 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2028); 
{ /* ./Reduce/1occ.scm 215 */
obj_t BgL_arg2017z00_2030;
{ /* ./Reduce/1occ.scm 215 */
int BgL_auxz00_3094;
BgL_auxz00_3094 = 
(int)(((long)1)); 
BgL_arg2017z00_2030 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3094); } 
{ /* ./Reduce/1occ.scm 215 */
int BgL_offsetz00_2033;
BgL_offsetz00_2033 = 
(int)(BgL_objzd2classzd2numz00_2029); 
{ /* ./Reduce/1occ.scm 215 */
long BgL_offsetz00_2034;
{ /* ./Reduce/1occ.scm 215 */
long BgL_auxz00_3098;
BgL_auxz00_3098 = 
(long)(BgL_offsetz00_2033); 
BgL_offsetz00_2034 = 
(BgL_auxz00_3098-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 215 */
long BgL_modz00_2035;
{ /* ./Reduce/1occ.scm 215 */
int BgL_arg2028z00_2036;
BgL_arg2028z00_2036 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 215 */
long BgL_n2z00_2044;
BgL_n2z00_2044 = 
(long)(BgL_arg2028z00_2036); 
BgL_modz00_2035 = 
(BgL_offsetz00_2034/BgL_n2z00_2044); } } 
{ /* ./Reduce/1occ.scm 215 */
long BgL_restz00_2037;
{ /* ./Reduce/1occ.scm 215 */
int BgL_arg2024z00_2038;
BgL_arg2024z00_2038 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 215 */
long BgL_n2z00_2047;
BgL_n2z00_2047 = 
(long)(BgL_arg2024z00_2038); 
BgL_restz00_2037 = 
(BgL_offsetz00_2034%BgL_n2z00_2047); } } 
{ /* ./Reduce/1occ.scm 215 */

{ /* ./Reduce/1occ.scm 215 */
obj_t BgL_bucketz00_2039;
{ /* ./Reduce/1occ.scm 215 */
int BgL_kz00_2049;
BgL_kz00_2049 = 
(int)(BgL_modz00_2035); 
BgL_bucketz00_2039 = 
VECTOR_REF(BgL_arg2017z00_2030,BgL_kz00_2049); } 
{ /* ./Reduce/1occ.scm 215 */
int BgL_kz00_2051;
BgL_kz00_2051 = 
(int)(BgL_restz00_2037); 
BgL_method2753z00_2027 = 
VECTOR_REF(BgL_bucketz00_2039,BgL_kz00_2051); } } } } } } } } } } 
BgL_resetz00_1281 = 
PROCEDURE_ENTRY(BgL_method2753z00_2027)(BgL_method2753z00_2027, 
(obj_t)(BgL_arg3420z00_1299), BgL_1zd2expza2z70_1277, BEOA); } } 
{ /* ./Reduce/1occ.scm 216 */
obj_t BgL_nbodyz00_1282;
{ /* ./Reduce/1occ.scm 216 */
int BgL_nz00_2052;
BgL_nz00_2052 = 
(int)(((long)1)); 
BgL_nbodyz00_1282 = 
BGL_MVALUES_VAL(BgL_nz00_2052); } 
{ /* ./Reduce/1occ.scm 216 */
BgL_letzd2funzd2_bglt BgL_obj2453z00_2053;BgL_nodez00_bglt BgL_val2452z00_2054;
BgL_obj2453z00_2053 = BgL_nodez00_1276; 
BgL_val2452z00_2054 = 
(BgL_nodez00_bglt)(BgL_nbodyz00_1282); 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2453z00_2053))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2452z00_2054), BUNSPEC); } 
{ 
obj_t BgL_localsz00_1283;obj_t BgL_resetz00_1284;
{ /* ./Reduce/1occ.scm 217 */
obj_t BgL_arg3397z00_1286;
BgL_arg3397z00_1286 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1276))->BgL_localsz00); 
BgL_localsz00_1283 = BgL_arg3397z00_1286; 
BgL_resetz00_1284 = BgL_resetz00_1281; 
BgL_loopz00_1285:
{ /* ./Reduce/1occ.scm 219 */
bool_t BgL_test3400z00_1287;
BgL_test3400z00_1287 = 
NULLP(BgL_localsz00_1283); 
if(BgL_test3400z00_1287)
{ /* ./Reduce/1occ.scm 219 */
{ /* ./Reduce/1occ.scm 220 */
int BgL_nz00_2057;
BgL_nz00_2057 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2057); } 
{ /* ./Reduce/1occ.scm 220 */
int BgL_nz00_2058;obj_t BgL_oz00_2059;
BgL_nz00_2058 = 
(int)(((long)1)); 
BgL_oz00_2059 = 
(obj_t)(BgL_nodez00_1276); 
BGL_MVALUES_VAL_SET(BgL_nz00_2058, BgL_oz00_2059); } 
return BgL_resetz00_1284;}  else 
{ /* ./Reduce/1occ.scm 221 */
obj_t BgL_localz00_1290;
BgL_localz00_1290 = 
CAR(BgL_localsz00_1283); 
{ /* ./Reduce/1occ.scm 221 */
BgL_valuez00_bglt BgL_sfunz00_1291;
{ /* ./Reduce/1occ.scm 222 */
BgL_variablez00_bglt BgL_obj1100z00_2061;
BgL_obj1100z00_2061 = 
(BgL_variablez00_bglt)(BgL_localz00_1290); 
BgL_sfunz00_1291 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2061))->BgL_valuez00); } 
{ /* ./Reduce/1occ.scm 222 */

{ /* ./Reduce/1occ.scm 223 */
obj_t BgL_resetz72z72_1292;
{ /* ./Reduce/1occ.scm 224 */
obj_t BgL_arg3411z00_1297;
{ /* ./Reduce/1occ.scm 224 */
BgL_sfunz00_bglt BgL_obj1370z00_2062;
BgL_obj1370z00_2062 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_1291); 
BgL_arg3411z00_1297 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2062))->BgL_bodyz00); } 
{ /* ./Reduce/1occ.scm 224 */
BgL_nodez00_bglt BgL_nodez00_2063;
BgL_nodez00_2063 = 
(BgL_nodez00_bglt)(BgL_arg3411z00_1297); 
{ /* ./Reduce/1occ.scm 224 */
obj_t BgL_method2753z00_2065;
{ /* ./Reduce/1occ.scm 224 */
BgL_objectz00_bglt BgL_objz00_2066;
BgL_objz00_2066 = 
(BgL_objectz00_bglt)(BgL_nodez00_2063); 
{ /* ./Reduce/1occ.scm 224 */
long BgL_objzd2classzd2numz00_2067;
BgL_objzd2classzd2numz00_2067 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2066); 
{ /* ./Reduce/1occ.scm 224 */
obj_t BgL_arg2017z00_2068;
{ /* ./Reduce/1occ.scm 224 */
int BgL_auxz00_3134;
BgL_auxz00_3134 = 
(int)(((long)1)); 
BgL_arg2017z00_2068 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3134); } 
{ /* ./Reduce/1occ.scm 224 */
int BgL_offsetz00_2071;
BgL_offsetz00_2071 = 
(int)(BgL_objzd2classzd2numz00_2067); 
{ /* ./Reduce/1occ.scm 224 */
long BgL_offsetz00_2072;
{ /* ./Reduce/1occ.scm 224 */
long BgL_auxz00_3138;
BgL_auxz00_3138 = 
(long)(BgL_offsetz00_2071); 
BgL_offsetz00_2072 = 
(BgL_auxz00_3138-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 224 */
long BgL_modz00_2073;
{ /* ./Reduce/1occ.scm 224 */
int BgL_arg2028z00_2074;
BgL_arg2028z00_2074 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 224 */
long BgL_n2z00_2082;
BgL_n2z00_2082 = 
(long)(BgL_arg2028z00_2074); 
BgL_modz00_2073 = 
(BgL_offsetz00_2072/BgL_n2z00_2082); } } 
{ /* ./Reduce/1occ.scm 224 */
long BgL_restz00_2075;
{ /* ./Reduce/1occ.scm 224 */
int BgL_arg2024z00_2076;
BgL_arg2024z00_2076 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 224 */
long BgL_n2z00_2085;
BgL_n2z00_2085 = 
(long)(BgL_arg2024z00_2076); 
BgL_restz00_2075 = 
(BgL_offsetz00_2072%BgL_n2z00_2085); } } 
{ /* ./Reduce/1occ.scm 224 */

{ /* ./Reduce/1occ.scm 224 */
obj_t BgL_bucketz00_2077;
{ /* ./Reduce/1occ.scm 224 */
int BgL_kz00_2087;
BgL_kz00_2087 = 
(int)(BgL_modz00_2073); 
BgL_bucketz00_2077 = 
VECTOR_REF(BgL_arg2017z00_2068,BgL_kz00_2087); } 
{ /* ./Reduce/1occ.scm 224 */
int BgL_kz00_2089;
BgL_kz00_2089 = 
(int)(BgL_restz00_2075); 
BgL_method2753z00_2065 = 
VECTOR_REF(BgL_bucketz00_2077,BgL_kz00_2089); } } } } } } } } } } 
BgL_resetz72z72_1292 = 
PROCEDURE_ENTRY(BgL_method2753z00_2065)(BgL_method2753z00_2065, 
(obj_t)(BgL_nodez00_2063), BNIL, BEOA); } } } 
{ /* ./Reduce/1occ.scm 225 */
obj_t BgL_nbodyz00_1293;
{ /* ./Reduce/1occ.scm 225 */
int BgL_nz00_2090;
BgL_nz00_2090 = 
(int)(((long)1)); 
BgL_nbodyz00_1293 = 
BGL_MVALUES_VAL(BgL_nz00_2090); } 
{ /* ./Reduce/1occ.scm 225 */
BgL_sfunz00_bglt BgL_obj1373z00_2091;obj_t BgL_val1371z00_2092;
BgL_obj1373z00_2091 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_1291); 
BgL_val1371z00_2092 = BgL_nbodyz00_1293; 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_2091))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_2092), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 226 */
obj_t BgL_arg3405z00_1294;obj_t BgL_arg3406z00_1295;
BgL_arg3405z00_1294 = 
CDR(BgL_localsz00_1283); 
if(
CBOOL(BgL_resetz00_1284))
{ /* ./Reduce/1occ.scm 226 */
BgL_arg3406z00_1295 = BgL_resetz00_1284; }  else 
{ /* ./Reduce/1occ.scm 226 */
BgL_arg3406z00_1295 = BgL_resetz72z72_1292; } 
{ 
obj_t BgL_resetz00_3162;obj_t BgL_localsz00_3161;
BgL_localsz00_3161 = BgL_arg3405z00_1294; 
BgL_resetz00_3162 = BgL_arg3406z00_1295; 
BgL_resetz00_1284 = BgL_resetz00_3162; 
BgL_localsz00_1283 = BgL_localsz00_3161; 
goto BgL_loopz00_1285;} } } } } } } } } } } } } } 
}



/* node-1occ!-select2779 */
obj_t BGl_nodezd21occz12zd2select2779z12zzreduce_1occz00(obj_t BgL_envz00_2488, obj_t BgL_nodez00_2489, obj_t BgL_1zd2expza2z70_2490)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 193 */
{ 
BgL_selectz00_bglt BgL_nodez00_1251;obj_t BgL_1zd2expza2z70_1252;
BgL_nodez00_1251 = 
(BgL_selectz00_bglt)(BgL_nodez00_2489); 
BgL_1zd2expza2z70_1252 = BgL_1zd2expza2z70_2490; 
{ /* ./Reduce/1occ.scm 195 */
obj_t BgL_resetz00_1256;
{ /* ./Reduce/1occ.scm 196 */
BgL_nodez00_bglt BgL_arg3386z00_1273;
BgL_arg3386z00_1273 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1251))->BgL_testz00); 
{ /* ./Reduce/1occ.scm 196 */
obj_t BgL_method2753z00_1958;
{ /* ./Reduce/1occ.scm 196 */
BgL_objectz00_bglt BgL_objz00_1959;
BgL_objz00_1959 = 
(BgL_objectz00_bglt)(BgL_arg3386z00_1273); 
{ /* ./Reduce/1occ.scm 196 */
long BgL_objzd2classzd2numz00_1960;
BgL_objzd2classzd2numz00_1960 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1959); 
{ /* ./Reduce/1occ.scm 196 */
obj_t BgL_arg2017z00_1961;
{ /* ./Reduce/1occ.scm 196 */
int BgL_auxz00_3167;
BgL_auxz00_3167 = 
(int)(((long)1)); 
BgL_arg2017z00_1961 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3167); } 
{ /* ./Reduce/1occ.scm 196 */
int BgL_offsetz00_1964;
BgL_offsetz00_1964 = 
(int)(BgL_objzd2classzd2numz00_1960); 
{ /* ./Reduce/1occ.scm 196 */
long BgL_offsetz00_1965;
{ /* ./Reduce/1occ.scm 196 */
long BgL_auxz00_3171;
BgL_auxz00_3171 = 
(long)(BgL_offsetz00_1964); 
BgL_offsetz00_1965 = 
(BgL_auxz00_3171-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 196 */
long BgL_modz00_1966;
{ /* ./Reduce/1occ.scm 196 */
int BgL_arg2028z00_1967;
BgL_arg2028z00_1967 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 196 */
long BgL_n2z00_1975;
BgL_n2z00_1975 = 
(long)(BgL_arg2028z00_1967); 
BgL_modz00_1966 = 
(BgL_offsetz00_1965/BgL_n2z00_1975); } } 
{ /* ./Reduce/1occ.scm 196 */
long BgL_restz00_1968;
{ /* ./Reduce/1occ.scm 196 */
int BgL_arg2024z00_1969;
BgL_arg2024z00_1969 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 196 */
long BgL_n2z00_1978;
BgL_n2z00_1978 = 
(long)(BgL_arg2024z00_1969); 
BgL_restz00_1968 = 
(BgL_offsetz00_1965%BgL_n2z00_1978); } } 
{ /* ./Reduce/1occ.scm 196 */

{ /* ./Reduce/1occ.scm 196 */
obj_t BgL_bucketz00_1970;
{ /* ./Reduce/1occ.scm 196 */
int BgL_kz00_1980;
BgL_kz00_1980 = 
(int)(BgL_modz00_1966); 
BgL_bucketz00_1970 = 
VECTOR_REF(BgL_arg2017z00_1961,BgL_kz00_1980); } 
{ /* ./Reduce/1occ.scm 196 */
int BgL_kz00_1982;
BgL_kz00_1982 = 
(int)(BgL_restz00_1968); 
BgL_method2753z00_1958 = 
VECTOR_REF(BgL_bucketz00_1970,BgL_kz00_1982); } } } } } } } } } } 
BgL_resetz00_1256 = 
PROCEDURE_ENTRY(BgL_method2753z00_1958)(BgL_method2753z00_1958, 
(obj_t)(BgL_arg3386z00_1273), BgL_1zd2expza2z70_1252, BEOA); } } 
{ /* ./Reduce/1occ.scm 197 */
obj_t BgL_ntestz00_1257;
{ /* ./Reduce/1occ.scm 197 */
int BgL_nz00_1983;
BgL_nz00_1983 = 
(int)(((long)1)); 
BgL_ntestz00_1257 = 
BGL_MVALUES_VAL(BgL_nz00_1983); } 
{ /* ./Reduce/1occ.scm 197 */
BgL_selectz00_bglt BgL_obj2410z00_1984;BgL_nodez00_bglt BgL_val2409z00_1985;
BgL_obj2410z00_1984 = BgL_nodez00_1251; 
BgL_val2409z00_1985 = 
(BgL_nodez00_bglt)(BgL_ntestz00_1257); 
((((BgL_selectz00_bglt)CREF(BgL_obj2410z00_1984))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2409z00_1985), BUNSPEC); } 
{ 
obj_t BgL_clausesz00_1259;obj_t BgL_resetz00_1260;
{ /* ./Reduce/1occ.scm 199 */
obj_t BgL_arg3365z00_1262;
BgL_arg3365z00_1262 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1251))->BgL_clausesz00); 
BgL_clausesz00_1259 = BgL_arg3365z00_1262; 
BgL_resetz00_1260 = BgL_resetz00_1256; 
BgL_loopz00_1261:
{ /* ./Reduce/1occ.scm 201 */
bool_t BgL_test3368z00_1263;
BgL_test3368z00_1263 = 
NULLP(BgL_clausesz00_1259); 
if(BgL_test3368z00_1263)
{ /* ./Reduce/1occ.scm 201 */
{ /* ./Reduce/1occ.scm 202 */
int BgL_nz00_1988;
BgL_nz00_1988 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1988); } 
{ /* ./Reduce/1occ.scm 202 */
int BgL_nz00_1989;obj_t BgL_oz00_1990;
BgL_nz00_1989 = 
(int)(((long)1)); 
BgL_oz00_1990 = 
(obj_t)(BgL_nodez00_1251); 
BGL_MVALUES_VAL_SET(BgL_nz00_1989, BgL_oz00_1990); } 
return BgL_resetz00_1260;}  else 
{ /* ./Reduce/1occ.scm 203 */
obj_t BgL_clausez00_1266;
BgL_clausez00_1266 = 
CAR(BgL_clausesz00_1259); 
{ /* ./Reduce/1occ.scm 204 */
obj_t BgL_resetz72z72_1267;
{ /* ./Reduce/1occ.scm 205 */
obj_t BgL_arg3379z00_1272;
BgL_arg3379z00_1272 = 
CDR(BgL_clausez00_1266); 
{ /* ./Reduce/1occ.scm 205 */
BgL_nodez00_bglt BgL_nodez00_1993;
BgL_nodez00_1993 = 
(BgL_nodez00_bglt)(BgL_arg3379z00_1272); 
{ /* ./Reduce/1occ.scm 205 */
obj_t BgL_method2753z00_1995;
{ /* ./Reduce/1occ.scm 205 */
BgL_objectz00_bglt BgL_objz00_1996;
BgL_objz00_1996 = 
(BgL_objectz00_bglt)(BgL_nodez00_1993); 
{ /* ./Reduce/1occ.scm 205 */
long BgL_objzd2classzd2numz00_1997;
BgL_objzd2classzd2numz00_1997 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1996); 
{ /* ./Reduce/1occ.scm 205 */
obj_t BgL_arg2017z00_1998;
{ /* ./Reduce/1occ.scm 205 */
int BgL_auxz00_3204;
BgL_auxz00_3204 = 
(int)(((long)1)); 
BgL_arg2017z00_1998 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3204); } 
{ /* ./Reduce/1occ.scm 205 */
int BgL_offsetz00_2001;
BgL_offsetz00_2001 = 
(int)(BgL_objzd2classzd2numz00_1997); 
{ /* ./Reduce/1occ.scm 205 */
long BgL_offsetz00_2002;
{ /* ./Reduce/1occ.scm 205 */
long BgL_auxz00_3208;
BgL_auxz00_3208 = 
(long)(BgL_offsetz00_2001); 
BgL_offsetz00_2002 = 
(BgL_auxz00_3208-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 205 */
long BgL_modz00_2003;
{ /* ./Reduce/1occ.scm 205 */
int BgL_arg2028z00_2004;
BgL_arg2028z00_2004 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 205 */
long BgL_n2z00_2012;
BgL_n2z00_2012 = 
(long)(BgL_arg2028z00_2004); 
BgL_modz00_2003 = 
(BgL_offsetz00_2002/BgL_n2z00_2012); } } 
{ /* ./Reduce/1occ.scm 205 */
long BgL_restz00_2005;
{ /* ./Reduce/1occ.scm 205 */
int BgL_arg2024z00_2006;
BgL_arg2024z00_2006 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 205 */
long BgL_n2z00_2015;
BgL_n2z00_2015 = 
(long)(BgL_arg2024z00_2006); 
BgL_restz00_2005 = 
(BgL_offsetz00_2002%BgL_n2z00_2015); } } 
{ /* ./Reduce/1occ.scm 205 */

{ /* ./Reduce/1occ.scm 205 */
obj_t BgL_bucketz00_2007;
{ /* ./Reduce/1occ.scm 205 */
int BgL_kz00_2017;
BgL_kz00_2017 = 
(int)(BgL_modz00_2003); 
BgL_bucketz00_2007 = 
VECTOR_REF(BgL_arg2017z00_1998,BgL_kz00_2017); } 
{ /* ./Reduce/1occ.scm 205 */
int BgL_kz00_2019;
BgL_kz00_2019 = 
(int)(BgL_restz00_2005); 
BgL_method2753z00_1995 = 
VECTOR_REF(BgL_bucketz00_2007,BgL_kz00_2019); } } } } } } } } } } 
BgL_resetz72z72_1267 = 
PROCEDURE_ENTRY(BgL_method2753z00_1995)(BgL_method2753z00_1995, 
(obj_t)(BgL_nodez00_1993), BgL_1zd2expza2z70_1252, BEOA); } } } 
{ /* ./Reduce/1occ.scm 206 */
obj_t BgL_nclausez00_1268;
{ /* ./Reduce/1occ.scm 206 */
int BgL_nz00_2020;
BgL_nz00_2020 = 
(int)(((long)1)); 
BgL_nclausez00_1268 = 
BGL_MVALUES_VAL(BgL_nz00_2020); } 
SET_CDR(BgL_clausez00_1266, BgL_nclausez00_1268); 
{ /* ./Reduce/1occ.scm 207 */
obj_t BgL_arg3373z00_1269;obj_t BgL_arg3374z00_1270;
BgL_arg3373z00_1269 = 
CDR(BgL_clausesz00_1259); 
if(
CBOOL(BgL_resetz00_1260))
{ /* ./Reduce/1occ.scm 207 */
BgL_arg3374z00_1270 = BgL_resetz00_1260; }  else 
{ /* ./Reduce/1occ.scm 207 */
BgL_arg3374z00_1270 = BgL_resetz72z72_1267; } 
{ 
obj_t BgL_resetz00_3231;obj_t BgL_clausesz00_3230;
BgL_clausesz00_3230 = BgL_arg3373z00_1269; 
BgL_resetz00_3231 = BgL_arg3374z00_1270; 
BgL_resetz00_1260 = BgL_resetz00_3231; 
BgL_clausesz00_1259 = BgL_clausesz00_3230; 
goto BgL_loopz00_1261;} } } } } } } } } } } } 
}



/* node-1occ!-fail2777 */
obj_t BGl_nodezd21occz12zd2fail2777z12zzreduce_1occz00(obj_t BgL_envz00_2491, obj_t BgL_nodez00_2492, obj_t BgL_1zd2expza2z70_2493)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 175 */
{ 
BgL_failz00_bglt BgL_nodez00_1229;obj_t BgL_1zd2expza2z70_1230;
BgL_nodez00_1229 = 
(BgL_failz00_bglt)(BgL_nodez00_2492); 
BgL_1zd2expza2z70_1230 = BgL_1zd2expza2z70_2493; 
{ /* ./Reduce/1occ.scm 177 */
obj_t BgL_resetz00_1234;
{ /* ./Reduce/1occ.scm 178 */
BgL_nodez00_bglt BgL_arg3354z00_1248;
BgL_arg3354z00_1248 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1229))->BgL_procz00); 
{ /* ./Reduce/1occ.scm 178 */
obj_t BgL_method2753z00_1862;
{ /* ./Reduce/1occ.scm 178 */
BgL_objectz00_bglt BgL_objz00_1863;
BgL_objz00_1863 = 
(BgL_objectz00_bglt)(BgL_arg3354z00_1248); 
{ /* ./Reduce/1occ.scm 178 */
long BgL_objzd2classzd2numz00_1864;
BgL_objzd2classzd2numz00_1864 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1863); 
{ /* ./Reduce/1occ.scm 178 */
obj_t BgL_arg2017z00_1865;
{ /* ./Reduce/1occ.scm 178 */
int BgL_auxz00_3236;
BgL_auxz00_3236 = 
(int)(((long)1)); 
BgL_arg2017z00_1865 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3236); } 
{ /* ./Reduce/1occ.scm 178 */
int BgL_offsetz00_1868;
BgL_offsetz00_1868 = 
(int)(BgL_objzd2classzd2numz00_1864); 
{ /* ./Reduce/1occ.scm 178 */
long BgL_offsetz00_1869;
{ /* ./Reduce/1occ.scm 178 */
long BgL_auxz00_3240;
BgL_auxz00_3240 = 
(long)(BgL_offsetz00_1868); 
BgL_offsetz00_1869 = 
(BgL_auxz00_3240-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 178 */
long BgL_modz00_1870;
{ /* ./Reduce/1occ.scm 178 */
int BgL_arg2028z00_1871;
BgL_arg2028z00_1871 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 178 */
long BgL_n2z00_1879;
BgL_n2z00_1879 = 
(long)(BgL_arg2028z00_1871); 
BgL_modz00_1870 = 
(BgL_offsetz00_1869/BgL_n2z00_1879); } } 
{ /* ./Reduce/1occ.scm 178 */
long BgL_restz00_1872;
{ /* ./Reduce/1occ.scm 178 */
int BgL_arg2024z00_1873;
BgL_arg2024z00_1873 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 178 */
long BgL_n2z00_1882;
BgL_n2z00_1882 = 
(long)(BgL_arg2024z00_1873); 
BgL_restz00_1872 = 
(BgL_offsetz00_1869%BgL_n2z00_1882); } } 
{ /* ./Reduce/1occ.scm 178 */

{ /* ./Reduce/1occ.scm 178 */
obj_t BgL_bucketz00_1874;
{ /* ./Reduce/1occ.scm 178 */
int BgL_kz00_1884;
BgL_kz00_1884 = 
(int)(BgL_modz00_1870); 
BgL_bucketz00_1874 = 
VECTOR_REF(BgL_arg2017z00_1865,BgL_kz00_1884); } 
{ /* ./Reduce/1occ.scm 178 */
int BgL_kz00_1886;
BgL_kz00_1886 = 
(int)(BgL_restz00_1872); 
BgL_method2753z00_1862 = 
VECTOR_REF(BgL_bucketz00_1874,BgL_kz00_1886); } } } } } } } } } } 
BgL_resetz00_1234 = 
PROCEDURE_ENTRY(BgL_method2753z00_1862)(BgL_method2753z00_1862, 
(obj_t)(BgL_arg3354z00_1248), BgL_1zd2expza2z70_1230, BEOA); } } 
{ /* ./Reduce/1occ.scm 179 */
obj_t BgL_nprocz00_1235;
{ /* ./Reduce/1occ.scm 179 */
int BgL_nz00_1887;
BgL_nz00_1887 = 
(int)(((long)1)); 
BgL_nprocz00_1235 = 
BGL_MVALUES_VAL(BgL_nz00_1887); } 
{ /* ./Reduce/1occ.scm 179 */
BgL_failz00_bglt BgL_obj2372z00_1888;BgL_nodez00_bglt BgL_val2371z00_1889;
BgL_obj2372z00_1888 = BgL_nodez00_1229; 
BgL_val2371z00_1889 = 
(BgL_nodez00_bglt)(BgL_nprocz00_1235); 
((((BgL_failz00_bglt)CREF(BgL_obj2372z00_1888))->BgL_procz00) = ((BgL_nodez00_bglt)BgL_val2371z00_1889), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 180 */
obj_t BgL_1zd2expza2z72z02_1236;
if(
CBOOL(BgL_resetz00_1234))
{ /* ./Reduce/1occ.scm 180 */
BgL_1zd2expza2z72z02_1236 = BNIL; }  else 
{ /* ./Reduce/1occ.scm 180 */
BgL_1zd2expza2z72z02_1236 = BgL_1zd2expza2z70_1230; } 
{ /* ./Reduce/1occ.scm 181 */
obj_t BgL_resetz72z72_1237;
{ /* ./Reduce/1occ.scm 182 */
BgL_nodez00_bglt BgL_arg3348z00_1247;
BgL_arg3348z00_1247 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1229))->BgL_msgz00); 
{ /* ./Reduce/1occ.scm 182 */
obj_t BgL_method2753z00_1893;
{ /* ./Reduce/1occ.scm 182 */
BgL_objectz00_bglt BgL_objz00_1894;
BgL_objz00_1894 = 
(BgL_objectz00_bglt)(BgL_arg3348z00_1247); 
{ /* ./Reduce/1occ.scm 182 */
long BgL_objzd2classzd2numz00_1895;
BgL_objzd2classzd2numz00_1895 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1894); 
{ /* ./Reduce/1occ.scm 182 */
obj_t BgL_arg2017z00_1896;
{ /* ./Reduce/1occ.scm 182 */
int BgL_auxz00_3265;
BgL_auxz00_3265 = 
(int)(((long)1)); 
BgL_arg2017z00_1896 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3265); } 
{ /* ./Reduce/1occ.scm 182 */
int BgL_offsetz00_1899;
BgL_offsetz00_1899 = 
(int)(BgL_objzd2classzd2numz00_1895); 
{ /* ./Reduce/1occ.scm 182 */
long BgL_offsetz00_1900;
{ /* ./Reduce/1occ.scm 182 */
long BgL_auxz00_3269;
BgL_auxz00_3269 = 
(long)(BgL_offsetz00_1899); 
BgL_offsetz00_1900 = 
(BgL_auxz00_3269-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 182 */
long BgL_modz00_1901;
{ /* ./Reduce/1occ.scm 182 */
int BgL_arg2028z00_1902;
BgL_arg2028z00_1902 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 182 */
long BgL_n2z00_1910;
BgL_n2z00_1910 = 
(long)(BgL_arg2028z00_1902); 
BgL_modz00_1901 = 
(BgL_offsetz00_1900/BgL_n2z00_1910); } } 
{ /* ./Reduce/1occ.scm 182 */
long BgL_restz00_1903;
{ /* ./Reduce/1occ.scm 182 */
int BgL_arg2024z00_1904;
BgL_arg2024z00_1904 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 182 */
long BgL_n2z00_1913;
BgL_n2z00_1913 = 
(long)(BgL_arg2024z00_1904); 
BgL_restz00_1903 = 
(BgL_offsetz00_1900%BgL_n2z00_1913); } } 
{ /* ./Reduce/1occ.scm 182 */

{ /* ./Reduce/1occ.scm 182 */
obj_t BgL_bucketz00_1905;
{ /* ./Reduce/1occ.scm 182 */
int BgL_kz00_1915;
BgL_kz00_1915 = 
(int)(BgL_modz00_1901); 
BgL_bucketz00_1905 = 
VECTOR_REF(BgL_arg2017z00_1896,BgL_kz00_1915); } 
{ /* ./Reduce/1occ.scm 182 */
int BgL_kz00_1917;
BgL_kz00_1917 = 
(int)(BgL_restz00_1903); 
BgL_method2753z00_1893 = 
VECTOR_REF(BgL_bucketz00_1905,BgL_kz00_1917); } } } } } } } } } } 
BgL_resetz72z72_1237 = 
PROCEDURE_ENTRY(BgL_method2753z00_1893)(BgL_method2753z00_1893, 
(obj_t)(BgL_arg3348z00_1247), BgL_1zd2expza2z72z02_1236, BEOA); } } 
{ /* ./Reduce/1occ.scm 183 */
obj_t BgL_nmsgz00_1238;
{ /* ./Reduce/1occ.scm 183 */
int BgL_nz00_1918;
BgL_nz00_1918 = 
(int)(((long)1)); 
BgL_nmsgz00_1238 = 
BGL_MVALUES_VAL(BgL_nz00_1918); } 
{ /* ./Reduce/1occ.scm 183 */
BgL_failz00_bglt BgL_obj2375z00_1919;BgL_nodez00_bglt BgL_val2374z00_1920;
BgL_obj2375z00_1919 = BgL_nodez00_1229; 
BgL_val2374z00_1920 = 
(BgL_nodez00_bglt)(BgL_nmsgz00_1238); 
((((BgL_failz00_bglt)CREF(BgL_obj2375z00_1919))->BgL_msgz00) = ((BgL_nodez00_bglt)BgL_val2374z00_1920), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 184 */
obj_t BgL_1zd2expza2z72z72z70_1239;
if(
CBOOL(BgL_resetz72z72_1237))
{ /* ./Reduce/1occ.scm 184 */
BgL_1zd2expza2z72z72z70_1239 = BNIL; }  else 
{ /* ./Reduce/1occ.scm 184 */
BgL_1zd2expza2z72z72z70_1239 = BgL_1zd2expza2z72z02_1236; } 
{ /* ./Reduce/1occ.scm 185 */
obj_t BgL_resetz72z72z00_1240;
{ /* ./Reduce/1occ.scm 186 */
BgL_nodez00_bglt BgL_arg3343z00_1246;
BgL_arg3343z00_1246 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1229))->BgL_objz00); 
{ /* ./Reduce/1occ.scm 186 */
obj_t BgL_method2753z00_1924;
{ /* ./Reduce/1occ.scm 186 */
BgL_objectz00_bglt BgL_objz00_1925;
BgL_objz00_1925 = 
(BgL_objectz00_bglt)(BgL_arg3343z00_1246); 
{ /* ./Reduce/1occ.scm 186 */
long BgL_objzd2classzd2numz00_1926;
BgL_objzd2classzd2numz00_1926 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1925); 
{ /* ./Reduce/1occ.scm 186 */
obj_t BgL_arg2017z00_1927;
{ /* ./Reduce/1occ.scm 186 */
int BgL_auxz00_3294;
BgL_auxz00_3294 = 
(int)(((long)1)); 
BgL_arg2017z00_1927 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3294); } 
{ /* ./Reduce/1occ.scm 186 */
int BgL_offsetz00_1930;
BgL_offsetz00_1930 = 
(int)(BgL_objzd2classzd2numz00_1926); 
{ /* ./Reduce/1occ.scm 186 */
long BgL_offsetz00_1931;
{ /* ./Reduce/1occ.scm 186 */
long BgL_auxz00_3298;
BgL_auxz00_3298 = 
(long)(BgL_offsetz00_1930); 
BgL_offsetz00_1931 = 
(BgL_auxz00_3298-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 186 */
long BgL_modz00_1932;
{ /* ./Reduce/1occ.scm 186 */
int BgL_arg2028z00_1933;
BgL_arg2028z00_1933 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 186 */
long BgL_n2z00_1941;
BgL_n2z00_1941 = 
(long)(BgL_arg2028z00_1933); 
BgL_modz00_1932 = 
(BgL_offsetz00_1931/BgL_n2z00_1941); } } 
{ /* ./Reduce/1occ.scm 186 */
long BgL_restz00_1934;
{ /* ./Reduce/1occ.scm 186 */
int BgL_arg2024z00_1935;
BgL_arg2024z00_1935 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 186 */
long BgL_n2z00_1944;
BgL_n2z00_1944 = 
(long)(BgL_arg2024z00_1935); 
BgL_restz00_1934 = 
(BgL_offsetz00_1931%BgL_n2z00_1944); } } 
{ /* ./Reduce/1occ.scm 186 */

{ /* ./Reduce/1occ.scm 186 */
obj_t BgL_bucketz00_1936;
{ /* ./Reduce/1occ.scm 186 */
int BgL_kz00_1946;
BgL_kz00_1946 = 
(int)(BgL_modz00_1932); 
BgL_bucketz00_1936 = 
VECTOR_REF(BgL_arg2017z00_1927,BgL_kz00_1946); } 
{ /* ./Reduce/1occ.scm 186 */
int BgL_kz00_1948;
BgL_kz00_1948 = 
(int)(BgL_restz00_1934); 
BgL_method2753z00_1924 = 
VECTOR_REF(BgL_bucketz00_1936,BgL_kz00_1948); } } } } } } } } } } 
BgL_resetz72z72z00_1240 = 
PROCEDURE_ENTRY(BgL_method2753z00_1924)(BgL_method2753z00_1924, 
(obj_t)(BgL_arg3343z00_1246), BgL_1zd2expza2z72z72z70_1239, BEOA); } } 
{ /* ./Reduce/1occ.scm 187 */
obj_t BgL_nobjz00_1241;
{ /* ./Reduce/1occ.scm 187 */
int BgL_nz00_1949;
BgL_nz00_1949 = 
(int)(((long)1)); 
BgL_nobjz00_1241 = 
BGL_MVALUES_VAL(BgL_nz00_1949); } 
{ /* ./Reduce/1occ.scm 187 */
BgL_failz00_bglt BgL_obj2378z00_1950;BgL_nodez00_bglt BgL_val2377z00_1951;
BgL_obj2378z00_1950 = BgL_nodez00_1229; 
BgL_val2377z00_1951 = 
(BgL_nodez00_bglt)(BgL_nobjz00_1241); 
((((BgL_failz00_bglt)CREF(BgL_obj2378z00_1950))->BgL_objz00) = ((BgL_nodez00_bglt)BgL_val2377z00_1951), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 188 */
obj_t BgL_val0_2703z00_1242;
if(
CBOOL(BgL_resetz00_1234))
{ /* ./Reduce/1occ.scm 188 */
BgL_val0_2703z00_1242 = BgL_resetz00_1234; }  else 
{ /* ./Reduce/1occ.scm 188 */
if(
CBOOL(BgL_resetz72z72_1237))
{ /* ./Reduce/1occ.scm 188 */
BgL_val0_2703z00_1242 = BgL_resetz72z72_1237; }  else 
{ /* ./Reduce/1occ.scm 188 */
BgL_val0_2703z00_1242 = BgL_resetz72z72z00_1240; } } 
{ /* ./Reduce/1occ.scm 188 */
int BgL_nz00_1952;
BgL_nz00_1952 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1952); } 
{ /* ./Reduce/1occ.scm 188 */
int BgL_nz00_1953;obj_t BgL_oz00_1954;
BgL_nz00_1953 = 
(int)(((long)1)); 
BgL_oz00_1954 = 
(obj_t)(BgL_nodez00_1229); 
BGL_MVALUES_VAL_SET(BgL_nz00_1953, BgL_oz00_1954); } 
return BgL_val0_2703z00_1242;} } } } } } } } } } } 
}



/* node-1occ!-conditional2775 */
obj_t BGl_nodezd21occz12zd2conditional2775z12zzreduce_1occz00(obj_t BgL_envz00_2494, obj_t BgL_nodez00_2495, obj_t BgL_1zd2expza2z70_2496)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 158 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1208;obj_t BgL_1zd2expza2z70_1209;
BgL_nodez00_1208 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2495); 
BgL_1zd2expza2z70_1209 = BgL_1zd2expza2z70_2496; 
{ /* ./Reduce/1occ.scm 160 */
obj_t BgL_resetz00_1213;
{ /* ./Reduce/1occ.scm 161 */
BgL_nodez00_bglt BgL_arg3327z00_1226;
BgL_arg3327z00_1226 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1208))->BgL_testz00); 
{ /* ./Reduce/1occ.scm 161 */
obj_t BgL_method2753z00_1766;
{ /* ./Reduce/1occ.scm 161 */
BgL_objectz00_bglt BgL_objz00_1767;
BgL_objz00_1767 = 
(BgL_objectz00_bglt)(BgL_arg3327z00_1226); 
{ /* ./Reduce/1occ.scm 161 */
long BgL_objzd2classzd2numz00_1768;
BgL_objzd2classzd2numz00_1768 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1767); 
{ /* ./Reduce/1occ.scm 161 */
obj_t BgL_arg2017z00_1769;
{ /* ./Reduce/1occ.scm 161 */
int BgL_auxz00_3331;
BgL_auxz00_3331 = 
(int)(((long)1)); 
BgL_arg2017z00_1769 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3331); } 
{ /* ./Reduce/1occ.scm 161 */
int BgL_offsetz00_1772;
BgL_offsetz00_1772 = 
(int)(BgL_objzd2classzd2numz00_1768); 
{ /* ./Reduce/1occ.scm 161 */
long BgL_offsetz00_1773;
{ /* ./Reduce/1occ.scm 161 */
long BgL_auxz00_3335;
BgL_auxz00_3335 = 
(long)(BgL_offsetz00_1772); 
BgL_offsetz00_1773 = 
(BgL_auxz00_3335-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 161 */
long BgL_modz00_1774;
{ /* ./Reduce/1occ.scm 161 */
int BgL_arg2028z00_1775;
BgL_arg2028z00_1775 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 161 */
long BgL_n2z00_1783;
BgL_n2z00_1783 = 
(long)(BgL_arg2028z00_1775); 
BgL_modz00_1774 = 
(BgL_offsetz00_1773/BgL_n2z00_1783); } } 
{ /* ./Reduce/1occ.scm 161 */
long BgL_restz00_1776;
{ /* ./Reduce/1occ.scm 161 */
int BgL_arg2024z00_1777;
BgL_arg2024z00_1777 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 161 */
long BgL_n2z00_1786;
BgL_n2z00_1786 = 
(long)(BgL_arg2024z00_1777); 
BgL_restz00_1776 = 
(BgL_offsetz00_1773%BgL_n2z00_1786); } } 
{ /* ./Reduce/1occ.scm 161 */

{ /* ./Reduce/1occ.scm 161 */
obj_t BgL_bucketz00_1778;
{ /* ./Reduce/1occ.scm 161 */
int BgL_kz00_1788;
BgL_kz00_1788 = 
(int)(BgL_modz00_1774); 
BgL_bucketz00_1778 = 
VECTOR_REF(BgL_arg2017z00_1769,BgL_kz00_1788); } 
{ /* ./Reduce/1occ.scm 161 */
int BgL_kz00_1790;
BgL_kz00_1790 = 
(int)(BgL_restz00_1776); 
BgL_method2753z00_1766 = 
VECTOR_REF(BgL_bucketz00_1778,BgL_kz00_1790); } } } } } } } } } } 
BgL_resetz00_1213 = 
PROCEDURE_ENTRY(BgL_method2753z00_1766)(BgL_method2753z00_1766, 
(obj_t)(BgL_arg3327z00_1226), BgL_1zd2expza2z70_1209, BEOA); } } 
{ /* ./Reduce/1occ.scm 162 */
obj_t BgL_ntestz00_1214;
{ /* ./Reduce/1occ.scm 162 */
int BgL_nz00_1791;
BgL_nz00_1791 = 
(int)(((long)1)); 
BgL_ntestz00_1214 = 
BGL_MVALUES_VAL(BgL_nz00_1791); } 
{ /* ./Reduce/1occ.scm 162 */
BgL_conditionalz00_bglt BgL_obj2334z00_1792;BgL_nodez00_bglt BgL_val2333z00_1793;
BgL_obj2334z00_1792 = BgL_nodez00_1208; 
BgL_val2333z00_1793 = 
(BgL_nodez00_bglt)(BgL_ntestz00_1214); 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2334z00_1792))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2333z00_1793), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 163 */
obj_t BgL_1zd2expza2z72z02_1215;
if(
CBOOL(BgL_resetz00_1213))
{ /* ./Reduce/1occ.scm 163 */
BgL_1zd2expza2z72z02_1215 = BNIL; }  else 
{ /* ./Reduce/1occ.scm 163 */
BgL_1zd2expza2z72z02_1215 = BgL_1zd2expza2z70_1209; } 
{ /* ./Reduce/1occ.scm 164 */
obj_t BgL_resetz72z72_1216;
{ /* ./Reduce/1occ.scm 165 */
BgL_nodez00_bglt BgL_arg3322z00_1225;
BgL_arg3322z00_1225 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1208))->BgL_truez00); 
{ /* ./Reduce/1occ.scm 165 */
obj_t BgL_method2753z00_1797;
{ /* ./Reduce/1occ.scm 165 */
BgL_objectz00_bglt BgL_objz00_1798;
BgL_objz00_1798 = 
(BgL_objectz00_bglt)(BgL_arg3322z00_1225); 
{ /* ./Reduce/1occ.scm 165 */
long BgL_objzd2classzd2numz00_1799;
BgL_objzd2classzd2numz00_1799 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1798); 
{ /* ./Reduce/1occ.scm 165 */
obj_t BgL_arg2017z00_1800;
{ /* ./Reduce/1occ.scm 165 */
int BgL_auxz00_3360;
BgL_auxz00_3360 = 
(int)(((long)1)); 
BgL_arg2017z00_1800 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3360); } 
{ /* ./Reduce/1occ.scm 165 */
int BgL_offsetz00_1803;
BgL_offsetz00_1803 = 
(int)(BgL_objzd2classzd2numz00_1799); 
{ /* ./Reduce/1occ.scm 165 */
long BgL_offsetz00_1804;
{ /* ./Reduce/1occ.scm 165 */
long BgL_auxz00_3364;
BgL_auxz00_3364 = 
(long)(BgL_offsetz00_1803); 
BgL_offsetz00_1804 = 
(BgL_auxz00_3364-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 165 */
long BgL_modz00_1805;
{ /* ./Reduce/1occ.scm 165 */
int BgL_arg2028z00_1806;
BgL_arg2028z00_1806 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 165 */
long BgL_n2z00_1814;
BgL_n2z00_1814 = 
(long)(BgL_arg2028z00_1806); 
BgL_modz00_1805 = 
(BgL_offsetz00_1804/BgL_n2z00_1814); } } 
{ /* ./Reduce/1occ.scm 165 */
long BgL_restz00_1807;
{ /* ./Reduce/1occ.scm 165 */
int BgL_arg2024z00_1808;
BgL_arg2024z00_1808 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 165 */
long BgL_n2z00_1817;
BgL_n2z00_1817 = 
(long)(BgL_arg2024z00_1808); 
BgL_restz00_1807 = 
(BgL_offsetz00_1804%BgL_n2z00_1817); } } 
{ /* ./Reduce/1occ.scm 165 */

{ /* ./Reduce/1occ.scm 165 */
obj_t BgL_bucketz00_1809;
{ /* ./Reduce/1occ.scm 165 */
int BgL_kz00_1819;
BgL_kz00_1819 = 
(int)(BgL_modz00_1805); 
BgL_bucketz00_1809 = 
VECTOR_REF(BgL_arg2017z00_1800,BgL_kz00_1819); } 
{ /* ./Reduce/1occ.scm 165 */
int BgL_kz00_1821;
BgL_kz00_1821 = 
(int)(BgL_restz00_1807); 
BgL_method2753z00_1797 = 
VECTOR_REF(BgL_bucketz00_1809,BgL_kz00_1821); } } } } } } } } } } 
BgL_resetz72z72_1216 = 
PROCEDURE_ENTRY(BgL_method2753z00_1797)(BgL_method2753z00_1797, 
(obj_t)(BgL_arg3322z00_1225), BgL_1zd2expza2z72z02_1215, BEOA); } } 
{ /* ./Reduce/1occ.scm 166 */
obj_t BgL_ntruez00_1217;
{ /* ./Reduce/1occ.scm 166 */
int BgL_nz00_1822;
BgL_nz00_1822 = 
(int)(((long)1)); 
BgL_ntruez00_1217 = 
BGL_MVALUES_VAL(BgL_nz00_1822); } 
{ /* ./Reduce/1occ.scm 166 */
BgL_conditionalz00_bglt BgL_obj2337z00_1823;BgL_nodez00_bglt BgL_val2336z00_1824;
BgL_obj2337z00_1823 = BgL_nodez00_1208; 
BgL_val2336z00_1824 = 
(BgL_nodez00_bglt)(BgL_ntruez00_1217); 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2337z00_1823))->BgL_truez00) = ((BgL_nodez00_bglt)BgL_val2336z00_1824), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 167 */
obj_t BgL_resetz72z72z00_1218;
{ /* ./Reduce/1occ.scm 168 */
BgL_nodez00_bglt BgL_arg3317z00_1224;
BgL_arg3317z00_1224 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1208))->BgL_falsez00); 
{ /* ./Reduce/1occ.scm 168 */
obj_t BgL_method2753z00_1828;
{ /* ./Reduce/1occ.scm 168 */
BgL_objectz00_bglt BgL_objz00_1829;
BgL_objz00_1829 = 
(BgL_objectz00_bglt)(BgL_arg3317z00_1224); 
{ /* ./Reduce/1occ.scm 168 */
long BgL_objzd2classzd2numz00_1830;
BgL_objzd2classzd2numz00_1830 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1829); 
{ /* ./Reduce/1occ.scm 168 */
obj_t BgL_arg2017z00_1831;
{ /* ./Reduce/1occ.scm 168 */
int BgL_auxz00_3387;
BgL_auxz00_3387 = 
(int)(((long)1)); 
BgL_arg2017z00_1831 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3387); } 
{ /* ./Reduce/1occ.scm 168 */
int BgL_offsetz00_1834;
BgL_offsetz00_1834 = 
(int)(BgL_objzd2classzd2numz00_1830); 
{ /* ./Reduce/1occ.scm 168 */
long BgL_offsetz00_1835;
{ /* ./Reduce/1occ.scm 168 */
long BgL_auxz00_3391;
BgL_auxz00_3391 = 
(long)(BgL_offsetz00_1834); 
BgL_offsetz00_1835 = 
(BgL_auxz00_3391-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 168 */
long BgL_modz00_1836;
{ /* ./Reduce/1occ.scm 168 */
int BgL_arg2028z00_1837;
BgL_arg2028z00_1837 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 168 */
long BgL_n2z00_1845;
BgL_n2z00_1845 = 
(long)(BgL_arg2028z00_1837); 
BgL_modz00_1836 = 
(BgL_offsetz00_1835/BgL_n2z00_1845); } } 
{ /* ./Reduce/1occ.scm 168 */
long BgL_restz00_1838;
{ /* ./Reduce/1occ.scm 168 */
int BgL_arg2024z00_1839;
BgL_arg2024z00_1839 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 168 */
long BgL_n2z00_1848;
BgL_n2z00_1848 = 
(long)(BgL_arg2024z00_1839); 
BgL_restz00_1838 = 
(BgL_offsetz00_1835%BgL_n2z00_1848); } } 
{ /* ./Reduce/1occ.scm 168 */

{ /* ./Reduce/1occ.scm 168 */
obj_t BgL_bucketz00_1840;
{ /* ./Reduce/1occ.scm 168 */
int BgL_kz00_1850;
BgL_kz00_1850 = 
(int)(BgL_modz00_1836); 
BgL_bucketz00_1840 = 
VECTOR_REF(BgL_arg2017z00_1831,BgL_kz00_1850); } 
{ /* ./Reduce/1occ.scm 168 */
int BgL_kz00_1852;
BgL_kz00_1852 = 
(int)(BgL_restz00_1838); 
BgL_method2753z00_1828 = 
VECTOR_REF(BgL_bucketz00_1840,BgL_kz00_1852); } } } } } } } } } } 
BgL_resetz72z72z00_1218 = 
PROCEDURE_ENTRY(BgL_method2753z00_1828)(BgL_method2753z00_1828, 
(obj_t)(BgL_arg3317z00_1224), BgL_1zd2expza2z72z02_1215, BEOA); } } 
{ /* ./Reduce/1occ.scm 169 */
obj_t BgL_nfalsez00_1219;
{ /* ./Reduce/1occ.scm 169 */
int BgL_nz00_1853;
BgL_nz00_1853 = 
(int)(((long)1)); 
BgL_nfalsez00_1219 = 
BGL_MVALUES_VAL(BgL_nz00_1853); } 
{ /* ./Reduce/1occ.scm 169 */
BgL_conditionalz00_bglt BgL_obj2340z00_1854;BgL_nodez00_bglt BgL_val2339z00_1855;
BgL_obj2340z00_1854 = BgL_nodez00_1208; 
BgL_val2339z00_1855 = 
(BgL_nodez00_bglt)(BgL_nfalsez00_1219); 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2340z00_1854))->BgL_falsez00) = ((BgL_nodez00_bglt)BgL_val2339z00_1855), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 170 */
obj_t BgL_val0_2697z00_1220;
if(
CBOOL(BgL_resetz00_1213))
{ /* ./Reduce/1occ.scm 170 */
BgL_val0_2697z00_1220 = BgL_resetz00_1213; }  else 
{ /* ./Reduce/1occ.scm 170 */
if(
CBOOL(BgL_resetz72z72_1216))
{ /* ./Reduce/1occ.scm 170 */
BgL_val0_2697z00_1220 = BgL_resetz72z72_1216; }  else 
{ /* ./Reduce/1occ.scm 170 */
BgL_val0_2697z00_1220 = BgL_resetz72z72z00_1218; } } 
{ /* ./Reduce/1occ.scm 170 */
int BgL_nz00_1856;
BgL_nz00_1856 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1856); } 
{ /* ./Reduce/1occ.scm 170 */
int BgL_nz00_1857;obj_t BgL_oz00_1858;
BgL_nz00_1857 = 
(int)(((long)1)); 
BgL_oz00_1858 = 
(obj_t)(BgL_nodez00_1208); 
BGL_MVALUES_VAL_SET(BgL_nz00_1857, BgL_oz00_1858); } 
return BgL_val0_2697z00_1220;} } } } } } } } } } 
}



/* node-1occ!-setq2773 */
obj_t BGl_nodezd21occz12zd2setq2773z12zzreduce_1occz00(obj_t BgL_envz00_2497, obj_t BgL_nodez00_2498, obj_t BgL_1zd2expza2z70_2499)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 148 */
{ 
BgL_setqz00_bglt BgL_nodez00_1196;obj_t BgL_1zd2expza2z70_1197;
BgL_nodez00_1196 = 
(BgL_setqz00_bglt)(BgL_nodez00_2498); 
BgL_1zd2expza2z70_1197 = BgL_1zd2expza2z70_2499; 
{ /* ./Reduce/1occ.scm 150 */
obj_t BgL_resetz00_1201;
{ /* ./Reduce/1occ.scm 151 */
BgL_nodez00_bglt BgL_arg3301z00_1205;
BgL_arg3301z00_1205 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1196))->BgL_valuez00); 
{ /* ./Reduce/1occ.scm 151 */
obj_t BgL_method2753z00_1732;
{ /* ./Reduce/1occ.scm 151 */
BgL_objectz00_bglt BgL_objz00_1733;
BgL_objz00_1733 = 
(BgL_objectz00_bglt)(BgL_arg3301z00_1205); 
{ /* ./Reduce/1occ.scm 151 */
long BgL_objzd2classzd2numz00_1734;
BgL_objzd2classzd2numz00_1734 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1733); 
{ /* ./Reduce/1occ.scm 151 */
obj_t BgL_arg2017z00_1735;
{ /* ./Reduce/1occ.scm 151 */
int BgL_auxz00_3424;
BgL_auxz00_3424 = 
(int)(((long)1)); 
BgL_arg2017z00_1735 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3424); } 
{ /* ./Reduce/1occ.scm 151 */
int BgL_offsetz00_1738;
BgL_offsetz00_1738 = 
(int)(BgL_objzd2classzd2numz00_1734); 
{ /* ./Reduce/1occ.scm 151 */
long BgL_offsetz00_1739;
{ /* ./Reduce/1occ.scm 151 */
long BgL_auxz00_3428;
BgL_auxz00_3428 = 
(long)(BgL_offsetz00_1738); 
BgL_offsetz00_1739 = 
(BgL_auxz00_3428-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 151 */
long BgL_modz00_1740;
{ /* ./Reduce/1occ.scm 151 */
int BgL_arg2028z00_1741;
BgL_arg2028z00_1741 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 151 */
long BgL_n2z00_1749;
BgL_n2z00_1749 = 
(long)(BgL_arg2028z00_1741); 
BgL_modz00_1740 = 
(BgL_offsetz00_1739/BgL_n2z00_1749); } } 
{ /* ./Reduce/1occ.scm 151 */
long BgL_restz00_1742;
{ /* ./Reduce/1occ.scm 151 */
int BgL_arg2024z00_1743;
BgL_arg2024z00_1743 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 151 */
long BgL_n2z00_1752;
BgL_n2z00_1752 = 
(long)(BgL_arg2024z00_1743); 
BgL_restz00_1742 = 
(BgL_offsetz00_1739%BgL_n2z00_1752); } } 
{ /* ./Reduce/1occ.scm 151 */

{ /* ./Reduce/1occ.scm 151 */
obj_t BgL_bucketz00_1744;
{ /* ./Reduce/1occ.scm 151 */
int BgL_kz00_1754;
BgL_kz00_1754 = 
(int)(BgL_modz00_1740); 
BgL_bucketz00_1744 = 
VECTOR_REF(BgL_arg2017z00_1735,BgL_kz00_1754); } 
{ /* ./Reduce/1occ.scm 151 */
int BgL_kz00_1756;
BgL_kz00_1756 = 
(int)(BgL_restz00_1742); 
BgL_method2753z00_1732 = 
VECTOR_REF(BgL_bucketz00_1744,BgL_kz00_1756); } } } } } } } } } } 
BgL_resetz00_1201 = 
PROCEDURE_ENTRY(BgL_method2753z00_1732)(BgL_method2753z00_1732, 
(obj_t)(BgL_arg3301z00_1205), BgL_1zd2expza2z70_1197, BEOA); } } 
{ /* ./Reduce/1occ.scm 152 */
obj_t BgL_nvaluez00_1202;
{ /* ./Reduce/1occ.scm 152 */
int BgL_nz00_1757;
BgL_nz00_1757 = 
(int)(((long)1)); 
BgL_nvaluez00_1202 = 
BGL_MVALUES_VAL(BgL_nz00_1757); } 
{ /* ./Reduce/1occ.scm 152 */
BgL_setqz00_bglt BgL_obj2305z00_1758;BgL_nodez00_bglt BgL_val2304z00_1759;
BgL_obj2305z00_1758 = BgL_nodez00_1196; 
BgL_val2304z00_1759 = 
(BgL_nodez00_bglt)(BgL_nvaluez00_1202); 
((((BgL_setqz00_bglt)CREF(BgL_obj2305z00_1758))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2304z00_1759), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 153 */
int BgL_nz00_1760;
BgL_nz00_1760 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1760); } 
{ /* ./Reduce/1occ.scm 153 */
int BgL_nz00_1761;obj_t BgL_oz00_1762;
BgL_nz00_1761 = 
(int)(((long)1)); 
BgL_oz00_1762 = 
(obj_t)(BgL_nodez00_1196); 
BGL_MVALUES_VAL_SET(BgL_nz00_1761, BgL_oz00_1762); } 
return BgL_resetz00_1201;} } } } 
}



/* node-1occ!-cast2771 */
obj_t BGl_nodezd21occz12zd2cast2771z12zzreduce_1occz00(obj_t BgL_envz00_2500, obj_t BgL_nodez00_2501, obj_t BgL_1zd2expza2z70_2502)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 138 */
{ 
BgL_castz00_bglt BgL_nodez00_1184;obj_t BgL_1zd2expza2z70_1185;
BgL_nodez00_1184 = 
(BgL_castz00_bglt)(BgL_nodez00_2501); 
BgL_1zd2expza2z70_1185 = BgL_1zd2expza2z70_2502; 
{ /* ./Reduce/1occ.scm 140 */
obj_t BgL_resetz00_1189;
{ /* ./Reduce/1occ.scm 141 */
BgL_nodez00_bglt BgL_arg3287z00_1193;
BgL_arg3287z00_1193 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1184))->BgL_argz00); 
{ /* ./Reduce/1occ.scm 141 */
obj_t BgL_method2753z00_1698;
{ /* ./Reduce/1occ.scm 141 */
BgL_objectz00_bglt BgL_objz00_1699;
BgL_objz00_1699 = 
(BgL_objectz00_bglt)(BgL_arg3287z00_1193); 
{ /* ./Reduce/1occ.scm 141 */
long BgL_objzd2classzd2numz00_1700;
BgL_objzd2classzd2numz00_1700 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1699); 
{ /* ./Reduce/1occ.scm 141 */
obj_t BgL_arg2017z00_1701;
{ /* ./Reduce/1occ.scm 141 */
int BgL_auxz00_3457;
BgL_auxz00_3457 = 
(int)(((long)1)); 
BgL_arg2017z00_1701 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3457); } 
{ /* ./Reduce/1occ.scm 141 */
int BgL_offsetz00_1704;
BgL_offsetz00_1704 = 
(int)(BgL_objzd2classzd2numz00_1700); 
{ /* ./Reduce/1occ.scm 141 */
long BgL_offsetz00_1705;
{ /* ./Reduce/1occ.scm 141 */
long BgL_auxz00_3461;
BgL_auxz00_3461 = 
(long)(BgL_offsetz00_1704); 
BgL_offsetz00_1705 = 
(BgL_auxz00_3461-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 141 */
long BgL_modz00_1706;
{ /* ./Reduce/1occ.scm 141 */
int BgL_arg2028z00_1707;
BgL_arg2028z00_1707 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 141 */
long BgL_n2z00_1715;
BgL_n2z00_1715 = 
(long)(BgL_arg2028z00_1707); 
BgL_modz00_1706 = 
(BgL_offsetz00_1705/BgL_n2z00_1715); } } 
{ /* ./Reduce/1occ.scm 141 */
long BgL_restz00_1708;
{ /* ./Reduce/1occ.scm 141 */
int BgL_arg2024z00_1709;
BgL_arg2024z00_1709 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 141 */
long BgL_n2z00_1718;
BgL_n2z00_1718 = 
(long)(BgL_arg2024z00_1709); 
BgL_restz00_1708 = 
(BgL_offsetz00_1705%BgL_n2z00_1718); } } 
{ /* ./Reduce/1occ.scm 141 */

{ /* ./Reduce/1occ.scm 141 */
obj_t BgL_bucketz00_1710;
{ /* ./Reduce/1occ.scm 141 */
int BgL_kz00_1720;
BgL_kz00_1720 = 
(int)(BgL_modz00_1706); 
BgL_bucketz00_1710 = 
VECTOR_REF(BgL_arg2017z00_1701,BgL_kz00_1720); } 
{ /* ./Reduce/1occ.scm 141 */
int BgL_kz00_1722;
BgL_kz00_1722 = 
(int)(BgL_restz00_1708); 
BgL_method2753z00_1698 = 
VECTOR_REF(BgL_bucketz00_1710,BgL_kz00_1722); } } } } } } } } } } 
BgL_resetz00_1189 = 
PROCEDURE_ENTRY(BgL_method2753z00_1698)(BgL_method2753z00_1698, 
(obj_t)(BgL_arg3287z00_1193), BgL_1zd2expza2z70_1185, BEOA); } } 
{ /* ./Reduce/1occ.scm 142 */
obj_t BgL_nargz00_1190;
{ /* ./Reduce/1occ.scm 142 */
int BgL_nz00_1723;
BgL_nz00_1723 = 
(int)(((long)1)); 
BgL_nargz00_1190 = 
BGL_MVALUES_VAL(BgL_nz00_1723); } 
{ /* ./Reduce/1occ.scm 142 */
BgL_castz00_bglt BgL_obj2282z00_1724;BgL_nodez00_bglt BgL_val2281z00_1725;
BgL_obj2282z00_1724 = BgL_nodez00_1184; 
BgL_val2281z00_1725 = 
(BgL_nodez00_bglt)(BgL_nargz00_1190); 
((((BgL_castz00_bglt)CREF(BgL_obj2282z00_1724))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val2281z00_1725), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 143 */
int BgL_nz00_1726;
BgL_nz00_1726 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1726); } 
{ /* ./Reduce/1occ.scm 143 */
int BgL_nz00_1727;obj_t BgL_oz00_1728;
BgL_nz00_1727 = 
(int)(((long)1)); 
BgL_oz00_1728 = 
(obj_t)(BgL_nodez00_1184); 
BGL_MVALUES_VAL_SET(BgL_nz00_1727, BgL_oz00_1728); } 
return BgL_resetz00_1189;} } } } 
}



/* node-1occ!-extern2769 */
obj_t BGl_nodezd21occz12zd2extern2769z12zzreduce_1occz00(obj_t BgL_envz00_2503, obj_t BgL_nodez00_2504, obj_t BgL_1zd2expza2z70_2505)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 132 */
{ 
BgL_externz00_bglt BgL_nodez00_1176;obj_t BgL_1zd2expza2z70_1177;
{ /* ./Reduce/1occ.scm 133 */
bool_t BgL_auxz00_3487;
BgL_nodez00_1176 = 
(BgL_externz00_bglt)(BgL_nodez00_2504); 
BgL_1zd2expza2z70_1177 = BgL_1zd2expza2z70_2505; 
{ /* ./Reduce/1occ.scm 133 */
bool_t BgL_val0_2685z00_1690;
BgL_val0_2685z00_1690 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_nodez00_1176)); 
{ /* ./Reduce/1occ.scm 133 */
int BgL_nz00_1692;
BgL_nz00_1692 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1692); } 
{ /* ./Reduce/1occ.scm 133 */
int BgL_nz00_1693;obj_t BgL_oz00_1694;
BgL_nz00_1693 = 
(int)(((long)1)); 
BgL_oz00_1694 = 
(obj_t)(BgL_nodez00_1176); 
BGL_MVALUES_VAL_SET(BgL_nz00_1693, BgL_oz00_1694); } 
BgL_auxz00_3487 = BgL_val0_2685z00_1690; } 
return 
BBOOL(BgL_auxz00_3487);} } } 
}



/* node-1occ!-funcall2767 */
obj_t BGl_nodezd21occz12zd2funcall2767z12zzreduce_1occz00(obj_t BgL_envz00_2506, obj_t BgL_nodez00_2507, obj_t BgL_1zd2expza2z70_2508)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 121 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1165;obj_t BgL_1zd2expza2z70_1166;
BgL_nodez00_1165 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2507); 
BgL_1zd2expza2z70_1166 = BgL_1zd2expza2z70_2508; 
{ /* ./Reduce/1occ.scm 123 */
obj_t BgL_resetz72z72_1170;
{ /* ./Reduce/1occ.scm 123 */
obj_t BgL_arg3264z00_1173;
BgL_arg3264z00_1173 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1165))->BgL_argsz00); 
BgL_resetz72z72_1170 = 
BGl_nodezd21occza2z12z62zzreduce_1occz00(BgL_arg3264z00_1173, BgL_1zd2expza2z70_1166); } 
{ /* ./Reduce/1occ.scm 124 */
int BgL_nz00_1687;
BgL_nz00_1687 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1687); } 
{ /* ./Reduce/1occ.scm 124 */
int BgL_nz00_1688;obj_t BgL_oz00_1689;
BgL_nz00_1688 = 
(int)(((long)1)); 
BgL_oz00_1689 = 
(obj_t)(BgL_nodez00_1165); 
BGL_MVALUES_VAL_SET(BgL_nz00_1688, BgL_oz00_1689); } 
return BgL_resetz72z72_1170;} } } 
}



/* node-1occ!-app-ly2765 */
obj_t BGl_nodezd21occz12zd2appzd2ly2765zc0zzreduce_1occz00(obj_t BgL_envz00_2509, obj_t BgL_nodez00_2510, obj_t BgL_1zd2expza2z70_2511)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 108 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1148;obj_t BgL_1zd2expza2z70_1149;
BgL_nodez00_1148 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2510); 
BgL_1zd2expza2z70_1149 = BgL_1zd2expza2z70_2511; 
{ /* ./Reduce/1occ.scm 110 */
obj_t BgL_resetz00_1153;
{ /* ./Reduce/1occ.scm 111 */
BgL_nodez00_bglt BgL_arg3252z00_1162;
BgL_arg3252z00_1162 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1148))->BgL_funz00); 
{ /* ./Reduce/1occ.scm 111 */
obj_t BgL_method2753z00_1624;
{ /* ./Reduce/1occ.scm 111 */
BgL_objectz00_bglt BgL_objz00_1625;
BgL_objz00_1625 = 
(BgL_objectz00_bglt)(BgL_arg3252z00_1162); 
{ /* ./Reduce/1occ.scm 111 */
long BgL_objzd2classzd2numz00_1626;
BgL_objzd2classzd2numz00_1626 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1625); 
{ /* ./Reduce/1occ.scm 111 */
obj_t BgL_arg2017z00_1627;
{ /* ./Reduce/1occ.scm 111 */
int BgL_auxz00_3508;
BgL_auxz00_3508 = 
(int)(((long)1)); 
BgL_arg2017z00_1627 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3508); } 
{ /* ./Reduce/1occ.scm 111 */
int BgL_offsetz00_1630;
BgL_offsetz00_1630 = 
(int)(BgL_objzd2classzd2numz00_1626); 
{ /* ./Reduce/1occ.scm 111 */
long BgL_offsetz00_1631;
{ /* ./Reduce/1occ.scm 111 */
long BgL_auxz00_3512;
BgL_auxz00_3512 = 
(long)(BgL_offsetz00_1630); 
BgL_offsetz00_1631 = 
(BgL_auxz00_3512-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 111 */
long BgL_modz00_1632;
{ /* ./Reduce/1occ.scm 111 */
int BgL_arg2028z00_1633;
BgL_arg2028z00_1633 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 111 */
long BgL_n2z00_1641;
BgL_n2z00_1641 = 
(long)(BgL_arg2028z00_1633); 
BgL_modz00_1632 = 
(BgL_offsetz00_1631/BgL_n2z00_1641); } } 
{ /* ./Reduce/1occ.scm 111 */
long BgL_restz00_1634;
{ /* ./Reduce/1occ.scm 111 */
int BgL_arg2024z00_1635;
BgL_arg2024z00_1635 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 111 */
long BgL_n2z00_1644;
BgL_n2z00_1644 = 
(long)(BgL_arg2024z00_1635); 
BgL_restz00_1634 = 
(BgL_offsetz00_1631%BgL_n2z00_1644); } } 
{ /* ./Reduce/1occ.scm 111 */

{ /* ./Reduce/1occ.scm 111 */
obj_t BgL_bucketz00_1636;
{ /* ./Reduce/1occ.scm 111 */
int BgL_kz00_1646;
BgL_kz00_1646 = 
(int)(BgL_modz00_1632); 
BgL_bucketz00_1636 = 
VECTOR_REF(BgL_arg2017z00_1627,BgL_kz00_1646); } 
{ /* ./Reduce/1occ.scm 111 */
int BgL_kz00_1648;
BgL_kz00_1648 = 
(int)(BgL_restz00_1634); 
BgL_method2753z00_1624 = 
VECTOR_REF(BgL_bucketz00_1636,BgL_kz00_1648); } } } } } } } } } } 
BgL_resetz00_1153 = 
PROCEDURE_ENTRY(BgL_method2753z00_1624)(BgL_method2753z00_1624, 
(obj_t)(BgL_arg3252z00_1162), BgL_1zd2expza2z70_1149, BEOA); } } 
{ /* ./Reduce/1occ.scm 112 */
obj_t BgL_nfunz00_1154;
{ /* ./Reduce/1occ.scm 112 */
int BgL_nz00_1649;
BgL_nz00_1649 = 
(int)(((long)1)); 
BgL_nfunz00_1154 = 
BGL_MVALUES_VAL(BgL_nz00_1649); } 
{ /* ./Reduce/1occ.scm 112 */
BgL_appzd2lyzd2_bglt BgL_obj1753z00_1650;BgL_nodez00_bglt BgL_val1752z00_1651;
BgL_obj1753z00_1650 = BgL_nodez00_1148; 
BgL_val1752z00_1651 = 
(BgL_nodez00_bglt)(BgL_nfunz00_1154); 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1753z00_1650))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1752z00_1651), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 113 */
obj_t BgL_resetz72z72_1155;
{ /* ./Reduce/1occ.scm 114 */
BgL_nodez00_bglt BgL_arg3246z00_1160;obj_t BgL_arg3247z00_1161;
BgL_arg3246z00_1160 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1148))->BgL_argz00); 
if(
CBOOL(BgL_resetz00_1153))
{ /* ./Reduce/1occ.scm 114 */
BgL_arg3247z00_1161 = BNIL; }  else 
{ /* ./Reduce/1occ.scm 114 */
BgL_arg3247z00_1161 = BgL_1zd2expza2z70_1149; } 
{ /* ./Reduce/1occ.scm 114 */
obj_t BgL_method2753z00_1655;
{ /* ./Reduce/1occ.scm 114 */
BgL_objectz00_bglt BgL_objz00_1656;
BgL_objz00_1656 = 
(BgL_objectz00_bglt)(BgL_arg3246z00_1160); 
{ /* ./Reduce/1occ.scm 114 */
long BgL_objzd2classzd2numz00_1657;
BgL_objzd2classzd2numz00_1657 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1656); 
{ /* ./Reduce/1occ.scm 114 */
obj_t BgL_arg2017z00_1658;
{ /* ./Reduce/1occ.scm 114 */
int BgL_auxz00_3537;
BgL_auxz00_3537 = 
(int)(((long)1)); 
BgL_arg2017z00_1658 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3537); } 
{ /* ./Reduce/1occ.scm 114 */
int BgL_offsetz00_1661;
BgL_offsetz00_1661 = 
(int)(BgL_objzd2classzd2numz00_1657); 
{ /* ./Reduce/1occ.scm 114 */
long BgL_offsetz00_1662;
{ /* ./Reduce/1occ.scm 114 */
long BgL_auxz00_3541;
BgL_auxz00_3541 = 
(long)(BgL_offsetz00_1661); 
BgL_offsetz00_1662 = 
(BgL_auxz00_3541-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 114 */
long BgL_modz00_1663;
{ /* ./Reduce/1occ.scm 114 */
int BgL_arg2028z00_1664;
BgL_arg2028z00_1664 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 114 */
long BgL_n2z00_1672;
BgL_n2z00_1672 = 
(long)(BgL_arg2028z00_1664); 
BgL_modz00_1663 = 
(BgL_offsetz00_1662/BgL_n2z00_1672); } } 
{ /* ./Reduce/1occ.scm 114 */
long BgL_restz00_1665;
{ /* ./Reduce/1occ.scm 114 */
int BgL_arg2024z00_1666;
BgL_arg2024z00_1666 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 114 */
long BgL_n2z00_1675;
BgL_n2z00_1675 = 
(long)(BgL_arg2024z00_1666); 
BgL_restz00_1665 = 
(BgL_offsetz00_1662%BgL_n2z00_1675); } } 
{ /* ./Reduce/1occ.scm 114 */

{ /* ./Reduce/1occ.scm 114 */
obj_t BgL_bucketz00_1667;
{ /* ./Reduce/1occ.scm 114 */
int BgL_kz00_1677;
BgL_kz00_1677 = 
(int)(BgL_modz00_1663); 
BgL_bucketz00_1667 = 
VECTOR_REF(BgL_arg2017z00_1658,BgL_kz00_1677); } 
{ /* ./Reduce/1occ.scm 114 */
int BgL_kz00_1679;
BgL_kz00_1679 = 
(int)(BgL_restz00_1665); 
BgL_method2753z00_1655 = 
VECTOR_REF(BgL_bucketz00_1667,BgL_kz00_1679); } } } } } } } } } } 
BgL_resetz72z72_1155 = 
PROCEDURE_ENTRY(BgL_method2753z00_1655)(BgL_method2753z00_1655, 
(obj_t)(BgL_arg3246z00_1160), BgL_arg3247z00_1161, BEOA); } } 
{ /* ./Reduce/1occ.scm 115 */
obj_t BgL_nargz00_1156;
{ /* ./Reduce/1occ.scm 115 */
int BgL_nz00_1680;
BgL_nz00_1680 = 
(int)(((long)1)); 
BgL_nargz00_1156 = 
BGL_MVALUES_VAL(BgL_nz00_1680); } 
{ /* ./Reduce/1occ.scm 115 */
BgL_appzd2lyzd2_bglt BgL_obj1756z00_1681;BgL_nodez00_bglt BgL_val1755z00_1682;
BgL_obj1756z00_1681 = BgL_nodez00_1148; 
BgL_val1755z00_1682 = 
(BgL_nodez00_bglt)(BgL_nargz00_1156); 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1756z00_1681))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val1755z00_1682), BUNSPEC); } 
{ /* ./Reduce/1occ.scm 116 */
obj_t BgL_val0_2678z00_1157;
if(
CBOOL(BgL_resetz00_1153))
{ /* ./Reduce/1occ.scm 116 */
BgL_val0_2678z00_1157 = BgL_resetz00_1153; }  else 
{ /* ./Reduce/1occ.scm 116 */
BgL_val0_2678z00_1157 = BgL_resetz72z72_1155; } 
{ /* ./Reduce/1occ.scm 116 */
int BgL_nz00_1683;
BgL_nz00_1683 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1683); } 
{ /* ./Reduce/1occ.scm 116 */
int BgL_nz00_1684;obj_t BgL_oz00_1685;
BgL_nz00_1684 = 
(int)(((long)1)); 
BgL_oz00_1685 = 
(obj_t)(BgL_nodez00_1148); 
BGL_MVALUES_VAL_SET(BgL_nz00_1684, BgL_oz00_1685); } 
return BgL_val0_2678z00_1157;} } } } } } } 
}



/* node-1occ!-sequence2763 */
obj_t BGl_nodezd21occz12zd2sequence2763z12zzreduce_1occz00(obj_t BgL_envz00_2512, obj_t BgL_nodez00_2513, obj_t BgL_1zd2expza2z70_2514)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 101 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1138;obj_t BgL_1zd2expza2z70_1139;
BgL_nodez00_1138 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2513); 
BgL_1zd2expza2z70_1139 = BgL_1zd2expza2z70_2514; 
{ /* ./Reduce/1occ.scm 103 */
obj_t BgL_val0_2674z00_1143;
{ /* ./Reduce/1occ.scm 103 */
obj_t BgL_arg3231z00_1145;
BgL_arg3231z00_1145 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1138))->BgL_nodesz00); 
BgL_val0_2674z00_1143 = 
BGl_nodezd21occza2z12z62zzreduce_1occz00(BgL_arg3231z00_1145, BgL_1zd2expza2z70_1139); } 
{ /* ./Reduce/1occ.scm 103 */
int BgL_nz00_1618;
BgL_nz00_1618 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1618); } 
{ /* ./Reduce/1occ.scm 103 */
int BgL_nz00_1619;obj_t BgL_oz00_1620;
BgL_nz00_1619 = 
(int)(((long)1)); 
BgL_oz00_1620 = 
(obj_t)(BgL_nodez00_1138); 
BGL_MVALUES_VAL_SET(BgL_nz00_1619, BgL_oz00_1620); } 
return BgL_val0_2674z00_1143;} } } 
}



/* node-1occ!-closure2761 */
obj_t BGl_nodezd21occz12zd2closure2761z12zzreduce_1occz00(obj_t BgL_envz00_2515, obj_t BgL_nodez00_2516, obj_t BgL_1zd2expza2z70_2517)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 95 */
{ 
BgL_closurez00_bglt BgL_nodez00_1130;obj_t BgL_1zd2expza2z70_1131;
{ /* ./Reduce/1occ.scm 96 */
bool_t BgL_auxz00_3577;
BgL_nodez00_1130 = 
(BgL_closurez00_bglt)(BgL_nodez00_2516); 
BgL_1zd2expza2z70_1131 = BgL_1zd2expza2z70_2517; 
{ /* ./Reduce/1occ.scm 96 */
int BgL_nz00_1614;
BgL_nz00_1614 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1614); } 
{ /* ./Reduce/1occ.scm 96 */
int BgL_nz00_1615;obj_t BgL_oz00_1616;
BgL_nz00_1615 = 
(int)(((long)1)); 
BgL_oz00_1616 = 
(obj_t)(BgL_nodez00_1130); 
BGL_MVALUES_VAL_SET(BgL_nz00_1615, BgL_oz00_1616); } 
BgL_auxz00_3577 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_3577);} } } 
}



/* node-1occ!-var2759 */
obj_t BGl_nodezd21occz12zd2var2759z12zzreduce_1occz00(obj_t BgL_envz00_2518, obj_t BgL_nodez00_2519, obj_t BgL_1zd2expza2z70_2520)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 82 */
{ 
BgL_varz00_bglt BgL_nodez00_1115;obj_t BgL_1zd2expza2z70_1116;
BgL_nodez00_1115 = 
(BgL_varz00_bglt)(BgL_nodez00_2519); 
BgL_1zd2expza2z70_1116 = BgL_1zd2expza2z70_2520; 
{ /* ./Reduce/1occ.scm 83 */
BgL_variablez00_bglt BgL_vz00_1119;
BgL_vz00_1119 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1115))->BgL_variablez00); 
{ /* ./Reduce/1occ.scm 84 */
obj_t BgL_falphaz00_1120;
BgL_falphaz00_1120 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(
(obj_t)(BgL_vz00_1119), BgL_1zd2expza2z70_1116); 
{ /* ./Reduce/1occ.scm 85 */
bool_t BgL_test3194z00_1121;
BgL_test3194z00_1121 = 
PAIRP(BgL_falphaz00_1120); 
if(BgL_test3194z00_1121)
{ /* ./Reduce/1occ.scm 85 */
{ /* ./Reduce/1occ.scm 87 */
long BgL_arg3196z00_1122;
{ /* ./Reduce/1occ.scm 87 */
long BgL_auxz00_3590;
BgL_auxz00_3590 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1119))->BgL_occurrencez00); 
BgL_arg3196z00_1122 = 
(BgL_auxz00_3590-((long)1)); } 
{ /* ./Reduce/1occ.scm 87 */
BgL_variablez00_bglt BgL_obj1114z00_1577;long BgL_val1113z00_1578;
BgL_obj1114z00_1577 = BgL_vz00_1119; 
BgL_val1113z00_1578 = BgL_arg3196z00_1122; 
((((BgL_variablez00_bglt)CREF(BgL_obj1114z00_1577))->BgL_occurrencez00) = ((long)BgL_val1113z00_1578), BUNSPEC); } } 
{ /* ./Reduce/1occ.scm 88 */
long BgL_za71za7_1579;
BgL_za71za7_1579 = BGl_za2variablezd2removedza2zd2zzreduce_1occz00; 
BGl_za2variablezd2removedza2zd2zzreduce_1occz00 = 
(BgL_za71za7_1579+((long)1)); } 
{ /* ./Reduce/1occ.scm 89 */
obj_t BgL_arg3206z00_1125;
BgL_arg3206z00_1125 = 
CDR(BgL_falphaz00_1120); 
{ /* ./Reduce/1occ.scm 89 */
BgL_nodez00_bglt BgL_nodez00_1582;
BgL_nodez00_1582 = 
(BgL_nodez00_bglt)(BgL_arg3206z00_1125); 
{ /* ./Reduce/1occ.scm 89 */
obj_t BgL_method2753z00_1584;
{ /* ./Reduce/1occ.scm 89 */
BgL_objectz00_bglt BgL_objz00_1585;
BgL_objz00_1585 = 
(BgL_objectz00_bglt)(BgL_nodez00_1582); 
{ /* ./Reduce/1occ.scm 89 */
long BgL_objzd2classzd2numz00_1586;
BgL_objzd2classzd2numz00_1586 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1585); 
{ /* ./Reduce/1occ.scm 89 */
obj_t BgL_arg2017z00_1587;
{ /* ./Reduce/1occ.scm 89 */
int BgL_auxz00_3599;
BgL_auxz00_3599 = 
(int)(((long)1)); 
BgL_arg2017z00_1587 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3599); } 
{ /* ./Reduce/1occ.scm 89 */
int BgL_offsetz00_1590;
BgL_offsetz00_1590 = 
(int)(BgL_objzd2classzd2numz00_1586); 
{ /* ./Reduce/1occ.scm 89 */
long BgL_offsetz00_1591;
{ /* ./Reduce/1occ.scm 89 */
long BgL_auxz00_3603;
BgL_auxz00_3603 = 
(long)(BgL_offsetz00_1590); 
BgL_offsetz00_1591 = 
(BgL_auxz00_3603-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 89 */
long BgL_modz00_1592;
{ /* ./Reduce/1occ.scm 89 */
int BgL_arg2028z00_1593;
BgL_arg2028z00_1593 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 89 */
long BgL_n2z00_1601;
BgL_n2z00_1601 = 
(long)(BgL_arg2028z00_1593); 
BgL_modz00_1592 = 
(BgL_offsetz00_1591/BgL_n2z00_1601); } } 
{ /* ./Reduce/1occ.scm 89 */
long BgL_restz00_1594;
{ /* ./Reduce/1occ.scm 89 */
int BgL_arg2024z00_1595;
BgL_arg2024z00_1595 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 89 */
long BgL_n2z00_1604;
BgL_n2z00_1604 = 
(long)(BgL_arg2024z00_1595); 
BgL_restz00_1594 = 
(BgL_offsetz00_1591%BgL_n2z00_1604); } } 
{ /* ./Reduce/1occ.scm 89 */

{ /* ./Reduce/1occ.scm 89 */
obj_t BgL_bucketz00_1596;
{ /* ./Reduce/1occ.scm 89 */
int BgL_kz00_1606;
BgL_kz00_1606 = 
(int)(BgL_modz00_1592); 
BgL_bucketz00_1596 = 
VECTOR_REF(BgL_arg2017z00_1587,BgL_kz00_1606); } 
{ /* ./Reduce/1occ.scm 89 */
int BgL_kz00_1608;
BgL_kz00_1608 = 
(int)(BgL_restz00_1594); 
BgL_method2753z00_1584 = 
VECTOR_REF(BgL_bucketz00_1596,BgL_kz00_1608); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2753z00_1584)(BgL_method2753z00_1584, 
(obj_t)(BgL_nodez00_1582), BgL_1zd2expza2z70_1116, BEOA);} } } }  else 
{ /* ./Reduce/1occ.scm 85 */
{ /* ./Reduce/1occ.scm 90 */
int BgL_nz00_1609;
BgL_nz00_1609 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1609); } 
{ /* ./Reduce/1occ.scm 90 */
int BgL_nz00_1610;obj_t BgL_oz00_1611;
BgL_nz00_1610 = 
(int)(((long)1)); 
BgL_oz00_1611 = 
(obj_t)(BgL_nodez00_1115); 
BGL_MVALUES_VAL_SET(BgL_nz00_1610, BgL_oz00_1611); } 
return BFALSE;} } } } } } 
}



/* node-1occ!-kwote2757 */
obj_t BGl_nodezd21occz12zd2kwote2757z12zzreduce_1occz00(obj_t BgL_envz00_2521, obj_t BgL_nodez00_2522, obj_t BgL_1zd2expza2z70_2523)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 76 */
{ 
BgL_kwotez00_bglt BgL_nodez00_1107;obj_t BgL_1zd2expza2z70_1108;
{ /* ./Reduce/1occ.scm 77 */
bool_t BgL_auxz00_3625;
BgL_nodez00_1107 = 
(BgL_kwotez00_bglt)(BgL_nodez00_2522); 
BgL_1zd2expza2z70_1108 = BgL_1zd2expza2z70_2523; 
{ /* ./Reduce/1occ.scm 77 */
int BgL_nz00_1569;
BgL_nz00_1569 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1569); } 
{ /* ./Reduce/1occ.scm 77 */
int BgL_nz00_1570;obj_t BgL_oz00_1571;
BgL_nz00_1570 = 
(int)(((long)1)); 
BgL_oz00_1571 = 
(obj_t)(BgL_nodez00_1107); 
BGL_MVALUES_VAL_SET(BgL_nz00_1570, BgL_oz00_1571); } 
BgL_auxz00_3625 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_3625);} } } 
}



/* node-1occ!-atom2755 */
obj_t BGl_nodezd21occz12zd2atom2755z12zzreduce_1occz00(obj_t BgL_envz00_2524, obj_t BgL_nodez00_2525, obj_t BgL_1zd2expza2z70_2526)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 70 */
{ 
BgL_atomz00_bglt BgL_nodez00_1099;obj_t BgL_1zd2expza2z70_1100;
{ /* ./Reduce/1occ.scm 71 */
bool_t BgL_auxz00_3633;
BgL_nodez00_1099 = 
(BgL_atomz00_bglt)(BgL_nodez00_2525); 
BgL_1zd2expza2z70_1100 = BgL_1zd2expza2z70_2526; 
{ /* ./Reduce/1occ.scm 71 */
int BgL_nz00_1564;
BgL_nz00_1564 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1564); } 
{ /* ./Reduce/1occ.scm 71 */
int BgL_nz00_1565;obj_t BgL_oz00_1566;
BgL_nz00_1565 = 
(int)(((long)1)); 
BgL_oz00_1566 = 
(obj_t)(BgL_nodez00_1099); 
BGL_MVALUES_VAL_SET(BgL_nz00_1565, BgL_oz00_1566); } 
BgL_auxz00_3633 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_3633);} } } 
}



/* node-1occ! */
obj_t BGl_nodezd21occz12zc0zzreduce_1occz00(BgL_nodez00_bglt BgL_nodez00_2, obj_t BgL_1zd2expza2z70_3)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 65 */
{ /* ./Reduce/1occ.scm 65 */
obj_t BgL_method2753z00_2410;
{ /* ./Reduce/1occ.scm 65 */
BgL_objectz00_bglt BgL_objz00_2411;
BgL_objz00_2411 = 
(BgL_objectz00_bglt)(BgL_nodez00_2); 
{ /* ./Reduce/1occ.scm 65 */
long BgL_objzd2classzd2numz00_2412;
BgL_objzd2classzd2numz00_2412 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2411); 
{ /* ./Reduce/1occ.scm 65 */
obj_t BgL_arg2017z00_2413;
{ /* ./Reduce/1occ.scm 65 */
int BgL_auxz00_3643;
BgL_auxz00_3643 = 
(int)(((long)1)); 
BgL_arg2017z00_2413 = 
PROCEDURE_REF(BGl_nodezd21occz12zd2envz12zzreduce_1occz00, BgL_auxz00_3643); } 
{ /* ./Reduce/1occ.scm 65 */
int BgL_offsetz00_2416;
BgL_offsetz00_2416 = 
(int)(BgL_objzd2classzd2numz00_2412); 
{ /* ./Reduce/1occ.scm 65 */
long BgL_offsetz00_2417;
{ /* ./Reduce/1occ.scm 65 */
long BgL_auxz00_3647;
BgL_auxz00_3647 = 
(long)(BgL_offsetz00_2416); 
BgL_offsetz00_2417 = 
(BgL_auxz00_3647-OBJECT_TYPE); } 
{ /* ./Reduce/1occ.scm 65 */
long BgL_modz00_2418;
{ /* ./Reduce/1occ.scm 65 */
int BgL_arg2028z00_2419;
BgL_arg2028z00_2419 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 65 */
long BgL_n2z00_2427;
BgL_n2z00_2427 = 
(long)(BgL_arg2028z00_2419); 
BgL_modz00_2418 = 
(BgL_offsetz00_2417/BgL_n2z00_2427); } } 
{ /* ./Reduce/1occ.scm 65 */
long BgL_restz00_2420;
{ /* ./Reduce/1occ.scm 65 */
int BgL_arg2024z00_2421;
BgL_arg2024z00_2421 = 
(int)(((long)8)); 
{ /* ./Reduce/1occ.scm 65 */
long BgL_n2z00_2430;
BgL_n2z00_2430 = 
(long)(BgL_arg2024z00_2421); 
BgL_restz00_2420 = 
(BgL_offsetz00_2417%BgL_n2z00_2430); } } 
{ /* ./Reduce/1occ.scm 65 */

{ /* ./Reduce/1occ.scm 65 */
obj_t BgL_bucketz00_2422;
{ /* ./Reduce/1occ.scm 65 */
int BgL_kz00_2432;
BgL_kz00_2432 = 
(int)(BgL_modz00_2418); 
BgL_bucketz00_2422 = 
VECTOR_REF(BgL_arg2017z00_2413,BgL_kz00_2432); } 
{ /* ./Reduce/1occ.scm 65 */
int BgL_kz00_2434;
BgL_kz00_2434 = 
(int)(BgL_restz00_2420); 
BgL_method2753z00_2410 = 
VECTOR_REF(BgL_bucketz00_2422,BgL_kz00_2434); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2753z00_2410)(BgL_method2753z00_2410, 
(obj_t)(BgL_nodez00_2), BgL_1zd2expza2z70_3, BEOA);} } 
}



/* _node-1occ! */
obj_t BGl__nodezd21occz12zc0zzreduce_1occz00(obj_t BgL_envz00_2440, obj_t BgL_nodez00_2441, obj_t BgL_1zd2expza2z70_2442)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 65 */
return 
BGl_nodezd21occz12zc0zzreduce_1occz00(
(BgL_nodez00_bglt)(BgL_nodez00_2441), BgL_1zd2expza2z70_2442);} 
}



/* node-1occ!-default2752 */
obj_t BGl_nodezd21occz12zd2default2752z12zzreduce_1occz00(BgL_nodez00_bglt BgL_nodez00_4, obj_t BgL_1zd2expza2z70_5)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 16 */
{ /* ./Reduce/1occ.scm 16 */
obj_t BgL_procz00_2435;obj_t BgL_objectz00_2437;
BgL_procz00_2435 = 
CNST_TABLE_REF(((long)1)); 
BgL_objectz00_2437 = 
(obj_t)(BgL_nodez00_4); 
FAILURE(BgL_procz00_2435,BGl_string4295z00zzreduce_1occz00,BgL_objectz00_2437);} } 
}



/* _node-1occ!-default2752 */
obj_t BGl__nodezd21occz12zd2default2752z12zzreduce_1occz00(obj_t BgL_envz00_2527, obj_t BgL_nodez00_2528, obj_t BgL_1zd2expza2z70_2529)
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 16 */
return 
BGl_nodezd21occz12zd2default2752z12zzreduce_1occz00(
(BgL_nodez00_bglt)(BgL_nodez00_2528), BgL_1zd2expza2z70_2529);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzreduce_1occz00()
{ AN_OBJECT;
{ /* ./Reduce/1occ.scm 16 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zzcoerce_coercez00(((long)56611), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zzeffect_effectz00(((long)14017), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "reduce_1occ"); 
BGl_modulezd2initializa7ationz75zzast_lvtypez00(((long)41586), "reduce_1occ"); 
return 
BGl_modulezd2initializa7ationz75zzast_occurz00(((long)28605), "reduce_1occ");} 
}

