/*===========================================================================*/
/*   (Reduce/cse.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/cse.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_nodezd2csez12zd2conditional2782z12zzreduce_csez00(obj_t, obj_t, obj_t);
static obj_t BGl__nodezd2csez123719zc0zzreduce_csez00(obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzreduce_csez00();
static obj_t BGl_nodezd2csez12zd2letzd2fun2788zc0zzreduce_csez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_nodezd2csez12zd2fail2784z12zzreduce_csez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl__reducezd2csez12zc0zzreduce_csez00(obj_t, obj_t);
static obj_t BGl_nodezd2csez12zd2letzd2var2802zc0zzreduce_csez00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2csez12zd2default2759z12zzreduce_csez00(BgL_nodez00_bglt, obj_t);
static obj_t BGl_nodezd2csez12zd2extern2776z12zzreduce_csez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_nodezd2csez12zd2sequence2770z12zzreduce_csez00(obj_t, obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_findzd2stackzd2zzreduce_csez00(BgL_nodez00_bglt, 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_csez00();
static obj_t BGl_nodezd2csez12zd2var2766z12zzreduce_csez00(obj_t, obj_t, obj_t);
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static long BGl_za2csezd2removedza2zd2zzreduce_csez00;
static obj_t BGl_nodezd2csez12zd2jumpzd2exzd2it2792z12zzreduce_csez00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzreduce_csez00();
BGL_EXPORTED_DECL obj_t BGl_nodezd2csez12zc0zzreduce_csez00(BgL_nodez00_bglt, obj_t);
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_nodezd2csez12zd2cast2778z12zzreduce_csez00(obj_t, obj_t, obj_t);
static obj_t BGl__nodezd2csez12zd2default2759z12zzreduce_csez00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2csez12zd2setzd2exzd2it2790z12zzreduce_csez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_reducezd2csez12zc0zzreduce_csez00(obj_t);
extern obj_t BGl_variablez00zzast_varz00;
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_nodezd2cseza2z12z62zzreduce_csez00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzreduce_csez00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzreduce_csez00(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_modulezd2initializa7ationz75zzreduce_samez00(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_nodezd2csez12zd2boxzd2ref2798zc0zzreduce_csez00(obj_t, obj_t, obj_t);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
static obj_t BGl_nodezd2csez12zd2select2786z12zzreduce_csez00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2csez12zd2kwote2764z12zzreduce_csez00(obj_t, obj_t, obj_t);
extern bool_t BGl_samezd2nodezf3z21zzreduce_samez00(BgL_nodez00_bglt, BgL_nodez00_bglt, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_nodezd2csez12zd2setq2780z12zzreduce_csez00(obj_t, obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_nodezd2csez12zd2boxzd2setz122796zd2zzreduce_csez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t create_struct(obj_t, int);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_nodezd2csez12zd2makezd2box2794zc0zzreduce_csez00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2csez12zd2app2800z12zzreduce_csez00(obj_t, obj_t, obj_t);
extern obj_t BGl_closurez00zzast_nodez00;
extern BgL_varz00_bglt BGl_makezd2varzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
static obj_t BGl_nodezd2csez12zd2atom2762z12zzreduce_csez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzreduce_csez00 = BUNSPEC;
static obj_t BGl_nodezd2csez12zd2appzd2ly2772zc0zzreduce_csez00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2csez12zd2funcall2774z12zzreduce_csez00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2csez12zd2closure2768z12zzreduce_csez00(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzreduce_csez00();
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 3 ] ;


DEFINE_EXPORT_GENERIC( BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_bgl__nodeza7d2cseza7123719za7c0za7za7reduce_cseza7004302z00, BGl__nodezd2csez123719zc0zzreduce_csez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_reducezd2csez12zd2envz12zzreduce_csez00, BgL_bgl__reduceza7d2cseza712za7c0za7za7reduce_cseza7004303z00, BGl__reducezd2csez12zc0zzreduce_csez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4253z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2atom2762za712za7za7reduce_cseza7004304za7, BGl_nodezd2csez12zd2atom2762z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4254z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2kwote2764za712za7za7reduce_cseza7004305za7, BGl_nodezd2csez12zd2kwote2764z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4255z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2var2766za712za7za7reduce_cseza7004306za7, BGl_nodezd2csez12zd2var2766z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4256z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2closure2768za712za7za7reduce_cseza7004307za7, BGl_nodezd2csez12zd2closure2768z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4257z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2sequence2770za712za7za7reduce_cseza7004308za7, BGl_nodezd2csez12zd2sequence2770z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4258z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2appza7d2ly2772za7c0za7za7reduce_cseza7004309z00, BGl_nodezd2csez12zd2appzd2ly2772zc0zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4260z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2extern2776za712za7za7reduce_cseza7004310za7, BGl_nodezd2csez12zd2extern2776z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4259z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2funcall2774za712za7za7reduce_cseza7004311za7, BGl_nodezd2csez12zd2funcall2774z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4261z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2cast2778za712za7za7reduce_cseza7004312za7, BGl_nodezd2csez12zd2cast2778z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4262z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2setq2780za712za7za7reduce_cseza7004313za7, BGl_nodezd2csez12zd2setq2780z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4263z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2conditional2782za712za7za7reduce_cseza7004314za7, BGl_nodezd2csez12zd2conditional2782z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4264z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2fail2784za712za7za7reduce_cseza7004315za7, BGl_nodezd2csez12zd2fail2784z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4265z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2select2786za712za7za7reduce_cseza7004316za7, BGl_nodezd2csez12zd2select2786z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4266z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2letza7d2fun2788za7c0za7za7reduce_cseza7004317z00, BGl_nodezd2csez12zd2letzd2fun2788zc0zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4267z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2setza7d2exza7d2it2790za712za7za7reduce_cseza7004318za7, BGl_nodezd2csez12zd2setzd2exzd2it2790z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4268z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2jumpza7d2exza7d2it2792za712za7za7reduce_cseza7004319za7, BGl_nodezd2csez12zd2jumpzd2exzd2it2792z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4270z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2boxza7d2setza7122796za7d2za7za7reduce_cseza7004320za7, BGl_nodezd2csez12zd2boxzd2setz122796zd2zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4269z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2makeza7d2box2794za7c0za7za7reduce_cseza7004321z00, BGl_nodezd2csez12zd2makezd2box2794zc0zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4271z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2boxza7d2ref2798za7c0za7za7reduce_cseza7004322z00, BGl_nodezd2csez12zd2boxzd2ref2798zc0zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4272z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2app2800za712za7za7reduce_cseza7004323za7, BGl_nodezd2csez12zd2app2800z12zzreduce_csez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4273z00zzreduce_csez00, BgL_bgl_nodeza7d2cseza712za7d2letza7d2var2802za7c0za7za7reduce_cseza7004324z00, BGl_nodezd2csez12zd2letzd2var2802zc0zzreduce_csez00, 0L, 2 );
DEFINE_STRING( BGl_string4275z00zzreduce_csez00, BgL_bgl_string4275za700za7za7reduce_cseza7004325z00, "node-cse!-default2759 call read ", 32 );
DEFINE_STRING( BGl_string4274z00zzreduce_csez00, BgL_bgl_string4274za700za7za7reduce_cseza7004326z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string4252z00zzreduce_csez00, BgL_bgl_string4252za700za7za7reduce_cseza7004327z00, "(removed : ", 11 );
DEFINE_STRING( BGl_string4251z00zzreduce_csez00, BgL_bgl_string4251za700za7za7reduce_cseza7004328z00, "      cse                    ", 29 );
DEFINE_STATIC_PROCEDURE( BGl_nodezd2csez12zd2default2759zd2envzc0zzreduce_csez00, BgL_bgl__nodeza7d2cseza712za7d2default2759za712za7za7reduce_cseza7004329za7, BGl__nodezd2csez12zd2default2759z12zzreduce_csez00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzreduce_csez00(long BgL_checksumz00_2512, char * BgL_fromz00_2513)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzreduce_csez00))
{ 
BGl_requirezd2initializa7ationz75zzreduce_csez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzreduce_csez00(); 
BGl_cnstzd2initzd2zzreduce_csez00(); 
BGl_importedzd2moduleszd2initz00zzreduce_csez00(); 
BGl_methodzd2initzd2zzreduce_csez00(); 
BGl_toplevelzd2initzd2zzreduce_csez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzreduce_csez00()
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "reduce_cse"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzreduce_csez00()
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 15 */
{ /* ./Reduce/cse.scm 15 */
obj_t BgL_cportz00_2505;
BgL_cportz00_2505 = 
open_input_string(BGl_string4275z00zzreduce_csez00); 
{ 
long BgL_iz00_2506;
BgL_iz00_2506 = ((long)2); 
BgL_loopz00_2507:
{ /* ./Reduce/cse.scm 15 */
bool_t BgL_test4277z00_2508;
BgL_test4277z00_2508 = 
(BgL_iz00_2506==((long)-1)); 
if(BgL_test4277z00_2508)
{ /* ./Reduce/cse.scm 15 */
return BUNSPEC;}  else 
{ /* ./Reduce/cse.scm 15 */
{ /* ./Reduce/cse.scm 15 */
obj_t BgL_arg4279z00_2509;
{ /* ./Reduce/cse.scm 15 */
obj_t BgL_list4282z00_2510;
BgL_list4282z00_2510 = 
MAKE_PAIR(BgL_cportz00_2505, BNIL); 
BgL_arg4279z00_2509 = 
BGl_readz00zz__readerz00(BgL_list4282z00_2510); } 
{ /* ./Reduce/cse.scm 15 */
int BgL_auxz00_2530;
BgL_auxz00_2530 = 
(int)(BgL_iz00_2506); 
CNST_TABLE_SET(BgL_auxz00_2530, BgL_arg4279z00_2509); } } 
{ /* ./Reduce/cse.scm 15 */
int BgL_auxz00_2511;
{ /* ./Reduce/cse.scm 15 */
long BgL_auxz00_2533;
BgL_auxz00_2533 = 
(BgL_iz00_2506-((long)1)); 
BgL_auxz00_2511 = 
(int)(BgL_auxz00_2533); } 
{ 
long BgL_iz00_2536;
BgL_iz00_2536 = 
(long)(BgL_auxz00_2511); 
BgL_iz00_2506 = BgL_iz00_2536; 
goto BgL_loopz00_2507;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzreduce_csez00()
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 15 */
BGl_za2csezd2removedza2zd2zzreduce_csez00 = ((long)0); 
return BUNSPEC;} 
}



/* reduce-cse! */
BGL_EXPORTED_DEF obj_t BGl_reducezd2csez12zc0zzreduce_csez00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 35 */
{ /* ./Reduce/cse.scm 36 */
obj_t BgL_list2805z00_719;
BgL_list2805z00_719 = 
MAKE_PAIR(BGl_string4251z00zzreduce_csez00, BNIL); 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list2805z00_719); } 
BGl_za2csezd2removedza2zd2zzreduce_csez00 = ((long)0); 
{ 
obj_t BgL_l2662z00_720;
BgL_l2662z00_720 = BgL_globalsz00_1; 
BgL_forzd2each2663zd2_721:
{ /* ./Reduce/cse.scm 38 */
bool_t BgL_test2808z00_722;
BgL_test2808z00_722 = 
PAIRP(BgL_l2662z00_720); 
if(BgL_test2808z00_722)
{ /* ./Reduce/cse.scm 38 */
{ /* ./Reduce/cse.scm 39 */
obj_t BgL_globalz00_723;
BgL_globalz00_723 = 
CAR(BgL_l2662z00_720); 
{ /* ./Reduce/cse.scm 39 */
BgL_valuez00_bglt BgL_funz00_724;
{ /* ./Reduce/cse.scm 39 */
BgL_variablez00_bglt BgL_obj1100z00_1467;
BgL_obj1100z00_1467 = 
(BgL_variablez00_bglt)(BgL_globalz00_723); 
BgL_funz00_724 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1467))->BgL_valuez00); } 
{ /* ./Reduce/cse.scm 39 */
obj_t BgL_nodez00_725;
{ /* ./Reduce/cse.scm 40 */
BgL_sfunz00_bglt BgL_obj1370z00_1468;
BgL_obj1370z00_1468 = 
(BgL_sfunz00_bglt)(BgL_funz00_724); 
BgL_nodez00_725 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1468))->BgL_bodyz00); } 
{ /* ./Reduce/cse.scm 40 */

{ /* ./Reduce/cse.scm 41 */
obj_t BgL_arg2810z00_726;
{ /* ./Reduce/cse.scm 41 */
obj_t BgL__z00_727;
{ /* ./Reduce/cse.scm 42 */
BgL_nodez00_bglt BgL_nodez00_1469;
BgL_nodez00_1469 = 
(BgL_nodez00_bglt)(BgL_nodez00_725); 
{ /* ./Reduce/cse.scm 42 */
obj_t BgL_method2760z00_1471;
{ /* ./Reduce/cse.scm 42 */
BgL_objectz00_bglt BgL_objz00_1472;
BgL_objz00_1472 = 
(BgL_objectz00_bglt)(BgL_nodez00_1469); 
{ /* ./Reduce/cse.scm 42 */
long BgL_objzd2classzd2numz00_1473;
BgL_objzd2classzd2numz00_1473 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1472); 
{ /* ./Reduce/cse.scm 42 */
obj_t BgL_arg2017z00_1474;
{ /* ./Reduce/cse.scm 42 */
int BgL_auxz00_2551;
BgL_auxz00_2551 = 
(int)(((long)1)); 
BgL_arg2017z00_1474 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_2551); } 
{ /* ./Reduce/cse.scm 42 */
int BgL_offsetz00_1477;
BgL_offsetz00_1477 = 
(int)(BgL_objzd2classzd2numz00_1473); 
{ /* ./Reduce/cse.scm 42 */
long BgL_offsetz00_1478;
{ /* ./Reduce/cse.scm 42 */
long BgL_auxz00_2555;
BgL_auxz00_2555 = 
(long)(BgL_offsetz00_1477); 
BgL_offsetz00_1478 = 
(BgL_auxz00_2555-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 42 */
long BgL_modz00_1479;
{ /* ./Reduce/cse.scm 42 */
int BgL_arg2028z00_1480;
BgL_arg2028z00_1480 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 42 */
long BgL_n2z00_1488;
BgL_n2z00_1488 = 
(long)(BgL_arg2028z00_1480); 
BgL_modz00_1479 = 
(BgL_offsetz00_1478/BgL_n2z00_1488); } } 
{ /* ./Reduce/cse.scm 42 */
long BgL_restz00_1481;
{ /* ./Reduce/cse.scm 42 */
int BgL_arg2024z00_1482;
BgL_arg2024z00_1482 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 42 */
long BgL_n2z00_1491;
BgL_n2z00_1491 = 
(long)(BgL_arg2024z00_1482); 
BgL_restz00_1481 = 
(BgL_offsetz00_1478%BgL_n2z00_1491); } } 
{ /* ./Reduce/cse.scm 42 */

{ /* ./Reduce/cse.scm 42 */
obj_t BgL_bucketz00_1483;
{ /* ./Reduce/cse.scm 42 */
int BgL_kz00_1493;
BgL_kz00_1493 = 
(int)(BgL_modz00_1479); 
BgL_bucketz00_1483 = 
VECTOR_REF(BgL_arg2017z00_1474,BgL_kz00_1493); } 
{ /* ./Reduce/cse.scm 42 */
int BgL_kz00_1495;
BgL_kz00_1495 = 
(int)(BgL_restz00_1481); 
BgL_method2760z00_1471 = 
VECTOR_REF(BgL_bucketz00_1483,BgL_kz00_1495); } } } } } } } } } } 
BgL__z00_727 = 
PROCEDURE_ENTRY(BgL_method2760z00_1471)(BgL_method2760z00_1471, 
(obj_t)(BgL_nodez00_1469), BNIL, BEOA); } } 
{ /* ./Reduce/cse.scm 41 */
obj_t BgL_nodez00_728;
{ /* ./Reduce/cse.scm 41 */
int BgL_nz00_1496;
BgL_nz00_1496 = 
(int)(((long)1)); 
BgL_nodez00_728 = 
BGL_MVALUES_VAL(BgL_nz00_1496); } 
BgL_arg2810z00_726 = BgL_nodez00_728; } } 
{ /* ./Reduce/cse.scm 41 */
BgL_sfunz00_bglt BgL_obj1373z00_1497;obj_t BgL_val1371z00_1498;
BgL_obj1373z00_1497 = 
(BgL_sfunz00_bglt)(BgL_funz00_724); 
BgL_val1371z00_1498 = BgL_arg2810z00_726; 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1497))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1498), BUNSPEC); } } BUNSPEC; } } } } 
{ /* ./Reduce/cse.scm 38 */
obj_t BgL_arg2818z00_729;
BgL_arg2818z00_729 = 
CDR(BgL_l2662z00_720); 
{ 
obj_t BgL_l2662z00_2576;
BgL_l2662z00_2576 = BgL_arg2818z00_729; 
BgL_l2662z00_720 = BgL_l2662z00_2576; 
goto BgL_forzd2each2663zd2_721;} } }  else 
{ /* ./Reduce/cse.scm 38 */((bool_t)1); } } } 
{ /* ./Reduce/cse.scm 46 */
obj_t BgL_list2823z00_730;
{ /* ./Reduce/cse.scm 46 */
obj_t BgL_arg2826z00_732;
{ /* ./Reduce/cse.scm 46 */
obj_t BgL_arg2829z00_733;
{ /* ./Reduce/cse.scm 46 */
obj_t BgL_arg2832z00_734;
{ /* ./Reduce/cse.scm 46 */
obj_t BgL_auxz00_2577;
BgL_auxz00_2577 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2832z00_734 = 
MAKE_PAIR(BgL_auxz00_2577, BNIL); } 
{ /* ./Reduce/cse.scm 46 */
obj_t BgL_auxz00_2580;
BgL_auxz00_2580 = 
BCHAR(((unsigned char)')')); 
BgL_arg2829z00_733 = 
MAKE_PAIR(BgL_auxz00_2580, BgL_arg2832z00_734); } } 
{ /* ./Reduce/cse.scm 46 */
obj_t BgL_auxz00_2583;
BgL_auxz00_2583 = 
BINT(BGl_za2csezd2removedza2zd2zzreduce_csez00); 
BgL_arg2826z00_732 = 
MAKE_PAIR(BgL_auxz00_2583, BgL_arg2829z00_733); } } 
BgL_list2823z00_730 = 
MAKE_PAIR(BGl_string4252z00zzreduce_csez00, BgL_arg2826z00_732); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list2823z00_730); } 
return BgL_globalsz00_1;} 
}



/* _reduce-cse! */
obj_t BGl__reducezd2csez12zc0zzreduce_csez00(obj_t BgL_envz00_2412, obj_t BgL_globalsz00_2413)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 35 */
return 
BGl_reducezd2csez12zc0zzreduce_csez00(BgL_globalsz00_2413);} 
}



