/*===========================================================================*/
/*   (SawC/code.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 SawC/code.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_ccompz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_producerz00;
   obj_t BgL_consumerz00;
   obj_t BgL_finaliza7erza7;
} *BgL_ccompz00_bglt;

typedef struct BgL_backendz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
} *BgL_backendz00_bglt;

typedef struct BgL_cvmz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
} *BgL_cvmz00_bglt;

typedef struct BgL_sawcz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
} *BgL_sawcz00_bglt;

typedef struct BgL_cgenz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
} *BgL_cgenz00_bglt;

typedef struct BgL_jvmz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
   obj_t BgL_qnamez00;
   obj_t BgL_classesz00;
   obj_t BgL_currentzd2classzd2;
   obj_t BgL_declarationsz00;
   obj_t BgL_fieldsz00;
   obj_t BgL_methodsz00;
   obj_t BgL_currentzd2methodzd2;
   obj_t BgL_codez00;
} *BgL_jvmz00_bglt;

typedef struct BgL_dotnetz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
   obj_t BgL_outz00;
   obj_t BgL_qnamez00;
} *BgL_dotnetz00_bglt;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_iregz00_bgl {
   obj_t BgL_indexz00;
} *BgL_iregz00_bglt;


static bool_t BGl_genbodyz00zzsaw_c_codez00(obj_t);
static obj_t BGl_genzd2prefixzd2zzsaw_c_codez00(BgL_rtl_funz00_bglt);
BGL_IMPORT obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_rtl_vlengthz00zzsaw_defsz00;
static obj_t BGl_genzd2funzd2namezd2rtl_loadi3594zd2zzsaw_c_codez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_genzd2prefixzd2rtl_cast3627z00zzsaw_c_codez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_genzd2funzd2namezd2rtl_valloc3584zd2zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl__genzd2prefixzd2default3599z00zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl_genfunz00zzsaw_c_codez00(BgL_cvmz00_bglt, BgL_globalz00_bglt, obj_t);
extern obj_t BGl_za2stdcza2z00zzengine_paramz00;
BGL_IMPORT obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t);
extern obj_t BGl_rtl_protectz00zzsaw_defsz00;
BGL_IMPORT obj_t string_to_bstring(char *);
extern BgL_rtl_regz00_bglt BGl_localzd2ze3regz31zzsaw_node2rtlz00(BgL_localz00_bglt);
extern obj_t BGl_rtl_globalrefz00zzsaw_defsz00;
static obj_t BGl_za2badzd2macrosza2zd2zzsaw_c_codez00 = BUNSPEC;
BGL_IMPORT bool_t rgc_fill_buffer(obj_t);
BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
static obj_t BGl_zc3anonymousza33765ze3z83zzsaw_c_codez00(obj_t);
static obj_t BGl_findzd2locationzd2zzsaw_c_codez00(BgL_rtl_insz00_bglt);
static obj_t BGl_genzd2funzd2namezd2rtl_vlength3590zd2zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl_headerz00zzsaw_c_codez00();
static obj_t BGl_genzd2prefixzd2rtl_valloc3619z00zzsaw_c_codez00(obj_t, obj_t);
static bool_t BGl_za2haspushexitza2z00zzsaw_c_codez00;
static obj_t BGl_cnstzd2initzd2zzsaw_c_codez00();
static obj_t BGl_genzd2prefixzd2rtl_vref3621z00zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl_vfunzd2namezd2zzsaw_c_codez00(obj_t, BgL_typez00_bglt);
BGL_IMPORT obj_t BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_genzd2prefixzd2rtl_loadg3604z00zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl_genzd2exprzd2rtl_pragma3576z00zzsaw_c_codez00(obj_t, obj_t, obj_t);
extern obj_t BGl_rtl_loadfunz00zzsaw_defsz00;
BGL_EXPORTED_DECL obj_t BGl_sawzd2cheaderzd2zzsaw_c_codez00();
BGL_IMPORT obj_t rgc_buffer_substring(obj_t, int, int);
extern obj_t BGl_za2bdbzd2debugzd2nozd2linezd2directiveszf3za2zf3zzengine_paramz00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_rtl_lightfuncallz00zzsaw_defsz00;
extern obj_t BGl_rtl_goz00zzsaw_defsz00;
extern obj_t BGl_rtl_insz00zzsaw_defsz00;
extern obj_t BGl_rtl_pragmaz00zzsaw_defsz00;
static obj_t BGl_genzd2funzd2namezd2rtl_vref3586zd2zzsaw_c_codez00(obj_t, obj_t);
static bool_t BGl_printzd2locationzf3z21zzsaw_c_codez00(obj_t);
static bool_t BGl_za2countza2z00zzsaw_c_codez00;
static obj_t BGl_genzd2prefixzd2rtl_globalref3611z00zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl_genzd2regzd2zzsaw_c_codez00(obj_t);
static obj_t BGl_genzd2exprzd2default3567z00zzsaw_c_codez00(BgL_rtl_funz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzsaw_c_codez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_toolsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcnst_allocz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzbackend_backendz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzbackend_cz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzbackend_c_emitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzsaw_woodcutterz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzsaw_defsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzsaw_node2rtlz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzsaw_exprz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
BGL_IMPORT obj_t make_string(int, unsigned char);
extern obj_t BGl_rtl_funcallz00zzsaw_defsz00;
static obj_t BGl_exprzd2ze3iregz31zzsaw_c_codez00(obj_t, obj_t, obj_t);
static obj_t BGl_check_funz00zzsaw_c_codez00(BgL_rtl_funz00_bglt);
static bool_t BGl_za2inlinezd2simplezd2macrosza2z00zzsaw_c_codez00;
static obj_t BGl__genzd2funzd2namezd2default3581zd2zzsaw_c_codez00(obj_t, obj_t);
static bool_t BGl_declarezd2regszd2zzsaw_c_codez00(obj_t);
extern obj_t BGl_buildzd2treezd2zzsaw_exprz00(BgL_backendz00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2ireg3635z51zzsaw_c_codez00(obj_t, obj_t, obj_t);
static obj_t BGl_cepiloguez00zzsaw_c_codez00();
BGL_IMPORT obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, obj_t);
static obj_t BGl__sawzd2cheaderzd2zzsaw_c_codez00(obj_t);
BGL_IMPORT obj_t display_string(obj_t, obj_t);
static obj_t BGl_zc3anonymousza34496ze3z83zzsaw_c_codez00(obj_t, obj_t, obj_t);
static obj_t BGl__sawzd2cepiloguezd2zzsaw_c_codez00(obj_t);
static obj_t BGl__genzd2funzd2namez00zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl_iregz00zzsaw_c_codez00 = BUNSPEC;
static bool_t BGl_za2traceza2z00zzsaw_c_codez00;
static obj_t BGl_backendzd2subtypezf3zd2cvm3629zf3zzsaw_c_codez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_rtl_movz00zzsaw_defsz00;
extern obj_t BGl_rtl_switchz00zzsaw_defsz00;
static obj_t BGl_patchz00zzsaw_c_codez00(obj_t);
BGL_IMPORT bool_t bigloo_strcmp(obj_t, obj_t);
extern obj_t BGl_makezd2typedzd2declarationz00zztype_toolsz00(BgL_typez00_bglt, obj_t);
static bool_t BGl_deepzd2movzf3z21zzsaw_c_codez00(obj_t);
static obj_t BGl_thezd2stringzd2zzsaw_c_codez00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzsaw_c_codez00 = BUNSPEC;
static obj_t BGl_genzd2exprzd2zzsaw_c_codez00(BgL_rtl_funz00_bglt, obj_t);
static obj_t BGl_thezd2failurezd2zzsaw_c_codez00(obj_t);
static obj_t BGl__allocatezd2iregzd2zzsaw_c_codez00(obj_t);
static obj_t BGl_genzd2regzf2destz20zzsaw_c_codez00(obj_t);
static obj_t BGl_ignorez00zzsaw_c_codez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static bool_t BGl_za2commentza2z00zzsaw_c_codez00;
extern obj_t BGl_cvmz00zzbackend_backendz00;
extern obj_t BGl_rtl_callz00zzsaw_defsz00;
static obj_t BGl_genzd2prefixzd2rtl_vset3623z00zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzsaw_c_codez00();
BGL_IMPORT obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
extern obj_t BGl_rtl_castz00zzsaw_defsz00;
static obj_t BGl_objectzd2ze3structzd2ireg3633ze3zzsaw_c_codez00(obj_t, obj_t);
extern obj_t BGl_rtl_regz00zzsaw_defsz00;
static obj_t BGl_genzd2funzd2namezd2rtl_mov3592zd2zzsaw_c_codez00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_genzd2typezd2regz00zzsaw_c_codez00(obj_t);
extern obj_t BGl_za2czd2debugzd2lineszd2infoza2zd2zzengine_paramz00;
extern bool_t BGl_globalzd2argszd2safezf3zf3zzast_varz00(BgL_globalz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_sawzd2cepiloguezd2zzsaw_c_codez00();
static obj_t BGl_case_else3564z00zzsaw_c_codez00(long);
static obj_t BGl_genzd2funzd2namezd2rtl_return3598zd2zzsaw_c_codez00(obj_t, obj_t);
BGL_IMPORT obj_t bigloo_mangle(obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_rtl_vallocz00zzsaw_defsz00;
static long BGl_za2pushtraceemmitedza2z00zzsaw_c_codez00;
static obj_t BGl_genzd2prefixzd2rtl_loadi3602z00zzsaw_c_codez00(obj_t, obj_t);
static bool_t BGl_za2haspushbeforeza2z00zzsaw_c_codez00;
static obj_t BGl__genzd2exprzd2zzsaw_c_codez00(obj_t, obj_t, obj_t);
static obj_t BGl_genzd2Xfuncallzd2zzsaw_c_codez00(char *, obj_t, bool_t);
BGL_IMPORT obj_t BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_genzd2funzd2namezd2rtl_loadg3596zd2zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl__genzd2prefixzd2zzsaw_c_codez00(obj_t, obj_t);
static long BGl_za2counterza2z00zzsaw_c_codez00;
static obj_t BGl_genzd2prefixzd2rtl_storeg3609z00zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl_vextraz00zzsaw_c_codez00(BgL_typez00_bglt);
BGL_IMPORT obj_t c_substring(obj_t, int, int);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzsaw_c_codez00();
static obj_t BGl_genzd2exprzd2rtl_lightfuncall3570z00zzsaw_c_codez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t make_struct(obj_t, int, obj_t);
static obj_t BGl_genzd2prefixzd2rtl_go3613z00zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl_walkz00zzsaw_c_codez00(obj_t);
static obj_t BGl_toplevelzd2initzd2zzsaw_c_codez00();
BGL_EXPORTED_DECL obj_t BGl_sawzd2cgenzd2zzsaw_c_codez00(BgL_cvmz00_bglt, BgL_globalz00_bglt);
static obj_t BGl_genzd2prefixzd2rtl_loadfun3606z00zzsaw_c_codez00(obj_t, obj_t);
static bool_t BGl_genzd2argszd2zzsaw_c_codez00(obj_t);
static obj_t BGl_genzd2exprzd2rtl_call3580z00zzsaw_c_codez00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2localszd2zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl__genzd2exprzd2default3567z00zzsaw_c_codez00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33672ze3z83zzsaw_c_codez00(obj_t);
static obj_t BGl_genzd2exprzd2rtl_funcall3572z00zzsaw_c_codez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t);
extern obj_t BGl_rtl_ifeqz00zzsaw_defsz00;
BGL_IMPORT obj_t string_append(obj_t, obj_t);
static bool_t BGl_multiplezd2evaluationzd2zzsaw_c_codez00(obj_t, obj_t);
BGL_IMPORT BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_STATEzd20zd23557z00zzsaw_c_codez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_genzd2exprzd2rtl_switch3578z00zzsaw_c_codez00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2czd2portza2zd2zzbackend_c_emitz00;
extern obj_t BGl_rtl_ifnez00zzsaw_defsz00;
static obj_t BGl_genzd2exprzd2rtl_protect3574z00zzsaw_c_codez00(obj_t, obj_t, obj_t);
static obj_t BGl_genzd2prefixzd2rtl_ifeq3615z00zzsaw_c_codez00(obj_t, obj_t);
extern obj_t BGl_rtl_loadgz00zzsaw_defsz00;
extern obj_t BGl_rtl_loadiz00zzsaw_defsz00;
static obj_t BGl_emitzd2pragmazd2zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl_genzd2prefixzd2rtl_vlength3625z00zzsaw_c_codez00(obj_t, obj_t);
static obj_t BGl_reg_namez00zzsaw_c_codez00(obj_t);
extern obj_t BGl_globalzd2ze3blocksz31zzsaw_woodcutterz00(BgL_backendz00_bglt, BgL_globalz00_bglt);
extern obj_t BGl_rtl_returnz00zzsaw_defsz00;
static obj_t BGl_acceptzd2foldingzf3zd2cvm3631zf3zzsaw_c_codez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_genzd2upcasezd2zzsaw_c_codez00(BgL_rtl_funz00_bglt);
static obj_t BGl_zc3anonymousza33699ze3z83zzsaw_c_codez00(obj_t);
static obj_t BGl__sawzd2cgenzd2zzsaw_c_codez00(obj_t, obj_t, obj_t);
static obj_t BGl_genzd2funzd2namezd2rtl_vset3588zd2zzsaw_c_codez00(obj_t, obj_t);
extern obj_t BGl_rtl_vrefz00zzsaw_defsz00;
static obj_t BGl_genzd2prefixzd2rtl_ifne3617z00zzsaw_c_codez00(obj_t, obj_t);
extern obj_t BGl_emitzd2atomzd2valuez00zzbackend_c_emitz00(obj_t);
static obj_t BGl_genzd2funzd2namez00zzsaw_c_codez00(BgL_rtl_funz00_bglt);
static obj_t BGl_objectzd2initzd2zzsaw_c_codez00();
static obj_t BGl_genzd2inszd2zzsaw_c_codez00(BgL_rtl_insz00_bglt);
static obj_t BGl_outzd2labelzd2zzsaw_c_codez00(int);
static bool_t BGl_za2hasprotectza2z00zzsaw_c_codez00;
extern obj_t BGl_rtl_vsetz00zzsaw_defsz00;
extern obj_t BGl_rtl_storegz00zzsaw_defsz00;
BGL_IMPORT obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_genzd2typezd2regsz00zzsaw_c_codez00(obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzsaw_c_codez00();
BGL_IMPORT obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t __cnst[ 7 ] ;


DEFINE_STRING( BGl_string6558z00zzsaw_c_codez00, BgL_bgl_string6558za700za7za7saw_c_codeza7006715z00, " jmp_buf jmpbuf;\n", 17 );
DEFINE_STRING( BGl_string6557z00zzsaw_c_codez00, BgL_bgl_string6557za700za7za7saw_c_codeza7006716z00, " {AN_OBJECT\n", 12 );
DEFINE_STRING( BGl_string6556z00zzsaw_c_codez00, BgL_bgl_string6556za700za7za7saw_c_codeza7006717z00, " ", 1 );
DEFINE_STRING( BGl_string6554z00zzsaw_c_codez00, BgL_bgl_string6554za700za7za7saw_c_codeza7006718z00, "\n", 1 );
extern obj_t BGl_backendzd2subtypezf3zd2envzf3zzbackend_backendz00;
DEFINE_EXPORT_PROCEDURE( BGl_sawzd2cepiloguezd2envz00zzsaw_c_codez00, BgL_bgl__sawza7d2cepilogueza7d2za7za7saw_c_codeza7006719za7, BGl__sawzd2cepiloguezd2zzsaw_c_codez00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_genzd2exprzd2default3567zd2envzd2zzsaw_c_codez00, BgL_bgl__genza7d2exprza7d2default3567za700za7za7saw_c_codeza7006720z00, BGl__genzd2exprzd2default3567z00zzsaw_c_codez00, 0L, 2 );
DEFINE_STATIC_GENERIC( BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BgL_bgl__genza7d2prefixza7d2za7za7saw_c_codeza7006721za7, BGl__genzd2prefixzd2zzsaw_c_codez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_sawzd2cgenzd2envz00zzsaw_c_codez00, BgL_bgl__sawza7d2cgenza7d2za7za7saw_c_codeza7006722za7, BGl__sawzd2cgenzd2zzsaw_c_codez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_genzd2prefixzd2default3599zd2envzd2zzsaw_c_codez00, BgL_bgl__genza7d2prefixza7d2default3599za700za7za7saw_c_codeza7006723z00, BGl__genzd2prefixzd2default3599z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_genzd2funzd2namezd2default3581zd2envz00zzsaw_c_codez00, BgL_bgl__genza7d2funza7d2nameza7d2default3581za7d2za7za7saw_c_codeza7006724za7, BGl__genzd2funzd2namezd2default3581zd2zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_allocatezd2iregzd2envz00zzsaw_c_codez00, BgL_bgl__allocateza7d2iregza7d2za7za7saw_c_codeza7006725za7, BGl__allocatezd2iregzd2zzsaw_c_codez00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_sawzd2cheaderzd2envz00zzsaw_c_codez00, BgL_bgl__sawza7d2cheaderza7d2za7za7saw_c_codeza7006726za7, BGl__sawzd2cheaderzd2zzsaw_c_codez00, 0L, 0 );
BGL_IMPORT obj_t BGl_objectzd2ze3structzd2envze3zz__objectz00;
extern obj_t BGl_acceptzd2foldingzf3zd2envzf3zzsaw_exprz00;
DEFINE_STATIC_GENERIC( BGl_genzd2exprzd2envz00zzsaw_c_codez00, BgL_bgl__genza7d2exprza7d2za7za7saw_c_codeza7006727za7, BGl__genzd2exprzd2zzsaw_c_codez00, 0L, 2 );
DEFINE_STATIC_GENERIC( BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BgL_bgl__genza7d2funza7d2nameza700za7za7saw_c_codeza7006728z00, BGl__genzd2funzd2namez00zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6553z00zzsaw_c_codez00, BgL_bgl_za7c3anonymousza7a33672za7e3za783za7za7saw_c_codeza7006729za7, BGl_zc3anonymousza33672ze3z83zzsaw_c_codez00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc6555z00zzsaw_c_codez00, BgL_bgl_za7c3anonymousza7a33699za7e3za783za7za7saw_c_codeza7006730za7, BGl_zc3anonymousza33699ze3z83zzsaw_c_codez00, 0L, 0 );
BGL_IMPORT obj_t BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00;
DEFINE_STRING( BGl_string6678z00zzsaw_c_codez00, BgL_bgl_string6678za700za7za7saw_c_codeza7006731z00, "else ireg (double llong elong long int uchar bool) location push-before! push-exit! (\"WRITE_CHAR\" \"BOOLEANP\" \"INTEGERP\" \"NULLP\" \"PAIRP\" \"SYMBOLP\" \"VECTORP\") ", 157 );
DEFINE_STRING( BGl_string6677z00zzsaw_c_codez00, BgL_bgl_string6677za700za7za7saw_c_codeza7006732z00, " : ", 3 );
DEFINE_STRING( BGl_string6676z00zzsaw_c_codez00, BgL_bgl_string6676za700za7za7saw_c_codeza7006733z00, ") ? ", 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc6624z00zzsaw_c_codez00, BgL_bgl_stateza7d20za7d23557za700za7za7saw_c_codeza7006734z00, BGl_STATEzd20zd23557z00zzsaw_c_codez00, 0L, 3 );
DEFINE_STRING( BGl_string6675z00zzsaw_c_codez00, BgL_bgl_string6675za700za7za7saw_c_codeza7006735z00, "(VA_PROCEDUREP(", 15 );
DEFINE_STATIC_PROCEDURE( BGl_proc6625z00zzsaw_c_codez00, BgL_bgl_genza7d2exprza7d2rtl_lightfuncall3570za700za7za7saw_c_codeza7006736z00, BGl_genzd2exprzd2rtl_lightfuncall3570z00zzsaw_c_codez00, 0L, 2 );
DEFINE_STRING( BGl_string6674z00zzsaw_c_codez00, BgL_bgl_string6674za700za7za7saw_c_codeza7006737z00, "if(SETJMP(jmpbuf)) {RESTORE_TRACE(); return(_exit_value_);}", 59 );
DEFINE_STATIC_PROCEDURE( BGl_proc6626z00zzsaw_c_codez00, BgL_bgl_genza7d2exprza7d2rtl_funcall3572za700za7za7saw_c_codeza7006738z00, BGl_genzd2exprzd2rtl_funcall3572z00zzsaw_c_codez00, 0L, 2 );
DEFINE_STRING( BGl_string6673z00zzsaw_c_codez00, BgL_bgl_string6673za700za7za7saw_c_codeza7006739z00, "(obj_t) jmpbuf;\n\t", 17 );
DEFINE_STATIC_PROCEDURE( BGl_proc6627z00zzsaw_c_codez00, BgL_bgl_genza7d2exprza7d2rtl_protect3574za700za7za7saw_c_codeza7006740z00, BGl_genzd2exprzd2rtl_protect3574z00zzsaw_c_codez00, 0L, 2 );
DEFINE_STRING( BGl_string6672z00zzsaw_c_codez00, BgL_bgl_string6672za700za7za7saw_c_codeza7006741z00, "\n\t}", 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc6628z00zzsaw_c_codez00, BgL_bgl_genza7d2exprza7d2rtl_pragma3576za700za7za7saw_c_codeza7006742z00, BGl_genzd2exprzd2rtl_pragma3576z00zzsaw_c_codez00, 0L, 2 );
DEFINE_STRING( BGl_string6671z00zzsaw_c_codez00, BgL_bgl_string6671za700za7za7saw_c_codeza7006743z00, " goto L", 7 );
DEFINE_STATIC_PROCEDURE( BGl_proc6630z00zzsaw_c_codez00, BgL_bgl_genza7d2exprza7d2rtl_call3580za700za7za7saw_c_codeza7006744z00, BGl_genzd2exprzd2rtl_call3580z00zzsaw_c_codez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6629z00zzsaw_c_codez00, BgL_bgl_genza7d2exprza7d2rtl_switch3578za700za7za7saw_c_codeza7006745z00, BGl_genzd2exprzd2rtl_switch3578z00zzsaw_c_codez00, 0L, 2 );
DEFINE_STRING( BGl_string6670z00zzsaw_c_codez00, BgL_bgl_string6670za700za7za7saw_c_codeza7006746z00, ";", 1 );
DEFINE_STRING( BGl_string6669z00zzsaw_c_codez00, BgL_bgl_string6669za700za7za7saw_c_codeza7006747z00, "\n\t case ", 8 );
DEFINE_STATIC_PROCEDURE( BGl_proc6631z00zzsaw_c_codez00, BgL_bgl_genza7d2funza7d2nameza7d2rtl_valloc3584za7d2za7za7saw_c_codeza7006748za7, BGl_genzd2funzd2namezd2rtl_valloc3584zd2zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6668z00zzsaw_c_codez00, BgL_bgl_string6668za700za7za7saw_c_codeza7006749z00, "\n\t default: ", 12 );
DEFINE_STATIC_PROCEDURE( BGl_proc6632z00zzsaw_c_codez00, BgL_bgl_genza7d2funza7d2nameza7d2rtl_vref3586za7d2za7za7saw_c_codeza7006750za7, BGl_genzd2funzd2namezd2rtl_vref3586zd2zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6667z00zzsaw_c_codez00, BgL_bgl_string6667za700za7za7saw_c_codeza7006751z00, ") {", 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc6633z00zzsaw_c_codez00, BgL_bgl_genza7d2funza7d2nameza7d2rtl_vset3588za7d2za7za7saw_c_codeza7006752za7, BGl_genzd2funzd2namezd2rtl_vset3588zd2zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6666z00zzsaw_c_codez00, BgL_bgl_string6666za700za7za7saw_c_codeza7006753z00, "switch(", 7 );
DEFINE_STATIC_PROCEDURE( BGl_proc6634z00zzsaw_c_codez00, BgL_bgl_genza7d2funza7d2nameza7d2rtl_vlength3590za7d2za7za7saw_c_codeza7006754za7, BGl_genzd2funzd2namezd2rtl_vlength3590zd2zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6665z00zzsaw_c_codez00, BgL_bgl_string6665za700za7za7saw_c_codeza7006755z00, "(function_t) ", 13 );
DEFINE_STATIC_PROCEDURE( BGl_proc6635z00zzsaw_c_codez00, BgL_bgl_genza7d2funza7d2nameza7d2rtl_mov3592za7d2za7za7saw_c_codeza7006756za7, BGl_genzd2funzd2namezd2rtl_mov3592zd2zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6664z00zzsaw_c_codez00, BgL_bgl_string6664za700za7za7saw_c_codeza7006757z00, "MAKE_L_PROCEDURE", 16 );
DEFINE_STATIC_PROCEDURE( BGl_proc6636z00zzsaw_c_codez00, BgL_bgl_genza7d2funza7d2nameza7d2rtl_loadi3594za7d2za7za7saw_c_codeza7006758za7, BGl_genzd2funzd2namezd2rtl_loadi3594zd2zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6663z00zzsaw_c_codez00, BgL_bgl_string6663za700za7za7saw_c_codeza7006759z00, "make_va_procedure", 17 );
DEFINE_STATIC_PROCEDURE( BGl_proc6637z00zzsaw_c_codez00, BgL_bgl_genza7d2funza7d2nameza7d2rtl_loadg3596za7d2za7za7saw_c_codeza7006760za7, BGl_genzd2funzd2namezd2rtl_loadg3596zd2zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6662z00zzsaw_c_codez00, BgL_bgl_string6662za700za7za7saw_c_codeza7006761z00, "make_fx_procedure", 17 );
DEFINE_STATIC_PROCEDURE( BGl_proc6638z00zzsaw_c_codez00, BgL_bgl_genza7d2funza7d2nameza7d2rtl_return3598za7d2za7za7saw_c_codeza7006762za7, BGl_genzd2funzd2namezd2rtl_return3598zd2zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6661z00zzsaw_c_codez00, BgL_bgl_string6661za700za7za7saw_c_codeza7006763z00, "VALLOC", 6 );
DEFINE_STATIC_PROCEDURE( BGl_proc6640z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_loadg3604za700za7za7saw_c_codeza7006764z00, BGl_genzd2prefixzd2rtl_loadg3604z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6639z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_loadi3602za700za7za7saw_c_codeza7006765z00, BGl_genzd2prefixzd2rtl_loadi3602z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6660z00zzsaw_c_codez00, BgL_bgl_string6660za700za7za7saw_c_codeza7006766z00, "VREF", 4 );
DEFINE_STRING( BGl_string6659z00zzsaw_c_codez00, BgL_bgl_string6659za700za7za7saw_c_codeza7006767z00, "VSET", 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc6641z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_loadfun3606za700za7za7saw_c_codeza7006768z00, BGl_genzd2prefixzd2rtl_loadfun3606z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6658z00zzsaw_c_codez00, BgL_bgl_string6658za700za7za7saw_c_codeza7006769z00, "VLENGTH", 7 );
DEFINE_STATIC_PROCEDURE( BGl_proc6642z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_storeg3609za700za7za7saw_c_codeza7006770z00, BGl_genzd2prefixzd2rtl_storeg3609z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6657z00zzsaw_c_codez00, BgL_bgl_string6657za700za7za7saw_c_codeza7006771z00, "return", 6 );
DEFINE_STATIC_PROCEDURE( BGl_proc6643z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_globalref3611za700za7za7saw_c_codeza7006772z00, BGl_genzd2prefixzd2rtl_globalref3611z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STRING( BGl_string6656z00zzsaw_c_codez00, BgL_bgl_string6656za700za7za7saw_c_codeza7006773z00, "(obj_t) ", 8 );
DEFINE_STATIC_PROCEDURE( BGl_proc6644z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_go3613za700za7za7saw_c_codeza7006774z00, BGl_genzd2prefixzd2rtl_go3613z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6645z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_ifeq3615za700za7za7saw_c_codeza7006775z00, BGl_genzd2prefixzd2rtl_ifeq3615z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6646z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_ifne3617za700za7za7saw_c_codeza7006776z00, BGl_genzd2prefixzd2rtl_ifne3617z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6647z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_valloc3619za700za7za7saw_c_codeza7006777z00, BGl_genzd2prefixzd2rtl_valloc3619z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6648z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_vref3621za700za7za7saw_c_codeza7006778z00, BGl_genzd2prefixzd2rtl_vref3621z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6650z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_vlength3625za700za7za7saw_c_codeza7006779z00, BGl_genzd2prefixzd2rtl_vlength3625z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6649z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_vset3623za700za7za7saw_c_codeza7006780z00, BGl_genzd2prefixzd2rtl_vset3623z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6651z00zzsaw_c_codez00, BgL_bgl_genza7d2prefixza7d2rtl_cast3627za700za7za7saw_c_codeza7006781z00, BGl_genzd2prefixzd2rtl_cast3627z00zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6652z00zzsaw_c_codez00, BgL_bgl_backendza7d2subtypeza7f3za7d2cvm3629za7f3za7za7saw_c_codeza7006782za7, BGl_backendzd2subtypezf3zd2cvm3629zf3zzsaw_c_codez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc6653z00zzsaw_c_codez00, BgL_bgl_acceptza7d2foldingza7f3za7d2cvm3631za7f3za7za7saw_c_codeza7006783za7, BGl_acceptzd2foldingzf3zd2cvm3631zf3zzsaw_c_codez00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc6654z00zzsaw_c_codez00, BgL_bgl_objectza7d2za7e3structza7d2ireg3633za7e3za7za7saw_c_codeza7006784za7, BGl_objectzd2ze3structzd2ireg3633ze3zzsaw_c_codez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6655z00zzsaw_c_codez00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2ireg3635za751za7za7saw_c_codeza7006785z00, BGl_structzb2objectzd2ze3objectzd2ireg3635z51zzsaw_c_codez00, 0L, 2 );
DEFINE_STRING( BGl_string6623z00zzsaw_c_codez00, BgL_bgl_string6623za700za7za7saw_c_codeza7006786z00, "Illegal match", 13 );
DEFINE_STRING( BGl_string6622z00zzsaw_c_codez00, BgL_bgl_string6622za700za7za7saw_c_codeza7006787z00, "regular-grammar", 15 );
DEFINE_STRING( BGl_string6621z00zzsaw_c_codez00, BgL_bgl_string6621za700za7za7saw_c_codeza7006788z00, "$", 1 );
DEFINE_STRING( BGl_string6620z00zzsaw_c_codez00, BgL_bgl_string6620za700za7za7saw_c_codeza7006789z00, "BGL_RTL_STRING_REF", 18 );
DEFINE_STRING( BGl_string6619z00zzsaw_c_codez00, BgL_bgl_string6619za700za7za7saw_c_codeza7006790z00, "STRING_REF", 10 );
DEFINE_STRING( BGl_string6618z00zzsaw_c_codez00, BgL_bgl_string6618za700za7za7saw_c_codeza7006791z00, "BIGLOO_EXIT", 11 );
DEFINE_STRING( BGl_string6617z00zzsaw_c_codez00, BgL_bgl_string6617za700za7za7saw_c_codeza7006792z00, "{PUSH_TRACE", 11 );
DEFINE_STRING( BGl_string6616z00zzsaw_c_codez00, BgL_bgl_string6616za700za7za7saw_c_codeza7006793z00, "PUSH_TRACE", 10 );
DEFINE_STRING( BGl_string6615z00zzsaw_c_codez00, BgL_bgl_string6615za700za7za7saw_c_codeza7006794z00, "BGL_RTL_PUSH_BEFORE", 19 );
DEFINE_STRING( BGl_string6614z00zzsaw_c_codez00, BgL_bgl_string6614za700za7za7saw_c_codeza7006795z00, "PUSH_BEFORE", 11 );
DEFINE_STRING( BGl_string6613z00zzsaw_c_codez00, BgL_bgl_string6613za700za7za7saw_c_codeza7006796z00, "BGL_RTL_PUSH_EXIT", 17 );
DEFINE_STRING( BGl_string6612z00zzsaw_c_codez00, BgL_bgl_string6612za700za7za7saw_c_codeza7006797z00, "PUSH_EXIT", 9 );
DEFINE_STRING( BGl_string6611z00zzsaw_c_codez00, BgL_bgl_string6611za700za7za7saw_c_codeza7006798z00, "BGL_RTL_LSH", 11 );
DEFINE_STRING( BGl_string6610z00zzsaw_c_codez00, BgL_bgl_string6610za700za7za7saw_c_codeza7006799z00, " << ", 4 );
DEFINE_STRING( BGl_string6609z00zzsaw_c_codez00, BgL_bgl_string6609za700za7za7saw_c_codeza7006800z00, "BGL_RTL_RSH", 11 );
DEFINE_STRING( BGl_string6599z00zzsaw_c_codez00, BgL_bgl_string6599za700za7za7saw_c_codeza7006801z00, "BGL_RTL_MUL", 11 );
DEFINE_STRING( BGl_string6608z00zzsaw_c_codez00, BgL_bgl_string6608za700za7za7saw_c_codeza7006802z00, " >> ", 4 );
DEFINE_STRING( BGl_string6598z00zzsaw_c_codez00, BgL_bgl_string6598za700za7za7saw_c_codeza7006803z00, "*", 1 );
DEFINE_STRING( BGl_string6607z00zzsaw_c_codez00, BgL_bgl_string6607za700za7za7saw_c_codeza7006804z00, "BGL_RTL_XOR", 11 );
DEFINE_STRING( BGl_string6597z00zzsaw_c_codez00, BgL_bgl_string6597za700za7za7saw_c_codeza7006805z00, "BGL_RTL_SUB", 11 );
DEFINE_STRING( BGl_string6606z00zzsaw_c_codez00, BgL_bgl_string6606za700za7za7saw_c_codeza7006806z00, " ^ ", 3 );
DEFINE_STRING( BGl_string6596z00zzsaw_c_codez00, BgL_bgl_string6596za700za7za7saw_c_codeza7006807z00, "-", 1 );
DEFINE_STRING( BGl_string6605z00zzsaw_c_codez00, BgL_bgl_string6605za700za7za7saw_c_codeza7006808z00, " & ", 3 );
DEFINE_STRING( BGl_string6595z00zzsaw_c_codez00, BgL_bgl_string6595za700za7za7saw_c_codeza7006809z00, "BGL_RTL_ADD", 11 );
DEFINE_STRING( BGl_string6604z00zzsaw_c_codez00, BgL_bgl_string6604za700za7za7saw_c_codeza7006810z00, " | ", 3 );
DEFINE_STRING( BGl_string6594z00zzsaw_c_codez00, BgL_bgl_string6594za700za7za7saw_c_codeza7006811z00, "+", 1 );
DEFINE_STRING( BGl_string6603z00zzsaw_c_codez00, BgL_bgl_string6603za700za7za7saw_c_codeza7006812z00, "BGL_RTL_REM", 11 );
DEFINE_STRING( BGl_string6593z00zzsaw_c_codez00, BgL_bgl_string6593za700za7za7saw_c_codeza7006813z00, "BGL_RTL_AND", 11 );
DEFINE_STRING( BGl_string6602z00zzsaw_c_codez00, BgL_bgl_string6602za700za7za7saw_c_codeza7006814z00, "%", 1 );
DEFINE_STRING( BGl_string6592z00zzsaw_c_codez00, BgL_bgl_string6592za700za7za7saw_c_codeza7006815z00, "&", 1 );
DEFINE_STRING( BGl_string6601z00zzsaw_c_codez00, BgL_bgl_string6601za700za7za7saw_c_codeza7006816z00, "BGL_RTL_DIV", 11 );
DEFINE_STRING( BGl_string6591z00zzsaw_c_codez00, BgL_bgl_string6591za700za7za7saw_c_codeza7006817z00, "BGL_RTL_OR", 10 );
DEFINE_STRING( BGl_string6600z00zzsaw_c_codez00, BgL_bgl_string6600za700za7za7saw_c_codeza7006818z00, "/", 1 );
DEFINE_STRING( BGl_string6590z00zzsaw_c_codez00, BgL_bgl_string6590za700za7za7saw_c_codeza7006819z00, "|", 1 );
DEFINE_STRING( BGl_string6589z00zzsaw_c_codez00, BgL_bgl_string6589za700za7za7saw_c_codeza7006820z00, "BGL_RTL_LT", 10 );
DEFINE_STRING( BGl_string6588z00zzsaw_c_codez00, BgL_bgl_string6588za700za7za7saw_c_codeza7006821z00, "<", 1 );
DEFINE_STRING( BGl_string6587z00zzsaw_c_codez00, BgL_bgl_string6587za700za7za7saw_c_codeza7006822z00, "BGL_RTL_GT", 10 );
DEFINE_STRING( BGl_string6586z00zzsaw_c_codez00, BgL_bgl_string6586za700za7za7saw_c_codeza7006823z00, ">", 1 );
DEFINE_STRING( BGl_string6585z00zzsaw_c_codez00, BgL_bgl_string6585za700za7za7saw_c_codeza7006824z00, "BGL_RTL_LE", 10 );
DEFINE_STRING( BGl_string6584z00zzsaw_c_codez00, BgL_bgl_string6584za700za7za7saw_c_codeza7006825z00, "<=", 2 );
DEFINE_STRING( BGl_string6583z00zzsaw_c_codez00, BgL_bgl_string6583za700za7za7saw_c_codeza7006826z00, "BGL_RTL_GE", 10 );
DEFINE_STRING( BGl_string6582z00zzsaw_c_codez00, BgL_bgl_string6582za700za7za7saw_c_codeza7006827z00, ">=", 2 );
DEFINE_STRING( BGl_string6581z00zzsaw_c_codez00, BgL_bgl_string6581za700za7za7saw_c_codeza7006828z00, "BGL_RTL_EQ", 10 );
DEFINE_STRING( BGl_string6580z00zzsaw_c_codez00, BgL_bgl_string6580za700za7za7saw_c_codeza7006829z00, "==", 2 );
DEFINE_STRING( BGl_string6579z00zzsaw_c_codez00, BgL_bgl_string6579za700za7za7saw_c_codeza7006830z00, "BGL_RTL_", 8 );
DEFINE_STRING( BGl_string6578z00zzsaw_c_codez00, BgL_bgl_string6578za700za7za7saw_c_codeza7006831z00, "BGL_", 4 );
DEFINE_STRING( BGl_string6577z00zzsaw_c_codez00, BgL_bgl_string6577za700za7za7saw_c_codeza7006832z00, ", BEOA", 6 );
DEFINE_STRING( BGl_string6576z00zzsaw_c_codez00, BgL_bgl_string6576za700za7za7saw_c_codeza7006833z00, ")(", 2 );
DEFINE_STRING( BGl_string6575z00zzsaw_c_codez00, BgL_bgl_string6575za700za7za7saw_c_codeza7006834z00, "PROCEDURE_", 10 );
DEFINE_STRING( BGl_string6574z00zzsaw_c_codez00, BgL_bgl_string6574za700za7za7saw_c_codeza7006835z00, "ENTRY(", 6 );
DEFINE_STRING( BGl_string6573z00zzsaw_c_codez00, BgL_bgl_string6573za700za7za7saw_c_codeza7006836z00, " = ", 3 );
DEFINE_STRING( BGl_string6572z00zzsaw_c_codez00, BgL_bgl_string6572za700za7za7saw_c_codeza7006837z00, "\t", 1 );
DEFINE_STRING( BGl_string6571z00zzsaw_c_codez00, BgL_bgl_string6571za700za7za7saw_c_codeza7006838z00, "\"", 1 );
DEFINE_STRING( BGl_string6570z00zzsaw_c_codez00, BgL_bgl_string6570za700za7za7saw_c_codeza7006839z00, " \"", 2 );
DEFINE_STRING( BGl_string6569z00zzsaw_c_codez00, BgL_bgl_string6569za700za7za7saw_c_codeza7006840z00, "# ", 2 );
DEFINE_STRING( BGl_string6568z00zzsaw_c_codez00, BgL_bgl_string6568za700za7za7saw_c_codeza7006841z00, "L", 1 );
DEFINE_STRING( BGl_string6567z00zzsaw_c_codez00, BgL_bgl_string6567za700za7za7saw_c_codeza7006842z00, ":", 1 );
DEFINE_STRING( BGl_string6566z00zzsaw_c_codez00, BgL_bgl_string6566za700za7za7saw_c_codeza7006843z00, "", 0 );
DEFINE_STRING( BGl_string6565z00zzsaw_c_codez00, BgL_bgl_string6565za700za7za7saw_c_codeza7006844z00, ";\n", 2 );
DEFINE_STRING( BGl_string6564z00zzsaw_c_codez00, BgL_bgl_string6564za700za7za7saw_c_codeza7006845z00, ")", 1 );
DEFINE_STRING( BGl_string6563z00zzsaw_c_codez00, BgL_bgl_string6563za700za7za7saw_c_codeza7006846z00, ", ", 2 );
DEFINE_STRING( BGl_string6562z00zzsaw_c_codez00, BgL_bgl_string6562za700za7za7saw_c_codeza7006847z00, "(", 1 );
DEFINE_STRING( BGl_string6561z00zzsaw_c_codez00, BgL_bgl_string6561za700za7za7saw_c_codeza7006848z00, "}\n", 2 );
DEFINE_STRING( BGl_string6560z00zzsaw_c_codez00, BgL_bgl_string6560za700za7za7saw_c_codeza7006849z00, " struct befored befored;\n", 25 );
DEFINE_STRING( BGl_string6559z00zzsaw_c_codez00, BgL_bgl_string6559za700za7za7saw_c_codeza7006850z00, " struct exitd exitd;\n", 21 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzsaw_c_codez00(long BgL_checksumz00_3445, char * BgL_fromz00_3446)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzsaw_c_codez00))
{ 
BGl_requirezd2initializa7ationz75zzsaw_c_codez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzsaw_c_codez00(); 
BGl_cnstzd2initzd2zzsaw_c_codez00(); 
BGl_importedzd2moduleszd2initz00zzsaw_c_codez00(); 
BGl_objectzd2initzd2zzsaw_c_codez00(); 
BGl_methodzd2initzd2zzsaw_c_codez00(); 
BGl_toplevelzd2initzd2zzsaw_c_codez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzsaw_c_codez00()
{ AN_OBJECT;
{ /* ./SawC/code.scm 1 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)0), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)0), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zz__biglooz00(((long)0), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(((long)0), "saw_c_code"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzsaw_c_codez00()
{ AN_OBJECT;
{ /* ./SawC/code.scm 1 */
{ /* ./SawC/code.scm 1 */
obj_t BgL_cportz00_3423;
BgL_cportz00_3423 = 
open_input_string(BGl_string6678z00zzsaw_c_codez00); 
{ 
long BgL_iz00_3424;
BgL_iz00_3424 = ((long)6); 
BgL_loopz00_3425:
{ /* ./SawC/code.scm 1 */
bool_t BgL_test6680z00_3426;
BgL_test6680z00_3426 = 
(BgL_iz00_3424==((long)-1)); 
if(BgL_test6680z00_3426)
{ /* ./SawC/code.scm 1 */
return BUNSPEC;}  else 
{ /* ./SawC/code.scm 1 */
{ /* ./SawC/code.scm 1 */
obj_t BgL_arg6682z00_3427;
{ /* ./SawC/code.scm 1 */
obj_t BgL_list6685z00_3428;
BgL_list6685z00_3428 = 
MAKE_PAIR(BgL_cportz00_3423, BNIL); 
BgL_arg6682z00_3427 = 
BGl_readz00zz__readerz00(BgL_list6685z00_3428); } 
{ /* ./SawC/code.scm 1 */
int BgL_auxz00_3471;
BgL_auxz00_3471 = 
(int)(BgL_iz00_3424); 
CNST_TABLE_SET(BgL_auxz00_3471, BgL_arg6682z00_3427); } } 
{ /* ./SawC/code.scm 1 */
int BgL_auxz00_3429;
{ /* ./SawC/code.scm 1 */
long BgL_auxz00_3474;
BgL_auxz00_3474 = 
(BgL_iz00_3424-((long)1)); 
BgL_auxz00_3429 = 
(int)(BgL_auxz00_3474); } 
{ 
long BgL_iz00_3477;
BgL_iz00_3477 = 
(long)(BgL_auxz00_3429); 
BgL_iz00_3424 = BgL_iz00_3477; 
goto BgL_loopz00_3425;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzsaw_c_codez00()
{ AN_OBJECT;
{ /* ./SawC/code.scm 1 */
BGl_za2commentza2z00zzsaw_c_codez00 = ((bool_t)0); 
BGl_za2traceza2z00zzsaw_c_codez00 = ((bool_t)0); 
BGl_za2countza2z00zzsaw_c_codez00 = ((bool_t)0); 
BGl_za2inlinezd2simplezd2macrosza2z00zzsaw_c_codez00 = ((bool_t)1); 
BGl_za2counterza2z00zzsaw_c_codez00 = ((long)0); 
BGl_za2hasprotectza2z00zzsaw_c_codez00 = ((bool_t)0); 
BGl_za2haspushexitza2z00zzsaw_c_codez00 = ((bool_t)0); 
BGl_za2haspushbeforeza2z00zzsaw_c_codez00 = ((bool_t)0); 
BGl_za2pushtraceemmitedza2z00zzsaw_c_codez00 = ((long)0); 
return ( 
BGl_za2badzd2macrosza2zd2zzsaw_c_codez00 = 
CNST_TABLE_REF(((long)0)), BUNSPEC) ;} 
}



/* saw-cheader */
BGL_EXPORTED_DEF obj_t BGl_sawzd2cheaderzd2zzsaw_c_codez00()
{ AN_OBJECT;
{ /* ./SawC/code.scm 37 */
return 
BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BGl_za2czd2portza2zd2zzbackend_c_emitz00, BGl_proc6553z00zzsaw_c_codez00);} 
}



/* _saw-cheader */
obj_t BGl__sawzd2cheaderzd2zzsaw_c_codez00(obj_t BgL_envz00_3249)
{ AN_OBJECT;
{ /* ./SawC/code.scm 37 */
return 
BGl_sawzd2cheaderzd2zzsaw_c_codez00();} 
}



/* <anonymous:3672> */
obj_t BGl_zc3anonymousza33672ze3z83zzsaw_c_codez00(obj_t BgL_envz00_3250)
{ AN_OBJECT;
{ /* ./SawC/code.scm 39 */
return 
BGl_headerz00zzsaw_c_codez00();} 
}



/* header */
obj_t BGl_headerz00zzsaw_c_codez00()
{ AN_OBJECT;
{ /* ./SawC/code.scm 41 */
{ /* ./SawC/code.scm 47 */
obj_t BgL_arg3692z00_1167;
BgL_arg3692z00_1167 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6554z00zzsaw_c_codez00, BgL_arg3692z00_1167);} } 
}



/* saw-cepilogue */
BGL_EXPORTED_DEF obj_t BGl_sawzd2cepiloguezd2zzsaw_c_codez00()
{ AN_OBJECT;
{ /* ./SawC/code.scm 49 */
return 
BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BGl_za2czd2portza2zd2zzbackend_c_emitz00, BGl_proc6555z00zzsaw_c_codez00);} 
}



/* _saw-cepilogue */
obj_t BGl__sawzd2cepiloguezd2zzsaw_c_codez00(obj_t BgL_envz00_3252)
{ AN_OBJECT;
{ /* ./SawC/code.scm 49 */
return 
BGl_sawzd2cepiloguezd2zzsaw_c_codez00();} 
}



/* <anonymous:3699> */
obj_t BGl_zc3anonymousza33699ze3z83zzsaw_c_codez00(obj_t BgL_envz00_3253)
{ AN_OBJECT;
{ /* ./SawC/code.scm 51 */
return 
BGl_cepiloguez00zzsaw_c_codez00();} 
}



/* cepilogue */
obj_t BGl_cepiloguez00zzsaw_c_codez00()
{ AN_OBJECT;
{ /* ./SawC/code.scm 53 */
{ /* ./SawC/code.scm 54 */
obj_t BgL_arg3703z00_1172;
BgL_arg3703z00_1172 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6554z00zzsaw_c_codez00, BgL_arg3703z00_1172); } 
return BFALSE;} 
}



/* saw-cgen */
BGL_EXPORTED_DEF obj_t BGl_sawzd2cgenzd2zzsaw_c_codez00(BgL_cvmz00_bglt BgL_bz00_15, BgL_globalz00_bglt BgL_vz00_16)
{ AN_OBJECT;
{ /* ./SawC/code.scm 65 */
{ /* ./SawC/code.scm 66 */
obj_t BgL_lz00_1195;
BgL_lz00_1195 = 
BGl_globalzd2ze3blocksz31zzsaw_woodcutterz00(
(BgL_backendz00_bglt)(BgL_bz00_15), BgL_vz00_16); 
BGl_za2hasprotectza2z00zzsaw_c_codez00 = ((bool_t)0); 
BGl_za2haspushexitza2z00zzsaw_c_codez00 = ((bool_t)0); 
BGl_za2haspushbeforeza2z00zzsaw_c_codez00 = ((bool_t)0); 
BGl_za2pushtraceemmitedza2z00zzsaw_c_codez00 = ((long)0); 
{ /* ./SawC/code.scm 72 */
obj_t BgL_zc3anonymousza33765ze3z83_3254;
{ 
int BgL_auxz00_3494;int BgL_auxz00_3492;
BgL_auxz00_3494 = 
(int)(((long)3)); 
BgL_auxz00_3492 = 
(int)(((long)0)); 
BgL_zc3anonymousza33765ze3z83_3254 = 
make_fx_procedure(BGl_zc3anonymousza33765ze3z83zzsaw_c_codez00, BgL_auxz00_3492, BgL_auxz00_3494); } 
{ /* ./SawC/code.scm 72 */
obj_t BgL_auxz00_3499;int BgL_auxz00_3497;
BgL_auxz00_3499 = 
(obj_t)(BgL_bz00_15); 
BgL_auxz00_3497 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33765ze3z83_3254, BgL_auxz00_3497, BgL_auxz00_3499); } 
{ /* ./SawC/code.scm 72 */
obj_t BgL_auxz00_3504;int BgL_auxz00_3502;
BgL_auxz00_3504 = 
(obj_t)(BgL_vz00_16); 
BgL_auxz00_3502 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza33765ze3z83_3254, BgL_auxz00_3502, BgL_auxz00_3504); } 
{ /* ./SawC/code.scm 72 */
int BgL_auxz00_3507;
BgL_auxz00_3507 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza33765ze3z83_3254, BgL_auxz00_3507, BgL_lz00_1195); } 
return 
BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BGl_za2czd2portza2zd2zzbackend_c_emitz00, BgL_zc3anonymousza33765ze3z83_3254);} } } 
}



