/*===========================================================================*/
/*   (Reduce/same.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/same.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;

typedef struct BgL_valuez00_bgl {
   header_t header;
   obj_t widening;
} *BgL_valuez00_bglt;

typedef struct BgL_variablez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
} *BgL_variablez00_bglt;

typedef struct BgL_globalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   obj_t BgL_modulez00;
   obj_t BgL_importz00;
   bool_t BgL_evaluablezf3zf3;
   bool_t BgL_libraryzf3zf3;
   bool_t BgL_userzf3zf3;
   obj_t BgL_pragmaz00;
   obj_t BgL_srcz00;
   obj_t BgL_jvmzd2typezd2namez00;
} *BgL_globalz00_bglt;

typedef struct BgL_localz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   bool_t BgL_userzf3zf3;
   long BgL_keyz00;
} *BgL_localz00_bglt;

typedef struct BgL_funz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
} *BgL_funz00_bglt;

typedef struct BgL_sfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_propertyz00;
   obj_t BgL_argsz00;
   obj_t BgL_bodyz00;
   obj_t BgL_classz00;
   obj_t BgL_dssslzd2keywordszd2;
   obj_t BgL_locz00;
} *BgL_sfunz00_bglt;

typedef struct BgL_cfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_argszd2typezd2;
   bool_t BgL_macrozf3zf3;
   bool_t BgL_infixzf3zf3;
   obj_t BgL_methodz00;
} *BgL_cfunz00_bglt;

typedef struct BgL_svarz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_svarz00_bglt;

typedef struct BgL_scnstz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_nodez00;
   obj_t BgL_classz00;
   obj_t BgL_locz00;
} *BgL_scnstz00_bglt;

typedef struct BgL_cvarz00_bgl {
   header_t header;
   obj_t widening;
   bool_t BgL_macrozf3zf3;
} *BgL_cvarz00_bglt;

typedef struct BgL_sexitz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_handlerz00;
   bool_t BgL_detachedzf3zf3;
} *BgL_sexitz00_bglt;

typedef struct BgL_feffectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_readz00;
   obj_t BgL_writez00;
} *BgL_feffectz00_bglt;

typedef struct BgL_nodez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_nodez00_bglt;

typedef struct BgL_nodezf2effectzf2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
} *BgL_nodezf2effectzf2_bglt;

typedef struct BgL_atomz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_atomz00_bglt;

typedef struct BgL_varz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_varz00_bglt;

typedef struct BgL_closurez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_closurez00_bglt;

typedef struct BgL_kwotez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_kwotez00_bglt;

typedef struct BgL_sequencez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_nodesz00;
} *BgL_sequencez00_bglt;

typedef struct BgL_appz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_appz00_bglt;

typedef struct BgL_appzd2lyzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_appzd2lyzd2_bglt;

typedef struct BgL_funcallz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
   obj_t BgL_strengthz00;
} *BgL_funcallz00_bglt;

typedef struct BgL_externz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_externz00_bglt;

typedef struct BgL_pragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_formatz00;
} *BgL_pragmaz00_bglt;

typedef struct BgL_getfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_getfieldz00_bglt;

typedef struct BgL_setfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_setfieldz00_bglt;

typedef struct BgL_newz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_newz00_bglt;

typedef struct BgL_vallocz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2heapzd2formatz00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_vallocz00_bglt;

typedef struct BgL_vrefz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vrefz00_bglt;

typedef struct BgL_vsetz12z12_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vsetz12z12_bglt;

typedef struct BgL_vlengthz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vlengthz00_bglt;

typedef struct BgL_isaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   struct BgL_typez00_bgl * BgL_classz00;
} *BgL_isaz00_bglt;

typedef struct BgL_castz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_castz00_bglt;

typedef struct BgL_setqz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_setqz00_bglt;

typedef struct BgL_conditionalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   struct BgL_nodez00_bgl * BgL_truez00;
   struct BgL_nodez00_bgl * BgL_falsez00;
} *BgL_conditionalz00_bglt;

typedef struct BgL_failz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_procz00;
   struct BgL_nodez00_bgl * BgL_msgz00;
   struct BgL_nodez00_bgl * BgL_objz00;
} *BgL_failz00_bglt;

typedef struct BgL_selectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_selectz00_bglt;

typedef struct BgL_letzd2funzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_localsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_letzd2funzd2_bglt;

typedef struct BgL_letzd2varzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_bindingsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
   bool_t BgL_removablezf3zf3;
} *BgL_letzd2varzd2_bglt;

typedef struct BgL_setzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_setzd2exzd2itz00_bglt;

typedef struct BgL_jumpzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_exitz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_jumpzd2exzd2itz00_bglt;

typedef struct BgL_makezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_makezd2boxzd2_bglt;

typedef struct BgL_boxzd2refzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_varz00;
} *BgL_boxzd2refzd2_bglt;

typedef struct BgL_boxzd2setz12zc0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_boxzd2setz12zc0_bglt;


static obj_t BGl_samezd2nodezf3zd2funcall2723zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzreduce_samez00();
static obj_t BGl_samezd2nodezf3zd2letzd2var2744z21zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_samezd2nodezf3zd2valloc2735zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_samezd2nodezf3zd2conditional2740zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
BGL_IMPORT bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
extern obj_t BGl_pragmaz00zzast_nodez00;
BGL_IMPORT obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_samezd2nodezf3zd2app2725zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_samezd2nodezf3zd2pragma2729zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_samezd2nodezf3zd2cast2737zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__samezd2nodezf3zd2default2710zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_samezd2nodezf3zd2appzd2ly2721z21zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzreduce_samez00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static bool_t BGl_samezd2nodeza2zf3z83zzreduce_samez00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzreduce_samez00();
extern obj_t BGl_getfieldz00zzast_nodez00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_vallocz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzreduce_samez00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzreduce_samez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
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_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
static obj_t BGl_samezd2nodezf3zd2fail2742zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT long bgl_list_length(obj_t);
BGL_EXPORTED_DECL bool_t BGl_samezd2nodezf3z21zzreduce_samez00(BgL_nodez00_bglt, BgL_nodez00_bglt, obj_t);
static obj_t BGl_samezd2nodezf3zd2setfield2733zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_samezd2nodezf3zd2getfield2731zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_samezd2nodezf3zd2var2717zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__samezd2nodezf3z21zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_samezd2nodezf3zd2sequence2719zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_samezd2nodezf3zd2extern2727zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_samezd2nodezf3zd2kwote2715zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
static bool_t BGl_aliasedzf3zf3zzreduce_samez00(BgL_variablez00_bglt, BgL_variablez00_bglt, obj_t);
static obj_t BGl_samezd2nodezf3zd2atom2713zf3zzreduce_samez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
BGL_IMPORT bool_t bigloo_strcmp(obj_t, obj_t);
extern obj_t BGl_setfieldz00zzast_nodez00;
static obj_t BGl_requirezd2initializa7ationz75zzreduce_samez00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzreduce_samez00();
BGL_IMPORT obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t __cnst[ 1 ] ;


DEFINE_STATIC_PROCEDURE( BGl_proc4045z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2atom2713za7f3za7za7reduce_sameza7004091za7, BGl_samezd2nodezf3zd2atom2713zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4046z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2kwote2715za7f3za7za7reduce_sameza7004092za7, BGl_samezd2nodezf3zd2kwote2715zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4047z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2var2717za7f3za7za7reduce_sameza7004093za7, BGl_samezd2nodezf3zd2var2717zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4048z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2sequence2719za7f3za7za7reduce_sameza7004094za7, BGl_samezd2nodezf3zd2sequence2719zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4050z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2funcall2723za7f3za7za7reduce_sameza7004095za7, BGl_samezd2nodezf3zd2funcall2723zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4049z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2appza7d2ly2721za721za7za7reduce_sameza7004096z00, BGl_samezd2nodezf3zd2appzd2ly2721z21zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4051z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2app2725za7f3za7za7reduce_sameza7004097za7, BGl_samezd2nodezf3zd2app2725zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4052z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2extern2727za7f3za7za7reduce_sameza7004098za7, BGl_samezd2nodezf3zd2extern2727zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4053z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2pragma2729za7f3za7za7reduce_sameza7004099za7, BGl_samezd2nodezf3zd2pragma2729zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4054z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2getfield2731za7f3za7za7reduce_sameza7004100za7, BGl_samezd2nodezf3zd2getfield2731zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4055z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2setfield2733za7f3za7za7reduce_sameza7004101za7, BGl_samezd2nodezf3zd2setfield2733zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4056z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2valloc2735za7f3za7za7reduce_sameza7004102za7, BGl_samezd2nodezf3zd2valloc2735zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4057z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2cast2737za7f3za7za7reduce_sameza7004103za7, BGl_samezd2nodezf3zd2cast2737zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4058z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2conditional2740za7f3za7za7reduce_sameza7004104za7, BGl_samezd2nodezf3zd2conditional2740zf3zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4060z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2letza7d2var2744za721za7za7reduce_sameza7004105z00, BGl_samezd2nodezf3zd2letzd2var2744z21zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4059z00zzreduce_samez00, BgL_bgl_sameza7d2nodeza7f3za7d2fail2742za7f3za7za7reduce_sameza7004106za7, BGl_samezd2nodezf3zd2fail2742zf3zzreduce_samez00, 0L, 3 );
DEFINE_EXPORT_GENERIC( BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_bgl__sameza7d2nodeza7f3za721za7za7reduce_sameza7004107z00, BGl__samezd2nodezf3z21zzreduce_samez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_samezd2nodezf3zd2default2710zd2envz21zzreduce_samez00, BgL_bgl__sameza7d2nodeza7f3za7d2default2710za7f3za7za7reduce_sameza7004108za7, BGl__samezd2nodezf3zd2default2710zf3zzreduce_samez00, 0L, 3 );
DEFINE_STRING( BGl_string4061z00zzreduce_samez00, BgL_bgl_string4061za700za7za7reduce_sameza7004109z00, "read ", 5 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzreduce_samez00(long BgL_checksumz00_2126, char * BgL_fromz00_2127)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzreduce_samez00))
{ 
BGl_requirezd2initializa7ationz75zzreduce_samez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzreduce_samez00(); 
BGl_cnstzd2initzd2zzreduce_samez00(); 
BGl_importedzd2moduleszd2initz00zzreduce_samez00(); 
BGl_methodzd2initzd2zzreduce_samez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzreduce_samez00()
{ AN_OBJECT;
{ /* ./Reduce/same.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "reduce_same"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "reduce_same"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "reduce_same"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "reduce_same"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzreduce_samez00()
{ AN_OBJECT;
{ /* ./Reduce/same.scm 15 */
{ /* ./Reduce/same.scm 15 */
obj_t BgL_cportz00_2109;
BgL_cportz00_2109 = 
open_input_string(BGl_string4061z00zzreduce_samez00); 
{ 
long BgL_iz00_2110;
BgL_iz00_2110 = ((long)0); 
BgL_loopz00_2111:
{ /* ./Reduce/same.scm 15 */
bool_t BgL_test4063z00_2112;
BgL_test4063z00_2112 = 
(BgL_iz00_2110==((long)-1)); 
if(BgL_test4063z00_2112)
{ /* ./Reduce/same.scm 15 */
return BUNSPEC;}  else 
{ /* ./Reduce/same.scm 15 */
{ /* ./Reduce/same.scm 15 */
obj_t BgL_arg4065z00_2113;
{ /* ./Reduce/same.scm 15 */
obj_t BgL_list4068z00_2114;
BgL_list4068z00_2114 = 
MAKE_PAIR(BgL_cportz00_2109, BNIL); 
BgL_arg4065z00_2113 = 
BGl_readz00zz__readerz00(BgL_list4068z00_2114); } 
{ /* ./Reduce/same.scm 15 */
int BgL_auxz00_2144;
BgL_auxz00_2144 = 
(int)(BgL_iz00_2110); 
CNST_TABLE_SET(BgL_auxz00_2144, BgL_arg4065z00_2113); } } 
{ /* ./Reduce/same.scm 15 */
int BgL_auxz00_2115;
{ /* ./Reduce/same.scm 15 */
long BgL_auxz00_2147;
BgL_auxz00_2147 = 
(BgL_iz00_2110-((long)1)); 
BgL_auxz00_2115 = 
(int)(BgL_auxz00_2147); } 
{ 
long BgL_iz00_2150;
BgL_iz00_2150 = 
(long)(BgL_auxz00_2115); 
BgL_iz00_2110 = BgL_iz00_2150; 
goto BgL_loopz00_2111;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzreduce_samez00()
{ AN_OBJECT;
{ /* ./Reduce/same.scm 15 */
return BUNSPEC;} 
}



/* same-node*? */
bool_t BGl_samezd2nodeza2zf3z83zzreduce_samez00(obj_t BgL_node1z00_55, obj_t BgL_node2z00_56, obj_t BgL_aliasz00_57)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 214 */
BGl_samezd2nodeza2zf3z83zzreduce_samez00:
{ /* ./Reduce/same.scm 216 */
bool_t BgL_test2745z00_718;
BgL_test2745z00_718 = 
NULLP(BgL_node1z00_55); 
if(BgL_test2745z00_718)
{ /* ./Reduce/same.scm 216 */
return 
NULLP(BgL_node2z00_56);}  else 
{ /* ./Reduce/same.scm 218 */
bool_t BgL_test2747z00_719;
BgL_test2747z00_719 = 
NULLP(BgL_node2z00_56); 
if(BgL_test2747z00_719)
{ /* ./Reduce/same.scm 218 */
return ((bool_t)0);}  else 
{ /* ./Reduce/same.scm 220 */
bool_t BgL_test2748z00_720;
{ /* ./Reduce/same.scm 220 */
obj_t BgL_arg2756z00_723;obj_t BgL_arg2757z00_724;
BgL_arg2756z00_723 = 
CAR(BgL_node1z00_55); 
BgL_arg2757z00_724 = 
CAR(BgL_node2z00_56); 
{ /* ./Reduce/same.scm 220 */
bool_t BgL_res3580z00_1413;
{ /* ./Reduce/same.scm 220 */
BgL_nodez00_bglt BgL_node1z00_1385;BgL_nodez00_bglt BgL_node2z00_1386;
BgL_node1z00_1385 = 
(BgL_nodez00_bglt)(BgL_arg2756z00_723); 
BgL_node2z00_1386 = 
(BgL_nodez00_bglt)(BgL_arg2757z00_724); 
{ /* ./Reduce/same.scm 220 */
obj_t BgL_method2711z00_1388;
{ /* ./Reduce/same.scm 220 */
BgL_objectz00_bglt BgL_objz00_1389;
BgL_objz00_1389 = 
(BgL_objectz00_bglt)(BgL_node1z00_1385); 
{ /* ./Reduce/same.scm 220 */
long BgL_objzd2classzd2numz00_1390;
BgL_objzd2classzd2numz00_1390 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1389); 
{ /* ./Reduce/same.scm 220 */
obj_t BgL_arg2017z00_1391;
{ /* ./Reduce/same.scm 220 */
int BgL_auxz00_2163;
BgL_auxz00_2163 = 
(int)(((long)1)); 
BgL_arg2017z00_1391 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2163); } 
{ /* ./Reduce/same.scm 220 */
int BgL_offsetz00_1394;
BgL_offsetz00_1394 = 
(int)(BgL_objzd2classzd2numz00_1390); 
{ /* ./Reduce/same.scm 220 */
long BgL_offsetz00_1395;
{ /* ./Reduce/same.scm 220 */
long BgL_auxz00_2167;
BgL_auxz00_2167 = 
(long)(BgL_offsetz00_1394); 
BgL_offsetz00_1395 = 
(BgL_auxz00_2167-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 220 */
long BgL_modz00_1396;
{ /* ./Reduce/same.scm 220 */
int BgL_arg2028z00_1397;
BgL_arg2028z00_1397 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 220 */
long BgL_n2z00_1405;
BgL_n2z00_1405 = 
(long)(BgL_arg2028z00_1397); 
BgL_modz00_1396 = 
(BgL_offsetz00_1395/BgL_n2z00_1405); } } 
{ /* ./Reduce/same.scm 220 */
long BgL_restz00_1398;
{ /* ./Reduce/same.scm 220 */
int BgL_arg2024z00_1399;
BgL_arg2024z00_1399 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 220 */
long BgL_n2z00_1408;
BgL_n2z00_1408 = 
(long)(BgL_arg2024z00_1399); 
BgL_restz00_1398 = 
(BgL_offsetz00_1395%BgL_n2z00_1408); } } 
{ /* ./Reduce/same.scm 220 */

{ /* ./Reduce/same.scm 220 */
obj_t BgL_bucketz00_1400;
{ /* ./Reduce/same.scm 220 */
int BgL_kz00_1410;
BgL_kz00_1410 = 
(int)(BgL_modz00_1396); 
BgL_bucketz00_1400 = 
VECTOR_REF(BgL_arg2017z00_1391,BgL_kz00_1410); } 
{ /* ./Reduce/same.scm 220 */
int BgL_kz00_1412;
BgL_kz00_1412 = 
(int)(BgL_restz00_1398); 
BgL_method2711z00_1388 = 
VECTOR_REF(BgL_bucketz00_1400,BgL_kz00_1412); } } } } } } } } } } 
{ /* ./Reduce/same.scm 220 */
obj_t BgL_auxz00_2180;
BgL_auxz00_2180 = 
PROCEDURE_ENTRY(BgL_method2711z00_1388)(BgL_method2711z00_1388, 
(obj_t)(BgL_node1z00_1385), 
(obj_t)(BgL_node2z00_1386), BgL_aliasz00_57, BEOA); 
BgL_res3580z00_1413 = 
CBOOL(BgL_auxz00_2180); } } } 
BgL_test2748z00_720 = BgL_res3580z00_1413; } } 
if(BgL_test2748z00_720)
{ /* ./Reduce/same.scm 220 */
{ /* ./Reduce/same.scm 221 */
obj_t BgL_arg2750z00_721;obj_t BgL_arg2751z00_722;
BgL_arg2750z00_721 = 
CDR(BgL_node1z00_55); 
BgL_arg2751z00_722 = 
CDR(BgL_node2z00_56); 
{ 
obj_t BgL_node2z00_2190;obj_t BgL_node1z00_2189;
BgL_node1z00_2189 = BgL_arg2750z00_721; 
BgL_node2z00_2190 = BgL_arg2751z00_722; 
BgL_node2z00_56 = BgL_node2z00_2190; 
BgL_node1z00_55 = BgL_node1z00_2189; 
goto BGl_samezd2nodeza2zf3z83zzreduce_samez00;} } }  else 
{ /* ./Reduce/same.scm 220 */
return ((bool_t)0);} } } } } 
}



/* aliased? */
bool_t BGl_aliasedzf3zf3zzreduce_samez00(BgL_variablez00_bglt BgL_var1z00_58, BgL_variablez00_bglt BgL_var2z00_59, obj_t BgL_aliasz00_60)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 228 */
{ 
obj_t BgL_aliasz00_725;
BgL_aliasz00_725 = BgL_aliasz00_60; 
BgL_loopz00_726:
if(
NULLP(BgL_aliasz00_725))
{ /* ./Reduce/same.scm 231 */
return ((bool_t)0);}  else 
{ /* ./Reduce/same.scm 233 */
bool_t BgL_testz00_2193;
{ /* ./Reduce/same.scm 233 */
obj_t BgL_auxz00_2198;obj_t BgL_auxz00_2194;
BgL_auxz00_2198 = 
(obj_t)(BgL_var1z00_58); 
{ /* ./Reduce/same.scm 233 */
obj_t BgL_auxz00_2195;
BgL_auxz00_2195 = 
CAR(BgL_aliasz00_725); 
BgL_auxz00_2194 = 
CAR(BgL_auxz00_2195); } 
BgL_testz00_2193 = 
(BgL_auxz00_2194==BgL_auxz00_2198); } 
if(BgL_testz00_2193)
{ /* ./Reduce/same.scm 233 */
{ /* ./Reduce/same.scm 234 */
bool_t BgL_testz00_2201;
{ /* ./Reduce/same.scm 234 */
obj_t BgL_auxz00_2206;obj_t BgL_auxz00_2202;
BgL_auxz00_2206 = 
(obj_t)(BgL_var2z00_59); 
{ /* ./Reduce/same.scm 234 */
obj_t BgL_auxz00_2203;
BgL_auxz00_2203 = 
CAR(BgL_aliasz00_725); 
BgL_auxz00_2202 = 
CDR(BgL_auxz00_2203); } 
BgL_testz00_2201 = 
(BgL_auxz00_2202==BgL_auxz00_2206); } 
if(BgL_testz00_2201)
{ /* ./Reduce/same.scm 234 */
return ((bool_t)1);}  else 
{ 
obj_t BgL_aliasz00_2209;
BgL_aliasz00_2209 = 
CDR(BgL_aliasz00_725); 
BgL_aliasz00_725 = BgL_aliasz00_2209; 
goto BgL_loopz00_726;} } }  else 
{ /* ./Reduce/same.scm 237 */
bool_t BgL_testz00_2211;
{ /* ./Reduce/same.scm 237 */
obj_t BgL_auxz00_2216;obj_t BgL_auxz00_2212;
BgL_auxz00_2216 = 
(obj_t)(BgL_var2z00_59); 
{ /* ./Reduce/same.scm 237 */
obj_t BgL_auxz00_2213;
BgL_auxz00_2213 = 
CAR(BgL_aliasz00_725); 
BgL_auxz00_2212 = 
CAR(BgL_auxz00_2213); } 
BgL_testz00_2211 = 
(BgL_auxz00_2212==BgL_auxz00_2216); } 
if(BgL_testz00_2211)
{ /* ./Reduce/same.scm 237 */
{ /* ./Reduce/same.scm 238 */
bool_t BgL_testz00_2219;
{ /* ./Reduce/same.scm 238 */
obj_t BgL_auxz00_2224;obj_t BgL_auxz00_2220;
BgL_auxz00_2224 = 
(obj_t)(BgL_var1z00_58); 
{ /* ./Reduce/same.scm 238 */
obj_t BgL_auxz00_2221;
BgL_auxz00_2221 = 
CAR(BgL_aliasz00_725); 
BgL_auxz00_2220 = 
CDR(BgL_auxz00_2221); } 
BgL_testz00_2219 = 
(BgL_auxz00_2220==BgL_auxz00_2224); } 
if(BgL_testz00_2219)
{ /* ./Reduce/same.scm 238 */
return ((bool_t)1);}  else 
{ 
obj_t BgL_aliasz00_2227;
BgL_aliasz00_2227 = 
CDR(BgL_aliasz00_725); 
BgL_aliasz00_725 = BgL_aliasz00_2227; 
goto BgL_loopz00_726;} } }  else 
{ /* ./Reduce/same.scm 237 */
{ 
obj_t BgL_aliasz00_2229;
BgL_aliasz00_2229 = 
CDR(BgL_aliasz00_725); 
BgL_aliasz00_725 = BgL_aliasz00_2229; 
goto BgL_loopz00_726;} } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzreduce_samez00()
{ AN_OBJECT;
{ /* ./Reduce/same.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_samezd2nodezf3zd2default2710zd2envz21zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_atomz00zzast_nodez00, BGl_proc4045z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_kwotez00zzast_nodez00, BGl_proc4046z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_varz00zzast_nodez00, BGl_proc4047z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_sequencez00zzast_nodez00, BGl_proc4048z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4049z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_funcallz00zzast_nodez00, BGl_proc4050z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_appz00zzast_nodez00, BGl_proc4051z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_externz00zzast_nodez00, BGl_proc4052z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_pragmaz00zzast_nodez00, BGl_proc4053z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_getfieldz00zzast_nodez00, BGl_proc4054z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_setfieldz00zzast_nodez00, BGl_proc4055z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_vallocz00zzast_nodez00, BGl_proc4056z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_castz00zzast_nodez00, BGl_proc4057z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_conditionalz00zzast_nodez00, BGl_proc4058z00zzreduce_samez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_failz00zzast_nodez00, BGl_proc4059z00zzreduce_samez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4060z00zzreduce_samez00);} 
}



/* same-node?-let-var2744 */
obj_t BGl_samezd2nodezf3zd2letzd2var2744z21zzreduce_samez00(obj_t BgL_envz00_2041, obj_t BgL_nodez00_2042, obj_t BgL_node2z00_2043, obj_t BgL_aliasz00_2044)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 180 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1317;BgL_nodez00_bglt BgL_node2z00_1318;obj_t BgL_aliasz00_1319;
{ /* ./Tools/trace.sch 42 */
bool_t BgL_auxz00_2248;
BgL_nodez00_1317 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2042); 
BgL_node2z00_1318 = 
(BgL_nodez00_bglt)(BgL_node2z00_2043); 
BgL_aliasz00_1319 = BgL_aliasz00_2044; 
{ /* ./Reduce/same.scm 185 */
bool_t BgL__andtest_2700z00_1322;
{ /* ./Reduce/same.scm 185 */
obj_t BgL_obj2519z00_1899;
BgL_obj2519z00_1899 = 
(obj_t)(BgL_node2z00_1318); 
BgL__andtest_2700z00_1322 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2519z00_1899, BGl_letzd2varzd2zzast_nodez00); } 
if(BgL__andtest_2700z00_1322)
{ /* ./Reduce/same.scm 186 */
bool_t BgL__andtest_2701z00_1323;
{ /* ./Reduce/same.scm 186 */
obj_t BgL_auxz00_2257;obj_t BgL_auxz00_2252;
{ /* ./Reduce/same.scm 186 */
BgL_typez00_bglt BgL_auxz00_2258;
BgL_auxz00_2258 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1318))->BgL_typez00); 
BgL_auxz00_2257 = 
(obj_t)(BgL_auxz00_2258); } 
{ /* ./Reduce/same.scm 186 */
BgL_typez00_bglt BgL_auxz00_2253;
{ /* ./Reduce/same.scm 186 */
BgL_nodez00_bglt BgL_obj1561z00_1900;
BgL_obj1561z00_1900 = 
(BgL_nodez00_bglt)(BgL_nodez00_1317); 
BgL_auxz00_2253 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1900))->BgL_typez00); } 
BgL_auxz00_2252 = 
(obj_t)(BgL_auxz00_2253); } 
BgL__andtest_2701z00_1323 = 
(BgL_auxz00_2252==BgL_auxz00_2257); } 
if(BgL__andtest_2701z00_1323)
{ /* ./Reduce/same.scm 187 */
bool_t BgL__andtest_2702z00_1324;
{ /* ./Reduce/same.scm 187 */
long BgL_auxz00_2266;long BgL_auxz00_2263;
{ /* ./Reduce/same.scm 188 */
obj_t BgL_auxz00_2267;
{ /* ./Reduce/same.scm 188 */
BgL_letzd2varzd2_bglt BgL_obj2486z00_1903;
BgL_obj2486z00_1903 = 
(BgL_letzd2varzd2_bglt)(BgL_node2z00_1318); 
BgL_auxz00_2267 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_obj2486z00_1903))->BgL_bindingsz00); } 
BgL_auxz00_2266 = 
bgl_list_length(BgL_auxz00_2267); } 
BgL_auxz00_2263 = 
bgl_list_length(
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1317))->BgL_bindingsz00)); 
BgL__andtest_2702z00_1324 = 
(BgL_auxz00_2263==BgL_auxz00_2266); } 
if(BgL__andtest_2702z00_1324)
{ /* ./Reduce/same.scm 189 */
obj_t BgL_newzd2aliaszd2_1325;
{ /* ./Reduce/same.scm 189 */
obj_t BgL_arg3517z00_1352;
{ /* ./Reduce/same.scm 189 */
obj_t BgL_ll2703z00_1353;obj_t BgL_ll2704z00_1354;
BgL_ll2703z00_1353 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1317))->BgL_bindingsz00); 
{ /* ./Reduce/same.scm 192 */
BgL_letzd2varzd2_bglt BgL_obj2486z00_1905;
BgL_obj2486z00_1905 = 
(BgL_letzd2varzd2_bglt)(BgL_node2z00_1318); 
BgL_ll2704z00_1354 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_obj2486z00_1905))->BgL_bindingsz00); } 
{ /* ./Reduce/same.scm 189 */
bool_t BgL_test3519z00_1355;
BgL_test3519z00_1355 = 
NULLP(BgL_ll2703z00_1353); 
if(BgL_test3519z00_1355)
{ /* ./Reduce/same.scm 189 */
BgL_arg3517z00_1352 = BNIL; }  else 
{ /* ./Reduce/same.scm 189 */
obj_t BgL_head2705z00_1356;
BgL_head2705z00_1356 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_ll2703z00_1357;obj_t BgL_ll2704z00_1358;obj_t BgL_tail2706z00_1359;
BgL_ll2703z00_1357 = BgL_ll2703z00_1353; 
BgL_ll2704z00_1358 = BgL_ll2704z00_1354; 
BgL_tail2706z00_1359 = BgL_head2705z00_1356; 
BgL_map2708z00_1360:
{ /* ./Reduce/same.scm 189 */
bool_t BgL_test3521z00_1361;
BgL_test3521z00_1361 = 
NULLP(BgL_ll2703z00_1357); 
if(BgL_test3521z00_1361)
{ /* ./Reduce/same.scm 189 */
BgL_arg3517z00_1352 = 
CDR(BgL_head2705z00_1356); }  else 
{ /* ./Reduce/same.scm 190 */
obj_t BgL_newtail2707z00_1362;
{ /* ./Reduce/same.scm 190 */
obj_t BgL_arg3531z00_1365;
{ /* ./Reduce/same.scm 190 */
obj_t BgL_b1z00_1367;obj_t BgL_b2z00_1368;
BgL_b1z00_1367 = 
CAR(BgL_ll2703z00_1357); 
BgL_b2z00_1368 = 
CAR(BgL_ll2704z00_1358); 
{ /* ./Reduce/same.scm 190 */
obj_t BgL_arg3535z00_1369;obj_t BgL_arg3536z00_1370;
BgL_arg3535z00_1369 = 
CAR(BgL_b1z00_1367); 
BgL_arg3536z00_1370 = 
CAR(BgL_b2z00_1368); 
BgL_arg3531z00_1365 = 
MAKE_PAIR(BgL_arg3535z00_1369, BgL_arg3536z00_1370); } } 
BgL_newtail2707z00_1362 = 
MAKE_PAIR(BgL_arg3531z00_1365, BNIL); } 
SET_CDR(BgL_tail2706z00_1359, BgL_newtail2707z00_1362); 
{ /* ./Reduce/same.scm 189 */
obj_t BgL_arg3525z00_1363;obj_t BgL_arg3526z00_1364;
BgL_arg3525z00_1363 = 
CDR(BgL_ll2703z00_1357); 
BgL_arg3526z00_1364 = 
CDR(BgL_ll2704z00_1358); 
{ 
obj_t BgL_tail2706z00_2293;obj_t BgL_ll2704z00_2292;obj_t BgL_ll2703z00_2291;
BgL_ll2703z00_2291 = BgL_arg3525z00_1363; 
BgL_ll2704z00_2292 = BgL_arg3526z00_1364; 
BgL_tail2706z00_2293 = BgL_newtail2707z00_1362; 
BgL_tail2706z00_1359 = BgL_tail2706z00_2293; 
BgL_ll2704z00_1358 = BgL_ll2704z00_2292; 
BgL_ll2703z00_1357 = BgL_ll2703z00_2291; 
goto BgL_map2708z00_1360;} } } } } } } } 
BgL_newzd2aliaszd2_1325 = 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg3517z00_1352, BgL_aliasz00_1319); } 
{ /* ./Reduce/same.scm 194 */
bool_t BgL__andtest_2709z00_1326;
{ /* ./Reduce/same.scm 194 */
BgL_nodez00_bglt BgL_arg3511z00_1350;BgL_nodez00_bglt BgL_arg3512z00_1351;
BgL_arg3511z00_1350 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1317))->BgL_bodyz00); 
{ /* ./Reduce/same.scm 194 */
BgL_letzd2varzd2_bglt BgL_obj2489z00_1922;
BgL_obj2489z00_1922 = 
(BgL_letzd2varzd2_bglt)(BgL_node2z00_1318); 
BgL_arg3512z00_1351 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_obj2489z00_1922))->BgL_bodyz00); } 
{ /* ./Reduce/same.scm 194 */
bool_t BgL_res3622z00_1951;
{ /* ./Reduce/same.scm 194 */
obj_t BgL_method2711z00_1926;
{ /* ./Reduce/same.scm 194 */
BgL_objectz00_bglt BgL_objz00_1927;
BgL_objz00_1927 = 
(BgL_objectz00_bglt)(BgL_arg3511z00_1350); 
{ /* ./Reduce/same.scm 194 */
long BgL_objzd2classzd2numz00_1928;
BgL_objzd2classzd2numz00_1928 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1927); 
{ /* ./Reduce/same.scm 194 */
obj_t BgL_arg2017z00_1929;
{ /* ./Reduce/same.scm 194 */
int BgL_auxz00_2300;
BgL_auxz00_2300 = 
(int)(((long)1)); 
BgL_arg2017z00_1929 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2300); } 
{ /* ./Reduce/same.scm 194 */
int BgL_offsetz00_1932;
BgL_offsetz00_1932 = 
(int)(BgL_objzd2classzd2numz00_1928); 
{ /* ./Reduce/same.scm 194 */
long BgL_offsetz00_1933;
{ /* ./Reduce/same.scm 194 */
long BgL_auxz00_2304;
BgL_auxz00_2304 = 
(long)(BgL_offsetz00_1932); 
BgL_offsetz00_1933 = 
(BgL_auxz00_2304-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 194 */
long BgL_modz00_1934;
{ /* ./Reduce/same.scm 194 */
int BgL_arg2028z00_1935;
BgL_arg2028z00_1935 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 194 */
long BgL_n2z00_1943;
BgL_n2z00_1943 = 
(long)(BgL_arg2028z00_1935); 
BgL_modz00_1934 = 
(BgL_offsetz00_1933/BgL_n2z00_1943); } } 
{ /* ./Reduce/same.scm 194 */
long BgL_restz00_1936;
{ /* ./Reduce/same.scm 194 */
int BgL_arg2024z00_1937;
BgL_arg2024z00_1937 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 194 */
long BgL_n2z00_1946;
BgL_n2z00_1946 = 
(long)(BgL_arg2024z00_1937); 
BgL_restz00_1936 = 
(BgL_offsetz00_1933%BgL_n2z00_1946); } } 
{ /* ./Reduce/same.scm 194 */

{ /* ./Reduce/same.scm 194 */
obj_t BgL_bucketz00_1938;
{ /* ./Reduce/same.scm 194 */
int BgL_kz00_1948;
BgL_kz00_1948 = 
(int)(BgL_modz00_1934); 
BgL_bucketz00_1938 = 
VECTOR_REF(BgL_arg2017z00_1929,BgL_kz00_1948); } 
{ /* ./Reduce/same.scm 194 */
int BgL_kz00_1950;
BgL_kz00_1950 = 
(int)(BgL_restz00_1936); 
BgL_method2711z00_1926 = 
VECTOR_REF(BgL_bucketz00_1938,BgL_kz00_1950); } } } } } } } } } } 
{ /* ./Reduce/same.scm 194 */
obj_t BgL_auxz00_2317;
BgL_auxz00_2317 = 
PROCEDURE_ENTRY(BgL_method2711z00_1926)(BgL_method2711z00_1926, 
(obj_t)(BgL_arg3511z00_1350), 
(obj_t)(BgL_arg3512z00_1351), BgL_newzd2aliaszd2_1325, BEOA); 
BgL_res3622z00_1951 = 
CBOOL(BgL_auxz00_2317); } } 
BgL__andtest_2709z00_1326 = BgL_res3622z00_1951; } } 
if(BgL__andtest_2709z00_1326)
{ 
obj_t BgL_bindings1z00_1327;obj_t BgL_bindings2z00_1328;
{ /* ./Reduce/same.scm 195 */
obj_t BgL_arg3459z00_1330;obj_t BgL_arg3460z00_1331;
BgL_arg3459z00_1330 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1317))->BgL_bindingsz00); 
{ /* ./Reduce/same.scm 196 */
BgL_letzd2varzd2_bglt BgL_obj2486z00_1953;
BgL_obj2486z00_1953 = 
(BgL_letzd2varzd2_bglt)(BgL_node2z00_1318); 
BgL_arg3460z00_1331 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_obj2486z00_1953))->BgL_bindingsz00); } 
BgL_bindings1z00_1327 = BgL_arg3459z00_1330; 
BgL_bindings2z00_1328 = BgL_arg3460z00_1331; 
BgL_loopz00_1329:
{ /* ./Reduce/same.scm 198 */
bool_t BgL_test3464z00_1332;
BgL_test3464z00_1332 = 
NULLP(BgL_bindings1z00_1327); 
if(BgL_test3464z00_1332)
{ /* ./Reduce/same.scm 198 */
BgL_auxz00_2248 = ((bool_t)1); }  else 
{ /* ./Reduce/same.scm 200 */
bool_t BgL_test3465z00_1333;
{ /* ./Reduce/same.scm 201 */
bool_t BgL_testz00_2329;
{ /* ./Reduce/same.scm 201 */
obj_t BgL_auxz00_2337;obj_t BgL_auxz00_2330;
BgL_auxz00_2337 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Reduce/same.scm 201 */
BgL_variablez00_bglt BgL_obj1103z00_1957;
{ /* ./Reduce/same.scm 201 */
obj_t BgL_auxz00_2331;
{ /* ./Reduce/same.scm 201 */
obj_t BgL_auxz00_2332;
BgL_auxz00_2332 = 
CAR(BgL_bindings1z00_1327); 
BgL_auxz00_2331 = 
CAR(BgL_auxz00_2332); } 
BgL_obj1103z00_1957 = 
(BgL_variablez00_bglt)(BgL_auxz00_2331); } 
BgL_auxz00_2330 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1103z00_1957))->BgL_accessz00); } 
BgL_testz00_2329 = 
(BgL_auxz00_2330==BgL_auxz00_2337); } 
if(BgL_testz00_2329)
{ /* ./Reduce/same.scm 202 */
obj_t BgL_auxz00_2347;obj_t BgL_auxz00_2340;
BgL_auxz00_2347 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Reduce/same.scm 202 */
BgL_variablez00_bglt BgL_obj1103z00_1960;
{ /* ./Reduce/same.scm 202 */
obj_t BgL_auxz00_2341;
{ /* ./Reduce/same.scm 202 */
obj_t BgL_auxz00_2342;
BgL_auxz00_2342 = 
CAR(BgL_bindings2z00_1328); 
BgL_auxz00_2341 = 
CAR(BgL_auxz00_2342); } 
BgL_obj1103z00_1960 = 
(BgL_variablez00_bglt)(BgL_auxz00_2341); } 
BgL_auxz00_2340 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1103z00_1960))->BgL_accessz00); } 
BgL_test3465z00_1333 = 
(BgL_auxz00_2340==BgL_auxz00_2347); }  else 
{ /* ./Reduce/same.scm 201 */
BgL_test3465z00_1333 = ((bool_t)0); } } 
if(BgL_test3465z00_1333)
{ /* ./Reduce/same.scm 204 */
bool_t BgL_test3466z00_1334;
{ /* ./Reduce/same.scm 204 */
obj_t BgL_arg3474z00_1337;obj_t BgL_arg3475z00_1338;
{ /* ./Reduce/same.scm 204 */
obj_t BgL_auxz00_2351;
BgL_auxz00_2351 = 
CAR(BgL_bindings1z00_1327); 
BgL_arg3474z00_1337 = 
CDR(BgL_auxz00_2351); } 
{ /* ./Reduce/same.scm 205 */
obj_t BgL_auxz00_2354;
BgL_auxz00_2354 = 
CAR(BgL_bindings2z00_1328); 
BgL_arg3475z00_1338 = 
CDR(BgL_auxz00_2354); } 
{ /* ./Reduce/same.scm 204 */
bool_t BgL_res3625z00_1993;
{ /* ./Reduce/same.scm 204 */
BgL_nodez00_bglt BgL_node1z00_1965;BgL_nodez00_bglt BgL_node2z00_1966;
BgL_node1z00_1965 = 
(BgL_nodez00_bglt)(BgL_arg3474z00_1337); 
BgL_node2z00_1966 = 
(BgL_nodez00_bglt)(BgL_arg3475z00_1338); 
{ /* ./Reduce/same.scm 204 */
obj_t BgL_method2711z00_1968;
{ /* ./Reduce/same.scm 204 */
BgL_objectz00_bglt BgL_objz00_1969;
BgL_objz00_1969 = 
(BgL_objectz00_bglt)(BgL_node1z00_1965); 
{ /* ./Reduce/same.scm 204 */
long BgL_objzd2classzd2numz00_1970;
BgL_objzd2classzd2numz00_1970 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1969); 
{ /* ./Reduce/same.scm 204 */
obj_t BgL_arg2017z00_1971;
{ /* ./Reduce/same.scm 204 */
int BgL_auxz00_2361;
BgL_auxz00_2361 = 
(int)(((long)1)); 
BgL_arg2017z00_1971 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2361); } 
{ /* ./Reduce/same.scm 204 */
int BgL_offsetz00_1974;
BgL_offsetz00_1974 = 
(int)(BgL_objzd2classzd2numz00_1970); 
{ /* ./Reduce/same.scm 204 */
long BgL_offsetz00_1975;
{ /* ./Reduce/same.scm 204 */
long BgL_auxz00_2365;
BgL_auxz00_2365 = 
(long)(BgL_offsetz00_1974); 
BgL_offsetz00_1975 = 
(BgL_auxz00_2365-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 204 */
long BgL_modz00_1976;
{ /* ./Reduce/same.scm 204 */
int BgL_arg2028z00_1977;
BgL_arg2028z00_1977 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 204 */
long BgL_n2z00_1985;
BgL_n2z00_1985 = 
(long)(BgL_arg2028z00_1977); 
BgL_modz00_1976 = 
(BgL_offsetz00_1975/BgL_n2z00_1985); } } 
{ /* ./Reduce/same.scm 204 */
long BgL_restz00_1978;
{ /* ./Reduce/same.scm 204 */
int BgL_arg2024z00_1979;
BgL_arg2024z00_1979 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 204 */
long BgL_n2z00_1988;
BgL_n2z00_1988 = 
(long)(BgL_arg2024z00_1979); 
BgL_restz00_1978 = 
(BgL_offsetz00_1975%BgL_n2z00_1988); } } 
{ /* ./Reduce/same.scm 204 */

{ /* ./Reduce/same.scm 204 */
obj_t BgL_bucketz00_1980;
{ /* ./Reduce/same.scm 204 */
int BgL_kz00_1990;
BgL_kz00_1990 = 
(int)(BgL_modz00_1976); 
BgL_bucketz00_1980 = 
VECTOR_REF(BgL_arg2017z00_1971,BgL_kz00_1990); } 
{ /* ./Reduce/same.scm 204 */
int BgL_kz00_1992;
BgL_kz00_1992 = 
(int)(BgL_restz00_1978); 
BgL_method2711z00_1968 = 
VECTOR_REF(BgL_bucketz00_1980,BgL_kz00_1992); } } } } } } } } } } 
{ /* ./Reduce/same.scm 204 */
obj_t BgL_auxz00_2378;
BgL_auxz00_2378 = 
PROCEDURE_ENTRY(BgL_method2711z00_1968)(BgL_method2711z00_1968, 
(obj_t)(BgL_node1z00_1965), 
(obj_t)(BgL_node2z00_1966), BgL_aliasz00_1319, BEOA); 
BgL_res3625z00_1993 = 
CBOOL(BgL_auxz00_2378); } } } 
BgL_test3466z00_1334 = BgL_res3625z00_1993; } } 
if(BgL_test3466z00_1334)
{ /* ./Reduce/same.scm 204 */
{ /* ./Reduce/same.scm 207 */
obj_t BgL_arg3468z00_1335;obj_t BgL_arg3469z00_1336;
BgL_arg3468z00_1335 = 
CDR(BgL_bindings1z00_1327); 
BgL_arg3469z00_1336 = 
CDR(BgL_bindings2z00_1328); 
{ 
obj_t BgL_bindings2z00_2388;obj_t BgL_bindings1z00_2387;
BgL_bindings1z00_2387 = BgL_arg3468z00_1335; 
BgL_bindings2z00_2388 = BgL_arg3469z00_1336; 
BgL_bindings2z00_1328 = BgL_bindings2z00_2388; 
BgL_bindings1z00_1327 = BgL_bindings1z00_2387; 
goto BgL_loopz00_1329;} } }  else 
{ /* ./Reduce/same.scm 204 */
BgL_auxz00_2248 = ((bool_t)0); } }  else 
{ /* ./Reduce/same.scm 200 */
BgL_auxz00_2248 = ((bool_t)0); } } } } }  else 
{ /* ./Reduce/same.scm 194 */
BgL_auxz00_2248 = ((bool_t)0)
; } } }  else 
{ /* ./Reduce/same.scm 187 */
BgL_auxz00_2248 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 186 */
BgL_auxz00_2248 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 185 */
BgL_auxz00_2248 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_2248);} } } 
}