/* node-cse*! */
obj_t BGl_nodezd2cseza2z12z62zzreduce_csez00(obj_t BgL_nodeza2za2_48, obj_t BgL_stackz00_49)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 348 */
{ 
obj_t BgL_nodeza2za2_735;bool_t BgL_resetz00_736;obj_t BgL_stackz00_737;
BgL_nodeza2za2_735 = BgL_nodeza2za2_48; 
BgL_resetz00_736 = ((bool_t)0); 
BgL_stackz00_737 = BgL_stackz00_49; 
BgL_loopz00_738:
{ /* ./Reduce/cse.scm 353 */
bool_t BgL_test2836z00_739;
BgL_test2836z00_739 = 
NULLP(BgL_nodeza2za2_735); 
if(BgL_test2836z00_739)
{ /* ./Reduce/cse.scm 353 */
return 
BBOOL(BgL_resetz00_736);}  else 
{ /* ./Reduce/cse.scm 355 */
bool_t BgL_test2837z00_740;
{ /* ./Reduce/cse.scm 355 */
obj_t BgL_auxz00_2593;
BgL_auxz00_2593 = 
CDR(BgL_nodeza2za2_735); 
BgL_test2837z00_740 = 
NULLP(BgL_auxz00_2593); } 
if(BgL_test2837z00_740)
{ /* ./Reduce/cse.scm 355 */
{ /* ./Reduce/cse.scm 356 */
obj_t BgL_resetz72z72_741;
{ /* ./Reduce/cse.scm 357 */
obj_t BgL_arg2841z00_744;
BgL_arg2841z00_744 = 
CAR(BgL_nodeza2za2_735); 
{ /* ./Reduce/cse.scm 357 */
BgL_nodez00_bglt BgL_nodez00_1504;
BgL_nodez00_1504 = 
(BgL_nodez00_bglt)(BgL_arg2841z00_744); 
{ /* ./Reduce/cse.scm 357 */
obj_t BgL_method2760z00_1506;
{ /* ./Reduce/cse.scm 357 */
BgL_objectz00_bglt BgL_objz00_1507;
BgL_objz00_1507 = 
(BgL_objectz00_bglt)(BgL_nodez00_1504); 
{ /* ./Reduce/cse.scm 357 */
long BgL_objzd2classzd2numz00_1508;
BgL_objzd2classzd2numz00_1508 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1507); 
{ /* ./Reduce/cse.scm 357 */
obj_t BgL_arg2017z00_1509;
{ /* ./Reduce/cse.scm 357 */
int BgL_auxz00_2601;
BgL_auxz00_2601 = 
(int)(((long)1)); 
BgL_arg2017z00_1509 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_2601); } 
{ /* ./Reduce/cse.scm 357 */
int BgL_offsetz00_1512;
BgL_offsetz00_1512 = 
(int)(BgL_objzd2classzd2numz00_1508); 
{ /* ./Reduce/cse.scm 357 */
long BgL_offsetz00_1513;
{ /* ./Reduce/cse.scm 357 */
long BgL_auxz00_2605;
BgL_auxz00_2605 = 
(long)(BgL_offsetz00_1512); 
BgL_offsetz00_1513 = 
(BgL_auxz00_2605-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 357 */
long BgL_modz00_1514;
{ /* ./Reduce/cse.scm 357 */
int BgL_arg2028z00_1515;
BgL_arg2028z00_1515 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 357 */
long BgL_n2z00_1523;
BgL_n2z00_1523 = 
(long)(BgL_arg2028z00_1515); 
BgL_modz00_1514 = 
(BgL_offsetz00_1513/BgL_n2z00_1523); } } 
{ /* ./Reduce/cse.scm 357 */
long BgL_restz00_1516;
{ /* ./Reduce/cse.scm 357 */
int BgL_arg2024z00_1517;
BgL_arg2024z00_1517 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 357 */
long BgL_n2z00_1526;
BgL_n2z00_1526 = 
(long)(BgL_arg2024z00_1517); 
BgL_restz00_1516 = 
(BgL_offsetz00_1513%BgL_n2z00_1526); } } 
{ /* ./Reduce/cse.scm 357 */

{ /* ./Reduce/cse.scm 357 */
obj_t BgL_bucketz00_1518;
{ /* ./Reduce/cse.scm 357 */
int BgL_kz00_1528;
BgL_kz00_1528 = 
(int)(BgL_modz00_1514); 
BgL_bucketz00_1518 = 
VECTOR_REF(BgL_arg2017z00_1509,BgL_kz00_1528); } 
{ /* ./Reduce/cse.scm 357 */
int BgL_kz00_1530;
BgL_kz00_1530 = 
(int)(BgL_restz00_1516); 
BgL_method2760z00_1506 = 
VECTOR_REF(BgL_bucketz00_1518,BgL_kz00_1530); } } } } } } } } } } 
BgL_resetz72z72_741 = 
PROCEDURE_ENTRY(BgL_method2760z00_1506)(BgL_method2760z00_1506, 
(obj_t)(BgL_nodez00_1504), BgL_stackz00_737, BEOA); } } } 
{ /* ./Reduce/cse.scm 358 */
obj_t BgL_nodez00_742;
{ /* ./Reduce/cse.scm 358 */
int BgL_nz00_1531;
BgL_nz00_1531 = 
(int)(((long)1)); 
BgL_nodez00_742 = 
BGL_MVALUES_VAL(BgL_nz00_1531); } 
SET_CAR(BgL_nodeza2za2_735, BgL_nodez00_742); 
if(BgL_resetz00_736)
{ /* ./Reduce/cse.scm 359 */
return 
BBOOL(BgL_resetz00_736);}  else 
{ /* ./Reduce/cse.scm 359 */
return BgL_resetz72z72_741;} } } }  else 
{ /* ./Reduce/cse.scm 355 */
{ /* ./Reduce/cse.scm 361 */
obj_t BgL_resetz72z72_745;
{ /* ./Reduce/cse.scm 362 */
obj_t BgL_arg2857z00_751;
BgL_arg2857z00_751 = 
CAR(BgL_nodeza2za2_735); 
{ /* ./Reduce/cse.scm 362 */
BgL_nodez00_bglt BgL_nodez00_1535;
BgL_nodez00_1535 = 
(BgL_nodez00_bglt)(BgL_arg2857z00_751); 
{ /* ./Reduce/cse.scm 362 */
obj_t BgL_method2760z00_1537;
{ /* ./Reduce/cse.scm 362 */
BgL_objectz00_bglt BgL_objz00_1538;
BgL_objz00_1538 = 
(BgL_objectz00_bglt)(BgL_nodez00_1535); 
{ /* ./Reduce/cse.scm 362 */
long BgL_objzd2classzd2numz00_1539;
BgL_objzd2classzd2numz00_1539 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1538); 
{ /* ./Reduce/cse.scm 362 */
obj_t BgL_arg2017z00_1540;
{ /* ./Reduce/cse.scm 362 */
int BgL_auxz00_2630;
BgL_auxz00_2630 = 
(int)(((long)1)); 
BgL_arg2017z00_1540 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_2630); } 
{ /* ./Reduce/cse.scm 362 */
int BgL_offsetz00_1543;
BgL_offsetz00_1543 = 
(int)(BgL_objzd2classzd2numz00_1539); 
{ /* ./Reduce/cse.scm 362 */
long BgL_offsetz00_1544;
{ /* ./Reduce/cse.scm 362 */
long BgL_auxz00_2634;
BgL_auxz00_2634 = 
(long)(BgL_offsetz00_1543); 
BgL_offsetz00_1544 = 
(BgL_auxz00_2634-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 362 */
long BgL_modz00_1545;
{ /* ./Reduce/cse.scm 362 */
int BgL_arg2028z00_1546;
BgL_arg2028z00_1546 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 362 */
long BgL_n2z00_1554;
BgL_n2z00_1554 = 
(long)(BgL_arg2028z00_1546); 
BgL_modz00_1545 = 
(BgL_offsetz00_1544/BgL_n2z00_1554); } } 
{ /* ./Reduce/cse.scm 362 */
long BgL_restz00_1547;
{ /* ./Reduce/cse.scm 362 */
int BgL_arg2024z00_1548;
BgL_arg2024z00_1548 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 362 */
long BgL_n2z00_1557;
BgL_n2z00_1557 = 
(long)(BgL_arg2024z00_1548); 
BgL_restz00_1547 = 
(BgL_offsetz00_1544%BgL_n2z00_1557); } } 
{ /* ./Reduce/cse.scm 362 */

{ /* ./Reduce/cse.scm 362 */
obj_t BgL_bucketz00_1549;
{ /* ./Reduce/cse.scm 362 */
int BgL_kz00_1559;
BgL_kz00_1559 = 
(int)(BgL_modz00_1545); 
BgL_bucketz00_1549 = 
VECTOR_REF(BgL_arg2017z00_1540,BgL_kz00_1559); } 
{ /* ./Reduce/cse.scm 362 */
int BgL_kz00_1561;
BgL_kz00_1561 = 
(int)(BgL_restz00_1547); 
BgL_method2760z00_1537 = 
VECTOR_REF(BgL_bucketz00_1549,BgL_kz00_1561); } } } } } } } } } } 
BgL_resetz72z72_745 = 
PROCEDURE_ENTRY(BgL_method2760z00_1537)(BgL_method2760z00_1537, 
(obj_t)(BgL_nodez00_1535), BgL_stackz00_737, BEOA); } } } 
{ /* ./Reduce/cse.scm 363 */
obj_t BgL_nodez00_746;
{ /* ./Reduce/cse.scm 363 */
int BgL_nz00_1562;
BgL_nz00_1562 = 
(int)(((long)1)); 
BgL_nodez00_746 = 
BGL_MVALUES_VAL(BgL_nz00_1562); } 
SET_CAR(BgL_nodeza2za2_735, BgL_nodez00_746); 
{ /* ./Reduce/cse.scm 364 */
bool_t BgL_test2845z00_747;
if(BgL_resetz00_736)
{ /* ./Reduce/cse.scm 364 */
BgL_test2845z00_747 = ((bool_t)1); }  else 
{ /* ./Reduce/cse.scm 364 */
BgL_test2845z00_747 = 
CBOOL(BgL_resetz72z72_745); } 
if(BgL_test2845z00_747)
{ /* ./Reduce/cse.scm 365 */
obj_t BgL_arg2847z00_748;
BgL_arg2847z00_748 = 
CDR(BgL_nodeza2za2_735); 
{ 
obj_t BgL_stackz00_2659;bool_t BgL_resetz00_2658;obj_t BgL_nodeza2za2_2657;
BgL_nodeza2za2_2657 = BgL_arg2847z00_748; 
BgL_resetz00_2658 = ((bool_t)1); 
BgL_stackz00_2659 = BNIL; 
BgL_stackz00_737 = BgL_stackz00_2659; 
BgL_resetz00_736 = BgL_resetz00_2658; 
BgL_nodeza2za2_735 = BgL_nodeza2za2_2657; 
goto BgL_loopz00_738;} }  else 
{ /* ./Reduce/cse.scm 366 */
obj_t BgL_arg2852z00_750;
BgL_arg2852z00_750 = 
CDR(BgL_nodeza2za2_735); 
{ 
bool_t BgL_resetz00_2662;obj_t BgL_nodeza2za2_2661;
BgL_nodeza2za2_2661 = BgL_arg2852z00_750; 
BgL_resetz00_2662 = ((bool_t)0); 
BgL_resetz00_736 = BgL_resetz00_2662; 
BgL_nodeza2za2_735 = BgL_nodeza2za2_2661; 
goto BgL_loopz00_738;} } } } } } } } } } 
}



/* find-stack */
obj_t BGl_findzd2stackzd2zzreduce_csez00(BgL_nodez00_bglt BgL_nodez00_60, obj_t BgL_stackz00_61)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 380 */
{ 
obj_t BgL_stackz00_763;
BgL_stackz00_763 = BgL_stackz00_61; 
BgL_loopz00_764:
{ /* ./Reduce/cse.scm 384 */
bool_t BgL_test2895z00_765;
BgL_test2895z00_765 = 
NULLP(BgL_stackz00_763); 
if(BgL_test2895z00_765)
{ /* ./Reduce/cse.scm 384 */
return BFALSE;}  else 
{ /* ./Reduce/cse.scm 386 */
bool_t BgL_test2896z00_766;
{ /* ./Reduce/cse.scm 386 */
obj_t BgL_arg2906z00_769;
{ /* ./Reduce/cse.scm 386 */
int BgL_auxz00_2667;obj_t BgL_auxz00_2665;
BgL_auxz00_2667 = 
(int)(((long)0)); 
BgL_auxz00_2665 = 
CAR(BgL_stackz00_763); 
BgL_arg2906z00_769 = 
STRUCT_REF(BgL_auxz00_2665, BgL_auxz00_2667); } 
BgL_test2896z00_766 = 
BGl_samezd2nodezf3z21zzreduce_samez00(BgL_nodez00_60, 
(BgL_nodez00_bglt)(BgL_arg2906z00_769), BNIL); } 
if(BgL_test2896z00_766)
{ /* ./Reduce/cse.scm 386 */
{ /* ./Reduce/cse.scm 387 */
int BgL_auxz00_2675;obj_t BgL_auxz00_2673;
BgL_auxz00_2675 = 
(int)(((long)1)); 
BgL_auxz00_2673 = 
CAR(BgL_stackz00_763); 
return 
STRUCT_REF(BgL_auxz00_2673, BgL_auxz00_2675);} }  else 
{ /* ./Reduce/cse.scm 386 */
{ /* ./Reduce/cse.scm 389 */
obj_t BgL_arg2902z00_768;
BgL_arg2902z00_768 = 
CDR(BgL_stackz00_763); 
{ 
obj_t BgL_stackz00_2679;
BgL_stackz00_2679 = BgL_arg2902z00_768; 
BgL_stackz00_763 = BgL_stackz00_2679; 
goto BgL_loopz00_764;} } } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzreduce_csez00()
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_nodezd2csez12zd2default2759zd2envzc0zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_atomz00zzast_nodez00, BGl_proc4253z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_kwotez00zzast_nodez00, BGl_proc4254z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_varz00zzast_nodez00, BGl_proc4255z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_closurez00zzast_nodez00, BGl_proc4256z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_sequencez00zzast_nodez00, BGl_proc4257z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4258z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_funcallz00zzast_nodez00, BGl_proc4259z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_externz00zzast_nodez00, BGl_proc4260z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_castz00zzast_nodez00, BGl_proc4261z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_setqz00zzast_nodez00, BGl_proc4262z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_conditionalz00zzast_nodez00, BGl_proc4263z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_failz00zzast_nodez00, BGl_proc4264z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_selectz00zzast_nodez00, BGl_proc4265z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4266z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4267z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4268z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4269z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4270z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4271z00zzreduce_csez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_appz00zzast_nodez00, BGl_proc4272z00zzreduce_csez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4273z00zzreduce_csez00);} 
}



