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


extern obj_t BGl_vrefz00zzast_nodez00;
static obj_t BGl_za2czd2fixnumzf3za2z21zzreduce_betaz00 = BUNSPEC;
static obj_t BGl_methodzd2initzd2zzreduce_betaz00();
static obj_t BGl_nodezd2betaz12zd2sequence2778z12zzreduce_betaz00(obj_t, obj_t);
static obj_t BGl_za2czd2flonumzf3za2z21zzreduce_betaz00 = BUNSPEC;
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_nodezd2betaz12zd2boxzd2setz122800zd2zzreduce_betaz00(obj_t, obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_nodezd2betaza2z12z62zzreduce_betaz00(obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern BgL_atomz00_bglt BGl_makezd2atomzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_kwotez00zzast_nodez00;
static bool_t BGl_iszd2argumentzf3z21zzreduce_betaz00(BgL_variablez00_bglt, obj_t);
static obj_t BGl_nodezd2betaz12zd2cast2784z12zzreduce_betaz00(obj_t, obj_t);
extern obj_t BGl_za2blongza2z00zztype_cachez00;
extern obj_t BGl_globalz00zzast_varz00;
extern BgL_typez00_bglt BGl_typeofz00zztype_typeofz00(BgL_nodez00_bglt);
static bool_t BGl_argumentzf3zf3zzreduce_betaz00(BgL_variablez00_bglt, obj_t);
static obj_t BGl_predicatezf3zf3zzreduce_betaz00(BgL_appz00_bglt);
extern obj_t BGl_castz00zzast_nodez00;
static obj_t BGl__reducezd2betaz12zc0zzreduce_betaz00(obj_t, obj_t);
extern obj_t BGl_varz00zzast_nodez00;
extern obj_t BGl_za2bdbzd2debugza2zd2zzengine_paramz00;
static obj_t BGl_cnstzd2initzd2zzreduce_betaz00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
extern obj_t BGl_za2bintza2z00zztype_cachez00;
extern obj_t BGl_occurzd2varzd2zzast_occurz00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzreduce_betaz00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_nodezd2betaz12zd2makezd2box2798zc0zzreduce_betaz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_reducezd2betaz12zc0zzreduce_betaz00(obj_t);
extern obj_t BGl_getfieldz00zzast_nodez00;
static obj_t BGl_nodezd2betaz12zd2select2790z12zzreduce_betaz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static BgL_nodez00_bglt BGl_findzd2actualzd2expressionz00zzreduce_betaz00(BgL_nodez00_bglt);
static obj_t BGl_nodezd2betaz12zd2jumpzd2exzd2it2796z12zzreduce_betaz00(obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl__nodezd2betaz12zc0zzreduce_betaz00(obj_t, obj_t);
static obj_t BGl_makezd2argszd2listz00zzreduce_betaz00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzreduce_betaz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl_nodezd2betaz12zd2app2802z12zzreduce_betaz00(obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzreduce_betaz00(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_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_lvtypez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_occurz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern bool_t BGl_sidezd2effectzf3z21zzeffect_effectz00(BgL_nodez00_bglt);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
extern obj_t BGl_findzd2globalzd2zzast_envz00(obj_t, obj_t);
BGL_IMPORT long bgl_list_length(obj_t);
extern obj_t BGl_za2brealza2z00zztype_cachez00;
extern obj_t BGl_za2longza2z00zztype_cachez00;
extern obj_t BGl_za2intza2z00zztype_cachez00;
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_cfunz00zzast_varz00;
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__nodezd2betaz12zd2default2772z12zzreduce_betaz00(obj_t, obj_t);
static long BGl_za2removedza2z00zzreduce_betaz00;
static obj_t BGl_nodezd2betaz12zd2setzd2exzd2it2794z12zzreduce_betaz00(obj_t, obj_t);
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
static bool_t BGl_simplezf3zf3zzreduce_betaz00(obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static BgL_nodez00_bglt BGl_nodezd2betaz12zc0zzreduce_betaz00(BgL_nodez00_bglt);
static bool_t BGl_sidezd2effectzd2safezf3zf3zzreduce_betaz00(obj_t);
extern obj_t BGl_za2objza2z00zztype_cachez00;
static obj_t BGl_nodezd2betaz12zd2appzd2ly2780zc0zzreduce_betaz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzreduce_betaz00 = BUNSPEC;
static obj_t BGl_nodezd2betaz12zd2letzd2fun2792zc0zzreduce_betaz00(obj_t, obj_t);
static obj_t BGl_nodezd2betazd2predicatez12z12zzreduce_betaz00(BgL_appz00_bglt);
static obj_t BGl_za2predicatesza2z00zzreduce_betaz00 = BUNSPEC;
static obj_t BGl_nodezd2betaz12zd2setq2786z12zzreduce_betaz00(obj_t, obj_t);
extern obj_t BGl_za2realza2z00zztype_cachez00;
static obj_t BGl_libraryzd2moduleszd2initz00zzreduce_betaz00();
static obj_t BGl_nodezd2betaz12zd2conditional2788z12zzreduce_betaz00(obj_t, obj_t);
static obj_t BGl_nodezd2betaz12zd2funcall2782z12zzreduce_betaz00(obj_t, obj_t);
static bool_t BGl_dangerouszf3zf3zzreduce_betaz00(obj_t);
static obj_t BGl_nodezd2betaz12zd2letzd2var2776zc0zzreduce_betaz00(obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 4 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_reducezd2betaz12zd2envz12zzreduce_betaz00, BgL_bgl__reduceza7d2betaza712za7c0za7za7reduce_betaza7004693z00, BGl__reducezd2betaz12zc0zzreduce_betaz00, 0L, 1 );
DEFINE_STRING( BGl_string4665z00zzreduce_betaz00, BgL_bgl_string4665za700za7za7reduce_betaza7004694z00, "nesting c-flonum? c-fixnum? foreign ", 36 );
DEFINE_STRING( BGl_string4650z00zzreduce_betaz00, BgL_bgl_string4650za700za7za7reduce_betaza7004695z00, "Illegal predicate", 17 );
DEFINE_STRING( BGl_string4649z00zzreduce_betaz00, BgL_bgl_string4649za700za7za7reduce_betaza7004696z00, "node-beta-predicate!", 20 );
DEFINE_STRING( BGl_string4648z00zzreduce_betaz00, BgL_bgl_string4648za700za7za7reduce_betaza7004697z00, "(removed : ", 11 );
DEFINE_STRING( BGl_string4647z00zzreduce_betaz00, BgL_bgl_string4647za700za7za7reduce_betaza7004698z00, "      Simple beta reduction  ", 29 );
DEFINE_STATIC_GENERIC( BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_bgl__nodeza7d2betaza712za7c0za7za7reduce_betaza7004699z00, BGl__nodezd2betaz12zc0zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4651z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2letza7d2var2776za7c0za7za7reduce_betaza7004700z00, BGl_nodezd2betaz12zd2letzd2var2776zc0zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4652z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2sequence2778za712za7za7reduce_betaza7004701za7, BGl_nodezd2betaz12zd2sequence2778z12zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4653z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2appza7d2ly2780za7c0za7za7reduce_betaza7004702z00, BGl_nodezd2betaz12zd2appzd2ly2780zc0zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4654z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2funcall2782za712za7za7reduce_betaza7004703za7, BGl_nodezd2betaz12zd2funcall2782z12zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4655z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2cast2784za712za7za7reduce_betaza7004704za7, BGl_nodezd2betaz12zd2cast2784z12zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4656z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2setq2786za712za7za7reduce_betaza7004705za7, BGl_nodezd2betaz12zd2setq2786z12zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4657z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2conditional2788za712za7za7reduce_betaza7004706za7, BGl_nodezd2betaz12zd2conditional2788z12zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4658z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2select2790za712za7za7reduce_betaza7004707za7, BGl_nodezd2betaz12zd2select2790z12zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4660z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2setza7d2exza7d2it2794za712za7za7reduce_betaza7004708za7, BGl_nodezd2betaz12zd2setzd2exzd2it2794z12zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4659z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2letza7d2fun2792za7c0za7za7reduce_betaza7004709z00, BGl_nodezd2betaz12zd2letzd2fun2792zc0zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4661z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2jumpza7d2exza7d2it2796za712za7za7reduce_betaza7004710za7, BGl_nodezd2betaz12zd2jumpzd2exzd2it2796z12zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4662z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2makeza7d2box2798za7c0za7za7reduce_betaza7004711z00, BGl_nodezd2betaz12zd2makezd2box2798zc0zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4663z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2boxza7d2setza7122800za7d2za7za7reduce_betaza7004712za7, BGl_nodezd2betaz12zd2boxzd2setz122800zd2zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4664z00zzreduce_betaz00, BgL_bgl_nodeza7d2betaza712za7d2app2802za712za7za7reduce_betaza7004713za7, BGl_nodezd2betaz12zd2app2802z12zzreduce_betaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_nodezd2betaz12zd2default2772zd2envzc0zzreduce_betaz00, BgL_bgl__nodeza7d2betaza712za7d2default2772za712za7za7reduce_betaza7004714za7, BGl__nodezd2betaz12zd2default2772z12zzreduce_betaz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzreduce_betaz00(long BgL_checksumz00_2527, char * BgL_fromz00_2528)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzreduce_betaz00))
{ 
BGl_requirezd2initializa7ationz75zzreduce_betaz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzreduce_betaz00(); 
BGl_cnstzd2initzd2zzreduce_betaz00(); 
BGl_importedzd2moduleszd2initz00zzreduce_betaz00(); 
BGl_methodzd2initzd2zzreduce_betaz00(); 
BGl_toplevelzd2initzd2zzreduce_betaz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzreduce_betaz00()
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 25 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "reduce_beta"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzreduce_betaz00()
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 25 */
{ /* ./Reduce/sbeta.scm 25 */
obj_t BgL_cportz00_2518;
BgL_cportz00_2518 = 
open_input_string(BGl_string4665z00zzreduce_betaz00); 
{ 
long BgL_iz00_2519;
BgL_iz00_2519 = ((long)3); 
BgL_loopz00_2520:
{ /* ./Reduce/sbeta.scm 25 */
bool_t BgL_test4667z00_2521;
BgL_test4667z00_2521 = 
(BgL_iz00_2519==((long)-1)); 
if(BgL_test4667z00_2521)
{ /* ./Reduce/sbeta.scm 25 */
return BUNSPEC;}  else 
{ /* ./Reduce/sbeta.scm 25 */
{ /* ./Reduce/sbeta.scm 25 */
obj_t BgL_arg4669z00_2522;
{ /* ./Reduce/sbeta.scm 25 */
obj_t BgL_list4672z00_2523;
BgL_list4672z00_2523 = 
MAKE_PAIR(BgL_cportz00_2518, BNIL); 
BgL_arg4669z00_2522 = 
BGl_readz00zz__readerz00(BgL_list4672z00_2523); } 
{ /* ./Reduce/sbeta.scm 25 */
int BgL_auxz00_2545;
BgL_auxz00_2545 = 
(int)(BgL_iz00_2519); 
CNST_TABLE_SET(BgL_auxz00_2545, BgL_arg4669z00_2522); } } 
{ /* ./Reduce/sbeta.scm 25 */
int BgL_auxz00_2524;
{ /* ./Reduce/sbeta.scm 25 */
long BgL_auxz00_2548;
BgL_auxz00_2548 = 
(BgL_iz00_2519-((long)1)); 
BgL_auxz00_2524 = 
(int)(BgL_auxz00_2548); } 
{ 
long BgL_iz00_2551;
BgL_iz00_2551 = 
(long)(BgL_auxz00_2524); 
BgL_iz00_2519 = BgL_iz00_2551; 
goto BgL_loopz00_2520;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzreduce_betaz00()
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 25 */
BGl_za2removedza2z00zzreduce_betaz00 = ((long)0); 
BGl_za2czd2fixnumzf3za2z21zzreduce_betaz00 = BUNSPEC; 
BGl_za2czd2flonumzf3za2z21zzreduce_betaz00 = BUNSPEC; 
BGl_za2predicatesza2z00zzreduce_betaz00 = BNIL; 
return BUNSPEC;} 
}



/* reduce-beta! */
BGL_EXPORTED_DEF obj_t BGl_reducezd2betaz12zc0zzreduce_betaz00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 46 */
{ /* ./Reduce/sbeta.scm 47 */
obj_t BgL_list2804z00_690;
BgL_list2804z00_690 = 
MAKE_PAIR(BGl_string4647z00zzreduce_betaz00, BNIL); 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list2804z00_690); } 
BGl_occurzd2varzd2zzast_occurz00(BgL_globalsz00_1); 
BGl_za2removedza2z00zzreduce_betaz00 = ((long)0); 
{ /* ./Reduce/sbeta.scm 54 */
obj_t BgL_list2808z00_691;
{ /* ./Reduce/sbeta.scm 54 */
obj_t BgL_auxz00_2557;
BgL_auxz00_2557 = 
CNST_TABLE_REF(((long)0)); 
BgL_list2808z00_691 = 
MAKE_PAIR(BgL_auxz00_2557, BNIL); } 
BGl_za2czd2fixnumzf3za2z21zzreduce_betaz00 = 
BGl_findzd2globalzd2zzast_envz00(
CNST_TABLE_REF(((long)1)), BgL_list2808z00_691); } 
{ /* ./Reduce/sbeta.scm 55 */
obj_t BgL_list2811z00_692;
{ /* ./Reduce/sbeta.scm 55 */
obj_t BgL_auxz00_2562;
BgL_auxz00_2562 = 
CNST_TABLE_REF(((long)0)); 
BgL_list2811z00_692 = 
MAKE_PAIR(BgL_auxz00_2562, BNIL); } 
BGl_za2czd2flonumzf3za2z21zzreduce_betaz00 = 
BGl_findzd2globalzd2zzast_envz00(
CNST_TABLE_REF(((long)2)), BgL_list2811z00_692); } 
{ /* ./Reduce/sbeta.scm 56 */
obj_t BgL_list2814z00_693;
{ /* ./Reduce/sbeta.scm 56 */
obj_t BgL_arg2816z00_694;
BgL_arg2816z00_694 = 
MAKE_PAIR(BGl_za2czd2flonumzf3za2z21zzreduce_betaz00, BNIL); 
BgL_list2814z00_693 = 
MAKE_PAIR(BGl_za2czd2fixnumzf3za2z21zzreduce_betaz00, BgL_arg2816z00_694); } 
BGl_za2predicatesza2z00zzreduce_betaz00 = BgL_list2814z00_693; } 
{ 
obj_t BgL_l2662z00_695;
BgL_l2662z00_695 = BgL_globalsz00_1; 
BgL_forzd2each2663zd2_696:
{ /* ./Reduce/sbeta.scm 58 */
bool_t BgL_test2820z00_697;
BgL_test2820z00_697 = 
PAIRP(BgL_l2662z00_695); 
if(BgL_test2820z00_697)
{ /* ./Reduce/sbeta.scm 58 */
{ /* ./Reduce/sbeta.scm 59 */
obj_t BgL_globalz00_698;
BgL_globalz00_698 = 
CAR(BgL_l2662z00_695); 
{ /* ./Reduce/sbeta.scm 59 */
BgL_valuez00_bglt BgL_funz00_699;
{ /* ./Reduce/sbeta.scm 59 */
BgL_variablez00_bglt BgL_obj1100z00_1530;
BgL_obj1100z00_1530 = 
(BgL_variablez00_bglt)(BgL_globalz00_698); 
BgL_funz00_699 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1530))->BgL_valuez00); } 
{ /* ./Reduce/sbeta.scm 59 */
obj_t BgL_nodez00_700;
{ /* ./Reduce/sbeta.scm 60 */
BgL_sfunz00_bglt BgL_obj1370z00_1531;
BgL_obj1370z00_1531 = 
(BgL_sfunz00_bglt)(BgL_funz00_699); 
BgL_nodez00_700 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1531))->BgL_bodyz00); } 
{ /* ./Reduce/sbeta.scm 60 */

{ /* ./Reduce/sbeta.scm 61 */
BgL_nodez00_bglt BgL_arg2822z00_701;
{ /* ./Reduce/sbeta.scm 61 */
BgL_nodez00_bglt BgL_res4097z00_1558;
{ /* ./Reduce/sbeta.scm 61 */
BgL_nodez00_bglt BgL_nodez00_1532;
BgL_nodez00_1532 = 
(BgL_nodez00_bglt)(BgL_nodez00_700); 
{ /* ./Reduce/sbeta.scm 61 */
obj_t BgL_method2774z00_1533;
{ /* ./Reduce/sbeta.scm 61 */
BgL_objectz00_bglt BgL_objz00_1534;
BgL_objz00_1534 = 
(BgL_objectz00_bglt)(BgL_nodez00_1532); 
{ /* ./Reduce/sbeta.scm 61 */
long BgL_objzd2classzd2numz00_1535;
BgL_objzd2classzd2numz00_1535 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1534); 
{ /* ./Reduce/sbeta.scm 61 */
obj_t BgL_arg2017z00_1536;
{ /* ./Reduce/sbeta.scm 61 */
int BgL_auxz00_2579;
BgL_auxz00_2579 = 
(int)(((long)1)); 
BgL_arg2017z00_1536 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_2579); } 
{ /* ./Reduce/sbeta.scm 61 */
int BgL_offsetz00_1539;
BgL_offsetz00_1539 = 
(int)(BgL_objzd2classzd2numz00_1535); 
{ /* ./Reduce/sbeta.scm 61 */
long BgL_offsetz00_1540;
{ /* ./Reduce/sbeta.scm 61 */
long BgL_auxz00_2583;
BgL_auxz00_2583 = 
(long)(BgL_offsetz00_1539); 
BgL_offsetz00_1540 = 
(BgL_auxz00_2583-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 61 */
long BgL_modz00_1541;
{ /* ./Reduce/sbeta.scm 61 */
int BgL_arg2028z00_1542;
BgL_arg2028z00_1542 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 61 */
long BgL_n2z00_1550;
BgL_n2z00_1550 = 
(long)(BgL_arg2028z00_1542); 
BgL_modz00_1541 = 
(BgL_offsetz00_1540/BgL_n2z00_1550); } } 
{ /* ./Reduce/sbeta.scm 61 */
long BgL_restz00_1543;
{ /* ./Reduce/sbeta.scm 61 */
int BgL_arg2024z00_1544;
BgL_arg2024z00_1544 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 61 */
long BgL_n2z00_1553;
BgL_n2z00_1553 = 
(long)(BgL_arg2024z00_1544); 
BgL_restz00_1543 = 
(BgL_offsetz00_1540%BgL_n2z00_1553); } } 
{ /* ./Reduce/sbeta.scm 61 */

{ /* ./Reduce/sbeta.scm 61 */
obj_t BgL_bucketz00_1545;
{ /* ./Reduce/sbeta.scm 61 */
int BgL_kz00_1555;
BgL_kz00_1555 = 
(int)(BgL_modz00_1541); 
BgL_bucketz00_1545 = 
VECTOR_REF(BgL_arg2017z00_1536,BgL_kz00_1555); } 
{ /* ./Reduce/sbeta.scm 61 */
int BgL_kz00_1557;
BgL_kz00_1557 = 
(int)(BgL_restz00_1543); 
BgL_method2774z00_1533 = 
VECTOR_REF(BgL_bucketz00_1545,BgL_kz00_1557); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 61 */
obj_t BgL_auxz00_2596;
BgL_auxz00_2596 = 
PROCEDURE_ENTRY(BgL_method2774z00_1533)(BgL_method2774z00_1533, 
(obj_t)(BgL_nodez00_1532), BEOA); 
BgL_res4097z00_1558 = 
(BgL_nodez00_bglt)(BgL_auxz00_2596); } } } 
BgL_arg2822z00_701 = BgL_res4097z00_1558; } 
{ /* ./Reduce/sbeta.scm 61 */
BgL_sfunz00_bglt BgL_obj1373z00_1559;obj_t BgL_val1371z00_1560;
BgL_obj1373z00_1559 = 
(BgL_sfunz00_bglt)(BgL_funz00_699); 
BgL_val1371z00_1560 = 
(obj_t)(BgL_arg2822z00_701); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1559))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1560), BUNSPEC); } } BUNSPEC; } } } } 
{ /* ./Reduce/sbeta.scm 58 */
obj_t BgL_arg2829z00_702;
BgL_arg2829z00_702 = 
CDR(BgL_l2662z00_695); 
{ 
obj_t BgL_l2662z00_2605;
BgL_l2662z00_2605 = BgL_arg2829z00_702; 
BgL_l2662z00_695 = BgL_l2662z00_2605; 
goto BgL_forzd2each2663zd2_696;} } }  else 
{ /* ./Reduce/sbeta.scm 58 */((bool_t)1); } } } 
BGl_za2czd2fixnumzf3za2z21zzreduce_betaz00 = BUNSPEC; 
BGl_za2czd2flonumzf3za2z21zzreduce_betaz00 = BUNSPEC; 
BGl_za2predicatesza2z00zzreduce_betaz00 = BNIL; 
{ /* ./Reduce/sbeta.scm 69 */
obj_t BgL_list2834z00_703;
{ /* ./Reduce/sbeta.scm 69 */
obj_t BgL_arg2837z00_705;
{ /* ./Reduce/sbeta.scm 69 */
obj_t BgL_arg2840z00_706;
{ /* ./Reduce/sbeta.scm 69 */
obj_t BgL_arg2843z00_707;
{ /* ./Reduce/sbeta.scm 69 */
obj_t BgL_auxz00_2606;
BgL_auxz00_2606 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2843z00_707 = 
MAKE_PAIR(BgL_auxz00_2606, BNIL); } 
{ /* ./Reduce/sbeta.scm 69 */
obj_t BgL_auxz00_2609;
BgL_auxz00_2609 = 
BCHAR(((unsigned char)')')); 
BgL_arg2840z00_706 = 
MAKE_PAIR(BgL_auxz00_2609, BgL_arg2843z00_707); } } 
{ /* ./Reduce/sbeta.scm 69 */
obj_t BgL_auxz00_2612;
BgL_auxz00_2612 = 
BINT(BGl_za2removedza2z00zzreduce_betaz00); 
BgL_arg2837z00_705 = 
MAKE_PAIR(BgL_auxz00_2612, BgL_arg2840z00_706); } } 
BgL_list2834z00_703 = 
MAKE_PAIR(BGl_string4648z00zzreduce_betaz00, BgL_arg2837z00_705); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list2834z00_703); } 
return BgL_globalsz00_1;} 
}



/* _reduce-beta! */
obj_t BGl__reducezd2betaz12zc0zzreduce_betaz00(obj_t BgL_envz00_2470, obj_t BgL_globalsz00_2471)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 46 */
return 
BGl_reducezd2betaz12zc0zzreduce_betaz00(BgL_globalsz00_2471);} 
}



/* find-actual-expression */
BgL_nodez00_bglt BGl_findzd2actualzd2expressionz00zzreduce_betaz00(BgL_nodez00_bglt BgL_bodyz00_4)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 93 */
BGl_findzd2actualzd2expressionz00zzreduce_betaz00:
{ /* ./Reduce/sbeta.scm 94 */
bool_t BgL_test2846z00_708;
{ /* ./Reduce/sbeta.scm 94 */
obj_t BgL_obj1708z00_1562;
BgL_obj1708z00_1562 = 
(obj_t)(BgL_bodyz00_4); 
BgL_test2846z00_708 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1708z00_1562, BGl_sequencez00zzast_nodez00); } 
if(BgL_test2846z00_708)
{ /* ./Reduce/sbeta.scm 96 */
bool_t BgL_testz00_2622;
{ /* ./Reduce/sbeta.scm 96 */
bool_t BgL_testz00_2623;
{ /* ./Reduce/sbeta.scm 96 */
obj_t BgL_auxz00_2624;
{ /* ./Reduce/sbeta.scm 96 */
BgL_sequencez00_bglt BgL_obj1689z00_1563;
BgL_obj1689z00_1563 = 
(BgL_sequencez00_bglt)(BgL_bodyz00_4); 
BgL_auxz00_2624 = 
(((BgL_sequencez00_bglt)CREF(BgL_obj1689z00_1563))->BgL_nodesz00); } 
BgL_testz00_2623 = 
PAIRP(BgL_auxz00_2624); } 
if(BgL_testz00_2623)
{ /* ./Reduce/sbeta.scm 96 */
obj_t BgL_auxz00_2628;
{ /* ./Reduce/sbeta.scm 96 */
obj_t BgL_auxz00_2629;
{ /* ./Reduce/sbeta.scm 96 */
BgL_sequencez00_bglt BgL_obj1689z00_1565;
BgL_obj1689z00_1565 = 
(BgL_sequencez00_bglt)(BgL_bodyz00_4); 
BgL_auxz00_2629 = 
(((BgL_sequencez00_bglt)CREF(BgL_obj1689z00_1565))->BgL_nodesz00); } 
BgL_auxz00_2628 = 
CDR(BgL_auxz00_2629); } 
BgL_testz00_2622 = 
NULLP(BgL_auxz00_2628); }  else 
{ /* ./Reduce/sbeta.scm 96 */
BgL_testz00_2622 = ((bool_t)0)
; } } 
if(BgL_testz00_2622)
{ 
BgL_nodez00_bglt BgL_bodyz00_2634;
{ /* ./Reduce/sbeta.scm 97 */
obj_t BgL_auxz00_2635;
{ /* ./Reduce/sbeta.scm 97 */
obj_t BgL_auxz00_2636;
{ /* ./Reduce/sbeta.scm 97 */
BgL_sequencez00_bglt BgL_obj1689z00_1568;
BgL_obj1689z00_1568 = 
(BgL_sequencez00_bglt)(BgL_bodyz00_4); 
BgL_auxz00_2636 = 
(((BgL_sequencez00_bglt)CREF(BgL_obj1689z00_1568))->BgL_nodesz00); } 
BgL_auxz00_2635 = 
CAR(BgL_auxz00_2636); } 
BgL_bodyz00_2634 = 
(BgL_nodez00_bglt)(BgL_auxz00_2635); } 
BgL_bodyz00_4 = BgL_bodyz00_2634; 
goto BGl_findzd2actualzd2expressionz00zzreduce_betaz00;}  else 
{ /* ./Reduce/sbeta.scm 96 */
return BgL_bodyz00_4;} }  else 
{ /* ./Reduce/sbeta.scm 94 */
return BgL_bodyz00_4;} } } 
}



