/*===========================================================================*/
/*   (Cgen/emit-cop.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 Cgen/emit-cop.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_copz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_copz00_bglt;

typedef struct BgL_clabelz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_namez00;
   bool_t BgL_usedzf3zf3;
   obj_t BgL_bodyz00;
} *BgL_clabelz00_bglt;

typedef struct BgL_cgotoz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_clabelz00_bgl * BgL_labelz00;
} *BgL_cgotoz00_bglt;

typedef struct BgL_blockz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_bodyz00;
} *BgL_blockz00_bglt;

typedef struct BgL_creturnz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_creturnz00_bglt;

typedef struct BgL_cvoidz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cvoidz00_bglt;

typedef struct BgL_catomz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_valuez00;
} *BgL_catomz00_bglt;

typedef struct BgL_varcz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_varcz00_bglt;

typedef struct BgL_cpragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_formatz00;
   obj_t BgL_argsz00;
} *BgL_cpragmaz00_bglt;

typedef struct BgL_ccastz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_copz00_bgl * BgL_argz00;
} *BgL_ccastz00_bglt;

typedef struct BgL_csequencez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   bool_t BgL_czd2expzf3z21;
   obj_t BgL_copsz00;
} *BgL_csequencez00_bglt;

typedef struct BgL_nopz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_nopz00_bglt;

typedef struct BgL_stopz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_stopz00_bglt;

typedef struct BgL_csetqz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_varcz00_bgl * BgL_varz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_csetqz00_bglt;

typedef struct BgL_cifz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_testz00;
   struct BgL_copz00_bgl * BgL_truez00;
   struct BgL_copz00_bgl * BgL_falsez00;
} *BgL_cifz00_bglt;

typedef struct BgL_localzd2varzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_varsz00;
} *BgL_localzd2varzd2_bglt;

typedef struct BgL_cfuncallz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
   obj_t BgL_strengthz00;
} *BgL_cfuncallz00_bglt;

typedef struct BgL_capplyz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_funz00;
   struct BgL_copz00_bgl * BgL_argz00;
} *BgL_capplyz00_bglt;

typedef struct BgL_cappz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_cappz00_bglt;

typedef struct BgL_cfailz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_procz00;
   struct BgL_copz00_bgl * BgL_msgz00;
   struct BgL_copz00_bgl * BgL_objz00;
} *BgL_cfailz00_bglt;

typedef struct BgL_cswitchz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
} *BgL_cswitchz00_bglt;

typedef struct BgL_cmakezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cmakezd2boxzd2_bglt;

typedef struct BgL_cboxzd2refzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_varz00;
} *BgL_cboxzd2refzd2_bglt;

typedef struct BgL_cboxzd2setz12zc0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_varz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cboxzd2setz12zc0_bglt;

typedef struct BgL_csetzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_exitz00;
   struct BgL_copz00_bgl * BgL_jumpzd2valuezd2;
   struct BgL_copz00_bgl * BgL_bodyz00;
} *BgL_csetzd2exzd2itz00_bglt;

typedef struct BgL_cjumpzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_exitz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cjumpzd2exzd2itz00_bglt;

typedef struct BgL_sfunzf2czf2_bgl {
   struct BgL_clabelz00_bgl * BgL_labelz00;
   bool_t BgL_integratedz00;
} *BgL_sfunzf2czf2_bglt;

typedef struct BgL_bdbzd2blockzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_bodyz00;
} *BgL_bdbzd2blockzd2_bglt;


extern obj_t BGl_capplyz00zzcgen_copz00;
static obj_t BGl_emitzd2copzd2cfuncall3290z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzcgen_emitzd2copzd2();
extern obj_t BGl_cboxzd2setz12zc0zzcgen_copz00;
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_za2srczd2filesza2zd2zzengine_paramz00;
BGL_IMPORT obj_t display_char(obj_t, obj_t);
extern obj_t BGl_findzd2globalzf2modulez20zzast_envz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern obj_t BGl_za2czd2debugzd2lineszd2infoza2zd2zzengine_paramz00;
BGL_EXPORTED_DECL bool_t BGl_emitzd2copzd2zzcgen_emitzd2copzd2(BgL_copz00_bglt);
static obj_t BGl_emitzd2copzd2ccast3274z00zzcgen_emitzd2copzd2(obj_t, obj_t);
extern obj_t BGl_cvoidz00zzcgen_copz00;
extern obj_t BGl_stopz00zzcgen_copz00;
static obj_t BGl_za2bdbzd2locza2zd2zzcgen_emitzd2copzd2 = BUNSPEC;
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl__resetzd2bdbzd2locz12z12zzcgen_emitzd2copzd2(obj_t);
extern obj_t BGl_za2compilerzd2debugza2zd2zzengine_paramz00;
extern obj_t BGl_za2stdcza2z00zzengine_paramz00;
BGL_IMPORT bool_t rgc_fill_buffer(obj_t);
extern obj_t BGl_za2targetzd2languageza2zd2zzengine_paramz00;
extern obj_t BGl_za2modulezd2locationza2zd2zzmodule_modulez00;
static obj_t BGl_emitzd2copzd2cboxzd2setz123304zc0zzcgen_emitzd2copzd2(obj_t, obj_t);
static bool_t BGl_emitzd2regularzd2cfuncallzf2eoazf2zzcgen_emitzd2copzd2(BgL_cfuncallz00_bglt);
static obj_t BGl_emitzd2copzd2cvoid3268z00zzcgen_emitzd2copzd2(obj_t, obj_t);
extern obj_t BGl_cboxzd2refzd2zzcgen_copz00;
extern obj_t BGl_cappz00zzcgen_copz00;
static obj_t BGl_emitzd2copzd2cpragma3272z00zzcgen_emitzd2copzd2(obj_t, obj_t);
BGL_IMPORT obj_t BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(obj_t, obj_t);
extern obj_t BGl_csequencez00zzcgen_copz00;
extern obj_t BGl_cfuncallz00zzcgen_copz00;
static obj_t BGl_za2bfalseza2z00zzcgen_emitzd2copzd2 = BUNSPEC;
extern obj_t BGl_za2bdbzd2debugza2zd2zzengine_paramz00;
extern obj_t BGl_csetqz00zzcgen_copz00;
static obj_t BGl_cnstzd2initzd2zzcgen_emitzd2copzd2();
static obj_t BGl_emitzd2copzd2csequence3276z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_emitzd2copzd2stop3280z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl__emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(obj_t, obj_t);
BGL_IMPORT obj_t c_substring(obj_t, int, int);
BGL_IMPORT obj_t display_fixnum(obj_t, obj_t);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_emitzd2copzd2bdbzd2block3288zd2zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_STATEzd20zd23204z00zzcgen_emitzd2copzd2(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcgen_emitzd2copzd2();
static obj_t BGl_emitzd2bdbzd2loczd2commentzd2zzcgen_emitzd2copzd2(obj_t);
static obj_t BGl_emitzd2copzd2capp3294z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl__emitzd2copzd2zzcgen_emitzd2copzd2(obj_t, obj_t);
extern obj_t BGl_cswitchz00zzcgen_copz00;
static obj_t BGl_emitzd2copzd2csetq3282z00zzcgen_emitzd2copzd2(obj_t, obj_t);
BGL_IMPORT obj_t rgc_buffer_substring(obj_t, int, int);
extern obj_t BGl_za2bdbzd2debugzd2nozd2linezd2directiveszf3za2zf3zzengine_paramz00;
extern obj_t BGl_csetzd2exzd2itz00zzcgen_copz00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_creturnz00zzcgen_copz00;
static obj_t BGl_zc3anonymousza34039ze3z83zzcgen_emitzd2copzd2(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(obj_t);
static obj_t BGl_toplevelzd2initzd2zzcgen_emitzd2copzd2();
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcgen_emitzd2copzd2(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_toolsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzbackend_c_emitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcgen_copz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_blockz00zzcgen_copz00;
extern obj_t BGl_cgotoz00zzcgen_copz00;
static obj_t BGl_emitzd2copzd2localzd2var3286zd2zzcgen_emitzd2copzd2(obj_t, obj_t);
extern obj_t BGl_cjumpzd2exzd2itz00zzcgen_copz00;
static obj_t BGl_emitzd2copzd2catom3266z00zzcgen_emitzd2copzd2(obj_t, obj_t);
extern obj_t BGl_bdbzd2blockzd2zzcgen_copz00;
static obj_t BGl_emitzd2copzd2block3262z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_emitzd2copzd2cboxzd2ref3302zd2zzcgen_emitzd2copzd2(obj_t, obj_t);
extern obj_t BGl_ccastz00zzcgen_copz00;
extern obj_t BGl_localzd2varzd2zzcgen_copz00;
extern obj_t BGl_clabelz00zzcgen_copz00;
extern obj_t BGl_catomz00zzcgen_copz00;
extern obj_t BGl_cfailz00zzcgen_copz00;
extern obj_t BGl_za2czd2portza2zd2zzbackend_c_emitz00;
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_emitzd2copzd2cmakezd2box3300zd2zzcgen_emitzd2copzd2(obj_t, obj_t);
extern obj_t BGl_cfunz00zzast_varz00;
extern obj_t BGl_cpragmaz00zzcgen_copz00;
static obj_t BGl_emitzd2copzd2creturn3264z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_emitzd2copzd2cif3284z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_emitzd2copzd2csetzd2exzd2it3306z00zzcgen_emitzd2copzd2(obj_t, obj_t);
BGL_IMPORT obj_t display_string(obj_t, obj_t);
static obj_t BGl__emitzd2copzd2default3253z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_emitzd2copzd2cswitch3298z00zzcgen_emitzd2copzd2(obj_t, obj_t);
extern obj_t BGl_varcz00zzcgen_copz00;
extern obj_t BGl_nopz00zzcgen_copz00;
static bool_t BGl_emitzd2copzd2default3253z00zzcgen_emitzd2copzd2(BgL_copz00_bglt);
static obj_t BGl_emitzd2copzd2clabel3257z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_emitzd2copzd2cfail3296z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_emitzd2copzd2nop3278z00zzcgen_emitzd2copzd2(obj_t, obj_t);
extern obj_t BGl_makezd2typedzd2declarationz00zztype_toolsz00(BgL_typez00_bglt, obj_t);
extern obj_t BGl_emitzd2atomzd2valuez00zzbackend_c_emitz00(obj_t);
static obj_t BGl_case_else3211z00zzcgen_emitzd2copzd2(long);
static obj_t BGl_emitzd2copzd2cjumpzd2exzd2it3308z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_thezd2stringzd2zzcgen_emitzd2copzd2(obj_t);
extern obj_t BGl_cifz00zzcgen_copz00;
static obj_t BGl_emitzd2copzd2varc3270z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzcgen_emitzd2copzd2 = BUNSPEC;
extern obj_t BGl_cmakezd2boxzd2zzcgen_copz00;
static obj_t BGl_thezd2failurezd2zzcgen_emitzd2copzd2(obj_t);
BGL_EXPORTED_DECL obj_t BGl_getzd2currentzd2bdbzd2loczd2zzcgen_emitzd2copzd2();
BGL_IMPORT obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl__getzd2currentzd2bdbzd2loczd2zzcgen_emitzd2copzd2(obj_t);
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_resetzd2bdbzd2locz12z12zzcgen_emitzd2copzd2();
static obj_t BGl_libraryzd2moduleszd2initz00zzcgen_emitzd2copzd2();
static obj_t BGl_ignorez00zzcgen_emitzd2copzd2(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_emitzd2copzd2capply3292z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t BGl_emitzd2copzd2cgoto3259z00zzcgen_emitzd2copzd2(obj_t, obj_t);
static obj_t __cnst[ 9 ] ;


DEFINE_STRING( BGl_string6234z00zzcgen_emitzd2copzd2, BgL_bgl_string6234za700za7za7cgen_emitza7d2copza7d26265za7, "emit-cop-default3253 bigloo light elight foreign bfalse else (jvm .net) location ", 81 );
DEFINE_STRING( BGl_string6233z00zzcgen_emitzd2copzd2, BgL_bgl_string6233za700za7za7cgen_emitza7d2copza7d26266za7, "No method for this object", 25 );
DEFINE_STRING( BGl_string6232z00zzcgen_emitzd2copzd2, BgL_bgl_string6232za700za7za7cgen_emitza7d2copza7d26267za7, "goto ", 5 );
DEFINE_STRING( BGl_string6231z00zzcgen_emitzd2copzd2, BgL_bgl_string6231za700za7za7cgen_emitza7d2copza7d26268za7, "{ ", 2 );
DEFINE_STRING( BGl_string6230z00zzcgen_emitzd2copzd2, BgL_bgl_string6230za700za7za7cgen_emitza7d2copza7d26269za7, "return ", 7 );
DEFINE_STRING( BGl_string6228z00zzcgen_emitzd2copzd2, BgL_bgl_string6228za700za7za7cgen_emitza7d2copza7d26270za7, "((", 2 );
DEFINE_STRING( BGl_string6227z00zzcgen_emitzd2copzd2, BgL_bgl_string6227za700za7za7cgen_emitza7d2copza7d26271za7, ") ", 2 );
DEFINE_STRING( BGl_string6226z00zzcgen_emitzd2copzd2, BgL_bgl_string6226za700za7za7cgen_emitza7d2copza7d26272za7, "( ", 2 );
DEFINE_STRING( BGl_string6225z00zzcgen_emitzd2copzd2, BgL_bgl_string6225za700za7za7cgen_emitza7d2copza7d26273za7, " = ", 3 );
DEFINE_STRING( BGl_string6224z00zzcgen_emitzd2copzd2, BgL_bgl_string6224za700za7za7cgen_emitza7d2copza7d26274za7, " else ", 6 );
DEFINE_STRING( BGl_string6223z00zzcgen_emitzd2copzd2, BgL_bgl_string6223za700za7za7cgen_emitza7d2copza7d26275za7, "if(", 3 );
DEFINE_STRING( BGl_string6222z00zzcgen_emitzd2copzd2, BgL_bgl_string6222za700za7za7cgen_emitza7d2copza7d26276za7, ")BUNSPEC)", 9 );
DEFINE_STRING( BGl_string6221z00zzcgen_emitzd2copzd2, BgL_bgl_string6221za700za7za7cgen_emitza7d2copza7d26277za7, " = ((", 5 );
DEFINE_STRING( BGl_string6220z00zzcgen_emitzd2copzd2, BgL_bgl_string6220za700za7za7cgen_emitza7d2copza7d26278za7, "", 0 );
DEFINE_STRING( BGl_string6219z00zzcgen_emitzd2copzd2, BgL_bgl_string6219za700za7za7cgen_emitza7d2copza7d26279za7, "int bigloo_dummy_bdb; bigloo_dummy_bdb = 0; { ", 46 );
DEFINE_STRING( BGl_string6218z00zzcgen_emitzd2copzd2, BgL_bgl_string6218za700za7za7cgen_emitza7d2copza7d26280za7, " )", 2 );
DEFINE_STRING( BGl_string6217z00zzcgen_emitzd2copzd2, BgL_bgl_string6217za700za7za7cgen_emitza7d2copza7d26281za7, " ) ? ", 5 );
DEFINE_STRING( BGl_string6216z00zzcgen_emitzd2copzd2, BgL_bgl_string6216za700za7za7cgen_emitza7d2copza7d26282za7, "(VA_PROCEDUREP( ", 16 );
DEFINE_STRING( BGl_string6215z00zzcgen_emitzd2copzd2, BgL_bgl_string6215za700za7za7cgen_emitza7d2copza7d26283za7, "PROCEDURE_ENTRY(", 16 );
DEFINE_STRING( BGl_string6214z00zzcgen_emitzd2copzd2, BgL_bgl_string6214za700za7za7cgen_emitza7d2copza7d26284za7, ")", 1 );
DEFINE_STRING( BGl_string6213z00zzcgen_emitzd2copzd2, BgL_bgl_string6213za700za7za7cgen_emitza7d2copza7d26285za7, ")(", 2 );
DEFINE_STRING( BGl_string6212z00zzcgen_emitzd2copzd2, BgL_bgl_string6212za700za7za7cgen_emitza7d2copza7d26286za7, "PROCEDURE_L_ENTRY(", 18 );
DEFINE_STRING( BGl_string6211z00zzcgen_emitzd2copzd2, BgL_bgl_string6211za700za7za7cgen_emitza7d2copza7d26287za7, "apply(", 6 );
DEFINE_STRING( BGl_string6210z00zzcgen_emitzd2copzd2, BgL_bgl_string6210za700za7za7cgen_emitza7d2copza7d26288za7, "), exit( -1 );", 14 );
DEFINE_STRING( BGl_string6209z00zzcgen_emitzd2copzd2, BgL_bgl_string6209za700za7za7cgen_emitza7d2copza7d26289za7, "the_failure(", 12 );
DEFINE_STRING( BGl_string6199z00zzcgen_emitzd2copzd2, BgL_bgl_string6199za700za7za7cgen_emitza7d2copza7d26290za7, "switch( ", 8 );
DEFINE_STRING( BGl_string6208z00zzcgen_emitzd2copzd2, BgL_bgl_string6208za700za7za7cgen_emitza7d2copza7d26291za7, ");", 2 );
DEFINE_STRING( BGl_string6198z00zzcgen_emitzd2copzd2, BgL_bgl_string6198za700za7za7cgen_emitza7d2copza7d26292za7, "MAKE_CELL(", 10 );
DEFINE_STRING( BGl_string6207z00zzcgen_emitzd2copzd2, BgL_bgl_string6207za700za7za7cgen_emitza7d2copza7d26293za7, "FAILURE(", 8 );
DEFINE_STRING( BGl_string6197z00zzcgen_emitzd2copzd2, BgL_bgl_string6197za700za7za7cgen_emitza7d2copza7d26294za7, "CELL_REF(", 9 );
DEFINE_STRING( BGl_string6206z00zzcgen_emitzd2copzd2, BgL_bgl_string6206za700za7za7cgen_emitza7d2copza7d26295za7, "exit( -1 );", 11 );
DEFINE_STRING( BGl_string6196z00zzcgen_emitzd2copzd2, BgL_bgl_string6196za700za7za7cgen_emitza7d2copza7d26296za7, ", ", 2 );
DEFINE_STRING( BGl_string6205z00zzcgen_emitzd2copzd2, BgL_bgl_string6205za700za7za7cgen_emitza7d2copza7d26297za7, "break;", 6 );
DEFINE_STRING( BGl_string6195z00zzcgen_emitzd2copzd2, BgL_bgl_string6195za700za7za7cgen_emitza7d2copza7d26298za7, "CELL_SET(", 9 );
DEFINE_EXPORT_PROCEDURE( BGl_resetzd2bdbzd2locz12zd2envzc0zzcgen_emitzd2copzd2, BgL_bgl__resetza7d2bdbza7d2locza712za712za7za7cgen_emitza7d2copza7d26299z00, BGl__resetzd2bdbzd2locz12z12zzcgen_emitzd2copzd2, 0L, 0 );
DEFINE_STRING( BGl_string6204z00zzcgen_emitzd2copzd2, BgL_bgl_string6204za700za7za7cgen_emitza7d2copza7d26300za7, " : ", 3 );
DEFINE_STRING( BGl_string6194z00zzcgen_emitzd2copzd2, BgL_bgl_string6194za700za7za7cgen_emitza7d2copza7d26301za7, "} ", 2 );
DEFINE_STRING( BGl_string6203z00zzcgen_emitzd2copzd2, BgL_bgl_string6203za700za7za7cgen_emitza7d2copza7d26302za7, "case ", 5 );
DEFINE_STRING( BGl_string6193z00zzcgen_emitzd2copzd2, BgL_bgl_string6193za700za7za7cgen_emitza7d2copza7d26303za7, "} else {", 8 );
DEFINE_STRING( BGl_string6202z00zzcgen_emitzd2copzd2, BgL_bgl_string6202za700za7za7cgen_emitza7d2copza7d26304za7, "; ", 2 );
DEFINE_STRING( BGl_string6192z00zzcgen_emitzd2copzd2, BgL_bgl_string6192za700za7za7cgen_emitza7d2copza7d26305za7, "BGL_RESTORE_TRACE(); ", 21 );
DEFINE_STRING( BGl_string6201z00zzcgen_emitzd2copzd2, BgL_bgl_string6201za700za7za7cgen_emitza7d2copza7d26306za7, "default: ", 9 );
DEFINE_STRING( BGl_string6191z00zzcgen_emitzd2copzd2, BgL_bgl_string6191za700za7za7cgen_emitza7d2copza7d26307za7, ") ) { ", 6 );
DEFINE_STRING( BGl_string6200z00zzcgen_emitzd2copzd2, BgL_bgl_string6200za700za7za7cgen_emitza7d2copza7d26308za7, ") { ", 4 );
DEFINE_STRING( BGl_string6190z00zzcgen_emitzd2copzd2, BgL_bgl_string6190za700za7za7cgen_emitza7d2copza7d26309za7, "if( SET_EXIT(", 13 );
DEFINE_STRING( BGl_string6189z00zzcgen_emitzd2copzd2, BgL_bgl_string6189za700za7za7cgen_emitza7d2copza7d26310za7, "BGL_STORE_TRACE(); ", 19 );
DEFINE_STRING( BGl_string6188z00zzcgen_emitzd2copzd2, BgL_bgl_string6188za700za7za7cgen_emitza7d2copza7d26311za7, "JUMP_EXIT( ", 11 );
DEFINE_STRING( BGl_string6187z00zzcgen_emitzd2copzd2, BgL_bgl_string6187za700za7za7cgen_emitza7d2copza7d26312za7, "Illegal match", 13 );
DEFINE_STRING( BGl_string6186z00zzcgen_emitzd2copzd2, BgL_bgl_string6186za700za7za7cgen_emitza7d2copza7d26313za7, "regular-grammar", 15 );
DEFINE_STRING( BGl_string6185z00zzcgen_emitzd2copzd2, BgL_bgl_string6185za700za7za7cgen_emitza7d2copza7d26314za7, "$", 1 );
DEFINE_STRING( BGl_string6158z00zzcgen_emitzd2copzd2, BgL_bgl_string6158za700za7za7cgen_emitza7d2copza7d26315za7, " */", 3 );
DEFINE_STRING( BGl_string6157z00zzcgen_emitzd2copzd2, BgL_bgl_string6157za700za7za7cgen_emitza7d2copza7d26316za7, " ", 1 );
DEFINE_STRING( BGl_string6156z00zzcgen_emitzd2copzd2, BgL_bgl_string6156za700za7za7cgen_emitza7d2copza7d26317za7, "/* ", 3 );
DEFINE_STRING( BGl_string6155z00zzcgen_emitzd2copzd2, BgL_bgl_string6155za700za7za7cgen_emitza7d2copza7d26318za7, " \"", 2 );
DEFINE_STRING( BGl_string6154z00zzcgen_emitzd2copzd2, BgL_bgl_string6154za700za7za7cgen_emitza7d2copza7d26319za7, "\n# ", 3 );
DEFINE_STATIC_PROCEDURE( BGl_emitzd2copzd2default3253zd2envzd2zzcgen_emitzd2copzd2, BgL_bgl__emitza7d2copza7d2default3253za700za7za7cgen_emitza7d2copza7d26320za7, BGl__emitzd2copzd2default3253z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2currentzd2bdbzd2loczd2envz00zzcgen_emitzd2copzd2, BgL_bgl__getza7d2currentza7d2bdbza7d2locza7d2za7za7cgen_emitza7d2copza7d26321z00, BGl__getzd2currentzd2bdbzd2loczd2zzcgen_emitzd2copzd2, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc6160z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2cgoto3259za700za7za7cgen_emitza7d2copza7d26322za7, BGl_emitzd2copzd2cgoto3259z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6159z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2clabel3257za700za7za7cgen_emitza7d2copza7d26323za7, BGl_emitzd2copzd2clabel3257z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6161z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2block3262za700za7za7cgen_emitza7d2copza7d26324za7, BGl_emitzd2copzd2block3262z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6162z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2creturn3264za700za7za7cgen_emitza7d2copza7d26325za7, BGl_emitzd2copzd2creturn3264z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6163z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2catom3266za700za7za7cgen_emitza7d2copza7d26326za7, BGl_emitzd2copzd2catom3266z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6164z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2cvoid3268za700za7za7cgen_emitza7d2copza7d26327za7, BGl_emitzd2copzd2cvoid3268z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6165z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2varc3270za700za7za7cgen_emitza7d2copza7d26328za7, BGl_emitzd2copzd2varc3270z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6166z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2cpragma3272za700za7za7cgen_emitza7d2copza7d26329za7, BGl_emitzd2copzd2cpragma3272z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6167z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2ccast3274za700za7za7cgen_emitza7d2copza7d26330za7, BGl_emitzd2copzd2ccast3274z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6168z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2csequence3276za700za7za7cgen_emitza7d2copza7d26331za7, BGl_emitzd2copzd2csequence3276z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6170z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2stop3280za700za7za7cgen_emitza7d2copza7d26332za7, BGl_emitzd2copzd2stop3280z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6169z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2nop3278za700za7za7cgen_emitza7d2copza7d26333za7, BGl_emitzd2copzd2nop3278z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6171z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2csetq3282za700za7za7cgen_emitza7d2copza7d26334za7, BGl_emitzd2copzd2csetq3282z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6172z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2cif3284za700za7za7cgen_emitza7d2copza7d26335za7, BGl_emitzd2copzd2cif3284z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6173z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2localza7d2var3286za7d2za7za7cgen_emitza7d2copza7d26336z00, BGl_emitzd2copzd2localzd2var3286zd2zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6174z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2bdbza7d2block3288za7d2za7za7cgen_emitza7d2copza7d26337z00, BGl_emitzd2copzd2bdbzd2block3288zd2zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6175z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2cfuncall3290za700za7za7cgen_emitza7d2copza7d26338za7, BGl_emitzd2copzd2cfuncall3290z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6176z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2capply3292za700za7za7cgen_emitza7d2copza7d26339za7, BGl_emitzd2copzd2capply3292z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6177z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2capp3294za700za7za7cgen_emitza7d2copza7d26340za7, BGl_emitzd2copzd2capp3294z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6178z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2cfail3296za700za7za7cgen_emitza7d2copza7d26341za7, BGl_emitzd2copzd2cfail3296z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6180z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2cmakeza7d2box3300za7d2za7za7cgen_emitza7d2copza7d26342z00, BGl_emitzd2copzd2cmakezd2box3300zd2zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6179z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2cswitch3298za700za7za7cgen_emitza7d2copza7d26343za7, BGl_emitzd2copzd2cswitch3298z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6181z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2cboxza7d2ref3302za7d2za7za7cgen_emitza7d2copza7d26344z00, BGl_emitzd2copzd2cboxzd2ref3302zd2zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6182z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2cboxza7d2setza7123304za7c0za7za7cgen_emitza7d2copza7d26345za7, BGl_emitzd2copzd2cboxzd2setz123304zc0zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6183z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2csetza7d2exza7d2it3306za700za7za7cgen_emitza7d2copza7d26346za7, BGl_emitzd2copzd2csetzd2exzd2it3306z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6184z00zzcgen_emitzd2copzd2, BgL_bgl_emitza7d2copza7d2cjumpza7d2exza7d2it3308za700za7za7cgen_emitza7d2copza7d26347za7, BGl_emitzd2copzd2cjumpzd2exzd2it3308z00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6229z00zzcgen_emitzd2copzd2, BgL_bgl_stateza7d20za7d23204za700za7za7cgen_emitza7d2copza7d26348za7, BGl_STATEzd20zd23204z00zzcgen_emitzd2copzd2, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_emitzd2bdbzd2loczd2envzd2zzcgen_emitzd2copzd2, BgL_bgl__emitza7d2bdbza7d2locza700za7za7cgen_emitza7d2copza7d26349za7, BGl__emitzd2bdbzd2locz00zzcgen_emitzd2copzd2, 0L, 1 );
DEFINE_EXPORT_GENERIC( BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_bgl__emitza7d2copza7d2za7za7cgen_emitza7d2copza7d26350z00, BGl__emitzd2copzd2zzcgen_emitzd2copzd2, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcgen_emitzd2copzd2(long BgL_checksumz00_3998, char * BgL_fromz00_3999)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcgen_emitzd2copzd2))
{ 
BGl_requirezd2initializa7ationz75zzcgen_emitzd2copzd2 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcgen_emitzd2copzd2(); 
BGl_cnstzd2initzd2zzcgen_emitzd2copzd2(); 
BGl_importedzd2moduleszd2initz00zzcgen_emitzd2copzd2(); 
BGl_methodzd2initzd2zzcgen_emitzd2copzd2(); 
BGl_toplevelzd2initzd2zzcgen_emitzd2copzd2(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcgen_emitzd2copzd2()
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(((long)0), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "cgen_emit-cop"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcgen_emitzd2copzd2()
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 15 */
{ /* ./Cgen/emit-cop.scm 15 */
obj_t BgL_cportz00_3991;
BgL_cportz00_3991 = 
open_input_string(BGl_string6234z00zzcgen_emitzd2copzd2); 
{ 
long BgL_iz00_3992;
BgL_iz00_3992 = ((long)8); 
BgL_loopz00_3993:
{ /* ./Cgen/emit-cop.scm 15 */
bool_t BgL_test6236z00_3994;
BgL_test6236z00_3994 = 
(BgL_iz00_3992==((long)-1)); 
if(BgL_test6236z00_3994)
{ /* ./Cgen/emit-cop.scm 15 */
return BUNSPEC;}  else 
{ /* ./Cgen/emit-cop.scm 15 */
{ /* ./Cgen/emit-cop.scm 15 */
obj_t BgL_arg6238z00_3995;
{ /* ./Cgen/emit-cop.scm 15 */
obj_t BgL_list6241z00_3996;
BgL_list6241z00_3996 = 
MAKE_PAIR(BgL_cportz00_3991, BNIL); 
BgL_arg6238z00_3995 = 
BGl_readz00zz__readerz00(BgL_list6241z00_3996); } 
{ /* ./Cgen/emit-cop.scm 15 */
int BgL_auxz00_4020;
BgL_auxz00_4020 = 
(int)(BgL_iz00_3992); 
CNST_TABLE_SET(BgL_auxz00_4020, BgL_arg6238z00_3995); } } 
{ /* ./Cgen/emit-cop.scm 15 */
int BgL_auxz00_3997;
{ /* ./Cgen/emit-cop.scm 15 */
long BgL_auxz00_4023;
BgL_auxz00_4023 = 
(BgL_iz00_3992-((long)1)); 
BgL_auxz00_3997 = 
(int)(BgL_auxz00_4023); } 
{ 
long BgL_iz00_4026;
BgL_iz00_4026 = 
(long)(BgL_auxz00_3997); 
BgL_iz00_3992 = BgL_iz00_4026; 
goto BgL_loopz00_3993;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcgen_emitzd2copzd2()
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 15 */
BGl_za2bfalseza2z00zzcgen_emitzd2copzd2 = BFALSE; 
return ( 
BGl_za2bdbzd2locza2zd2zzcgen_emitzd2copzd2 = BUNSPEC, BUNSPEC) ;} 
}



/* reset-bdb-loc! */
BGL_EXPORTED_DEF obj_t BGl_resetzd2bdbzd2locz12z12zzcgen_emitzd2copzd2()
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 593 */
return ( 
BGl_za2bdbzd2locza2zd2zzcgen_emitzd2copzd2 = BUNSPEC, BUNSPEC) ;} 
}



/* _reset-bdb-loc! */
obj_t BGl__resetzd2bdbzd2locz12z12zzcgen_emitzd2copzd2(obj_t BgL_envz00_3881)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 593 */
return 
BGl_resetzd2bdbzd2locz12z12zzcgen_emitzd2copzd2();} 
}



/* get-current-bdb-loc */
BGL_EXPORTED_DEF obj_t BGl_getzd2currentzd2bdbzd2loczd2zzcgen_emitzd2copzd2()
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 599 */
return BGl_za2bdbzd2locza2zd2zzcgen_emitzd2copzd2;} 
}



/* _get-current-bdb-loc */
obj_t BGl__getzd2currentzd2bdbzd2loczd2zzcgen_emitzd2copzd2(obj_t BgL_envz00_3882)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 599 */
return BGl_za2bdbzd2locza2zd2zzcgen_emitzd2copzd2;} 
}



/* emit-bdb-loc */
BGL_EXPORTED_DEF obj_t BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(obj_t BgL_curzd2loczd2_43)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 610 */
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2:
{ /* ./Cgen/emit-cop.scm 612 */
bool_t BgL_test3342z00_896;
if(
CBOOL(BGl_za2czd2debugzd2lineszd2infoza2zd2zzengine_paramz00))
{ /* ./Cgen/emit-cop.scm 612 */
BgL_test3342z00_896 = 
CBOOL(BGl_za2bdbzd2debugzd2nozd2linezd2directiveszf3za2zf3zzengine_paramz00); }  else 
{ /* ./Cgen/emit-cop.scm 612 */
BgL_test3342z00_896 = ((bool_t)1); } 
if(BgL_test3342z00_896)
{ /* ./Cgen/emit-cop.scm 612 */
{ /* ./Cgen/emit-cop.scm 613 */
obj_t BgL_portz00_1970;
BgL_portz00_1970 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_1970);} }  else 
{ /* ./Cgen/emit-cop.scm 614 */
bool_t BgL_test3344z00_897;
if(
STRUCTP(BgL_curzd2loczd2_43))
{ /* ./Cgen/emit-cop.scm 614 */
obj_t BgL_auxz00_4038;obj_t BgL_auxz00_4036;
BgL_auxz00_4038 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_4036 = 
STRUCT_KEY(BgL_curzd2loczd2_43); 
BgL_test3344z00_897 = 
(BgL_auxz00_4036==BgL_auxz00_4038); }  else 
{ /* ./Cgen/emit-cop.scm 614 */
BgL_test3344z00_897 = ((bool_t)0); } 
if(BgL_test3344z00_897)
{ /* ./Cgen/emit-cop.scm 614 */
{ /* ./Cgen/emit-cop.scm 627 */
obj_t BgL_curzd2fnamezd2_898;obj_t BgL_curzd2linezd2_899;
{ /* ./Cgen/emit-cop.scm 627 */
int BgL_auxz00_4042;
BgL_auxz00_4042 = 
(int)(((long)0)); 
BgL_curzd2fnamezd2_898 = 
STRUCT_REF(BgL_curzd2loczd2_43, BgL_auxz00_4042); } 
{ /* ./Cgen/emit-cop.scm 628 */
int BgL_auxz00_4045;
BgL_auxz00_4045 = 
(int)(((long)2)); 
BgL_curzd2linezd2_899 = 
STRUCT_REF(BgL_curzd2loczd2_43, BgL_auxz00_4045); } 
{ /* ./Cgen/emit-cop.scm 629 */
obj_t BgL_port3252z00_900;
BgL_port3252z00_900 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
display_string(BGl_string6154z00zzcgen_emitzd2copzd2, BgL_port3252z00_900); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_curzd2linezd2_899, BgL_port3252z00_900); 
display_string(BGl_string6155z00zzcgen_emitzd2copzd2, BgL_port3252z00_900); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_curzd2fnamezd2_898, BgL_port3252z00_900); 
{ /* ./Cgen/emit-cop.scm 629 */
obj_t BgL_auxz00_4052;
BgL_auxz00_4052 = 
BCHAR(((unsigned char)'"')); 
display_char(BgL_auxz00_4052, BgL_port3252z00_900); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3252z00_900); } 
return ( 
BGl_za2bdbzd2locza2zd2zzcgen_emitzd2copzd2 = BgL_curzd2loczd2_43, BUNSPEC) ;} }  else 
{ /* ./Cgen/emit-cop.scm 614 */
{ /* ./Cgen/emit-cop.scm 616 */
bool_t BgL_test3353z00_901;
{ /* ./Cgen/emit-cop.scm 616 */
obj_t BgL_oz00_1985;
BgL_oz00_1985 = BGl_za2bdbzd2locza2zd2zzcgen_emitzd2copzd2; 
if(
STRUCTP(BgL_oz00_1985))
{ /* ./Cgen/emit-cop.scm 616 */
obj_t BgL_auxz00_4060;obj_t BgL_auxz00_4058;
BgL_auxz00_4060 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_4058 = 
STRUCT_KEY(BgL_oz00_1985); 
BgL_test3353z00_901 = 
(BgL_auxz00_4058==BgL_auxz00_4060); }  else 
{ /* ./Cgen/emit-cop.scm 616 */
BgL_test3353z00_901 = ((bool_t)0); } } 
if(BgL_test3353z00_901)
{ /* ./Cgen/emit-cop.scm 616 */
{ 
obj_t BgL_curzd2loczd2_4064;
BgL_curzd2loczd2_4064 = BGl_za2bdbzd2locza2zd2zzcgen_emitzd2copzd2; 
BgL_curzd2loczd2_43 = BgL_curzd2loczd2_4064; 
goto BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2;} }  else 
{ /* ./Cgen/emit-cop.scm 618 */
bool_t BgL_test3355z00_902;
{ /* ./Cgen/emit-cop.scm 618 */
obj_t BgL_oz00_1992;
BgL_oz00_1992 = BGl_za2modulezd2locationza2zd2zzmodule_modulez00; 
if(
STRUCTP(BgL_oz00_1992))
{ /* ./Cgen/emit-cop.scm 618 */
obj_t BgL_auxz00_4069;obj_t BgL_auxz00_4067;
BgL_auxz00_4069 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_4067 = 
STRUCT_KEY(BgL_oz00_1992); 
BgL_test3355z00_902 = 
(BgL_auxz00_4067==BgL_auxz00_4069); }  else 
{ /* ./Cgen/emit-cop.scm 618 */
BgL_test3355z00_902 = ((bool_t)0); } } 
if(BgL_test3355z00_902)
{ /* ./Cgen/emit-cop.scm 618 */
{ 
obj_t BgL_curzd2loczd2_4073;
BgL_curzd2loczd2_4073 = BGl_za2modulezd2locationza2zd2zzmodule_modulez00; 
BgL_curzd2loczd2_43 = BgL_curzd2loczd2_4073; 
goto BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2;} }  else 
{ /* ./Cgen/emit-cop.scm 622 */
bool_t BgL_test3357z00_903;
{ /* ./Cgen/emit-cop.scm 622 */
obj_t BgL_objz00_1999;
BgL_objz00_1999 = BGl_za2srczd2filesza2zd2zzengine_paramz00; 
BgL_test3357z00_903 = 
PAIRP(BgL_objz00_1999); } 
if(BgL_test3357z00_903)
{ /* ./Cgen/emit-cop.scm 622 */
{ /* ./Cgen/emit-cop.scm 625 */
obj_t BgL_port3251z00_904;
BgL_port3251z00_904 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
display_string(BGl_string6154z00zzcgen_emitzd2copzd2, BgL_port3251z00_904); 
{ /* ./Cgen/emit-cop.scm 625 */
obj_t BgL_auxz00_4077;
BgL_auxz00_4077 = 
BINT(((long)1)); 
display_fixnum(BgL_auxz00_4077, BgL_port3251z00_904); } 
display_string(BGl_string6155z00zzcgen_emitzd2copzd2, BgL_port3251z00_904); 
{ /* ./Cgen/emit-cop.scm 625 */
obj_t BgL_arg3362z00_905;
{ /* ./Cgen/emit-cop.scm 625 */
obj_t BgL_pairz00_2000;
BgL_pairz00_2000 = BGl_za2srczd2filesza2zd2zzengine_paramz00; 
BgL_arg3362z00_905 = 
CAR(BgL_pairz00_2000); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3362z00_905, BgL_port3251z00_904); } 
{ /* ./Cgen/emit-cop.scm 625 */
obj_t BgL_auxz00_4083;
BgL_auxz00_4083 = 
BCHAR(((unsigned char)'"')); 
display_char(BgL_auxz00_4083, BgL_port3251z00_904); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3251z00_904);} }  else 
{ /* ./Cgen/emit-cop.scm 622 */
return BFALSE;} } } } } } } } 
}



/* _emit-bdb-loc */
obj_t BGl__emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3883, obj_t BgL_curzd2loczd2_3884)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 610 */
return 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_curzd2loczd2_3884);} 
}



/* emit-bdb-loc-comment */
obj_t BGl_emitzd2bdbzd2loczd2commentzd2zzcgen_emitzd2copzd2(obj_t BgL_curzd2loczd2_44)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 638 */
{ /* ./Cgen/emit-cop.scm 639 */
bool_t BgL_test3371z00_906;
if(
STRUCTP(BgL_curzd2loczd2_44))
{ /* ./Cgen/emit-cop.scm 639 */
obj_t BgL_auxz00_4092;obj_t BgL_auxz00_4090;
BgL_auxz00_4092 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_4090 = 
STRUCT_KEY(BgL_curzd2loczd2_44); 
BgL_test3371z00_906 = 
(BgL_auxz00_4090==BgL_auxz00_4092); }  else 
{ /* ./Cgen/emit-cop.scm 639 */
BgL_test3371z00_906 = ((bool_t)0); } 
if(BgL_test3371z00_906)
{ /* ./Cgen/emit-cop.scm 639 */
display_string(BGl_string6156z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 642 */
obj_t BgL_arg3374z00_907;
{ /* ./Cgen/emit-cop.scm 642 */
int BgL_auxz00_4097;
BgL_auxz00_4097 = 
(int)(((long)0)); 
BgL_arg3374z00_907 = 
STRUCT_REF(BgL_curzd2loczd2_44, BgL_auxz00_4097); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3374z00_907, BGl_za2czd2portza2zd2zzbackend_c_emitz00); } 
display_string(BGl_string6157z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 644 */
obj_t BgL_arg3379z00_908;
{ /* ./Cgen/emit-cop.scm 644 */
int BgL_auxz00_4102;
BgL_auxz00_4102 = 
(int)(((long)2)); 
BgL_arg3379z00_908 = 
STRUCT_REF(BgL_curzd2loczd2_44, BgL_auxz00_4102); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3379z00_908, BGl_za2czd2portza2zd2zzbackend_c_emitz00); } 
return 
display_string(BGl_string6158z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00);}  else 
{ /* ./Cgen/emit-cop.scm 639 */
return BFALSE;} } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcgen_emitzd2copzd2()
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_emitzd2copzd2default3253zd2envzd2zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_clabelz00zzcgen_copz00, BGl_proc6159z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cgotoz00zzcgen_copz00, BGl_proc6160z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_blockz00zzcgen_copz00, BGl_proc6161z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_creturnz00zzcgen_copz00, BGl_proc6162z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_catomz00zzcgen_copz00, BGl_proc6163z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cvoidz00zzcgen_copz00, BGl_proc6164z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_varcz00zzcgen_copz00, BGl_proc6165z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cpragmaz00zzcgen_copz00, BGl_proc6166z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_ccastz00zzcgen_copz00, BGl_proc6167z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_csequencez00zzcgen_copz00, BGl_proc6168z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_nopz00zzcgen_copz00, BGl_proc6169z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_stopz00zzcgen_copz00, BGl_proc6170z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_csetqz00zzcgen_copz00, BGl_proc6171z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cifz00zzcgen_copz00, BGl_proc6172z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_localzd2varzd2zzcgen_copz00, BGl_proc6173z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_bdbzd2blockzd2zzcgen_copz00, BGl_proc6174z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cfuncallz00zzcgen_copz00, BGl_proc6175z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_capplyz00zzcgen_copz00, BGl_proc6176z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cappz00zzcgen_copz00, BGl_proc6177z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cfailz00zzcgen_copz00, BGl_proc6178z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cswitchz00zzcgen_copz00, BGl_proc6179z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cmakezd2boxzd2zzcgen_copz00, BGl_proc6180z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cboxzd2refzd2zzcgen_copz00, BGl_proc6181z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cboxzd2setz12zc0zzcgen_copz00, BGl_proc6182z00zzcgen_emitzd2copzd2); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_csetzd2exzd2itz00zzcgen_copz00, BGl_proc6183z00zzcgen_emitzd2copzd2); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BGl_cjumpzd2exzd2itz00zzcgen_copz00, BGl_proc6184z00zzcgen_emitzd2copzd2);} 
}



/* ignore */
obj_t BGl_ignorez00zzcgen_emitzd2copzd2(obj_t BgL_argsz00_3923, obj_t BgL_statezd20zd23204z00_3922, obj_t BgL_thezd2rgczd2contextz00_3921, obj_t BgL_procz00_3920, obj_t BgL_inputzd2portzd2_3919)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 131 */
BGl_ignorez00zzcgen_emitzd2copzd2:
RGC_START_MATCH(BgL_inputzd2portzd2_3919); 
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_matchz00_1499;
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4072z00_1511;
BgL_test4072z00_1511 = 
PROCEDUREP(BgL_procz00_3920); 
if(BgL_test4072z00_1511)
{ /* ./Cgen/emit-cop.scm 131 */
obj_t BgL_auxz00_4137;
BgL_auxz00_4137 = 
PROCEDURE_ENTRY(BgL_procz00_3920)(BgL_procz00_3920, BgL_statezd20zd23204z00_3922, BgL_inputzd2portzd2_3919, 
BINT(((long)3)), 
CELL_REF(BgL_thezd2rgczd2contextz00_3921), BEOA); 
BgL_matchz00_1499 = 
(long)CINT(BgL_auxz00_4137); }  else 
{ /* ./Cgen/emit-cop.scm 131 */
obj_t BgL_auxz00_4142;
BgL_auxz00_4142 = 
BGl_STATEzd20zd23204z00zzcgen_emitzd2copzd2(BgL_statezd20zd23204z00_3922, BgL_inputzd2portzd2_3919, 
BINT(((long)3)), 
CELL_REF(BgL_thezd2rgczd2contextz00_3921)); 
BgL_matchz00_1499 = 
(long)CINT(BgL_auxz00_4142); } } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_3919); 
switch( BgL_matchz00_1499) { case ((long)3) : 

return 
BGl_thezd2failurezd2zzcgen_emitzd2copzd2(BgL_inputzd2portzd2_3919);break;case ((long)2) : 

{ /* ./Cgen/emit-cop.scm 143 */
obj_t BgL_arg4047z00_1503;
BgL_arg4047z00_1503 = 
BGl_thezd2stringzd2zzcgen_emitzd2copzd2(BgL_inputzd2portzd2_3919); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4047z00_1503, BGl_za2czd2portza2zd2zzbackend_c_emitz00); } 
{ 

goto BGl_ignorez00zzcgen_emitzd2copzd2;} break;case ((long)1) : 

display_string(BGl_string6185z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ 

goto BGl_ignorez00zzcgen_emitzd2copzd2;} break;case ((long)0) : 

{ /* ./Cgen/emit-cop.scm 133 */
obj_t BgL_strz00_1504;
BgL_strz00_1504 = 
BGl_thezd2stringzd2zzcgen_emitzd2copzd2(BgL_inputzd2portzd2_3919); 
{ /* ./Cgen/emit-cop.scm 133 */
int BgL_lenz00_1505;
{ /* ./Cgen/emit-cop.scm 134 */
int BgL_res4983z00_2188;
{ /* ./Cgen/emit-cop.scm 134 */
long BgL_auxz00_4152;
BgL_auxz00_4152 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_3919); 
BgL_res4983z00_2188 = 
(int)(BgL_auxz00_4152); } 
BgL_lenz00_1505 = BgL_res4983z00_2188; } 
{ /* ./Cgen/emit-cop.scm 134 */
obj_t BgL_indexz00_1506;
{ /* ./Cgen/emit-cop.scm 136 */
obj_t BgL_arg4062z00_1509;
{ /* ./Cgen/emit-cop.scm 136 */
int BgL_startz00_2190;
BgL_startz00_2190 = 
(int)(((long)1)); 
BgL_arg4062z00_1509 = 
c_substring(BgL_strz00_1504, BgL_startz00_2190, BgL_lenz00_1505); } 
BgL_indexz00_1506 = 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(BgL_arg4062z00_1509, BNIL); } 
{ /* ./Cgen/emit-cop.scm 135 */

{ /* ./Cgen/emit-cop.scm 137 */
obj_t BgL_arg4054z00_1507;
{ /* ./Cgen/emit-cop.scm 137 */
long BgL_arg4057z00_1508;
{ /* ./Cgen/emit-cop.scm 137 */
long BgL_auxz00_4158;
BgL_auxz00_4158 = 
(long)CINT(BgL_indexz00_1506); 
BgL_arg4057z00_1508 = 
(BgL_auxz00_4158-((long)1)); } 
{ /* ./Cgen/emit-cop.scm 137 */
int BgL_kz00_2195;
BgL_kz00_2195 = 
(int)(BgL_arg4057z00_1508); 
BgL_arg4054z00_1507 = 
VECTOR_REF(BgL_argsz00_3923,BgL_kz00_2195); } } 
{ /* ./Cgen/emit-cop.scm 137 */
bool_t BgL_res4986z00_2222;
{ /* ./Cgen/emit-cop.scm 137 */
BgL_copz00_bglt BgL_copz00_2196;
BgL_copz00_2196 = 
(BgL_copz00_bglt)(BgL_arg4054z00_1507); 
{ /* ./Cgen/emit-cop.scm 137 */
obj_t BgL_method3254z00_2197;
{ /* ./Cgen/emit-cop.scm 137 */
BgL_objectz00_bglt BgL_objz00_2198;
BgL_objz00_2198 = 
(BgL_objectz00_bglt)(BgL_copz00_2196); 
{ /* ./Cgen/emit-cop.scm 137 */
long BgL_objzd2classzd2numz00_2199;
BgL_objzd2classzd2numz00_2199 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2198); 
{ /* ./Cgen/emit-cop.scm 137 */
obj_t BgL_arg2017z00_2200;
{ /* ./Cgen/emit-cop.scm 137 */
int BgL_auxz00_4166;
BgL_auxz00_4166 = 
(int)(((long)1)); 
BgL_arg2017z00_2200 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4166); } 
{ /* ./Cgen/emit-cop.scm 137 */
int BgL_offsetz00_2203;
BgL_offsetz00_2203 = 
(int)(BgL_objzd2classzd2numz00_2199); 
{ /* ./Cgen/emit-cop.scm 137 */
long BgL_offsetz00_2204;
{ /* ./Cgen/emit-cop.scm 137 */
long BgL_auxz00_4170;
BgL_auxz00_4170 = 
(long)(BgL_offsetz00_2203); 
BgL_offsetz00_2204 = 
(BgL_auxz00_4170-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 137 */
long BgL_modz00_2205;
{ /* ./Cgen/emit-cop.scm 137 */
int BgL_arg2028z00_2206;
BgL_arg2028z00_2206 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 137 */
long BgL_n2z00_2214;
BgL_n2z00_2214 = 
(long)(BgL_arg2028z00_2206); 
BgL_modz00_2205 = 
(BgL_offsetz00_2204/BgL_n2z00_2214); } } 
{ /* ./Cgen/emit-cop.scm 137 */
long BgL_restz00_2207;
{ /* ./Cgen/emit-cop.scm 137 */
int BgL_arg2024z00_2208;
BgL_arg2024z00_2208 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 137 */
long BgL_n2z00_2217;
BgL_n2z00_2217 = 
(long)(BgL_arg2024z00_2208); 
BgL_restz00_2207 = 
(BgL_offsetz00_2204%BgL_n2z00_2217); } } 
{ /* ./Cgen/emit-cop.scm 137 */

{ /* ./Cgen/emit-cop.scm 137 */
obj_t BgL_bucketz00_2209;
{ /* ./Cgen/emit-cop.scm 137 */
int BgL_kz00_2219;
BgL_kz00_2219 = 
(int)(BgL_modz00_2205); 
BgL_bucketz00_2209 = 
VECTOR_REF(BgL_arg2017z00_2200,BgL_kz00_2219); } 
{ /* ./Cgen/emit-cop.scm 137 */
int BgL_kz00_2221;
BgL_kz00_2221 = 
(int)(BgL_restz00_2207); 
BgL_method3254z00_2197 = 
VECTOR_REF(BgL_bucketz00_2209,BgL_kz00_2221); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 137 */
obj_t BgL_auxz00_4183;
BgL_auxz00_4183 = 
PROCEDURE_ENTRY(BgL_method3254z00_2197)(BgL_method3254z00_2197, 
(obj_t)(BgL_copz00_2196), BEOA); 
BgL_res4986z00_2222 = 
CBOOL(BgL_auxz00_4183); } } } BgL_res4986z00_2222; } } 
{ 

goto BGl_ignorez00zzcgen_emitzd2copzd2;} } } } } break;
default: 
return 
BGl_case_else3211z00zzcgen_emitzd2copzd2(BgL_matchz00_1499);} } } 
}



/* the-string */
obj_t BGl_thezd2stringzd2zzcgen_emitzd2copzd2(obj_t BgL_inputzd2portzd2_3924)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_arg4128z00_1544;
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_res4988z00_2234;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_4190;
BgL_auxz00_4190 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_3924); 
BgL_res4988z00_2234 = 
(int)(BgL_auxz00_4190); } 
BgL_arg4128z00_1544 = BgL_res4988z00_2234; } 
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_startz00_2236;
BgL_startz00_2236 = 
(int)(((long)0)); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_3924, BgL_startz00_2236, BgL_arg4128z00_1544);} } } 
}



/* the-failure */
obj_t BGl_thezd2failurezd2zzcgen_emitzd2copzd2(obj_t BgL_inputzd2portzd2_3925)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4085z00_1521;
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_arg4092z00_1524;
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_res4987z00_2227;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_4195;
BgL_auxz00_4195 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_3925); 
BgL_res4987z00_2227 = 
(int)(BgL_auxz00_4195); } 
BgL_arg4092z00_1524 = BgL_res4987z00_2227; } 
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_4198;
BgL_auxz00_4198 = 
(long)(BgL_arg4092z00_1524); 
BgL_test4085z00_1521 = 
(BgL_auxz00_4198==((long)0)); } } 
if(BgL_test4085z00_1521)
{ /* ./Cgen/emit-cop.scm 131 */
return BCNST(256);}  else 
{ /* ./Cgen/emit-cop.scm 131 */
obj_t BgL_arg4087z00_1522;
BgL_arg4087z00_1522 = 
BGl_thezd2stringzd2zzcgen_emitzd2copzd2(BgL_inputzd2portzd2_3925); 
{ /* ./Cgen/emit-cop.scm 131 */
unsigned char BgL_auxz00_4203;
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_auxz00_4204;
BgL_auxz00_4204 = 
(int)(((long)0)); 
BgL_auxz00_4203 = 
STRING_REF(BgL_arg4087z00_1522, BgL_auxz00_4204); } 
return 
BCHAR(BgL_auxz00_4203);} } } } 
}



/* case_else3211 */
obj_t BGl_case_else3211z00zzcgen_emitzd2copzd2(long BgL_matchz00_3926)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
obj_t BgL_objectz00_2225;
BgL_objectz00_2225 = 
BINT(BgL_matchz00_3926); 
FAILURE(BGl_string6186z00zzcgen_emitzd2copzd2,BGl_string6187z00zzcgen_emitzd2copzd2,BgL_objectz00_2225);} } 
}



/* emit-cop-cjump-ex-it3308 */
obj_t BGl_emitzd2copzd2cjumpzd2exzd2it3308z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3927, obj_t BgL_copz00_3928)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 573 */
{ 
BgL_cjumpzd2exzd2itz00_bglt BgL_copz00_1940;
{ /* ./Cgen/emit-cop.scm 574 */
bool_t BgL_auxz00_4210;
BgL_copz00_1940 = 
(BgL_cjumpzd2exzd2itz00_bglt)(BgL_copz00_3928); 
{ /* ./Cgen/emit-cop.scm 575 */
obj_t BgL_arg4929z00_1944;
{ /* ./Cgen/emit-cop.scm 575 */
BgL_copz00_bglt BgL_obj2662z00_3792;
BgL_obj2662z00_3792 = 
(BgL_copz00_bglt)(BgL_copz00_1940); 
BgL_arg4929z00_1944 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3792))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4929z00_1944); } 
display_string(BGl_string6188z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 577 */
BgL_copz00_bglt BgL_arg4934z00_1945;
BgL_arg4934z00_1945 = 
(((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_copz00_1940))->BgL_exitz00); 
{ /* ./Cgen/emit-cop.scm 577 */
bool_t BgL_res5137z00_3820;
{ /* ./Cgen/emit-cop.scm 577 */
obj_t BgL_method3254z00_3795;
{ /* ./Cgen/emit-cop.scm 577 */
BgL_objectz00_bglt BgL_objz00_3796;
BgL_objz00_3796 = 
(BgL_objectz00_bglt)(BgL_arg4934z00_1945); 
{ /* ./Cgen/emit-cop.scm 577 */
long BgL_objzd2classzd2numz00_3797;
BgL_objzd2classzd2numz00_3797 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3796); 
{ /* ./Cgen/emit-cop.scm 577 */
obj_t BgL_arg2017z00_3798;
{ /* ./Cgen/emit-cop.scm 577 */
int BgL_auxz00_4218;
BgL_auxz00_4218 = 
(int)(((long)1)); 
BgL_arg2017z00_3798 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4218); } 
{ /* ./Cgen/emit-cop.scm 577 */
int BgL_offsetz00_3801;
BgL_offsetz00_3801 = 
(int)(BgL_objzd2classzd2numz00_3797); 
{ /* ./Cgen/emit-cop.scm 577 */
long BgL_offsetz00_3802;
{ /* ./Cgen/emit-cop.scm 577 */
long BgL_auxz00_4222;
BgL_auxz00_4222 = 
(long)(BgL_offsetz00_3801); 
BgL_offsetz00_3802 = 
(BgL_auxz00_4222-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 577 */
long BgL_modz00_3803;
{ /* ./Cgen/emit-cop.scm 577 */
int BgL_arg2028z00_3804;
BgL_arg2028z00_3804 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 577 */
long BgL_n2z00_3812;
BgL_n2z00_3812 = 
(long)(BgL_arg2028z00_3804); 
BgL_modz00_3803 = 
(BgL_offsetz00_3802/BgL_n2z00_3812); } } 
{ /* ./Cgen/emit-cop.scm 577 */
long BgL_restz00_3805;
{ /* ./Cgen/emit-cop.scm 577 */
int BgL_arg2024z00_3806;
BgL_arg2024z00_3806 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 577 */
long BgL_n2z00_3815;
BgL_n2z00_3815 = 
(long)(BgL_arg2024z00_3806); 
BgL_restz00_3805 = 
(BgL_offsetz00_3802%BgL_n2z00_3815); } } 
{ /* ./Cgen/emit-cop.scm 577 */

{ /* ./Cgen/emit-cop.scm 577 */
obj_t BgL_bucketz00_3807;
{ /* ./Cgen/emit-cop.scm 577 */
int BgL_kz00_3817;
BgL_kz00_3817 = 
(int)(BgL_modz00_3803); 
BgL_bucketz00_3807 = 
VECTOR_REF(BgL_arg2017z00_3798,BgL_kz00_3817); } 
{ /* ./Cgen/emit-cop.scm 577 */
int BgL_kz00_3819;
BgL_kz00_3819 = 
(int)(BgL_restz00_3805); 
BgL_method3254z00_3795 = 
VECTOR_REF(BgL_bucketz00_3807,BgL_kz00_3819); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 577 */
obj_t BgL_auxz00_4235;
BgL_auxz00_4235 = 
PROCEDURE_ENTRY(BgL_method3254z00_3795)(BgL_method3254z00_3795, 
(obj_t)(BgL_arg4934z00_1945), BEOA); 
BgL_res5137z00_3820 = 
CBOOL(BgL_auxz00_4235); } } BgL_res5137z00_3820; } } 
{ /* ./Cgen/emit-cop.scm 578 */
obj_t BgL_portz00_3822;
BgL_portz00_3822 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)','), BgL_portz00_3822); } 
{ /* ./Cgen/emit-cop.scm 579 */
BgL_copz00_bglt BgL_arg4939z00_1946;
BgL_arg4939z00_1946 = 
(((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_copz00_1940))->BgL_valuez00); 
{ /* ./Cgen/emit-cop.scm 579 */
bool_t BgL_res5140z00_3850;
{ /* ./Cgen/emit-cop.scm 579 */
obj_t BgL_method3254z00_3825;
{ /* ./Cgen/emit-cop.scm 579 */
BgL_objectz00_bglt BgL_objz00_3826;
BgL_objz00_3826 = 
(BgL_objectz00_bglt)(BgL_arg4939z00_1946); 
{ /* ./Cgen/emit-cop.scm 579 */
long BgL_objzd2classzd2numz00_3827;
BgL_objzd2classzd2numz00_3827 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3826); 
{ /* ./Cgen/emit-cop.scm 579 */
obj_t BgL_arg2017z00_3828;
{ /* ./Cgen/emit-cop.scm 579 */
int BgL_auxz00_4244;
BgL_auxz00_4244 = 
(int)(((long)1)); 
BgL_arg2017z00_3828 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4244); } 
{ /* ./Cgen/emit-cop.scm 579 */
int BgL_offsetz00_3831;
BgL_offsetz00_3831 = 
(int)(BgL_objzd2classzd2numz00_3827); 
{ /* ./Cgen/emit-cop.scm 579 */
long BgL_offsetz00_3832;
{ /* ./Cgen/emit-cop.scm 579 */
long BgL_auxz00_4248;
BgL_auxz00_4248 = 
(long)(BgL_offsetz00_3831); 
BgL_offsetz00_3832 = 
(BgL_auxz00_4248-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 579 */
long BgL_modz00_3833;
{ /* ./Cgen/emit-cop.scm 579 */
int BgL_arg2028z00_3834;
BgL_arg2028z00_3834 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 579 */
long BgL_n2z00_3842;
BgL_n2z00_3842 = 
(long)(BgL_arg2028z00_3834); 
BgL_modz00_3833 = 
(BgL_offsetz00_3832/BgL_n2z00_3842); } } 
{ /* ./Cgen/emit-cop.scm 579 */
long BgL_restz00_3835;
{ /* ./Cgen/emit-cop.scm 579 */
int BgL_arg2024z00_3836;
BgL_arg2024z00_3836 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 579 */
long BgL_n2z00_3845;
BgL_n2z00_3845 = 
(long)(BgL_arg2024z00_3836); 
BgL_restz00_3835 = 
(BgL_offsetz00_3832%BgL_n2z00_3845); } } 
{ /* ./Cgen/emit-cop.scm 579 */

{ /* ./Cgen/emit-cop.scm 579 */
obj_t BgL_bucketz00_3837;
{ /* ./Cgen/emit-cop.scm 579 */
int BgL_kz00_3847;
BgL_kz00_3847 = 
(int)(BgL_modz00_3833); 
BgL_bucketz00_3837 = 
VECTOR_REF(BgL_arg2017z00_3828,BgL_kz00_3847); } 
{ /* ./Cgen/emit-cop.scm 579 */
int BgL_kz00_3849;
BgL_kz00_3849 = 
(int)(BgL_restz00_3835); 
BgL_method3254z00_3825 = 
VECTOR_REF(BgL_bucketz00_3837,BgL_kz00_3849); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 579 */
obj_t BgL_auxz00_4261;
BgL_auxz00_4261 = 
PROCEDURE_ENTRY(BgL_method3254z00_3825)(BgL_method3254z00_3825, 
(obj_t)(BgL_arg4939z00_1946), BEOA); 
BgL_res5140z00_3850 = 
CBOOL(BgL_auxz00_4261); } } BgL_res5140z00_3850; } } 
{ /* ./Cgen/emit-cop.scm 580 */
obj_t BgL_portz00_3852;
BgL_portz00_3852 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_3852); } 
BgL_auxz00_4210 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_4210);} } } 
}



/* emit-cop-cset-ex-it3306 */
obj_t BGl_emitzd2copzd2csetzd2exzd2it3306z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3929, obj_t BgL_copz00_3930)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 546 */
{ 
BgL_csetzd2exzd2itz00_bglt BgL_copz00_1920;
{ /* ./Cgen/emit-cop.scm 547 */
bool_t BgL_auxz00_4269;
BgL_copz00_1920 = 
(BgL_csetzd2exzd2itz00_bglt)(BgL_copz00_3930); 
{ /* ./Cgen/emit-cop.scm 548 */
obj_t BgL_arg4879z00_1924;
{ /* ./Cgen/emit-cop.scm 548 */
BgL_copz00_bglt BgL_obj2662z00_3699;
BgL_obj2662z00_3699 = 
(BgL_copz00_bglt)(BgL_copz00_1920); 
BgL_arg4879z00_1924 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3699))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4879z00_1924); } 
{ /* ./Cgen/emit-cop.scm 549 */
bool_t BgL_test4882z00_1925;
{ /* ./Cgen/emit-cop.scm 549 */
bool_t BgL_test4884z00_1926;
{ /* ./Cgen/emit-cop.scm 549 */
obj_t BgL_objz00_3700;
BgL_objz00_3700 = BGl_za2compilerzd2debugza2zd2zzengine_paramz00; 
BgL_test4884z00_1926 = 
INTEGERP(BgL_objz00_3700); } 
if(BgL_test4884z00_1926)
{ /* ./Cgen/emit-cop.scm 550 */
bool_t BgL_test4885z00_1927;
{ /* ./Cgen/emit-cop.scm 550 */
long BgL_n1z00_3701;
BgL_n1z00_3701 = 
(long)CINT(BGl_za2compilerzd2debugza2zd2zzengine_paramz00); 
BgL_test4885z00_1927 = 
(BgL_n1z00_3701>((long)1)); } 
if(BgL_test4885z00_1927)
{ /* ./Cgen/emit-cop.scm 551 */
bool_t BgL_test4886z00_1928;
{ /* ./Cgen/emit-cop.scm 551 */
obj_t BgL_auxz00_4278;
BgL_auxz00_4278 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BGl_za2targetzd2languageza2zd2zzengine_paramz00, 
CNST_TABLE_REF(((long)1))); 
BgL_test4886z00_1928 = 
CBOOL(BgL_auxz00_4278); } 
if(BgL_test4886z00_1928)
{ /* ./Cgen/emit-cop.scm 551 */
BgL_test4882z00_1925 = ((bool_t)0); }  else 
{ /* ./Cgen/emit-cop.scm 551 */
BgL_test4882z00_1925 = ((bool_t)1); } }  else 
{ /* ./Cgen/emit-cop.scm 550 */
BgL_test4882z00_1925 = ((bool_t)0); } }  else 
{ /* ./Cgen/emit-cop.scm 549 */
BgL_test4882z00_1925 = ((bool_t)0); } } 
if(BgL_test4882z00_1925)
{ /* ./Cgen/emit-cop.scm 549 */
display_string(BGl_string6189z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); }  else 
{ /* ./Cgen/emit-cop.scm 549 */BFALSE; } } 
display_string(BGl_string6190z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 554 */
BgL_copz00_bglt BgL_arg4892z00_1929;
BgL_arg4892z00_1929 = 
(((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_copz00_1920))->BgL_exitz00); 
{ /* ./Cgen/emit-cop.scm 554 */
bool_t BgL_res5128z00_3730;
{ /* ./Cgen/emit-cop.scm 554 */
obj_t BgL_method3254z00_3705;
{ /* ./Cgen/emit-cop.scm 554 */
BgL_objectz00_bglt BgL_objz00_3706;
BgL_objz00_3706 = 
(BgL_objectz00_bglt)(BgL_arg4892z00_1929); 
{ /* ./Cgen/emit-cop.scm 554 */
long BgL_objzd2classzd2numz00_3707;
BgL_objzd2classzd2numz00_3707 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3706); 
{ /* ./Cgen/emit-cop.scm 554 */
obj_t BgL_arg2017z00_3708;
{ /* ./Cgen/emit-cop.scm 554 */
int BgL_auxz00_4289;
BgL_auxz00_4289 = 
(int)(((long)1)); 
BgL_arg2017z00_3708 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4289); } 
{ /* ./Cgen/emit-cop.scm 554 */
int BgL_offsetz00_3711;
BgL_offsetz00_3711 = 
(int)(BgL_objzd2classzd2numz00_3707); 
{ /* ./Cgen/emit-cop.scm 554 */
long BgL_offsetz00_3712;
{ /* ./Cgen/emit-cop.scm 554 */
long BgL_auxz00_4293;
BgL_auxz00_4293 = 
(long)(BgL_offsetz00_3711); 
BgL_offsetz00_3712 = 
(BgL_auxz00_4293-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 554 */
long BgL_modz00_3713;
{ /* ./Cgen/emit-cop.scm 554 */
int BgL_arg2028z00_3714;
BgL_arg2028z00_3714 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 554 */
long BgL_n2z00_3722;
BgL_n2z00_3722 = 
(long)(BgL_arg2028z00_3714); 
BgL_modz00_3713 = 
(BgL_offsetz00_3712/BgL_n2z00_3722); } } 
{ /* ./Cgen/emit-cop.scm 554 */
long BgL_restz00_3715;
{ /* ./Cgen/emit-cop.scm 554 */
int BgL_arg2024z00_3716;
BgL_arg2024z00_3716 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 554 */
long BgL_n2z00_3725;
BgL_n2z00_3725 = 
(long)(BgL_arg2024z00_3716); 
BgL_restz00_3715 = 
(BgL_offsetz00_3712%BgL_n2z00_3725); } } 
{ /* ./Cgen/emit-cop.scm 554 */

{ /* ./Cgen/emit-cop.scm 554 */
obj_t BgL_bucketz00_3717;
{ /* ./Cgen/emit-cop.scm 554 */
int BgL_kz00_3727;
BgL_kz00_3727 = 
(int)(BgL_modz00_3713); 
BgL_bucketz00_3717 = 
VECTOR_REF(BgL_arg2017z00_3708,BgL_kz00_3727); } 
{ /* ./Cgen/emit-cop.scm 554 */
int BgL_kz00_3729;
BgL_kz00_3729 = 
(int)(BgL_restz00_3715); 
BgL_method3254z00_3705 = 
VECTOR_REF(BgL_bucketz00_3717,BgL_kz00_3729); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 554 */
obj_t BgL_auxz00_4306;
BgL_auxz00_4306 = 
PROCEDURE_ENTRY(BgL_method3254z00_3705)(BgL_method3254z00_3705, 
(obj_t)(BgL_arg4892z00_1929), BEOA); 
BgL_res5128z00_3730 = 
CBOOL(BgL_auxz00_4306); } } BgL_res5128z00_3730; } } 
display_string(BGl_string6191z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 557 */
bool_t BgL_test4896z00_1930;
{ /* ./Cgen/emit-cop.scm 557 */
bool_t BgL_test4898z00_1931;
{ /* ./Cgen/emit-cop.scm 557 */
obj_t BgL_objz00_3731;
BgL_objz00_3731 = BGl_za2compilerzd2debugza2zd2zzengine_paramz00; 
BgL_test4898z00_1931 = 
INTEGERP(BgL_objz00_3731); } 
if(BgL_test4898z00_1931)
{ /* ./Cgen/emit-cop.scm 558 */
bool_t BgL_test4899z00_1932;
{ /* ./Cgen/emit-cop.scm 558 */
long BgL_n1z00_3732;
BgL_n1z00_3732 = 
(long)CINT(BGl_za2compilerzd2debugza2zd2zzengine_paramz00); 
BgL_test4899z00_1932 = 
(BgL_n1z00_3732>((long)1)); } 
if(BgL_test4899z00_1932)
{ /* ./Cgen/emit-cop.scm 559 */
bool_t BgL_test4900z00_1933;
{ /* ./Cgen/emit-cop.scm 559 */
obj_t BgL_auxz00_4317;
BgL_auxz00_4317 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BGl_za2targetzd2languageza2zd2zzengine_paramz00, 
CNST_TABLE_REF(((long)1))); 
BgL_test4900z00_1933 = 
CBOOL(BgL_auxz00_4317); } 
if(BgL_test4900z00_1933)
{ /* ./Cgen/emit-cop.scm 559 */
BgL_test4896z00_1930 = ((bool_t)0); }  else 
{ /* ./Cgen/emit-cop.scm 559 */
BgL_test4896z00_1930 = ((bool_t)1); } }  else 
{ /* ./Cgen/emit-cop.scm 558 */
BgL_test4896z00_1930 = ((bool_t)0); } }  else 
{ /* ./Cgen/emit-cop.scm 557 */
BgL_test4896z00_1930 = ((bool_t)0); } } 
if(BgL_test4896z00_1930)
{ /* ./Cgen/emit-cop.scm 557 */
display_string(BGl_string6192z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); }  else 
{ /* ./Cgen/emit-cop.scm 557 */BFALSE; } } 
{ /* ./Cgen/emit-cop.scm 561 */
BgL_copz00_bglt BgL_arg4905z00_1934;
BgL_arg4905z00_1934 = 
(((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_copz00_1920))->BgL_jumpzd2valuezd2); 
{ /* ./Cgen/emit-cop.scm 561 */
bool_t BgL_res5131z00_3761;
{ /* ./Cgen/emit-cop.scm 561 */
obj_t BgL_method3254z00_3736;
{ /* ./Cgen/emit-cop.scm 561 */
BgL_objectz00_bglt BgL_objz00_3737;
BgL_objz00_3737 = 
(BgL_objectz00_bglt)(BgL_arg4905z00_1934); 
{ /* ./Cgen/emit-cop.scm 561 */
long BgL_objzd2classzd2numz00_3738;
BgL_objzd2classzd2numz00_3738 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3737); 
{ /* ./Cgen/emit-cop.scm 561 */
obj_t BgL_arg2017z00_3739;
{ /* ./Cgen/emit-cop.scm 561 */
int BgL_auxz00_4327;
BgL_auxz00_4327 = 
(int)(((long)1)); 
BgL_arg2017z00_3739 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4327); } 
{ /* ./Cgen/emit-cop.scm 561 */
int BgL_offsetz00_3742;
BgL_offsetz00_3742 = 
(int)(BgL_objzd2classzd2numz00_3738); 
{ /* ./Cgen/emit-cop.scm 561 */
long BgL_offsetz00_3743;
{ /* ./Cgen/emit-cop.scm 561 */
long BgL_auxz00_4331;
BgL_auxz00_4331 = 
(long)(BgL_offsetz00_3742); 
BgL_offsetz00_3743 = 
(BgL_auxz00_4331-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 561 */
long BgL_modz00_3744;
{ /* ./Cgen/emit-cop.scm 561 */
int BgL_arg2028z00_3745;
BgL_arg2028z00_3745 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 561 */
long BgL_n2z00_3753;
BgL_n2z00_3753 = 
(long)(BgL_arg2028z00_3745); 
BgL_modz00_3744 = 
(BgL_offsetz00_3743/BgL_n2z00_3753); } } 
{ /* ./Cgen/emit-cop.scm 561 */
long BgL_restz00_3746;
{ /* ./Cgen/emit-cop.scm 561 */
int BgL_arg2024z00_3747;
BgL_arg2024z00_3747 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 561 */
long BgL_n2z00_3756;
BgL_n2z00_3756 = 
(long)(BgL_arg2024z00_3747); 
BgL_restz00_3746 = 
(BgL_offsetz00_3743%BgL_n2z00_3756); } } 
{ /* ./Cgen/emit-cop.scm 561 */

{ /* ./Cgen/emit-cop.scm 561 */
obj_t BgL_bucketz00_3748;
{ /* ./Cgen/emit-cop.scm 561 */
int BgL_kz00_3758;
BgL_kz00_3758 = 
(int)(BgL_modz00_3744); 
BgL_bucketz00_3748 = 
VECTOR_REF(BgL_arg2017z00_3739,BgL_kz00_3758); } 
{ /* ./Cgen/emit-cop.scm 561 */
int BgL_kz00_3760;
BgL_kz00_3760 = 
(int)(BgL_restz00_3746); 
BgL_method3254z00_3736 = 
VECTOR_REF(BgL_bucketz00_3748,BgL_kz00_3760); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 561 */
obj_t BgL_auxz00_4344;
BgL_auxz00_4344 = 
PROCEDURE_ENTRY(BgL_method3254z00_3736)(BgL_method3254z00_3736, 
(obj_t)(BgL_arg4905z00_1934), BEOA); 
BgL_res5131z00_3761 = 
CBOOL(BgL_auxz00_4344); } } BgL_res5131z00_3761; } } 
{ /* ./Cgen/emit-cop.scm 562 */
obj_t BgL_arg4909z00_1935;
{ /* ./Cgen/emit-cop.scm 562 */
BgL_copz00_bglt BgL_obj2662z00_3762;
BgL_obj2662z00_3762 = 
(BgL_copz00_bglt)(BgL_copz00_1920); 
BgL_arg4909z00_1935 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3762))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4909z00_1935); } 
display_string(BGl_string6193z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 564 */
BgL_copz00_bglt BgL_arg4914z00_1936;
BgL_arg4914z00_1936 = 
(((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_copz00_1920))->BgL_bodyz00); 
{ /* ./Cgen/emit-cop.scm 564 */
bool_t BgL_res5134z00_3790;
{ /* ./Cgen/emit-cop.scm 564 */
obj_t BgL_method3254z00_3765;
{ /* ./Cgen/emit-cop.scm 564 */
BgL_objectz00_bglt BgL_objz00_3766;
BgL_objz00_3766 = 
(BgL_objectz00_bglt)(BgL_arg4914z00_1936); 
{ /* ./Cgen/emit-cop.scm 564 */
long BgL_objzd2classzd2numz00_3767;
BgL_objzd2classzd2numz00_3767 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3766); 
{ /* ./Cgen/emit-cop.scm 564 */
obj_t BgL_arg2017z00_3768;
{ /* ./Cgen/emit-cop.scm 564 */
int BgL_auxz00_4356;
BgL_auxz00_4356 = 
(int)(((long)1)); 
BgL_arg2017z00_3768 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4356); } 
{ /* ./Cgen/emit-cop.scm 564 */
int BgL_offsetz00_3771;
BgL_offsetz00_3771 = 
(int)(BgL_objzd2classzd2numz00_3767); 
{ /* ./Cgen/emit-cop.scm 564 */
long BgL_offsetz00_3772;
{ /* ./Cgen/emit-cop.scm 564 */
long BgL_auxz00_4360;
BgL_auxz00_4360 = 
(long)(BgL_offsetz00_3771); 
BgL_offsetz00_3772 = 
(BgL_auxz00_4360-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 564 */
long BgL_modz00_3773;
{ /* ./Cgen/emit-cop.scm 564 */
int BgL_arg2028z00_3774;
BgL_arg2028z00_3774 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 564 */
long BgL_n2z00_3782;
BgL_n2z00_3782 = 
(long)(BgL_arg2028z00_3774); 
BgL_modz00_3773 = 
(BgL_offsetz00_3772/BgL_n2z00_3782); } } 
{ /* ./Cgen/emit-cop.scm 564 */
long BgL_restz00_3775;
{ /* ./Cgen/emit-cop.scm 564 */
int BgL_arg2024z00_3776;
BgL_arg2024z00_3776 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 564 */
long BgL_n2z00_3785;
BgL_n2z00_3785 = 
(long)(BgL_arg2024z00_3776); 
BgL_restz00_3775 = 
(BgL_offsetz00_3772%BgL_n2z00_3785); } } 
{ /* ./Cgen/emit-cop.scm 564 */

{ /* ./Cgen/emit-cop.scm 564 */
obj_t BgL_bucketz00_3777;
{ /* ./Cgen/emit-cop.scm 564 */
int BgL_kz00_3787;
BgL_kz00_3787 = 
(int)(BgL_modz00_3773); 
BgL_bucketz00_3777 = 
VECTOR_REF(BgL_arg2017z00_3768,BgL_kz00_3787); } 
{ /* ./Cgen/emit-cop.scm 564 */
int BgL_kz00_3789;
BgL_kz00_3789 = 
(int)(BgL_restz00_3775); 
BgL_method3254z00_3765 = 
VECTOR_REF(BgL_bucketz00_3777,BgL_kz00_3789); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 564 */
obj_t BgL_auxz00_4373;
BgL_auxz00_4373 = 
PROCEDURE_ENTRY(BgL_method3254z00_3765)(BgL_method3254z00_3765, 
(obj_t)(BgL_arg4914z00_1936), BEOA); 
BgL_res5134z00_3790 = 
CBOOL(BgL_auxz00_4373); } } BgL_res5134z00_3790; } } 
{ /* ./Cgen/emit-cop.scm 565 */
obj_t BgL_arg4918z00_1937;
{ /* ./Cgen/emit-cop.scm 565 */
BgL_copz00_bglt BgL_obj2662z00_3791;
BgL_obj2662z00_3791 = 
(BgL_copz00_bglt)(BgL_copz00_1920); 
BgL_arg4918z00_1937 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3791))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4918z00_1937); } 
display_string(BGl_string6194z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BgL_auxz00_4269 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_4269);} } } 
}



/* emit-cop-cbox-set!3304 */
obj_t BGl_emitzd2copzd2cboxzd2setz123304zc0zzcgen_emitzd2copzd2(obj_t BgL_envz00_3931, obj_t BgL_copz00_3932)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 533 */
{ 
BgL_cboxzd2setz12zc0_bglt BgL_copz00_1911;
{ /* ./Cgen/emit-cop.scm 534 */
bool_t BgL_auxz00_4384;
BgL_copz00_1911 = 
(BgL_cboxzd2setz12zc0_bglt)(BgL_copz00_3932); 
{ /* ./Cgen/emit-cop.scm 535 */
obj_t BgL_arg4858z00_1915;
{ /* ./Cgen/emit-cop.scm 535 */
BgL_copz00_bglt BgL_obj2662z00_3640;
BgL_obj2662z00_3640 = 
(BgL_copz00_bglt)(BgL_copz00_1911); 
BgL_arg4858z00_1915 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3640))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4858z00_1915); } 
display_string(BGl_string6195z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 537 */
BgL_copz00_bglt BgL_arg4863z00_1916;
BgL_arg4863z00_1916 = 
(((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_copz00_1911))->BgL_varz00); 
{ /* ./Cgen/emit-cop.scm 537 */
bool_t BgL_res5122z00_3668;
{ /* ./Cgen/emit-cop.scm 537 */
obj_t BgL_method3254z00_3643;
{ /* ./Cgen/emit-cop.scm 537 */
BgL_objectz00_bglt BgL_objz00_3644;
BgL_objz00_3644 = 
(BgL_objectz00_bglt)(BgL_arg4863z00_1916); 
{ /* ./Cgen/emit-cop.scm 537 */
long BgL_objzd2classzd2numz00_3645;
BgL_objzd2classzd2numz00_3645 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3644); 
{ /* ./Cgen/emit-cop.scm 537 */
obj_t BgL_arg2017z00_3646;
{ /* ./Cgen/emit-cop.scm 537 */
int BgL_auxz00_4392;
BgL_auxz00_4392 = 
(int)(((long)1)); 
BgL_arg2017z00_3646 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4392); } 
{ /* ./Cgen/emit-cop.scm 537 */
int BgL_offsetz00_3649;
BgL_offsetz00_3649 = 
(int)(BgL_objzd2classzd2numz00_3645); 
{ /* ./Cgen/emit-cop.scm 537 */
long BgL_offsetz00_3650;
{ /* ./Cgen/emit-cop.scm 537 */
long BgL_auxz00_4396;
BgL_auxz00_4396 = 
(long)(BgL_offsetz00_3649); 
BgL_offsetz00_3650 = 
(BgL_auxz00_4396-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 537 */
long BgL_modz00_3651;
{ /* ./Cgen/emit-cop.scm 537 */
int BgL_arg2028z00_3652;
BgL_arg2028z00_3652 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 537 */
long BgL_n2z00_3660;
BgL_n2z00_3660 = 
(long)(BgL_arg2028z00_3652); 
BgL_modz00_3651 = 
(BgL_offsetz00_3650/BgL_n2z00_3660); } } 
{ /* ./Cgen/emit-cop.scm 537 */
long BgL_restz00_3653;
{ /* ./Cgen/emit-cop.scm 537 */
int BgL_arg2024z00_3654;
BgL_arg2024z00_3654 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 537 */
long BgL_n2z00_3663;
BgL_n2z00_3663 = 
(long)(BgL_arg2024z00_3654); 
BgL_restz00_3653 = 
(BgL_offsetz00_3650%BgL_n2z00_3663); } } 
{ /* ./Cgen/emit-cop.scm 537 */

{ /* ./Cgen/emit-cop.scm 537 */
obj_t BgL_bucketz00_3655;
{ /* ./Cgen/emit-cop.scm 537 */
int BgL_kz00_3665;
BgL_kz00_3665 = 
(int)(BgL_modz00_3651); 
BgL_bucketz00_3655 = 
VECTOR_REF(BgL_arg2017z00_3646,BgL_kz00_3665); } 
{ /* ./Cgen/emit-cop.scm 537 */
int BgL_kz00_3667;
BgL_kz00_3667 = 
(int)(BgL_restz00_3653); 
BgL_method3254z00_3643 = 
VECTOR_REF(BgL_bucketz00_3655,BgL_kz00_3667); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 537 */
obj_t BgL_auxz00_4409;
BgL_auxz00_4409 = 
PROCEDURE_ENTRY(BgL_method3254z00_3643)(BgL_method3254z00_3643, 
(obj_t)(BgL_arg4863z00_1916), BEOA); 
BgL_res5122z00_3668 = 
CBOOL(BgL_auxz00_4409); } } BgL_res5122z00_3668; } } 
display_string(BGl_string6196z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 539 */
BgL_copz00_bglt BgL_arg4868z00_1917;
BgL_arg4868z00_1917 = 
(((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_copz00_1911))->BgL_valuez00); 
{ /* ./Cgen/emit-cop.scm 539 */
bool_t BgL_res5125z00_3696;
{ /* ./Cgen/emit-cop.scm 539 */
obj_t BgL_method3254z00_3671;
{ /* ./Cgen/emit-cop.scm 539 */
BgL_objectz00_bglt BgL_objz00_3672;
BgL_objz00_3672 = 
(BgL_objectz00_bglt)(BgL_arg4868z00_1917); 
{ /* ./Cgen/emit-cop.scm 539 */
long BgL_objzd2classzd2numz00_3673;
BgL_objzd2classzd2numz00_3673 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3672); 
{ /* ./Cgen/emit-cop.scm 539 */
obj_t BgL_arg2017z00_3674;
{ /* ./Cgen/emit-cop.scm 539 */
int BgL_auxz00_4418;
BgL_auxz00_4418 = 
(int)(((long)1)); 
BgL_arg2017z00_3674 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4418); } 
{ /* ./Cgen/emit-cop.scm 539 */
int BgL_offsetz00_3677;
BgL_offsetz00_3677 = 
(int)(BgL_objzd2classzd2numz00_3673); 
{ /* ./Cgen/emit-cop.scm 539 */
long BgL_offsetz00_3678;
{ /* ./Cgen/emit-cop.scm 539 */
long BgL_auxz00_4422;
BgL_auxz00_4422 = 
(long)(BgL_offsetz00_3677); 
BgL_offsetz00_3678 = 
(BgL_auxz00_4422-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 539 */
long BgL_modz00_3679;
{ /* ./Cgen/emit-cop.scm 539 */
int BgL_arg2028z00_3680;
BgL_arg2028z00_3680 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 539 */
long BgL_n2z00_3688;
BgL_n2z00_3688 = 
(long)(BgL_arg2028z00_3680); 
BgL_modz00_3679 = 
(BgL_offsetz00_3678/BgL_n2z00_3688); } } 
{ /* ./Cgen/emit-cop.scm 539 */
long BgL_restz00_3681;
{ /* ./Cgen/emit-cop.scm 539 */
int BgL_arg2024z00_3682;
BgL_arg2024z00_3682 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 539 */
long BgL_n2z00_3691;
BgL_n2z00_3691 = 
(long)(BgL_arg2024z00_3682); 
BgL_restz00_3681 = 
(BgL_offsetz00_3678%BgL_n2z00_3691); } } 
{ /* ./Cgen/emit-cop.scm 539 */

{ /* ./Cgen/emit-cop.scm 539 */
obj_t BgL_bucketz00_3683;
{ /* ./Cgen/emit-cop.scm 539 */
int BgL_kz00_3693;
BgL_kz00_3693 = 
(int)(BgL_modz00_3679); 
BgL_bucketz00_3683 = 
VECTOR_REF(BgL_arg2017z00_3674,BgL_kz00_3693); } 
{ /* ./Cgen/emit-cop.scm 539 */
int BgL_kz00_3695;
BgL_kz00_3695 = 
(int)(BgL_restz00_3681); 
BgL_method3254z00_3671 = 
VECTOR_REF(BgL_bucketz00_3683,BgL_kz00_3695); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 539 */
obj_t BgL_auxz00_4435;
BgL_auxz00_4435 = 
PROCEDURE_ENTRY(BgL_method3254z00_3671)(BgL_method3254z00_3671, 
(obj_t)(BgL_arg4868z00_1917), BEOA); 
BgL_res5125z00_3696 = 
CBOOL(BgL_auxz00_4435); } } BgL_res5125z00_3696; } } 
{ /* ./Cgen/emit-cop.scm 540 */
obj_t BgL_portz00_3698;
BgL_portz00_3698 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_3698); } 
BgL_auxz00_4384 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_4384);} } } 
}



/* emit-cop-cbox-ref3302 */
obj_t BGl_emitzd2copzd2cboxzd2ref3302zd2zzcgen_emitzd2copzd2(obj_t BgL_envz00_3933, obj_t BgL_copz00_3934)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 522 */
{ 
BgL_cboxzd2refzd2_bglt BgL_copz00_1903;
{ /* ./Cgen/emit-cop.scm 523 */
bool_t BgL_auxz00_4443;
BgL_copz00_1903 = 
(BgL_cboxzd2refzd2_bglt)(BgL_copz00_3934); 
{ /* ./Cgen/emit-cop.scm 524 */
obj_t BgL_arg4842z00_1907;
{ /* ./Cgen/emit-cop.scm 524 */
BgL_copz00_bglt BgL_obj2662z00_3609;
BgL_obj2662z00_3609 = 
(BgL_copz00_bglt)(BgL_copz00_1903); 
BgL_arg4842z00_1907 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3609))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4842z00_1907); } 
display_string(BGl_string6197z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 526 */
BgL_copz00_bglt BgL_arg4847z00_1908;
BgL_arg4847z00_1908 = 
(((BgL_cboxzd2refzd2_bglt)CREF(BgL_copz00_1903))->BgL_varz00); 
{ /* ./Cgen/emit-cop.scm 526 */
bool_t BgL_res5119z00_3637;
{ /* ./Cgen/emit-cop.scm 526 */
obj_t BgL_method3254z00_3612;
{ /* ./Cgen/emit-cop.scm 526 */
BgL_objectz00_bglt BgL_objz00_3613;
BgL_objz00_3613 = 
(BgL_objectz00_bglt)(BgL_arg4847z00_1908); 
{ /* ./Cgen/emit-cop.scm 526 */
long BgL_objzd2classzd2numz00_3614;
BgL_objzd2classzd2numz00_3614 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3613); 
{ /* ./Cgen/emit-cop.scm 526 */
obj_t BgL_arg2017z00_3615;
{ /* ./Cgen/emit-cop.scm 526 */
int BgL_auxz00_4451;
BgL_auxz00_4451 = 
(int)(((long)1)); 
BgL_arg2017z00_3615 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4451); } 
{ /* ./Cgen/emit-cop.scm 526 */
int BgL_offsetz00_3618;
BgL_offsetz00_3618 = 
(int)(BgL_objzd2classzd2numz00_3614); 
{ /* ./Cgen/emit-cop.scm 526 */
long BgL_offsetz00_3619;
{ /* ./Cgen/emit-cop.scm 526 */
long BgL_auxz00_4455;
BgL_auxz00_4455 = 
(long)(BgL_offsetz00_3618); 
BgL_offsetz00_3619 = 
(BgL_auxz00_4455-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 526 */
long BgL_modz00_3620;
{ /* ./Cgen/emit-cop.scm 526 */
int BgL_arg2028z00_3621;
BgL_arg2028z00_3621 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 526 */
long BgL_n2z00_3629;
BgL_n2z00_3629 = 
(long)(BgL_arg2028z00_3621); 
BgL_modz00_3620 = 
(BgL_offsetz00_3619/BgL_n2z00_3629); } } 
{ /* ./Cgen/emit-cop.scm 526 */
long BgL_restz00_3622;
{ /* ./Cgen/emit-cop.scm 526 */
int BgL_arg2024z00_3623;
BgL_arg2024z00_3623 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 526 */
long BgL_n2z00_3632;
BgL_n2z00_3632 = 
(long)(BgL_arg2024z00_3623); 
BgL_restz00_3622 = 
(BgL_offsetz00_3619%BgL_n2z00_3632); } } 
{ /* ./Cgen/emit-cop.scm 526 */

{ /* ./Cgen/emit-cop.scm 526 */
obj_t BgL_bucketz00_3624;
{ /* ./Cgen/emit-cop.scm 526 */
int BgL_kz00_3634;
BgL_kz00_3634 = 
(int)(BgL_modz00_3620); 
BgL_bucketz00_3624 = 
VECTOR_REF(BgL_arg2017z00_3615,BgL_kz00_3634); } 
{ /* ./Cgen/emit-cop.scm 526 */
int BgL_kz00_3636;
BgL_kz00_3636 = 
(int)(BgL_restz00_3622); 
BgL_method3254z00_3612 = 
VECTOR_REF(BgL_bucketz00_3624,BgL_kz00_3636); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 526 */
obj_t BgL_auxz00_4468;
BgL_auxz00_4468 = 
PROCEDURE_ENTRY(BgL_method3254z00_3612)(BgL_method3254z00_3612, 
(obj_t)(BgL_arg4847z00_1908), BEOA); 
BgL_res5119z00_3637 = 
CBOOL(BgL_auxz00_4468); } } BgL_res5119z00_3637; } } 
{ /* ./Cgen/emit-cop.scm 527 */
obj_t BgL_portz00_3639;
BgL_portz00_3639 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_3639); } 
BgL_auxz00_4443 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_4443);} } } 
}



/* emit-cop-cmake-box3300 */
obj_t BGl_emitzd2copzd2cmakezd2box3300zd2zzcgen_emitzd2copzd2(obj_t BgL_envz00_3935, obj_t BgL_copz00_3936)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 511 */
{ 
BgL_cmakezd2boxzd2_bglt BgL_copz00_1895;
{ /* ./Cgen/emit-cop.scm 512 */
bool_t BgL_auxz00_4476;
BgL_copz00_1895 = 
(BgL_cmakezd2boxzd2_bglt)(BgL_copz00_3936); 
{ /* ./Cgen/emit-cop.scm 513 */
obj_t BgL_arg4825z00_1899;
{ /* ./Cgen/emit-cop.scm 513 */
BgL_copz00_bglt BgL_obj2662z00_3578;
BgL_obj2662z00_3578 = 
(BgL_copz00_bglt)(BgL_copz00_1895); 
BgL_arg4825z00_1899 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3578))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4825z00_1899); } 
display_string(BGl_string6198z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 515 */
BgL_copz00_bglt BgL_arg4830z00_1900;
BgL_arg4830z00_1900 = 
(((BgL_cmakezd2boxzd2_bglt)CREF(BgL_copz00_1895))->BgL_valuez00); 
{ /* ./Cgen/emit-cop.scm 515 */
bool_t BgL_res5116z00_3606;
{ /* ./Cgen/emit-cop.scm 515 */
obj_t BgL_method3254z00_3581;
{ /* ./Cgen/emit-cop.scm 515 */
BgL_objectz00_bglt BgL_objz00_3582;
BgL_objz00_3582 = 
(BgL_objectz00_bglt)(BgL_arg4830z00_1900); 
{ /* ./Cgen/emit-cop.scm 515 */
long BgL_objzd2classzd2numz00_3583;
BgL_objzd2classzd2numz00_3583 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3582); 
{ /* ./Cgen/emit-cop.scm 515 */
obj_t BgL_arg2017z00_3584;
{ /* ./Cgen/emit-cop.scm 515 */
int BgL_auxz00_4484;
BgL_auxz00_4484 = 
(int)(((long)1)); 
BgL_arg2017z00_3584 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4484); } 
{ /* ./Cgen/emit-cop.scm 515 */
int BgL_offsetz00_3587;
BgL_offsetz00_3587 = 
(int)(BgL_objzd2classzd2numz00_3583); 
{ /* ./Cgen/emit-cop.scm 515 */
long BgL_offsetz00_3588;
{ /* ./Cgen/emit-cop.scm 515 */
long BgL_auxz00_4488;
BgL_auxz00_4488 = 
(long)(BgL_offsetz00_3587); 
BgL_offsetz00_3588 = 
(BgL_auxz00_4488-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 515 */
long BgL_modz00_3589;
{ /* ./Cgen/emit-cop.scm 515 */
int BgL_arg2028z00_3590;
BgL_arg2028z00_3590 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 515 */
long BgL_n2z00_3598;
BgL_n2z00_3598 = 
(long)(BgL_arg2028z00_3590); 
BgL_modz00_3589 = 
(BgL_offsetz00_3588/BgL_n2z00_3598); } } 
{ /* ./Cgen/emit-cop.scm 515 */
long BgL_restz00_3591;
{ /* ./Cgen/emit-cop.scm 515 */
int BgL_arg2024z00_3592;
BgL_arg2024z00_3592 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 515 */
long BgL_n2z00_3601;
BgL_n2z00_3601 = 
(long)(BgL_arg2024z00_3592); 
BgL_restz00_3591 = 
(BgL_offsetz00_3588%BgL_n2z00_3601); } } 
{ /* ./Cgen/emit-cop.scm 515 */

{ /* ./Cgen/emit-cop.scm 515 */
obj_t BgL_bucketz00_3593;
{ /* ./Cgen/emit-cop.scm 515 */
int BgL_kz00_3603;
BgL_kz00_3603 = 
(int)(BgL_modz00_3589); 
BgL_bucketz00_3593 = 
VECTOR_REF(BgL_arg2017z00_3584,BgL_kz00_3603); } 
{ /* ./Cgen/emit-cop.scm 515 */
int BgL_kz00_3605;
BgL_kz00_3605 = 
(int)(BgL_restz00_3591); 
BgL_method3254z00_3581 = 
VECTOR_REF(BgL_bucketz00_3593,BgL_kz00_3605); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 515 */
obj_t BgL_auxz00_4501;
BgL_auxz00_4501 = 
PROCEDURE_ENTRY(BgL_method3254z00_3581)(BgL_method3254z00_3581, 
(obj_t)(BgL_arg4830z00_1900), BEOA); 
BgL_res5116z00_3606 = 
CBOOL(BgL_auxz00_4501); } } BgL_res5116z00_3606; } } 
{ /* ./Cgen/emit-cop.scm 516 */
obj_t BgL_portz00_3608;
BgL_portz00_3608 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_3608); } 
BgL_auxz00_4476 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_4476);} } } 
}



/* emit-cop-cswitch3298 */
obj_t BGl_emitzd2copzd2cswitch3298z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3937, obj_t BgL_copz00_3938)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 472 */
{ 
BgL_cswitchz00_bglt BgL_copz00_1867;
{ /* ./Cgen/emit-cop.scm 473 */
bool_t BgL_auxz00_4509;
BgL_copz00_1867 = 
(BgL_cswitchz00_bglt)(BgL_copz00_3938); 
{ /* ./Cgen/emit-cop.scm 474 */
obj_t BgL_arg4759z00_1871;
{ /* ./Cgen/emit-cop.scm 474 */
BgL_copz00_bglt BgL_obj2662z00_3482;
BgL_obj2662z00_3482 = 
(BgL_copz00_bglt)(BgL_copz00_1867); 
BgL_arg4759z00_1871 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3482))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4759z00_1871); } 
display_string(BGl_string6199z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 476 */
BgL_copz00_bglt BgL_arg4764z00_1872;
BgL_arg4764z00_1872 = 
(((BgL_cswitchz00_bglt)CREF(BgL_copz00_1867))->BgL_testz00); 
{ /* ./Cgen/emit-cop.scm 476 */
bool_t BgL_res5107z00_3510;
{ /* ./Cgen/emit-cop.scm 476 */
obj_t BgL_method3254z00_3485;
{ /* ./Cgen/emit-cop.scm 476 */
BgL_objectz00_bglt BgL_objz00_3486;
BgL_objz00_3486 = 
(BgL_objectz00_bglt)(BgL_arg4764z00_1872); 
{ /* ./Cgen/emit-cop.scm 476 */
long BgL_objzd2classzd2numz00_3487;
BgL_objzd2classzd2numz00_3487 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3486); 
{ /* ./Cgen/emit-cop.scm 476 */
obj_t BgL_arg2017z00_3488;
{ /* ./Cgen/emit-cop.scm 476 */
int BgL_auxz00_4517;
BgL_auxz00_4517 = 
(int)(((long)1)); 
BgL_arg2017z00_3488 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4517); } 
{ /* ./Cgen/emit-cop.scm 476 */
int BgL_offsetz00_3491;
BgL_offsetz00_3491 = 
(int)(BgL_objzd2classzd2numz00_3487); 
{ /* ./Cgen/emit-cop.scm 476 */
long BgL_offsetz00_3492;
{ /* ./Cgen/emit-cop.scm 476 */
long BgL_auxz00_4521;
BgL_auxz00_4521 = 
(long)(BgL_offsetz00_3491); 
BgL_offsetz00_3492 = 
(BgL_auxz00_4521-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 476 */
long BgL_modz00_3493;
{ /* ./Cgen/emit-cop.scm 476 */
int BgL_arg2028z00_3494;
BgL_arg2028z00_3494 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 476 */
long BgL_n2z00_3502;
BgL_n2z00_3502 = 
(long)(BgL_arg2028z00_3494); 
BgL_modz00_3493 = 
(BgL_offsetz00_3492/BgL_n2z00_3502); } } 
{ /* ./Cgen/emit-cop.scm 476 */
long BgL_restz00_3495;
{ /* ./Cgen/emit-cop.scm 476 */
int BgL_arg2024z00_3496;
BgL_arg2024z00_3496 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 476 */
long BgL_n2z00_3505;
BgL_n2z00_3505 = 
(long)(BgL_arg2024z00_3496); 
BgL_restz00_3495 = 
(BgL_offsetz00_3492%BgL_n2z00_3505); } } 
{ /* ./Cgen/emit-cop.scm 476 */

{ /* ./Cgen/emit-cop.scm 476 */
obj_t BgL_bucketz00_3497;
{ /* ./Cgen/emit-cop.scm 476 */
int BgL_kz00_3507;
BgL_kz00_3507 = 
(int)(BgL_modz00_3493); 
BgL_bucketz00_3497 = 
VECTOR_REF(BgL_arg2017z00_3488,BgL_kz00_3507); } 
{ /* ./Cgen/emit-cop.scm 476 */
int BgL_kz00_3509;
BgL_kz00_3509 = 
(int)(BgL_restz00_3495); 
BgL_method3254z00_3485 = 
VECTOR_REF(BgL_bucketz00_3497,BgL_kz00_3509); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 476 */
obj_t BgL_auxz00_4534;
BgL_auxz00_4534 = 
PROCEDURE_ENTRY(BgL_method3254z00_3485)(BgL_method3254z00_3485, 
(obj_t)(BgL_arg4764z00_1872), BEOA); 
BgL_res5107z00_3510 = 
CBOOL(BgL_auxz00_4534); } } BgL_res5107z00_3510; } } 
display_string(BGl_string6200z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ 
obj_t BgL_clausesz00_1873;
{ /* ./Cgen/emit-cop.scm 479 */
obj_t BgL_arg4769z00_1875;
BgL_arg4769z00_1875 = 
(((BgL_cswitchz00_bglt)CREF(BgL_copz00_1867))->BgL_clausesz00); 
BgL_clausesz00_1873 = BgL_arg4769z00_1875; 
BgL_loopz00_1874:
{ /* ./Cgen/emit-cop.scm 480 */
obj_t BgL_clausez00_1876;
BgL_clausez00_1876 = 
CAR(BgL_clausesz00_1873); 
{ /* ./Cgen/emit-cop.scm 481 */
bool_t BgL_test4772z00_1877;
{ /* ./Cgen/emit-cop.scm 481 */
obj_t BgL_auxz00_4544;obj_t BgL_auxz00_4542;
BgL_auxz00_4544 = 
CNST_TABLE_REF(((long)2)); 
BgL_auxz00_4542 = 
CAR(BgL_clausez00_1876); 
BgL_test4772z00_1877 = 
(BgL_auxz00_4542==BgL_auxz00_4544); } 
if(BgL_test4772z00_1877)
{ /* ./Cgen/emit-cop.scm 482 */
obj_t BgL_locz00_1878;
{ /* ./Cgen/emit-cop.scm 482 */
BgL_copz00_bglt BgL_obj2662z00_3515;
{ /* ./Cgen/emit-cop.scm 482 */
obj_t BgL_auxz00_4548;
BgL_auxz00_4548 = 
CDR(BgL_clausez00_1876); 
BgL_obj2662z00_3515 = 
(BgL_copz00_bglt)(BgL_auxz00_4548); } 
BgL_locz00_1878 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3515))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_locz00_1878); 
display_string(BGl_string6201z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 485 */
bool_t BgL_test4775z00_1879;
{ /* ./Cgen/emit-cop.scm 485 */
obj_t BgL_arg4778z00_1880;
BgL_arg4778z00_1880 = 
CDR(BgL_clausez00_1876); 
{ /* ./Cgen/emit-cop.scm 485 */
bool_t BgL_res5110z00_3543;
{ /* ./Cgen/emit-cop.scm 485 */
BgL_copz00_bglt BgL_copz00_3517;
BgL_copz00_3517 = 
(BgL_copz00_bglt)(BgL_arg4778z00_1880); 
{ /* ./Cgen/emit-cop.scm 485 */
obj_t BgL_method3254z00_3518;
{ /* ./Cgen/emit-cop.scm 485 */
BgL_objectz00_bglt BgL_objz00_3519;
BgL_objz00_3519 = 
(BgL_objectz00_bglt)(BgL_copz00_3517); 
{ /* ./Cgen/emit-cop.scm 485 */
long BgL_objzd2classzd2numz00_3520;
BgL_objzd2classzd2numz00_3520 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3519); 
{ /* ./Cgen/emit-cop.scm 485 */
obj_t BgL_arg2017z00_3521;
{ /* ./Cgen/emit-cop.scm 485 */
int BgL_auxz00_4558;
BgL_auxz00_4558 = 
(int)(((long)1)); 
BgL_arg2017z00_3521 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4558); } 
{ /* ./Cgen/emit-cop.scm 485 */
int BgL_offsetz00_3524;
BgL_offsetz00_3524 = 
(int)(BgL_objzd2classzd2numz00_3520); 
{ /* ./Cgen/emit-cop.scm 485 */
long BgL_offsetz00_3525;
{ /* ./Cgen/emit-cop.scm 485 */
long BgL_auxz00_4562;
BgL_auxz00_4562 = 
(long)(BgL_offsetz00_3524); 
BgL_offsetz00_3525 = 
(BgL_auxz00_4562-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 485 */
long BgL_modz00_3526;
{ /* ./Cgen/emit-cop.scm 485 */
int BgL_arg2028z00_3527;
BgL_arg2028z00_3527 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 485 */
long BgL_n2z00_3535;
BgL_n2z00_3535 = 
(long)(BgL_arg2028z00_3527); 
BgL_modz00_3526 = 
(BgL_offsetz00_3525/BgL_n2z00_3535); } } 
{ /* ./Cgen/emit-cop.scm 485 */
long BgL_restz00_3528;
{ /* ./Cgen/emit-cop.scm 485 */
int BgL_arg2024z00_3529;
BgL_arg2024z00_3529 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 485 */
long BgL_n2z00_3538;
BgL_n2z00_3538 = 
(long)(BgL_arg2024z00_3529); 
BgL_restz00_3528 = 
(BgL_offsetz00_3525%BgL_n2z00_3538); } } 
{ /* ./Cgen/emit-cop.scm 485 */

{ /* ./Cgen/emit-cop.scm 485 */
obj_t BgL_bucketz00_3530;
{ /* ./Cgen/emit-cop.scm 485 */
int BgL_kz00_3540;
BgL_kz00_3540 = 
(int)(BgL_modz00_3526); 
BgL_bucketz00_3530 = 
VECTOR_REF(BgL_arg2017z00_3521,BgL_kz00_3540); } 
{ /* ./Cgen/emit-cop.scm 485 */
int BgL_kz00_3542;
BgL_kz00_3542 = 
(int)(BgL_restz00_3528); 
BgL_method3254z00_3518 = 
VECTOR_REF(BgL_bucketz00_3530,BgL_kz00_3542); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 485 */
obj_t BgL_auxz00_4575;
BgL_auxz00_4575 = 
PROCEDURE_ENTRY(BgL_method3254z00_3518)(BgL_method3254z00_3518, 
(obj_t)(BgL_copz00_3517), BEOA); 
BgL_res5110z00_3543 = 
CBOOL(BgL_auxz00_4575); } } } 
BgL_test4775z00_1879 = BgL_res5110z00_3543; } } 
if(BgL_test4775z00_1879)
{ /* ./Cgen/emit-cop.scm 485 */
display_string(BGl_string6202z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); BNIL; }  else 
{ /* ./Cgen/emit-cop.scm 485 */BFALSE; } } 
display_string(BGl_string6194z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BgL_auxz00_4509 = ((bool_t)0); }  else 
{ /* ./Cgen/emit-cop.scm 481 */
{ 
obj_t BgL_l3239z00_1882;
{ /* ./Cgen/emit-cop.scm 499 */
obj_t BgL_arg4787z00_1884;
BgL_arg4787z00_1884 = 
CAR(BgL_clausez00_1876); 
BgL_l3239z00_1882 = BgL_arg4787z00_1884; 
BgL_forzd2each3240zd2_1883:
{ /* ./Cgen/emit-cop.scm 494 */
bool_t BgL_test4790z00_1885;
BgL_test4790z00_1885 = 
PAIRP(BgL_l3239z00_1882); 
if(BgL_test4790z00_1885)
{ /* ./Cgen/emit-cop.scm 494 */
{ /* ./Cgen/emit-cop.scm 495 */
obj_t BgL_tz00_1886;
BgL_tz00_1886 = 
CAR(BgL_l3239z00_1882); 
display_string(BGl_string6203z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BGl_emitzd2atomzd2valuez00zzbackend_c_emitz00(BgL_tz00_1886); 
display_string(BGl_string6204z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 498 */
obj_t BgL_portz00_3547;
BgL_portz00_3547 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_3547); } } 
{ /* ./Cgen/emit-cop.scm 494 */
obj_t BgL_arg4797z00_1887;
BgL_arg4797z00_1887 = 
CDR(BgL_l3239z00_1882); 
{ 
obj_t BgL_l3239z00_4592;
BgL_l3239z00_4592 = BgL_arg4797z00_1887; 
BgL_l3239z00_1882 = BgL_l3239z00_4592; 
goto BgL_forzd2each3240zd2_1883;} } }  else 
{ /* ./Cgen/emit-cop.scm 494 */((bool_t)1); } } } } 
{ /* ./Cgen/emit-cop.scm 500 */
bool_t BgL_test4801z00_1888;
{ /* ./Cgen/emit-cop.scm 500 */
obj_t BgL_arg4804z00_1889;
BgL_arg4804z00_1889 = 
CDR(BgL_clausez00_1876); 
{ /* ./Cgen/emit-cop.scm 500 */
bool_t BgL_res5113z00_3576;
{ /* ./Cgen/emit-cop.scm 500 */
BgL_copz00_bglt BgL_copz00_3550;
BgL_copz00_3550 = 
(BgL_copz00_bglt)(BgL_arg4804z00_1889); 
{ /* ./Cgen/emit-cop.scm 500 */
obj_t BgL_method3254z00_3551;
{ /* ./Cgen/emit-cop.scm 500 */
BgL_objectz00_bglt BgL_objz00_3552;
BgL_objz00_3552 = 
(BgL_objectz00_bglt)(BgL_copz00_3550); 
{ /* ./Cgen/emit-cop.scm 500 */
long BgL_objzd2classzd2numz00_3553;
BgL_objzd2classzd2numz00_3553 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3552); 
{ /* ./Cgen/emit-cop.scm 500 */
obj_t BgL_arg2017z00_3554;
{ /* ./Cgen/emit-cop.scm 500 */
int BgL_auxz00_4597;
BgL_auxz00_4597 = 
(int)(((long)1)); 
BgL_arg2017z00_3554 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4597); } 
{ /* ./Cgen/emit-cop.scm 500 */
int BgL_offsetz00_3557;
BgL_offsetz00_3557 = 
(int)(BgL_objzd2classzd2numz00_3553); 
{ /* ./Cgen/emit-cop.scm 500 */
long BgL_offsetz00_3558;
{ /* ./Cgen/emit-cop.scm 500 */
long BgL_auxz00_4601;
BgL_auxz00_4601 = 
(long)(BgL_offsetz00_3557); 
BgL_offsetz00_3558 = 
(BgL_auxz00_4601-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 500 */
long BgL_modz00_3559;
{ /* ./Cgen/emit-cop.scm 500 */
int BgL_arg2028z00_3560;
BgL_arg2028z00_3560 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 500 */
long BgL_n2z00_3568;
BgL_n2z00_3568 = 
(long)(BgL_arg2028z00_3560); 
BgL_modz00_3559 = 
(BgL_offsetz00_3558/BgL_n2z00_3568); } } 
{ /* ./Cgen/emit-cop.scm 500 */
long BgL_restz00_3561;
{ /* ./Cgen/emit-cop.scm 500 */
int BgL_arg2024z00_3562;
BgL_arg2024z00_3562 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 500 */
long BgL_n2z00_3571;
BgL_n2z00_3571 = 
(long)(BgL_arg2024z00_3562); 
BgL_restz00_3561 = 
(BgL_offsetz00_3558%BgL_n2z00_3571); } } 
{ /* ./Cgen/emit-cop.scm 500 */

{ /* ./Cgen/emit-cop.scm 500 */
obj_t BgL_bucketz00_3563;
{ /* ./Cgen/emit-cop.scm 500 */
int BgL_kz00_3573;
BgL_kz00_3573 = 
(int)(BgL_modz00_3559); 
BgL_bucketz00_3563 = 
VECTOR_REF(BgL_arg2017z00_3554,BgL_kz00_3573); } 
{ /* ./Cgen/emit-cop.scm 500 */
int BgL_kz00_3575;
BgL_kz00_3575 = 
(int)(BgL_restz00_3561); 
BgL_method3254z00_3551 = 
VECTOR_REF(BgL_bucketz00_3563,BgL_kz00_3575); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 500 */
obj_t BgL_auxz00_4614;
BgL_auxz00_4614 = 
PROCEDURE_ENTRY(BgL_method3254z00_3551)(BgL_method3254z00_3551, 
(obj_t)(BgL_copz00_3550), BEOA); 
BgL_res5113z00_3576 = 
CBOOL(BgL_auxz00_4614); } } } 
BgL_test4801z00_1888 = BgL_res5113z00_3576; } } 
if(BgL_test4801z00_1888)
{ /* ./Cgen/emit-cop.scm 500 */
display_string(BGl_string6202z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); BNIL; }  else 
{ /* ./Cgen/emit-cop.scm 500 */BFALSE; } } 
display_string(BGl_string6205z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 506 */
obj_t BgL_arg4809z00_1890;
BgL_arg4809z00_1890 = 
CDR(BgL_clausesz00_1873); 
{ 
obj_t BgL_clausesz00_4623;
BgL_clausesz00_4623 = BgL_arg4809z00_1890; 
BgL_clausesz00_1873 = BgL_clausesz00_4623; 
goto BgL_loopz00_1874;} } } } } } } 
return 
BBOOL(BgL_auxz00_4509);} } } 
}



/* emit-cop-cfail3296 */
obj_t BGl_emitzd2copzd2cfail3296z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3939, obj_t BgL_copz00_3940)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 441 */
{ 
BgL_cfailz00_bglt BgL_copz00_1838;
{ /* ./Cgen/emit-cop.scm 442 */
bool_t BgL_auxz00_4626;
BgL_copz00_1838 = 
(BgL_cfailz00_bglt)(BgL_copz00_3940); 
{ /* ./Cgen/emit-cop.scm 443 */
obj_t BgL_arg4674z00_1842;
{ /* ./Cgen/emit-cop.scm 443 */
BgL_copz00_bglt BgL_obj2662z00_3291;
BgL_obj2662z00_3291 = 
(BgL_copz00_bglt)(BgL_copz00_1838); 
BgL_arg4674z00_1842 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3291))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4674z00_1842); } 
if(
CBOOL(BGl_za2bfalseza2z00zzcgen_emitzd2copzd2))
{ /* ./Cgen/emit-cop.scm 444 */BFALSE; }  else 
{ /* ./Cgen/emit-cop.scm 444 */
BGl_za2bfalseza2z00zzcgen_emitzd2copzd2 = 
BGl_findzd2globalzf2modulez20zzast_envz00(
CNST_TABLE_REF(((long)3)), 
CNST_TABLE_REF(((long)4))); } 
{ /* ./Cgen/emit-cop.scm 447 */
bool_t BgL_test4678z00_1843;
{ /* ./Cgen/emit-cop.scm 447 */
bool_t BgL_test4714z00_1851;
{ /* ./Cgen/emit-cop.scm 447 */
BgL_copz00_bglt BgL_arg4749z00_1864;
BgL_arg4749z00_1864 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_procz00); 
{ /* ./Cgen/emit-cop.scm 447 */
obj_t BgL_obj2784z00_3293;
BgL_obj2784z00_3293 = 
(obj_t)(BgL_arg4749z00_1864); 
BgL_test4714z00_1851 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2784z00_3293, BGl_varcz00zzcgen_copz00); } } 
if(BgL_test4714z00_1851)
{ /* ./Cgen/emit-cop.scm 447 */
bool_t BgL_test4715z00_1852;
{ /* ./Cgen/emit-cop.scm 447 */
BgL_variablez00_bglt BgL_arg4742z00_1862;
{ /* ./Cgen/emit-cop.scm 447 */
BgL_varcz00_bglt BgL_obj2774z00_3295;
{ /* ./Cgen/emit-cop.scm 447 */
BgL_copz00_bglt BgL_auxz00_4639;
BgL_auxz00_4639 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_procz00); 
BgL_obj2774z00_3295 = 
(BgL_varcz00_bglt)(BgL_auxz00_4639); } 
BgL_arg4742z00_1862 = 
(((BgL_varcz00_bglt)CREF(BgL_obj2774z00_3295))->BgL_variablez00); } 
{ /* ./Cgen/emit-cop.scm 447 */
obj_t BgL_auxz00_4643;
BgL_auxz00_4643 = 
(obj_t)(BgL_arg4742z00_1862); 
BgL_test4715z00_1852 = 
(BgL_auxz00_4643==BGl_za2bfalseza2z00zzcgen_emitzd2copzd2); } } 
if(BgL_test4715z00_1852)
{ /* ./Cgen/emit-cop.scm 448 */
bool_t BgL_test4716z00_1853;
{ /* ./Cgen/emit-cop.scm 448 */
BgL_copz00_bglt BgL_arg4738z00_1861;
BgL_arg4738z00_1861 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_msgz00); 
{ /* ./Cgen/emit-cop.scm 448 */
obj_t BgL_obj2784z00_3297;
BgL_obj2784z00_3297 = 
(obj_t)(BgL_arg4738z00_1861); 
BgL_test4716z00_1853 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2784z00_3297, BGl_varcz00zzcgen_copz00); } } 
if(BgL_test4716z00_1853)
{ /* ./Cgen/emit-cop.scm 448 */
bool_t BgL_test4717z00_1854;
{ /* ./Cgen/emit-cop.scm 448 */
BgL_variablez00_bglt BgL_arg4731z00_1859;
{ /* ./Cgen/emit-cop.scm 448 */
BgL_varcz00_bglt BgL_obj2774z00_3299;
{ /* ./Cgen/emit-cop.scm 448 */
BgL_copz00_bglt BgL_auxz00_4651;
BgL_auxz00_4651 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_msgz00); 
BgL_obj2774z00_3299 = 
(BgL_varcz00_bglt)(BgL_auxz00_4651); } 
BgL_arg4731z00_1859 = 
(((BgL_varcz00_bglt)CREF(BgL_obj2774z00_3299))->BgL_variablez00); } 
{ /* ./Cgen/emit-cop.scm 448 */
obj_t BgL_auxz00_4655;
BgL_auxz00_4655 = 
(obj_t)(BgL_arg4731z00_1859); 
BgL_test4717z00_1854 = 
(BgL_auxz00_4655==BGl_za2bfalseza2z00zzcgen_emitzd2copzd2); } } 
if(BgL_test4717z00_1854)
{ /* ./Cgen/emit-cop.scm 449 */
bool_t BgL_test4718z00_1855;
{ /* ./Cgen/emit-cop.scm 449 */
BgL_copz00_bglt BgL_arg4727z00_1858;
BgL_arg4727z00_1858 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_objz00); 
{ /* ./Cgen/emit-cop.scm 449 */
obj_t BgL_obj2784z00_3301;
BgL_obj2784z00_3301 = 
(obj_t)(BgL_arg4727z00_1858); 
BgL_test4718z00_1855 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2784z00_3301, BGl_varcz00zzcgen_copz00); } } 
if(BgL_test4718z00_1855)
{ /* ./Cgen/emit-cop.scm 449 */
BgL_variablez00_bglt BgL_arg4720z00_1856;
{ /* ./Cgen/emit-cop.scm 449 */
BgL_varcz00_bglt BgL_obj2774z00_3303;
{ /* ./Cgen/emit-cop.scm 449 */
BgL_copz00_bglt BgL_auxz00_4663;
BgL_auxz00_4663 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_objz00); 
BgL_obj2774z00_3303 = 
(BgL_varcz00_bglt)(BgL_auxz00_4663); } 
BgL_arg4720z00_1856 = 
(((BgL_varcz00_bglt)CREF(BgL_obj2774z00_3303))->BgL_variablez00); } 
{ /* ./Cgen/emit-cop.scm 449 */
obj_t BgL_auxz00_4667;
BgL_auxz00_4667 = 
(obj_t)(BgL_arg4720z00_1856); 
BgL_test4678z00_1843 = 
(BgL_auxz00_4667==BGl_za2bfalseza2z00zzcgen_emitzd2copzd2); } }  else 
{ /* ./Cgen/emit-cop.scm 449 */
BgL_test4678z00_1843 = ((bool_t)0); } }  else 
{ /* ./Cgen/emit-cop.scm 448 */
BgL_test4678z00_1843 = ((bool_t)0); } }  else 
{ /* ./Cgen/emit-cop.scm 448 */
BgL_test4678z00_1843 = ((bool_t)0); } }  else 
{ /* ./Cgen/emit-cop.scm 447 */
BgL_test4678z00_1843 = ((bool_t)0); } }  else 
{ /* ./Cgen/emit-cop.scm 447 */
BgL_test4678z00_1843 = ((bool_t)0); } } 
if(BgL_test4678z00_1843)
{ /* ./Cgen/emit-cop.scm 447 */
display_string(BGl_string6206z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); }  else 
{ /* ./Cgen/emit-cop.scm 451 */
bool_t BgL_test4680z00_1844;
{ /* ./Cgen/emit-cop.scm 451 */
long BgL_n1z00_3304;
BgL_n1z00_3304 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test4680z00_1844 = 
(BgL_n1z00_3304<=((long)0)); } 
if(BgL_test4680z00_1844)
{ /* ./Cgen/emit-cop.scm 451 */
display_string(BGl_string6207z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 453 */
BgL_copz00_bglt BgL_arg4683z00_1845;
BgL_arg4683z00_1845 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_procz00); 
{ /* ./Cgen/emit-cop.scm 453 */
bool_t BgL_res5089z00_3333;
{ /* ./Cgen/emit-cop.scm 453 */
obj_t BgL_method3254z00_3308;
{ /* ./Cgen/emit-cop.scm 453 */
BgL_objectz00_bglt BgL_objz00_3309;
BgL_objz00_3309 = 
(BgL_objectz00_bglt)(BgL_arg4683z00_1845); 
{ /* ./Cgen/emit-cop.scm 453 */
long BgL_objzd2classzd2numz00_3310;
BgL_objzd2classzd2numz00_3310 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3309); 
{ /* ./Cgen/emit-cop.scm 453 */
obj_t BgL_arg2017z00_3311;
{ /* ./Cgen/emit-cop.scm 453 */
int BgL_auxz00_4679;
BgL_auxz00_4679 = 
(int)(((long)1)); 
BgL_arg2017z00_3311 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4679); } 
{ /* ./Cgen/emit-cop.scm 453 */
int BgL_offsetz00_3314;
BgL_offsetz00_3314 = 
(int)(BgL_objzd2classzd2numz00_3310); 
{ /* ./Cgen/emit-cop.scm 453 */
long BgL_offsetz00_3315;
{ /* ./Cgen/emit-cop.scm 453 */
long BgL_auxz00_4683;
BgL_auxz00_4683 = 
(long)(BgL_offsetz00_3314); 
BgL_offsetz00_3315 = 
(BgL_auxz00_4683-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 453 */
long BgL_modz00_3316;
{ /* ./Cgen/emit-cop.scm 453 */
int BgL_arg2028z00_3317;
BgL_arg2028z00_3317 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 453 */
long BgL_n2z00_3325;
BgL_n2z00_3325 = 
(long)(BgL_arg2028z00_3317); 
BgL_modz00_3316 = 
(BgL_offsetz00_3315/BgL_n2z00_3325); } } 
{ /* ./Cgen/emit-cop.scm 453 */
long BgL_restz00_3318;
{ /* ./Cgen/emit-cop.scm 453 */
int BgL_arg2024z00_3319;
BgL_arg2024z00_3319 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 453 */
long BgL_n2z00_3328;
BgL_n2z00_3328 = 
(long)(BgL_arg2024z00_3319); 
BgL_restz00_3318 = 
(BgL_offsetz00_3315%BgL_n2z00_3328); } } 
{ /* ./Cgen/emit-cop.scm 453 */

{ /* ./Cgen/emit-cop.scm 453 */
obj_t BgL_bucketz00_3320;
{ /* ./Cgen/emit-cop.scm 453 */
int BgL_kz00_3330;
BgL_kz00_3330 = 
(int)(BgL_modz00_3316); 
BgL_bucketz00_3320 = 
VECTOR_REF(BgL_arg2017z00_3311,BgL_kz00_3330); } 
{ /* ./Cgen/emit-cop.scm 453 */
int BgL_kz00_3332;
BgL_kz00_3332 = 
(int)(BgL_restz00_3318); 
BgL_method3254z00_3308 = 
VECTOR_REF(BgL_bucketz00_3320,BgL_kz00_3332); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 453 */
obj_t BgL_auxz00_4696;
BgL_auxz00_4696 = 
PROCEDURE_ENTRY(BgL_method3254z00_3308)(BgL_method3254z00_3308, 
(obj_t)(BgL_arg4683z00_1845), BEOA); 
BgL_res5089z00_3333 = 
CBOOL(BgL_auxz00_4696); } } BgL_res5089z00_3333; } } 
{ /* ./Cgen/emit-cop.scm 454 */
obj_t BgL_portz00_3335;
BgL_portz00_3335 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)','), BgL_portz00_3335); } 
{ /* ./Cgen/emit-cop.scm 455 */
BgL_copz00_bglt BgL_arg4688z00_1846;
BgL_arg4688z00_1846 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_msgz00); 
{ /* ./Cgen/emit-cop.scm 455 */
bool_t BgL_res5092z00_3363;
{ /* ./Cgen/emit-cop.scm 455 */
obj_t BgL_method3254z00_3338;
{ /* ./Cgen/emit-cop.scm 455 */
BgL_objectz00_bglt BgL_objz00_3339;
BgL_objz00_3339 = 
(BgL_objectz00_bglt)(BgL_arg4688z00_1846); 
{ /* ./Cgen/emit-cop.scm 455 */
long BgL_objzd2classzd2numz00_3340;
BgL_objzd2classzd2numz00_3340 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3339); 
{ /* ./Cgen/emit-cop.scm 455 */
obj_t BgL_arg2017z00_3341;
{ /* ./Cgen/emit-cop.scm 455 */
int BgL_auxz00_4705;
BgL_auxz00_4705 = 
(int)(((long)1)); 
BgL_arg2017z00_3341 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4705); } 
{ /* ./Cgen/emit-cop.scm 455 */
int BgL_offsetz00_3344;
BgL_offsetz00_3344 = 
(int)(BgL_objzd2classzd2numz00_3340); 
{ /* ./Cgen/emit-cop.scm 455 */
long BgL_offsetz00_3345;
{ /* ./Cgen/emit-cop.scm 455 */
long BgL_auxz00_4709;
BgL_auxz00_4709 = 
(long)(BgL_offsetz00_3344); 
BgL_offsetz00_3345 = 
(BgL_auxz00_4709-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 455 */
long BgL_modz00_3346;
{ /* ./Cgen/emit-cop.scm 455 */
int BgL_arg2028z00_3347;
BgL_arg2028z00_3347 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 455 */
long BgL_n2z00_3355;
BgL_n2z00_3355 = 
(long)(BgL_arg2028z00_3347); 
BgL_modz00_3346 = 
(BgL_offsetz00_3345/BgL_n2z00_3355); } } 
{ /* ./Cgen/emit-cop.scm 455 */
long BgL_restz00_3348;
{ /* ./Cgen/emit-cop.scm 455 */
int BgL_arg2024z00_3349;
BgL_arg2024z00_3349 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 455 */
long BgL_n2z00_3358;
BgL_n2z00_3358 = 
(long)(BgL_arg2024z00_3349); 
BgL_restz00_3348 = 
(BgL_offsetz00_3345%BgL_n2z00_3358); } } 
{ /* ./Cgen/emit-cop.scm 455 */

{ /* ./Cgen/emit-cop.scm 455 */
obj_t BgL_bucketz00_3350;
{ /* ./Cgen/emit-cop.scm 455 */
int BgL_kz00_3360;
BgL_kz00_3360 = 
(int)(BgL_modz00_3346); 
BgL_bucketz00_3350 = 
VECTOR_REF(BgL_arg2017z00_3341,BgL_kz00_3360); } 
{ /* ./Cgen/emit-cop.scm 455 */
int BgL_kz00_3362;
BgL_kz00_3362 = 
(int)(BgL_restz00_3348); 
BgL_method3254z00_3338 = 
VECTOR_REF(BgL_bucketz00_3350,BgL_kz00_3362); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 455 */
obj_t BgL_auxz00_4722;
BgL_auxz00_4722 = 
PROCEDURE_ENTRY(BgL_method3254z00_3338)(BgL_method3254z00_3338, 
(obj_t)(BgL_arg4688z00_1846), BEOA); 
BgL_res5092z00_3363 = 
CBOOL(BgL_auxz00_4722); } } BgL_res5092z00_3363; } } 
{ /* ./Cgen/emit-cop.scm 456 */
obj_t BgL_portz00_3365;
BgL_portz00_3365 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)','), BgL_portz00_3365); } 
{ /* ./Cgen/emit-cop.scm 457 */
BgL_copz00_bglt BgL_arg4693z00_1847;
BgL_arg4693z00_1847 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_objz00); 
{ /* ./Cgen/emit-cop.scm 457 */
bool_t BgL_res5095z00_3393;
{ /* ./Cgen/emit-cop.scm 457 */
obj_t BgL_method3254z00_3368;
{ /* ./Cgen/emit-cop.scm 457 */
BgL_objectz00_bglt BgL_objz00_3369;
BgL_objz00_3369 = 
(BgL_objectz00_bglt)(BgL_arg4693z00_1847); 
{ /* ./Cgen/emit-cop.scm 457 */
long BgL_objzd2classzd2numz00_3370;
BgL_objzd2classzd2numz00_3370 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3369); 
{ /* ./Cgen/emit-cop.scm 457 */
obj_t BgL_arg2017z00_3371;
{ /* ./Cgen/emit-cop.scm 457 */
int BgL_auxz00_4731;
BgL_auxz00_4731 = 
(int)(((long)1)); 
BgL_arg2017z00_3371 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4731); } 
{ /* ./Cgen/emit-cop.scm 457 */
int BgL_offsetz00_3374;
BgL_offsetz00_3374 = 
(int)(BgL_objzd2classzd2numz00_3370); 
{ /* ./Cgen/emit-cop.scm 457 */
long BgL_offsetz00_3375;
{ /* ./Cgen/emit-cop.scm 457 */
long BgL_auxz00_4735;
BgL_auxz00_4735 = 
(long)(BgL_offsetz00_3374); 
BgL_offsetz00_3375 = 
(BgL_auxz00_4735-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 457 */
long BgL_modz00_3376;
{ /* ./Cgen/emit-cop.scm 457 */
int BgL_arg2028z00_3377;
BgL_arg2028z00_3377 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 457 */
long BgL_n2z00_3385;
BgL_n2z00_3385 = 
(long)(BgL_arg2028z00_3377); 
BgL_modz00_3376 = 
(BgL_offsetz00_3375/BgL_n2z00_3385); } } 
{ /* ./Cgen/emit-cop.scm 457 */
long BgL_restz00_3378;
{ /* ./Cgen/emit-cop.scm 457 */
int BgL_arg2024z00_3379;
BgL_arg2024z00_3379 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 457 */
long BgL_n2z00_3388;
BgL_n2z00_3388 = 
(long)(BgL_arg2024z00_3379); 
BgL_restz00_3378 = 
(BgL_offsetz00_3375%BgL_n2z00_3388); } } 
{ /* ./Cgen/emit-cop.scm 457 */

{ /* ./Cgen/emit-cop.scm 457 */
obj_t BgL_bucketz00_3380;
{ /* ./Cgen/emit-cop.scm 457 */
int BgL_kz00_3390;
BgL_kz00_3390 = 
(int)(BgL_modz00_3376); 
BgL_bucketz00_3380 = 
VECTOR_REF(BgL_arg2017z00_3371,BgL_kz00_3390); } 
{ /* ./Cgen/emit-cop.scm 457 */
int BgL_kz00_3392;
BgL_kz00_3392 = 
(int)(BgL_restz00_3378); 
BgL_method3254z00_3368 = 
VECTOR_REF(BgL_bucketz00_3380,BgL_kz00_3392); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 457 */
obj_t BgL_auxz00_4748;
BgL_auxz00_4748 = 
PROCEDURE_ENTRY(BgL_method3254z00_3368)(BgL_method3254z00_3368, 
(obj_t)(BgL_arg4693z00_1847), BEOA); 
BgL_res5095z00_3393 = 
CBOOL(BgL_auxz00_4748); } } BgL_res5095z00_3393; } } 
display_string(BGl_string6208z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); }  else 
{ /* ./Cgen/emit-cop.scm 451 */
display_string(BGl_string6209z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 461 */
BgL_copz00_bglt BgL_arg4699z00_1848;
BgL_arg4699z00_1848 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_procz00); 
{ /* ./Cgen/emit-cop.scm 461 */
bool_t BgL_res5098z00_3421;
{ /* ./Cgen/emit-cop.scm 461 */
obj_t BgL_method3254z00_3396;
{ /* ./Cgen/emit-cop.scm 461 */
BgL_objectz00_bglt BgL_objz00_3397;
BgL_objz00_3397 = 
(BgL_objectz00_bglt)(BgL_arg4699z00_1848); 
{ /* ./Cgen/emit-cop.scm 461 */
long BgL_objzd2classzd2numz00_3398;
BgL_objzd2classzd2numz00_3398 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3397); 
{ /* ./Cgen/emit-cop.scm 461 */
obj_t BgL_arg2017z00_3399;
{ /* ./Cgen/emit-cop.scm 461 */
int BgL_auxz00_4758;
BgL_auxz00_4758 = 
(int)(((long)1)); 
BgL_arg2017z00_3399 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4758); } 
{ /* ./Cgen/emit-cop.scm 461 */
int BgL_offsetz00_3402;
BgL_offsetz00_3402 = 
(int)(BgL_objzd2classzd2numz00_3398); 
{ /* ./Cgen/emit-cop.scm 461 */
long BgL_offsetz00_3403;
{ /* ./Cgen/emit-cop.scm 461 */
long BgL_auxz00_4762;
BgL_auxz00_4762 = 
(long)(BgL_offsetz00_3402); 
BgL_offsetz00_3403 = 
(BgL_auxz00_4762-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 461 */
long BgL_modz00_3404;
{ /* ./Cgen/emit-cop.scm 461 */
int BgL_arg2028z00_3405;
BgL_arg2028z00_3405 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 461 */
long BgL_n2z00_3413;
BgL_n2z00_3413 = 
(long)(BgL_arg2028z00_3405); 
BgL_modz00_3404 = 
(BgL_offsetz00_3403/BgL_n2z00_3413); } } 
{ /* ./Cgen/emit-cop.scm 461 */
long BgL_restz00_3406;
{ /* ./Cgen/emit-cop.scm 461 */
int BgL_arg2024z00_3407;
BgL_arg2024z00_3407 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 461 */
long BgL_n2z00_3416;
BgL_n2z00_3416 = 
(long)(BgL_arg2024z00_3407); 
BgL_restz00_3406 = 
(BgL_offsetz00_3403%BgL_n2z00_3416); } } 
{ /* ./Cgen/emit-cop.scm 461 */

{ /* ./Cgen/emit-cop.scm 461 */
obj_t BgL_bucketz00_3408;
{ /* ./Cgen/emit-cop.scm 461 */
int BgL_kz00_3418;
BgL_kz00_3418 = 
(int)(BgL_modz00_3404); 
BgL_bucketz00_3408 = 
VECTOR_REF(BgL_arg2017z00_3399,BgL_kz00_3418); } 
{ /* ./Cgen/emit-cop.scm 461 */
int BgL_kz00_3420;
BgL_kz00_3420 = 
(int)(BgL_restz00_3406); 
BgL_method3254z00_3396 = 
VECTOR_REF(BgL_bucketz00_3408,BgL_kz00_3420); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 461 */
obj_t BgL_auxz00_4775;
BgL_auxz00_4775 = 
PROCEDURE_ENTRY(BgL_method3254z00_3396)(BgL_method3254z00_3396, 
(obj_t)(BgL_arg4699z00_1848), BEOA); 
BgL_res5098z00_3421 = 
CBOOL(BgL_auxz00_4775); } } BgL_res5098z00_3421; } } 
{ /* ./Cgen/emit-cop.scm 462 */
obj_t BgL_portz00_3423;
BgL_portz00_3423 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)','), BgL_portz00_3423); } 
{ /* ./Cgen/emit-cop.scm 463 */
BgL_copz00_bglt BgL_arg4704z00_1849;
BgL_arg4704z00_1849 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_msgz00); 
{ /* ./Cgen/emit-cop.scm 463 */
bool_t BgL_res5101z00_3451;
{ /* ./Cgen/emit-cop.scm 463 */
obj_t BgL_method3254z00_3426;
{ /* ./Cgen/emit-cop.scm 463 */
BgL_objectz00_bglt BgL_objz00_3427;
BgL_objz00_3427 = 
(BgL_objectz00_bglt)(BgL_arg4704z00_1849); 
{ /* ./Cgen/emit-cop.scm 463 */
long BgL_objzd2classzd2numz00_3428;
BgL_objzd2classzd2numz00_3428 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3427); 
{ /* ./Cgen/emit-cop.scm 463 */
obj_t BgL_arg2017z00_3429;
{ /* ./Cgen/emit-cop.scm 463 */
int BgL_auxz00_4784;
BgL_auxz00_4784 = 
(int)(((long)1)); 
BgL_arg2017z00_3429 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4784); } 
{ /* ./Cgen/emit-cop.scm 463 */
int BgL_offsetz00_3432;
BgL_offsetz00_3432 = 
(int)(BgL_objzd2classzd2numz00_3428); 
{ /* ./Cgen/emit-cop.scm 463 */
long BgL_offsetz00_3433;
{ /* ./Cgen/emit-cop.scm 463 */
long BgL_auxz00_4788;
BgL_auxz00_4788 = 
(long)(BgL_offsetz00_3432); 
BgL_offsetz00_3433 = 
(BgL_auxz00_4788-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 463 */
long BgL_modz00_3434;
{ /* ./Cgen/emit-cop.scm 463 */
int BgL_arg2028z00_3435;
BgL_arg2028z00_3435 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 463 */
long BgL_n2z00_3443;
BgL_n2z00_3443 = 
(long)(BgL_arg2028z00_3435); 
BgL_modz00_3434 = 
(BgL_offsetz00_3433/BgL_n2z00_3443); } } 
{ /* ./Cgen/emit-cop.scm 463 */
long BgL_restz00_3436;
{ /* ./Cgen/emit-cop.scm 463 */
int BgL_arg2024z00_3437;
BgL_arg2024z00_3437 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 463 */
long BgL_n2z00_3446;
BgL_n2z00_3446 = 
(long)(BgL_arg2024z00_3437); 
BgL_restz00_3436 = 
(BgL_offsetz00_3433%BgL_n2z00_3446); } } 
{ /* ./Cgen/emit-cop.scm 463 */

{ /* ./Cgen/emit-cop.scm 463 */
obj_t BgL_bucketz00_3438;
{ /* ./Cgen/emit-cop.scm 463 */
int BgL_kz00_3448;
BgL_kz00_3448 = 
(int)(BgL_modz00_3434); 
BgL_bucketz00_3438 = 
VECTOR_REF(BgL_arg2017z00_3429,BgL_kz00_3448); } 
{ /* ./Cgen/emit-cop.scm 463 */
int BgL_kz00_3450;
BgL_kz00_3450 = 
(int)(BgL_restz00_3436); 
BgL_method3254z00_3426 = 
VECTOR_REF(BgL_bucketz00_3438,BgL_kz00_3450); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 463 */
obj_t BgL_auxz00_4801;
BgL_auxz00_4801 = 
PROCEDURE_ENTRY(BgL_method3254z00_3426)(BgL_method3254z00_3426, 
(obj_t)(BgL_arg4704z00_1849), BEOA); 
BgL_res5101z00_3451 = 
CBOOL(BgL_auxz00_4801); } } BgL_res5101z00_3451; } } 
{ /* ./Cgen/emit-cop.scm 464 */
obj_t BgL_portz00_3453;
BgL_portz00_3453 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)','), BgL_portz00_3453); } 
{ /* ./Cgen/emit-cop.scm 465 */
BgL_copz00_bglt BgL_arg4709z00_1850;
BgL_arg4709z00_1850 = 
(((BgL_cfailz00_bglt)CREF(BgL_copz00_1838))->BgL_objz00); 
{ /* ./Cgen/emit-cop.scm 465 */
bool_t BgL_res5104z00_3481;
{ /* ./Cgen/emit-cop.scm 465 */
obj_t BgL_method3254z00_3456;
{ /* ./Cgen/emit-cop.scm 465 */
BgL_objectz00_bglt BgL_objz00_3457;
BgL_objz00_3457 = 
(BgL_objectz00_bglt)(BgL_arg4709z00_1850); 
{ /* ./Cgen/emit-cop.scm 465 */
long BgL_objzd2classzd2numz00_3458;
BgL_objzd2classzd2numz00_3458 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3457); 
{ /* ./Cgen/emit-cop.scm 465 */
obj_t BgL_arg2017z00_3459;
{ /* ./Cgen/emit-cop.scm 465 */
int BgL_auxz00_4810;
BgL_auxz00_4810 = 
(int)(((long)1)); 
BgL_arg2017z00_3459 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4810); } 
{ /* ./Cgen/emit-cop.scm 465 */
int BgL_offsetz00_3462;
BgL_offsetz00_3462 = 
(int)(BgL_objzd2classzd2numz00_3458); 
{ /* ./Cgen/emit-cop.scm 465 */
long BgL_offsetz00_3463;
{ /* ./Cgen/emit-cop.scm 465 */
long BgL_auxz00_4814;
BgL_auxz00_4814 = 
(long)(BgL_offsetz00_3462); 
BgL_offsetz00_3463 = 
(BgL_auxz00_4814-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 465 */
long BgL_modz00_3464;
{ /* ./Cgen/emit-cop.scm 465 */
int BgL_arg2028z00_3465;
BgL_arg2028z00_3465 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 465 */
long BgL_n2z00_3473;
BgL_n2z00_3473 = 
(long)(BgL_arg2028z00_3465); 
BgL_modz00_3464 = 
(BgL_offsetz00_3463/BgL_n2z00_3473); } } 
{ /* ./Cgen/emit-cop.scm 465 */
long BgL_restz00_3466;
{ /* ./Cgen/emit-cop.scm 465 */
int BgL_arg2024z00_3467;
BgL_arg2024z00_3467 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 465 */
long BgL_n2z00_3476;
BgL_n2z00_3476 = 
(long)(BgL_arg2024z00_3467); 
BgL_restz00_3466 = 
(BgL_offsetz00_3463%BgL_n2z00_3476); } } 
{ /* ./Cgen/emit-cop.scm 465 */

{ /* ./Cgen/emit-cop.scm 465 */
obj_t BgL_bucketz00_3468;
{ /* ./Cgen/emit-cop.scm 465 */
int BgL_kz00_3478;
BgL_kz00_3478 = 
(int)(BgL_modz00_3464); 
BgL_bucketz00_3468 = 
VECTOR_REF(BgL_arg2017z00_3459,BgL_kz00_3478); } 
{ /* ./Cgen/emit-cop.scm 465 */
int BgL_kz00_3480;
BgL_kz00_3480 = 
(int)(BgL_restz00_3466); 
BgL_method3254z00_3456 = 
VECTOR_REF(BgL_bucketz00_3468,BgL_kz00_3480); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 465 */
obj_t BgL_auxz00_4827;
BgL_auxz00_4827 = 
PROCEDURE_ENTRY(BgL_method3254z00_3456)(BgL_method3254z00_3456, 
(obj_t)(BgL_arg4709z00_1850), BEOA); 
BgL_res5104z00_3481 = 
CBOOL(BgL_auxz00_4827); } } BgL_res5104z00_3481; } } 
display_string(BGl_string6210z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); } } } 
BgL_auxz00_4626 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_4626);} } } 
}



/* emit-cop-capp3294 */
obj_t BGl_emitzd2copzd2capp3294z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3941, obj_t BgL_copz00_3942)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 397 */
{ 
BgL_cappz00_bglt BgL_copz00_1806;
{ /* ./Cgen/emit-cop.scm 405 */
bool_t BgL_auxz00_4835;
BgL_copz00_1806 = 
(BgL_cappz00_bglt)(BgL_copz00_3942); 
{ 

{ /* ./Cgen/emit-cop.scm 424 */
BgL_variablez00_bglt BgL_funz00_1811;obj_t BgL_locz00_1812;
{ /* ./Cgen/emit-cop.scm 424 */
BgL_varcz00_bglt BgL_obj2774z00_3098;
{ /* ./Cgen/emit-cop.scm 424 */
BgL_copz00_bglt BgL_auxz00_4836;
BgL_auxz00_4836 = 
(((BgL_cappz00_bglt)CREF(BgL_copz00_1806))->BgL_funz00); 
BgL_obj2774z00_3098 = 
(BgL_varcz00_bglt)(BgL_auxz00_4836); } 
BgL_funz00_1811 = 
(((BgL_varcz00_bglt)CREF(BgL_obj2774z00_3098))->BgL_variablez00); } 
{ /* ./Cgen/emit-cop.scm 425 */
BgL_copz00_bglt BgL_obj2662z00_3099;
BgL_obj2662z00_3099 = 
(BgL_copz00_bglt)(BgL_copz00_1806); 
BgL_locz00_1812 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3099))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_locz00_1812); 
{ /* ./Cgen/emit-cop.scm 427 */
bool_t BgL_test4604z00_1813;
{ /* ./Cgen/emit-cop.scm 427 */
bool_t BgL_test4607z00_1814;
{ /* ./Cgen/emit-cop.scm 427 */
BgL_valuez00_bglt BgL_arg4613z00_1816;
BgL_arg4613z00_1816 = 
(((BgL_variablez00_bglt)CREF(BgL_funz00_1811))->BgL_valuez00); 
{ /* ./Cgen/emit-cop.scm 427 */
obj_t BgL_obj1489z00_3101;
BgL_obj1489z00_3101 = 
(obj_t)(BgL_arg4613z00_1816); 
BgL_test4607z00_1814 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1489z00_3101, BGl_cfunz00zzast_varz00); } } 
if(BgL_test4607z00_1814)
{ /* ./Cgen/emit-cop.scm 427 */
BgL_cfunz00_bglt BgL_obj1447z00_3103;
{ /* ./Cgen/emit-cop.scm 427 */
BgL_valuez00_bglt BgL_auxz00_4847;
BgL_auxz00_4847 = 
(((BgL_variablez00_bglt)CREF(BgL_funz00_1811))->BgL_valuez00); 
BgL_obj1447z00_3103 = 
(BgL_cfunz00_bglt)(BgL_auxz00_4847); } 
BgL_test4604z00_1813 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1447z00_3103))->BgL_infixzf3zf3); }  else 
{ /* ./Cgen/emit-cop.scm 427 */
BgL_test4604z00_1813 = ((bool_t)0); } } 
if(BgL_test4604z00_1813)
{ /* ./Cgen/emit-cop.scm 427 */
{ /* ./Cgen/emit-cop.scm 399 */
obj_t BgL_actualsz00_1830;
BgL_actualsz00_1830 = 
(((BgL_cappz00_bglt)CREF(BgL_copz00_1806))->BgL_argsz00); 
{ /* ./Cgen/emit-cop.scm 400 */
obj_t BgL_portz00_3201;
BgL_portz00_3201 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)'('), BgL_portz00_3201); } 
{ /* ./Cgen/emit-cop.scm 401 */
obj_t BgL_arg4654z00_1831;
BgL_arg4654z00_1831 = 
CAR(BgL_actualsz00_1830); 
{ /* ./Cgen/emit-cop.scm 401 */
bool_t BgL_res5080z00_3229;
{ /* ./Cgen/emit-cop.scm 401 */
BgL_copz00_bglt BgL_copz00_3203;
BgL_copz00_3203 = 
(BgL_copz00_bglt)(BgL_arg4654z00_1831); 
{ /* ./Cgen/emit-cop.scm 401 */
obj_t BgL_method3254z00_3204;
{ /* ./Cgen/emit-cop.scm 401 */
BgL_objectz00_bglt BgL_objz00_3205;
BgL_objz00_3205 = 
(BgL_objectz00_bglt)(BgL_copz00_3203); 
{ /* ./Cgen/emit-cop.scm 401 */
long BgL_objzd2classzd2numz00_3206;
BgL_objzd2classzd2numz00_3206 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3205); 
{ /* ./Cgen/emit-cop.scm 401 */
obj_t BgL_arg2017z00_3207;
{ /* ./Cgen/emit-cop.scm 401 */
int BgL_auxz00_4858;
BgL_auxz00_4858 = 
(int)(((long)1)); 
BgL_arg2017z00_3207 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4858); } 
{ /* ./Cgen/emit-cop.scm 401 */
int BgL_offsetz00_3210;
BgL_offsetz00_3210 = 
(int)(BgL_objzd2classzd2numz00_3206); 
{ /* ./Cgen/emit-cop.scm 401 */
long BgL_offsetz00_3211;
{ /* ./Cgen/emit-cop.scm 401 */
long BgL_auxz00_4862;
BgL_auxz00_4862 = 
(long)(BgL_offsetz00_3210); 
BgL_offsetz00_3211 = 
(BgL_auxz00_4862-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 401 */
long BgL_modz00_3212;
{ /* ./Cgen/emit-cop.scm 401 */
int BgL_arg2028z00_3213;
BgL_arg2028z00_3213 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 401 */
long BgL_n2z00_3221;
BgL_n2z00_3221 = 
(long)(BgL_arg2028z00_3213); 
BgL_modz00_3212 = 
(BgL_offsetz00_3211/BgL_n2z00_3221); } } 
{ /* ./Cgen/emit-cop.scm 401 */
long BgL_restz00_3214;
{ /* ./Cgen/emit-cop.scm 401 */
int BgL_arg2024z00_3215;
BgL_arg2024z00_3215 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 401 */
long BgL_n2z00_3224;
BgL_n2z00_3224 = 
(long)(BgL_arg2024z00_3215); 
BgL_restz00_3214 = 
(BgL_offsetz00_3211%BgL_n2z00_3224); } } 
{ /* ./Cgen/emit-cop.scm 401 */

{ /* ./Cgen/emit-cop.scm 401 */
obj_t BgL_bucketz00_3216;
{ /* ./Cgen/emit-cop.scm 401 */
int BgL_kz00_3226;
BgL_kz00_3226 = 
(int)(BgL_modz00_3212); 
BgL_bucketz00_3216 = 
VECTOR_REF(BgL_arg2017z00_3207,BgL_kz00_3226); } 
{ /* ./Cgen/emit-cop.scm 401 */
int BgL_kz00_3228;
BgL_kz00_3228 = 
(int)(BgL_restz00_3214); 
BgL_method3254z00_3204 = 
VECTOR_REF(BgL_bucketz00_3216,BgL_kz00_3228); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 401 */
obj_t BgL_auxz00_4875;
BgL_auxz00_4875 = 
PROCEDURE_ENTRY(BgL_method3254z00_3204)(BgL_method3254z00_3204, 
(obj_t)(BgL_copz00_3203), BEOA); 
BgL_res5080z00_3229 = 
CBOOL(BgL_auxz00_4875); } } } BgL_res5080z00_3229; } } 
{ /* ./Cgen/emit-cop.scm 402 */
BgL_copz00_bglt BgL_arg4658z00_1832;
BgL_arg4658z00_1832 = 
(((BgL_cappz00_bglt)CREF(BgL_copz00_1806))->BgL_funz00); 
{ /* ./Cgen/emit-cop.scm 402 */
bool_t BgL_res5083z00_3257;
{ /* ./Cgen/emit-cop.scm 402 */
obj_t BgL_method3254z00_3232;
{ /* ./Cgen/emit-cop.scm 402 */
BgL_objectz00_bglt BgL_objz00_3233;
BgL_objz00_3233 = 
(BgL_objectz00_bglt)(BgL_arg4658z00_1832); 
{ /* ./Cgen/emit-cop.scm 402 */
long BgL_objzd2classzd2numz00_3234;
BgL_objzd2classzd2numz00_3234 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3233); 
{ /* ./Cgen/emit-cop.scm 402 */
obj_t BgL_arg2017z00_3235;
{ /* ./Cgen/emit-cop.scm 402 */
int BgL_auxz00_4883;
BgL_auxz00_4883 = 
(int)(((long)1)); 
BgL_arg2017z00_3235 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4883); } 
{ /* ./Cgen/emit-cop.scm 402 */
int BgL_offsetz00_3238;
BgL_offsetz00_3238 = 
(int)(BgL_objzd2classzd2numz00_3234); 
{ /* ./Cgen/emit-cop.scm 402 */
long BgL_offsetz00_3239;
{ /* ./Cgen/emit-cop.scm 402 */
long BgL_auxz00_4887;
BgL_auxz00_4887 = 
(long)(BgL_offsetz00_3238); 
BgL_offsetz00_3239 = 
(BgL_auxz00_4887-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 402 */
long BgL_modz00_3240;
{ /* ./Cgen/emit-cop.scm 402 */
int BgL_arg2028z00_3241;
BgL_arg2028z00_3241 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 402 */
long BgL_n2z00_3249;
BgL_n2z00_3249 = 
(long)(BgL_arg2028z00_3241); 
BgL_modz00_3240 = 
(BgL_offsetz00_3239/BgL_n2z00_3249); } } 
{ /* ./Cgen/emit-cop.scm 402 */
long BgL_restz00_3242;
{ /* ./Cgen/emit-cop.scm 402 */
int BgL_arg2024z00_3243;
BgL_arg2024z00_3243 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 402 */
long BgL_n2z00_3252;
BgL_n2z00_3252 = 
(long)(BgL_arg2024z00_3243); 
BgL_restz00_3242 = 
(BgL_offsetz00_3239%BgL_n2z00_3252); } } 
{ /* ./Cgen/emit-cop.scm 402 */

{ /* ./Cgen/emit-cop.scm 402 */
obj_t BgL_bucketz00_3244;
{ /* ./Cgen/emit-cop.scm 402 */
int BgL_kz00_3254;
BgL_kz00_3254 = 
(int)(BgL_modz00_3240); 
BgL_bucketz00_3244 = 
VECTOR_REF(BgL_arg2017z00_3235,BgL_kz00_3254); } 
{ /* ./Cgen/emit-cop.scm 402 */
int BgL_kz00_3256;
BgL_kz00_3256 = 
(int)(BgL_restz00_3242); 
BgL_method3254z00_3232 = 
VECTOR_REF(BgL_bucketz00_3244,BgL_kz00_3256); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 402 */
obj_t BgL_auxz00_4900;
BgL_auxz00_4900 = 
PROCEDURE_ENTRY(BgL_method3254z00_3232)(BgL_method3254z00_3232, 
(obj_t)(BgL_arg4658z00_1832), BEOA); 
BgL_res5083z00_3257 = 
CBOOL(BgL_auxz00_4900); } } BgL_res5083z00_3257; } } 
{ /* ./Cgen/emit-cop.scm 403 */
obj_t BgL_arg4662z00_1833;
{ /* ./Cgen/emit-cop.scm 403 */
obj_t BgL_auxz00_4905;
BgL_auxz00_4905 = 
CDR(BgL_actualsz00_1830); 
BgL_arg4662z00_1833 = 
CAR(BgL_auxz00_4905); } 
{ /* ./Cgen/emit-cop.scm 403 */
bool_t BgL_res5086z00_3288;
{ /* ./Cgen/emit-cop.scm 403 */
BgL_copz00_bglt BgL_copz00_3262;
BgL_copz00_3262 = 
(BgL_copz00_bglt)(BgL_arg4662z00_1833); 
{ /* ./Cgen/emit-cop.scm 403 */
obj_t BgL_method3254z00_3263;
{ /* ./Cgen/emit-cop.scm 403 */
BgL_objectz00_bglt BgL_objz00_3264;
BgL_objz00_3264 = 
(BgL_objectz00_bglt)(BgL_copz00_3262); 
{ /* ./Cgen/emit-cop.scm 403 */
long BgL_objzd2classzd2numz00_3265;
BgL_objzd2classzd2numz00_3265 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3264); 
{ /* ./Cgen/emit-cop.scm 403 */
obj_t BgL_arg2017z00_3266;
{ /* ./Cgen/emit-cop.scm 403 */
int BgL_auxz00_4911;
BgL_auxz00_4911 = 
(int)(((long)1)); 
BgL_arg2017z00_3266 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4911); } 
{ /* ./Cgen/emit-cop.scm 403 */
int BgL_offsetz00_3269;
BgL_offsetz00_3269 = 
(int)(BgL_objzd2classzd2numz00_3265); 
{ /* ./Cgen/emit-cop.scm 403 */
long BgL_offsetz00_3270;
{ /* ./Cgen/emit-cop.scm 403 */
long BgL_auxz00_4915;
BgL_auxz00_4915 = 
(long)(BgL_offsetz00_3269); 
BgL_offsetz00_3270 = 
(BgL_auxz00_4915-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 403 */
long BgL_modz00_3271;
{ /* ./Cgen/emit-cop.scm 403 */
int BgL_arg2028z00_3272;
BgL_arg2028z00_3272 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 403 */
long BgL_n2z00_3280;
BgL_n2z00_3280 = 
(long)(BgL_arg2028z00_3272); 
BgL_modz00_3271 = 
(BgL_offsetz00_3270/BgL_n2z00_3280); } } 
{ /* ./Cgen/emit-cop.scm 403 */
long BgL_restz00_3273;
{ /* ./Cgen/emit-cop.scm 403 */
int BgL_arg2024z00_3274;
BgL_arg2024z00_3274 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 403 */
long BgL_n2z00_3283;
BgL_n2z00_3283 = 
(long)(BgL_arg2024z00_3274); 
BgL_restz00_3273 = 
(BgL_offsetz00_3270%BgL_n2z00_3283); } } 
{ /* ./Cgen/emit-cop.scm 403 */

{ /* ./Cgen/emit-cop.scm 403 */
obj_t BgL_bucketz00_3275;
{ /* ./Cgen/emit-cop.scm 403 */
int BgL_kz00_3285;
BgL_kz00_3285 = 
(int)(BgL_modz00_3271); 
BgL_bucketz00_3275 = 
VECTOR_REF(BgL_arg2017z00_3266,BgL_kz00_3285); } 
{ /* ./Cgen/emit-cop.scm 403 */
int BgL_kz00_3287;
BgL_kz00_3287 = 
(int)(BgL_restz00_3273); 
BgL_method3254z00_3263 = 
VECTOR_REF(BgL_bucketz00_3275,BgL_kz00_3287); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 403 */
obj_t BgL_auxz00_4928;
BgL_auxz00_4928 = 
PROCEDURE_ENTRY(BgL_method3254z00_3263)(BgL_method3254z00_3263, 
(obj_t)(BgL_copz00_3262), BEOA); 
BgL_res5086z00_3288 = 
CBOOL(BgL_auxz00_4928); } } } BgL_res5086z00_3288; } } 
{ /* ./Cgen/emit-cop.scm 404 */
obj_t BgL_portz00_3290;
BgL_portz00_3290 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_3290); } 
BgL_auxz00_4835 = ((bool_t)1); } }  else 
{ /* ./Cgen/emit-cop.scm 427 */
{ /* ./Cgen/emit-cop.scm 407 */
obj_t BgL_actualsz00_1819;
BgL_actualsz00_1819 = 
(((BgL_cappz00_bglt)CREF(BgL_copz00_1806))->BgL_argsz00); 
{ /* ./Cgen/emit-cop.scm 408 */
BgL_copz00_bglt BgL_arg4623z00_1820;
BgL_arg4623z00_1820 = 
(((BgL_cappz00_bglt)CREF(BgL_copz00_1806))->BgL_funz00); 
{ /* ./Cgen/emit-cop.scm 408 */
bool_t BgL_res5071z00_3132;
{ /* ./Cgen/emit-cop.scm 408 */
obj_t BgL_method3254z00_3107;
{ /* ./Cgen/emit-cop.scm 408 */
BgL_objectz00_bglt BgL_objz00_3108;
BgL_objz00_3108 = 
(BgL_objectz00_bglt)(BgL_arg4623z00_1820); 
{ /* ./Cgen/emit-cop.scm 408 */
long BgL_objzd2classzd2numz00_3109;
BgL_objzd2classzd2numz00_3109 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3108); 
{ /* ./Cgen/emit-cop.scm 408 */
obj_t BgL_arg2017z00_3110;
{ /* ./Cgen/emit-cop.scm 408 */
int BgL_auxz00_4938;
BgL_auxz00_4938 = 
(int)(((long)1)); 
BgL_arg2017z00_3110 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4938); } 
{ /* ./Cgen/emit-cop.scm 408 */
int BgL_offsetz00_3113;
BgL_offsetz00_3113 = 
(int)(BgL_objzd2classzd2numz00_3109); 
{ /* ./Cgen/emit-cop.scm 408 */
long BgL_offsetz00_3114;
{ /* ./Cgen/emit-cop.scm 408 */
long BgL_auxz00_4942;
BgL_auxz00_4942 = 
(long)(BgL_offsetz00_3113); 
BgL_offsetz00_3114 = 
(BgL_auxz00_4942-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 408 */
long BgL_modz00_3115;
{ /* ./Cgen/emit-cop.scm 408 */
int BgL_arg2028z00_3116;
BgL_arg2028z00_3116 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 408 */
long BgL_n2z00_3124;
BgL_n2z00_3124 = 
(long)(BgL_arg2028z00_3116); 
BgL_modz00_3115 = 
(BgL_offsetz00_3114/BgL_n2z00_3124); } } 
{ /* ./Cgen/emit-cop.scm 408 */
long BgL_restz00_3117;
{ /* ./Cgen/emit-cop.scm 408 */
int BgL_arg2024z00_3118;
BgL_arg2024z00_3118 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 408 */
long BgL_n2z00_3127;
BgL_n2z00_3127 = 
(long)(BgL_arg2024z00_3118); 
BgL_restz00_3117 = 
(BgL_offsetz00_3114%BgL_n2z00_3127); } } 
{ /* ./Cgen/emit-cop.scm 408 */

{ /* ./Cgen/emit-cop.scm 408 */
obj_t BgL_bucketz00_3119;
{ /* ./Cgen/emit-cop.scm 408 */
int BgL_kz00_3129;
BgL_kz00_3129 = 
(int)(BgL_modz00_3115); 
BgL_bucketz00_3119 = 
VECTOR_REF(BgL_arg2017z00_3110,BgL_kz00_3129); } 
{ /* ./Cgen/emit-cop.scm 408 */
int BgL_kz00_3131;
BgL_kz00_3131 = 
(int)(BgL_restz00_3117); 
BgL_method3254z00_3107 = 
VECTOR_REF(BgL_bucketz00_3119,BgL_kz00_3131); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 408 */
obj_t BgL_auxz00_4955;
BgL_auxz00_4955 = 
PROCEDURE_ENTRY(BgL_method3254z00_3107)(BgL_method3254z00_3107, 
(obj_t)(BgL_arg4623z00_1820), BEOA); 
BgL_res5071z00_3132 = 
CBOOL(BgL_auxz00_4955); } } BgL_res5071z00_3132; } } 
{ /* ./Cgen/emit-cop.scm 409 */
obj_t BgL_portz00_3134;
BgL_portz00_3134 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)'('), BgL_portz00_3134); } 
{ /* ./Cgen/emit-cop.scm 410 */
bool_t BgL_test4627z00_1821;
BgL_test4627z00_1821 = 
NULLP(BgL_actualsz00_1819); 
if(BgL_test4627z00_1821)
{ /* ./Cgen/emit-cop.scm 410 */
{ /* ./Cgen/emit-cop.scm 412 */
obj_t BgL_portz00_3137;
BgL_portz00_3137 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_3137); } 
BgL_auxz00_4835 = ((bool_t)1); }  else 
{ 
obj_t BgL_actualsz00_1822;
BgL_actualsz00_1822 = BgL_actualsz00_1819; 
BgL_loopz00_1823:
{ /* ./Cgen/emit-cop.scm 415 */
bool_t BgL_test4630z00_1824;
{ /* ./Cgen/emit-cop.scm 415 */
obj_t BgL_auxz00_4964;
BgL_auxz00_4964 = 
CDR(BgL_actualsz00_1822); 
BgL_test4630z00_1824 = 
NULLP(BgL_auxz00_4964); } 
if(BgL_test4630z00_1824)
{ /* ./Cgen/emit-cop.scm 415 */
{ /* ./Cgen/emit-cop.scm 417 */
obj_t BgL_arg4632z00_1825;
BgL_arg4632z00_1825 = 
CAR(BgL_actualsz00_1822); 
{ /* ./Cgen/emit-cop.scm 417 */
bool_t BgL_res5074z00_3167;
{ /* ./Cgen/emit-cop.scm 417 */
BgL_copz00_bglt BgL_copz00_3141;
BgL_copz00_3141 = 
(BgL_copz00_bglt)(BgL_arg4632z00_1825); 
{ /* ./Cgen/emit-cop.scm 417 */
obj_t BgL_method3254z00_3142;
{ /* ./Cgen/emit-cop.scm 417 */
BgL_objectz00_bglt BgL_objz00_3143;
BgL_objz00_3143 = 
(BgL_objectz00_bglt)(BgL_copz00_3141); 
{ /* ./Cgen/emit-cop.scm 417 */
long BgL_objzd2classzd2numz00_3144;
BgL_objzd2classzd2numz00_3144 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3143); 
{ /* ./Cgen/emit-cop.scm 417 */
obj_t BgL_arg2017z00_3145;
{ /* ./Cgen/emit-cop.scm 417 */
int BgL_auxz00_4972;
BgL_auxz00_4972 = 
(int)(((long)1)); 
BgL_arg2017z00_3145 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4972); } 
{ /* ./Cgen/emit-cop.scm 417 */
int BgL_offsetz00_3148;
BgL_offsetz00_3148 = 
(int)(BgL_objzd2classzd2numz00_3144); 
{ /* ./Cgen/emit-cop.scm 417 */
long BgL_offsetz00_3149;
{ /* ./Cgen/emit-cop.scm 417 */
long BgL_auxz00_4976;
BgL_auxz00_4976 = 
(long)(BgL_offsetz00_3148); 
BgL_offsetz00_3149 = 
(BgL_auxz00_4976-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 417 */
long BgL_modz00_3150;
{ /* ./Cgen/emit-cop.scm 417 */
int BgL_arg2028z00_3151;
BgL_arg2028z00_3151 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 417 */
long BgL_n2z00_3159;
BgL_n2z00_3159 = 
(long)(BgL_arg2028z00_3151); 
BgL_modz00_3150 = 
(BgL_offsetz00_3149/BgL_n2z00_3159); } } 
{ /* ./Cgen/emit-cop.scm 417 */
long BgL_restz00_3152;
{ /* ./Cgen/emit-cop.scm 417 */
int BgL_arg2024z00_3153;
BgL_arg2024z00_3153 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 417 */
long BgL_n2z00_3162;
BgL_n2z00_3162 = 
(long)(BgL_arg2024z00_3153); 
BgL_restz00_3152 = 
(BgL_offsetz00_3149%BgL_n2z00_3162); } } 
{ /* ./Cgen/emit-cop.scm 417 */

{ /* ./Cgen/emit-cop.scm 417 */
obj_t BgL_bucketz00_3154;
{ /* ./Cgen/emit-cop.scm 417 */
int BgL_kz00_3164;
BgL_kz00_3164 = 
(int)(BgL_modz00_3150); 
BgL_bucketz00_3154 = 
VECTOR_REF(BgL_arg2017z00_3145,BgL_kz00_3164); } 
{ /* ./Cgen/emit-cop.scm 417 */
int BgL_kz00_3166;
BgL_kz00_3166 = 
(int)(BgL_restz00_3152); 
BgL_method3254z00_3142 = 
VECTOR_REF(BgL_bucketz00_3154,BgL_kz00_3166); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 417 */
obj_t BgL_auxz00_4989;
BgL_auxz00_4989 = 
PROCEDURE_ENTRY(BgL_method3254z00_3142)(BgL_method3254z00_3142, 
(obj_t)(BgL_copz00_3141), BEOA); 
BgL_res5074z00_3167 = 
CBOOL(BgL_auxz00_4989); } } } BgL_res5074z00_3167; } } 
{ /* ./Cgen/emit-cop.scm 418 */
obj_t BgL_portz00_3169;
BgL_portz00_3169 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_3169); } 
BgL_auxz00_4835 = ((bool_t)1); }  else 
{ /* ./Cgen/emit-cop.scm 415 */
{ /* ./Cgen/emit-cop.scm 421 */
obj_t BgL_arg4637z00_1826;
BgL_arg4637z00_1826 = 
CAR(BgL_actualsz00_1822); 
{ /* ./Cgen/emit-cop.scm 421 */
bool_t BgL_res5077z00_3197;
{ /* ./Cgen/emit-cop.scm 421 */
BgL_copz00_bglt BgL_copz00_3171;
BgL_copz00_3171 = 
(BgL_copz00_bglt)(BgL_arg4637z00_1826); 
{ /* ./Cgen/emit-cop.scm 421 */
obj_t BgL_method3254z00_3172;
{ /* ./Cgen/emit-cop.scm 421 */
BgL_objectz00_bglt BgL_objz00_3173;
BgL_objz00_3173 = 
(BgL_objectz00_bglt)(BgL_copz00_3171); 
{ /* ./Cgen/emit-cop.scm 421 */
long BgL_objzd2classzd2numz00_3174;
BgL_objzd2classzd2numz00_3174 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3173); 
{ /* ./Cgen/emit-cop.scm 421 */
obj_t BgL_arg2017z00_3175;
{ /* ./Cgen/emit-cop.scm 421 */
int BgL_auxz00_4999;
BgL_auxz00_4999 = 
(int)(((long)1)); 
BgL_arg2017z00_3175 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_4999); } 
{ /* ./Cgen/emit-cop.scm 421 */
int BgL_offsetz00_3178;
BgL_offsetz00_3178 = 
(int)(BgL_objzd2classzd2numz00_3174); 
{ /* ./Cgen/emit-cop.scm 421 */
long BgL_offsetz00_3179;
{ /* ./Cgen/emit-cop.scm 421 */
long BgL_auxz00_5003;
BgL_auxz00_5003 = 
(long)(BgL_offsetz00_3178); 
BgL_offsetz00_3179 = 
(BgL_auxz00_5003-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 421 */
long BgL_modz00_3180;
{ /* ./Cgen/emit-cop.scm 421 */
int BgL_arg2028z00_3181;
BgL_arg2028z00_3181 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 421 */
long BgL_n2z00_3189;
BgL_n2z00_3189 = 
(long)(BgL_arg2028z00_3181); 
BgL_modz00_3180 = 
(BgL_offsetz00_3179/BgL_n2z00_3189); } } 
{ /* ./Cgen/emit-cop.scm 421 */
long BgL_restz00_3182;
{ /* ./Cgen/emit-cop.scm 421 */
int BgL_arg2024z00_3183;
BgL_arg2024z00_3183 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 421 */
long BgL_n2z00_3192;
BgL_n2z00_3192 = 
(long)(BgL_arg2024z00_3183); 
BgL_restz00_3182 = 
(BgL_offsetz00_3179%BgL_n2z00_3192); } } 
{ /* ./Cgen/emit-cop.scm 421 */

{ /* ./Cgen/emit-cop.scm 421 */
obj_t BgL_bucketz00_3184;
{ /* ./Cgen/emit-cop.scm 421 */
int BgL_kz00_3194;
BgL_kz00_3194 = 
(int)(BgL_modz00_3180); 
BgL_bucketz00_3184 = 
VECTOR_REF(BgL_arg2017z00_3175,BgL_kz00_3194); } 
{ /* ./Cgen/emit-cop.scm 421 */
int BgL_kz00_3196;
BgL_kz00_3196 = 
(int)(BgL_restz00_3182); 
BgL_method3254z00_3172 = 
VECTOR_REF(BgL_bucketz00_3184,BgL_kz00_3196); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 421 */
obj_t BgL_auxz00_5016;
BgL_auxz00_5016 = 
PROCEDURE_ENTRY(BgL_method3254z00_3172)(BgL_method3254z00_3172, 
(obj_t)(BgL_copz00_3171), BEOA); 
BgL_res5077z00_3197 = 
CBOOL(BgL_auxz00_5016); } } } BgL_res5077z00_3197; } } 
display_string(BGl_string6196z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 423 */
obj_t BgL_arg4642z00_1827;
BgL_arg4642z00_1827 = 
CDR(BgL_actualsz00_1822); 
{ 
obj_t BgL_actualsz00_5023;
BgL_actualsz00_5023 = BgL_arg4642z00_1827; 
BgL_actualsz00_1822 = BgL_actualsz00_5023; 
goto BgL_loopz00_1823;} } } } } } } } } } } 
return 
BBOOL(BgL_auxz00_4835);} } } 
}



/* emit-cop-capply3292 */
obj_t BGl_emitzd2copzd2capply3292z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3943, obj_t BgL_copz00_3944)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 384 */
{ 
BgL_capplyz00_bglt BgL_copz00_1797;
{ /* ./Cgen/emit-cop.scm 385 */
bool_t BgL_auxz00_5026;
BgL_copz00_1797 = 
(BgL_capplyz00_bglt)(BgL_copz00_3944); 
{ /* ./Cgen/emit-cop.scm 386 */
obj_t BgL_arg4583z00_1801;
{ /* ./Cgen/emit-cop.scm 386 */
BgL_copz00_bglt BgL_obj2662z00_3038;
BgL_obj2662z00_3038 = 
(BgL_copz00_bglt)(BgL_copz00_1797); 
BgL_arg4583z00_1801 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3038))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4583z00_1801); } 
display_string(BGl_string6211z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 388 */
BgL_copz00_bglt BgL_arg4588z00_1802;
BgL_arg4588z00_1802 = 
(((BgL_capplyz00_bglt)CREF(BgL_copz00_1797))->BgL_funz00); 
{ /* ./Cgen/emit-cop.scm 388 */
bool_t BgL_res5065z00_3066;
{ /* ./Cgen/emit-cop.scm 388 */
obj_t BgL_method3254z00_3041;
{ /* ./Cgen/emit-cop.scm 388 */
BgL_objectz00_bglt BgL_objz00_3042;
BgL_objz00_3042 = 
(BgL_objectz00_bglt)(BgL_arg4588z00_1802); 
{ /* ./Cgen/emit-cop.scm 388 */
long BgL_objzd2classzd2numz00_3043;
BgL_objzd2classzd2numz00_3043 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3042); 
{ /* ./Cgen/emit-cop.scm 388 */
obj_t BgL_arg2017z00_3044;
{ /* ./Cgen/emit-cop.scm 388 */
int BgL_auxz00_5034;
BgL_auxz00_5034 = 
(int)(((long)1)); 
BgL_arg2017z00_3044 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5034); } 
{ /* ./Cgen/emit-cop.scm 388 */
int BgL_offsetz00_3047;
BgL_offsetz00_3047 = 
(int)(BgL_objzd2classzd2numz00_3043); 
{ /* ./Cgen/emit-cop.scm 388 */
long BgL_offsetz00_3048;
{ /* ./Cgen/emit-cop.scm 388 */
long BgL_auxz00_5038;
BgL_auxz00_5038 = 
(long)(BgL_offsetz00_3047); 
BgL_offsetz00_3048 = 
(BgL_auxz00_5038-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 388 */
long BgL_modz00_3049;
{ /* ./Cgen/emit-cop.scm 388 */
int BgL_arg2028z00_3050;
BgL_arg2028z00_3050 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 388 */
long BgL_n2z00_3058;
BgL_n2z00_3058 = 
(long)(BgL_arg2028z00_3050); 
BgL_modz00_3049 = 
(BgL_offsetz00_3048/BgL_n2z00_3058); } } 
{ /* ./Cgen/emit-cop.scm 388 */
long BgL_restz00_3051;
{ /* ./Cgen/emit-cop.scm 388 */
int BgL_arg2024z00_3052;
BgL_arg2024z00_3052 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 388 */
long BgL_n2z00_3061;
BgL_n2z00_3061 = 
(long)(BgL_arg2024z00_3052); 
BgL_restz00_3051 = 
(BgL_offsetz00_3048%BgL_n2z00_3061); } } 
{ /* ./Cgen/emit-cop.scm 388 */

{ /* ./Cgen/emit-cop.scm 388 */
obj_t BgL_bucketz00_3053;
{ /* ./Cgen/emit-cop.scm 388 */
int BgL_kz00_3063;
BgL_kz00_3063 = 
(int)(BgL_modz00_3049); 
BgL_bucketz00_3053 = 
VECTOR_REF(BgL_arg2017z00_3044,BgL_kz00_3063); } 
{ /* ./Cgen/emit-cop.scm 388 */
int BgL_kz00_3065;
BgL_kz00_3065 = 
(int)(BgL_restz00_3051); 
BgL_method3254z00_3041 = 
VECTOR_REF(BgL_bucketz00_3053,BgL_kz00_3065); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 388 */
obj_t BgL_auxz00_5051;
BgL_auxz00_5051 = 
PROCEDURE_ENTRY(BgL_method3254z00_3041)(BgL_method3254z00_3041, 
(obj_t)(BgL_arg4588z00_1802), BEOA); 
BgL_res5065z00_3066 = 
CBOOL(BgL_auxz00_5051); } } BgL_res5065z00_3066; } } 
display_string(BGl_string6196z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 390 */
BgL_copz00_bglt BgL_arg4593z00_1803;
BgL_arg4593z00_1803 = 
(((BgL_capplyz00_bglt)CREF(BgL_copz00_1797))->BgL_argz00); 
{ /* ./Cgen/emit-cop.scm 390 */
bool_t BgL_res5068z00_3094;
{ /* ./Cgen/emit-cop.scm 390 */
obj_t BgL_method3254z00_3069;
{ /* ./Cgen/emit-cop.scm 390 */
BgL_objectz00_bglt BgL_objz00_3070;
BgL_objz00_3070 = 
(BgL_objectz00_bglt)(BgL_arg4593z00_1803); 
{ /* ./Cgen/emit-cop.scm 390 */
long BgL_objzd2classzd2numz00_3071;
BgL_objzd2classzd2numz00_3071 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3070); 
{ /* ./Cgen/emit-cop.scm 390 */
obj_t BgL_arg2017z00_3072;
{ /* ./Cgen/emit-cop.scm 390 */
int BgL_auxz00_5060;
BgL_auxz00_5060 = 
(int)(((long)1)); 
BgL_arg2017z00_3072 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5060); } 
{ /* ./Cgen/emit-cop.scm 390 */
int BgL_offsetz00_3075;
BgL_offsetz00_3075 = 
(int)(BgL_objzd2classzd2numz00_3071); 
{ /* ./Cgen/emit-cop.scm 390 */
long BgL_offsetz00_3076;
{ /* ./Cgen/emit-cop.scm 390 */
long BgL_auxz00_5064;
BgL_auxz00_5064 = 
(long)(BgL_offsetz00_3075); 
BgL_offsetz00_3076 = 
(BgL_auxz00_5064-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 390 */
long BgL_modz00_3077;
{ /* ./Cgen/emit-cop.scm 390 */
int BgL_arg2028z00_3078;
BgL_arg2028z00_3078 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 390 */
long BgL_n2z00_3086;
BgL_n2z00_3086 = 
(long)(BgL_arg2028z00_3078); 
BgL_modz00_3077 = 
(BgL_offsetz00_3076/BgL_n2z00_3086); } } 
{ /* ./Cgen/emit-cop.scm 390 */
long BgL_restz00_3079;
{ /* ./Cgen/emit-cop.scm 390 */
int BgL_arg2024z00_3080;
BgL_arg2024z00_3080 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 390 */
long BgL_n2z00_3089;
BgL_n2z00_3089 = 
(long)(BgL_arg2024z00_3080); 
BgL_restz00_3079 = 
(BgL_offsetz00_3076%BgL_n2z00_3089); } } 
{ /* ./Cgen/emit-cop.scm 390 */

{ /* ./Cgen/emit-cop.scm 390 */
obj_t BgL_bucketz00_3081;
{ /* ./Cgen/emit-cop.scm 390 */
int BgL_kz00_3091;
BgL_kz00_3091 = 
(int)(BgL_modz00_3077); 
BgL_bucketz00_3081 = 
VECTOR_REF(BgL_arg2017z00_3072,BgL_kz00_3091); } 
{ /* ./Cgen/emit-cop.scm 390 */
int BgL_kz00_3093;
BgL_kz00_3093 = 
(int)(BgL_restz00_3079); 
BgL_method3254z00_3069 = 
VECTOR_REF(BgL_bucketz00_3081,BgL_kz00_3093); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 390 */
obj_t BgL_auxz00_5077;
BgL_auxz00_5077 = 
PROCEDURE_ENTRY(BgL_method3254z00_3069)(BgL_method3254z00_3069, 
(obj_t)(BgL_arg4593z00_1803), BEOA); 
BgL_res5068z00_3094 = 
CBOOL(BgL_auxz00_5077); } } BgL_res5068z00_3094; } } 
{ /* ./Cgen/emit-cop.scm 391 */
obj_t BgL_portz00_3096;
BgL_portz00_3096 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_3096); } 
BgL_auxz00_5026 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_5026);} } } 
}



/* emit-cop-cfuncall3290 */
obj_t BGl_emitzd2copzd2cfuncall3290z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3945, obj_t BgL_copz00_3946)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 292 */
{ 
BgL_cfuncallz00_bglt BgL_copz00_1741;
{ /* ./Cgen/emit-cop.scm 293 */
bool_t BgL_auxz00_5085;
BgL_copz00_1741 = 
(BgL_cfuncallz00_bglt)(BgL_copz00_3946); 
{ 
BgL_cfuncallz00_bglt BgL_copz00_1752;BgL_cfuncallz00_bglt BgL_copz00_1750;BgL_cfuncallz00_bglt BgL_copz00_1746;BgL_cfuncallz00_bglt BgL_copz00_1744;
{ /* ./Cgen/emit-cop.scm 370 */
obj_t BgL_arg4447z00_1754;
{ /* ./Cgen/emit-cop.scm 370 */
BgL_copz00_bglt BgL_obj2662z00_2643;
BgL_obj2662z00_2643 = 
(BgL_copz00_bglt)(BgL_copz00_1741); 
BgL_arg4447z00_1754 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2643))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4447z00_1754); } 
{ /* ./Cgen/emit-cop.scm 371 */
obj_t BgL_casezd2valuezd2_1755;
BgL_casezd2valuezd2_1755 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_copz00_1741))->BgL_strengthz00); 
{ /* ./Cgen/emit-cop.scm 371 */
bool_t BgL_test4450z00_1756;
BgL_test4450z00_1756 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1755, 
CNST_TABLE_REF(((long)5))); 
if(BgL_test4450z00_1756)
{ /* ./Cgen/emit-cop.scm 371 */
BgL_copz00_1744 = BgL_copz00_1741; 
{ /* ./Cgen/emit-cop.scm 294 */
obj_t BgL_actualsz00_1758;
BgL_actualsz00_1758 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_copz00_1744))->BgL_argsz00); 
{ /* ./Cgen/emit-cop.scm 295 */
BgL_copz00_bglt BgL_arg4460z00_1759;
BgL_arg4460z00_1759 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_copz00_1744))->BgL_funz00); 
{ /* ./Cgen/emit-cop.scm 295 */
bool_t BgL_res5026z00_2673;
{ /* ./Cgen/emit-cop.scm 295 */
obj_t BgL_method3254z00_2648;
{ /* ./Cgen/emit-cop.scm 295 */
BgL_objectz00_bglt BgL_objz00_2649;
BgL_objz00_2649 = 
(BgL_objectz00_bglt)(BgL_arg4460z00_1759); 
{ /* ./Cgen/emit-cop.scm 295 */
long BgL_objzd2classzd2numz00_2650;
BgL_objzd2classzd2numz00_2650 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2649); 
{ /* ./Cgen/emit-cop.scm 295 */
obj_t BgL_arg2017z00_2651;
{ /* ./Cgen/emit-cop.scm 295 */
int BgL_auxz00_5097;
BgL_auxz00_5097 = 
(int)(((long)1)); 
BgL_arg2017z00_2651 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5097); } 
{ /* ./Cgen/emit-cop.scm 295 */
int BgL_offsetz00_2654;
BgL_offsetz00_2654 = 
(int)(BgL_objzd2classzd2numz00_2650); 
{ /* ./Cgen/emit-cop.scm 295 */
long BgL_offsetz00_2655;
{ /* ./Cgen/emit-cop.scm 295 */
long BgL_auxz00_5101;
BgL_auxz00_5101 = 
(long)(BgL_offsetz00_2654); 
BgL_offsetz00_2655 = 
(BgL_auxz00_5101-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 295 */
long BgL_modz00_2656;
{ /* ./Cgen/emit-cop.scm 295 */
int BgL_arg2028z00_2657;
BgL_arg2028z00_2657 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 295 */
long BgL_n2z00_2665;
BgL_n2z00_2665 = 
(long)(BgL_arg2028z00_2657); 
BgL_modz00_2656 = 
(BgL_offsetz00_2655/BgL_n2z00_2665); } } 
{ /* ./Cgen/emit-cop.scm 295 */
long BgL_restz00_2658;
{ /* ./Cgen/emit-cop.scm 295 */
int BgL_arg2024z00_2659;
BgL_arg2024z00_2659 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 295 */
long BgL_n2z00_2668;
BgL_n2z00_2668 = 
(long)(BgL_arg2024z00_2659); 
BgL_restz00_2658 = 
(BgL_offsetz00_2655%BgL_n2z00_2668); } } 
{ /* ./Cgen/emit-cop.scm 295 */

{ /* ./Cgen/emit-cop.scm 295 */
obj_t BgL_bucketz00_2660;
{ /* ./Cgen/emit-cop.scm 295 */
int BgL_kz00_2670;
BgL_kz00_2670 = 
(int)(BgL_modz00_2656); 
BgL_bucketz00_2660 = 
VECTOR_REF(BgL_arg2017z00_2651,BgL_kz00_2670); } 
{ /* ./Cgen/emit-cop.scm 295 */
int BgL_kz00_2672;
BgL_kz00_2672 = 
(int)(BgL_restz00_2658); 
BgL_method3254z00_2648 = 
VECTOR_REF(BgL_bucketz00_2660,BgL_kz00_2672); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 295 */
obj_t BgL_auxz00_5114;
BgL_auxz00_5114 = 
PROCEDURE_ENTRY(BgL_method3254z00_2648)(BgL_method3254z00_2648, 
(obj_t)(BgL_arg4460z00_1759), BEOA); 
BgL_res5026z00_2673 = 
CBOOL(BgL_auxz00_5114); } } BgL_res5026z00_2673; } } 
{ /* ./Cgen/emit-cop.scm 296 */
obj_t BgL_portz00_2675;
BgL_portz00_2675 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)'('), BgL_portz00_2675); } 
{ 
obj_t BgL_actualsz00_1760;
BgL_actualsz00_1760 = BgL_actualsz00_1758; 
BgL_loopz00_1761:
{ /* ./Cgen/emit-cop.scm 300 */
bool_t BgL_test4465z00_1762;
{ /* ./Cgen/emit-cop.scm 300 */
obj_t BgL_auxz00_5120;
{ /* ./Cgen/emit-cop.scm 300 */
obj_t BgL_auxz00_5121;
BgL_auxz00_5121 = 
CDR(BgL_actualsz00_1760); 
BgL_auxz00_5120 = 
CDR(BgL_auxz00_5121); } 
BgL_test4465z00_1762 = 
NULLP(BgL_auxz00_5120); } 
if(BgL_test4465z00_1762)
{ /* ./Cgen/emit-cop.scm 300 */
{ /* ./Cgen/emit-cop.scm 302 */
obj_t BgL_arg4467z00_1763;
BgL_arg4467z00_1763 = 
CAR(BgL_actualsz00_1760); 
{ /* ./Cgen/emit-cop.scm 302 */
bool_t BgL_res5029z00_2708;
{ /* ./Cgen/emit-cop.scm 302 */
BgL_copz00_bglt BgL_copz00_2682;
BgL_copz00_2682 = 
(BgL_copz00_bglt)(BgL_arg4467z00_1763); 
{ /* ./Cgen/emit-cop.scm 302 */
obj_t BgL_method3254z00_2683;
{ /* ./Cgen/emit-cop.scm 302 */
BgL_objectz00_bglt BgL_objz00_2684;
BgL_objz00_2684 = 
(BgL_objectz00_bglt)(BgL_copz00_2682); 
{ /* ./Cgen/emit-cop.scm 302 */
long BgL_objzd2classzd2numz00_2685;
BgL_objzd2classzd2numz00_2685 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2684); 
{ /* ./Cgen/emit-cop.scm 302 */
obj_t BgL_arg2017z00_2686;
{ /* ./Cgen/emit-cop.scm 302 */
int BgL_auxz00_5130;
BgL_auxz00_5130 = 
(int)(((long)1)); 
BgL_arg2017z00_2686 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5130); } 
{ /* ./Cgen/emit-cop.scm 302 */
int BgL_offsetz00_2689;
BgL_offsetz00_2689 = 
(int)(BgL_objzd2classzd2numz00_2685); 
{ /* ./Cgen/emit-cop.scm 302 */
long BgL_offsetz00_2690;
{ /* ./Cgen/emit-cop.scm 302 */
long BgL_auxz00_5134;
BgL_auxz00_5134 = 
(long)(BgL_offsetz00_2689); 
BgL_offsetz00_2690 = 
(BgL_auxz00_5134-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 302 */
long BgL_modz00_2691;
{ /* ./Cgen/emit-cop.scm 302 */
int BgL_arg2028z00_2692;
BgL_arg2028z00_2692 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 302 */
long BgL_n2z00_2700;
BgL_n2z00_2700 = 
(long)(BgL_arg2028z00_2692); 
BgL_modz00_2691 = 
(BgL_offsetz00_2690/BgL_n2z00_2700); } } 
{ /* ./Cgen/emit-cop.scm 302 */
long BgL_restz00_2693;
{ /* ./Cgen/emit-cop.scm 302 */
int BgL_arg2024z00_2694;
BgL_arg2024z00_2694 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 302 */
long BgL_n2z00_2703;
BgL_n2z00_2703 = 
(long)(BgL_arg2024z00_2694); 
BgL_restz00_2693 = 
(BgL_offsetz00_2690%BgL_n2z00_2703); } } 
{ /* ./Cgen/emit-cop.scm 302 */

{ /* ./Cgen/emit-cop.scm 302 */
obj_t BgL_bucketz00_2695;
{ /* ./Cgen/emit-cop.scm 302 */
int BgL_kz00_2705;
BgL_kz00_2705 = 
(int)(BgL_modz00_2691); 
BgL_bucketz00_2695 = 
VECTOR_REF(BgL_arg2017z00_2686,BgL_kz00_2705); } 
{ /* ./Cgen/emit-cop.scm 302 */
int BgL_kz00_2707;
BgL_kz00_2707 = 
(int)(BgL_restz00_2693); 
BgL_method3254z00_2683 = 
VECTOR_REF(BgL_bucketz00_2695,BgL_kz00_2707); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 302 */
obj_t BgL_auxz00_5147;
BgL_auxz00_5147 = 
PROCEDURE_ENTRY(BgL_method3254z00_2683)(BgL_method3254z00_2683, 
(obj_t)(BgL_copz00_2682), BEOA); 
BgL_res5029z00_2708 = 
CBOOL(BgL_auxz00_5147); } } } BgL_res5029z00_2708; } } 
{ /* ./Cgen/emit-cop.scm 303 */
obj_t BgL_portz00_2710;
BgL_portz00_2710 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_2710); } 
BgL_auxz00_5085 = ((bool_t)1); }  else 
{ /* ./Cgen/emit-cop.scm 300 */
{ /* ./Cgen/emit-cop.scm 306 */
obj_t BgL_arg4472z00_1764;
BgL_arg4472z00_1764 = 
CAR(BgL_actualsz00_1760); 
{ /* ./Cgen/emit-cop.scm 306 */
bool_t BgL_res5032z00_2738;
{ /* ./Cgen/emit-cop.scm 306 */
BgL_copz00_bglt BgL_copz00_2712;
BgL_copz00_2712 = 
(BgL_copz00_bglt)(BgL_arg4472z00_1764); 
{ /* ./Cgen/emit-cop.scm 306 */
obj_t BgL_method3254z00_2713;
{ /* ./Cgen/emit-cop.scm 306 */
BgL_objectz00_bglt BgL_objz00_2714;
BgL_objz00_2714 = 
(BgL_objectz00_bglt)(BgL_copz00_2712); 
{ /* ./Cgen/emit-cop.scm 306 */
long BgL_objzd2classzd2numz00_2715;
BgL_objzd2classzd2numz00_2715 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2714); 
{ /* ./Cgen/emit-cop.scm 306 */
obj_t BgL_arg2017z00_2716;
{ /* ./Cgen/emit-cop.scm 306 */
int BgL_auxz00_5157;
BgL_auxz00_5157 = 
(int)(((long)1)); 
BgL_arg2017z00_2716 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5157); } 
{ /* ./Cgen/emit-cop.scm 306 */
int BgL_offsetz00_2719;
BgL_offsetz00_2719 = 
(int)(BgL_objzd2classzd2numz00_2715); 
{ /* ./Cgen/emit-cop.scm 306 */
long BgL_offsetz00_2720;
{ /* ./Cgen/emit-cop.scm 306 */
long BgL_auxz00_5161;
BgL_auxz00_5161 = 
(long)(BgL_offsetz00_2719); 
BgL_offsetz00_2720 = 
(BgL_auxz00_5161-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 306 */
long BgL_modz00_2721;
{ /* ./Cgen/emit-cop.scm 306 */
int BgL_arg2028z00_2722;
BgL_arg2028z00_2722 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 306 */
long BgL_n2z00_2730;
BgL_n2z00_2730 = 
(long)(BgL_arg2028z00_2722); 
BgL_modz00_2721 = 
(BgL_offsetz00_2720/BgL_n2z00_2730); } } 
{ /* ./Cgen/emit-cop.scm 306 */
long BgL_restz00_2723;
{ /* ./Cgen/emit-cop.scm 306 */
int BgL_arg2024z00_2724;
BgL_arg2024z00_2724 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 306 */
long BgL_n2z00_2733;
BgL_n2z00_2733 = 
(long)(BgL_arg2024z00_2724); 
BgL_restz00_2723 = 
(BgL_offsetz00_2720%BgL_n2z00_2733); } } 
{ /* ./Cgen/emit-cop.scm 306 */

{ /* ./Cgen/emit-cop.scm 306 */
obj_t BgL_bucketz00_2725;
{ /* ./Cgen/emit-cop.scm 306 */
int BgL_kz00_2735;
BgL_kz00_2735 = 
(int)(BgL_modz00_2721); 
BgL_bucketz00_2725 = 
VECTOR_REF(BgL_arg2017z00_2716,BgL_kz00_2735); } 
{ /* ./Cgen/emit-cop.scm 306 */
int BgL_kz00_2737;
BgL_kz00_2737 = 
(int)(BgL_restz00_2723); 
BgL_method3254z00_2713 = 
VECTOR_REF(BgL_bucketz00_2725,BgL_kz00_2737); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 306 */
obj_t BgL_auxz00_5174;
BgL_auxz00_5174 = 
PROCEDURE_ENTRY(BgL_method3254z00_2713)(BgL_method3254z00_2713, 
(obj_t)(BgL_copz00_2712), BEOA); 
BgL_res5032z00_2738 = 
CBOOL(BgL_auxz00_5174); } } } BgL_res5032z00_2738; } } 
display_string(BGl_string6196z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 308 */
obj_t BgL_arg4477z00_1765;
BgL_arg4477z00_1765 = 
CDR(BgL_actualsz00_1760); 
{ 
obj_t BgL_actualsz00_5181;
BgL_actualsz00_5181 = BgL_arg4477z00_1765; 
BgL_actualsz00_1760 = BgL_actualsz00_5181; 
goto BgL_loopz00_1761;} } } } } } }  else 
{ /* ./Cgen/emit-cop.scm 371 */
bool_t BgL_test4452z00_1757;
BgL_test4452z00_1757 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1755, 
CNST_TABLE_REF(((long)6))); 
if(BgL_test4452z00_1757)
{ /* ./Cgen/emit-cop.scm 371 */
BgL_copz00_1746 = BgL_copz00_1741; 
{ /* ./Cgen/emit-cop.scm 310 */
obj_t BgL_actualsz00_1767;
BgL_actualsz00_1767 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_copz00_1746))->BgL_argsz00); 
display_string(BGl_string6212z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 312 */
BgL_copz00_bglt BgL_arg4487z00_1768;
BgL_arg4487z00_1768 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_copz00_1746))->BgL_funz00); 
{ /* ./Cgen/emit-cop.scm 312 */
bool_t BgL_res5035z00_2768;
{ /* ./Cgen/emit-cop.scm 312 */
obj_t BgL_method3254z00_2743;
{ /* ./Cgen/emit-cop.scm 312 */
BgL_objectz00_bglt BgL_objz00_2744;
BgL_objz00_2744 = 
(BgL_objectz00_bglt)(BgL_arg4487z00_1768); 
{ /* ./Cgen/emit-cop.scm 312 */
long BgL_objzd2classzd2numz00_2745;
BgL_objzd2classzd2numz00_2745 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2744); 
{ /* ./Cgen/emit-cop.scm 312 */
obj_t BgL_arg2017z00_2746;
{ /* ./Cgen/emit-cop.scm 312 */
int BgL_auxz00_5190;
BgL_auxz00_5190 = 
(int)(((long)1)); 
BgL_arg2017z00_2746 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5190); } 
{ /* ./Cgen/emit-cop.scm 312 */
int BgL_offsetz00_2749;
BgL_offsetz00_2749 = 
(int)(BgL_objzd2classzd2numz00_2745); 
{ /* ./Cgen/emit-cop.scm 312 */
long BgL_offsetz00_2750;
{ /* ./Cgen/emit-cop.scm 312 */
long BgL_auxz00_5194;
BgL_auxz00_5194 = 
(long)(BgL_offsetz00_2749); 
BgL_offsetz00_2750 = 
(BgL_auxz00_5194-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 312 */
long BgL_modz00_2751;
{ /* ./Cgen/emit-cop.scm 312 */
int BgL_arg2028z00_2752;
BgL_arg2028z00_2752 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 312 */
long BgL_n2z00_2760;
BgL_n2z00_2760 = 
(long)(BgL_arg2028z00_2752); 
BgL_modz00_2751 = 
(BgL_offsetz00_2750/BgL_n2z00_2760); } } 
{ /* ./Cgen/emit-cop.scm 312 */
long BgL_restz00_2753;
{ /* ./Cgen/emit-cop.scm 312 */
int BgL_arg2024z00_2754;
BgL_arg2024z00_2754 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 312 */
long BgL_n2z00_2763;
BgL_n2z00_2763 = 
(long)(BgL_arg2024z00_2754); 
BgL_restz00_2753 = 
(BgL_offsetz00_2750%BgL_n2z00_2763); } } 
{ /* ./Cgen/emit-cop.scm 312 */

{ /* ./Cgen/emit-cop.scm 312 */
obj_t BgL_bucketz00_2755;
{ /* ./Cgen/emit-cop.scm 312 */
int BgL_kz00_2765;
BgL_kz00_2765 = 
(int)(BgL_modz00_2751); 
BgL_bucketz00_2755 = 
VECTOR_REF(BgL_arg2017z00_2746,BgL_kz00_2765); } 
{ /* ./Cgen/emit-cop.scm 312 */
int BgL_kz00_2767;
BgL_kz00_2767 = 
(int)(BgL_restz00_2753); 
BgL_method3254z00_2743 = 
VECTOR_REF(BgL_bucketz00_2755,BgL_kz00_2767); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 312 */
obj_t BgL_auxz00_5207;
BgL_auxz00_5207 = 
PROCEDURE_ENTRY(BgL_method3254z00_2743)(BgL_method3254z00_2743, 
(obj_t)(BgL_arg4487z00_1768), BEOA); 
BgL_res5035z00_2768 = 
CBOOL(BgL_auxz00_5207); } } BgL_res5035z00_2768; } } 
display_string(BGl_string6213z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ 
obj_t BgL_actualsz00_1769;
BgL_actualsz00_1769 = BgL_actualsz00_1767; 
BgL_loopz00_1770:
{ /* ./Cgen/emit-cop.scm 317 */
bool_t BgL_test4492z00_1771;
{ /* ./Cgen/emit-cop.scm 317 */
obj_t BgL_auxz00_5213;
{ /* ./Cgen/emit-cop.scm 317 */
obj_t BgL_auxz00_5214;
BgL_auxz00_5214 = 
CDR(BgL_actualsz00_1769); 
BgL_auxz00_5213 = 
CDR(BgL_auxz00_5214); } 
BgL_test4492z00_1771 = 
NULLP(BgL_auxz00_5213); } 
if(BgL_test4492z00_1771)
{ /* ./Cgen/emit-cop.scm 317 */
{ /* ./Cgen/emit-cop.scm 319 */
obj_t BgL_arg4494z00_1772;
BgL_arg4494z00_1772 = 
CAR(BgL_actualsz00_1769); 
{ /* ./Cgen/emit-cop.scm 319 */
bool_t BgL_res5038z00_2801;
{ /* ./Cgen/emit-cop.scm 319 */
BgL_copz00_bglt BgL_copz00_2775;
BgL_copz00_2775 = 
(BgL_copz00_bglt)(BgL_arg4494z00_1772); 
{ /* ./Cgen/emit-cop.scm 319 */
obj_t BgL_method3254z00_2776;
{ /* ./Cgen/emit-cop.scm 319 */
BgL_objectz00_bglt BgL_objz00_2777;
BgL_objz00_2777 = 
(BgL_objectz00_bglt)(BgL_copz00_2775); 
{ /* ./Cgen/emit-cop.scm 319 */
long BgL_objzd2classzd2numz00_2778;
BgL_objzd2classzd2numz00_2778 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2777); 
{ /* ./Cgen/emit-cop.scm 319 */
obj_t BgL_arg2017z00_2779;
{ /* ./Cgen/emit-cop.scm 319 */
int BgL_auxz00_5223;
BgL_auxz00_5223 = 
(int)(((long)1)); 
BgL_arg2017z00_2779 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5223); } 
{ /* ./Cgen/emit-cop.scm 319 */
int BgL_offsetz00_2782;
BgL_offsetz00_2782 = 
(int)(BgL_objzd2classzd2numz00_2778); 
{ /* ./Cgen/emit-cop.scm 319 */
long BgL_offsetz00_2783;
{ /* ./Cgen/emit-cop.scm 319 */
long BgL_auxz00_5227;
BgL_auxz00_5227 = 
(long)(BgL_offsetz00_2782); 
BgL_offsetz00_2783 = 
(BgL_auxz00_5227-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 319 */
long BgL_modz00_2784;
{ /* ./Cgen/emit-cop.scm 319 */
int BgL_arg2028z00_2785;
BgL_arg2028z00_2785 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 319 */
long BgL_n2z00_2793;
BgL_n2z00_2793 = 
(long)(BgL_arg2028z00_2785); 
BgL_modz00_2784 = 
(BgL_offsetz00_2783/BgL_n2z00_2793); } } 
{ /* ./Cgen/emit-cop.scm 319 */
long BgL_restz00_2786;
{ /* ./Cgen/emit-cop.scm 319 */
int BgL_arg2024z00_2787;
BgL_arg2024z00_2787 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 319 */
long BgL_n2z00_2796;
BgL_n2z00_2796 = 
(long)(BgL_arg2024z00_2787); 
BgL_restz00_2786 = 
(BgL_offsetz00_2783%BgL_n2z00_2796); } } 
{ /* ./Cgen/emit-cop.scm 319 */

{ /* ./Cgen/emit-cop.scm 319 */
obj_t BgL_bucketz00_2788;
{ /* ./Cgen/emit-cop.scm 319 */
int BgL_kz00_2798;
BgL_kz00_2798 = 
(int)(BgL_modz00_2784); 
BgL_bucketz00_2788 = 
VECTOR_REF(BgL_arg2017z00_2779,BgL_kz00_2798); } 
{ /* ./Cgen/emit-cop.scm 319 */
int BgL_kz00_2800;
BgL_kz00_2800 = 
(int)(BgL_restz00_2786); 
BgL_method3254z00_2776 = 
VECTOR_REF(BgL_bucketz00_2788,BgL_kz00_2800); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 319 */
obj_t BgL_auxz00_5240;
BgL_auxz00_5240 = 
PROCEDURE_ENTRY(BgL_method3254z00_2776)(BgL_method3254z00_2776, 
(obj_t)(BgL_copz00_2775), BEOA); 
BgL_res5038z00_2801 = 
CBOOL(BgL_auxz00_5240); } } } BgL_res5038z00_2801; } } 
display_string(BGl_string6214z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BgL_auxz00_5085 = ((bool_t)1); }  else 
{ /* ./Cgen/emit-cop.scm 317 */
{ /* ./Cgen/emit-cop.scm 323 */
obj_t BgL_arg4499z00_1773;
BgL_arg4499z00_1773 = 
CAR(BgL_actualsz00_1769); 
{ /* ./Cgen/emit-cop.scm 323 */
bool_t BgL_res5041z00_2829;
{ /* ./Cgen/emit-cop.scm 323 */
BgL_copz00_bglt BgL_copz00_2803;
BgL_copz00_2803 = 
(BgL_copz00_bglt)(BgL_arg4499z00_1773); 
{ /* ./Cgen/emit-cop.scm 323 */
obj_t BgL_method3254z00_2804;
{ /* ./Cgen/emit-cop.scm 323 */
BgL_objectz00_bglt BgL_objz00_2805;
BgL_objz00_2805 = 
(BgL_objectz00_bglt)(BgL_copz00_2803); 
{ /* ./Cgen/emit-cop.scm 323 */
long BgL_objzd2classzd2numz00_2806;
BgL_objzd2classzd2numz00_2806 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2805); 
{ /* ./Cgen/emit-cop.scm 323 */
obj_t BgL_arg2017z00_2807;
{ /* ./Cgen/emit-cop.scm 323 */
int BgL_auxz00_5250;
BgL_auxz00_5250 = 
(int)(((long)1)); 
BgL_arg2017z00_2807 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5250); } 
{ /* ./Cgen/emit-cop.scm 323 */
int BgL_offsetz00_2810;
BgL_offsetz00_2810 = 
(int)(BgL_objzd2classzd2numz00_2806); 
{ /* ./Cgen/emit-cop.scm 323 */
long BgL_offsetz00_2811;
{ /* ./Cgen/emit-cop.scm 323 */
long BgL_auxz00_5254;
BgL_auxz00_5254 = 
(long)(BgL_offsetz00_2810); 
BgL_offsetz00_2811 = 
(BgL_auxz00_5254-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 323 */
long BgL_modz00_2812;
{ /* ./Cgen/emit-cop.scm 323 */
int BgL_arg2028z00_2813;
BgL_arg2028z00_2813 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 323 */
long BgL_n2z00_2821;
BgL_n2z00_2821 = 
(long)(BgL_arg2028z00_2813); 
BgL_modz00_2812 = 
(BgL_offsetz00_2811/BgL_n2z00_2821); } } 
{ /* ./Cgen/emit-cop.scm 323 */
long BgL_restz00_2814;
{ /* ./Cgen/emit-cop.scm 323 */
int BgL_arg2024z00_2815;
BgL_arg2024z00_2815 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 323 */
long BgL_n2z00_2824;
BgL_n2z00_2824 = 
(long)(BgL_arg2024z00_2815); 
BgL_restz00_2814 = 
(BgL_offsetz00_2811%BgL_n2z00_2824); } } 
{ /* ./Cgen/emit-cop.scm 323 */

{ /* ./Cgen/emit-cop.scm 323 */
obj_t BgL_bucketz00_2816;
{ /* ./Cgen/emit-cop.scm 323 */
int BgL_kz00_2826;
BgL_kz00_2826 = 
(int)(BgL_modz00_2812); 
BgL_bucketz00_2816 = 
VECTOR_REF(BgL_arg2017z00_2807,BgL_kz00_2826); } 
{ /* ./Cgen/emit-cop.scm 323 */
int BgL_kz00_2828;
BgL_kz00_2828 = 
(int)(BgL_restz00_2814); 
BgL_method3254z00_2804 = 
VECTOR_REF(BgL_bucketz00_2816,BgL_kz00_2828); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 323 */
obj_t BgL_auxz00_5267;
BgL_auxz00_5267 = 
PROCEDURE_ENTRY(BgL_method3254z00_2804)(BgL_method3254z00_2804, 
(obj_t)(BgL_copz00_2803), BEOA); 
BgL_res5041z00_2829 = 
CBOOL(BgL_auxz00_5267); } } } BgL_res5041z00_2829; } } 
display_string(BGl_string6196z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 325 */
obj_t BgL_arg4504z00_1774;
BgL_arg4504z00_1774 = 
CDR(BgL_actualsz00_1769); 
{ 
obj_t BgL_actualsz00_5274;
BgL_actualsz00_5274 = BgL_arg4504z00_1774; 
BgL_actualsz00_1769 = BgL_actualsz00_5274; 
goto BgL_loopz00_1770;} } } } } } }  else 
{ /* ./Cgen/emit-cop.scm 371 */
if(
CBOOL(BGl_za2stdcza2z00zzengine_paramz00))
{ /* ./Cgen/emit-cop.scm 377 */
BgL_copz00_1752 = BgL_copz00_1741; 
display_string(BGl_string6216z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 363 */
BgL_copz00_bglt BgL_arg4568z00_1794;
BgL_arg4568z00_1794 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_copz00_1752))->BgL_funz00); 
{ /* ./Cgen/emit-cop.scm 363 */
bool_t BgL_res5062z00_3037;
{ /* ./Cgen/emit-cop.scm 363 */
obj_t BgL_method3254z00_3012;
{ /* ./Cgen/emit-cop.scm 363 */
BgL_objectz00_bglt BgL_objz00_3013;
BgL_objz00_3013 = 
(BgL_objectz00_bglt)(BgL_arg4568z00_1794); 
{ /* ./Cgen/emit-cop.scm 363 */
long BgL_objzd2classzd2numz00_3014;
BgL_objzd2classzd2numz00_3014 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3013); 
{ /* ./Cgen/emit-cop.scm 363 */
obj_t BgL_arg2017z00_3015;
{ /* ./Cgen/emit-cop.scm 363 */
int BgL_auxz00_5281;
BgL_auxz00_5281 = 
(int)(((long)1)); 
BgL_arg2017z00_3015 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5281); } 
{ /* ./Cgen/emit-cop.scm 363 */
int BgL_offsetz00_3018;
BgL_offsetz00_3018 = 
(int)(BgL_objzd2classzd2numz00_3014); 
{ /* ./Cgen/emit-cop.scm 363 */
long BgL_offsetz00_3019;
{ /* ./Cgen/emit-cop.scm 363 */
long BgL_auxz00_5285;
BgL_auxz00_5285 = 
(long)(BgL_offsetz00_3018); 
BgL_offsetz00_3019 = 
(BgL_auxz00_5285-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 363 */
long BgL_modz00_3020;
{ /* ./Cgen/emit-cop.scm 363 */
int BgL_arg2028z00_3021;
BgL_arg2028z00_3021 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 363 */
long BgL_n2z00_3029;
BgL_n2z00_3029 = 
(long)(BgL_arg2028z00_3021); 
BgL_modz00_3020 = 
(BgL_offsetz00_3019/BgL_n2z00_3029); } } 
{ /* ./Cgen/emit-cop.scm 363 */
long BgL_restz00_3022;
{ /* ./Cgen/emit-cop.scm 363 */
int BgL_arg2024z00_3023;
BgL_arg2024z00_3023 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 363 */
long BgL_n2z00_3032;
BgL_n2z00_3032 = 
(long)(BgL_arg2024z00_3023); 
BgL_restz00_3022 = 
(BgL_offsetz00_3019%BgL_n2z00_3032); } } 
{ /* ./Cgen/emit-cop.scm 363 */

{ /* ./Cgen/emit-cop.scm 363 */
obj_t BgL_bucketz00_3024;
{ /* ./Cgen/emit-cop.scm 363 */
int BgL_kz00_3034;
BgL_kz00_3034 = 
(int)(BgL_modz00_3020); 
BgL_bucketz00_3024 = 
VECTOR_REF(BgL_arg2017z00_3015,BgL_kz00_3034); } 
{ /* ./Cgen/emit-cop.scm 363 */
int BgL_kz00_3036;
BgL_kz00_3036 = 
(int)(BgL_restz00_3022); 
BgL_method3254z00_3012 = 
VECTOR_REF(BgL_bucketz00_3024,BgL_kz00_3036); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 363 */
obj_t BgL_auxz00_5298;
BgL_auxz00_5298 = 
PROCEDURE_ENTRY(BgL_method3254z00_3012)(BgL_method3254z00_3012, 
(obj_t)(BgL_arg4568z00_1794), BEOA); 
BgL_res5062z00_3037 = 
CBOOL(BgL_auxz00_5298); } } BgL_res5062z00_3037; } } 
display_string(BGl_string6217z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BGl_emitzd2regularzd2cfuncallzf2eoazf2zzcgen_emitzd2copzd2(BgL_copz00_1752); 
display_string(BGl_string6204z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BgL_copz00_1750 = BgL_copz00_1752; 
{ /* ./Cgen/emit-cop.scm 344 */
obj_t BgL_actualsz00_1785;
BgL_actualsz00_1785 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_copz00_1750))->BgL_argsz00); 
display_string(BGl_string6215z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 346 */
BgL_copz00_bglt BgL_arg4541z00_1786;
BgL_arg4541z00_1786 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_copz00_1750))->BgL_funz00); 
{ /* ./Cgen/emit-cop.scm 346 */
bool_t BgL_res5053z00_2947;
{ /* ./Cgen/emit-cop.scm 346 */
obj_t BgL_method3254z00_2922;
{ /* ./Cgen/emit-cop.scm 346 */
BgL_objectz00_bglt BgL_objz00_2923;
BgL_objz00_2923 = 
(BgL_objectz00_bglt)(BgL_arg4541z00_1786); 
{ /* ./Cgen/emit-cop.scm 346 */
long BgL_objzd2classzd2numz00_2924;
BgL_objzd2classzd2numz00_2924 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2923); 
{ /* ./Cgen/emit-cop.scm 346 */
obj_t BgL_arg2017z00_2925;
{ /* ./Cgen/emit-cop.scm 346 */
int BgL_auxz00_5311;
BgL_auxz00_5311 = 
(int)(((long)1)); 
BgL_arg2017z00_2925 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5311); } 
{ /* ./Cgen/emit-cop.scm 346 */
int BgL_offsetz00_2928;
BgL_offsetz00_2928 = 
(int)(BgL_objzd2classzd2numz00_2924); 
{ /* ./Cgen/emit-cop.scm 346 */
long BgL_offsetz00_2929;
{ /* ./Cgen/emit-cop.scm 346 */
long BgL_auxz00_5315;
BgL_auxz00_5315 = 
(long)(BgL_offsetz00_2928); 
BgL_offsetz00_2929 = 
(BgL_auxz00_5315-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 346 */
long BgL_modz00_2930;
{ /* ./Cgen/emit-cop.scm 346 */
int BgL_arg2028z00_2931;
BgL_arg2028z00_2931 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 346 */
long BgL_n2z00_2939;
BgL_n2z00_2939 = 
(long)(BgL_arg2028z00_2931); 
BgL_modz00_2930 = 
(BgL_offsetz00_2929/BgL_n2z00_2939); } } 
{ /* ./Cgen/emit-cop.scm 346 */
long BgL_restz00_2932;
{ /* ./Cgen/emit-cop.scm 346 */
int BgL_arg2024z00_2933;
BgL_arg2024z00_2933 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 346 */
long BgL_n2z00_2942;
BgL_n2z00_2942 = 
(long)(BgL_arg2024z00_2933); 
BgL_restz00_2932 = 
(BgL_offsetz00_2929%BgL_n2z00_2942); } } 
{ /* ./Cgen/emit-cop.scm 346 */

{ /* ./Cgen/emit-cop.scm 346 */
obj_t BgL_bucketz00_2934;
{ /* ./Cgen/emit-cop.scm 346 */
int BgL_kz00_2944;
BgL_kz00_2944 = 
(int)(BgL_modz00_2930); 
BgL_bucketz00_2934 = 
VECTOR_REF(BgL_arg2017z00_2925,BgL_kz00_2944); } 
{ /* ./Cgen/emit-cop.scm 346 */
int BgL_kz00_2946;
BgL_kz00_2946 = 
(int)(BgL_restz00_2932); 
BgL_method3254z00_2922 = 
VECTOR_REF(BgL_bucketz00_2934,BgL_kz00_2946); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 346 */
obj_t BgL_auxz00_5328;
BgL_auxz00_5328 = 
PROCEDURE_ENTRY(BgL_method3254z00_2922)(BgL_method3254z00_2922, 
(obj_t)(BgL_arg4541z00_1786), BEOA); 
BgL_res5053z00_2947 = 
CBOOL(BgL_auxz00_5328); } } BgL_res5053z00_2947; } } 
display_string(BGl_string6213z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ 
obj_t BgL_actualsz00_1787;
BgL_actualsz00_1787 = BgL_actualsz00_1785; 
BgL_loopz00_1788:
{ /* ./Cgen/emit-cop.scm 351 */
bool_t BgL_test4546z00_1789;
{ /* ./Cgen/emit-cop.scm 351 */
obj_t BgL_auxz00_5334;
{ /* ./Cgen/emit-cop.scm 351 */
obj_t BgL_auxz00_5335;
BgL_auxz00_5335 = 
CDR(BgL_actualsz00_1787); 
BgL_auxz00_5334 = 
CDR(BgL_auxz00_5335); } 
BgL_test4546z00_1789 = 
NULLP(BgL_auxz00_5334); } 
if(BgL_test4546z00_1789)
{ /* ./Cgen/emit-cop.scm 351 */
{ /* ./Cgen/emit-cop.scm 353 */
obj_t BgL_arg4548z00_1790;
BgL_arg4548z00_1790 = 
CAR(BgL_actualsz00_1787); 
{ /* ./Cgen/emit-cop.scm 353 */
bool_t BgL_res5056z00_2980;
{ /* ./Cgen/emit-cop.scm 353 */
BgL_copz00_bglt BgL_copz00_2954;
BgL_copz00_2954 = 
(BgL_copz00_bglt)(BgL_arg4548z00_1790); 
{ /* ./Cgen/emit-cop.scm 353 */
obj_t BgL_method3254z00_2955;
{ /* ./Cgen/emit-cop.scm 353 */
BgL_objectz00_bglt BgL_objz00_2956;
BgL_objz00_2956 = 
(BgL_objectz00_bglt)(BgL_copz00_2954); 
{ /* ./Cgen/emit-cop.scm 353 */
long BgL_objzd2classzd2numz00_2957;
BgL_objzd2classzd2numz00_2957 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2956); 
{ /* ./Cgen/emit-cop.scm 353 */
obj_t BgL_arg2017z00_2958;
{ /* ./Cgen/emit-cop.scm 353 */
int BgL_auxz00_5344;
BgL_auxz00_5344 = 
(int)(((long)1)); 
BgL_arg2017z00_2958 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5344); } 
{ /* ./Cgen/emit-cop.scm 353 */
int BgL_offsetz00_2961;
BgL_offsetz00_2961 = 
(int)(BgL_objzd2classzd2numz00_2957); 
{ /* ./Cgen/emit-cop.scm 353 */
long BgL_offsetz00_2962;
{ /* ./Cgen/emit-cop.scm 353 */
long BgL_auxz00_5348;
BgL_auxz00_5348 = 
(long)(BgL_offsetz00_2961); 
BgL_offsetz00_2962 = 
(BgL_auxz00_5348-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 353 */
long BgL_modz00_2963;
{ /* ./Cgen/emit-cop.scm 353 */
int BgL_arg2028z00_2964;
BgL_arg2028z00_2964 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 353 */
long BgL_n2z00_2972;
BgL_n2z00_2972 = 
(long)(BgL_arg2028z00_2964); 
BgL_modz00_2963 = 
(BgL_offsetz00_2962/BgL_n2z00_2972); } } 
{ /* ./Cgen/emit-cop.scm 353 */
long BgL_restz00_2965;
{ /* ./Cgen/emit-cop.scm 353 */
int BgL_arg2024z00_2966;
BgL_arg2024z00_2966 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 353 */
long BgL_n2z00_2975;
BgL_n2z00_2975 = 
(long)(BgL_arg2024z00_2966); 
BgL_restz00_2965 = 
(BgL_offsetz00_2962%BgL_n2z00_2975); } } 
{ /* ./Cgen/emit-cop.scm 353 */

{ /* ./Cgen/emit-cop.scm 353 */
obj_t BgL_bucketz00_2967;
{ /* ./Cgen/emit-cop.scm 353 */
int BgL_kz00_2977;
BgL_kz00_2977 = 
(int)(BgL_modz00_2963); 
BgL_bucketz00_2967 = 
VECTOR_REF(BgL_arg2017z00_2958,BgL_kz00_2977); } 
{ /* ./Cgen/emit-cop.scm 353 */
int BgL_kz00_2979;
BgL_kz00_2979 = 
(int)(BgL_restz00_2965); 
BgL_method3254z00_2955 = 
VECTOR_REF(BgL_bucketz00_2967,BgL_kz00_2979); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 353 */
obj_t BgL_auxz00_5361;
BgL_auxz00_5361 = 
PROCEDURE_ENTRY(BgL_method3254z00_2955)(BgL_method3254z00_2955, 
(obj_t)(BgL_copz00_2954), BEOA); 
BgL_res5056z00_2980 = 
CBOOL(BgL_auxz00_5361); } } } BgL_res5056z00_2980; } } 
display_string(BGl_string6214z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); ((bool_t)1); }  else 
{ /* ./Cgen/emit-cop.scm 351 */
{ /* ./Cgen/emit-cop.scm 357 */
obj_t BgL_arg4553z00_1791;
BgL_arg4553z00_1791 = 
CAR(BgL_actualsz00_1787); 
{ /* ./Cgen/emit-cop.scm 357 */
bool_t BgL_res5059z00_3008;
{ /* ./Cgen/emit-cop.scm 357 */
BgL_copz00_bglt BgL_copz00_2982;
BgL_copz00_2982 = 
(BgL_copz00_bglt)(BgL_arg4553z00_1791); 
{ /* ./Cgen/emit-cop.scm 357 */
obj_t BgL_method3254z00_2983;
{ /* ./Cgen/emit-cop.scm 357 */
BgL_objectz00_bglt BgL_objz00_2984;
BgL_objz00_2984 = 
(BgL_objectz00_bglt)(BgL_copz00_2982); 
{ /* ./Cgen/emit-cop.scm 357 */
long BgL_objzd2classzd2numz00_2985;
BgL_objzd2classzd2numz00_2985 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2984); 
{ /* ./Cgen/emit-cop.scm 357 */
obj_t BgL_arg2017z00_2986;
{ /* ./Cgen/emit-cop.scm 357 */
int BgL_auxz00_5371;
BgL_auxz00_5371 = 
(int)(((long)1)); 
BgL_arg2017z00_2986 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5371); } 
{ /* ./Cgen/emit-cop.scm 357 */
int BgL_offsetz00_2989;
BgL_offsetz00_2989 = 
(int)(BgL_objzd2classzd2numz00_2985); 
{ /* ./Cgen/emit-cop.scm 357 */
long BgL_offsetz00_2990;
{ /* ./Cgen/emit-cop.scm 357 */
long BgL_auxz00_5375;
BgL_auxz00_5375 = 
(long)(BgL_offsetz00_2989); 
BgL_offsetz00_2990 = 
(BgL_auxz00_5375-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 357 */
long BgL_modz00_2991;
{ /* ./Cgen/emit-cop.scm 357 */
int BgL_arg2028z00_2992;
BgL_arg2028z00_2992 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 357 */
long BgL_n2z00_3000;
BgL_n2z00_3000 = 
(long)(BgL_arg2028z00_2992); 
BgL_modz00_2991 = 
(BgL_offsetz00_2990/BgL_n2z00_3000); } } 
{ /* ./Cgen/emit-cop.scm 357 */
long BgL_restz00_2993;
{ /* ./Cgen/emit-cop.scm 357 */
int BgL_arg2024z00_2994;
BgL_arg2024z00_2994 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 357 */
long BgL_n2z00_3003;
BgL_n2z00_3003 = 
(long)(BgL_arg2024z00_2994); 
BgL_restz00_2993 = 
(BgL_offsetz00_2990%BgL_n2z00_3003); } } 
{ /* ./Cgen/emit-cop.scm 357 */

{ /* ./Cgen/emit-cop.scm 357 */
obj_t BgL_bucketz00_2995;
{ /* ./Cgen/emit-cop.scm 357 */
int BgL_kz00_3005;
BgL_kz00_3005 = 
(int)(BgL_modz00_2991); 
BgL_bucketz00_2995 = 
VECTOR_REF(BgL_arg2017z00_2986,BgL_kz00_3005); } 
{ /* ./Cgen/emit-cop.scm 357 */
int BgL_kz00_3007;
BgL_kz00_3007 = 
(int)(BgL_restz00_2993); 
BgL_method3254z00_2983 = 
VECTOR_REF(BgL_bucketz00_2995,BgL_kz00_3007); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 357 */
obj_t BgL_auxz00_5388;
BgL_auxz00_5388 = 
PROCEDURE_ENTRY(BgL_method3254z00_2983)(BgL_method3254z00_2983, 
(obj_t)(BgL_copz00_2982), BEOA); 
BgL_res5059z00_3008 = 
CBOOL(BgL_auxz00_5388); } } } BgL_res5059z00_3008; } } 
display_string(BGl_string6196z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 359 */
obj_t BgL_arg4558z00_1792;
BgL_arg4558z00_1792 = 
CDR(BgL_actualsz00_1787); 
{ 
obj_t BgL_actualsz00_5395;
BgL_actualsz00_5395 = BgL_arg4558z00_1792; 
BgL_actualsz00_1787 = BgL_actualsz00_5395; 
goto BgL_loopz00_1788;} } } } } } 
display_string(BGl_string6218z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BgL_auxz00_5085 = ((bool_t)1); }  else 
{ /* ./Cgen/emit-cop.scm 377 */
BgL_auxz00_5085 = 
BGl_emitzd2regularzd2cfuncallzf2eoazf2zzcgen_emitzd2copzd2(BgL_copz00_1741)
; } } } } } } 
return 
BBOOL(BgL_auxz00_5085);} } } 
}



/* emit-regular-cfuncall/eoa */
bool_t BGl_emitzd2regularzd2cfuncallzf2eoazf2zzcgen_emitzd2copzd2(BgL_cfuncallz00_bglt BgL_copz00_1748)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 326 */
{ /* ./Cgen/emit-cop.scm 327 */
obj_t BgL_actualsz00_1776;
BgL_actualsz00_1776 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_copz00_1748))->BgL_argsz00); 
display_string(BGl_string6215z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 329 */
BgL_copz00_bglt BgL_arg4514z00_1777;
BgL_arg4514z00_1777 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_copz00_1748))->BgL_funz00); 
{ /* ./Cgen/emit-cop.scm 329 */
bool_t BgL_res5044z00_2859;
{ /* ./Cgen/emit-cop.scm 329 */
obj_t BgL_method3254z00_2834;
{ /* ./Cgen/emit-cop.scm 329 */
BgL_objectz00_bglt BgL_objz00_2835;
BgL_objz00_2835 = 
(BgL_objectz00_bglt)(BgL_arg4514z00_1777); 
{ /* ./Cgen/emit-cop.scm 329 */
long BgL_objzd2classzd2numz00_2836;
BgL_objzd2classzd2numz00_2836 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2835); 
{ /* ./Cgen/emit-cop.scm 329 */
obj_t BgL_arg2017z00_2837;
{ /* ./Cgen/emit-cop.scm 329 */
int BgL_auxz00_5405;
BgL_auxz00_5405 = 
(int)(((long)1)); 
BgL_arg2017z00_2837 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5405); } 
{ /* ./Cgen/emit-cop.scm 329 */
int BgL_offsetz00_2840;
BgL_offsetz00_2840 = 
(int)(BgL_objzd2classzd2numz00_2836); 
{ /* ./Cgen/emit-cop.scm 329 */
long BgL_offsetz00_2841;
{ /* ./Cgen/emit-cop.scm 329 */
long BgL_auxz00_5409;
BgL_auxz00_5409 = 
(long)(BgL_offsetz00_2840); 
BgL_offsetz00_2841 = 
(BgL_auxz00_5409-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 329 */
long BgL_modz00_2842;
{ /* ./Cgen/emit-cop.scm 329 */
int BgL_arg2028z00_2843;
BgL_arg2028z00_2843 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 329 */
long BgL_n2z00_2851;
BgL_n2z00_2851 = 
(long)(BgL_arg2028z00_2843); 
BgL_modz00_2842 = 
(BgL_offsetz00_2841/BgL_n2z00_2851); } } 
{ /* ./Cgen/emit-cop.scm 329 */
long BgL_restz00_2844;
{ /* ./Cgen/emit-cop.scm 329 */
int BgL_arg2024z00_2845;
BgL_arg2024z00_2845 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 329 */
long BgL_n2z00_2854;
BgL_n2z00_2854 = 
(long)(BgL_arg2024z00_2845); 
BgL_restz00_2844 = 
(BgL_offsetz00_2841%BgL_n2z00_2854); } } 
{ /* ./Cgen/emit-cop.scm 329 */

{ /* ./Cgen/emit-cop.scm 329 */
obj_t BgL_bucketz00_2846;
{ /* ./Cgen/emit-cop.scm 329 */
int BgL_kz00_2856;
BgL_kz00_2856 = 
(int)(BgL_modz00_2842); 
BgL_bucketz00_2846 = 
VECTOR_REF(BgL_arg2017z00_2837,BgL_kz00_2856); } 
{ /* ./Cgen/emit-cop.scm 329 */
int BgL_kz00_2858;
BgL_kz00_2858 = 
(int)(BgL_restz00_2844); 
BgL_method3254z00_2834 = 
VECTOR_REF(BgL_bucketz00_2846,BgL_kz00_2858); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 329 */
obj_t BgL_auxz00_5422;
BgL_auxz00_5422 = 
PROCEDURE_ENTRY(BgL_method3254z00_2834)(BgL_method3254z00_2834, 
(obj_t)(BgL_arg4514z00_1777), BEOA); 
BgL_res5044z00_2859 = 
CBOOL(BgL_auxz00_5422); } } BgL_res5044z00_2859; } } 
display_string(BGl_string6213z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ 
obj_t BgL_actualsz00_1778;
BgL_actualsz00_1778 = BgL_actualsz00_1776; 
BgL_loopz00_1779:
{ /* ./Cgen/emit-cop.scm 334 */
bool_t BgL_test4519z00_1780;
{ /* ./Cgen/emit-cop.scm 334 */
obj_t BgL_auxz00_5428;
BgL_auxz00_5428 = 
CDR(BgL_actualsz00_1778); 
BgL_test4519z00_1780 = 
NULLP(BgL_auxz00_5428); } 
if(BgL_test4519z00_1780)
{ /* ./Cgen/emit-cop.scm 334 */
{ /* ./Cgen/emit-cop.scm 336 */
obj_t BgL_arg4521z00_1781;
BgL_arg4521z00_1781 = 
CAR(BgL_actualsz00_1778); 
{ /* ./Cgen/emit-cop.scm 336 */
bool_t BgL_res5047z00_2889;
{ /* ./Cgen/emit-cop.scm 336 */
BgL_copz00_bglt BgL_copz00_2863;
BgL_copz00_2863 = 
(BgL_copz00_bglt)(BgL_arg4521z00_1781); 
{ /* ./Cgen/emit-cop.scm 336 */
obj_t BgL_method3254z00_2864;
{ /* ./Cgen/emit-cop.scm 336 */
BgL_objectz00_bglt BgL_objz00_2865;
BgL_objz00_2865 = 
(BgL_objectz00_bglt)(BgL_copz00_2863); 
{ /* ./Cgen/emit-cop.scm 336 */
long BgL_objzd2classzd2numz00_2866;
BgL_objzd2classzd2numz00_2866 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2865); 
{ /* ./Cgen/emit-cop.scm 336 */
obj_t BgL_arg2017z00_2867;
{ /* ./Cgen/emit-cop.scm 336 */
int BgL_auxz00_5436;
BgL_auxz00_5436 = 
(int)(((long)1)); 
BgL_arg2017z00_2867 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5436); } 
{ /* ./Cgen/emit-cop.scm 336 */
int BgL_offsetz00_2870;
BgL_offsetz00_2870 = 
(int)(BgL_objzd2classzd2numz00_2866); 
{ /* ./Cgen/emit-cop.scm 336 */
long BgL_offsetz00_2871;
{ /* ./Cgen/emit-cop.scm 336 */
long BgL_auxz00_5440;
BgL_auxz00_5440 = 
(long)(BgL_offsetz00_2870); 
BgL_offsetz00_2871 = 
(BgL_auxz00_5440-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 336 */
long BgL_modz00_2872;
{ /* ./Cgen/emit-cop.scm 336 */
int BgL_arg2028z00_2873;
BgL_arg2028z00_2873 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 336 */
long BgL_n2z00_2881;
BgL_n2z00_2881 = 
(long)(BgL_arg2028z00_2873); 
BgL_modz00_2872 = 
(BgL_offsetz00_2871/BgL_n2z00_2881); } } 
{ /* ./Cgen/emit-cop.scm 336 */
long BgL_restz00_2874;
{ /* ./Cgen/emit-cop.scm 336 */
int BgL_arg2024z00_2875;
BgL_arg2024z00_2875 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 336 */
long BgL_n2z00_2884;
BgL_n2z00_2884 = 
(long)(BgL_arg2024z00_2875); 
BgL_restz00_2874 = 
(BgL_offsetz00_2871%BgL_n2z00_2884); } } 
{ /* ./Cgen/emit-cop.scm 336 */

{ /* ./Cgen/emit-cop.scm 336 */
obj_t BgL_bucketz00_2876;
{ /* ./Cgen/emit-cop.scm 336 */
int BgL_kz00_2886;
BgL_kz00_2886 = 
(int)(BgL_modz00_2872); 
BgL_bucketz00_2876 = 
VECTOR_REF(BgL_arg2017z00_2867,BgL_kz00_2886); } 
{ /* ./Cgen/emit-cop.scm 336 */
int BgL_kz00_2888;
BgL_kz00_2888 = 
(int)(BgL_restz00_2874); 
BgL_method3254z00_2864 = 
VECTOR_REF(BgL_bucketz00_2876,BgL_kz00_2888); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 336 */
obj_t BgL_auxz00_5453;
BgL_auxz00_5453 = 
PROCEDURE_ENTRY(BgL_method3254z00_2864)(BgL_method3254z00_2864, 
(obj_t)(BgL_copz00_2863), BEOA); 
BgL_res5047z00_2889 = 
CBOOL(BgL_auxz00_5453); } } } BgL_res5047z00_2889; } } 
display_string(BGl_string6214z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
return ((bool_t)1);}  else 
{ /* ./Cgen/emit-cop.scm 334 */
{ /* ./Cgen/emit-cop.scm 340 */
obj_t BgL_arg4526z00_1782;
BgL_arg4526z00_1782 = 
CAR(BgL_actualsz00_1778); 
{ /* ./Cgen/emit-cop.scm 340 */
bool_t BgL_res5050z00_2917;
{ /* ./Cgen/emit-cop.scm 340 */
BgL_copz00_bglt BgL_copz00_2891;
BgL_copz00_2891 = 
(BgL_copz00_bglt)(BgL_arg4526z00_1782); 
{ /* ./Cgen/emit-cop.scm 340 */
obj_t BgL_method3254z00_2892;
{ /* ./Cgen/emit-cop.scm 340 */
BgL_objectz00_bglt BgL_objz00_2893;
BgL_objz00_2893 = 
(BgL_objectz00_bglt)(BgL_copz00_2891); 
{ /* ./Cgen/emit-cop.scm 340 */
long BgL_objzd2classzd2numz00_2894;
BgL_objzd2classzd2numz00_2894 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2893); 
{ /* ./Cgen/emit-cop.scm 340 */
obj_t BgL_arg2017z00_2895;
{ /* ./Cgen/emit-cop.scm 340 */
int BgL_auxz00_5463;
BgL_auxz00_5463 = 
(int)(((long)1)); 
BgL_arg2017z00_2895 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5463); } 
{ /* ./Cgen/emit-cop.scm 340 */
int BgL_offsetz00_2898;
BgL_offsetz00_2898 = 
(int)(BgL_objzd2classzd2numz00_2894); 
{ /* ./Cgen/emit-cop.scm 340 */
long BgL_offsetz00_2899;
{ /* ./Cgen/emit-cop.scm 340 */
long BgL_auxz00_5467;
BgL_auxz00_5467 = 
(long)(BgL_offsetz00_2898); 
BgL_offsetz00_2899 = 
(BgL_auxz00_5467-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 340 */
long BgL_modz00_2900;
{ /* ./Cgen/emit-cop.scm 340 */
int BgL_arg2028z00_2901;
BgL_arg2028z00_2901 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 340 */
long BgL_n2z00_2909;
BgL_n2z00_2909 = 
(long)(BgL_arg2028z00_2901); 
BgL_modz00_2900 = 
(BgL_offsetz00_2899/BgL_n2z00_2909); } } 
{ /* ./Cgen/emit-cop.scm 340 */
long BgL_restz00_2902;
{ /* ./Cgen/emit-cop.scm 340 */
int BgL_arg2024z00_2903;
BgL_arg2024z00_2903 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 340 */
long BgL_n2z00_2912;
BgL_n2z00_2912 = 
(long)(BgL_arg2024z00_2903); 
BgL_restz00_2902 = 
(BgL_offsetz00_2899%BgL_n2z00_2912); } } 
{ /* ./Cgen/emit-cop.scm 340 */

{ /* ./Cgen/emit-cop.scm 340 */
obj_t BgL_bucketz00_2904;
{ /* ./Cgen/emit-cop.scm 340 */
int BgL_kz00_2914;
BgL_kz00_2914 = 
(int)(BgL_modz00_2900); 
BgL_bucketz00_2904 = 
VECTOR_REF(BgL_arg2017z00_2895,BgL_kz00_2914); } 
{ /* ./Cgen/emit-cop.scm 340 */
int BgL_kz00_2916;
BgL_kz00_2916 = 
(int)(BgL_restz00_2902); 
BgL_method3254z00_2892 = 
VECTOR_REF(BgL_bucketz00_2904,BgL_kz00_2916); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 340 */
obj_t BgL_auxz00_5480;
BgL_auxz00_5480 = 
PROCEDURE_ENTRY(BgL_method3254z00_2892)(BgL_method3254z00_2892, 
(obj_t)(BgL_copz00_2891), BEOA); 
BgL_res5050z00_2917 = 
CBOOL(BgL_auxz00_5480); } } } BgL_res5050z00_2917; } } 
display_string(BGl_string6196z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 342 */
obj_t BgL_arg4531z00_1783;
BgL_arg4531z00_1783 = 
CDR(BgL_actualsz00_1778); 
{ 
obj_t BgL_actualsz00_5487;
BgL_actualsz00_5487 = BgL_arg4531z00_1783; 
BgL_actualsz00_1778 = BgL_actualsz00_5487; 
goto BgL_loopz00_1779;} } } } } } } 
}



/* emit-cop-bdb-block3288 */
obj_t BGl_emitzd2copzd2bdbzd2block3288zd2zzcgen_emitzd2copzd2(obj_t BgL_envz00_3947, obj_t BgL_copz00_3948)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 281 */
{ 
BgL_bdbzd2blockzd2_bglt BgL_copz00_1732;
BgL_copz00_1732 = 
(BgL_bdbzd2blockzd2_bglt)(BgL_copz00_3948); 
{ /* ./Cgen/emit-cop.scm 283 */
obj_t BgL_arg4431z00_1736;
{ /* ./Cgen/emit-cop.scm 283 */
BgL_copz00_bglt BgL_obj2662z00_2614;
BgL_obj2662z00_2614 = 
(BgL_copz00_bglt)(BgL_copz00_1732); 
BgL_arg4431z00_1736 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2614))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4431z00_1736); } 
{ /* ./Cgen/emit-cop.scm 284 */
obj_t BgL_port3232z00_1737;
BgL_port3232z00_1737 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
display_string(BGl_string6219z00zzcgen_emitzd2copzd2, BgL_port3232z00_1737); } 
{ /* ./Cgen/emit-cop.scm 285 */
BgL_copz00_bglt BgL_arg4436z00_1738;
BgL_arg4436z00_1738 = 
(((BgL_bdbzd2blockzd2_bglt)CREF(BgL_copz00_1732))->BgL_bodyz00); 
{ /* ./Cgen/emit-cop.scm 285 */
bool_t BgL_res5023z00_2642;
{ /* ./Cgen/emit-cop.scm 285 */
obj_t BgL_method3254z00_2617;
{ /* ./Cgen/emit-cop.scm 285 */
BgL_objectz00_bglt BgL_objz00_2618;
BgL_objz00_2618 = 
(BgL_objectz00_bglt)(BgL_arg4436z00_1738); 
{ /* ./Cgen/emit-cop.scm 285 */
long BgL_objzd2classzd2numz00_2619;
BgL_objzd2classzd2numz00_2619 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2618); 
{ /* ./Cgen/emit-cop.scm 285 */
obj_t BgL_arg2017z00_2620;
{ /* ./Cgen/emit-cop.scm 285 */
int BgL_auxz00_5495;
BgL_auxz00_5495 = 
(int)(((long)1)); 
BgL_arg2017z00_2620 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5495); } 
{ /* ./Cgen/emit-cop.scm 285 */
int BgL_offsetz00_2623;
BgL_offsetz00_2623 = 
(int)(BgL_objzd2classzd2numz00_2619); 
{ /* ./Cgen/emit-cop.scm 285 */
long BgL_offsetz00_2624;
{ /* ./Cgen/emit-cop.scm 285 */
long BgL_auxz00_5499;
BgL_auxz00_5499 = 
(long)(BgL_offsetz00_2623); 
BgL_offsetz00_2624 = 
(BgL_auxz00_5499-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 285 */
long BgL_modz00_2625;
{ /* ./Cgen/emit-cop.scm 285 */
int BgL_arg2028z00_2626;
BgL_arg2028z00_2626 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 285 */
long BgL_n2z00_2634;
BgL_n2z00_2634 = 
(long)(BgL_arg2028z00_2626); 
BgL_modz00_2625 = 
(BgL_offsetz00_2624/BgL_n2z00_2634); } } 
{ /* ./Cgen/emit-cop.scm 285 */
long BgL_restz00_2627;
{ /* ./Cgen/emit-cop.scm 285 */
int BgL_arg2024z00_2628;
BgL_arg2024z00_2628 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 285 */
long BgL_n2z00_2637;
BgL_n2z00_2637 = 
(long)(BgL_arg2024z00_2628); 
BgL_restz00_2627 = 
(BgL_offsetz00_2624%BgL_n2z00_2637); } } 
{ /* ./Cgen/emit-cop.scm 285 */

{ /* ./Cgen/emit-cop.scm 285 */
obj_t BgL_bucketz00_2629;
{ /* ./Cgen/emit-cop.scm 285 */
int BgL_kz00_2639;
BgL_kz00_2639 = 
(int)(BgL_modz00_2625); 
BgL_bucketz00_2629 = 
VECTOR_REF(BgL_arg2017z00_2620,BgL_kz00_2639); } 
{ /* ./Cgen/emit-cop.scm 285 */
int BgL_kz00_2641;
BgL_kz00_2641 = 
(int)(BgL_restz00_2627); 
BgL_method3254z00_2617 = 
VECTOR_REF(BgL_bucketz00_2629,BgL_kz00_2641); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 285 */
obj_t BgL_auxz00_5512;
BgL_auxz00_5512 = 
PROCEDURE_ENTRY(BgL_method3254z00_2617)(BgL_method3254z00_2617, 
(obj_t)(BgL_arg4436z00_1738), BEOA); 
BgL_res5023z00_2642 = 
CBOOL(BgL_auxz00_5512); } } BgL_res5023z00_2642; } } 
display_string(BGl_string6194z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
return BNIL;} } 
}



/* emit-cop-local-var3286 */
obj_t BGl_emitzd2copzd2localzd2var3286zd2zzcgen_emitzd2copzd2(obj_t BgL_envz00_3949, obj_t BgL_copz00_3950)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 258 */
{ 
BgL_localzd2varzd2_bglt BgL_copz00_1704;
{ /* ./Cgen/emit-cop.scm 259 */
bool_t BgL_auxz00_5519;
BgL_copz00_1704 = 
(BgL_localzd2varzd2_bglt)(BgL_copz00_3950); 
{ /* ./Cgen/emit-cop.scm 260 */
obj_t BgL_arg4375z00_1708;
{ /* ./Cgen/emit-cop.scm 260 */
BgL_copz00_bglt BgL_obj2662z00_2602;
BgL_obj2662z00_2602 = 
(BgL_copz00_bglt)(BgL_copz00_1704); 
BgL_arg4375z00_1708 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2602))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4375z00_1708); } 
{ 
obj_t BgL_l3227z00_1709;
{ /* ./Cgen/emit-cop.scm 261 */
obj_t BgL_arg4379z00_1711;
BgL_arg4379z00_1711 = 
(((BgL_localzd2varzd2_bglt)CREF(BgL_copz00_1704))->BgL_varsz00); 
BgL_l3227z00_1709 = BgL_arg4379z00_1711; 
BgL_forzd2each3228zd2_1710:
{ /* ./Cgen/emit-cop.scm 261 */
bool_t BgL_test4382z00_1712;
BgL_test4382z00_1712 = 
PAIRP(BgL_l3227z00_1709); 
if(BgL_test4382z00_1712)
{ /* ./Cgen/emit-cop.scm 261 */
{ /* ./Cgen/emit-cop.scm 262 */
obj_t BgL_localz00_1713;
BgL_localz00_1713 = 
CAR(BgL_l3227z00_1709); 
{ /* ./Cgen/emit-cop.scm 262 */
obj_t BgL_port3229z00_1714;
BgL_port3229z00_1714 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
{ /* ./Cgen/emit-cop.scm 263 */
obj_t BgL_arg4384z00_1715;
{ /* ./Cgen/emit-cop.scm 263 */
BgL_typez00_bglt BgL_arg4387z00_1716;obj_t BgL_arg4388z00_1717;
{ /* ./Cgen/emit-cop.scm 263 */
BgL_variablez00_bglt BgL_obj1097z00_2606;
BgL_obj1097z00_2606 = 
(BgL_variablez00_bglt)(BgL_localz00_1713); 
BgL_arg4387z00_1716 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2606))->BgL_typez00); } 
{ /* ./Cgen/emit-cop.scm 264 */
BgL_variablez00_bglt BgL_obj1094z00_2607;
BgL_obj1094z00_2607 = 
(BgL_variablez00_bglt)(BgL_localz00_1713); 
BgL_arg4388z00_1717 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_2607))->BgL_namez00); } 
BgL_arg4384z00_1715 = 
BGl_makezd2typedzd2declarationz00zztype_toolsz00(BgL_arg4387z00_1716, BgL_arg4388z00_1717); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4384z00_1715, BgL_port3229z00_1714); } 
{ /* ./Cgen/emit-cop.scm 265 */
obj_t BgL_arg4393z00_1718;
{ /* ./Cgen/emit-cop.scm 265 */
bool_t BgL_test4395z00_1719;
{ /* ./Cgen/emit-cop.scm 265 */
bool_t BgL_test4406z00_1725;
{ /* ./Cgen/emit-cop.scm 265 */
long BgL_n1z00_2608;
BgL_n1z00_2608 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test4406z00_1725 = 
(BgL_n1z00_2608>((long)0)); } 
if(BgL_test4406z00_1725)
{ /* ./Cgen/emit-cop.scm 266 */
obj_t BgL_auxz00_5540;obj_t BgL_auxz00_5536;
BgL_auxz00_5540 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./Cgen/emit-cop.scm 266 */
BgL_typez00_bglt BgL_arg4413z00_1728;
{ /* ./Cgen/emit-cop.scm 266 */
BgL_variablez00_bglt BgL_obj1097z00_2610;
BgL_obj1097z00_2610 = 
(BgL_variablez00_bglt)(BgL_localz00_1713); 
BgL_arg4413z00_1728 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2610))->BgL_typez00); } 
BgL_auxz00_5536 = 
(((BgL_typez00_bglt)CREF(BgL_arg4413z00_1728))->BgL_classz00); } 
BgL_test4395z00_1719 = 
(BgL_auxz00_5536==BgL_auxz00_5540); }  else 
{ /* ./Cgen/emit-cop.scm 265 */
BgL_test4395z00_1719 = ((bool_t)0); } } 
if(BgL_test4395z00_1719)
{ /* ./Cgen/emit-cop.scm 268 */
obj_t BgL_arg4398z00_1721;
{ /* ./Cgen/emit-cop.scm 270 */
BgL_typez00_bglt BgL_arg4402z00_1723;
{ /* ./Cgen/emit-cop.scm 270 */
BgL_variablez00_bglt BgL_obj1097z00_2612;
BgL_obj1097z00_2612 = 
(BgL_variablez00_bglt)(BgL_localz00_1713); 
BgL_arg4402z00_1723 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2612))->BgL_typez00); } 
BgL_arg4398z00_1721 = 
BGl_makezd2typedzd2declarationz00zztype_toolsz00(BgL_arg4402z00_1723, BGl_string6220z00zzcgen_emitzd2copzd2); } 
BgL_arg4393z00_1718 = 
string_append_3(BGl_string6221z00zzcgen_emitzd2copzd2, BgL_arg4398z00_1721, BGl_string6222z00zzcgen_emitzd2copzd2); }  else 
{ /* ./Cgen/emit-cop.scm 265 */
BgL_arg4393z00_1718 = BGl_string6220z00zzcgen_emitzd2copzd2; } } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4393z00_1718, BgL_port3229z00_1714); } 
{ /* ./Cgen/emit-cop.scm 262 */
obj_t BgL_auxz00_5549;
BgL_auxz00_5549 = 
BCHAR(((unsigned char)';')); 
display_char(BgL_auxz00_5549, BgL_port3229z00_1714); } } } 
{ /* ./Cgen/emit-cop.scm 261 */
obj_t BgL_arg4420z00_1729;
BgL_arg4420z00_1729 = 
CDR(BgL_l3227z00_1709); 
{ 
obj_t BgL_l3227z00_5553;
BgL_l3227z00_5553 = BgL_arg4420z00_1729; 
BgL_l3227z00_1709 = BgL_l3227z00_5553; 
goto BgL_forzd2each3228zd2_1710;} } }  else 
{ /* ./Cgen/emit-cop.scm 261 */((bool_t)1); } } } } 
BgL_auxz00_5519 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_5519);} } } 
}



/* emit-cop-cif3284 */
obj_t BGl_emitzd2copzd2cif3284z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3951, obj_t BgL_copz00_3952)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 245 */
{ 
BgL_cifz00_bglt BgL_copz00_1694;
{ /* ./Cgen/emit-cop.scm 246 */
bool_t BgL_auxz00_5556;
BgL_copz00_1694 = 
(BgL_cifz00_bglt)(BgL_copz00_3952); 
{ /* ./Cgen/emit-cop.scm 247 */
obj_t BgL_arg4350z00_1698;
{ /* ./Cgen/emit-cop.scm 247 */
BgL_copz00_bglt BgL_obj2662z00_2515;
BgL_obj2662z00_2515 = 
(BgL_copz00_bglt)(BgL_copz00_1694); 
BgL_arg4350z00_1698 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2515))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4350z00_1698); } 
display_string(BGl_string6223z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 249 */
BgL_copz00_bglt BgL_arg4355z00_1699;
BgL_arg4355z00_1699 = 
(((BgL_cifz00_bglt)CREF(BgL_copz00_1694))->BgL_testz00); 
{ /* ./Cgen/emit-cop.scm 249 */
bool_t BgL_res5014z00_2543;
{ /* ./Cgen/emit-cop.scm 249 */
obj_t BgL_method3254z00_2518;
{ /* ./Cgen/emit-cop.scm 249 */
BgL_objectz00_bglt BgL_objz00_2519;
BgL_objz00_2519 = 
(BgL_objectz00_bglt)(BgL_arg4355z00_1699); 
{ /* ./Cgen/emit-cop.scm 249 */
long BgL_objzd2classzd2numz00_2520;
BgL_objzd2classzd2numz00_2520 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2519); 
{ /* ./Cgen/emit-cop.scm 249 */
obj_t BgL_arg2017z00_2521;
{ /* ./Cgen/emit-cop.scm 249 */
int BgL_auxz00_5564;
BgL_auxz00_5564 = 
(int)(((long)1)); 
BgL_arg2017z00_2521 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5564); } 
{ /* ./Cgen/emit-cop.scm 249 */
int BgL_offsetz00_2524;
BgL_offsetz00_2524 = 
(int)(BgL_objzd2classzd2numz00_2520); 
{ /* ./Cgen/emit-cop.scm 249 */
long BgL_offsetz00_2525;
{ /* ./Cgen/emit-cop.scm 249 */
long BgL_auxz00_5568;
BgL_auxz00_5568 = 
(long)(BgL_offsetz00_2524); 
BgL_offsetz00_2525 = 
(BgL_auxz00_5568-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 249 */
long BgL_modz00_2526;
{ /* ./Cgen/emit-cop.scm 249 */
int BgL_arg2028z00_2527;
BgL_arg2028z00_2527 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 249 */
long BgL_n2z00_2535;
BgL_n2z00_2535 = 
(long)(BgL_arg2028z00_2527); 
BgL_modz00_2526 = 
(BgL_offsetz00_2525/BgL_n2z00_2535); } } 
{ /* ./Cgen/emit-cop.scm 249 */
long BgL_restz00_2528;
{ /* ./Cgen/emit-cop.scm 249 */
int BgL_arg2024z00_2529;
BgL_arg2024z00_2529 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 249 */
long BgL_n2z00_2538;
BgL_n2z00_2538 = 
(long)(BgL_arg2024z00_2529); 
BgL_restz00_2528 = 
(BgL_offsetz00_2525%BgL_n2z00_2538); } } 
{ /* ./Cgen/emit-cop.scm 249 */

{ /* ./Cgen/emit-cop.scm 249 */
obj_t BgL_bucketz00_2530;
{ /* ./Cgen/emit-cop.scm 249 */
int BgL_kz00_2540;
BgL_kz00_2540 = 
(int)(BgL_modz00_2526); 
BgL_bucketz00_2530 = 
VECTOR_REF(BgL_arg2017z00_2521,BgL_kz00_2540); } 
{ /* ./Cgen/emit-cop.scm 249 */
int BgL_kz00_2542;
BgL_kz00_2542 = 
(int)(BgL_restz00_2528); 
BgL_method3254z00_2518 = 
VECTOR_REF(BgL_bucketz00_2530,BgL_kz00_2542); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 249 */
obj_t BgL_auxz00_5581;
BgL_auxz00_5581 = 
PROCEDURE_ENTRY(BgL_method3254z00_2518)(BgL_method3254z00_2518, 
(obj_t)(BgL_arg4355z00_1699), BEOA); 
BgL_res5014z00_2543 = 
CBOOL(BgL_auxz00_5581); } } BgL_res5014z00_2543; } } 
{ /* ./Cgen/emit-cop.scm 250 */
obj_t BgL_portz00_2545;
BgL_portz00_2545 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_2545); } 
{ /* ./Cgen/emit-cop.scm 251 */
BgL_copz00_bglt BgL_arg4360z00_1700;
BgL_arg4360z00_1700 = 
(((BgL_cifz00_bglt)CREF(BgL_copz00_1694))->BgL_truez00); 
{ /* ./Cgen/emit-cop.scm 251 */
bool_t BgL_res5017z00_2573;
{ /* ./Cgen/emit-cop.scm 251 */
obj_t BgL_method3254z00_2548;
{ /* ./Cgen/emit-cop.scm 251 */
BgL_objectz00_bglt BgL_objz00_2549;
BgL_objz00_2549 = 
(BgL_objectz00_bglt)(BgL_arg4360z00_1700); 
{ /* ./Cgen/emit-cop.scm 251 */
long BgL_objzd2classzd2numz00_2550;
BgL_objzd2classzd2numz00_2550 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2549); 
{ /* ./Cgen/emit-cop.scm 251 */
obj_t BgL_arg2017z00_2551;
{ /* ./Cgen/emit-cop.scm 251 */
int BgL_auxz00_5590;
BgL_auxz00_5590 = 
(int)(((long)1)); 
BgL_arg2017z00_2551 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5590); } 
{ /* ./Cgen/emit-cop.scm 251 */
int BgL_offsetz00_2554;
BgL_offsetz00_2554 = 
(int)(BgL_objzd2classzd2numz00_2550); 
{ /* ./Cgen/emit-cop.scm 251 */
long BgL_offsetz00_2555;
{ /* ./Cgen/emit-cop.scm 251 */
long BgL_auxz00_5594;
BgL_auxz00_5594 = 
(long)(BgL_offsetz00_2554); 
BgL_offsetz00_2555 = 
(BgL_auxz00_5594-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 251 */
long BgL_modz00_2556;
{ /* ./Cgen/emit-cop.scm 251 */
int BgL_arg2028z00_2557;
BgL_arg2028z00_2557 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 251 */
long BgL_n2z00_2565;
BgL_n2z00_2565 = 
(long)(BgL_arg2028z00_2557); 
BgL_modz00_2556 = 
(BgL_offsetz00_2555/BgL_n2z00_2565); } } 
{ /* ./Cgen/emit-cop.scm 251 */
long BgL_restz00_2558;
{ /* ./Cgen/emit-cop.scm 251 */
int BgL_arg2024z00_2559;
BgL_arg2024z00_2559 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 251 */
long BgL_n2z00_2568;
BgL_n2z00_2568 = 
(long)(BgL_arg2024z00_2559); 
BgL_restz00_2558 = 
(BgL_offsetz00_2555%BgL_n2z00_2568); } } 
{ /* ./Cgen/emit-cop.scm 251 */

{ /* ./Cgen/emit-cop.scm 251 */
obj_t BgL_bucketz00_2560;
{ /* ./Cgen/emit-cop.scm 251 */
int BgL_kz00_2570;
BgL_kz00_2570 = 
(int)(BgL_modz00_2556); 
BgL_bucketz00_2560 = 
VECTOR_REF(BgL_arg2017z00_2551,BgL_kz00_2570); } 
{ /* ./Cgen/emit-cop.scm 251 */
int BgL_kz00_2572;
BgL_kz00_2572 = 
(int)(BgL_restz00_2558); 
BgL_method3254z00_2548 = 
VECTOR_REF(BgL_bucketz00_2560,BgL_kz00_2572); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 251 */
obj_t BgL_auxz00_5607;
BgL_auxz00_5607 = 
PROCEDURE_ENTRY(BgL_method3254z00_2548)(BgL_method3254z00_2548, 
(obj_t)(BgL_arg4360z00_1700), BEOA); 
BgL_res5017z00_2573 = 
CBOOL(BgL_auxz00_5607); } } BgL_res5017z00_2573; } } 
display_string(BGl_string6224z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 253 */
BgL_copz00_bglt BgL_arg4365z00_1701;
BgL_arg4365z00_1701 = 
(((BgL_cifz00_bglt)CREF(BgL_copz00_1694))->BgL_falsez00); 
{ /* ./Cgen/emit-cop.scm 253 */
bool_t BgL_res5020z00_2601;
{ /* ./Cgen/emit-cop.scm 253 */
obj_t BgL_method3254z00_2576;
{ /* ./Cgen/emit-cop.scm 253 */
BgL_objectz00_bglt BgL_objz00_2577;
BgL_objz00_2577 = 
(BgL_objectz00_bglt)(BgL_arg4365z00_1701); 
{ /* ./Cgen/emit-cop.scm 253 */
long BgL_objzd2classzd2numz00_2578;
BgL_objzd2classzd2numz00_2578 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2577); 
{ /* ./Cgen/emit-cop.scm 253 */
obj_t BgL_arg2017z00_2579;
{ /* ./Cgen/emit-cop.scm 253 */
int BgL_auxz00_5616;
BgL_auxz00_5616 = 
(int)(((long)1)); 
BgL_arg2017z00_2579 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5616); } 
{ /* ./Cgen/emit-cop.scm 253 */
int BgL_offsetz00_2582;
BgL_offsetz00_2582 = 
(int)(BgL_objzd2classzd2numz00_2578); 
{ /* ./Cgen/emit-cop.scm 253 */
long BgL_offsetz00_2583;
{ /* ./Cgen/emit-cop.scm 253 */
long BgL_auxz00_5620;
BgL_auxz00_5620 = 
(long)(BgL_offsetz00_2582); 
BgL_offsetz00_2583 = 
(BgL_auxz00_5620-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 253 */
long BgL_modz00_2584;
{ /* ./Cgen/emit-cop.scm 253 */
int BgL_arg2028z00_2585;
BgL_arg2028z00_2585 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 253 */
long BgL_n2z00_2593;
BgL_n2z00_2593 = 
(long)(BgL_arg2028z00_2585); 
BgL_modz00_2584 = 
(BgL_offsetz00_2583/BgL_n2z00_2593); } } 
{ /* ./Cgen/emit-cop.scm 253 */
long BgL_restz00_2586;
{ /* ./Cgen/emit-cop.scm 253 */
int BgL_arg2024z00_2587;
BgL_arg2024z00_2587 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 253 */
long BgL_n2z00_2596;
BgL_n2z00_2596 = 
(long)(BgL_arg2024z00_2587); 
BgL_restz00_2586 = 
(BgL_offsetz00_2583%BgL_n2z00_2596); } } 
{ /* ./Cgen/emit-cop.scm 253 */

{ /* ./Cgen/emit-cop.scm 253 */
obj_t BgL_bucketz00_2588;
{ /* ./Cgen/emit-cop.scm 253 */
int BgL_kz00_2598;
BgL_kz00_2598 = 
(int)(BgL_modz00_2584); 
BgL_bucketz00_2588 = 
VECTOR_REF(BgL_arg2017z00_2579,BgL_kz00_2598); } 
{ /* ./Cgen/emit-cop.scm 253 */
int BgL_kz00_2600;
BgL_kz00_2600 = 
(int)(BgL_restz00_2586); 
BgL_method3254z00_2576 = 
VECTOR_REF(BgL_bucketz00_2588,BgL_kz00_2600); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 253 */
obj_t BgL_auxz00_5633;
BgL_auxz00_5633 = 
PROCEDURE_ENTRY(BgL_method3254z00_2576)(BgL_method3254z00_2576, 
(obj_t)(BgL_arg4365z00_1701), BEOA); 
BgL_res5020z00_2601 = 
CBOOL(BgL_auxz00_5633); } } 
BgL_auxz00_5556 = BgL_res5020z00_2601; } } 
return 
BBOOL(BgL_auxz00_5556);} } } 
}



/* emit-cop-csetq3282 */
obj_t BGl_emitzd2copzd2csetq3282z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3953, obj_t BgL_copz00_3954)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 231 */
{ 
BgL_csetqz00_bglt BgL_copz00_1685;
{ /* ./Cgen/emit-cop.scm 232 */
bool_t BgL_auxz00_5640;
BgL_copz00_1685 = 
(BgL_csetqz00_bglt)(BgL_copz00_3954); 
{ /* ./Cgen/emit-cop.scm 234 */
obj_t BgL_arg4331z00_1689;
{ /* ./Cgen/emit-cop.scm 234 */
BgL_copz00_bglt BgL_obj2662z00_2458;
BgL_obj2662z00_2458 = 
(BgL_copz00_bglt)(BgL_copz00_1685); 
BgL_arg4331z00_1689 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2458))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4331z00_1689); } 
{ /* ./Cgen/emit-cop.scm 235 */
BgL_varcz00_bglt BgL_arg4335z00_1690;
BgL_arg4335z00_1690 = 
(((BgL_csetqz00_bglt)CREF(BgL_copz00_1685))->BgL_varz00); 
{ /* ./Cgen/emit-cop.scm 235 */
bool_t BgL_res5008z00_2486;
{ /* ./Cgen/emit-cop.scm 235 */
BgL_copz00_bglt BgL_copz00_2460;
BgL_copz00_2460 = 
(BgL_copz00_bglt)(BgL_arg4335z00_1690); 
{ /* ./Cgen/emit-cop.scm 235 */
obj_t BgL_method3254z00_2461;
{ /* ./Cgen/emit-cop.scm 235 */
BgL_objectz00_bglt BgL_objz00_2462;
BgL_objz00_2462 = 
(BgL_objectz00_bglt)(BgL_copz00_2460); 
{ /* ./Cgen/emit-cop.scm 235 */
long BgL_objzd2classzd2numz00_2463;
BgL_objzd2classzd2numz00_2463 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2462); 
{ /* ./Cgen/emit-cop.scm 235 */
obj_t BgL_arg2017z00_2464;
{ /* ./Cgen/emit-cop.scm 235 */
int BgL_auxz00_5648;
BgL_auxz00_5648 = 
(int)(((long)1)); 
BgL_arg2017z00_2464 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5648); } 
{ /* ./Cgen/emit-cop.scm 235 */
int BgL_offsetz00_2467;
BgL_offsetz00_2467 = 
(int)(BgL_objzd2classzd2numz00_2463); 
{ /* ./Cgen/emit-cop.scm 235 */
long BgL_offsetz00_2468;
{ /* ./Cgen/emit-cop.scm 235 */
long BgL_auxz00_5652;
BgL_auxz00_5652 = 
(long)(BgL_offsetz00_2467); 
BgL_offsetz00_2468 = 
(BgL_auxz00_5652-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 235 */
long BgL_modz00_2469;
{ /* ./Cgen/emit-cop.scm 235 */
int BgL_arg2028z00_2470;
BgL_arg2028z00_2470 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 235 */
long BgL_n2z00_2478;
BgL_n2z00_2478 = 
(long)(BgL_arg2028z00_2470); 
BgL_modz00_2469 = 
(BgL_offsetz00_2468/BgL_n2z00_2478); } } 
{ /* ./Cgen/emit-cop.scm 235 */
long BgL_restz00_2471;
{ /* ./Cgen/emit-cop.scm 235 */
int BgL_arg2024z00_2472;
BgL_arg2024z00_2472 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 235 */
long BgL_n2z00_2481;
BgL_n2z00_2481 = 
(long)(BgL_arg2024z00_2472); 
BgL_restz00_2471 = 
(BgL_offsetz00_2468%BgL_n2z00_2481); } } 
{ /* ./Cgen/emit-cop.scm 235 */

{ /* ./Cgen/emit-cop.scm 235 */
obj_t BgL_bucketz00_2473;
{ /* ./Cgen/emit-cop.scm 235 */
int BgL_kz00_2483;
BgL_kz00_2483 = 
(int)(BgL_modz00_2469); 
BgL_bucketz00_2473 = 
VECTOR_REF(BgL_arg2017z00_2464,BgL_kz00_2483); } 
{ /* ./Cgen/emit-cop.scm 235 */
int BgL_kz00_2485;
BgL_kz00_2485 = 
(int)(BgL_restz00_2471); 
BgL_method3254z00_2461 = 
VECTOR_REF(BgL_bucketz00_2473,BgL_kz00_2485); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 235 */
obj_t BgL_auxz00_5665;
BgL_auxz00_5665 = 
PROCEDURE_ENTRY(BgL_method3254z00_2461)(BgL_method3254z00_2461, 
(obj_t)(BgL_copz00_2460), BEOA); 
BgL_res5008z00_2486 = 
CBOOL(BgL_auxz00_5665); } } } BgL_res5008z00_2486; } } 
display_string(BGl_string6225z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 239 */
BgL_copz00_bglt BgL_arg4340z00_1691;
BgL_arg4340z00_1691 = 
(((BgL_csetqz00_bglt)CREF(BgL_copz00_1685))->BgL_valuez00); 
{ /* ./Cgen/emit-cop.scm 239 */
bool_t BgL_res5011z00_2514;
{ /* ./Cgen/emit-cop.scm 239 */
obj_t BgL_method3254z00_2489;
{ /* ./Cgen/emit-cop.scm 239 */
BgL_objectz00_bglt BgL_objz00_2490;
BgL_objz00_2490 = 
(BgL_objectz00_bglt)(BgL_arg4340z00_1691); 
{ /* ./Cgen/emit-cop.scm 239 */
long BgL_objzd2classzd2numz00_2491;
BgL_objzd2classzd2numz00_2491 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2490); 
{ /* ./Cgen/emit-cop.scm 239 */
obj_t BgL_arg2017z00_2492;
{ /* ./Cgen/emit-cop.scm 239 */
int BgL_auxz00_5674;
BgL_auxz00_5674 = 
(int)(((long)1)); 
BgL_arg2017z00_2492 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5674); } 
{ /* ./Cgen/emit-cop.scm 239 */
int BgL_offsetz00_2495;
BgL_offsetz00_2495 = 
(int)(BgL_objzd2classzd2numz00_2491); 
{ /* ./Cgen/emit-cop.scm 239 */
long BgL_offsetz00_2496;
{ /* ./Cgen/emit-cop.scm 239 */
long BgL_auxz00_5678;
BgL_auxz00_5678 = 
(long)(BgL_offsetz00_2495); 
BgL_offsetz00_2496 = 
(BgL_auxz00_5678-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 239 */
long BgL_modz00_2497;
{ /* ./Cgen/emit-cop.scm 239 */
int BgL_arg2028z00_2498;
BgL_arg2028z00_2498 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 239 */
long BgL_n2z00_2506;
BgL_n2z00_2506 = 
(long)(BgL_arg2028z00_2498); 
BgL_modz00_2497 = 
(BgL_offsetz00_2496/BgL_n2z00_2506); } } 
{ /* ./Cgen/emit-cop.scm 239 */
long BgL_restz00_2499;
{ /* ./Cgen/emit-cop.scm 239 */
int BgL_arg2024z00_2500;
BgL_arg2024z00_2500 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 239 */
long BgL_n2z00_2509;
BgL_n2z00_2509 = 
(long)(BgL_arg2024z00_2500); 
BgL_restz00_2499 = 
(BgL_offsetz00_2496%BgL_n2z00_2509); } } 
{ /* ./Cgen/emit-cop.scm 239 */

{ /* ./Cgen/emit-cop.scm 239 */
obj_t BgL_bucketz00_2501;
{ /* ./Cgen/emit-cop.scm 239 */
int BgL_kz00_2511;
BgL_kz00_2511 = 
(int)(BgL_modz00_2497); 
BgL_bucketz00_2501 = 
VECTOR_REF(BgL_arg2017z00_2492,BgL_kz00_2511); } 
{ /* ./Cgen/emit-cop.scm 239 */
int BgL_kz00_2513;
BgL_kz00_2513 = 
(int)(BgL_restz00_2499); 
BgL_method3254z00_2489 = 
VECTOR_REF(BgL_bucketz00_2501,BgL_kz00_2513); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 239 */
obj_t BgL_auxz00_5691;
BgL_auxz00_5691 = 
PROCEDURE_ENTRY(BgL_method3254z00_2489)(BgL_method3254z00_2489, 
(obj_t)(BgL_arg4340z00_1691), BEOA); 
BgL_res5011z00_2514 = 
CBOOL(BgL_auxz00_5691); } } BgL_res5011z00_2514; } } 
BgL_auxz00_5640 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_5640);} } } 
}



/* emit-cop-stop3280 */
obj_t BGl_emitzd2copzd2stop3280z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3955, obj_t BgL_copz00_3956)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 218 */
{ 
BgL_stopz00_bglt BgL_copz00_1677;
{ /* ./Cgen/emit-cop.scm 219 */
bool_t BgL_auxz00_5698;
BgL_copz00_1677 = 
(BgL_stopz00_bglt)(BgL_copz00_3956); 
{ /* ./Cgen/emit-cop.scm 220 */
bool_t BgL_test4318z00_1681;
{ /* ./Cgen/emit-cop.scm 220 */
BgL_copz00_bglt BgL_arg4321z00_1682;
BgL_arg4321z00_1682 = 
(((BgL_stopz00_bglt)CREF(BgL_copz00_1677))->BgL_valuez00); 
{ /* ./Cgen/emit-cop.scm 220 */
bool_t BgL_res5005z00_2457;
{ /* ./Cgen/emit-cop.scm 220 */
obj_t BgL_method3254z00_2432;
{ /* ./Cgen/emit-cop.scm 220 */
BgL_objectz00_bglt BgL_objz00_2433;
BgL_objz00_2433 = 
(BgL_objectz00_bglt)(BgL_arg4321z00_1682); 
{ /* ./Cgen/emit-cop.scm 220 */
long BgL_objzd2classzd2numz00_2434;
BgL_objzd2classzd2numz00_2434 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2433); 
{ /* ./Cgen/emit-cop.scm 220 */
obj_t BgL_arg2017z00_2435;
{ /* ./Cgen/emit-cop.scm 220 */
int BgL_auxz00_5702;
BgL_auxz00_5702 = 
(int)(((long)1)); 
BgL_arg2017z00_2435 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5702); } 
{ /* ./Cgen/emit-cop.scm 220 */
int BgL_offsetz00_2438;
BgL_offsetz00_2438 = 
(int)(BgL_objzd2classzd2numz00_2434); 
{ /* ./Cgen/emit-cop.scm 220 */
long BgL_offsetz00_2439;
{ /* ./Cgen/emit-cop.scm 220 */
long BgL_auxz00_5706;
BgL_auxz00_5706 = 
(long)(BgL_offsetz00_2438); 
BgL_offsetz00_2439 = 
(BgL_auxz00_5706-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 220 */
long BgL_modz00_2440;
{ /* ./Cgen/emit-cop.scm 220 */
int BgL_arg2028z00_2441;
BgL_arg2028z00_2441 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 220 */
long BgL_n2z00_2449;
BgL_n2z00_2449 = 
(long)(BgL_arg2028z00_2441); 
BgL_modz00_2440 = 
(BgL_offsetz00_2439/BgL_n2z00_2449); } } 
{ /* ./Cgen/emit-cop.scm 220 */
long BgL_restz00_2442;
{ /* ./Cgen/emit-cop.scm 220 */
int BgL_arg2024z00_2443;
BgL_arg2024z00_2443 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 220 */
long BgL_n2z00_2452;
BgL_n2z00_2452 = 
(long)(BgL_arg2024z00_2443); 
BgL_restz00_2442 = 
(BgL_offsetz00_2439%BgL_n2z00_2452); } } 
{ /* ./Cgen/emit-cop.scm 220 */

{ /* ./Cgen/emit-cop.scm 220 */
obj_t BgL_bucketz00_2444;
{ /* ./Cgen/emit-cop.scm 220 */
int BgL_kz00_2454;
BgL_kz00_2454 = 
(int)(BgL_modz00_2440); 
BgL_bucketz00_2444 = 
VECTOR_REF(BgL_arg2017z00_2435,BgL_kz00_2454); } 
{ /* ./Cgen/emit-cop.scm 220 */
int BgL_kz00_2456;
BgL_kz00_2456 = 
(int)(BgL_restz00_2442); 
BgL_method3254z00_2432 = 
VECTOR_REF(BgL_bucketz00_2444,BgL_kz00_2456); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 220 */
obj_t BgL_auxz00_5719;
BgL_auxz00_5719 = 
PROCEDURE_ENTRY(BgL_method3254z00_2432)(BgL_method3254z00_2432, 
(obj_t)(BgL_arg4321z00_1682), BEOA); 
BgL_res5005z00_2457 = 
CBOOL(BgL_auxz00_5719); } } 
BgL_test4318z00_1681 = BgL_res5005z00_2457; } } 
if(BgL_test4318z00_1681)
{ /* ./Cgen/emit-cop.scm 220 */
display_string(BGl_string6202z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); BNIL; }  else 
{ /* ./Cgen/emit-cop.scm 220 */BFALSE; } } 
BgL_auxz00_5698 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_5698);} } } 
}



/* emit-cop-nop3278 */
obj_t BGl_emitzd2copzd2nop3278z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3957, obj_t BgL_copz00_3958)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 209 */
{ 
BgL_nopz00_bglt BgL_copz00_1671;
{ /* ./Cgen/emit-cop.scm 211 */
bool_t BgL_auxz00_5728;
BgL_copz00_1671 = 
(BgL_nopz00_bglt)(BgL_copz00_3958); 
display_string(BGl_string6202z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BgL_auxz00_5728 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_5728);} } } 
}



/* emit-cop-csequence3276 */
obj_t BGl_emitzd2copzd2csequence3276z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3959, obj_t BgL_copz00_3960)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 166 */
{ 
BgL_csequencez00_bglt BgL_copz00_1644;
BgL_copz00_1644 = 
(BgL_csequencez00_bglt)(BgL_copz00_3960); 
{ /* ./Cgen/emit-cop.scm 168 */
bool_t BgL_test4250z00_1648;
BgL_test4250z00_1648 = 
(((BgL_csequencez00_bglt)CREF(BgL_copz00_1644))->BgL_czd2expzf3z21); 
if(BgL_test4250z00_1648)
{ /* ./Cgen/emit-cop.scm 168 */
{ /* ./Cgen/emit-cop.scm 170 */
bool_t BgL_test4251z00_1649;
{ /* ./Cgen/emit-cop.scm 170 */
obj_t BgL_auxz00_5734;
BgL_auxz00_5734 = 
(((BgL_csequencez00_bglt)CREF(BgL_copz00_1644))->BgL_copsz00); 
BgL_test4251z00_1649 = 
NULLP(BgL_auxz00_5734); } 
if(BgL_test4251z00_1649)
{ /* ./Cgen/emit-cop.scm 170 */
return 
BGl_emitzd2atomzd2valuez00zzbackend_c_emitz00(BUNSPEC);}  else 
{ /* ./Cgen/emit-cop.scm 170 */
display_string(BGl_string6226z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ 
obj_t BgL_expz00_1650;
{ /* ./Cgen/emit-cop.scm 175 */
obj_t BgL_arg4255z00_1652;
BgL_arg4255z00_1652 = 
(((BgL_csequencez00_bglt)CREF(BgL_copz00_1644))->BgL_copsz00); 
{ /* ./Cgen/emit-cop.scm 175 */
bool_t BgL_auxz00_5741;
BgL_expz00_1650 = BgL_arg4255z00_1652; 
BgL_liipz00_1651:
{ /* ./Cgen/emit-cop.scm 176 */
bool_t BgL_test4258z00_1653;
{ /* ./Cgen/emit-cop.scm 176 */
obj_t BgL_auxz00_5742;
BgL_auxz00_5742 = 
CDR(BgL_expz00_1650); 
BgL_test4258z00_1653 = 
NULLP(BgL_auxz00_5742); } 
if(BgL_test4258z00_1653)
{ /* ./Cgen/emit-cop.scm 176 */
{ /* ./Cgen/emit-cop.scm 178 */
obj_t BgL_arg4260z00_1654;
BgL_arg4260z00_1654 = 
CAR(BgL_expz00_1650); 
{ /* ./Cgen/emit-cop.scm 178 */
bool_t BgL_res4996z00_2366;
{ /* ./Cgen/emit-cop.scm 178 */
BgL_copz00_bglt BgL_copz00_2340;
BgL_copz00_2340 = 
(BgL_copz00_bglt)(BgL_arg4260z00_1654); 
{ /* ./Cgen/emit-cop.scm 178 */
obj_t BgL_method3254z00_2341;
{ /* ./Cgen/emit-cop.scm 178 */
BgL_objectz00_bglt BgL_objz00_2342;
BgL_objz00_2342 = 
(BgL_objectz00_bglt)(BgL_copz00_2340); 
{ /* ./Cgen/emit-cop.scm 178 */
long BgL_objzd2classzd2numz00_2343;
BgL_objzd2classzd2numz00_2343 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2342); 
{ /* ./Cgen/emit-cop.scm 178 */
obj_t BgL_arg2017z00_2344;
{ /* ./Cgen/emit-cop.scm 178 */
int BgL_auxz00_5750;
BgL_auxz00_5750 = 
(int)(((long)1)); 
BgL_arg2017z00_2344 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5750); } 
{ /* ./Cgen/emit-cop.scm 178 */
int BgL_offsetz00_2347;
BgL_offsetz00_2347 = 
(int)(BgL_objzd2classzd2numz00_2343); 
{ /* ./Cgen/emit-cop.scm 178 */
long BgL_offsetz00_2348;
{ /* ./Cgen/emit-cop.scm 178 */
long BgL_auxz00_5754;
BgL_auxz00_5754 = 
(long)(BgL_offsetz00_2347); 
BgL_offsetz00_2348 = 
(BgL_auxz00_5754-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 178 */
long BgL_modz00_2349;
{ /* ./Cgen/emit-cop.scm 178 */
int BgL_arg2028z00_2350;
BgL_arg2028z00_2350 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 178 */
long BgL_n2z00_2358;
BgL_n2z00_2358 = 
(long)(BgL_arg2028z00_2350); 
BgL_modz00_2349 = 
(BgL_offsetz00_2348/BgL_n2z00_2358); } } 
{ /* ./Cgen/emit-cop.scm 178 */
long BgL_restz00_2351;
{ /* ./Cgen/emit-cop.scm 178 */
int BgL_arg2024z00_2352;
BgL_arg2024z00_2352 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 178 */
long BgL_n2z00_2361;
BgL_n2z00_2361 = 
(long)(BgL_arg2024z00_2352); 
BgL_restz00_2351 = 
(BgL_offsetz00_2348%BgL_n2z00_2361); } } 
{ /* ./Cgen/emit-cop.scm 178 */

{ /* ./Cgen/emit-cop.scm 178 */
obj_t BgL_bucketz00_2353;
{ /* ./Cgen/emit-cop.scm 178 */
int BgL_kz00_2363;
BgL_kz00_2363 = 
(int)(BgL_modz00_2349); 
BgL_bucketz00_2353 = 
VECTOR_REF(BgL_arg2017z00_2344,BgL_kz00_2363); } 
{ /* ./Cgen/emit-cop.scm 178 */
int BgL_kz00_2365;
BgL_kz00_2365 = 
(int)(BgL_restz00_2351); 
BgL_method3254z00_2341 = 
VECTOR_REF(BgL_bucketz00_2353,BgL_kz00_2365); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 178 */
obj_t BgL_auxz00_5767;
BgL_auxz00_5767 = 
PROCEDURE_ENTRY(BgL_method3254z00_2341)(BgL_method3254z00_2341, 
(obj_t)(BgL_copz00_2340), BEOA); 
BgL_res4996z00_2366 = 
CBOOL(BgL_auxz00_5767); } } } BgL_res4996z00_2366; } } 
display_string(BGl_string6227z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BgL_auxz00_5741 = ((bool_t)1); }  else 
{ /* ./Cgen/emit-cop.scm 176 */
{ /* ./Cgen/emit-cop.scm 183 */
obj_t BgL_arg4265z00_1655;
BgL_arg4265z00_1655 = 
CAR(BgL_expz00_1650); 
{ /* ./Cgen/emit-cop.scm 183 */
bool_t BgL_res4999z00_2394;
{ /* ./Cgen/emit-cop.scm 183 */
BgL_copz00_bglt BgL_copz00_2368;
BgL_copz00_2368 = 
(BgL_copz00_bglt)(BgL_arg4265z00_1655); 
{ /* ./Cgen/emit-cop.scm 183 */
obj_t BgL_method3254z00_2369;
{ /* ./Cgen/emit-cop.scm 183 */
BgL_objectz00_bglt BgL_objz00_2370;
BgL_objz00_2370 = 
(BgL_objectz00_bglt)(BgL_copz00_2368); 
{ /* ./Cgen/emit-cop.scm 183 */
long BgL_objzd2classzd2numz00_2371;
BgL_objzd2classzd2numz00_2371 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2370); 
{ /* ./Cgen/emit-cop.scm 183 */
obj_t BgL_arg2017z00_2372;
{ /* ./Cgen/emit-cop.scm 183 */
int BgL_auxz00_5777;
BgL_auxz00_5777 = 
(int)(((long)1)); 
BgL_arg2017z00_2372 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5777); } 
{ /* ./Cgen/emit-cop.scm 183 */
int BgL_offsetz00_2375;
BgL_offsetz00_2375 = 
(int)(BgL_objzd2classzd2numz00_2371); 
{ /* ./Cgen/emit-cop.scm 183 */
long BgL_offsetz00_2376;
{ /* ./Cgen/emit-cop.scm 183 */
long BgL_auxz00_5781;
BgL_auxz00_5781 = 
(long)(BgL_offsetz00_2375); 
BgL_offsetz00_2376 = 
(BgL_auxz00_5781-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 183 */
long BgL_modz00_2377;
{ /* ./Cgen/emit-cop.scm 183 */
int BgL_arg2028z00_2378;
BgL_arg2028z00_2378 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 183 */
long BgL_n2z00_2386;
BgL_n2z00_2386 = 
(long)(BgL_arg2028z00_2378); 
BgL_modz00_2377 = 
(BgL_offsetz00_2376/BgL_n2z00_2386); } } 
{ /* ./Cgen/emit-cop.scm 183 */
long BgL_restz00_2379;
{ /* ./Cgen/emit-cop.scm 183 */
int BgL_arg2024z00_2380;
BgL_arg2024z00_2380 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 183 */
long BgL_n2z00_2389;
BgL_n2z00_2389 = 
(long)(BgL_arg2024z00_2380); 
BgL_restz00_2379 = 
(BgL_offsetz00_2376%BgL_n2z00_2389); } } 
{ /* ./Cgen/emit-cop.scm 183 */

{ /* ./Cgen/emit-cop.scm 183 */
obj_t BgL_bucketz00_2381;
{ /* ./Cgen/emit-cop.scm 183 */
int BgL_kz00_2391;
BgL_kz00_2391 = 
(int)(BgL_modz00_2377); 
BgL_bucketz00_2381 = 
VECTOR_REF(BgL_arg2017z00_2372,BgL_kz00_2391); } 
{ /* ./Cgen/emit-cop.scm 183 */
int BgL_kz00_2393;
BgL_kz00_2393 = 
(int)(BgL_restz00_2379); 
BgL_method3254z00_2369 = 
VECTOR_REF(BgL_bucketz00_2381,BgL_kz00_2393); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 183 */
obj_t BgL_auxz00_5794;
BgL_auxz00_5794 = 
PROCEDURE_ENTRY(BgL_method3254z00_2369)(BgL_method3254z00_2369, 
(obj_t)(BgL_copz00_2368), BEOA); 
BgL_res4999z00_2394 = 
CBOOL(BgL_auxz00_5794); } } } BgL_res4999z00_2394; } } 
{ /* ./Cgen/emit-cop.scm 184 */
bool_t BgL_test4268z00_1656;
{ /* ./Cgen/emit-cop.scm 184 */
obj_t BgL_arg4276z00_1658;
BgL_arg4276z00_1658 = 
CAR(BgL_expz00_1650); 
BgL_test4268z00_1656 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg4276z00_1658, BGl_cfailz00zzcgen_copz00); } 
if(BgL_test4268z00_1656)
{ /* ./Cgen/emit-cop.scm 184 */
display_string(BGl_string6227z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BgL_auxz00_5741 = ((bool_t)1); }  else 
{ /* ./Cgen/emit-cop.scm 184 */
display_string(BGl_string6196z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 192 */
obj_t BgL_arg4272z00_1657;
BgL_arg4272z00_1657 = 
CDR(BgL_expz00_1650); 
{ 
obj_t BgL_expz00_5805;
BgL_expz00_5805 = BgL_arg4272z00_1657; 
BgL_expz00_1650 = BgL_expz00_5805; 
goto BgL_liipz00_1651;} } } } } } 
return 
BBOOL(BgL_auxz00_5741);} } } } } }  else 
{ 
obj_t BgL_expz00_1661;
{ /* ./Cgen/emit-cop.scm 193 */
obj_t BgL_arg4288z00_1663;
BgL_arg4288z00_1663 = 
(((BgL_csequencez00_bglt)CREF(BgL_copz00_1644))->BgL_copsz00); 
{ /* ./Cgen/emit-cop.scm 193 */
bool_t BgL_auxz00_5808;
BgL_expz00_1661 = BgL_arg4288z00_1663; 
BgL_liipz00_1662:
{ /* ./Cgen/emit-cop.scm 194 */
bool_t BgL_test4291z00_1664;
BgL_test4291z00_1664 = 
NULLP(BgL_expz00_1661); 
if(BgL_test4291z00_1664)
{ /* ./Cgen/emit-cop.scm 194 */
BgL_auxz00_5808 = ((bool_t)0)
; }  else 
{ /* ./Cgen/emit-cop.scm 196 */
obj_t BgL_ez00_1665;
BgL_ez00_1665 = 
CAR(BgL_expz00_1661); 
{ /* ./Cgen/emit-cop.scm 197 */
bool_t BgL_test4292z00_1666;
{ /* ./Cgen/emit-cop.scm 197 */
bool_t BgL_res5002z00_2427;
{ /* ./Cgen/emit-cop.scm 197 */
BgL_copz00_bglt BgL_copz00_2401;
BgL_copz00_2401 = 
(BgL_copz00_bglt)(BgL_ez00_1665); 
{ /* ./Cgen/emit-cop.scm 197 */
obj_t BgL_method3254z00_2402;
{ /* ./Cgen/emit-cop.scm 197 */
BgL_objectz00_bglt BgL_objz00_2403;
BgL_objz00_2403 = 
(BgL_objectz00_bglt)(BgL_copz00_2401); 
{ /* ./Cgen/emit-cop.scm 197 */
long BgL_objzd2classzd2numz00_2404;
BgL_objzd2classzd2numz00_2404 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2403); 
{ /* ./Cgen/emit-cop.scm 197 */
obj_t BgL_arg2017z00_2405;
{ /* ./Cgen/emit-cop.scm 197 */
int BgL_auxz00_5815;
BgL_auxz00_5815 = 
(int)(((long)1)); 
BgL_arg2017z00_2405 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5815); } 
{ /* ./Cgen/emit-cop.scm 197 */
int BgL_offsetz00_2408;
BgL_offsetz00_2408 = 
(int)(BgL_objzd2classzd2numz00_2404); 
{ /* ./Cgen/emit-cop.scm 197 */
long BgL_offsetz00_2409;
{ /* ./Cgen/emit-cop.scm 197 */
long BgL_auxz00_5819;
BgL_auxz00_5819 = 
(long)(BgL_offsetz00_2408); 
BgL_offsetz00_2409 = 
(BgL_auxz00_5819-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 197 */
long BgL_modz00_2410;
{ /* ./Cgen/emit-cop.scm 197 */
int BgL_arg2028z00_2411;
BgL_arg2028z00_2411 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 197 */
long BgL_n2z00_2419;
BgL_n2z00_2419 = 
(long)(BgL_arg2028z00_2411); 
BgL_modz00_2410 = 
(BgL_offsetz00_2409/BgL_n2z00_2419); } } 
{ /* ./Cgen/emit-cop.scm 197 */
long BgL_restz00_2412;
{ /* ./Cgen/emit-cop.scm 197 */
int BgL_arg2024z00_2413;
BgL_arg2024z00_2413 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 197 */
long BgL_n2z00_2422;
BgL_n2z00_2422 = 
(long)(BgL_arg2024z00_2413); 
BgL_restz00_2412 = 
(BgL_offsetz00_2409%BgL_n2z00_2422); } } 
{ /* ./Cgen/emit-cop.scm 197 */

{ /* ./Cgen/emit-cop.scm 197 */
obj_t BgL_bucketz00_2414;
{ /* ./Cgen/emit-cop.scm 197 */
int BgL_kz00_2424;
BgL_kz00_2424 = 
(int)(BgL_modz00_2410); 
BgL_bucketz00_2414 = 
VECTOR_REF(BgL_arg2017z00_2405,BgL_kz00_2424); } 
{ /* ./Cgen/emit-cop.scm 197 */
int BgL_kz00_2426;
BgL_kz00_2426 = 
(int)(BgL_restz00_2412); 
BgL_method3254z00_2402 = 
VECTOR_REF(BgL_bucketz00_2414,BgL_kz00_2426); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 197 */
obj_t BgL_auxz00_5832;
BgL_auxz00_5832 = 
PROCEDURE_ENTRY(BgL_method3254z00_2402)(BgL_method3254z00_2402, 
(obj_t)(BgL_copz00_2401), BEOA); 
BgL_res5002z00_2427 = 
CBOOL(BgL_auxz00_5832); } } } 
BgL_test4292z00_1666 = BgL_res5002z00_2427; } 
if(BgL_test4292z00_1666)
{ /* ./Cgen/emit-cop.scm 197 */
display_string(BGl_string6202z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); BNIL; }  else 
{ /* ./Cgen/emit-cop.scm 197 */BFALSE; } } 
{ /* ./Cgen/emit-cop.scm 202 */
bool_t BgL_test4295z00_1667;
BgL_test4295z00_1667 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_1665, BGl_cfailz00zzcgen_copz00); 
if(BgL_test4295z00_1667)
{ 
obj_t BgL_expz00_5841;
BgL_expz00_5841 = BNIL; 
BgL_expz00_1661 = BgL_expz00_5841; 
goto BgL_liipz00_1662;}  else 
{ /* ./Cgen/emit-cop.scm 204 */
obj_t BgL_arg4298z00_1668;
BgL_arg4298z00_1668 = 
CDR(BgL_expz00_1661); 
{ 
obj_t BgL_expz00_5843;
BgL_expz00_5843 = BgL_arg4298z00_1668; 
BgL_expz00_1661 = BgL_expz00_5843; 
goto BgL_liipz00_1662;} } } } } 
return 
BBOOL(BgL_auxz00_5808);} } } } } } 
}



/* emit-cop-ccast3274 */
obj_t BGl_emitzd2copzd2ccast3274z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3961, obj_t BgL_copz00_3962)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 153 */
{ 
BgL_ccastz00_bglt BgL_copz00_1634;
{ /* ./Cgen/emit-cop.scm 154 */
bool_t BgL_auxz00_5846;
BgL_copz00_1634 = 
(BgL_ccastz00_bglt)(BgL_copz00_3962); 
{ /* ./Cgen/emit-cop.scm 155 */
obj_t BgL_arg4227z00_1638;
{ /* ./Cgen/emit-cop.scm 155 */
BgL_copz00_bglt BgL_obj2662z00_2298;
BgL_obj2662z00_2298 = 
(BgL_copz00_bglt)(BgL_copz00_1634); 
BgL_arg4227z00_1638 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2298))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4227z00_1638); } 
display_string(BGl_string6228z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 157 */
obj_t BgL_arg4232z00_1639;
{ /* ./Cgen/emit-cop.scm 157 */
BgL_typez00_bglt BgL_arg4235z00_1640;
BgL_arg4235z00_1640 = 
(((BgL_ccastz00_bglt)CREF(BgL_copz00_1634))->BgL_typez00); 
BgL_arg4232z00_1639 = 
(((BgL_typez00_bglt)CREF(BgL_arg4235z00_1640))->BgL_namez00); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4232z00_1639, BGl_za2czd2portza2zd2zzbackend_c_emitz00); } 
{ /* ./Cgen/emit-cop.scm 158 */
obj_t BgL_portz00_2302;
BgL_portz00_2302 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_2302); } 
{ /* ./Cgen/emit-cop.scm 159 */
BgL_copz00_bglt BgL_arg4240z00_1641;
BgL_arg4240z00_1641 = 
(((BgL_ccastz00_bglt)CREF(BgL_copz00_1634))->BgL_argz00); 
{ /* ./Cgen/emit-cop.scm 159 */
bool_t BgL_res4993z00_2330;
{ /* ./Cgen/emit-cop.scm 159 */
obj_t BgL_method3254z00_2305;
{ /* ./Cgen/emit-cop.scm 159 */
BgL_objectz00_bglt BgL_objz00_2306;
BgL_objz00_2306 = 
(BgL_objectz00_bglt)(BgL_arg4240z00_1641); 
{ /* ./Cgen/emit-cop.scm 159 */
long BgL_objzd2classzd2numz00_2307;
BgL_objzd2classzd2numz00_2307 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2306); 
{ /* ./Cgen/emit-cop.scm 159 */
obj_t BgL_arg2017z00_2308;
{ /* ./Cgen/emit-cop.scm 159 */
int BgL_auxz00_5858;
BgL_auxz00_5858 = 
(int)(((long)1)); 
BgL_arg2017z00_2308 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_5858); } 
{ /* ./Cgen/emit-cop.scm 159 */
int BgL_offsetz00_2311;
BgL_offsetz00_2311 = 
(int)(BgL_objzd2classzd2numz00_2307); 
{ /* ./Cgen/emit-cop.scm 159 */
long BgL_offsetz00_2312;
{ /* ./Cgen/emit-cop.scm 159 */
long BgL_auxz00_5862;
BgL_auxz00_5862 = 
(long)(BgL_offsetz00_2311); 
BgL_offsetz00_2312 = 
(BgL_auxz00_5862-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 159 */
long BgL_modz00_2313;
{ /* ./Cgen/emit-cop.scm 159 */
int BgL_arg2028z00_2314;
BgL_arg2028z00_2314 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 159 */
long BgL_n2z00_2322;
BgL_n2z00_2322 = 
(long)(BgL_arg2028z00_2314); 
BgL_modz00_2313 = 
(BgL_offsetz00_2312/BgL_n2z00_2322); } } 
{ /* ./Cgen/emit-cop.scm 159 */
long BgL_restz00_2315;
{ /* ./Cgen/emit-cop.scm 159 */
int BgL_arg2024z00_2316;
BgL_arg2024z00_2316 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 159 */
long BgL_n2z00_2325;
BgL_n2z00_2325 = 
(long)(BgL_arg2024z00_2316); 
BgL_restz00_2315 = 
(BgL_offsetz00_2312%BgL_n2z00_2325); } } 
{ /* ./Cgen/emit-cop.scm 159 */

{ /* ./Cgen/emit-cop.scm 159 */
obj_t BgL_bucketz00_2317;
{ /* ./Cgen/emit-cop.scm 159 */
int BgL_kz00_2327;
BgL_kz00_2327 = 
(int)(BgL_modz00_2313); 
BgL_bucketz00_2317 = 
VECTOR_REF(BgL_arg2017z00_2308,BgL_kz00_2327); } 
{ /* ./Cgen/emit-cop.scm 159 */
int BgL_kz00_2329;
BgL_kz00_2329 = 
(int)(BgL_restz00_2315); 
BgL_method3254z00_2305 = 
VECTOR_REF(BgL_bucketz00_2317,BgL_kz00_2329); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 159 */
obj_t BgL_auxz00_5875;
BgL_auxz00_5875 = 
PROCEDURE_ENTRY(BgL_method3254z00_2305)(BgL_method3254z00_2305, 
(obj_t)(BgL_arg4240z00_1641), BEOA); 
BgL_res4993z00_2330 = 
CBOOL(BgL_auxz00_5875); } } BgL_res4993z00_2330; } } 
{ /* ./Cgen/emit-cop.scm 160 */
obj_t BgL_portz00_2332;
BgL_portz00_2332 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_2332); } 
BgL_auxz00_5846 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_5846);} } } 
}



/* emit-cop-cpragma3272 */
obj_t BGl_emitzd2copzd2cpragma3272z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3963, obj_t BgL_copz00_3964)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 124 */
{ 
BgL_cpragmaz00_bglt BgL_copz00_1461;
BgL_copz00_1461 = 
(BgL_cpragmaz00_bglt)(BgL_copz00_3964); 
{ /* ./Cgen/emit-cop.scm 126 */
obj_t BgL_arg4030z00_1465;
{ /* ./Cgen/emit-cop.scm 126 */
BgL_copz00_bglt BgL_obj2662z00_2177;
BgL_obj2662z00_2177 = 
(BgL_copz00_bglt)(BgL_copz00_1461); 
BgL_arg4030z00_1465 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2177))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg4030z00_1465); } 
{ /* ./Cgen/emit-cop.scm 127 */
bool_t BgL_test4033z00_1466;
{ /* ./Cgen/emit-cop.scm 127 */
obj_t BgL_auxz00_5886;
BgL_auxz00_5886 = 
(((BgL_cpragmaz00_bglt)CREF(BgL_copz00_1461))->BgL_argsz00); 
BgL_test4033z00_1466 = 
NULLP(BgL_auxz00_5886); } 
if(BgL_test4033z00_1466)
{ /* ./Cgen/emit-cop.scm 128 */
obj_t BgL_arg4035z00_1467;
BgL_arg4035z00_1467 = 
(((BgL_cpragmaz00_bglt)CREF(BgL_copz00_1461))->BgL_formatz00); 
return 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4035z00_1467, BGl_za2czd2portza2zd2zzbackend_c_emitz00);}  else 
{ /* ./Cgen/emit-cop.scm 129 */
obj_t BgL_sportz00_1468;
{ /* ./Cgen/emit-cop.scm 129 */
obj_t BgL_arg4213z00_1630;
BgL_arg4213z00_1630 = 
(((BgL_cpragmaz00_bglt)CREF(BgL_copz00_1461))->BgL_formatz00); 
BgL_sportz00_1468 = 
open_input_string(BgL_arg4213z00_1630); } 
{ /* ./Cgen/emit-cop.scm 129 */
obj_t BgL_argsz00_1469;
{ /* ./Cgen/emit-cop.scm 130 */
obj_t BgL_arg4209z00_1629;
BgL_arg4209z00_1629 = 
(((BgL_cpragmaz00_bglt)CREF(BgL_copz00_1461))->BgL_argsz00); 
BgL_argsz00_1469 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg4209z00_1629); } 
{ /* ./Cgen/emit-cop.scm 130 */
obj_t BgL_parserz00_1470;
{ /* ./Cgen/emit-cop.scm 131 */
obj_t BgL_thezd2rgczd2contextz00_1471;
BgL_thezd2rgczd2contextz00_1471 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Cgen/emit-cop.scm 131 */
obj_t BgL_zc3anonymousza34039ze3z83_3910;
{ 
int BgL_auxz00_5896;
BgL_auxz00_5896 = 
(int)(((long)2)); 
BgL_zc3anonymousza34039ze3z83_3910 = 
MAKE_EL_PROCEDURE(BgL_auxz00_5896); } 
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_auxz00_5899;
BgL_auxz00_5899 = 
(int)(((long)0)); 
PROCEDURE_EL_SET(BgL_zc3anonymousza34039ze3z83_3910, BgL_auxz00_5899, BgL_thezd2rgczd2contextz00_1471); } 
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_auxz00_5902;
BgL_auxz00_5902 = 
(int)(((long)1)); 
PROCEDURE_EL_SET(BgL_zc3anonymousza34039ze3z83_3910, BgL_auxz00_5902, BgL_argsz00_1469); } 
BgL_parserz00_1470 = BgL_zc3anonymousza34039ze3z83_3910; } } 
{ /* ./Cgen/emit-cop.scm 131 */

BGl_zc3anonymousza34039ze3z83zzcgen_emitzd2copzd2(BgL_parserz00_1470, BgL_sportz00_1468, BFALSE); 
return BTRUE;} } } } } } } 
}



/* <anonymous:4039> */
obj_t BGl_zc3anonymousza34039ze3z83zzcgen_emitzd2copzd2(obj_t BgL_envz00_3965, obj_t BgL_inputzd2portzd2_3968, obj_t BgL_procz00_3969)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
obj_t BgL_thezd2rgczd2contextz00_3966;obj_t BgL_argsz00_3967;
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_auxz00_5908;
BgL_auxz00_5908 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_3966 = 
PROCEDURE_EL_REF(BgL_envz00_3965, BgL_auxz00_5908); } 
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_auxz00_5911;
BgL_auxz00_5911 = 
(int)(((long)1)); 
BgL_argsz00_3967 = 
PROCEDURE_EL_REF(BgL_envz00_3965, BgL_auxz00_5911); } 
{ 
obj_t BgL_inputzd2portzd2_1472;obj_t BgL_procz00_1473;
BgL_inputzd2portzd2_1472 = BgL_inputzd2portzd2_3968; 
BgL_procz00_1473 = BgL_procz00_3969; 
return 
BGl_ignorez00zzcgen_emitzd2copzd2(BgL_argsz00_3967, BGl_proc6229z00zzcgen_emitzd2copzd2, BgL_thezd2rgczd2contextz00_3966, BgL_procz00_1473, BgL_inputzd2portzd2_1472);} } } 
}



/* STATE-0-3204 */
obj_t BGl_STATEzd20zd23204z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3970, obj_t BgL_inputzd2portzd2_3971, obj_t BgL_lastzd2matchzd2_3972, obj_t BgL_thezd2rgczd2contextz00_3973)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 131 */
{ 
obj_t BgL_inputzd2portzd2_1588;obj_t BgL_lastzd2matchzd2_1589;obj_t BgL_thezd2rgczd2contextz00_1590;
BgL_inputzd2portzd2_1588 = BgL_inputzd2portzd2_3971; 
BgL_lastzd2matchzd2_1589 = BgL_lastzd2matchzd2_3972; 
BgL_thezd2rgczd2contextz00_1590 = BgL_thezd2rgczd2contextz00_3973; 
BgL_zc3anonymousza34191ze3z83_1591:
{ 
obj_t BgL_inputzd2portzd2_1547;obj_t BgL_lastzd2matchzd2_1548;obj_t BgL_thezd2rgczd2contextz00_1549;obj_t BgL_inputzd2portzd2_1558;obj_t BgL_lastzd2matchzd2_1559;obj_t BgL_thezd2rgczd2contextz00_1560;obj_t BgL_inputzd2portzd2_1578;long BgL_lastzd2matchzd2_1579;obj_t BgL_thezd2rgczd2contextz00_1580;obj_t BgL_inputzd2portzd2_1568;long BgL_lastzd2matchzd2_1569;obj_t BgL_thezd2rgczd2contextz00_1570;
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_currentzd2charzd2_1592;
BgL_currentzd2charzd2_1592 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1588); 
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4192z00_1593;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5916;
BgL_auxz00_5916 = 
(long)(BgL_currentzd2charzd2_1592); 
BgL_test4192z00_1593 = 
(BgL_auxz00_5916==((long)0)); } 
if(BgL_test4192z00_1593)
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4193z00_1594;
BgL_test4193z00_1594 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1588); 
if(BgL_test4193z00_1594)
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4194z00_1595;
BgL_test4194z00_1595 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1588); 
if(BgL_test4194z00_1595)
{ 

goto BgL_zc3anonymousza34191ze3z83_1591;}  else 
{ /* ./Cgen/emit-cop.scm 131 */
return BgL_lastzd2matchzd2_1589;} }  else 
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5924;
BgL_inputzd2portzd2_1558 = BgL_inputzd2portzd2_1588; 
BgL_lastzd2matchzd2_1559 = BgL_lastzd2matchzd2_1589; 
BgL_thezd2rgczd2contextz00_1560 = BgL_thezd2rgczd2contextz00_1590; 
BgL_zc3anonymousza34150ze3z83_1561:
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_newzd2matchzd2_1562;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1558); 
BgL_newzd2matchzd2_1562 = ((long)2); 
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_currentzd2charzd2_1563;
BgL_currentzd2charzd2_1563 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1558); 
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4151z00_1564;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5927;
BgL_auxz00_5927 = 
(long)(BgL_currentzd2charzd2_1563); 
BgL_test4151z00_1564 = 
(BgL_auxz00_5927==((long)0)); } 
if(BgL_test4151z00_1564)
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4152z00_1565;
BgL_test4152z00_1565 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1558); 
if(BgL_test4152z00_1565)
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4153z00_1566;
BgL_test4153z00_1566 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1558); 
if(BgL_test4153z00_1566)
{ 

goto BgL_zc3anonymousza34150ze3z83_1561;}  else 
{ /* ./Cgen/emit-cop.scm 131 */
BgL_auxz00_5924 = BgL_newzd2matchzd2_1562
; } }  else 
{ /* ./Cgen/emit-cop.scm 131 */
BgL_inputzd2portzd2_1578 = BgL_inputzd2portzd2_1558; 
BgL_lastzd2matchzd2_1579 = BgL_newzd2matchzd2_1562; 
BgL_thezd2rgczd2contextz00_1580 = BgL_thezd2rgczd2contextz00_1560; 
BgL_zc3anonymousza34177ze3z83_1581:
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_newzd2matchzd2_1582;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1578); 
BgL_newzd2matchzd2_1582 = ((long)2); 
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_currentzd2charzd2_1583;
BgL_currentzd2charzd2_1583 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1578); 
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4178z00_1584;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5937;
BgL_auxz00_5937 = 
(long)(BgL_currentzd2charzd2_1583); 
BgL_test4178z00_1584 = 
(BgL_auxz00_5937==((long)0)); } 
if(BgL_test4178z00_1584)
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4179z00_1585;
BgL_test4179z00_1585 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1578); 
if(BgL_test4179z00_1585)
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4180z00_1586;
BgL_test4180z00_1586 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1578); 
if(BgL_test4180z00_1586)
{ 

goto BgL_zc3anonymousza34177ze3z83_1581;}  else 
{ /* ./Cgen/emit-cop.scm 131 */
BgL_auxz00_5924 = BgL_newzd2matchzd2_1582
; } }  else 
{ 
long BgL_lastzd2matchzd2_5945;
BgL_lastzd2matchzd2_5945 = BgL_newzd2matchzd2_1582; 
BgL_lastzd2matchzd2_1579 = BgL_lastzd2matchzd2_5945; 
goto BgL_zc3anonymousza34177ze3z83_1581;} } }  else 
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4185z00_1587;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5946;
BgL_auxz00_5946 = 
(long)(BgL_currentzd2charzd2_1583); 
BgL_test4185z00_1587 = 
(BgL_auxz00_5946==((long)36)); } 
if(BgL_test4185z00_1587)
{ /* ./Cgen/emit-cop.scm 131 */
BgL_auxz00_5924 = BgL_newzd2matchzd2_1582; }  else 
{ /* ./Cgen/emit-cop.scm 131 */
{ 
long BgL_lastzd2matchzd2_5950;
BgL_lastzd2matchzd2_5950 = BgL_newzd2matchzd2_1582; 
BgL_lastzd2matchzd2_1579 = BgL_lastzd2matchzd2_5950; 
goto BgL_zc3anonymousza34177ze3z83_1581;} } } } } } } } }  else 
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4158z00_1567;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5951;
BgL_auxz00_5951 = 
(long)(BgL_currentzd2charzd2_1563); 
BgL_test4158z00_1567 = 
(BgL_auxz00_5951==((long)36)); } 
if(BgL_test4158z00_1567)
{ /* ./Cgen/emit-cop.scm 131 */
BgL_auxz00_5924 = BgL_newzd2matchzd2_1562; }  else 
{ /* ./Cgen/emit-cop.scm 131 */
{ 
obj_t BgL_thezd2rgczd2contextz00_5957;long BgL_lastzd2matchzd2_5956;obj_t BgL_inputzd2portzd2_5955;
BgL_inputzd2portzd2_5955 = BgL_inputzd2portzd2_1558; 
BgL_lastzd2matchzd2_5956 = BgL_newzd2matchzd2_1562; 
BgL_thezd2rgczd2contextz00_5957 = BgL_thezd2rgczd2contextz00_1560; 
BgL_thezd2rgczd2contextz00_1580 = BgL_thezd2rgczd2contextz00_5957; 
BgL_lastzd2matchzd2_1579 = BgL_lastzd2matchzd2_5956; 
BgL_inputzd2portzd2_1578 = BgL_inputzd2portzd2_5955; 
goto BgL_zc3anonymousza34177ze3z83_1581;} } } } } } 
return 
BINT(BgL_auxz00_5924);} } }  else 
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4199z00_1596;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5959;
BgL_auxz00_5959 = 
(long)(BgL_currentzd2charzd2_1592); 
BgL_test4199z00_1596 = 
(BgL_auxz00_5959==((long)36)); } 
if(BgL_test4199z00_1596)
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5963;
BgL_inputzd2portzd2_1547 = BgL_inputzd2portzd2_1588; 
BgL_lastzd2matchzd2_1548 = BgL_lastzd2matchzd2_1589; 
BgL_thezd2rgczd2contextz00_1549 = BgL_thezd2rgczd2contextz00_1590; 
BgL_zc3anonymousza34134ze3z83_1550:
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_newzd2matchzd2_1551;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1547); 
BgL_newzd2matchzd2_1551 = ((long)3); 
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_currentzd2charzd2_1552;
BgL_currentzd2charzd2_1552 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1547); 
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4135z00_1553;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5966;
BgL_auxz00_5966 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_test4135z00_1553 = 
(BgL_auxz00_5966==((long)0)); } 
if(BgL_test4135z00_1553)
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4136z00_1554;
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_res4989z00_2246;
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL__andtest_1005z00_2243;
BgL__andtest_1005z00_2243 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1547); 
if(BgL__andtest_1005z00_2243)
{ /* ./Cgen/emit-cop.scm 131 */
BgL_res4989z00_2246 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1547); }  else 
{ /* ./Cgen/emit-cop.scm 131 */
BgL_res4989z00_2246 = ((bool_t)0); } } 
BgL_test4136z00_1554 = BgL_res4989z00_2246; } 
if(BgL_test4136z00_1554)
{ 

goto BgL_zc3anonymousza34134ze3z83_1550;}  else 
{ /* ./Cgen/emit-cop.scm 131 */
BgL_auxz00_5963 = BgL_newzd2matchzd2_1551
; } } }  else 
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4139z00_1555;
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_testz00_5974;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5975;
BgL_auxz00_5975 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_5974 = 
(BgL_auxz00_5975>=((long)48)); } 
if(BgL_testz00_5974)
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5978;
BgL_auxz00_5978 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_test4139z00_1555 = 
(BgL_auxz00_5978<((long)58)); }  else 
{ /* ./Cgen/emit-cop.scm 131 */
BgL_test4139z00_1555 = ((bool_t)0); } } 
if(BgL_test4139z00_1555)
{ /* ./Cgen/emit-cop.scm 131 */
BgL_inputzd2portzd2_1568 = BgL_inputzd2portzd2_1547; 
BgL_lastzd2matchzd2_1569 = BgL_newzd2matchzd2_1551; 
BgL_thezd2rgczd2contextz00_1570 = BgL_thezd2rgczd2contextz00_1549; 
BgL_zc3anonymousza34164ze3z83_1571:
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_newzd2matchzd2_1572;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1568); 
BgL_newzd2matchzd2_1572 = ((long)0); 
{ /* ./Cgen/emit-cop.scm 131 */
int BgL_currentzd2charzd2_1573;
BgL_currentzd2charzd2_1573 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1568); 
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4165z00_1574;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5984;
BgL_auxz00_5984 = 
(long)(BgL_currentzd2charzd2_1573); 
BgL_test4165z00_1574 = 
(BgL_auxz00_5984==((long)0)); } 
if(BgL_test4165z00_1574)
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4166z00_1575;
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_res4990z00_2274;
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL__andtest_1005z00_2271;
BgL__andtest_1005z00_2271 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1568); 
if(BgL__andtest_1005z00_2271)
{ /* ./Cgen/emit-cop.scm 131 */
BgL_res4990z00_2274 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1568); }  else 
{ /* ./Cgen/emit-cop.scm 131 */
BgL_res4990z00_2274 = ((bool_t)0); } } 
BgL_test4166z00_1575 = BgL_res4990z00_2274; } 
if(BgL_test4166z00_1575)
{ 

goto BgL_zc3anonymousza34164ze3z83_1571;}  else 
{ /* ./Cgen/emit-cop.scm 131 */
BgL_auxz00_5963 = BgL_newzd2matchzd2_1572
; } } }  else 
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4169z00_1576;
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_testz00_5992;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5993;
BgL_auxz00_5993 = 
(long)(BgL_currentzd2charzd2_1573); 
BgL_testz00_5992 = 
(BgL_auxz00_5993>=((long)48)); } 
if(BgL_testz00_5992)
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_5996;
BgL_auxz00_5996 = 
(long)(BgL_currentzd2charzd2_1573); 
BgL_test4169z00_1576 = 
(BgL_auxz00_5996<((long)58)); }  else 
{ /* ./Cgen/emit-cop.scm 131 */
BgL_test4169z00_1576 = ((bool_t)0); } } 
if(BgL_test4169z00_1576)
{ /* ./Cgen/emit-cop.scm 131 */
{ 
long BgL_lastzd2matchzd2_6000;
BgL_lastzd2matchzd2_6000 = BgL_newzd2matchzd2_1572; 
BgL_lastzd2matchzd2_1569 = BgL_lastzd2matchzd2_6000; 
goto BgL_zc3anonymousza34164ze3z83_1571;} }  else 
{ /* ./Cgen/emit-cop.scm 131 */
BgL_auxz00_5963 = BgL_newzd2matchzd2_1572; } } } } } }  else 
{ /* ./Cgen/emit-cop.scm 131 */
bool_t BgL_test4141z00_1556;
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_6001;
BgL_auxz00_6001 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_test4141z00_1556 = 
(BgL_auxz00_6001==((long)36)); } 
if(BgL_test4141z00_1556)
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_newzd2matchzd2_2256;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1547); 
BgL_newzd2matchzd2_2256 = ((long)1); 
BgL_auxz00_5963 = BgL_newzd2matchzd2_2256; } }  else 
{ /* ./Cgen/emit-cop.scm 131 */
BgL_auxz00_5963 = BgL_newzd2matchzd2_1551; } } } } } } 
return 
BINT(BgL_auxz00_5963);} }  else 
{ /* ./Cgen/emit-cop.scm 131 */
{ /* ./Cgen/emit-cop.scm 131 */
long BgL_auxz00_6007;
{ 
obj_t BgL_thezd2rgczd2contextz00_6010;obj_t BgL_lastzd2matchzd2_6009;obj_t BgL_inputzd2portzd2_6008;
BgL_inputzd2portzd2_6008 = BgL_inputzd2portzd2_1588; 
BgL_lastzd2matchzd2_6009 = BgL_lastzd2matchzd2_1589; 
BgL_thezd2rgczd2contextz00_6010 = BgL_thezd2rgczd2contextz00_1590; 
BgL_thezd2rgczd2contextz00_1560 = BgL_thezd2rgczd2contextz00_6010; 
BgL_lastzd2matchzd2_1559 = BgL_lastzd2matchzd2_6009; 
BgL_inputzd2portzd2_1558 = BgL_inputzd2portzd2_6008; 
goto BgL_zc3anonymousza34150ze3z83_1561;} 
return 
BINT(BgL_auxz00_6007);} } } } } } } } 
}



/* emit-cop-varc3270 */
obj_t BGl_emitzd2copzd2varc3270z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3974, obj_t BgL_copz00_3975)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 116 */
{ 
BgL_varcz00_bglt BgL_copz00_1453;
{ /* ./Cgen/emit-cop.scm 117 */
bool_t BgL_auxz00_6012;
BgL_copz00_1453 = 
(BgL_varcz00_bglt)(BgL_copz00_3975); 
{ /* ./Cgen/emit-cop.scm 118 */
obj_t BgL_arg4017z00_1457;
{ /* ./Cgen/emit-cop.scm 118 */
BgL_variablez00_bglt BgL_arg4020z00_1458;
BgL_arg4020z00_1458 = 
(((BgL_varcz00_bglt)CREF(BgL_copz00_1453))->BgL_variablez00); 
BgL_arg4017z00_1457 = 
(((BgL_variablez00_bglt)CREF(BgL_arg4020z00_1458))->BgL_namez00); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4017z00_1457, BGl_za2czd2portza2zd2zzbackend_c_emitz00); } 
BgL_auxz00_6012 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_6012);} } } 
}



/* emit-cop-cvoid3268 */
obj_t BGl_emitzd2copzd2cvoid3268z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3976, obj_t BgL_copz00_3977)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 109 */
{ 
BgL_cvoidz00_bglt BgL_copz00_1446;
{ /* ./Cgen/emit-cop.scm 110 */
bool_t BgL_auxz00_6018;
BgL_copz00_1446 = 
(BgL_cvoidz00_bglt)(BgL_copz00_3977); 
{ /* ./Cgen/emit-cop.scm 110 */
BgL_copz00_bglt BgL_arg4007z00_2146;
BgL_arg4007z00_2146 = 
(((BgL_cvoidz00_bglt)CREF(BgL_copz00_1446))->BgL_valuez00); 
{ /* ./Cgen/emit-cop.scm 110 */
bool_t BgL_res4982z00_2174;
{ /* ./Cgen/emit-cop.scm 110 */
obj_t BgL_method3254z00_2149;
{ /* ./Cgen/emit-cop.scm 110 */
BgL_objectz00_bglt BgL_objz00_2150;
BgL_objz00_2150 = 
(BgL_objectz00_bglt)(BgL_arg4007z00_2146); 
{ /* ./Cgen/emit-cop.scm 110 */
long BgL_objzd2classzd2numz00_2151;
BgL_objzd2classzd2numz00_2151 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2150); 
{ /* ./Cgen/emit-cop.scm 110 */
obj_t BgL_arg2017z00_2152;
{ /* ./Cgen/emit-cop.scm 110 */
int BgL_auxz00_6022;
BgL_auxz00_6022 = 
(int)(((long)1)); 
BgL_arg2017z00_2152 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_6022); } 
{ /* ./Cgen/emit-cop.scm 110 */
int BgL_offsetz00_2155;
BgL_offsetz00_2155 = 
(int)(BgL_objzd2classzd2numz00_2151); 
{ /* ./Cgen/emit-cop.scm 110 */
long BgL_offsetz00_2156;
{ /* ./Cgen/emit-cop.scm 110 */
long BgL_auxz00_6026;
BgL_auxz00_6026 = 
(long)(BgL_offsetz00_2155); 
BgL_offsetz00_2156 = 
(BgL_auxz00_6026-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 110 */
long BgL_modz00_2157;
{ /* ./Cgen/emit-cop.scm 110 */
int BgL_arg2028z00_2158;
BgL_arg2028z00_2158 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 110 */
long BgL_n2z00_2166;
BgL_n2z00_2166 = 
(long)(BgL_arg2028z00_2158); 
BgL_modz00_2157 = 
(BgL_offsetz00_2156/BgL_n2z00_2166); } } 
{ /* ./Cgen/emit-cop.scm 110 */
long BgL_restz00_2159;
{ /* ./Cgen/emit-cop.scm 110 */
int BgL_arg2024z00_2160;
BgL_arg2024z00_2160 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 110 */
long BgL_n2z00_2169;
BgL_n2z00_2169 = 
(long)(BgL_arg2024z00_2160); 
BgL_restz00_2159 = 
(BgL_offsetz00_2156%BgL_n2z00_2169); } } 
{ /* ./Cgen/emit-cop.scm 110 */

{ /* ./Cgen/emit-cop.scm 110 */
obj_t BgL_bucketz00_2161;
{ /* ./Cgen/emit-cop.scm 110 */
int BgL_kz00_2171;
BgL_kz00_2171 = 
(int)(BgL_modz00_2157); 
BgL_bucketz00_2161 = 
VECTOR_REF(BgL_arg2017z00_2152,BgL_kz00_2171); } 
{ /* ./Cgen/emit-cop.scm 110 */
int BgL_kz00_2173;
BgL_kz00_2173 = 
(int)(BgL_restz00_2159); 
BgL_method3254z00_2149 = 
VECTOR_REF(BgL_bucketz00_2161,BgL_kz00_2173); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 110 */
obj_t BgL_auxz00_6039;
BgL_auxz00_6039 = 
PROCEDURE_ENTRY(BgL_method3254z00_2149)(BgL_method3254z00_2149, 
(obj_t)(BgL_arg4007z00_2146), BEOA); 
BgL_res4982z00_2174 = 
CBOOL(BgL_auxz00_6039); } } 
BgL_auxz00_6018 = BgL_res4982z00_2174; } } 
return 
BBOOL(BgL_auxz00_6018);} } } 
}



/* emit-cop-catom3266 */
obj_t BGl_emitzd2copzd2catom3266z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3978, obj_t BgL_copz00_3979)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 101 */
{ 
BgL_catomz00_bglt BgL_copz00_1439;
{ /* ./Cgen/emit-cop.scm 102 */
bool_t BgL_auxz00_6046;
BgL_copz00_1439 = 
(BgL_catomz00_bglt)(BgL_copz00_3979); 
{ /* ./Cgen/emit-cop.scm 102 */
obj_t BgL_arg3997z00_2143;
BgL_arg3997z00_2143 = 
(((BgL_catomz00_bglt)CREF(BgL_copz00_1439))->BgL_valuez00); 
BGl_emitzd2atomzd2valuez00zzbackend_c_emitz00(BgL_arg3997z00_2143); } 
BgL_auxz00_6046 = ((bool_t)1); 
return 
BBOOL(BgL_auxz00_6046);} } } 
}



/* emit-cop-creturn3264 */
obj_t BGl_emitzd2copzd2creturn3264z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3980, obj_t BgL_copz00_3981)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 90 */
{ 
BgL_creturnz00_bglt BgL_copz00_1430;
{ /* ./Cgen/emit-cop.scm 91 */
bool_t BgL_auxz00_6051;
BgL_copz00_1430 = 
(BgL_creturnz00_bglt)(BgL_copz00_3981); 
{ /* ./Cgen/emit-cop.scm 92 */
obj_t BgL_arg3980z00_1434;
{ /* ./Cgen/emit-cop.scm 92 */
BgL_copz00_bglt BgL_obj2662z00_2111;
BgL_obj2662z00_2111 = 
(BgL_copz00_bglt)(BgL_copz00_1430); 
BgL_arg3980z00_1434 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2111))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg3980z00_1434); } 
display_string(BGl_string6230z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 94 */
bool_t BgL_test3984z00_1435;
{ /* ./Cgen/emit-cop.scm 94 */
BgL_copz00_bglt BgL_arg3987z00_1436;
BgL_arg3987z00_1436 = 
(((BgL_creturnz00_bglt)CREF(BgL_copz00_1430))->BgL_valuez00); 
{ /* ./Cgen/emit-cop.scm 94 */
bool_t BgL_res4979z00_2139;
{ /* ./Cgen/emit-cop.scm 94 */
obj_t BgL_method3254z00_2114;
{ /* ./Cgen/emit-cop.scm 94 */
BgL_objectz00_bglt BgL_objz00_2115;
BgL_objz00_2115 = 
(BgL_objectz00_bglt)(BgL_arg3987z00_1436); 
{ /* ./Cgen/emit-cop.scm 94 */
long BgL_objzd2classzd2numz00_2116;
BgL_objzd2classzd2numz00_2116 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2115); 
{ /* ./Cgen/emit-cop.scm 94 */
obj_t BgL_arg2017z00_2117;
{ /* ./Cgen/emit-cop.scm 94 */
int BgL_auxz00_6059;
BgL_auxz00_6059 = 
(int)(((long)1)); 
BgL_arg2017z00_2117 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_6059); } 
{ /* ./Cgen/emit-cop.scm 94 */
int BgL_offsetz00_2120;
BgL_offsetz00_2120 = 
(int)(BgL_objzd2classzd2numz00_2116); 
{ /* ./Cgen/emit-cop.scm 94 */
long BgL_offsetz00_2121;
{ /* ./Cgen/emit-cop.scm 94 */
long BgL_auxz00_6063;
BgL_auxz00_6063 = 
(long)(BgL_offsetz00_2120); 
BgL_offsetz00_2121 = 
(BgL_auxz00_6063-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 94 */
long BgL_modz00_2122;
{ /* ./Cgen/emit-cop.scm 94 */
int BgL_arg2028z00_2123;
BgL_arg2028z00_2123 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 94 */
long BgL_n2z00_2131;
BgL_n2z00_2131 = 
(long)(BgL_arg2028z00_2123); 
BgL_modz00_2122 = 
(BgL_offsetz00_2121/BgL_n2z00_2131); } } 
{ /* ./Cgen/emit-cop.scm 94 */
long BgL_restz00_2124;
{ /* ./Cgen/emit-cop.scm 94 */
int BgL_arg2024z00_2125;
BgL_arg2024z00_2125 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 94 */
long BgL_n2z00_2134;
BgL_n2z00_2134 = 
(long)(BgL_arg2024z00_2125); 
BgL_restz00_2124 = 
(BgL_offsetz00_2121%BgL_n2z00_2134); } } 
{ /* ./Cgen/emit-cop.scm 94 */

{ /* ./Cgen/emit-cop.scm 94 */
obj_t BgL_bucketz00_2126;
{ /* ./Cgen/emit-cop.scm 94 */
int BgL_kz00_2136;
BgL_kz00_2136 = 
(int)(BgL_modz00_2122); 
BgL_bucketz00_2126 = 
VECTOR_REF(BgL_arg2017z00_2117,BgL_kz00_2136); } 
{ /* ./Cgen/emit-cop.scm 94 */
int BgL_kz00_2138;
BgL_kz00_2138 = 
(int)(BgL_restz00_2124); 
BgL_method3254z00_2114 = 
VECTOR_REF(BgL_bucketz00_2126,BgL_kz00_2138); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 94 */
obj_t BgL_auxz00_6076;
BgL_auxz00_6076 = 
PROCEDURE_ENTRY(BgL_method3254z00_2114)(BgL_method3254z00_2114, 
(obj_t)(BgL_arg3987z00_1436), BEOA); 
BgL_res4979z00_2139 = 
CBOOL(BgL_auxz00_6076); } } 
BgL_test3984z00_1435 = BgL_res4979z00_2139; } } 
if(BgL_test3984z00_1435)
{ /* ./Cgen/emit-cop.scm 95 */
obj_t BgL_portz00_2141;
BgL_portz00_2141 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)';'), BgL_portz00_2141); }  else 
{ /* ./Cgen/emit-cop.scm 94 */BFALSE; } } 
BgL_auxz00_6051 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_6051);} } } 
}



/* emit-cop-block3262 */
obj_t BGl_emitzd2copzd2block3262z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3982, obj_t BgL_copz00_3983)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 69 */
{ 
BgL_blockz00_bglt BgL_copz00_1416;
{ /* ./Cgen/emit-cop.scm 70 */
bool_t BgL_auxz00_6085;
BgL_copz00_1416 = 
(BgL_blockz00_bglt)(BgL_copz00_3983); 
{ /* ./Cgen/emit-cop.scm 71 */
obj_t BgL_arg3945z00_1420;
{ /* ./Cgen/emit-cop.scm 71 */
BgL_copz00_bglt BgL_obj2662z00_2051;
BgL_obj2662z00_2051 = 
(BgL_copz00_bglt)(BgL_copz00_1416); 
BgL_arg3945z00_1420 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2051))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg3945z00_1420); } 
{ /* ./Cgen/emit-cop.scm 72 */
bool_t BgL_test3948z00_1421;
{ /* ./Cgen/emit-cop.scm 72 */
BgL_copz00_bglt BgL_arg3970z00_1427;
BgL_arg3970z00_1427 = 
(((BgL_blockz00_bglt)CREF(BgL_copz00_1416))->BgL_bodyz00); 
{ /* ./Cgen/emit-cop.scm 72 */
obj_t BgL_obj2728z00_2053;
BgL_obj2728z00_2053 = 
(obj_t)(BgL_arg3970z00_1427); 
BgL_test3948z00_1421 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2728z00_2053, BGl_blockz00zzcgen_copz00); } } 
if(BgL_test3948z00_1421)
{ /* ./Cgen/emit-cop.scm 73 */
BgL_copz00_bglt BgL_arg3950z00_1422;
BgL_arg3950z00_1422 = 
(((BgL_blockz00_bglt)CREF(BgL_copz00_1416))->BgL_bodyz00); 
{ /* ./Cgen/emit-cop.scm 73 */
bool_t BgL_res4973z00_2081;
{ /* ./Cgen/emit-cop.scm 73 */
obj_t BgL_method3254z00_2056;
{ /* ./Cgen/emit-cop.scm 73 */
BgL_objectz00_bglt BgL_objz00_2057;
BgL_objz00_2057 = 
(BgL_objectz00_bglt)(BgL_arg3950z00_1422); 
{ /* ./Cgen/emit-cop.scm 73 */
long BgL_objzd2classzd2numz00_2058;
BgL_objzd2classzd2numz00_2058 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2057); 
{ /* ./Cgen/emit-cop.scm 73 */
obj_t BgL_arg2017z00_2059;
{ /* ./Cgen/emit-cop.scm 73 */
int BgL_auxz00_6096;
BgL_auxz00_6096 = 
(int)(((long)1)); 
BgL_arg2017z00_2059 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_6096); } 
{ /* ./Cgen/emit-cop.scm 73 */
int BgL_offsetz00_2062;
BgL_offsetz00_2062 = 
(int)(BgL_objzd2classzd2numz00_2058); 
{ /* ./Cgen/emit-cop.scm 73 */
long BgL_offsetz00_2063;
{ /* ./Cgen/emit-cop.scm 73 */
long BgL_auxz00_6100;
BgL_auxz00_6100 = 
(long)(BgL_offsetz00_2062); 
BgL_offsetz00_2063 = 
(BgL_auxz00_6100-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 73 */
long BgL_modz00_2064;
{ /* ./Cgen/emit-cop.scm 73 */
int BgL_arg2028z00_2065;
BgL_arg2028z00_2065 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 73 */
long BgL_n2z00_2073;
BgL_n2z00_2073 = 
(long)(BgL_arg2028z00_2065); 
BgL_modz00_2064 = 
(BgL_offsetz00_2063/BgL_n2z00_2073); } } 
{ /* ./Cgen/emit-cop.scm 73 */
long BgL_restz00_2066;
{ /* ./Cgen/emit-cop.scm 73 */
int BgL_arg2024z00_2067;
BgL_arg2024z00_2067 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 73 */
long BgL_n2z00_2076;
BgL_n2z00_2076 = 
(long)(BgL_arg2024z00_2067); 
BgL_restz00_2066 = 
(BgL_offsetz00_2063%BgL_n2z00_2076); } } 
{ /* ./Cgen/emit-cop.scm 73 */

{ /* ./Cgen/emit-cop.scm 73 */
obj_t BgL_bucketz00_2068;
{ /* ./Cgen/emit-cop.scm 73 */
int BgL_kz00_2078;
BgL_kz00_2078 = 
(int)(BgL_modz00_2064); 
BgL_bucketz00_2068 = 
VECTOR_REF(BgL_arg2017z00_2059,BgL_kz00_2078); } 
{ /* ./Cgen/emit-cop.scm 73 */
int BgL_kz00_2080;
BgL_kz00_2080 = 
(int)(BgL_restz00_2066); 
BgL_method3254z00_2056 = 
VECTOR_REF(BgL_bucketz00_2068,BgL_kz00_2080); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 73 */
obj_t BgL_auxz00_6113;
BgL_auxz00_6113 = 
PROCEDURE_ENTRY(BgL_method3254z00_2056)(BgL_method3254z00_2056, 
(obj_t)(BgL_arg3950z00_1422), BEOA); 
BgL_res4973z00_2081 = 
CBOOL(BgL_auxz00_6113); } } 
BgL_auxz00_6085 = BgL_res4973z00_2081; } }  else 
{ /* ./Cgen/emit-cop.scm 72 */
display_string(BGl_string6231z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/emit-cop.scm 77 */
obj_t BgL_arg3955z00_1423;
{ /* ./Cgen/emit-cop.scm 77 */
BgL_copz00_bglt BgL_obj2662z00_2082;
BgL_obj2662z00_2082 = 
(BgL_copz00_bglt)(BgL_copz00_1416); 
BgL_arg3955z00_1423 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2082))->BgL_locz00); } 
BGl_emitzd2bdbzd2loczd2commentzd2zzcgen_emitzd2copzd2(BgL_arg3955z00_1423); } 
{ /* ./Cgen/emit-cop.scm 78 */
bool_t BgL_test3958z00_1424;
{ /* ./Cgen/emit-cop.scm 78 */
BgL_copz00_bglt BgL_arg3965z00_1426;
BgL_arg3965z00_1426 = 
(((BgL_blockz00_bglt)CREF(BgL_copz00_1416))->BgL_bodyz00); 
{ /* ./Cgen/emit-cop.scm 78 */
bool_t BgL_res4976z00_2110;
{ /* ./Cgen/emit-cop.scm 78 */
obj_t BgL_method3254z00_2085;
{ /* ./Cgen/emit-cop.scm 78 */
BgL_objectz00_bglt BgL_objz00_2086;
BgL_objz00_2086 = 
(BgL_objectz00_bglt)(BgL_arg3965z00_1426); 
{ /* ./Cgen/emit-cop.scm 78 */
long BgL_objzd2classzd2numz00_2087;
BgL_objzd2classzd2numz00_2087 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2086); 
{ /* ./Cgen/emit-cop.scm 78 */
obj_t BgL_arg2017z00_2088;
{ /* ./Cgen/emit-cop.scm 78 */
int BgL_auxz00_6125;
BgL_auxz00_6125 = 
(int)(((long)1)); 
BgL_arg2017z00_2088 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_6125); } 
{ /* ./Cgen/emit-cop.scm 78 */
int BgL_offsetz00_2091;
BgL_offsetz00_2091 = 
(int)(BgL_objzd2classzd2numz00_2087); 
{ /* ./Cgen/emit-cop.scm 78 */
long BgL_offsetz00_2092;
{ /* ./Cgen/emit-cop.scm 78 */
long BgL_auxz00_6129;
BgL_auxz00_6129 = 
(long)(BgL_offsetz00_2091); 
BgL_offsetz00_2092 = 
(BgL_auxz00_6129-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 78 */
long BgL_modz00_2093;
{ /* ./Cgen/emit-cop.scm 78 */
int BgL_arg2028z00_2094;
BgL_arg2028z00_2094 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 78 */
long BgL_n2z00_2102;
BgL_n2z00_2102 = 
(long)(BgL_arg2028z00_2094); 
BgL_modz00_2093 = 
(BgL_offsetz00_2092/BgL_n2z00_2102); } } 
{ /* ./Cgen/emit-cop.scm 78 */
long BgL_restz00_2095;
{ /* ./Cgen/emit-cop.scm 78 */
int BgL_arg2024z00_2096;
BgL_arg2024z00_2096 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 78 */
long BgL_n2z00_2105;
BgL_n2z00_2105 = 
(long)(BgL_arg2024z00_2096); 
BgL_restz00_2095 = 
(BgL_offsetz00_2092%BgL_n2z00_2105); } } 
{ /* ./Cgen/emit-cop.scm 78 */

{ /* ./Cgen/emit-cop.scm 78 */
obj_t BgL_bucketz00_2097;
{ /* ./Cgen/emit-cop.scm 78 */
int BgL_kz00_2107;
BgL_kz00_2107 = 
(int)(BgL_modz00_2093); 
BgL_bucketz00_2097 = 
VECTOR_REF(BgL_arg2017z00_2088,BgL_kz00_2107); } 
{ /* ./Cgen/emit-cop.scm 78 */
int BgL_kz00_2109;
BgL_kz00_2109 = 
(int)(BgL_restz00_2095); 
BgL_method3254z00_2085 = 
VECTOR_REF(BgL_bucketz00_2097,BgL_kz00_2109); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 78 */
obj_t BgL_auxz00_6142;
BgL_auxz00_6142 = 
PROCEDURE_ENTRY(BgL_method3254z00_2085)(BgL_method3254z00_2085, 
(obj_t)(BgL_arg3965z00_1426), BEOA); 
BgL_res4976z00_2110 = 
CBOOL(BgL_auxz00_6142); } } 
BgL_test3958z00_1424 = BgL_res4976z00_2110; } } 
if(BgL_test3958z00_1424)
{ /* ./Cgen/emit-cop.scm 78 */
{ /* ./Cgen/emit-cop.scm 80 */
obj_t BgL_arg3960z00_1425;
BgL_arg3960z00_1425 = BGl_za2bdbzd2locza2zd2zzcgen_emitzd2copzd2; 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg3960z00_1425); } 
display_string(BGl_string6202z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); BNIL; }  else 
{ /* ./Cgen/emit-cop.scm 78 */BFALSE; } } 
display_string(BGl_string6194z00zzcgen_emitzd2copzd2, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BgL_auxz00_6085 = ((bool_t)0); } } 
return 
BBOOL(BgL_auxz00_6085);} } } 
}



/* emit-cop-cgoto3259 */
obj_t BGl_emitzd2copzd2cgoto3259z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3984, obj_t BgL_copz00_3985)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 60 */
{ 
BgL_cgotoz00_bglt BgL_copz00_1406;
{ /* ./Cgen/emit-cop.scm 61 */
bool_t BgL_auxz00_6153;
BgL_copz00_1406 = 
(BgL_cgotoz00_bglt)(BgL_copz00_3985); 
{ /* ./Cgen/emit-cop.scm 62 */
obj_t BgL_arg3926z00_1410;
{ /* ./Cgen/emit-cop.scm 62 */
BgL_copz00_bglt BgL_obj2662z00_2048;
BgL_obj2662z00_2048 = 
(BgL_copz00_bglt)(BgL_copz00_1406); 
BgL_arg3926z00_1410 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2048))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg3926z00_1410); } 
{ /* ./Cgen/emit-cop.scm 63 */
obj_t BgL_port3190z00_1411;
BgL_port3190z00_1411 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
display_string(BGl_string6232z00zzcgen_emitzd2copzd2, BgL_port3190z00_1411); 
{ /* ./Cgen/emit-cop.scm 63 */
obj_t BgL_arg3931z00_1412;
{ /* ./Cgen/emit-cop.scm 63 */
BgL_clabelz00_bglt BgL_arg3934z00_1413;
BgL_arg3934z00_1413 = 
(((BgL_cgotoz00_bglt)CREF(BgL_copz00_1406))->BgL_labelz00); 
BgL_arg3931z00_1412 = 
(((BgL_clabelz00_bglt)CREF(BgL_arg3934z00_1413))->BgL_namez00); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3931z00_1412, BgL_port3190z00_1411); } 
{ /* ./Cgen/emit-cop.scm 63 */
obj_t BgL_auxz00_6161;
BgL_auxz00_6161 = 
BCHAR(((unsigned char)';')); 
display_char(BgL_auxz00_6161, BgL_port3190z00_1411); } } 
BgL_auxz00_6153 = ((bool_t)0); 
return 
BBOOL(BgL_auxz00_6153);} } } 
}



/* emit-cop-clabel3257 */
obj_t BGl_emitzd2copzd2clabel3257z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3986, obj_t BgL_copz00_3987)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 48 */
{ 
BgL_clabelz00_bglt BgL_copz00_1396;
{ /* ./Cgen/emit-cop.scm 49 */
bool_t BgL_auxz00_6166;
BgL_copz00_1396 = 
(BgL_clabelz00_bglt)(BgL_copz00_3987); 
{ /* ./Cgen/emit-cop.scm 50 */
bool_t BgL_test3904z00_1400;
BgL_test3904z00_1400 = 
(((BgL_clabelz00_bglt)CREF(BgL_copz00_1396))->BgL_usedzf3zf3); 
if(BgL_test3904z00_1400)
{ /* ./Cgen/emit-cop.scm 50 */
{ /* ./Cgen/emit-cop.scm 52 */
obj_t BgL_arg3906z00_1401;
{ /* ./Cgen/emit-cop.scm 52 */
BgL_copz00_bglt BgL_obj2662z00_2016;
BgL_obj2662z00_2016 = 
(BgL_copz00_bglt)(BgL_copz00_1396); 
BgL_arg3906z00_1401 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2016))->BgL_locz00); } 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg3906z00_1401); } 
{ /* ./Cgen/emit-cop.scm 53 */
obj_t BgL_arg3910z00_1402;
BgL_arg3910z00_1402 = 
(((BgL_clabelz00_bglt)CREF(BgL_copz00_1396))->BgL_namez00); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3910z00_1402, BGl_za2czd2portza2zd2zzbackend_c_emitz00); } 
{ /* ./Cgen/emit-cop.scm 54 */
obj_t BgL_portz00_2019;
BgL_portz00_2019 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)':'), BgL_portz00_2019); } }  else 
{ /* ./Cgen/emit-cop.scm 50 */BFALSE; } } 
{ /* ./Cgen/emit-cop.scm 55 */
obj_t BgL_arg3916z00_1403;
BgL_arg3916z00_1403 = 
(((BgL_clabelz00_bglt)CREF(BgL_copz00_1396))->BgL_bodyz00); 
{ /* ./Cgen/emit-cop.scm 55 */
bool_t BgL_res4970z00_2047;
{ /* ./Cgen/emit-cop.scm 55 */
BgL_copz00_bglt BgL_copz00_2021;
BgL_copz00_2021 = 
(BgL_copz00_bglt)(BgL_arg3916z00_1403); 
{ /* ./Cgen/emit-cop.scm 55 */
obj_t BgL_method3254z00_2022;
{ /* ./Cgen/emit-cop.scm 55 */
BgL_objectz00_bglt BgL_objz00_2023;
BgL_objz00_2023 = 
(BgL_objectz00_bglt)(BgL_copz00_2021); 
{ /* ./Cgen/emit-cop.scm 55 */
long BgL_objzd2classzd2numz00_2024;
BgL_objzd2classzd2numz00_2024 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2023); 
{ /* ./Cgen/emit-cop.scm 55 */
obj_t BgL_arg2017z00_2025;
{ /* ./Cgen/emit-cop.scm 55 */
int BgL_auxz00_6179;
BgL_auxz00_6179 = 
(int)(((long)1)); 
BgL_arg2017z00_2025 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_6179); } 
{ /* ./Cgen/emit-cop.scm 55 */
int BgL_offsetz00_2028;
BgL_offsetz00_2028 = 
(int)(BgL_objzd2classzd2numz00_2024); 
{ /* ./Cgen/emit-cop.scm 55 */
long BgL_offsetz00_2029;
{ /* ./Cgen/emit-cop.scm 55 */
long BgL_auxz00_6183;
BgL_auxz00_6183 = 
(long)(BgL_offsetz00_2028); 
BgL_offsetz00_2029 = 
(BgL_auxz00_6183-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 55 */
long BgL_modz00_2030;
{ /* ./Cgen/emit-cop.scm 55 */
int BgL_arg2028z00_2031;
BgL_arg2028z00_2031 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 55 */
long BgL_n2z00_2039;
BgL_n2z00_2039 = 
(long)(BgL_arg2028z00_2031); 
BgL_modz00_2030 = 
(BgL_offsetz00_2029/BgL_n2z00_2039); } } 
{ /* ./Cgen/emit-cop.scm 55 */
long BgL_restz00_2032;
{ /* ./Cgen/emit-cop.scm 55 */
int BgL_arg2024z00_2033;
BgL_arg2024z00_2033 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 55 */
long BgL_n2z00_2042;
BgL_n2z00_2042 = 
(long)(BgL_arg2024z00_2033); 
BgL_restz00_2032 = 
(BgL_offsetz00_2029%BgL_n2z00_2042); } } 
{ /* ./Cgen/emit-cop.scm 55 */

{ /* ./Cgen/emit-cop.scm 55 */
obj_t BgL_bucketz00_2034;
{ /* ./Cgen/emit-cop.scm 55 */
int BgL_kz00_2044;
BgL_kz00_2044 = 
(int)(BgL_modz00_2030); 
BgL_bucketz00_2034 = 
VECTOR_REF(BgL_arg2017z00_2025,BgL_kz00_2044); } 
{ /* ./Cgen/emit-cop.scm 55 */
int BgL_kz00_2046;
BgL_kz00_2046 = 
(int)(BgL_restz00_2032); 
BgL_method3254z00_2022 = 
VECTOR_REF(BgL_bucketz00_2034,BgL_kz00_2046); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 55 */
obj_t BgL_auxz00_6196;
BgL_auxz00_6196 = 
PROCEDURE_ENTRY(BgL_method3254z00_2022)(BgL_method3254z00_2022, 
(obj_t)(BgL_copz00_2021), BEOA); 
BgL_res4970z00_2047 = 
CBOOL(BgL_auxz00_6196); } } } 
BgL_auxz00_6166 = BgL_res4970z00_2047; } } 
return 
BBOOL(BgL_auxz00_6166);} } } 
}



/* emit-cop */
BGL_EXPORTED_DEF bool_t BGl_emitzd2copzd2zzcgen_emitzd2copzd2(BgL_copz00_bglt BgL_copz00_15)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 43 */
{ /* ./Cgen/emit-cop.scm 43 */
obj_t BgL_method3254z00_3853;
{ /* ./Cgen/emit-cop.scm 43 */
BgL_objectz00_bglt BgL_objz00_3854;
BgL_objz00_3854 = 
(BgL_objectz00_bglt)(BgL_copz00_15); 
{ /* ./Cgen/emit-cop.scm 43 */
long BgL_objzd2classzd2numz00_3855;
BgL_objzd2classzd2numz00_3855 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3854); 
{ /* ./Cgen/emit-cop.scm 43 */
obj_t BgL_arg2017z00_3856;
{ /* ./Cgen/emit-cop.scm 43 */
int BgL_auxz00_6205;
BgL_auxz00_6205 = 
(int)(((long)1)); 
BgL_arg2017z00_3856 = 
PROCEDURE_REF(BGl_emitzd2copzd2envz00zzcgen_emitzd2copzd2, BgL_auxz00_6205); } 
{ /* ./Cgen/emit-cop.scm 43 */
int BgL_offsetz00_3859;
BgL_offsetz00_3859 = 
(int)(BgL_objzd2classzd2numz00_3855); 
{ /* ./Cgen/emit-cop.scm 43 */
long BgL_offsetz00_3860;
{ /* ./Cgen/emit-cop.scm 43 */
long BgL_auxz00_6209;
BgL_auxz00_6209 = 
(long)(BgL_offsetz00_3859); 
BgL_offsetz00_3860 = 
(BgL_auxz00_6209-OBJECT_TYPE); } 
{ /* ./Cgen/emit-cop.scm 43 */
long BgL_modz00_3861;
{ /* ./Cgen/emit-cop.scm 43 */
int BgL_arg2028z00_3862;
BgL_arg2028z00_3862 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 43 */
long BgL_n2z00_3870;
BgL_n2z00_3870 = 
(long)(BgL_arg2028z00_3862); 
BgL_modz00_3861 = 
(BgL_offsetz00_3860/BgL_n2z00_3870); } } 
{ /* ./Cgen/emit-cop.scm 43 */
long BgL_restz00_3863;
{ /* ./Cgen/emit-cop.scm 43 */
int BgL_arg2024z00_3864;
BgL_arg2024z00_3864 = 
(int)(((long)8)); 
{ /* ./Cgen/emit-cop.scm 43 */
long BgL_n2z00_3873;
BgL_n2z00_3873 = 
(long)(BgL_arg2024z00_3864); 
BgL_restz00_3863 = 
(BgL_offsetz00_3860%BgL_n2z00_3873); } } 
{ /* ./Cgen/emit-cop.scm 43 */

{ /* ./Cgen/emit-cop.scm 43 */
obj_t BgL_bucketz00_3865;
{ /* ./Cgen/emit-cop.scm 43 */
int BgL_kz00_3875;
BgL_kz00_3875 = 
(int)(BgL_modz00_3861); 
BgL_bucketz00_3865 = 
VECTOR_REF(BgL_arg2017z00_3856,BgL_kz00_3875); } 
{ /* ./Cgen/emit-cop.scm 43 */
int BgL_kz00_3877;
BgL_kz00_3877 = 
(int)(BgL_restz00_3863); 
BgL_method3254z00_3853 = 
VECTOR_REF(BgL_bucketz00_3865,BgL_kz00_3877); } } } } } } } } } } 
{ /* ./Cgen/emit-cop.scm 43 */
obj_t BgL_auxz00_6222;
BgL_auxz00_6222 = 
PROCEDURE_ENTRY(BgL_method3254z00_3853)(BgL_method3254z00_3853, 
(obj_t)(BgL_copz00_15), BEOA); 
return 
CBOOL(BgL_auxz00_6222);} } } 
}



/* _emit-cop */
obj_t BGl__emitzd2copzd2zzcgen_emitzd2copzd2(obj_t BgL_envz00_3890, obj_t BgL_copz00_3891)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 43 */
{ /* ./Cgen/emit-cop.scm 43 */
bool_t BgL_auxz00_6227;
BgL_auxz00_6227 = 
BGl_emitzd2copzd2zzcgen_emitzd2copzd2(
(BgL_copz00_bglt)(BgL_copz00_3891)); 
return 
BBOOL(BgL_auxz00_6227);} } 
}



/* emit-cop-default3253 */
bool_t BGl_emitzd2copzd2default3253z00zzcgen_emitzd2copzd2(BgL_copz00_bglt BgL_copz00_16)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 15 */
{ /* ./Cgen/emit-cop.scm 15 */
obj_t BgL_procz00_3878;obj_t BgL_objectz00_3880;
BgL_procz00_3878 = 
CNST_TABLE_REF(((long)8)); 
BgL_objectz00_3880 = 
(obj_t)(BgL_copz00_16); 
FAILURE(BgL_procz00_3878,BGl_string6233z00zzcgen_emitzd2copzd2,BgL_objectz00_3880);} } 
}



/* _emit-cop-default3253 */
obj_t BGl__emitzd2copzd2default3253z00zzcgen_emitzd2copzd2(obj_t BgL_envz00_3988, obj_t BgL_copz00_3989)
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 15 */
{ /* ./Cgen/emit-cop.scm 15 */
bool_t BgL_auxz00_6234;
BgL_auxz00_6234 = 
BGl_emitzd2copzd2default3253z00zzcgen_emitzd2copzd2(
(BgL_copz00_bglt)(BgL_copz00_3989)); 
return 
BBOOL(BgL_auxz00_6234);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcgen_emitzd2copzd2()
{ AN_OBJECT;
{ /* ./Cgen/emit-cop.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zztype_toolsz00(((long)15091), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zzbackend_c_emitz00(((long)11970), "cgen_emit-cop"); 
BGl_modulezd2initializa7ationz75zzcgen_copz00(((long)5379), "cgen_emit-cop"); 
return 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "cgen_emit-cop");} 
}