/* _saw-cgen */
obj_t BGl__sawzd2cgenzd2zzsaw_c_codez00(obj_t BgL_envz00_3255, obj_t BgL_bz00_3256, obj_t BgL_vz00_3257)
{ AN_OBJECT;
{ /* ./SawC/code.scm 65 */
return 
BGl_sawzd2cgenzd2zzsaw_c_codez00(
(BgL_cvmz00_bglt)(BgL_bz00_3256), 
(BgL_globalz00_bglt)(BgL_vz00_3257));} 
}



/* <anonymous:3765> */
obj_t BGl_zc3anonymousza33765ze3z83zzsaw_c_codez00(obj_t BgL_envz00_3258)
{ AN_OBJECT;
{ /* ./SawC/code.scm 72 */
{ /* ./SawC/code.scm 72 */
obj_t BgL_bz00_3259;obj_t BgL_vz00_3260;obj_t BgL_lz00_3261;
{ /* ./SawC/code.scm 72 */
int BgL_auxz00_3514;
BgL_auxz00_3514 = 
(int)(((long)0)); 
BgL_bz00_3259 = 
PROCEDURE_REF(BgL_envz00_3258, BgL_auxz00_3514); } 
{ /* ./SawC/code.scm 72 */
int BgL_auxz00_3517;
BgL_auxz00_3517 = 
(int)(((long)1)); 
BgL_vz00_3260 = 
PROCEDURE_REF(BgL_envz00_3258, BgL_auxz00_3517); } 
{ /* ./SawC/code.scm 72 */
int BgL_auxz00_3520;
BgL_auxz00_3520 = 
(int)(((long)2)); 
BgL_lz00_3261 = 
PROCEDURE_REF(BgL_envz00_3258, BgL_auxz00_3520); } 
{ 

return 
BGl_genfunz00zzsaw_c_codez00(
(BgL_cvmz00_bglt)(BgL_bz00_3259), 
(BgL_globalz00_bglt)(BgL_vz00_3260), BgL_lz00_3261);} } } 
}



/* genfun */
obj_t BGl_genfunz00zzsaw_c_codez00(BgL_cvmz00_bglt BgL_bz00_17, BgL_globalz00_bglt BgL_vz00_18, obj_t BgL_lz00_19)
{ AN_OBJECT;
{ /* ./SawC/code.scm 74 */
{ /* ./SawC/code.scm 76 */
BgL_valuez00_bglt BgL_instance3494z00_1200;
{ /* ./SawC/code.scm 77 */
BgL_variablez00_bglt BgL_obj1100z00_2591;
BgL_obj1100z00_2591 = 
(BgL_variablez00_bglt)(BgL_vz00_18); 
BgL_instance3494z00_1200 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2591))->BgL_valuez00); } 
{ /* ./SawC/code.scm 77 */
obj_t BgL_paramsz00_1201;
{ /* ./SawC/code.scm 77 */
obj_t BgL_l3496z00_1239;
{ /* ./SawC/code.scm 77 */
BgL_sfunz00_bglt BgL_obj1367z00_2592;
BgL_obj1367z00_2592 = 
(BgL_sfunz00_bglt)(BgL_instance3494z00_1200); 
BgL_l3496z00_1239 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_2592))->BgL_argsz00); } 
{ /* ./SawC/code.scm 77 */
bool_t BgL_test3861z00_1240;
BgL_test3861z00_1240 = 
NULLP(BgL_l3496z00_1239); 
if(BgL_test3861z00_1240)
{ /* ./SawC/code.scm 77 */
BgL_paramsz00_1201 = BNIL; }  else 
{ /* ./SawC/code.scm 77 */
obj_t BgL_head3498z00_1241;
{ /* ./SawC/code.scm 77 */
BgL_rtl_regz00_bglt BgL_arg3882z00_1252;
{ /* ./SawC/code.scm 77 */
obj_t BgL_arg3886z00_1254;
BgL_arg3886z00_1254 = 
CAR(BgL_l3496z00_1239); 
BgL_arg3882z00_1252 = 
BGl_localzd2ze3regz31zzsaw_node2rtlz00(
(BgL_localz00_bglt)(BgL_arg3886z00_1254)); } 
{ /* ./SawC/code.scm 77 */
obj_t BgL_obj1z00_2595;
BgL_obj1z00_2595 = 
(obj_t)(BgL_arg3882z00_1252); 
BgL_head3498z00_1241 = 
MAKE_PAIR(BgL_obj1z00_2595, BNIL); } } 
{ 
obj_t BgL_l3496z00_1242;obj_t BgL_tail3499z00_1243;
{ /* ./SawC/code.scm 77 */
obj_t BgL_arg3863z00_1245;
BgL_arg3863z00_1245 = 
CDR(BgL_l3496z00_1239); 
BgL_l3496z00_1242 = BgL_arg3863z00_1245; 
BgL_tail3499z00_1243 = BgL_head3498z00_1241; 
BgL_map3497z00_1244:
{ /* ./SawC/code.scm 77 */
bool_t BgL_test3866z00_1246;
BgL_test3866z00_1246 = 
NULLP(BgL_l3496z00_1242); 
if(BgL_test3866z00_1246)
{ /* ./SawC/code.scm 77 */
BgL_paramsz00_1201 = BgL_head3498z00_1241; }  else 
{ /* ./SawC/code.scm 77 */
obj_t BgL_newtail3500z00_1247;
{ /* ./SawC/code.scm 77 */
BgL_rtl_regz00_bglt BgL_arg3873z00_1249;
{ /* ./SawC/code.scm 77 */
obj_t BgL_arg3877z00_1251;
BgL_arg3877z00_1251 = 
CAR(BgL_l3496z00_1242); 
BgL_arg3873z00_1249 = 
BGl_localzd2ze3regz31zzsaw_node2rtlz00(
(BgL_localz00_bglt)(BgL_arg3877z00_1251)); } 
{ /* ./SawC/code.scm 77 */
obj_t BgL_obj1z00_2600;
BgL_obj1z00_2600 = 
(obj_t)(BgL_arg3873z00_1249); 
BgL_newtail3500z00_1247 = 
MAKE_PAIR(BgL_obj1z00_2600, BNIL); } } 
SET_CDR(BgL_tail3499z00_1243, BgL_newtail3500z00_1247); 
{ /* ./SawC/code.scm 77 */
obj_t BgL_arg3869z00_1248;
BgL_arg3869z00_1248 = 
CDR(BgL_l3496z00_1242); 
{ 
obj_t BgL_tail3499z00_3548;obj_t BgL_l3496z00_3547;
BgL_l3496z00_3547 = BgL_arg3869z00_1248; 
BgL_tail3499z00_3548 = BgL_newtail3500z00_1247; 
BgL_tail3499z00_1243 = BgL_tail3499z00_3548; 
BgL_l3496z00_1242 = BgL_l3496z00_3547; 
goto BgL_map3497z00_1244;} } } } } } } } } 
BGl_buildzd2treezd2zzsaw_exprz00(
(BgL_backendz00_bglt)(BgL_bz00_17), BgL_paramsz00_1201, BgL_lz00_19); 
{ /* ./SawC/code.scm 79 */
obj_t BgL_localsz00_1202;
BgL_localsz00_1202 = 
BGl_getzd2localszd2zzsaw_c_codez00(BgL_paramsz00_1201, BgL_lz00_19); 
{ /* ./SawC/code.scm 81 */
obj_t BgL_insz00_1209;
{ /* ./SawC/code.scm 81 */
obj_t BgL_auxz00_3552;
{ /* ./SawC/code.scm 81 */
BgL_blockz00_bglt BgL_obj3444z00_2607;
{ /* ./SawC/code.scm 81 */
obj_t BgL_auxz00_3553;
BgL_auxz00_3553 = 
CAR(BgL_lz00_19); 
BgL_obj3444z00_2607 = 
(BgL_blockz00_bglt)(BgL_auxz00_3553); } 
BgL_auxz00_3552 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3444z00_2607))->BgL_firstz00); } 
BgL_insz00_1209 = 
CAR(BgL_auxz00_3552); } 
{ /* ./SawC/code.scm 82 */
bool_t BgL_test3784z00_1210;
if(
CBOOL(BGl_za2czd2debugzd2lineszd2infoza2zd2zzengine_paramz00))
{ /* ./SawC/code.scm 82 */
if(
CBOOL(BGl_za2bdbzd2debugzd2nozd2linezd2directiveszf3za2zf3zzengine_paramz00))
{ /* ./SawC/code.scm 83 */
BgL_test3784z00_1210 = ((bool_t)0); }  else 
{ /* ./SawC/code.scm 83 */
BgL_test3784z00_1210 = ((bool_t)1); } }  else 
{ /* ./SawC/code.scm 82 */
BgL_test3784z00_1210 = ((bool_t)0); } 
if(BgL_test3784z00_1210)
{ /* ./SawC/code.scm 84 */
bool_t BgL__ortest_3501z00_1211;
{ /* ./SawC/code.scm 84 */
obj_t BgL_arg3791z00_1213;
{ /* ./SawC/code.scm 84 */
BgL_sfunz00_bglt BgL_obj1380z00_2609;
BgL_obj1380z00_2609 = 
(BgL_sfunz00_bglt)(BgL_instance3494z00_1200); 
BgL_arg3791z00_1213 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1380z00_2609))->BgL_locz00); } 
BgL__ortest_3501z00_1211 = 
BGl_printzd2locationzf3z21zzsaw_c_codez00(BgL_arg3791z00_1213); } 
if(BgL__ortest_3501z00_1211)
{ /* ./SawC/code.scm 85 */BgL__ortest_3501z00_1211; }  else 
{ /* ./SawC/code.scm 85 */
obj_t BgL_arg3786z00_1212;
BgL_arg3786z00_1212 = 
BGl_findzd2locationzd2zzsaw_c_codez00(
(BgL_rtl_insz00_bglt)(BgL_insz00_1209)); 
BGl_printzd2locationzf3z21zzsaw_c_codez00(BgL_arg3786z00_1212); } }  else 
{ /* ./SawC/code.scm 82 */((bool_t)0); } } } 
{ /* ./SawC/code.scm 86 */
BgL_typez00_bglt BgL_arg3802z00_1216;
{ /* ./SawC/code.scm 86 */
BgL_variablez00_bglt BgL_obj1097z00_2610;
BgL_obj1097z00_2610 = 
(BgL_variablez00_bglt)(BgL_vz00_18); 
BgL_arg3802z00_1216 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2610))->BgL_typez00); } 
{ /* ./SawC/code.scm 86 */
obj_t BgL_arg4392z00_2612;
BgL_arg4392z00_2612 = 
(((BgL_typez00_bglt)CREF(BgL_arg3802z00_1216))->BgL_namez00); 
{ /* ./SawC/code.scm 86 */
obj_t BgL_list4394z00_2613;
BgL_list4394z00_2613 = 
MAKE_PAIR(BgL_arg4392z00_2612, BNIL); 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list4394z00_2613); } } } 
{ /* ./SawC/code.scm 87 */
obj_t BgL_arg3807z00_1218;
{ /* ./SawC/code.scm 87 */
obj_t BgL_arg4403z00_2616;
{ /* ./SawC/code.scm 87 */
BgL_variablez00_bglt BgL_obj1094z00_2617;
BgL_obj1094z00_2617 = 
(BgL_variablez00_bglt)(BgL_vz00_18); 
BgL_arg4403z00_2616 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_2617))->BgL_namez00); } 
BgL_arg3807z00_1218 = 
BGl_patchz00zzsaw_c_codez00(BgL_arg4403z00_2616); } 
{ /* ./SawC/code.scm 87 */
obj_t BgL_list3809z00_1219;
{ /* ./SawC/code.scm 87 */
obj_t BgL_arg3811z00_1220;
BgL_arg3811z00_1220 = 
MAKE_PAIR(BgL_arg3807z00_1218, BNIL); 
BgL_list3809z00_1219 = 
MAKE_PAIR(BGl_string6556z00zzsaw_c_codez00, BgL_arg3811z00_1220); } 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list3809z00_1219); } } 
BGl_genzd2typezd2regsz00zzsaw_c_codez00(BgL_paramsz00_1201); 
{ /* ./SawC/code.scm 89 */
obj_t BgL_arg3818z00_1222;
BgL_arg3818z00_1222 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6557z00zzsaw_c_codez00, BgL_arg3818z00_1222); } 
if(BGl_za2hasprotectza2z00zzsaw_c_codez00)
{ /* ./SawC/code.scm 90 */
obj_t BgL_arg3823z00_1224;
BgL_arg3823z00_1224 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6558z00zzsaw_c_codez00, BgL_arg3823z00_1224); }  else 
{ /* ./SawC/code.scm 90 */BFALSE; } 
if(BGl_za2haspushexitza2z00zzsaw_c_codez00)
{ /* ./SawC/code.scm 91 */
obj_t BgL_arg3828z00_1226;
BgL_arg3828z00_1226 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6559z00zzsaw_c_codez00, BgL_arg3828z00_1226); }  else 
{ /* ./SawC/code.scm 91 */BFALSE; } 
if(BGl_za2haspushbeforeza2z00zzsaw_c_codez00)
{ /* ./SawC/code.scm 92 */
obj_t BgL_arg3833z00_1228;
BgL_arg3833z00_1228 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6560z00zzsaw_c_codez00, BgL_arg3833z00_1228); }  else 
{ /* ./SawC/code.scm 92 */BFALSE; } 
BGl_declarezd2regszd2zzsaw_c_codez00(BgL_localsz00_1202); BFALSE; } } } 
BGl_genbodyz00zzsaw_c_codez00(BgL_lz00_19); 
{ /* ./SawC/code.scm 96 */
obj_t BgL_arg3894z00_1255;obj_t BgL_arg3895z00_1256;
{ /* ./SawC/code.scm 96 */
obj_t BgL_list3898z00_1257;
{ /* ./SawC/code.scm 96 */
obj_t BgL_auxz00_3595;
BgL_auxz00_3595 = 
BCHAR(((unsigned char)'}')); 
BgL_list3898z00_1257 = 
MAKE_PAIR(BgL_auxz00_3595, BNIL); } 
{ /* ./SawC/code.scm 96 */
obj_t BgL_res5947z00_2626;
{ /* ./SawC/code.scm 96 */
int BgL_kz00_2620;
BgL_kz00_2620 = 
(int)(BGl_za2pushtraceemmitedza2z00zzsaw_c_codez00); 
{ /* ./SawC/code.scm 96 */
obj_t BgL_arg1236z00_2623;
BgL_arg1236z00_2623 = 
CAR(BgL_list3898z00_1257); 
{ /* ./SawC/code.scm 96 */
unsigned char BgL_auxz00_3600;
BgL_auxz00_3600 = 
(unsigned char)CCHAR(BgL_arg1236z00_2623); 
BgL_res5947z00_2626 = 
make_string(BgL_kz00_2620, BgL_auxz00_3600); } } } 
BgL_arg3894z00_1255 = BgL_res5947z00_2626; } } 
BgL_arg3895z00_1256 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3894z00_1255, BgL_arg3895z00_1256); } 
{ /* ./SawC/code.scm 97 */
obj_t BgL_arg3903z00_1259;
BgL_arg3903z00_1259 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6561z00zzsaw_c_codez00, BgL_arg3903z00_1259);} } 
}