/* node-cse!-let-var2802 */
obj_t BGl_nodezd2csez12zd2letzd2var2802zc0zzreduce_csez00(obj_t BgL_envz00_2438, obj_t BgL_nodez00_2439, obj_t BgL_stackz00_2440)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 293 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1412;obj_t BgL_stackz00_1413;
BgL_nodez00_1412 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2439); 
BgL_stackz00_1413 = BgL_stackz00_2440; 
{ 
obj_t BgL_bindingsz00_1417;bool_t BgL_resetz00_1418;obj_t BgL_extendz00_1419;
{ /* ./Reduce/cse.scm 295 */
obj_t BgL_arg3572z00_1421;
BgL_arg3572z00_1421 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1412))->BgL_bindingsz00); 
BgL_bindingsz00_1417 = BgL_arg3572z00_1421; 
BgL_resetz00_1418 = ((bool_t)0); 
BgL_extendz00_1419 = BNIL; 
BgL_loopz00_1420:
{ /* ./Reduce/cse.scm 298 */
bool_t BgL_test3576z00_1423;
BgL_test3576z00_1423 = 
NULLP(BgL_bindingsz00_1417); 
if(BgL_test3576z00_1423)
{ /* ./Reduce/cse.scm 299 */
obj_t BgL_stackz72z72_1424;
if(BgL_resetz00_1418)
{ /* ./Reduce/cse.scm 299 */
BgL_stackz72z72_1424 = BNIL; }  else 
{ /* ./Reduce/cse.scm 299 */
BgL_stackz72z72_1424 = 
bgl_append2(BgL_extendz00_1419, BgL_stackz00_1413); } 
{ /* ./Reduce/cse.scm 300 */
obj_t BgL_resetz72z72_1425;
{ /* ./Reduce/cse.scm 301 */
BgL_nodez00_bglt BgL_arg3602z00_1442;
BgL_arg3602z00_1442 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1412))->BgL_bodyz00); 
{ /* ./Reduce/cse.scm 301 */
obj_t BgL_method2760z00_2286;
{ /* ./Reduce/cse.scm 301 */
BgL_objectz00_bglt BgL_objz00_2287;
BgL_objz00_2287 = 
(BgL_objectz00_bglt)(BgL_arg3602z00_1442); 
{ /* ./Reduce/cse.scm 301 */
long BgL_objzd2classzd2numz00_2288;
BgL_objzd2classzd2numz00_2288 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2287); 
{ /* ./Reduce/cse.scm 301 */
obj_t BgL_arg2017z00_2289;
{ /* ./Reduce/cse.scm 301 */
int BgL_auxz00_2710;
BgL_auxz00_2710 = 
(int)(((long)1)); 
BgL_arg2017z00_2289 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_2710); } 
{ /* ./Reduce/cse.scm 301 */
int BgL_offsetz00_2292;
BgL_offsetz00_2292 = 
(int)(BgL_objzd2classzd2numz00_2288); 
{ /* ./Reduce/cse.scm 301 */
long BgL_offsetz00_2293;
{ /* ./Reduce/cse.scm 301 */
long BgL_auxz00_2714;
BgL_auxz00_2714 = 
(long)(BgL_offsetz00_2292); 
BgL_offsetz00_2293 = 
(BgL_auxz00_2714-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 301 */
long BgL_modz00_2294;
{ /* ./Reduce/cse.scm 301 */
int BgL_arg2028z00_2295;
BgL_arg2028z00_2295 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 301 */
long BgL_n2z00_2303;
BgL_n2z00_2303 = 
(long)(BgL_arg2028z00_2295); 
BgL_modz00_2294 = 
(BgL_offsetz00_2293/BgL_n2z00_2303); } } 
{ /* ./Reduce/cse.scm 301 */
long BgL_restz00_2296;
{ /* ./Reduce/cse.scm 301 */
int BgL_arg2024z00_2297;
BgL_arg2024z00_2297 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 301 */
long BgL_n2z00_2306;
BgL_n2z00_2306 = 
(long)(BgL_arg2024z00_2297); 
BgL_restz00_2296 = 
(BgL_offsetz00_2293%BgL_n2z00_2306); } } 
{ /* ./Reduce/cse.scm 301 */

{ /* ./Reduce/cse.scm 301 */
obj_t BgL_bucketz00_2298;
{ /* ./Reduce/cse.scm 301 */
int BgL_kz00_2308;
BgL_kz00_2308 = 
(int)(BgL_modz00_2294); 
BgL_bucketz00_2298 = 
VECTOR_REF(BgL_arg2017z00_2289,BgL_kz00_2308); } 
{ /* ./Reduce/cse.scm 301 */
int BgL_kz00_2310;
BgL_kz00_2310 = 
(int)(BgL_restz00_2296); 
BgL_method2760z00_2286 = 
VECTOR_REF(BgL_bucketz00_2298,BgL_kz00_2310); } } } } } } } } } } 
BgL_resetz72z72_1425 = 
PROCEDURE_ENTRY(BgL_method2760z00_2286)(BgL_method2760z00_2286, 
(obj_t)(BgL_arg3602z00_1442), BgL_stackz72z72_1424, BEOA); } } 
{ /* ./Reduce/cse.scm 302 */
obj_t BgL_nbodyz00_1426;
{ /* ./Reduce/cse.scm 302 */
int BgL_nz00_2311;
BgL_nz00_2311 = 
(int)(((long)1)); 
BgL_nbodyz00_1426 = 
BGL_MVALUES_VAL(BgL_nz00_2311); } 
{ /* ./Reduce/cse.scm 302 */
BgL_letzd2varzd2_bglt BgL_obj2491z00_2312;BgL_nodez00_bglt BgL_val2490z00_2313;
BgL_obj2491z00_2312 = BgL_nodez00_1412; 
BgL_val2490z00_2313 = 
(BgL_nodez00_bglt)(BgL_nbodyz00_1426); 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2491z00_2312))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2490z00_2313), BUNSPEC); } 
{ /* ./Reduce/cse.scm 304 */
bool_t BgL_test3578z00_1427;
if(BgL_resetz00_1418)
{ /* ./Reduce/cse.scm 304 */
BgL_test3578z00_1427 = ((bool_t)1); }  else 
{ /* ./Reduce/cse.scm 304 */
BgL_test3578z00_1427 = 
CBOOL(BgL_resetz72z72_1425); } 
if(BgL_test3578z00_1427)
{ /* ./Reduce/cse.scm 304 */
{ /* ./Reduce/cse.scm 305 */
int BgL_nz00_2314;
BgL_nz00_2314 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2314); } 
{ /* ./Reduce/cse.scm 305 */
int BgL_nz00_2315;obj_t BgL_oz00_2316;
BgL_nz00_2315 = 
(int)(((long)1)); 
BgL_oz00_2316 = 
(obj_t)(BgL_nodez00_1412); 
BGL_MVALUES_VAL_SET(BgL_nz00_2315, BgL_oz00_2316); } 
return BTRUE;}  else 
{ /* ./Reduce/cse.scm 306 */
bool_t BgL_test3581z00_1430;
BgL_test3581z00_1430 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_nodez00_1412)); 
if(BgL_test3581z00_1430)
{ /* ./Reduce/cse.scm 306 */
{ /* ./Reduce/cse.scm 307 */
int BgL_nz00_2317;
BgL_nz00_2317 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2317); } 
{ /* ./Reduce/cse.scm 307 */
int BgL_nz00_2318;obj_t BgL_oz00_2319;
BgL_nz00_2318 = 
(int)(((long)1)); 
BgL_oz00_2319 = 
(obj_t)(BgL_nodez00_1412); 
BGL_MVALUES_VAL_SET(BgL_nz00_2318, BgL_oz00_2319); } 
return BFALSE;}  else 
{ /* ./Reduce/cse.scm 306 */
{ /* ./Reduce/cse.scm 309 */
obj_t BgL_previousz00_1433;
BgL_previousz00_1433 = 
BGl_findzd2stackzd2zzreduce_csez00(
(BgL_nodez00_bglt)(BgL_nodez00_1412), BgL_stackz00_1413); 
{ /* ./Reduce/cse.scm 311 */
bool_t BgL_test3584z00_1434;
BgL_test3584z00_1434 = 
BGl_iszd2azf3z21zz__objectz00(BgL_previousz00_1433, BGl_variablez00zzast_varz00); 
if(BgL_test3584z00_1434)
{ /* ./Reduce/cse.scm 311 */
{ /* ./Reduce/cse.scm 312 */
long BgL_za72za7_2322;
BgL_za72za7_2322 = BGl_za2csezd2removedza2zd2zzreduce_csez00; 
BGl_za2csezd2removedza2zd2zzreduce_csez00 = 
(((long)1)+BgL_za72za7_2322); } 
{ /* ./Reduce/cse.scm 315 */
BgL_varz00_bglt BgL_val1_2754z00_1436;
{ /* ./Reduce/cse.scm 316 */
obj_t BgL_arg3589z00_1437;BgL_typez00_bglt BgL_arg3590z00_1438;obj_t BgL_arg3591z00_1439;
{ /* ./Reduce/cse.scm 316 */
BgL_nodez00_bglt BgL_obj1560z00_2323;
BgL_obj1560z00_2323 = 
(BgL_nodez00_bglt)(BgL_nodez00_1412); 
BgL_arg3589z00_1437 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2323))->BgL_locz00); } 
{ /* ./Reduce/cse.scm 317 */
BgL_nodez00_bglt BgL_obj1561z00_2324;
BgL_obj1561z00_2324 = 
(BgL_nodez00_bglt)(BgL_nodez00_1412); 
BgL_arg3590z00_1438 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2324))->BgL_typez00); } 
BgL_arg3591z00_1439 = BgL_previousz00_1433; 
BgL_val1_2754z00_1436 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3589z00_1437, BgL_arg3590z00_1438, 
(BgL_variablez00_bglt)(BgL_arg3591z00_1439)); } 
{ /* ./Reduce/cse.scm 315 */
int BgL_nz00_2325;
BgL_nz00_2325 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2325); } 
{ /* ./Reduce/cse.scm 315 */
int BgL_nz00_2326;obj_t BgL_oz00_2327;
BgL_nz00_2326 = 
(int)(((long)1)); 
BgL_oz00_2327 = 
(obj_t)(BgL_val1_2754z00_1436); 
BGL_MVALUES_VAL_SET(BgL_nz00_2326, BgL_oz00_2327); } 
return BgL_stackz72z72_1424;} }  else 
{ /* ./Reduce/cse.scm 311 */
{ /* ./Reduce/cse.scm 320 */
int BgL_nz00_2328;
BgL_nz00_2328 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2328); } 
{ /* ./Reduce/cse.scm 320 */
int BgL_nz00_2329;obj_t BgL_oz00_2330;
BgL_nz00_2329 = 
(int)(((long)1)); 
BgL_oz00_2330 = 
(obj_t)(BgL_nodez00_1412); 
BGL_MVALUES_VAL_SET(BgL_nz00_2329, BgL_oz00_2330); } 
return BFALSE;} } } } } } } } }  else 
{ /* ./Reduce/cse.scm 321 */
obj_t BgL_bindingz00_1443;
BgL_bindingz00_1443 = 
CAR(BgL_bindingsz00_1417); 
{ /* ./Reduce/cse.scm 322 */
obj_t BgL_varz00_1444;obj_t BgL_valz00_1445;
BgL_varz00_1444 = 
CAR(BgL_bindingz00_1443); 
BgL_valz00_1445 = 
CDR(BgL_bindingz00_1443); 
{ /* ./Reduce/cse.scm 324 */
obj_t BgL_resetz72z72_1446;
{ /* ./Reduce/cse.scm 325 */
BgL_nodez00_bglt BgL_nodez00_2334;
BgL_nodez00_2334 = 
(BgL_nodez00_bglt)(BgL_valz00_1445); 
{ /* ./Reduce/cse.scm 325 */
obj_t BgL_method2760z00_2336;
{ /* ./Reduce/cse.scm 325 */
BgL_objectz00_bglt BgL_objz00_2337;
BgL_objz00_2337 = 
(BgL_objectz00_bglt)(BgL_nodez00_2334); 
{ /* ./Reduce/cse.scm 325 */
long BgL_objzd2classzd2numz00_2338;
BgL_objzd2classzd2numz00_2338 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2337); 
{ /* ./Reduce/cse.scm 325 */
obj_t BgL_arg2017z00_2339;
{ /* ./Reduce/cse.scm 325 */
int BgL_auxz00_2777;
BgL_auxz00_2777 = 
(int)(((long)1)); 
BgL_arg2017z00_2339 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_2777); } 
{ /* ./Reduce/cse.scm 325 */
int BgL_offsetz00_2342;
BgL_offsetz00_2342 = 
(int)(BgL_objzd2classzd2numz00_2338); 
{ /* ./Reduce/cse.scm 325 */
long BgL_offsetz00_2343;
{ /* ./Reduce/cse.scm 325 */
long BgL_auxz00_2781;
BgL_auxz00_2781 = 
(long)(BgL_offsetz00_2342); 
BgL_offsetz00_2343 = 
(BgL_auxz00_2781-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 325 */
long BgL_modz00_2344;
{ /* ./Reduce/cse.scm 325 */
int BgL_arg2028z00_2345;
BgL_arg2028z00_2345 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 325 */
long BgL_n2z00_2353;
BgL_n2z00_2353 = 
(long)(BgL_arg2028z00_2345); 
BgL_modz00_2344 = 
(BgL_offsetz00_2343/BgL_n2z00_2353); } } 
{ /* ./Reduce/cse.scm 325 */
long BgL_restz00_2346;
{ /* ./Reduce/cse.scm 325 */
int BgL_arg2024z00_2347;
BgL_arg2024z00_2347 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 325 */
long BgL_n2z00_2356;
BgL_n2z00_2356 = 
(long)(BgL_arg2024z00_2347); 
BgL_restz00_2346 = 
(BgL_offsetz00_2343%BgL_n2z00_2356); } } 
{ /* ./Reduce/cse.scm 325 */

{ /* ./Reduce/cse.scm 325 */
obj_t BgL_bucketz00_2348;
{ /* ./Reduce/cse.scm 325 */
int BgL_kz00_2358;
BgL_kz00_2358 = 
(int)(BgL_modz00_2344); 
BgL_bucketz00_2348 = 
VECTOR_REF(BgL_arg2017z00_2339,BgL_kz00_2358); } 
{ /* ./Reduce/cse.scm 325 */
int BgL_kz00_2360;
BgL_kz00_2360 = 
(int)(BgL_restz00_2346); 
BgL_method2760z00_2336 = 
VECTOR_REF(BgL_bucketz00_2348,BgL_kz00_2360); } } } } } } } } } } 
BgL_resetz72z72_1446 = 
PROCEDURE_ENTRY(BgL_method2760z00_2336)(BgL_method2760z00_2336, 
(obj_t)(BgL_nodez00_2334), BgL_stackz00_1413, BEOA); } } 
{ /* ./Reduce/cse.scm 326 */
obj_t BgL_nvalz00_1447;
{ /* ./Reduce/cse.scm 326 */
int BgL_nz00_2361;
BgL_nz00_2361 = 
(int)(((long)1)); 
BgL_nvalz00_1447 = 
BGL_MVALUES_VAL(BgL_nz00_2361); } 
SET_CDR(BgL_bindingz00_1443, BgL_nvalz00_1447); 
{ /* ./Reduce/cse.scm 328 */
bool_t BgL_test3607z00_1448;
if(BgL_resetz00_1418)
{ /* ./Reduce/cse.scm 328 */
BgL_test3607z00_1448 = ((bool_t)1); }  else 
{ /* ./Reduce/cse.scm 328 */
BgL_test3607z00_1448 = 
CBOOL(BgL_resetz72z72_1446); } 
if(BgL_test3607z00_1448)
{ /* ./Reduce/cse.scm 328 */
{ /* ./Reduce/cse.scm 329 */
obj_t BgL_arg3609z00_1449;
BgL_arg3609z00_1449 = 
CDR(BgL_bindingsz00_1417); 
{ 
obj_t BgL_extendz00_2806;bool_t BgL_resetz00_2805;obj_t BgL_bindingsz00_2804;
BgL_bindingsz00_2804 = BgL_arg3609z00_1449; 
BgL_resetz00_2805 = ((bool_t)1); 
BgL_extendz00_2806 = BNIL; 
BgL_extendz00_1419 = BgL_extendz00_2806; 
BgL_resetz00_1418 = BgL_resetz00_2805; 
BgL_bindingsz00_1417 = BgL_bindingsz00_2804; 
goto BgL_loopz00_1420;} } }  else 
{ /* ./Reduce/cse.scm 332 */
bool_t BgL_test3613z00_1451;
{ /* ./Reduce/cse.scm 332 */
obj_t BgL_auxz00_2810;obj_t BgL_auxz00_2807;
BgL_auxz00_2810 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Reduce/cse.scm 332 */
BgL_variablez00_bglt BgL_obj1103z00_2365;
BgL_obj1103z00_2365 = 
(BgL_variablez00_bglt)(BgL_varz00_1444); 
BgL_auxz00_2807 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1103z00_2365))->BgL_accessz00); } 
BgL_test3613z00_1451 = 
(BgL_auxz00_2807==BgL_auxz00_2810); } 
if(BgL_test3613z00_1451)
{ /* ./Reduce/cse.scm 336 */
bool_t BgL_test3614z00_1452;
{ /* ./Reduce/cse.scm 336 */
bool_t BgL_test3628z00_1457;
BgL_test3628z00_1457 = 
BGl_iszd2azf3z21zz__objectz00(BgL_valz00_1445, BGl_appz00zzast_nodez00); 
if(BgL_test3628z00_1457)
{ /* ./Reduce/cse.scm 336 */
BgL_test3614z00_1452 = ((bool_t)1); }  else 
{ /* ./Reduce/cse.scm 336 */
BgL_test3614z00_1452 = 
BGl_iszd2azf3z21zz__objectz00(BgL_valz00_1445, BGl_letzd2varzd2zzast_nodez00); } } 
if(BgL_test3614z00_1452)
{ /* ./Reduce/cse.scm 336 */
{ /* ./Reduce/cse.scm 337 */
obj_t BgL_arg3616z00_1453;obj_t BgL_arg3617z00_1454;
BgL_arg3616z00_1453 = 
CDR(BgL_bindingsz00_1417); 
{ /* ./Reduce/cse.scm 339 */
obj_t BgL_arg3621z00_1455;
{ /* ./Reduce/cse.scm 339 */
obj_t BgL_newz00_2371;
{ /* ./Reduce/cse.scm 339 */
int BgL_auxz00_2821;obj_t BgL_auxz00_2819;
BgL_auxz00_2821 = 
(int)(((long)2)); 
BgL_auxz00_2819 = 
CNST_TABLE_REF(((long)1)); 
BgL_newz00_2371 = 
create_struct(BgL_auxz00_2819, BgL_auxz00_2821); } 
{ /* ./Reduce/cse.scm 339 */
int BgL_kz00_2375;
BgL_kz00_2375 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_2371, BgL_kz00_2375, BgL_varz00_1444); } 
{ /* ./Reduce/cse.scm 339 */
int BgL_kz00_2380;
BgL_kz00_2380 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_2371, BgL_kz00_2380, BgL_valz00_1445); } 
BgL_arg3621z00_1455 = BgL_newz00_2371; } 
BgL_arg3617z00_1454 = 
MAKE_PAIR(BgL_arg3621z00_1455, BgL_extendz00_1419); } 
{ 
obj_t BgL_extendz00_2831;bool_t BgL_resetz00_2830;obj_t BgL_bindingsz00_2829;
BgL_bindingsz00_2829 = BgL_arg3616z00_1453; 
BgL_resetz00_2830 = ((bool_t)0); 
BgL_extendz00_2831 = BgL_arg3617z00_1454; 
BgL_extendz00_1419 = BgL_extendz00_2831; 
BgL_resetz00_1418 = BgL_resetz00_2830; 
BgL_bindingsz00_1417 = BgL_bindingsz00_2829; 
goto BgL_loopz00_1420;} } }  else 
{ /* ./Reduce/cse.scm 336 */
{ /* ./Reduce/cse.scm 341 */
obj_t BgL_arg3625z00_1456;
BgL_arg3625z00_1456 = 
CDR(BgL_bindingsz00_1417); 
{ 
bool_t BgL_resetz00_2834;obj_t BgL_bindingsz00_2833;
BgL_bindingsz00_2833 = BgL_arg3625z00_1456; 
BgL_resetz00_2834 = ((bool_t)0); 
BgL_resetz00_1418 = BgL_resetz00_2834; 
BgL_bindingsz00_1417 = BgL_bindingsz00_2833; 
goto BgL_loopz00_1420;} } } }  else 
{ /* ./Reduce/cse.scm 332 */
{ /* ./Reduce/cse.scm 333 */
obj_t BgL_arg3632z00_1458;
BgL_arg3632z00_1458 = 
CDR(BgL_bindingsz00_1417); 
{ 
bool_t BgL_resetz00_2837;obj_t BgL_bindingsz00_2836;
BgL_bindingsz00_2836 = BgL_arg3632z00_1458; 
BgL_resetz00_2837 = ((bool_t)0); 
BgL_resetz00_1418 = BgL_resetz00_2837; 
BgL_bindingsz00_1417 = BgL_bindingsz00_2836; 
goto BgL_loopz00_1420;} } } } } } } } } } } } } } 
}



/* node-cse!-app2800 */
obj_t BGl_nodezd2csez12zd2app2800z12zzreduce_csez00(obj_t BgL_envz00_2441, obj_t BgL_nodez00_2442, obj_t BgL_stackz00_2443)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 267 */
{ 
BgL_appz00_bglt BgL_nodez00_1391;obj_t BgL_stackz00_1392;
BgL_nodez00_1391 = 
(BgL_appz00_bglt)(BgL_nodez00_2442); 
BgL_stackz00_1392 = BgL_stackz00_2443; 
{ /* ./Reduce/cse.scm 269 */
obj_t BgL_resetz00_1396;
{ /* ./Reduce/cse.scm 269 */
obj_t BgL_arg3562z00_1409;
BgL_arg3562z00_1409 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1391))->BgL_argsz00); 
BgL_resetz00_1396 = 
BGl_nodezd2cseza2z12z62zzreduce_csez00(BgL_arg3562z00_1409, BgL_stackz00_1392); } 
{ /* ./Reduce/cse.scm 270 */
bool_t BgL_test3541z00_1397;
if(
CBOOL(BgL_resetz00_1396))
{ /* ./Reduce/cse.scm 270 */
BgL_test3541z00_1397 = ((bool_t)1); }  else 
{ /* ./Reduce/cse.scm 270 */
BgL_test3541z00_1397 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_nodez00_1391)); } 
if(BgL_test3541z00_1397)
{ /* ./Reduce/cse.scm 270 */
{ /* ./Reduce/cse.scm 274 */
int BgL_nz00_2267;
BgL_nz00_2267 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2267); } 
{ /* ./Reduce/cse.scm 274 */
int BgL_nz00_2268;obj_t BgL_oz00_2269;
BgL_nz00_2268 = 
(int)(((long)1)); 
BgL_oz00_2269 = 
(obj_t)(BgL_nodez00_1391); 
BGL_MVALUES_VAL_SET(BgL_nz00_2268, BgL_oz00_2269); } 
return BTRUE;}  else 
{ /* ./Reduce/cse.scm 275 */
obj_t BgL_previousz00_1400;
BgL_previousz00_1400 = 
BGl_findzd2stackzd2zzreduce_csez00(
(BgL_nodez00_bglt)(BgL_nodez00_1391), BgL_stackz00_1392); 
{ /* ./Reduce/cse.scm 277 */
bool_t BgL_test3544z00_1401;
BgL_test3544z00_1401 = 
BGl_iszd2azf3z21zz__objectz00(BgL_previousz00_1400, BGl_variablez00zzast_varz00); 
if(BgL_test3544z00_1401)
{ /* ./Reduce/cse.scm 277 */
{ /* ./Reduce/cse.scm 278 */
long BgL_za72za7_2272;
BgL_za72za7_2272 = BGl_za2csezd2removedza2zd2zzreduce_csez00; 
BGl_za2csezd2removedza2zd2zzreduce_csez00 = 
(((long)1)+BgL_za72za7_2272); } 
{ /* ./Reduce/cse.scm 280 */
BgL_varz00_bglt BgL_val1_2743z00_1403;
{ /* ./Reduce/cse.scm 281 */
obj_t BgL_arg3549z00_1404;BgL_typez00_bglt BgL_arg3550z00_1405;obj_t BgL_arg3552z00_1406;
{ /* ./Reduce/cse.scm 281 */
BgL_nodez00_bglt BgL_obj1560z00_2273;
BgL_obj1560z00_2273 = 
(BgL_nodez00_bglt)(BgL_nodez00_1391); 
BgL_arg3549z00_1404 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2273))->BgL_locz00); } 
{ /* ./Reduce/cse.scm 282 */
BgL_nodez00_bglt BgL_obj1561z00_2274;
BgL_obj1561z00_2274 = 
(BgL_nodez00_bglt)(BgL_nodez00_1391); 
BgL_arg3550z00_1405 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2274))->BgL_typez00); } 
BgL_arg3552z00_1406 = BgL_previousz00_1400; 
BgL_val1_2743z00_1403 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3549z00_1404, BgL_arg3550z00_1405, 
(BgL_variablez00_bglt)(BgL_arg3552z00_1406)); } 
{ /* ./Reduce/cse.scm 280 */
int BgL_nz00_2275;
BgL_nz00_2275 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2275); } 
{ /* ./Reduce/cse.scm 280 */
int BgL_nz00_2276;obj_t BgL_oz00_2277;
BgL_nz00_2276 = 
(int)(((long)1)); 
BgL_oz00_2277 = 
(obj_t)(BgL_val1_2743z00_1403); 
BGL_MVALUES_VAL_SET(BgL_nz00_2276, BgL_oz00_2277); } 
return BgL_stackz00_1392;} }  else 
{ /* ./Reduce/cse.scm 277 */
{ /* ./Reduce/cse.scm 285 */
int BgL_nz00_2278;
BgL_nz00_2278 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2278); } 
{ /* ./Reduce/cse.scm 285 */
int BgL_nz00_2279;obj_t BgL_oz00_2280;
BgL_nz00_2279 = 
(int)(((long)1)); 
BgL_oz00_2280 = 
(obj_t)(BgL_nodez00_1391); 
BGL_MVALUES_VAL_SET(BgL_nz00_2279, BgL_oz00_2280); } 
return BFALSE;} } } } } } } 
}



/* node-cse!-box-ref2798 */
obj_t BGl_nodezd2csez12zd2boxzd2ref2798zc0zzreduce_csez00(obj_t BgL_envz00_2444, obj_t BgL_nodez00_2445, obj_t BgL_stackz00_2446)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 261 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1383;obj_t BgL_stackz00_1384;
{ /* ./Reduce/cse.scm 262 */
bool_t BgL_auxz00_2873;
BgL_nodez00_1383 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2445); 
BgL_stackz00_1384 = BgL_stackz00_2446; 
{ /* ./Reduce/cse.scm 262 */
int BgL_nz00_2263;
BgL_nz00_2263 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2263); } 
{ /* ./Reduce/cse.scm 262 */
int BgL_nz00_2264;obj_t BgL_oz00_2265;
BgL_nz00_2264 = 
(int)(((long)1)); 
BgL_oz00_2265 = 
(obj_t)(BgL_nodez00_1383); 
BGL_MVALUES_VAL_SET(BgL_nz00_2264, BgL_oz00_2265); } 
BgL_auxz00_2873 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_2873);} } } 
}



/* node-cse!-box-set!2796 */
obj_t BGl_nodezd2csez12zd2boxzd2setz122796zd2zzreduce_csez00(obj_t BgL_envz00_2447, obj_t BgL_nodez00_2448, obj_t BgL_stackz00_2449)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 251 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1371;obj_t BgL_stackz00_1372;
BgL_nodez00_1371 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2448); 
BgL_stackz00_1372 = BgL_stackz00_2449; 
{ /* ./Reduce/cse.scm 253 */
obj_t BgL_resetz00_1376;
{ /* ./Reduce/cse.scm 254 */
BgL_nodez00_bglt BgL_arg3524z00_1380;
BgL_arg3524z00_1380 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1371))->BgL_valuez00); 
{ /* ./Reduce/cse.scm 254 */
obj_t BgL_method2760z00_2230;
{ /* ./Reduce/cse.scm 254 */
BgL_objectz00_bglt BgL_objz00_2231;
BgL_objz00_2231 = 
(BgL_objectz00_bglt)(BgL_arg3524z00_1380); 
{ /* ./Reduce/cse.scm 254 */
long BgL_objzd2classzd2numz00_2232;
BgL_objzd2classzd2numz00_2232 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2231); 
{ /* ./Reduce/cse.scm 254 */
obj_t BgL_arg2017z00_2233;
{ /* ./Reduce/cse.scm 254 */
int BgL_auxz00_2884;
BgL_auxz00_2884 = 
(int)(((long)1)); 
BgL_arg2017z00_2233 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_2884); } 
{ /* ./Reduce/cse.scm 254 */
int BgL_offsetz00_2236;
BgL_offsetz00_2236 = 
(int)(BgL_objzd2classzd2numz00_2232); 
{ /* ./Reduce/cse.scm 254 */
long BgL_offsetz00_2237;
{ /* ./Reduce/cse.scm 254 */
long BgL_auxz00_2888;
BgL_auxz00_2888 = 
(long)(BgL_offsetz00_2236); 
BgL_offsetz00_2237 = 
(BgL_auxz00_2888-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 254 */
long BgL_modz00_2238;
{ /* ./Reduce/cse.scm 254 */
int BgL_arg2028z00_2239;
BgL_arg2028z00_2239 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 254 */
long BgL_n2z00_2247;
BgL_n2z00_2247 = 
(long)(BgL_arg2028z00_2239); 
BgL_modz00_2238 = 
(BgL_offsetz00_2237/BgL_n2z00_2247); } } 
{ /* ./Reduce/cse.scm 254 */
long BgL_restz00_2240;
{ /* ./Reduce/cse.scm 254 */
int BgL_arg2024z00_2241;
BgL_arg2024z00_2241 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 254 */
long BgL_n2z00_2250;
BgL_n2z00_2250 = 
(long)(BgL_arg2024z00_2241); 
BgL_restz00_2240 = 
(BgL_offsetz00_2237%BgL_n2z00_2250); } } 
{ /* ./Reduce/cse.scm 254 */

{ /* ./Reduce/cse.scm 254 */
obj_t BgL_bucketz00_2242;
{ /* ./Reduce/cse.scm 254 */
int BgL_kz00_2252;
BgL_kz00_2252 = 
(int)(BgL_modz00_2238); 
BgL_bucketz00_2242 = 
VECTOR_REF(BgL_arg2017z00_2233,BgL_kz00_2252); } 
{ /* ./Reduce/cse.scm 254 */
int BgL_kz00_2254;
BgL_kz00_2254 = 
(int)(BgL_restz00_2240); 
BgL_method2760z00_2230 = 
VECTOR_REF(BgL_bucketz00_2242,BgL_kz00_2254); } } } } } } } } } } 
BgL_resetz00_1376 = 
PROCEDURE_ENTRY(BgL_method2760z00_2230)(BgL_method2760z00_2230, 
(obj_t)(BgL_arg3524z00_1380), BgL_stackz00_1372, BEOA); } } 
{ /* ./Reduce/cse.scm 255 */
obj_t BgL_nvaluez00_1377;
{ /* ./Reduce/cse.scm 255 */
int BgL_nz00_2255;
BgL_nz00_2255 = 
(int)(((long)1)); 
BgL_nvaluez00_1377 = 
BGL_MVALUES_VAL(BgL_nz00_2255); } 
{ /* ./Reduce/cse.scm 255 */
BgL_boxzd2setz12zc0_bglt BgL_obj2645z00_2256;BgL_nodez00_bglt BgL_val2644z00_2257;
BgL_obj2645z00_2256 = BgL_nodez00_1371; 
BgL_val2644z00_2257 = 
(BgL_nodez00_bglt)(BgL_nvaluez00_1377); 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2645z00_2256))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2644z00_2257), BUNSPEC); } 
{ /* ./Reduce/cse.scm 256 */
int BgL_nz00_2258;
BgL_nz00_2258 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2258); } 
{ /* ./Reduce/cse.scm 256 */
int BgL_nz00_2259;obj_t BgL_oz00_2260;
BgL_nz00_2259 = 
(int)(((long)1)); 
BgL_oz00_2260 = 
(obj_t)(BgL_nodez00_1371); 
BGL_MVALUES_VAL_SET(BgL_nz00_2259, BgL_oz00_2260); } 
return BgL_resetz00_1376;} } } } 
}