/* is-argument? */
bool_t BGl_iszd2argumentzf3z21zzreduce_betaz00(BgL_variablez00_bglt BgL_varz00_5, obj_t BgL_bodyz00_6)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 104 */
{ /* ./Reduce/sbeta.scm 106 */
bool_t BgL_test2868z00_717;
{ /* ./Reduce/sbeta.scm 106 */
bool_t BgL_res4098z00_1576;
{ /* ./Reduce/sbeta.scm 106 */
BgL_nodez00_bglt BgL_nodez00_1571;
BgL_nodez00_1571 = 
(BgL_nodez00_bglt)(BgL_bodyz00_6); 
{ /* ./Reduce/sbeta.scm 106 */
bool_t BgL__andtest_2689z00_1572;
{ /* ./Reduce/sbeta.scm 106 */
obj_t BgL_obj1640z00_1574;
BgL_obj1640z00_1574 = 
(obj_t)(BgL_nodez00_1571); 
BgL__andtest_2689z00_1572 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_1574, BGl_varz00zzast_nodez00); } 
if(BgL__andtest_2689z00_1572)
{ /* ./Reduce/sbeta.scm 106 */
obj_t BgL_auxz00_2650;obj_t BgL_auxz00_2645;
BgL_auxz00_2650 = 
(obj_t)(BgL_varz00_5); 
{ /* ./Reduce/sbeta.scm 106 */
BgL_variablez00_bglt BgL_auxz00_2646;
{ /* ./Reduce/sbeta.scm 106 */
BgL_varz00_bglt BgL_obj1625z00_1575;
BgL_obj1625z00_1575 = 
(BgL_varz00_bglt)(BgL_nodez00_1571); 
BgL_auxz00_2646 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1575))->BgL_variablez00); } 
BgL_auxz00_2645 = 
(obj_t)(BgL_auxz00_2646); } 
BgL_res4098z00_1576 = 
(BgL_auxz00_2645==BgL_auxz00_2650); }  else 
{ /* ./Reduce/sbeta.scm 106 */
BgL_res4098z00_1576 = ((bool_t)0); } } } 
BgL_test2868z00_717 = BgL_res4098z00_1576; } 
if(BgL_test2868z00_717)
{ /* ./Reduce/sbeta.scm 106 */
return ((bool_t)1);}  else 
{ /* ./Reduce/sbeta.scm 108 */
bool_t BgL_test2869z00_718;
BgL_test2869z00_718 = 
BGl_iszd2azf3z21zz__objectz00(BgL_bodyz00_6, BGl_castz00zzast_nodez00); 
if(BgL_test2869z00_718)
{ /* ./Reduce/sbeta.scm 108 */
{ /* ./Reduce/sbeta.scm 110 */
BgL_nodez00_bglt BgL_arg2871z00_720;
{ /* ./Reduce/sbeta.scm 110 */
BgL_castz00_bglt BgL_obj2280z00_1578;
BgL_obj2280z00_1578 = 
(BgL_castz00_bglt)(BgL_bodyz00_6); 
BgL_arg2871z00_720 = 
(((BgL_castz00_bglt)CREF(BgL_obj2280z00_1578))->BgL_argz00); } 
{ /* ./Reduce/sbeta.scm 110 */
bool_t BgL_res4099z00_1585;
{ /* ./Reduce/sbeta.scm 110 */
bool_t BgL__andtest_2689z00_1581;
{ /* ./Reduce/sbeta.scm 110 */
obj_t BgL_obj1640z00_1583;
BgL_obj1640z00_1583 = 
(obj_t)(BgL_arg2871z00_720); 
BgL__andtest_2689z00_1581 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_1583, BGl_varz00zzast_nodez00); } 
if(BgL__andtest_2689z00_1581)
{ /* ./Reduce/sbeta.scm 110 */
obj_t BgL_auxz00_2666;obj_t BgL_auxz00_2661;
BgL_auxz00_2666 = 
(obj_t)(BgL_varz00_5); 
{ /* ./Reduce/sbeta.scm 110 */
BgL_variablez00_bglt BgL_auxz00_2662;
{ /* ./Reduce/sbeta.scm 110 */
BgL_varz00_bglt BgL_obj1625z00_1584;
BgL_obj1625z00_1584 = 
(BgL_varz00_bglt)(BgL_arg2871z00_720); 
BgL_auxz00_2662 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1584))->BgL_variablez00); } 
BgL_auxz00_2661 = 
(obj_t)(BgL_auxz00_2662); } 
BgL_res4099z00_1585 = 
(BgL_auxz00_2661==BgL_auxz00_2666); }  else 
{ /* ./Reduce/sbeta.scm 110 */
BgL_res4099z00_1585 = ((bool_t)0); } } 
return BgL_res4099z00_1585;} } }  else 
{ /* ./Reduce/sbeta.scm 108 */
return ((bool_t)0);} } } } 
}



/* argument? */
bool_t BGl_argumentzf3zf3zzreduce_betaz00(BgL_variablez00_bglt BgL_varz00_7, obj_t BgL_argsz00_8)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 117 */
{ 
obj_t BgL_argsz00_721;
BgL_argsz00_721 = BgL_argsz00_8; 
BgL_loopz00_722:
if(
NULLP(BgL_argsz00_721))
{ /* ./Reduce/sbeta.scm 120 */
return ((bool_t)0);}  else 
{ /* ./Reduce/sbeta.scm 120 */
if(
BGl_iszd2argumentzf3z21zzreduce_betaz00(BgL_varz00_7, 
CAR(BgL_argsz00_721)))
{ /* ./Reduce/sbeta.scm 122 */
return ((bool_t)1);}  else 
{ /* ./Reduce/sbeta.scm 122 */
{ 
obj_t BgL_argsz00_2674;
BgL_argsz00_2674 = 
CDR(BgL_argsz00_721); 
BgL_argsz00_721 = BgL_argsz00_2674; 
goto BgL_loopz00_722;} } } } } 
}



/* make-args-list */
obj_t BGl_makezd2argszd2listz00zzreduce_betaz00(obj_t BgL_bindingsz00_9, obj_t BgL_argsz00_10)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 130 */
{ /* ./Reduce/sbeta.scm 131 */
bool_t BgL_test2888z00_728;
BgL_test2888z00_728 = 
NULLP(BgL_argsz00_10); 
if(BgL_test2888z00_728)
{ /* ./Reduce/sbeta.scm 131 */
return BNIL;}  else 
{ /* ./Reduce/sbeta.scm 131 */
obj_t BgL_head2670z00_729;
BgL_head2670z00_729 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2668z00_730;obj_t BgL_tail2671z00_731;
BgL_l2668z00_730 = BgL_argsz00_10; 
BgL_tail2671z00_731 = BgL_head2670z00_729; 
BgL_map2669z00_732:
{ /* ./Reduce/sbeta.scm 131 */
bool_t BgL_test2890z00_733;
BgL_test2890z00_733 = 
NULLP(BgL_l2668z00_730); 
if(BgL_test2890z00_733)
{ /* ./Reduce/sbeta.scm 131 */
return 
CDR(BgL_head2670z00_729);}  else 
{ /* ./Reduce/sbeta.scm 132 */
obj_t BgL_newtail2672z00_734;
{ /* ./Reduce/sbeta.scm 132 */
obj_t BgL_arg2898z00_736;
{ /* ./Reduce/sbeta.scm 132 */
obj_t BgL_az00_738;
BgL_az00_738 = 
CAR(BgL_l2668z00_730); 
{ 
obj_t BgL_bindingsz00_739;
BgL_bindingsz00_739 = BgL_bindingsz00_9; 
BgL_loopz00_740:
if(
NULLP(BgL_bindingsz00_739))
{ /* ./Reduce/sbeta.scm 134 */
BgL_arg2898z00_736 = BgL_az00_738; }  else 
{ /* ./Reduce/sbeta.scm 136 */
bool_t BgL_testz00_2685;
{ /* ./Reduce/sbeta.scm 136 */
BgL_variablez00_bglt BgL_auxz00_2686;
{ /* ./Reduce/sbeta.scm 136 */
obj_t BgL_auxz00_2687;
{ /* ./Reduce/sbeta.scm 136 */
obj_t BgL_auxz00_2688;
BgL_auxz00_2688 = 
CAR(BgL_bindingsz00_739); 
BgL_auxz00_2687 = 
CAR(BgL_auxz00_2688); } 
BgL_auxz00_2686 = 
(BgL_variablez00_bglt)(BgL_auxz00_2687); } 
BgL_testz00_2685 = 
BGl_iszd2argumentzf3z21zzreduce_betaz00(BgL_auxz00_2686, BgL_az00_738); } 
if(BgL_testz00_2685)
{ /* ./Reduce/sbeta.scm 136 */
{ /* ./Reduce/sbeta.scm 137 */
obj_t BgL_auxz00_2693;
BgL_auxz00_2693 = 
CAR(BgL_bindingsz00_739); 
BgL_arg2898z00_736 = 
CDR(BgL_auxz00_2693); } }  else 
{ /* ./Reduce/sbeta.scm 136 */
{ 
obj_t BgL_bindingsz00_2696;
BgL_bindingsz00_2696 = 
CDR(BgL_bindingsz00_739); 
BgL_bindingsz00_739 = BgL_bindingsz00_2696; 
goto BgL_loopz00_740;} } } } } 
BgL_newtail2672z00_734 = 
MAKE_PAIR(BgL_arg2898z00_736, BNIL); } 
SET_CDR(BgL_tail2671z00_731, BgL_newtail2672z00_734); 
{ /* ./Reduce/sbeta.scm 131 */
obj_t BgL_arg2894z00_735;
BgL_arg2894z00_735 = 
CDR(BgL_l2668z00_730); 
{ 
obj_t BgL_tail2671z00_2702;obj_t BgL_l2668z00_2701;
BgL_l2668z00_2701 = BgL_arg2894z00_735; 
BgL_tail2671z00_2702 = BgL_newtail2672z00_734; 
BgL_tail2671z00_731 = BgL_tail2671z00_2702; 
BgL_l2668z00_730 = BgL_l2668z00_2701; 
goto BgL_map2669z00_732;} } } } } } } } 
}



/* dangerous? */
bool_t BGl_dangerouszf3zf3zzreduce_betaz00(obj_t BgL_exprz00_11)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 145 */
{ /* ./Reduce/sbeta.scm 146 */
BgL_nodez00_bglt BgL_exprz00_745;
BgL_exprz00_745 = 
BGl_findzd2actualzd2expressionz00zzreduce_betaz00(
(BgL_nodez00_bglt)(BgL_exprz00_11)); 
{ /* ./Reduce/sbeta.scm 148 */
bool_t BgL_test2918z00_746;
{ /* ./Reduce/sbeta.scm 148 */
bool_t BgL_test2988z00_782;
{ /* ./Reduce/sbeta.scm 148 */
obj_t BgL_obj1640z00_1610;
BgL_obj1640z00_1610 = 
(obj_t)(BgL_exprz00_745); 
BgL_test2988z00_782 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_1610, BGl_varz00zzast_nodez00); } 
if(BgL_test2988z00_782)
{ /* ./Reduce/sbeta.scm 148 */
BgL_test2918z00_746 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 148 */
bool_t BgL_test2989z00_783;
{ /* ./Reduce/sbeta.scm 148 */
obj_t BgL_obj1619z00_1611;
BgL_obj1619z00_1611 = 
(obj_t)(BgL_exprz00_745); 
BgL_test2989z00_783 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1619z00_1611, BGl_atomz00zzast_nodez00); } 
if(BgL_test2989z00_783)
{ /* ./Reduce/sbeta.scm 148 */
BgL_test2918z00_746 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 148 */
obj_t BgL_obj1678z00_1612;
BgL_obj1678z00_1612 = 
(obj_t)(BgL_exprz00_745); 
BgL_test2918z00_746 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1678z00_1612, BGl_kwotez00zzast_nodez00); } } } 
if(BgL_test2918z00_746)
{ /* ./Reduce/sbeta.scm 148 */
return ((bool_t)0);}  else 
{ /* ./Reduce/sbeta.scm 150 */
bool_t BgL_test2919z00_747;
{ /* ./Reduce/sbeta.scm 150 */
obj_t BgL_obj2131z00_1613;
BgL_obj2131z00_1613 = 
(obj_t)(BgL_exprz00_745); 
BgL_test2919z00_747 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2131z00_1613, BGl_vrefz00zzast_nodez00); } 
if(BgL_test2919z00_747)
{ /* ./Reduce/sbeta.scm 150 */
{ 
obj_t BgL_l2673z00_748;
{ /* ./Reduce/sbeta.scm 151 */
BgL_externz00_bglt BgL_obj1817z00_1614;
BgL_obj1817z00_1614 = 
(BgL_externz00_bglt)(BgL_exprz00_745); 
BgL_l2673z00_748 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1614))->BgL_exprza2za2); } 
BgL_any2674z00_749:
if(
NULLP(BgL_l2673z00_748))
{ /* ./Reduce/sbeta.scm 151 */
return ((bool_t)0);}  else 
{ /* ./Reduce/sbeta.scm 151 */
if(
BGl_dangerouszf3zf3zzreduce_betaz00(
CAR(BgL_l2673z00_748)))
{ /* ./Reduce/sbeta.scm 151 */
return ((bool_t)1);}  else 
{ /* ./Reduce/sbeta.scm 151 */
{ 
obj_t BgL_l2673z00_2722;
BgL_l2673z00_2722 = 
CDR(BgL_l2673z00_748); 
BgL_l2673z00_748 = BgL_l2673z00_2722; 
goto BgL_any2674z00_749;} } } } }  else 
{ /* ./Reduce/sbeta.scm 152 */
bool_t BgL_test2935z00_755;
{ /* ./Reduce/sbeta.scm 152 */
obj_t BgL_obj1936z00_1618;
BgL_obj1936z00_1618 = 
(obj_t)(BgL_exprz00_745); 
BgL_test2935z00_755 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1936z00_1618, BGl_getfieldz00zzast_nodez00); } 
if(BgL_test2935z00_755)
{ /* ./Reduce/sbeta.scm 152 */
{ 
obj_t BgL_l2675z00_756;
{ /* ./Reduce/sbeta.scm 153 */
BgL_externz00_bglt BgL_obj1817z00_1619;
BgL_obj1817z00_1619 = 
(BgL_externz00_bglt)(BgL_exprz00_745); 
BgL_l2675z00_756 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1619))->BgL_exprza2za2); } 
BgL_any2676z00_757:
if(
NULLP(BgL_l2675z00_756))
{ /* ./Reduce/sbeta.scm 153 */
return ((bool_t)0);}  else 
{ /* ./Reduce/sbeta.scm 153 */
if(
BGl_dangerouszf3zf3zzreduce_betaz00(
CAR(BgL_l2675z00_756)))
{ /* ./Reduce/sbeta.scm 153 */
return ((bool_t)1);}  else 
{ /* ./Reduce/sbeta.scm 153 */
{ 
obj_t BgL_l2675z00_2734;
BgL_l2675z00_2734 = 
CDR(BgL_l2675z00_756); 
BgL_l2675z00_756 = BgL_l2675z00_2734; 
goto BgL_any2676z00_757;} } } } }  else 
{ /* ./Reduce/sbeta.scm 154 */
bool_t BgL_test2951z00_763;
{ /* ./Reduce/sbeta.scm 154 */
obj_t BgL_obj1746z00_1623;
BgL_obj1746z00_1623 = 
(obj_t)(BgL_exprz00_745); 
BgL_test2951z00_763 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1746z00_1623, BGl_appz00zzast_nodez00); } 
if(BgL_test2951z00_763)
{ /* ./Reduce/sbeta.scm 154 */
{ /* ./Reduce/sbeta.scm 158 */
BgL_variablez00_bglt BgL_varz00_765;
{ /* ./Reduce/sbeta.scm 158 */
BgL_varz00_bglt BgL_arg2982z00_781;
{ /* ./Reduce/sbeta.scm 158 */
BgL_appz00_bglt BgL_obj1719z00_1624;
BgL_obj1719z00_1624 = 
(BgL_appz00_bglt)(BgL_exprz00_745); 
BgL_arg2982z00_781 = 
(((BgL_appz00_bglt)CREF(BgL_obj1719z00_1624))->BgL_funz00); } 
BgL_varz00_765 = 
(((BgL_varz00_bglt)CREF(BgL_arg2982z00_781))->BgL_variablez00); } 
{ /* ./Reduce/sbeta.scm 158 */
BgL_valuez00_bglt BgL_valz00_766;
BgL_valz00_766 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_765))->BgL_valuez00); 
{ /* ./Reduce/sbeta.scm 159 */

{ /* ./Reduce/sbeta.scm 160 */
bool_t BgL_test2952z00_767;
{ /* ./Reduce/sbeta.scm 160 */
bool_t BgL_test2968z00_775;
{ /* ./Reduce/sbeta.scm 160 */
obj_t BgL_obj1240z00_1627;
BgL_obj1240z00_1627 = 
(obj_t)(BgL_varz00_765); 
BgL_test2968z00_775 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1627, BGl_globalz00zzast_varz00); } 
if(BgL_test2968z00_775)
{ /* ./Reduce/sbeta.scm 161 */
bool_t BgL_test2969z00_776;
{ /* ./Reduce/sbeta.scm 161 */
obj_t BgL_obj1489z00_1628;
BgL_obj1489z00_1628 = 
(obj_t)(BgL_valz00_766); 
BgL_test2969z00_776 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1489z00_1628, BGl_cfunz00zzast_varz00); } 
if(BgL_test2969z00_776)
{ /* ./Reduce/sbeta.scm 162 */
bool_t BgL_testz00_2751;
{ /* ./Reduce/sbeta.scm 162 */
BgL_cfunz00_bglt BgL_obj1446z00_1629;
BgL_obj1446z00_1629 = 
(BgL_cfunz00_bglt)(BgL_valz00_766); 
BgL_testz00_2751 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1446z00_1629))->BgL_macrozf3zf3); } 
if(BgL_testz00_2751)
{ /* ./Reduce/sbeta.scm 163 */
bool_t BgL_testz00_2754;
{ /* ./Reduce/sbeta.scm 163 */
obj_t BgL_auxz00_2755;
{ /* ./Reduce/sbeta.scm 163 */
obj_t BgL_auxz00_2756;
{ /* ./Reduce/sbeta.scm 163 */
BgL_globalz00_bglt BgL_obj1180z00_1630;
BgL_obj1180z00_1630 = 
(BgL_globalz00_bglt)(BgL_varz00_765); 
BgL_auxz00_2756 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1180z00_1630))->BgL_pragmaz00); } 
BgL_auxz00_2755 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)3)), BgL_auxz00_2756); } 
BgL_testz00_2754 = 
CBOOL(BgL_auxz00_2755); } 
if(BgL_testz00_2754)
{ /* ./Reduce/sbeta.scm 163 */
BgL_test2952z00_767 = ((bool_t)0); }  else 
{ /* ./Reduce/sbeta.scm 163 */
BgL_test2952z00_767 = ((bool_t)1); } }  else 
{ /* ./Reduce/sbeta.scm 162 */
BgL_test2952z00_767 = ((bool_t)0); } }  else 
{ /* ./Reduce/sbeta.scm 161 */
BgL_test2952z00_767 = ((bool_t)0); } }  else 
{ /* ./Reduce/sbeta.scm 160 */
BgL_test2952z00_767 = ((bool_t)0); } } 
if(BgL_test2952z00_767)
{ /* ./Reduce/sbeta.scm 160 */
return ((bool_t)1);}  else 
{ 
obj_t BgL_l2679z00_768;
{ /* ./Reduce/sbeta.scm 165 */
BgL_appz00_bglt BgL_obj1722z00_1631;
BgL_obj1722z00_1631 = 
(BgL_appz00_bglt)(BgL_exprz00_745); 
BgL_l2679z00_768 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1631))->BgL_argsz00); } 
BgL_any2680z00_769:
if(
NULLP(BgL_l2679z00_768))
{ /* ./Reduce/sbeta.scm 165 */
return ((bool_t)0);}  else 
{ /* ./Reduce/sbeta.scm 165 */
if(
BGl_dangerouszf3zf3zzreduce_betaz00(
CAR(BgL_l2679z00_768)))
{ /* ./Reduce/sbeta.scm 165 */
return ((bool_t)1);}  else 
{ /* ./Reduce/sbeta.scm 165 */
{ 
obj_t BgL_l2679z00_2768;
BgL_l2679z00_2768 = 
CDR(BgL_l2679z00_768); 
BgL_l2679z00_768 = BgL_l2679z00_2768; 
goto BgL_any2680z00_769;} } } } } } } } }  else 
{ /* ./Reduce/sbeta.scm 154 */
return ((bool_t)1);} } } } } } } 
}



/* side-effect-safe? */
bool_t BGl_sidezd2effectzd2safezf3zf3zzreduce_betaz00(obj_t BgL_exprz00_12)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 176 */
{ /* ./Reduce/sbeta.scm 177 */
BgL_nodez00_bglt BgL_exprz00_784;
BgL_exprz00_784 = 
BGl_findzd2actualzd2expressionz00zzreduce_betaz00(
(BgL_nodez00_bglt)(BgL_exprz00_12)); 
{ /* ./Reduce/sbeta.scm 179 */
bool_t BgL_test2994z00_785;
{ /* ./Reduce/sbeta.scm 179 */
bool_t BgL_test3057z00_815;
{ /* ./Reduce/sbeta.scm 179 */
obj_t BgL_obj1640z00_1635;
BgL_obj1640z00_1635 = 
(obj_t)(BgL_exprz00_784); 
BgL_test3057z00_815 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_1635, BGl_varz00zzast_nodez00); } 
if(BgL_test3057z00_815)
{ /* ./Reduce/sbeta.scm 179 */
BgL_test2994z00_785 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 179 */
bool_t BgL_test3058z00_816;
{ /* ./Reduce/sbeta.scm 179 */
obj_t BgL_obj1619z00_1636;
BgL_obj1619z00_1636 = 
(obj_t)(BgL_exprz00_784); 
BgL_test3058z00_816 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1619z00_1636, BGl_atomz00zzast_nodez00); } 
if(BgL_test3058z00_816)
{ /* ./Reduce/sbeta.scm 179 */
BgL_test2994z00_785 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 179 */
obj_t BgL_obj1678z00_1637;
BgL_obj1678z00_1637 = 
(obj_t)(BgL_exprz00_784); 
BgL_test2994z00_785 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1678z00_1637, BGl_kwotez00zzast_nodez00); } } } 
if(BgL_test2994z00_785)
{ /* ./Reduce/sbeta.scm 179 */
return ((bool_t)1);}  else 
{ /* ./Reduce/sbeta.scm 181 */
bool_t BgL_test2995z00_786;
{ /* ./Reduce/sbeta.scm 181 */
obj_t BgL_obj2131z00_1638;
BgL_obj2131z00_1638 = 
(obj_t)(BgL_exprz00_784); 
BgL_test2995z00_786 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2131z00_1638, BGl_vrefz00zzast_nodez00); } 
if(BgL_test2995z00_786)
{ /* ./Reduce/sbeta.scm 181 */
{ 
obj_t BgL_l2681z00_787;
{ /* ./Reduce/sbeta.scm 182 */
BgL_externz00_bglt BgL_obj1817z00_1639;
BgL_obj1817z00_1639 = 
(BgL_externz00_bglt)(BgL_exprz00_784); 
BgL_l2681z00_787 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1639))->BgL_exprza2za2); } 
BgL_every2682z00_788:
if(
NULLP(BgL_l2681z00_787))
{ /* ./Reduce/sbeta.scm 182 */
return ((bool_t)1);}  else 
{ /* ./Reduce/sbeta.scm 182 */
if(
BGl_sidezd2effectzd2safezf3zf3zzreduce_betaz00(
CAR(BgL_l2681z00_787)))
{ /* ./Reduce/sbeta.scm 182 */
{ 
obj_t BgL_l2681z00_2791;
BgL_l2681z00_2791 = 
CDR(BgL_l2681z00_787); 
BgL_l2681z00_787 = BgL_l2681z00_2791; 
goto BgL_every2682z00_788;} }  else 
{ /* ./Reduce/sbeta.scm 182 */
return ((bool_t)0);} } } }  else 
{ /* ./Reduce/sbeta.scm 183 */
bool_t BgL_test3011z00_794;
{ /* ./Reduce/sbeta.scm 183 */
obj_t BgL_obj1936z00_1643;
BgL_obj1936z00_1643 = 
(obj_t)(BgL_exprz00_784); 
BgL_test3011z00_794 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1936z00_1643, BGl_getfieldz00zzast_nodez00); } 
if(BgL_test3011z00_794)
{ /* ./Reduce/sbeta.scm 183 */
{ 
obj_t BgL_l2683z00_795;
{ /* ./Reduce/sbeta.scm 184 */
BgL_externz00_bglt BgL_obj1817z00_1644;
BgL_obj1817z00_1644 = 
(BgL_externz00_bglt)(BgL_exprz00_784); 
BgL_l2683z00_795 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1644))->BgL_exprza2za2); } 
BgL_every2684z00_796:
if(
NULLP(BgL_l2683z00_795))
{ /* ./Reduce/sbeta.scm 184 */
return ((bool_t)1);}  else 
{ /* ./Reduce/sbeta.scm 184 */
if(
BGl_sidezd2effectzd2safezf3zf3zzreduce_betaz00(
CAR(BgL_l2683z00_795)))
{ /* ./Reduce/sbeta.scm 184 */
{ 
obj_t BgL_l2683z00_2803;
BgL_l2683z00_2803 = 
CDR(BgL_l2683z00_795); 
BgL_l2683z00_795 = BgL_l2683z00_2803; 
goto BgL_every2684z00_796;} }  else 
{ /* ./Reduce/sbeta.scm 184 */
return ((bool_t)0);} } } }  else 
{ /* ./Reduce/sbeta.scm 185 */
bool_t BgL_test3027z00_802;
{ /* ./Reduce/sbeta.scm 185 */
obj_t BgL_obj1746z00_1648;
BgL_obj1746z00_1648 = 
(obj_t)(BgL_exprz00_784); 
BgL_test3027z00_802 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1746z00_1648, BGl_appz00zzast_nodez00); } 
if(BgL_test3027z00_802)
{ /* ./Reduce/sbeta.scm 185 */
{ /* ./Reduce/sbeta.scm 189 */
bool_t BgL_testz00_2810;
{ /* ./Reduce/sbeta.scm 189 */
BgL_funz00_bglt BgL_obj1302z00_1652;
{ /* ./Reduce/sbeta.scm 189 */
BgL_valuez00_bglt BgL_auxz00_2811;
{ /* ./Reduce/sbeta.scm 189 */
BgL_variablez00_bglt BgL_arg3048z00_813;
{ /* ./Reduce/sbeta.scm 189 */
BgL_varz00_bglt BgL_arg3051z00_814;
{ /* ./Reduce/sbeta.scm 189 */
BgL_appz00_bglt BgL_obj1719z00_1649;
BgL_obj1719z00_1649 = 
(BgL_appz00_bglt)(BgL_exprz00_784); 
BgL_arg3051z00_814 = 
(((BgL_appz00_bglt)CREF(BgL_obj1719z00_1649))->BgL_funz00); } 
BgL_arg3048z00_813 = 
(((BgL_varz00_bglt)CREF(BgL_arg3051z00_814))->BgL_variablez00); } 
BgL_auxz00_2811 = 
(((BgL_variablez00_bglt)CREF(BgL_arg3048z00_813))->BgL_valuez00); } 
BgL_obj1302z00_1652 = 
(BgL_funz00_bglt)(BgL_auxz00_2811); } 
{ /* ./Reduce/sbeta.scm 189 */
obj_t BgL_auxz00_2817;
BgL_auxz00_2817 = 
(((BgL_funz00_bglt)CREF(BgL_obj1302z00_1652))->BgL_sidezd2effectzf3z21); 
BgL_testz00_2810 = 
CBOOL(BgL_auxz00_2817); } } 
if(BgL_testz00_2810)
{ /* ./Reduce/sbeta.scm 189 */
return ((bool_t)0);}  else 
{ 
obj_t BgL_l2687z00_805;
{ /* ./Reduce/sbeta.scm 190 */
BgL_appz00_bglt BgL_obj1722z00_1653;
BgL_obj1722z00_1653 = 
(BgL_appz00_bglt)(BgL_exprz00_784); 
BgL_l2687z00_805 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1653))->BgL_argsz00); } 
BgL_every2688z00_806:
if(
NULLP(BgL_l2687z00_805))
{ /* ./Reduce/sbeta.scm 190 */
return ((bool_t)1);}  else 
{ /* ./Reduce/sbeta.scm 190 */
if(
BGl_sidezd2effectzd2safezf3zf3zzreduce_betaz00(
CAR(BgL_l2687z00_805)))
{ /* ./Reduce/sbeta.scm 190 */
{ 
obj_t BgL_l2687z00_2825;
BgL_l2687z00_2825 = 
CDR(BgL_l2687z00_805); 
BgL_l2687z00_805 = BgL_l2687z00_2825; 
goto BgL_every2688z00_806;} }  else 
{ /* ./Reduce/sbeta.scm 190 */
return ((bool_t)0);} } } } }  else 
{ /* ./Reduce/sbeta.scm 185 */
return ((bool_t)0);} } } } } } } 
}