/* get-locals */
obj_t BGl_getzd2localszd2zzsaw_c_codez00(obj_t BgL_paramsz00_20, obj_t BgL_lz00_21)
{ AN_OBJECT;
{ /* ./SawC/code.scm 99 */
{ /* ./SawC/code.scm 101 */
obj_t BgL_nz00_1260;obj_t BgL_regsz00_1261;
{ /* ./SawC/code.scm 101 */
obj_t BgL_cellvalz00_3607;
BgL_cellvalz00_3607 = 
BINT(((long)0)); 
BgL_nz00_1260 = 
MAKE_CELL(BgL_cellvalz00_3607); } 
BgL_regsz00_1261 = 
MAKE_CELL(BNIL); 
{ 
BgL_blockz00_bglt BgL_bz00_1275;
{ 
obj_t BgL_l3515z00_1265;
BgL_l3515z00_1265 = BgL_paramsz00_20; 
BgL_forzd2each3516zd2_1266:
{ /* ./SawC/code.scm 124 */
bool_t BgL_test3907z00_1267;
BgL_test3907z00_1267 = 
PAIRP(BgL_l3515z00_1265); 
if(BgL_test3907z00_1267)
{ /* ./SawC/code.scm 124 */
{ /* ./SawC/code.scm 124 */
obj_t BgL_arg3909z00_1268;
BgL_arg3909z00_1268 = 
CAR(BgL_l3515z00_1265); 
BGl_exprzd2ze3iregz31zzsaw_c_codez00(BgL_regsz00_1261, BgL_nz00_1260, BgL_arg3909z00_1268); } 
{ /* ./SawC/code.scm 124 */
obj_t BgL_arg3913z00_1269;
BgL_arg3913z00_1269 = 
CDR(BgL_l3515z00_1265); 
{ 
obj_t BgL_l3515z00_3614;
BgL_l3515z00_3614 = BgL_arg3913z00_1269; 
BgL_l3515z00_1265 = BgL_l3515z00_3614; 
goto BgL_forzd2each3516zd2_1266;} } }  else 
{ /* ./SawC/code.scm 124 */((bool_t)1); } } } 
CELL_SET(BgL_regsz00_1261, BNIL); 
{ 
obj_t BgL_l3517z00_1270;
BgL_l3517z00_1270 = BgL_lz00_21; 
BgL_forzd2each3518zd2_1271:
{ /* ./SawC/code.scm 126 */
bool_t BgL_test3918z00_1272;
BgL_test3918z00_1272 = 
PAIRP(BgL_l3517z00_1270); 
if(BgL_test3918z00_1272)
{ /* ./SawC/code.scm 126 */
{ /* ./SawC/code.scm 126 */
obj_t BgL_arg3920z00_1273;
BgL_arg3920z00_1273 = 
CAR(BgL_l3517z00_1270); 
BgL_bz00_1275 = 
(BgL_blockz00_bglt)(BgL_arg3920z00_1273); 
{ 
obj_t BgL_l3509z00_1277;
{ /* ./SawC/code.scm 123 */
obj_t BgL_arg3930z00_1279;
BgL_arg3930z00_1279 = 
(((BgL_blockz00_bglt)CREF(BgL_bz00_1275))->BgL_firstz00); 
BgL_l3509z00_1277 = BgL_arg3930z00_1279; 
BgL_forzd2each3510zd2_1278:
{ /* ./SawC/code.scm 117 */
bool_t BgL_test3933z00_1280;
BgL_test3933z00_1280 = 
PAIRP(BgL_l3509z00_1277); 
if(BgL_test3933z00_1280)
{ /* ./SawC/code.scm 117 */
{ /* ./SawC/code.scm 119 */
obj_t BgL_insz00_1281;
BgL_insz00_1281 = 
CAR(BgL_l3509z00_1277); 
{ /* ./SawC/code.scm 120 */
BgL_rtl_funz00_bglt BgL_arg3935z00_1283;
{ /* ./SawC/code.scm 120 */
BgL_rtl_insz00_bglt BgL_obj3412z00_2636;
BgL_obj3412z00_2636 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1281); 
BgL_arg3935z00_1283 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3412z00_2636))->BgL_funz00); } 
BGl_check_funz00zzsaw_c_codez00(BgL_arg3935z00_1283); } 
{ /* ./SawC/code.scm 121 */
bool_t BgL_test3938z00_1284;
{ /* ./SawC/code.scm 121 */
BgL_rtl_insz00_bglt BgL_obj3409z00_2637;
BgL_obj3409z00_2637 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1281); 
{ /* ./SawC/code.scm 121 */
obj_t BgL_auxz00_3626;
BgL_auxz00_3626 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3409z00_2637))->BgL_destz00); 
BgL_test3938z00_1284 = 
CBOOL(BgL_auxz00_3626); } } 
if(BgL_test3938z00_1284)
{ /* ./SawC/code.scm 121 */
obj_t BgL_arg3940z00_1285;
{ /* ./SawC/code.scm 121 */
BgL_rtl_insz00_bglt BgL_obj3409z00_2638;
BgL_obj3409z00_2638 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1281); 
BgL_arg3940z00_1285 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3409z00_2638))->BgL_destz00); } 
BGl_exprzd2ze3iregz31zzsaw_c_codez00(BgL_regsz00_1261, BgL_nz00_1260, BgL_arg3940z00_1285); }  else 
{ /* ./SawC/code.scm 121 */BFALSE; } } 
{ 
obj_t BgL_l3513z00_1286;
{ /* ./SawC/code.scm 122 */
obj_t BgL_arg3945z00_1288;
{ /* ./SawC/code.scm 122 */
BgL_rtl_insz00_bglt BgL_obj3415z00_2639;
BgL_obj3415z00_2639 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1281); 
BgL_arg3945z00_1288 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3415z00_2639))->BgL_argsz00); } 
BgL_l3513z00_1286 = BgL_arg3945z00_1288; 
BgL_forzd2each3514zd2_1287:
{ /* ./SawC/code.scm 122 */
bool_t BgL_test3948z00_1289;
BgL_test3948z00_1289 = 
PAIRP(BgL_l3513z00_1286); 
if(BgL_test3948z00_1289)
{ /* ./SawC/code.scm 122 */
{ /* ./SawC/code.scm 122 */
obj_t BgL_arg3950z00_1290;
BgL_arg3950z00_1290 = 
CAR(BgL_l3513z00_1286); 
BGl_exprzd2ze3iregz31zzsaw_c_codez00(BgL_regsz00_1261, BgL_nz00_1260, BgL_arg3950z00_1290); } 
{ /* ./SawC/code.scm 122 */
obj_t BgL_arg3954z00_1291;
BgL_arg3954z00_1291 = 
CDR(BgL_l3513z00_1286); 
{ 
obj_t BgL_l3513z00_3640;
BgL_l3513z00_3640 = BgL_arg3954z00_1291; 
BgL_l3513z00_1286 = BgL_l3513z00_3640; 
goto BgL_forzd2each3514zd2_1287;} } }  else 
{ /* ./SawC/code.scm 122 */((bool_t)1); } } } } } 
{ /* ./SawC/code.scm 117 */
obj_t BgL_arg3960z00_1292;
BgL_arg3960z00_1292 = 
CDR(BgL_l3509z00_1277); 
{ 
obj_t BgL_l3509z00_3642;
BgL_l3509z00_3642 = BgL_arg3960z00_1292; 
BgL_l3509z00_1277 = BgL_l3509z00_3642; 
goto BgL_forzd2each3510zd2_1278;} } }  else 
{ /* ./SawC/code.scm 117 */((bool_t)1); } } } } } 
{ /* ./SawC/code.scm 126 */
obj_t BgL_arg3924z00_1274;
BgL_arg3924z00_1274 = 
CDR(BgL_l3517z00_1270); 
{ 
obj_t BgL_l3517z00_3645;
BgL_l3517z00_3645 = BgL_arg3924z00_1274; 
BgL_l3517z00_1270 = BgL_l3517z00_3645; 
goto BgL_forzd2each3518zd2_1271;} } }  else 
{ /* ./SawC/code.scm 126 */((bool_t)1); } } } 
return 
CELL_REF(BgL_regsz00_1261);} } } 
}



/* check_fun */
obj_t BGl_check_funz00zzsaw_c_codez00(BgL_rtl_funz00_bglt BgL_funz00_1318)
{ AN_OBJECT;
{ /* ./SawC/code.scm 103 */
{ /* ./SawC/code.scm 103 */
bool_t BgL_test4016z00_1320;
{ /* ./SawC/code.scm 103 */
obj_t BgL_obj3376z00_2672;
BgL_obj3376z00_2672 = 
(obj_t)(BgL_funz00_1318); 
BgL_test4016z00_1320 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3376z00_2672, BGl_rtl_protectz00zzsaw_defsz00); } 
if(BgL_test4016z00_1320)
{ /* ./SawC/code.scm 103 */
BGl_za2hasprotectza2z00zzsaw_c_codez00 = ((bool_t)1); }  else 
{ /* ./SawC/code.scm 103 */BFALSE; } } 
{ /* ./SawC/code.scm 104 */
bool_t BgL_test4018z00_1321;
{ /* ./SawC/code.scm 104 */
obj_t BgL_obj3340z00_2673;
BgL_obj3340z00_2673 = 
(obj_t)(BgL_funz00_1318); 
BgL_test4018z00_1321 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3340z00_2673, BGl_rtl_callz00zzsaw_defsz00); } 
if(BgL_test4018z00_1321)
{ /* ./SawC/code.scm 105 */
obj_t BgL_idz00_1322;
{ /* ./SawC/code.scm 105 */
BgL_variablez00_bglt BgL_obj1093z00_2675;
{ /* ./SawC/code.scm 105 */
BgL_globalz00_bglt BgL_auxz00_3652;
{ /* ./SawC/code.scm 105 */
BgL_rtl_callz00_bglt BgL_obj3331z00_2674;
BgL_obj3331z00_2674 = 
(BgL_rtl_callz00_bglt)(BgL_funz00_1318); 
BgL_auxz00_3652 = 
(((BgL_rtl_callz00_bglt)CREF(BgL_obj3331z00_2674))->BgL_varz00); } 
BgL_obj1093z00_2675 = 
(BgL_variablez00_bglt)(BgL_auxz00_3652); } 
BgL_idz00_1322 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_2675))->BgL_idz00); } 
{ /* ./SawC/code.scm 106 */
bool_t BgL_test4019z00_1323;
{ /* ./SawC/code.scm 106 */
obj_t BgL_auxz00_3657;
BgL_auxz00_3657 = 
CNST_TABLE_REF(((long)1)); 
BgL_test4019z00_1323 = 
(BgL_idz00_1322==BgL_auxz00_3657); } 
if(BgL_test4019z00_1323)
{ /* ./SawC/code.scm 106 */
BGl_za2haspushexitza2z00zzsaw_c_codez00 = ((bool_t)1); }  else 
{ /* ./SawC/code.scm 106 */BFALSE; } } 
{ /* ./SawC/code.scm 107 */
bool_t BgL_test4021z00_1324;
{ /* ./SawC/code.scm 107 */
obj_t BgL_auxz00_3661;
BgL_auxz00_3661 = 
CNST_TABLE_REF(((long)2)); 
BgL_test4021z00_1324 = 
(BgL_idz00_1322==BgL_auxz00_3661); } 
if(BgL_test4021z00_1324)
{ /* ./SawC/code.scm 107 */
return ( 
BGl_za2haspushbeforeza2z00zzsaw_c_codez00 = ((bool_t)1), BUNSPEC) ;}  else 
{ /* ./SawC/code.scm 107 */
return BFALSE;} } }  else 
{ /* ./SawC/code.scm 104 */
return BFALSE;} } } 
}



/* expr->ireg */
obj_t BGl_exprzd2ze3iregz31zzsaw_c_codez00(obj_t BgL_regsz00_3418, obj_t BgL_nz00_3417, obj_t BgL_ez00_1293)
{ AN_OBJECT;
{ /* ./SawC/code.scm 115 */
{ /* ./SawC/code.scm 110 */
bool_t BgL__ortest_3502z00_1295;
BgL__ortest_3502z00_1295 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_1293, BGl_iregz00zzsaw_c_codez00); 
if(BgL__ortest_3502z00_1295)
{ /* ./SawC/code.scm 110 */
return 
BBOOL(BgL__ortest_3502z00_1295);}  else 
{ /* ./SawC/code.scm 111 */
bool_t BgL_test3965z00_1296;
BgL_test3965z00_1296 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_1293, BGl_rtl_regz00zzsaw_defsz00); 
if(BgL_test3965z00_1296)
{ /* ./SawC/code.scm 111 */
{ /* ./SawC/code.scm 111 */
BgL_rtl_regz00_bglt BgL_obj3503z00_1297;
{ 
BgL_rtl_regz00_bglt BgL_auxz00_3670;
BgL_auxz00_3670 = 
(BgL_rtl_regz00_bglt)(BgL_ez00_1293); 
BgL_obj3503z00_1297 = 
((BgL_rtl_regz00_bglt)BgL_auxz00_3670); } 
{ /* ./SawC/code.scm 111 */
BgL_iregz00_bglt BgL_arg3967z00_1298;
{ /* ./SawC/code.scm 111 */
long BgL_arg3970z00_1299;
{ /* ./SawC/code.scm 111 */
obj_t BgL_auxz00_3673;
BgL_auxz00_3673 = 
CELL_REF(BgL_nz00_3417); 
BgL_arg3970z00_1299 = 
(long)CINT(BgL_auxz00_3673); } 
{ /* ./SawC/code.scm 111 */
BgL_iregz00_bglt BgL_res5949z00_2652;
{ /* ./SawC/code.scm 111 */
obj_t BgL_index3463z00_2646;
BgL_index3463z00_2646 = 
BINT(BgL_arg3970z00_1299); 
{ /* ./SawC/code.scm 111 */
BgL_iregz00_bglt BgL_new3464z00_2647;
BgL_new3464z00_2647 = 
((BgL_iregz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_iregz00_bgl)))); 
{ /* ./SawC/code.scm 111 */
BgL_iregz00_bglt BgL_res5948z00_2651;
{ /* ./SawC/code.scm 111 */
BgL_iregz00_bglt BgL_new3472z00_2648;
BgL_new3472z00_2648 = BgL_new3464z00_2647; 
{ /* ./SawC/code.scm 111 */
obj_t BgL_index3471z00_2650;
BgL_index3471z00_2650 = BgL_index3463z00_2646; 
((((BgL_iregz00_bglt)CREF(BgL_new3472z00_2648))->BgL_indexz00) = ((obj_t)BgL_index3471z00_2650), BUNSPEC); 
BgL_res5948z00_2651 = BgL_new3472z00_2648; } } BgL_res5948z00_2651; } 
BgL_res5949z00_2652 = BgL_new3464z00_2647; } } 
BgL_arg3967z00_1298 = BgL_res5949z00_2652; } } 
{ /* ./SawC/code.scm 111 */
obj_t BgL_auxz00_3680;BgL_objectz00_bglt BgL_auxz00_3678;
BgL_auxz00_3680 = 
(obj_t)(BgL_arg3967z00_1298); 
BgL_auxz00_3678 = 
(BgL_objectz00_bglt)(BgL_obj3503z00_1297); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3678, BgL_auxz00_3680); } } 
{ /* ./SawC/code.scm 111 */
long BgL_arg3973z00_1300;
BgL_arg3973z00_1300 = 
BGl_classzd2numzd2zz__objectz00(BGl_iregz00zzsaw_c_codez00); 
{ /* ./SawC/code.scm 111 */
BgL_objectz00_bglt BgL_objz00_2653;
BgL_objz00_2653 = 
(BgL_objectz00_bglt)(BgL_obj3503z00_1297); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2653, BgL_arg3973z00_1300); } } 
{ /* ./SawC/code.scm 111 */
obj_t BgL_objz00_2655;
BgL_objz00_2655 = 
(obj_t)(BgL_obj3503z00_1297); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2655); BUNSPEC; } BgL_obj3503z00_1297; } 
{ /* ./SawC/code.scm 112 */
obj_t BgL_auxz00_3419;
{ /* ./SawC/code.scm 112 */
long BgL_za71za7_2656;
{ /* ./SawC/code.scm 112 */
obj_t BgL_auxz00_3688;
BgL_auxz00_3688 = 
CELL_REF(BgL_nz00_3417); 
BgL_za71za7_2656 = 
(long)CINT(BgL_auxz00_3688); } 
{ /* ./SawC/code.scm 112 */
long BgL_auxz00_3690;
BgL_auxz00_3690 = 
(BgL_za71za7_2656+((long)1)); 
BgL_auxz00_3419 = 
BINT(BgL_auxz00_3690); } } 
CELL_SET(BgL_nz00_3417, BgL_auxz00_3419); } 
{ /* ./SawC/code.scm 113 */
obj_t BgL_auxz00_3420;
{ /* ./SawC/code.scm 113 */
obj_t BgL_auxz00_3693;
BgL_auxz00_3693 = 
CELL_REF(BgL_regsz00_3418); 
BgL_auxz00_3420 = 
MAKE_PAIR(BgL_ez00_1293, BgL_auxz00_3693); } 
return 
CELL_SET(BgL_regsz00_3418, BgL_auxz00_3420);} }  else 
{ /* ./SawC/code.scm 111 */
{ /* ./SawC/code.scm 114 */
BgL_rtl_funz00_bglt BgL_arg3980z00_1301;
{ /* ./SawC/code.scm 114 */
BgL_rtl_insz00_bglt BgL_obj3412z00_2658;
BgL_obj3412z00_2658 = 
(BgL_rtl_insz00_bglt)(BgL_ez00_1293); 
BgL_arg3980z00_1301 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3412z00_2658))->BgL_funz00); } 
BGl_check_funz00zzsaw_c_codez00(BgL_arg3980z00_1301); } 
{ /* ./SawC/code.scm 115 */
obj_t BgL_l3504z00_1302;
{ /* ./SawC/code.scm 115 */
BgL_rtl_insz00_bglt BgL_obj3415z00_2659;
BgL_obj3415z00_2659 = 
(BgL_rtl_insz00_bglt)(BgL_ez00_1293); 
BgL_l3504z00_1302 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3415z00_2659))->BgL_argsz00); } 
{ /* ./SawC/code.scm 115 */
bool_t BgL_test3983z00_1303;
BgL_test3983z00_1303 = 
NULLP(BgL_l3504z00_1302); 
if(BgL_test3983z00_1303)
{ /* ./SawC/code.scm 115 */
return BNIL;}  else 
{ /* ./SawC/code.scm 115 */
obj_t BgL_head3506z00_1304;
{ /* ./SawC/code.scm 115 */
obj_t BgL_arg4004z00_1315;
{ /* ./SawC/code.scm 115 */
obj_t BgL_arg4008z00_1317;
BgL_arg4008z00_1317 = 
CAR(BgL_l3504z00_1302); 
BgL_arg4004z00_1315 = 
BGl_exprzd2ze3iregz31zzsaw_c_codez00(BgL_regsz00_3418, BgL_nz00_3417, BgL_arg4008z00_1317); } 
BgL_head3506z00_1304 = 
MAKE_PAIR(BgL_arg4004z00_1315, BNIL); } 
{ 
obj_t BgL_l3504z00_1305;obj_t BgL_tail3507z00_1306;
{ /* ./SawC/code.scm 115 */
obj_t BgL_arg3985z00_1308;
BgL_arg3985z00_1308 = 
CDR(BgL_l3504z00_1302); 
BgL_l3504z00_1305 = BgL_arg3985z00_1308; 
BgL_tail3507z00_1306 = BgL_head3506z00_1304; 
BgL_map3505z00_1307:
{ /* ./SawC/code.scm 115 */
bool_t BgL_test3988z00_1309;
BgL_test3988z00_1309 = 
NULLP(BgL_l3504z00_1305); 
if(BgL_test3988z00_1309)
{ /* ./SawC/code.scm 115 */
return BgL_head3506z00_1304;}  else 
{ /* ./SawC/code.scm 115 */
obj_t BgL_newtail3508z00_1310;
{ /* ./SawC/code.scm 115 */
obj_t BgL_arg3995z00_1312;
{ /* ./SawC/code.scm 115 */
obj_t BgL_arg3999z00_1314;
BgL_arg3999z00_1314 = 
CAR(BgL_l3504z00_1305); 
BgL_arg3995z00_1312 = 
BGl_exprzd2ze3iregz31zzsaw_c_codez00(BgL_regsz00_3418, BgL_nz00_3417, BgL_arg3999z00_1314); } 
BgL_newtail3508z00_1310 = 
MAKE_PAIR(BgL_arg3995z00_1312, BNIL); } 
SET_CDR(BgL_tail3507z00_1306, BgL_newtail3508z00_1310); 
{ /* ./SawC/code.scm 115 */
obj_t BgL_arg3991z00_1311;
BgL_arg3991z00_1311 = 
CDR(BgL_l3504z00_1305); 
{ 
obj_t BgL_tail3507z00_3714;obj_t BgL_l3504z00_3713;
BgL_l3504z00_3713 = BgL_arg3991z00_1311; 
BgL_tail3507z00_3714 = BgL_newtail3508z00_1310; 
BgL_tail3507z00_1306 = BgL_tail3507z00_3714; 
BgL_l3504z00_1305 = BgL_l3504z00_3713; 
goto BgL_map3505z00_1307;} } } } } } } } } } } } } 
}



/* gen-type-regs */
obj_t BGl_genzd2typezd2regsz00zzsaw_c_codez00(obj_t BgL_lz00_22)
{ AN_OBJECT;
{ /* ./SawC/code.scm 129 */
{ /* ./SawC/code.scm 130 */
obj_t BgL_arg4030z00_1330;
BgL_arg4030z00_1330 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6562z00zzsaw_c_codez00, BgL_arg4030z00_1330); } 
{ /* ./SawC/code.scm 131 */
bool_t BgL_test4033z00_1331;
BgL_test4033z00_1331 = 
NULLP(BgL_lz00_22); 
if(BgL_test4033z00_1331)
{ /* ./SawC/code.scm 131 */((bool_t)0); }  else 
{ /* ./SawC/code.scm 131 */
{ /* ./SawC/code.scm 133 */
obj_t BgL_arg4035z00_1332;
BgL_arg4035z00_1332 = 
CAR(BgL_lz00_22); 
BGl_genzd2typezd2regz00zzsaw_c_codez00(BgL_arg4035z00_1332); } 
{ 
obj_t BgL_l3519z00_1333;
{ /* ./SawC/code.scm 135 */
obj_t BgL_arg4039z00_1335;
BgL_arg4039z00_1335 = 
CDR(BgL_lz00_22); 
BgL_l3519z00_1333 = BgL_arg4039z00_1335; 
BgL_forzd2each3520zd2_1334:
{ /* ./SawC/code.scm 134 */
bool_t BgL_test4042z00_1336;
BgL_test4042z00_1336 = 
PAIRP(BgL_l3519z00_1333); 
if(BgL_test4042z00_1336)
{ /* ./SawC/code.scm 134 */
{ /* ./SawC/code.scm 134 */
obj_t BgL_argz00_1337;
BgL_argz00_1337 = 
CAR(BgL_l3519z00_1333); 
{ /* ./SawC/code.scm 134 */
obj_t BgL_arg4045z00_1339;
BgL_arg4045z00_1339 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6563z00zzsaw_c_codez00, BgL_arg4045z00_1339); } 
BGl_genzd2typezd2regz00zzsaw_c_codez00(BgL_argz00_1337); } 
{ /* ./SawC/code.scm 134 */
obj_t BgL_arg4052z00_1340;
BgL_arg4052z00_1340 = 
CDR(BgL_l3519z00_1333); 
{ 
obj_t BgL_l3519z00_3729;
BgL_l3519z00_3729 = BgL_arg4052z00_1340; 
BgL_l3519z00_1333 = BgL_l3519z00_3729; 
goto BgL_forzd2each3520zd2_1334;} } }  else 
{ /* ./SawC/code.scm 134 */((bool_t)1); } } } } } } 
{ /* ./SawC/code.scm 136 */
obj_t BgL_arg4059z00_1342;
BgL_arg4059z00_1342 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6564z00zzsaw_c_codez00, BgL_arg4059z00_1342);} } 
}



/* gen-type-reg */
obj_t BGl_genzd2typezd2regz00zzsaw_c_codez00(obj_t BgL_regz00_23)
{ AN_OBJECT;
{ /* ./SawC/code.scm 138 */
{ /* ./SawC/code.scm 139 */
obj_t BgL_arg4063z00_1343;obj_t BgL_arg4064z00_1344;
{ /* ./SawC/code.scm 139 */
BgL_typez00_bglt BgL_arg4067z00_1345;obj_t BgL_arg4068z00_1346;
{ /* ./SawC/code.scm 139 */
BgL_rtl_regz00_bglt BgL_obj3010z00_2682;
BgL_obj3010z00_2682 = 
(BgL_rtl_regz00_bglt)(BgL_regz00_23); 
BgL_arg4067z00_1345 = 
(((BgL_rtl_regz00_bglt)CREF(BgL_obj3010z00_2682))->BgL_typez00); } 
BgL_arg4068z00_1346 = 
BGl_reg_namez00zzsaw_c_codez00(BgL_regz00_23); 
BgL_arg4063z00_1343 = 
BGl_makezd2typedzd2declarationz00zztype_toolsz00(BgL_arg4067z00_1345, BgL_arg4068z00_1346); } 
BgL_arg4064z00_1344 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4063z00_1343, BgL_arg4064z00_1344);} } 
}



/* reg_name */
obj_t BGl_reg_namez00zzsaw_c_codez00(obj_t BgL_regz00_24)
{ AN_OBJECT;
{ /* ./SawC/code.scm 141 */
{ /* ./SawC/code.scm 142 */
char * BgL_arg4074z00_1347;obj_t BgL_arg4075z00_1348;
{ /* ./SawC/code.scm 142 */
bool_t BgL_testz00_3738;
{ /* ./SawC/code.scm 142 */
BgL_rtl_regz00_bglt BgL_obj3013z00_2683;
BgL_obj3013z00_2683 = 
(BgL_rtl_regz00_bglt)(BgL_regz00_24); 
{ /* ./SawC/code.scm 142 */
obj_t BgL_auxz00_3740;
BgL_auxz00_3740 = 
(((BgL_rtl_regz00_bglt)CREF(BgL_obj3013z00_2683))->BgL_varz00); 
BgL_testz00_3738 = 
CBOOL(BgL_auxz00_3740); } } 
if(BgL_testz00_3738)
{ /* ./SawC/code.scm 142 */
BgL_arg4074z00_1347 = "V"; }  else 
{ /* ./SawC/code.scm 142 */
BgL_arg4074z00_1347 = "R"; } } 
{ /* ./SawC/code.scm 143 */
long BgL_auxz00_3743;
{ /* ./SawC/code.scm 143 */
obj_t BgL_auxz00_3744;
{ /* ./SawC/code.scm 143 */
BgL_iregz00_bglt BgL_obj3483z00_2684;
BgL_obj3483z00_2684 = 
(BgL_iregz00_bglt)(BgL_regz00_24); 
{ 
obj_t BgL_auxz00_3746;
{ /* ./SawC/code.scm 143 */
BgL_objectz00_bglt BgL_auxz00_3747;
BgL_auxz00_3747 = 
(BgL_objectz00_bglt)(BgL_obj3483z00_2684); 
BgL_auxz00_3746 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3747); } 
BgL_auxz00_3744 = 
(((BgL_iregz00_bglt)CREF(BgL_auxz00_3746))->BgL_indexz00); } } 
BgL_auxz00_3743 = 
(long)CINT(BgL_auxz00_3744); } 
BgL_arg4075z00_1348 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_3743, BNIL); } 
{ /* ./SawC/code.scm 142 */
obj_t BgL_auxz00_3753;
BgL_auxz00_3753 = 
string_to_bstring(BgL_arg4074z00_1347); 
return 
string_append(BgL_auxz00_3753, BgL_arg4075z00_1348);} } } 
}



/* declare-regs */
bool_t BGl_declarezd2regszd2zzsaw_c_codez00(obj_t BgL_lz00_25)
{ AN_OBJECT;
{ /* ./SawC/code.scm 145 */
{ 
obj_t BgL_l3521z00_1352;
BgL_l3521z00_1352 = BgL_lz00_25; 
BgL_forzd2each3522zd2_1353:
{ /* ./SawC/code.scm 146 */
bool_t BgL_test4085z00_1354;
BgL_test4085z00_1354 = 
PAIRP(BgL_l3521z00_1352); 
if(BgL_test4085z00_1354)
{ /* ./SawC/code.scm 146 */
{ /* ./SawC/code.scm 147 */
obj_t BgL_rz00_1355;
BgL_rz00_1355 = 
CAR(BgL_l3521z00_1352); 
{ /* ./SawC/code.scm 147 */
obj_t BgL_arg4088z00_1357;
BgL_arg4088z00_1357 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6556z00zzsaw_c_codez00, BgL_arg4088z00_1357); } 
BGl_genzd2typezd2regz00zzsaw_c_codez00(BgL_rz00_1355); 
{ /* ./SawC/code.scm 153 */
obj_t BgL_arg4119z00_1371;
BgL_arg4119z00_1371 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6565z00zzsaw_c_codez00, BgL_arg4119z00_1371); } } 
{ /* ./SawC/code.scm 146 */
obj_t BgL_arg4124z00_1372;
BgL_arg4124z00_1372 = 
CDR(BgL_l3521z00_1352); 
{ 
obj_t BgL_l3521z00_3765;
BgL_l3521z00_3765 = BgL_arg4124z00_1372; 
BgL_l3521z00_1352 = BgL_l3521z00_3765; 
goto BgL_forzd2each3522zd2_1353;} } }  else 
{ /* ./SawC/code.scm 146 */
return ((bool_t)1);} } } } 
}