/* node-cse!-make-box2794 */
obj_t BGl_nodezd2csez12zd2makezd2box2794zc0zzreduce_csez00(obj_t BgL_envz00_2450, obj_t BgL_nodez00_2451, obj_t BgL_stackz00_2452)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 241 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1359;obj_t BgL_stackz00_1360;
BgL_nodez00_1359 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2451); 
BgL_stackz00_1360 = BgL_stackz00_2452; 
{ /* ./Reduce/cse.scm 243 */
obj_t BgL_resetz00_1364;
{ /* ./Reduce/cse.scm 244 */
BgL_nodez00_bglt BgL_arg3510z00_1368;
BgL_arg3510z00_1368 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1359))->BgL_valuez00); 
{ /* ./Reduce/cse.scm 244 */
obj_t BgL_method2760z00_2196;
{ /* ./Reduce/cse.scm 244 */
BgL_objectz00_bglt BgL_objz00_2197;
BgL_objz00_2197 = 
(BgL_objectz00_bglt)(BgL_arg3510z00_1368); 
{ /* ./Reduce/cse.scm 244 */
long BgL_objzd2classzd2numz00_2198;
BgL_objzd2classzd2numz00_2198 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2197); 
{ /* ./Reduce/cse.scm 244 */
obj_t BgL_arg2017z00_2199;
{ /* ./Reduce/cse.scm 244 */
int BgL_auxz00_2917;
BgL_auxz00_2917 = 
(int)(((long)1)); 
BgL_arg2017z00_2199 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_2917); } 
{ /* ./Reduce/cse.scm 244 */
int BgL_offsetz00_2202;
BgL_offsetz00_2202 = 
(int)(BgL_objzd2classzd2numz00_2198); 
{ /* ./Reduce/cse.scm 244 */
long BgL_offsetz00_2203;
{ /* ./Reduce/cse.scm 244 */
long BgL_auxz00_2921;
BgL_auxz00_2921 = 
(long)(BgL_offsetz00_2202); 
BgL_offsetz00_2203 = 
(BgL_auxz00_2921-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 244 */
long BgL_modz00_2204;
{ /* ./Reduce/cse.scm 244 */
int BgL_arg2028z00_2205;
BgL_arg2028z00_2205 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 244 */
long BgL_n2z00_2213;
BgL_n2z00_2213 = 
(long)(BgL_arg2028z00_2205); 
BgL_modz00_2204 = 
(BgL_offsetz00_2203/BgL_n2z00_2213); } } 
{ /* ./Reduce/cse.scm 244 */
long BgL_restz00_2206;
{ /* ./Reduce/cse.scm 244 */
int BgL_arg2024z00_2207;
BgL_arg2024z00_2207 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 244 */
long BgL_n2z00_2216;
BgL_n2z00_2216 = 
(long)(BgL_arg2024z00_2207); 
BgL_restz00_2206 = 
(BgL_offsetz00_2203%BgL_n2z00_2216); } } 
{ /* ./Reduce/cse.scm 244 */

{ /* ./Reduce/cse.scm 244 */
obj_t BgL_bucketz00_2208;
{ /* ./Reduce/cse.scm 244 */
int BgL_kz00_2218;
BgL_kz00_2218 = 
(int)(BgL_modz00_2204); 
BgL_bucketz00_2208 = 
VECTOR_REF(BgL_arg2017z00_2199,BgL_kz00_2218); } 
{ /* ./Reduce/cse.scm 244 */
int BgL_kz00_2220;
BgL_kz00_2220 = 
(int)(BgL_restz00_2206); 
BgL_method2760z00_2196 = 
VECTOR_REF(BgL_bucketz00_2208,BgL_kz00_2220); } } } } } } } } } } 
BgL_resetz00_1364 = 
PROCEDURE_ENTRY(BgL_method2760z00_2196)(BgL_method2760z00_2196, 
(obj_t)(BgL_arg3510z00_1368), BgL_stackz00_1360, BEOA); } } 
{ /* ./Reduce/cse.scm 245 */
obj_t BgL_nvaluez00_1365;
{ /* ./Reduce/cse.scm 245 */
int BgL_nz00_2221;
BgL_nz00_2221 = 
(int)(((long)1)); 
BgL_nvaluez00_1365 = 
BGL_MVALUES_VAL(BgL_nz00_2221); } 
{ /* ./Reduce/cse.scm 245 */
BgL_makezd2boxzd2_bglt BgL_obj2584z00_2222;BgL_nodez00_bglt BgL_val2583z00_2223;
BgL_obj2584z00_2222 = BgL_nodez00_1359; 
BgL_val2583z00_2223 = 
(BgL_nodez00_bglt)(BgL_nvaluez00_1365); 
((((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2584z00_2222))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2583z00_2223), BUNSPEC); } 
{ /* ./Reduce/cse.scm 246 */
int BgL_nz00_2224;
BgL_nz00_2224 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2224); } 
{ /* ./Reduce/cse.scm 246 */
int BgL_nz00_2225;obj_t BgL_oz00_2226;
BgL_nz00_2225 = 
(int)(((long)1)); 
BgL_oz00_2226 = 
(obj_t)(BgL_nodez00_1359); 
BGL_MVALUES_VAL_SET(BgL_nz00_2225, BgL_oz00_2226); } 
return BgL_resetz00_1364;} } } } 
}



/* node-cse!-jump-ex-it2792 */
obj_t BGl_nodezd2csez12zd2jumpzd2exzd2it2792z12zzreduce_csez00(obj_t BgL_envz00_2453, obj_t BgL_nodez00_2454, obj_t BgL_stackz00_2455)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 227 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1342;obj_t BgL_stackz00_1343;
BgL_nodez00_1342 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2454); 
BgL_stackz00_1343 = BgL_stackz00_2455; 
{ /* ./Reduce/cse.scm 229 */
obj_t BgL_resetz00_1347;
{ /* ./Reduce/cse.scm 230 */
BgL_nodez00_bglt BgL_arg3496z00_1356;
BgL_arg3496z00_1356 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1342))->BgL_exitz00); 
{ /* ./Reduce/cse.scm 230 */
obj_t BgL_method2760z00_2131;
{ /* ./Reduce/cse.scm 230 */
BgL_objectz00_bglt BgL_objz00_2132;
BgL_objz00_2132 = 
(BgL_objectz00_bglt)(BgL_arg3496z00_1356); 
{ /* ./Reduce/cse.scm 230 */
long BgL_objzd2classzd2numz00_2133;
BgL_objzd2classzd2numz00_2133 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2132); 
{ /* ./Reduce/cse.scm 230 */
obj_t BgL_arg2017z00_2134;
{ /* ./Reduce/cse.scm 230 */
int BgL_auxz00_2950;
BgL_auxz00_2950 = 
(int)(((long)1)); 
BgL_arg2017z00_2134 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_2950); } 
{ /* ./Reduce/cse.scm 230 */
int BgL_offsetz00_2137;
BgL_offsetz00_2137 = 
(int)(BgL_objzd2classzd2numz00_2133); 
{ /* ./Reduce/cse.scm 230 */
long BgL_offsetz00_2138;
{ /* ./Reduce/cse.scm 230 */
long BgL_auxz00_2954;
BgL_auxz00_2954 = 
(long)(BgL_offsetz00_2137); 
BgL_offsetz00_2138 = 
(BgL_auxz00_2954-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 230 */
long BgL_modz00_2139;
{ /* ./Reduce/cse.scm 230 */
int BgL_arg2028z00_2140;
BgL_arg2028z00_2140 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 230 */
long BgL_n2z00_2148;
BgL_n2z00_2148 = 
(long)(BgL_arg2028z00_2140); 
BgL_modz00_2139 = 
(BgL_offsetz00_2138/BgL_n2z00_2148); } } 
{ /* ./Reduce/cse.scm 230 */
long BgL_restz00_2141;
{ /* ./Reduce/cse.scm 230 */
int BgL_arg2024z00_2142;
BgL_arg2024z00_2142 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 230 */
long BgL_n2z00_2151;
BgL_n2z00_2151 = 
(long)(BgL_arg2024z00_2142); 
BgL_restz00_2141 = 
(BgL_offsetz00_2138%BgL_n2z00_2151); } } 
{ /* ./Reduce/cse.scm 230 */

{ /* ./Reduce/cse.scm 230 */
obj_t BgL_bucketz00_2143;
{ /* ./Reduce/cse.scm 230 */
int BgL_kz00_2153;
BgL_kz00_2153 = 
(int)(BgL_modz00_2139); 
BgL_bucketz00_2143 = 
VECTOR_REF(BgL_arg2017z00_2134,BgL_kz00_2153); } 
{ /* ./Reduce/cse.scm 230 */
int BgL_kz00_2155;
BgL_kz00_2155 = 
(int)(BgL_restz00_2141); 
BgL_method2760z00_2131 = 
VECTOR_REF(BgL_bucketz00_2143,BgL_kz00_2155); } } } } } } } } } } 
BgL_resetz00_1347 = 
PROCEDURE_ENTRY(BgL_method2760z00_2131)(BgL_method2760z00_2131, 
(obj_t)(BgL_arg3496z00_1356), BgL_stackz00_1343, BEOA); } } 
{ /* ./Reduce/cse.scm 231 */
obj_t BgL_nexitz00_1348;
{ /* ./Reduce/cse.scm 231 */
int BgL_nz00_2156;
BgL_nz00_2156 = 
(int)(((long)1)); 
BgL_nexitz00_1348 = 
BGL_MVALUES_VAL(BgL_nz00_2156); } 
{ /* ./Reduce/cse.scm 231 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2552z00_2157;BgL_nodez00_bglt BgL_val2551z00_2158;
BgL_obj2552z00_2157 = BgL_nodez00_1342; 
BgL_val2551z00_2158 = 
(BgL_nodez00_bglt)(BgL_nexitz00_1348); 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2552z00_2157))->BgL_exitz00) = ((BgL_nodez00_bglt)BgL_val2551z00_2158), BUNSPEC); } 
{ /* ./Reduce/cse.scm 232 */
obj_t BgL_stackz72z72_1349;
if(
CBOOL(BgL_resetz00_1347))
{ /* ./Reduce/cse.scm 232 */
BgL_stackz72z72_1349 = BNIL; }  else 
{ /* ./Reduce/cse.scm 232 */
BgL_stackz72z72_1349 = BgL_stackz00_1343; } 
{ /* ./Reduce/cse.scm 233 */
obj_t BgL_resetz72z72_1350;
{ /* ./Reduce/cse.scm 234 */
BgL_nodez00_bglt BgL_arg3491z00_1355;
BgL_arg3491z00_1355 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1342))->BgL_valuez00); 
{ /* ./Reduce/cse.scm 234 */
obj_t BgL_method2760z00_2162;
{ /* ./Reduce/cse.scm 234 */
BgL_objectz00_bglt BgL_objz00_2163;
BgL_objz00_2163 = 
(BgL_objectz00_bglt)(BgL_arg3491z00_1355); 
{ /* ./Reduce/cse.scm 234 */
long BgL_objzd2classzd2numz00_2164;
BgL_objzd2classzd2numz00_2164 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2163); 
{ /* ./Reduce/cse.scm 234 */
obj_t BgL_arg2017z00_2165;
{ /* ./Reduce/cse.scm 234 */
int BgL_auxz00_2979;
BgL_auxz00_2979 = 
(int)(((long)1)); 
BgL_arg2017z00_2165 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_2979); } 
{ /* ./Reduce/cse.scm 234 */
int BgL_offsetz00_2168;
BgL_offsetz00_2168 = 
(int)(BgL_objzd2classzd2numz00_2164); 
{ /* ./Reduce/cse.scm 234 */
long BgL_offsetz00_2169;
{ /* ./Reduce/cse.scm 234 */
long BgL_auxz00_2983;
BgL_auxz00_2983 = 
(long)(BgL_offsetz00_2168); 
BgL_offsetz00_2169 = 
(BgL_auxz00_2983-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 234 */
long BgL_modz00_2170;
{ /* ./Reduce/cse.scm 234 */
int BgL_arg2028z00_2171;
BgL_arg2028z00_2171 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 234 */
long BgL_n2z00_2179;
BgL_n2z00_2179 = 
(long)(BgL_arg2028z00_2171); 
BgL_modz00_2170 = 
(BgL_offsetz00_2169/BgL_n2z00_2179); } } 
{ /* ./Reduce/cse.scm 234 */
long BgL_restz00_2172;
{ /* ./Reduce/cse.scm 234 */
int BgL_arg2024z00_2173;
BgL_arg2024z00_2173 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 234 */
long BgL_n2z00_2182;
BgL_n2z00_2182 = 
(long)(BgL_arg2024z00_2173); 
BgL_restz00_2172 = 
(BgL_offsetz00_2169%BgL_n2z00_2182); } } 
{ /* ./Reduce/cse.scm 234 */

{ /* ./Reduce/cse.scm 234 */
obj_t BgL_bucketz00_2174;
{ /* ./Reduce/cse.scm 234 */
int BgL_kz00_2184;
BgL_kz00_2184 = 
(int)(BgL_modz00_2170); 
BgL_bucketz00_2174 = 
VECTOR_REF(BgL_arg2017z00_2165,BgL_kz00_2184); } 
{ /* ./Reduce/cse.scm 234 */
int BgL_kz00_2186;
BgL_kz00_2186 = 
(int)(BgL_restz00_2172); 
BgL_method2760z00_2162 = 
VECTOR_REF(BgL_bucketz00_2174,BgL_kz00_2186); } } } } } } } } } } 
BgL_resetz72z72_1350 = 
PROCEDURE_ENTRY(BgL_method2760z00_2162)(BgL_method2760z00_2162, 
(obj_t)(BgL_arg3491z00_1355), BgL_stackz72z72_1349, BEOA); } } 
{ /* ./Reduce/cse.scm 235 */
obj_t BgL_nvaluez00_1351;
{ /* ./Reduce/cse.scm 235 */
int BgL_nz00_2187;
BgL_nz00_2187 = 
(int)(((long)1)); 
BgL_nvaluez00_1351 = 
BGL_MVALUES_VAL(BgL_nz00_2187); } 
{ /* ./Reduce/cse.scm 235 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2555z00_2188;BgL_nodez00_bglt BgL_val2554z00_2189;
BgL_obj2555z00_2188 = BgL_nodez00_1342; 
BgL_val2554z00_2189 = 
(BgL_nodez00_bglt)(BgL_nvaluez00_1351); 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2555z00_2188))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2554z00_2189), BUNSPEC); } 
{ /* ./Reduce/cse.scm 236 */
obj_t BgL_val0_2725z00_1352;
if(
CBOOL(BgL_resetz00_1347))
{ /* ./Reduce/cse.scm 236 */
BgL_val0_2725z00_1352 = BgL_resetz00_1347; }  else 
{ /* ./Reduce/cse.scm 236 */
BgL_val0_2725z00_1352 = BgL_resetz72z72_1350; } 
{ /* ./Reduce/cse.scm 236 */
int BgL_nz00_2190;
BgL_nz00_2190 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2190); } 
{ /* ./Reduce/cse.scm 236 */
int BgL_nz00_2191;obj_t BgL_oz00_2192;
BgL_nz00_2191 = 
(int)(((long)1)); 
BgL_oz00_2192 = 
(obj_t)(BgL_nodez00_1342); 
BGL_MVALUES_VAL_SET(BgL_nz00_2191, BgL_oz00_2192); } 
return BgL_val0_2725z00_1352;} } } } } } } } 
}



/* node-cse!-set-ex-it2790 */
obj_t BGl_nodezd2csez12zd2setzd2exzd2it2790z12zzreduce_csez00(obj_t BgL_envz00_2456, obj_t BgL_nodez00_2457, obj_t BgL_stackz00_2458)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 217 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1329;obj_t BgL_stackz00_1330;
BgL_nodez00_1329 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2457); 
BgL_stackz00_1330 = BgL_stackz00_2458; 
{ /* ./Reduce/cse.scm 219 */
obj_t BgL_resetz00_1334;
{ /* ./Reduce/cse.scm 220 */
BgL_nodez00_bglt BgL_arg3475z00_1338;
BgL_arg3475z00_1338 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1329))->BgL_bodyz00); 
{ /* ./Reduce/cse.scm 220 */
obj_t BgL_method2760z00_2097;
{ /* ./Reduce/cse.scm 220 */
BgL_objectz00_bglt BgL_objz00_2098;
BgL_objz00_2098 = 
(BgL_objectz00_bglt)(BgL_arg3475z00_1338); 
{ /* ./Reduce/cse.scm 220 */
long BgL_objzd2classzd2numz00_2099;
BgL_objzd2classzd2numz00_2099 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2098); 
{ /* ./Reduce/cse.scm 220 */
obj_t BgL_arg2017z00_2100;
{ /* ./Reduce/cse.scm 220 */
int BgL_auxz00_3014;
BgL_auxz00_3014 = 
(int)(((long)1)); 
BgL_arg2017z00_2100 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3014); } 
{ /* ./Reduce/cse.scm 220 */
int BgL_offsetz00_2103;
BgL_offsetz00_2103 = 
(int)(BgL_objzd2classzd2numz00_2099); 
{ /* ./Reduce/cse.scm 220 */
long BgL_offsetz00_2104;
{ /* ./Reduce/cse.scm 220 */
long BgL_auxz00_3018;
BgL_auxz00_3018 = 
(long)(BgL_offsetz00_2103); 
BgL_offsetz00_2104 = 
(BgL_auxz00_3018-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 220 */
long BgL_modz00_2105;
{ /* ./Reduce/cse.scm 220 */
int BgL_arg2028z00_2106;
BgL_arg2028z00_2106 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 220 */
long BgL_n2z00_2114;
BgL_n2z00_2114 = 
(long)(BgL_arg2028z00_2106); 
BgL_modz00_2105 = 
(BgL_offsetz00_2104/BgL_n2z00_2114); } } 
{ /* ./Reduce/cse.scm 220 */
long BgL_restz00_2107;
{ /* ./Reduce/cse.scm 220 */
int BgL_arg2024z00_2108;
BgL_arg2024z00_2108 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 220 */
long BgL_n2z00_2117;
BgL_n2z00_2117 = 
(long)(BgL_arg2024z00_2108); 
BgL_restz00_2107 = 
(BgL_offsetz00_2104%BgL_n2z00_2117); } } 
{ /* ./Reduce/cse.scm 220 */

{ /* ./Reduce/cse.scm 220 */
obj_t BgL_bucketz00_2109;
{ /* ./Reduce/cse.scm 220 */
int BgL_kz00_2119;
BgL_kz00_2119 = 
(int)(BgL_modz00_2105); 
BgL_bucketz00_2109 = 
VECTOR_REF(BgL_arg2017z00_2100,BgL_kz00_2119); } 
{ /* ./Reduce/cse.scm 220 */
int BgL_kz00_2121;
BgL_kz00_2121 = 
(int)(BgL_restz00_2107); 
BgL_method2760z00_2097 = 
VECTOR_REF(BgL_bucketz00_2109,BgL_kz00_2121); } } } } } } } } } } 
BgL_resetz00_1334 = 
PROCEDURE_ENTRY(BgL_method2760z00_2097)(BgL_method2760z00_2097, 
(obj_t)(BgL_arg3475z00_1338), BNIL, BEOA); } } 
{ /* ./Reduce/cse.scm 221 */
obj_t BgL_nbodyz00_1335;
{ /* ./Reduce/cse.scm 221 */
int BgL_nz00_2122;
BgL_nz00_2122 = 
(int)(((long)1)); 
BgL_nbodyz00_1335 = 
BGL_MVALUES_VAL(BgL_nz00_2122); } 
{ /* ./Reduce/cse.scm 221 */
BgL_setzd2exzd2itz00_bglt BgL_obj2529z00_2123;BgL_nodez00_bglt BgL_val2528z00_2124;
BgL_obj2529z00_2123 = BgL_nodez00_1329; 
BgL_val2528z00_2124 = 
(BgL_nodez00_bglt)(BgL_nbodyz00_1335); 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2529z00_2123))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2528z00_2124), BUNSPEC); } 
{ /* ./Reduce/cse.scm 222 */
int BgL_nz00_2125;
BgL_nz00_2125 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2125); } 
{ /* ./Reduce/cse.scm 222 */
int BgL_nz00_2126;obj_t BgL_oz00_2127;
BgL_nz00_2126 = 
(int)(((long)1)); 
BgL_oz00_2127 = 
(obj_t)(BgL_nodez00_1329); 
BGL_MVALUES_VAL_SET(BgL_nz00_2126, BgL_oz00_2127); } 
return BgL_resetz00_1334;} } } } 
}