/* same-node?-fail2742 */
obj_t BGl_samezd2nodezf3zd2fail2742zf3zzreduce_samez00(obj_t BgL_envz00_2045, obj_t BgL_nodez00_2046, obj_t BgL_node2z00_2047, obj_t BgL_aliasz00_2048)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 167 */
{ 
BgL_failz00_bglt BgL_nodez00_1298;BgL_nodez00_bglt BgL_node2z00_1299;obj_t BgL_aliasz00_1300;
{ /* ./Tools/trace.sch 42 */
bool_t BgL_auxz00_2392;
BgL_nodez00_1298 = 
(BgL_failz00_bglt)(BgL_nodez00_2046); 
BgL_node2z00_1299 = 
(BgL_nodez00_bglt)(BgL_node2z00_2047); 
BgL_aliasz00_1300 = BgL_aliasz00_2048; 
{ /* ./Reduce/same.scm 171 */
bool_t BgL__andtest_2696z00_1303;
{ /* ./Reduce/same.scm 171 */
obj_t BgL_obj2397z00_1803;
BgL_obj2397z00_1803 = 
(obj_t)(BgL_node2z00_1299); 
BgL__andtest_2696z00_1303 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2397z00_1803, BGl_failz00zzast_nodez00); } 
if(BgL__andtest_2696z00_1303)
{ /* ./Reduce/same.scm 172 */
bool_t BgL__andtest_2697z00_1304;
{ /* ./Reduce/same.scm 172 */
obj_t BgL_auxz00_2401;obj_t BgL_auxz00_2396;
{ /* ./Reduce/same.scm 172 */
BgL_typez00_bglt BgL_auxz00_2402;
BgL_auxz00_2402 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1299))->BgL_typez00); 
BgL_auxz00_2401 = 
(obj_t)(BgL_auxz00_2402); } 
{ /* ./Reduce/same.scm 172 */
BgL_typez00_bglt BgL_auxz00_2397;
{ /* ./Reduce/same.scm 172 */
BgL_nodez00_bglt BgL_obj1561z00_1804;
BgL_obj1561z00_1804 = 
(BgL_nodez00_bglt)(BgL_nodez00_1298); 
BgL_auxz00_2397 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1804))->BgL_typez00); } 
BgL_auxz00_2396 = 
(obj_t)(BgL_auxz00_2397); } 
BgL__andtest_2697z00_1304 = 
(BgL_auxz00_2396==BgL_auxz00_2401); } 
if(BgL__andtest_2697z00_1304)
{ /* ./Reduce/same.scm 173 */
bool_t BgL__andtest_2698z00_1305;
{ /* ./Reduce/same.scm 173 */
BgL_nodez00_bglt BgL_arg3439z00_1311;BgL_nodez00_bglt BgL_arg3440z00_1312;
BgL_arg3439z00_1311 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1298))->BgL_msgz00); 
{ /* ./Reduce/same.scm 173 */
BgL_failz00_bglt BgL_obj2373z00_1807;
BgL_obj2373z00_1807 = 
(BgL_failz00_bglt)(BgL_node2z00_1299); 
BgL_arg3440z00_1312 = 
(((BgL_failz00_bglt)CREF(BgL_obj2373z00_1807))->BgL_msgz00); } 
{ /* ./Reduce/same.scm 173 */
bool_t BgL_res3613z00_1836;
{ /* ./Reduce/same.scm 173 */
obj_t BgL_method2711z00_1811;
{ /* ./Reduce/same.scm 173 */
BgL_objectz00_bglt BgL_objz00_1812;
BgL_objz00_1812 = 
(BgL_objectz00_bglt)(BgL_arg3439z00_1311); 
{ /* ./Reduce/same.scm 173 */
long BgL_objzd2classzd2numz00_1813;
BgL_objzd2classzd2numz00_1813 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1812); 
{ /* ./Reduce/same.scm 173 */
obj_t BgL_arg2017z00_1814;
{ /* ./Reduce/same.scm 173 */
int BgL_auxz00_2412;
BgL_auxz00_2412 = 
(int)(((long)1)); 
BgL_arg2017z00_1814 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2412); } 
{ /* ./Reduce/same.scm 173 */
int BgL_offsetz00_1817;
BgL_offsetz00_1817 = 
(int)(BgL_objzd2classzd2numz00_1813); 
{ /* ./Reduce/same.scm 173 */
long BgL_offsetz00_1818;
{ /* ./Reduce/same.scm 173 */
long BgL_auxz00_2416;
BgL_auxz00_2416 = 
(long)(BgL_offsetz00_1817); 
BgL_offsetz00_1818 = 
(BgL_auxz00_2416-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 173 */
long BgL_modz00_1819;
{ /* ./Reduce/same.scm 173 */
int BgL_arg2028z00_1820;
BgL_arg2028z00_1820 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 173 */
long BgL_n2z00_1828;
BgL_n2z00_1828 = 
(long)(BgL_arg2028z00_1820); 
BgL_modz00_1819 = 
(BgL_offsetz00_1818/BgL_n2z00_1828); } } 
{ /* ./Reduce/same.scm 173 */
long BgL_restz00_1821;
{ /* ./Reduce/same.scm 173 */
int BgL_arg2024z00_1822;
BgL_arg2024z00_1822 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 173 */
long BgL_n2z00_1831;
BgL_n2z00_1831 = 
(long)(BgL_arg2024z00_1822); 
BgL_restz00_1821 = 
(BgL_offsetz00_1818%BgL_n2z00_1831); } } 
{ /* ./Reduce/same.scm 173 */

{ /* ./Reduce/same.scm 173 */
obj_t BgL_bucketz00_1823;
{ /* ./Reduce/same.scm 173 */
int BgL_kz00_1833;
BgL_kz00_1833 = 
(int)(BgL_modz00_1819); 
BgL_bucketz00_1823 = 
VECTOR_REF(BgL_arg2017z00_1814,BgL_kz00_1833); } 
{ /* ./Reduce/same.scm 173 */
int BgL_kz00_1835;
BgL_kz00_1835 = 
(int)(BgL_restz00_1821); 
BgL_method2711z00_1811 = 
VECTOR_REF(BgL_bucketz00_1823,BgL_kz00_1835); } } } } } } } } } } 
{ /* ./Reduce/same.scm 173 */
obj_t BgL_auxz00_2429;
BgL_auxz00_2429 = 
PROCEDURE_ENTRY(BgL_method2711z00_1811)(BgL_method2711z00_1811, 
(obj_t)(BgL_arg3439z00_1311), 
(obj_t)(BgL_arg3440z00_1312), BgL_aliasz00_1300, BEOA); 
BgL_res3613z00_1836 = 
CBOOL(BgL_auxz00_2429); } } 
BgL__andtest_2698z00_1305 = BgL_res3613z00_1836; } } 
if(BgL__andtest_2698z00_1305)
{ /* ./Reduce/same.scm 174 */
bool_t BgL__andtest_2699z00_1306;
{ /* ./Reduce/same.scm 174 */
BgL_nodez00_bglt BgL_arg3433z00_1309;BgL_nodez00_bglt BgL_arg3434z00_1310;
BgL_arg3433z00_1309 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1298))->BgL_procz00); 
{ /* ./Reduce/same.scm 174 */
BgL_failz00_bglt BgL_obj2370z00_1838;
BgL_obj2370z00_1838 = 
(BgL_failz00_bglt)(BgL_node2z00_1299); 
BgL_arg3434z00_1310 = 
(((BgL_failz00_bglt)CREF(BgL_obj2370z00_1838))->BgL_procz00); } 
{ /* ./Reduce/same.scm 174 */
bool_t BgL_res3616z00_1867;
{ /* ./Reduce/same.scm 174 */
obj_t BgL_method2711z00_1842;
{ /* ./Reduce/same.scm 174 */
BgL_objectz00_bglt BgL_objz00_1843;
BgL_objz00_1843 = 
(BgL_objectz00_bglt)(BgL_arg3433z00_1309); 
{ /* ./Reduce/same.scm 174 */
long BgL_objzd2classzd2numz00_1844;
BgL_objzd2classzd2numz00_1844 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1843); 
{ /* ./Reduce/same.scm 174 */
obj_t BgL_arg2017z00_1845;
{ /* ./Reduce/same.scm 174 */
int BgL_auxz00_2441;
BgL_auxz00_2441 = 
(int)(((long)1)); 
BgL_arg2017z00_1845 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2441); } 
{ /* ./Reduce/same.scm 174 */
int BgL_offsetz00_1848;
BgL_offsetz00_1848 = 
(int)(BgL_objzd2classzd2numz00_1844); 
{ /* ./Reduce/same.scm 174 */
long BgL_offsetz00_1849;
{ /* ./Reduce/same.scm 174 */
long BgL_auxz00_2445;
BgL_auxz00_2445 = 
(long)(BgL_offsetz00_1848); 
BgL_offsetz00_1849 = 
(BgL_auxz00_2445-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 174 */
long BgL_modz00_1850;
{ /* ./Reduce/same.scm 174 */
int BgL_arg2028z00_1851;
BgL_arg2028z00_1851 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 174 */
long BgL_n2z00_1859;
BgL_n2z00_1859 = 
(long)(BgL_arg2028z00_1851); 
BgL_modz00_1850 = 
(BgL_offsetz00_1849/BgL_n2z00_1859); } } 
{ /* ./Reduce/same.scm 174 */
long BgL_restz00_1852;
{ /* ./Reduce/same.scm 174 */
int BgL_arg2024z00_1853;
BgL_arg2024z00_1853 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 174 */
long BgL_n2z00_1862;
BgL_n2z00_1862 = 
(long)(BgL_arg2024z00_1853); 
BgL_restz00_1852 = 
(BgL_offsetz00_1849%BgL_n2z00_1862); } } 
{ /* ./Reduce/same.scm 174 */

{ /* ./Reduce/same.scm 174 */
obj_t BgL_bucketz00_1854;
{ /* ./Reduce/same.scm 174 */
int BgL_kz00_1864;
BgL_kz00_1864 = 
(int)(BgL_modz00_1850); 
BgL_bucketz00_1854 = 
VECTOR_REF(BgL_arg2017z00_1845,BgL_kz00_1864); } 
{ /* ./Reduce/same.scm 174 */
int BgL_kz00_1866;
BgL_kz00_1866 = 
(int)(BgL_restz00_1852); 
BgL_method2711z00_1842 = 
VECTOR_REF(BgL_bucketz00_1854,BgL_kz00_1866); } } } } } } } } } } 
{ /* ./Reduce/same.scm 174 */
obj_t BgL_auxz00_2458;
BgL_auxz00_2458 = 
PROCEDURE_ENTRY(BgL_method2711z00_1842)(BgL_method2711z00_1842, 
(obj_t)(BgL_arg3433z00_1309), 
(obj_t)(BgL_arg3434z00_1310), BgL_aliasz00_1300, BEOA); 
BgL_res3616z00_1867 = 
CBOOL(BgL_auxz00_2458); } } 
BgL__andtest_2699z00_1306 = BgL_res3616z00_1867; } } 
if(BgL__andtest_2699z00_1306)
{ /* ./Reduce/same.scm 175 */
BgL_nodez00_bglt BgL_arg3427z00_1307;BgL_nodez00_bglt BgL_arg3428z00_1308;
BgL_arg3427z00_1307 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1298))->BgL_objz00); 
{ /* ./Reduce/same.scm 175 */
BgL_failz00_bglt BgL_obj2376z00_1869;
BgL_obj2376z00_1869 = 
(BgL_failz00_bglt)(BgL_node2z00_1299); 
BgL_arg3428z00_1308 = 
(((BgL_failz00_bglt)CREF(BgL_obj2376z00_1869))->BgL_objz00); } 
{ /* ./Reduce/same.scm 175 */
bool_t BgL_res3619z00_1898;
{ /* ./Reduce/same.scm 175 */
obj_t BgL_method2711z00_1873;
{ /* ./Reduce/same.scm 175 */
BgL_objectz00_bglt BgL_objz00_1874;
BgL_objz00_1874 = 
(BgL_objectz00_bglt)(BgL_arg3427z00_1307); 
{ /* ./Reduce/same.scm 175 */
long BgL_objzd2classzd2numz00_1875;
BgL_objzd2classzd2numz00_1875 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1874); 
{ /* ./Reduce/same.scm 175 */
obj_t BgL_arg2017z00_1876;
{ /* ./Reduce/same.scm 175 */
int BgL_auxz00_2470;
BgL_auxz00_2470 = 
(int)(((long)1)); 
BgL_arg2017z00_1876 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2470); } 
{ /* ./Reduce/same.scm 175 */
int BgL_offsetz00_1879;
BgL_offsetz00_1879 = 
(int)(BgL_objzd2classzd2numz00_1875); 
{ /* ./Reduce/same.scm 175 */
long BgL_offsetz00_1880;
{ /* ./Reduce/same.scm 175 */
long BgL_auxz00_2474;
BgL_auxz00_2474 = 
(long)(BgL_offsetz00_1879); 
BgL_offsetz00_1880 = 
(BgL_auxz00_2474-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 175 */
long BgL_modz00_1881;
{ /* ./Reduce/same.scm 175 */
int BgL_arg2028z00_1882;
BgL_arg2028z00_1882 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 175 */
long BgL_n2z00_1890;
BgL_n2z00_1890 = 
(long)(BgL_arg2028z00_1882); 
BgL_modz00_1881 = 
(BgL_offsetz00_1880/BgL_n2z00_1890); } } 
{ /* ./Reduce/same.scm 175 */
long BgL_restz00_1883;
{ /* ./Reduce/same.scm 175 */
int BgL_arg2024z00_1884;
BgL_arg2024z00_1884 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 175 */
long BgL_n2z00_1893;
BgL_n2z00_1893 = 
(long)(BgL_arg2024z00_1884); 
BgL_restz00_1883 = 
(BgL_offsetz00_1880%BgL_n2z00_1893); } } 
{ /* ./Reduce/same.scm 175 */

{ /* ./Reduce/same.scm 175 */
obj_t BgL_bucketz00_1885;
{ /* ./Reduce/same.scm 175 */
int BgL_kz00_1895;
BgL_kz00_1895 = 
(int)(BgL_modz00_1881); 
BgL_bucketz00_1885 = 
VECTOR_REF(BgL_arg2017z00_1876,BgL_kz00_1895); } 
{ /* ./Reduce/same.scm 175 */
int BgL_kz00_1897;
BgL_kz00_1897 = 
(int)(BgL_restz00_1883); 
BgL_method2711z00_1873 = 
VECTOR_REF(BgL_bucketz00_1885,BgL_kz00_1897); } } } } } } } } } } 
{ /* ./Reduce/same.scm 175 */
obj_t BgL_auxz00_2487;
BgL_auxz00_2487 = 
PROCEDURE_ENTRY(BgL_method2711z00_1873)(BgL_method2711z00_1873, 
(obj_t)(BgL_arg3427z00_1307), 
(obj_t)(BgL_arg3428z00_1308), BgL_aliasz00_1300, BEOA); 
BgL_res3619z00_1898 = 
CBOOL(BgL_auxz00_2487); } } 
BgL_auxz00_2392 = BgL_res3619z00_1898; } }  else 
{ /* ./Reduce/same.scm 174 */
BgL_auxz00_2392 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 173 */
BgL_auxz00_2392 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 172 */
BgL_auxz00_2392 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 171 */
BgL_auxz00_2392 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_2392);} } } 
}