/* genbody */
bool_t BGl_genbodyz00zzsaw_c_codez00(obj_t BgL_lz00_26)
{ AN_OBJECT;
{ /* ./SawC/code.scm 156 */
{ 
obj_t BgL_l3525z00_1373;
BgL_l3525z00_1373 = BgL_lz00_26; 
BgL_forzd2each3526zd2_1374:
{ /* ./SawC/code.scm 157 */
bool_t BgL_test4129z00_1375;
BgL_test4129z00_1375 = 
PAIRP(BgL_l3525z00_1373); 
if(BgL_test4129z00_1375)
{ /* ./SawC/code.scm 157 */
{ /* ./SawC/code.scm 158 */
obj_t BgL_bz00_1376;
BgL_bz00_1376 = 
CAR(BgL_l3525z00_1373); 
{ /* ./SawC/code.scm 158 */
int BgL_arg4131z00_1377;
{ /* ./SawC/code.scm 158 */
BgL_blockz00_bglt BgL_obj3434z00_2693;
BgL_obj3434z00_2693 = 
(BgL_blockz00_bglt)(BgL_bz00_1376); 
BgL_arg4131z00_1377 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3434z00_2693))->BgL_labelz00); } 
BGl_outzd2labelzd2zzsaw_c_codez00(BgL_arg4131z00_1377); } 
{ /* ./SawC/code.scm 159 */
obj_t BgL_lz00_1378;
{ /* ./SawC/code.scm 159 */
BgL_blockz00_bglt BgL_obj3444z00_2694;
BgL_obj3444z00_2694 = 
(BgL_blockz00_bglt)(BgL_bz00_1376); 
BgL_lz00_1378 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3444z00_2694))->BgL_firstz00); } 
{ /* ./SawC/code.scm 160 */
bool_t BgL_test4134z00_1379;
{ /* ./SawC/code.scm 160 */
obj_t BgL_arg4139z00_1381;
{ /* ./SawC/code.scm 160 */
BgL_rtl_insz00_bglt BgL_auxz00_3774;
{ /* ./SawC/code.scm 160 */
obj_t BgL_auxz00_3775;
BgL_auxz00_3775 = 
CAR(BgL_lz00_1378); 
BgL_auxz00_3774 = 
(BgL_rtl_insz00_bglt)(BgL_auxz00_3775); } 
BgL_arg4139z00_1381 = 
BGl_findzd2locationzd2zzsaw_c_codez00(BgL_auxz00_3774); } 
if(
STRUCTP(BgL_arg4139z00_1381))
{ /* ./SawC/code.scm 160 */
obj_t BgL_auxz00_3783;obj_t BgL_auxz00_3781;
BgL_auxz00_3783 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_3781 = 
STRUCT_KEY(BgL_arg4139z00_1381); 
BgL_test4134z00_1379 = 
(BgL_auxz00_3781==BgL_auxz00_3783); }  else 
{ /* ./SawC/code.scm 160 */
BgL_test4134z00_1379 = ((bool_t)0); } } 
if(BgL_test4134z00_1379)
{ /* ./SawC/code.scm 160 */
obj_t BgL_port3527z00_1380;
BgL_port3527z00_1380 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6566z00zzsaw_c_codez00, BgL_port3527z00_1380); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3527z00_1380); }  else 
{ /* ./SawC/code.scm 160 */BFALSE; } } 
{ 
obj_t BgL_l3528z00_1383;
BgL_l3528z00_1383 = BgL_lz00_1378; 
BgL_forzd2each3529zd2_1384:
{ /* ./SawC/code.scm 161 */
bool_t BgL_test4146z00_1385;
BgL_test4146z00_1385 = 
PAIRP(BgL_l3528z00_1383); 
if(BgL_test4146z00_1385)
{ /* ./SawC/code.scm 161 */
{ /* ./SawC/code.scm 161 */
obj_t BgL_arg4148z00_1386;
BgL_arg4148z00_1386 = 
CAR(BgL_l3528z00_1383); 
BGl_genzd2inszd2zzsaw_c_codez00(
(BgL_rtl_insz00_bglt)(BgL_arg4148z00_1386)); } 
{ /* ./SawC/code.scm 161 */
obj_t BgL_arg4152z00_1387;
BgL_arg4152z00_1387 = 
CDR(BgL_l3528z00_1383); 
{ 
obj_t BgL_l3528z00_3796;
BgL_l3528z00_3796 = BgL_arg4152z00_1387; 
BgL_l3528z00_1383 = BgL_l3528z00_3796; 
goto BgL_forzd2each3529zd2_1384;} } }  else 
{ /* ./SawC/code.scm 161 */((bool_t)1); } } } } } 
{ /* ./SawC/code.scm 157 */
obj_t BgL_arg4159z00_1388;
BgL_arg4159z00_1388 = 
CDR(BgL_l3525z00_1373); 
{ 
obj_t BgL_l3525z00_3798;
BgL_l3525z00_3798 = BgL_arg4159z00_1388; 
BgL_l3525z00_1373 = BgL_l3525z00_3798; 
goto BgL_forzd2each3526zd2_1374;} } }  else 
{ /* ./SawC/code.scm 157 */
return ((bool_t)1);} } } } 
}



/* out-label */
obj_t BGl_outzd2labelzd2zzsaw_c_codez00(int BgL_labelz00_27)
{ AN_OBJECT;
{ /* ./SawC/code.scm 164 */
{ /* ./SawC/code.scm 165 */
obj_t BgL_list4164z00_1389;
{ /* ./SawC/code.scm 165 */
obj_t BgL_arg4167z00_1391;
{ /* ./SawC/code.scm 165 */
obj_t BgL_arg4170z00_1392;
BgL_arg4170z00_1392 = 
MAKE_PAIR(BGl_string6567z00zzsaw_c_codez00, BNIL); 
{ /* ./SawC/code.scm 165 */
obj_t BgL_auxz00_3800;
BgL_auxz00_3800 = 
BINT(BgL_labelz00_27); 
BgL_arg4167z00_1391 = 
MAKE_PAIR(BgL_auxz00_3800, BgL_arg4170z00_1392); } } 
BgL_list4164z00_1389 = 
MAKE_PAIR(BGl_string6568z00zzsaw_c_codez00, BgL_arg4167z00_1391); } 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list4164z00_1389); } 
return BFALSE;} 
}



/* print-location? */
bool_t BGl_printzd2locationzf3z21zzsaw_c_codez00(obj_t BgL_locz00_28)
{ AN_OBJECT;
{ /* ./SawC/code.scm 171 */
{ /* ./SawC/code.scm 172 */
bool_t BgL_test4194z00_1401;
if(
STRUCTP(BgL_locz00_28))
{ /* ./SawC/code.scm 172 */
obj_t BgL_auxz00_3809;obj_t BgL_auxz00_3807;
BgL_auxz00_3809 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_3807 = 
STRUCT_KEY(BgL_locz00_28); 
BgL_test4194z00_1401 = 
(BgL_auxz00_3807==BgL_auxz00_3809); }  else 
{ /* ./SawC/code.scm 172 */
BgL_test4194z00_1401 = ((bool_t)0); } 
if(BgL_test4194z00_1401)
{ /* ./SawC/code.scm 172 */
{ /* ./SawC/code.scm 173 */
obj_t BgL_port3530z00_1402;
BgL_port3530z00_1402 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6569z00zzsaw_c_codez00, BgL_port3530z00_1402); 
{ /* ./SawC/code.scm 173 */
obj_t BgL_arg4197z00_1403;
{ /* ./SawC/code.scm 173 */
int BgL_auxz00_3815;
BgL_auxz00_3815 = 
(int)(((long)2)); 
BgL_arg4197z00_1403 = 
STRUCT_REF(BgL_locz00_28, BgL_auxz00_3815); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4197z00_1403, BgL_port3530z00_1402); } 
display_string(BGl_string6570z00zzsaw_c_codez00, BgL_port3530z00_1402); 
{ /* ./SawC/code.scm 173 */
obj_t BgL_arg4202z00_1404;
{ /* ./SawC/code.scm 173 */
int BgL_auxz00_3820;
BgL_auxz00_3820 = 
(int)(((long)0)); 
BgL_arg4202z00_1404 = 
STRUCT_REF(BgL_locz00_28, BgL_auxz00_3820); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4202z00_1404, BgL_port3530z00_1402); } 
display_string(BGl_string6571z00zzsaw_c_codez00, BgL_port3530z00_1402); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3530z00_1402); } 
return ((bool_t)1);}  else 
{ /* ./SawC/code.scm 172 */
return ((bool_t)0);} } } 
}



/* find-location */
obj_t BGl_findzd2locationzd2zzsaw_c_codez00(BgL_rtl_insz00_bglt BgL_insz00_29)
{ AN_OBJECT;
{ /* ./SawC/code.scm 177 */
{ /* ./SawC/code.scm 189 */
obj_t BgL__andtest_3533z00_1407;
BgL__andtest_3533z00_1407 = BGl_za2czd2debugzd2lineszd2infoza2zd2zzengine_paramz00; 
if(
CBOOL(BgL__andtest_3533z00_1407))
{ /* ./SawC/code.scm 190 */
bool_t BgL__andtest_3534z00_1408;
if(
CBOOL(BGl_za2bdbzd2debugzd2nozd2linezd2directiveszf3za2zf3zzengine_paramz00))
{ /* ./SawC/code.scm 190 */
BgL__andtest_3534z00_1408 = ((bool_t)0); }  else 
{ /* ./SawC/code.scm 190 */
BgL__andtest_3534z00_1408 = ((bool_t)1); } 
if(BgL__andtest_3534z00_1408)
{ /* ./SawC/code.scm 190 */
return 
BGl_walkz00zzsaw_c_codez00(
(obj_t)(BgL_insz00_29));}  else 
{ /* ./SawC/code.scm 190 */
return BFALSE;} }  else 
{ /* ./SawC/code.scm 189 */
return BFALSE;} } } 
}



/* walk */
obj_t BGl_walkz00zzsaw_c_codez00(obj_t BgL_insz00_1409)
{ AN_OBJECT;
{ /* ./SawC/code.scm 188 */
{ 
obj_t BgL_lz00_1415;
{ /* ./SawC/code.scm 183 */
bool_t BgL_test4211z00_1411;
BgL_test4211z00_1411 = 
BGl_iszd2azf3z21zz__objectz00(BgL_insz00_1409, BGl_rtl_insz00zzsaw_defsz00); 
if(BgL_test4211z00_1411)
{ /* ./SawC/code.scm 185 */
obj_t BgL_locz00_1412;
{ /* ./SawC/code.scm 185 */
BgL_rtl_insz00_bglt BgL_obj3405z00_2723;
BgL_obj3405z00_2723 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1409); 
BgL_locz00_1412 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3405z00_2723))->BgL_locz00); } 
{ /* ./SawC/code.scm 186 */
bool_t BgL_testz00_3837;
if(
STRUCTP(BgL_locz00_1412))
{ /* ./SawC/code.scm 186 */
obj_t BgL_auxz00_3842;obj_t BgL_auxz00_3840;
BgL_auxz00_3842 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_3840 = 
STRUCT_KEY(BgL_locz00_1412); 
BgL_testz00_3837 = 
(BgL_auxz00_3840==BgL_auxz00_3842); }  else 
{ /* ./SawC/code.scm 186 */
BgL_testz00_3837 = ((bool_t)0)
; } 
if(BgL_testz00_3837)
{ /* ./SawC/code.scm 186 */
return BgL_locz00_1412;}  else 
{ /* ./SawC/code.scm 186 */
{ /* ./SawC/code.scm 188 */
BgL_rtl_insz00_bglt BgL_obj3415z00_2731;
BgL_obj3415z00_2731 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_1409); 
BgL_lz00_1415 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3415z00_2731))->BgL_argsz00); } 
BgL_zc3anonymousza34220ze3z83_1416:
{ /* ./SawC/code.scm 179 */
bool_t BgL_testz00_3845;
if(
NULLP(BgL_lz00_1415))
{ /* ./SawC/code.scm 179 */
BgL_testz00_3845 = ((bool_t)0)
; }  else 
{ /* ./SawC/code.scm 179 */
BgL_testz00_3845 = ((bool_t)1)
; } 
if(BgL_testz00_3845)
{ /* ./SawC/code.scm 180 */
obj_t BgL__ortest_3532z00_1418;
BgL__ortest_3532z00_1418 = 
BGl_walkz00zzsaw_c_codez00(
CAR(BgL_lz00_1415)); 
if(
CBOOL(BgL__ortest_3532z00_1418))
{ /* ./SawC/code.scm 180 */
return BgL__ortest_3532z00_1418;}  else 
{ 
obj_t BgL_lz00_3852;
BgL_lz00_3852 = 
CDR(BgL_lz00_1415); 
BgL_lz00_1415 = BgL_lz00_3852; 
goto BgL_zc3anonymousza34220ze3z83_1416;} }  else 
{ /* ./SawC/code.scm 179 */
return BFALSE;} } } } }  else 
{ /* ./SawC/code.scm 183 */
return BFALSE;} } } } 
}



/* gen-ins */
obj_t BGl_genzd2inszd2zzsaw_c_codez00(BgL_rtl_insz00_bglt BgL_insz00_30)
{ AN_OBJECT;
{ /* ./SawC/code.scm 196 */
{ /* ./SawC/code.scm 198 */
obj_t BgL_arg4232z00_1425;
BgL_arg4232z00_1425 = 
BGl_findzd2locationzd2zzsaw_c_codez00(BgL_insz00_30); 
BGl_printzd2locationzf3z21zzsaw_c_codez00(BgL_arg4232z00_1425); } 
{ /* ./SawC/code.scm 199 */
obj_t BgL_arg4237z00_1427;
BgL_arg4237z00_1427 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6572z00zzsaw_c_codez00, BgL_arg4237z00_1427); } 
{ /* ./SawC/code.scm 200 */
bool_t BgL_test4240z00_1428;
{ /* ./SawC/code.scm 200 */
obj_t BgL_auxz00_3860;
BgL_auxz00_3860 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_insz00_30))->BgL_destz00); 
BgL_test4240z00_1428 = 
CBOOL(BgL_auxz00_3860); } 
if(BgL_test4240z00_1428)
{ /* ./SawC/code.scm 200 */
{ /* ./SawC/code.scm 201 */
obj_t BgL_arg4242z00_1429;
BgL_arg4242z00_1429 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_insz00_30))->BgL_destz00); 
BGl_genzd2regzf2destz20zzsaw_c_codez00(BgL_arg4242z00_1429); } 
{ /* ./SawC/code.scm 202 */
obj_t BgL_arg4247z00_1431;
BgL_arg4247z00_1431 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6573z00zzsaw_c_codez00, BgL_arg4247z00_1431); } }  else 
{ /* ./SawC/code.scm 200 */BFALSE; } } 
{ /* ./SawC/code.scm 203 */
BgL_rtl_funz00_bglt BgL_arg4252z00_1432;obj_t BgL_arg4253z00_1433;
BgL_arg4252z00_1432 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_insz00_30))->BgL_funz00); 
BgL_arg4253z00_1433 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_insz00_30))->BgL_argsz00); 
{ /* ./SawC/code.scm 203 */
obj_t BgL_method3568z00_2741;
{ /* ./SawC/code.scm 203 */
BgL_objectz00_bglt BgL_objz00_2742;
BgL_objz00_2742 = 
(BgL_objectz00_bglt)(BgL_arg4252z00_1432); 
{ /* ./SawC/code.scm 203 */
long BgL_objzd2classzd2numz00_2743;
BgL_objzd2classzd2numz00_2743 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2742); 
{ /* ./SawC/code.scm 203 */
obj_t BgL_arg2017z00_2744;
{ /* ./SawC/code.scm 203 */
int BgL_auxz00_3872;
BgL_auxz00_3872 = 
(int)(((long)1)); 
BgL_arg2017z00_2744 = 
PROCEDURE_REF(BGl_genzd2exprzd2envz00zzsaw_c_codez00, BgL_auxz00_3872); } 
{ /* ./SawC/code.scm 203 */
int BgL_offsetz00_2747;
BgL_offsetz00_2747 = 
(int)(BgL_objzd2classzd2numz00_2743); 
{ /* ./SawC/code.scm 203 */
long BgL_offsetz00_2748;
{ /* ./SawC/code.scm 203 */
long BgL_auxz00_3876;
BgL_auxz00_3876 = 
(long)(BgL_offsetz00_2747); 
BgL_offsetz00_2748 = 
(BgL_auxz00_3876-OBJECT_TYPE); } 
{ /* ./SawC/code.scm 203 */
long BgL_modz00_2749;
{ /* ./SawC/code.scm 203 */
int BgL_arg2028z00_2750;
BgL_arg2028z00_2750 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 203 */
long BgL_n2z00_2758;
BgL_n2z00_2758 = 
(long)(BgL_arg2028z00_2750); 
BgL_modz00_2749 = 
(BgL_offsetz00_2748/BgL_n2z00_2758); } } 
{ /* ./SawC/code.scm 203 */
long BgL_restz00_2751;
{ /* ./SawC/code.scm 203 */
int BgL_arg2024z00_2752;
BgL_arg2024z00_2752 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 203 */
long BgL_n2z00_2761;
BgL_n2z00_2761 = 
(long)(BgL_arg2024z00_2752); 
BgL_restz00_2751 = 
(BgL_offsetz00_2748%BgL_n2z00_2761); } } 
{ /* ./SawC/code.scm 203 */

{ /* ./SawC/code.scm 203 */
obj_t BgL_bucketz00_2753;
{ /* ./SawC/code.scm 203 */
int BgL_kz00_2763;
BgL_kz00_2763 = 
(int)(BgL_modz00_2749); 
BgL_bucketz00_2753 = 
VECTOR_REF(BgL_arg2017z00_2744,BgL_kz00_2763); } 
{ /* ./SawC/code.scm 203 */
int BgL_kz00_2765;
BgL_kz00_2765 = 
(int)(BgL_restz00_2751); 
BgL_method3568z00_2741 = 
VECTOR_REF(BgL_bucketz00_2753,BgL_kz00_2765); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3568z00_2741)(BgL_method3568z00_2741, 
(obj_t)(BgL_arg4252z00_1432), BgL_arg4253z00_1433, BEOA); } } 
{ /* ./SawC/code.scm 204 */
obj_t BgL_arg4259z00_1435;
BgL_arg4259z00_1435 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6565z00zzsaw_c_codez00, BgL_arg4259z00_1435);} } 
}



/* gen-args */
bool_t BGl_genzd2argszd2zzsaw_c_codez00(obj_t BgL_argsz00_35)
{ AN_OBJECT;
{ /* ./SawC/code.scm 214 */
{ /* ./SawC/code.scm 215 */
bool_t BgL_test4262z00_1436;
BgL_test4262z00_1436 = 
NULLP(BgL_argsz00_35); 
if(BgL_test4262z00_1436)
{ /* ./SawC/code.scm 215 */
return ((bool_t)0);}  else 
{ /* ./SawC/code.scm 215 */
{ /* ./SawC/code.scm 216 */
obj_t BgL_arg4264z00_1437;
BgL_arg4264z00_1437 = 
CAR(BgL_argsz00_35); 
BGl_genzd2regzd2zzsaw_c_codez00(BgL_arg4264z00_1437); } 
{ 
obj_t BgL_l3537z00_1438;
{ /* ./SawC/code.scm 218 */
obj_t BgL_arg4268z00_1440;
BgL_arg4268z00_1440 = 
CDR(BgL_argsz00_35); 
BgL_l3537z00_1438 = BgL_arg4268z00_1440; 
BgL_forzd2each3538zd2_1439:
{ /* ./SawC/code.scm 217 */
bool_t BgL_test4271z00_1441;
BgL_test4271z00_1441 = 
PAIRP(BgL_l3537z00_1438); 
if(BgL_test4271z00_1441)
{ /* ./SawC/code.scm 217 */
{ /* ./SawC/code.scm 217 */
obj_t BgL_rz00_1442;
BgL_rz00_1442 = 
CAR(BgL_l3537z00_1438); 
{ /* ./SawC/code.scm 217 */
obj_t BgL_arg4274z00_1444;
BgL_arg4274z00_1444 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6563z00zzsaw_c_codez00, BgL_arg4274z00_1444); } 
BGl_genzd2regzd2zzsaw_c_codez00(BgL_rz00_1442); } 
{ /* ./SawC/code.scm 217 */
obj_t BgL_arg4280z00_1445;
BgL_arg4280z00_1445 = 
CDR(BgL_l3537z00_1438); 
{ 
obj_t BgL_l3537z00_3906;
BgL_l3537z00_3906 = BgL_arg4280z00_1445; 
BgL_l3537z00_1438 = BgL_l3537z00_3906; 
goto BgL_forzd2each3538zd2_1439;} } }  else 
{ /* ./SawC/code.scm 217 */
return ((bool_t)1);} } } } } } } 
}



/* gen-reg */
obj_t BGl_genzd2regzd2zzsaw_c_codez00(obj_t BgL_regz00_36)
{ AN_OBJECT;
{ /* ./SawC/code.scm 220 */
{ /* ./SawC/code.scm 221 */
bool_t BgL_test4285z00_1446;
BgL_test4285z00_1446 = 
BGl_iszd2azf3z21zz__objectz00(BgL_regz00_36, BGl_iregz00zzsaw_c_codez00); 
if(BgL_test4285z00_1446)
{ /* ./SawC/code.scm 221 */
return 
BGl_genzd2regzf2destz20zzsaw_c_codez00(BgL_regz00_36);}  else 
{ /* ./SawC/code.scm 223 */
BgL_rtl_funz00_bglt BgL_arg4288z00_1447;obj_t BgL_arg4289z00_1448;
{ /* ./SawC/code.scm 223 */
BgL_rtl_insz00_bglt BgL_obj3412z00_2773;
BgL_obj3412z00_2773 = 
(BgL_rtl_insz00_bglt)(BgL_regz00_36); 
BgL_arg4288z00_1447 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3412z00_2773))->BgL_funz00); } 
{ /* ./SawC/code.scm 223 */
BgL_rtl_insz00_bglt BgL_obj3415z00_2774;
BgL_obj3415z00_2774 = 
(BgL_rtl_insz00_bglt)(BgL_regz00_36); 
BgL_arg4289z00_1448 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3415z00_2774))->BgL_argsz00); } 
{ /* ./SawC/code.scm 223 */
obj_t BgL_method3568z00_2777;
{ /* ./SawC/code.scm 223 */
BgL_objectz00_bglt BgL_objz00_2778;
BgL_objz00_2778 = 
(BgL_objectz00_bglt)(BgL_arg4288z00_1447); 
{ /* ./SawC/code.scm 223 */
long BgL_objzd2classzd2numz00_2779;
BgL_objzd2classzd2numz00_2779 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2778); 
{ /* ./SawC/code.scm 223 */
obj_t BgL_arg2017z00_2780;
{ /* ./SawC/code.scm 223 */
int BgL_auxz00_3916;
BgL_auxz00_3916 = 
(int)(((long)1)); 
BgL_arg2017z00_2780 = 
PROCEDURE_REF(BGl_genzd2exprzd2envz00zzsaw_c_codez00, BgL_auxz00_3916); } 
{ /* ./SawC/code.scm 223 */
int BgL_offsetz00_2783;
BgL_offsetz00_2783 = 
(int)(BgL_objzd2classzd2numz00_2779); 
{ /* ./SawC/code.scm 223 */
long BgL_offsetz00_2784;
{ /* ./SawC/code.scm 223 */
long BgL_auxz00_3920;
BgL_auxz00_3920 = 
(long)(BgL_offsetz00_2783); 
BgL_offsetz00_2784 = 
(BgL_auxz00_3920-OBJECT_TYPE); } 
{ /* ./SawC/code.scm 223 */
long BgL_modz00_2785;
{ /* ./SawC/code.scm 223 */
int BgL_arg2028z00_2786;
BgL_arg2028z00_2786 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 223 */
long BgL_n2z00_2794;
BgL_n2z00_2794 = 
(long)(BgL_arg2028z00_2786); 
BgL_modz00_2785 = 
(BgL_offsetz00_2784/BgL_n2z00_2794); } } 
{ /* ./SawC/code.scm 223 */
long BgL_restz00_2787;
{ /* ./SawC/code.scm 223 */
int BgL_arg2024z00_2788;
BgL_arg2024z00_2788 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 223 */
long BgL_n2z00_2797;
BgL_n2z00_2797 = 
(long)(BgL_arg2024z00_2788); 
BgL_restz00_2787 = 
(BgL_offsetz00_2784%BgL_n2z00_2797); } } 
{ /* ./SawC/code.scm 223 */

{ /* ./SawC/code.scm 223 */
obj_t BgL_bucketz00_2789;
{ /* ./SawC/code.scm 223 */
int BgL_kz00_2799;
BgL_kz00_2799 = 
(int)(BgL_modz00_2785); 
BgL_bucketz00_2789 = 
VECTOR_REF(BgL_arg2017z00_2780,BgL_kz00_2799); } 
{ /* ./SawC/code.scm 223 */
int BgL_kz00_2801;
BgL_kz00_2801 = 
(int)(BgL_restz00_2787); 
BgL_method3568z00_2777 = 
VECTOR_REF(BgL_bucketz00_2789,BgL_kz00_2801); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3568z00_2777)(BgL_method3568z00_2777, 
(obj_t)(BgL_arg4288z00_1447), BgL_arg4289z00_1448, BEOA);} } } } 
}



/* gen-reg/dest */
obj_t BGl_genzd2regzf2destz20zzsaw_c_codez00(obj_t BgL_regz00_37)
{ AN_OBJECT;
{ /* ./SawC/code.scm 225 */
{ /* ./SawC/code.scm 226 */
char * BgL_arg4295z00_1449;obj_t BgL_arg4296z00_1450;
{ /* ./SawC/code.scm 226 */
bool_t BgL_testz00_3936;
{ /* ./SawC/code.scm 226 */
BgL_rtl_regz00_bglt BgL_obj3013z00_2802;
BgL_obj3013z00_2802 = 
(BgL_rtl_regz00_bglt)(BgL_regz00_37); 
{ /* ./SawC/code.scm 226 */
obj_t BgL_auxz00_3938;
BgL_auxz00_3938 = 
(((BgL_rtl_regz00_bglt)CREF(BgL_obj3013z00_2802))->BgL_varz00); 
BgL_testz00_3936 = 
CBOOL(BgL_auxz00_3938); } } 
if(BgL_testz00_3936)
{ /* ./SawC/code.scm 226 */
BgL_arg4295z00_1449 = "V"; }  else 
{ /* ./SawC/code.scm 226 */
BgL_arg4295z00_1449 = "R"; } } 
BgL_arg4296z00_1450 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg4295z00_1449), BgL_arg4296z00_1450); } 
{ /* ./SawC/code.scm 227 */
obj_t BgL_arg4302z00_1452;obj_t BgL_arg4303z00_1453;
{ /* ./SawC/code.scm 227 */
BgL_iregz00_bglt BgL_obj3483z00_2803;
BgL_obj3483z00_2803 = 
(BgL_iregz00_bglt)(BgL_regz00_37); 
{ 
obj_t BgL_auxz00_3945;
{ /* ./SawC/code.scm 227 */
BgL_objectz00_bglt BgL_auxz00_3946;
BgL_auxz00_3946 = 
(BgL_objectz00_bglt)(BgL_obj3483z00_2803); 
BgL_auxz00_3945 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3946); } 
BgL_arg4302z00_1452 = 
(((BgL_iregz00_bglt)CREF(BgL_auxz00_3945))->BgL_indexz00); } } 
BgL_arg4303z00_1453 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4302z00_1452, BgL_arg4303z00_1453);} } 
}



/* gen-Xfuncall */
obj_t BGl_genzd2Xfuncallzd2zzsaw_c_codez00(char * BgL_typez00_42, obj_t BgL_argsz00_43, bool_t BgL_eoazf3zf3_44)
{ AN_OBJECT;
{ /* ./SawC/code.scm 246 */
{ /* ./SawC/code.scm 247 */
obj_t BgL_list4308z00_1454;
{ /* ./SawC/code.scm 247 */
obj_t BgL_arg4311z00_1456;
{ /* ./SawC/code.scm 247 */
obj_t BgL_arg4314z00_1457;
BgL_arg4314z00_1457 = 
MAKE_PAIR(BGl_string6574z00zzsaw_c_codez00, BNIL); 
{ /* ./SawC/code.scm 247 */
obj_t BgL_auxz00_3953;
BgL_auxz00_3953 = 
string_to_bstring(BgL_typez00_42); 
BgL_arg4311z00_1456 = 
MAKE_PAIR(BgL_auxz00_3953, BgL_arg4314z00_1457); } } 
BgL_list4308z00_1454 = 
MAKE_PAIR(BGl_string6575z00zzsaw_c_codez00, BgL_arg4311z00_1456); } 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list4308z00_1454); } 
{ /* ./SawC/code.scm 248 */
obj_t BgL_arg4318z00_1458;
BgL_arg4318z00_1458 = 
CAR(BgL_argsz00_43); 
BGl_genzd2regzd2zzsaw_c_codez00(BgL_arg4318z00_1458); } 
{ /* ./SawC/code.scm 249 */
obj_t BgL_arg4323z00_1460;
BgL_arg4323z00_1460 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6576z00zzsaw_c_codez00, BgL_arg4323z00_1460); } 
BGl_genzd2argszd2zzsaw_c_codez00(BgL_argsz00_43); 
if(BgL_eoazf3zf3_44)
{ /* ./SawC/code.scm 251 */
obj_t BgL_arg4329z00_1462;
BgL_arg4329z00_1462 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6577z00zzsaw_c_codez00, BgL_arg4329z00_1462); }  else 
{ /* ./SawC/code.scm 251 */BFALSE; } 
{ /* ./SawC/code.scm 252 */
obj_t BgL_arg4334z00_1464;
BgL_arg4334z00_1464 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6564z00zzsaw_c_codez00, BgL_arg4334z00_1464);} } 
}



/* gen-upcase */
obj_t BGl_genzd2upcasezd2zzsaw_c_codez00(BgL_rtl_funz00_bglt BgL_funz00_55)
{ AN_OBJECT;
{ /* ./SawC/code.scm 302 */
{ /* ./SawC/code.scm 303 */
obj_t BgL_arg4339z00_1466;
{ /* ./SawC/code.scm 304 */
obj_t BgL_arg4347z00_1469;
{ /* ./SawC/code.scm 304 */
obj_t BgL_arg4350z00_1470;
{ /* ./SawC/code.scm 304 */
obj_t BgL_arg4353z00_1471;
{ /* ./SawC/code.scm 304 */
BgL_objectz00_bglt BgL_objectz00_2805;
BgL_objectz00_2805 = 
(BgL_objectz00_bglt)(BgL_funz00_55); 
{ /* ./SawC/code.scm 304 */
long BgL_arg2036z00_2806;
{ /* ./SawC/code.scm 304 */
long BgL_arg2039z00_2807;
BgL_arg2039z00_2807 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_2805); 
BgL_arg2036z00_2806 = 
(BgL_arg2039z00_2807-OBJECT_TYPE); } 
{ /* ./SawC/code.scm 304 */
obj_t BgL_vectorz00_2811;int BgL_kz00_2812;
BgL_vectorz00_2811 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_2812 = 
(int)(BgL_arg2036z00_2806); 
BgL_arg4353z00_1471 = 
VECTOR_REF(BgL_vectorz00_2811,BgL_kz00_2812); } } } 
BgL_arg4350z00_1470 = 
BGl_classzd2namezd2zz__objectz00(BgL_arg4353z00_1471); } 
BgL_arg4347z00_1469 = 
SYMBOL_TO_STRING(BgL_arg4350z00_1470); } 
BgL_arg4339z00_1466 = 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_arg4347z00_1469); } 
{ /* ./SawC/code.scm 303 */
obj_t BgL_list4341z00_1467;
{ /* ./SawC/code.scm 303 */
obj_t BgL_arg4343z00_1468;
BgL_arg4343z00_1468 = 
MAKE_PAIR(BgL_arg4339z00_1466, BNIL); 
BgL_list4341z00_1467 = 
MAKE_PAIR(BGl_string6578z00zzsaw_c_codez00, BgL_arg4343z00_1468); } 
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list4341z00_1467);} } } 
}