/* node-cse!-let-fun2788 */
obj_t BGl_nodezd2csez12zd2letzd2fun2788zc0zzreduce_csez00(obj_t BgL_envz00_2459, obj_t BgL_nodez00_2460, obj_t BgL_stackz00_2461)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 198 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1303;obj_t BgL_stackz00_1304;
BgL_nodez00_1303 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2460); 
BgL_stackz00_1304 = BgL_stackz00_2461; 
{ /* ./Reduce/cse.scm 200 */
obj_t BgL_resetz00_1308;
{ /* ./Reduce/cse.scm 201 */
BgL_nodez00_bglt BgL_arg3461z00_1326;
BgL_arg3461z00_1326 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1303))->BgL_bodyz00); 
{ /* ./Reduce/cse.scm 201 */
obj_t BgL_method2760z00_2027;
{ /* ./Reduce/cse.scm 201 */
BgL_objectz00_bglt BgL_objz00_2028;
BgL_objz00_2028 = 
(BgL_objectz00_bglt)(BgL_arg3461z00_1326); 
{ /* ./Reduce/cse.scm 201 */
long BgL_objzd2classzd2numz00_2029;
BgL_objzd2classzd2numz00_2029 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2028); 
{ /* ./Reduce/cse.scm 201 */
obj_t BgL_arg2017z00_2030;
{ /* ./Reduce/cse.scm 201 */
int BgL_auxz00_3047;
BgL_auxz00_3047 = 
(int)(((long)1)); 
BgL_arg2017z00_2030 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3047); } 
{ /* ./Reduce/cse.scm 201 */
int BgL_offsetz00_2033;
BgL_offsetz00_2033 = 
(int)(BgL_objzd2classzd2numz00_2029); 
{ /* ./Reduce/cse.scm 201 */
long BgL_offsetz00_2034;
{ /* ./Reduce/cse.scm 201 */
long BgL_auxz00_3051;
BgL_auxz00_3051 = 
(long)(BgL_offsetz00_2033); 
BgL_offsetz00_2034 = 
(BgL_auxz00_3051-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 201 */
long BgL_modz00_2035;
{ /* ./Reduce/cse.scm 201 */
int BgL_arg2028z00_2036;
BgL_arg2028z00_2036 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 201 */
long BgL_n2z00_2044;
BgL_n2z00_2044 = 
(long)(BgL_arg2028z00_2036); 
BgL_modz00_2035 = 
(BgL_offsetz00_2034/BgL_n2z00_2044); } } 
{ /* ./Reduce/cse.scm 201 */
long BgL_restz00_2037;
{ /* ./Reduce/cse.scm 201 */
int BgL_arg2024z00_2038;
BgL_arg2024z00_2038 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 201 */
long BgL_n2z00_2047;
BgL_n2z00_2047 = 
(long)(BgL_arg2024z00_2038); 
BgL_restz00_2037 = 
(BgL_offsetz00_2034%BgL_n2z00_2047); } } 
{ /* ./Reduce/cse.scm 201 */

{ /* ./Reduce/cse.scm 201 */
obj_t BgL_bucketz00_2039;
{ /* ./Reduce/cse.scm 201 */
int BgL_kz00_2049;
BgL_kz00_2049 = 
(int)(BgL_modz00_2035); 
BgL_bucketz00_2039 = 
VECTOR_REF(BgL_arg2017z00_2030,BgL_kz00_2049); } 
{ /* ./Reduce/cse.scm 201 */
int BgL_kz00_2051;
BgL_kz00_2051 = 
(int)(BgL_restz00_2037); 
BgL_method2760z00_2027 = 
VECTOR_REF(BgL_bucketz00_2039,BgL_kz00_2051); } } } } } } } } } } 
BgL_resetz00_1308 = 
PROCEDURE_ENTRY(BgL_method2760z00_2027)(BgL_method2760z00_2027, 
(obj_t)(BgL_arg3461z00_1326), BgL_stackz00_1304, BEOA); } } 
{ /* ./Reduce/cse.scm 202 */
obj_t BgL_nbodyz00_1309;
{ /* ./Reduce/cse.scm 202 */
int BgL_nz00_2052;
BgL_nz00_2052 = 
(int)(((long)1)); 
BgL_nbodyz00_1309 = 
BGL_MVALUES_VAL(BgL_nz00_2052); } 
{ /* ./Reduce/cse.scm 202 */
BgL_letzd2funzd2_bglt BgL_obj2453z00_2053;BgL_nodez00_bglt BgL_val2452z00_2054;
BgL_obj2453z00_2053 = BgL_nodez00_1303; 
BgL_val2452z00_2054 = 
(BgL_nodez00_bglt)(BgL_nbodyz00_1309); 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2453z00_2053))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2452z00_2054), BUNSPEC); } 
{ 
obj_t BgL_localsz00_1310;obj_t BgL_resetz00_1311;
{ /* ./Reduce/cse.scm 203 */
obj_t BgL_arg3437z00_1313;
BgL_arg3437z00_1313 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1303))->BgL_localsz00); 
BgL_localsz00_1310 = BgL_arg3437z00_1313; 
BgL_resetz00_1311 = BgL_resetz00_1308; 
BgL_loopz00_1312:
{ /* ./Reduce/cse.scm 205 */
bool_t BgL_test3440z00_1314;
BgL_test3440z00_1314 = 
NULLP(BgL_localsz00_1310); 
if(BgL_test3440z00_1314)
{ /* ./Reduce/cse.scm 205 */
{ /* ./Reduce/cse.scm 206 */
int BgL_nz00_2057;
BgL_nz00_2057 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_2057); } 
{ /* ./Reduce/cse.scm 206 */
int BgL_nz00_2058;obj_t BgL_oz00_2059;
BgL_nz00_2058 = 
(int)(((long)1)); 
BgL_oz00_2059 = 
(obj_t)(BgL_nodez00_1303); 
BGL_MVALUES_VAL_SET(BgL_nz00_2058, BgL_oz00_2059); } 
return BgL_resetz00_1311;}  else 
{ /* ./Reduce/cse.scm 207 */
obj_t BgL_localz00_1317;
BgL_localz00_1317 = 
CAR(BgL_localsz00_1310); 
{ /* ./Reduce/cse.scm 207 */
BgL_valuez00_bglt BgL_sfunz00_1318;
{ /* ./Reduce/cse.scm 208 */
BgL_variablez00_bglt BgL_obj1100z00_2061;
BgL_obj1100z00_2061 = 
(BgL_variablez00_bglt)(BgL_localz00_1317); 
BgL_sfunz00_1318 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2061))->BgL_valuez00); } 
{ /* ./Reduce/cse.scm 208 */

{ /* ./Reduce/cse.scm 209 */
obj_t BgL_resetz72z72_1319;
{ /* ./Reduce/cse.scm 210 */
obj_t BgL_arg3452z00_1324;
{ /* ./Reduce/cse.scm 210 */
BgL_sfunz00_bglt BgL_obj1370z00_2062;
BgL_obj1370z00_2062 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_1318); 
BgL_arg3452z00_1324 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2062))->BgL_bodyz00); } 
{ /* ./Reduce/cse.scm 210 */
BgL_nodez00_bglt BgL_nodez00_2063;
BgL_nodez00_2063 = 
(BgL_nodez00_bglt)(BgL_arg3452z00_1324); 
{ /* ./Reduce/cse.scm 210 */
obj_t BgL_method2760z00_2065;
{ /* ./Reduce/cse.scm 210 */
BgL_objectz00_bglt BgL_objz00_2066;
BgL_objz00_2066 = 
(BgL_objectz00_bglt)(BgL_nodez00_2063); 
{ /* ./Reduce/cse.scm 210 */
long BgL_objzd2classzd2numz00_2067;
BgL_objzd2classzd2numz00_2067 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2066); 
{ /* ./Reduce/cse.scm 210 */
obj_t BgL_arg2017z00_2068;
{ /* ./Reduce/cse.scm 210 */
int BgL_auxz00_3087;
BgL_auxz00_3087 = 
(int)(((long)1)); 
BgL_arg2017z00_2068 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3087); } 
{ /* ./Reduce/cse.scm 210 */
int BgL_offsetz00_2071;
BgL_offsetz00_2071 = 
(int)(BgL_objzd2classzd2numz00_2067); 
{ /* ./Reduce/cse.scm 210 */
long BgL_offsetz00_2072;
{ /* ./Reduce/cse.scm 210 */
long BgL_auxz00_3091;
BgL_auxz00_3091 = 
(long)(BgL_offsetz00_2071); 
BgL_offsetz00_2072 = 
(BgL_auxz00_3091-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 210 */
long BgL_modz00_2073;
{ /* ./Reduce/cse.scm 210 */
int BgL_arg2028z00_2074;
BgL_arg2028z00_2074 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 210 */
long BgL_n2z00_2082;
BgL_n2z00_2082 = 
(long)(BgL_arg2028z00_2074); 
BgL_modz00_2073 = 
(BgL_offsetz00_2072/BgL_n2z00_2082); } } 
{ /* ./Reduce/cse.scm 210 */
long BgL_restz00_2075;
{ /* ./Reduce/cse.scm 210 */
int BgL_arg2024z00_2076;
BgL_arg2024z00_2076 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 210 */
long BgL_n2z00_2085;
BgL_n2z00_2085 = 
(long)(BgL_arg2024z00_2076); 
BgL_restz00_2075 = 
(BgL_offsetz00_2072%BgL_n2z00_2085); } } 
{ /* ./Reduce/cse.scm 210 */

{ /* ./Reduce/cse.scm 210 */
obj_t BgL_bucketz00_2077;
{ /* ./Reduce/cse.scm 210 */
int BgL_kz00_2087;
BgL_kz00_2087 = 
(int)(BgL_modz00_2073); 
BgL_bucketz00_2077 = 
VECTOR_REF(BgL_arg2017z00_2068,BgL_kz00_2087); } 
{ /* ./Reduce/cse.scm 210 */
int BgL_kz00_2089;
BgL_kz00_2089 = 
(int)(BgL_restz00_2075); 
BgL_method2760z00_2065 = 
VECTOR_REF(BgL_bucketz00_2077,BgL_kz00_2089); } } } } } } } } } } 
BgL_resetz72z72_1319 = 
PROCEDURE_ENTRY(BgL_method2760z00_2065)(BgL_method2760z00_2065, 
(obj_t)(BgL_nodez00_2063), BNIL, BEOA); } } } 
{ /* ./Reduce/cse.scm 211 */
obj_t BgL_nbodyz00_1320;
{ /* ./Reduce/cse.scm 211 */
int BgL_nz00_2090;
BgL_nz00_2090 = 
(int)(((long)1)); 
BgL_nbodyz00_1320 = 
BGL_MVALUES_VAL(BgL_nz00_2090); } 
{ /* ./Reduce/cse.scm 211 */
BgL_sfunz00_bglt BgL_obj1373z00_2091;obj_t BgL_val1371z00_2092;
BgL_obj1373z00_2091 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_1318); 
BgL_val1371z00_2092 = BgL_nbodyz00_1320; 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_2091))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_2092), BUNSPEC); } 
{ /* ./Reduce/cse.scm 212 */
obj_t BgL_arg3446z00_1321;obj_t BgL_arg3447z00_1322;
BgL_arg3446z00_1321 = 
CDR(BgL_localsz00_1310); 
if(
CBOOL(BgL_resetz00_1311))
{ /* ./Reduce/cse.scm 212 */
BgL_arg3447z00_1322 = BgL_resetz00_1311; }  else 
{ /* ./Reduce/cse.scm 212 */
BgL_arg3447z00_1322 = BgL_resetz72z72_1319; } 
{ 
obj_t BgL_resetz00_3115;obj_t BgL_localsz00_3114;
BgL_localsz00_3114 = BgL_arg3446z00_1321; 
BgL_resetz00_3115 = BgL_arg3447z00_1322; 
BgL_resetz00_1311 = BgL_resetz00_3115; 
BgL_localsz00_1310 = BgL_localsz00_3114; 
goto BgL_loopz00_1312;} } } } } } } } } } } } } } 
}



/* node-cse!-select2786 */
obj_t BGl_nodezd2csez12zd2select2786z12zzreduce_csez00(obj_t BgL_envz00_2462, obj_t BgL_nodez00_2463, obj_t BgL_stackz00_2464)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 179 */
{ 
BgL_selectz00_bglt BgL_nodez00_1278;obj_t BgL_stackz00_1279;
BgL_nodez00_1278 = 
(BgL_selectz00_bglt)(BgL_nodez00_2463); 
BgL_stackz00_1279 = BgL_stackz00_2464; 
{ /* ./Reduce/cse.scm 181 */
obj_t BgL_resetz00_1283;
{ /* ./Reduce/cse.scm 182 */
BgL_nodez00_bglt BgL_arg3426z00_1300;
BgL_arg3426z00_1300 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1278))->BgL_testz00); 
{ /* ./Reduce/cse.scm 182 */
obj_t BgL_method2760z00_1958;
{ /* ./Reduce/cse.scm 182 */
BgL_objectz00_bglt BgL_objz00_1959;
BgL_objz00_1959 = 
(BgL_objectz00_bglt)(BgL_arg3426z00_1300); 
{ /* ./Reduce/cse.scm 182 */
long BgL_objzd2classzd2numz00_1960;
BgL_objzd2classzd2numz00_1960 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1959); 
{ /* ./Reduce/cse.scm 182 */
obj_t BgL_arg2017z00_1961;
{ /* ./Reduce/cse.scm 182 */
int BgL_auxz00_3120;
BgL_auxz00_3120 = 
(int)(((long)1)); 
BgL_arg2017z00_1961 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3120); } 
{ /* ./Reduce/cse.scm 182 */
int BgL_offsetz00_1964;
BgL_offsetz00_1964 = 
(int)(BgL_objzd2classzd2numz00_1960); 
{ /* ./Reduce/cse.scm 182 */
long BgL_offsetz00_1965;
{ /* ./Reduce/cse.scm 182 */
long BgL_auxz00_3124;
BgL_auxz00_3124 = 
(long)(BgL_offsetz00_1964); 
BgL_offsetz00_1965 = 
(BgL_auxz00_3124-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 182 */
long BgL_modz00_1966;
{ /* ./Reduce/cse.scm 182 */
int BgL_arg2028z00_1967;
BgL_arg2028z00_1967 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 182 */
long BgL_n2z00_1975;
BgL_n2z00_1975 = 
(long)(BgL_arg2028z00_1967); 
BgL_modz00_1966 = 
(BgL_offsetz00_1965/BgL_n2z00_1975); } } 
{ /* ./Reduce/cse.scm 182 */
long BgL_restz00_1968;
{ /* ./Reduce/cse.scm 182 */
int BgL_arg2024z00_1969;
BgL_arg2024z00_1969 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 182 */
long BgL_n2z00_1978;
BgL_n2z00_1978 = 
(long)(BgL_arg2024z00_1969); 
BgL_restz00_1968 = 
(BgL_offsetz00_1965%BgL_n2z00_1978); } } 
{ /* ./Reduce/cse.scm 182 */

{ /* ./Reduce/cse.scm 182 */
obj_t BgL_bucketz00_1970;
{ /* ./Reduce/cse.scm 182 */
int BgL_kz00_1980;
BgL_kz00_1980 = 
(int)(BgL_modz00_1966); 
BgL_bucketz00_1970 = 
VECTOR_REF(BgL_arg2017z00_1961,BgL_kz00_1980); } 
{ /* ./Reduce/cse.scm 182 */
int BgL_kz00_1982;
BgL_kz00_1982 = 
(int)(BgL_restz00_1968); 
BgL_method2760z00_1958 = 
VECTOR_REF(BgL_bucketz00_1970,BgL_kz00_1982); } } } } } } } } } } 
BgL_resetz00_1283 = 
PROCEDURE_ENTRY(BgL_method2760z00_1958)(BgL_method2760z00_1958, 
(obj_t)(BgL_arg3426z00_1300), BgL_stackz00_1279, BEOA); } } 
{ /* ./Reduce/cse.scm 183 */
obj_t BgL_ntestz00_1284;
{ /* ./Reduce/cse.scm 183 */
int BgL_nz00_1983;
BgL_nz00_1983 = 
(int)(((long)1)); 
BgL_ntestz00_1284 = 
BGL_MVALUES_VAL(BgL_nz00_1983); } 
{ /* ./Reduce/cse.scm 183 */
BgL_selectz00_bglt BgL_obj2410z00_1984;BgL_nodez00_bglt BgL_val2409z00_1985;
BgL_obj2410z00_1984 = BgL_nodez00_1278; 
BgL_val2409z00_1985 = 
(BgL_nodez00_bglt)(BgL_ntestz00_1284); 
((((BgL_selectz00_bglt)CREF(BgL_obj2410z00_1984))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2409z00_1985), BUNSPEC); } 
{ 
obj_t BgL_clausesz00_1286;obj_t BgL_resetz00_1287;
{ /* ./Reduce/cse.scm 185 */
obj_t BgL_arg3405z00_1289;
BgL_arg3405z00_1289 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1278))->BgL_clausesz00); 
BgL_clausesz00_1286 = BgL_arg3405z00_1289; 
BgL_resetz00_1287 = BgL_resetz00_1283; 
BgL_loopz00_1288:
{ /* ./Reduce/cse.scm 187 */
bool_t BgL_test3408z00_1290;
BgL_test3408z00_1290 = 
NULLP(BgL_clausesz00_1286); 
if(BgL_test3408z00_1290)
{ /* ./Reduce/cse.scm 187 */
{ /* ./Reduce/cse.scm 188 */
int BgL_nz00_1988;
BgL_nz00_1988 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1988); } 
{ /* ./Reduce/cse.scm 188 */
int BgL_nz00_1989;obj_t BgL_oz00_1990;
BgL_nz00_1989 = 
(int)(((long)1)); 
BgL_oz00_1990 = 
(obj_t)(BgL_nodez00_1278); 
BGL_MVALUES_VAL_SET(BgL_nz00_1989, BgL_oz00_1990); } 
return BgL_resetz00_1287;}  else 
{ /* ./Reduce/cse.scm 189 */
obj_t BgL_clausez00_1293;
BgL_clausez00_1293 = 
CAR(BgL_clausesz00_1286); 
{ /* ./Reduce/cse.scm 190 */
obj_t BgL_resetz72z72_1294;
{ /* ./Reduce/cse.scm 191 */
obj_t BgL_arg3419z00_1299;
BgL_arg3419z00_1299 = 
CDR(BgL_clausez00_1293); 
{ /* ./Reduce/cse.scm 191 */
BgL_nodez00_bglt BgL_nodez00_1993;
BgL_nodez00_1993 = 
(BgL_nodez00_bglt)(BgL_arg3419z00_1299); 
{ /* ./Reduce/cse.scm 191 */
obj_t BgL_method2760z00_1995;
{ /* ./Reduce/cse.scm 191 */
BgL_objectz00_bglt BgL_objz00_1996;
BgL_objz00_1996 = 
(BgL_objectz00_bglt)(BgL_nodez00_1993); 
{ /* ./Reduce/cse.scm 191 */
long BgL_objzd2classzd2numz00_1997;
BgL_objzd2classzd2numz00_1997 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1996); 
{ /* ./Reduce/cse.scm 191 */
obj_t BgL_arg2017z00_1998;
{ /* ./Reduce/cse.scm 191 */
int BgL_auxz00_3157;
BgL_auxz00_3157 = 
(int)(((long)1)); 
BgL_arg2017z00_1998 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3157); } 
{ /* ./Reduce/cse.scm 191 */
int BgL_offsetz00_2001;
BgL_offsetz00_2001 = 
(int)(BgL_objzd2classzd2numz00_1997); 
{ /* ./Reduce/cse.scm 191 */
long BgL_offsetz00_2002;
{ /* ./Reduce/cse.scm 191 */
long BgL_auxz00_3161;
BgL_auxz00_3161 = 
(long)(BgL_offsetz00_2001); 
BgL_offsetz00_2002 = 
(BgL_auxz00_3161-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 191 */
long BgL_modz00_2003;
{ /* ./Reduce/cse.scm 191 */
int BgL_arg2028z00_2004;
BgL_arg2028z00_2004 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 191 */
long BgL_n2z00_2012;
BgL_n2z00_2012 = 
(long)(BgL_arg2028z00_2004); 
BgL_modz00_2003 = 
(BgL_offsetz00_2002/BgL_n2z00_2012); } } 
{ /* ./Reduce/cse.scm 191 */
long BgL_restz00_2005;
{ /* ./Reduce/cse.scm 191 */
int BgL_arg2024z00_2006;
BgL_arg2024z00_2006 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 191 */
long BgL_n2z00_2015;
BgL_n2z00_2015 = 
(long)(BgL_arg2024z00_2006); 
BgL_restz00_2005 = 
(BgL_offsetz00_2002%BgL_n2z00_2015); } } 
{ /* ./Reduce/cse.scm 191 */

{ /* ./Reduce/cse.scm 191 */
obj_t BgL_bucketz00_2007;
{ /* ./Reduce/cse.scm 191 */
int BgL_kz00_2017;
BgL_kz00_2017 = 
(int)(BgL_modz00_2003); 
BgL_bucketz00_2007 = 
VECTOR_REF(BgL_arg2017z00_1998,BgL_kz00_2017); } 
{ /* ./Reduce/cse.scm 191 */
int BgL_kz00_2019;
BgL_kz00_2019 = 
(int)(BgL_restz00_2005); 
BgL_method2760z00_1995 = 
VECTOR_REF(BgL_bucketz00_2007,BgL_kz00_2019); } } } } } } } } } } 
BgL_resetz72z72_1294 = 
PROCEDURE_ENTRY(BgL_method2760z00_1995)(BgL_method2760z00_1995, 
(obj_t)(BgL_nodez00_1993), BgL_stackz00_1279, BEOA); } } } 
{ /* ./Reduce/cse.scm 192 */
obj_t BgL_nclausez00_1295;
{ /* ./Reduce/cse.scm 192 */
int BgL_nz00_2020;
BgL_nz00_2020 = 
(int)(((long)1)); 
BgL_nclausez00_1295 = 
BGL_MVALUES_VAL(BgL_nz00_2020); } 
SET_CDR(BgL_clausez00_1293, BgL_nclausez00_1295); 
{ /* ./Reduce/cse.scm 193 */
obj_t BgL_arg3413z00_1296;obj_t BgL_arg3414z00_1297;
BgL_arg3413z00_1296 = 
CDR(BgL_clausesz00_1286); 
if(
CBOOL(BgL_resetz00_1287))
{ /* ./Reduce/cse.scm 193 */
BgL_arg3414z00_1297 = BgL_resetz00_1287; }  else 
{ /* ./Reduce/cse.scm 193 */
BgL_arg3414z00_1297 = BgL_resetz72z72_1294; } 
{ 
obj_t BgL_resetz00_3184;obj_t BgL_clausesz00_3183;
BgL_clausesz00_3183 = BgL_arg3413z00_1296; 
BgL_resetz00_3184 = BgL_arg3414z00_1297; 
BgL_resetz00_1287 = BgL_resetz00_3184; 
BgL_clausesz00_1286 = BgL_clausesz00_3183; 
goto BgL_loopz00_1288;} } } } } } } } } } } } 
}