/* predicate? */
obj_t BGl_predicatezf3zf3zzreduce_betaz00(BgL_appz00_bglt BgL_nodez00_30)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 425 */
{ /* ./Reduce/sbeta.scm 427 */
bool_t BgL__andtest_2760z00_821;
{ /* ./Reduce/sbeta.scm 427 */
obj_t BgL_auxz00_2829;
BgL_auxz00_2829 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_30))->BgL_argsz00); 
BgL__andtest_2760z00_821 = 
PAIRP(BgL_auxz00_2829); } 
if(BgL__andtest_2760z00_821)
{ /* ./Reduce/sbeta.scm 428 */
bool_t BgL__andtest_2761z00_822;
{ /* ./Reduce/sbeta.scm 428 */
obj_t BgL_auxz00_2833;
{ /* ./Reduce/sbeta.scm 428 */
obj_t BgL_auxz00_2834;
BgL_auxz00_2834 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_30))->BgL_argsz00); 
BgL_auxz00_2833 = 
CDR(BgL_auxz00_2834); } 
BgL__andtest_2761z00_822 = 
NULLP(BgL_auxz00_2833); } 
if(BgL__andtest_2761z00_822)
{ /* ./Reduce/sbeta.scm 429 */
bool_t BgL__andtest_2762z00_823;
{ /* ./Reduce/sbeta.scm 429 */
bool_t BgL__ortest_2763z00_826;
{ /* ./Reduce/sbeta.scm 429 */
bool_t BgL_test3086z00_829;
{ /* ./Reduce/sbeta.scm 429 */
obj_t BgL_arg3088z00_830;
{ /* ./Reduce/sbeta.scm 429 */
obj_t BgL_auxz00_2839;
BgL_auxz00_2839 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_30))->BgL_argsz00); 
BgL_arg3088z00_830 = 
CAR(BgL_auxz00_2839); } 
BgL_test3086z00_829 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_arg3088z00_830)); } 
if(BgL_test3086z00_829)
{ /* ./Reduce/sbeta.scm 429 */
BgL__ortest_2763z00_826 = ((bool_t)0); }  else 
{ /* ./Reduce/sbeta.scm 429 */
BgL__ortest_2763z00_826 = ((bool_t)1); } } 
if(BgL__ortest_2763z00_826)
{ /* ./Reduce/sbeta.scm 429 */
BgL__andtest_2762z00_823 = BgL__ortest_2763z00_826; }  else 
{ /* ./Reduce/sbeta.scm 430 */
obj_t BgL_auxz00_2846;
{ /* ./Reduce/sbeta.scm 430 */
obj_t BgL_auxz00_2847;
BgL_auxz00_2847 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_30))->BgL_argsz00); 
BgL_auxz00_2846 = 
CAR(BgL_auxz00_2847); } 
BgL__andtest_2762z00_823 = 
BGl_sidezd2effectzd2safezf3zf3zzreduce_betaz00(BgL_auxz00_2846); } } 
if(BgL__andtest_2762z00_823)
{ /* ./Reduce/sbeta.scm 431 */
BgL_variablez00_bglt BgL_arg3073z00_824;
{ /* ./Reduce/sbeta.scm 431 */
BgL_varz00_bglt BgL_arg3076z00_825;
BgL_arg3076z00_825 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_30))->BgL_funz00); 
BgL_arg3073z00_824 = 
(((BgL_varz00_bglt)CREF(BgL_arg3076z00_825))->BgL_variablez00); } 
return 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
(obj_t)(BgL_arg3073z00_824), BGl_za2predicatesza2z00zzreduce_betaz00);}  else 
{ /* ./Reduce/sbeta.scm 429 */
return BFALSE;} }  else 
{ /* ./Reduce/sbeta.scm 428 */
return BFALSE;} }  else 
{ /* ./Reduce/sbeta.scm 427 */
return BFALSE;} } } 
}



/* node-beta-predicate! */
obj_t BGl_nodezd2betazd2predicatez12z12zzreduce_betaz00(BgL_appz00_bglt BgL_nodez00_31)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 436 */
{ /* ./Reduce/sbeta.scm 438 */
BgL_variablez00_bglt BgL_vfunz00_836;BgL_typez00_bglt BgL_atypez00_837;
{ /* ./Reduce/sbeta.scm 438 */
BgL_varz00_bglt BgL_arg3140z00_854;
BgL_arg3140z00_854 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_31))->BgL_funz00); 
BgL_vfunz00_836 = 
(((BgL_varz00_bglt)CREF(BgL_arg3140z00_854))->BgL_variablez00); } 
{ /* ./Reduce/sbeta.scm 439 */
obj_t BgL_arg3144z00_855;
{ /* ./Reduce/sbeta.scm 439 */
obj_t BgL_auxz00_2858;
BgL_auxz00_2858 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_31))->BgL_argsz00); 
BgL_arg3144z00_855 = 
CAR(BgL_auxz00_2858); } 
BgL_atypez00_837 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_arg3144z00_855)); } 
{ /* ./Reduce/sbeta.scm 441 */
bool_t BgL_test3105z00_838;
{ /* ./Reduce/sbeta.scm 441 */
obj_t BgL_auxz00_2863;
BgL_auxz00_2863 = 
(obj_t)(BgL_atypez00_837); 
BgL_test3105z00_838 = 
(BgL_auxz00_2863==BGl_za2objza2z00zztype_cachez00); } 
if(BgL_test3105z00_838)
{ /* ./Reduce/sbeta.scm 441 */
return 
(obj_t)(BgL_nodez00_31);}  else 
{ /* ./Reduce/sbeta.scm 443 */
bool_t BgL_test3106z00_839;
{ /* ./Reduce/sbeta.scm 443 */
obj_t BgL_auxz00_2868;
BgL_auxz00_2868 = 
(obj_t)(BgL_vfunz00_836); 
BgL_test3106z00_839 = 
(BgL_auxz00_2868==BGl_za2czd2fixnumzf3za2z21zzreduce_betaz00); } 
if(BgL_test3106z00_839)
{ /* ./Reduce/sbeta.scm 443 */
{ /* ./Reduce/sbeta.scm 444 */
long BgL_za71za7_1678;
BgL_za71za7_1678 = BGl_za2removedza2z00zzreduce_betaz00; 
BGl_za2removedza2z00zzreduce_betaz00 = 
(BgL_za71za7_1678+((long)1)); } 
{ /* ./Reduce/sbeta.scm 447 */
obj_t BgL_arg3109z00_840;BgL_typez00_bglt BgL_arg3110z00_841;bool_t BgL_arg3111z00_842;
{ /* ./Reduce/sbeta.scm 447 */
BgL_nodez00_bglt BgL_obj1560z00_1680;
BgL_obj1560z00_1680 = 
(BgL_nodez00_bglt)(BgL_nodez00_31); 
BgL_arg3109z00_840 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1680))->BgL_locz00); } 
{ /* ./Reduce/sbeta.scm 446 */
BgL_nodez00_bglt BgL_obj1561z00_1681;
BgL_obj1561z00_1681 = 
(BgL_nodez00_bglt)(BgL_nodez00_31); 
BgL_arg3110z00_841 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1681))->BgL_typez00); } 
{ /* ./Reduce/sbeta.scm 448 */
bool_t BgL__ortest_2767z00_843;
{ /* ./Reduce/sbeta.scm 448 */
obj_t BgL_auxz00_2877;
BgL_auxz00_2877 = 
(obj_t)(BgL_atypez00_837); 
BgL__ortest_2767z00_843 = 
(BgL_auxz00_2877==BGl_za2bintza2z00zztype_cachez00); } 
if(BgL__ortest_2767z00_843)
{ /* ./Reduce/sbeta.scm 448 */
BgL_arg3111z00_842 = BgL__ortest_2767z00_843; }  else 
{ /* ./Reduce/sbeta.scm 449 */
bool_t BgL__ortest_2768z00_844;
{ /* ./Reduce/sbeta.scm 449 */
obj_t BgL_auxz00_2881;
BgL_auxz00_2881 = 
(obj_t)(BgL_atypez00_837); 
BgL__ortest_2768z00_844 = 
(BgL_auxz00_2881==BGl_za2intza2z00zztype_cachez00); } 
if(BgL__ortest_2768z00_844)
{ /* ./Reduce/sbeta.scm 449 */
BgL_arg3111z00_842 = BgL__ortest_2768z00_844; }  else 
{ /* ./Reduce/sbeta.scm 450 */
bool_t BgL__ortest_2769z00_845;
{ /* ./Reduce/sbeta.scm 450 */
obj_t BgL_auxz00_2885;
BgL_auxz00_2885 = 
(obj_t)(BgL_atypez00_837); 
BgL__ortest_2769z00_845 = 
(BgL_auxz00_2885==BGl_za2longza2z00zztype_cachez00); } 
if(BgL__ortest_2769z00_845)
{ /* ./Reduce/sbeta.scm 450 */
BgL_arg3111z00_842 = BgL__ortest_2769z00_845; }  else 
{ /* ./Reduce/sbeta.scm 451 */
obj_t BgL_auxz00_2889;
BgL_auxz00_2889 = 
(obj_t)(BgL_atypez00_837); 
BgL_arg3111z00_842 = 
(BgL_auxz00_2889==BGl_za2blongza2z00zztype_cachez00); } } } } 
{ /* ./Reduce/sbeta.scm 445 */
BgL_atomz00_bglt BgL_auxz00_2892;
BgL_auxz00_2892 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3109z00_840, BgL_arg3110z00_841, 
BBOOL(BgL_arg3111z00_842)); 
return 
(obj_t)(BgL_auxz00_2892);} } }  else 
{ /* ./Reduce/sbeta.scm 452 */
bool_t BgL_test3119z00_846;
{ /* ./Reduce/sbeta.scm 452 */
obj_t BgL_auxz00_2896;
BgL_auxz00_2896 = 
(obj_t)(BgL_vfunz00_836); 
BgL_test3119z00_846 = 
(BgL_auxz00_2896==BGl_za2czd2flonumzf3za2z21zzreduce_betaz00); } 
if(BgL_test3119z00_846)
{ /* ./Reduce/sbeta.scm 452 */
{ /* ./Reduce/sbeta.scm 453 */
long BgL_za71za7_1682;
BgL_za71za7_1682 = BGl_za2removedza2z00zzreduce_betaz00; 
BGl_za2removedza2z00zzreduce_betaz00 = 
(BgL_za71za7_1682+((long)1)); } 
{ /* ./Reduce/sbeta.scm 456 */
obj_t BgL_arg3122z00_847;BgL_typez00_bglt BgL_arg3123z00_848;bool_t BgL_arg3124z00_849;
{ /* ./Reduce/sbeta.scm 456 */
BgL_nodez00_bglt BgL_obj1560z00_1684;
BgL_obj1560z00_1684 = 
(BgL_nodez00_bglt)(BgL_nodez00_31); 
BgL_arg3122z00_847 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1684))->BgL_locz00); } 
{ /* ./Reduce/sbeta.scm 455 */
BgL_nodez00_bglt BgL_obj1561z00_1685;
BgL_obj1561z00_1685 = 
(BgL_nodez00_bglt)(BgL_nodez00_31); 
BgL_arg3123z00_848 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1685))->BgL_typez00); } 
{ /* ./Reduce/sbeta.scm 457 */
bool_t BgL__ortest_2771z00_850;
{ /* ./Reduce/sbeta.scm 457 */
obj_t BgL_auxz00_2905;
BgL_auxz00_2905 = 
(obj_t)(BgL_atypez00_837); 
BgL__ortest_2771z00_850 = 
(BgL_auxz00_2905==BGl_za2realza2z00zztype_cachez00); } 
if(BgL__ortest_2771z00_850)
{ /* ./Reduce/sbeta.scm 457 */
BgL_arg3124z00_849 = BgL__ortest_2771z00_850; }  else 
{ /* ./Reduce/sbeta.scm 458 */
obj_t BgL_auxz00_2909;
BgL_auxz00_2909 = 
(obj_t)(BgL_atypez00_837); 
BgL_arg3124z00_849 = 
(BgL_auxz00_2909==BGl_za2brealza2z00zztype_cachez00); } } 
{ /* ./Reduce/sbeta.scm 454 */
BgL_atomz00_bglt BgL_auxz00_2912;
BgL_auxz00_2912 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3122z00_847, BgL_arg3123z00_848, 
BBOOL(BgL_arg3124z00_849)); 
return 
(obj_t)(BgL_auxz00_2912);} } }  else 
{ /* ./Reduce/sbeta.scm 452 */
{ /* ./Reduce/sbeta.scm 460 */
obj_t BgL_arg3133z00_853;
BgL_arg3133z00_853 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_31)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string4649z00zzreduce_betaz00, BGl_string4650z00zzreduce_betaz00, BgL_arg3133z00_853);} } } } } } } 
}



/* node-beta*! */
obj_t BGl_nodezd2betaza2z12z62zzreduce_betaz00(obj_t BgL_nodesz00_32)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 467 */
{ 
obj_t BgL_nodesz00_857;
BgL_nodesz00_857 = BgL_nodesz00_32; 
BgL_loopz00_858:
{ /* ./Reduce/sbeta.scm 469 */
bool_t BgL_test3151z00_859;
BgL_test3151z00_859 = 
NULLP(BgL_nodesz00_857); 
if(BgL_test3151z00_859)
{ /* ./Reduce/sbeta.scm 469 */
return BUNSPEC;}  else 
{ /* ./Reduce/sbeta.scm 469 */
{ /* ./Reduce/sbeta.scm 472 */
BgL_nodez00_bglt BgL_arg3153z00_860;
{ /* ./Reduce/sbeta.scm 472 */
obj_t BgL_arg3156z00_861;
BgL_arg3156z00_861 = 
CAR(BgL_nodesz00_857); 
{ /* ./Reduce/sbeta.scm 472 */
BgL_nodez00_bglt BgL_res4102z00_1714;
{ /* ./Reduce/sbeta.scm 472 */
BgL_nodez00_bglt BgL_nodez00_1688;
BgL_nodez00_1688 = 
(BgL_nodez00_bglt)(BgL_arg3156z00_861); 
{ /* ./Reduce/sbeta.scm 472 */
obj_t BgL_method2774z00_1689;
{ /* ./Reduce/sbeta.scm 472 */
BgL_objectz00_bglt BgL_objz00_1690;
BgL_objz00_1690 = 
(BgL_objectz00_bglt)(BgL_nodez00_1688); 
{ /* ./Reduce/sbeta.scm 472 */
long BgL_objzd2classzd2numz00_1691;
BgL_objzd2classzd2numz00_1691 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1690); 
{ /* ./Reduce/sbeta.scm 472 */
obj_t BgL_arg2017z00_1692;
{ /* ./Reduce/sbeta.scm 472 */
int BgL_auxz00_2925;
BgL_auxz00_2925 = 
(int)(((long)1)); 
BgL_arg2017z00_1692 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_2925); } 
{ /* ./Reduce/sbeta.scm 472 */
int BgL_offsetz00_1695;
BgL_offsetz00_1695 = 
(int)(BgL_objzd2classzd2numz00_1691); 
{ /* ./Reduce/sbeta.scm 472 */
long BgL_offsetz00_1696;
{ /* ./Reduce/sbeta.scm 472 */
long BgL_auxz00_2929;
BgL_auxz00_2929 = 
(long)(BgL_offsetz00_1695); 
BgL_offsetz00_1696 = 
(BgL_auxz00_2929-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 472 */
long BgL_modz00_1697;
{ /* ./Reduce/sbeta.scm 472 */
int BgL_arg2028z00_1698;
BgL_arg2028z00_1698 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 472 */
long BgL_n2z00_1706;
BgL_n2z00_1706 = 
(long)(BgL_arg2028z00_1698); 
BgL_modz00_1697 = 
(BgL_offsetz00_1696/BgL_n2z00_1706); } } 
{ /* ./Reduce/sbeta.scm 472 */
long BgL_restz00_1699;
{ /* ./Reduce/sbeta.scm 472 */
int BgL_arg2024z00_1700;
BgL_arg2024z00_1700 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 472 */
long BgL_n2z00_1709;
BgL_n2z00_1709 = 
(long)(BgL_arg2024z00_1700); 
BgL_restz00_1699 = 
(BgL_offsetz00_1696%BgL_n2z00_1709); } } 
{ /* ./Reduce/sbeta.scm 472 */

{ /* ./Reduce/sbeta.scm 472 */
obj_t BgL_bucketz00_1701;
{ /* ./Reduce/sbeta.scm 472 */
int BgL_kz00_1711;
BgL_kz00_1711 = 
(int)(BgL_modz00_1697); 
BgL_bucketz00_1701 = 
VECTOR_REF(BgL_arg2017z00_1692,BgL_kz00_1711); } 
{ /* ./Reduce/sbeta.scm 472 */
int BgL_kz00_1713;
BgL_kz00_1713 = 
(int)(BgL_restz00_1699); 
BgL_method2774z00_1689 = 
VECTOR_REF(BgL_bucketz00_1701,BgL_kz00_1713); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 472 */
obj_t BgL_auxz00_2942;
BgL_auxz00_2942 = 
PROCEDURE_ENTRY(BgL_method2774z00_1689)(BgL_method2774z00_1689, 
(obj_t)(BgL_nodez00_1688), BEOA); 
BgL_res4102z00_1714 = 
(BgL_nodez00_bglt)(BgL_auxz00_2942); } } } 
BgL_arg3153z00_860 = BgL_res4102z00_1714; } } 
{ /* ./Reduce/sbeta.scm 472 */
obj_t BgL_objz00_1716;
BgL_objz00_1716 = 
(obj_t)(BgL_arg3153z00_860); 
SET_CAR(BgL_nodesz00_857, BgL_objz00_1716); } } 
{ /* ./Reduce/sbeta.scm 473 */
obj_t BgL_arg3160z00_862;
BgL_arg3160z00_862 = 
CDR(BgL_nodesz00_857); 
{ 
obj_t BgL_nodesz00_2950;
BgL_nodesz00_2950 = BgL_arg3160z00_862; 
BgL_nodesz00_857 = BgL_nodesz00_2950; 
goto BgL_loopz00_858;} } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzreduce_betaz00()
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 25 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_nodezd2betaz12zd2default2772zd2envzc0zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4651z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_sequencez00zzast_nodez00, BGl_proc4652z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4653z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_funcallz00zzast_nodez00, BGl_proc4654z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_castz00zzast_nodez00, BGl_proc4655z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_setqz00zzast_nodez00, BGl_proc4656z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_conditionalz00zzast_nodez00, BGl_proc4657z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_selectz00zzast_nodez00, BGl_proc4658z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4659z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4660z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4661z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4662z00zzreduce_betaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4663z00zzreduce_betaz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BGl_appz00zzast_nodez00, BGl_proc4664z00zzreduce_betaz00);} 
}



/* node-beta!-app2802 */
obj_t BGl_nodezd2betaz12zd2app2802z12zzreduce_betaz00(obj_t BgL_envz00_2488, obj_t BgL_nodez00_2489)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 415 */
{ 
BgL_appz00_bglt BgL_nodez00_1517;
BgL_nodez00_1517 = 
(BgL_appz00_bglt)(BgL_nodez00_2489); 
{ /* ./Reduce/sbeta.scm 417 */
obj_t BgL_arg4066z00_1521;
BgL_arg4066z00_1521 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1517))->BgL_argsz00); 
BGl_nodezd2betaza2z12z62zzreduce_betaz00(BgL_arg4066z00_1521); } 
{ /* ./Reduce/sbeta.scm 418 */
bool_t BgL_test4069z00_1522;
{ /* ./Reduce/sbeta.scm 418 */
obj_t BgL_auxz00_2968;
BgL_auxz00_2968 = 
BGl_predicatezf3zf3zzreduce_betaz00(BgL_nodez00_1517); 
BgL_test4069z00_1522 = 
CBOOL(BgL_auxz00_2968); } 
if(BgL_test4069z00_1522)
{ /* ./Reduce/sbeta.scm 418 */
return 
BGl_nodezd2betazd2predicatez12z12zzreduce_betaz00(BgL_nodez00_1517);}  else 
{ /* ./Reduce/sbeta.scm 418 */
return 
(obj_t)(BgL_nodez00_1517);} } } } 
}



/* node-beta!-box-set!2800 */
obj_t BGl_nodezd2betaz12zd2boxzd2setz122800zd2zzreduce_betaz00(obj_t BgL_envz00_2490, obj_t BgL_nodez00_2491)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 407 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1509;
{ /* ./Reduce/sbeta.scm 408 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_2975;
BgL_nodez00_1509 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2491); 
{ /* ./Reduce/sbeta.scm 409 */
BgL_nodez00_bglt BgL_arg4053z00_1513;
{ /* ./Reduce/sbeta.scm 409 */
BgL_nodez00_bglt BgL_arg4056z00_1514;
BgL_arg4056z00_1514 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1509))->BgL_valuez00); 
{ /* ./Reduce/sbeta.scm 409 */
BgL_nodez00_bglt BgL_res4161z00_2441;
{ /* ./Reduce/sbeta.scm 409 */
obj_t BgL_method2774z00_2416;
{ /* ./Reduce/sbeta.scm 409 */
BgL_objectz00_bglt BgL_objz00_2417;
BgL_objz00_2417 = 
(BgL_objectz00_bglt)(BgL_arg4056z00_1514); 
{ /* ./Reduce/sbeta.scm 409 */
long BgL_objzd2classzd2numz00_2418;
BgL_objzd2classzd2numz00_2418 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2417); 
{ /* ./Reduce/sbeta.scm 409 */
obj_t BgL_arg2017z00_2419;
{ /* ./Reduce/sbeta.scm 409 */
int BgL_auxz00_2979;
BgL_auxz00_2979 = 
(int)(((long)1)); 
BgL_arg2017z00_2419 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_2979); } 
{ /* ./Reduce/sbeta.scm 409 */
int BgL_offsetz00_2422;
BgL_offsetz00_2422 = 
(int)(BgL_objzd2classzd2numz00_2418); 
{ /* ./Reduce/sbeta.scm 409 */
long BgL_offsetz00_2423;
{ /* ./Reduce/sbeta.scm 409 */
long BgL_auxz00_2983;
BgL_auxz00_2983 = 
(long)(BgL_offsetz00_2422); 
BgL_offsetz00_2423 = 
(BgL_auxz00_2983-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 409 */
long BgL_modz00_2424;
{ /* ./Reduce/sbeta.scm 409 */
int BgL_arg2028z00_2425;
BgL_arg2028z00_2425 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 409 */
long BgL_n2z00_2433;
BgL_n2z00_2433 = 
(long)(BgL_arg2028z00_2425); 
BgL_modz00_2424 = 
(BgL_offsetz00_2423/BgL_n2z00_2433); } } 
{ /* ./Reduce/sbeta.scm 409 */
long BgL_restz00_2426;
{ /* ./Reduce/sbeta.scm 409 */
int BgL_arg2024z00_2427;
BgL_arg2024z00_2427 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 409 */
long BgL_n2z00_2436;
BgL_n2z00_2436 = 
(long)(BgL_arg2024z00_2427); 
BgL_restz00_2426 = 
(BgL_offsetz00_2423%BgL_n2z00_2436); } } 
{ /* ./Reduce/sbeta.scm 409 */

{ /* ./Reduce/sbeta.scm 409 */
obj_t BgL_bucketz00_2428;
{ /* ./Reduce/sbeta.scm 409 */
int BgL_kz00_2438;
BgL_kz00_2438 = 
(int)(BgL_modz00_2424); 
BgL_bucketz00_2428 = 
VECTOR_REF(BgL_arg2017z00_2419,BgL_kz00_2438); } 
{ /* ./Reduce/sbeta.scm 409 */
int BgL_kz00_2440;
BgL_kz00_2440 = 
(int)(BgL_restz00_2426); 
BgL_method2774z00_2416 = 
VECTOR_REF(BgL_bucketz00_2428,BgL_kz00_2440); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 409 */
obj_t BgL_auxz00_2996;
BgL_auxz00_2996 = 
PROCEDURE_ENTRY(BgL_method2774z00_2416)(BgL_method2774z00_2416, 
(obj_t)(BgL_arg4056z00_1514), BEOA); 
BgL_res4161z00_2441 = 
(BgL_nodez00_bglt)(BgL_auxz00_2996); } } 
BgL_arg4053z00_1513 = BgL_res4161z00_2441; } } 
{ /* ./Reduce/sbeta.scm 409 */
BgL_boxzd2setz12zc0_bglt BgL_obj2645z00_2442;BgL_nodez00_bglt BgL_val2644z00_2443;
BgL_obj2645z00_2442 = BgL_nodez00_1509; 
BgL_val2644z00_2443 = BgL_arg4053z00_1513; 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2645z00_2442))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2644z00_2443), BUNSPEC); } } 
BgL_auxz00_2975 = BgL_nodez00_1509; 
return 
(obj_t)(BgL_auxz00_2975);} } } 
}