/* vfun-name */
obj_t BGl_vfunzd2namezd2zzsaw_c_codez00(obj_t BgL_fz00_56, BgL_typez00_bglt BgL_typez00_57)
{ AN_OBJECT;
{ /* ./SawC/code.scm 306 */
{ /* ./SawC/code.scm 307 */
char * BgL_arg4358z00_1473;
{ /* ./SawC/code.scm 307 */
bool_t BgL_testz00_3979;
{ /* ./SawC/code.scm 307 */
obj_t BgL_auxz00_3980;
BgL_auxz00_3980 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
(((BgL_typez00_bglt)CREF(BgL_typez00_57))->BgL_idz00), 
CNST_TABLE_REF(((long)4))); 
BgL_testz00_3979 = 
CBOOL(BgL_auxz00_3980); } 
if(BgL_testz00_3979)
{ /* ./SawC/code.scm 307 */
BgL_arg4358z00_1473 = "T"; }  else 
{ /* ./SawC/code.scm 307 */
BgL_arg4358z00_1473 = ""; } } 
{ /* ./SawC/code.scm 307 */
obj_t BgL_list4360z00_1474;
{ /* ./SawC/code.scm 307 */
obj_t BgL_arg4362z00_1475;
{ /* ./SawC/code.scm 307 */
obj_t BgL_arg4365z00_1476;
BgL_arg4365z00_1476 = 
MAKE_PAIR(BgL_fz00_56, BNIL); 
{ /* ./SawC/code.scm 307 */
obj_t BgL_auxz00_3986;
BgL_auxz00_3986 = 
string_to_bstring(BgL_arg4358z00_1473); 
BgL_arg4362z00_1475 = 
MAKE_PAIR(BgL_auxz00_3986, BgL_arg4365z00_1476); } } 
BgL_list4360z00_1474 = 
MAKE_PAIR(BGl_string6579z00zzsaw_c_codez00, BgL_arg4362z00_1475); } 
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list4360z00_1474);} } } 
}



/* vextra */
obj_t BGl_vextraz00zzsaw_c_codez00(BgL_typez00_bglt BgL_typez00_77)
{ AN_OBJECT;
{ /* ./SawC/code.scm 362 */
{ /* ./SawC/code.scm 363 */
bool_t BgL_test4371z00_1478;
{ /* ./SawC/code.scm 363 */
obj_t BgL_auxz00_3991;
BgL_auxz00_3991 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
(((BgL_typez00_bglt)CREF(BgL_typez00_77))->BgL_idz00), 
CNST_TABLE_REF(((long)4))); 
BgL_test4371z00_1478 = 
CBOOL(BgL_auxz00_3991); } 
if(BgL_test4371z00_1478)
{ /* ./SawC/code.scm 364 */
obj_t BgL_tnz00_1479;
BgL_tnz00_1479 = 
(((BgL_typez00_bglt)CREF(BgL_typez00_77))->BgL_namez00); 
{ /* ./SawC/code.scm 365 */
obj_t BgL_arg4373z00_1480;
BgL_arg4373z00_1480 = 
bigloo_mangle(BgL_tnz00_1479); 
{ /* ./SawC/code.scm 365 */
obj_t BgL_list4377z00_1483;
{ /* ./SawC/code.scm 365 */
obj_t BgL_arg4379z00_1484;
{ /* ./SawC/code.scm 365 */
obj_t BgL_arg4382z00_1485;
{ /* ./SawC/code.scm 365 */
obj_t BgL_arg4385z00_1486;
BgL_arg4385z00_1486 = 
MAKE_PAIR(BGl_string6563z00zzsaw_c_codez00, BNIL); 
BgL_arg4382z00_1485 = 
MAKE_PAIR(BgL_tnz00_1479, BgL_arg4385z00_1486); } 
BgL_arg4379z00_1484 = 
MAKE_PAIR(BGl_string6563z00zzsaw_c_codez00, BgL_arg4382z00_1485); } 
BgL_list4377z00_1483 = 
MAKE_PAIR(BgL_arg4373z00_1480, BgL_arg4379z00_1484); } 
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list4377z00_1483);} } }  else 
{ /* ./SawC/code.scm 363 */
return BFALSE;} } } 
}



/* patch */
obj_t BGl_patchz00zzsaw_c_codez00(obj_t BgL_sz00_86)
{ AN_OBJECT;
{ /* ./SawC/code.scm 397 */
{ /* ./SawC/code.scm 399 */
bool_t BgL_test4406z00_1493;
BgL_test4406z00_1493 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6580z00zzsaw_c_codez00); 
if(BgL_test4406z00_1493)
{ /* ./SawC/code.scm 399 */
return BGl_string6581z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 400 */
bool_t BgL_test4407z00_1494;
BgL_test4407z00_1494 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6582z00zzsaw_c_codez00); 
if(BgL_test4407z00_1494)
{ /* ./SawC/code.scm 400 */
return BGl_string6583z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 401 */
bool_t BgL_test4408z00_1495;
BgL_test4408z00_1495 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6584z00zzsaw_c_codez00); 
if(BgL_test4408z00_1495)
{ /* ./SawC/code.scm 401 */
return BGl_string6585z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 402 */
bool_t BgL_test4409z00_1496;
BgL_test4409z00_1496 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6586z00zzsaw_c_codez00); 
if(BgL_test4409z00_1496)
{ /* ./SawC/code.scm 402 */
return BGl_string6587z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 403 */
bool_t BgL_test4410z00_1497;
BgL_test4410z00_1497 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6588z00zzsaw_c_codez00); 
if(BgL_test4410z00_1497)
{ /* ./SawC/code.scm 403 */
return BGl_string6589z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 404 */
bool_t BgL_test4411z00_1498;
BgL_test4411z00_1498 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6590z00zzsaw_c_codez00); 
if(BgL_test4411z00_1498)
{ /* ./SawC/code.scm 404 */
return BGl_string6591z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 405 */
bool_t BgL_test4412z00_1499;
BgL_test4412z00_1499 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6592z00zzsaw_c_codez00); 
if(BgL_test4412z00_1499)
{ /* ./SawC/code.scm 405 */
return BGl_string6593z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 406 */
bool_t BgL_test4413z00_1500;
BgL_test4413z00_1500 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6594z00zzsaw_c_codez00); 
if(BgL_test4413z00_1500)
{ /* ./SawC/code.scm 406 */
return BGl_string6595z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 407 */
bool_t BgL_test4414z00_1501;
BgL_test4414z00_1501 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6596z00zzsaw_c_codez00); 
if(BgL_test4414z00_1501)
{ /* ./SawC/code.scm 407 */
return BGl_string6597z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 408 */
bool_t BgL_test4415z00_1502;
BgL_test4415z00_1502 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6598z00zzsaw_c_codez00); 
if(BgL_test4415z00_1502)
{ /* ./SawC/code.scm 408 */
return BGl_string6599z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 409 */
bool_t BgL_test4416z00_1503;
BgL_test4416z00_1503 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6600z00zzsaw_c_codez00); 
if(BgL_test4416z00_1503)
{ /* ./SawC/code.scm 409 */
return BGl_string6601z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 410 */
bool_t BgL_test4417z00_1504;
BgL_test4417z00_1504 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6602z00zzsaw_c_codez00); 
if(BgL_test4417z00_1504)
{ /* ./SawC/code.scm 410 */
return BGl_string6603z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 411 */
bool_t BgL_test4418z00_1505;
BgL_test4418z00_1505 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6604z00zzsaw_c_codez00); 
if(BgL_test4418z00_1505)
{ /* ./SawC/code.scm 411 */
return BGl_string6591z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 412 */
bool_t BgL_test4419z00_1506;
BgL_test4419z00_1506 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6605z00zzsaw_c_codez00); 
if(BgL_test4419z00_1506)
{ /* ./SawC/code.scm 412 */
return BGl_string6593z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 413 */
bool_t BgL_test4420z00_1507;
BgL_test4420z00_1507 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6606z00zzsaw_c_codez00); 
if(BgL_test4420z00_1507)
{ /* ./SawC/code.scm 413 */
return BGl_string6607z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 414 */
bool_t BgL_test4421z00_1508;
BgL_test4421z00_1508 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6608z00zzsaw_c_codez00); 
if(BgL_test4421z00_1508)
{ /* ./SawC/code.scm 414 */
return BGl_string6609z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 415 */
bool_t BgL_test4422z00_1509;
BgL_test4422z00_1509 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6610z00zzsaw_c_codez00); 
if(BgL_test4422z00_1509)
{ /* ./SawC/code.scm 415 */
return BGl_string6611z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 416 */
bool_t BgL_test4423z00_1510;
BgL_test4423z00_1510 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6612z00zzsaw_c_codez00); 
if(BgL_test4423z00_1510)
{ /* ./SawC/code.scm 416 */
return BGl_string6613z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 417 */
bool_t BgL_test4424z00_1511;
BgL_test4424z00_1511 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6614z00zzsaw_c_codez00); 
if(BgL_test4424z00_1511)
{ /* ./SawC/code.scm 417 */
return BGl_string6615z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 418 */
bool_t BgL_test4425z00_1512;
BgL_test4425z00_1512 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6616z00zzsaw_c_codez00); 
if(BgL_test4425z00_1512)
{ /* ./SawC/code.scm 418 */
{ /* ./SawC/code.scm 419 */
long BgL_za72za7_2875;
BgL_za72za7_2875 = BGl_za2pushtraceemmitedza2z00zzsaw_c_codez00; 
BGl_za2pushtraceemmitedza2z00zzsaw_c_codez00 = 
(((long)1)+BgL_za72za7_2875); } 
return BGl_string6617z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 421 */
bool_t BgL_test4427z00_1513;
BgL_test4427z00_1513 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6618z00zzsaw_c_codez00); 
if(BgL_test4427z00_1513)
{ /* ./SawC/code.scm 421 */
return BgL_sz00_86;}  else 
{ /* ./SawC/code.scm 424 */
bool_t BgL_test4428z00_1514;
BgL_test4428z00_1514 = 
bigloo_strcmp(BgL_sz00_86, BGl_string6619z00zzsaw_c_codez00); 
if(BgL_test4428z00_1514)
{ /* ./SawC/code.scm 424 */
return BGl_string6620z00zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 424 */
return BgL_sz00_86;} } } } } } } } } } } } } } } } } } } } } } } } 
}



/* deep-mov? */
bool_t BGl_deepzd2movzf3z21zzsaw_c_codez00(obj_t BgL_insz00_93)
{ AN_OBJECT;
{ /* ./SawC/code.scm 443 */
BGl_deepzd2movzf3z21zzsaw_c_codez00:
{ /* ./SawC/code.scm 444 */
bool_t BgL__ortest_3548z00_1515;
BgL__ortest_3548z00_1515 = 
BGl_iszd2azf3z21zz__objectz00(BgL_insz00_93, BGl_rtl_regz00zzsaw_defsz00); 
if(BgL__ortest_3548z00_1515)
{ /* ./SawC/code.scm 444 */
return BgL__ortest_3548z00_1515;}  else 
{ /* ./SawC/code.scm 445 */
bool_t BgL__andtest_3549z00_1516;
{ /* ./SawC/code.scm 445 */
BgL_rtl_funz00_bglt BgL_arg4459z00_1519;
{ /* ./SawC/code.scm 445 */
BgL_rtl_insz00_bglt BgL_obj3412z00_2881;
BgL_obj3412z00_2881 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_93); 
BgL_arg4459z00_1519 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3412z00_2881))->BgL_funz00); } 
{ /* ./SawC/code.scm 445 */
obj_t BgL_obj3140z00_2882;
BgL_obj3140z00_2882 = 
(obj_t)(BgL_arg4459z00_1519); 
BgL__andtest_3549z00_1516 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3140z00_2882, BGl_rtl_movz00zzsaw_defsz00); } } 
if(BgL__andtest_3549z00_1516)
{ 
obj_t BgL_insz00_4056;
{ /* ./SawC/code.scm 446 */
obj_t BgL_auxz00_4057;
{ /* ./SawC/code.scm 446 */
BgL_rtl_insz00_bglt BgL_obj3415z00_2883;
BgL_obj3415z00_2883 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_93); 
BgL_auxz00_4057 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3415z00_2883))->BgL_argsz00); } 
BgL_insz00_4056 = 
CAR(BgL_auxz00_4057); } 
BgL_insz00_93 = BgL_insz00_4056; 
goto BGl_deepzd2movzf3z21zzsaw_c_codez00;}  else 
{ /* ./SawC/code.scm 445 */
return ((bool_t)0);} } } } 
}



/* multiple-evaluation */
bool_t BGl_multiplezd2evaluationzd2zzsaw_c_codez00(obj_t BgL_insz00_94, obj_t BgL_treez00_95)
{ AN_OBJECT;
{ /* ./SawC/code.scm 448 */
{ /* ./SawC/code.scm 449 */
BgL_rtl_funz00_bglt BgL_funz00_1520;
{ /* ./SawC/code.scm 449 */
BgL_rtl_insz00_bglt BgL_obj3412z00_2885;
BgL_obj3412z00_2885 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_94); 
BgL_funz00_1520 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3412z00_2885))->BgL_funz00); } 
{ /* ./SawC/code.scm 451 */
bool_t BgL__ortest_3550z00_1521;
{ /* ./SawC/code.scm 451 */
obj_t BgL_obj3219z00_2886;
BgL_obj3219z00_2886 = 
(obj_t)(BgL_funz00_1520); 
BgL__ortest_3550z00_1521 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3219z00_2886, BGl_rtl_vallocz00zzsaw_defsz00); } 
if(BgL__ortest_3550z00_1521)
{ /* ./SawC/code.scm 451 */
return BgL__ortest_3550z00_1521;}  else 
{ /* ./SawC/code.scm 452 */
bool_t BgL__ortest_3551z00_1522;
{ /* ./SawC/code.scm 452 */
bool_t BgL__andtest_3553z00_1530;
{ /* ./SawC/code.scm 452 */
obj_t BgL_obj3348z00_2887;
BgL_obj3348z00_2887 = 
(obj_t)(BgL_funz00_1520); 
BgL__andtest_3553z00_1530 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3348z00_2887, BGl_rtl_lightfuncallz00zzsaw_defsz00); } 
if(BgL__andtest_3553z00_1530)
{ /* ./SawC/code.scm 453 */
obj_t BgL_auxz00_4074;obj_t BgL_auxz00_4069;
{ /* ./SawC/code.scm 454 */
BgL_rtl_insz00_bglt BgL_obj3409z00_2890;
BgL_obj3409z00_2890 = 
(BgL_rtl_insz00_bglt)(BgL_treez00_95); 
BgL_auxz00_4074 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3409z00_2890))->BgL_destz00); } 
{ /* ./SawC/code.scm 453 */
obj_t BgL_auxz00_4070;
{ /* ./SawC/code.scm 453 */
BgL_rtl_insz00_bglt BgL_obj3415z00_2888;
BgL_obj3415z00_2888 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_94); 
BgL_auxz00_4070 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3415z00_2888))->BgL_argsz00); } 
BgL_auxz00_4069 = 
CAR(BgL_auxz00_4070); } 
BgL__ortest_3551z00_1522 = 
(BgL_auxz00_4069==BgL_auxz00_4074); }  else 
{ /* ./SawC/code.scm 452 */
BgL__ortest_3551z00_1522 = ((bool_t)0); } } 
if(BgL__ortest_3551z00_1522)
{ /* ./SawC/code.scm 452 */
return BgL__ortest_3551z00_1522;}  else 
{ /* ./SawC/code.scm 455 */
bool_t BgL__ortest_3552z00_1523;
{ /* ./SawC/code.scm 455 */
bool_t BgL__andtest_3554z00_1526;
{ /* ./SawC/code.scm 455 */
obj_t BgL_obj3352z00_2891;
BgL_obj3352z00_2891 = 
(obj_t)(BgL_funz00_1520); 
BgL__andtest_3554z00_1526 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3352z00_2891, BGl_rtl_funcallz00zzsaw_defsz00); } 
if(BgL__andtest_3554z00_1526)
{ /* ./SawC/code.scm 456 */
obj_t BgL_auxz00_4087;obj_t BgL_auxz00_4082;
{ /* ./SawC/code.scm 457 */
BgL_rtl_insz00_bglt BgL_obj3409z00_2894;
BgL_obj3409z00_2894 = 
(BgL_rtl_insz00_bglt)(BgL_treez00_95); 
BgL_auxz00_4087 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3409z00_2894))->BgL_destz00); } 
{ /* ./SawC/code.scm 456 */
obj_t BgL_auxz00_4083;
{ /* ./SawC/code.scm 456 */
BgL_rtl_insz00_bglt BgL_obj3415z00_2892;
BgL_obj3415z00_2892 = 
(BgL_rtl_insz00_bglt)(BgL_insz00_94); 
BgL_auxz00_4083 = 
(((BgL_rtl_insz00_bglt)CREF(BgL_obj3415z00_2892))->BgL_argsz00); } 
BgL_auxz00_4082 = 
CAR(BgL_auxz00_4083); } 
BgL__ortest_3552z00_1523 = 
(BgL_auxz00_4082==BgL_auxz00_4087); }  else 
{ /* ./SawC/code.scm 455 */
BgL__ortest_3552z00_1523 = ((bool_t)0); } } 
if(BgL__ortest_3552z00_1523)
{ /* ./SawC/code.scm 455 */
return BgL__ortest_3552z00_1523;}  else 
{ /* ./SawC/code.scm 458 */
bool_t BgL__andtest_3555z00_1524;
{ /* ./SawC/code.scm 458 */
obj_t BgL_obj3340z00_2895;
BgL_obj3340z00_2895 = 
(obj_t)(BgL_funz00_1520); 
BgL__andtest_3555z00_1524 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3340z00_2895, BGl_rtl_callz00zzsaw_defsz00); } 
if(BgL__andtest_3555z00_1524)
{ /* ./SawC/code.scm 459 */
BgL_globalz00_bglt BgL_arg4464z00_1525;
{ /* ./SawC/code.scm 459 */
BgL_rtl_callz00_bglt BgL_obj3331z00_2896;
BgL_obj3331z00_2896 = 
(BgL_rtl_callz00_bglt)(BgL_funz00_1520); 
BgL_arg4464z00_1525 = 
(((BgL_rtl_callz00_bglt)CREF(BgL_obj3331z00_2896))->BgL_varz00); } 
{ /* ./SawC/code.scm 459 */
bool_t BgL_test4491z00_2898;
BgL_test4491z00_2898 = 
BGl_globalzd2argszd2safezf3zf3zzast_varz00(BgL_arg4464z00_1525); 
if(BgL_test4491z00_2898)
{ /* ./SawC/code.scm 459 */
return ((bool_t)0);}  else 
{ /* ./SawC/code.scm 459 */
return ((bool_t)1);} } }  else 
{ /* ./SawC/code.scm 458 */
return ((bool_t)0);} } } } } } } 
}



/* emit-pragma */
obj_t BGl_emitzd2pragmazd2zzsaw_c_codez00(obj_t BgL_formatz00_97, obj_t BgL_argsz00_98)
{ AN_OBJECT;
{ /* ./SawC/code.scm 475 */
{ /* ./SawC/code.scm 476 */
bool_t BgL_test4493z00_1535;
BgL_test4493z00_1535 = 
NULLP(BgL_argsz00_98); 
if(BgL_test4493z00_1535)
{ /* ./SawC/code.scm 476 */
return 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_formatz00_97, BGl_za2czd2portza2zd2zzbackend_c_emitz00);}  else 
{ /* ./SawC/code.scm 478 */
obj_t BgL_sportz00_1536;
BgL_sportz00_1536 = 
open_input_string(BgL_formatz00_97); 
{ /* ./SawC/code.scm 478 */
obj_t BgL_argsz00_1537;
BgL_argsz00_1537 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_argsz00_98); 
{ /* ./SawC/code.scm 479 */
obj_t BgL_parserz00_1538;
{ /* ./SawC/code.scm 480 */
obj_t BgL_thezd2rgczd2contextz00_1539;
BgL_thezd2rgczd2contextz00_1539 = 
MAKE_CELL(BUNSPEC); 
{ /* ./SawC/code.scm 480 */
obj_t BgL_zc3anonymousza34496ze3z83_3270;
{ 
int BgL_auxz00_4104;
BgL_auxz00_4104 = 
(int)(((long)2)); 
BgL_zc3anonymousza34496ze3z83_3270 = 
MAKE_EL_PROCEDURE(BgL_auxz00_4104); } 
{ /* ./SawC/code.scm 480 */
int BgL_auxz00_4107;
BgL_auxz00_4107 = 
(int)(((long)0)); 
PROCEDURE_EL_SET(BgL_zc3anonymousza34496ze3z83_3270, BgL_auxz00_4107, BgL_thezd2rgczd2contextz00_1539); } 
{ /* ./SawC/code.scm 480 */
int BgL_auxz00_4110;
BgL_auxz00_4110 = 
(int)(((long)1)); 
PROCEDURE_EL_SET(BgL_zc3anonymousza34496ze3z83_3270, BgL_auxz00_4110, BgL_argsz00_1537); } 
BgL_parserz00_1538 = BgL_zc3anonymousza34496ze3z83_3270; } } 
{ /* ./SawC/code.scm 480 */

BGl_zc3anonymousza34496ze3z83zzsaw_c_codez00(BgL_parserz00_1538, BgL_sportz00_1536, BFALSE); 
return BTRUE;} } } } } } 
}



/* ignore */
obj_t BGl_ignorez00zzsaw_c_codez00(obj_t BgL_argsz00_3275, obj_t BgL_statezd20zd23557z00_3274, obj_t BgL_thezd2rgczd2contextz00_3273, obj_t BgL_procz00_3272, obj_t BgL_inputzd2portzd2_3271)
{ AN_OBJECT;
{ /* ./SawC/code.scm 480 */
BGl_ignorez00zzsaw_c_codez00:
RGC_START_MATCH(BgL_inputzd2portzd2_3271); 
{ /* ./SawC/code.scm 480 */
long BgL_matchz00_1567;
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4529z00_1579;
BgL_test4529z00_1579 = 
PROCEDUREP(BgL_procz00_3272); 
if(BgL_test4529z00_1579)
{ /* ./SawC/code.scm 480 */
obj_t BgL_auxz00_4118;
BgL_auxz00_4118 = 
PROCEDURE_ENTRY(BgL_procz00_3272)(BgL_procz00_3272, BgL_statezd20zd23557z00_3274, BgL_inputzd2portzd2_3271, 
BINT(((long)3)), 
CELL_REF(BgL_thezd2rgczd2contextz00_3273), BEOA); 
BgL_matchz00_1567 = 
(long)CINT(BgL_auxz00_4118); }  else 
{ /* ./SawC/code.scm 480 */
obj_t BgL_auxz00_4123;
BgL_auxz00_4123 = 
BGl_STATEzd20zd23557z00zzsaw_c_codez00(BgL_statezd20zd23557z00_3274, BgL_inputzd2portzd2_3271, 
BINT(((long)3)), 
CELL_REF(BgL_thezd2rgczd2contextz00_3273)); 
BgL_matchz00_1567 = 
(long)CINT(BgL_auxz00_4123); } } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_3271); 
switch( BgL_matchz00_1567) { case ((long)3) : 

return 
BGl_thezd2failurezd2zzsaw_c_codez00(BgL_inputzd2portzd2_3271);break;case ((long)2) : 

display_string(BGl_string6621z00zzsaw_c_codez00, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ 

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

{ /* ./SawC/code.scm 489 */
obj_t BgL_arg4506z00_1571;
BgL_arg4506z00_1571 = 
BGl_thezd2stringzd2zzsaw_c_codez00(BgL_inputzd2portzd2_3271); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4506z00_1571, BGl_za2czd2portza2zd2zzbackend_c_emitz00); } 
{ 

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

{ /* ./SawC/code.scm 482 */
obj_t BgL_strz00_1572;
BgL_strz00_1572 = 
BGl_thezd2stringzd2zzsaw_c_codez00(BgL_inputzd2portzd2_3271); 
{ /* ./SawC/code.scm 482 */
int BgL_lenz00_1573;
{ /* ./SawC/code.scm 483 */
int BgL_res5957z00_2906;
{ /* ./SawC/code.scm 483 */
long BgL_auxz00_4133;
BgL_auxz00_4133 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_3271); 
BgL_res5957z00_2906 = 
(int)(BgL_auxz00_4133); } 
BgL_lenz00_1573 = BgL_res5957z00_2906; } 
{ /* ./SawC/code.scm 483 */
obj_t BgL_indexz00_1574;
{ /* ./SawC/code.scm 485 */
obj_t BgL_arg4519z00_1577;
{ /* ./SawC/code.scm 485 */
int BgL_startz00_2908;
BgL_startz00_2908 = 
(int)(((long)1)); 
BgL_arg4519z00_1577 = 
c_substring(BgL_strz00_1572, BgL_startz00_2908, BgL_lenz00_1573); } 
BgL_indexz00_1574 = 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(BgL_arg4519z00_1577, BNIL); } 
{ /* ./SawC/code.scm 484 */

{ /* ./SawC/code.scm 486 */
obj_t BgL_arg4511z00_1575;
{ /* ./SawC/code.scm 486 */
long BgL_arg4514z00_1576;
{ /* ./SawC/code.scm 486 */
long BgL_auxz00_4139;
BgL_auxz00_4139 = 
(long)CINT(BgL_indexz00_1574); 
BgL_arg4514z00_1576 = 
(BgL_auxz00_4139-((long)1)); } 
{ /* ./SawC/code.scm 486 */
int BgL_kz00_2913;
BgL_kz00_2913 = 
(int)(BgL_arg4514z00_1576); 
BgL_arg4511z00_1575 = 
VECTOR_REF(BgL_argsz00_3275,BgL_kz00_2913); } } 
BGl_genzd2regzd2zzsaw_c_codez00(BgL_arg4511z00_1575); } 
{ 

goto BGl_ignorez00zzsaw_c_codez00;} } } } } break;
default: 
return 
BGl_case_else3564z00zzsaw_c_codez00(BgL_matchz00_1567);} } } 
}



/* the-string */
obj_t BGl_thezd2stringzd2zzsaw_c_codez00(obj_t BgL_inputzd2portzd2_3276)
{ AN_OBJECT;
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
int BgL_arg4586z00_1612;
{ /* ./SawC/code.scm 480 */
int BgL_res5959z00_2925;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4147;
BgL_auxz00_4147 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_3276); 
BgL_res5959z00_2925 = 
(int)(BgL_auxz00_4147); } 
BgL_arg4586z00_1612 = BgL_res5959z00_2925; } 
{ /* ./SawC/code.scm 480 */
int BgL_startz00_2927;
BgL_startz00_2927 = 
(int)(((long)0)); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_3276, BgL_startz00_2927, BgL_arg4586z00_1612);} } } 
}



/* the-failure */
obj_t BGl_thezd2failurezd2zzsaw_c_codez00(obj_t BgL_inputzd2portzd2_3277)
{ AN_OBJECT;
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4542z00_1589;
{ /* ./SawC/code.scm 480 */
int BgL_arg4549z00_1592;
{ /* ./SawC/code.scm 480 */
int BgL_res5958z00_2918;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4152;
BgL_auxz00_4152 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_3277); 
BgL_res5958z00_2918 = 
(int)(BgL_auxz00_4152); } 
BgL_arg4549z00_1592 = BgL_res5958z00_2918; } 
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4155;
BgL_auxz00_4155 = 
(long)(BgL_arg4549z00_1592); 
BgL_test4542z00_1589 = 
(BgL_auxz00_4155==((long)0)); } } 
if(BgL_test4542z00_1589)
{ /* ./SawC/code.scm 480 */
return BCNST(256);}  else 
{ /* ./SawC/code.scm 480 */
obj_t BgL_arg4544z00_1590;
BgL_arg4544z00_1590 = 
BGl_thezd2stringzd2zzsaw_c_codez00(BgL_inputzd2portzd2_3277); 
{ /* ./SawC/code.scm 480 */
unsigned char BgL_auxz00_4160;
{ /* ./SawC/code.scm 480 */
int BgL_auxz00_4161;
BgL_auxz00_4161 = 
(int)(((long)0)); 
BgL_auxz00_4160 = 
STRING_REF(BgL_arg4544z00_1590, BgL_auxz00_4161); } 
return 
BCHAR(BgL_auxz00_4160);} } } } 
}



/* case_else3564 */
obj_t BGl_case_else3564z00zzsaw_c_codez00(long BgL_matchz00_3278)
{ AN_OBJECT;
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
obj_t BgL_objectz00_2916;
BgL_objectz00_2916 = 
BINT(BgL_matchz00_3278); 
FAILURE(BGl_string6622z00zzsaw_c_codez00,BGl_string6623z00zzsaw_c_codez00,BgL_objectz00_2916);} } 
}



/* <anonymous:4496> */
obj_t BGl_zc3anonymousza34496ze3z83zzsaw_c_codez00(obj_t BgL_envz00_3279, obj_t BgL_inputzd2portzd2_3282, obj_t BgL_procz00_3283)
{ AN_OBJECT;
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
obj_t BgL_thezd2rgczd2contextz00_3280;obj_t BgL_argsz00_3281;
{ /* ./SawC/code.scm 480 */
int BgL_auxz00_4167;
BgL_auxz00_4167 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_3280 = 
PROCEDURE_EL_REF(BgL_envz00_3279, BgL_auxz00_4167); } 
{ /* ./SawC/code.scm 480 */
int BgL_auxz00_4170;
BgL_auxz00_4170 = 
(int)(((long)1)); 
BgL_argsz00_3281 = 
PROCEDURE_EL_REF(BgL_envz00_3279, BgL_auxz00_4170); } 
{ 
obj_t BgL_inputzd2portzd2_1540;obj_t BgL_procz00_1541;
BgL_inputzd2portzd2_1540 = BgL_inputzd2portzd2_3282; 
BgL_procz00_1541 = BgL_procz00_3283; 
return 
BGl_ignorez00zzsaw_c_codez00(BgL_argsz00_3281, BGl_proc6624z00zzsaw_c_codez00, BgL_thezd2rgczd2contextz00_3280, BgL_procz00_1541, BgL_inputzd2portzd2_1540);} } } 
}



