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

#include <bigloo.h>


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_rtl_regz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_varz00;
} *BgL_rtl_regz00_bglt;

typedef struct BgL_rtl_funz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_funz00_bglt;

typedef struct BgL_rtl_lastz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_lastz00_bglt;

typedef struct BgL_rtl_returnz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_rtl_returnz00_bglt;

typedef struct BgL_rtl_jumpexitz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_jumpexitz00_bglt;

typedef struct BgL_rtl_failz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_failz00_bglt;

typedef struct BgL_rtl_notseqz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_notseqz00_bglt;

typedef struct BgL_rtl_ifz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_ifz00_bglt;

typedef struct BgL_rtl_selectz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_patternsz00;
} *BgL_rtl_selectz00_bglt;

typedef struct BgL_rtl_switchz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_patternsz00;
   obj_t BgL_labelsz00;
} *BgL_rtl_switchz00_bglt;

typedef struct BgL_rtl_ifeqz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_blockz00_bgl * BgL_thenz00;
} *BgL_rtl_ifeqz00_bglt;

typedef struct BgL_rtl_ifnez00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_blockz00_bgl * BgL_thenz00;
} *BgL_rtl_ifnez00_bglt;

typedef struct BgL_rtl_goz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_blockz00_bgl * BgL_toz00;
} *BgL_rtl_goz00_bglt;

typedef struct BgL_rtl_purez00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_purez00_bglt;

typedef struct BgL_rtl_nopz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_nopz00_bglt;

typedef struct BgL_rtl_movz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_movz00_bglt;

typedef struct BgL_rtl_loadiz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_atomz00_bgl * BgL_constantz00;
} *BgL_rtl_loadiz00_bglt;

typedef struct BgL_rtl_loadgz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_globalz00_bgl * BgL_varz00;
} *BgL_rtl_loadgz00_bglt;

typedef struct BgL_rtl_loadfunz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_globalz00_bgl * BgL_varz00;
} *BgL_rtl_loadfunz00_bglt;

typedef struct BgL_rtl_globalrefz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_globalz00_bgl * BgL_varz00;
} *BgL_rtl_globalrefz00_bglt;

typedef struct BgL_rtl_getfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_objtypez00;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_rtl_getfieldz00_bglt;

typedef struct BgL_rtl_vallocz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_rtl_vallocz00_bglt;

typedef struct BgL_rtl_vrefz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_rtl_vrefz00_bglt;

typedef struct BgL_rtl_vlengthz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_rtl_vlengthz00_bglt;

typedef struct BgL_rtl_isaz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_rtl_isaz00_bglt;

typedef struct BgL_rtl_makeboxz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_makeboxz00_bglt;

typedef struct BgL_rtl_boxrefz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_boxrefz00_bglt;

typedef struct BgL_rtl_effectz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_effectz00_bglt;

typedef struct BgL_rtl_storegz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_globalz00_bgl * BgL_varz00;
} *BgL_rtl_storegz00_bglt;

typedef struct BgL_rtl_setfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_objtypez00;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_rtl_setfieldz00_bglt;

typedef struct BgL_rtl_vsetz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_rtl_vsetz00_bglt;

typedef struct BgL_rtl_boxsetz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_boxsetz00_bglt;

typedef struct BgL_rtl_newz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_rtl_newz00_bglt;

typedef struct BgL_rtl_callz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_globalz00_bgl * BgL_varz00;
} *BgL_rtl_callz00_bglt;

typedef struct BgL_rtl_applyz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_applyz00_bglt;

typedef struct BgL_rtl_lightfuncallz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_lightfuncallz00_bglt;

typedef struct BgL_rtl_funcallz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_funcallz00_bglt;

typedef struct BgL_rtl_pragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_formatz00;
} *BgL_rtl_pragmaz00_bglt;

typedef struct BgL_rtl_castz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_rtl_castz00_bglt;

typedef struct BgL_rtl_protectz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_protectz00_bglt;

typedef struct BgL_rtl_protectedz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_rtl_protectedz00_bglt;

typedef struct BgL_stl_loadrz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_rtl_regz00_bgl * BgL_regz00;
} *BgL_stl_loadrz00_bglt;

typedef struct BgL_stl_storerz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_rtl_regz00_bgl * BgL_regz00;
} *BgL_stl_storerz00_bglt;

typedef struct BgL_stl_popz00_bgl {
   header_t header;
   obj_t widening;
} *BgL_stl_popz00_bglt;

typedef struct BgL_rtl_insz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_destz00;
   struct BgL_rtl_funz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_rtl_insz00_bglt;

typedef struct BgL_blockz00_bgl {
   header_t header;
   obj_t widening;
   int BgL_labelz00;
   obj_t BgL_predsz00;
   obj_t BgL_succsz00;
   obj_t BgL_firstz00;
} *BgL_blockz00_bglt;

typedef struct BgL_defcollectz00_bgl {
   char dummy;
} *BgL_defcollectz00_bglt;

typedef struct BgL_rcollectz00_bgl {
   char dummy;
} *BgL_rcollectz00_bglt;

typedef struct BgL_ucollectz00_bgl {
   char dummy;
} *BgL_ucollectz00_bglt;

typedef struct BgL_removedz00_bgl {
   char dummy;
} *BgL_removedz00_bglt;

typedef struct BgL_visitedz00_bgl {
   char dummy;
} *BgL_visitedz00_bglt;

typedef struct BgL_bremovedz00_bgl {
   char dummy;
} *BgL_bremovedz00_bglt;

typedef struct BgL_cregz00_bgl {
   obj_t BgL_defsz00;
   obj_t BgL_nbusesz00;
} *BgL_cregz00_bglt;


extern obj_t BGl_substz00zzsaw_libz00(obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzsaw_removez00();
static bool_t BGl_removablezf3zf3zzsaw_removez00(BgL_rtl_insz00_bglt);
BGL_IMPORT obj_t open_input_string(obj_t);
static BgL_removedz00_bglt BGl_wideningzd2removedzd2zzsaw_removez00();
static obj_t BGl_defcollectz00zzsaw_removez00 = BUNSPEC;
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2ucollect3412ze3zzsaw_removez00(obj_t, obj_t);
static obj_t BGl__removez00zzsaw_removez00(obj_t, obj_t);
extern obj_t BGl_rtl_regz00zzsaw_defsz00;
static bool_t BGl_ucollectz72z72zzsaw_removez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl__allocatezd2rcollectzd2zzsaw_removez00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern obj_t BGl_substzd2appendzd2zzsaw_libz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_objectzd2ze3structzd2rcollect3417ze3zzsaw_removez00(obj_t, obj_t);
static bool_t BGl_fixzd2removezd2zzsaw_removez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t);
static obj_t BGl_rcollectz00zzsaw_removez00 = BUNSPEC;
static obj_t BGl__allocatezd2cregzd2zzsaw_removez00(obj_t);
static obj_t BGl_getzd2firstzd2unusedz00zzsaw_removez00(BgL_blockz00_bglt);
static obj_t BGl_removedz00zzsaw_removez00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2bremoved3400z51zzsaw_removez00(obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2creg3396z51zzsaw_removez00(obj_t, obj_t, obj_t);
static BgL_ucollectz00_bglt BGl_wideningzd2ucollectzd2zzsaw_removez00();
static obj_t BGl_cnstzd2initzd2zzsaw_removez00();
static obj_t BGl_bremovedz00zzsaw_removez00 = BUNSPEC;
static obj_t BGl__allocatezd2visitedzd2zzsaw_removez00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzsaw_removez00();
BGL_IMPORT obj_t make_struct(obj_t, int, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2ucollect3415z51zzsaw_removez00(obj_t, obj_t, obj_t);
static obj_t BGl_blockzd2removezd2zzsaw_removez00(BgL_blockz00_bglt);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static BgL_visitedz00_bglt BGl_wideningzd2visitedzd2zzsaw_removez00();
static BgL_defcollectz00_bglt BGl_wideningzd2defcollectzd2zzsaw_removez00();
BGL_EXPORTED_DECL BgL_blockz00_bglt BGl_removez00zzsaw_removez00(BgL_blockz00_bglt);
extern obj_t BGl_rtl_insz00zzsaw_defsz00;
static obj_t BGl_cregz00zzsaw_removez00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2rcollect3419z51zzsaw_removez00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2ucollectzd2zzsaw_removez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzsaw_removez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzsaw_libz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzsaw_defsz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
static bool_t BGl_defcollectz72z72zzsaw_removez00(obj_t);
extern obj_t BGl_blockz00zzsaw_defsz00;
static obj_t BGl_regzd2ze3cregz31zzsaw_removez00(obj_t);
static obj_t BGl_getzd2firstzd2removablez00zzsaw_removez00(BgL_blockz00_bglt);
static bool_t BGl_makezd2defzd2usez00zzsaw_removez00(BgL_blockz00_bglt);
static obj_t BGl_objectzd2ze3structzd2bremoved3398ze3zzsaw_removez00(obj_t, obj_t);
BGL_IMPORT BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2removed3410z51zzsaw_removez00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2defcollectzd2zzsaw_removez00(obj_t);
static bool_t BGl_rcollectz72z72zzsaw_removez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2defcollect3422ze3zzsaw_removez00(obj_t, obj_t);
static BgL_rcollectz00_bglt BGl_wideningzd2rcollectzd2zzsaw_removez00();
static obj_t BGl_objectzd2ze3structzd2creg3394ze3zzsaw_removez00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2visited3403ze3zzsaw_removez00(obj_t, obj_t);
static obj_t BGl__allocatezd2removedzd2zzsaw_removez00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2defcollect3425z51zzsaw_removez00(obj_t, obj_t, obj_t);
static obj_t BGl_ucollectz00zzsaw_removez00 = BUNSPEC;
static BgL_bremovedz00_bglt BGl_wideningzd2bremovedzd2zzsaw_removez00();
static obj_t BGl_objectzd2ze3structzd2removed3408ze3zzsaw_removez00(obj_t, obj_t);
static obj_t BGl_visitedz00zzsaw_removez00 = BUNSPEC;
extern obj_t BGl_rtl_purez00zzsaw_defsz00;
static obj_t BGl_objectzd2initzd2zzsaw_removez00();
static obj_t BGl_requirezd2initializa7ationz75zzsaw_removez00 = BUNSPEC;
static bool_t BGl_dfsz00zzsaw_removez00(obj_t);
BGL_IMPORT obj_t BGl_filterz12z12zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2visited3405z51zzsaw_removez00(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzsaw_removez00();
static obj_t BGl__allocatezd2bremovedzd2zzsaw_removez00(obj_t);
static obj_t BGl_zc3anonymousza33451ze3z83zzsaw_removez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t __cnst[ 8 ] ;


BGL_IMPORT obj_t BGl_objectzd2ze3structzd2envze3zz__objectz00;
DEFINE_STATIC_PROCEDURE( BGl_allocatezd2ucollectzd2envz00zzsaw_removez00, BgL_bgl__allocateza7d2ucollectza7d2za7za7saw_removeza7005252za7, BGl__allocatezd2ucollectzd2zzsaw_removez00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_allocatezd2bremovedzd2envz00zzsaw_removez00, BgL_bgl__allocateza7d2bremovedza7d2za7za7saw_removeza7005253za7, BGl__allocatezd2bremovedzd2zzsaw_removez00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_allocatezd2rcollectzd2envz00zzsaw_removez00, BgL_bgl__allocateza7d2rcollectza7d2za7za7saw_removeza7005254za7, BGl__allocatezd2rcollectzd2zzsaw_removez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_removezd2envzd2zzsaw_removez00, BgL_bgl__removeza700za7za7saw_removeza7005255z00, BGl__removez00zzsaw_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_allocatezd2visitedzd2envz00zzsaw_removez00, BgL_bgl__allocateza7d2visitedza7d2za7za7saw_removeza7005256za7, BGl__allocatezd2visitedzd2zzsaw_removez00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc5201z00zzsaw_removez00, BgL_bgl_za7c3anonymousza7a33451za7e3za783za7za7saw_removeza7005257za7, BGl_zc3anonymousza33451ze3z83zzsaw_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5203z00zzsaw_removez00, BgL_bgl_objectza7d2za7e3structza7d2creg3394za7e3za7za7saw_removeza7005258za7, BGl_objectzd2ze3structzd2creg3394ze3zzsaw_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5204z00zzsaw_removez00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2creg3396za751za7za7saw_removeza7005259z00, BGl_structzb2objectzd2ze3objectzd2creg3396z51zzsaw_removez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5205z00zzsaw_removez00, BgL_bgl_objectza7d2za7e3structza7d2bremoved3398za7e3za7za7saw_removeza7005260za7, BGl_objectzd2ze3structzd2bremoved3398ze3zzsaw_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5206z00zzsaw_removez00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2bremoved3400za751za7za7saw_removeza7005261z00, BGl_structzb2objectzd2ze3objectzd2bremoved3400z51zzsaw_removez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5207z00zzsaw_removez00, BgL_bgl_objectza7d2za7e3structza7d2visited3403za7e3za7za7saw_removeza7005262za7, BGl_objectzd2ze3structzd2visited3403ze3zzsaw_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5208z00zzsaw_removez00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2visited3405za751za7za7saw_removeza7005263z00, BGl_structzb2objectzd2ze3objectzd2visited3405z51zzsaw_removez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5210z00zzsaw_removez00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2removed3410za751za7za7saw_removeza7005264z00, BGl_structzb2objectzd2ze3objectzd2removed3410z51zzsaw_removez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5209z00zzsaw_removez00, BgL_bgl_objectza7d2za7e3structza7d2removed3408za7e3za7za7saw_removeza7005265za7, BGl_objectzd2ze3structzd2removed3408ze3zzsaw_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5211z00zzsaw_removez00, BgL_bgl_objectza7d2za7e3structza7d2ucollect3412za7e3za7za7saw_removeza7005266za7, BGl_objectzd2ze3structzd2ucollect3412ze3zzsaw_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5212z00zzsaw_removez00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2ucollect3415za751za7za7saw_removeza7005267z00, BGl_structzb2objectzd2ze3objectzd2ucollect3415z51zzsaw_removez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5213z00zzsaw_removez00, BgL_bgl_objectza7d2za7e3structza7d2rcollect3417za7e3za7za7saw_removeza7005268za7, BGl_objectzd2ze3structzd2rcollect3417ze3zzsaw_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5214z00zzsaw_removez00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2rcollect3419za751za7za7saw_removeza7005269z00, BGl_structzb2objectzd2ze3objectzd2rcollect3419z51zzsaw_removez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5215z00zzsaw_removez00, BgL_bgl_objectza7d2za7e3structza7d2defcollect3422za7e3za7za7saw_removeza7005270za7, BGl_objectzd2ze3structzd2defcollect3422ze3zzsaw_removez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc5216z00zzsaw_removez00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2defcollect3425za751za7za7saw_removeza7005271z00, BGl_structzb2objectzd2ze3objectzd2defcollect3425z51zzsaw_removez00, 0L, 2 );
BGL_IMPORT obj_t BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00;
DEFINE_STATIC_PROCEDURE( BGl_allocatezd2defcollectzd2envz00zzsaw_removez00, BgL_bgl__allocateza7d2defcollectza7d2za7za7saw_removeza7005272za7, BGl__allocatezd2defcollectzd2zzsaw_removez00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_allocatezd2removedzd2envz00zzsaw_removez00, BgL_bgl__allocateza7d2removedza7d2za7za7saw_removeza7005273za7, BGl__allocatezd2removedzd2zzsaw_removez00, 0L, 0 );
DEFINE_STRING( BGl_string5217z00zzsaw_removez00, BgL_bgl_string5217za700za7za7saw_removeza7005274z00, "creg bremoved visited removed ucollect rcollect defcollect unlink! ", 67 );
DEFINE_STATIC_PROCEDURE( BGl_allocatezd2cregzd2envz00zzsaw_removez00, BgL_bgl__allocateza7d2cregza7d2za7za7saw_removeza7005275za7, BGl__allocatezd2cregzd2zzsaw_removez00, 0L, 0 );
DEFINE_STRING( BGl_string5202z00zzsaw_removez00, BgL_bgl_string5202za700za7za7saw_removeza7005276z00, "must have only one successor", 28 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzsaw_removez00(long BgL_checksumz00_2419, char * BgL_fromz00_2420)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzsaw_removez00))
{ 
BGl_requirezd2initializa7ationz75zzsaw_removez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzsaw_removez00(); 
BGl_cnstzd2initzd2zzsaw_removez00(); 
BGl_importedzd2moduleszd2initz00zzsaw_removez00(); 
BGl_objectzd2initzd2zzsaw_removez00(); 
BGl_methodzd2initzd2zzsaw_removez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzsaw_removez00()
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 1 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "saw_remove"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "saw_remove"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "saw_remove"); 
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)0), "saw_remove"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzsaw_removez00()
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 1 */
{ /* ./SawMill/remove.scm 1 */
obj_t BgL_cportz00_2349;
BgL_cportz00_2349 = 
open_input_string(BGl_string5217z00zzsaw_removez00); 
{ 
long BgL_iz00_2350;
BgL_iz00_2350 = ((long)7); 
BgL_loopz00_2351:
{ /* ./SawMill/remove.scm 1 */
bool_t BgL_test5219z00_2352;
BgL_test5219z00_2352 = 
(BgL_iz00_2350==((long)-1)); 
if(BgL_test5219z00_2352)
{ /* ./SawMill/remove.scm 1 */
return BUNSPEC;}  else 
{ /* ./SawMill/remove.scm 1 */
{ /* ./SawMill/remove.scm 1 */
obj_t BgL_arg5221z00_2353;
{ /* ./SawMill/remove.scm 1 */
obj_t BgL_list5224z00_2354;
BgL_list5224z00_2354 = 
MAKE_PAIR(BgL_cportz00_2349, BNIL); 
BgL_arg5221z00_2353 = 
BGl_readz00zz__readerz00(BgL_list5224z00_2354); } 
{ /* ./SawMill/remove.scm 1 */
int BgL_auxz00_2438;
BgL_auxz00_2438 = 
(int)(BgL_iz00_2350); 
CNST_TABLE_SET(BgL_auxz00_2438, BgL_arg5221z00_2353); } } 
{ /* ./SawMill/remove.scm 1 */
int BgL_auxz00_2355;
{ /* ./SawMill/remove.scm 1 */
long BgL_auxz00_2441;
BgL_auxz00_2441 = 
(BgL_iz00_2350-((long)1)); 
BgL_auxz00_2355 = 
(int)(BgL_auxz00_2441); } 
{ 
long BgL_iz00_2444;
BgL_iz00_2444 = 
(long)(BgL_auxz00_2355); 
BgL_iz00_2350 = BgL_iz00_2444; 
goto BgL_loopz00_2351;} } } } } } } 
}