/* node-beta!-make-box2798 */
obj_t BGl_nodezd2betaz12zd2makezd2box2798zc0zzreduce_betaz00(obj_t BgL_envz00_2492, obj_t BgL_nodez00_2493)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 399 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1501;
{ /* ./Reduce/sbeta.scm 400 */
BgL_makezd2boxzd2_bglt BgL_auxz00_3004;
BgL_nodez00_1501 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2493); 
{ /* ./Reduce/sbeta.scm 401 */
BgL_nodez00_bglt BgL_arg4040z00_1505;
{ /* ./Reduce/sbeta.scm 401 */
BgL_nodez00_bglt BgL_arg4043z00_1506;
BgL_arg4043z00_1506 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1501))->BgL_valuez00); 
{ /* ./Reduce/sbeta.scm 401 */
BgL_nodez00_bglt BgL_res4158z00_2411;
{ /* ./Reduce/sbeta.scm 401 */
obj_t BgL_method2774z00_2386;
{ /* ./Reduce/sbeta.scm 401 */
BgL_objectz00_bglt BgL_objz00_2387;
BgL_objz00_2387 = 
(BgL_objectz00_bglt)(BgL_arg4043z00_1506); 
{ /* ./Reduce/sbeta.scm 401 */
long BgL_objzd2classzd2numz00_2388;
BgL_objzd2classzd2numz00_2388 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2387); 
{ /* ./Reduce/sbeta.scm 401 */
obj_t BgL_arg2017z00_2389;
{ /* ./Reduce/sbeta.scm 401 */
int BgL_auxz00_3008;
BgL_auxz00_3008 = 
(int)(((long)1)); 
BgL_arg2017z00_2389 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3008); } 
{ /* ./Reduce/sbeta.scm 401 */
int BgL_offsetz00_2392;
BgL_offsetz00_2392 = 
(int)(BgL_objzd2classzd2numz00_2388); 
{ /* ./Reduce/sbeta.scm 401 */
long BgL_offsetz00_2393;
{ /* ./Reduce/sbeta.scm 401 */
long BgL_auxz00_3012;
BgL_auxz00_3012 = 
(long)(BgL_offsetz00_2392); 
BgL_offsetz00_2393 = 
(BgL_auxz00_3012-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 401 */
long BgL_modz00_2394;
{ /* ./Reduce/sbeta.scm 401 */
int BgL_arg2028z00_2395;
BgL_arg2028z00_2395 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 401 */
long BgL_n2z00_2403;
BgL_n2z00_2403 = 
(long)(BgL_arg2028z00_2395); 
BgL_modz00_2394 = 
(BgL_offsetz00_2393/BgL_n2z00_2403); } } 
{ /* ./Reduce/sbeta.scm 401 */
long BgL_restz00_2396;
{ /* ./Reduce/sbeta.scm 401 */
int BgL_arg2024z00_2397;
BgL_arg2024z00_2397 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 401 */
long BgL_n2z00_2406;
BgL_n2z00_2406 = 
(long)(BgL_arg2024z00_2397); 
BgL_restz00_2396 = 
(BgL_offsetz00_2393%BgL_n2z00_2406); } } 
{ /* ./Reduce/sbeta.scm 401 */

{ /* ./Reduce/sbeta.scm 401 */
obj_t BgL_bucketz00_2398;
{ /* ./Reduce/sbeta.scm 401 */
int BgL_kz00_2408;
BgL_kz00_2408 = 
(int)(BgL_modz00_2394); 
BgL_bucketz00_2398 = 
VECTOR_REF(BgL_arg2017z00_2389,BgL_kz00_2408); } 
{ /* ./Reduce/sbeta.scm 401 */
int BgL_kz00_2410;
BgL_kz00_2410 = 
(int)(BgL_restz00_2396); 
BgL_method2774z00_2386 = 
VECTOR_REF(BgL_bucketz00_2398,BgL_kz00_2410); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 401 */
obj_t BgL_auxz00_3025;
BgL_auxz00_3025 = 
PROCEDURE_ENTRY(BgL_method2774z00_2386)(BgL_method2774z00_2386, 
(obj_t)(BgL_arg4043z00_1506), BEOA); 
BgL_res4158z00_2411 = 
(BgL_nodez00_bglt)(BgL_auxz00_3025); } } 
BgL_arg4040z00_1505 = BgL_res4158z00_2411; } } 
{ /* ./Reduce/sbeta.scm 401 */
BgL_makezd2boxzd2_bglt BgL_obj2584z00_2412;BgL_nodez00_bglt BgL_val2583z00_2413;
BgL_obj2584z00_2412 = BgL_nodez00_1501; 
BgL_val2583z00_2413 = BgL_arg4040z00_1505; 
((((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2584z00_2412))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2583z00_2413), BUNSPEC); } } 
BgL_auxz00_3004 = BgL_nodez00_1501; 
return 
(obj_t)(BgL_auxz00_3004);} } } 
}



/* node-beta!-jump-ex-it2796 */
obj_t BGl_nodezd2betaz12zd2jumpzd2exzd2it2796z12zzreduce_betaz00(obj_t BgL_envz00_2494, obj_t BgL_nodez00_2495)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 390 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1491;
{ /* ./Reduce/sbeta.scm 391 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_3033;
BgL_nodez00_1491 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2495); 
{ /* ./Reduce/sbeta.scm 392 */
BgL_nodez00_bglt BgL_arg4020z00_1495;
{ /* ./Reduce/sbeta.scm 392 */
BgL_nodez00_bglt BgL_arg4023z00_1496;
BgL_arg4023z00_1496 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1491))->BgL_exitz00); 
{ /* ./Reduce/sbeta.scm 392 */
BgL_nodez00_bglt BgL_res4152z00_2351;
{ /* ./Reduce/sbeta.scm 392 */
obj_t BgL_method2774z00_2326;
{ /* ./Reduce/sbeta.scm 392 */
BgL_objectz00_bglt BgL_objz00_2327;
BgL_objz00_2327 = 
(BgL_objectz00_bglt)(BgL_arg4023z00_1496); 
{ /* ./Reduce/sbeta.scm 392 */
long BgL_objzd2classzd2numz00_2328;
BgL_objzd2classzd2numz00_2328 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2327); 
{ /* ./Reduce/sbeta.scm 392 */
obj_t BgL_arg2017z00_2329;
{ /* ./Reduce/sbeta.scm 392 */
int BgL_auxz00_3037;
BgL_auxz00_3037 = 
(int)(((long)1)); 
BgL_arg2017z00_2329 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3037); } 
{ /* ./Reduce/sbeta.scm 392 */
int BgL_offsetz00_2332;
BgL_offsetz00_2332 = 
(int)(BgL_objzd2classzd2numz00_2328); 
{ /* ./Reduce/sbeta.scm 392 */
long BgL_offsetz00_2333;
{ /* ./Reduce/sbeta.scm 392 */
long BgL_auxz00_3041;
BgL_auxz00_3041 = 
(long)(BgL_offsetz00_2332); 
BgL_offsetz00_2333 = 
(BgL_auxz00_3041-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 392 */
long BgL_modz00_2334;
{ /* ./Reduce/sbeta.scm 392 */
int BgL_arg2028z00_2335;
BgL_arg2028z00_2335 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 392 */
long BgL_n2z00_2343;
BgL_n2z00_2343 = 
(long)(BgL_arg2028z00_2335); 
BgL_modz00_2334 = 
(BgL_offsetz00_2333/BgL_n2z00_2343); } } 
{ /* ./Reduce/sbeta.scm 392 */
long BgL_restz00_2336;
{ /* ./Reduce/sbeta.scm 392 */
int BgL_arg2024z00_2337;
BgL_arg2024z00_2337 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 392 */
long BgL_n2z00_2346;
BgL_n2z00_2346 = 
(long)(BgL_arg2024z00_2337); 
BgL_restz00_2336 = 
(BgL_offsetz00_2333%BgL_n2z00_2346); } } 
{ /* ./Reduce/sbeta.scm 392 */

{ /* ./Reduce/sbeta.scm 392 */
obj_t BgL_bucketz00_2338;
{ /* ./Reduce/sbeta.scm 392 */
int BgL_kz00_2348;
BgL_kz00_2348 = 
(int)(BgL_modz00_2334); 
BgL_bucketz00_2338 = 
VECTOR_REF(BgL_arg2017z00_2329,BgL_kz00_2348); } 
{ /* ./Reduce/sbeta.scm 392 */
int BgL_kz00_2350;
BgL_kz00_2350 = 
(int)(BgL_restz00_2336); 
BgL_method2774z00_2326 = 
VECTOR_REF(BgL_bucketz00_2338,BgL_kz00_2350); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 392 */
obj_t BgL_auxz00_3054;
BgL_auxz00_3054 = 
PROCEDURE_ENTRY(BgL_method2774z00_2326)(BgL_method2774z00_2326, 
(obj_t)(BgL_arg4023z00_1496), BEOA); 
BgL_res4152z00_2351 = 
(BgL_nodez00_bglt)(BgL_auxz00_3054); } } 
BgL_arg4020z00_1495 = BgL_res4152z00_2351; } } 
{ /* ./Reduce/sbeta.scm 392 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2552z00_2352;BgL_nodez00_bglt BgL_val2551z00_2353;
BgL_obj2552z00_2352 = BgL_nodez00_1491; 
BgL_val2551z00_2353 = BgL_arg4020z00_1495; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2552z00_2352))->BgL_exitz00) = ((BgL_nodez00_bglt)BgL_val2551z00_2353), BUNSPEC); } } 
{ /* ./Reduce/sbeta.scm 393 */
BgL_nodez00_bglt BgL_arg4027z00_1497;
{ /* ./Reduce/sbeta.scm 393 */
BgL_nodez00_bglt BgL_arg4030z00_1498;
BgL_arg4030z00_1498 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1491))->BgL_valuez00); 
{ /* ./Reduce/sbeta.scm 393 */
BgL_nodez00_bglt BgL_res4155z00_2381;
{ /* ./Reduce/sbeta.scm 393 */
obj_t BgL_method2774z00_2356;
{ /* ./Reduce/sbeta.scm 393 */
BgL_objectz00_bglt BgL_objz00_2357;
BgL_objz00_2357 = 
(BgL_objectz00_bglt)(BgL_arg4030z00_1498); 
{ /* ./Reduce/sbeta.scm 393 */
long BgL_objzd2classzd2numz00_2358;
BgL_objzd2classzd2numz00_2358 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2357); 
{ /* ./Reduce/sbeta.scm 393 */
obj_t BgL_arg2017z00_2359;
{ /* ./Reduce/sbeta.scm 393 */
int BgL_auxz00_3063;
BgL_auxz00_3063 = 
(int)(((long)1)); 
BgL_arg2017z00_2359 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3063); } 
{ /* ./Reduce/sbeta.scm 393 */
int BgL_offsetz00_2362;
BgL_offsetz00_2362 = 
(int)(BgL_objzd2classzd2numz00_2358); 
{ /* ./Reduce/sbeta.scm 393 */
long BgL_offsetz00_2363;
{ /* ./Reduce/sbeta.scm 393 */
long BgL_auxz00_3067;
BgL_auxz00_3067 = 
(long)(BgL_offsetz00_2362); 
BgL_offsetz00_2363 = 
(BgL_auxz00_3067-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 393 */
long BgL_modz00_2364;
{ /* ./Reduce/sbeta.scm 393 */
int BgL_arg2028z00_2365;
BgL_arg2028z00_2365 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 393 */
long BgL_n2z00_2373;
BgL_n2z00_2373 = 
(long)(BgL_arg2028z00_2365); 
BgL_modz00_2364 = 
(BgL_offsetz00_2363/BgL_n2z00_2373); } } 
{ /* ./Reduce/sbeta.scm 393 */
long BgL_restz00_2366;
{ /* ./Reduce/sbeta.scm 393 */
int BgL_arg2024z00_2367;
BgL_arg2024z00_2367 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 393 */
long BgL_n2z00_2376;
BgL_n2z00_2376 = 
(long)(BgL_arg2024z00_2367); 
BgL_restz00_2366 = 
(BgL_offsetz00_2363%BgL_n2z00_2376); } } 
{ /* ./Reduce/sbeta.scm 393 */

{ /* ./Reduce/sbeta.scm 393 */
obj_t BgL_bucketz00_2368;
{ /* ./Reduce/sbeta.scm 393 */
int BgL_kz00_2378;
BgL_kz00_2378 = 
(int)(BgL_modz00_2364); 
BgL_bucketz00_2368 = 
VECTOR_REF(BgL_arg2017z00_2359,BgL_kz00_2378); } 
{ /* ./Reduce/sbeta.scm 393 */
int BgL_kz00_2380;
BgL_kz00_2380 = 
(int)(BgL_restz00_2366); 
BgL_method2774z00_2356 = 
VECTOR_REF(BgL_bucketz00_2368,BgL_kz00_2380); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 393 */
obj_t BgL_auxz00_3080;
BgL_auxz00_3080 = 
PROCEDURE_ENTRY(BgL_method2774z00_2356)(BgL_method2774z00_2356, 
(obj_t)(BgL_arg4030z00_1498), BEOA); 
BgL_res4155z00_2381 = 
(BgL_nodez00_bglt)(BgL_auxz00_3080); } } 
BgL_arg4027z00_1497 = BgL_res4155z00_2381; } } 
{ /* ./Reduce/sbeta.scm 393 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2555z00_2382;BgL_nodez00_bglt BgL_val2554z00_2383;
BgL_obj2555z00_2382 = BgL_nodez00_1491; 
BgL_val2554z00_2383 = BgL_arg4027z00_1497; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2555z00_2382))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2554z00_2383), BUNSPEC); } } 
BgL_auxz00_3033 = BgL_nodez00_1491; 
return 
(obj_t)(BgL_auxz00_3033);} } } 
}



/* node-beta!-set-ex-it2794 */
obj_t BGl_nodezd2betaz12zd2setzd2exzd2it2794z12zzreduce_betaz00(obj_t BgL_envz00_2496, obj_t BgL_nodez00_2497)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 382 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1483;
{ /* ./Reduce/sbeta.scm 383 */
BgL_setzd2exzd2itz00_bglt BgL_auxz00_3088;
BgL_nodez00_1483 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2497); 
{ /* ./Reduce/sbeta.scm 384 */
BgL_nodez00_bglt BgL_arg4007z00_1487;
{ /* ./Reduce/sbeta.scm 384 */
BgL_nodez00_bglt BgL_arg4010z00_1488;
BgL_arg4010z00_1488 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1483))->BgL_bodyz00); 
{ /* ./Reduce/sbeta.scm 384 */
BgL_nodez00_bglt BgL_res4149z00_2321;
{ /* ./Reduce/sbeta.scm 384 */
obj_t BgL_method2774z00_2296;
{ /* ./Reduce/sbeta.scm 384 */
BgL_objectz00_bglt BgL_objz00_2297;
BgL_objz00_2297 = 
(BgL_objectz00_bglt)(BgL_arg4010z00_1488); 
{ /* ./Reduce/sbeta.scm 384 */
long BgL_objzd2classzd2numz00_2298;
BgL_objzd2classzd2numz00_2298 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2297); 
{ /* ./Reduce/sbeta.scm 384 */
obj_t BgL_arg2017z00_2299;
{ /* ./Reduce/sbeta.scm 384 */
int BgL_auxz00_3092;
BgL_auxz00_3092 = 
(int)(((long)1)); 
BgL_arg2017z00_2299 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3092); } 
{ /* ./Reduce/sbeta.scm 384 */
int BgL_offsetz00_2302;
BgL_offsetz00_2302 = 
(int)(BgL_objzd2classzd2numz00_2298); 
{ /* ./Reduce/sbeta.scm 384 */
long BgL_offsetz00_2303;
{ /* ./Reduce/sbeta.scm 384 */
long BgL_auxz00_3096;
BgL_auxz00_3096 = 
(long)(BgL_offsetz00_2302); 
BgL_offsetz00_2303 = 
(BgL_auxz00_3096-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 384 */
long BgL_modz00_2304;
{ /* ./Reduce/sbeta.scm 384 */
int BgL_arg2028z00_2305;
BgL_arg2028z00_2305 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 384 */
long BgL_n2z00_2313;
BgL_n2z00_2313 = 
(long)(BgL_arg2028z00_2305); 
BgL_modz00_2304 = 
(BgL_offsetz00_2303/BgL_n2z00_2313); } } 
{ /* ./Reduce/sbeta.scm 384 */
long BgL_restz00_2306;
{ /* ./Reduce/sbeta.scm 384 */
int BgL_arg2024z00_2307;
BgL_arg2024z00_2307 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 384 */
long BgL_n2z00_2316;
BgL_n2z00_2316 = 
(long)(BgL_arg2024z00_2307); 
BgL_restz00_2306 = 
(BgL_offsetz00_2303%BgL_n2z00_2316); } } 
{ /* ./Reduce/sbeta.scm 384 */

{ /* ./Reduce/sbeta.scm 384 */
obj_t BgL_bucketz00_2308;
{ /* ./Reduce/sbeta.scm 384 */
int BgL_kz00_2318;
BgL_kz00_2318 = 
(int)(BgL_modz00_2304); 
BgL_bucketz00_2308 = 
VECTOR_REF(BgL_arg2017z00_2299,BgL_kz00_2318); } 
{ /* ./Reduce/sbeta.scm 384 */
int BgL_kz00_2320;
BgL_kz00_2320 = 
(int)(BgL_restz00_2306); 
BgL_method2774z00_2296 = 
VECTOR_REF(BgL_bucketz00_2308,BgL_kz00_2320); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 384 */
obj_t BgL_auxz00_3109;
BgL_auxz00_3109 = 
PROCEDURE_ENTRY(BgL_method2774z00_2296)(BgL_method2774z00_2296, 
(obj_t)(BgL_arg4010z00_1488), BEOA); 
BgL_res4149z00_2321 = 
(BgL_nodez00_bglt)(BgL_auxz00_3109); } } 
BgL_arg4007z00_1487 = BgL_res4149z00_2321; } } 
{ /* ./Reduce/sbeta.scm 384 */
BgL_setzd2exzd2itz00_bglt BgL_obj2529z00_2322;BgL_nodez00_bglt BgL_val2528z00_2323;
BgL_obj2529z00_2322 = BgL_nodez00_1483; 
BgL_val2528z00_2323 = BgL_arg4007z00_1487; 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2529z00_2322))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2528z00_2323), BUNSPEC); } } 
BgL_auxz00_3088 = BgL_nodez00_1483; 
return 
(obj_t)(BgL_auxz00_3088);} } } 
}



/* node-beta!-let-fun2792 */
obj_t BGl_nodezd2betaz12zd2letzd2fun2792zc0zzreduce_betaz00(obj_t BgL_envz00_2498, obj_t BgL_nodez00_2499)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 368 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1466;
{ /* ./Reduce/sbeta.scm 369 */
BgL_letzd2funzd2_bglt BgL_auxz00_3117;
BgL_nodez00_1466 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2499); 
{ /* ./Reduce/sbeta.scm 370 */
BgL_nodez00_bglt BgL_arg3974z00_1470;
{ /* ./Reduce/sbeta.scm 370 */
BgL_nodez00_bglt BgL_arg3978z00_1471;
BgL_arg3978z00_1471 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1466))->BgL_bodyz00); 
{ /* ./Reduce/sbeta.scm 370 */
BgL_nodez00_bglt BgL_res4143z00_2256;
{ /* ./Reduce/sbeta.scm 370 */
obj_t BgL_method2774z00_2231;
{ /* ./Reduce/sbeta.scm 370 */
BgL_objectz00_bglt BgL_objz00_2232;
BgL_objz00_2232 = 
(BgL_objectz00_bglt)(BgL_arg3978z00_1471); 
{ /* ./Reduce/sbeta.scm 370 */
long BgL_objzd2classzd2numz00_2233;
BgL_objzd2classzd2numz00_2233 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2232); 
{ /* ./Reduce/sbeta.scm 370 */
obj_t BgL_arg2017z00_2234;
{ /* ./Reduce/sbeta.scm 370 */
int BgL_auxz00_3121;
BgL_auxz00_3121 = 
(int)(((long)1)); 
BgL_arg2017z00_2234 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3121); } 
{ /* ./Reduce/sbeta.scm 370 */
int BgL_offsetz00_2237;
BgL_offsetz00_2237 = 
(int)(BgL_objzd2classzd2numz00_2233); 
{ /* ./Reduce/sbeta.scm 370 */
long BgL_offsetz00_2238;
{ /* ./Reduce/sbeta.scm 370 */
long BgL_auxz00_3125;
BgL_auxz00_3125 = 
(long)(BgL_offsetz00_2237); 
BgL_offsetz00_2238 = 
(BgL_auxz00_3125-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 370 */
long BgL_modz00_2239;
{ /* ./Reduce/sbeta.scm 370 */
int BgL_arg2028z00_2240;
BgL_arg2028z00_2240 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 370 */
long BgL_n2z00_2248;
BgL_n2z00_2248 = 
(long)(BgL_arg2028z00_2240); 
BgL_modz00_2239 = 
(BgL_offsetz00_2238/BgL_n2z00_2248); } } 
{ /* ./Reduce/sbeta.scm 370 */
long BgL_restz00_2241;
{ /* ./Reduce/sbeta.scm 370 */
int BgL_arg2024z00_2242;
BgL_arg2024z00_2242 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 370 */
long BgL_n2z00_2251;
BgL_n2z00_2251 = 
(long)(BgL_arg2024z00_2242); 
BgL_restz00_2241 = 
(BgL_offsetz00_2238%BgL_n2z00_2251); } } 
{ /* ./Reduce/sbeta.scm 370 */

{ /* ./Reduce/sbeta.scm 370 */
obj_t BgL_bucketz00_2243;
{ /* ./Reduce/sbeta.scm 370 */
int BgL_kz00_2253;
BgL_kz00_2253 = 
(int)(BgL_modz00_2239); 
BgL_bucketz00_2243 = 
VECTOR_REF(BgL_arg2017z00_2234,BgL_kz00_2253); } 
{ /* ./Reduce/sbeta.scm 370 */
int BgL_kz00_2255;
BgL_kz00_2255 = 
(int)(BgL_restz00_2241); 
BgL_method2774z00_2231 = 
VECTOR_REF(BgL_bucketz00_2243,BgL_kz00_2255); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 370 */
obj_t BgL_auxz00_3138;
BgL_auxz00_3138 = 
PROCEDURE_ENTRY(BgL_method2774z00_2231)(BgL_method2774z00_2231, 
(obj_t)(BgL_arg3978z00_1471), BEOA); 
BgL_res4143z00_2256 = 
(BgL_nodez00_bglt)(BgL_auxz00_3138); } } 
BgL_arg3974z00_1470 = BgL_res4143z00_2256; } } 
{ /* ./Reduce/sbeta.scm 370 */
BgL_letzd2funzd2_bglt BgL_obj2453z00_2257;BgL_nodez00_bglt BgL_val2452z00_2258;
BgL_obj2453z00_2257 = BgL_nodez00_1466; 
BgL_val2452z00_2258 = BgL_arg3974z00_1470; 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2453z00_2257))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2452z00_2258), BUNSPEC); } } 
{ 
obj_t BgL_localsz00_1472;
{ /* ./Reduce/sbeta.scm 371 */
obj_t BgL_arg3982z00_1474;
BgL_arg3982z00_1474 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1466))->BgL_localsz00); 
BgL_localsz00_1472 = BgL_arg3982z00_1474; 
BgL_loopz00_1473:
{ /* ./Reduce/sbeta.scm 372 */
bool_t BgL_test3985z00_1475;
BgL_test3985z00_1475 = 
NULLP(BgL_localsz00_1472); 
if(BgL_test3985z00_1475)
{ /* ./Reduce/sbeta.scm 372 */
BgL_auxz00_3117 = BgL_nodez00_1466
; }  else 
{ /* ./Reduce/sbeta.scm 374 */
obj_t BgL_localz00_1476;
BgL_localz00_1476 = 
CAR(BgL_localsz00_1472); 
{ /* ./Reduce/sbeta.scm 374 */
BgL_valuez00_bglt BgL_sfunz00_1477;
{ /* ./Reduce/sbeta.scm 375 */
BgL_variablez00_bglt BgL_obj1100z00_2262;
BgL_obj1100z00_2262 = 
(BgL_variablez00_bglt)(BgL_localz00_1476); 
BgL_sfunz00_1477 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2262))->BgL_valuez00); } 
{ /* ./Reduce/sbeta.scm 375 */

{ /* ./Reduce/sbeta.scm 376 */
BgL_nodez00_bglt BgL_arg3987z00_1478;
{ /* ./Reduce/sbeta.scm 376 */
obj_t BgL_arg3990z00_1479;
{ /* ./Reduce/sbeta.scm 376 */
BgL_sfunz00_bglt BgL_obj1370z00_2263;
BgL_obj1370z00_2263 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_1477); 
BgL_arg3990z00_1479 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2263))->BgL_bodyz00); } 
{ /* ./Reduce/sbeta.scm 376 */
BgL_nodez00_bglt BgL_res4146z00_2290;
{ /* ./Reduce/sbeta.scm 376 */
BgL_nodez00_bglt BgL_nodez00_2264;
BgL_nodez00_2264 = 
(BgL_nodez00_bglt)(BgL_arg3990z00_1479); 
{ /* ./Reduce/sbeta.scm 376 */
obj_t BgL_method2774z00_2265;
{ /* ./Reduce/sbeta.scm 376 */
BgL_objectz00_bglt BgL_objz00_2266;
BgL_objz00_2266 = 
(BgL_objectz00_bglt)(BgL_nodez00_2264); 
{ /* ./Reduce/sbeta.scm 376 */
long BgL_objzd2classzd2numz00_2267;
BgL_objzd2classzd2numz00_2267 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2266); 
{ /* ./Reduce/sbeta.scm 376 */
obj_t BgL_arg2017z00_2268;
{ /* ./Reduce/sbeta.scm 376 */
int BgL_auxz00_3155;
BgL_auxz00_3155 = 
(int)(((long)1)); 
BgL_arg2017z00_2268 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3155); } 
{ /* ./Reduce/sbeta.scm 376 */
int BgL_offsetz00_2271;
BgL_offsetz00_2271 = 
(int)(BgL_objzd2classzd2numz00_2267); 
{ /* ./Reduce/sbeta.scm 376 */
long BgL_offsetz00_2272;
{ /* ./Reduce/sbeta.scm 376 */
long BgL_auxz00_3159;
BgL_auxz00_3159 = 
(long)(BgL_offsetz00_2271); 
BgL_offsetz00_2272 = 
(BgL_auxz00_3159-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 376 */
long BgL_modz00_2273;
{ /* ./Reduce/sbeta.scm 376 */
int BgL_arg2028z00_2274;
BgL_arg2028z00_2274 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 376 */
long BgL_n2z00_2282;
BgL_n2z00_2282 = 
(long)(BgL_arg2028z00_2274); 
BgL_modz00_2273 = 
(BgL_offsetz00_2272/BgL_n2z00_2282); } } 
{ /* ./Reduce/sbeta.scm 376 */
long BgL_restz00_2275;
{ /* ./Reduce/sbeta.scm 376 */
int BgL_arg2024z00_2276;
BgL_arg2024z00_2276 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 376 */
long BgL_n2z00_2285;
BgL_n2z00_2285 = 
(long)(BgL_arg2024z00_2276); 
BgL_restz00_2275 = 
(BgL_offsetz00_2272%BgL_n2z00_2285); } } 
{ /* ./Reduce/sbeta.scm 376 */

{ /* ./Reduce/sbeta.scm 376 */
obj_t BgL_bucketz00_2277;
{ /* ./Reduce/sbeta.scm 376 */
int BgL_kz00_2287;
BgL_kz00_2287 = 
(int)(BgL_modz00_2273); 
BgL_bucketz00_2277 = 
VECTOR_REF(BgL_arg2017z00_2268,BgL_kz00_2287); } 
{ /* ./Reduce/sbeta.scm 376 */
int BgL_kz00_2289;
BgL_kz00_2289 = 
(int)(BgL_restz00_2275); 
BgL_method2774z00_2265 = 
VECTOR_REF(BgL_bucketz00_2277,BgL_kz00_2289); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 376 */
obj_t BgL_auxz00_3172;
BgL_auxz00_3172 = 
PROCEDURE_ENTRY(BgL_method2774z00_2265)(BgL_method2774z00_2265, 
(obj_t)(BgL_nodez00_2264), BEOA); 
BgL_res4146z00_2290 = 
(BgL_nodez00_bglt)(BgL_auxz00_3172); } } } 
BgL_arg3987z00_1478 = BgL_res4146z00_2290; } } 
{ /* ./Reduce/sbeta.scm 376 */
BgL_sfunz00_bglt BgL_obj1373z00_2291;obj_t BgL_val1371z00_2292;
BgL_obj1373z00_2291 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_1477); 
BgL_val1371z00_2292 = 
(obj_t)(BgL_arg3987z00_1478); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_2291))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_2292), BUNSPEC); } } 
{ /* ./Reduce/sbeta.scm 377 */
obj_t BgL_arg3994z00_1480;
BgL_arg3994z00_1480 = 
CDR(BgL_localsz00_1472); 
{ 
obj_t BgL_localsz00_3181;
BgL_localsz00_3181 = BgL_arg3994z00_1480; 
BgL_localsz00_1472 = BgL_localsz00_3181; 
goto BgL_loopz00_1473;} } } } } } } } 
return 
(obj_t)(BgL_auxz00_3117);} } } 
}