/* node-cse!-fail2784 */
obj_t BGl_nodezd2csez12zd2fail2784z12zzreduce_csez00(obj_t BgL_envz00_2465, obj_t BgL_nodez00_2466, obj_t BgL_stackz00_2467)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 161 */
{ 
BgL_failz00_bglt BgL_nodez00_1256;obj_t BgL_stackz00_1257;
BgL_nodez00_1256 = 
(BgL_failz00_bglt)(BgL_nodez00_2466); 
BgL_stackz00_1257 = BgL_stackz00_2467; 
{ /* ./Reduce/cse.scm 163 */
obj_t BgL_resetz00_1261;
{ /* ./Reduce/cse.scm 164 */
BgL_nodez00_bglt BgL_arg3394z00_1275;
BgL_arg3394z00_1275 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1256))->BgL_procz00); 
{ /* ./Reduce/cse.scm 164 */
obj_t BgL_method2760z00_1862;
{ /* ./Reduce/cse.scm 164 */
BgL_objectz00_bglt BgL_objz00_1863;
BgL_objz00_1863 = 
(BgL_objectz00_bglt)(BgL_arg3394z00_1275); 
{ /* ./Reduce/cse.scm 164 */
long BgL_objzd2classzd2numz00_1864;
BgL_objzd2classzd2numz00_1864 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1863); 
{ /* ./Reduce/cse.scm 164 */
obj_t BgL_arg2017z00_1865;
{ /* ./Reduce/cse.scm 164 */
int BgL_auxz00_3189;
BgL_auxz00_3189 = 
(int)(((long)1)); 
BgL_arg2017z00_1865 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3189); } 
{ /* ./Reduce/cse.scm 164 */
int BgL_offsetz00_1868;
BgL_offsetz00_1868 = 
(int)(BgL_objzd2classzd2numz00_1864); 
{ /* ./Reduce/cse.scm 164 */
long BgL_offsetz00_1869;
{ /* ./Reduce/cse.scm 164 */
long BgL_auxz00_3193;
BgL_auxz00_3193 = 
(long)(BgL_offsetz00_1868); 
BgL_offsetz00_1869 = 
(BgL_auxz00_3193-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 164 */
long BgL_modz00_1870;
{ /* ./Reduce/cse.scm 164 */
int BgL_arg2028z00_1871;
BgL_arg2028z00_1871 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 164 */
long BgL_n2z00_1879;
BgL_n2z00_1879 = 
(long)(BgL_arg2028z00_1871); 
BgL_modz00_1870 = 
(BgL_offsetz00_1869/BgL_n2z00_1879); } } 
{ /* ./Reduce/cse.scm 164 */
long BgL_restz00_1872;
{ /* ./Reduce/cse.scm 164 */
int BgL_arg2024z00_1873;
BgL_arg2024z00_1873 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 164 */
long BgL_n2z00_1882;
BgL_n2z00_1882 = 
(long)(BgL_arg2024z00_1873); 
BgL_restz00_1872 = 
(BgL_offsetz00_1869%BgL_n2z00_1882); } } 
{ /* ./Reduce/cse.scm 164 */

{ /* ./Reduce/cse.scm 164 */
obj_t BgL_bucketz00_1874;
{ /* ./Reduce/cse.scm 164 */
int BgL_kz00_1884;
BgL_kz00_1884 = 
(int)(BgL_modz00_1870); 
BgL_bucketz00_1874 = 
VECTOR_REF(BgL_arg2017z00_1865,BgL_kz00_1884); } 
{ /* ./Reduce/cse.scm 164 */
int BgL_kz00_1886;
BgL_kz00_1886 = 
(int)(BgL_restz00_1872); 
BgL_method2760z00_1862 = 
VECTOR_REF(BgL_bucketz00_1874,BgL_kz00_1886); } } } } } } } } } } 
BgL_resetz00_1261 = 
PROCEDURE_ENTRY(BgL_method2760z00_1862)(BgL_method2760z00_1862, 
(obj_t)(BgL_arg3394z00_1275), BgL_stackz00_1257, BEOA); } } 
{ /* ./Reduce/cse.scm 165 */
obj_t BgL_nprocz00_1262;
{ /* ./Reduce/cse.scm 165 */
int BgL_nz00_1887;
BgL_nz00_1887 = 
(int)(((long)1)); 
BgL_nprocz00_1262 = 
BGL_MVALUES_VAL(BgL_nz00_1887); } 
{ /* ./Reduce/cse.scm 165 */
BgL_failz00_bglt BgL_obj2372z00_1888;BgL_nodez00_bglt BgL_val2371z00_1889;
BgL_obj2372z00_1888 = BgL_nodez00_1256; 
BgL_val2371z00_1889 = 
(BgL_nodez00_bglt)(BgL_nprocz00_1262); 
((((BgL_failz00_bglt)CREF(BgL_obj2372z00_1888))->BgL_procz00) = ((BgL_nodez00_bglt)BgL_val2371z00_1889), BUNSPEC); } 
{ /* ./Reduce/cse.scm 166 */
obj_t BgL_stackz72z72_1263;
if(
CBOOL(BgL_resetz00_1261))
{ /* ./Reduce/cse.scm 166 */
BgL_stackz72z72_1263 = BNIL; }  else 
{ /* ./Reduce/cse.scm 166 */
BgL_stackz72z72_1263 = BgL_stackz00_1257; } 
{ /* ./Reduce/cse.scm 167 */
obj_t BgL_resetz72z72_1264;
{ /* ./Reduce/cse.scm 168 */
BgL_nodez00_bglt BgL_arg3389z00_1274;
BgL_arg3389z00_1274 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1256))->BgL_msgz00); 
{ /* ./Reduce/cse.scm 168 */
obj_t BgL_method2760z00_1893;
{ /* ./Reduce/cse.scm 168 */
BgL_objectz00_bglt BgL_objz00_1894;
BgL_objz00_1894 = 
(BgL_objectz00_bglt)(BgL_arg3389z00_1274); 
{ /* ./Reduce/cse.scm 168 */
long BgL_objzd2classzd2numz00_1895;
BgL_objzd2classzd2numz00_1895 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1894); 
{ /* ./Reduce/cse.scm 168 */
obj_t BgL_arg2017z00_1896;
{ /* ./Reduce/cse.scm 168 */
int BgL_auxz00_3218;
BgL_auxz00_3218 = 
(int)(((long)1)); 
BgL_arg2017z00_1896 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3218); } 
{ /* ./Reduce/cse.scm 168 */
int BgL_offsetz00_1899;
BgL_offsetz00_1899 = 
(int)(BgL_objzd2classzd2numz00_1895); 
{ /* ./Reduce/cse.scm 168 */
long BgL_offsetz00_1900;
{ /* ./Reduce/cse.scm 168 */
long BgL_auxz00_3222;
BgL_auxz00_3222 = 
(long)(BgL_offsetz00_1899); 
BgL_offsetz00_1900 = 
(BgL_auxz00_3222-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 168 */
long BgL_modz00_1901;
{ /* ./Reduce/cse.scm 168 */
int BgL_arg2028z00_1902;
BgL_arg2028z00_1902 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 168 */
long BgL_n2z00_1910;
BgL_n2z00_1910 = 
(long)(BgL_arg2028z00_1902); 
BgL_modz00_1901 = 
(BgL_offsetz00_1900/BgL_n2z00_1910); } } 
{ /* ./Reduce/cse.scm 168 */
long BgL_restz00_1903;
{ /* ./Reduce/cse.scm 168 */
int BgL_arg2024z00_1904;
BgL_arg2024z00_1904 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 168 */
long BgL_n2z00_1913;
BgL_n2z00_1913 = 
(long)(BgL_arg2024z00_1904); 
BgL_restz00_1903 = 
(BgL_offsetz00_1900%BgL_n2z00_1913); } } 
{ /* ./Reduce/cse.scm 168 */

{ /* ./Reduce/cse.scm 168 */
obj_t BgL_bucketz00_1905;
{ /* ./Reduce/cse.scm 168 */
int BgL_kz00_1915;
BgL_kz00_1915 = 
(int)(BgL_modz00_1901); 
BgL_bucketz00_1905 = 
VECTOR_REF(BgL_arg2017z00_1896,BgL_kz00_1915); } 
{ /* ./Reduce/cse.scm 168 */
int BgL_kz00_1917;
BgL_kz00_1917 = 
(int)(BgL_restz00_1903); 
BgL_method2760z00_1893 = 
VECTOR_REF(BgL_bucketz00_1905,BgL_kz00_1917); } } } } } } } } } } 
BgL_resetz72z72_1264 = 
PROCEDURE_ENTRY(BgL_method2760z00_1893)(BgL_method2760z00_1893, 
(obj_t)(BgL_arg3389z00_1274), BgL_stackz72z72_1263, BEOA); } } 
{ /* ./Reduce/cse.scm 169 */
obj_t BgL_nmsgz00_1265;
{ /* ./Reduce/cse.scm 169 */
int BgL_nz00_1918;
BgL_nz00_1918 = 
(int)(((long)1)); 
BgL_nmsgz00_1265 = 
BGL_MVALUES_VAL(BgL_nz00_1918); } 
{ /* ./Reduce/cse.scm 169 */
BgL_failz00_bglt BgL_obj2375z00_1919;BgL_nodez00_bglt BgL_val2374z00_1920;
BgL_obj2375z00_1919 = BgL_nodez00_1256; 
BgL_val2374z00_1920 = 
(BgL_nodez00_bglt)(BgL_nmsgz00_1265); 
((((BgL_failz00_bglt)CREF(BgL_obj2375z00_1919))->BgL_msgz00) = ((BgL_nodez00_bglt)BgL_val2374z00_1920), BUNSPEC); } 
{ /* ./Reduce/cse.scm 170 */
obj_t BgL_stackz72z72z00_1266;
if(
CBOOL(BgL_resetz72z72_1264))
{ /* ./Reduce/cse.scm 170 */
BgL_stackz72z72z00_1266 = BNIL; }  else 
{ /* ./Reduce/cse.scm 170 */
BgL_stackz72z72z00_1266 = BgL_stackz72z72_1263; } 
{ /* ./Reduce/cse.scm 171 */
obj_t BgL_resetz72z72z00_1267;
{ /* ./Reduce/cse.scm 172 */
BgL_nodez00_bglt BgL_arg3384z00_1273;
BgL_arg3384z00_1273 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1256))->BgL_objz00); 
{ /* ./Reduce/cse.scm 172 */
obj_t BgL_method2760z00_1924;
{ /* ./Reduce/cse.scm 172 */
BgL_objectz00_bglt BgL_objz00_1925;
BgL_objz00_1925 = 
(BgL_objectz00_bglt)(BgL_arg3384z00_1273); 
{ /* ./Reduce/cse.scm 172 */
long BgL_objzd2classzd2numz00_1926;
BgL_objzd2classzd2numz00_1926 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1925); 
{ /* ./Reduce/cse.scm 172 */
obj_t BgL_arg2017z00_1927;
{ /* ./Reduce/cse.scm 172 */
int BgL_auxz00_3247;
BgL_auxz00_3247 = 
(int)(((long)1)); 
BgL_arg2017z00_1927 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3247); } 
{ /* ./Reduce/cse.scm 172 */
int BgL_offsetz00_1930;
BgL_offsetz00_1930 = 
(int)(BgL_objzd2classzd2numz00_1926); 
{ /* ./Reduce/cse.scm 172 */
long BgL_offsetz00_1931;
{ /* ./Reduce/cse.scm 172 */
long BgL_auxz00_3251;
BgL_auxz00_3251 = 
(long)(BgL_offsetz00_1930); 
BgL_offsetz00_1931 = 
(BgL_auxz00_3251-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 172 */
long BgL_modz00_1932;
{ /* ./Reduce/cse.scm 172 */
int BgL_arg2028z00_1933;
BgL_arg2028z00_1933 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 172 */
long BgL_n2z00_1941;
BgL_n2z00_1941 = 
(long)(BgL_arg2028z00_1933); 
BgL_modz00_1932 = 
(BgL_offsetz00_1931/BgL_n2z00_1941); } } 
{ /* ./Reduce/cse.scm 172 */
long BgL_restz00_1934;
{ /* ./Reduce/cse.scm 172 */
int BgL_arg2024z00_1935;
BgL_arg2024z00_1935 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 172 */
long BgL_n2z00_1944;
BgL_n2z00_1944 = 
(long)(BgL_arg2024z00_1935); 
BgL_restz00_1934 = 
(BgL_offsetz00_1931%BgL_n2z00_1944); } } 
{ /* ./Reduce/cse.scm 172 */

{ /* ./Reduce/cse.scm 172 */
obj_t BgL_bucketz00_1936;
{ /* ./Reduce/cse.scm 172 */
int BgL_kz00_1946;
BgL_kz00_1946 = 
(int)(BgL_modz00_1932); 
BgL_bucketz00_1936 = 
VECTOR_REF(BgL_arg2017z00_1927,BgL_kz00_1946); } 
{ /* ./Reduce/cse.scm 172 */
int BgL_kz00_1948;
BgL_kz00_1948 = 
(int)(BgL_restz00_1934); 
BgL_method2760z00_1924 = 
VECTOR_REF(BgL_bucketz00_1936,BgL_kz00_1948); } } } } } } } } } } 
BgL_resetz72z72z00_1267 = 
PROCEDURE_ENTRY(BgL_method2760z00_1924)(BgL_method2760z00_1924, 
(obj_t)(BgL_arg3384z00_1273), BgL_stackz72z72z00_1266, BEOA); } } 
{ /* ./Reduce/cse.scm 173 */
obj_t BgL_nobjz00_1268;
{ /* ./Reduce/cse.scm 173 */
int BgL_nz00_1949;
BgL_nz00_1949 = 
(int)(((long)1)); 
BgL_nobjz00_1268 = 
BGL_MVALUES_VAL(BgL_nz00_1949); } 
{ /* ./Reduce/cse.scm 173 */
BgL_failz00_bglt BgL_obj2378z00_1950;BgL_nodez00_bglt BgL_val2377z00_1951;
BgL_obj2378z00_1950 = BgL_nodez00_1256; 
BgL_val2377z00_1951 = 
(BgL_nodez00_bglt)(BgL_nobjz00_1268); 
((((BgL_failz00_bglt)CREF(BgL_obj2378z00_1950))->BgL_objz00) = ((BgL_nodez00_bglt)BgL_val2377z00_1951), BUNSPEC); } 
{ /* ./Reduce/cse.scm 174 */
obj_t BgL_val0_2705z00_1269;
if(
CBOOL(BgL_resetz00_1261))
{ /* ./Reduce/cse.scm 174 */
BgL_val0_2705z00_1269 = BgL_resetz00_1261; }  else 
{ /* ./Reduce/cse.scm 174 */
if(
CBOOL(BgL_resetz72z72_1264))
{ /* ./Reduce/cse.scm 174 */
BgL_val0_2705z00_1269 = BgL_resetz72z72_1264; }  else 
{ /* ./Reduce/cse.scm 174 */
BgL_val0_2705z00_1269 = BgL_resetz72z72z00_1267; } } 
{ /* ./Reduce/cse.scm 174 */
int BgL_nz00_1952;
BgL_nz00_1952 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1952); } 
{ /* ./Reduce/cse.scm 174 */
int BgL_nz00_1953;obj_t BgL_oz00_1954;
BgL_nz00_1953 = 
(int)(((long)1)); 
BgL_oz00_1954 = 
(obj_t)(BgL_nodez00_1256); 
BGL_MVALUES_VAL_SET(BgL_nz00_1953, BgL_oz00_1954); } 
return BgL_val0_2705z00_1269;} } } } } } } } } } } 
}