/* STATE-0-3557 */
obj_t BGl_STATEzd20zd23557z00zzsaw_c_codez00(obj_t BgL_envz00_3284, obj_t BgL_inputzd2portzd2_3285, obj_t BgL_lastzd2matchzd2_3286, obj_t BgL_thezd2rgczd2contextz00_3287)
{ AN_OBJECT;
{ /* ./SawC/code.scm 480 */
{ 
obj_t BgL_inputzd2portzd2_1636;obj_t BgL_lastzd2matchzd2_1637;obj_t BgL_thezd2rgczd2contextz00_1638;
BgL_inputzd2portzd2_1636 = BgL_inputzd2portzd2_3285; 
BgL_lastzd2matchzd2_1637 = BgL_lastzd2matchzd2_3286; 
BgL_thezd2rgczd2contextz00_1638 = BgL_thezd2rgczd2contextz00_3287; 
BgL_zc3anonymousza34621ze3z83_1639:
{ 
obj_t BgL_inputzd2portzd2_1615;obj_t BgL_lastzd2matchzd2_1616;obj_t BgL_thezd2rgczd2contextz00_1617;obj_t BgL_inputzd2portzd2_1645;obj_t BgL_lastzd2matchzd2_1646;obj_t BgL_thezd2rgczd2contextz00_1647;obj_t BgL_inputzd2portzd2_1655;long BgL_lastzd2matchzd2_1656;obj_t BgL_thezd2rgczd2contextz00_1657;obj_t BgL_inputzd2portzd2_1626;long BgL_lastzd2matchzd2_1627;obj_t BgL_thezd2rgczd2contextz00_1628;
{ /* ./SawC/code.scm 480 */
int BgL_currentzd2charzd2_1640;
BgL_currentzd2charzd2_1640 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1636); 
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4622z00_1641;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4175;
BgL_auxz00_4175 = 
(long)(BgL_currentzd2charzd2_1640); 
BgL_test4622z00_1641 = 
(BgL_auxz00_4175==((long)0)); } 
if(BgL_test4622z00_1641)
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4623z00_1642;
BgL_test4623z00_1642 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1636); 
if(BgL_test4623z00_1642)
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4624z00_1643;
BgL_test4624z00_1643 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1636); 
if(BgL_test4624z00_1643)
{ 

goto BgL_zc3anonymousza34621ze3z83_1639;}  else 
{ /* ./SawC/code.scm 480 */
return BgL_lastzd2matchzd2_1637;} }  else 
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4183;
BgL_inputzd2portzd2_1645 = BgL_inputzd2portzd2_1636; 
BgL_lastzd2matchzd2_1646 = BgL_lastzd2matchzd2_1637; 
BgL_thezd2rgczd2contextz00_1647 = BgL_thezd2rgczd2contextz00_1638; 
BgL_zc3anonymousza34635ze3z83_1648:
{ /* ./SawC/code.scm 480 */
long BgL_newzd2matchzd2_1649;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1645); 
BgL_newzd2matchzd2_1649 = ((long)1); 
{ /* ./SawC/code.scm 480 */
int BgL_currentzd2charzd2_1650;
BgL_currentzd2charzd2_1650 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1645); 
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4636z00_1651;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4186;
BgL_auxz00_4186 = 
(long)(BgL_currentzd2charzd2_1650); 
BgL_test4636z00_1651 = 
(BgL_auxz00_4186==((long)0)); } 
if(BgL_test4636z00_1651)
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4637z00_1652;
BgL_test4637z00_1652 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1645); 
if(BgL_test4637z00_1652)
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4638z00_1653;
BgL_test4638z00_1653 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1645); 
if(BgL_test4638z00_1653)
{ 

goto BgL_zc3anonymousza34635ze3z83_1648;}  else 
{ /* ./SawC/code.scm 480 */
BgL_auxz00_4183 = BgL_newzd2matchzd2_1649
; } }  else 
{ /* ./SawC/code.scm 480 */
BgL_inputzd2portzd2_1655 = BgL_inputzd2portzd2_1645; 
BgL_lastzd2matchzd2_1656 = BgL_newzd2matchzd2_1649; 
BgL_thezd2rgczd2contextz00_1657 = BgL_thezd2rgczd2contextz00_1647; 
BgL_zc3anonymousza34649ze3z83_1658:
{ /* ./SawC/code.scm 480 */
long BgL_newzd2matchzd2_1659;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1655); 
BgL_newzd2matchzd2_1659 = ((long)1); 
{ /* ./SawC/code.scm 480 */
int BgL_currentzd2charzd2_1660;
BgL_currentzd2charzd2_1660 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1655); 
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4650z00_1661;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4196;
BgL_auxz00_4196 = 
(long)(BgL_currentzd2charzd2_1660); 
BgL_test4650z00_1661 = 
(BgL_auxz00_4196==((long)0)); } 
if(BgL_test4650z00_1661)
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4651z00_1662;
BgL_test4651z00_1662 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1655); 
if(BgL_test4651z00_1662)
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4652z00_1663;
BgL_test4652z00_1663 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1655); 
if(BgL_test4652z00_1663)
{ 

goto BgL_zc3anonymousza34649ze3z83_1658;}  else 
{ /* ./SawC/code.scm 480 */
BgL_auxz00_4183 = BgL_newzd2matchzd2_1659
; } }  else 
{ 
long BgL_lastzd2matchzd2_4204;
BgL_lastzd2matchzd2_4204 = BgL_newzd2matchzd2_1659; 
BgL_lastzd2matchzd2_1656 = BgL_lastzd2matchzd2_4204; 
goto BgL_zc3anonymousza34649ze3z83_1658;} } }  else 
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4657z00_1664;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4205;
BgL_auxz00_4205 = 
(long)(BgL_currentzd2charzd2_1660); 
BgL_test4657z00_1664 = 
(BgL_auxz00_4205==((long)36)); } 
if(BgL_test4657z00_1664)
{ /* ./SawC/code.scm 480 */
BgL_auxz00_4183 = BgL_newzd2matchzd2_1659; }  else 
{ /* ./SawC/code.scm 480 */
{ 
long BgL_lastzd2matchzd2_4209;
BgL_lastzd2matchzd2_4209 = BgL_newzd2matchzd2_1659; 
BgL_lastzd2matchzd2_1656 = BgL_lastzd2matchzd2_4209; 
goto BgL_zc3anonymousza34649ze3z83_1658;} } } } } } } } }  else 
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4643z00_1654;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4210;
BgL_auxz00_4210 = 
(long)(BgL_currentzd2charzd2_1650); 
BgL_test4643z00_1654 = 
(BgL_auxz00_4210==((long)36)); } 
if(BgL_test4643z00_1654)
{ /* ./SawC/code.scm 480 */
BgL_auxz00_4183 = BgL_newzd2matchzd2_1649; }  else 
{ /* ./SawC/code.scm 480 */
{ 
obj_t BgL_thezd2rgczd2contextz00_4216;long BgL_lastzd2matchzd2_4215;obj_t BgL_inputzd2portzd2_4214;
BgL_inputzd2portzd2_4214 = BgL_inputzd2portzd2_1645; 
BgL_lastzd2matchzd2_4215 = BgL_newzd2matchzd2_1649; 
BgL_thezd2rgczd2contextz00_4216 = BgL_thezd2rgczd2contextz00_1647; 
BgL_thezd2rgczd2contextz00_1657 = BgL_thezd2rgczd2contextz00_4216; 
BgL_lastzd2matchzd2_1656 = BgL_lastzd2matchzd2_4215; 
BgL_inputzd2portzd2_1655 = BgL_inputzd2portzd2_4214; 
goto BgL_zc3anonymousza34649ze3z83_1658;} } } } } } 
return 
BINT(BgL_auxz00_4183);} } }  else 
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4629z00_1644;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4218;
BgL_auxz00_4218 = 
(long)(BgL_currentzd2charzd2_1640); 
BgL_test4629z00_1644 = 
(BgL_auxz00_4218==((long)36)); } 
if(BgL_test4629z00_1644)
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4222;
BgL_inputzd2portzd2_1615 = BgL_inputzd2portzd2_1636; 
BgL_lastzd2matchzd2_1616 = BgL_lastzd2matchzd2_1637; 
BgL_thezd2rgczd2contextz00_1617 = BgL_thezd2rgczd2contextz00_1638; 
BgL_zc3anonymousza34592ze3z83_1618:
{ /* ./SawC/code.scm 480 */
long BgL_newzd2matchzd2_1619;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1615); 
BgL_newzd2matchzd2_1619 = ((long)3); 
{ /* ./SawC/code.scm 480 */
int BgL_currentzd2charzd2_1620;
BgL_currentzd2charzd2_1620 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1615); 
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4593z00_1621;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4225;
BgL_auxz00_4225 = 
(long)(BgL_currentzd2charzd2_1620); 
BgL_test4593z00_1621 = 
(BgL_auxz00_4225==((long)0)); } 
if(BgL_test4593z00_1621)
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4594z00_1622;
{ /* ./SawC/code.scm 480 */
bool_t BgL_res5960z00_2937;
{ /* ./SawC/code.scm 480 */
bool_t BgL__andtest_1005z00_2934;
BgL__andtest_1005z00_2934 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1615); 
if(BgL__andtest_1005z00_2934)
{ /* ./SawC/code.scm 480 */
BgL_res5960z00_2937 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1615); }  else 
{ /* ./SawC/code.scm 480 */
BgL_res5960z00_2937 = ((bool_t)0); } } 
BgL_test4594z00_1622 = BgL_res5960z00_2937; } 
if(BgL_test4594z00_1622)
{ 

goto BgL_zc3anonymousza34592ze3z83_1618;}  else 
{ /* ./SawC/code.scm 480 */
BgL_auxz00_4222 = BgL_newzd2matchzd2_1619
; } } }  else 
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4597z00_1623;
{ /* ./SawC/code.scm 480 */
bool_t BgL_testz00_4233;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4234;
BgL_auxz00_4234 = 
(long)(BgL_currentzd2charzd2_1620); 
BgL_testz00_4233 = 
(BgL_auxz00_4234>=((long)48)); } 
if(BgL_testz00_4233)
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4237;
BgL_auxz00_4237 = 
(long)(BgL_currentzd2charzd2_1620); 
BgL_test4597z00_1623 = 
(BgL_auxz00_4237<((long)58)); }  else 
{ /* ./SawC/code.scm 480 */
BgL_test4597z00_1623 = ((bool_t)0); } } 
if(BgL_test4597z00_1623)
{ /* ./SawC/code.scm 480 */
BgL_inputzd2portzd2_1626 = BgL_inputzd2portzd2_1615; 
BgL_lastzd2matchzd2_1627 = BgL_newzd2matchzd2_1619; 
BgL_thezd2rgczd2contextz00_1628 = BgL_thezd2rgczd2contextz00_1617; 
BgL_zc3anonymousza34608ze3z83_1629:
{ /* ./SawC/code.scm 480 */
long BgL_newzd2matchzd2_1630;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1626); 
BgL_newzd2matchzd2_1630 = ((long)0); 
{ /* ./SawC/code.scm 480 */
int BgL_currentzd2charzd2_1631;
BgL_currentzd2charzd2_1631 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1626); 
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4609z00_1632;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4243;
BgL_auxz00_4243 = 
(long)(BgL_currentzd2charzd2_1631); 
BgL_test4609z00_1632 = 
(BgL_auxz00_4243==((long)0)); } 
if(BgL_test4609z00_1632)
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4610z00_1633;
{ /* ./SawC/code.scm 480 */
bool_t BgL_res5961z00_2957;
{ /* ./SawC/code.scm 480 */
bool_t BgL__andtest_1005z00_2954;
BgL__andtest_1005z00_2954 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1626); 
if(BgL__andtest_1005z00_2954)
{ /* ./SawC/code.scm 480 */
BgL_res5961z00_2957 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1626); }  else 
{ /* ./SawC/code.scm 480 */
BgL_res5961z00_2957 = ((bool_t)0); } } 
BgL_test4610z00_1633 = BgL_res5961z00_2957; } 
if(BgL_test4610z00_1633)
{ 

goto BgL_zc3anonymousza34608ze3z83_1629;}  else 
{ /* ./SawC/code.scm 480 */
BgL_auxz00_4222 = BgL_newzd2matchzd2_1630
; } } }  else 
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4613z00_1634;
{ /* ./SawC/code.scm 480 */
bool_t BgL_testz00_4251;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4252;
BgL_auxz00_4252 = 
(long)(BgL_currentzd2charzd2_1631); 
BgL_testz00_4251 = 
(BgL_auxz00_4252>=((long)48)); } 
if(BgL_testz00_4251)
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4255;
BgL_auxz00_4255 = 
(long)(BgL_currentzd2charzd2_1631); 
BgL_test4613z00_1634 = 
(BgL_auxz00_4255<((long)58)); }  else 
{ /* ./SawC/code.scm 480 */
BgL_test4613z00_1634 = ((bool_t)0); } } 
if(BgL_test4613z00_1634)
{ /* ./SawC/code.scm 480 */
{ 
long BgL_lastzd2matchzd2_4259;
BgL_lastzd2matchzd2_4259 = BgL_newzd2matchzd2_1630; 
BgL_lastzd2matchzd2_1627 = BgL_lastzd2matchzd2_4259; 
goto BgL_zc3anonymousza34608ze3z83_1629;} }  else 
{ /* ./SawC/code.scm 480 */
BgL_auxz00_4222 = BgL_newzd2matchzd2_1630; } } } } } }  else 
{ /* ./SawC/code.scm 480 */
bool_t BgL_test4599z00_1624;
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4260;
BgL_auxz00_4260 = 
(long)(BgL_currentzd2charzd2_1620); 
BgL_test4599z00_1624 = 
(BgL_auxz00_4260==((long)36)); } 
if(BgL_test4599z00_1624)
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
long BgL_newzd2matchzd2_2947;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1615); 
BgL_newzd2matchzd2_2947 = ((long)2); 
BgL_auxz00_4222 = BgL_newzd2matchzd2_2947; } }  else 
{ /* ./SawC/code.scm 480 */
BgL_auxz00_4222 = BgL_newzd2matchzd2_1619; } } } } } } 
return 
BINT(BgL_auxz00_4222);} }  else 
{ /* ./SawC/code.scm 480 */
{ /* ./SawC/code.scm 480 */
long BgL_auxz00_4266;
{ 
obj_t BgL_thezd2rgczd2contextz00_4269;obj_t BgL_lastzd2matchzd2_4268;obj_t BgL_inputzd2portzd2_4267;
BgL_inputzd2portzd2_4267 = BgL_inputzd2portzd2_1636; 
BgL_lastzd2matchzd2_4268 = BgL_lastzd2matchzd2_1637; 
BgL_thezd2rgczd2contextz00_4269 = BgL_thezd2rgczd2contextz00_1638; 
BgL_thezd2rgczd2contextz00_1647 = BgL_thezd2rgczd2contextz00_4269; 
BgL_lastzd2matchzd2_1646 = BgL_lastzd2matchzd2_4268; 
BgL_inputzd2portzd2_1645 = BgL_inputzd2portzd2_4267; 
goto BgL_zc3anonymousza34635ze3z83_1648;} 
return 
BINT(BgL_auxz00_4266);} } } } } } } } 
}



/* object-init */
obj_t BGl_objectzd2initzd2zzsaw_c_codez00()
{ AN_OBJECT;
{ /* ./SawC/code.scm 1 */
{ /* ./SawC/code.scm 24 */
obj_t BgL_arg4670z00_1697;obj_t BgL_arg4671z00_1698;obj_t BgL_arg4675z00_1702;
BgL_arg4670z00_1697 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg4671z00_1698 = BGl_rtl_regz00zzsaw_defsz00; 
{ /* ./SawC/code.scm 24 */
obj_t BgL_v3566z00_1703;
{ 
int BgL_auxz00_4272;
BgL_auxz00_4272 = 
(int)(((long)0)); 
BgL_v3566z00_1703 = 
create_vector(BgL_auxz00_4272); } 
BgL_arg4675z00_1702 = BgL_v3566z00_1703; } 
BGl_iregz00zzsaw_c_codez00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4670z00_1697, BgL_arg4671z00_1698, BFALSE, BGl_allocatezd2iregzd2envz00zzsaw_c_codez00, ((long)36087), BNIL, BFALSE, BgL_arg4675z00_1702); } 
return BUNSPEC;} 
}



/* _allocate-ireg */
obj_t BGl__allocatezd2iregzd2zzsaw_c_codez00(obj_t BgL_envz00_3288)
{ AN_OBJECT;
{ /* ./SawC/code.scm 24 */
{ /* ./SawC/code.scm 24 */
BgL_rtl_regz00_bglt BgL_auxz00_4276;
{ /* ./SawC/code.scm 24 */
BgL_rtl_regz00_bglt BgL_res6694z00_3438;
{ /* ./SawC/code.scm 24 */
BgL_rtl_regz00_bglt BgL_new3475z00_3434;
BgL_new3475z00_3434 = 
((BgL_rtl_regz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_rtl_regz00_bgl) ))); 
{ /* ./SawC/code.scm 24 */
long BgL_arg4692z00_3435;
BgL_arg4692z00_3435 = 
BGl_classzd2numzd2zz__objectz00(BGl_iregz00zzsaw_c_codez00); 
{ /* ./SawC/code.scm 24 */
BgL_objectz00_bglt BgL_objz00_3436;
BgL_objz00_3436 = 
(BgL_objectz00_bglt)(BgL_new3475z00_3434); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3436, BgL_arg4692z00_3435); } } 
{ /* ./SawC/code.scm 24 */
BgL_objectz00_bglt BgL_auxz00_4281;
BgL_auxz00_4281 = 
(BgL_objectz00_bglt)(BgL_new3475z00_3434); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4281, BFALSE); } 
{ /* ./SawC/code.scm 24 */
obj_t BgL_objz00_3437;
BgL_objz00_3437 = 
(obj_t)(BgL_new3475z00_3434); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3437); BUNSPEC; } 
BgL_res6694z00_3438 = BgL_new3475z00_3434; } 
BgL_auxz00_4276 = BgL_res6694z00_3438; } 
return 
(obj_t)(BgL_auxz00_4276);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzsaw_c_codez00()
{ AN_OBJECT;
{ /* ./SawC/code.scm 1 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_genzd2exprzd2envz00zzsaw_c_codez00, BGl_genzd2exprzd2default3567zd2envzd2zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2exprzd2envz00zzsaw_c_codez00, BGl_rtl_lightfuncallz00zzsaw_defsz00, BGl_proc6625z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2exprzd2envz00zzsaw_c_codez00, BGl_rtl_funcallz00zzsaw_defsz00, BGl_proc6626z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2exprzd2envz00zzsaw_c_codez00, BGl_rtl_protectz00zzsaw_defsz00, BGl_proc6627z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2exprzd2envz00zzsaw_c_codez00, BGl_rtl_pragmaz00zzsaw_defsz00, BGl_proc6628z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2exprzd2envz00zzsaw_c_codez00, BGl_rtl_switchz00zzsaw_defsz00, BGl_proc6629z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2exprzd2envz00zzsaw_c_codez00, BGl_rtl_callz00zzsaw_defsz00, BGl_proc6630z00zzsaw_c_codez00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BGl_genzd2funzd2namezd2default3581zd2envz00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BGl_rtl_vallocz00zzsaw_defsz00, BGl_proc6631z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BGl_rtl_vrefz00zzsaw_defsz00, BGl_proc6632z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BGl_rtl_vsetz00zzsaw_defsz00, BGl_proc6633z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BGl_rtl_vlengthz00zzsaw_defsz00, BGl_proc6634z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BGl_rtl_movz00zzsaw_defsz00, BGl_proc6635z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BGl_rtl_loadiz00zzsaw_defsz00, BGl_proc6636z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BGl_rtl_loadgz00zzsaw_defsz00, BGl_proc6637z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BGl_rtl_returnz00zzsaw_defsz00, BGl_proc6638z00zzsaw_c_codez00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_genzd2prefixzd2default3599zd2envzd2zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_loadiz00zzsaw_defsz00, BGl_proc6639z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_loadgz00zzsaw_defsz00, BGl_proc6640z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_loadfunz00zzsaw_defsz00, BGl_proc6641z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_storegz00zzsaw_defsz00, BGl_proc6642z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_globalrefz00zzsaw_defsz00, BGl_proc6643z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_goz00zzsaw_defsz00, BGl_proc6644z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_ifeqz00zzsaw_defsz00, BGl_proc6645z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_ifnez00zzsaw_defsz00, BGl_proc6646z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_vallocz00zzsaw_defsz00, BGl_proc6647z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_vrefz00zzsaw_defsz00, BGl_proc6648z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_vsetz00zzsaw_defsz00, BGl_proc6649z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_vlengthz00zzsaw_defsz00, BGl_proc6650z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BGl_rtl_castz00zzsaw_defsz00, BGl_proc6651z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_backendzd2subtypezf3zd2envzf3zzbackend_backendz00, BGl_cvmz00zzbackend_backendz00, BGl_proc6652z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_acceptzd2foldingzf3zd2envzf3zzsaw_exprz00, BGl_cvmz00zzbackend_backendz00, BGl_proc6653z00zzsaw_c_codez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_iregz00zzsaw_c_codez00, BGl_proc6654z00zzsaw_c_codez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_iregz00zzsaw_c_codez00, BGl_proc6655z00zzsaw_c_codez00);} 
}



/* struct+object->object-ireg3635 */
obj_t BGl_structzb2objectzd2ze3objectzd2ireg3635z51zzsaw_c_codez00(obj_t BgL_envz00_3325, obj_t BgL_oz00_3326, obj_t BgL_sz00_3327)
{ AN_OBJECT;
{ /* ./SawC/code.scm 24 */
{ 
BgL_iregz00_bglt BgL_oz00_2552;obj_t BgL_sz00_2553;
{ /* ./SawC/code.scm 24 */
BgL_iregz00_bglt BgL_auxz00_4321;
BgL_oz00_2552 = 
(BgL_iregz00_bglt)(BgL_oz00_3326); 
BgL_sz00_2553 = BgL_sz00_3327; 
{ 

{ /* ./SawC/code.scm 24 */
obj_t BgL_old3479z00_2556;obj_t BgL_aux3480z00_2557;
{ /* ./SawC/code.scm 24 */
obj_t BgL_nextzd2method3634zd2_2562;
BgL_nextzd2method3634zd2_2562 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2552), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_iregz00zzsaw_c_codez00); 
{ /* ./SawC/code.scm 24 */
bool_t BgL_test5904z00_2563;
BgL_test5904z00_2563 = 
PROCEDUREP(BgL_nextzd2method3634zd2_2562); 
if(BgL_test5904z00_2563)
{ /* ./SawC/code.scm 24 */
BgL_old3479z00_2556 = 
PROCEDURE_ENTRY(BgL_nextzd2method3634zd2_2562)(BgL_nextzd2method3634zd2_2562, 
(obj_t)(BgL_oz00_2552), BgL_sz00_2553, BEOA); }  else 
{ /* ./SawC/code.scm 24 */
{ /* ./SawC/code.scm 24 */
BgL_objectz00_bglt BgL_auxz00_4329;
BgL_auxz00_4329 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2552), BgL_sz00_2553); 
BgL_old3479z00_2556 = 
(obj_t)(BgL_auxz00_4329); } } } } 
{ /* ./SawC/code.scm 24 */
int BgL_auxz00_4333;
BgL_auxz00_4333 = 
(int)(((long)0)); 
BgL_aux3480z00_2557 = 
STRUCT_REF(BgL_sz00_2553, BgL_auxz00_4333); } 
{ /* ./SawC/code.scm 24 */
BgL_iregz00_bglt BgL_new3481z00_2558;
BgL_new3481z00_2558 = 
((BgL_iregz00_bglt)(BgL_old3479z00_2556)); 
{ /* ./SawC/code.scm 24 */
long BgL_arg5891z00_2559;
BgL_arg5891z00_2559 = 
BGl_classzd2numzd2zz__objectz00(BGl_iregz00zzsaw_c_codez00); 
{ /* ./SawC/code.scm 24 */
BgL_objectz00_bglt BgL_objz00_3108;
BgL_objz00_3108 = 
(BgL_objectz00_bglt)(BgL_new3481z00_2558); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3108, BgL_arg5891z00_2559); } } 
{ /* ./SawC/code.scm 24 */
BgL_iregz00_bglt BgL_arg5895z00_2560;
{ /* ./SawC/code.scm 24 */
obj_t BgL_arg5898z00_2561;
{ /* ./SawC/code.scm 24 */
int BgL_auxz00_4340;
BgL_auxz00_4340 = 
(int)(((long)0)); 
BgL_arg5898z00_2561 = 
STRUCT_REF(BgL_aux3480z00_2557, BgL_auxz00_4340); } 
{ /* ./SawC/code.scm 24 */
BgL_iregz00_bglt BgL_res5965z00_3118;
{ /* ./SawC/code.scm 24 */
BgL_iregz00_bglt BgL_new3464z00_3113;
BgL_new3464z00_3113 = 
((BgL_iregz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_iregz00_bgl)))); 
{ /* ./SawC/code.scm 24 */
BgL_iregz00_bglt BgL_res5964z00_3117;
{ /* ./SawC/code.scm 24 */
BgL_iregz00_bglt BgL_new3472z00_3114;
BgL_new3472z00_3114 = BgL_new3464z00_3113; 
{ /* ./SawC/code.scm 24 */
obj_t BgL_index3471z00_3116;
BgL_index3471z00_3116 = BgL_arg5898z00_2561; 
((((BgL_iregz00_bglt)CREF(BgL_new3472z00_3114))->BgL_indexz00) = ((obj_t)BgL_index3471z00_3116), BUNSPEC); 
BgL_res5964z00_3117 = BgL_new3472z00_3114; } } BgL_res5964z00_3117; } 
BgL_res5965z00_3118 = BgL_new3464z00_3113; } 
BgL_arg5895z00_2560 = BgL_res5965z00_3118; } } 
{ /* ./SawC/code.scm 24 */
obj_t BgL_auxz00_4347;BgL_objectz00_bglt BgL_auxz00_4345;
BgL_auxz00_4347 = 
(obj_t)(BgL_arg5895z00_2560); 
BgL_auxz00_4345 = 
(BgL_objectz00_bglt)(BgL_new3481z00_2558); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4345, BgL_auxz00_4347); } } 
{ /* ./SawC/code.scm 24 */
obj_t BgL_objz00_3119;
BgL_objz00_3119 = 
(obj_t)(BgL_new3481z00_2558); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3119); BUNSPEC; } 
BgL_auxz00_4321 = BgL_new3481z00_2558; } } } 
return 
(obj_t)(BgL_auxz00_4321);} } } 
}



/* object->struct-ireg3633 */
obj_t BGl_objectzd2ze3structzd2ireg3633ze3zzsaw_c_codez00(obj_t BgL_envz00_3328, obj_t BgL_obj3476z00_3329)
{ AN_OBJECT;
{ /* ./SawC/code.scm 24 */
{ 
BgL_iregz00_bglt BgL_obj3476z00_2542;
BgL_obj3476z00_2542 = 
(BgL_iregz00_bglt)(BgL_obj3476z00_3329); 
{ 

{ /* ./SawC/code.scm 24 */
obj_t BgL_res3477z00_2545;
{ /* ./SawC/code.scm 24 */
obj_t BgL_nextzd2method3632zd2_2550;
BgL_nextzd2method3632zd2_2550 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3476z00_2542), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_iregz00zzsaw_c_codez00); 
{ /* ./SawC/code.scm 24 */
bool_t BgL_test5884z00_2551;
BgL_test5884z00_2551 = 
PROCEDUREP(BgL_nextzd2method3632zd2_2550); 
if(BgL_test5884z00_2551)
{ /* ./SawC/code.scm 24 */
BgL_res3477z00_2545 = 
PROCEDURE_ENTRY(BgL_nextzd2method3632zd2_2550)(BgL_nextzd2method3632zd2_2550, 
(obj_t)(BgL_obj3476z00_2542), BEOA); }  else 
{ /* ./SawC/code.scm 24 */
BgL_res3477z00_2545 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3476z00_2542)); } } } 
{ /* ./SawC/code.scm 24 */
obj_t BgL_aux3478z00_2546;
{ /* ./SawC/code.scm 24 */
obj_t BgL_keyz00_3089;int BgL_lenz00_3090;
BgL_keyz00_3089 = 
CNST_TABLE_REF(((long)5)); 
BgL_lenz00_3090 = 
(int)(((long)1)); 
BgL_aux3478z00_2546 = 
make_struct(BgL_keyz00_3089, BgL_lenz00_3090, BUNSPEC); } 
{ /* ./SawC/code.scm 24 */
obj_t BgL_arg5873z00_2548;
{ 
obj_t BgL_auxz00_4366;
{ /* ./SawC/code.scm 24 */
BgL_objectz00_bglt BgL_auxz00_4367;
BgL_auxz00_4367 = 
(BgL_objectz00_bglt)(BgL_obj3476z00_2542); 
BgL_auxz00_4366 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4367); } 
BgL_arg5873z00_2548 = 
(((BgL_iregz00_bglt)CREF(BgL_auxz00_4366))->BgL_indexz00); } 
{ /* ./SawC/code.scm 24 */
int BgL_kz00_3094;
BgL_kz00_3094 = 
(int)(((long)0)); 
STRUCT_SET(BgL_aux3478z00_2546, BgL_kz00_3094, BgL_arg5873z00_2548); } } 
{ /* ./SawC/code.scm 24 */
int BgL_kz00_3097;
BgL_kz00_3097 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3477z00_2545, BgL_kz00_3097, BgL_aux3478z00_2546); } 
{ /* ./SawC/code.scm 24 */
obj_t BgL_arg5878z00_2549;
BgL_arg5878z00_2549 = 
STRUCT_KEY(BgL_res3477z00_2545); 
STRUCT_KEY_SET(BgL_aux3478z00_2546, BgL_arg5878z00_2549); } 
{ /* ./SawC/code.scm 24 */
obj_t BgL_kz00_3104;
BgL_kz00_3104 = 
CNST_TABLE_REF(((long)5)); 
STRUCT_KEY_SET(BgL_res3477z00_2545, BgL_kz00_3104); } 
return BgL_res3477z00_2545;} } } } } 
}



/* accept-folding?-cvm3631 */
obj_t BGl_acceptzd2foldingzf3zd2cvm3631zf3zzsaw_c_codez00(obj_t BgL_envz00_3330, obj_t BgL_bz00_3331, obj_t BgL_insz00_3332, obj_t BgL_treez00_3333)
{ AN_OBJECT;
{ /* ./SawC/code.scm 439 */
{ 
BgL_cvmz00_bglt BgL_bz00_2533;obj_t BgL_insz00_2534;obj_t BgL_treez00_2535;
{ /* ./SawC/code.scm 440 */
bool_t BgL_auxz00_4380;
BgL_bz00_2533 = 
(BgL_cvmz00_bglt)(BgL_bz00_3331); 
BgL_insz00_2534 = BgL_insz00_3332; 
BgL_treez00_2535 = BgL_treez00_3333; 
{ /* ./SawC/code.scm 440 */
bool_t BgL__ortest_3547z00_3087;
BgL__ortest_3547z00_3087 = 
BGl_deepzd2movzf3z21zzsaw_c_codez00(BgL_treez00_2535); 
if(BgL__ortest_3547z00_3087)
{ /* ./SawC/code.scm 440 */
BgL_auxz00_4380 = BgL__ortest_3547z00_3087
; }  else 
{ /* ./SawC/code.scm 440 */
bool_t BgL_test5862z00_3088;
BgL_test5862z00_3088 = 
BGl_multiplezd2evaluationzd2zzsaw_c_codez00(BgL_insz00_2534, BgL_treez00_2535); 
if(BgL_test5862z00_3088)
{ /* ./SawC/code.scm 440 */
BgL_auxz00_4380 = ((bool_t)0)
; }  else 
{ /* ./SawC/code.scm 440 */
BgL_auxz00_4380 = ((bool_t)1)
; } } } 
return 
BBOOL(BgL_auxz00_4380);} } } 
}