/* node-beta!-select2790 */
obj_t BGl_nodezd2betaz12zd2select2790z12zzreduce_betaz00(obj_t BgL_envz00_2500, obj_t BgL_nodez00_2501)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 355 */
{ 
BgL_selectz00_bglt BgL_nodez00_1450;
{ /* ./Reduce/sbeta.scm 356 */
BgL_selectz00_bglt BgL_auxz00_3184;
BgL_nodez00_1450 = 
(BgL_selectz00_bglt)(BgL_nodez00_2501); 
{ /* ./Reduce/sbeta.scm 357 */
BgL_nodez00_bglt BgL_arg3943z00_1454;
{ /* ./Reduce/sbeta.scm 357 */
BgL_nodez00_bglt BgL_arg3946z00_1455;
BgL_arg3946z00_1455 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1450))->BgL_testz00); 
{ /* ./Reduce/sbeta.scm 357 */
BgL_nodez00_bglt BgL_res4137z00_2192;
{ /* ./Reduce/sbeta.scm 357 */
obj_t BgL_method2774z00_2167;
{ /* ./Reduce/sbeta.scm 357 */
BgL_objectz00_bglt BgL_objz00_2168;
BgL_objz00_2168 = 
(BgL_objectz00_bglt)(BgL_arg3946z00_1455); 
{ /* ./Reduce/sbeta.scm 357 */
long BgL_objzd2classzd2numz00_2169;
BgL_objzd2classzd2numz00_2169 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2168); 
{ /* ./Reduce/sbeta.scm 357 */
obj_t BgL_arg2017z00_2170;
{ /* ./Reduce/sbeta.scm 357 */
int BgL_auxz00_3188;
BgL_auxz00_3188 = 
(int)(((long)1)); 
BgL_arg2017z00_2170 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3188); } 
{ /* ./Reduce/sbeta.scm 357 */
int BgL_offsetz00_2173;
BgL_offsetz00_2173 = 
(int)(BgL_objzd2classzd2numz00_2169); 
{ /* ./Reduce/sbeta.scm 357 */
long BgL_offsetz00_2174;
{ /* ./Reduce/sbeta.scm 357 */
long BgL_auxz00_3192;
BgL_auxz00_3192 = 
(long)(BgL_offsetz00_2173); 
BgL_offsetz00_2174 = 
(BgL_auxz00_3192-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 357 */
long BgL_modz00_2175;
{ /* ./Reduce/sbeta.scm 357 */
int BgL_arg2028z00_2176;
BgL_arg2028z00_2176 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 357 */
long BgL_n2z00_2184;
BgL_n2z00_2184 = 
(long)(BgL_arg2028z00_2176); 
BgL_modz00_2175 = 
(BgL_offsetz00_2174/BgL_n2z00_2184); } } 
{ /* ./Reduce/sbeta.scm 357 */
long BgL_restz00_2177;
{ /* ./Reduce/sbeta.scm 357 */
int BgL_arg2024z00_2178;
BgL_arg2024z00_2178 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 357 */
long BgL_n2z00_2187;
BgL_n2z00_2187 = 
(long)(BgL_arg2024z00_2178); 
BgL_restz00_2177 = 
(BgL_offsetz00_2174%BgL_n2z00_2187); } } 
{ /* ./Reduce/sbeta.scm 357 */

{ /* ./Reduce/sbeta.scm 357 */
obj_t BgL_bucketz00_2179;
{ /* ./Reduce/sbeta.scm 357 */
int BgL_kz00_2189;
BgL_kz00_2189 = 
(int)(BgL_modz00_2175); 
BgL_bucketz00_2179 = 
VECTOR_REF(BgL_arg2017z00_2170,BgL_kz00_2189); } 
{ /* ./Reduce/sbeta.scm 357 */
int BgL_kz00_2191;
BgL_kz00_2191 = 
(int)(BgL_restz00_2177); 
BgL_method2774z00_2167 = 
VECTOR_REF(BgL_bucketz00_2179,BgL_kz00_2191); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 357 */
obj_t BgL_auxz00_3205;
BgL_auxz00_3205 = 
PROCEDURE_ENTRY(BgL_method2774z00_2167)(BgL_method2774z00_2167, 
(obj_t)(BgL_arg3946z00_1455), BEOA); 
BgL_res4137z00_2192 = 
(BgL_nodez00_bglt)(BgL_auxz00_3205); } } 
BgL_arg3943z00_1454 = BgL_res4137z00_2192; } } 
{ /* ./Reduce/sbeta.scm 357 */
BgL_selectz00_bglt BgL_obj2410z00_2193;BgL_nodez00_bglt BgL_val2409z00_2194;
BgL_obj2410z00_2193 = BgL_nodez00_1450; 
BgL_val2409z00_2194 = BgL_arg3943z00_1454; 
((((BgL_selectz00_bglt)CREF(BgL_obj2410z00_2193))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2409z00_2194), BUNSPEC); } } 
{ 
obj_t BgL_clausesz00_1456;
{ /* ./Reduce/sbeta.scm 358 */
obj_t BgL_arg3950z00_1458;
BgL_arg3950z00_1458 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1450))->BgL_clausesz00); 
BgL_clausesz00_1456 = BgL_arg3950z00_1458; 
BgL_loopz00_1457:
{ /* ./Reduce/sbeta.scm 359 */
bool_t BgL_test3953z00_1459;
BgL_test3953z00_1459 = 
NULLP(BgL_clausesz00_1456); 
if(BgL_test3953z00_1459)
{ /* ./Reduce/sbeta.scm 359 */
BgL_auxz00_3184 = BgL_nodez00_1450
; }  else 
{ /* ./Reduce/sbeta.scm 361 */
obj_t BgL_clausez00_1460;
BgL_clausez00_1460 = 
CAR(BgL_clausesz00_1456); 
{ /* ./Reduce/sbeta.scm 362 */
BgL_nodez00_bglt BgL_arg3955z00_1461;
{ /* ./Reduce/sbeta.scm 362 */
obj_t BgL_arg3958z00_1462;
BgL_arg3958z00_1462 = 
CDR(BgL_clausez00_1460); 
{ /* ./Reduce/sbeta.scm 362 */
BgL_nodez00_bglt BgL_res4140z00_2225;
{ /* ./Reduce/sbeta.scm 362 */
BgL_nodez00_bglt BgL_nodez00_2199;
BgL_nodez00_2199 = 
(BgL_nodez00_bglt)(BgL_arg3958z00_1462); 
{ /* ./Reduce/sbeta.scm 362 */
obj_t BgL_method2774z00_2200;
{ /* ./Reduce/sbeta.scm 362 */
BgL_objectz00_bglt BgL_objz00_2201;
BgL_objz00_2201 = 
(BgL_objectz00_bglt)(BgL_nodez00_2199); 
{ /* ./Reduce/sbeta.scm 362 */
long BgL_objzd2classzd2numz00_2202;
BgL_objzd2classzd2numz00_2202 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2201); 
{ /* ./Reduce/sbeta.scm 362 */
obj_t BgL_arg2017z00_2203;
{ /* ./Reduce/sbeta.scm 362 */
int BgL_auxz00_3219;
BgL_auxz00_3219 = 
(int)(((long)1)); 
BgL_arg2017z00_2203 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3219); } 
{ /* ./Reduce/sbeta.scm 362 */
int BgL_offsetz00_2206;
BgL_offsetz00_2206 = 
(int)(BgL_objzd2classzd2numz00_2202); 
{ /* ./Reduce/sbeta.scm 362 */
long BgL_offsetz00_2207;
{ /* ./Reduce/sbeta.scm 362 */
long BgL_auxz00_3223;
BgL_auxz00_3223 = 
(long)(BgL_offsetz00_2206); 
BgL_offsetz00_2207 = 
(BgL_auxz00_3223-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 362 */
long BgL_modz00_2208;
{ /* ./Reduce/sbeta.scm 362 */
int BgL_arg2028z00_2209;
BgL_arg2028z00_2209 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 362 */
long BgL_n2z00_2217;
BgL_n2z00_2217 = 
(long)(BgL_arg2028z00_2209); 
BgL_modz00_2208 = 
(BgL_offsetz00_2207/BgL_n2z00_2217); } } 
{ /* ./Reduce/sbeta.scm 362 */
long BgL_restz00_2210;
{ /* ./Reduce/sbeta.scm 362 */
int BgL_arg2024z00_2211;
BgL_arg2024z00_2211 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 362 */
long BgL_n2z00_2220;
BgL_n2z00_2220 = 
(long)(BgL_arg2024z00_2211); 
BgL_restz00_2210 = 
(BgL_offsetz00_2207%BgL_n2z00_2220); } } 
{ /* ./Reduce/sbeta.scm 362 */

{ /* ./Reduce/sbeta.scm 362 */
obj_t BgL_bucketz00_2212;
{ /* ./Reduce/sbeta.scm 362 */
int BgL_kz00_2222;
BgL_kz00_2222 = 
(int)(BgL_modz00_2208); 
BgL_bucketz00_2212 = 
VECTOR_REF(BgL_arg2017z00_2203,BgL_kz00_2222); } 
{ /* ./Reduce/sbeta.scm 362 */
int BgL_kz00_2224;
BgL_kz00_2224 = 
(int)(BgL_restz00_2210); 
BgL_method2774z00_2200 = 
VECTOR_REF(BgL_bucketz00_2212,BgL_kz00_2224); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 362 */
obj_t BgL_auxz00_3236;
BgL_auxz00_3236 = 
PROCEDURE_ENTRY(BgL_method2774z00_2200)(BgL_method2774z00_2200, 
(obj_t)(BgL_nodez00_2199), BEOA); 
BgL_res4140z00_2225 = 
(BgL_nodez00_bglt)(BgL_auxz00_3236); } } } 
BgL_arg3955z00_1461 = BgL_res4140z00_2225; } } 
{ /* ./Reduce/sbeta.scm 362 */
obj_t BgL_objz00_2227;
BgL_objz00_2227 = 
(obj_t)(BgL_arg3955z00_1461); 
SET_CDR(BgL_clausez00_1460, BgL_objz00_2227); } } 
{ /* ./Reduce/sbeta.scm 363 */
obj_t BgL_arg3962z00_1463;
BgL_arg3962z00_1463 = 
CDR(BgL_clausesz00_1456); 
{ 
obj_t BgL_clausesz00_3244;
BgL_clausesz00_3244 = BgL_arg3962z00_1463; 
BgL_clausesz00_1456 = BgL_clausesz00_3244; 
goto BgL_loopz00_1457;} } } } } } 
return 
(obj_t)(BgL_auxz00_3184);} } } 
}



/* node-beta!-conditional2788 */
obj_t BGl_nodezd2betaz12zd2conditional2788z12zzreduce_betaz00(obj_t BgL_envz00_2502, obj_t BgL_nodez00_2503)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 345 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1438;
{ /* ./Reduce/sbeta.scm 346 */
BgL_conditionalz00_bglt BgL_auxz00_3247;
BgL_nodez00_1438 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2503); 
{ /* ./Reduce/sbeta.scm 347 */
BgL_nodez00_bglt BgL_arg3916z00_1442;
{ /* ./Reduce/sbeta.scm 347 */
BgL_nodez00_bglt BgL_arg3919z00_1443;
BgL_arg3919z00_1443 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1438))->BgL_testz00); 
{ /* ./Reduce/sbeta.scm 347 */
BgL_nodez00_bglt BgL_res4128z00_2102;
{ /* ./Reduce/sbeta.scm 347 */
obj_t BgL_method2774z00_2077;
{ /* ./Reduce/sbeta.scm 347 */
BgL_objectz00_bglt BgL_objz00_2078;
BgL_objz00_2078 = 
(BgL_objectz00_bglt)(BgL_arg3919z00_1443); 
{ /* ./Reduce/sbeta.scm 347 */
long BgL_objzd2classzd2numz00_2079;
BgL_objzd2classzd2numz00_2079 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2078); 
{ /* ./Reduce/sbeta.scm 347 */
obj_t BgL_arg2017z00_2080;
{ /* ./Reduce/sbeta.scm 347 */
int BgL_auxz00_3251;
BgL_auxz00_3251 = 
(int)(((long)1)); 
BgL_arg2017z00_2080 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3251); } 
{ /* ./Reduce/sbeta.scm 347 */
int BgL_offsetz00_2083;
BgL_offsetz00_2083 = 
(int)(BgL_objzd2classzd2numz00_2079); 
{ /* ./Reduce/sbeta.scm 347 */
long BgL_offsetz00_2084;
{ /* ./Reduce/sbeta.scm 347 */
long BgL_auxz00_3255;
BgL_auxz00_3255 = 
(long)(BgL_offsetz00_2083); 
BgL_offsetz00_2084 = 
(BgL_auxz00_3255-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 347 */
long BgL_modz00_2085;
{ /* ./Reduce/sbeta.scm 347 */
int BgL_arg2028z00_2086;
BgL_arg2028z00_2086 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 347 */
long BgL_n2z00_2094;
BgL_n2z00_2094 = 
(long)(BgL_arg2028z00_2086); 
BgL_modz00_2085 = 
(BgL_offsetz00_2084/BgL_n2z00_2094); } } 
{ /* ./Reduce/sbeta.scm 347 */
long BgL_restz00_2087;
{ /* ./Reduce/sbeta.scm 347 */
int BgL_arg2024z00_2088;
BgL_arg2024z00_2088 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 347 */
long BgL_n2z00_2097;
BgL_n2z00_2097 = 
(long)(BgL_arg2024z00_2088); 
BgL_restz00_2087 = 
(BgL_offsetz00_2084%BgL_n2z00_2097); } } 
{ /* ./Reduce/sbeta.scm 347 */

{ /* ./Reduce/sbeta.scm 347 */
obj_t BgL_bucketz00_2089;
{ /* ./Reduce/sbeta.scm 347 */
int BgL_kz00_2099;
BgL_kz00_2099 = 
(int)(BgL_modz00_2085); 
BgL_bucketz00_2089 = 
VECTOR_REF(BgL_arg2017z00_2080,BgL_kz00_2099); } 
{ /* ./Reduce/sbeta.scm 347 */
int BgL_kz00_2101;
BgL_kz00_2101 = 
(int)(BgL_restz00_2087); 
BgL_method2774z00_2077 = 
VECTOR_REF(BgL_bucketz00_2089,BgL_kz00_2101); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 347 */
obj_t BgL_auxz00_3268;
BgL_auxz00_3268 = 
PROCEDURE_ENTRY(BgL_method2774z00_2077)(BgL_method2774z00_2077, 
(obj_t)(BgL_arg3919z00_1443), BEOA); 
BgL_res4128z00_2102 = 
(BgL_nodez00_bglt)(BgL_auxz00_3268); } } 
BgL_arg3916z00_1442 = BgL_res4128z00_2102; } } 
{ /* ./Reduce/sbeta.scm 347 */
BgL_conditionalz00_bglt BgL_obj2334z00_2103;BgL_nodez00_bglt BgL_val2333z00_2104;
BgL_obj2334z00_2103 = BgL_nodez00_1438; 
BgL_val2333z00_2104 = BgL_arg3916z00_1442; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2334z00_2103))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2333z00_2104), BUNSPEC); } } 
{ /* ./Reduce/sbeta.scm 348 */
BgL_nodez00_bglt BgL_arg3923z00_1444;
{ /* ./Reduce/sbeta.scm 348 */
BgL_nodez00_bglt BgL_arg3926z00_1445;
BgL_arg3926z00_1445 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1438))->BgL_truez00); 
{ /* ./Reduce/sbeta.scm 348 */
BgL_nodez00_bglt BgL_res4131z00_2132;
{ /* ./Reduce/sbeta.scm 348 */
obj_t BgL_method2774z00_2107;
{ /* ./Reduce/sbeta.scm 348 */
BgL_objectz00_bglt BgL_objz00_2108;
BgL_objz00_2108 = 
(BgL_objectz00_bglt)(BgL_arg3926z00_1445); 
{ /* ./Reduce/sbeta.scm 348 */
long BgL_objzd2classzd2numz00_2109;
BgL_objzd2classzd2numz00_2109 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2108); 
{ /* ./Reduce/sbeta.scm 348 */
obj_t BgL_arg2017z00_2110;
{ /* ./Reduce/sbeta.scm 348 */
int BgL_auxz00_3277;
BgL_auxz00_3277 = 
(int)(((long)1)); 
BgL_arg2017z00_2110 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3277); } 
{ /* ./Reduce/sbeta.scm 348 */
int BgL_offsetz00_2113;
BgL_offsetz00_2113 = 
(int)(BgL_objzd2classzd2numz00_2109); 
{ /* ./Reduce/sbeta.scm 348 */
long BgL_offsetz00_2114;
{ /* ./Reduce/sbeta.scm 348 */
long BgL_auxz00_3281;
BgL_auxz00_3281 = 
(long)(BgL_offsetz00_2113); 
BgL_offsetz00_2114 = 
(BgL_auxz00_3281-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 348 */
long BgL_modz00_2115;
{ /* ./Reduce/sbeta.scm 348 */
int BgL_arg2028z00_2116;
BgL_arg2028z00_2116 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 348 */
long BgL_n2z00_2124;
BgL_n2z00_2124 = 
(long)(BgL_arg2028z00_2116); 
BgL_modz00_2115 = 
(BgL_offsetz00_2114/BgL_n2z00_2124); } } 
{ /* ./Reduce/sbeta.scm 348 */
long BgL_restz00_2117;
{ /* ./Reduce/sbeta.scm 348 */
int BgL_arg2024z00_2118;
BgL_arg2024z00_2118 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 348 */
long BgL_n2z00_2127;
BgL_n2z00_2127 = 
(long)(BgL_arg2024z00_2118); 
BgL_restz00_2117 = 
(BgL_offsetz00_2114%BgL_n2z00_2127); } } 
{ /* ./Reduce/sbeta.scm 348 */

{ /* ./Reduce/sbeta.scm 348 */
obj_t BgL_bucketz00_2119;
{ /* ./Reduce/sbeta.scm 348 */
int BgL_kz00_2129;
BgL_kz00_2129 = 
(int)(BgL_modz00_2115); 
BgL_bucketz00_2119 = 
VECTOR_REF(BgL_arg2017z00_2110,BgL_kz00_2129); } 
{ /* ./Reduce/sbeta.scm 348 */
int BgL_kz00_2131;
BgL_kz00_2131 = 
(int)(BgL_restz00_2117); 
BgL_method2774z00_2107 = 
VECTOR_REF(BgL_bucketz00_2119,BgL_kz00_2131); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 348 */
obj_t BgL_auxz00_3294;
BgL_auxz00_3294 = 
PROCEDURE_ENTRY(BgL_method2774z00_2107)(BgL_method2774z00_2107, 
(obj_t)(BgL_arg3926z00_1445), BEOA); 
BgL_res4131z00_2132 = 
(BgL_nodez00_bglt)(BgL_auxz00_3294); } } 
BgL_arg3923z00_1444 = BgL_res4131z00_2132; } } 
{ /* ./Reduce/sbeta.scm 348 */
BgL_conditionalz00_bglt BgL_obj2337z00_2133;BgL_nodez00_bglt BgL_val2336z00_2134;
BgL_obj2337z00_2133 = BgL_nodez00_1438; 
BgL_val2336z00_2134 = BgL_arg3923z00_1444; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2337z00_2133))->BgL_truez00) = ((BgL_nodez00_bglt)BgL_val2336z00_2134), BUNSPEC); } } 
{ /* ./Reduce/sbeta.scm 349 */
BgL_nodez00_bglt BgL_arg3930z00_1446;
{ /* ./Reduce/sbeta.scm 349 */
BgL_nodez00_bglt BgL_arg3933z00_1447;
BgL_arg3933z00_1447 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1438))->BgL_falsez00); 
{ /* ./Reduce/sbeta.scm 349 */
BgL_nodez00_bglt BgL_res4134z00_2162;
{ /* ./Reduce/sbeta.scm 349 */
obj_t BgL_method2774z00_2137;
{ /* ./Reduce/sbeta.scm 349 */
BgL_objectz00_bglt BgL_objz00_2138;
BgL_objz00_2138 = 
(BgL_objectz00_bglt)(BgL_arg3933z00_1447); 
{ /* ./Reduce/sbeta.scm 349 */
long BgL_objzd2classzd2numz00_2139;
BgL_objzd2classzd2numz00_2139 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2138); 
{ /* ./Reduce/sbeta.scm 349 */
obj_t BgL_arg2017z00_2140;
{ /* ./Reduce/sbeta.scm 349 */
int BgL_auxz00_3303;
BgL_auxz00_3303 = 
(int)(((long)1)); 
BgL_arg2017z00_2140 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3303); } 
{ /* ./Reduce/sbeta.scm 349 */
int BgL_offsetz00_2143;
BgL_offsetz00_2143 = 
(int)(BgL_objzd2classzd2numz00_2139); 
{ /* ./Reduce/sbeta.scm 349 */
long BgL_offsetz00_2144;
{ /* ./Reduce/sbeta.scm 349 */
long BgL_auxz00_3307;
BgL_auxz00_3307 = 
(long)(BgL_offsetz00_2143); 
BgL_offsetz00_2144 = 
(BgL_auxz00_3307-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 349 */
long BgL_modz00_2145;
{ /* ./Reduce/sbeta.scm 349 */
int BgL_arg2028z00_2146;
BgL_arg2028z00_2146 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 349 */
long BgL_n2z00_2154;
BgL_n2z00_2154 = 
(long)(BgL_arg2028z00_2146); 
BgL_modz00_2145 = 
(BgL_offsetz00_2144/BgL_n2z00_2154); } } 
{ /* ./Reduce/sbeta.scm 349 */
long BgL_restz00_2147;
{ /* ./Reduce/sbeta.scm 349 */
int BgL_arg2024z00_2148;
BgL_arg2024z00_2148 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 349 */
long BgL_n2z00_2157;
BgL_n2z00_2157 = 
(long)(BgL_arg2024z00_2148); 
BgL_restz00_2147 = 
(BgL_offsetz00_2144%BgL_n2z00_2157); } } 
{ /* ./Reduce/sbeta.scm 349 */

{ /* ./Reduce/sbeta.scm 349 */
obj_t BgL_bucketz00_2149;
{ /* ./Reduce/sbeta.scm 349 */
int BgL_kz00_2159;
BgL_kz00_2159 = 
(int)(BgL_modz00_2145); 
BgL_bucketz00_2149 = 
VECTOR_REF(BgL_arg2017z00_2140,BgL_kz00_2159); } 
{ /* ./Reduce/sbeta.scm 349 */
int BgL_kz00_2161;
BgL_kz00_2161 = 
(int)(BgL_restz00_2147); 
BgL_method2774z00_2137 = 
VECTOR_REF(BgL_bucketz00_2149,BgL_kz00_2161); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 349 */
obj_t BgL_auxz00_3320;
BgL_auxz00_3320 = 
PROCEDURE_ENTRY(BgL_method2774z00_2137)(BgL_method2774z00_2137, 
(obj_t)(BgL_arg3933z00_1447), BEOA); 
BgL_res4134z00_2162 = 
(BgL_nodez00_bglt)(BgL_auxz00_3320); } } 
BgL_arg3930z00_1446 = BgL_res4134z00_2162; } } 
{ /* ./Reduce/sbeta.scm 349 */
BgL_conditionalz00_bglt BgL_obj2340z00_2163;BgL_nodez00_bglt BgL_val2339z00_2164;
BgL_obj2340z00_2163 = BgL_nodez00_1438; 
BgL_val2339z00_2164 = BgL_arg3930z00_1446; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2340z00_2163))->BgL_falsez00) = ((BgL_nodez00_bglt)BgL_val2339z00_2164), BUNSPEC); } } 
BgL_auxz00_3247 = BgL_nodez00_1438; 
return 
(obj_t)(BgL_auxz00_3247);} } } 
}