/* node-cse!-conditional2782 */
obj_t BGl_nodezd2csez12zd2conditional2782z12zzreduce_csez00(obj_t BgL_envz00_2468, obj_t BgL_nodez00_2469, obj_t BgL_stackz00_2470)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 144 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1235;obj_t BgL_stackz00_1236;
BgL_nodez00_1235 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2469); 
BgL_stackz00_1236 = BgL_stackz00_2470; 
{ /* ./Reduce/cse.scm 146 */
obj_t BgL_resetz00_1240;
{ /* ./Reduce/cse.scm 147 */
BgL_nodez00_bglt BgL_arg3368z00_1253;
BgL_arg3368z00_1253 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1235))->BgL_testz00); 
{ /* ./Reduce/cse.scm 147 */
obj_t BgL_method2760z00_1766;
{ /* ./Reduce/cse.scm 147 */
BgL_objectz00_bglt BgL_objz00_1767;
BgL_objz00_1767 = 
(BgL_objectz00_bglt)(BgL_arg3368z00_1253); 
{ /* ./Reduce/cse.scm 147 */
long BgL_objzd2classzd2numz00_1768;
BgL_objzd2classzd2numz00_1768 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1767); 
{ /* ./Reduce/cse.scm 147 */
obj_t BgL_arg2017z00_1769;
{ /* ./Reduce/cse.scm 147 */
int BgL_auxz00_3284;
BgL_auxz00_3284 = 
(int)(((long)1)); 
BgL_arg2017z00_1769 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3284); } 
{ /* ./Reduce/cse.scm 147 */
int BgL_offsetz00_1772;
BgL_offsetz00_1772 = 
(int)(BgL_objzd2classzd2numz00_1768); 
{ /* ./Reduce/cse.scm 147 */
long BgL_offsetz00_1773;
{ /* ./Reduce/cse.scm 147 */
long BgL_auxz00_3288;
BgL_auxz00_3288 = 
(long)(BgL_offsetz00_1772); 
BgL_offsetz00_1773 = 
(BgL_auxz00_3288-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 147 */
long BgL_modz00_1774;
{ /* ./Reduce/cse.scm 147 */
int BgL_arg2028z00_1775;
BgL_arg2028z00_1775 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 147 */
long BgL_n2z00_1783;
BgL_n2z00_1783 = 
(long)(BgL_arg2028z00_1775); 
BgL_modz00_1774 = 
(BgL_offsetz00_1773/BgL_n2z00_1783); } } 
{ /* ./Reduce/cse.scm 147 */
long BgL_restz00_1776;
{ /* ./Reduce/cse.scm 147 */
int BgL_arg2024z00_1777;
BgL_arg2024z00_1777 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 147 */
long BgL_n2z00_1786;
BgL_n2z00_1786 = 
(long)(BgL_arg2024z00_1777); 
BgL_restz00_1776 = 
(BgL_offsetz00_1773%BgL_n2z00_1786); } } 
{ /* ./Reduce/cse.scm 147 */

{ /* ./Reduce/cse.scm 147 */
obj_t BgL_bucketz00_1778;
{ /* ./Reduce/cse.scm 147 */
int BgL_kz00_1788;
BgL_kz00_1788 = 
(int)(BgL_modz00_1774); 
BgL_bucketz00_1778 = 
VECTOR_REF(BgL_arg2017z00_1769,BgL_kz00_1788); } 
{ /* ./Reduce/cse.scm 147 */
int BgL_kz00_1790;
BgL_kz00_1790 = 
(int)(BgL_restz00_1776); 
BgL_method2760z00_1766 = 
VECTOR_REF(BgL_bucketz00_1778,BgL_kz00_1790); } } } } } } } } } } 
BgL_resetz00_1240 = 
PROCEDURE_ENTRY(BgL_method2760z00_1766)(BgL_method2760z00_1766, 
(obj_t)(BgL_arg3368z00_1253), BgL_stackz00_1236, BEOA); } } 
{ /* ./Reduce/cse.scm 148 */
obj_t BgL_ntestz00_1241;
{ /* ./Reduce/cse.scm 148 */
int BgL_nz00_1791;
BgL_nz00_1791 = 
(int)(((long)1)); 
BgL_ntestz00_1241 = 
BGL_MVALUES_VAL(BgL_nz00_1791); } 
{ /* ./Reduce/cse.scm 148 */
BgL_conditionalz00_bglt BgL_obj2334z00_1792;BgL_nodez00_bglt BgL_val2333z00_1793;
BgL_obj2334z00_1792 = BgL_nodez00_1235; 
BgL_val2333z00_1793 = 
(BgL_nodez00_bglt)(BgL_ntestz00_1241); 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2334z00_1792))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2333z00_1793), BUNSPEC); } 
{ /* ./Reduce/cse.scm 149 */
obj_t BgL_stackz72z72_1242;
if(
CBOOL(BgL_resetz00_1240))
{ /* ./Reduce/cse.scm 149 */
BgL_stackz72z72_1242 = BNIL; }  else 
{ /* ./Reduce/cse.scm 149 */
BgL_stackz72z72_1242 = BgL_stackz00_1236; } 
{ /* ./Reduce/cse.scm 150 */
obj_t BgL_resetz72z72_1243;
{ /* ./Reduce/cse.scm 151 */
BgL_nodez00_bglt BgL_arg3363z00_1252;
BgL_arg3363z00_1252 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1235))->BgL_truez00); 
{ /* ./Reduce/cse.scm 151 */
obj_t BgL_method2760z00_1797;
{ /* ./Reduce/cse.scm 151 */
BgL_objectz00_bglt BgL_objz00_1798;
BgL_objz00_1798 = 
(BgL_objectz00_bglt)(BgL_arg3363z00_1252); 
{ /* ./Reduce/cse.scm 151 */
long BgL_objzd2classzd2numz00_1799;
BgL_objzd2classzd2numz00_1799 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1798); 
{ /* ./Reduce/cse.scm 151 */
obj_t BgL_arg2017z00_1800;
{ /* ./Reduce/cse.scm 151 */
int BgL_auxz00_3313;
BgL_auxz00_3313 = 
(int)(((long)1)); 
BgL_arg2017z00_1800 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3313); } 
{ /* ./Reduce/cse.scm 151 */
int BgL_offsetz00_1803;
BgL_offsetz00_1803 = 
(int)(BgL_objzd2classzd2numz00_1799); 
{ /* ./Reduce/cse.scm 151 */
long BgL_offsetz00_1804;
{ /* ./Reduce/cse.scm 151 */
long BgL_auxz00_3317;
BgL_auxz00_3317 = 
(long)(BgL_offsetz00_1803); 
BgL_offsetz00_1804 = 
(BgL_auxz00_3317-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 151 */
long BgL_modz00_1805;
{ /* ./Reduce/cse.scm 151 */
int BgL_arg2028z00_1806;
BgL_arg2028z00_1806 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 151 */
long BgL_n2z00_1814;
BgL_n2z00_1814 = 
(long)(BgL_arg2028z00_1806); 
BgL_modz00_1805 = 
(BgL_offsetz00_1804/BgL_n2z00_1814); } } 
{ /* ./Reduce/cse.scm 151 */
long BgL_restz00_1807;
{ /* ./Reduce/cse.scm 151 */
int BgL_arg2024z00_1808;
BgL_arg2024z00_1808 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 151 */
long BgL_n2z00_1817;
BgL_n2z00_1817 = 
(long)(BgL_arg2024z00_1808); 
BgL_restz00_1807 = 
(BgL_offsetz00_1804%BgL_n2z00_1817); } } 
{ /* ./Reduce/cse.scm 151 */

{ /* ./Reduce/cse.scm 151 */
obj_t BgL_bucketz00_1809;
{ /* ./Reduce/cse.scm 151 */
int BgL_kz00_1819;
BgL_kz00_1819 = 
(int)(BgL_modz00_1805); 
BgL_bucketz00_1809 = 
VECTOR_REF(BgL_arg2017z00_1800,BgL_kz00_1819); } 
{ /* ./Reduce/cse.scm 151 */
int BgL_kz00_1821;
BgL_kz00_1821 = 
(int)(BgL_restz00_1807); 
BgL_method2760z00_1797 = 
VECTOR_REF(BgL_bucketz00_1809,BgL_kz00_1821); } } } } } } } } } } 
BgL_resetz72z72_1243 = 
PROCEDURE_ENTRY(BgL_method2760z00_1797)(BgL_method2760z00_1797, 
(obj_t)(BgL_arg3363z00_1252), BgL_stackz72z72_1242, BEOA); } } 
{ /* ./Reduce/cse.scm 152 */
obj_t BgL_ntruez00_1244;
{ /* ./Reduce/cse.scm 152 */
int BgL_nz00_1822;
BgL_nz00_1822 = 
(int)(((long)1)); 
BgL_ntruez00_1244 = 
BGL_MVALUES_VAL(BgL_nz00_1822); } 
{ /* ./Reduce/cse.scm 152 */
BgL_conditionalz00_bglt BgL_obj2337z00_1823;BgL_nodez00_bglt BgL_val2336z00_1824;
BgL_obj2337z00_1823 = BgL_nodez00_1235; 
BgL_val2336z00_1824 = 
(BgL_nodez00_bglt)(BgL_ntruez00_1244); 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2337z00_1823))->BgL_truez00) = ((BgL_nodez00_bglt)BgL_val2336z00_1824), BUNSPEC); } 
{ /* ./Reduce/cse.scm 153 */
obj_t BgL_resetz72z72z00_1245;
{ /* ./Reduce/cse.scm 154 */
BgL_nodez00_bglt BgL_arg3358z00_1251;
BgL_arg3358z00_1251 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1235))->BgL_falsez00); 
{ /* ./Reduce/cse.scm 154 */
obj_t BgL_method2760z00_1828;
{ /* ./Reduce/cse.scm 154 */
BgL_objectz00_bglt BgL_objz00_1829;
BgL_objz00_1829 = 
(BgL_objectz00_bglt)(BgL_arg3358z00_1251); 
{ /* ./Reduce/cse.scm 154 */
long BgL_objzd2classzd2numz00_1830;
BgL_objzd2classzd2numz00_1830 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1829); 
{ /* ./Reduce/cse.scm 154 */
obj_t BgL_arg2017z00_1831;
{ /* ./Reduce/cse.scm 154 */
int BgL_auxz00_3340;
BgL_auxz00_3340 = 
(int)(((long)1)); 
BgL_arg2017z00_1831 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3340); } 
{ /* ./Reduce/cse.scm 154 */
int BgL_offsetz00_1834;
BgL_offsetz00_1834 = 
(int)(BgL_objzd2classzd2numz00_1830); 
{ /* ./Reduce/cse.scm 154 */
long BgL_offsetz00_1835;
{ /* ./Reduce/cse.scm 154 */
long BgL_auxz00_3344;
BgL_auxz00_3344 = 
(long)(BgL_offsetz00_1834); 
BgL_offsetz00_1835 = 
(BgL_auxz00_3344-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 154 */
long BgL_modz00_1836;
{ /* ./Reduce/cse.scm 154 */
int BgL_arg2028z00_1837;
BgL_arg2028z00_1837 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 154 */
long BgL_n2z00_1845;
BgL_n2z00_1845 = 
(long)(BgL_arg2028z00_1837); 
BgL_modz00_1836 = 
(BgL_offsetz00_1835/BgL_n2z00_1845); } } 
{ /* ./Reduce/cse.scm 154 */
long BgL_restz00_1838;
{ /* ./Reduce/cse.scm 154 */
int BgL_arg2024z00_1839;
BgL_arg2024z00_1839 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 154 */
long BgL_n2z00_1848;
BgL_n2z00_1848 = 
(long)(BgL_arg2024z00_1839); 
BgL_restz00_1838 = 
(BgL_offsetz00_1835%BgL_n2z00_1848); } } 
{ /* ./Reduce/cse.scm 154 */

{ /* ./Reduce/cse.scm 154 */
obj_t BgL_bucketz00_1840;
{ /* ./Reduce/cse.scm 154 */
int BgL_kz00_1850;
BgL_kz00_1850 = 
(int)(BgL_modz00_1836); 
BgL_bucketz00_1840 = 
VECTOR_REF(BgL_arg2017z00_1831,BgL_kz00_1850); } 
{ /* ./Reduce/cse.scm 154 */
int BgL_kz00_1852;
BgL_kz00_1852 = 
(int)(BgL_restz00_1838); 
BgL_method2760z00_1828 = 
VECTOR_REF(BgL_bucketz00_1840,BgL_kz00_1852); } } } } } } } } } } 
BgL_resetz72z72z00_1245 = 
PROCEDURE_ENTRY(BgL_method2760z00_1828)(BgL_method2760z00_1828, 
(obj_t)(BgL_arg3358z00_1251), BgL_stackz72z72_1242, BEOA); } } 
{ /* ./Reduce/cse.scm 155 */
obj_t BgL_nfalsez00_1246;
{ /* ./Reduce/cse.scm 155 */
int BgL_nz00_1853;
BgL_nz00_1853 = 
(int)(((long)1)); 
BgL_nfalsez00_1246 = 
BGL_MVALUES_VAL(BgL_nz00_1853); } 
{ /* ./Reduce/cse.scm 155 */
BgL_conditionalz00_bglt BgL_obj2340z00_1854;BgL_nodez00_bglt BgL_val2339z00_1855;
BgL_obj2340z00_1854 = BgL_nodez00_1235; 
BgL_val2339z00_1855 = 
(BgL_nodez00_bglt)(BgL_nfalsez00_1246); 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2340z00_1854))->BgL_falsez00) = ((BgL_nodez00_bglt)BgL_val2339z00_1855), BUNSPEC); } 
{ /* ./Reduce/cse.scm 156 */
obj_t BgL_val0_2699z00_1247;
if(
CBOOL(BgL_resetz00_1240))
{ /* ./Reduce/cse.scm 156 */
BgL_val0_2699z00_1247 = BgL_resetz00_1240; }  else 
{ /* ./Reduce/cse.scm 156 */
if(
CBOOL(BgL_resetz72z72_1243))
{ /* ./Reduce/cse.scm 156 */
BgL_val0_2699z00_1247 = BgL_resetz72z72_1243; }  else 
{ /* ./Reduce/cse.scm 156 */
BgL_val0_2699z00_1247 = BgL_resetz72z72z00_1245; } } 
{ /* ./Reduce/cse.scm 156 */
int BgL_nz00_1856;
BgL_nz00_1856 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1856); } 
{ /* ./Reduce/cse.scm 156 */
int BgL_nz00_1857;obj_t BgL_oz00_1858;
BgL_nz00_1857 = 
(int)(((long)1)); 
BgL_oz00_1858 = 
(obj_t)(BgL_nodez00_1235); 
BGL_MVALUES_VAL_SET(BgL_nz00_1857, BgL_oz00_1858); } 
return BgL_val0_2699z00_1247;} } } } } } } } } } 
}



/* node-cse!-setq2780 */
obj_t BGl_nodezd2csez12zd2setq2780z12zzreduce_csez00(obj_t BgL_envz00_2471, obj_t BgL_nodez00_2472, obj_t BgL_stackz00_2473)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 134 */
{ 
BgL_setqz00_bglt BgL_nodez00_1223;obj_t BgL_stackz00_1224;
BgL_nodez00_1223 = 
(BgL_setqz00_bglt)(BgL_nodez00_2472); 
BgL_stackz00_1224 = BgL_stackz00_2473; 
{ /* ./Reduce/cse.scm 136 */
obj_t BgL_resetz00_1228;
{ /* ./Reduce/cse.scm 137 */
BgL_nodez00_bglt BgL_arg3342z00_1232;
BgL_arg3342z00_1232 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1223))->BgL_valuez00); 
{ /* ./Reduce/cse.scm 137 */
obj_t BgL_method2760z00_1732;
{ /* ./Reduce/cse.scm 137 */
BgL_objectz00_bglt BgL_objz00_1733;
BgL_objz00_1733 = 
(BgL_objectz00_bglt)(BgL_arg3342z00_1232); 
{ /* ./Reduce/cse.scm 137 */
long BgL_objzd2classzd2numz00_1734;
BgL_objzd2classzd2numz00_1734 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1733); 
{ /* ./Reduce/cse.scm 137 */
obj_t BgL_arg2017z00_1735;
{ /* ./Reduce/cse.scm 137 */
int BgL_auxz00_3377;
BgL_auxz00_3377 = 
(int)(((long)1)); 
BgL_arg2017z00_1735 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3377); } 
{ /* ./Reduce/cse.scm 137 */
int BgL_offsetz00_1738;
BgL_offsetz00_1738 = 
(int)(BgL_objzd2classzd2numz00_1734); 
{ /* ./Reduce/cse.scm 137 */
long BgL_offsetz00_1739;
{ /* ./Reduce/cse.scm 137 */
long BgL_auxz00_3381;
BgL_auxz00_3381 = 
(long)(BgL_offsetz00_1738); 
BgL_offsetz00_1739 = 
(BgL_auxz00_3381-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 137 */
long BgL_modz00_1740;
{ /* ./Reduce/cse.scm 137 */
int BgL_arg2028z00_1741;
BgL_arg2028z00_1741 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 137 */
long BgL_n2z00_1749;
BgL_n2z00_1749 = 
(long)(BgL_arg2028z00_1741); 
BgL_modz00_1740 = 
(BgL_offsetz00_1739/BgL_n2z00_1749); } } 
{ /* ./Reduce/cse.scm 137 */
long BgL_restz00_1742;
{ /* ./Reduce/cse.scm 137 */
int BgL_arg2024z00_1743;
BgL_arg2024z00_1743 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 137 */
long BgL_n2z00_1752;
BgL_n2z00_1752 = 
(long)(BgL_arg2024z00_1743); 
BgL_restz00_1742 = 
(BgL_offsetz00_1739%BgL_n2z00_1752); } } 
{ /* ./Reduce/cse.scm 137 */

{ /* ./Reduce/cse.scm 137 */
obj_t BgL_bucketz00_1744;
{ /* ./Reduce/cse.scm 137 */
int BgL_kz00_1754;
BgL_kz00_1754 = 
(int)(BgL_modz00_1740); 
BgL_bucketz00_1744 = 
VECTOR_REF(BgL_arg2017z00_1735,BgL_kz00_1754); } 
{ /* ./Reduce/cse.scm 137 */
int BgL_kz00_1756;
BgL_kz00_1756 = 
(int)(BgL_restz00_1742); 
BgL_method2760z00_1732 = 
VECTOR_REF(BgL_bucketz00_1744,BgL_kz00_1756); } } } } } } } } } } 
BgL_resetz00_1228 = 
PROCEDURE_ENTRY(BgL_method2760z00_1732)(BgL_method2760z00_1732, 
(obj_t)(BgL_arg3342z00_1232), BgL_stackz00_1224, BEOA); } } 
{ /* ./Reduce/cse.scm 138 */
obj_t BgL_nvaluez00_1229;
{ /* ./Reduce/cse.scm 138 */
int BgL_nz00_1757;
BgL_nz00_1757 = 
(int)(((long)1)); 
BgL_nvaluez00_1229 = 
BGL_MVALUES_VAL(BgL_nz00_1757); } 
{ /* ./Reduce/cse.scm 138 */
BgL_setqz00_bglt BgL_obj2305z00_1758;BgL_nodez00_bglt BgL_val2304z00_1759;
BgL_obj2305z00_1758 = BgL_nodez00_1223; 
BgL_val2304z00_1759 = 
(BgL_nodez00_bglt)(BgL_nvaluez00_1229); 
((((BgL_setqz00_bglt)CREF(BgL_obj2305z00_1758))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2304z00_1759), BUNSPEC); } 
{ /* ./Reduce/cse.scm 139 */
int BgL_nz00_1760;
BgL_nz00_1760 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1760); } 
{ /* ./Reduce/cse.scm 139 */
int BgL_nz00_1761;obj_t BgL_oz00_1762;
BgL_nz00_1761 = 
(int)(((long)1)); 
BgL_oz00_1762 = 
(obj_t)(BgL_nodez00_1223); 
BGL_MVALUES_VAL_SET(BgL_nz00_1761, BgL_oz00_1762); } 
return BgL_resetz00_1228;} } } } 
}



/* node-cse!-cast2778 */
obj_t BGl_nodezd2csez12zd2cast2778z12zzreduce_csez00(obj_t BgL_envz00_2474, obj_t BgL_nodez00_2475, obj_t BgL_stackz00_2476)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 124 */
{ 
BgL_castz00_bglt BgL_nodez00_1211;obj_t BgL_stackz00_1212;
BgL_nodez00_1211 = 
(BgL_castz00_bglt)(BgL_nodez00_2475); 
BgL_stackz00_1212 = BgL_stackz00_2476; 
{ /* ./Reduce/cse.scm 126 */
obj_t BgL_resetz00_1216;
{ /* ./Reduce/cse.scm 127 */
BgL_nodez00_bglt BgL_arg3328z00_1220;
BgL_arg3328z00_1220 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1211))->BgL_argz00); 
{ /* ./Reduce/cse.scm 127 */
obj_t BgL_method2760z00_1698;
{ /* ./Reduce/cse.scm 127 */
BgL_objectz00_bglt BgL_objz00_1699;
BgL_objz00_1699 = 
(BgL_objectz00_bglt)(BgL_arg3328z00_1220); 
{ /* ./Reduce/cse.scm 127 */
long BgL_objzd2classzd2numz00_1700;
BgL_objzd2classzd2numz00_1700 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1699); 
{ /* ./Reduce/cse.scm 127 */
obj_t BgL_arg2017z00_1701;
{ /* ./Reduce/cse.scm 127 */
int BgL_auxz00_3410;
BgL_auxz00_3410 = 
(int)(((long)1)); 
BgL_arg2017z00_1701 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3410); } 
{ /* ./Reduce/cse.scm 127 */
int BgL_offsetz00_1704;
BgL_offsetz00_1704 = 
(int)(BgL_objzd2classzd2numz00_1700); 
{ /* ./Reduce/cse.scm 127 */
long BgL_offsetz00_1705;
{ /* ./Reduce/cse.scm 127 */
long BgL_auxz00_3414;
BgL_auxz00_3414 = 
(long)(BgL_offsetz00_1704); 
BgL_offsetz00_1705 = 
(BgL_auxz00_3414-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 127 */
long BgL_modz00_1706;
{ /* ./Reduce/cse.scm 127 */
int BgL_arg2028z00_1707;
BgL_arg2028z00_1707 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 127 */
long BgL_n2z00_1715;
BgL_n2z00_1715 = 
(long)(BgL_arg2028z00_1707); 
BgL_modz00_1706 = 
(BgL_offsetz00_1705/BgL_n2z00_1715); } } 
{ /* ./Reduce/cse.scm 127 */
long BgL_restz00_1708;
{ /* ./Reduce/cse.scm 127 */
int BgL_arg2024z00_1709;
BgL_arg2024z00_1709 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 127 */
long BgL_n2z00_1718;
BgL_n2z00_1718 = 
(long)(BgL_arg2024z00_1709); 
BgL_restz00_1708 = 
(BgL_offsetz00_1705%BgL_n2z00_1718); } } 
{ /* ./Reduce/cse.scm 127 */

{ /* ./Reduce/cse.scm 127 */
obj_t BgL_bucketz00_1710;
{ /* ./Reduce/cse.scm 127 */
int BgL_kz00_1720;
BgL_kz00_1720 = 
(int)(BgL_modz00_1706); 
BgL_bucketz00_1710 = 
VECTOR_REF(BgL_arg2017z00_1701,BgL_kz00_1720); } 
{ /* ./Reduce/cse.scm 127 */
int BgL_kz00_1722;
BgL_kz00_1722 = 
(int)(BgL_restz00_1708); 
BgL_method2760z00_1698 = 
VECTOR_REF(BgL_bucketz00_1710,BgL_kz00_1722); } } } } } } } } } } 
BgL_resetz00_1216 = 
PROCEDURE_ENTRY(BgL_method2760z00_1698)(BgL_method2760z00_1698, 
(obj_t)(BgL_arg3328z00_1220), BgL_stackz00_1212, BEOA); } } 
{ /* ./Reduce/cse.scm 128 */
obj_t BgL_nargz00_1217;
{ /* ./Reduce/cse.scm 128 */
int BgL_nz00_1723;
BgL_nz00_1723 = 
(int)(((long)1)); 
BgL_nargz00_1217 = 
BGL_MVALUES_VAL(BgL_nz00_1723); } 
{ /* ./Reduce/cse.scm 128 */
BgL_castz00_bglt BgL_obj2282z00_1724;BgL_nodez00_bglt BgL_val2281z00_1725;
BgL_obj2282z00_1724 = BgL_nodez00_1211; 
BgL_val2281z00_1725 = 
(BgL_nodez00_bglt)(BgL_nargz00_1217); 
((((BgL_castz00_bglt)CREF(BgL_obj2282z00_1724))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val2281z00_1725), BUNSPEC); } 
{ /* ./Reduce/cse.scm 129 */
int BgL_nz00_1726;
BgL_nz00_1726 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1726); } 
{ /* ./Reduce/cse.scm 129 */
int BgL_nz00_1727;obj_t BgL_oz00_1728;
BgL_nz00_1727 = 
(int)(((long)1)); 
BgL_oz00_1728 = 
(obj_t)(BgL_nodez00_1211); 
BGL_MVALUES_VAL_SET(BgL_nz00_1727, BgL_oz00_1728); } 
return BgL_resetz00_1216;} } } } 
}



/* node-cse!-extern2776 */
obj_t BGl_nodezd2csez12zd2extern2776z12zzreduce_csez00(obj_t BgL_envz00_2477, obj_t BgL_nodez00_2478, obj_t BgL_stackz00_2479)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 116 */
{ 
BgL_externz00_bglt BgL_nodez00_1200;obj_t BgL_stackz00_1201;
BgL_nodez00_1200 = 
(BgL_externz00_bglt)(BgL_nodez00_2478); 
BgL_stackz00_1201 = BgL_stackz00_2479; 
{ /* ./Reduce/cse.scm 118 */
obj_t BgL_resetz72z72_1205;
{ /* ./Reduce/cse.scm 118 */
obj_t BgL_arg3314z00_1208;
BgL_arg3314z00_1208 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1200))->BgL_exprza2za2); 
BgL_resetz72z72_1205 = 
BGl_nodezd2cseza2z12z62zzreduce_csez00(BgL_arg3314z00_1208, BgL_stackz00_1201); } 
{ /* ./Reduce/cse.scm 119 */
int BgL_nz00_1692;
BgL_nz00_1692 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1692); } 
{ /* ./Reduce/cse.scm 119 */
int BgL_nz00_1693;obj_t BgL_oz00_1694;
BgL_nz00_1693 = 
(int)(((long)1)); 
BgL_oz00_1694 = 
(obj_t)(BgL_nodez00_1200); 
BGL_MVALUES_VAL_SET(BgL_nz00_1693, BgL_oz00_1694); } 
return BgL_resetz72z72_1205;} } } 
}



/* node-cse!-funcall2774 */
obj_t BGl_nodezd2csez12zd2funcall2774z12zzreduce_csez00(obj_t BgL_envz00_2480, obj_t BgL_nodez00_2481, obj_t BgL_stackz00_2482)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 108 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1189;obj_t BgL_stackz00_1190;
BgL_nodez00_1189 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2481); 
BgL_stackz00_1190 = BgL_stackz00_2482; 
{ /* ./Reduce/cse.scm 110 */
obj_t BgL_resetz72z72_1194;
{ /* ./Reduce/cse.scm 110 */
obj_t BgL_arg3302z00_1197;
BgL_arg3302z00_1197 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1189))->BgL_argsz00); 
BgL_resetz72z72_1194 = 
BGl_nodezd2cseza2z12z62zzreduce_csez00(BgL_arg3302z00_1197, BgL_stackz00_1190); } 
{ /* ./Reduce/cse.scm 111 */
int BgL_nz00_1688;
BgL_nz00_1688 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1688); } 
{ /* ./Reduce/cse.scm 111 */
int BgL_nz00_1689;obj_t BgL_oz00_1690;
BgL_nz00_1689 = 
(int)(((long)1)); 
BgL_oz00_1690 = 
(obj_t)(BgL_nodez00_1189); 
BGL_MVALUES_VAL_SET(BgL_nz00_1689, BgL_oz00_1690); } 
return BgL_resetz72z72_1194;} } } 
}