/* remove */
BGL_EXPORTED_DEF BgL_blockz00_bglt BGl_removez00zzsaw_removez00(BgL_blockz00_bglt BgL_bz00_1)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 16 */
BGl_makezd2defzd2usez00zzsaw_removez00(BgL_bz00_1); 
{ /* ./SawMill/remove.scm 18 */
obj_t BgL_arg3428z00_1001;obj_t BgL_arg3429z00_1002;
BgL_arg3428z00_1001 = 
BGl_getzd2firstzd2unusedz00zzsaw_removez00(BgL_bz00_1); 
BgL_arg3429z00_1002 = 
BGl_getzd2firstzd2removablez00zzsaw_removez00(BgL_bz00_1); 
BGl_fixzd2removezd2zzsaw_removez00(BgL_arg3428z00_1001, BgL_arg3429z00_1002); } 
BGl_dfsz00zzsaw_removez00(
(obj_t)(BgL_bz00_1)); 
{ 
obj_t BgL_bz00_1024;
{ /* ./SawMill/remove.scm 28 */
obj_t BgL_auxz00_2452;
BgL_bz00_1024 = 
(obj_t)(BgL_bz00_1); 
BgL_findzd2entryzd2_1025:
if(
BGl_iszd2azf3z21zz__objectz00(BgL_bz00_1024, BGl_bremovedz00zzsaw_removez00))
{ /* ./SawMill/remove.scm 31 */
obj_t BgL_sz00_1027;
{ /* ./SawMill/remove.scm 31 */
obj_t BgL_auxz00_2455;
{ /* ./SawMill/remove.scm 31 */
BgL_blockz00_bglt BgL_obj3098z00_1936;
BgL_obj3098z00_1936 = 
(BgL_blockz00_bglt)(BgL_bz00_1024); 
BgL_auxz00_2455 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3098z00_1936))->BgL_succsz00); } 
BgL_sz00_1027 = 
CAR(BgL_auxz00_2455); } 
if(
(BgL_bz00_1024==BgL_sz00_1027))
{ /* ./SawMill/remove.scm 32 */
BgL_auxz00_2452 = BgL_bz00_1024
; }  else 
{ 
obj_t BgL_bz00_2461;
BgL_bz00_2461 = BgL_sz00_1027; 
BgL_bz00_1024 = BgL_bz00_2461; 
goto BgL_findzd2entryzd2_1025;} }  else 
{ /* ./SawMill/remove.scm 29 */
BgL_auxz00_2452 = BgL_bz00_1024
; } 
return 
(BgL_blockz00_bglt)(BgL_auxz00_2452);} } } 
}



/* dfs */
bool_t BGl_dfsz00zzsaw_removez00(obj_t BgL_bz00_1003)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 19 */
{ /* ./SawMill/remove.scm 20 */
BgL_blockz00_bglt BgL_obj3338z00_1005;
{ 
BgL_blockz00_bglt BgL_auxz00_2464;
BgL_auxz00_2464 = 
(BgL_blockz00_bglt)(BgL_bz00_1003); 
BgL_obj3338z00_1005 = 
((BgL_blockz00_bglt)BgL_auxz00_2464); } 
{ /* ./SawMill/remove.scm 20 */
BgL_visitedz00_bglt BgL_arg3436z00_1006;
BgL_arg3436z00_1006 = 
BGl_wideningzd2visitedzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 20 */
obj_t BgL_auxz00_2470;BgL_objectz00_bglt BgL_auxz00_2468;
BgL_auxz00_2470 = 
(obj_t)(BgL_arg3436z00_1006); 
BgL_auxz00_2468 = 
(BgL_objectz00_bglt)(BgL_obj3338z00_1005); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2468, BgL_auxz00_2470); } } 
{ /* ./SawMill/remove.scm 20 */
long BgL_arg3440z00_1007;
BgL_arg3440z00_1007 = 
BGl_classzd2numzd2zz__objectz00(BGl_visitedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 20 */
BgL_objectz00_bglt BgL_objz00_1920;
BgL_objz00_1920 = 
(BgL_objectz00_bglt)(BgL_obj3338z00_1005); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1920, BgL_arg3440z00_1007); } } 
{ /* ./SawMill/remove.scm 20 */
obj_t BgL_objz00_1922;
BgL_objz00_1922 = 
(obj_t)(BgL_obj3338z00_1005); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1922); BUNSPEC; } BgL_obj3338z00_1005; } 
{ /* ./SawMill/remove.scm 21 */
obj_t BgL_lz00_1008;
{ /* ./SawMill/remove.scm 21 */
BgL_blockz00_bglt BgL_obj3101z00_1923;
BgL_obj3101z00_1923 = 
(BgL_blockz00_bglt)(BgL_bz00_1003); 
BgL_lz00_1008 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3101z00_1923))->BgL_firstz00); } 
{ /* ./SawMill/remove.scm 22 */
obj_t BgL_nlz00_1009;
BgL_nlz00_1009 = 
BGl_filterz12z12zz__r4_control_features_6_9z00(BGl_proc5201z00zzsaw_removez00, BgL_lz00_1008); 
{ /* ./SawMill/remove.scm 23 */
bool_t BgL_test3444z00_1010;
BgL_test3444z00_1010 = 
NULLP(BgL_nlz00_1009); 
if(BgL_test3444z00_1010)
{ /* ./SawMill/remove.scm 23 */
BGl_blockzd2removezd2zzsaw_removez00(
(BgL_blockz00_bglt)(BgL_bz00_1003)); }  else 
{ /* ./SawMill/remove.scm 25 */
BgL_blockz00_bglt BgL_obj3103z00_1927;obj_t BgL_val3102z00_1928;
BgL_obj3103z00_1927 = 
(BgL_blockz00_bglt)(BgL_bz00_1003); 
BgL_val3102z00_1928 = BgL_nlz00_1009; 
((((BgL_blockz00_bglt)CREF(BgL_obj3103z00_1927))->BgL_firstz00) = ((obj_t)BgL_val3102z00_1928), BUNSPEC); } } } } 
{ 
obj_t BgL_l3339z00_1016;
{ /* ./SawMill/remove.scm 27 */
obj_t BgL_arg3456z00_1018;
{ /* ./SawMill/remove.scm 27 */
BgL_blockz00_bglt BgL_obj3098z00_1929;
BgL_obj3098z00_1929 = 
(BgL_blockz00_bglt)(BgL_bz00_1003); 
BgL_arg3456z00_1018 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3098z00_1929))->BgL_succsz00); } 
BgL_l3339z00_1016 = BgL_arg3456z00_1018; 
BgL_forzd2each3340zd2_1017:
{ /* ./SawMill/remove.scm 26 */
bool_t BgL_test3459z00_1019;
BgL_test3459z00_1019 = 
PAIRP(BgL_l3339z00_1016); 
if(BgL_test3459z00_1019)
{ /* ./SawMill/remove.scm 26 */
{ /* ./SawMill/remove.scm 26 */
obj_t BgL_sz00_1020;
BgL_sz00_1020 = 
CAR(BgL_l3339z00_1016); 
{ /* ./SawMill/remove.scm 26 */
bool_t BgL_test3460z00_1021;
if(
BGl_iszd2azf3z21zz__objectz00(BgL_sz00_1020, BGl_visitedz00zzsaw_removez00))
{ /* ./SawMill/remove.scm 26 */
BgL_test3460z00_1021 = ((bool_t)1); }  else 
{ /* ./SawMill/remove.scm 26 */
BgL_test3460z00_1021 = 
BGl_iszd2azf3z21zz__objectz00(BgL_sz00_1020, BGl_bremovedz00zzsaw_removez00); } 
if(BgL_test3460z00_1021)
{ /* ./SawMill/remove.scm 26 */((bool_t)0); }  else 
{ /* ./SawMill/remove.scm 26 */
BGl_dfsz00zzsaw_removez00(BgL_sz00_1020); } } } 
{ /* ./SawMill/remove.scm 26 */
obj_t BgL_arg3467z00_1023;
BgL_arg3467z00_1023 = 
CDR(BgL_l3339z00_1016); 
{ 
obj_t BgL_l3339z00_2498;
BgL_l3339z00_2498 = BgL_arg3467z00_1023; 
BgL_l3339z00_1016 = BgL_l3339z00_2498; 
goto BgL_forzd2each3340zd2_1017;} } }  else 
{ /* ./SawMill/remove.scm 26 */
return ((bool_t)1);} } } } } 
}



/* _remove */
obj_t BGl__removez00zzsaw_removez00(obj_t BgL_envz00_2280, obj_t BgL_bz00_2281)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 16 */
{ /* ./SawMill/remove.scm 17 */
BgL_blockz00_bglt BgL_auxz00_2499;
BgL_auxz00_2499 = 
BGl_removez00zzsaw_removez00(
(BgL_blockz00_bglt)(BgL_bz00_2281)); 
return 
(obj_t)(BgL_auxz00_2499);} } 
}



/* <anonymous:3451> */
obj_t BGl_zc3anonymousza33451ze3z83zzsaw_removez00(obj_t BgL_envz00_2282, obj_t BgL_insz00_2283)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 22 */
{ 
obj_t BgL_insz00_1012;
{ /* ./SawMill/remove.scm 22 */
bool_t BgL_auxz00_2503;
BgL_insz00_1012 = BgL_insz00_2283; 
if(
BGl_iszd2azf3z21zz__objectz00(BgL_insz00_1012, BGl_removedz00zzsaw_removez00))
{ /* ./SawMill/remove.scm 22 */
BgL_auxz00_2503 = ((bool_t)0)
; }  else 
{ /* ./SawMill/remove.scm 22 */
BgL_auxz00_2503 = ((bool_t)1)
; } 
return 
BBOOL(BgL_auxz00_2503);} } } 
}



/* block-remove */
obj_t BGl_blockzd2removezd2zzsaw_removez00(BgL_blockz00_bglt BgL_bz00_2)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 36 */
{ /* ./SawMill/remove.scm 38 */
BgL_blockz00_bglt BgL_obj3343z00_1031;
BgL_obj3343z00_1031 = 
((BgL_blockz00_bglt)BgL_bz00_2); 
{ /* ./SawMill/remove.scm 38 */
BgL_bremovedz00_bglt BgL_arg3482z00_1032;
BgL_arg3482z00_1032 = 
BGl_wideningzd2bremovedzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 38 */
obj_t BgL_auxz00_2511;BgL_objectz00_bglt BgL_auxz00_2509;
BgL_auxz00_2511 = 
(obj_t)(BgL_arg3482z00_1032); 
BgL_auxz00_2509 = 
(BgL_objectz00_bglt)(BgL_obj3343z00_1031); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2509, BgL_auxz00_2511); } } 
{ /* ./SawMill/remove.scm 38 */
long BgL_arg3486z00_1033;
BgL_arg3486z00_1033 = 
BGl_classzd2numzd2zz__objectz00(BGl_bremovedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 38 */
BgL_objectz00_bglt BgL_objz00_1938;
BgL_objz00_1938 = 
(BgL_objectz00_bglt)(BgL_obj3343z00_1031); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1938, BgL_arg3486z00_1033); } } 
{ /* ./SawMill/remove.scm 38 */
obj_t BgL_objz00_1940;
BgL_objz00_1940 = 
(obj_t)(BgL_obj3343z00_1031); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1940); BUNSPEC; } BgL_obj3343z00_1031; } 
{ /* ./SawMill/remove.scm 39 */
bool_t BgL_test3490z00_1034;
{ /* ./SawMill/remove.scm 39 */
bool_t BgL_testz00_2519;
{ /* ./SawMill/remove.scm 39 */
obj_t BgL_auxz00_2520;
BgL_auxz00_2520 = 
(((BgL_blockz00_bglt)CREF(BgL_bz00_2))->BgL_succsz00); 
BgL_testz00_2519 = 
NULLP(BgL_auxz00_2520); } 
if(BgL_testz00_2519)
{ /* ./SawMill/remove.scm 39 */
BgL_test3490z00_1034 = ((bool_t)1); }  else 
{ /* ./SawMill/remove.scm 39 */
obj_t BgL_auxz00_2523;
{ /* ./SawMill/remove.scm 39 */
obj_t BgL_auxz00_2524;
BgL_auxz00_2524 = 
(((BgL_blockz00_bglt)CREF(BgL_bz00_2))->BgL_succsz00); 
BgL_auxz00_2523 = 
CDR(BgL_auxz00_2524); } 
BgL_test3490z00_1034 = 
PAIRP(BgL_auxz00_2523); } } 
if(BgL_test3490z00_1034)
{ /* ./SawMill/remove.scm 40 */
obj_t BgL_procz00_1946;obj_t BgL_objectz00_1948;
BgL_procz00_1946 = 
CNST_TABLE_REF(((long)0)); 
BgL_objectz00_1948 = 
(obj_t)(BgL_bz00_2); 
FAILURE(BgL_procz00_1946,BGl_string5202z00zzsaw_removez00,BgL_objectz00_1948);}  else 
{ /* ./SawMill/remove.scm 39 */((bool_t)0); } } 
{ /* ./SawMill/remove.scm 41 */
obj_t BgL_sz00_1039;
{ /* ./SawMill/remove.scm 41 */
obj_t BgL_auxz00_2532;
BgL_auxz00_2532 = 
(((BgL_blockz00_bglt)CREF(BgL_bz00_2))->BgL_succsz00); 
BgL_sz00_1039 = 
CAR(BgL_auxz00_2532); } 
{ 
obj_t BgL_l3344z00_1040;
{ /* ./SawMill/remove.scm 42 */
obj_t BgL_arg3506z00_1042;
BgL_arg3506z00_1042 = 
(((BgL_blockz00_bglt)CREF(BgL_bz00_2))->BgL_predsz00); 
BgL_l3344z00_1040 = BgL_arg3506z00_1042; 
BgL_forzd2each3345zd2_1041:
{ /* ./SawMill/remove.scm 42 */
bool_t BgL_test3509z00_1043;
BgL_test3509z00_1043 = 
PAIRP(BgL_l3344z00_1040); 
if(BgL_test3509z00_1043)
{ /* ./SawMill/remove.scm 42 */
{ /* ./SawMill/remove.scm 42 */
obj_t BgL_pz00_1044;
BgL_pz00_1044 = 
CAR(BgL_l3344z00_1040); 
{ /* ./SawMill/remove.scm 43 */
obj_t BgL_arg3511z00_1046;
{ /* ./SawMill/remove.scm 43 */
obj_t BgL_arg3514z00_1047;
{ /* ./SawMill/remove.scm 43 */
BgL_blockz00_bglt BgL_obj3098z00_1954;
BgL_obj3098z00_1954 = 
(BgL_blockz00_bglt)(BgL_pz00_1044); 
BgL_arg3514z00_1047 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3098z00_1954))->BgL_succsz00); } 
BgL_arg3511z00_1046 = 
BGl_substz00zzsaw_libz00(BgL_arg3514z00_1047, 
(obj_t)(BgL_bz00_2), BgL_sz00_1039); } 
{ /* ./SawMill/remove.scm 43 */
BgL_blockz00_bglt BgL_obj3100z00_1955;obj_t BgL_val3099z00_1956;
BgL_obj3100z00_1955 = 
(BgL_blockz00_bglt)(BgL_pz00_1044); 
BgL_val3099z00_1956 = BgL_arg3511z00_1046; 
((((BgL_blockz00_bglt)CREF(BgL_obj3100z00_1955))->BgL_succsz00) = ((obj_t)BgL_val3099z00_1956), BUNSPEC); } } } 
{ /* ./SawMill/remove.scm 42 */
obj_t BgL_arg3520z00_1048;
BgL_arg3520z00_1048 = 
CDR(BgL_l3344z00_1040); 
{ 
obj_t BgL_l3344z00_2546;
BgL_l3344z00_2546 = BgL_arg3520z00_1048; 
BgL_l3344z00_1040 = BgL_l3344z00_2546; 
goto BgL_forzd2each3345zd2_1041;} } }  else 
{ /* ./SawMill/remove.scm 42 */((bool_t)1); } } } } 
{ /* ./SawMill/remove.scm 45 */
obj_t BgL_arg3525z00_1049;
{ /* ./SawMill/remove.scm 45 */
obj_t BgL_arg3528z00_1050;obj_t BgL_arg3529z00_1051;
{ /* ./SawMill/remove.scm 45 */
BgL_blockz00_bglt BgL_obj3095z00_1958;
BgL_obj3095z00_1958 = 
(BgL_blockz00_bglt)(BgL_sz00_1039); 
BgL_arg3528z00_1050 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3095z00_1958))->BgL_predsz00); } 
BgL_arg3529z00_1051 = 
(((BgL_blockz00_bglt)CREF(BgL_bz00_2))->BgL_predsz00); 
BgL_arg3525z00_1049 = 
BGl_substzd2appendzd2zzsaw_libz00(BgL_arg3528z00_1050, 
(obj_t)(BgL_bz00_2), BgL_arg3529z00_1051); } 
{ /* ./SawMill/remove.scm 45 */
BgL_blockz00_bglt BgL_obj3097z00_1960;obj_t BgL_val3096z00_1961;
BgL_obj3097z00_1960 = 
(BgL_blockz00_bglt)(BgL_sz00_1039); 
BgL_val3096z00_1961 = BgL_arg3525z00_1049; 
return 
((((BgL_blockz00_bglt)CREF(BgL_obj3097z00_1960))->BgL_predsz00) = ((obj_t)BgL_val3096z00_1961), BUNSPEC);} } } } 
}



/* make-def-use */
bool_t BGl_makezd2defzd2usez00zzsaw_removez00(BgL_blockz00_bglt BgL_bz00_3)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 47 */
return 
BGl_defcollectz72z72zzsaw_removez00(
(obj_t)(BgL_bz00_3));} 
}