/* same-node?-conditional2740 */
obj_t BGl_samezd2nodezf3zd2conditional2740zf3zzreduce_samez00(obj_t BgL_envz00_2049, obj_t BgL_nodez00_2050, obj_t BgL_node2z00_2051, obj_t BgL_aliasz00_2052)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 154 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1279;BgL_nodez00_bglt BgL_node2z00_1280;obj_t BgL_aliasz00_1281;
{ /* ./Tools/trace.sch 42 */
bool_t BgL_auxz00_2496;
BgL_nodez00_1279 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2050); 
BgL_node2z00_1280 = 
(BgL_nodez00_bglt)(BgL_node2z00_2051); 
BgL_aliasz00_1281 = BgL_aliasz00_2052; 
{ /* ./Reduce/same.scm 158 */
bool_t BgL__andtest_2692z00_1284;
{ /* ./Reduce/same.scm 158 */
obj_t BgL_obj2365z00_1707;
BgL_obj2365z00_1707 = 
(obj_t)(BgL_node2z00_1280); 
BgL__andtest_2692z00_1284 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2365z00_1707, BGl_conditionalz00zzast_nodez00); } 
if(BgL__andtest_2692z00_1284)
{ /* ./Reduce/same.scm 159 */
bool_t BgL__andtest_2693z00_1285;
{ /* ./Reduce/same.scm 159 */
obj_t BgL_auxz00_2505;obj_t BgL_auxz00_2500;
{ /* ./Reduce/same.scm 159 */
BgL_typez00_bglt BgL_auxz00_2506;
BgL_auxz00_2506 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1280))->BgL_typez00); 
BgL_auxz00_2505 = 
(obj_t)(BgL_auxz00_2506); } 
{ /* ./Reduce/same.scm 159 */
BgL_typez00_bglt BgL_auxz00_2501;
{ /* ./Reduce/same.scm 159 */
BgL_nodez00_bglt BgL_obj1561z00_1708;
BgL_obj1561z00_1708 = 
(BgL_nodez00_bglt)(BgL_nodez00_1279); 
BgL_auxz00_2501 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1708))->BgL_typez00); } 
BgL_auxz00_2500 = 
(obj_t)(BgL_auxz00_2501); } 
BgL__andtest_2693z00_1285 = 
(BgL_auxz00_2500==BgL_auxz00_2505); } 
if(BgL__andtest_2693z00_1285)
{ /* ./Reduce/same.scm 160 */
bool_t BgL__andtest_2694z00_1286;
{ /* ./Reduce/same.scm 160 */
BgL_nodez00_bglt BgL_arg3408z00_1292;BgL_nodez00_bglt BgL_arg3409z00_1293;
BgL_arg3408z00_1292 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1279))->BgL_falsez00); 
{ /* ./Reduce/same.scm 160 */
BgL_conditionalz00_bglt BgL_obj2338z00_1711;
BgL_obj2338z00_1711 = 
(BgL_conditionalz00_bglt)(BgL_node2z00_1280); 
BgL_arg3409z00_1293 = 
(((BgL_conditionalz00_bglt)CREF(BgL_obj2338z00_1711))->BgL_falsez00); } 
{ /* ./Reduce/same.scm 160 */
bool_t BgL_res3604z00_1740;
{ /* ./Reduce/same.scm 160 */
obj_t BgL_method2711z00_1715;
{ /* ./Reduce/same.scm 160 */
BgL_objectz00_bglt BgL_objz00_1716;
BgL_objz00_1716 = 
(BgL_objectz00_bglt)(BgL_arg3408z00_1292); 
{ /* ./Reduce/same.scm 160 */
long BgL_objzd2classzd2numz00_1717;
BgL_objzd2classzd2numz00_1717 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1716); 
{ /* ./Reduce/same.scm 160 */
obj_t BgL_arg2017z00_1718;
{ /* ./Reduce/same.scm 160 */
int BgL_auxz00_2516;
BgL_auxz00_2516 = 
(int)(((long)1)); 
BgL_arg2017z00_1718 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2516); } 
{ /* ./Reduce/same.scm 160 */
int BgL_offsetz00_1721;
BgL_offsetz00_1721 = 
(int)(BgL_objzd2classzd2numz00_1717); 
{ /* ./Reduce/same.scm 160 */
long BgL_offsetz00_1722;
{ /* ./Reduce/same.scm 160 */
long BgL_auxz00_2520;
BgL_auxz00_2520 = 
(long)(BgL_offsetz00_1721); 
BgL_offsetz00_1722 = 
(BgL_auxz00_2520-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 160 */
long BgL_modz00_1723;
{ /* ./Reduce/same.scm 160 */
int BgL_arg2028z00_1724;
BgL_arg2028z00_1724 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 160 */
long BgL_n2z00_1732;
BgL_n2z00_1732 = 
(long)(BgL_arg2028z00_1724); 
BgL_modz00_1723 = 
(BgL_offsetz00_1722/BgL_n2z00_1732); } } 
{ /* ./Reduce/same.scm 160 */
long BgL_restz00_1725;
{ /* ./Reduce/same.scm 160 */
int BgL_arg2024z00_1726;
BgL_arg2024z00_1726 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 160 */
long BgL_n2z00_1735;
BgL_n2z00_1735 = 
(long)(BgL_arg2024z00_1726); 
BgL_restz00_1725 = 
(BgL_offsetz00_1722%BgL_n2z00_1735); } } 
{ /* ./Reduce/same.scm 160 */

{ /* ./Reduce/same.scm 160 */
obj_t BgL_bucketz00_1727;
{ /* ./Reduce/same.scm 160 */
int BgL_kz00_1737;
BgL_kz00_1737 = 
(int)(BgL_modz00_1723); 
BgL_bucketz00_1727 = 
VECTOR_REF(BgL_arg2017z00_1718,BgL_kz00_1737); } 
{ /* ./Reduce/same.scm 160 */
int BgL_kz00_1739;
BgL_kz00_1739 = 
(int)(BgL_restz00_1725); 
BgL_method2711z00_1715 = 
VECTOR_REF(BgL_bucketz00_1727,BgL_kz00_1739); } } } } } } } } } } 
{ /* ./Reduce/same.scm 160 */
obj_t BgL_auxz00_2533;
BgL_auxz00_2533 = 
PROCEDURE_ENTRY(BgL_method2711z00_1715)(BgL_method2711z00_1715, 
(obj_t)(BgL_arg3408z00_1292), 
(obj_t)(BgL_arg3409z00_1293), BgL_aliasz00_1281, BEOA); 
BgL_res3604z00_1740 = 
CBOOL(BgL_auxz00_2533); } } 
BgL__andtest_2694z00_1286 = BgL_res3604z00_1740; } } 
if(BgL__andtest_2694z00_1286)
{ /* ./Reduce/same.scm 161 */
bool_t BgL__andtest_2695z00_1287;
{ /* ./Reduce/same.scm 161 */
BgL_nodez00_bglt BgL_arg3402z00_1290;BgL_nodez00_bglt BgL_arg3403z00_1291;
BgL_arg3402z00_1290 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1279))->BgL_truez00); 
{ /* ./Reduce/same.scm 161 */
BgL_conditionalz00_bglt BgL_obj2335z00_1742;
BgL_obj2335z00_1742 = 
(BgL_conditionalz00_bglt)(BgL_node2z00_1280); 
BgL_arg3403z00_1291 = 
(((BgL_conditionalz00_bglt)CREF(BgL_obj2335z00_1742))->BgL_truez00); } 
{ /* ./Reduce/same.scm 161 */
bool_t BgL_res3607z00_1771;
{ /* ./Reduce/same.scm 161 */
obj_t BgL_method2711z00_1746;
{ /* ./Reduce/same.scm 161 */
BgL_objectz00_bglt BgL_objz00_1747;
BgL_objz00_1747 = 
(BgL_objectz00_bglt)(BgL_arg3402z00_1290); 
{ /* ./Reduce/same.scm 161 */
long BgL_objzd2classzd2numz00_1748;
BgL_objzd2classzd2numz00_1748 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1747); 
{ /* ./Reduce/same.scm 161 */
obj_t BgL_arg2017z00_1749;
{ /* ./Reduce/same.scm 161 */
int BgL_auxz00_2545;
BgL_auxz00_2545 = 
(int)(((long)1)); 
BgL_arg2017z00_1749 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2545); } 
{ /* ./Reduce/same.scm 161 */
int BgL_offsetz00_1752;
BgL_offsetz00_1752 = 
(int)(BgL_objzd2classzd2numz00_1748); 
{ /* ./Reduce/same.scm 161 */
long BgL_offsetz00_1753;
{ /* ./Reduce/same.scm 161 */
long BgL_auxz00_2549;
BgL_auxz00_2549 = 
(long)(BgL_offsetz00_1752); 
BgL_offsetz00_1753 = 
(BgL_auxz00_2549-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 161 */
long BgL_modz00_1754;
{ /* ./Reduce/same.scm 161 */
int BgL_arg2028z00_1755;
BgL_arg2028z00_1755 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 161 */
long BgL_n2z00_1763;
BgL_n2z00_1763 = 
(long)(BgL_arg2028z00_1755); 
BgL_modz00_1754 = 
(BgL_offsetz00_1753/BgL_n2z00_1763); } } 
{ /* ./Reduce/same.scm 161 */
long BgL_restz00_1756;
{ /* ./Reduce/same.scm 161 */
int BgL_arg2024z00_1757;
BgL_arg2024z00_1757 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 161 */
long BgL_n2z00_1766;
BgL_n2z00_1766 = 
(long)(BgL_arg2024z00_1757); 
BgL_restz00_1756 = 
(BgL_offsetz00_1753%BgL_n2z00_1766); } } 
{ /* ./Reduce/same.scm 161 */

{ /* ./Reduce/same.scm 161 */
obj_t BgL_bucketz00_1758;
{ /* ./Reduce/same.scm 161 */
int BgL_kz00_1768;
BgL_kz00_1768 = 
(int)(BgL_modz00_1754); 
BgL_bucketz00_1758 = 
VECTOR_REF(BgL_arg2017z00_1749,BgL_kz00_1768); } 
{ /* ./Reduce/same.scm 161 */
int BgL_kz00_1770;
BgL_kz00_1770 = 
(int)(BgL_restz00_1756); 
BgL_method2711z00_1746 = 
VECTOR_REF(BgL_bucketz00_1758,BgL_kz00_1770); } } } } } } } } } } 
{ /* ./Reduce/same.scm 161 */
obj_t BgL_auxz00_2562;
BgL_auxz00_2562 = 
PROCEDURE_ENTRY(BgL_method2711z00_1746)(BgL_method2711z00_1746, 
(obj_t)(BgL_arg3402z00_1290), 
(obj_t)(BgL_arg3403z00_1291), BgL_aliasz00_1281, BEOA); 
BgL_res3607z00_1771 = 
CBOOL(BgL_auxz00_2562); } } 
BgL__andtest_2695z00_1287 = BgL_res3607z00_1771; } } 
if(BgL__andtest_2695z00_1287)
{ /* ./Reduce/same.scm 162 */
BgL_nodez00_bglt BgL_arg3396z00_1288;BgL_nodez00_bglt BgL_arg3397z00_1289;
BgL_arg3396z00_1288 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1279))->BgL_testz00); 
{ /* ./Reduce/same.scm 162 */
BgL_conditionalz00_bglt BgL_obj2332z00_1773;
BgL_obj2332z00_1773 = 
(BgL_conditionalz00_bglt)(BgL_node2z00_1280); 
BgL_arg3397z00_1289 = 
(((BgL_conditionalz00_bglt)CREF(BgL_obj2332z00_1773))->BgL_testz00); } 
{ /* ./Reduce/same.scm 162 */
bool_t BgL_res3610z00_1802;
{ /* ./Reduce/same.scm 162 */
obj_t BgL_method2711z00_1777;
{ /* ./Reduce/same.scm 162 */
BgL_objectz00_bglt BgL_objz00_1778;
BgL_objz00_1778 = 
(BgL_objectz00_bglt)(BgL_arg3396z00_1288); 
{ /* ./Reduce/same.scm 162 */
long BgL_objzd2classzd2numz00_1779;
BgL_objzd2classzd2numz00_1779 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1778); 
{ /* ./Reduce/same.scm 162 */
obj_t BgL_arg2017z00_1780;
{ /* ./Reduce/same.scm 162 */
int BgL_auxz00_2574;
BgL_auxz00_2574 = 
(int)(((long)1)); 
BgL_arg2017z00_1780 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2574); } 
{ /* ./Reduce/same.scm 162 */
int BgL_offsetz00_1783;
BgL_offsetz00_1783 = 
(int)(BgL_objzd2classzd2numz00_1779); 
{ /* ./Reduce/same.scm 162 */
long BgL_offsetz00_1784;
{ /* ./Reduce/same.scm 162 */
long BgL_auxz00_2578;
BgL_auxz00_2578 = 
(long)(BgL_offsetz00_1783); 
BgL_offsetz00_1784 = 
(BgL_auxz00_2578-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 162 */
long BgL_modz00_1785;
{ /* ./Reduce/same.scm 162 */
int BgL_arg2028z00_1786;
BgL_arg2028z00_1786 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 162 */
long BgL_n2z00_1794;
BgL_n2z00_1794 = 
(long)(BgL_arg2028z00_1786); 
BgL_modz00_1785 = 
(BgL_offsetz00_1784/BgL_n2z00_1794); } } 
{ /* ./Reduce/same.scm 162 */
long BgL_restz00_1787;
{ /* ./Reduce/same.scm 162 */
int BgL_arg2024z00_1788;
BgL_arg2024z00_1788 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 162 */
long BgL_n2z00_1797;
BgL_n2z00_1797 = 
(long)(BgL_arg2024z00_1788); 
BgL_restz00_1787 = 
(BgL_offsetz00_1784%BgL_n2z00_1797); } } 
{ /* ./Reduce/same.scm 162 */

{ /* ./Reduce/same.scm 162 */
obj_t BgL_bucketz00_1789;
{ /* ./Reduce/same.scm 162 */
int BgL_kz00_1799;
BgL_kz00_1799 = 
(int)(BgL_modz00_1785); 
BgL_bucketz00_1789 = 
VECTOR_REF(BgL_arg2017z00_1780,BgL_kz00_1799); } 
{ /* ./Reduce/same.scm 162 */
int BgL_kz00_1801;
BgL_kz00_1801 = 
(int)(BgL_restz00_1787); 
BgL_method2711z00_1777 = 
VECTOR_REF(BgL_bucketz00_1789,BgL_kz00_1801); } } } } } } } } } } 
{ /* ./Reduce/same.scm 162 */
obj_t BgL_auxz00_2591;
BgL_auxz00_2591 = 
PROCEDURE_ENTRY(BgL_method2711z00_1777)(BgL_method2711z00_1777, 
(obj_t)(BgL_arg3396z00_1288), 
(obj_t)(BgL_arg3397z00_1289), BgL_aliasz00_1281, BEOA); 
BgL_res3610z00_1802 = 
CBOOL(BgL_auxz00_2591); } } 
BgL_auxz00_2496 = BgL_res3610z00_1802; } }  else 
{ /* ./Reduce/same.scm 161 */
BgL_auxz00_2496 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 160 */
BgL_auxz00_2496 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 159 */
BgL_auxz00_2496 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 158 */
BgL_auxz00_2496 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_2496);} } } 
}