/* backend-subtype?-cvm3629 */
obj_t BGl_backendzd2subtypezf3zd2cvm3629zf3zzsaw_c_codez00(obj_t BgL_envz00_3334, obj_t BgL_bz00_3335, obj_t BgL_t1z00_3336, obj_t BgL_t2z00_3337)
{ AN_OBJECT;
{ /* ./SawC/code.scm 431 */
{ 
BgL_cvmz00_bglt BgL_bz00_2521;BgL_typez00_bglt BgL_t1z00_2522;BgL_typez00_bglt BgL_t2z00_2523;
{ /* ./SawC/code.scm 433 */
bool_t BgL_auxz00_4387;
BgL_bz00_2521 = 
(BgL_cvmz00_bglt)(BgL_bz00_3335); 
BgL_t1z00_2522 = 
(BgL_typez00_bglt)(BgL_t1z00_3336); 
BgL_t2z00_2523 = 
(BgL_typez00_bglt)(BgL_t2z00_3337); 
{ /* ./SawC/code.scm 433 */
bool_t BgL__ortest_3546z00_2526;
{ /* ./SawC/code.scm 433 */
obj_t BgL_auxz00_4390;obj_t BgL_auxz00_4388;
BgL_auxz00_4390 = 
(((BgL_typez00_bglt)CREF(BgL_t2z00_2523))->BgL_idz00); 
BgL_auxz00_4388 = 
(((BgL_typez00_bglt)CREF(BgL_t1z00_2522))->BgL_idz00); 
BgL__ortest_3546z00_2526 = 
(BgL_auxz00_4388==BgL_auxz00_4390); } 
if(BgL__ortest_3546z00_2526)
{ /* ./SawC/code.scm 433 */
BgL_auxz00_4387 = BgL__ortest_3546z00_2526
; }  else 
{ /* ./SawC/code.scm 434 */
obj_t BgL_arg5845z00_2527;obj_t BgL_arg5846z00_2528;
BgL_arg5845z00_2527 = 
(((BgL_typez00_bglt)CREF(BgL_t1z00_2522))->BgL_namez00); 
BgL_arg5846z00_2528 = 
(((BgL_typez00_bglt)CREF(BgL_t2z00_2523))->BgL_namez00); 
BgL_auxz00_4387 = 
bigloo_strcmp(BgL_arg5845z00_2527, BgL_arg5846z00_2528); } } 
return 
BBOOL(BgL_auxz00_4387);} } } 
}



/* gen-prefix-rtl_cast3627 */
obj_t BGl_genzd2prefixzd2rtl_cast3627z00zzsaw_c_codez00(obj_t BgL_envz00_3338, obj_t BgL_funz00_3339)
{ AN_OBJECT;
{ /* ./SawC/code.scm 379 */
{ 
BgL_rtl_castz00_bglt BgL_funz00_2510;
BgL_funz00_2510 = 
(BgL_rtl_castz00_bglt)(BgL_funz00_3339); 
{ /* ./SawC/code.scm 380 */
obj_t BgL_arg5824z00_2513;obj_t BgL_arg5825z00_2514;
{ /* ./SawC/code.scm 380 */
BgL_typez00_bglt BgL_arg5828z00_2515;
BgL_arg5828z00_2515 = 
(((BgL_rtl_castz00_bglt)CREF(BgL_funz00_2510))->BgL_typez00); 
BgL_arg5824z00_2513 = 
BGl_makezd2typedzd2declarationz00zztype_toolsz00(BgL_arg5828z00_2515, BGl_string6566z00zzsaw_c_codez00); } 
BgL_arg5825z00_2514 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg5824z00_2513, BgL_arg5825z00_2514); } 
{ /* ./SawC/code.scm 381 */
obj_t BgL_arg5835z00_2518;
BgL_arg5835z00_2518 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6563z00zzsaw_c_codez00, BgL_arg5835z00_2518);} } } 
}



/* gen-prefix-rtl_vlength3625 */
obj_t BGl_genzd2prefixzd2rtl_vlength3625z00zzsaw_c_codez00(obj_t BgL_envz00_3340, obj_t BgL_funz00_3341)
{ AN_OBJECT;
{ /* ./SawC/code.scm 376 */
{ 
BgL_rtl_vlengthz00_bglt BgL_funz00_2504;
BgL_funz00_2504 = 
(BgL_rtl_vlengthz00_bglt)(BgL_funz00_3341); 
{ /* ./SawC/code.scm 377 */
BgL_typez00_bglt BgL_arg5814z00_3078;
BgL_arg5814z00_3078 = 
(((BgL_rtl_vlengthz00_bglt)CREF(BgL_funz00_2504))->BgL_typez00); 
return 
BGl_vextraz00zzsaw_c_codez00(BgL_arg5814z00_3078);} } } 
}



/* gen-prefix-rtl_vset3623 */
obj_t BGl_genzd2prefixzd2rtl_vset3623z00zzsaw_c_codez00(obj_t BgL_envz00_3342, obj_t BgL_funz00_3343)
{ AN_OBJECT;
{ /* ./SawC/code.scm 373 */
{ 
BgL_rtl_vsetz00_bglt BgL_funz00_2498;
BgL_funz00_2498 = 
(BgL_rtl_vsetz00_bglt)(BgL_funz00_3343); 
{ /* ./SawC/code.scm 374 */
BgL_typez00_bglt BgL_arg5804z00_3076;
BgL_arg5804z00_3076 = 
(((BgL_rtl_vsetz00_bglt)CREF(BgL_funz00_2498))->BgL_typez00); 
return 
BGl_vextraz00zzsaw_c_codez00(BgL_arg5804z00_3076);} } } 
}



/* gen-prefix-rtl_vref3621 */
obj_t BGl_genzd2prefixzd2rtl_vref3621z00zzsaw_c_codez00(obj_t BgL_envz00_3344, obj_t BgL_funz00_3345)
{ AN_OBJECT;
{ /* ./SawC/code.scm 370 */
{ 
BgL_rtl_vrefz00_bglt BgL_funz00_2492;
BgL_funz00_2492 = 
(BgL_rtl_vrefz00_bglt)(BgL_funz00_3345); 
{ /* ./SawC/code.scm 371 */
BgL_typez00_bglt BgL_arg5794z00_3074;
BgL_arg5794z00_3074 = 
(((BgL_rtl_vrefz00_bglt)CREF(BgL_funz00_2492))->BgL_typez00); 
return 
BGl_vextraz00zzsaw_c_codez00(BgL_arg5794z00_3074);} } } 
}



/* gen-prefix-rtl_valloc3619 */
obj_t BGl_genzd2prefixzd2rtl_valloc3619z00zzsaw_c_codez00(obj_t BgL_envz00_3346, obj_t BgL_funz00_3347)
{ AN_OBJECT;
{ /* ./SawC/code.scm 367 */
{ 
BgL_rtl_vallocz00_bglt BgL_funz00_2486;
BgL_funz00_2486 = 
(BgL_rtl_vallocz00_bglt)(BgL_funz00_3347); 
{ /* ./SawC/code.scm 368 */
BgL_typez00_bglt BgL_arg5784z00_3072;
BgL_arg5784z00_3072 = 
(((BgL_rtl_vallocz00_bglt)CREF(BgL_funz00_2486))->BgL_typez00); 
return 
BGl_vextraz00zzsaw_c_codez00(BgL_arg5784z00_3072);} } } 
}



/* gen-prefix-rtl_ifne3617 */
obj_t BGl_genzd2prefixzd2rtl_ifne3617z00zzsaw_c_codez00(obj_t BgL_envz00_3348, obj_t BgL_funz00_3349)
{ AN_OBJECT;
{ /* ./SawC/code.scm 359 */
{ 
BgL_rtl_ifnez00_bglt BgL_funz00_2474;
BgL_funz00_2474 = 
(BgL_rtl_ifnez00_bglt)(BgL_funz00_3349); 
{ /* ./SawC/code.scm 360 */
int BgL_arg5762z00_2478;
{ /* ./SawC/code.scm 360 */
BgL_blockz00_bglt BgL_arg5774z00_2483;
BgL_arg5774z00_2483 = 
(((BgL_rtl_ifnez00_bglt)CREF(BgL_funz00_2474))->BgL_thenz00); 
BgL_arg5762z00_2478 = 
(((BgL_blockz00_bglt)CREF(BgL_arg5774z00_2483))->BgL_labelz00); } 
{ /* ./SawC/code.scm 360 */
obj_t BgL_list5765z00_2480;
{ /* ./SawC/code.scm 360 */
obj_t BgL_arg5767z00_2481;
{ /* ./SawC/code.scm 360 */
obj_t BgL_arg5770z00_2482;
BgL_arg5770z00_2482 = 
MAKE_PAIR(BGl_string6563z00zzsaw_c_codez00, BNIL); 
{ /* ./SawC/code.scm 360 */
obj_t BgL_auxz00_4423;
BgL_auxz00_4423 = 
BINT(BgL_arg5762z00_2478); 
BgL_arg5767z00_2481 = 
MAKE_PAIR(BgL_auxz00_4423, BgL_arg5770z00_2482); } } 
BgL_list5765z00_2480 = 
MAKE_PAIR(BGl_string6568z00zzsaw_c_codez00, BgL_arg5767z00_2481); } 
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list5765z00_2480);} } } } 
}



/* gen-prefix-rtl_ifeq3615 */
obj_t BGl_genzd2prefixzd2rtl_ifeq3615z00zzsaw_c_codez00(obj_t BgL_envz00_3350, obj_t BgL_funz00_3351)
{ AN_OBJECT;
{ /* ./SawC/code.scm 356 */
{ 
BgL_rtl_ifeqz00_bglt BgL_funz00_2462;
BgL_funz00_2462 = 
(BgL_rtl_ifeqz00_bglt)(BgL_funz00_3351); 
{ /* ./SawC/code.scm 357 */
int BgL_arg5739z00_2466;
{ /* ./SawC/code.scm 357 */
BgL_blockz00_bglt BgL_arg5751z00_2471;
BgL_arg5751z00_2471 = 
(((BgL_rtl_ifeqz00_bglt)CREF(BgL_funz00_2462))->BgL_thenz00); 
BgL_arg5739z00_2466 = 
(((BgL_blockz00_bglt)CREF(BgL_arg5751z00_2471))->BgL_labelz00); } 
{ /* ./SawC/code.scm 357 */
obj_t BgL_list5742z00_2468;
{ /* ./SawC/code.scm 357 */
obj_t BgL_arg5744z00_2469;
{ /* ./SawC/code.scm 357 */
obj_t BgL_arg5747z00_2470;
BgL_arg5747z00_2470 = 
MAKE_PAIR(BGl_string6563z00zzsaw_c_codez00, BNIL); 
{ /* ./SawC/code.scm 357 */
obj_t BgL_auxz00_4432;
BgL_auxz00_4432 = 
BINT(BgL_arg5739z00_2466); 
BgL_arg5744z00_2469 = 
MAKE_PAIR(BgL_auxz00_4432, BgL_arg5747z00_2470); } } 
BgL_list5742z00_2468 = 
MAKE_PAIR(BGl_string6568z00zzsaw_c_codez00, BgL_arg5744z00_2469); } 
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list5742z00_2468);} } } } 
}



/* gen-prefix-rtl_go3613 */
obj_t BGl_genzd2prefixzd2rtl_go3613z00zzsaw_c_codez00(obj_t BgL_envz00_3352, obj_t BgL_funz00_3353)
{ AN_OBJECT;
{ /* ./SawC/code.scm 353 */
{ 
BgL_rtl_goz00_bglt BgL_funz00_2452;
BgL_funz00_2452 = 
(BgL_rtl_goz00_bglt)(BgL_funz00_3353); 
{ /* ./SawC/code.scm 354 */
int BgL_arg5720z00_2456;
{ /* ./SawC/code.scm 354 */
BgL_blockz00_bglt BgL_arg5728z00_2459;
BgL_arg5728z00_2459 = 
(((BgL_rtl_goz00_bglt)CREF(BgL_funz00_2452))->BgL_toz00); 
BgL_arg5720z00_2456 = 
(((BgL_blockz00_bglt)CREF(BgL_arg5728z00_2459))->BgL_labelz00); } 
{ /* ./SawC/code.scm 354 */
obj_t BgL_list5722z00_2457;
{ /* ./SawC/code.scm 354 */
obj_t BgL_arg5724z00_2458;
{ /* ./SawC/code.scm 354 */
obj_t BgL_auxz00_4440;
BgL_auxz00_4440 = 
BINT(BgL_arg5720z00_2456); 
BgL_arg5724z00_2458 = 
MAKE_PAIR(BgL_auxz00_4440, BNIL); } 
BgL_list5722z00_2457 = 
MAKE_PAIR(BGl_string6568z00zzsaw_c_codez00, BgL_arg5724z00_2458); } 
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list5722z00_2457);} } } } 
}



/* gen-prefix-rtl_globalref3611 */
obj_t BGl_genzd2prefixzd2rtl_globalref3611z00zzsaw_c_codez00(obj_t BgL_envz00_3354, obj_t BgL_funz00_3355)
{ AN_OBJECT;
{ /* ./SawC/code.scm 350 */
{ 
BgL_rtl_globalrefz00_bglt BgL_funz00_2444;
BgL_funz00_2444 = 
(BgL_rtl_globalrefz00_bglt)(BgL_funz00_3355); 
{ /* ./SawC/code.scm 351 */
obj_t BgL_arg5704z00_2447;
{ /* ./SawC/code.scm 351 */
BgL_globalz00_bglt BgL_arg5709z00_2449;
BgL_arg5709z00_2449 = 
(((BgL_rtl_globalrefz00_bglt)CREF(BgL_funz00_2444))->BgL_varz00); 
{ /* ./SawC/code.scm 351 */
obj_t BgL_arg4403z00_3064;
{ /* ./SawC/code.scm 351 */
BgL_variablez00_bglt BgL_obj1094z00_3065;
BgL_obj1094z00_3065 = 
(BgL_variablez00_bglt)(BgL_arg5709z00_2449); 
BgL_arg4403z00_3064 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_3065))->BgL_namez00); } 
BgL_arg5704z00_2447 = 
BGl_patchz00zzsaw_c_codez00(BgL_arg4403z00_3064); } } 
{ /* ./SawC/code.scm 351 */
obj_t BgL_list5706z00_2448;
BgL_list5706z00_2448 = 
MAKE_PAIR(BgL_arg5704z00_2447, BNIL); 
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list5706z00_2448);} } } } 
}



/* gen-prefix-rtl_storeg3609 */
obj_t BGl_genzd2prefixzd2rtl_storeg3609z00zzsaw_c_codez00(obj_t BgL_envz00_3356, obj_t BgL_funz00_3357)
{ AN_OBJECT;
{ /* ./SawC/code.scm 347 */
{ 
BgL_rtl_storegz00_bglt BgL_funz00_2434;
BgL_funz00_2434 = 
(BgL_rtl_storegz00_bglt)(BgL_funz00_3357); 
{ /* ./SawC/code.scm 348 */
obj_t BgL_arg5685z00_2437;
{ /* ./SawC/code.scm 348 */
BgL_globalz00_bglt BgL_arg5694z00_2441;
BgL_arg5694z00_2441 = 
(((BgL_rtl_storegz00_bglt)CREF(BgL_funz00_2434))->BgL_varz00); 
{ /* ./SawC/code.scm 348 */
obj_t BgL_arg4403z00_3060;
{ /* ./SawC/code.scm 348 */
BgL_variablez00_bglt BgL_obj1094z00_3061;
BgL_obj1094z00_3061 = 
(BgL_variablez00_bglt)(BgL_arg5694z00_2441); 
BgL_arg4403z00_3060 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_3061))->BgL_namez00); } 
BgL_arg5685z00_2437 = 
BGl_patchz00zzsaw_c_codez00(BgL_arg4403z00_3060); } } 
{ /* ./SawC/code.scm 348 */
obj_t BgL_list5688z00_2439;
{ /* ./SawC/code.scm 348 */
obj_t BgL_arg5690z00_2440;
BgL_arg5690z00_2440 = 
MAKE_PAIR(BGl_string6563z00zzsaw_c_codez00, BNIL); 
BgL_list5688z00_2439 = 
MAKE_PAIR(BgL_arg5685z00_2437, BgL_arg5690z00_2440); } 
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list5688z00_2439);} } } } 
}



/* gen-prefix-rtl_loadfun3606 */
obj_t BGl_genzd2prefixzd2rtl_loadfun3606z00zzsaw_c_codez00(obj_t BgL_envz00_3358, obj_t BgL_funz00_3359)
{ AN_OBJECT;
{ /* ./SawC/code.scm 344 */
{ 
BgL_rtl_loadfunz00_bglt BgL_funz00_2424;
BgL_funz00_2424 = 
(BgL_rtl_loadfunz00_bglt)(BgL_funz00_3359); 
{ /* ./SawC/code.scm 345 */
obj_t BgL_arg5667z00_2428;
{ /* ./SawC/code.scm 345 */
BgL_globalz00_bglt BgL_arg5675z00_2431;
BgL_arg5675z00_2431 = 
(((BgL_rtl_loadfunz00_bglt)CREF(BgL_funz00_2424))->BgL_varz00); 
{ /* ./SawC/code.scm 345 */
obj_t BgL_arg4403z00_3056;
{ /* ./SawC/code.scm 345 */
BgL_variablez00_bglt BgL_obj1094z00_3057;
BgL_obj1094z00_3057 = 
(BgL_variablez00_bglt)(BgL_arg5675z00_2431); 
BgL_arg4403z00_3056 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_3057))->BgL_namez00); } 
BgL_arg5667z00_2428 = 
BGl_patchz00zzsaw_c_codez00(BgL_arg4403z00_3056); } } 
{ /* ./SawC/code.scm 345 */
obj_t BgL_list5669z00_2429;
{ /* ./SawC/code.scm 345 */
obj_t BgL_arg5671z00_2430;
BgL_arg5671z00_2430 = 
MAKE_PAIR(BgL_arg5667z00_2428, BNIL); 
BgL_list5669z00_2429 = 
MAKE_PAIR(BGl_string6656z00zzsaw_c_codez00, BgL_arg5671z00_2430); } 
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list5669z00_2429);} } } } 
}



/* gen-prefix-rtl_loadg3604 */
obj_t BGl_genzd2prefixzd2rtl_loadg3604z00zzsaw_c_codez00(obj_t BgL_envz00_3360, obj_t BgL_funz00_3361)
{ AN_OBJECT;
{ /* ./SawC/code.scm 341 */
{ 
BgL_rtl_loadgz00_bglt BgL_funz00_2416;
BgL_funz00_2416 = 
(BgL_rtl_loadgz00_bglt)(BgL_funz00_3361); 
{ /* ./SawC/code.scm 342 */
obj_t BgL_arg5651z00_2419;obj_t BgL_arg5652z00_2420;
{ /* ./SawC/code.scm 342 */
BgL_globalz00_bglt BgL_arg5655z00_2421;
BgL_arg5655z00_2421 = 
(((BgL_rtl_loadgz00_bglt)CREF(BgL_funz00_2416))->BgL_varz00); 
{ /* ./SawC/code.scm 342 */
obj_t BgL_arg4403z00_3052;
{ /* ./SawC/code.scm 342 */
BgL_variablez00_bglt BgL_obj1094z00_3053;
BgL_obj1094z00_3053 = 
(BgL_variablez00_bglt)(BgL_arg5655z00_2421); 
BgL_arg4403z00_3052 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_3053))->BgL_namez00); } 
BgL_arg5651z00_2419 = 
BGl_patchz00zzsaw_c_codez00(BgL_arg4403z00_3052); } } 
BgL_arg5652z00_2420 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg5651z00_2419, BgL_arg5652z00_2420);} } } 
}



/* gen-prefix-rtl_loadi3602 */
obj_t BGl_genzd2prefixzd2rtl_loadi3602z00zzsaw_c_codez00(obj_t BgL_envz00_3362, obj_t BgL_funz00_3363)
{ AN_OBJECT;
{ /* ./SawC/code.scm 338 */
{ 
BgL_rtl_loadiz00_bglt BgL_funz00_2409;
BgL_funz00_2409 = 
(BgL_rtl_loadiz00_bglt)(BgL_funz00_3363); 
{ /* ./SawC/code.scm 339 */
obj_t BgL_arg5638z00_3046;
{ /* ./SawC/code.scm 339 */
BgL_atomz00_bglt BgL_arg5641z00_3047;
BgL_arg5641z00_3047 = 
(((BgL_rtl_loadiz00_bglt)CREF(BgL_funz00_2409))->BgL_constantz00); 
BgL_arg5638z00_3046 = 
(((BgL_atomz00_bglt)CREF(BgL_arg5641z00_3047))->BgL_valuez00); } 
return 
BGl_emitzd2atomzd2valuez00zzbackend_c_emitz00(BgL_arg5638z00_3046);} } } 
}



/* gen-fun-name-rtl_return3598 */
obj_t BGl_genzd2funzd2namezd2rtl_return3598zd2zzsaw_c_codez00(obj_t BgL_envz00_3364, obj_t BgL_funz00_3365)
{ AN_OBJECT;
{ /* ./SawC/code.scm 329 */
{ 
BgL_rtl_returnz00_bglt BgL_funz00_2402;
BgL_funz00_2402 = 
(BgL_rtl_returnz00_bglt)(BgL_funz00_3365); 
{ /* ./SawC/code.scm 330 */
obj_t BgL_arg5626z00_2406;
BgL_arg5626z00_2406 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6657z00zzsaw_c_codez00, BgL_arg5626z00_2406);} } } 
}



/* gen-fun-name-rtl_loadg3596 */
obj_t BGl_genzd2funzd2namezd2rtl_loadg3596zd2zzsaw_c_codez00(obj_t BgL_envz00_3366, obj_t BgL_funz00_3367)
{ AN_OBJECT;
{ /* ./SawC/code.scm 327 */
return BFALSE;} 
}



/* gen-fun-name-rtl_loadi3594 */
obj_t BGl_genzd2funzd2namezd2rtl_loadi3594zd2zzsaw_c_codez00(obj_t BgL_envz00_3368, obj_t BgL_funz00_3369)
{ AN_OBJECT;
{ /* ./SawC/code.scm 326 */
return BFALSE;} 
}



/* gen-fun-name-rtl_mov3592 */
obj_t BGl_genzd2funzd2namezd2rtl_mov3592zd2zzsaw_c_codez00(obj_t BgL_envz00_3370, obj_t BgL_funz00_3371)
{ AN_OBJECT;
{ /* ./SawC/code.scm 325 */
return BFALSE;} 
}



/* gen-fun-name-rtl_vlength3590 */
obj_t BGl_genzd2funzd2namezd2rtl_vlength3590zd2zzsaw_c_codez00(obj_t BgL_envz00_3372, obj_t BgL_funz00_3373)
{ AN_OBJECT;
{ /* ./SawC/code.scm 318 */
{ 
BgL_rtl_vlengthz00_bglt BgL_funz00_2380;
BgL_funz00_2380 = 
(BgL_rtl_vlengthz00_bglt)(BgL_funz00_3373); 
{ /* ./SawC/code.scm 319 */
BgL_typez00_bglt BgL_arg5594z00_3041;
BgL_arg5594z00_3041 = 
(((BgL_rtl_vlengthz00_bglt)CREF(BgL_funz00_2380))->BgL_typez00); 
return 
BGl_vfunzd2namezd2zzsaw_c_codez00(BGl_string6658z00zzsaw_c_codez00, BgL_arg5594z00_3041);} } } 
}



/* gen-fun-name-rtl_vset3588 */
obj_t BGl_genzd2funzd2namezd2rtl_vset3588zd2zzsaw_c_codez00(obj_t BgL_envz00_3374, obj_t BgL_funz00_3375)
{ AN_OBJECT;
{ /* ./SawC/code.scm 315 */
{ 
BgL_rtl_vsetz00_bglt BgL_funz00_2373;
BgL_funz00_2373 = 
(BgL_rtl_vsetz00_bglt)(BgL_funz00_3375); 
{ /* ./SawC/code.scm 316 */
BgL_typez00_bglt BgL_arg5583z00_3038;
BgL_arg5583z00_3038 = 
(((BgL_rtl_vsetz00_bglt)CREF(BgL_funz00_2373))->BgL_typez00); 
return 
BGl_vfunzd2namezd2zzsaw_c_codez00(BGl_string6659z00zzsaw_c_codez00, BgL_arg5583z00_3038);} } } 
}



/* gen-fun-name-rtl_vref3586 */
obj_t BGl_genzd2funzd2namezd2rtl_vref3586zd2zzsaw_c_codez00(obj_t BgL_envz00_3376, obj_t BgL_funz00_3377)
{ AN_OBJECT;
{ /* ./SawC/code.scm 312 */
{ 
BgL_rtl_vrefz00_bglt BgL_funz00_2366;
BgL_funz00_2366 = 
(BgL_rtl_vrefz00_bglt)(BgL_funz00_3377); 
{ /* ./SawC/code.scm 313 */
BgL_typez00_bglt BgL_arg5572z00_3035;
BgL_arg5572z00_3035 = 
(((BgL_rtl_vrefz00_bglt)CREF(BgL_funz00_2366))->BgL_typez00); 
return 
BGl_vfunzd2namezd2zzsaw_c_codez00(BGl_string6660z00zzsaw_c_codez00, BgL_arg5572z00_3035);} } } 
}



/* gen-fun-name-rtl_valloc3584 */
obj_t BGl_genzd2funzd2namezd2rtl_valloc3584zd2zzsaw_c_codez00(obj_t BgL_envz00_3378, obj_t BgL_funz00_3379)
{ AN_OBJECT;
{ /* ./SawC/code.scm 309 */
{ 
BgL_rtl_vallocz00_bglt BgL_funz00_2359;
BgL_funz00_2359 = 
(BgL_rtl_vallocz00_bglt)(BgL_funz00_3379); 
{ /* ./SawC/code.scm 310 */
BgL_typez00_bglt BgL_arg5561z00_3032;
BgL_arg5561z00_3032 = 
(((BgL_rtl_vallocz00_bglt)CREF(BgL_funz00_2359))->BgL_typez00); 
return 
BGl_vfunzd2namezd2zzsaw_c_codez00(BGl_string6661z00zzsaw_c_codez00, BgL_arg5561z00_3032);} } } 
}



/* gen-expr-rtl_call3580 */
obj_t BGl_genzd2exprzd2rtl_call3580z00zzsaw_c_codez00(obj_t BgL_envz00_3380, obj_t BgL_funz00_3381, obj_t BgL_argsz00_3382)
{ AN_OBJECT;
{ /* ./SawC/code.scm 285 */
{ 
BgL_rtl_callz00_bglt BgL_funz00_2342;obj_t BgL_argsz00_2343;
BgL_funz00_2342 = 
(BgL_rtl_callz00_bglt)(BgL_funz00_3381); 
BgL_argsz00_2343 = BgL_argsz00_3382; 
{ /* ./SawC/code.scm 286 */
obj_t BgL_namez00_2346;
{ /* ./SawC/code.scm 286 */
BgL_globalz00_bglt BgL_arg5549z00_2356;
BgL_arg5549z00_2356 = 
(((BgL_rtl_callz00_bglt)CREF(BgL_funz00_2342))->BgL_varz00); 
{ /* ./SawC/code.scm 286 */
obj_t BgL_arg4403z00_3023;
{ /* ./SawC/code.scm 286 */
BgL_variablez00_bglt BgL_obj1094z00_3024;
BgL_obj1094z00_3024 = 
(BgL_variablez00_bglt)(BgL_arg5549z00_2356); 
BgL_arg4403z00_3023 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_3024))->BgL_namez00); } 
BgL_namez00_2346 = 
BGl_patchz00zzsaw_c_codez00(BgL_arg4403z00_3023); } } 
{ /* ./SawC/code.scm 287 */
obj_t BgL_list5526z00_2347;
{ /* ./SawC/code.scm 287 */
obj_t BgL_arg5528z00_2348;
BgL_arg5528z00_2348 = 
MAKE_PAIR(BGl_string6562z00zzsaw_c_codez00, BNIL); 
BgL_list5526z00_2347 = 
MAKE_PAIR(BgL_namez00_2346, BgL_arg5528z00_2348); } 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list5526z00_2347); } 
{ /* ./SawC/code.scm 288 */
bool_t BgL_test5531z00_2349;
{ /* ./SawC/code.scm 288 */
bool_t BgL_test5537z00_2352;
BgL_test5537z00_2352 = 
bigloo_strcmp(BgL_namez00_2346, BGl_string6662z00zzsaw_c_codez00); 
if(BgL_test5537z00_2352)
{ /* ./SawC/code.scm 288 */
BgL_test5531z00_2349 = ((bool_t)1); }  else 
{ /* ./SawC/code.scm 290 */
bool_t BgL_test5538z00_2353;
BgL_test5538z00_2353 = 
bigloo_strcmp(BgL_namez00_2346, BGl_string6663z00zzsaw_c_codez00); 
if(BgL_test5538z00_2353)
{ /* ./SawC/code.scm 290 */
BgL_test5531z00_2349 = ((bool_t)1); }  else 
{ /* ./SawC/code.scm 290 */
BgL_test5531z00_2349 = 
bigloo_strcmp(BgL_namez00_2346, BGl_string6664z00zzsaw_c_codez00); } } } 
if(BgL_test5531z00_2349)
{ /* ./SawC/code.scm 291 */
obj_t BgL_arg5534z00_2351;
BgL_arg5534z00_2351 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6665z00zzsaw_c_codez00, BgL_arg5534z00_2351); }  else 
{ /* ./SawC/code.scm 288 */BFALSE; } } 
BGl_genzd2argszd2zzsaw_c_codez00(BgL_argsz00_2343); 
{ /* ./SawC/code.scm 293 */
obj_t BgL_arg5545z00_2355;
BgL_arg5545z00_2355 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6564z00zzsaw_c_codez00, BgL_arg5545z00_2355);} } } } 
}