/* reg->creg */
obj_t BGl_regzd2ze3cregz31zzsaw_removez00(obj_t BgL_rz00_1095)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 50 */
{ /* ./SawMill/remove.scm 49 */
bool_t BgL_test3614z00_1097;
BgL_test3614z00_1097 = 
BGl_iszd2azf3z21zz__objectz00(BgL_rz00_1095, BGl_cregz00zzsaw_removez00); 
if(BgL_test3614z00_1097)
{ /* ./SawMill/remove.scm 49 */BFALSE; }  else 
{ /* ./SawMill/remove.scm 50 */
BgL_rtl_regz00_bglt BgL_obj3348z00_1098;
{ 
BgL_rtl_regz00_bglt BgL_auxz00_2558;
BgL_auxz00_2558 = 
(BgL_rtl_regz00_bglt)(BgL_rz00_1095); 
BgL_obj3348z00_1098 = 
((BgL_rtl_regz00_bglt)BgL_auxz00_2558); } 
{ /* ./SawMill/remove.scm 50 */
BgL_cregz00_bglt BgL_arg3616z00_1099;
{ /* ./SawMill/remove.scm 50 */
BgL_cregz00_bglt BgL_res4863z00_2009;
{ /* ./SawMill/remove.scm 50 */
obj_t BgL_nbuses3302z00_2001;
BgL_nbuses3302z00_2001 = 
BINT(((long)0)); 
{ /* ./SawMill/remove.scm 50 */
BgL_cregz00_bglt BgL_new3303z00_2002;
BgL_new3303z00_2002 = 
((BgL_cregz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_cregz00_bgl)))); 
{ /* ./SawMill/remove.scm 50 */
BgL_cregz00_bglt BgL_res4862z00_2008;
{ /* ./SawMill/remove.scm 50 */
BgL_cregz00_bglt BgL_new3313z00_2003;
BgL_new3313z00_2003 = BgL_new3303z00_2002; 
{ /* ./SawMill/remove.scm 50 */
obj_t BgL_defs3311z00_2006;obj_t BgL_nbuses3312z00_2007;
BgL_defs3311z00_2006 = BNIL; 
BgL_nbuses3312z00_2007 = BgL_nbuses3302z00_2001; 
((((BgL_cregz00_bglt)CREF(BgL_new3313z00_2003))->BgL_defsz00) = ((obj_t)BgL_defs3311z00_2006), BUNSPEC); 
((((BgL_cregz00_bglt)CREF(BgL_new3313z00_2003))->BgL_nbusesz00) = ((obj_t)BgL_nbuses3312z00_2007), BUNSPEC); 
BgL_res4862z00_2008 = BgL_new3313z00_2003; } } BgL_res4862z00_2008; } 
BgL_res4863z00_2009 = BgL_new3303z00_2002; } } 
BgL_arg3616z00_1099 = BgL_res4863z00_2009; } 
{ /* ./SawMill/remove.scm 50 */
obj_t BgL_auxz00_2567;BgL_objectz00_bglt BgL_auxz00_2565;
BgL_auxz00_2567 = 
(obj_t)(BgL_arg3616z00_1099); 
BgL_auxz00_2565 = 
(BgL_objectz00_bglt)(BgL_obj3348z00_1098); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2565, BgL_auxz00_2567); } } 
{ /* ./SawMill/remove.scm 50 */
long BgL_arg3620z00_1100;
BgL_arg3620z00_1100 = 
BGl_classzd2numzd2zz__objectz00(BGl_cregz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 50 */
BgL_objectz00_bglt BgL_objz00_2010;
BgL_objz00_2010 = 
(BgL_objectz00_bglt)(BgL_obj3348z00_1098); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2010, BgL_arg3620z00_1100); } } 
{ /* ./SawMill/remove.scm 50 */
obj_t BgL_objz00_2012;
BgL_objz00_2012 = 
(obj_t)(BgL_obj3348z00_1098); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2012); BUNSPEC; } 
(obj_t)(BgL_obj3348z00_1098); } } 
return BgL_rz00_1095;} 
}



/* defcollect' */
bool_t BGl_defcollectz72z72zzsaw_removez00(obj_t BgL_bz00_1056)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 58 */
{ 
obj_t BgL_rz00_1089;
{ /* ./SawMill/remove.scm 59 */
BgL_blockz00_bglt BgL_obj3353z00_1058;
{ 
BgL_blockz00_bglt BgL_auxz00_2576;
BgL_auxz00_2576 = 
(BgL_blockz00_bglt)(BgL_bz00_1056); 
BgL_obj3353z00_1058 = 
((BgL_blockz00_bglt)BgL_auxz00_2576); } 
{ /* ./SawMill/remove.scm 59 */
BgL_defcollectz00_bglt BgL_arg3541z00_1059;
BgL_arg3541z00_1059 = 
BGl_wideningzd2defcollectzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 59 */
obj_t BgL_auxz00_2582;BgL_objectz00_bglt BgL_auxz00_2580;
BgL_auxz00_2582 = 
(obj_t)(BgL_arg3541z00_1059); 
BgL_auxz00_2580 = 
(BgL_objectz00_bglt)(BgL_obj3353z00_1058); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2580, BgL_auxz00_2582); } } 
{ /* ./SawMill/remove.scm 59 */
long BgL_arg3545z00_1060;
BgL_arg3545z00_1060 = 
BGl_classzd2numzd2zz__objectz00(BGl_defcollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 59 */
BgL_objectz00_bglt BgL_objz00_1962;
BgL_objz00_1962 = 
(BgL_objectz00_bglt)(BgL_obj3353z00_1058); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1962, BgL_arg3545z00_1060); } } 
{ /* ./SawMill/remove.scm 59 */
obj_t BgL_objz00_1964;
BgL_objz00_1964 = 
(obj_t)(BgL_obj3353z00_1058); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1964); BUNSPEC; } BgL_obj3353z00_1058; } 
{ 
obj_t BgL_l3354z00_1061;
{ /* ./SawMill/remove.scm 64 */
obj_t BgL_arg3550z00_1063;
{ /* ./SawMill/remove.scm 64 */
BgL_blockz00_bglt BgL_obj3101z00_1965;
BgL_obj3101z00_1965 = 
(BgL_blockz00_bglt)(BgL_bz00_1056); 
BgL_arg3550z00_1063 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3101z00_1965))->BgL_firstz00); } 
BgL_l3354z00_1061 = BgL_arg3550z00_1063; 
BgL_forzd2each3355zd2_1062:
{ /* ./SawMill/remove.scm 60 */
bool_t BgL_test3553z00_1064;
BgL_test3553z00_1064 = 
PAIRP(BgL_l3354z00_1061); 
if(BgL_test3553z00_1064)
{ /* ./SawMill/remove.scm 60 */
{ /* ./SawMill/remove.scm 61 */
obj_t BgL_insz00_1065;
BgL_insz00_1065 = 
CAR(BgL_l3354z00_1061); 
{ /* ./SawMill/remove.scm 62 */
bool_t BgL_test3554z00_1067;
{ /* ./SawMill/remove.scm 62 */
BgL_rtl_insz00_bglt BgL_obj3066z00_1968;
BgL_obj3066z00_1968 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1065); 
{ /* ./SawMill/remove.scm 62 */
obj_t BgL_auxz00_2596;
BgL_auxz00_2596 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3066z00_1968))->BgL_destz00); 
BgL_test3554z00_1067 = 
CBOOL(BgL_auxz00_2596); } } 
if(BgL_test3554z00_1067)
{ /* ./SawMill/remove.scm 62 */
obj_t BgL_arg3556z00_1068;
{ /* ./SawMill/remove.scm 62 */
BgL_rtl_insz00_bglt BgL_obj3066z00_1969;
BgL_obj3066z00_1969 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1065); 
BgL_arg3556z00_1068 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3066z00_1969))->BgL_destz00); } 
{ /* ./SawMill/remove.scm 62 */
obj_t BgL_instance3351z00_1972;
BgL_instance3351z00_1972 = 
BGl_regzd2ze3cregz31zzsaw_removez00(BgL_arg3556z00_1068); 
{ /* ./SawMill/remove.scm 62 */
obj_t BgL_arg3596z00_1973;
{ /* ./SawMill/remove.scm 62 */
obj_t BgL_arg3599z00_1974;
{ /* ./SawMill/remove.scm 62 */
BgL_cregz00_bglt BgL_obj3325z00_1975;
BgL_obj3325z00_1975 = 
(BgL_cregz00_bglt)(BgL_instance3351z00_1972); 
{ 
obj_t BgL_auxz00_2604;
{ /* ./SawMill/remove.scm 62 */
BgL_objectz00_bglt BgL_auxz00_2605;
BgL_auxz00_2605 = 
(BgL_objectz00_bglt)(BgL_obj3325z00_1975); 
BgL_auxz00_2604 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2605); } 
BgL_arg3599z00_1974 = 
(((BgL_cregz00_bglt)CREF(BgL_auxz00_2604))->BgL_defsz00); } } 
BgL_arg3596z00_1973 = 
MAKE_PAIR(BgL_insz00_1065, BgL_arg3599z00_1974); } 
{ /* ./SawMill/remove.scm 62 */
BgL_cregz00_bglt BgL_obj3327z00_1976;obj_t BgL_val3326z00_1977;
BgL_obj3327z00_1976 = 
(BgL_cregz00_bglt)(BgL_instance3351z00_1972); 
BgL_val3326z00_1977 = BgL_arg3596z00_1973; 
{ 
obj_t BgL_auxz00_2611;
{ /* ./SawMill/remove.scm 62 */
BgL_objectz00_bglt BgL_auxz00_2612;
BgL_auxz00_2612 = 
(BgL_objectz00_bglt)(BgL_obj3327z00_1976); 
BgL_auxz00_2611 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2612); } 
((((BgL_cregz00_bglt)CREF(BgL_auxz00_2611))->BgL_defsz00) = ((obj_t)BgL_val3326z00_1977), BUNSPEC); } } } } }  else 
{ /* ./SawMill/remove.scm 62 */BFALSE; } } 
{ 
obj_t BgL_l3358z00_1069;
{ /* ./SawMill/remove.scm 63 */
obj_t BgL_arg3561z00_1071;
{ /* ./SawMill/remove.scm 63 */
BgL_rtl_insz00_bglt BgL_obj3073z00_1978;
BgL_obj3073z00_1978 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1065); 
BgL_arg3561z00_1071 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3073z00_1978))->BgL_argsz00); } 
BgL_l3358z00_1069 = BgL_arg3561z00_1071; 
BgL_forzd2each3359zd2_1070:
{ /* ./SawMill/remove.scm 63 */
bool_t BgL_test3564z00_1072;
BgL_test3564z00_1072 = 
PAIRP(BgL_l3358z00_1069); 
if(BgL_test3564z00_1072)
{ /* ./SawMill/remove.scm 63 */
{ /* ./SawMill/remove.scm 63 */
obj_t BgL_arg3566z00_1073;
BgL_arg3566z00_1073 = 
CAR(BgL_l3358z00_1069); 
BgL_rz00_1089 = BgL_arg3566z00_1073; 
{ /* ./SawMill/remove.scm 53 */
obj_t BgL_instance3349z00_1091;
BgL_instance3349z00_1091 = 
BGl_regzd2ze3cregz31zzsaw_removez00(BgL_rz00_1089); 
{ /* ./SawMill/remove.scm 54 */
long BgL_arg3605z00_1092;
{ /* ./SawMill/remove.scm 54 */
long BgL_auxz00_2622;
{ /* ./SawMill/remove.scm 54 */
obj_t BgL_auxz00_2623;
{ /* ./SawMill/remove.scm 54 */
BgL_cregz00_bglt BgL_obj3329z00_1994;
BgL_obj3329z00_1994 = 
(BgL_cregz00_bglt)(BgL_instance3349z00_1091); 
{ 
obj_t BgL_auxz00_2625;
{ /* ./SawMill/remove.scm 54 */
BgL_objectz00_bglt BgL_auxz00_2626;
BgL_auxz00_2626 = 
(BgL_objectz00_bglt)(BgL_obj3329z00_1994); 
BgL_auxz00_2625 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2626); } 
BgL_auxz00_2623 = 
(((BgL_cregz00_bglt)CREF(BgL_auxz00_2625))->BgL_nbusesz00); } } 
BgL_auxz00_2622 = 
(long)CINT(BgL_auxz00_2623); } 
BgL_arg3605z00_1092 = 
(((long)1)+BgL_auxz00_2622); } 
{ /* ./SawMill/remove.scm 54 */
BgL_cregz00_bglt BgL_obj3331z00_1997;obj_t BgL_val3330z00_1998;
BgL_obj3331z00_1997 = 
(BgL_cregz00_bglt)(BgL_instance3349z00_1091); 
BgL_val3330z00_1998 = 
BINT(BgL_arg3605z00_1092); 
{ 
obj_t BgL_auxz00_2634;
{ /* ./SawMill/remove.scm 54 */
BgL_objectz00_bglt BgL_auxz00_2635;
BgL_auxz00_2635 = 
(BgL_objectz00_bglt)(BgL_obj3331z00_1997); 
BgL_auxz00_2634 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2635); } 
((((BgL_cregz00_bglt)CREF(BgL_auxz00_2634))->BgL_nbusesz00) = ((obj_t)BgL_val3330z00_1998), BUNSPEC); } } } } } 
{ /* ./SawMill/remove.scm 63 */
obj_t BgL_arg3570z00_1074;
BgL_arg3570z00_1074 = 
CDR(BgL_l3358z00_1069); 
{ 
obj_t BgL_l3358z00_2640;
BgL_l3358z00_2640 = BgL_arg3570z00_1074; 
BgL_l3358z00_1069 = BgL_l3358z00_2640; 
goto BgL_forzd2each3359zd2_1070;} } }  else 
{ /* ./SawMill/remove.scm 63 */((bool_t)1); } } } } } 
{ /* ./SawMill/remove.scm 60 */
obj_t BgL_arg3576z00_1075;
BgL_arg3576z00_1075 = 
CDR(BgL_l3354z00_1061); 
{ 
obj_t BgL_l3354z00_2642;
BgL_l3354z00_2642 = BgL_arg3576z00_1075; 
BgL_l3354z00_1061 = BgL_l3354z00_2642; 
goto BgL_forzd2each3355zd2_1062;} } }  else 
{ /* ./SawMill/remove.scm 60 */((bool_t)1); } } } } 
{ 
obj_t BgL_l3360z00_1076;
{ /* ./SawMill/remove.scm 66 */
obj_t BgL_arg3581z00_1078;
{ /* ./SawMill/remove.scm 66 */
BgL_blockz00_bglt BgL_obj3098z00_1983;
BgL_obj3098z00_1983 = 
(BgL_blockz00_bglt)(BgL_bz00_1056); 
BgL_arg3581z00_1078 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3098z00_1983))->BgL_succsz00); } 
BgL_l3360z00_1076 = BgL_arg3581z00_1078; 
BgL_forzd2each3361zd2_1077:
{ /* ./SawMill/remove.scm 65 */
bool_t BgL_test3584z00_1079;
BgL_test3584z00_1079 = 
PAIRP(BgL_l3360z00_1076); 
if(BgL_test3584z00_1079)
{ /* ./SawMill/remove.scm 65 */
{ /* ./SawMill/remove.scm 65 */
obj_t BgL_sz00_1080;
BgL_sz00_1080 = 
CAR(BgL_l3360z00_1076); 
{ /* ./SawMill/remove.scm 65 */
bool_t BgL_test3585z00_1081;
BgL_test3585z00_1081 = 
BGl_iszd2azf3z21zz__objectz00(BgL_sz00_1080, BGl_defcollectz00zzsaw_removez00); 
if(BgL_test3585z00_1081)
{ /* ./SawMill/remove.scm 65 */((bool_t)0); }  else 
{ /* ./SawMill/remove.scm 65 */
BGl_defcollectz72z72zzsaw_removez00(BgL_sz00_1080); } } } 
{ /* ./SawMill/remove.scm 65 */
obj_t BgL_arg3590z00_1082;
BgL_arg3590z00_1082 = 
CDR(BgL_l3360z00_1076); 
{ 
obj_t BgL_l3360z00_2652;
BgL_l3360z00_2652 = BgL_arg3590z00_1082; 
BgL_l3360z00_1076 = BgL_l3360z00_2652; 
goto BgL_forzd2each3361zd2_1077;} } }  else 
{ /* ./SawMill/remove.scm 65 */
return ((bool_t)1);} } } } } } 
}



/* get-first-removable */
obj_t BGl_getzd2firstzd2removablez00zzsaw_removez00(BgL_blockz00_bglt BgL_bz00_4)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 68 */
{ /* ./SawMill/remove.scm 69 */
obj_t BgL_rmz00_1104;
BgL_rmz00_1104 = 
MAKE_CELL(BNIL); 
BGl_rcollectz72z72zzsaw_removez00(BgL_rmz00_1104, 
(obj_t)(BgL_bz00_4)); 
return 
CELL_REF(BgL_rmz00_1104);} } 
}



/* rcollect' */
bool_t BGl_rcollectz72z72zzsaw_removez00(obj_t BgL_rmz00_2347, obj_t BgL_bz00_1105)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 70 */
{ /* ./SawMill/remove.scm 71 */
BgL_blockz00_bglt BgL_obj3362z00_1107;
{ 
BgL_blockz00_bglt BgL_auxz00_2655;
BgL_auxz00_2655 = 
(BgL_blockz00_bglt)(BgL_bz00_1105); 
BgL_obj3362z00_1107 = 
((BgL_blockz00_bglt)BgL_auxz00_2655); } 
{ /* ./SawMill/remove.scm 71 */
BgL_rcollectz00_bglt BgL_arg3627z00_1108;
BgL_arg3627z00_1108 = 
BGl_wideningzd2rcollectzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 71 */
obj_t BgL_auxz00_2661;BgL_objectz00_bglt BgL_auxz00_2659;
BgL_auxz00_2661 = 
(obj_t)(BgL_arg3627z00_1108); 
BgL_auxz00_2659 = 
(BgL_objectz00_bglt)(BgL_obj3362z00_1107); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2659, BgL_auxz00_2661); } } 
{ /* ./SawMill/remove.scm 71 */
long BgL_arg3631z00_1109;
BgL_arg3631z00_1109 = 
BGl_classzd2numzd2zz__objectz00(BGl_rcollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 71 */
BgL_objectz00_bglt BgL_objz00_2013;
BgL_objz00_2013 = 
(BgL_objectz00_bglt)(BgL_obj3362z00_1107); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2013, BgL_arg3631z00_1109); } } 
{ /* ./SawMill/remove.scm 71 */
obj_t BgL_objz00_2015;
BgL_objz00_2015 = 
(obj_t)(BgL_obj3362z00_1107); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2015); BUNSPEC; } BgL_obj3362z00_1107; } 
{ 
obj_t BgL_l3363z00_1110;
{ /* ./SawMill/remove.scm 73 */
obj_t BgL_arg3636z00_1112;
{ /* ./SawMill/remove.scm 73 */
BgL_blockz00_bglt BgL_obj3101z00_2016;
BgL_obj3101z00_2016 = 
(BgL_blockz00_bglt)(BgL_bz00_1105); 
BgL_arg3636z00_1112 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3101z00_2016))->BgL_firstz00); } 
BgL_l3363z00_1110 = BgL_arg3636z00_1112; 
BgL_forzd2each3364zd2_1111:
{ /* ./SawMill/remove.scm 72 */
bool_t BgL_test3639z00_1113;
BgL_test3639z00_1113 = 
PAIRP(BgL_l3363z00_1110); 
if(BgL_test3639z00_1113)
{ /* ./SawMill/remove.scm 72 */
{ /* ./SawMill/remove.scm 72 */
obj_t BgL_insz00_1114;
BgL_insz00_1114 = 
CAR(BgL_l3363z00_1110); 
{ /* ./SawMill/remove.scm 72 */
bool_t BgL_test3640z00_1115;
BgL_test3640z00_1115 = 
BGl_removablezf3zf3zzsaw_removez00(
(BgL_rtl_insz00_bglt)(BgL_insz00_1114)); 
if(BgL_test3640z00_1115)
{ /* ./SawMill/remove.scm 72 */
obj_t BgL_auxz00_2348;
{ /* ./SawMill/remove.scm 72 */
obj_t BgL_auxz00_2677;
BgL_auxz00_2677 = 
CELL_REF(BgL_rmz00_2347); 
BgL_auxz00_2348 = 
MAKE_PAIR(BgL_insz00_1114, BgL_auxz00_2677); } 
CELL_SET(BgL_rmz00_2347, BgL_auxz00_2348); }  else 
{ /* ./SawMill/remove.scm 72 */BFALSE; } } } 
{ /* ./SawMill/remove.scm 72 */
obj_t BgL_arg3645z00_1116;
BgL_arg3645z00_1116 = 
CDR(BgL_l3363z00_1110); 
{ 
obj_t BgL_l3363z00_2680;
BgL_l3363z00_2680 = BgL_arg3645z00_1116; 
BgL_l3363z00_1110 = BgL_l3363z00_2680; 
goto BgL_forzd2each3364zd2_1111;} } }  else 
{ /* ./SawMill/remove.scm 72 */((bool_t)1); } } } } 
{ 
obj_t BgL_l3365z00_1117;
{ /* ./SawMill/remove.scm 75 */
obj_t BgL_arg3650z00_1119;
{ /* ./SawMill/remove.scm 75 */
BgL_blockz00_bglt BgL_obj3098z00_2020;
BgL_obj3098z00_2020 = 
(BgL_blockz00_bglt)(BgL_bz00_1105); 
BgL_arg3650z00_1119 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3098z00_2020))->BgL_succsz00); } 
BgL_l3365z00_1117 = BgL_arg3650z00_1119; 
BgL_forzd2each3366zd2_1118:
{ /* ./SawMill/remove.scm 74 */
bool_t BgL_test3653z00_1120;
BgL_test3653z00_1120 = 
PAIRP(BgL_l3365z00_1117); 
if(BgL_test3653z00_1120)
{ /* ./SawMill/remove.scm 74 */
{ /* ./SawMill/remove.scm 74 */
obj_t BgL_sz00_1121;
BgL_sz00_1121 = 
CAR(BgL_l3365z00_1117); 
{ /* ./SawMill/remove.scm 74 */
bool_t BgL_test3654z00_1122;
BgL_test3654z00_1122 = 
BGl_iszd2azf3z21zz__objectz00(BgL_sz00_1121, BGl_rcollectz00zzsaw_removez00); 
if(BgL_test3654z00_1122)
{ /* ./SawMill/remove.scm 74 */((bool_t)0); }  else 
{ /* ./SawMill/remove.scm 74 */
BGl_rcollectz72z72zzsaw_removez00(BgL_rmz00_2347, BgL_sz00_1121); } } } 
{ /* ./SawMill/remove.scm 74 */
obj_t BgL_arg3659z00_1123;
BgL_arg3659z00_1123 = 
CDR(BgL_l3365z00_1117); 
{ 
obj_t BgL_l3365z00_2690;
BgL_l3365z00_2690 = BgL_arg3659z00_1123; 
BgL_l3365z00_1117 = BgL_l3365z00_2690; 
goto BgL_forzd2each3366zd2_1118;} } }  else 
{ /* ./SawMill/remove.scm 74 */
return ((bool_t)1);} } } } } 
}