/* node-cse!-app-ly2772 */
obj_t BGl_nodezd2csez12zd2appzd2ly2772zc0zzreduce_csez00(obj_t BgL_envz00_2483, obj_t BgL_nodez00_2484, obj_t BgL_stackz00_2485)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 95 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1172;obj_t BgL_stackz00_1173;
BgL_nodez00_1172 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2484); 
BgL_stackz00_1173 = BgL_stackz00_2485; 
{ /* ./Reduce/cse.scm 97 */
obj_t BgL_resetz00_1177;
{ /* ./Reduce/cse.scm 98 */
BgL_nodez00_bglt BgL_arg3290z00_1186;
BgL_arg3290z00_1186 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1172))->BgL_funz00); 
{ /* ./Reduce/cse.scm 98 */
obj_t BgL_method2760z00_1625;
{ /* ./Reduce/cse.scm 98 */
BgL_objectz00_bglt BgL_objz00_1626;
BgL_objz00_1626 = 
(BgL_objectz00_bglt)(BgL_arg3290z00_1186); 
{ /* ./Reduce/cse.scm 98 */
long BgL_objzd2classzd2numz00_1627;
BgL_objzd2classzd2numz00_1627 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1626); 
{ /* ./Reduce/cse.scm 98 */
obj_t BgL_arg2017z00_1628;
{ /* ./Reduce/cse.scm 98 */
int BgL_auxz00_3459;
BgL_auxz00_3459 = 
(int)(((long)1)); 
BgL_arg2017z00_1628 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3459); } 
{ /* ./Reduce/cse.scm 98 */
int BgL_offsetz00_1631;
BgL_offsetz00_1631 = 
(int)(BgL_objzd2classzd2numz00_1627); 
{ /* ./Reduce/cse.scm 98 */
long BgL_offsetz00_1632;
{ /* ./Reduce/cse.scm 98 */
long BgL_auxz00_3463;
BgL_auxz00_3463 = 
(long)(BgL_offsetz00_1631); 
BgL_offsetz00_1632 = 
(BgL_auxz00_3463-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 98 */
long BgL_modz00_1633;
{ /* ./Reduce/cse.scm 98 */
int BgL_arg2028z00_1634;
BgL_arg2028z00_1634 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 98 */
long BgL_n2z00_1642;
BgL_n2z00_1642 = 
(long)(BgL_arg2028z00_1634); 
BgL_modz00_1633 = 
(BgL_offsetz00_1632/BgL_n2z00_1642); } } 
{ /* ./Reduce/cse.scm 98 */
long BgL_restz00_1635;
{ /* ./Reduce/cse.scm 98 */
int BgL_arg2024z00_1636;
BgL_arg2024z00_1636 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 98 */
long BgL_n2z00_1645;
BgL_n2z00_1645 = 
(long)(BgL_arg2024z00_1636); 
BgL_restz00_1635 = 
(BgL_offsetz00_1632%BgL_n2z00_1645); } } 
{ /* ./Reduce/cse.scm 98 */

{ /* ./Reduce/cse.scm 98 */
obj_t BgL_bucketz00_1637;
{ /* ./Reduce/cse.scm 98 */
int BgL_kz00_1647;
BgL_kz00_1647 = 
(int)(BgL_modz00_1633); 
BgL_bucketz00_1637 = 
VECTOR_REF(BgL_arg2017z00_1628,BgL_kz00_1647); } 
{ /* ./Reduce/cse.scm 98 */
int BgL_kz00_1649;
BgL_kz00_1649 = 
(int)(BgL_restz00_1635); 
BgL_method2760z00_1625 = 
VECTOR_REF(BgL_bucketz00_1637,BgL_kz00_1649); } } } } } } } } } } 
BgL_resetz00_1177 = 
PROCEDURE_ENTRY(BgL_method2760z00_1625)(BgL_method2760z00_1625, 
(obj_t)(BgL_arg3290z00_1186), BgL_stackz00_1173, BEOA); } } 
{ /* ./Reduce/cse.scm 99 */
obj_t BgL_nfunz00_1178;
{ /* ./Reduce/cse.scm 99 */
int BgL_nz00_1650;
BgL_nz00_1650 = 
(int)(((long)1)); 
BgL_nfunz00_1178 = 
BGL_MVALUES_VAL(BgL_nz00_1650); } 
{ /* ./Reduce/cse.scm 99 */
BgL_appzd2lyzd2_bglt BgL_obj1753z00_1651;BgL_nodez00_bglt BgL_val1752z00_1652;
BgL_obj1753z00_1651 = BgL_nodez00_1172; 
BgL_val1752z00_1652 = 
(BgL_nodez00_bglt)(BgL_nfunz00_1178); 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1753z00_1651))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1752z00_1652), BUNSPEC); } 
{ /* ./Reduce/cse.scm 100 */
obj_t BgL_resetz72z72_1179;
{ /* ./Reduce/cse.scm 101 */
BgL_nodez00_bglt BgL_arg3284z00_1184;obj_t BgL_arg3285z00_1185;
BgL_arg3284z00_1184 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1172))->BgL_argz00); 
if(
CBOOL(BgL_resetz00_1177))
{ /* ./Reduce/cse.scm 101 */
BgL_arg3285z00_1185 = BNIL; }  else 
{ /* ./Reduce/cse.scm 101 */
BgL_arg3285z00_1185 = BgL_stackz00_1173; } 
{ /* ./Reduce/cse.scm 101 */
obj_t BgL_method2760z00_1656;
{ /* ./Reduce/cse.scm 101 */
BgL_objectz00_bglt BgL_objz00_1657;
BgL_objz00_1657 = 
(BgL_objectz00_bglt)(BgL_arg3284z00_1184); 
{ /* ./Reduce/cse.scm 101 */
long BgL_objzd2classzd2numz00_1658;
BgL_objzd2classzd2numz00_1658 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1657); 
{ /* ./Reduce/cse.scm 101 */
obj_t BgL_arg2017z00_1659;
{ /* ./Reduce/cse.scm 101 */
int BgL_auxz00_3488;
BgL_auxz00_3488 = 
(int)(((long)1)); 
BgL_arg2017z00_1659 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3488); } 
{ /* ./Reduce/cse.scm 101 */
int BgL_offsetz00_1662;
BgL_offsetz00_1662 = 
(int)(BgL_objzd2classzd2numz00_1658); 
{ /* ./Reduce/cse.scm 101 */
long BgL_offsetz00_1663;
{ /* ./Reduce/cse.scm 101 */
long BgL_auxz00_3492;
BgL_auxz00_3492 = 
(long)(BgL_offsetz00_1662); 
BgL_offsetz00_1663 = 
(BgL_auxz00_3492-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 101 */
long BgL_modz00_1664;
{ /* ./Reduce/cse.scm 101 */
int BgL_arg2028z00_1665;
BgL_arg2028z00_1665 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 101 */
long BgL_n2z00_1673;
BgL_n2z00_1673 = 
(long)(BgL_arg2028z00_1665); 
BgL_modz00_1664 = 
(BgL_offsetz00_1663/BgL_n2z00_1673); } } 
{ /* ./Reduce/cse.scm 101 */
long BgL_restz00_1666;
{ /* ./Reduce/cse.scm 101 */
int BgL_arg2024z00_1667;
BgL_arg2024z00_1667 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 101 */
long BgL_n2z00_1676;
BgL_n2z00_1676 = 
(long)(BgL_arg2024z00_1667); 
BgL_restz00_1666 = 
(BgL_offsetz00_1663%BgL_n2z00_1676); } } 
{ /* ./Reduce/cse.scm 101 */

{ /* ./Reduce/cse.scm 101 */
obj_t BgL_bucketz00_1668;
{ /* ./Reduce/cse.scm 101 */
int BgL_kz00_1678;
BgL_kz00_1678 = 
(int)(BgL_modz00_1664); 
BgL_bucketz00_1668 = 
VECTOR_REF(BgL_arg2017z00_1659,BgL_kz00_1678); } 
{ /* ./Reduce/cse.scm 101 */
int BgL_kz00_1680;
BgL_kz00_1680 = 
(int)(BgL_restz00_1666); 
BgL_method2760z00_1656 = 
VECTOR_REF(BgL_bucketz00_1668,BgL_kz00_1680); } } } } } } } } } } 
BgL_resetz72z72_1179 = 
PROCEDURE_ENTRY(BgL_method2760z00_1656)(BgL_method2760z00_1656, 
(obj_t)(BgL_arg3284z00_1184), BgL_arg3285z00_1185, BEOA); } } 
{ /* ./Reduce/cse.scm 102 */
obj_t BgL_nargz00_1180;
{ /* ./Reduce/cse.scm 102 */
int BgL_nz00_1681;
BgL_nz00_1681 = 
(int)(((long)1)); 
BgL_nargz00_1180 = 
BGL_MVALUES_VAL(BgL_nz00_1681); } 
{ /* ./Reduce/cse.scm 102 */
BgL_appzd2lyzd2_bglt BgL_obj1756z00_1682;BgL_nodez00_bglt BgL_val1755z00_1683;
BgL_obj1756z00_1682 = BgL_nodez00_1172; 
BgL_val1755z00_1683 = 
(BgL_nodez00_bglt)(BgL_nargz00_1180); 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1756z00_1682))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val1755z00_1683), BUNSPEC); } 
{ /* ./Reduce/cse.scm 103 */
obj_t BgL_val0_2678z00_1181;
if(
CBOOL(BgL_resetz00_1177))
{ /* ./Reduce/cse.scm 103 */
BgL_val0_2678z00_1181 = BgL_resetz00_1177; }  else 
{ /* ./Reduce/cse.scm 103 */
BgL_val0_2678z00_1181 = BgL_resetz72z72_1179; } 
{ /* ./Reduce/cse.scm 103 */
int BgL_nz00_1684;
BgL_nz00_1684 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1684); } 
{ /* ./Reduce/cse.scm 103 */
int BgL_nz00_1685;obj_t BgL_oz00_1686;
BgL_nz00_1685 = 
(int)(((long)1)); 
BgL_oz00_1686 = 
(obj_t)(BgL_nodez00_1172); 
BGL_MVALUES_VAL_SET(BgL_nz00_1685, BgL_oz00_1686); } 
return BgL_val0_2678z00_1181;} } } } } } } 
}



/* node-cse!-sequence2770 */
obj_t BGl_nodezd2csez12zd2sequence2770z12zzreduce_csez00(obj_t BgL_envz00_2486, obj_t BgL_nodez00_2487, obj_t BgL_stackz00_2488)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 88 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1162;obj_t BgL_stackz00_1163;
BgL_nodez00_1162 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2487); 
BgL_stackz00_1163 = BgL_stackz00_2488; 
{ /* ./Reduce/cse.scm 90 */
obj_t BgL_val0_2674z00_1167;
{ /* ./Reduce/cse.scm 90 */
obj_t BgL_arg3269z00_1169;
BgL_arg3269z00_1169 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1162))->BgL_nodesz00); 
BgL_val0_2674z00_1167 = 
BGl_nodezd2cseza2z12z62zzreduce_csez00(BgL_arg3269z00_1169, BgL_stackz00_1163); } 
{ /* ./Reduce/cse.scm 90 */
int BgL_nz00_1619;
BgL_nz00_1619 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1619); } 
{ /* ./Reduce/cse.scm 90 */
int BgL_nz00_1620;obj_t BgL_oz00_1621;
BgL_nz00_1620 = 
(int)(((long)1)); 
BgL_oz00_1621 = 
(obj_t)(BgL_nodez00_1162); 
BGL_MVALUES_VAL_SET(BgL_nz00_1620, BgL_oz00_1621); } 
return BgL_val0_2674z00_1167;} } } 
}



/* node-cse!-closure2768 */
obj_t BGl_nodezd2csez12zd2closure2768z12zzreduce_csez00(obj_t BgL_envz00_2489, obj_t BgL_nodez00_2490, obj_t BgL_stackz00_2491)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 82 */
{ 
BgL_closurez00_bglt BgL_nodez00_1154;obj_t BgL_stackz00_1155;
{ /* ./Reduce/cse.scm 83 */
bool_t BgL_auxz00_3528;
BgL_nodez00_1154 = 
(BgL_closurez00_bglt)(BgL_nodez00_2490); 
BgL_stackz00_1155 = BgL_stackz00_2491; 
{ /* ./Reduce/cse.scm 83 */
int BgL_nz00_1615;
BgL_nz00_1615 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1615); } 
{ /* ./Reduce/cse.scm 83 */
int BgL_nz00_1616;obj_t BgL_oz00_1617;
BgL_nz00_1616 = 
(int)(((long)1)); 
BgL_oz00_1617 = 
(obj_t)(BgL_nodez00_1154); 
BGL_MVALUES_VAL_SET(BgL_nz00_1616, BgL_oz00_1617); } 
BgL_auxz00_3528 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_3528);} } } 
}



/* node-cse!-var2766 */
obj_t BGl_nodezd2csez12zd2var2766z12zzreduce_csez00(obj_t BgL_envz00_2492, obj_t BgL_nodez00_2493, obj_t BgL_stackz00_2494)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 76 */
{ 
BgL_varz00_bglt BgL_nodez00_1146;obj_t BgL_stackz00_1147;
{ /* ./Reduce/cse.scm 77 */
bool_t BgL_auxz00_3536;
BgL_nodez00_1146 = 
(BgL_varz00_bglt)(BgL_nodez00_2493); 
BgL_stackz00_1147 = BgL_stackz00_2494; 
{ /* ./Reduce/cse.scm 77 */
int BgL_nz00_1610;
BgL_nz00_1610 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1610); } 
{ /* ./Reduce/cse.scm 77 */
int BgL_nz00_1611;obj_t BgL_oz00_1612;
BgL_nz00_1611 = 
(int)(((long)1)); 
BgL_oz00_1612 = 
(obj_t)(BgL_nodez00_1146); 
BGL_MVALUES_VAL_SET(BgL_nz00_1611, BgL_oz00_1612); } 
BgL_auxz00_3536 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_3536);} } } 
}



/* node-cse!-kwote2764 */
obj_t BGl_nodezd2csez12zd2kwote2764z12zzreduce_csez00(obj_t BgL_envz00_2495, obj_t BgL_nodez00_2496, obj_t BgL_stackz00_2497)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 70 */
{ 
BgL_kwotez00_bglt BgL_nodez00_1138;obj_t BgL_stackz00_1139;
{ /* ./Reduce/cse.scm 71 */
bool_t BgL_auxz00_3544;
BgL_nodez00_1138 = 
(BgL_kwotez00_bglt)(BgL_nodez00_2496); 
BgL_stackz00_1139 = BgL_stackz00_2497; 
{ /* ./Reduce/cse.scm 71 */
int BgL_nz00_1605;
BgL_nz00_1605 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1605); } 
{ /* ./Reduce/cse.scm 71 */
int BgL_nz00_1606;obj_t BgL_oz00_1607;
BgL_nz00_1606 = 
(int)(((long)1)); 
BgL_oz00_1607 = 
(obj_t)(BgL_nodez00_1138); 
BGL_MVALUES_VAL_SET(BgL_nz00_1606, BgL_oz00_1607); } 
BgL_auxz00_3544 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_3544);} } } 
}



/* node-cse!-atom2762 */
obj_t BGl_nodezd2csez12zd2atom2762z12zzreduce_csez00(obj_t BgL_envz00_2498, obj_t BgL_nodez00_2499, obj_t BgL_stackz00_2500)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 64 */
{ 
BgL_atomz00_bglt BgL_nodez00_1130;obj_t BgL_stackz00_1131;
{ /* ./Reduce/cse.scm 65 */
bool_t BgL_auxz00_3552;
BgL_nodez00_1130 = 
(BgL_atomz00_bglt)(BgL_nodez00_2499); 
BgL_stackz00_1131 = BgL_stackz00_2500; 
{ /* ./Reduce/cse.scm 65 */
int BgL_nz00_1600;
BgL_nz00_1600 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1600); } 
{ /* ./Reduce/cse.scm 65 */
int BgL_nz00_1601;obj_t BgL_oz00_1602;
BgL_nz00_1601 = 
(int)(((long)1)); 
BgL_oz00_1602 = 
(obj_t)(BgL_nodez00_1130); 
BGL_MVALUES_VAL_SET(BgL_nz00_1601, BgL_oz00_1602); } 
BgL_auxz00_3552 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_3552);} } } 
}



/* node-cse! */
BGL_EXPORTED_DEF obj_t BGl_nodezd2csez12zc0zzreduce_csez00(BgL_nodez00_bglt BgL_nodez00_2, obj_t BgL_stackz00_3)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 59 */
{ /* ./Reduce/cse.scm 59 */
obj_t BgL_method2760z00_2384;
{ /* ./Reduce/cse.scm 59 */
BgL_objectz00_bglt BgL_objz00_2385;
BgL_objz00_2385 = 
(BgL_objectz00_bglt)(BgL_nodez00_2); 
{ /* ./Reduce/cse.scm 59 */
long BgL_objzd2classzd2numz00_2386;
BgL_objzd2classzd2numz00_2386 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2385); 
{ /* ./Reduce/cse.scm 59 */
obj_t BgL_arg2017z00_2387;
{ /* ./Reduce/cse.scm 59 */
int BgL_auxz00_3562;
BgL_auxz00_3562 = 
(int)(((long)1)); 
BgL_arg2017z00_2387 = 
PROCEDURE_REF(BGl_nodezd2csez12zd2envz12zzreduce_csez00, BgL_auxz00_3562); } 
{ /* ./Reduce/cse.scm 59 */
int BgL_offsetz00_2390;
BgL_offsetz00_2390 = 
(int)(BgL_objzd2classzd2numz00_2386); 
{ /* ./Reduce/cse.scm 59 */
long BgL_offsetz00_2391;
{ /* ./Reduce/cse.scm 59 */
long BgL_auxz00_3566;
BgL_auxz00_3566 = 
(long)(BgL_offsetz00_2390); 
BgL_offsetz00_2391 = 
(BgL_auxz00_3566-OBJECT_TYPE); } 
{ /* ./Reduce/cse.scm 59 */
long BgL_modz00_2392;
{ /* ./Reduce/cse.scm 59 */
int BgL_arg2028z00_2393;
BgL_arg2028z00_2393 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 59 */
long BgL_n2z00_2401;
BgL_n2z00_2401 = 
(long)(BgL_arg2028z00_2393); 
BgL_modz00_2392 = 
(BgL_offsetz00_2391/BgL_n2z00_2401); } } 
{ /* ./Reduce/cse.scm 59 */
long BgL_restz00_2394;
{ /* ./Reduce/cse.scm 59 */
int BgL_arg2024z00_2395;
BgL_arg2024z00_2395 = 
(int)(((long)8)); 
{ /* ./Reduce/cse.scm 59 */
long BgL_n2z00_2404;
BgL_n2z00_2404 = 
(long)(BgL_arg2024z00_2395); 
BgL_restz00_2394 = 
(BgL_offsetz00_2391%BgL_n2z00_2404); } } 
{ /* ./Reduce/cse.scm 59 */

{ /* ./Reduce/cse.scm 59 */
obj_t BgL_bucketz00_2396;
{ /* ./Reduce/cse.scm 59 */
int BgL_kz00_2406;
BgL_kz00_2406 = 
(int)(BgL_modz00_2392); 
BgL_bucketz00_2396 = 
VECTOR_REF(BgL_arg2017z00_2387,BgL_kz00_2406); } 
{ /* ./Reduce/cse.scm 59 */
int BgL_kz00_2408;
BgL_kz00_2408 = 
(int)(BgL_restz00_2394); 
BgL_method2760z00_2384 = 
VECTOR_REF(BgL_bucketz00_2396,BgL_kz00_2408); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2760z00_2384)(BgL_method2760z00_2384, 
(obj_t)(BgL_nodez00_2), BgL_stackz00_3, BEOA);} } 
}



/* _node-cse!3719 */
obj_t BGl__nodezd2csez123719zc0zzreduce_csez00(obj_t BgL_envz00_2414, obj_t BgL_nodez00_2415, obj_t BgL_stackz00_2416)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 59 */
return 
BGl_nodezd2csez12zc0zzreduce_csez00(
(BgL_nodez00_bglt)(BgL_nodez00_2415), BgL_stackz00_2416);} 
}



/* node-cse!-default2759 */
obj_t BGl_nodezd2csez12zd2default2759z12zzreduce_csez00(BgL_nodez00_bglt BgL_nodez00_4, obj_t BgL_stackz00_5)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 15 */
{ /* ./Reduce/cse.scm 15 */
obj_t BgL_procz00_2409;obj_t BgL_objectz00_2411;
BgL_procz00_2409 = 
CNST_TABLE_REF(((long)2)); 
BgL_objectz00_2411 = 
(obj_t)(BgL_nodez00_4); 
FAILURE(BgL_procz00_2409,BGl_string4274z00zzreduce_csez00,BgL_objectz00_2411);} } 
}



/* _node-cse!-default2759 */
obj_t BGl__nodezd2csez12zd2default2759z12zzreduce_csez00(obj_t BgL_envz00_2501, obj_t BgL_nodez00_2502, obj_t BgL_stackz00_2503)
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 15 */
return 
BGl_nodezd2csez12zd2default2759z12zzreduce_csez00(
(BgL_nodez00_bglt)(BgL_nodez00_2502), BgL_stackz00_2503);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzreduce_csez00()
{ AN_OBJECT;
{ /* ./Reduce/cse.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zzcoerce_coercez00(((long)56611), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zzeffect_effectz00(((long)14017), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "reduce_cse"); 
BGl_modulezd2initializa7ationz75zzast_lvtypez00(((long)41586), "reduce_cse"); 
return 
BGl_modulezd2initializa7ationz75zzreduce_samez00(((long)51603), "reduce_cse");} 
}