/* same-node?-cast2737 */
obj_t BGl_samezd2nodezf3zd2cast2737zf3zzreduce_samez00(obj_t BgL_envz00_2053, obj_t BgL_nodez00_2054, obj_t BgL_node2z00_2055, obj_t BgL_aliasz00_2056)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 146 */
{ 
BgL_castz00_bglt BgL_nodez00_1266;BgL_nodez00_bglt BgL_node2z00_1267;obj_t BgL_aliasz00_1268;
{ /* ./Reduce/same.scm 147 */
bool_t BgL_auxz00_2600;
BgL_nodez00_1266 = 
(BgL_castz00_bglt)(BgL_nodez00_2054); 
BgL_node2z00_1267 = 
(BgL_nodez00_bglt)(BgL_node2z00_2055); 
BgL_aliasz00_1268 = BgL_aliasz00_2056; 
{ /* ./Reduce/same.scm 147 */
bool_t BgL__andtest_2690z00_1271;
{ /* ./Reduce/same.scm 147 */
obj_t BgL_obj2295z00_1673;
BgL_obj2295z00_1673 = 
(obj_t)(BgL_node2z00_1267); 
BgL__andtest_2690z00_1271 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2295z00_1673, BGl_castz00zzast_nodez00); } 
if(BgL__andtest_2690z00_1271)
{ /* ./Reduce/same.scm 148 */
bool_t BgL__andtest_2691z00_1272;
{ /* ./Reduce/same.scm 148 */
obj_t BgL_auxz00_2609;obj_t BgL_auxz00_2604;
{ /* ./Reduce/same.scm 148 */
BgL_typez00_bglt BgL_auxz00_2610;
BgL_auxz00_2610 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1267))->BgL_typez00); 
BgL_auxz00_2609 = 
(obj_t)(BgL_auxz00_2610); } 
{ /* ./Reduce/same.scm 148 */
BgL_typez00_bglt BgL_auxz00_2605;
{ /* ./Reduce/same.scm 148 */
BgL_nodez00_bglt BgL_obj1561z00_1674;
BgL_obj1561z00_1674 = 
(BgL_nodez00_bglt)(BgL_nodez00_1266); 
BgL_auxz00_2605 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1674))->BgL_typez00); } 
BgL_auxz00_2604 = 
(obj_t)(BgL_auxz00_2605); } 
BgL__andtest_2691z00_1272 = 
(BgL_auxz00_2604==BgL_auxz00_2609); } 
if(BgL__andtest_2691z00_1272)
{ /* ./Reduce/same.scm 149 */
BgL_nodez00_bglt BgL_arg3377z00_1273;BgL_nodez00_bglt BgL_arg3378z00_1274;
BgL_arg3377z00_1273 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1266))->BgL_argz00); 
{ /* ./Reduce/same.scm 149 */
BgL_castz00_bglt BgL_obj2280z00_1677;
BgL_obj2280z00_1677 = 
(BgL_castz00_bglt)(BgL_node2z00_1267); 
BgL_arg3378z00_1274 = 
(((BgL_castz00_bglt)CREF(BgL_obj2280z00_1677))->BgL_argz00); } 
{ /* ./Reduce/same.scm 149 */
bool_t BgL_res3601z00_1706;
{ /* ./Reduce/same.scm 149 */
obj_t BgL_method2711z00_1681;
{ /* ./Reduce/same.scm 149 */
BgL_objectz00_bglt BgL_objz00_1682;
BgL_objz00_1682 = 
(BgL_objectz00_bglt)(BgL_arg3377z00_1273); 
{ /* ./Reduce/same.scm 149 */
long BgL_objzd2classzd2numz00_1683;
BgL_objzd2classzd2numz00_1683 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1682); 
{ /* ./Reduce/same.scm 149 */
obj_t BgL_arg2017z00_1684;
{ /* ./Reduce/same.scm 149 */
int BgL_auxz00_2620;
BgL_auxz00_2620 = 
(int)(((long)1)); 
BgL_arg2017z00_1684 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2620); } 
{ /* ./Reduce/same.scm 149 */
int BgL_offsetz00_1687;
BgL_offsetz00_1687 = 
(int)(BgL_objzd2classzd2numz00_1683); 
{ /* ./Reduce/same.scm 149 */
long BgL_offsetz00_1688;
{ /* ./Reduce/same.scm 149 */
long BgL_auxz00_2624;
BgL_auxz00_2624 = 
(long)(BgL_offsetz00_1687); 
BgL_offsetz00_1688 = 
(BgL_auxz00_2624-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 149 */
long BgL_modz00_1689;
{ /* ./Reduce/same.scm 149 */
int BgL_arg2028z00_1690;
BgL_arg2028z00_1690 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 149 */
long BgL_n2z00_1698;
BgL_n2z00_1698 = 
(long)(BgL_arg2028z00_1690); 
BgL_modz00_1689 = 
(BgL_offsetz00_1688/BgL_n2z00_1698); } } 
{ /* ./Reduce/same.scm 149 */
long BgL_restz00_1691;
{ /* ./Reduce/same.scm 149 */
int BgL_arg2024z00_1692;
BgL_arg2024z00_1692 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 149 */
long BgL_n2z00_1701;
BgL_n2z00_1701 = 
(long)(BgL_arg2024z00_1692); 
BgL_restz00_1691 = 
(BgL_offsetz00_1688%BgL_n2z00_1701); } } 
{ /* ./Reduce/same.scm 149 */

{ /* ./Reduce/same.scm 149 */
obj_t BgL_bucketz00_1693;
{ /* ./Reduce/same.scm 149 */
int BgL_kz00_1703;
BgL_kz00_1703 = 
(int)(BgL_modz00_1689); 
BgL_bucketz00_1693 = 
VECTOR_REF(BgL_arg2017z00_1684,BgL_kz00_1703); } 
{ /* ./Reduce/same.scm 149 */
int BgL_kz00_1705;
BgL_kz00_1705 = 
(int)(BgL_restz00_1691); 
BgL_method2711z00_1681 = 
VECTOR_REF(BgL_bucketz00_1693,BgL_kz00_1705); } } } } } } } } } } 
{ /* ./Reduce/same.scm 149 */
obj_t BgL_auxz00_2637;
BgL_auxz00_2637 = 
PROCEDURE_ENTRY(BgL_method2711z00_1681)(BgL_method2711z00_1681, 
(obj_t)(BgL_arg3377z00_1273), 
(obj_t)(BgL_arg3378z00_1274), BgL_aliasz00_1268, BEOA); 
BgL_res3601z00_1706 = 
CBOOL(BgL_auxz00_2637); } } 
BgL_auxz00_2600 = BgL_res3601z00_1706; } }  else 
{ /* ./Reduce/same.scm 148 */
BgL_auxz00_2600 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 147 */
BgL_auxz00_2600 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_2600);} } } 
}