/* get-first-unused */
obj_t BGl_getzd2firstzd2unusedz00zzsaw_removez00(BgL_blockz00_bglt BgL_bz00_5)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 78 */
{ /* ./SawMill/remove.scm 79 */
obj_t BgL_unusedz00_1124;
BgL_unusedz00_1124 = 
MAKE_CELL(BNIL); 
BGl_ucollectz72z72zzsaw_removez00(BgL_unusedz00_1124, 
(obj_t)(BgL_bz00_5)); 
return 
CELL_REF(BgL_unusedz00_1124);} } 
}



/* ucollect' */
bool_t BGl_ucollectz72z72zzsaw_removez00(obj_t BgL_unusedz00_2345, obj_t BgL_bz00_1125)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 80 */
{ /* ./SawMill/remove.scm 81 */
BgL_blockz00_bglt BgL_obj3367z00_1127;
{ 
BgL_blockz00_bglt BgL_auxz00_2693;
BgL_auxz00_2693 = 
(BgL_blockz00_bglt)(BgL_bz00_1125); 
BgL_obj3367z00_1127 = 
((BgL_blockz00_bglt)BgL_auxz00_2693); } 
{ /* ./SawMill/remove.scm 81 */
BgL_ucollectz00_bglt BgL_arg3665z00_1128;
BgL_arg3665z00_1128 = 
BGl_wideningzd2ucollectzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 81 */
obj_t BgL_auxz00_2699;BgL_objectz00_bglt BgL_auxz00_2697;
BgL_auxz00_2699 = 
(obj_t)(BgL_arg3665z00_1128); 
BgL_auxz00_2697 = 
(BgL_objectz00_bglt)(BgL_obj3367z00_1127); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2697, BgL_auxz00_2699); } } 
{ /* ./SawMill/remove.scm 81 */
long BgL_arg3669z00_1129;
BgL_arg3669z00_1129 = 
BGl_classzd2numzd2zz__objectz00(BGl_ucollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 81 */
BgL_objectz00_bglt BgL_objz00_2025;
BgL_objz00_2025 = 
(BgL_objectz00_bglt)(BgL_obj3367z00_1127); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2025, BgL_arg3669z00_1129); } } 
{ /* ./SawMill/remove.scm 81 */
obj_t BgL_objz00_2027;
BgL_objz00_2027 = 
(obj_t)(BgL_obj3367z00_1127); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2027); BUNSPEC; } BgL_obj3367z00_1127; } 
{ 
obj_t BgL_l3368z00_1130;
{ /* ./SawMill/remove.scm 89 */
obj_t BgL_arg3674z00_1132;
{ /* ./SawMill/remove.scm 89 */
BgL_blockz00_bglt BgL_obj3101z00_2028;
BgL_obj3101z00_2028 = 
(BgL_blockz00_bglt)(BgL_bz00_1125); 
BgL_arg3674z00_1132 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3101z00_2028))->BgL_firstz00); } 
BgL_l3368z00_1130 = BgL_arg3674z00_1132; 
BgL_forzd2each3369zd2_1131:
{ /* ./SawMill/remove.scm 82 */
bool_t BgL_test3677z00_1133;
BgL_test3677z00_1133 = 
PAIRP(BgL_l3368z00_1130); 
if(BgL_test3677z00_1133)
{ /* ./SawMill/remove.scm 82 */
{ /* ./SawMill/remove.scm 83 */
obj_t BgL_insz00_1134;
BgL_insz00_1134 = 
CAR(BgL_l3368z00_1130); 
{ /* ./SawMill/remove.scm 85 */
bool_t BgL_test3678z00_1136;
{ /* ./SawMill/remove.scm 85 */
bool_t BgL_test3684z00_1138;
{ /* ./SawMill/remove.scm 85 */
BgL_rtl_insz00_bglt BgL_obj3066z00_2031;
BgL_obj3066z00_2031 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1134); 
{ /* ./SawMill/remove.scm 85 */
obj_t BgL_auxz00_2713;
BgL_auxz00_2713 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3066z00_2031))->BgL_destz00); 
BgL_test3684z00_1138 = 
CBOOL(BgL_auxz00_2713); } } 
if(BgL_test3684z00_1138)
{ /* ./SawMill/remove.scm 86 */
bool_t BgL_test3685z00_1139;
{ /* ./SawMill/remove.scm 86 */
long BgL_auxz00_2717;
{ /* ./SawMill/remove.scm 86 */
obj_t BgL_auxz00_2718;
{ /* ./SawMill/remove.scm 86 */
BgL_cregz00_bglt BgL_obj3329z00_2033;
{ /* ./SawMill/remove.scm 86 */
obj_t BgL_auxz00_2719;
{ /* ./SawMill/remove.scm 86 */
BgL_rtl_insz00_bglt BgL_obj3066z00_2032;
BgL_obj3066z00_2032 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1134); 
BgL_auxz00_2719 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3066z00_2032))->BgL_destz00); } 
BgL_obj3329z00_2033 = 
(BgL_cregz00_bglt)(BgL_auxz00_2719); } 
{ 
obj_t BgL_auxz00_2723;
{ /* ./SawMill/remove.scm 86 */
BgL_objectz00_bglt BgL_auxz00_2724;
BgL_auxz00_2724 = 
(BgL_objectz00_bglt)(BgL_obj3329z00_2033); 
BgL_auxz00_2723 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2724); } 
BgL_auxz00_2718 = 
(((BgL_cregz00_bglt)CREF(BgL_auxz00_2723))->BgL_nbusesz00); } } 
BgL_auxz00_2717 = 
(long)CINT(BgL_auxz00_2718); } 
BgL_test3685z00_1139 = 
(BgL_auxz00_2717==((long)0)); } 
if(BgL_test3685z00_1139)
{ /* ./SawMill/remove.scm 87 */
bool_t BgL_test3686z00_1140;
{ /* ./SawMill/remove.scm 87 */
obj_t BgL_arg3688z00_1141;
{ /* ./SawMill/remove.scm 87 */
BgL_rtl_insz00_bglt BgL_obj3066z00_2036;
BgL_obj3066z00_2036 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1134); 
BgL_arg3688z00_1141 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3066z00_2036))->BgL_destz00); } 
{ /* ./SawMill/remove.scm 87 */
obj_t BgL_auxz00_2733;
BgL_auxz00_2733 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg3688z00_1141, 
CELL_REF(BgL_unusedz00_2345)); 
BgL_test3686z00_1140 = 
CBOOL(BgL_auxz00_2733); } } 
if(BgL_test3686z00_1140)
{ /* ./SawMill/remove.scm 87 */
BgL_test3678z00_1136 = ((bool_t)0); }  else 
{ /* ./SawMill/remove.scm 87 */
BgL_test3678z00_1136 = ((bool_t)1); } }  else 
{ /* ./SawMill/remove.scm 86 */
BgL_test3678z00_1136 = ((bool_t)0); } }  else 
{ /* ./SawMill/remove.scm 85 */
BgL_test3678z00_1136 = ((bool_t)0); } } 
if(BgL_test3678z00_1136)
{ /* ./SawMill/remove.scm 88 */
obj_t BgL_auxz00_2346;
{ /* ./SawMill/remove.scm 88 */
obj_t BgL_arg3681z00_1137;
{ /* ./SawMill/remove.scm 88 */
BgL_rtl_insz00_bglt BgL_obj3066z00_2037;
BgL_obj3066z00_2037 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1134); 
BgL_arg3681z00_1137 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3066z00_2037))->BgL_destz00); } 
{ /* ./SawMill/remove.scm 88 */
obj_t BgL_auxz00_2740;
BgL_auxz00_2740 = 
CELL_REF(BgL_unusedz00_2345); 
BgL_auxz00_2346 = 
MAKE_PAIR(BgL_arg3681z00_1137, BgL_auxz00_2740); } } 
CELL_SET(BgL_unusedz00_2345, BgL_auxz00_2346); }  else 
{ /* ./SawMill/remove.scm 85 */BFALSE; } } } 
{ /* ./SawMill/remove.scm 82 */
obj_t BgL_arg3703z00_1145;
BgL_arg3703z00_1145 = 
CDR(BgL_l3368z00_1130); 
{ 
obj_t BgL_l3368z00_2743;
BgL_l3368z00_2743 = BgL_arg3703z00_1145; 
BgL_l3368z00_1130 = BgL_l3368z00_2743; 
goto BgL_forzd2each3369zd2_1131;} } }  else 
{ /* ./SawMill/remove.scm 82 */((bool_t)1); } } } } 
{ 
obj_t BgL_l3372z00_1146;
{ /* ./SawMill/remove.scm 91 */
obj_t BgL_arg3708z00_1148;
{ /* ./SawMill/remove.scm 91 */
BgL_blockz00_bglt BgL_obj3098z00_2039;
BgL_obj3098z00_2039 = 
(BgL_blockz00_bglt)(BgL_bz00_1125); 
BgL_arg3708z00_1148 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3098z00_2039))->BgL_succsz00); } 
BgL_l3372z00_1146 = BgL_arg3708z00_1148; 
BgL_forzd2each3373zd2_1147:
{ /* ./SawMill/remove.scm 90 */
bool_t BgL_test3711z00_1149;
BgL_test3711z00_1149 = 
PAIRP(BgL_l3372z00_1146); 
if(BgL_test3711z00_1149)
{ /* ./SawMill/remove.scm 90 */
{ /* ./SawMill/remove.scm 90 */
obj_t BgL_sz00_1150;
BgL_sz00_1150 = 
CAR(BgL_l3372z00_1146); 
{ /* ./SawMill/remove.scm 90 */
bool_t BgL_test3712z00_1151;
BgL_test3712z00_1151 = 
BGl_iszd2azf3z21zz__objectz00(BgL_sz00_1150, BGl_ucollectz00zzsaw_removez00); 
if(BgL_test3712z00_1151)
{ /* ./SawMill/remove.scm 90 */((bool_t)0); }  else 
{ /* ./SawMill/remove.scm 90 */
BGl_ucollectz72z72zzsaw_removez00(BgL_unusedz00_2345, BgL_sz00_1150); } } } 
{ /* ./SawMill/remove.scm 90 */
obj_t BgL_arg3717z00_1152;
BgL_arg3717z00_1152 = 
CDR(BgL_l3372z00_1146); 
{ 
obj_t BgL_l3372z00_2753;
BgL_l3372z00_2753 = BgL_arg3717z00_1152; 
BgL_l3372z00_1146 = BgL_l3372z00_2753; 
goto BgL_forzd2each3373zd2_1147;} } }  else 
{ /* ./SawMill/remove.scm 90 */
return ((bool_t)1);} } } } } 
}