/* node-beta!-setq2786 */
obj_t BGl_nodezd2betaz12zd2setq2786z12zzreduce_betaz00(obj_t BgL_envz00_2504, obj_t BgL_nodez00_2505)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 337 */
{ 
BgL_setqz00_bglt BgL_nodez00_1430;
{ /* ./Reduce/sbeta.scm 338 */
BgL_setqz00_bglt BgL_auxz00_3328;
BgL_nodez00_1430 = 
(BgL_setqz00_bglt)(BgL_nodez00_2505); 
{ /* ./Reduce/sbeta.scm 339 */
BgL_nodez00_bglt BgL_arg3903z00_1434;
{ /* ./Reduce/sbeta.scm 339 */
BgL_nodez00_bglt BgL_arg3906z00_1435;
BgL_arg3906z00_1435 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1430))->BgL_valuez00); 
{ /* ./Reduce/sbeta.scm 339 */
BgL_nodez00_bglt BgL_res4125z00_2072;
{ /* ./Reduce/sbeta.scm 339 */
obj_t BgL_method2774z00_2047;
{ /* ./Reduce/sbeta.scm 339 */
BgL_objectz00_bglt BgL_objz00_2048;
BgL_objz00_2048 = 
(BgL_objectz00_bglt)(BgL_arg3906z00_1435); 
{ /* ./Reduce/sbeta.scm 339 */
long BgL_objzd2classzd2numz00_2049;
BgL_objzd2classzd2numz00_2049 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2048); 
{ /* ./Reduce/sbeta.scm 339 */
obj_t BgL_arg2017z00_2050;
{ /* ./Reduce/sbeta.scm 339 */
int BgL_auxz00_3332;
BgL_auxz00_3332 = 
(int)(((long)1)); 
BgL_arg2017z00_2050 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3332); } 
{ /* ./Reduce/sbeta.scm 339 */
int BgL_offsetz00_2053;
BgL_offsetz00_2053 = 
(int)(BgL_objzd2classzd2numz00_2049); 
{ /* ./Reduce/sbeta.scm 339 */
long BgL_offsetz00_2054;
{ /* ./Reduce/sbeta.scm 339 */
long BgL_auxz00_3336;
BgL_auxz00_3336 = 
(long)(BgL_offsetz00_2053); 
BgL_offsetz00_2054 = 
(BgL_auxz00_3336-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 339 */
long BgL_modz00_2055;
{ /* ./Reduce/sbeta.scm 339 */
int BgL_arg2028z00_2056;
BgL_arg2028z00_2056 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 339 */
long BgL_n2z00_2064;
BgL_n2z00_2064 = 
(long)(BgL_arg2028z00_2056); 
BgL_modz00_2055 = 
(BgL_offsetz00_2054/BgL_n2z00_2064); } } 
{ /* ./Reduce/sbeta.scm 339 */
long BgL_restz00_2057;
{ /* ./Reduce/sbeta.scm 339 */
int BgL_arg2024z00_2058;
BgL_arg2024z00_2058 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 339 */
long BgL_n2z00_2067;
BgL_n2z00_2067 = 
(long)(BgL_arg2024z00_2058); 
BgL_restz00_2057 = 
(BgL_offsetz00_2054%BgL_n2z00_2067); } } 
{ /* ./Reduce/sbeta.scm 339 */

{ /* ./Reduce/sbeta.scm 339 */
obj_t BgL_bucketz00_2059;
{ /* ./Reduce/sbeta.scm 339 */
int BgL_kz00_2069;
BgL_kz00_2069 = 
(int)(BgL_modz00_2055); 
BgL_bucketz00_2059 = 
VECTOR_REF(BgL_arg2017z00_2050,BgL_kz00_2069); } 
{ /* ./Reduce/sbeta.scm 339 */
int BgL_kz00_2071;
BgL_kz00_2071 = 
(int)(BgL_restz00_2057); 
BgL_method2774z00_2047 = 
VECTOR_REF(BgL_bucketz00_2059,BgL_kz00_2071); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 339 */
obj_t BgL_auxz00_3349;
BgL_auxz00_3349 = 
PROCEDURE_ENTRY(BgL_method2774z00_2047)(BgL_method2774z00_2047, 
(obj_t)(BgL_arg3906z00_1435), BEOA); 
BgL_res4125z00_2072 = 
(BgL_nodez00_bglt)(BgL_auxz00_3349); } } 
BgL_arg3903z00_1434 = BgL_res4125z00_2072; } } 
{ /* ./Reduce/sbeta.scm 339 */
BgL_setqz00_bglt BgL_obj2305z00_2073;BgL_nodez00_bglt BgL_val2304z00_2074;
BgL_obj2305z00_2073 = BgL_nodez00_1430; 
BgL_val2304z00_2074 = BgL_arg3903z00_1434; 
((((BgL_setqz00_bglt)CREF(BgL_obj2305z00_2073))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2304z00_2074), BUNSPEC); } } 
BgL_auxz00_3328 = BgL_nodez00_1430; 
return 
(obj_t)(BgL_auxz00_3328);} } } 
}



/* node-beta!-cast2784 */
obj_t BGl_nodezd2betaz12zd2cast2784z12zzreduce_betaz00(obj_t BgL_envz00_2506, obj_t BgL_nodez00_2507)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 329 */
{ 
BgL_castz00_bglt BgL_nodez00_1422;
{ /* ./Reduce/sbeta.scm 330 */
BgL_castz00_bglt BgL_auxz00_3357;
BgL_nodez00_1422 = 
(BgL_castz00_bglt)(BgL_nodez00_2507); 
{ /* ./Reduce/sbeta.scm 331 */
BgL_nodez00_bglt BgL_arg3890z00_1426;
{ /* ./Reduce/sbeta.scm 331 */
BgL_nodez00_bglt BgL_arg3893z00_1427;
BgL_arg3893z00_1427 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1422))->BgL_argz00); 
{ /* ./Reduce/sbeta.scm 331 */
BgL_nodez00_bglt BgL_res4122z00_2042;
{ /* ./Reduce/sbeta.scm 331 */
obj_t BgL_method2774z00_2017;
{ /* ./Reduce/sbeta.scm 331 */
BgL_objectz00_bglt BgL_objz00_2018;
BgL_objz00_2018 = 
(BgL_objectz00_bglt)(BgL_arg3893z00_1427); 
{ /* ./Reduce/sbeta.scm 331 */
long BgL_objzd2classzd2numz00_2019;
BgL_objzd2classzd2numz00_2019 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2018); 
{ /* ./Reduce/sbeta.scm 331 */
obj_t BgL_arg2017z00_2020;
{ /* ./Reduce/sbeta.scm 331 */
int BgL_auxz00_3361;
BgL_auxz00_3361 = 
(int)(((long)1)); 
BgL_arg2017z00_2020 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3361); } 
{ /* ./Reduce/sbeta.scm 331 */
int BgL_offsetz00_2023;
BgL_offsetz00_2023 = 
(int)(BgL_objzd2classzd2numz00_2019); 
{ /* ./Reduce/sbeta.scm 331 */
long BgL_offsetz00_2024;
{ /* ./Reduce/sbeta.scm 331 */
long BgL_auxz00_3365;
BgL_auxz00_3365 = 
(long)(BgL_offsetz00_2023); 
BgL_offsetz00_2024 = 
(BgL_auxz00_3365-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 331 */
long BgL_modz00_2025;
{ /* ./Reduce/sbeta.scm 331 */
int BgL_arg2028z00_2026;
BgL_arg2028z00_2026 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 331 */
long BgL_n2z00_2034;
BgL_n2z00_2034 = 
(long)(BgL_arg2028z00_2026); 
BgL_modz00_2025 = 
(BgL_offsetz00_2024/BgL_n2z00_2034); } } 
{ /* ./Reduce/sbeta.scm 331 */
long BgL_restz00_2027;
{ /* ./Reduce/sbeta.scm 331 */
int BgL_arg2024z00_2028;
BgL_arg2024z00_2028 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 331 */
long BgL_n2z00_2037;
BgL_n2z00_2037 = 
(long)(BgL_arg2024z00_2028); 
BgL_restz00_2027 = 
(BgL_offsetz00_2024%BgL_n2z00_2037); } } 
{ /* ./Reduce/sbeta.scm 331 */

{ /* ./Reduce/sbeta.scm 331 */
obj_t BgL_bucketz00_2029;
{ /* ./Reduce/sbeta.scm 331 */
int BgL_kz00_2039;
BgL_kz00_2039 = 
(int)(BgL_modz00_2025); 
BgL_bucketz00_2029 = 
VECTOR_REF(BgL_arg2017z00_2020,BgL_kz00_2039); } 
{ /* ./Reduce/sbeta.scm 331 */
int BgL_kz00_2041;
BgL_kz00_2041 = 
(int)(BgL_restz00_2027); 
BgL_method2774z00_2017 = 
VECTOR_REF(BgL_bucketz00_2029,BgL_kz00_2041); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 331 */
obj_t BgL_auxz00_3378;
BgL_auxz00_3378 = 
PROCEDURE_ENTRY(BgL_method2774z00_2017)(BgL_method2774z00_2017, 
(obj_t)(BgL_arg3893z00_1427), BEOA); 
BgL_res4122z00_2042 = 
(BgL_nodez00_bglt)(BgL_auxz00_3378); } } 
BgL_arg3890z00_1426 = BgL_res4122z00_2042; } } 
{ /* ./Reduce/sbeta.scm 331 */
BgL_castz00_bglt BgL_obj2282z00_2043;BgL_nodez00_bglt BgL_val2281z00_2044;
BgL_obj2282z00_2043 = BgL_nodez00_1422; 
BgL_val2281z00_2044 = BgL_arg3890z00_1426; 
((((BgL_castz00_bglt)CREF(BgL_obj2282z00_2043))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val2281z00_2044), BUNSPEC); } } 
BgL_auxz00_3357 = BgL_nodez00_1422; 
return 
(obj_t)(BgL_auxz00_3357);} } } 
}



/* node-beta!-funcall2782 */
obj_t BGl_nodezd2betaz12zd2funcall2782z12zzreduce_betaz00(obj_t BgL_envz00_2508, obj_t BgL_nodez00_2509)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 321 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1415;
{ /* ./Reduce/sbeta.scm 322 */
BgL_funcallz00_bglt BgL_auxz00_3386;
BgL_nodez00_1415 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2509); 
{ /* ./Reduce/sbeta.scm 322 */
obj_t BgL_arg3880z00_2013;
BgL_arg3880z00_2013 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1415))->BgL_argsz00); 
BGl_nodezd2betaza2z12z62zzreduce_betaz00(BgL_arg3880z00_2013); } 
BgL_auxz00_3386 = BgL_nodez00_1415; 
return 
(obj_t)(BgL_auxz00_3386);} } } 
}



/* node-beta!-app-ly2780 */
obj_t BGl_nodezd2betaz12zd2appzd2ly2780zc0zzreduce_betaz00(obj_t BgL_envz00_2510, obj_t BgL_nodez00_2511)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 312 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1405;
{ /* ./Reduce/sbeta.scm 313 */
BgL_appzd2lyzd2_bglt BgL_auxz00_3391;
BgL_nodez00_1405 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2511); 
{ /* ./Reduce/sbeta.scm 314 */
BgL_nodez00_bglt BgL_arg3860z00_1409;
{ /* ./Reduce/sbeta.scm 314 */
BgL_nodez00_bglt BgL_arg3863z00_1410;
BgL_arg3863z00_1410 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1405))->BgL_funz00); 
{ /* ./Reduce/sbeta.scm 314 */
BgL_nodez00_bglt BgL_res4116z00_1979;
{ /* ./Reduce/sbeta.scm 314 */
obj_t BgL_method2774z00_1954;
{ /* ./Reduce/sbeta.scm 314 */
BgL_objectz00_bglt BgL_objz00_1955;
BgL_objz00_1955 = 
(BgL_objectz00_bglt)(BgL_arg3863z00_1410); 
{ /* ./Reduce/sbeta.scm 314 */
long BgL_objzd2classzd2numz00_1956;
BgL_objzd2classzd2numz00_1956 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1955); 
{ /* ./Reduce/sbeta.scm 314 */
obj_t BgL_arg2017z00_1957;
{ /* ./Reduce/sbeta.scm 314 */
int BgL_auxz00_3395;
BgL_auxz00_3395 = 
(int)(((long)1)); 
BgL_arg2017z00_1957 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3395); } 
{ /* ./Reduce/sbeta.scm 314 */
int BgL_offsetz00_1960;
BgL_offsetz00_1960 = 
(int)(BgL_objzd2classzd2numz00_1956); 
{ /* ./Reduce/sbeta.scm 314 */
long BgL_offsetz00_1961;
{ /* ./Reduce/sbeta.scm 314 */
long BgL_auxz00_3399;
BgL_auxz00_3399 = 
(long)(BgL_offsetz00_1960); 
BgL_offsetz00_1961 = 
(BgL_auxz00_3399-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 314 */
long BgL_modz00_1962;
{ /* ./Reduce/sbeta.scm 314 */
int BgL_arg2028z00_1963;
BgL_arg2028z00_1963 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 314 */
long BgL_n2z00_1971;
BgL_n2z00_1971 = 
(long)(BgL_arg2028z00_1963); 
BgL_modz00_1962 = 
(BgL_offsetz00_1961/BgL_n2z00_1971); } } 
{ /* ./Reduce/sbeta.scm 314 */
long BgL_restz00_1964;
{ /* ./Reduce/sbeta.scm 314 */
int BgL_arg2024z00_1965;
BgL_arg2024z00_1965 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 314 */
long BgL_n2z00_1974;
BgL_n2z00_1974 = 
(long)(BgL_arg2024z00_1965); 
BgL_restz00_1964 = 
(BgL_offsetz00_1961%BgL_n2z00_1974); } } 
{ /* ./Reduce/sbeta.scm 314 */

{ /* ./Reduce/sbeta.scm 314 */
obj_t BgL_bucketz00_1966;
{ /* ./Reduce/sbeta.scm 314 */
int BgL_kz00_1976;
BgL_kz00_1976 = 
(int)(BgL_modz00_1962); 
BgL_bucketz00_1966 = 
VECTOR_REF(BgL_arg2017z00_1957,BgL_kz00_1976); } 
{ /* ./Reduce/sbeta.scm 314 */
int BgL_kz00_1978;
BgL_kz00_1978 = 
(int)(BgL_restz00_1964); 
BgL_method2774z00_1954 = 
VECTOR_REF(BgL_bucketz00_1966,BgL_kz00_1978); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 314 */
obj_t BgL_auxz00_3412;
BgL_auxz00_3412 = 
PROCEDURE_ENTRY(BgL_method2774z00_1954)(BgL_method2774z00_1954, 
(obj_t)(BgL_arg3863z00_1410), BEOA); 
BgL_res4116z00_1979 = 
(BgL_nodez00_bglt)(BgL_auxz00_3412); } } 
BgL_arg3860z00_1409 = BgL_res4116z00_1979; } } 
{ /* ./Reduce/sbeta.scm 314 */
BgL_appzd2lyzd2_bglt BgL_obj1753z00_1980;BgL_nodez00_bglt BgL_val1752z00_1981;
BgL_obj1753z00_1980 = BgL_nodez00_1405; 
BgL_val1752z00_1981 = BgL_arg3860z00_1409; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1753z00_1980))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1752z00_1981), BUNSPEC); } } 
{ /* ./Reduce/sbeta.scm 315 */
BgL_nodez00_bglt BgL_arg3867z00_1411;
{ /* ./Reduce/sbeta.scm 315 */
BgL_nodez00_bglt BgL_arg3870z00_1412;
BgL_arg3870z00_1412 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1405))->BgL_argz00); 
{ /* ./Reduce/sbeta.scm 315 */
BgL_nodez00_bglt BgL_res4119z00_2009;
{ /* ./Reduce/sbeta.scm 315 */
obj_t BgL_method2774z00_1984;
{ /* ./Reduce/sbeta.scm 315 */
BgL_objectz00_bglt BgL_objz00_1985;
BgL_objz00_1985 = 
(BgL_objectz00_bglt)(BgL_arg3870z00_1412); 
{ /* ./Reduce/sbeta.scm 315 */
long BgL_objzd2classzd2numz00_1986;
BgL_objzd2classzd2numz00_1986 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1985); 
{ /* ./Reduce/sbeta.scm 315 */
obj_t BgL_arg2017z00_1987;
{ /* ./Reduce/sbeta.scm 315 */
int BgL_auxz00_3421;
BgL_auxz00_3421 = 
(int)(((long)1)); 
BgL_arg2017z00_1987 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3421); } 
{ /* ./Reduce/sbeta.scm 315 */
int BgL_offsetz00_1990;
BgL_offsetz00_1990 = 
(int)(BgL_objzd2classzd2numz00_1986); 
{ /* ./Reduce/sbeta.scm 315 */
long BgL_offsetz00_1991;
{ /* ./Reduce/sbeta.scm 315 */
long BgL_auxz00_3425;
BgL_auxz00_3425 = 
(long)(BgL_offsetz00_1990); 
BgL_offsetz00_1991 = 
(BgL_auxz00_3425-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 315 */
long BgL_modz00_1992;
{ /* ./Reduce/sbeta.scm 315 */
int BgL_arg2028z00_1993;
BgL_arg2028z00_1993 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 315 */
long BgL_n2z00_2001;
BgL_n2z00_2001 = 
(long)(BgL_arg2028z00_1993); 
BgL_modz00_1992 = 
(BgL_offsetz00_1991/BgL_n2z00_2001); } } 
{ /* ./Reduce/sbeta.scm 315 */
long BgL_restz00_1994;
{ /* ./Reduce/sbeta.scm 315 */
int BgL_arg2024z00_1995;
BgL_arg2024z00_1995 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 315 */
long BgL_n2z00_2004;
BgL_n2z00_2004 = 
(long)(BgL_arg2024z00_1995); 
BgL_restz00_1994 = 
(BgL_offsetz00_1991%BgL_n2z00_2004); } } 
{ /* ./Reduce/sbeta.scm 315 */

{ /* ./Reduce/sbeta.scm 315 */
obj_t BgL_bucketz00_1996;
{ /* ./Reduce/sbeta.scm 315 */
int BgL_kz00_2006;
BgL_kz00_2006 = 
(int)(BgL_modz00_1992); 
BgL_bucketz00_1996 = 
VECTOR_REF(BgL_arg2017z00_1987,BgL_kz00_2006); } 
{ /* ./Reduce/sbeta.scm 315 */
int BgL_kz00_2008;
BgL_kz00_2008 = 
(int)(BgL_restz00_1994); 
BgL_method2774z00_1984 = 
VECTOR_REF(BgL_bucketz00_1996,BgL_kz00_2008); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 315 */
obj_t BgL_auxz00_3438;
BgL_auxz00_3438 = 
PROCEDURE_ENTRY(BgL_method2774z00_1984)(BgL_method2774z00_1984, 
(obj_t)(BgL_arg3870z00_1412), BEOA); 
BgL_res4119z00_2009 = 
(BgL_nodez00_bglt)(BgL_auxz00_3438); } } 
BgL_arg3867z00_1411 = BgL_res4119z00_2009; } } 
{ /* ./Reduce/sbeta.scm 315 */
BgL_appzd2lyzd2_bglt BgL_obj1756z00_2010;BgL_nodez00_bglt BgL_val1755z00_2011;
BgL_obj1756z00_2010 = BgL_nodez00_1405; 
BgL_val1755z00_2011 = BgL_arg3867z00_1411; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1756z00_2010))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val1755z00_2011), BUNSPEC); } } 
BgL_auxz00_3391 = BgL_nodez00_1405; 
return 
(obj_t)(BgL_auxz00_3391);} } } 
}



/* node-beta!-sequence2778 */
obj_t BGl_nodezd2betaz12zd2sequence2778z12zzreduce_betaz00(obj_t BgL_envz00_2512, obj_t BgL_nodez00_2513)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 304 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1398;
{ /* ./Reduce/sbeta.scm 305 */
BgL_sequencez00_bglt BgL_auxz00_3446;
BgL_nodez00_1398 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2513); 
{ /* ./Reduce/sbeta.scm 305 */
obj_t BgL_arg3850z00_1950;
BgL_arg3850z00_1950 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1398))->BgL_nodesz00); 
BGl_nodezd2betaza2z12z62zzreduce_betaz00(BgL_arg3850z00_1950); } 
BgL_auxz00_3446 = BgL_nodez00_1398; 
return 
(obj_t)(BgL_auxz00_3446);} } } 
}