/* same-node?-valloc2735 */
obj_t BGl_samezd2nodezf3zd2valloc2735zf3zzreduce_samez00(obj_t BgL_envz00_2057, obj_t BgL_nodez00_2058, obj_t BgL_node2z00_2059, obj_t BgL_aliasz00_2060)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 140 */
{ /* ./Reduce/same.scm 141 */
bool_t BgL_auxz00_2646;
BgL_auxz00_2646 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_2646);} } 
}



/* same-node?-setfield2733 */
obj_t BGl_samezd2nodezf3zd2setfield2733zf3zzreduce_samez00(obj_t BgL_envz00_2061, obj_t BgL_nodez00_2062, obj_t BgL_node2z00_2063, obj_t BgL_aliasz00_2064)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 132 */
{ 
BgL_setfieldz00_bglt BgL_nodez00_1248;BgL_nodez00_bglt BgL_node2z00_1249;obj_t BgL_aliasz00_1250;
BgL_nodez00_1248 = 
(BgL_setfieldz00_bglt)(BgL_nodez00_2062); 
BgL_node2z00_1249 = 
(BgL_nodez00_bglt)(BgL_node2z00_2063); 
BgL_aliasz00_1250 = BgL_aliasz00_2064; 
{ 

{ /* ./Reduce/same.scm 133 */
bool_t BgL__andtest_2688z00_1253;
{ /* ./Reduce/same.scm 133 */
obj_t BgL_obj1987z00_1638;
BgL_obj1987z00_1638 = 
(obj_t)(BgL_node2z00_1249); 
BgL__andtest_2688z00_1253 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1987z00_1638, BGl_setfieldz00zzast_nodez00); } 
if(BgL__andtest_2688z00_1253)
{ /* ./Reduce/same.scm 134 */
bool_t BgL__andtest_2689z00_1254;
{ /* ./Reduce/same.scm 134 */
obj_t BgL_arg3358z00_1255;obj_t BgL_arg3359z00_1256;
BgL_arg3358z00_1255 = 
(((BgL_setfieldz00_bglt)CREF(BgL_nodez00_1248))->BgL_fnamez00); 
{ /* ./Reduce/same.scm 134 */
BgL_setfieldz00_bglt BgL_obj1954z00_1640;
BgL_obj1954z00_1640 = 
(BgL_setfieldz00_bglt)(BgL_node2z00_1249); 
BgL_arg3359z00_1256 = 
(((BgL_setfieldz00_bglt)CREF(BgL_obj1954z00_1640))->BgL_fnamez00); } 
BgL__andtest_2689z00_1254 = 
bigloo_strcmp(BgL_arg3358z00_1255, BgL_arg3359z00_1256); } 
if(BgL__andtest_2689z00_1254)
{ /* ./Reduce/same.scm 134 */
{ /* ./Reduce/same.scm 132 */
obj_t BgL_nextzd2method2732zd2_1257;
BgL_nextzd2method2732zd2_1257 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_nodez00_1248), BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_setfieldz00zzast_nodez00); 
{ /* ./Reduce/same.scm 132 */
bool_t BgL_test3364z00_1258;
BgL_test3364z00_1258 = 
PROCEDUREP(BgL_nextzd2method2732zd2_1257); 
if(BgL_test3364z00_1258)
{ /* ./Reduce/same.scm 132 */
return 
PROCEDURE_ENTRY(BgL_nextzd2method2732zd2_1257)(BgL_nextzd2method2732zd2_1257, 
(obj_t)(BgL_nodez00_1248), 
(obj_t)(BgL_node2z00_1249), BgL_aliasz00_1250, BEOA);}  else 
{ /* ./Reduce/same.scm 132 */
{ /* ./Reduce/same.scm 132 */
bool_t BgL_res3598z00_1672;
{ /* ./Reduce/same.scm 132 */
BgL_nodez00_bglt BgL_node1z00_1644;
BgL_node1z00_1644 = 
(BgL_nodez00_bglt)(BgL_nodez00_1248); 
{ /* ./Reduce/same.scm 132 */
obj_t BgL_method2711z00_1647;
{ /* ./Reduce/same.scm 132 */
BgL_objectz00_bglt BgL_objz00_1648;
BgL_objz00_1648 = 
(BgL_objectz00_bglt)(BgL_node1z00_1644); 
{ /* ./Reduce/same.scm 132 */
long BgL_objzd2classzd2numz00_1649;
BgL_objzd2classzd2numz00_1649 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1648); 
{ /* ./Reduce/same.scm 132 */
obj_t BgL_arg2017z00_1650;
{ /* ./Reduce/same.scm 132 */
int BgL_auxz00_2667;
BgL_auxz00_2667 = 
(int)(((long)1)); 
BgL_arg2017z00_1650 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2667); } 
{ /* ./Reduce/same.scm 132 */
int BgL_offsetz00_1653;
BgL_offsetz00_1653 = 
(int)(BgL_objzd2classzd2numz00_1649); 
{ /* ./Reduce/same.scm 132 */
long BgL_offsetz00_1654;
{ /* ./Reduce/same.scm 132 */
long BgL_auxz00_2671;
BgL_auxz00_2671 = 
(long)(BgL_offsetz00_1653); 
BgL_offsetz00_1654 = 
(BgL_auxz00_2671-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 132 */
long BgL_modz00_1655;
{ /* ./Reduce/same.scm 132 */
int BgL_arg2028z00_1656;
BgL_arg2028z00_1656 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 132 */
long BgL_n2z00_1664;
BgL_n2z00_1664 = 
(long)(BgL_arg2028z00_1656); 
BgL_modz00_1655 = 
(BgL_offsetz00_1654/BgL_n2z00_1664); } } 
{ /* ./Reduce/same.scm 132 */
long BgL_restz00_1657;
{ /* ./Reduce/same.scm 132 */
int BgL_arg2024z00_1658;
BgL_arg2024z00_1658 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 132 */
long BgL_n2z00_1667;
BgL_n2z00_1667 = 
(long)(BgL_arg2024z00_1658); 
BgL_restz00_1657 = 
(BgL_offsetz00_1654%BgL_n2z00_1667); } } 
{ /* ./Reduce/same.scm 132 */

{ /* ./Reduce/same.scm 132 */
obj_t BgL_bucketz00_1659;
{ /* ./Reduce/same.scm 132 */
int BgL_kz00_1669;
BgL_kz00_1669 = 
(int)(BgL_modz00_1655); 
BgL_bucketz00_1659 = 
VECTOR_REF(BgL_arg2017z00_1650,BgL_kz00_1669); } 
{ /* ./Reduce/same.scm 132 */
int BgL_kz00_1671;
BgL_kz00_1671 = 
(int)(BgL_restz00_1657); 
BgL_method2711z00_1647 = 
VECTOR_REF(BgL_bucketz00_1659,BgL_kz00_1671); } } } } } } } } } } 
{ /* ./Reduce/same.scm 132 */
obj_t BgL_auxz00_2684;
BgL_auxz00_2684 = 
PROCEDURE_ENTRY(BgL_method2711z00_1647)(BgL_method2711z00_1647, 
(obj_t)(BgL_node1z00_1644), 
(obj_t)(BgL_node2z00_1249), BgL_aliasz00_1250, BEOA); 
BgL_res3598z00_1672 = 
CBOOL(BgL_auxz00_2684); } } } 
return 
BBOOL(BgL_res3598z00_1672);} } } } }  else 
{ /* ./Reduce/same.scm 134 */
return BFALSE;} }  else 
{ /* ./Reduce/same.scm 133 */
return BFALSE;} } } } } 
}



/* same-node?-getfield2731 */
obj_t BGl_samezd2nodezf3zd2getfield2731zf3zzreduce_samez00(obj_t BgL_envz00_2065, obj_t BgL_nodez00_2066, obj_t BgL_node2z00_2067, obj_t BgL_aliasz00_2068)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 124 */
{ 
BgL_getfieldz00_bglt BgL_nodez00_1237;BgL_nodez00_bglt BgL_node2z00_1238;obj_t BgL_aliasz00_1239;
BgL_nodez00_1237 = 
(BgL_getfieldz00_bglt)(BgL_nodez00_2066); 
BgL_node2z00_1238 = 
(BgL_nodez00_bglt)(BgL_node2z00_2067); 
BgL_aliasz00_1239 = BgL_aliasz00_2068; 
{ 

{ /* ./Reduce/same.scm 125 */
bool_t BgL__andtest_2686z00_1242;
{ /* ./Reduce/same.scm 125 */
obj_t BgL_obj1936z00_1603;
BgL_obj1936z00_1603 = 
(obj_t)(BgL_node2z00_1238); 
BgL__andtest_2686z00_1242 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1936z00_1603, BGl_getfieldz00zzast_nodez00); } 
if(BgL__andtest_2686z00_1242)
{ /* ./Reduce/same.scm 126 */
bool_t BgL__andtest_2687z00_1243;
{ /* ./Reduce/same.scm 126 */
obj_t BgL_arg3344z00_1244;obj_t BgL_arg3345z00_1245;
BgL_arg3344z00_1244 = 
(((BgL_getfieldz00_bglt)CREF(BgL_nodez00_1237))->BgL_fnamez00); 
{ /* ./Reduce/same.scm 126 */
BgL_getfieldz00_bglt BgL_obj1903z00_1605;
BgL_obj1903z00_1605 = 
(BgL_getfieldz00_bglt)(BgL_node2z00_1238); 
BgL_arg3345z00_1245 = 
(((BgL_getfieldz00_bglt)CREF(BgL_obj1903z00_1605))->BgL_fnamez00); } 
BgL__andtest_2687z00_1243 = 
bigloo_strcmp(BgL_arg3344z00_1244, BgL_arg3345z00_1245); } 
if(BgL__andtest_2687z00_1243)
{ /* ./Reduce/same.scm 126 */
{ /* ./Reduce/same.scm 124 */
obj_t BgL_nextzd2method2730zd2_1246;
BgL_nextzd2method2730zd2_1246 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_nodez00_1237), BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BGl_getfieldz00zzast_nodez00); 
{ /* ./Reduce/same.scm 124 */
bool_t BgL_test3350z00_1247;
BgL_test3350z00_1247 = 
PROCEDUREP(BgL_nextzd2method2730zd2_1246); 
if(BgL_test3350z00_1247)
{ /* ./Reduce/same.scm 124 */
return 
PROCEDURE_ENTRY(BgL_nextzd2method2730zd2_1246)(BgL_nextzd2method2730zd2_1246, 
(obj_t)(BgL_nodez00_1237), 
(obj_t)(BgL_node2z00_1238), BgL_aliasz00_1239, BEOA);}  else 
{ /* ./Reduce/same.scm 124 */
{ /* ./Reduce/same.scm 124 */
bool_t BgL_res3595z00_1637;
{ /* ./Reduce/same.scm 124 */
BgL_nodez00_bglt BgL_node1z00_1609;
BgL_node1z00_1609 = 
(BgL_nodez00_bglt)(BgL_nodez00_1237); 
{ /* ./Reduce/same.scm 124 */
obj_t BgL_method2711z00_1612;
{ /* ./Reduce/same.scm 124 */
BgL_objectz00_bglt BgL_objz00_1613;
BgL_objz00_1613 = 
(BgL_objectz00_bglt)(BgL_node1z00_1609); 
{ /* ./Reduce/same.scm 124 */
long BgL_objzd2classzd2numz00_1614;
BgL_objzd2classzd2numz00_1614 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1613); 
{ /* ./Reduce/same.scm 124 */
obj_t BgL_arg2017z00_1615;
{ /* ./Reduce/same.scm 124 */
int BgL_auxz00_2712;
BgL_auxz00_2712 = 
(int)(((long)1)); 
BgL_arg2017z00_1615 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2712); } 
{ /* ./Reduce/same.scm 124 */
int BgL_offsetz00_1618;
BgL_offsetz00_1618 = 
(int)(BgL_objzd2classzd2numz00_1614); 
{ /* ./Reduce/same.scm 124 */
long BgL_offsetz00_1619;
{ /* ./Reduce/same.scm 124 */
long BgL_auxz00_2716;
BgL_auxz00_2716 = 
(long)(BgL_offsetz00_1618); 
BgL_offsetz00_1619 = 
(BgL_auxz00_2716-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 124 */
long BgL_modz00_1620;
{ /* ./Reduce/same.scm 124 */
int BgL_arg2028z00_1621;
BgL_arg2028z00_1621 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 124 */
long BgL_n2z00_1629;
BgL_n2z00_1629 = 
(long)(BgL_arg2028z00_1621); 
BgL_modz00_1620 = 
(BgL_offsetz00_1619/BgL_n2z00_1629); } } 
{ /* ./Reduce/same.scm 124 */
long BgL_restz00_1622;
{ /* ./Reduce/same.scm 124 */
int BgL_arg2024z00_1623;
BgL_arg2024z00_1623 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 124 */
long BgL_n2z00_1632;
BgL_n2z00_1632 = 
(long)(BgL_arg2024z00_1623); 
BgL_restz00_1622 = 
(BgL_offsetz00_1619%BgL_n2z00_1632); } } 
{ /* ./Reduce/same.scm 124 */

{ /* ./Reduce/same.scm 124 */
obj_t BgL_bucketz00_1624;
{ /* ./Reduce/same.scm 124 */
int BgL_kz00_1634;
BgL_kz00_1634 = 
(int)(BgL_modz00_1620); 
BgL_bucketz00_1624 = 
VECTOR_REF(BgL_arg2017z00_1615,BgL_kz00_1634); } 
{ /* ./Reduce/same.scm 124 */
int BgL_kz00_1636;
BgL_kz00_1636 = 
(int)(BgL_restz00_1622); 
BgL_method2711z00_1612 = 
VECTOR_REF(BgL_bucketz00_1624,BgL_kz00_1636); } } } } } } } } } } 
{ /* ./Reduce/same.scm 124 */
obj_t BgL_auxz00_2729;
BgL_auxz00_2729 = 
PROCEDURE_ENTRY(BgL_method2711z00_1612)(BgL_method2711z00_1612, 
(obj_t)(BgL_node1z00_1609), 
(obj_t)(BgL_node2z00_1238), BgL_aliasz00_1239, BEOA); 
BgL_res3595z00_1637 = 
CBOOL(BgL_auxz00_2729); } } } 
return 
BBOOL(BgL_res3595z00_1637);} } } } }  else 
{ /* ./Reduce/same.scm 126 */
return BFALSE;} }  else 
{ /* ./Reduce/same.scm 125 */
return BFALSE;} } } } } 
}