/* fix-remove */
bool_t BGl_fixzd2removezd2zzsaw_removez00(obj_t BgL_unusedz00_6, obj_t BgL_rmz00_7)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 97 */
BGl_fixzd2removezd2zzsaw_removez00:
{ 
obj_t BgL_l3374z00_1153;
BgL_l3374z00_1153 = BgL_rmz00_7; 
BgL_forzd2each3375zd2_1154:
{ /* ./SawMill/remove.scm 99 */
bool_t BgL_test3722z00_1155;
BgL_test3722z00_1155 = 
PAIRP(BgL_l3374z00_1153); 
if(BgL_test3722z00_1155)
{ /* ./SawMill/remove.scm 99 */
{ /* ./SawMill/remove.scm 100 */
obj_t BgL_insz00_1156;
BgL_insz00_1156 = 
CAR(BgL_l3374z00_1153); 
{ /* ./SawMill/remove.scm 100 */
BgL_rtl_insz00_bglt BgL_obj3376z00_1157;
{ 
BgL_rtl_insz00_bglt BgL_auxz00_2757;
BgL_auxz00_2757 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1156); 
BgL_obj3376z00_1157 = 
((BgL_rtl_insz00_bglt)BgL_auxz00_2757); } 
{ /* ./SawMill/remove.scm 100 */
BgL_removedz00_bglt BgL_arg3724z00_1158;
BgL_arg3724z00_1158 = 
BGl_wideningzd2removedzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 100 */
obj_t BgL_auxz00_2763;BgL_objectz00_bglt BgL_auxz00_2761;
BgL_auxz00_2763 = 
(obj_t)(BgL_arg3724z00_1158); 
BgL_auxz00_2761 = 
(BgL_objectz00_bglt)(BgL_obj3376z00_1157); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2761, BgL_auxz00_2763); } } 
{ /* ./SawMill/remove.scm 100 */
long BgL_arg3728z00_1159;
BgL_arg3728z00_1159 = 
BGl_classzd2numzd2zz__objectz00(BGl_removedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 100 */
BgL_objectz00_bglt BgL_objz00_2046;
BgL_objz00_2046 = 
(BgL_objectz00_bglt)(BgL_obj3376z00_1157); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2046, BgL_arg3728z00_1159); } } 
{ /* ./SawMill/remove.scm 100 */
obj_t BgL_objz00_2048;
BgL_objz00_2048 = 
(obj_t)(BgL_obj3376z00_1157); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2048); BUNSPEC; } BgL_obj3376z00_1157; } 
{ 
obj_t BgL_l3377z00_1160;
{ /* ./SawMill/remove.scm 106 */
obj_t BgL_arg3733z00_1162;
{ /* ./SawMill/remove.scm 106 */
BgL_rtl_insz00_bglt BgL_obj3073z00_2049;
BgL_obj3073z00_2049 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1156); 
BgL_arg3733z00_1162 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3073z00_2049))->BgL_argsz00); } 
BgL_l3377z00_1160 = BgL_arg3733z00_1162; 
BgL_forzd2each3378zd2_1161:
{ /* ./SawMill/remove.scm 101 */
bool_t BgL_test3736z00_1163;
BgL_test3736z00_1163 = 
PAIRP(BgL_l3377z00_1160); 
if(BgL_test3736z00_1163)
{ /* ./SawMill/remove.scm 101 */
{ /* ./SawMill/remove.scm 102 */
obj_t BgL_rz00_1164;
BgL_rz00_1164 = 
CAR(BgL_l3377z00_1160); 
{ /* ./SawMill/remove.scm 102 */
obj_t BgL_nz00_1165;
{ /* ./SawMill/remove.scm 102 */
BgL_cregz00_bglt BgL_obj3329z00_2052;
BgL_obj3329z00_2052 = 
(BgL_cregz00_bglt)(BgL_rz00_1164); 
{ 
obj_t BgL_auxz00_2777;
{ /* ./SawMill/remove.scm 102 */
BgL_objectz00_bglt BgL_auxz00_2778;
BgL_auxz00_2778 = 
(BgL_objectz00_bglt)(BgL_obj3329z00_2052); 
BgL_auxz00_2777 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2778); } 
BgL_nz00_1165 = 
(((BgL_cregz00_bglt)CREF(BgL_auxz00_2777))->BgL_nbusesz00); } } 
{ /* ./SawMill/remove.scm 103 */
long BgL_arg3738z00_1166;
{ /* ./SawMill/remove.scm 103 */
long BgL_auxz00_2782;
BgL_auxz00_2782 = 
(long)CINT(BgL_nz00_1165); 
BgL_arg3738z00_1166 = 
(BgL_auxz00_2782-((long)1)); } 
{ /* ./SawMill/remove.scm 103 */
BgL_cregz00_bglt BgL_obj3331z00_2055;obj_t BgL_val3330z00_2056;
BgL_obj3331z00_2055 = 
(BgL_cregz00_bglt)(BgL_rz00_1164); 
BgL_val3330z00_2056 = 
BINT(BgL_arg3738z00_1166); 
{ 
obj_t BgL_auxz00_2787;
{ /* ./SawMill/remove.scm 103 */
BgL_objectz00_bglt BgL_auxz00_2788;
BgL_auxz00_2788 = 
(BgL_objectz00_bglt)(BgL_obj3331z00_2055); 
BgL_auxz00_2787 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2788); } 
((((BgL_cregz00_bglt)CREF(BgL_auxz00_2787))->BgL_nbusesz00) = ((obj_t)BgL_val3330z00_2056), BUNSPEC); } } } 
{ /* ./SawMill/remove.scm 104 */
bool_t BgL_test3741z00_1167;
{ /* ./SawMill/remove.scm 104 */
long BgL_auxz00_2792;
BgL_auxz00_2792 = 
(long)CINT(BgL_nz00_1165); 
BgL_test3741z00_1167 = 
(BgL_auxz00_2792==((long)1)); } 
if(BgL_test3741z00_1167)
{ /* ./SawMill/remove.scm 104 */
BgL_unusedz00_6 = 
MAKE_PAIR(BgL_rz00_1164, BgL_unusedz00_6); }  else 
{ /* ./SawMill/remove.scm 104 */BFALSE; } } } } 
{ /* ./SawMill/remove.scm 101 */
obj_t BgL_arg3747z00_1168;
BgL_arg3747z00_1168 = 
CDR(BgL_l3377z00_1160); 
{ 
obj_t BgL_l3377z00_2798;
BgL_l3377z00_2798 = BgL_arg3747z00_1168; 
BgL_l3377z00_1160 = BgL_l3377z00_2798; 
goto BgL_forzd2each3378zd2_1161;} } }  else 
{ /* ./SawMill/remove.scm 101 */((bool_t)1); } } } } } 
{ /* ./SawMill/remove.scm 99 */
obj_t BgL_arg3753z00_1169;
BgL_arg3753z00_1169 = 
CDR(BgL_l3374z00_1153); 
{ 
obj_t BgL_l3374z00_2800;
BgL_l3374z00_2800 = BgL_arg3753z00_1169; 
BgL_l3374z00_1153 = BgL_l3374z00_2800; 
goto BgL_forzd2each3375zd2_1154;} } }  else 
{ /* ./SawMill/remove.scm 99 */((bool_t)1); } } } 
BgL_rmz00_7 = BNIL; 
{ 
obj_t BgL_l3379z00_1170;
BgL_l3379z00_1170 = BgL_unusedz00_6; 
BgL_forzd2each3380zd2_1171:
{ /* ./SawMill/remove.scm 110 */
bool_t BgL_test3758z00_1172;
BgL_test3758z00_1172 = 
PAIRP(BgL_l3379z00_1170); 
if(BgL_test3758z00_1172)
{ /* ./SawMill/remove.scm 110 */
{ /* ./SawMill/remove.scm 111 */
obj_t BgL_rz00_1173;
BgL_rz00_1173 = 
CAR(BgL_l3379z00_1170); 
{ 
obj_t BgL_l3381z00_1174;
{ /* ./SawMill/remove.scm 114 */
obj_t BgL_arg3760z00_1176;
{ /* ./SawMill/remove.scm 114 */
BgL_cregz00_bglt BgL_obj3325z00_2063;
BgL_obj3325z00_2063 = 
(BgL_cregz00_bglt)(BgL_rz00_1173); 
{ 
obj_t BgL_auxz00_2805;
{ /* ./SawMill/remove.scm 114 */
BgL_objectz00_bglt BgL_auxz00_2806;
BgL_auxz00_2806 = 
(BgL_objectz00_bglt)(BgL_obj3325z00_2063); 
BgL_auxz00_2805 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2806); } 
BgL_arg3760z00_1176 = 
(((BgL_cregz00_bglt)CREF(BgL_auxz00_2805))->BgL_defsz00); } } 
BgL_l3381z00_1174 = BgL_arg3760z00_1176; 
BgL_forzd2each3382zd2_1175:
{ /* ./SawMill/remove.scm 111 */
bool_t BgL_test3763z00_1177;
BgL_test3763z00_1177 = 
PAIRP(BgL_l3381z00_1174); 
if(BgL_test3763z00_1177)
{ /* ./SawMill/remove.scm 111 */
{ /* ./SawMill/remove.scm 112 */
obj_t BgL_insz00_1178;
BgL_insz00_1178 = 
CAR(BgL_l3381z00_1174); 
{ /* ./SawMill/remove.scm 112 */
BgL_rtl_insz00_bglt BgL_obj3069z00_2066;obj_t BgL_val3067z00_2067;
BgL_obj3069z00_2066 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1178); 
BgL_val3067z00_2067 = BFALSE; 
((((BgL_rtl_insz00_bglt)CREF(BgL_obj3069z00_2066))->BgL_destz00) = ((obj_t)BgL_val3067z00_2067), BUNSPEC); } 
{ /* ./SawMill/remove.scm 113 */
bool_t BgL_test3765z00_1179;
BgL_test3765z00_1179 = 
BGl_removablezf3zf3zzsaw_removez00(
(BgL_rtl_insz00_bglt)(BgL_insz00_1178)); 
if(BgL_test3765z00_1179)
{ /* ./SawMill/remove.scm 113 */
BgL_rmz00_7 = 
MAKE_PAIR(BgL_insz00_1178, BgL_rmz00_7); }  else 
{ /* ./SawMill/remove.scm 113 */BFALSE; } } } 
{ /* ./SawMill/remove.scm 111 */
obj_t BgL_arg3770z00_1180;
BgL_arg3770z00_1180 = 
CDR(BgL_l3381z00_1174); 
{ 
obj_t BgL_l3381z00_2820;
BgL_l3381z00_2820 = BgL_arg3770z00_1180; 
BgL_l3381z00_1174 = BgL_l3381z00_2820; 
goto BgL_forzd2each3382zd2_1175;} } }  else 
{ /* ./SawMill/remove.scm 111 */((bool_t)1); } } } } } 
{ /* ./SawMill/remove.scm 110 */
obj_t BgL_arg3777z00_1181;
BgL_arg3777z00_1181 = 
CDR(BgL_l3379z00_1170); 
{ 
obj_t BgL_l3379z00_2822;
BgL_l3379z00_2822 = BgL_arg3777z00_1181; 
BgL_l3379z00_1170 = BgL_l3379z00_2822; 
goto BgL_forzd2each3380zd2_1171;} } }  else 
{ /* ./SawMill/remove.scm 110 */((bool_t)1); } } } 
{ /* ./SawMill/remove.scm 117 */
bool_t BgL_test3781z00_1182;
{ /* ./SawMill/remove.scm 117 */
obj_t BgL_objz00_2070;
BgL_objz00_2070 = BgL_rmz00_7; 
BgL_test3781z00_1182 = 
NULLP(BgL_objz00_2070); } 
if(BgL_test3781z00_1182)
{ /* ./SawMill/remove.scm 117 */
return ((bool_t)0);}  else 
{ 
obj_t BgL_unusedz00_2825;
BgL_unusedz00_2825 = BNIL; 
BgL_unusedz00_6 = BgL_unusedz00_2825; 
goto BGl_fixzd2removezd2zzsaw_removez00;} } } 
}



/* removable? */
bool_t BGl_removablezf3zf3zzsaw_removez00(BgL_rtl_insz00_bglt BgL_insz00_8)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 122 */
{ /* ./SawMill/remove.scm 124 */
bool_t BgL__andtest_3385z00_1184;
{ /* ./SawMill/remove.scm 124 */
bool_t BgL_testz00_2826;
{ /* ./SawMill/remove.scm 124 */
obj_t BgL_auxz00_2827;
BgL_auxz00_2827 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_insz00_8))->BgL_destz00); 
BgL_testz00_2826 = 
CBOOL(BgL_auxz00_2827); } 
if(BgL_testz00_2826)
{ /* ./SawMill/remove.scm 124 */
BgL__andtest_3385z00_1184 = ((bool_t)0); }  else 
{ /* ./SawMill/remove.scm 124 */
BgL__andtest_3385z00_1184 = ((bool_t)1); } } 
if(BgL__andtest_3385z00_1184)
{ /* ./SawMill/remove.scm 125 */
BgL_rtl_funz00_bglt BgL_arg3785z00_1185;
BgL_arg3785z00_1185 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_insz00_8))->BgL_funz00); 
{ /* ./SawMill/remove.scm 125 */
obj_t BgL_obj2790z00_2073;
BgL_obj2790z00_2073 = 
(obj_t)(BgL_arg3785z00_1185); 
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2790z00_2073, BGl_rtl_purez00zzsaw_defsz00);} }  else 
{ /* ./SawMill/remove.scm 124 */
return ((bool_t)0);} } } 
}



/* object-init */
obj_t BGl_objectzd2initzd2zzsaw_removez00()
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 1 */
{ /* ./SawMill/remove.scm 7 */
obj_t BgL_arg3791z00_1187;obj_t BgL_arg3792z00_1188;obj_t BgL_arg3796z00_1192;
BgL_arg3791z00_1187 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg3792z00_1188 = BGl_blockz00zzsaw_defsz00; 
{ /* ./SawMill/remove.scm 7 */
obj_t BgL_v3386z00_1193;
{ 
int BgL_auxz00_2835;
BgL_auxz00_2835 = 
(int)(((long)0)); 
BgL_v3386z00_1193 = 
create_vector(BgL_auxz00_2835); } 
BgL_arg3796z00_1192 = BgL_v3386z00_1193; } 
BGl_defcollectz00zzsaw_removez00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3791z00_1187, BgL_arg3792z00_1188, BFALSE, BGl_allocatezd2defcollectzd2envz00zzsaw_removez00, ((long)55349), BNIL, BFALSE, BgL_arg3796z00_1192); } 
{ /* ./SawMill/remove.scm 8 */
obj_t BgL_arg3800z00_1194;obj_t BgL_arg3801z00_1195;obj_t BgL_arg3805z00_1199;
BgL_arg3800z00_1194 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg3801z00_1195 = BGl_blockz00zzsaw_defsz00; 
{ /* ./SawMill/remove.scm 8 */
obj_t BgL_v3387z00_1200;
{ 
int BgL_auxz00_2840;
BgL_auxz00_2840 = 
(int)(((long)0)); 
BgL_v3387z00_1200 = 
create_vector(BgL_auxz00_2840); } 
BgL_arg3805z00_1199 = BgL_v3387z00_1200; } 
BGl_rcollectz00zzsaw_removez00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3800z00_1194, BgL_arg3801z00_1195, BFALSE, BGl_allocatezd2rcollectzd2envz00zzsaw_removez00, ((long)62648), BNIL, BFALSE, BgL_arg3805z00_1199); } 
{ /* ./SawMill/remove.scm 9 */
obj_t BgL_arg3809z00_1201;obj_t BgL_arg3810z00_1202;obj_t BgL_arg3814z00_1206;
BgL_arg3809z00_1201 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg3810z00_1202 = BGl_blockz00zzsaw_defsz00; 
{ /* ./SawMill/remove.scm 9 */
obj_t BgL_v3388z00_1207;
{ 
int BgL_auxz00_2845;
BgL_auxz00_2845 = 
(int)(((long)0)); 
BgL_v3388z00_1207 = 
create_vector(BgL_auxz00_2845); } 
BgL_arg3814z00_1206 = BgL_v3388z00_1207; } 
BGl_ucollectz00zzsaw_removez00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3809z00_1201, BgL_arg3810z00_1202, BFALSE, BGl_allocatezd2ucollectzd2envz00zzsaw_removez00, ((long)59171), BNIL, BFALSE, BgL_arg3814z00_1206); } 
{ /* ./SawMill/remove.scm 10 */
obj_t BgL_arg3818z00_1208;obj_t BgL_arg3819z00_1209;obj_t BgL_arg3823z00_1213;
BgL_arg3818z00_1208 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg3819z00_1209 = BGl_rtl_insz00zzsaw_defsz00; 
{ /* ./SawMill/remove.scm 10 */
obj_t BgL_v3389z00_1214;
{ 
int BgL_auxz00_2850;
BgL_auxz00_2850 = 
(int)(((long)0)); 
BgL_v3389z00_1214 = 
create_vector(BgL_auxz00_2850); } 
BgL_arg3823z00_1213 = BgL_v3389z00_1214; } 
BGl_removedz00zzsaw_removez00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3818z00_1208, BgL_arg3819z00_1209, BFALSE, BGl_allocatezd2removedzd2envz00zzsaw_removez00, ((long)49386), BNIL, BFALSE, BgL_arg3823z00_1213); } 
{ /* ./SawMill/remove.scm 11 */
obj_t BgL_arg3827z00_1215;obj_t BgL_arg3828z00_1216;obj_t BgL_arg3834z00_1220;
BgL_arg3827z00_1215 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg3828z00_1216 = BGl_blockz00zzsaw_defsz00; 
{ /* ./SawMill/remove.scm 11 */
obj_t BgL_v3390z00_1221;
{ 
int BgL_auxz00_2855;
BgL_auxz00_2855 = 
(int)(((long)0)); 
BgL_v3390z00_1221 = 
create_vector(BgL_auxz00_2855); } 
BgL_arg3834z00_1220 = BgL_v3390z00_1221; } 
BGl_visitedz00zzsaw_removez00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3827z00_1215, BgL_arg3828z00_1216, BFALSE, BGl_allocatezd2visitedzd2envz00zzsaw_removez00, ((long)21344), BNIL, BFALSE, BgL_arg3834z00_1220); } 
{ /* ./SawMill/remove.scm 12 */
obj_t BgL_arg3838z00_1222;obj_t BgL_arg3839z00_1223;obj_t BgL_arg3843z00_1227;
BgL_arg3838z00_1222 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg3839z00_1223 = BGl_blockz00zzsaw_defsz00; 
{ /* ./SawMill/remove.scm 12 */
obj_t BgL_v3391z00_1228;
{ 
int BgL_auxz00_2860;
BgL_auxz00_2860 = 
(int)(((long)0)); 
BgL_v3391z00_1228 = 
create_vector(BgL_auxz00_2860); } 
BgL_arg3843z00_1227 = BgL_v3391z00_1228; } 
BGl_bremovedz00zzsaw_removez00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3838z00_1222, BgL_arg3839z00_1223, BFALSE, BGl_allocatezd2bremovedzd2envz00zzsaw_removez00, ((long)1340), BNIL, BFALSE, BgL_arg3843z00_1227); } 
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_arg3847z00_1229;obj_t BgL_arg3848z00_1230;obj_t BgL_arg3852z00_1234;
BgL_arg3847z00_1229 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg3848z00_1230 = BGl_rtl_regz00zzsaw_defsz00; 
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_v3392z00_1235;
{ 
int BgL_auxz00_2865;
BgL_auxz00_2865 = 
(int)(((long)0)); 
BgL_v3392z00_1235 = 
create_vector(BgL_auxz00_2865); } 
BgL_arg3852z00_1234 = BgL_v3392z00_1235; } 
BGl_cregz00zzsaw_removez00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3847z00_1229, BgL_arg3848z00_1230, BFALSE, BGl_allocatezd2cregzd2envz00zzsaw_removez00, ((long)24803), BNIL, BFALSE, BgL_arg3852z00_1234); } 
return BUNSPEC;} 
}



/* _allocate-creg */
obj_t BGl__allocatezd2cregzd2zzsaw_removez00(obj_t BgL_envz00_2290)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 13 */
{ /* ./SawMill/remove.scm 13 */
BgL_rtl_regz00_bglt BgL_auxz00_2869;
{ /* ./SawMill/remove.scm 13 */
BgL_rtl_regz00_bglt BgL_res5233z00_2364;
{ /* ./SawMill/remove.scm 13 */
BgL_rtl_regz00_bglt BgL_new3317z00_2360;
BgL_new3317z00_2360 = 
((BgL_rtl_regz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_rtl_regz00_bgl) ))); 
{ /* ./SawMill/remove.scm 13 */
long BgL_arg3868z00_2361;
BgL_arg3868z00_2361 = 
BGl_classzd2numzd2zz__objectz00(BGl_cregz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 13 */
BgL_objectz00_bglt BgL_objz00_2362;
BgL_objz00_2362 = 
(BgL_objectz00_bglt)(BgL_new3317z00_2360); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2362, BgL_arg3868z00_2361); } } 
{ /* ./SawMill/remove.scm 13 */
BgL_objectz00_bglt BgL_auxz00_2874;
BgL_auxz00_2874 = 
(BgL_objectz00_bglt)(BgL_new3317z00_2360); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2874, BFALSE); } 
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_objz00_2363;
BgL_objz00_2363 = 
(obj_t)(BgL_new3317z00_2360); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2363); BUNSPEC; } 
BgL_res5233z00_2364 = BgL_new3317z00_2360; } 
BgL_auxz00_2869 = BgL_res5233z00_2364; } 
return 
(obj_t)(BgL_auxz00_2869);} } 
}



/* widening-bremoved */
BgL_bremovedz00_bglt BGl_wideningzd2bremovedzd2zzsaw_removez00()
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 12 */
{ /* ./SawMill/remove.scm 12 */
BgL_bremovedz00_bglt BgL_new3271z00_1245;
BgL_new3271z00_1245 = 
((BgL_bremovedz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_bremovedz00_bgl)))); 
return BgL_new3271z00_1245;} } 
}



/* _allocate-bremoved */
obj_t BGl__allocatezd2bremovedzd2zzsaw_removez00(obj_t BgL_envz00_2289)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 12 */
{ /* ./SawMill/remove.scm 12 */
BgL_blockz00_bglt BgL_auxz00_2881;
{ /* ./SawMill/remove.scm 12 */
BgL_blockz00_bglt BgL_res5234z00_2373;
{ /* ./SawMill/remove.scm 12 */
BgL_blockz00_bglt BgL_new3281z00_2369;
BgL_new3281z00_2369 = 
((BgL_blockz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_blockz00_bgl) ))); 
{ /* ./SawMill/remove.scm 12 */
long BgL_arg3891z00_2370;
BgL_arg3891z00_2370 = 
BGl_classzd2numzd2zz__objectz00(BGl_bremovedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 12 */
BgL_objectz00_bglt BgL_objz00_2371;
BgL_objz00_2371 = 
(BgL_objectz00_bglt)(BgL_new3281z00_2369); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2371, BgL_arg3891z00_2370); } } 
{ /* ./SawMill/remove.scm 12 */
BgL_objectz00_bglt BgL_auxz00_2886;
BgL_auxz00_2886 = 
(BgL_objectz00_bglt)(BgL_new3281z00_2369); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2886, BFALSE); } 
{ /* ./SawMill/remove.scm 12 */
obj_t BgL_objz00_2372;
BgL_objz00_2372 = 
(obj_t)(BgL_new3281z00_2369); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2372); BUNSPEC; } 
BgL_res5234z00_2373 = BgL_new3281z00_2369; } 
BgL_auxz00_2881 = BgL_res5234z00_2373; } 
return 
(obj_t)(BgL_auxz00_2881);} } 
}



/* widening-visited */
BgL_visitedz00_bglt BGl_wideningzd2visitedzd2zzsaw_removez00()
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 11 */
{ /* ./SawMill/remove.scm 11 */
BgL_visitedz00_bglt BgL_new3241z00_1252;
BgL_new3241z00_1252 = 
((BgL_visitedz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_visitedz00_bgl)))); 
return BgL_new3241z00_1252;} } 
}