/* gen-expr-rtl_switch3578 */
obj_t BGl_genzd2exprzd2rtl_switch3578z00zzsaw_c_codez00(obj_t BgL_envz00_3383, obj_t BgL_funz00_3384, obj_t BgL_argsz00_3385)
{ AN_OBJECT;
{ /* ./SawC/code.scm 266 */
{ 
BgL_rtl_switchz00_bglt BgL_funz00_2302;obj_t BgL_argsz00_2303;
BgL_funz00_2302 = 
(BgL_rtl_switchz00_bglt)(BgL_funz00_3384); 
BgL_argsz00_2303 = BgL_argsz00_3385; 
{ /* ./SawC/code.scm 267 */
obj_t BgL_patsz00_2306;
{ /* ./SawC/code.scm 267 */
BgL_rtl_selectz00_bglt BgL_obj3064z00_3009;
BgL_obj3064z00_3009 = 
(BgL_rtl_selectz00_bglt)(BgL_funz00_2302); 
BgL_patsz00_2306 = 
(((BgL_rtl_selectz00_bglt)CREF(BgL_obj3064z00_3009))->BgL_patternsz00); } 
{ /* ./SawC/code.scm 268 */
obj_t BgL_arg5449z00_2308;
BgL_arg5449z00_2308 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6666z00zzsaw_c_codez00, BgL_arg5449z00_2308); } 
{ /* ./SawC/code.scm 269 */
obj_t BgL_arg5453z00_2309;
BgL_arg5453z00_2309 = 
CAR(BgL_argsz00_2303); 
BGl_genzd2regzd2zzsaw_c_codez00(BgL_arg5453z00_2309); } 
{ /* ./SawC/code.scm 270 */
obj_t BgL_arg5458z00_2311;
BgL_arg5458z00_2311 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6667z00zzsaw_c_codez00, BgL_arg5458z00_2311); } 
{ 
obj_t BgL_ll3539z00_2312;obj_t BgL_ll3540z00_2313;
{ /* ./SawC/code.scm 281 */
obj_t BgL_arg5462z00_2315;
BgL_arg5462z00_2315 = 
(((BgL_rtl_switchz00_bglt)CREF(BgL_funz00_2302))->BgL_labelsz00); 
BgL_ll3539z00_2312 = BgL_patsz00_2306; 
BgL_ll3540z00_2313 = BgL_arg5462z00_2315; 
BgL_forzd2each3541zd2_2314:
{ /* ./SawC/code.scm 271 */
bool_t BgL_test5465z00_2316;
BgL_test5465z00_2316 = 
NULLP(BgL_ll3539z00_2312); 
if(BgL_test5465z00_2316)
{ /* ./SawC/code.scm 271 */((bool_t)1); }  else 
{ /* ./SawC/code.scm 271 */
{ /* ./SawC/code.scm 272 */
obj_t BgL_patz00_2317;obj_t BgL_labz00_2318;
BgL_patz00_2317 = 
CAR(BgL_ll3539z00_2312); 
BgL_labz00_2318 = 
CAR(BgL_ll3540z00_2313); 
{ /* ./SawC/code.scm 272 */
bool_t BgL_test5466z00_2319;
{ /* ./SawC/code.scm 272 */
obj_t BgL_auxz00_4527;
BgL_auxz00_4527 = 
CNST_TABLE_REF(((long)6)); 
BgL_test5466z00_2319 = 
(BgL_patz00_2317==BgL_auxz00_4527); } 
if(BgL_test5466z00_2319)
{ /* ./SawC/code.scm 273 */
obj_t BgL_list5468z00_2320;
BgL_list5468z00_2320 = 
MAKE_PAIR(BGl_string6668z00zzsaw_c_codez00, BNIL); 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list5468z00_2320); }  else 
{ 
obj_t BgL_l3542z00_2321;
{ /* ./SawC/code.scm 274 */
bool_t BgL_auxz00_4533;
BgL_l3542z00_2321 = BgL_patz00_2317; 
BgL_forzd2each3543zd2_2322:
{ /* ./SawC/code.scm 274 */
bool_t BgL_test5471z00_2323;
BgL_test5471z00_2323 = 
PAIRP(BgL_l3542z00_2321); 
if(BgL_test5471z00_2323)
{ /* ./SawC/code.scm 274 */
{ /* ./SawC/code.scm 275 */
obj_t BgL_nz00_2324;
BgL_nz00_2324 = 
CAR(BgL_l3542z00_2321); 
{ /* ./SawC/code.scm 275 */
obj_t BgL_arg5474z00_2326;
BgL_arg5474z00_2326 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6669z00zzsaw_c_codez00, BgL_arg5474z00_2326); } 
BGl_emitzd2atomzd2valuez00zzbackend_c_emitz00(BgL_nz00_2324); 
{ /* ./SawC/code.scm 277 */
obj_t BgL_arg5480z00_2328;
BgL_arg5480z00_2328 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6567z00zzsaw_c_codez00, BgL_arg5480z00_2328); } } 
{ /* ./SawC/code.scm 274 */
obj_t BgL_arg5485z00_2329;
BgL_arg5485z00_2329 = 
CDR(BgL_l3542z00_2321); 
{ 
obj_t BgL_l3542z00_4543;
BgL_l3542z00_4543 = BgL_arg5485z00_2329; 
BgL_l3542z00_2321 = BgL_l3542z00_4543; 
goto BgL_forzd2each3543zd2_2322;} } }  else 
{ /* ./SawC/code.scm 274 */
BgL_auxz00_4533 = ((bool_t)1); } } 
BBOOL(BgL_auxz00_4533); } } } 
{ /* ./SawC/code.scm 279 */
int BgL_arg5492z00_2331;
{ /* ./SawC/code.scm 279 */
BgL_blockz00_bglt BgL_obj3434z00_3018;
BgL_obj3434z00_3018 = 
(BgL_blockz00_bglt)(BgL_labz00_2318); 
BgL_arg5492z00_2331 = 
(((BgL_blockz00_bglt)CREF(BgL_obj3434z00_3018))->BgL_labelz00); } 
{ /* ./SawC/code.scm 279 */
obj_t BgL_list5495z00_2333;
{ /* ./SawC/code.scm 279 */
obj_t BgL_arg5497z00_2334;
{ /* ./SawC/code.scm 279 */
obj_t BgL_arg5500z00_2335;
BgL_arg5500z00_2335 = 
MAKE_PAIR(BGl_string6670z00zzsaw_c_codez00, BNIL); 
{ /* ./SawC/code.scm 279 */
obj_t BgL_auxz00_4548;
BgL_auxz00_4548 = 
BINT(BgL_arg5492z00_2331); 
BgL_arg5497z00_2334 = 
MAKE_PAIR(BgL_auxz00_4548, BgL_arg5500z00_2335); } } 
BgL_list5495z00_2333 = 
MAKE_PAIR(BGl_string6671z00zzsaw_c_codez00, BgL_arg5497z00_2334); } 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list5495z00_2333); } } } 
{ /* ./SawC/code.scm 271 */
obj_t BgL_arg5507z00_2336;obj_t BgL_arg5508z00_2337;
BgL_arg5507z00_2336 = 
CDR(BgL_ll3539z00_2312); 
BgL_arg5508z00_2337 = 
CDR(BgL_ll3540z00_2313); 
{ 
obj_t BgL_ll3540z00_4556;obj_t BgL_ll3539z00_4555;
BgL_ll3539z00_4555 = BgL_arg5507z00_2336; 
BgL_ll3540z00_4556 = BgL_arg5508z00_2337; 
BgL_ll3540z00_2313 = BgL_ll3540z00_4556; 
BgL_ll3539z00_2312 = BgL_ll3539z00_4555; 
goto BgL_forzd2each3541zd2_2314;} } } } } } 
{ /* ./SawC/code.scm 282 */
obj_t BgL_arg5515z00_2339;
BgL_arg5515z00_2339 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6672z00zzsaw_c_codez00, BgL_arg5515z00_2339);} } } } 
}



/* gen-expr-rtl_pragma3576 */
obj_t BGl_genzd2exprzd2rtl_pragma3576z00zzsaw_c_codez00(obj_t BgL_envz00_3386, obj_t BgL_funz00_3387, obj_t BgL_argsz00_3388)
{ AN_OBJECT;
{ /* ./SawC/code.scm 261 */
{ 
BgL_rtl_pragmaz00_bglt BgL_funz00_2293;obj_t BgL_argsz00_2294;
BgL_funz00_2293 = 
(BgL_rtl_pragmaz00_bglt)(BgL_funz00_3387); 
BgL_argsz00_2294 = BgL_argsz00_3388; 
{ /* ./SawC/code.scm 262 */
obj_t BgL_arg5433z00_3005;
BgL_arg5433z00_3005 = 
(((BgL_rtl_pragmaz00_bglt)CREF(BgL_funz00_2293))->BgL_formatz00); 
BGl_emitzd2pragmazd2zzsaw_c_codez00(BgL_arg5433z00_3005, BgL_argsz00_2294); } 
{ /* ./SawC/code.scm 262 */
obj_t BgL_arg5438z00_3007;
BgL_arg5438z00_3007 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6566z00zzsaw_c_codez00, BgL_arg5438z00_3007);} } } 
}



/* gen-expr-rtl_protect3574 */
obj_t BGl_genzd2exprzd2rtl_protect3574z00zzsaw_c_codez00(obj_t BgL_envz00_3389, obj_t BgL_funz00_3390, obj_t BgL_argsz00_3391)
{ AN_OBJECT;
{ /* ./SawC/code.scm 255 */
{ 
BgL_rtl_protectz00_bglt BgL_funz00_2283;obj_t BgL_argsz00_2284;
BgL_funz00_2283 = 
(BgL_rtl_protectz00_bglt)(BgL_funz00_3390); 
BgL_argsz00_2284 = BgL_argsz00_3391; 
{ /* ./SawC/code.scm 257 */
obj_t BgL_arg5418z00_3002;
BgL_arg5418z00_3002 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6673z00zzsaw_c_codez00, BgL_arg5418z00_3002); } 
{ /* ./SawC/code.scm 257 */
obj_t BgL_arg5423z00_3004;
BgL_arg5423z00_3004 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6674z00zzsaw_c_codez00, BgL_arg5423z00_3004);} } } 
}



/* gen-expr-rtl_funcall3572 */
obj_t BGl_genzd2exprzd2rtl_funcall3572z00zzsaw_c_codez00(obj_t BgL_envz00_3392, obj_t BgL_funz00_3393, obj_t BgL_argsz00_3394)
{ AN_OBJECT;
{ /* ./SawC/code.scm 235 */
{ 
BgL_rtl_funcallz00_bglt BgL_funz00_2268;obj_t BgL_argsz00_2269;
BgL_funz00_2268 = 
(BgL_rtl_funcallz00_bglt)(BgL_funz00_3393); 
BgL_argsz00_2269 = BgL_argsz00_3394; 
if(
CBOOL(BGl_za2stdcza2z00zzengine_paramz00))
{ /* ./SawC/code.scm 236 */
{ /* ./SawC/code.scm 237 */
obj_t BgL_arg5385z00_2273;
BgL_arg5385z00_2273 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6675z00zzsaw_c_codez00, BgL_arg5385z00_2273); } 
{ /* ./SawC/code.scm 238 */
obj_t BgL_arg5389z00_2274;
BgL_arg5389z00_2274 = 
CAR(BgL_argsz00_2269); 
BGl_genzd2regzd2zzsaw_c_codez00(BgL_arg5389z00_2274); } 
{ /* ./SawC/code.scm 239 */
obj_t BgL_arg5394z00_2276;
BgL_arg5394z00_2276 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6676z00zzsaw_c_codez00, BgL_arg5394z00_2276); } 
BGl_genzd2Xfuncallzd2zzsaw_c_codez00("", BgL_argsz00_2269, ((bool_t)1)); 
{ /* ./SawC/code.scm 241 */
obj_t BgL_arg5400z00_2278;
BgL_arg5400z00_2278 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6677z00zzsaw_c_codez00, BgL_arg5400z00_2278); } 
BGl_genzd2Xfuncallzd2zzsaw_c_codez00("", BgL_argsz00_2269, ((bool_t)0)); 
{ /* ./SawC/code.scm 243 */
obj_t BgL_arg5406z00_2280;
BgL_arg5406z00_2280 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6564z00zzsaw_c_codez00, BgL_arg5406z00_2280);} }  else 
{ /* ./SawC/code.scm 236 */
return 
BGl_genzd2Xfuncallzd2zzsaw_c_codez00("", BgL_argsz00_2269, ((bool_t)1));} } } 
}



/* gen-expr-rtl_lightfuncall3570 */
obj_t BGl_genzd2exprzd2rtl_lightfuncall3570z00zzsaw_c_codez00(obj_t BgL_envz00_3395, obj_t BgL_funz00_3396, obj_t BgL_argsz00_3397)
{ AN_OBJECT;
{ /* ./SawC/code.scm 232 */
{ 
BgL_rtl_lightfuncallz00_bglt BgL_funz00_2262;obj_t BgL_argsz00_2263;
BgL_funz00_2262 = 
(BgL_rtl_lightfuncallz00_bglt)(BgL_funz00_3396); 
BgL_argsz00_2263 = BgL_argsz00_3397; 
return 
BGl_genzd2Xfuncallzd2zzsaw_c_codez00("L_", BgL_argsz00_2263, ((bool_t)0));} } 
}



/* gen-expr */
obj_t BGl_genzd2exprzd2zzsaw_c_codez00(BgL_rtl_funz00_bglt BgL_funz00_31, obj_t BgL_argsz00_32)
{ AN_OBJECT;
{ /* ./SawC/code.scm 206 */
{ /* ./SawC/code.scm 206 */
obj_t BgL_method3568z00_3121;
{ /* ./SawC/code.scm 206 */
BgL_objectz00_bglt BgL_objz00_3122;
BgL_objz00_3122 = 
(BgL_objectz00_bglt)(BgL_funz00_31); 
{ /* ./SawC/code.scm 206 */
long BgL_objzd2classzd2numz00_3123;
BgL_objzd2classzd2numz00_3123 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3122); 
{ /* ./SawC/code.scm 206 */
obj_t BgL_arg2017z00_3124;
{ /* ./SawC/code.scm 206 */
int BgL_auxz00_4590;
BgL_auxz00_4590 = 
(int)(((long)1)); 
BgL_arg2017z00_3124 = 
PROCEDURE_REF(BGl_genzd2exprzd2envz00zzsaw_c_codez00, BgL_auxz00_4590); } 
{ /* ./SawC/code.scm 206 */
int BgL_offsetz00_3127;
BgL_offsetz00_3127 = 
(int)(BgL_objzd2classzd2numz00_3123); 
{ /* ./SawC/code.scm 206 */
long BgL_offsetz00_3128;
{ /* ./SawC/code.scm 206 */
long BgL_auxz00_4594;
BgL_auxz00_4594 = 
(long)(BgL_offsetz00_3127); 
BgL_offsetz00_3128 = 
(BgL_auxz00_4594-OBJECT_TYPE); } 
{ /* ./SawC/code.scm 206 */
long BgL_modz00_3129;
{ /* ./SawC/code.scm 206 */
int BgL_arg2028z00_3130;
BgL_arg2028z00_3130 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 206 */
long BgL_n2z00_3138;
BgL_n2z00_3138 = 
(long)(BgL_arg2028z00_3130); 
BgL_modz00_3129 = 
(BgL_offsetz00_3128/BgL_n2z00_3138); } } 
{ /* ./SawC/code.scm 206 */
long BgL_restz00_3131;
{ /* ./SawC/code.scm 206 */
int BgL_arg2024z00_3132;
BgL_arg2024z00_3132 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 206 */
long BgL_n2z00_3141;
BgL_n2z00_3141 = 
(long)(BgL_arg2024z00_3132); 
BgL_restz00_3131 = 
(BgL_offsetz00_3128%BgL_n2z00_3141); } } 
{ /* ./SawC/code.scm 206 */

{ /* ./SawC/code.scm 206 */
obj_t BgL_bucketz00_3133;
{ /* ./SawC/code.scm 206 */
int BgL_kz00_3143;
BgL_kz00_3143 = 
(int)(BgL_modz00_3129); 
BgL_bucketz00_3133 = 
VECTOR_REF(BgL_arg2017z00_3124,BgL_kz00_3143); } 
{ /* ./SawC/code.scm 206 */
int BgL_kz00_3145;
BgL_kz00_3145 = 
(int)(BgL_restz00_3131); 
BgL_method3568z00_3121 = 
VECTOR_REF(BgL_bucketz00_3133,BgL_kz00_3145); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3568z00_3121)(BgL_method3568z00_3121, 
(obj_t)(BgL_funz00_31), BgL_argsz00_32, BEOA);} } 
}



/* _gen-expr */
obj_t BGl__genzd2exprzd2zzsaw_c_codez00(obj_t BgL_envz00_3262, obj_t BgL_funz00_3263, obj_t BgL_argsz00_3264)
{ AN_OBJECT;
{ /* ./SawC/code.scm 206 */
return 
BGl_genzd2exprzd2zzsaw_c_codez00(
(BgL_rtl_funz00_bglt)(BgL_funz00_3263), BgL_argsz00_3264);} 
}



/* gen-expr-default3567 */
obj_t BGl_genzd2exprzd2default3567z00zzsaw_c_codez00(BgL_rtl_funz00_bglt BgL_funz00_33, obj_t BgL_argsz00_34)
{ AN_OBJECT;
{ /* ./SawC/code.scm 1 */
{ /* ./SawC/code.scm 208 */
obj_t BgL_method3582z00_3147;
{ /* ./SawC/code.scm 208 */
BgL_objectz00_bglt BgL_objz00_3148;
BgL_objz00_3148 = 
(BgL_objectz00_bglt)(BgL_funz00_33); 
{ /* ./SawC/code.scm 208 */
long BgL_objzd2classzd2numz00_3149;
BgL_objzd2classzd2numz00_3149 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3148); 
{ /* ./SawC/code.scm 208 */
obj_t BgL_arg2017z00_3150;
{ /* ./SawC/code.scm 208 */
int BgL_auxz00_4614;
BgL_auxz00_4614 = 
(int)(((long)1)); 
BgL_arg2017z00_3150 = 
PROCEDURE_REF(BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BgL_auxz00_4614); } 
{ /* ./SawC/code.scm 208 */
int BgL_offsetz00_3153;
BgL_offsetz00_3153 = 
(int)(BgL_objzd2classzd2numz00_3149); 
{ /* ./SawC/code.scm 208 */
long BgL_offsetz00_3154;
{ /* ./SawC/code.scm 208 */
long BgL_auxz00_4618;
BgL_auxz00_4618 = 
(long)(BgL_offsetz00_3153); 
BgL_offsetz00_3154 = 
(BgL_auxz00_4618-OBJECT_TYPE); } 
{ /* ./SawC/code.scm 208 */
long BgL_modz00_3155;
{ /* ./SawC/code.scm 208 */
int BgL_arg2028z00_3156;
BgL_arg2028z00_3156 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 208 */
long BgL_n2z00_3164;
BgL_n2z00_3164 = 
(long)(BgL_arg2028z00_3156); 
BgL_modz00_3155 = 
(BgL_offsetz00_3154/BgL_n2z00_3164); } } 
{ /* ./SawC/code.scm 208 */
long BgL_restz00_3157;
{ /* ./SawC/code.scm 208 */
int BgL_arg2024z00_3158;
BgL_arg2024z00_3158 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 208 */
long BgL_n2z00_3167;
BgL_n2z00_3167 = 
(long)(BgL_arg2024z00_3158); 
BgL_restz00_3157 = 
(BgL_offsetz00_3154%BgL_n2z00_3167); } } 
{ /* ./SawC/code.scm 208 */

{ /* ./SawC/code.scm 208 */
obj_t BgL_bucketz00_3159;
{ /* ./SawC/code.scm 208 */
int BgL_kz00_3169;
BgL_kz00_3169 = 
(int)(BgL_modz00_3155); 
BgL_bucketz00_3159 = 
VECTOR_REF(BgL_arg2017z00_3150,BgL_kz00_3169); } 
{ /* ./SawC/code.scm 208 */
int BgL_kz00_3171;
BgL_kz00_3171 = 
(int)(BgL_restz00_3157); 
BgL_method3582z00_3147 = 
VECTOR_REF(BgL_bucketz00_3159,BgL_kz00_3171); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3582z00_3147)(BgL_method3582z00_3147, 
(obj_t)(BgL_funz00_33), BEOA); } 
{ /* ./SawC/code.scm 209 */
obj_t BgL_arg5914z00_2566;
BgL_arg5914z00_2566 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string6562z00zzsaw_c_codez00, BgL_arg5914z00_2566); } 
{ /* ./SawC/code.scm 210 */
obj_t BgL_method3600z00_3173;
{ /* ./SawC/code.scm 210 */
BgL_objectz00_bglt BgL_objz00_3174;
BgL_objz00_3174 = 
(BgL_objectz00_bglt)(BgL_funz00_33); 
{ /* ./SawC/code.scm 210 */
long BgL_objzd2classzd2numz00_3175;
BgL_objzd2classzd2numz00_3175 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3174); 
{ /* ./SawC/code.scm 210 */
obj_t BgL_arg2017z00_3176;
{ /* ./SawC/code.scm 210 */
int BgL_auxz00_4638;
BgL_auxz00_4638 = 
(int)(((long)1)); 
BgL_arg2017z00_3176 = 
PROCEDURE_REF(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BgL_auxz00_4638); } 
{ /* ./SawC/code.scm 210 */
int BgL_offsetz00_3179;
BgL_offsetz00_3179 = 
(int)(BgL_objzd2classzd2numz00_3175); 
{ /* ./SawC/code.scm 210 */
long BgL_offsetz00_3180;
{ /* ./SawC/code.scm 210 */
long BgL_auxz00_4642;
BgL_auxz00_4642 = 
(long)(BgL_offsetz00_3179); 
BgL_offsetz00_3180 = 
(BgL_auxz00_4642-OBJECT_TYPE); } 
{ /* ./SawC/code.scm 210 */
long BgL_modz00_3181;
{ /* ./SawC/code.scm 210 */
int BgL_arg2028z00_3182;
BgL_arg2028z00_3182 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 210 */
long BgL_n2z00_3190;
BgL_n2z00_3190 = 
(long)(BgL_arg2028z00_3182); 
BgL_modz00_3181 = 
(BgL_offsetz00_3180/BgL_n2z00_3190); } } 
{ /* ./SawC/code.scm 210 */
long BgL_restz00_3183;
{ /* ./SawC/code.scm 210 */
int BgL_arg2024z00_3184;
BgL_arg2024z00_3184 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 210 */
long BgL_n2z00_3193;
BgL_n2z00_3193 = 
(long)(BgL_arg2024z00_3184); 
BgL_restz00_3183 = 
(BgL_offsetz00_3180%BgL_n2z00_3193); } } 
{ /* ./SawC/code.scm 210 */

{ /* ./SawC/code.scm 210 */
obj_t BgL_bucketz00_3185;
{ /* ./SawC/code.scm 210 */
int BgL_kz00_3195;
BgL_kz00_3195 = 
(int)(BgL_modz00_3181); 
BgL_bucketz00_3185 = 
VECTOR_REF(BgL_arg2017z00_3176,BgL_kz00_3195); } 
{ /* ./SawC/code.scm 210 */
int BgL_kz00_3197;
BgL_kz00_3197 = 
(int)(BgL_restz00_3183); 
BgL_method3600z00_3173 = 
VECTOR_REF(BgL_bucketz00_3185,BgL_kz00_3197); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3600z00_3173)(BgL_method3600z00_3173, 
(obj_t)(BgL_funz00_33), BEOA); } 
BGl_genzd2argszd2zzsaw_c_codez00(BgL_argsz00_34); 
{ /* ./SawC/code.scm 212 */
obj_t BgL_arg5921z00_2568;
BgL_arg5921z00_2568 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string6564z00zzsaw_c_codez00, BgL_arg5921z00_2568);} } 
}



/* _gen-expr-default3567 */
obj_t BGl__genzd2exprzd2default3567z00zzsaw_c_codez00(obj_t BgL_envz00_3398, obj_t BgL_funz00_3399, obj_t BgL_argsz00_3400)
{ AN_OBJECT;
{ /* ./SawC/code.scm 1 */
return 
BGl_genzd2exprzd2default3567z00zzsaw_c_codez00(
(BgL_rtl_funz00_bglt)(BgL_funz00_3399), BgL_argsz00_3400);} 
}



/* gen-fun-name */
obj_t BGl_genzd2funzd2namez00zzsaw_c_codez00(BgL_rtl_funz00_bglt BgL_funz00_53)
{ AN_OBJECT;
{ /* ./SawC/code.scm 298 */
{ /* ./SawC/code.scm 298 */
obj_t BgL_method3582z00_3198;
{ /* ./SawC/code.scm 298 */
BgL_objectz00_bglt BgL_objz00_3199;
BgL_objz00_3199 = 
(BgL_objectz00_bglt)(BgL_funz00_53); 
{ /* ./SawC/code.scm 298 */
long BgL_objzd2classzd2numz00_3200;
BgL_objzd2classzd2numz00_3200 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3199); 
{ /* ./SawC/code.scm 298 */
obj_t BgL_arg2017z00_3201;
{ /* ./SawC/code.scm 298 */
int BgL_auxz00_4665;
BgL_auxz00_4665 = 
(int)(((long)1)); 
BgL_arg2017z00_3201 = 
PROCEDURE_REF(BGl_genzd2funzd2namezd2envzd2zzsaw_c_codez00, BgL_auxz00_4665); } 
{ /* ./SawC/code.scm 298 */
int BgL_offsetz00_3204;
BgL_offsetz00_3204 = 
(int)(BgL_objzd2classzd2numz00_3200); 
{ /* ./SawC/code.scm 298 */
long BgL_offsetz00_3205;
{ /* ./SawC/code.scm 298 */
long BgL_auxz00_4669;
BgL_auxz00_4669 = 
(long)(BgL_offsetz00_3204); 
BgL_offsetz00_3205 = 
(BgL_auxz00_4669-OBJECT_TYPE); } 
{ /* ./SawC/code.scm 298 */
long BgL_modz00_3206;
{ /* ./SawC/code.scm 298 */
int BgL_arg2028z00_3207;
BgL_arg2028z00_3207 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 298 */
long BgL_n2z00_3215;
BgL_n2z00_3215 = 
(long)(BgL_arg2028z00_3207); 
BgL_modz00_3206 = 
(BgL_offsetz00_3205/BgL_n2z00_3215); } } 
{ /* ./SawC/code.scm 298 */
long BgL_restz00_3208;
{ /* ./SawC/code.scm 298 */
int BgL_arg2024z00_3209;
BgL_arg2024z00_3209 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 298 */
long BgL_n2z00_3218;
BgL_n2z00_3218 = 
(long)(BgL_arg2024z00_3209); 
BgL_restz00_3208 = 
(BgL_offsetz00_3205%BgL_n2z00_3218); } } 
{ /* ./SawC/code.scm 298 */

{ /* ./SawC/code.scm 298 */
obj_t BgL_bucketz00_3210;
{ /* ./SawC/code.scm 298 */
int BgL_kz00_3220;
BgL_kz00_3220 = 
(int)(BgL_modz00_3206); 
BgL_bucketz00_3210 = 
VECTOR_REF(BgL_arg2017z00_3201,BgL_kz00_3220); } 
{ /* ./SawC/code.scm 298 */
int BgL_kz00_3222;
BgL_kz00_3222 = 
(int)(BgL_restz00_3208); 
BgL_method3582z00_3198 = 
VECTOR_REF(BgL_bucketz00_3210,BgL_kz00_3222); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3582z00_3198)(BgL_method3582z00_3198, 
(obj_t)(BgL_funz00_53), BEOA);} } 
}



/* _gen-fun-name */
obj_t BGl__genzd2funzd2namez00zzsaw_c_codez00(obj_t BgL_envz00_3401, obj_t BgL_funz00_3402)
{ AN_OBJECT;
{ /* ./SawC/code.scm 298 */
return 
BGl_genzd2funzd2namez00zzsaw_c_codez00(
(BgL_rtl_funz00_bglt)(BgL_funz00_3402));} 
}



/* _gen-fun-name-default3581 */
obj_t BGl__genzd2funzd2namezd2default3581zd2zzsaw_c_codez00(obj_t BgL_envz00_3403, obj_t BgL_funz00_3404)
{ AN_OBJECT;
{ /* ./SawC/code.scm 1 */
{ /* ./SawC/code.scm 300 */
BgL_rtl_funz00_bglt BgL_funz00_3442;
BgL_funz00_3442 = 
(BgL_rtl_funz00_bglt)(BgL_funz00_3404); 
return 
BGl_genzd2upcasezd2zzsaw_c_codez00(BgL_funz00_3442);} } 
}



/* gen-prefix */
obj_t BGl_genzd2prefixzd2zzsaw_c_codez00(BgL_rtl_funz00_bglt BgL_funz00_67)
{ AN_OBJECT;
{ /* ./SawC/code.scm 335 */
{ /* ./SawC/code.scm 335 */
obj_t BgL_method3600z00_3223;
{ /* ./SawC/code.scm 335 */
BgL_objectz00_bglt BgL_objz00_3224;
BgL_objz00_3224 = 
(BgL_objectz00_bglt)(BgL_funz00_67); 
{ /* ./SawC/code.scm 335 */
long BgL_objzd2classzd2numz00_3225;
BgL_objzd2classzd2numz00_3225 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3224); 
{ /* ./SawC/code.scm 335 */
obj_t BgL_arg2017z00_3226;
{ /* ./SawC/code.scm 335 */
int BgL_auxz00_4691;
BgL_auxz00_4691 = 
(int)(((long)1)); 
BgL_arg2017z00_3226 = 
PROCEDURE_REF(BGl_genzd2prefixzd2envz00zzsaw_c_codez00, BgL_auxz00_4691); } 
{ /* ./SawC/code.scm 335 */
int BgL_offsetz00_3229;
BgL_offsetz00_3229 = 
(int)(BgL_objzd2classzd2numz00_3225); 
{ /* ./SawC/code.scm 335 */
long BgL_offsetz00_3230;
{ /* ./SawC/code.scm 335 */
long BgL_auxz00_4695;
BgL_auxz00_4695 = 
(long)(BgL_offsetz00_3229); 
BgL_offsetz00_3230 = 
(BgL_auxz00_4695-OBJECT_TYPE); } 
{ /* ./SawC/code.scm 335 */
long BgL_modz00_3231;
{ /* ./SawC/code.scm 335 */
int BgL_arg2028z00_3232;
BgL_arg2028z00_3232 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 335 */
long BgL_n2z00_3240;
BgL_n2z00_3240 = 
(long)(BgL_arg2028z00_3232); 
BgL_modz00_3231 = 
(BgL_offsetz00_3230/BgL_n2z00_3240); } } 
{ /* ./SawC/code.scm 335 */
long BgL_restz00_3233;
{ /* ./SawC/code.scm 335 */
int BgL_arg2024z00_3234;
BgL_arg2024z00_3234 = 
(int)(((long)8)); 
{ /* ./SawC/code.scm 335 */
long BgL_n2z00_3243;
BgL_n2z00_3243 = 
(long)(BgL_arg2024z00_3234); 
BgL_restz00_3233 = 
(BgL_offsetz00_3230%BgL_n2z00_3243); } } 
{ /* ./SawC/code.scm 335 */

{ /* ./SawC/code.scm 335 */
obj_t BgL_bucketz00_3235;
{ /* ./SawC/code.scm 335 */
int BgL_kz00_3245;
BgL_kz00_3245 = 
(int)(BgL_modz00_3231); 
BgL_bucketz00_3235 = 
VECTOR_REF(BgL_arg2017z00_3226,BgL_kz00_3245); } 
{ /* ./SawC/code.scm 335 */
int BgL_kz00_3247;
BgL_kz00_3247 = 
(int)(BgL_restz00_3233); 
BgL_method3600z00_3223 = 
VECTOR_REF(BgL_bucketz00_3235,BgL_kz00_3247); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3600z00_3223)(BgL_method3600z00_3223, 
(obj_t)(BgL_funz00_67), BEOA);} } 
}



/* _gen-prefix */
obj_t BGl__genzd2prefixzd2zzsaw_c_codez00(obj_t BgL_envz00_3405, obj_t BgL_funz00_3406)
{ AN_OBJECT;
{ /* ./SawC/code.scm 335 */
return 
BGl_genzd2prefixzd2zzsaw_c_codez00(
(BgL_rtl_funz00_bglt)(BgL_funz00_3406));} 
}



/* _gen-prefix-default3599 */
obj_t BGl__genzd2prefixzd2default3599z00zzsaw_c_codez00(obj_t BgL_envz00_3407, obj_t BgL_funz00_3408)
{ AN_OBJECT;
{ /* ./SawC/code.scm 1 */
{ /* ./SawC/code.scm 336 */
char * BgL_auxz00_4713;
BgL_auxz00_4713 = ""; 
return 
string_to_bstring(BgL_auxz00_4713);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzsaw_c_codez00()
{ AN_OBJECT;
{ /* ./SawC/code.scm 1 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zztype_toolsz00(((long)15091), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zzcnst_allocz00(((long)26410), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zzbackend_backendz00(((long)3428), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zzbackend_cz00(((long)33592), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zzbackend_c_emitz00(((long)11970), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zzsaw_woodcutterz00(((long)44417), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zzsaw_defsz00(((long)12736), "saw_c_code"); 
BGl_modulezd2initializa7ationz75zzsaw_node2rtlz00(((long)27814), "saw_c_code"); 
return 
BGl_modulezd2initializa7ationz75zzsaw_exprz00(((long)3970), "saw_c_code");} 
}