/* same-node?-pragma2729 */
obj_t BGl_samezd2nodezf3zd2pragma2729zf3zzreduce_samez00(obj_t BgL_envz00_2069, obj_t BgL_nodez00_2070, obj_t BgL_node2z00_2071, obj_t BgL_aliasz00_2072)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 115 */
{ 
BgL_pragmaz00_bglt BgL_nodez00_1221;BgL_nodez00_bglt BgL_node2z00_1222;obj_t BgL_aliasz00_1223;
{ /* ./Reduce/same.scm 116 */
bool_t BgL_auxz00_2738;
BgL_nodez00_1221 = 
(BgL_pragmaz00_bglt)(BgL_nodez00_2070); 
BgL_node2z00_1222 = 
(BgL_nodez00_bglt)(BgL_node2z00_2071); 
BgL_aliasz00_1223 = BgL_aliasz00_2072; 
{ /* ./Reduce/same.scm 116 */
bool_t BgL__andtest_2683z00_1226;
{ /* ./Reduce/same.scm 116 */
obj_t BgL_obj1886z00_1594;
BgL_obj1886z00_1594 = 
(obj_t)(BgL_node2z00_1222); 
BgL__andtest_2683z00_1226 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1886z00_1594, BGl_pragmaz00zzast_nodez00); } 
if(BgL__andtest_2683z00_1226)
{ /* ./Reduce/same.scm 117 */
bool_t BgL__andtest_2684z00_1227;
{ /* ./Reduce/same.scm 117 */
obj_t BgL_auxz00_2747;obj_t BgL_auxz00_2742;
{ /* ./Reduce/same.scm 117 */
BgL_typez00_bglt BgL_auxz00_2748;
BgL_auxz00_2748 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1222))->BgL_typez00); 
BgL_auxz00_2747 = 
(obj_t)(BgL_auxz00_2748); } 
{ /* ./Reduce/same.scm 117 */
BgL_typez00_bglt BgL_auxz00_2743;
{ /* ./Reduce/same.scm 117 */
BgL_nodez00_bglt BgL_obj1561z00_1595;
BgL_obj1561z00_1595 = 
(BgL_nodez00_bglt)(BgL_nodez00_1221); 
BgL_auxz00_2743 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1595))->BgL_typez00); } 
BgL_auxz00_2742 = 
(obj_t)(BgL_auxz00_2743); } 
BgL__andtest_2684z00_1227 = 
(BgL_auxz00_2742==BgL_auxz00_2747); } 
if(BgL__andtest_2684z00_1227)
{ /* ./Reduce/same.scm 118 */
bool_t BgL__andtest_2685z00_1228;
{ /* ./Reduce/same.scm 118 */
obj_t BgL_arg3324z00_1231;obj_t BgL_arg3325z00_1232;
BgL_arg3324z00_1231 = 
(((BgL_pragmaz00_bglt)CREF(BgL_nodez00_1221))->BgL_formatz00); 
{ /* ./Reduce/same.scm 118 */
BgL_pragmaz00_bglt BgL_obj1861z00_1598;
BgL_obj1861z00_1598 = 
(BgL_pragmaz00_bglt)(BgL_node2z00_1222); 
BgL_arg3325z00_1232 = 
(((BgL_pragmaz00_bglt)CREF(BgL_obj1861z00_1598))->BgL_formatz00); } 
BgL__andtest_2685z00_1228 = 
bigloo_strcmp(BgL_arg3324z00_1231, BgL_arg3325z00_1232); } 
if(BgL__andtest_2685z00_1228)
{ /* ./Reduce/same.scm 119 */
obj_t BgL_arg3317z00_1229;obj_t BgL_arg3319z00_1230;
{ /* ./Reduce/same.scm 119 */
BgL_externz00_bglt BgL_obj1817z00_1601;
BgL_obj1817z00_1601 = 
(BgL_externz00_bglt)(BgL_nodez00_1221); 
BgL_arg3317z00_1229 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1601))->BgL_exprza2za2); } 
{ /* ./Reduce/same.scm 119 */
BgL_externz00_bglt BgL_obj1817z00_1602;
BgL_obj1817z00_1602 = 
(BgL_externz00_bglt)(BgL_node2z00_1222); 
BgL_arg3319z00_1230 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1602))->BgL_exprza2za2); } 
BgL_auxz00_2738 = 
BGl_samezd2nodeza2zf3z83zzreduce_samez00(BgL_arg3317z00_1229, BgL_arg3319z00_1230, BgL_aliasz00_1223); }  else 
{ /* ./Reduce/same.scm 118 */
BgL_auxz00_2738 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 117 */
BgL_auxz00_2738 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 116 */
BgL_auxz00_2738 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_2738);} } } 
}



/* same-node?-extern2727 */
obj_t BGl_samezd2nodezf3zd2extern2727zf3zzreduce_samez00(obj_t BgL_envz00_2073, obj_t BgL_nodez00_2074, obj_t BgL_node2z00_2075, obj_t BgL_aliasz00_2076)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 104 */
{ 
BgL_externz00_bglt BgL_nodez00_1208;BgL_nodez00_bglt BgL_node2z00_1209;obj_t BgL_aliasz00_1210;
{ /* ./Tools/trace.sch 42 */
bool_t BgL_auxz00_2766;
BgL_nodez00_1208 = 
(BgL_externz00_bglt)(BgL_nodez00_2074); 
BgL_node2z00_1209 = 
(BgL_nodez00_bglt)(BgL_node2z00_2075); 
BgL_aliasz00_1210 = BgL_aliasz00_2076; 
{ /* ./Reduce/same.scm 108 */
bool_t BgL__andtest_2681z00_1213;
{ /* ./Reduce/same.scm 108 */
obj_t BgL_obj1844z00_1589;
BgL_obj1844z00_1589 = 
(obj_t)(BgL_node2z00_1209); 
BgL__andtest_2681z00_1213 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1844z00_1589, BGl_externz00zzast_nodez00); } 
if(BgL__andtest_2681z00_1213)
{ /* ./Reduce/same.scm 109 */
bool_t BgL__andtest_2682z00_1214;
{ /* ./Reduce/same.scm 109 */
obj_t BgL_auxz00_2775;obj_t BgL_auxz00_2770;
{ /* ./Reduce/same.scm 109 */
BgL_typez00_bglt BgL_auxz00_2776;
BgL_auxz00_2776 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1209))->BgL_typez00); 
BgL_auxz00_2775 = 
(obj_t)(BgL_auxz00_2776); } 
{ /* ./Reduce/same.scm 109 */
BgL_typez00_bglt BgL_auxz00_2771;
{ /* ./Reduce/same.scm 109 */
BgL_nodez00_bglt BgL_obj1561z00_1590;
BgL_obj1561z00_1590 = 
(BgL_nodez00_bglt)(BgL_nodez00_1208); 
BgL_auxz00_2771 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1590))->BgL_typez00); } 
BgL_auxz00_2770 = 
(obj_t)(BgL_auxz00_2771); } 
BgL__andtest_2682z00_1214 = 
(BgL_auxz00_2770==BgL_auxz00_2775); } 
if(BgL__andtest_2682z00_1214)
{ /* ./Reduce/same.scm 110 */
obj_t BgL_arg3298z00_1215;obj_t BgL_arg3299z00_1216;
BgL_arg3298z00_1215 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1208))->BgL_exprza2za2); 
{ /* ./Reduce/same.scm 110 */
BgL_externz00_bglt BgL_obj1817z00_1593;
BgL_obj1817z00_1593 = 
(BgL_externz00_bglt)(BgL_node2z00_1209); 
BgL_arg3299z00_1216 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1593))->BgL_exprza2za2); } 
BgL_auxz00_2766 = 
BGl_samezd2nodeza2zf3z83zzreduce_samez00(BgL_arg3298z00_1215, BgL_arg3299z00_1216, BgL_aliasz00_1210); }  else 
{ /* ./Reduce/same.scm 109 */
BgL_auxz00_2766 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 108 */
BgL_auxz00_2766 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_2766);} } } 
}



/* same-node?-app2725 */
obj_t BGl_samezd2nodezf3zd2app2725zf3zzreduce_samez00(obj_t BgL_envz00_2077, obj_t BgL_nodez00_2078, obj_t BgL_node2z00_2079, obj_t BgL_aliasz00_2080)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 95 */
{ 
BgL_appz00_bglt BgL_nodez00_1192;BgL_nodez00_bglt BgL_node2z00_1193;obj_t BgL_aliasz00_1194;
{ /* ./Reduce/same.scm 96 */
bool_t BgL_auxz00_2788;
BgL_nodez00_1192 = 
(BgL_appz00_bglt)(BgL_nodez00_2078); 
BgL_node2z00_1193 = 
(BgL_nodez00_bglt)(BgL_node2z00_2079); 
BgL_aliasz00_1194 = BgL_aliasz00_2080; 
{ /* ./Reduce/same.scm 96 */
bool_t BgL__andtest_2678z00_1197;
{ /* ./Reduce/same.scm 96 */
obj_t BgL_obj1746z00_1553;
BgL_obj1746z00_1553 = 
(obj_t)(BgL_node2z00_1193); 
BgL__andtest_2678z00_1197 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1746z00_1553, BGl_appz00zzast_nodez00); } 
if(BgL__andtest_2678z00_1197)
{ /* ./Reduce/same.scm 97 */
bool_t BgL__andtest_2679z00_1198;
{ /* ./Reduce/same.scm 97 */
obj_t BgL_auxz00_2797;obj_t BgL_auxz00_2792;
{ /* ./Reduce/same.scm 97 */
BgL_typez00_bglt BgL_auxz00_2798;
BgL_auxz00_2798 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1193))->BgL_typez00); 
BgL_auxz00_2797 = 
(obj_t)(BgL_auxz00_2798); } 
{ /* ./Reduce/same.scm 97 */
BgL_typez00_bglt BgL_auxz00_2793;
{ /* ./Reduce/same.scm 97 */
BgL_nodez00_bglt BgL_obj1561z00_1554;
BgL_obj1561z00_1554 = 
(BgL_nodez00_bglt)(BgL_nodez00_1192); 
BgL_auxz00_2793 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1554))->BgL_typez00); } 
BgL_auxz00_2792 = 
(obj_t)(BgL_auxz00_2793); } 
BgL__andtest_2679z00_1198 = 
(BgL_auxz00_2792==BgL_auxz00_2797); } 
if(BgL__andtest_2679z00_1198)
{ /* ./Reduce/same.scm 98 */
bool_t BgL__andtest_2680z00_1199;
{ /* ./Reduce/same.scm 98 */
BgL_varz00_bglt BgL_arg3279z00_1202;BgL_varz00_bglt BgL_arg3280z00_1203;
BgL_arg3279z00_1202 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1192))->BgL_funz00); 
{ /* ./Reduce/same.scm 98 */
BgL_appz00_bglt BgL_obj1719z00_1557;
BgL_obj1719z00_1557 = 
(BgL_appz00_bglt)(BgL_node2z00_1193); 
BgL_arg3280z00_1203 = 
(((BgL_appz00_bglt)CREF(BgL_obj1719z00_1557))->BgL_funz00); } 
{ /* ./Reduce/same.scm 98 */
bool_t BgL_res3592z00_1586;
{ /* ./Reduce/same.scm 98 */
BgL_nodez00_bglt BgL_node1z00_1558;BgL_nodez00_bglt BgL_node2z00_1559;
BgL_node1z00_1558 = 
(BgL_nodez00_bglt)(BgL_arg3279z00_1202); 
BgL_node2z00_1559 = 
(BgL_nodez00_bglt)(BgL_arg3280z00_1203); 
{ /* ./Reduce/same.scm 98 */
obj_t BgL_method2711z00_1561;
{ /* ./Reduce/same.scm 98 */
BgL_objectz00_bglt BgL_objz00_1562;
BgL_objz00_1562 = 
(BgL_objectz00_bglt)(BgL_node1z00_1558); 
{ /* ./Reduce/same.scm 98 */
long BgL_objzd2classzd2numz00_1563;
BgL_objzd2classzd2numz00_1563 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1562); 
{ /* ./Reduce/same.scm 98 */
obj_t BgL_arg2017z00_1564;
{ /* ./Reduce/same.scm 98 */
int BgL_auxz00_2810;
BgL_auxz00_2810 = 
(int)(((long)1)); 
BgL_arg2017z00_1564 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2810); } 
{ /* ./Reduce/same.scm 98 */
int BgL_offsetz00_1567;
BgL_offsetz00_1567 = 
(int)(BgL_objzd2classzd2numz00_1563); 
{ /* ./Reduce/same.scm 98 */
long BgL_offsetz00_1568;
{ /* ./Reduce/same.scm 98 */
long BgL_auxz00_2814;
BgL_auxz00_2814 = 
(long)(BgL_offsetz00_1567); 
BgL_offsetz00_1568 = 
(BgL_auxz00_2814-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 98 */
long BgL_modz00_1569;
{ /* ./Reduce/same.scm 98 */
int BgL_arg2028z00_1570;
BgL_arg2028z00_1570 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 98 */
long BgL_n2z00_1578;
BgL_n2z00_1578 = 
(long)(BgL_arg2028z00_1570); 
BgL_modz00_1569 = 
(BgL_offsetz00_1568/BgL_n2z00_1578); } } 
{ /* ./Reduce/same.scm 98 */
long BgL_restz00_1571;
{ /* ./Reduce/same.scm 98 */
int BgL_arg2024z00_1572;
BgL_arg2024z00_1572 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 98 */
long BgL_n2z00_1581;
BgL_n2z00_1581 = 
(long)(BgL_arg2024z00_1572); 
BgL_restz00_1571 = 
(BgL_offsetz00_1568%BgL_n2z00_1581); } } 
{ /* ./Reduce/same.scm 98 */

{ /* ./Reduce/same.scm 98 */
obj_t BgL_bucketz00_1573;
{ /* ./Reduce/same.scm 98 */
int BgL_kz00_1583;
BgL_kz00_1583 = 
(int)(BgL_modz00_1569); 
BgL_bucketz00_1573 = 
VECTOR_REF(BgL_arg2017z00_1564,BgL_kz00_1583); } 
{ /* ./Reduce/same.scm 98 */
int BgL_kz00_1585;
BgL_kz00_1585 = 
(int)(BgL_restz00_1571); 
BgL_method2711z00_1561 = 
VECTOR_REF(BgL_bucketz00_1573,BgL_kz00_1585); } } } } } } } } } } 
{ /* ./Reduce/same.scm 98 */
obj_t BgL_auxz00_2827;
BgL_auxz00_2827 = 
PROCEDURE_ENTRY(BgL_method2711z00_1561)(BgL_method2711z00_1561, 
(obj_t)(BgL_node1z00_1558), 
(obj_t)(BgL_node2z00_1559), BgL_aliasz00_1194, BEOA); 
BgL_res3592z00_1586 = 
CBOOL(BgL_auxz00_2827); } } } 
BgL__andtest_2680z00_1199 = BgL_res3592z00_1586; } } 
if(BgL__andtest_2680z00_1199)
{ /* ./Reduce/same.scm 99 */
obj_t BgL_arg3273z00_1200;obj_t BgL_arg3274z00_1201;
BgL_arg3273z00_1200 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1192))->BgL_argsz00); 
{ /* ./Reduce/same.scm 99 */
BgL_appz00_bglt BgL_obj1722z00_1588;
BgL_obj1722z00_1588 = 
(BgL_appz00_bglt)(BgL_node2z00_1193); 
BgL_arg3274z00_1201 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1588))->BgL_argsz00); } 
BgL_auxz00_2788 = 
BGl_samezd2nodeza2zf3z83zzreduce_samez00(BgL_arg3273z00_1200, BgL_arg3274z00_1201, BgL_aliasz00_1194); }  else 
{ /* ./Reduce/same.scm 98 */
BgL_auxz00_2788 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 97 */
BgL_auxz00_2788 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 96 */
BgL_auxz00_2788 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_2788);} } } 
}