/* _allocate-visited */
obj_t BGl__allocatezd2visitedzd2zzsaw_removez00(obj_t BgL_envz00_2288)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 11 */
{ /* ./SawMill/remove.scm 11 */
BgL_blockz00_bglt BgL_auxz00_2893;
{ /* ./SawMill/remove.scm 11 */
BgL_blockz00_bglt BgL_res5235z00_2382;
{ /* ./SawMill/remove.scm 11 */
BgL_blockz00_bglt BgL_new3251z00_2378;
BgL_new3251z00_2378 = 
((BgL_blockz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_blockz00_bgl) ))); 
{ /* ./SawMill/remove.scm 11 */
long BgL_arg3909z00_2379;
BgL_arg3909z00_2379 = 
BGl_classzd2numzd2zz__objectz00(BGl_visitedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 11 */
BgL_objectz00_bglt BgL_objz00_2380;
BgL_objz00_2380 = 
(BgL_objectz00_bglt)(BgL_new3251z00_2378); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2380, BgL_arg3909z00_2379); } } 
{ /* ./SawMill/remove.scm 11 */
BgL_objectz00_bglt BgL_auxz00_2898;
BgL_auxz00_2898 = 
(BgL_objectz00_bglt)(BgL_new3251z00_2378); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2898, BFALSE); } 
{ /* ./SawMill/remove.scm 11 */
obj_t BgL_objz00_2381;
BgL_objz00_2381 = 
(obj_t)(BgL_new3251z00_2378); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2381); BUNSPEC; } 
BgL_res5235z00_2382 = BgL_new3251z00_2378; } 
BgL_auxz00_2893 = BgL_res5235z00_2382; } 
return 
(obj_t)(BgL_auxz00_2893);} } 
}



/* widening-removed */
BgL_removedz00_bglt BGl_wideningzd2removedzd2zzsaw_removez00()
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 10 */
{ /* ./SawMill/remove.scm 10 */
BgL_removedz00_bglt BgL_new3210z00_1259;
BgL_new3210z00_1259 = 
((BgL_removedz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_removedz00_bgl)))); 
return BgL_new3210z00_1259;} } 
}



/* _allocate-removed */
obj_t BGl__allocatezd2removedzd2zzsaw_removez00(obj_t BgL_envz00_2287)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 10 */
{ /* ./SawMill/remove.scm 10 */
BgL_rtl_insz00_bglt BgL_auxz00_2905;
{ /* ./SawMill/remove.scm 10 */
BgL_rtl_insz00_bglt BgL_res5236z00_2391;
{ /* ./SawMill/remove.scm 10 */
BgL_rtl_insz00_bglt BgL_new3220z00_2387;
BgL_new3220z00_2387 = 
((BgL_rtl_insz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_rtl_insz00_bgl) ))); 
{ /* ./SawMill/remove.scm 10 */
long BgL_arg3927z00_2388;
BgL_arg3927z00_2388 = 
BGl_classzd2numzd2zz__objectz00(BGl_removedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 10 */
BgL_objectz00_bglt BgL_objz00_2389;
BgL_objz00_2389 = 
(BgL_objectz00_bglt)(BgL_new3220z00_2387); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2389, BgL_arg3927z00_2388); } } 
{ /* ./SawMill/remove.scm 10 */
BgL_objectz00_bglt BgL_auxz00_2910;
BgL_auxz00_2910 = 
(BgL_objectz00_bglt)(BgL_new3220z00_2387); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2910, BFALSE); } 
{ /* ./SawMill/remove.scm 10 */
obj_t BgL_objz00_2390;
BgL_objz00_2390 = 
(obj_t)(BgL_new3220z00_2387); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2390); BUNSPEC; } 
BgL_res5236z00_2391 = BgL_new3220z00_2387; } 
BgL_auxz00_2905 = BgL_res5236z00_2391; } 
return 
(obj_t)(BgL_auxz00_2905);} } 
}



/* widening-ucollect */
BgL_ucollectz00_bglt BGl_wideningzd2ucollectzd2zzsaw_removez00()
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 9 */
{ /* ./SawMill/remove.scm 9 */
BgL_ucollectz00_bglt BgL_new3180z00_1266;
BgL_new3180z00_1266 = 
((BgL_ucollectz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_ucollectz00_bgl)))); 
return BgL_new3180z00_1266;} } 
}



/* _allocate-ucollect */
obj_t BGl__allocatezd2ucollectzd2zzsaw_removez00(obj_t BgL_envz00_2286)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 9 */
{ /* ./SawMill/remove.scm 9 */
BgL_blockz00_bglt BgL_auxz00_2917;
{ /* ./SawMill/remove.scm 9 */
BgL_blockz00_bglt BgL_res5237z00_2400;
{ /* ./SawMill/remove.scm 9 */
BgL_blockz00_bglt BgL_new3190z00_2396;
BgL_new3190z00_2396 = 
((BgL_blockz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_blockz00_bgl) ))); 
{ /* ./SawMill/remove.scm 9 */
long BgL_arg3945z00_2397;
BgL_arg3945z00_2397 = 
BGl_classzd2numzd2zz__objectz00(BGl_ucollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 9 */
BgL_objectz00_bglt BgL_objz00_2398;
BgL_objz00_2398 = 
(BgL_objectz00_bglt)(BgL_new3190z00_2396); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2398, BgL_arg3945z00_2397); } } 
{ /* ./SawMill/remove.scm 9 */
BgL_objectz00_bglt BgL_auxz00_2922;
BgL_auxz00_2922 = 
(BgL_objectz00_bglt)(BgL_new3190z00_2396); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2922, BFALSE); } 
{ /* ./SawMill/remove.scm 9 */
obj_t BgL_objz00_2399;
BgL_objz00_2399 = 
(obj_t)(BgL_new3190z00_2396); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2399); BUNSPEC; } 
BgL_res5237z00_2400 = BgL_new3190z00_2396; } 
BgL_auxz00_2917 = BgL_res5237z00_2400; } 
return 
(obj_t)(BgL_auxz00_2917);} } 
}



/* widening-rcollect */
BgL_rcollectz00_bglt BGl_wideningzd2rcollectzd2zzsaw_removez00()
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 8 */
{ /* ./SawMill/remove.scm 8 */
BgL_rcollectz00_bglt BgL_new3150z00_1273;
BgL_new3150z00_1273 = 
((BgL_rcollectz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_rcollectz00_bgl)))); 
return BgL_new3150z00_1273;} } 
}



/* _allocate-rcollect */
obj_t BGl__allocatezd2rcollectzd2zzsaw_removez00(obj_t BgL_envz00_2285)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 8 */
{ /* ./SawMill/remove.scm 8 */
BgL_blockz00_bglt BgL_auxz00_2929;
{ /* ./SawMill/remove.scm 8 */
BgL_blockz00_bglt BgL_res5238z00_2409;
{ /* ./SawMill/remove.scm 8 */
BgL_blockz00_bglt BgL_new3160z00_2405;
BgL_new3160z00_2405 = 
((BgL_blockz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_blockz00_bgl) ))); 
{ /* ./SawMill/remove.scm 8 */
long BgL_arg3963z00_2406;
BgL_arg3963z00_2406 = 
BGl_classzd2numzd2zz__objectz00(BGl_rcollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 8 */
BgL_objectz00_bglt BgL_objz00_2407;
BgL_objz00_2407 = 
(BgL_objectz00_bglt)(BgL_new3160z00_2405); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2407, BgL_arg3963z00_2406); } } 
{ /* ./SawMill/remove.scm 8 */
BgL_objectz00_bglt BgL_auxz00_2934;
BgL_auxz00_2934 = 
(BgL_objectz00_bglt)(BgL_new3160z00_2405); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2934, BFALSE); } 
{ /* ./SawMill/remove.scm 8 */
obj_t BgL_objz00_2408;
BgL_objz00_2408 = 
(obj_t)(BgL_new3160z00_2405); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2408); BUNSPEC; } 
BgL_res5238z00_2409 = BgL_new3160z00_2405; } 
BgL_auxz00_2929 = BgL_res5238z00_2409; } 
return 
(obj_t)(BgL_auxz00_2929);} } 
}



/* widening-defcollect */
BgL_defcollectz00_bglt BGl_wideningzd2defcollectzd2zzsaw_removez00()
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 7 */
{ /* ./SawMill/remove.scm 7 */
BgL_defcollectz00_bglt BgL_new3120z00_1280;
BgL_new3120z00_1280 = 
((BgL_defcollectz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_defcollectz00_bgl)))); 
return BgL_new3120z00_1280;} } 
}



/* _allocate-defcollect */
obj_t BGl__allocatezd2defcollectzd2zzsaw_removez00(obj_t BgL_envz00_2284)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 7 */
{ /* ./SawMill/remove.scm 7 */
BgL_blockz00_bglt BgL_auxz00_2941;
{ /* ./SawMill/remove.scm 7 */
BgL_blockz00_bglt BgL_res5239z00_2418;
{ /* ./SawMill/remove.scm 7 */
BgL_blockz00_bglt BgL_new3130z00_2414;
BgL_new3130z00_2414 = 
((BgL_blockz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_blockz00_bgl) ))); 
{ /* ./SawMill/remove.scm 7 */
long BgL_arg3981z00_2415;
BgL_arg3981z00_2415 = 
BGl_classzd2numzd2zz__objectz00(BGl_defcollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 7 */
BgL_objectz00_bglt BgL_objz00_2416;
BgL_objz00_2416 = 
(BgL_objectz00_bglt)(BgL_new3130z00_2414); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2416, BgL_arg3981z00_2415); } } 
{ /* ./SawMill/remove.scm 7 */
BgL_objectz00_bglt BgL_auxz00_2946;
BgL_auxz00_2946 = 
(BgL_objectz00_bglt)(BgL_new3130z00_2414); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2946, BFALSE); } 
{ /* ./SawMill/remove.scm 7 */
obj_t BgL_objz00_2417;
BgL_objz00_2417 = 
(obj_t)(BgL_new3130z00_2414); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2417); BUNSPEC; } 
BgL_res5239z00_2418 = BgL_new3130z00_2414; } 
BgL_auxz00_2941 = BgL_res5239z00_2418; } 
return 
(obj_t)(BgL_auxz00_2941);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzsaw_removez00()
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 1 */
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cregz00zzsaw_removez00, BGl_proc5203z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cregz00zzsaw_removez00, BGl_proc5204z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_bremovedz00zzsaw_removez00, BGl_proc5205z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_bremovedz00zzsaw_removez00, BGl_proc5206z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_visitedz00zzsaw_removez00, BGl_proc5207z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_visitedz00zzsaw_removez00, BGl_proc5208z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_removedz00zzsaw_removez00, BGl_proc5209z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_removedz00zzsaw_removez00, BGl_proc5210z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_ucollectz00zzsaw_removez00, BGl_proc5211z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_ucollectz00zzsaw_removez00, BGl_proc5212z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_rcollectz00zzsaw_removez00, BGl_proc5213z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_rcollectz00zzsaw_removez00, BGl_proc5214z00zzsaw_removez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_defcollectz00zzsaw_removez00, BGl_proc5215z00zzsaw_removez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_defcollectz00zzsaw_removez00, BGl_proc5216z00zzsaw_removez00);} 
}



/* struct+object->object-defcollect3425 */
obj_t BGl_structzb2objectzd2ze3objectzd2defcollect3425z51zzsaw_removez00(obj_t BgL_envz00_2310, obj_t BgL_oz00_2311, obj_t BgL_sz00_2312)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 7 */
{ 
BgL_defcollectz00_bglt BgL_oz00_1909;obj_t BgL_sz00_1910;
{ /* ./SawMill/remove.scm 7 */
BgL_defcollectz00_bglt BgL_auxz00_2966;
BgL_oz00_1909 = 
(BgL_defcollectz00_bglt)(BgL_oz00_2311); 
BgL_sz00_1910 = BgL_sz00_2312; 
{ 

{ /* ./SawMill/remove.scm 7 */
obj_t BgL_old3134z00_1913;
{ /* ./SawMill/remove.scm 7 */
obj_t BgL_nextzd2method3424zd2_1918;
BgL_nextzd2method3424zd2_1918 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1909), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_defcollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 7 */
bool_t BgL_test4852z00_1919;
BgL_test4852z00_1919 = 
PROCEDUREP(BgL_nextzd2method3424zd2_1918); 
if(BgL_test4852z00_1919)
{ /* ./SawMill/remove.scm 7 */
BgL_old3134z00_1913 = 
PROCEDURE_ENTRY(BgL_nextzd2method3424zd2_1918)(BgL_nextzd2method3424zd2_1918, 
(obj_t)(BgL_oz00_1909), BgL_sz00_1910, BEOA); }  else 
{ /* ./SawMill/remove.scm 7 */
{ /* ./SawMill/remove.scm 7 */
BgL_objectz00_bglt BgL_auxz00_2974;
BgL_auxz00_2974 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1909), BgL_sz00_1910); 
BgL_old3134z00_1913 = 
(obj_t)(BgL_auxz00_2974); } } } } 
{ /* ./SawMill/remove.scm 7 */
BgL_defcollectz00_bglt BgL_new3136z00_1915;
BgL_new3136z00_1915 = 
((BgL_defcollectz00_bglt)(BgL_old3134z00_1913)); 
{ /* ./SawMill/remove.scm 7 */
long BgL_arg4842z00_1916;
BgL_arg4842z00_1916 = 
BGl_classzd2numzd2zz__objectz00(BGl_defcollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 7 */
BgL_objectz00_bglt BgL_objz00_2275;
BgL_objz00_2275 = 
(BgL_objectz00_bglt)(BgL_new3136z00_1915); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2275, BgL_arg4842z00_1916); } } 
{ /* ./SawMill/remove.scm 7 */
BgL_defcollectz00_bglt BgL_arg4846z00_1917;
BgL_arg4846z00_1917 = 
BGl_wideningzd2defcollectzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 7 */
obj_t BgL_auxz00_2985;BgL_objectz00_bglt BgL_auxz00_2983;
BgL_auxz00_2985 = 
(obj_t)(BgL_arg4846z00_1917); 
BgL_auxz00_2983 = 
(BgL_objectz00_bglt)(BgL_new3136z00_1915); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2983, BgL_auxz00_2985); } } 
{ /* ./SawMill/remove.scm 7 */
obj_t BgL_objz00_2277;
BgL_objz00_2277 = 
(obj_t)(BgL_new3136z00_1915); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2277); BUNSPEC; } 
BgL_auxz00_2966 = BgL_new3136z00_1915; } } } 
return 
(obj_t)(BgL_auxz00_2966);} } } 
}



/* object->struct-defcollect3422 */
obj_t BGl_objectzd2ze3structzd2defcollect3422ze3zzsaw_removez00(obj_t BgL_envz00_2313, obj_t BgL_obj3131z00_2314)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 7 */
{ 
BgL_defcollectz00_bglt BgL_obj3131z00_1901;
BgL_obj3131z00_1901 = 
(BgL_defcollectz00_bglt)(BgL_obj3131z00_2314); 
{ 

{ /* ./SawMill/remove.scm 7 */
obj_t BgL_res3132z00_1904;
{ /* ./SawMill/remove.scm 7 */
obj_t BgL_nextzd2method3421zd2_1907;
BgL_nextzd2method3421zd2_1907 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3131z00_1901), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_defcollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 7 */
bool_t BgL_test4834z00_1908;
BgL_test4834z00_1908 = 
PROCEDUREP(BgL_nextzd2method3421zd2_1907); 
if(BgL_test4834z00_1908)
{ /* ./SawMill/remove.scm 7 */
BgL_res3132z00_1904 = 
PROCEDURE_ENTRY(BgL_nextzd2method3421zd2_1907)(BgL_nextzd2method3421zd2_1907, 
(obj_t)(BgL_obj3131z00_1901), BEOA); }  else 
{ /* ./SawMill/remove.scm 7 */
BgL_res3132z00_1904 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3131z00_1901)); } } } 
{ /* ./SawMill/remove.scm 7 */
obj_t BgL_aux3133z00_1905;
{ /* ./SawMill/remove.scm 7 */
obj_t BgL_keyz00_2260;int BgL_lenz00_2261;
BgL_keyz00_2260 = 
CNST_TABLE_REF(((long)1)); 
BgL_lenz00_2261 = 
(int)(((long)0)); 
BgL_aux3133z00_1905 = 
make_struct(BgL_keyz00_2260, BgL_lenz00_2261, BUNSPEC); } 
{ /* ./SawMill/remove.scm 7 */
int BgL_kz00_2264;
BgL_kz00_2264 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3132z00_1904, BgL_kz00_2264, BgL_aux3133z00_1905); } 
{ /* ./SawMill/remove.scm 7 */
obj_t BgL_arg4828z00_1906;
BgL_arg4828z00_1906 = 
STRUCT_KEY(BgL_res3132z00_1904); 
STRUCT_KEY_SET(BgL_aux3133z00_1905, BgL_arg4828z00_1906); } 
{ /* ./SawMill/remove.scm 7 */
obj_t BgL_kz00_2271;
BgL_kz00_2271 = 
CNST_TABLE_REF(((long)1)); 
STRUCT_KEY_SET(BgL_res3132z00_1904, BgL_kz00_2271); } 
return BgL_res3132z00_1904;} } } } } 
}



/* struct+object->object-rcollect3419 */
obj_t BGl_structzb2objectzd2ze3objectzd2rcollect3419z51zzsaw_removez00(obj_t BgL_envz00_2315, obj_t BgL_oz00_2316, obj_t BgL_sz00_2317)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 8 */
{ 
BgL_rcollectz00_bglt BgL_oz00_1890;obj_t BgL_sz00_1891;
{ /* ./SawMill/remove.scm 8 */
BgL_rcollectz00_bglt BgL_auxz00_3011;
BgL_oz00_1890 = 
(BgL_rcollectz00_bglt)(BgL_oz00_2316); 
BgL_sz00_1891 = BgL_sz00_2317; 
{ 

{ /* ./SawMill/remove.scm 8 */
obj_t BgL_old3164z00_1894;
{ /* ./SawMill/remove.scm 8 */
obj_t BgL_nextzd2method3418zd2_1899;
BgL_nextzd2method3418zd2_1899 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1890), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_rcollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 8 */
bool_t BgL_test4820z00_1900;
BgL_test4820z00_1900 = 
PROCEDUREP(BgL_nextzd2method3418zd2_1899); 
if(BgL_test4820z00_1900)
{ /* ./SawMill/remove.scm 8 */
BgL_old3164z00_1894 = 
PROCEDURE_ENTRY(BgL_nextzd2method3418zd2_1899)(BgL_nextzd2method3418zd2_1899, 
(obj_t)(BgL_oz00_1890), BgL_sz00_1891, BEOA); }  else 
{ /* ./SawMill/remove.scm 8 */
{ /* ./SawMill/remove.scm 8 */
BgL_objectz00_bglt BgL_auxz00_3019;
BgL_auxz00_3019 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1890), BgL_sz00_1891); 
BgL_old3164z00_1894 = 
(obj_t)(BgL_auxz00_3019); } } } } 
{ /* ./SawMill/remove.scm 8 */
BgL_rcollectz00_bglt BgL_new3166z00_1896;
BgL_new3166z00_1896 = 
((BgL_rcollectz00_bglt)(BgL_old3164z00_1894)); 
{ /* ./SawMill/remove.scm 8 */
long BgL_arg4810z00_1897;
BgL_arg4810z00_1897 = 
BGl_classzd2numzd2zz__objectz00(BGl_rcollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 8 */
BgL_objectz00_bglt BgL_objz00_2256;
BgL_objz00_2256 = 
(BgL_objectz00_bglt)(BgL_new3166z00_1896); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2256, BgL_arg4810z00_1897); } } 
{ /* ./SawMill/remove.scm 8 */
BgL_rcollectz00_bglt BgL_arg4814z00_1898;
BgL_arg4814z00_1898 = 
BGl_wideningzd2rcollectzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 8 */
obj_t BgL_auxz00_3030;BgL_objectz00_bglt BgL_auxz00_3028;
BgL_auxz00_3030 = 
(obj_t)(BgL_arg4814z00_1898); 
BgL_auxz00_3028 = 
(BgL_objectz00_bglt)(BgL_new3166z00_1896); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3028, BgL_auxz00_3030); } } 
{ /* ./SawMill/remove.scm 8 */
obj_t BgL_objz00_2258;
BgL_objz00_2258 = 
(obj_t)(BgL_new3166z00_1896); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2258); BUNSPEC; } 
BgL_auxz00_3011 = BgL_new3166z00_1896; } } } 
return 
(obj_t)(BgL_auxz00_3011);} } } 
}