/* node-beta!-let-var2776 */
obj_t BGl_nodezd2betaz12zd2letzd2var2776zc0zzreduce_betaz00(obj_t BgL_envz00_2514, obj_t BgL_nodez00_2515)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 220 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1221;
BgL_nodez00_1221 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2515); 
{ /* ./Reduce/sbeta.scm 228 */
BgL_nodez00_bglt BgL_abodyz00_1226;
BgL_abodyz00_1226 = 
BGl_findzd2actualzd2expressionz00zzreduce_betaz00(
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bodyz00)); 
{ /* ./Reduce/sbeta.scm 230 */
BgL_nodez00_bglt BgL_arg3483z00_1227;
{ /* ./Reduce/sbeta.scm 230 */
BgL_nodez00_bglt BgL_res4105z00_1745;
{ /* ./Reduce/sbeta.scm 230 */
obj_t BgL_method2774z00_1720;
{ /* ./Reduce/sbeta.scm 230 */
BgL_objectz00_bglt BgL_objz00_1721;
BgL_objz00_1721 = 
(BgL_objectz00_bglt)(BgL_abodyz00_1226); 
{ /* ./Reduce/sbeta.scm 230 */
long BgL_objzd2classzd2numz00_1722;
BgL_objzd2classzd2numz00_1722 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1721); 
{ /* ./Reduce/sbeta.scm 230 */
obj_t BgL_arg2017z00_1723;
{ /* ./Reduce/sbeta.scm 230 */
int BgL_auxz00_3455;
BgL_auxz00_3455 = 
(int)(((long)1)); 
BgL_arg2017z00_1723 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3455); } 
{ /* ./Reduce/sbeta.scm 230 */
int BgL_offsetz00_1726;
BgL_offsetz00_1726 = 
(int)(BgL_objzd2classzd2numz00_1722); 
{ /* ./Reduce/sbeta.scm 230 */
long BgL_offsetz00_1727;
{ /* ./Reduce/sbeta.scm 230 */
long BgL_auxz00_3459;
BgL_auxz00_3459 = 
(long)(BgL_offsetz00_1726); 
BgL_offsetz00_1727 = 
(BgL_auxz00_3459-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 230 */
long BgL_modz00_1728;
{ /* ./Reduce/sbeta.scm 230 */
int BgL_arg2028z00_1729;
BgL_arg2028z00_1729 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 230 */
long BgL_n2z00_1737;
BgL_n2z00_1737 = 
(long)(BgL_arg2028z00_1729); 
BgL_modz00_1728 = 
(BgL_offsetz00_1727/BgL_n2z00_1737); } } 
{ /* ./Reduce/sbeta.scm 230 */
long BgL_restz00_1730;
{ /* ./Reduce/sbeta.scm 230 */
int BgL_arg2024z00_1731;
BgL_arg2024z00_1731 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 230 */
long BgL_n2z00_1740;
BgL_n2z00_1740 = 
(long)(BgL_arg2024z00_1731); 
BgL_restz00_1730 = 
(BgL_offsetz00_1727%BgL_n2z00_1740); } } 
{ /* ./Reduce/sbeta.scm 230 */

{ /* ./Reduce/sbeta.scm 230 */
obj_t BgL_bucketz00_1732;
{ /* ./Reduce/sbeta.scm 230 */
int BgL_kz00_1742;
BgL_kz00_1742 = 
(int)(BgL_modz00_1728); 
BgL_bucketz00_1732 = 
VECTOR_REF(BgL_arg2017z00_1723,BgL_kz00_1742); } 
{ /* ./Reduce/sbeta.scm 230 */
int BgL_kz00_1744;
BgL_kz00_1744 = 
(int)(BgL_restz00_1730); 
BgL_method2774z00_1720 = 
VECTOR_REF(BgL_bucketz00_1732,BgL_kz00_1744); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 230 */
obj_t BgL_auxz00_3472;
BgL_auxz00_3472 = 
PROCEDURE_ENTRY(BgL_method2774z00_1720)(BgL_method2774z00_1720, 
(obj_t)(BgL_abodyz00_1226), BEOA); 
BgL_res4105z00_1745 = 
(BgL_nodez00_bglt)(BgL_auxz00_3472); } } 
BgL_arg3483z00_1227 = BgL_res4105z00_1745; } 
{ /* ./Reduce/sbeta.scm 230 */
BgL_letzd2varzd2_bglt BgL_obj2491z00_1746;BgL_nodez00_bglt BgL_val2490z00_1747;
BgL_obj2491z00_1746 = BgL_nodez00_1221; 
BgL_val2490z00_1747 = BgL_arg3483z00_1227; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2491z00_1746))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2490z00_1747), BUNSPEC); } } 
{ 
obj_t BgL_l2706z00_1228;
{ /* ./Reduce/sbeta.scm 232 */
obj_t BgL_arg3487z00_1230;
BgL_arg3487z00_1230 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_l2706z00_1228 = BgL_arg3487z00_1230; 
BgL_forzd2each2707zd2_1229:
{ /* ./Reduce/sbeta.scm 232 */
bool_t BgL_test3490z00_1231;
BgL_test3490z00_1231 = 
PAIRP(BgL_l2706z00_1228); 
if(BgL_test3490z00_1231)
{ /* ./Reduce/sbeta.scm 232 */
{ /* ./Reduce/sbeta.scm 233 */
obj_t BgL_bindingz00_1232;
BgL_bindingz00_1232 = 
CAR(BgL_l2706z00_1228); 
{ /* ./Reduce/sbeta.scm 233 */
BgL_nodez00_bglt BgL_arg3492z00_1233;
{ /* ./Reduce/sbeta.scm 233 */
obj_t BgL_arg3495z00_1234;
BgL_arg3495z00_1234 = 
CDR(BgL_bindingz00_1232); 
{ /* ./Reduce/sbeta.scm 233 */
BgL_nodez00_bglt BgL_res4108z00_1778;
{ /* ./Reduce/sbeta.scm 233 */
BgL_nodez00_bglt BgL_nodez00_1752;
BgL_nodez00_1752 = 
(BgL_nodez00_bglt)(BgL_arg3495z00_1234); 
{ /* ./Reduce/sbeta.scm 233 */
obj_t BgL_method2774z00_1753;
{ /* ./Reduce/sbeta.scm 233 */
BgL_objectz00_bglt BgL_objz00_1754;
BgL_objz00_1754 = 
(BgL_objectz00_bglt)(BgL_nodez00_1752); 
{ /* ./Reduce/sbeta.scm 233 */
long BgL_objzd2classzd2numz00_1755;
BgL_objzd2classzd2numz00_1755 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1754); 
{ /* ./Reduce/sbeta.scm 233 */
obj_t BgL_arg2017z00_1756;
{ /* ./Reduce/sbeta.scm 233 */
int BgL_auxz00_3486;
BgL_auxz00_3486 = 
(int)(((long)1)); 
BgL_arg2017z00_1756 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3486); } 
{ /* ./Reduce/sbeta.scm 233 */
int BgL_offsetz00_1759;
BgL_offsetz00_1759 = 
(int)(BgL_objzd2classzd2numz00_1755); 
{ /* ./Reduce/sbeta.scm 233 */
long BgL_offsetz00_1760;
{ /* ./Reduce/sbeta.scm 233 */
long BgL_auxz00_3490;
BgL_auxz00_3490 = 
(long)(BgL_offsetz00_1759); 
BgL_offsetz00_1760 = 
(BgL_auxz00_3490-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 233 */
long BgL_modz00_1761;
{ /* ./Reduce/sbeta.scm 233 */
int BgL_arg2028z00_1762;
BgL_arg2028z00_1762 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 233 */
long BgL_n2z00_1770;
BgL_n2z00_1770 = 
(long)(BgL_arg2028z00_1762); 
BgL_modz00_1761 = 
(BgL_offsetz00_1760/BgL_n2z00_1770); } } 
{ /* ./Reduce/sbeta.scm 233 */
long BgL_restz00_1763;
{ /* ./Reduce/sbeta.scm 233 */
int BgL_arg2024z00_1764;
BgL_arg2024z00_1764 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 233 */
long BgL_n2z00_1773;
BgL_n2z00_1773 = 
(long)(BgL_arg2024z00_1764); 
BgL_restz00_1763 = 
(BgL_offsetz00_1760%BgL_n2z00_1773); } } 
{ /* ./Reduce/sbeta.scm 233 */

{ /* ./Reduce/sbeta.scm 233 */
obj_t BgL_bucketz00_1765;
{ /* ./Reduce/sbeta.scm 233 */
int BgL_kz00_1775;
BgL_kz00_1775 = 
(int)(BgL_modz00_1761); 
BgL_bucketz00_1765 = 
VECTOR_REF(BgL_arg2017z00_1756,BgL_kz00_1775); } 
{ /* ./Reduce/sbeta.scm 233 */
int BgL_kz00_1777;
BgL_kz00_1777 = 
(int)(BgL_restz00_1763); 
BgL_method2774z00_1753 = 
VECTOR_REF(BgL_bucketz00_1765,BgL_kz00_1777); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 233 */
obj_t BgL_auxz00_3503;
BgL_auxz00_3503 = 
PROCEDURE_ENTRY(BgL_method2774z00_1753)(BgL_method2774z00_1753, 
(obj_t)(BgL_nodez00_1752), BEOA); 
BgL_res4108z00_1778 = 
(BgL_nodez00_bglt)(BgL_auxz00_3503); } } } 
BgL_arg3492z00_1233 = BgL_res4108z00_1778; } } 
{ /* ./Reduce/sbeta.scm 233 */
obj_t BgL_objz00_1780;
BgL_objz00_1780 = 
(obj_t)(BgL_arg3492z00_1233); 
SET_CDR(BgL_bindingz00_1232, BgL_objz00_1780); } } } 
{ /* ./Reduce/sbeta.scm 232 */
obj_t BgL_arg3500z00_1235;
BgL_arg3500z00_1235 = 
CDR(BgL_l2706z00_1228); 
{ 
obj_t BgL_l2706z00_3511;
BgL_l2706z00_3511 = BgL_arg3500z00_1235; 
BgL_l2706z00_1228 = BgL_l2706z00_3511; 
goto BgL_forzd2each2707zd2_1229;} } }  else 
{ /* ./Reduce/sbeta.scm 232 */((bool_t)1); } } } } 
{ /* ./Reduce/sbeta.scm 237 */
bool_t BgL_test3504z00_1236;
BgL_test3504z00_1236 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_removablezf3zf3); 
if(BgL_test3504z00_1236)
{ /* ./Reduce/sbeta.scm 239 */
bool_t BgL_test3505z00_1237;
{ /* ./Reduce/sbeta.scm 239 */
obj_t BgL_auxz00_3514;
BgL_auxz00_3514 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_test3505z00_1237 = 
NULLP(BgL_auxz00_3514); } 
if(BgL_test3505z00_1237)
{ /* ./Reduce/sbeta.scm 239 */
return 
(obj_t)(BgL_abodyz00_1226);}  else 
{ /* ./Reduce/sbeta.scm 241 */
bool_t BgL_test3506z00_1238;
{ /* ./Reduce/sbeta.scm 241 */
bool_t BgL_test3738z00_1340;
{ 
obj_t BgL_l2708z00_1348;
BgL_l2708z00_1348 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_any2709z00_1349:
{ /* ./Reduce/sbeta.scm 241 */
bool_t BgL_test3758z00_1351;
BgL_test3758z00_1351 = 
NULLP(BgL_l2708z00_1348); 
if(BgL_test3758z00_1351)
{ /* ./Reduce/sbeta.scm 241 */
BgL_test3738z00_1340 = ((bool_t)0); }  else 
{ /* ./Reduce/sbeta.scm 245 */
bool_t BgL_test3759z00_1352;
{ /* ./Reduce/sbeta.scm 245 */
obj_t BgL_bz00_1354;
BgL_bz00_1354 = 
CAR(BgL_l2708z00_1348); 
{ /* ./Reduce/sbeta.scm 245 */
bool_t BgL__ortest_2710z00_1355;
{ /* ./Reduce/sbeta.scm 245 */
long BgL_auxz00_3522;
{ /* ./Reduce/sbeta.scm 245 */
BgL_variablez00_bglt BgL_obj1112z00_1789;
{ /* ./Reduce/sbeta.scm 245 */
obj_t BgL_auxz00_3523;
BgL_auxz00_3523 = 
CAR(BgL_bz00_1354); 
BgL_obj1112z00_1789 = 
(BgL_variablez00_bglt)(BgL_auxz00_3523); } 
BgL_auxz00_3522 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1112z00_1789))->BgL_occurrencez00); } 
BgL__ortest_2710z00_1355 = 
(BgL_auxz00_3522>((long)1)); } 
if(BgL__ortest_2710z00_1355)
{ /* ./Reduce/sbeta.scm 245 */
BgL_test3759z00_1352 = BgL__ortest_2710z00_1355; }  else 
{ /* ./Reduce/sbeta.scm 246 */
bool_t BgL__andtest_2711z00_1356;
{ /* ./Reduce/sbeta.scm 246 */
BgL_localz00_bglt BgL_obj1263z00_1793;
{ /* ./Reduce/sbeta.scm 246 */
obj_t BgL_auxz00_3529;
BgL_auxz00_3529 = 
CAR(BgL_bz00_1354); 
BgL_obj1263z00_1793 = 
(BgL_localz00_bglt)(BgL_auxz00_3529); } 
BgL__andtest_2711z00_1356 = 
(((BgL_localz00_bglt)CREF(BgL_obj1263z00_1793))->BgL_userzf3zf3); } 
if(BgL__andtest_2711z00_1356)
{ /* ./Reduce/sbeta.scm 247 */
long BgL_n1z00_1794;
BgL_n1z00_1794 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test3759z00_1352 = 
(BgL_n1z00_1794>((long)0)); }  else 
{ /* ./Reduce/sbeta.scm 246 */
BgL_test3759z00_1352 = ((bool_t)0); } } } } 
if(BgL_test3759z00_1352)
{ /* ./Reduce/sbeta.scm 241 */
BgL_test3738z00_1340 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 241 */
{ 
obj_t BgL_l2708z00_3537;
BgL_l2708z00_3537 = 
CDR(BgL_l2708z00_1348); 
BgL_l2708z00_1348 = BgL_l2708z00_3537; 
goto BgL_any2709z00_1349;} } } } } 
if(BgL_test3738z00_1340)
{ /* ./Reduce/sbeta.scm 241 */
BgL_test3506z00_1238 = ((bool_t)1); }  else 
{ 
obj_t BgL_l2712z00_1341;
BgL_l2712z00_1341 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_any2713z00_1342:
if(
NULLP(BgL_l2712z00_1341))
{ /* ./Reduce/sbeta.scm 249 */
BgL_test3506z00_1238 = ((bool_t)0); }  else 
{ /* ./Reduce/sbeta.scm 249 */
bool_t BgL_testz00_3543;
{ /* ./Reduce/sbeta.scm 249 */
obj_t BgL_auxz00_3544;
{ /* ./Reduce/sbeta.scm 249 */
obj_t BgL_auxz00_3545;
BgL_auxz00_3545 = 
CAR(BgL_l2712z00_1341); 
BgL_auxz00_3544 = 
CDR(BgL_auxz00_3545); } 
BgL_testz00_3543 = 
BGl_dangerouszf3zf3zzreduce_betaz00(BgL_auxz00_3544); } 
if(BgL_testz00_3543)
{ /* ./Reduce/sbeta.scm 249 */
BgL_test3506z00_1238 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 249 */
{ 
obj_t BgL_l2712z00_3549;
BgL_l2712z00_3549 = 
CDR(BgL_l2712z00_1341); 
BgL_l2712z00_1341 = BgL_l2712z00_3549; 
goto BgL_any2713z00_1342;} } } } } 
if(BgL_test3506z00_1238)
{ /* ./Reduce/sbeta.scm 241 */
return 
(obj_t)(BgL_nodez00_1221);}  else 
{ /* ./Reduce/sbeta.scm 251 */
bool_t BgL_test3507z00_1239;
{ /* ./Reduce/sbeta.scm 251 */
bool_t BgL_test3713z00_1332;
{ /* ./Reduce/sbeta.scm 251 */
obj_t BgL_auxz00_3554;
BgL_auxz00_3554 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_test3713z00_1332 = 
PAIRP(BgL_auxz00_3554); } 
if(BgL_test3713z00_1332)
{ /* ./Reduce/sbeta.scm 252 */
bool_t BgL_test3714z00_1333;
{ /* ./Reduce/sbeta.scm 252 */
obj_t BgL_auxz00_3558;
{ /* ./Reduce/sbeta.scm 252 */
obj_t BgL_auxz00_3559;
BgL_auxz00_3559 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_auxz00_3558 = 
CDR(BgL_auxz00_3559); } 
BgL_test3714z00_1333 = 
NULLP(BgL_auxz00_3558); } 
if(BgL_test3714z00_1333)
{ /* ./Reduce/sbeta.scm 253 */
obj_t BgL_arg3717z00_1334;
{ /* ./Reduce/sbeta.scm 253 */
obj_t BgL_auxz00_3564;
{ /* ./Reduce/sbeta.scm 253 */
obj_t BgL_auxz00_3565;
BgL_auxz00_3565 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_auxz00_3564 = 
CAR(BgL_auxz00_3565); } 
BgL_arg3717z00_1334 = 
CAR(BgL_auxz00_3564); } 
{ /* ./Reduce/sbeta.scm 253 */
bool_t BgL_res4109z00_1818;
{ /* ./Reduce/sbeta.scm 253 */
BgL_variablez00_bglt BgL_varz00_1812;
BgL_varz00_1812 = 
(BgL_variablez00_bglt)(BgL_arg3717z00_1334); 
{ /* ./Reduce/sbeta.scm 253 */
bool_t BgL__andtest_2689z00_1814;
{ /* ./Reduce/sbeta.scm 253 */
obj_t BgL_obj1640z00_1816;
BgL_obj1640z00_1816 = 
(obj_t)(BgL_abodyz00_1226); 
BgL__andtest_2689z00_1814 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_1816, BGl_varz00zzast_nodez00); } 
if(BgL__andtest_2689z00_1814)
{ /* ./Reduce/sbeta.scm 253 */
obj_t BgL_auxz00_3578;obj_t BgL_auxz00_3573;
BgL_auxz00_3578 = 
(obj_t)(BgL_varz00_1812); 
{ /* ./Reduce/sbeta.scm 253 */
BgL_variablez00_bglt BgL_auxz00_3574;
{ /* ./Reduce/sbeta.scm 253 */
BgL_varz00_bglt BgL_obj1625z00_1817;
BgL_obj1625z00_1817 = 
(BgL_varz00_bglt)(BgL_abodyz00_1226); 
BgL_auxz00_3574 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1817))->BgL_variablez00); } 
BgL_auxz00_3573 = 
(obj_t)(BgL_auxz00_3574); } 
BgL_res4109z00_1818 = 
(BgL_auxz00_3573==BgL_auxz00_3578); }  else 
{ /* ./Reduce/sbeta.scm 253 */
BgL_res4109z00_1818 = ((bool_t)0); } } } 
BgL_test3507z00_1239 = BgL_res4109z00_1818; } }  else 
{ /* ./Reduce/sbeta.scm 252 */
BgL_test3507z00_1239 = ((bool_t)0); } }  else 
{ /* ./Reduce/sbeta.scm 251 */
BgL_test3507z00_1239 = ((bool_t)0); } } 
if(BgL_test3507z00_1239)
{ /* ./Reduce/sbeta.scm 251 */
{ /* ./Reduce/sbeta.scm 255 */
long BgL_za71za7_1819;
BgL_za71za7_1819 = BGl_za2removedza2z00zzreduce_betaz00; 
BGl_za2removedza2z00zzreduce_betaz00 = 
(BgL_za71za7_1819+((long)1)); } 
{ /* ./Reduce/sbeta.scm 256 */
obj_t BgL_arg3510z00_1240;
{ /* ./Reduce/sbeta.scm 256 */
obj_t BgL_auxz00_3583;
{ /* ./Reduce/sbeta.scm 256 */
obj_t BgL_auxz00_3584;
BgL_auxz00_3584 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_auxz00_3583 = 
CAR(BgL_auxz00_3584); } 
BgL_arg3510z00_1240 = 
CDR(BgL_auxz00_3583); } 
{ /* ./Reduce/sbeta.scm 256 */
BgL_nodez00_bglt BgL_res4112z00_1852;
{ /* ./Reduce/sbeta.scm 256 */
BgL_nodez00_bglt BgL_nodez00_1826;
BgL_nodez00_1826 = 
(BgL_nodez00_bglt)(BgL_arg3510z00_1240); 
{ /* ./Reduce/sbeta.scm 256 */
obj_t BgL_method2774z00_1827;
{ /* ./Reduce/sbeta.scm 256 */
BgL_objectz00_bglt BgL_objz00_1828;
BgL_objz00_1828 = 
(BgL_objectz00_bglt)(BgL_nodez00_1826); 
{ /* ./Reduce/sbeta.scm 256 */
long BgL_objzd2classzd2numz00_1829;
BgL_objzd2classzd2numz00_1829 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1828); 
{ /* ./Reduce/sbeta.scm 256 */
obj_t BgL_arg2017z00_1830;
{ /* ./Reduce/sbeta.scm 256 */
int BgL_auxz00_3591;
BgL_auxz00_3591 = 
(int)(((long)1)); 
BgL_arg2017z00_1830 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3591); } 
{ /* ./Reduce/sbeta.scm 256 */
int BgL_offsetz00_1833;
BgL_offsetz00_1833 = 
(int)(BgL_objzd2classzd2numz00_1829); 
{ /* ./Reduce/sbeta.scm 256 */
long BgL_offsetz00_1834;
{ /* ./Reduce/sbeta.scm 256 */
long BgL_auxz00_3595;
BgL_auxz00_3595 = 
(long)(BgL_offsetz00_1833); 
BgL_offsetz00_1834 = 
(BgL_auxz00_3595-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 256 */
long BgL_modz00_1835;
{ /* ./Reduce/sbeta.scm 256 */
int BgL_arg2028z00_1836;
BgL_arg2028z00_1836 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 256 */
long BgL_n2z00_1844;
BgL_n2z00_1844 = 
(long)(BgL_arg2028z00_1836); 
BgL_modz00_1835 = 
(BgL_offsetz00_1834/BgL_n2z00_1844); } } 
{ /* ./Reduce/sbeta.scm 256 */
long BgL_restz00_1837;
{ /* ./Reduce/sbeta.scm 256 */
int BgL_arg2024z00_1838;
BgL_arg2024z00_1838 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 256 */
long BgL_n2z00_1847;
BgL_n2z00_1847 = 
(long)(BgL_arg2024z00_1838); 
BgL_restz00_1837 = 
(BgL_offsetz00_1834%BgL_n2z00_1847); } } 
{ /* ./Reduce/sbeta.scm 256 */

{ /* ./Reduce/sbeta.scm 256 */
obj_t BgL_bucketz00_1839;
{ /* ./Reduce/sbeta.scm 256 */
int BgL_kz00_1849;
BgL_kz00_1849 = 
(int)(BgL_modz00_1835); 
BgL_bucketz00_1839 = 
VECTOR_REF(BgL_arg2017z00_1830,BgL_kz00_1849); } 
{ /* ./Reduce/sbeta.scm 256 */
int BgL_kz00_1851;
BgL_kz00_1851 = 
(int)(BgL_restz00_1837); 
BgL_method2774z00_1827 = 
VECTOR_REF(BgL_bucketz00_1839,BgL_kz00_1851); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 256 */
obj_t BgL_auxz00_3608;
BgL_auxz00_3608 = 
PROCEDURE_ENTRY(BgL_method2774z00_1827)(BgL_method2774z00_1827, 
(obj_t)(BgL_nodez00_1826), BEOA); 
BgL_res4112z00_1852 = 
(BgL_nodez00_bglt)(BgL_auxz00_3608); } } } 
return 
(obj_t)(BgL_res4112z00_1852);} } }  else 
{ /* ./Reduce/sbeta.scm 257 */
bool_t BgL_test3516z00_1242;
{ /* ./Reduce/sbeta.scm 257 */
bool_t BgL_test3691z00_1324;
{ /* ./Reduce/sbeta.scm 257 */
obj_t BgL_obj2365z00_1853;
BgL_obj2365z00_1853 = 
(obj_t)(BgL_abodyz00_1226); 
BgL_test3691z00_1324 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2365z00_1853, BGl_conditionalz00zzast_nodez00); } 
if(BgL_test3691z00_1324)
{ /* ./Reduce/sbeta.scm 258 */
bool_t BgL_test3692z00_1325;
{ /* ./Reduce/sbeta.scm 258 */
obj_t BgL_auxz00_3617;
{ /* ./Reduce/sbeta.scm 258 */
obj_t BgL_auxz00_3618;
BgL_auxz00_3618 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_auxz00_3617 = 
CDR(BgL_auxz00_3618); } 
BgL_test3692z00_1325 = 
NULLP(BgL_auxz00_3617); } 
if(BgL_test3692z00_1325)
{ /* ./Reduce/sbeta.scm 259 */
obj_t BgL_arg3694z00_1326;BgL_nodez00_bglt BgL_arg3695z00_1327;
{ /* ./Reduce/sbeta.scm 259 */
obj_t BgL_auxz00_3623;
{ /* ./Reduce/sbeta.scm 259 */
obj_t BgL_auxz00_3624;
BgL_auxz00_3624 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_auxz00_3623 = 
CAR(BgL_auxz00_3624); } 
BgL_arg3694z00_1326 = 
CAR(BgL_auxz00_3623); } 
{ /* ./Reduce/sbeta.scm 260 */
BgL_conditionalz00_bglt BgL_obj2332z00_1860;
BgL_obj2332z00_1860 = 
(BgL_conditionalz00_bglt)(BgL_abodyz00_1226); 
BgL_arg3695z00_1327 = 
(((BgL_conditionalz00_bglt)CREF(BgL_obj2332z00_1860))->BgL_testz00); } 
{ /* ./Reduce/sbeta.scm 259 */
bool_t BgL_res4113z00_1867;
{ /* ./Reduce/sbeta.scm 259 */
BgL_variablez00_bglt BgL_varz00_1861;
BgL_varz00_1861 = 
(BgL_variablez00_bglt)(BgL_arg3694z00_1326); 
{ /* ./Reduce/sbeta.scm 259 */
bool_t BgL__andtest_2689z00_1863;
{ /* ./Reduce/sbeta.scm 259 */
obj_t BgL_obj1640z00_1865;
BgL_obj1640z00_1865 = 
(obj_t)(BgL_arg3695z00_1327); 
BgL__andtest_2689z00_1863 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_1865, BGl_varz00zzast_nodez00); } 
if(BgL__andtest_2689z00_1863)
{ /* ./Reduce/sbeta.scm 259 */
obj_t BgL_auxz00_3639;obj_t BgL_auxz00_3634;
BgL_auxz00_3639 = 
(obj_t)(BgL_varz00_1861); 
{ /* ./Reduce/sbeta.scm 259 */
BgL_variablez00_bglt BgL_auxz00_3635;
{ /* ./Reduce/sbeta.scm 259 */
BgL_varz00_bglt BgL_obj1625z00_1866;
BgL_obj1625z00_1866 = 
(BgL_varz00_bglt)(BgL_arg3695z00_1327); 
BgL_auxz00_3635 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1866))->BgL_variablez00); } 
BgL_auxz00_3634 = 
(obj_t)(BgL_auxz00_3635); } 
BgL_res4113z00_1867 = 
(BgL_auxz00_3634==BgL_auxz00_3639); }  else 
{ /* ./Reduce/sbeta.scm 259 */
BgL_res4113z00_1867 = ((bool_t)0); } } } 
BgL_test3516z00_1242 = BgL_res4113z00_1867; } }  else 
{ /* ./Reduce/sbeta.scm 258 */
BgL_test3516z00_1242 = ((bool_t)0); } }  else 
{ /* ./Reduce/sbeta.scm 257 */
BgL_test3516z00_1242 = ((bool_t)0); } } 
if(BgL_test3516z00_1242)
{ /* ./Reduce/sbeta.scm 257 */
{ /* ./Reduce/sbeta.scm 262 */
long BgL_za71za7_1868;
BgL_za71za7_1868 = BGl_za2removedza2z00zzreduce_betaz00; 
BGl_za2removedza2z00zzreduce_betaz00 = 
(BgL_za71za7_1868+((long)1)); } 
{ /* ./Reduce/sbeta.scm 263 */
obj_t BgL_valz00_1243;
{ /* ./Reduce/sbeta.scm 263 */
obj_t BgL_auxz00_3644;
{ /* ./Reduce/sbeta.scm 263 */
obj_t BgL_auxz00_3645;
BgL_auxz00_3645 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_auxz00_3644 = 
CAR(BgL_auxz00_3645); } 
BgL_valz00_1243 = 
CDR(BgL_auxz00_3644); } 
{ /* ./Reduce/sbeta.scm 264 */
BgL_conditionalz00_bglt BgL_obj2334z00_1873;BgL_nodez00_bglt BgL_val2333z00_1874;
BgL_obj2334z00_1873 = 
(BgL_conditionalz00_bglt)(BgL_abodyz00_1226); 
BgL_val2333z00_1874 = 
(BgL_nodez00_bglt)(BgL_valz00_1243); 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2334z00_1873))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2333z00_1874), BUNSPEC); } 
{ /* ./Reduce/sbeta.scm 265 */
bool_t BgL_test3519z00_1244;
{ /* ./Reduce/sbeta.scm 265 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_1875;
BgL_obj1578z00_1875 = 
(BgL_nodezf2effectzf2_bglt)(BgL_abodyz00_1226); 
{ /* ./Reduce/sbeta.scm 265 */
obj_t BgL_auxz00_3653;
BgL_auxz00_3653 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_1875))->BgL_sidezd2effectzf3z21); 
BgL_test3519z00_1244 = 
CBOOL(BgL_auxz00_3653); } } 
if(BgL_test3519z00_1244)
{ /* ./Reduce/sbeta.scm 265 */BFALSE; }  else 
{ /* ./Reduce/sbeta.scm 266 */
bool_t BgL_arg3521z00_1245;
BgL_arg3521z00_1245 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_valz00_1243)); 
{ /* ./Reduce/sbeta.scm 266 */
BgL_nodezf2effectzf2_bglt BgL_obj1580z00_1876;obj_t BgL_val1579z00_1877;
BgL_obj1580z00_1876 = 
(BgL_nodezf2effectzf2_bglt)(BgL_abodyz00_1226); 
BgL_val1579z00_1877 = 
BBOOL(BgL_arg3521z00_1245); 
((((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1580z00_1876))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1579z00_1877), BUNSPEC); } } } } 
return 
(obj_t)(BgL_abodyz00_1226);}  else 
{ /* ./Reduce/sbeta.scm 268 */
bool_t BgL_test3532z00_1248;
{ /* ./Reduce/sbeta.scm 268 */
bool_t BgL_test3635z00_1297;
{ /* ./Reduce/sbeta.scm 268 */
obj_t BgL_obj1746z00_1878;
BgL_obj1746z00_1878 = 
(obj_t)(BgL_abodyz00_1226); 
BgL_test3635z00_1297 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1746z00_1878, BGl_appz00zzast_nodez00); } 
if(BgL_test3635z00_1297)
{ /* ./Reduce/sbeta.scm 269 */
bool_t BgL_test3636z00_1298;
{ 
obj_t BgL_l2714z00_1317;
{ /* ./Reduce/sbeta.scm 269 */
BgL_appz00_bglt BgL_obj1722z00_1879;
BgL_obj1722z00_1879 = 
(BgL_appz00_bglt)(BgL_abodyz00_1226); 
BgL_l2714z00_1317 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1879))->BgL_argsz00); } 
BgL_every2715z00_1318:
if(
NULLP(BgL_l2714z00_1317))
{ /* ./Reduce/sbeta.scm 269 */
BgL_test3636z00_1298 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 269 */
if(
BGl_simplezf3zf3zzreduce_betaz00(
CAR(BgL_l2714z00_1317)))
{ /* ./Reduce/sbeta.scm 269 */
{ 
obj_t BgL_l2714z00_3671;
BgL_l2714z00_3671 = 
CDR(BgL_l2714z00_1317); 
BgL_l2714z00_1317 = BgL_l2714z00_3671; 
goto BgL_every2715z00_1318;} }  else 
{ /* ./Reduce/sbeta.scm 269 */
BgL_test3636z00_1298 = ((bool_t)0); } } } 
if(BgL_test3636z00_1298)
{ /* ./Reduce/sbeta.scm 270 */
bool_t BgL_test3637z00_1299;
{ 
obj_t BgL_l2716z00_1309;
{ /* ./Reduce/sbeta.scm 270 */
obj_t BgL_arg3658z00_1311;
{ /* ./Reduce/sbeta.scm 270 */
BgL_appz00_bglt BgL_obj1722z00_1884;
{ /* ./Reduce/sbeta.scm 270 */
BgL_nodez00_bglt BgL_auxz00_3676;
BgL_auxz00_3676 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bodyz00); 
BgL_obj1722z00_1884 = 
(BgL_appz00_bglt)(BgL_auxz00_3676); } 
BgL_arg3658z00_1311 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1884))->BgL_argsz00); } 
BgL_l2716z00_1309 = BgL_arg3658z00_1311; 
BgL_any2717z00_1310:
{ /* ./Reduce/sbeta.scm 270 */
bool_t BgL_test3664z00_1313;
BgL_test3664z00_1313 = 
NULLP(BgL_l2716z00_1309); 
if(BgL_test3664z00_1313)
{ /* ./Reduce/sbeta.scm 270 */
BgL_test3637z00_1299 = ((bool_t)0); }  else 
{ /* ./Reduce/sbeta.scm 270 */
bool_t BgL_test3665z00_1314;
{ /* ./Reduce/sbeta.scm 270 */
obj_t BgL_arg3671z00_1316;
BgL_arg3671z00_1316 = 
CAR(BgL_l2716z00_1309); 
BgL_test3665z00_1314 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_arg3671z00_1316)); } 
if(BgL_test3665z00_1314)
{ /* ./Reduce/sbeta.scm 270 */
BgL_test3637z00_1299 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 270 */
{ /* ./Reduce/sbeta.scm 270 */
obj_t BgL_arg3667z00_1315;
BgL_arg3667z00_1315 = 
CDR(BgL_l2716z00_1309); 
{ 
obj_t BgL_l2716z00_3687;
BgL_l2716z00_3687 = BgL_arg3667z00_1315; 
BgL_l2716z00_1309 = BgL_l2716z00_3687; 
goto BgL_any2717z00_1310;} } } } } } } 
if(BgL_test3637z00_1299)
{ /* ./Reduce/sbeta.scm 270 */
BgL_test3532z00_1248 = ((bool_t)0); }  else 
{ 
obj_t BgL_l2718z00_1300;
BgL_l2718z00_1300 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_every2719z00_1301:
if(
NULLP(BgL_l2718z00_1300))
{ /* ./Reduce/sbeta.scm 271 */
BgL_test3532z00_1248 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 271 */
bool_t BgL_testz00_3691;
{ /* ./Reduce/sbeta.scm 272 */
obj_t BgL_auxz00_3698;BgL_variablez00_bglt BgL_auxz00_3692;
{ /* ./Reduce/sbeta.scm 272 */
BgL_appz00_bglt BgL_obj1722z00_1892;
BgL_obj1722z00_1892 = 
(BgL_appz00_bglt)(BgL_abodyz00_1226); 
BgL_auxz00_3698 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1892))->BgL_argsz00); } 
{ /* ./Reduce/sbeta.scm 272 */
obj_t BgL_auxz00_3693;
{ /* ./Reduce/sbeta.scm 272 */
obj_t BgL_auxz00_3694;
BgL_auxz00_3694 = 
CAR(BgL_l2718z00_1300); 
BgL_auxz00_3693 = 
CAR(BgL_auxz00_3694); } 
BgL_auxz00_3692 = 
(BgL_variablez00_bglt)(BgL_auxz00_3693); } 
BgL_testz00_3691 = 
BGl_argumentzf3zf3zzreduce_betaz00(BgL_auxz00_3692, BgL_auxz00_3698); } 
if(BgL_testz00_3691)
{ /* ./Reduce/sbeta.scm 271 */
{ 
obj_t BgL_l2718z00_3702;
BgL_l2718z00_3702 = 
CDR(BgL_l2718z00_1300); 
BgL_l2718z00_1300 = BgL_l2718z00_3702; 
goto BgL_every2719z00_1301;} }  else 
{ /* ./Reduce/sbeta.scm 271 */
BgL_test3532z00_1248 = ((bool_t)0); } } } }  else 
{ /* ./Reduce/sbeta.scm 269 */
BgL_test3532z00_1248 = ((bool_t)0); } }  else 
{ /* ./Reduce/sbeta.scm 268 */
BgL_test3532z00_1248 = ((bool_t)0); } } 
if(BgL_test3532z00_1248)
{ /* ./Reduce/sbeta.scm 268 */
{ /* ./Reduce/sbeta.scm 276 */
long BgL_arg3534z00_1249;
BgL_arg3534z00_1249 = 
bgl_list_length(
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00)); 
{ /* ./Reduce/sbeta.scm 276 */
long BgL_za71za7_1895;
BgL_za71za7_1895 = BGl_za2removedza2z00zzreduce_betaz00; 
BGl_za2removedza2z00zzreduce_betaz00 = 
(BgL_za71za7_1895+BgL_arg3534z00_1249); } } 
{ /* ./Reduce/sbeta.scm 278 */
obj_t BgL_nargsz00_1252;
{ /* ./Reduce/sbeta.scm 278 */
obj_t BgL_arg3559z00_1261;obj_t BgL_arg3560z00_1262;
BgL_arg3559z00_1261 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
{ /* ./Reduce/sbeta.scm 278 */
BgL_appz00_bglt BgL_obj1722z00_1898;
BgL_obj1722z00_1898 = 
(BgL_appz00_bglt)(BgL_abodyz00_1226); 
BgL_arg3560z00_1262 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1898))->BgL_argsz00); } 
BgL_nargsz00_1252 = 
BGl_makezd2argszd2listz00zzreduce_betaz00(BgL_arg3559z00_1261, BgL_arg3560z00_1262); } 
{ /* ./Reduce/sbeta.scm 279 */
BgL_appz00_bglt BgL_obj1724z00_1899;obj_t BgL_val1723z00_1900;
BgL_obj1724z00_1899 = 
(BgL_appz00_bglt)(BgL_abodyz00_1226); 
BgL_val1723z00_1900 = BgL_nargsz00_1252; 
((((BgL_appz00_bglt)CREF(BgL_obj1724z00_1899))->BgL_argsz00) = ((obj_t)BgL_val1723z00_1900), BUNSPEC); } 
{ /* ./Reduce/sbeta.scm 280 */
bool_t BgL_test3541z00_1253;
{ /* ./Reduce/sbeta.scm 280 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_1901;
BgL_obj1578z00_1901 = 
(BgL_nodezf2effectzf2_bglt)(BgL_abodyz00_1226); 
{ /* ./Reduce/sbeta.scm 280 */
obj_t BgL_auxz00_3716;
BgL_auxz00_3716 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_1901))->BgL_sidezd2effectzf3z21); 
BgL_test3541z00_1253 = 
CBOOL(BgL_auxz00_3716); } } 
if(BgL_test3541z00_1253)
{ /* ./Reduce/sbeta.scm 280 */BFALSE; }  else 
{ /* ./Reduce/sbeta.scm 282 */
bool_t BgL_arg3543z00_1254;
{ 
obj_t BgL_l2722z00_1255;
BgL_l2722z00_1255 = BgL_nargsz00_1252; 
BgL_any2723z00_1256:
{ /* ./Reduce/sbeta.scm 282 */
bool_t BgL_test3546z00_1257;
BgL_test3546z00_1257 = 
NULLP(BgL_l2722z00_1255); 
if(BgL_test3546z00_1257)
{ /* ./Reduce/sbeta.scm 282 */
BgL_arg3543z00_1254 = ((bool_t)0); }  else 
{ /* ./Reduce/sbeta.scm 282 */
bool_t BgL_test3547z00_1258;
{ /* ./Reduce/sbeta.scm 282 */
obj_t BgL_arg3553z00_1260;
BgL_arg3553z00_1260 = 
CAR(BgL_l2722z00_1255); 
BgL_test3547z00_1258 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_arg3553z00_1260)); } 
if(BgL_test3547z00_1258)
{ /* ./Reduce/sbeta.scm 282 */
BgL_arg3543z00_1254 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 282 */
{ /* ./Reduce/sbeta.scm 282 */
obj_t BgL_arg3549z00_1259;
BgL_arg3549z00_1259 = 
CDR(BgL_l2722z00_1255); 
{ 
obj_t BgL_l2722z00_3727;
BgL_l2722z00_3727 = BgL_arg3549z00_1259; 
BgL_l2722z00_1255 = BgL_l2722z00_3727; 
goto BgL_any2723z00_1256;} } } } } } 
{ /* ./Reduce/sbeta.scm 281 */
BgL_nodezf2effectzf2_bglt BgL_obj1580z00_1905;obj_t BgL_val1579z00_1906;
BgL_obj1580z00_1905 = 
(BgL_nodezf2effectzf2_bglt)(BgL_abodyz00_1226); 
BgL_val1579z00_1906 = 
BBOOL(BgL_arg3543z00_1254); 
((((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1580z00_1905))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1579z00_1906), BUNSPEC); } } } } 
return 
(obj_t)(BgL_abodyz00_1226);}  else 
{ /* ./Reduce/sbeta.scm 284 */
bool_t BgL_test3564z00_1263;
{ /* ./Reduce/sbeta.scm 284 */
bool_t BgL_test3599z00_1279;
{ /* ./Reduce/sbeta.scm 284 */
obj_t BgL_obj1844z00_1907;
BgL_obj1844z00_1907 = 
(obj_t)(BgL_abodyz00_1226); 
BgL_test3599z00_1279 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1844z00_1907, BGl_externz00zzast_nodez00); } 
if(BgL_test3599z00_1279)
{ /* ./Reduce/sbeta.scm 285 */
bool_t BgL_testz00_3735;
{ 
obj_t BgL_l2724z00_1290;
{ /* ./Reduce/sbeta.scm 285 */
BgL_externz00_bglt BgL_obj1817z00_1908;
BgL_obj1817z00_1908 = 
(BgL_externz00_bglt)(BgL_abodyz00_1226); 
BgL_l2724z00_1290 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1908))->BgL_exprza2za2); } 
BgL_every2725z00_1291:
if(
NULLP(BgL_l2724z00_1290))
{ /* ./Reduce/sbeta.scm 285 */
BgL_testz00_3735 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 285 */
if(
BGl_simplezf3zf3zzreduce_betaz00(
CAR(BgL_l2724z00_1290)))
{ /* ./Reduce/sbeta.scm 285 */
{ 
obj_t BgL_l2724z00_3741;
BgL_l2724z00_3741 = 
CDR(BgL_l2724z00_1290); 
BgL_l2724z00_1290 = BgL_l2724z00_3741; 
goto BgL_every2725z00_1291;} }  else 
{ /* ./Reduce/sbeta.scm 285 */
BgL_testz00_3735 = ((bool_t)0); } } } 
if(BgL_testz00_3735)
{ 
obj_t BgL_l2726z00_1281;
BgL_l2726z00_1281 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
BgL_every2727z00_1282:
if(
NULLP(BgL_l2726z00_1281))
{ /* ./Reduce/sbeta.scm 286 */
BgL_test3564z00_1263 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 286 */
bool_t BgL_testz00_3747;
{ /* ./Reduce/sbeta.scm 286 */
obj_t BgL_auxz00_3754;BgL_variablez00_bglt BgL_auxz00_3748;
{ /* ./Reduce/sbeta.scm 286 */
BgL_externz00_bglt BgL_obj1817z00_1916;
BgL_obj1817z00_1916 = 
(BgL_externz00_bglt)(BgL_abodyz00_1226); 
BgL_auxz00_3754 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1916))->BgL_exprza2za2); } 
{ /* ./Reduce/sbeta.scm 286 */
obj_t BgL_auxz00_3749;
{ /* ./Reduce/sbeta.scm 286 */
obj_t BgL_auxz00_3750;
BgL_auxz00_3750 = 
CAR(BgL_l2726z00_1281); 
BgL_auxz00_3749 = 
CAR(BgL_auxz00_3750); } 
BgL_auxz00_3748 = 
(BgL_variablez00_bglt)(BgL_auxz00_3749); } 
BgL_testz00_3747 = 
BGl_argumentzf3zf3zzreduce_betaz00(BgL_auxz00_3748, BgL_auxz00_3754); } 
if(BgL_testz00_3747)
{ /* ./Reduce/sbeta.scm 286 */
{ 
obj_t BgL_l2726z00_3758;
BgL_l2726z00_3758 = 
CDR(BgL_l2726z00_1281); 
BgL_l2726z00_1281 = BgL_l2726z00_3758; 
goto BgL_every2727z00_1282;} }  else 
{ /* ./Reduce/sbeta.scm 286 */
BgL_test3564z00_1263 = ((bool_t)0); } } }  else 
{ /* ./Reduce/sbeta.scm 285 */
BgL_test3564z00_1263 = ((bool_t)0); } }  else 
{ /* ./Reduce/sbeta.scm 284 */
BgL_test3564z00_1263 = ((bool_t)0); } } 
if(BgL_test3564z00_1263)
{ /* ./Reduce/sbeta.scm 284 */
{ /* ./Reduce/sbeta.scm 290 */
long BgL_arg3566z00_1264;
BgL_arg3566z00_1264 = 
bgl_list_length(
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00)); 
{ /* ./Reduce/sbeta.scm 290 */
long BgL_za71za7_1919;
BgL_za71za7_1919 = BGl_za2removedza2z00zzreduce_betaz00; 
BGl_za2removedza2z00zzreduce_betaz00 = 
(BgL_za71za7_1919+BgL_arg3566z00_1264); } } 
{ /* ./Reduce/sbeta.scm 292 */
obj_t BgL_nexprza2za2_1267;
{ /* ./Reduce/sbeta.scm 292 */
obj_t BgL_arg3591z00_1276;obj_t BgL_arg3592z00_1277;
BgL_arg3591z00_1276 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bindingsz00); 
{ /* ./Reduce/sbeta.scm 292 */
BgL_externz00_bglt BgL_obj1817z00_1923;
{ /* ./Reduce/sbeta.scm 292 */
BgL_nodez00_bglt BgL_auxz00_3766;
BgL_auxz00_3766 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1221))->BgL_bodyz00); 
BgL_obj1817z00_1923 = 
(BgL_externz00_bglt)(BgL_auxz00_3766); } 
BgL_arg3592z00_1277 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1923))->BgL_exprza2za2); } 
BgL_nexprza2za2_1267 = 
BGl_makezd2argszd2listz00zzreduce_betaz00(BgL_arg3591z00_1276, BgL_arg3592z00_1277); } 
{ /* ./Reduce/sbeta.scm 293 */
BgL_externz00_bglt BgL_obj1819z00_1924;obj_t BgL_val1818z00_1925;
BgL_obj1819z00_1924 = 
(BgL_externz00_bglt)(BgL_abodyz00_1226); 
BgL_val1818z00_1925 = BgL_nexprza2za2_1267; 
((((BgL_externz00_bglt)CREF(BgL_obj1819z00_1924))->BgL_exprza2za2) = ((obj_t)BgL_val1818z00_1925), BUNSPEC); } 
{ /* ./Reduce/sbeta.scm 294 */
bool_t BgL_test3573z00_1268;
{ /* ./Reduce/sbeta.scm 294 */
BgL_nodezf2effectzf2_bglt BgL_obj1578z00_1926;
BgL_obj1578z00_1926 = 
(BgL_nodezf2effectzf2_bglt)(BgL_abodyz00_1226); 
{ /* ./Reduce/sbeta.scm 294 */
obj_t BgL_auxz00_3774;
BgL_auxz00_3774 = 
(((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1578z00_1926))->BgL_sidezd2effectzf3z21); 
BgL_test3573z00_1268 = 
CBOOL(BgL_auxz00_3774); } } 
if(BgL_test3573z00_1268)
{ /* ./Reduce/sbeta.scm 294 */BFALSE; }  else 
{ /* ./Reduce/sbeta.scm 296 */
bool_t BgL_arg3575z00_1269;
{ 
obj_t BgL_l2730z00_1270;
BgL_l2730z00_1270 = BgL_nexprza2za2_1267; 
BgL_any2731z00_1271:
{ /* ./Reduce/sbeta.scm 296 */
bool_t BgL_test3578z00_1272;
BgL_test3578z00_1272 = 
NULLP(BgL_l2730z00_1270); 
if(BgL_test3578z00_1272)
{ /* ./Reduce/sbeta.scm 296 */
BgL_arg3575z00_1269 = ((bool_t)0); }  else 
{ /* ./Reduce/sbeta.scm 296 */
bool_t BgL_test3579z00_1273;
{ /* ./Reduce/sbeta.scm 296 */
obj_t BgL_arg3585z00_1275;
BgL_arg3585z00_1275 = 
CAR(BgL_l2730z00_1270); 
BgL_test3579z00_1273 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_arg3585z00_1275)); } 
if(BgL_test3579z00_1273)
{ /* ./Reduce/sbeta.scm 296 */
BgL_arg3575z00_1269 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 296 */
{ /* ./Reduce/sbeta.scm 296 */
obj_t BgL_arg3581z00_1274;
BgL_arg3581z00_1274 = 
CDR(BgL_l2730z00_1270); 
{ 
obj_t BgL_l2730z00_3785;
BgL_l2730z00_3785 = BgL_arg3581z00_1274; 
BgL_l2730z00_1270 = BgL_l2730z00_3785; 
goto BgL_any2731z00_1271;} } } } } } 
{ /* ./Reduce/sbeta.scm 295 */
BgL_nodezf2effectzf2_bglt BgL_obj1580z00_1930;obj_t BgL_val1579z00_1931;
BgL_obj1580z00_1930 = 
(BgL_nodezf2effectzf2_bglt)(BgL_abodyz00_1226); 
BgL_val1579z00_1931 = 
BBOOL(BgL_arg3575z00_1269); 
((((BgL_nodezf2effectzf2_bglt)CREF(BgL_obj1580z00_1930))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1579z00_1931), BUNSPEC); } } } } 
return 
(obj_t)(BgL_abodyz00_1226);}  else 
{ /* ./Reduce/sbeta.scm 284 */
return 
(obj_t)(BgL_nodez00_1221);} } } } } } }  else 
{ /* ./Reduce/sbeta.scm 237 */
return 
(obj_t)(BgL_nodez00_1221);} } } } } 
}