/* same-node?-funcall2723 */
obj_t BGl_samezd2nodezf3zd2funcall2723zf3zzreduce_samez00(obj_t BgL_envz00_2081, obj_t BgL_nodez00_2082, obj_t BgL_node2z00_2083, obj_t BgL_aliasz00_2084)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 86 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1176;BgL_nodez00_bglt BgL_node2z00_1177;obj_t BgL_aliasz00_1178;
{ /* ./Reduce/same.scm 87 */
bool_t BgL_auxz00_2841;
BgL_nodez00_1176 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2082); 
BgL_node2z00_1177 = 
(BgL_nodez00_bglt)(BgL_node2z00_2083); 
BgL_aliasz00_1178 = BgL_aliasz00_2084; 
{ /* ./Reduce/same.scm 87 */
bool_t BgL__andtest_2675z00_1181;
{ /* ./Reduce/same.scm 87 */
obj_t BgL_obj1806z00_1517;
BgL_obj1806z00_1517 = 
(obj_t)(BgL_node2z00_1177); 
BgL__andtest_2675z00_1181 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1806z00_1517, BGl_funcallz00zzast_nodez00); } 
if(BgL__andtest_2675z00_1181)
{ /* ./Reduce/same.scm 88 */
bool_t BgL__andtest_2676z00_1182;
{ /* ./Reduce/same.scm 88 */
obj_t BgL_auxz00_2850;obj_t BgL_auxz00_2845;
{ /* ./Reduce/same.scm 88 */
BgL_typez00_bglt BgL_auxz00_2851;
BgL_auxz00_2851 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1177))->BgL_typez00); 
BgL_auxz00_2850 = 
(obj_t)(BgL_auxz00_2851); } 
{ /* ./Reduce/same.scm 88 */
BgL_typez00_bglt BgL_auxz00_2846;
{ /* ./Reduce/same.scm 88 */
BgL_nodez00_bglt BgL_obj1561z00_1518;
BgL_obj1561z00_1518 = 
(BgL_nodez00_bglt)(BgL_nodez00_1176); 
BgL_auxz00_2846 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1518))->BgL_typez00); } 
BgL_auxz00_2845 = 
(obj_t)(BgL_auxz00_2846); } 
BgL__andtest_2676z00_1182 = 
(BgL_auxz00_2845==BgL_auxz00_2850); } 
if(BgL__andtest_2676z00_1182)
{ /* ./Reduce/same.scm 89 */
bool_t BgL__andtest_2677z00_1183;
{ /* ./Reduce/same.scm 89 */
BgL_nodez00_bglt BgL_arg3254z00_1186;BgL_nodez00_bglt BgL_arg3255z00_1187;
BgL_arg3254z00_1186 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1176))->BgL_funz00); 
{ /* ./Reduce/same.scm 89 */
BgL_funcallz00_bglt BgL_obj1779z00_1521;
BgL_obj1779z00_1521 = 
(BgL_funcallz00_bglt)(BgL_node2z00_1177); 
BgL_arg3255z00_1187 = 
(((BgL_funcallz00_bglt)CREF(BgL_obj1779z00_1521))->BgL_funz00); } 
{ /* ./Reduce/same.scm 89 */
bool_t BgL_res3589z00_1550;
{ /* ./Reduce/same.scm 89 */
obj_t BgL_method2711z00_1525;
{ /* ./Reduce/same.scm 89 */
BgL_objectz00_bglt BgL_objz00_1526;
BgL_objz00_1526 = 
(BgL_objectz00_bglt)(BgL_arg3254z00_1186); 
{ /* ./Reduce/same.scm 89 */
long BgL_objzd2classzd2numz00_1527;
BgL_objzd2classzd2numz00_1527 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1526); 
{ /* ./Reduce/same.scm 89 */
obj_t BgL_arg2017z00_1528;
{ /* ./Reduce/same.scm 89 */
int BgL_auxz00_2861;
BgL_auxz00_2861 = 
(int)(((long)1)); 
BgL_arg2017z00_1528 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2861); } 
{ /* ./Reduce/same.scm 89 */
int BgL_offsetz00_1531;
BgL_offsetz00_1531 = 
(int)(BgL_objzd2classzd2numz00_1527); 
{ /* ./Reduce/same.scm 89 */
long BgL_offsetz00_1532;
{ /* ./Reduce/same.scm 89 */
long BgL_auxz00_2865;
BgL_auxz00_2865 = 
(long)(BgL_offsetz00_1531); 
BgL_offsetz00_1532 = 
(BgL_auxz00_2865-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 89 */
long BgL_modz00_1533;
{ /* ./Reduce/same.scm 89 */
int BgL_arg2028z00_1534;
BgL_arg2028z00_1534 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 89 */
long BgL_n2z00_1542;
BgL_n2z00_1542 = 
(long)(BgL_arg2028z00_1534); 
BgL_modz00_1533 = 
(BgL_offsetz00_1532/BgL_n2z00_1542); } } 
{ /* ./Reduce/same.scm 89 */
long BgL_restz00_1535;
{ /* ./Reduce/same.scm 89 */
int BgL_arg2024z00_1536;
BgL_arg2024z00_1536 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 89 */
long BgL_n2z00_1545;
BgL_n2z00_1545 = 
(long)(BgL_arg2024z00_1536); 
BgL_restz00_1535 = 
(BgL_offsetz00_1532%BgL_n2z00_1545); } } 
{ /* ./Reduce/same.scm 89 */

{ /* ./Reduce/same.scm 89 */
obj_t BgL_bucketz00_1537;
{ /* ./Reduce/same.scm 89 */
int BgL_kz00_1547;
BgL_kz00_1547 = 
(int)(BgL_modz00_1533); 
BgL_bucketz00_1537 = 
VECTOR_REF(BgL_arg2017z00_1528,BgL_kz00_1547); } 
{ /* ./Reduce/same.scm 89 */
int BgL_kz00_1549;
BgL_kz00_1549 = 
(int)(BgL_restz00_1535); 
BgL_method2711z00_1525 = 
VECTOR_REF(BgL_bucketz00_1537,BgL_kz00_1549); } } } } } } } } } } 
{ /* ./Reduce/same.scm 89 */
obj_t BgL_auxz00_2878;
BgL_auxz00_2878 = 
PROCEDURE_ENTRY(BgL_method2711z00_1525)(BgL_method2711z00_1525, 
(obj_t)(BgL_arg3254z00_1186), 
(obj_t)(BgL_arg3255z00_1187), BgL_aliasz00_1178, BEOA); 
BgL_res3589z00_1550 = 
CBOOL(BgL_auxz00_2878); } } 
BgL__andtest_2677z00_1183 = BgL_res3589z00_1550; } } 
if(BgL__andtest_2677z00_1183)
{ /* ./Reduce/same.scm 90 */
obj_t BgL_arg3248z00_1184;obj_t BgL_arg3249z00_1185;
BgL_arg3248z00_1184 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1176))->BgL_argsz00); 
{ /* ./Reduce/same.scm 90 */
BgL_funcallz00_bglt BgL_obj1782z00_1552;
BgL_obj1782z00_1552 = 
(BgL_funcallz00_bglt)(BgL_node2z00_1177); 
BgL_arg3249z00_1185 = 
(((BgL_funcallz00_bglt)CREF(BgL_obj1782z00_1552))->BgL_argsz00); } 
BgL_auxz00_2841 = 
BGl_samezd2nodeza2zf3z83zzreduce_samez00(BgL_arg3248z00_1184, BgL_arg3249z00_1185, BgL_aliasz00_1178); }  else 
{ /* ./Reduce/same.scm 89 */
BgL_auxz00_2841 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 88 */
BgL_auxz00_2841 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 87 */
BgL_auxz00_2841 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_2841);} } } 
}



/* same-node?-app-ly2721 */
obj_t BGl_samezd2nodezf3zd2appzd2ly2721z21zzreduce_samez00(obj_t BgL_envz00_2085, obj_t BgL_nodez00_2086, obj_t BgL_node2z00_2087, obj_t BgL_aliasz00_2088)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 77 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1160;BgL_nodez00_bglt BgL_node2z00_1161;obj_t BgL_aliasz00_1162;
{ /* ./Reduce/same.scm 78 */
bool_t BgL_auxz00_2892;
BgL_nodez00_1160 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2086); 
BgL_node2z00_1161 = 
(BgL_nodez00_bglt)(BgL_node2z00_2087); 
BgL_aliasz00_1162 = BgL_aliasz00_2088; 
{ /* ./Reduce/same.scm 78 */
bool_t BgL__andtest_2672z00_1165;
{ /* ./Reduce/same.scm 78 */
obj_t BgL_obj1774z00_1452;
BgL_obj1774z00_1452 = 
(obj_t)(BgL_node2z00_1161); 
BgL__andtest_2672z00_1165 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1774z00_1452, BGl_appzd2lyzd2zzast_nodez00); } 
if(BgL__andtest_2672z00_1165)
{ /* ./Reduce/same.scm 79 */
bool_t BgL__andtest_2673z00_1166;
{ /* ./Reduce/same.scm 79 */
obj_t BgL_auxz00_2901;obj_t BgL_auxz00_2896;
{ /* ./Reduce/same.scm 79 */
BgL_typez00_bglt BgL_auxz00_2902;
BgL_auxz00_2902 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1161))->BgL_typez00); 
BgL_auxz00_2901 = 
(obj_t)(BgL_auxz00_2902); } 
{ /* ./Reduce/same.scm 79 */
BgL_typez00_bglt BgL_auxz00_2897;
{ /* ./Reduce/same.scm 79 */
BgL_nodez00_bglt BgL_obj1561z00_1453;
BgL_obj1561z00_1453 = 
(BgL_nodez00_bglt)(BgL_nodez00_1160); 
BgL_auxz00_2897 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1453))->BgL_typez00); } 
BgL_auxz00_2896 = 
(obj_t)(BgL_auxz00_2897); } 
BgL__andtest_2673z00_1166 = 
(BgL_auxz00_2896==BgL_auxz00_2901); } 
if(BgL__andtest_2673z00_1166)
{ /* ./Reduce/same.scm 80 */
bool_t BgL__andtest_2674z00_1167;
{ /* ./Reduce/same.scm 80 */
BgL_nodez00_bglt BgL_arg3229z00_1170;BgL_nodez00_bglt BgL_arg3230z00_1171;
BgL_arg3229z00_1170 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1160))->BgL_funz00); 
{ /* ./Reduce/same.scm 80 */
BgL_appzd2lyzd2_bglt BgL_obj1751z00_1456;
BgL_obj1751z00_1456 = 
(BgL_appzd2lyzd2_bglt)(BgL_node2z00_1161); 
BgL_arg3230z00_1171 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1751z00_1456))->BgL_funz00); } 
{ /* ./Reduce/same.scm 80 */
bool_t BgL_res3583z00_1485;
{ /* ./Reduce/same.scm 80 */
obj_t BgL_method2711z00_1460;
{ /* ./Reduce/same.scm 80 */
BgL_objectz00_bglt BgL_objz00_1461;
BgL_objz00_1461 = 
(BgL_objectz00_bglt)(BgL_arg3229z00_1170); 
{ /* ./Reduce/same.scm 80 */
long BgL_objzd2classzd2numz00_1462;
BgL_objzd2classzd2numz00_1462 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1461); 
{ /* ./Reduce/same.scm 80 */
obj_t BgL_arg2017z00_1463;
{ /* ./Reduce/same.scm 80 */
int BgL_auxz00_2912;
BgL_auxz00_2912 = 
(int)(((long)1)); 
BgL_arg2017z00_1463 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2912); } 
{ /* ./Reduce/same.scm 80 */
int BgL_offsetz00_1466;
BgL_offsetz00_1466 = 
(int)(BgL_objzd2classzd2numz00_1462); 
{ /* ./Reduce/same.scm 80 */
long BgL_offsetz00_1467;
{ /* ./Reduce/same.scm 80 */
long BgL_auxz00_2916;
BgL_auxz00_2916 = 
(long)(BgL_offsetz00_1466); 
BgL_offsetz00_1467 = 
(BgL_auxz00_2916-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 80 */
long BgL_modz00_1468;
{ /* ./Reduce/same.scm 80 */
int BgL_arg2028z00_1469;
BgL_arg2028z00_1469 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 80 */
long BgL_n2z00_1477;
BgL_n2z00_1477 = 
(long)(BgL_arg2028z00_1469); 
BgL_modz00_1468 = 
(BgL_offsetz00_1467/BgL_n2z00_1477); } } 
{ /* ./Reduce/same.scm 80 */
long BgL_restz00_1470;
{ /* ./Reduce/same.scm 80 */
int BgL_arg2024z00_1471;
BgL_arg2024z00_1471 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 80 */
long BgL_n2z00_1480;
BgL_n2z00_1480 = 
(long)(BgL_arg2024z00_1471); 
BgL_restz00_1470 = 
(BgL_offsetz00_1467%BgL_n2z00_1480); } } 
{ /* ./Reduce/same.scm 80 */

{ /* ./Reduce/same.scm 80 */
obj_t BgL_bucketz00_1472;
{ /* ./Reduce/same.scm 80 */
int BgL_kz00_1482;
BgL_kz00_1482 = 
(int)(BgL_modz00_1468); 
BgL_bucketz00_1472 = 
VECTOR_REF(BgL_arg2017z00_1463,BgL_kz00_1482); } 
{ /* ./Reduce/same.scm 80 */
int BgL_kz00_1484;
BgL_kz00_1484 = 
(int)(BgL_restz00_1470); 
BgL_method2711z00_1460 = 
VECTOR_REF(BgL_bucketz00_1472,BgL_kz00_1484); } } } } } } } } } } 
{ /* ./Reduce/same.scm 80 */
obj_t BgL_auxz00_2929;
BgL_auxz00_2929 = 
PROCEDURE_ENTRY(BgL_method2711z00_1460)(BgL_method2711z00_1460, 
(obj_t)(BgL_arg3229z00_1170), 
(obj_t)(BgL_arg3230z00_1171), BgL_aliasz00_1162, BEOA); 
BgL_res3583z00_1485 = 
CBOOL(BgL_auxz00_2929); } } 
BgL__andtest_2674z00_1167 = BgL_res3583z00_1485; } } 
if(BgL__andtest_2674z00_1167)
{ /* ./Reduce/same.scm 81 */
BgL_nodez00_bglt BgL_arg3223z00_1168;BgL_nodez00_bglt BgL_arg3224z00_1169;
BgL_arg3223z00_1168 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1160))->BgL_argz00); 
{ /* ./Reduce/same.scm 81 */
BgL_appzd2lyzd2_bglt BgL_obj1754z00_1487;
BgL_obj1754z00_1487 = 
(BgL_appzd2lyzd2_bglt)(BgL_node2z00_1161); 
BgL_arg3224z00_1169 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1754z00_1487))->BgL_argz00); } 
{ /* ./Reduce/same.scm 81 */
bool_t BgL_res3586z00_1516;
{ /* ./Reduce/same.scm 81 */
obj_t BgL_method2711z00_1491;
{ /* ./Reduce/same.scm 81 */
BgL_objectz00_bglt BgL_objz00_1492;
BgL_objz00_1492 = 
(BgL_objectz00_bglt)(BgL_arg3223z00_1168); 
{ /* ./Reduce/same.scm 81 */
long BgL_objzd2classzd2numz00_1493;
BgL_objzd2classzd2numz00_1493 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1492); 
{ /* ./Reduce/same.scm 81 */
obj_t BgL_arg2017z00_1494;
{ /* ./Reduce/same.scm 81 */
int BgL_auxz00_2941;
BgL_auxz00_2941 = 
(int)(((long)1)); 
BgL_arg2017z00_1494 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_2941); } 
{ /* ./Reduce/same.scm 81 */
int BgL_offsetz00_1497;
BgL_offsetz00_1497 = 
(int)(BgL_objzd2classzd2numz00_1493); 
{ /* ./Reduce/same.scm 81 */
long BgL_offsetz00_1498;
{ /* ./Reduce/same.scm 81 */
long BgL_auxz00_2945;
BgL_auxz00_2945 = 
(long)(BgL_offsetz00_1497); 
BgL_offsetz00_1498 = 
(BgL_auxz00_2945-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 81 */
long BgL_modz00_1499;
{ /* ./Reduce/same.scm 81 */
int BgL_arg2028z00_1500;
BgL_arg2028z00_1500 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 81 */
long BgL_n2z00_1508;
BgL_n2z00_1508 = 
(long)(BgL_arg2028z00_1500); 
BgL_modz00_1499 = 
(BgL_offsetz00_1498/BgL_n2z00_1508); } } 
{ /* ./Reduce/same.scm 81 */
long BgL_restz00_1501;
{ /* ./Reduce/same.scm 81 */
int BgL_arg2024z00_1502;
BgL_arg2024z00_1502 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 81 */
long BgL_n2z00_1511;
BgL_n2z00_1511 = 
(long)(BgL_arg2024z00_1502); 
BgL_restz00_1501 = 
(BgL_offsetz00_1498%BgL_n2z00_1511); } } 
{ /* ./Reduce/same.scm 81 */

{ /* ./Reduce/same.scm 81 */
obj_t BgL_bucketz00_1503;
{ /* ./Reduce/same.scm 81 */
int BgL_kz00_1513;
BgL_kz00_1513 = 
(int)(BgL_modz00_1499); 
BgL_bucketz00_1503 = 
VECTOR_REF(BgL_arg2017z00_1494,BgL_kz00_1513); } 
{ /* ./Reduce/same.scm 81 */
int BgL_kz00_1515;
BgL_kz00_1515 = 
(int)(BgL_restz00_1501); 
BgL_method2711z00_1491 = 
VECTOR_REF(BgL_bucketz00_1503,BgL_kz00_1515); } } } } } } } } } } 
{ /* ./Reduce/same.scm 81 */
obj_t BgL_auxz00_2958;
BgL_auxz00_2958 = 
PROCEDURE_ENTRY(BgL_method2711z00_1491)(BgL_method2711z00_1491, 
(obj_t)(BgL_arg3223z00_1168), 
(obj_t)(BgL_arg3224z00_1169), BgL_aliasz00_1162, BEOA); 
BgL_res3586z00_1516 = 
CBOOL(BgL_auxz00_2958); } } 
BgL_auxz00_2892 = BgL_res3586z00_1516; } }  else 
{ /* ./Reduce/same.scm 80 */
BgL_auxz00_2892 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 79 */
BgL_auxz00_2892 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 78 */
BgL_auxz00_2892 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_2892);} } } 
}