/* object->struct-rcollect3417 */
obj_t BGl_objectzd2ze3structzd2rcollect3417ze3zzsaw_removez00(obj_t BgL_envz00_2318, obj_t BgL_obj3161z00_2319)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 8 */
{ 
BgL_rcollectz00_bglt BgL_obj3161z00_1882;
BgL_obj3161z00_1882 = 
(BgL_rcollectz00_bglt)(BgL_obj3161z00_2319); 
{ 

{ /* ./SawMill/remove.scm 8 */
obj_t BgL_res3162z00_1885;
{ /* ./SawMill/remove.scm 8 */
obj_t BgL_nextzd2method3416zd2_1888;
BgL_nextzd2method3416zd2_1888 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3161z00_1882), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_rcollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 8 */
bool_t BgL_test4803z00_1889;
BgL_test4803z00_1889 = 
PROCEDUREP(BgL_nextzd2method3416zd2_1888); 
if(BgL_test4803z00_1889)
{ /* ./SawMill/remove.scm 8 */
BgL_res3162z00_1885 = 
PROCEDURE_ENTRY(BgL_nextzd2method3416zd2_1888)(BgL_nextzd2method3416zd2_1888, 
(obj_t)(BgL_obj3161z00_1882), BEOA); }  else 
{ /* ./SawMill/remove.scm 8 */
BgL_res3162z00_1885 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3161z00_1882)); } } } 
{ /* ./SawMill/remove.scm 8 */
obj_t BgL_aux3163z00_1886;
{ /* ./SawMill/remove.scm 8 */
obj_t BgL_keyz00_2241;int BgL_lenz00_2242;
BgL_keyz00_2241 = 
CNST_TABLE_REF(((long)2)); 
BgL_lenz00_2242 = 
(int)(((long)0)); 
BgL_aux3163z00_1886 = 
make_struct(BgL_keyz00_2241, BgL_lenz00_2242, BUNSPEC); } 
{ /* ./SawMill/remove.scm 8 */
int BgL_kz00_2245;
BgL_kz00_2245 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3162z00_1885, BgL_kz00_2245, BgL_aux3163z00_1886); } 
{ /* ./SawMill/remove.scm 8 */
obj_t BgL_arg4797z00_1887;
BgL_arg4797z00_1887 = 
STRUCT_KEY(BgL_res3162z00_1885); 
STRUCT_KEY_SET(BgL_aux3163z00_1886, BgL_arg4797z00_1887); } 
{ /* ./SawMill/remove.scm 8 */
obj_t BgL_kz00_2252;
BgL_kz00_2252 = 
CNST_TABLE_REF(((long)2)); 
STRUCT_KEY_SET(BgL_res3162z00_1885, BgL_kz00_2252); } 
return BgL_res3162z00_1885;} } } } } 
}



/* struct+object->object-ucollect3415 */
obj_t BGl_structzb2objectzd2ze3objectzd2ucollect3415z51zzsaw_removez00(obj_t BgL_envz00_2320, obj_t BgL_oz00_2321, obj_t BgL_sz00_2322)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 9 */
{ 
BgL_ucollectz00_bglt BgL_oz00_1871;obj_t BgL_sz00_1872;
{ /* ./SawMill/remove.scm 9 */
BgL_ucollectz00_bglt BgL_auxz00_3056;
BgL_oz00_1871 = 
(BgL_ucollectz00_bglt)(BgL_oz00_2321); 
BgL_sz00_1872 = BgL_sz00_2322; 
{ 

{ /* ./SawMill/remove.scm 9 */
obj_t BgL_old3194z00_1875;
{ /* ./SawMill/remove.scm 9 */
obj_t BgL_nextzd2method3414zd2_1880;
BgL_nextzd2method3414zd2_1880 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1871), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_ucollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 9 */
bool_t BgL_test4789z00_1881;
BgL_test4789z00_1881 = 
PROCEDUREP(BgL_nextzd2method3414zd2_1880); 
if(BgL_test4789z00_1881)
{ /* ./SawMill/remove.scm 9 */
BgL_old3194z00_1875 = 
PROCEDURE_ENTRY(BgL_nextzd2method3414zd2_1880)(BgL_nextzd2method3414zd2_1880, 
(obj_t)(BgL_oz00_1871), BgL_sz00_1872, BEOA); }  else 
{ /* ./SawMill/remove.scm 9 */
{ /* ./SawMill/remove.scm 9 */
BgL_objectz00_bglt BgL_auxz00_3064;
BgL_auxz00_3064 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1871), BgL_sz00_1872); 
BgL_old3194z00_1875 = 
(obj_t)(BgL_auxz00_3064); } } } } 
{ /* ./SawMill/remove.scm 9 */
BgL_ucollectz00_bglt BgL_new3196z00_1877;
BgL_new3196z00_1877 = 
((BgL_ucollectz00_bglt)(BgL_old3194z00_1875)); 
{ /* ./SawMill/remove.scm 9 */
long BgL_arg4779z00_1878;
BgL_arg4779z00_1878 = 
BGl_classzd2numzd2zz__objectz00(BGl_ucollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 9 */
BgL_objectz00_bglt BgL_objz00_2237;
BgL_objz00_2237 = 
(BgL_objectz00_bglt)(BgL_new3196z00_1877); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2237, BgL_arg4779z00_1878); } } 
{ /* ./SawMill/remove.scm 9 */
BgL_ucollectz00_bglt BgL_arg4783z00_1879;
BgL_arg4783z00_1879 = 
BGl_wideningzd2ucollectzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 9 */
obj_t BgL_auxz00_3075;BgL_objectz00_bglt BgL_auxz00_3073;
BgL_auxz00_3075 = 
(obj_t)(BgL_arg4783z00_1879); 
BgL_auxz00_3073 = 
(BgL_objectz00_bglt)(BgL_new3196z00_1877); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3073, BgL_auxz00_3075); } } 
{ /* ./SawMill/remove.scm 9 */
obj_t BgL_objz00_2239;
BgL_objz00_2239 = 
(obj_t)(BgL_new3196z00_1877); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2239); BUNSPEC; } 
BgL_auxz00_3056 = BgL_new3196z00_1877; } } } 
return 
(obj_t)(BgL_auxz00_3056);} } } 
}



/* object->struct-ucollect3412 */
obj_t BGl_objectzd2ze3structzd2ucollect3412ze3zzsaw_removez00(obj_t BgL_envz00_2323, obj_t BgL_obj3191z00_2324)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 9 */
{ 
BgL_ucollectz00_bglt BgL_obj3191z00_1863;
BgL_obj3191z00_1863 = 
(BgL_ucollectz00_bglt)(BgL_obj3191z00_2324); 
{ 

{ /* ./SawMill/remove.scm 9 */
obj_t BgL_res3192z00_1866;
{ /* ./SawMill/remove.scm 9 */
obj_t BgL_nextzd2method3411zd2_1869;
BgL_nextzd2method3411zd2_1869 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3191z00_1863), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_ucollectz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 9 */
bool_t BgL_test4772z00_1870;
BgL_test4772z00_1870 = 
PROCEDUREP(BgL_nextzd2method3411zd2_1869); 
if(BgL_test4772z00_1870)
{ /* ./SawMill/remove.scm 9 */
BgL_res3192z00_1866 = 
PROCEDURE_ENTRY(BgL_nextzd2method3411zd2_1869)(BgL_nextzd2method3411zd2_1869, 
(obj_t)(BgL_obj3191z00_1863), BEOA); }  else 
{ /* ./SawMill/remove.scm 9 */
BgL_res3192z00_1866 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3191z00_1863)); } } } 
{ /* ./SawMill/remove.scm 9 */
obj_t BgL_aux3193z00_1867;
{ /* ./SawMill/remove.scm 9 */
obj_t BgL_keyz00_2222;int BgL_lenz00_2223;
BgL_keyz00_2222 = 
CNST_TABLE_REF(((long)3)); 
BgL_lenz00_2223 = 
(int)(((long)0)); 
BgL_aux3193z00_1867 = 
make_struct(BgL_keyz00_2222, BgL_lenz00_2223, BUNSPEC); } 
{ /* ./SawMill/remove.scm 9 */
int BgL_kz00_2226;
BgL_kz00_2226 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3192z00_1866, BgL_kz00_2226, BgL_aux3193z00_1867); } 
{ /* ./SawMill/remove.scm 9 */
obj_t BgL_arg4766z00_1868;
BgL_arg4766z00_1868 = 
STRUCT_KEY(BgL_res3192z00_1866); 
STRUCT_KEY_SET(BgL_aux3193z00_1867, BgL_arg4766z00_1868); } 
{ /* ./SawMill/remove.scm 9 */
obj_t BgL_kz00_2233;
BgL_kz00_2233 = 
CNST_TABLE_REF(((long)3)); 
STRUCT_KEY_SET(BgL_res3192z00_1866, BgL_kz00_2233); } 
return BgL_res3192z00_1866;} } } } } 
}



/* struct+object->object-removed3410 */
obj_t BGl_structzb2objectzd2ze3objectzd2removed3410z51zzsaw_removez00(obj_t BgL_envz00_2325, obj_t BgL_oz00_2326, obj_t BgL_sz00_2327)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 10 */
{ 
BgL_removedz00_bglt BgL_oz00_1852;obj_t BgL_sz00_1853;
{ /* ./SawMill/remove.scm 10 */
BgL_removedz00_bglt BgL_auxz00_3101;
BgL_oz00_1852 = 
(BgL_removedz00_bglt)(BgL_oz00_2326); 
BgL_sz00_1853 = BgL_sz00_2327; 
{ 

{ /* ./SawMill/remove.scm 10 */
obj_t BgL_old3225z00_1856;
{ /* ./SawMill/remove.scm 10 */
obj_t BgL_nextzd2method3409zd2_1861;
BgL_nextzd2method3409zd2_1861 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1852), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_removedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 10 */
bool_t BgL_test4758z00_1862;
BgL_test4758z00_1862 = 
PROCEDUREP(BgL_nextzd2method3409zd2_1861); 
if(BgL_test4758z00_1862)
{ /* ./SawMill/remove.scm 10 */
BgL_old3225z00_1856 = 
PROCEDURE_ENTRY(BgL_nextzd2method3409zd2_1861)(BgL_nextzd2method3409zd2_1861, 
(obj_t)(BgL_oz00_1852), BgL_sz00_1853, BEOA); }  else 
{ /* ./SawMill/remove.scm 10 */
{ /* ./SawMill/remove.scm 10 */
BgL_objectz00_bglt BgL_auxz00_3109;
BgL_auxz00_3109 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1852), BgL_sz00_1853); 
BgL_old3225z00_1856 = 
(obj_t)(BgL_auxz00_3109); } } } } 
{ /* ./SawMill/remove.scm 10 */
BgL_removedz00_bglt BgL_new3227z00_1858;
BgL_new3227z00_1858 = 
((BgL_removedz00_bglt)(BgL_old3225z00_1856)); 
{ /* ./SawMill/remove.scm 10 */
long BgL_arg4748z00_1859;
BgL_arg4748z00_1859 = 
BGl_classzd2numzd2zz__objectz00(BGl_removedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 10 */
BgL_objectz00_bglt BgL_objz00_2218;
BgL_objz00_2218 = 
(BgL_objectz00_bglt)(BgL_new3227z00_1858); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2218, BgL_arg4748z00_1859); } } 
{ /* ./SawMill/remove.scm 10 */
BgL_removedz00_bglt BgL_arg4752z00_1860;
BgL_arg4752z00_1860 = 
BGl_wideningzd2removedzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 10 */
obj_t BgL_auxz00_3120;BgL_objectz00_bglt BgL_auxz00_3118;
BgL_auxz00_3120 = 
(obj_t)(BgL_arg4752z00_1860); 
BgL_auxz00_3118 = 
(BgL_objectz00_bglt)(BgL_new3227z00_1858); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3118, BgL_auxz00_3120); } } 
{ /* ./SawMill/remove.scm 10 */
obj_t BgL_objz00_2220;
BgL_objz00_2220 = 
(obj_t)(BgL_new3227z00_1858); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2220); BUNSPEC; } 
BgL_auxz00_3101 = BgL_new3227z00_1858; } } } 
return 
(obj_t)(BgL_auxz00_3101);} } } 
}



/* object->struct-removed3408 */
obj_t BGl_objectzd2ze3structzd2removed3408ze3zzsaw_removez00(obj_t BgL_envz00_2328, obj_t BgL_obj3222z00_2329)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 10 */
{ 
BgL_removedz00_bglt BgL_obj3222z00_1844;
BgL_obj3222z00_1844 = 
(BgL_removedz00_bglt)(BgL_obj3222z00_2329); 
{ 

{ /* ./SawMill/remove.scm 10 */
obj_t BgL_res3223z00_1847;
{ /* ./SawMill/remove.scm 10 */
obj_t BgL_nextzd2method3407zd2_1850;
BgL_nextzd2method3407zd2_1850 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3222z00_1844), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_removedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 10 */
bool_t BgL_test4741z00_1851;
BgL_test4741z00_1851 = 
PROCEDUREP(BgL_nextzd2method3407zd2_1850); 
if(BgL_test4741z00_1851)
{ /* ./SawMill/remove.scm 10 */
BgL_res3223z00_1847 = 
PROCEDURE_ENTRY(BgL_nextzd2method3407zd2_1850)(BgL_nextzd2method3407zd2_1850, 
(obj_t)(BgL_obj3222z00_1844), BEOA); }  else 
{ /* ./SawMill/remove.scm 10 */
BgL_res3223z00_1847 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3222z00_1844)); } } } 
{ /* ./SawMill/remove.scm 10 */
obj_t BgL_aux3224z00_1848;
{ /* ./SawMill/remove.scm 10 */
obj_t BgL_keyz00_2203;int BgL_lenz00_2204;
BgL_keyz00_2203 = 
CNST_TABLE_REF(((long)4)); 
BgL_lenz00_2204 = 
(int)(((long)0)); 
BgL_aux3224z00_1848 = 
make_struct(BgL_keyz00_2203, BgL_lenz00_2204, BUNSPEC); } 
{ /* ./SawMill/remove.scm 10 */
int BgL_kz00_2207;
BgL_kz00_2207 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3223z00_1847, BgL_kz00_2207, BgL_aux3224z00_1848); } 
{ /* ./SawMill/remove.scm 10 */
obj_t BgL_arg4735z00_1849;
BgL_arg4735z00_1849 = 
STRUCT_KEY(BgL_res3223z00_1847); 
STRUCT_KEY_SET(BgL_aux3224z00_1848, BgL_arg4735z00_1849); } 
{ /* ./SawMill/remove.scm 10 */
obj_t BgL_kz00_2214;
BgL_kz00_2214 = 
CNST_TABLE_REF(((long)4)); 
STRUCT_KEY_SET(BgL_res3223z00_1847, BgL_kz00_2214); } 
return BgL_res3223z00_1847;} } } } } 
}



/* struct+object->object-visited3405 */
obj_t BGl_structzb2objectzd2ze3objectzd2visited3405z51zzsaw_removez00(obj_t BgL_envz00_2330, obj_t BgL_oz00_2331, obj_t BgL_sz00_2332)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 11 */
{ 
BgL_visitedz00_bglt BgL_oz00_1833;obj_t BgL_sz00_1834;
{ /* ./SawMill/remove.scm 11 */
BgL_visitedz00_bglt BgL_auxz00_3146;
BgL_oz00_1833 = 
(BgL_visitedz00_bglt)(BgL_oz00_2331); 
BgL_sz00_1834 = BgL_sz00_2332; 
{ 

{ /* ./SawMill/remove.scm 11 */
obj_t BgL_old3255z00_1837;
{ /* ./SawMill/remove.scm 11 */
obj_t BgL_nextzd2method3404zd2_1842;
BgL_nextzd2method3404zd2_1842 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1833), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_visitedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 11 */
bool_t BgL_test4727z00_1843;
BgL_test4727z00_1843 = 
PROCEDUREP(BgL_nextzd2method3404zd2_1842); 
if(BgL_test4727z00_1843)
{ /* ./SawMill/remove.scm 11 */
BgL_old3255z00_1837 = 
PROCEDURE_ENTRY(BgL_nextzd2method3404zd2_1842)(BgL_nextzd2method3404zd2_1842, 
(obj_t)(BgL_oz00_1833), BgL_sz00_1834, BEOA); }  else 
{ /* ./SawMill/remove.scm 11 */
{ /* ./SawMill/remove.scm 11 */
BgL_objectz00_bglt BgL_auxz00_3154;
BgL_auxz00_3154 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1833), BgL_sz00_1834); 
BgL_old3255z00_1837 = 
(obj_t)(BgL_auxz00_3154); } } } } 
{ /* ./SawMill/remove.scm 11 */
BgL_visitedz00_bglt BgL_new3257z00_1839;
BgL_new3257z00_1839 = 
((BgL_visitedz00_bglt)(BgL_old3255z00_1837)); 
{ /* ./SawMill/remove.scm 11 */
long BgL_arg4717z00_1840;
BgL_arg4717z00_1840 = 
BGl_classzd2numzd2zz__objectz00(BGl_visitedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 11 */
BgL_objectz00_bglt BgL_objz00_2199;
BgL_objz00_2199 = 
(BgL_objectz00_bglt)(BgL_new3257z00_1839); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2199, BgL_arg4717z00_1840); } } 
{ /* ./SawMill/remove.scm 11 */
BgL_visitedz00_bglt BgL_arg4721z00_1841;
BgL_arg4721z00_1841 = 
BGl_wideningzd2visitedzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 11 */
obj_t BgL_auxz00_3165;BgL_objectz00_bglt BgL_auxz00_3163;
BgL_auxz00_3165 = 
(obj_t)(BgL_arg4721z00_1841); 
BgL_auxz00_3163 = 
(BgL_objectz00_bglt)(BgL_new3257z00_1839); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3163, BgL_auxz00_3165); } } 
{ /* ./SawMill/remove.scm 11 */
obj_t BgL_objz00_2201;
BgL_objz00_2201 = 
(obj_t)(BgL_new3257z00_1839); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2201); BUNSPEC; } 
BgL_auxz00_3146 = BgL_new3257z00_1839; } } } 
return 
(obj_t)(BgL_auxz00_3146);} } } 
}