/* simple? */
bool_t BGl_simplezf3zf3zzreduce_betaz00(obj_t BgL_ez00_1363)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 226 */
{ /* ./Reduce/sbeta.scm 222 */
bool_t BgL__ortest_2690z00_1365;
BgL__ortest_2690z00_1365 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_1363, BGl_atomz00zzast_nodez00); 
if(BgL__ortest_2690z00_1365)
{ /* ./Reduce/sbeta.scm 222 */
return BgL__ortest_2690z00_1365;}  else 
{ /* ./Reduce/sbeta.scm 223 */
bool_t BgL__ortest_2691z00_1366;
BgL__ortest_2691z00_1366 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_1363, BGl_varz00zzast_nodez00); 
if(BgL__ortest_2691z00_1366)
{ /* ./Reduce/sbeta.scm 223 */
return BgL__ortest_2691z00_1366;}  else 
{ /* ./Reduce/sbeta.scm 224 */
bool_t BgL__ortest_2692z00_1367;
{ /* ./Reduce/sbeta.scm 224 */
bool_t BgL__andtest_2694z00_1387;
BgL__andtest_2694z00_1387 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_1363, BGl_vrefz00zzast_nodez00); 
if(BgL__andtest_2694z00_1387)
{ 
obj_t BgL_l2695z00_1388;
{ /* ./Reduce/sbeta.scm 224 */
BgL_externz00_bglt BgL_obj1817z00_1935;
BgL_obj1817z00_1935 = 
(BgL_externz00_bglt)(BgL_ez00_1363); 
BgL_l2695z00_1388 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1935))->BgL_exprza2za2); } 
BgL_every2696z00_1389:
if(
NULLP(BgL_l2695z00_1388))
{ /* ./Reduce/sbeta.scm 224 */
BgL__ortest_2692z00_1367 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 224 */
if(
BGl_simplezf3zf3zzreduce_betaz00(
CAR(BgL_l2695z00_1388)))
{ /* ./Reduce/sbeta.scm 224 */
{ 
obj_t BgL_l2695z00_3804;
BgL_l2695z00_3804 = 
CDR(BgL_l2695z00_1388); 
BgL_l2695z00_1388 = BgL_l2695z00_3804; 
goto BgL_every2696z00_1389;} }  else 
{ /* ./Reduce/sbeta.scm 224 */
BgL__ortest_2692z00_1367 = ((bool_t)0); } } }  else 
{ /* ./Reduce/sbeta.scm 224 */
BgL__ortest_2692z00_1367 = ((bool_t)0); } } 
if(BgL__ortest_2692z00_1367)
{ /* ./Reduce/sbeta.scm 224 */
return BgL__ortest_2692z00_1367;}  else 
{ /* ./Reduce/sbeta.scm 225 */
bool_t BgL__ortest_2693z00_1368;
{ /* ./Reduce/sbeta.scm 225 */
bool_t BgL__andtest_2697z00_1377;
BgL__andtest_2697z00_1377 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_1363, BGl_appz00zzast_nodez00); 
if(BgL__andtest_2697z00_1377)
{ /* ./Reduce/sbeta.scm 225 */
bool_t BgL_testz00_3811;
{ 
obj_t BgL_l2699z00_1380;
{ /* ./Reduce/sbeta.scm 225 */
BgL_appz00_bglt BgL_obj1722z00_1940;
BgL_obj1722z00_1940 = 
(BgL_appz00_bglt)(BgL_ez00_1363); 
BgL_l2699z00_1380 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1940))->BgL_argsz00); } 
BgL_every2700z00_1381:
if(
NULLP(BgL_l2699z00_1380))
{ /* ./Reduce/sbeta.scm 225 */
BgL_testz00_3811 = ((bool_t)1); }  else 
{ /* ./Reduce/sbeta.scm 225 */
if(
BGl_simplezf3zf3zzreduce_betaz00(
CAR(BgL_l2699z00_1380)))
{ /* ./Reduce/sbeta.scm 225 */
{ 
obj_t BgL_l2699z00_3817;
BgL_l2699z00_3817 = 
CDR(BgL_l2699z00_1380); 
BgL_l2699z00_1380 = BgL_l2699z00_3817; 
goto BgL_every2700z00_1381;} }  else 
{ /* ./Reduce/sbeta.scm 225 */
BgL_testz00_3811 = ((bool_t)0); } } } 
if(BgL_testz00_3811)
{ /* ./Reduce/sbeta.scm 225 */
if(
BGl_dangerouszf3zf3zzreduce_betaz00(BgL_ez00_1363))
{ /* ./Reduce/sbeta.scm 225 */
BgL__ortest_2693z00_1368 = ((bool_t)0); }  else 
{ /* ./Reduce/sbeta.scm 225 */
BgL__ortest_2693z00_1368 = ((bool_t)1); } }  else 
{ /* ./Reduce/sbeta.scm 225 */
BgL__ortest_2693z00_1368 = ((bool_t)0); } }  else 
{ /* ./Reduce/sbeta.scm 225 */
BgL__ortest_2693z00_1368 = ((bool_t)0); } } 
if(BgL__ortest_2693z00_1368)
{ /* ./Reduce/sbeta.scm 225 */
return BgL__ortest_2693z00_1368;}  else 
{ /* ./Reduce/sbeta.scm 226 */
bool_t BgL__andtest_2701z00_1369;
BgL__andtest_2701z00_1369 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_1363, BGl_getfieldz00zzast_nodez00); 
if(BgL__andtest_2701z00_1369)
{ 
obj_t BgL_l2702z00_1370;
{ /* ./Reduce/sbeta.scm 226 */
BgL_externz00_bglt BgL_obj1817z00_1945;
BgL_obj1817z00_1945 = 
(BgL_externz00_bglt)(BgL_ez00_1363); 
BgL_l2702z00_1370 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1945))->BgL_exprza2za2); } 
BgL_every2703z00_1371:
if(
NULLP(BgL_l2702z00_1370))
{ /* ./Reduce/sbeta.scm 226 */
return ((bool_t)1);}  else 
{ /* ./Reduce/sbeta.scm 226 */
if(
BGl_simplezf3zf3zzreduce_betaz00(
CAR(BgL_l2702z00_1370)))
{ /* ./Reduce/sbeta.scm 226 */
{ 
obj_t BgL_l2702z00_3831;
BgL_l2702z00_3831 = 
CDR(BgL_l2702z00_1370); 
BgL_l2702z00_1370 = BgL_l2702z00_3831; 
goto BgL_every2703z00_1371;} }  else 
{ /* ./Reduce/sbeta.scm 226 */
return ((bool_t)0);} } }  else 
{ /* ./Reduce/sbeta.scm 226 */
return ((bool_t)0);} } } } } } } 
}



/* node-beta! */
BgL_nodez00_bglt BGl_nodezd2betaz12zc0zzreduce_betaz00(BgL_nodez00_bglt BgL_nodez00_2)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 87 */
{ /* ./Reduce/sbeta.scm 87 */
obj_t BgL_method2774z00_2445;
{ /* ./Reduce/sbeta.scm 87 */
BgL_objectz00_bglt BgL_objz00_2446;
BgL_objz00_2446 = 
(BgL_objectz00_bglt)(BgL_nodez00_2); 
{ /* ./Reduce/sbeta.scm 87 */
long BgL_objzd2classzd2numz00_2447;
BgL_objzd2classzd2numz00_2447 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2446); 
{ /* ./Reduce/sbeta.scm 87 */
obj_t BgL_arg2017z00_2448;
{ /* ./Reduce/sbeta.scm 87 */
int BgL_auxz00_3837;
BgL_auxz00_3837 = 
(int)(((long)1)); 
BgL_arg2017z00_2448 = 
PROCEDURE_REF(BGl_nodezd2betaz12zd2envz12zzreduce_betaz00, BgL_auxz00_3837); } 
{ /* ./Reduce/sbeta.scm 87 */
int BgL_offsetz00_2451;
BgL_offsetz00_2451 = 
(int)(BgL_objzd2classzd2numz00_2447); 
{ /* ./Reduce/sbeta.scm 87 */
long BgL_offsetz00_2452;
{ /* ./Reduce/sbeta.scm 87 */
long BgL_auxz00_3841;
BgL_auxz00_3841 = 
(long)(BgL_offsetz00_2451); 
BgL_offsetz00_2452 = 
(BgL_auxz00_3841-OBJECT_TYPE); } 
{ /* ./Reduce/sbeta.scm 87 */
long BgL_modz00_2453;
{ /* ./Reduce/sbeta.scm 87 */
int BgL_arg2028z00_2454;
BgL_arg2028z00_2454 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 87 */
long BgL_n2z00_2462;
BgL_n2z00_2462 = 
(long)(BgL_arg2028z00_2454); 
BgL_modz00_2453 = 
(BgL_offsetz00_2452/BgL_n2z00_2462); } } 
{ /* ./Reduce/sbeta.scm 87 */
long BgL_restz00_2455;
{ /* ./Reduce/sbeta.scm 87 */
int BgL_arg2024z00_2456;
BgL_arg2024z00_2456 = 
(int)(((long)8)); 
{ /* ./Reduce/sbeta.scm 87 */
long BgL_n2z00_2465;
BgL_n2z00_2465 = 
(long)(BgL_arg2024z00_2456); 
BgL_restz00_2455 = 
(BgL_offsetz00_2452%BgL_n2z00_2465); } } 
{ /* ./Reduce/sbeta.scm 87 */

{ /* ./Reduce/sbeta.scm 87 */
obj_t BgL_bucketz00_2457;
{ /* ./Reduce/sbeta.scm 87 */
int BgL_kz00_2467;
BgL_kz00_2467 = 
(int)(BgL_modz00_2453); 
BgL_bucketz00_2457 = 
VECTOR_REF(BgL_arg2017z00_2448,BgL_kz00_2467); } 
{ /* ./Reduce/sbeta.scm 87 */
int BgL_kz00_2469;
BgL_kz00_2469 = 
(int)(BgL_restz00_2455); 
BgL_method2774z00_2445 = 
VECTOR_REF(BgL_bucketz00_2457,BgL_kz00_2469); } } } } } } } } } } 
{ /* ./Reduce/sbeta.scm 87 */
obj_t BgL_auxz00_3854;
BgL_auxz00_3854 = 
PROCEDURE_ENTRY(BgL_method2774z00_2445)(BgL_method2774z00_2445, 
(obj_t)(BgL_nodez00_2), BEOA); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3854);} } } 
}



/* _node-beta! */
obj_t BGl__nodezd2betaz12zc0zzreduce_betaz00(obj_t BgL_envz00_2472, obj_t BgL_nodez00_2473)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 87 */
{ /* ./Reduce/sbeta.scm 87 */
BgL_nodez00_bglt BgL_auxz00_3859;
BgL_auxz00_3859 = 
BGl_nodezd2betaz12zc0zzreduce_betaz00(
(BgL_nodez00_bglt)(BgL_nodez00_2473)); 
return 
(obj_t)(BgL_auxz00_3859);} } 
}



/* _node-beta!-default2772 */
obj_t BGl__nodezd2betaz12zd2default2772z12zzreduce_betaz00(obj_t BgL_envz00_2516, obj_t BgL_nodez00_2517)
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 25 */
{ /* ./Reduce/sbeta.scm 88 */
BgL_nodez00_bglt BgL_auxz00_3863;
BgL_auxz00_3863 = 
(BgL_nodez00_bglt)(BgL_nodez00_2517); 
return 
(obj_t)(BgL_auxz00_3863);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzreduce_betaz00()
{ AN_OBJECT;
{ /* ./Reduce/sbeta.scm 25 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zzcoerce_coercez00(((long)56611), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zzeffect_effectz00(((long)14017), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "reduce_beta"); 
BGl_modulezd2initializa7ationz75zzast_lvtypez00(((long)41586), "reduce_beta"); 
return 
BGl_modulezd2initializa7ationz75zzast_occurz00(((long)28605), "reduce_beta");} 
}