/* same-node?-sequence2719 */
obj_t BGl_samezd2nodezf3zd2sequence2719zf3zzreduce_samez00(obj_t BgL_envz00_2089, obj_t BgL_nodez00_2090, obj_t BgL_node2z00_2091, obj_t BgL_aliasz00_2092)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 67 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1147;BgL_nodez00_bglt BgL_node2z00_1148;obj_t BgL_aliasz00_1149;
{ /* ./Reduce/same.scm 68 */
bool_t BgL_auxz00_2967;
BgL_nodez00_1147 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2090); 
BgL_node2z00_1148 = 
(BgL_nodez00_bglt)(BgL_node2z00_2091); 
BgL_aliasz00_1149 = BgL_aliasz00_2092; 
{ /* ./Reduce/same.scm 68 */
bool_t BgL__andtest_2670z00_1152;
{ /* ./Reduce/same.scm 68 */
obj_t BgL_obj1708z00_1447;
BgL_obj1708z00_1447 = 
(obj_t)(BgL_node2z00_1148); 
BgL__andtest_2670z00_1152 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1708z00_1447, BGl_sequencez00zzast_nodez00); } 
if(BgL__andtest_2670z00_1152)
{ /* ./Reduce/same.scm 69 */
bool_t BgL__andtest_2671z00_1153;
{ /* ./Reduce/same.scm 69 */
obj_t BgL_auxz00_2976;obj_t BgL_auxz00_2971;
{ /* ./Reduce/same.scm 69 */
BgL_typez00_bglt BgL_auxz00_2977;
BgL_auxz00_2977 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1148))->BgL_typez00); 
BgL_auxz00_2976 = 
(obj_t)(BgL_auxz00_2977); } 
{ /* ./Reduce/same.scm 69 */
BgL_typez00_bglt BgL_auxz00_2972;
{ /* ./Reduce/same.scm 69 */
BgL_nodez00_bglt BgL_obj1561z00_1448;
BgL_obj1561z00_1448 = 
(BgL_nodez00_bglt)(BgL_nodez00_1147); 
BgL_auxz00_2972 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1448))->BgL_typez00); } 
BgL_auxz00_2971 = 
(obj_t)(BgL_auxz00_2972); } 
BgL__andtest_2671z00_1153 = 
(BgL_auxz00_2971==BgL_auxz00_2976); } 
if(BgL__andtest_2671z00_1153)
{ /* ./Reduce/same.scm 70 */
obj_t BgL_arg3203z00_1154;obj_t BgL_arg3204z00_1155;
BgL_arg3203z00_1154 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1147))->BgL_nodesz00); 
{ /* ./Reduce/same.scm 71 */
BgL_sequencez00_bglt BgL_obj1689z00_1451;
BgL_obj1689z00_1451 = 
(BgL_sequencez00_bglt)(BgL_node2z00_1148); 
BgL_arg3204z00_1155 = 
(((BgL_sequencez00_bglt)CREF(BgL_obj1689z00_1451))->BgL_nodesz00); } 
BgL_auxz00_2967 = 
BGl_samezd2nodeza2zf3z83zzreduce_samez00(BgL_arg3203z00_1154, BgL_arg3204z00_1155, BgL_aliasz00_1149); }  else 
{ /* ./Reduce/same.scm 69 */
BgL_auxz00_2967 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 68 */
BgL_auxz00_2967 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_2967);} } } 
}



/* same-node?-var2717 */
obj_t BGl_samezd2nodezf3zd2var2717zf3zzreduce_samez00(obj_t BgL_envz00_2093, obj_t BgL_nodez00_2094, obj_t BgL_node2z00_2095, obj_t BgL_aliasz00_2096)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 54 */
{ 
BgL_varz00_bglt BgL_nodez00_1127;BgL_nodez00_bglt BgL_node2z00_1128;obj_t BgL_aliasz00_1129;
{ /* ./Tools/trace.sch 42 */
bool_t BgL_auxz00_2989;
BgL_nodez00_1127 = 
(BgL_varz00_bglt)(BgL_nodez00_2094); 
BgL_node2z00_1128 = 
(BgL_nodez00_bglt)(BgL_node2z00_2095); 
BgL_aliasz00_1129 = BgL_aliasz00_2096; 
{ /* ./Reduce/same.scm 58 */
bool_t BgL__andtest_2666z00_1132;
{ /* ./Reduce/same.scm 58 */
obj_t BgL_obj1640z00_1438;
BgL_obj1640z00_1438 = 
(obj_t)(BgL_node2z00_1128); 
BgL__andtest_2666z00_1132 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_1438, BGl_varz00zzast_nodez00); } 
if(BgL__andtest_2666z00_1132)
{ /* ./Reduce/same.scm 59 */
bool_t BgL_testz00_2993;
{ /* ./Reduce/same.scm 59 */
obj_t BgL_auxz00_2997;obj_t BgL_auxz00_2994;
BgL_auxz00_2997 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Reduce/same.scm 59 */
BgL_variablez00_bglt BgL_arg3192z00_1144;
BgL_arg3192z00_1144 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1127))->BgL_variablez00); 
BgL_auxz00_2994 = 
(((BgL_variablez00_bglt)CREF(BgL_arg3192z00_1144))->BgL_accessz00); } 
BgL_testz00_2993 = 
(BgL_auxz00_2994==BgL_auxz00_2997); } 
if(BgL_testz00_2993)
{ /* ./Reduce/same.scm 60 */
bool_t BgL_testz00_3000;
{ /* ./Reduce/same.scm 60 */
obj_t BgL_auxz00_3006;obj_t BgL_auxz00_3001;
{ /* ./Reduce/same.scm 60 */
BgL_typez00_bglt BgL_auxz00_3007;
BgL_auxz00_3007 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1128))->BgL_typez00); 
BgL_auxz00_3006 = 
(obj_t)(BgL_auxz00_3007); } 
{ /* ./Reduce/same.scm 60 */
BgL_typez00_bglt BgL_auxz00_3002;
{ /* ./Reduce/same.scm 60 */
BgL_nodez00_bglt BgL_obj1561z00_1441;
BgL_obj1561z00_1441 = 
(BgL_nodez00_bglt)(BgL_nodez00_1127); 
BgL_auxz00_3002 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1441))->BgL_typez00); } 
BgL_auxz00_3001 = 
(obj_t)(BgL_auxz00_3002); } 
BgL_testz00_3000 = 
(BgL_auxz00_3001==BgL_auxz00_3006); } 
if(BgL_testz00_3000)
{ /* ./Reduce/same.scm 61 */
bool_t BgL__ortest_2669z00_1135;
{ /* ./Reduce/same.scm 61 */
obj_t BgL_auxz00_3015;obj_t BgL_auxz00_3011;
{ /* ./Reduce/same.scm 61 */
BgL_variablez00_bglt BgL_auxz00_3016;
{ /* ./Reduce/same.scm 61 */
BgL_varz00_bglt BgL_obj1625z00_1444;
BgL_obj1625z00_1444 = 
(BgL_varz00_bglt)(BgL_node2z00_1128); 
BgL_auxz00_3016 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1444))->BgL_variablez00); } 
BgL_auxz00_3015 = 
(obj_t)(BgL_auxz00_3016); } 
{ /* ./Reduce/same.scm 61 */
BgL_variablez00_bglt BgL_auxz00_3012;
BgL_auxz00_3012 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1127))->BgL_variablez00); 
BgL_auxz00_3011 = 
(obj_t)(BgL_auxz00_3012); } 
BgL__ortest_2669z00_1135 = 
(BgL_auxz00_3011==BgL_auxz00_3015); } 
if(BgL__ortest_2669z00_1135)
{ /* ./Reduce/same.scm 61 */
BgL_auxz00_2989 = BgL__ortest_2669z00_1135
; }  else 
{ /* ./Reduce/same.scm 62 */
BgL_variablez00_bglt BgL_auxz00_3022;
{ /* ./Reduce/same.scm 62 */
BgL_varz00_bglt BgL_obj1625z00_1446;
BgL_obj1625z00_1446 = 
(BgL_varz00_bglt)(BgL_node2z00_1128); 
BgL_auxz00_3022 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1446))->BgL_variablez00); } 
BgL_auxz00_2989 = 
BGl_aliasedzf3zf3zzreduce_samez00(
(((BgL_varz00_bglt)CREF(BgL_nodez00_1127))->BgL_variablez00), BgL_auxz00_3022, BgL_aliasz00_1129); } }  else 
{ /* ./Reduce/same.scm 60 */
BgL_auxz00_2989 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 59 */
BgL_auxz00_2989 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 58 */
BgL_auxz00_2989 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_2989);} } } 
}



/* same-node?-kwote2715 */
obj_t BGl_samezd2nodezf3zd2kwote2715zf3zzreduce_samez00(obj_t BgL_envz00_2097, obj_t BgL_nodez00_2098, obj_t BgL_node2z00_2099, obj_t BgL_aliasz00_2100)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 43 */
{ 
BgL_kwotez00_bglt BgL_nodez00_1114;BgL_nodez00_bglt BgL_node2z00_1115;obj_t BgL_aliasz00_1116;
{ /* ./Tools/trace.sch 42 */
bool_t BgL_auxz00_3030;
BgL_nodez00_1114 = 
(BgL_kwotez00_bglt)(BgL_nodez00_2098); 
BgL_node2z00_1115 = 
(BgL_nodez00_bglt)(BgL_node2z00_2099); 
BgL_aliasz00_1116 = BgL_aliasz00_2100; 
{ /* ./Reduce/same.scm 47 */
bool_t BgL__andtest_2664z00_1119;
{ /* ./Reduce/same.scm 47 */
obj_t BgL_obj1678z00_1433;
BgL_obj1678z00_1433 = 
(obj_t)(BgL_node2z00_1115); 
BgL__andtest_2664z00_1119 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1678z00_1433, BGl_kwotez00zzast_nodez00); } 
if(BgL__andtest_2664z00_1119)
{ /* ./Reduce/same.scm 48 */
bool_t BgL_testz00_3034;
{ /* ./Reduce/same.scm 48 */
obj_t BgL_auxz00_3040;obj_t BgL_auxz00_3035;
{ /* ./Reduce/same.scm 48 */
BgL_typez00_bglt BgL_auxz00_3041;
BgL_auxz00_3041 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1115))->BgL_typez00); 
BgL_auxz00_3040 = 
(obj_t)(BgL_auxz00_3041); } 
{ /* ./Reduce/same.scm 48 */
BgL_typez00_bglt BgL_auxz00_3036;
{ /* ./Reduce/same.scm 48 */
BgL_nodez00_bglt BgL_obj1561z00_1434;
BgL_obj1561z00_1434 = 
(BgL_nodez00_bglt)(BgL_nodez00_1114); 
BgL_auxz00_3036 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1434))->BgL_typez00); } 
BgL_auxz00_3035 = 
(obj_t)(BgL_auxz00_3036); } 
BgL_testz00_3034 = 
(BgL_auxz00_3035==BgL_auxz00_3040); } 
if(BgL_testz00_3034)
{ /* ./Reduce/same.scm 49 */
obj_t BgL_auxz00_3045;
{ /* ./Reduce/same.scm 49 */
BgL_kwotez00_bglt BgL_obj1665z00_1437;
BgL_obj1665z00_1437 = 
(BgL_kwotez00_bglt)(BgL_node2z00_1115); 
BgL_auxz00_3045 = 
(((BgL_kwotez00_bglt)CREF(BgL_obj1665z00_1437))->BgL_valuez00); } 
BgL_auxz00_3030 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1114))->BgL_valuez00), BgL_auxz00_3045); }  else 
{ /* ./Reduce/same.scm 48 */
BgL_auxz00_3030 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 47 */
BgL_auxz00_3030 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_3030);} } } 
}



/* same-node?-atom2713 */
obj_t BGl_samezd2nodezf3zd2atom2713zf3zzreduce_samez00(obj_t BgL_envz00_2101, obj_t BgL_nodez00_2102, obj_t BgL_node2z00_2103, obj_t BgL_aliasz00_2104)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 32 */
{ 
BgL_atomz00_bglt BgL_nodez00_1101;BgL_nodez00_bglt BgL_node2z00_1102;obj_t BgL_aliasz00_1103;
{ /* ./Tools/trace.sch 42 */
bool_t BgL_auxz00_3053;
BgL_nodez00_1101 = 
(BgL_atomz00_bglt)(BgL_nodez00_2102); 
BgL_node2z00_1102 = 
(BgL_nodez00_bglt)(BgL_node2z00_2103); 
BgL_aliasz00_1103 = BgL_aliasz00_2104; 
{ /* ./Reduce/same.scm 36 */
bool_t BgL__andtest_2662z00_1106;
{ /* ./Reduce/same.scm 36 */
obj_t BgL_obj1619z00_1428;
BgL_obj1619z00_1428 = 
(obj_t)(BgL_node2z00_1102); 
BgL__andtest_2662z00_1106 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1619z00_1428, BGl_atomz00zzast_nodez00); } 
if(BgL__andtest_2662z00_1106)
{ /* ./Reduce/same.scm 37 */
bool_t BgL_testz00_3057;
{ /* ./Reduce/same.scm 37 */
obj_t BgL_auxz00_3063;obj_t BgL_auxz00_3058;
{ /* ./Reduce/same.scm 37 */
BgL_typez00_bglt BgL_auxz00_3064;
BgL_auxz00_3064 = 
(((BgL_nodez00_bglt)CREF(BgL_node2z00_1102))->BgL_typez00); 
BgL_auxz00_3063 = 
(obj_t)(BgL_auxz00_3064); } 
{ /* ./Reduce/same.scm 37 */
BgL_typez00_bglt BgL_auxz00_3059;
{ /* ./Reduce/same.scm 37 */
BgL_nodez00_bglt BgL_obj1561z00_1429;
BgL_obj1561z00_1429 = 
(BgL_nodez00_bglt)(BgL_nodez00_1101); 
BgL_auxz00_3059 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1429))->BgL_typez00); } 
BgL_auxz00_3058 = 
(obj_t)(BgL_auxz00_3059); } 
BgL_testz00_3057 = 
(BgL_auxz00_3058==BgL_auxz00_3063); } 
if(BgL_testz00_3057)
{ /* ./Reduce/same.scm 38 */
obj_t BgL_auxz00_3068;
{ /* ./Reduce/same.scm 38 */
BgL_atomz00_bglt BgL_obj1604z00_1432;
BgL_obj1604z00_1432 = 
(BgL_atomz00_bglt)(BgL_node2z00_1102); 
BgL_auxz00_3068 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1432))->BgL_valuez00); } 
BgL_auxz00_3053 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(
(((BgL_atomz00_bglt)CREF(BgL_nodez00_1101))->BgL_valuez00), BgL_auxz00_3068); }  else 
{ /* ./Reduce/same.scm 37 */
BgL_auxz00_3053 = ((bool_t)0)
; } }  else 
{ /* ./Reduce/same.scm 36 */
BgL_auxz00_3053 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_3053);} } } 
}



/* same-node? */
BGL_EXPORTED_DEF bool_t BGl_samezd2nodezf3z21zzreduce_samez00(BgL_nodez00_bglt BgL_node1z00_1, BgL_nodez00_bglt BgL_node2z00_2, obj_t BgL_aliasz00_3)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 26 */
{ /* ./Reduce/same.scm 26 */
obj_t BgL_method2711z00_1996;
{ /* ./Reduce/same.scm 26 */
BgL_objectz00_bglt BgL_objz00_1997;
BgL_objz00_1997 = 
(BgL_objectz00_bglt)(BgL_node1z00_1); 
{ /* ./Reduce/same.scm 26 */
long BgL_objzd2classzd2numz00_1998;
BgL_objzd2classzd2numz00_1998 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1997); 
{ /* ./Reduce/same.scm 26 */
obj_t BgL_arg2017z00_1999;
{ /* ./Reduce/same.scm 26 */
int BgL_auxz00_3078;
BgL_auxz00_3078 = 
(int)(((long)1)); 
BgL_arg2017z00_1999 = 
PROCEDURE_REF(BGl_samezd2nodezf3zd2envzf3zzreduce_samez00, BgL_auxz00_3078); } 
{ /* ./Reduce/same.scm 26 */
int BgL_offsetz00_2002;
BgL_offsetz00_2002 = 
(int)(BgL_objzd2classzd2numz00_1998); 
{ /* ./Reduce/same.scm 26 */
long BgL_offsetz00_2003;
{ /* ./Reduce/same.scm 26 */
long BgL_auxz00_3082;
BgL_auxz00_3082 = 
(long)(BgL_offsetz00_2002); 
BgL_offsetz00_2003 = 
(BgL_auxz00_3082-OBJECT_TYPE); } 
{ /* ./Reduce/same.scm 26 */
long BgL_modz00_2004;
{ /* ./Reduce/same.scm 26 */
int BgL_arg2028z00_2005;
BgL_arg2028z00_2005 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 26 */
long BgL_n2z00_2013;
BgL_n2z00_2013 = 
(long)(BgL_arg2028z00_2005); 
BgL_modz00_2004 = 
(BgL_offsetz00_2003/BgL_n2z00_2013); } } 
{ /* ./Reduce/same.scm 26 */
long BgL_restz00_2006;
{ /* ./Reduce/same.scm 26 */
int BgL_arg2024z00_2007;
BgL_arg2024z00_2007 = 
(int)(((long)8)); 
{ /* ./Reduce/same.scm 26 */
long BgL_n2z00_2016;
BgL_n2z00_2016 = 
(long)(BgL_arg2024z00_2007); 
BgL_restz00_2006 = 
(BgL_offsetz00_2003%BgL_n2z00_2016); } } 
{ /* ./Reduce/same.scm 26 */

{ /* ./Reduce/same.scm 26 */
obj_t BgL_bucketz00_2008;
{ /* ./Reduce/same.scm 26 */
int BgL_kz00_2018;
BgL_kz00_2018 = 
(int)(BgL_modz00_2004); 
BgL_bucketz00_2008 = 
VECTOR_REF(BgL_arg2017z00_1999,BgL_kz00_2018); } 
{ /* ./Reduce/same.scm 26 */
int BgL_kz00_2020;
BgL_kz00_2020 = 
(int)(BgL_restz00_2006); 
BgL_method2711z00_1996 = 
VECTOR_REF(BgL_bucketz00_2008,BgL_kz00_2020); } } } } } } } } } } 
{ /* ./Reduce/same.scm 26 */
obj_t BgL_auxz00_3095;
BgL_auxz00_3095 = 
PROCEDURE_ENTRY(BgL_method2711z00_1996)(BgL_method2711z00_1996, 
(obj_t)(BgL_node1z00_1), 
(obj_t)(BgL_node2z00_2), BgL_aliasz00_3, BEOA); 
return 
CBOOL(BgL_auxz00_3095);} } } 
}



/* _same-node? */
obj_t BGl__samezd2nodezf3z21zzreduce_samez00(obj_t BgL_envz00_2021, obj_t BgL_node1z00_2022, obj_t BgL_node2z00_2023, obj_t BgL_aliasz00_2024)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 26 */
{ /* ./Reduce/same.scm 26 */
bool_t BgL_auxz00_3101;
BgL_auxz00_3101 = 
BGl_samezd2nodezf3z21zzreduce_samez00(
(BgL_nodez00_bglt)(BgL_node1z00_2022), 
(BgL_nodez00_bglt)(BgL_node2z00_2023), BgL_aliasz00_2024); 
return 
BBOOL(BgL_auxz00_3101);} } 
}



/* _same-node?-default2710 */
obj_t BGl__samezd2nodezf3zd2default2710zf3zzreduce_samez00(obj_t BgL_envz00_2105, obj_t BgL_node1z00_2106, obj_t BgL_node2z00_2107, obj_t BgL_aliasz00_2108)
{ AN_OBJECT;
{ /* ./Reduce/same.scm 15 */
{ /* ./Reduce/same.scm 27 */
bool_t BgL_auxz00_3106;
BgL_auxz00_3106 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_3106);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzreduce_samez00()
{ AN_OBJECT;
{ /* ./Reduce/same.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "reduce_same"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "reduce_same"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "reduce_same"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "reduce_same"); 
return 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "reduce_same");} 
}