/* object->struct-visited3403 */
obj_t BGl_objectzd2ze3structzd2visited3403ze3zzsaw_removez00(obj_t BgL_envz00_2333, obj_t BgL_obj3252z00_2334)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 11 */
{ 
BgL_visitedz00_bglt BgL_obj3252z00_1825;
BgL_obj3252z00_1825 = 
(BgL_visitedz00_bglt)(BgL_obj3252z00_2334); 
{ 

{ /* ./SawMill/remove.scm 11 */
obj_t BgL_res3253z00_1828;
{ /* ./SawMill/remove.scm 11 */
obj_t BgL_nextzd2method3402zd2_1831;
BgL_nextzd2method3402zd2_1831 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3252z00_1825), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_visitedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 11 */
bool_t BgL_test4710z00_1832;
BgL_test4710z00_1832 = 
PROCEDUREP(BgL_nextzd2method3402zd2_1831); 
if(BgL_test4710z00_1832)
{ /* ./SawMill/remove.scm 11 */
BgL_res3253z00_1828 = 
PROCEDURE_ENTRY(BgL_nextzd2method3402zd2_1831)(BgL_nextzd2method3402zd2_1831, 
(obj_t)(BgL_obj3252z00_1825), BEOA); }  else 
{ /* ./SawMill/remove.scm 11 */
BgL_res3253z00_1828 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3252z00_1825)); } } } 
{ /* ./SawMill/remove.scm 11 */
obj_t BgL_aux3254z00_1829;
{ /* ./SawMill/remove.scm 11 */
obj_t BgL_keyz00_2184;int BgL_lenz00_2185;
BgL_keyz00_2184 = 
CNST_TABLE_REF(((long)5)); 
BgL_lenz00_2185 = 
(int)(((long)0)); 
BgL_aux3254z00_1829 = 
make_struct(BgL_keyz00_2184, BgL_lenz00_2185, BUNSPEC); } 
{ /* ./SawMill/remove.scm 11 */
int BgL_kz00_2188;
BgL_kz00_2188 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3253z00_1828, BgL_kz00_2188, BgL_aux3254z00_1829); } 
{ /* ./SawMill/remove.scm 11 */
obj_t BgL_arg4704z00_1830;
BgL_arg4704z00_1830 = 
STRUCT_KEY(BgL_res3253z00_1828); 
STRUCT_KEY_SET(BgL_aux3254z00_1829, BgL_arg4704z00_1830); } 
{ /* ./SawMill/remove.scm 11 */
obj_t BgL_kz00_2195;
BgL_kz00_2195 = 
CNST_TABLE_REF(((long)5)); 
STRUCT_KEY_SET(BgL_res3253z00_1828, BgL_kz00_2195); } 
return BgL_res3253z00_1828;} } } } } 
}



/* struct+object->object-bremoved3400 */
obj_t BGl_structzb2objectzd2ze3objectzd2bremoved3400z51zzsaw_removez00(obj_t BgL_envz00_2335, obj_t BgL_oz00_2336, obj_t BgL_sz00_2337)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 12 */
{ 
BgL_bremovedz00_bglt BgL_oz00_1814;obj_t BgL_sz00_1815;
{ /* ./SawMill/remove.scm 12 */
BgL_bremovedz00_bglt BgL_auxz00_3191;
BgL_oz00_1814 = 
(BgL_bremovedz00_bglt)(BgL_oz00_2336); 
BgL_sz00_1815 = BgL_sz00_2337; 
{ 

{ /* ./SawMill/remove.scm 12 */
obj_t BgL_old3285z00_1818;
{ /* ./SawMill/remove.scm 12 */
obj_t BgL_nextzd2method3399zd2_1823;
BgL_nextzd2method3399zd2_1823 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1814), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_bremovedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 12 */
bool_t BgL_test4696z00_1824;
BgL_test4696z00_1824 = 
PROCEDUREP(BgL_nextzd2method3399zd2_1823); 
if(BgL_test4696z00_1824)
{ /* ./SawMill/remove.scm 12 */
BgL_old3285z00_1818 = 
PROCEDURE_ENTRY(BgL_nextzd2method3399zd2_1823)(BgL_nextzd2method3399zd2_1823, 
(obj_t)(BgL_oz00_1814), BgL_sz00_1815, BEOA); }  else 
{ /* ./SawMill/remove.scm 12 */
{ /* ./SawMill/remove.scm 12 */
BgL_objectz00_bglt BgL_auxz00_3199;
BgL_auxz00_3199 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1814), BgL_sz00_1815); 
BgL_old3285z00_1818 = 
(obj_t)(BgL_auxz00_3199); } } } } 
{ /* ./SawMill/remove.scm 12 */
BgL_bremovedz00_bglt BgL_new3287z00_1820;
BgL_new3287z00_1820 = 
((BgL_bremovedz00_bglt)(BgL_old3285z00_1818)); 
{ /* ./SawMill/remove.scm 12 */
long BgL_arg4686z00_1821;
BgL_arg4686z00_1821 = 
BGl_classzd2numzd2zz__objectz00(BGl_bremovedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 12 */
BgL_objectz00_bglt BgL_objz00_2180;
BgL_objz00_2180 = 
(BgL_objectz00_bglt)(BgL_new3287z00_1820); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2180, BgL_arg4686z00_1821); } } 
{ /* ./SawMill/remove.scm 12 */
BgL_bremovedz00_bglt BgL_arg4690z00_1822;
BgL_arg4690z00_1822 = 
BGl_wideningzd2bremovedzd2zzsaw_removez00(); 
{ /* ./SawMill/remove.scm 12 */
obj_t BgL_auxz00_3210;BgL_objectz00_bglt BgL_auxz00_3208;
BgL_auxz00_3210 = 
(obj_t)(BgL_arg4690z00_1822); 
BgL_auxz00_3208 = 
(BgL_objectz00_bglt)(BgL_new3287z00_1820); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3208, BgL_auxz00_3210); } } 
{ /* ./SawMill/remove.scm 12 */
obj_t BgL_objz00_2182;
BgL_objz00_2182 = 
(obj_t)(BgL_new3287z00_1820); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2182); BUNSPEC; } 
BgL_auxz00_3191 = BgL_new3287z00_1820; } } } 
return 
(obj_t)(BgL_auxz00_3191);} } } 
}



/* object->struct-bremoved3398 */
obj_t BGl_objectzd2ze3structzd2bremoved3398ze3zzsaw_removez00(obj_t BgL_envz00_2338, obj_t BgL_obj3282z00_2339)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 12 */
{ 
BgL_bremovedz00_bglt BgL_obj3282z00_1806;
BgL_obj3282z00_1806 = 
(BgL_bremovedz00_bglt)(BgL_obj3282z00_2339); 
{ 

{ /* ./SawMill/remove.scm 12 */
obj_t BgL_res3283z00_1809;
{ /* ./SawMill/remove.scm 12 */
obj_t BgL_nextzd2method3397zd2_1812;
BgL_nextzd2method3397zd2_1812 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3282z00_1806), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_bremovedz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 12 */
bool_t BgL_test4679z00_1813;
BgL_test4679z00_1813 = 
PROCEDUREP(BgL_nextzd2method3397zd2_1812); 
if(BgL_test4679z00_1813)
{ /* ./SawMill/remove.scm 12 */
BgL_res3283z00_1809 = 
PROCEDURE_ENTRY(BgL_nextzd2method3397zd2_1812)(BgL_nextzd2method3397zd2_1812, 
(obj_t)(BgL_obj3282z00_1806), BEOA); }  else 
{ /* ./SawMill/remove.scm 12 */
BgL_res3283z00_1809 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3282z00_1806)); } } } 
{ /* ./SawMill/remove.scm 12 */
obj_t BgL_aux3284z00_1810;
{ /* ./SawMill/remove.scm 12 */
obj_t BgL_keyz00_2165;int BgL_lenz00_2166;
BgL_keyz00_2165 = 
CNST_TABLE_REF(((long)6)); 
BgL_lenz00_2166 = 
(int)(((long)0)); 
BgL_aux3284z00_1810 = 
make_struct(BgL_keyz00_2165, BgL_lenz00_2166, BUNSPEC); } 
{ /* ./SawMill/remove.scm 12 */
int BgL_kz00_2169;
BgL_kz00_2169 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3283z00_1809, BgL_kz00_2169, BgL_aux3284z00_1810); } 
{ /* ./SawMill/remove.scm 12 */
obj_t BgL_arg4673z00_1811;
BgL_arg4673z00_1811 = 
STRUCT_KEY(BgL_res3283z00_1809); 
STRUCT_KEY_SET(BgL_aux3284z00_1810, BgL_arg4673z00_1811); } 
{ /* ./SawMill/remove.scm 12 */
obj_t BgL_kz00_2176;
BgL_kz00_2176 = 
CNST_TABLE_REF(((long)6)); 
STRUCT_KEY_SET(BgL_res3283z00_1809, BgL_kz00_2176); } 
return BgL_res3283z00_1809;} } } } } 
}



/* struct+object->object-creg3396 */
obj_t BGl_structzb2objectzd2ze3objectzd2creg3396z51zzsaw_removez00(obj_t BgL_envz00_2340, obj_t BgL_oz00_2341, obj_t BgL_sz00_2342)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 13 */
{ 
BgL_cregz00_bglt BgL_oz00_1793;obj_t BgL_sz00_1794;
{ /* ./SawMill/remove.scm 13 */
BgL_cregz00_bglt BgL_auxz00_3236;
BgL_oz00_1793 = 
(BgL_cregz00_bglt)(BgL_oz00_2341); 
BgL_sz00_1794 = BgL_sz00_2342; 
{ 

{ /* ./SawMill/remove.scm 13 */
obj_t BgL_old3321z00_1797;obj_t BgL_aux3322z00_1798;
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_nextzd2method3395zd2_1804;
BgL_nextzd2method3395zd2_1804 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1793), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cregz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 13 */
bool_t BgL_test4665z00_1805;
BgL_test4665z00_1805 = 
PROCEDUREP(BgL_nextzd2method3395zd2_1804); 
if(BgL_test4665z00_1805)
{ /* ./SawMill/remove.scm 13 */
BgL_old3321z00_1797 = 
PROCEDURE_ENTRY(BgL_nextzd2method3395zd2_1804)(BgL_nextzd2method3395zd2_1804, 
(obj_t)(BgL_oz00_1793), BgL_sz00_1794, BEOA); }  else 
{ /* ./SawMill/remove.scm 13 */
{ /* ./SawMill/remove.scm 13 */
BgL_objectz00_bglt BgL_auxz00_3244;
BgL_auxz00_3244 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1793), BgL_sz00_1794); 
BgL_old3321z00_1797 = 
(obj_t)(BgL_auxz00_3244); } } } } 
{ /* ./SawMill/remove.scm 13 */
int BgL_auxz00_3248;
BgL_auxz00_3248 = 
(int)(((long)0)); 
BgL_aux3322z00_1798 = 
STRUCT_REF(BgL_sz00_1794, BgL_auxz00_3248); } 
{ /* ./SawMill/remove.scm 13 */
BgL_cregz00_bglt BgL_new3323z00_1799;
BgL_new3323z00_1799 = 
((BgL_cregz00_bglt)(BgL_old3321z00_1797)); 
{ /* ./SawMill/remove.scm 13 */
long BgL_arg4650z00_1800;
BgL_arg4650z00_1800 = 
BGl_classzd2numzd2zz__objectz00(BGl_cregz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 13 */
BgL_objectz00_bglt BgL_objz00_2147;
BgL_objz00_2147 = 
(BgL_objectz00_bglt)(BgL_new3323z00_1799); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2147, BgL_arg4650z00_1800); } } 
{ /* ./SawMill/remove.scm 13 */
BgL_cregz00_bglt BgL_arg4654z00_1801;
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_arg4657z00_1802;obj_t BgL_arg4658z00_1803;
{ /* ./SawMill/remove.scm 13 */
int BgL_auxz00_3255;
BgL_auxz00_3255 = 
(int)(((long)0)); 
BgL_arg4657z00_1802 = 
STRUCT_REF(BgL_aux3322z00_1798, BgL_auxz00_3255); } 
{ /* ./SawMill/remove.scm 13 */
int BgL_auxz00_3258;
BgL_auxz00_3258 = 
(int)(((long)1)); 
BgL_arg4658z00_1803 = 
STRUCT_REF(BgL_aux3322z00_1798, BgL_auxz00_3258); } 
{ /* ./SawMill/remove.scm 13 */
BgL_cregz00_bglt BgL_res4867z00_2162;
{ /* ./SawMill/remove.scm 13 */
BgL_cregz00_bglt BgL_new3303z00_2155;
BgL_new3303z00_2155 = 
((BgL_cregz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_cregz00_bgl)))); 
{ /* ./SawMill/remove.scm 13 */
BgL_cregz00_bglt BgL_res4866z00_2161;
{ /* ./SawMill/remove.scm 13 */
BgL_cregz00_bglt BgL_new3313z00_2156;
BgL_new3313z00_2156 = BgL_new3303z00_2155; 
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_defs3311z00_2159;obj_t BgL_nbuses3312z00_2160;
BgL_defs3311z00_2159 = BgL_arg4657z00_1802; 
BgL_nbuses3312z00_2160 = BgL_arg4658z00_1803; 
((((BgL_cregz00_bglt)CREF(BgL_new3313z00_2156))->BgL_defsz00) = ((obj_t)BgL_defs3311z00_2159), BUNSPEC); 
((((BgL_cregz00_bglt)CREF(BgL_new3313z00_2156))->BgL_nbusesz00) = ((obj_t)BgL_nbuses3312z00_2160), BUNSPEC); 
BgL_res4866z00_2161 = BgL_new3313z00_2156; } } BgL_res4866z00_2161; } 
BgL_res4867z00_2162 = BgL_new3303z00_2155; } 
BgL_arg4654z00_1801 = BgL_res4867z00_2162; } } 
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_auxz00_3266;BgL_objectz00_bglt BgL_auxz00_3264;
BgL_auxz00_3266 = 
(obj_t)(BgL_arg4654z00_1801); 
BgL_auxz00_3264 = 
(BgL_objectz00_bglt)(BgL_new3323z00_1799); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3264, BgL_auxz00_3266); } } 
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_objz00_2163;
BgL_objz00_2163 = 
(obj_t)(BgL_new3323z00_1799); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2163); BUNSPEC; } 
BgL_auxz00_3236 = BgL_new3323z00_1799; } } } 
return 
(obj_t)(BgL_auxz00_3236);} } } 
}



/* object->struct-creg3394 */
obj_t BGl_objectzd2ze3structzd2creg3394ze3zzsaw_removez00(obj_t BgL_envz00_2343, obj_t BgL_obj3318z00_2344)
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 13 */
{ 
BgL_cregz00_bglt BgL_obj3318z00_1781;
BgL_obj3318z00_1781 = 
(BgL_cregz00_bglt)(BgL_obj3318z00_2344); 
{ 

{ /* ./SawMill/remove.scm 13 */
obj_t BgL_res3319z00_1784;
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_nextzd2method3393zd2_1791;
BgL_nextzd2method3393zd2_1791 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3318z00_1781), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cregz00zzsaw_removez00); 
{ /* ./SawMill/remove.scm 13 */
bool_t BgL_test4643z00_1792;
BgL_test4643z00_1792 = 
PROCEDUREP(BgL_nextzd2method3393zd2_1791); 
if(BgL_test4643z00_1792)
{ /* ./SawMill/remove.scm 13 */
BgL_res3319z00_1784 = 
PROCEDURE_ENTRY(BgL_nextzd2method3393zd2_1791)(BgL_nextzd2method3393zd2_1791, 
(obj_t)(BgL_obj3318z00_1781), BEOA); }  else 
{ /* ./SawMill/remove.scm 13 */
BgL_res3319z00_1784 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3318z00_1781)); } } } 
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_aux3320z00_1785;
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_keyz00_2124;int BgL_lenz00_2125;
BgL_keyz00_2124 = 
CNST_TABLE_REF(((long)7)); 
BgL_lenz00_2125 = 
(int)(((long)2)); 
BgL_aux3320z00_1785 = 
make_struct(BgL_keyz00_2124, BgL_lenz00_2125, BUNSPEC); } 
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_arg4627z00_1787;
{ 
obj_t BgL_auxz00_3285;
{ /* ./SawMill/remove.scm 13 */
BgL_objectz00_bglt BgL_auxz00_3286;
BgL_auxz00_3286 = 
(BgL_objectz00_bglt)(BgL_obj3318z00_1781); 
BgL_auxz00_3285 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3286); } 
BgL_arg4627z00_1787 = 
(((BgL_cregz00_bglt)CREF(BgL_auxz00_3285))->BgL_defsz00); } 
{ /* ./SawMill/remove.scm 13 */
int BgL_kz00_2129;
BgL_kz00_2129 = 
(int)(((long)0)); 
STRUCT_SET(BgL_aux3320z00_1785, BgL_kz00_2129, BgL_arg4627z00_1787); } } 
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_arg4632z00_1789;
{ 
obj_t BgL_auxz00_3292;
{ /* ./SawMill/remove.scm 13 */
BgL_objectz00_bglt BgL_auxz00_3293;
BgL_auxz00_3293 = 
(BgL_objectz00_bglt)(BgL_obj3318z00_1781); 
BgL_auxz00_3292 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3293); } 
BgL_arg4632z00_1789 = 
(((BgL_cregz00_bglt)CREF(BgL_auxz00_3292))->BgL_nbusesz00); } 
{ /* ./SawMill/remove.scm 13 */
int BgL_kz00_2133;
BgL_kz00_2133 = 
(int)(((long)1)); 
STRUCT_SET(BgL_aux3320z00_1785, BgL_kz00_2133, BgL_arg4632z00_1789); } } 
{ /* ./SawMill/remove.scm 13 */
int BgL_kz00_2136;
BgL_kz00_2136 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3319z00_1784, BgL_kz00_2136, BgL_aux3320z00_1785); } 
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_arg4637z00_1790;
BgL_arg4637z00_1790 = 
STRUCT_KEY(BgL_res3319z00_1784); 
STRUCT_KEY_SET(BgL_aux3320z00_1785, BgL_arg4637z00_1790); } 
{ /* ./SawMill/remove.scm 13 */
obj_t BgL_kz00_2143;
BgL_kz00_2143 = 
CNST_TABLE_REF(((long)7)); 
STRUCT_KEY_SET(BgL_res3319z00_1784, BgL_kz00_2143); } 
return BgL_res3319z00_1784;} } } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzsaw_removez00()
{ AN_OBJECT;
{ /* ./SawMill/remove.scm 1 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "saw_remove"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "saw_remove"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "saw_remove"); 
BGl_modulezd2initializa7ationz75zzsaw_libz00(((long)22284), "saw_remove"); 
return 
BGl_modulezd2initializa7ationz75zzsaw_defsz00(((long)12736), "saw_remove");} 
}

