/*===========================================================================*/
/*   (Inline/simple.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 Inline/simple.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_isfunz00_bgl {
   struct BgL_nodez00_bgl * BgL_originalzd2bodyzd2;
   obj_t BgL_recursivezd2callszd2;
} *BgL_isfunz00_bglt;


extern BgL_localz00_bglt BGl_clonezd2localzd2zzast_localz00(BgL_localz00_bglt, BgL_valuez00_bglt);
static obj_t BGl_methodzd2initzd2zzinline_simplez00();
static obj_t BGl__inlinezd2appzd2simplez00zzinline_simplez00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern BgL_letzd2varzd2_bglt BGl_makezd2letzd2varz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, BgL_nodez00_bglt, bool_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t BGl_za2verboseza2z00zzengine_paramz00;
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern obj_t BGl_za2_za2z00zztype_cachez00;
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
extern obj_t BGl_za2procedureza2z00zztype_cachez00;
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_cnstzd2initzd2zzinline_simplez00();
static obj_t BGl_importedzd2moduleszd2initz00zzinline_simplez00();
extern obj_t BGl_currentzd2functionzd2zztools_errorz00();
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzinline_simplez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzinline_inlinez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzinline_siza7eza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_alphatiza7eza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzeffect_effectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzeffect_spreadz00(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_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
extern bool_t BGl_sidezd2effectzf3z21zzeffect_effectz00(BgL_nodez00_bglt);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t, BgL_typez00_bglt);
extern BgL_nodez00_bglt BGl_alphatiza7eza7zzast_alphatiza7eza7(obj_t, obj_t, obj_t, BgL_nodez00_bglt);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_inlinezd2appzd2simplez00zzinline_simplez00(BgL_nodez00_bglt, long, obj_t, obj_t);
extern obj_t BGl_closurez00zzast_nodez00;
extern obj_t BGl_za2inliningzd2reducezd2kfactorza2z00zzengine_paramz00;
extern BgL_varz00_bglt BGl_makezd2varzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
extern obj_t BGl_isfunz00zzinline_inlinez00;
extern obj_t BGl_za2objza2z00zztype_cachez00;
static obj_t BGl_requirezd2initializa7ationz75zzinline_simplez00 = BUNSPEC;
extern BgL_nodez00_bglt BGl_inlinezd2nodezd2zzinline_inlinez00(BgL_nodez00_bglt, long, obj_t);
extern bool_t BGl_spreadzd2sidezd2effectz12z12zzeffect_spreadz00(BgL_nodez00_bglt);
static obj_t BGl_libraryzd2moduleszd2initz00zzinline_simplez00();
extern BgL_svarz00_bglt BGl_makezd2svarzd2zzast_varz00(obj_t);
static obj_t __cnst[ 3 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_inlinezd2appzd2simplezd2envzd2zzinline_simplez00, BgL_bgl__inlineza7d2appza7d2simpleza700za7za7inline_simpleza7003396z00, BGl__inlinezd2appzd2simplez00zzinline_simplez00, 0L, 4 );
DEFINE_STRING( BGl_string3368z00zzinline_simplez00, BgL_bgl_string3368za700za7za7inline_simpleza7003397z00, "res (sifun sgfun) read ", 23 );
DEFINE_STRING( BGl_string3367z00zzinline_simplez00, BgL_bgl_string3367za700za7za7inline_simpleza7003398z00, "         ", 9 );
DEFINE_STRING( BGl_string3366z00zzinline_simplez00, BgL_bgl_string3366za700za7za7inline_simpleza7003399z00, " --> ", 5 );
DEFINE_STRING( BGl_string3365z00zzinline_simplez00, BgL_bgl_string3365za700za7za7inline_simpleza7003400z00, " (", 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzinline_simplez00(long BgL_checksumz00_1218, char * BgL_fromz00_1219)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzinline_simplez00))
{ 
BGl_requirezd2initializa7ationz75zzinline_simplez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzinline_simplez00(); 
BGl_cnstzd2initzd2zzinline_simplez00(); 
BGl_importedzd2moduleszd2initz00zzinline_simplez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzinline_simplez00()
{ AN_OBJECT;
{ /* ./Inline/simple.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "inline_simple"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "inline_simple"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "inline_simple"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "inline_simple"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "inline_simple"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzinline_simplez00()
{ AN_OBJECT;
{ /* ./Inline/simple.scm 15 */
{ /* ./Inline/simple.scm 15 */
obj_t BgL_cportz00_1211;
BgL_cportz00_1211 = 
open_input_string(BGl_string3368z00zzinline_simplez00); 
{ 
long BgL_iz00_1212;
BgL_iz00_1212 = ((long)2); 
BgL_loopz00_1213:
{ /* ./Inline/simple.scm 15 */
bool_t BgL_test3370z00_1214;
BgL_test3370z00_1214 = 
(BgL_iz00_1212==((long)-1)); 
if(BgL_test3370z00_1214)
{ /* ./Inline/simple.scm 15 */
return BUNSPEC;}  else 
{ /* ./Inline/simple.scm 15 */
{ /* ./Inline/simple.scm 15 */
obj_t BgL_arg3372z00_1215;
{ /* ./Inline/simple.scm 15 */
obj_t BgL_list3375z00_1216;
BgL_list3375z00_1216 = 
MAKE_PAIR(BgL_cportz00_1211, BNIL); 
BgL_arg3372z00_1215 = 
BGl_readz00zz__readerz00(BgL_list3375z00_1216); } 
{ /* ./Inline/simple.scm 15 */
int BgL_auxz00_1236;
BgL_auxz00_1236 = 
(int)(BgL_iz00_1212); 
CNST_TABLE_SET(BgL_auxz00_1236, BgL_arg3372z00_1215); } } 
{ /* ./Inline/simple.scm 15 */
int BgL_auxz00_1217;
{ /* ./Inline/simple.scm 15 */
long BgL_auxz00_1239;
BgL_auxz00_1239 = 
(BgL_iz00_1212-((long)1)); 
BgL_auxz00_1217 = 
(int)(BgL_auxz00_1239); } 
{ 
long BgL_iz00_1242;
BgL_iz00_1242 = 
(long)(BgL_auxz00_1217); 
BgL_iz00_1212 = BgL_iz00_1242; 
goto BgL_loopz00_1213;} } } } } } } 
}



/* inline-app-simple */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_inlinezd2appzd2simplez00zzinline_simplez00(BgL_nodez00_bglt BgL_nodez00_1, long BgL_kfactorz00_2, obj_t BgL_stackz00_3, obj_t BgL_msgz00_4)
{ AN_OBJECT;
{ /* ./Inline/simple.scm 42 */
{ /* ./Inline/simple.scm 45 */
BgL_variablez00_bglt BgL_calleez00_670;
{ /* ./Inline/simple.scm 45 */
BgL_varz00_bglt BgL_arg2957z00_786;
{ /* ./Inline/simple.scm 45 */
BgL_appz00_bglt BgL_obj1719z00_1149;
BgL_obj1719z00_1149 = 
(BgL_appz00_bglt)(BgL_nodez00_1); 
BgL_arg2957z00_786 = 
(((BgL_appz00_bglt)CREF(BgL_obj1719z00_1149))->BgL_funz00); } 
BgL_calleez00_670 = 
(((BgL_varz00_bglt)CREF(BgL_arg2957z00_786))->BgL_variablez00); } 
{ /* ./Inline/simple.scm 45 */
BgL_valuez00_bglt BgL_sfunz00_671;
BgL_sfunz00_671 = 
(((BgL_variablez00_bglt)CREF(BgL_calleez00_670))->BgL_valuez00); 
{ /* ./Inline/simple.scm 46 */
obj_t BgL_formalsz00_672;
{ /* ./Inline/simple.scm 47 */
BgL_sfunz00_bglt BgL_obj1367z00_1152;
BgL_obj1367z00_1152 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_671); 
BgL_formalsz00_672 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1152))->BgL_argsz00); } 
{ /* ./Inline/simple.scm 47 */
obj_t BgL_actualsz00_673;
{ /* ./Inline/simple.scm 48 */
BgL_appz00_bglt BgL_obj1722z00_1153;
BgL_obj1722z00_1153 = 
(BgL_appz00_bglt)(BgL_nodez00_1); 
BgL_actualsz00_673 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1153))->BgL_argsz00); } 
{ /* ./Inline/simple.scm 48 */
obj_t BgL_reductorsz00_674;
{ /* ./Inline/simple.scm 49 */
bool_t BgL_test2903z00_758;
BgL_test2903z00_758 = 
NULLP(BgL_formalsz00_672); 
if(BgL_test2903z00_758)
{ /* ./Inline/simple.scm 49 */
BgL_reductorsz00_674 = BNIL; }  else 
{ /* ./Inline/simple.scm 49 */
obj_t BgL_head2732z00_759;
BgL_head2732z00_759 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_ll2730z00_760;obj_t BgL_ll2731z00_761;obj_t BgL_tail2733z00_762;
BgL_ll2730z00_760 = BgL_formalsz00_672; 
BgL_ll2731z00_761 = BgL_actualsz00_673; 
BgL_tail2733z00_762 = BgL_head2732z00_759; 
BgL_map2735z00_763:
{ /* ./Inline/simple.scm 49 */
bool_t BgL_test2905z00_764;
BgL_test2905z00_764 = 
NULLP(BgL_ll2730z00_760); 
if(BgL_test2905z00_764)
{ /* ./Inline/simple.scm 49 */
BgL_reductorsz00_674 = 
CDR(BgL_head2732z00_759); }  else 
{ /* ./Inline/simple.scm 50 */
obj_t BgL_newtail2734z00_765;
{ /* ./Inline/simple.scm 50 */
obj_t BgL_arg2915z00_768;
{ /* ./Inline/simple.scm 50 */
obj_t BgL_fz00_770;obj_t BgL_az00_771;
BgL_fz00_770 = 
CAR(BgL_ll2730z00_760); 
BgL_az00_771 = 
CAR(BgL_ll2731z00_761); 
{ /* ./Inline/simple.scm 50 */
bool_t BgL_test2918z00_772;
{ /* ./Inline/simple.scm 50 */
bool_t BgL_test2928z00_777;
BgL_test2928z00_777 = 
BGl_iszd2azf3z21zz__objectz00(BgL_az00_771, BGl_closurez00zzast_nodez00); 
if(BgL_test2928z00_777)
{ /* ./Inline/simple.scm 51 */
bool_t BgL_test2929z00_778;
{ /* ./Inline/simple.scm 51 */
obj_t BgL_auxz00_1265;obj_t BgL_auxz00_1262;
BgL_auxz00_1265 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Inline/simple.scm 51 */
BgL_variablez00_bglt BgL_obj1103z00_1162;
BgL_obj1103z00_1162 = 
(BgL_variablez00_bglt)(BgL_fz00_770); 
BgL_auxz00_1262 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1103z00_1162))->BgL_accessz00); } 
BgL_test2929z00_778 = 
(BgL_auxz00_1262==BgL_auxz00_1265); } 
if(BgL_test2929z00_778)
{ /* ./Inline/simple.scm 51 */
bool_t BgL__ortest_2736z00_779;
{ /* ./Inline/simple.scm 52 */
BgL_typez00_bglt BgL_arg2939z00_783;
{ /* ./Inline/simple.scm 52 */
BgL_variablez00_bglt BgL_obj1097z00_1163;
BgL_obj1097z00_1163 = 
(BgL_variablez00_bglt)(BgL_fz00_770); 
BgL_arg2939z00_783 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_1163))->BgL_typez00); } 
{ /* ./Inline/simple.scm 52 */
obj_t BgL_auxz00_1271;
BgL_auxz00_1271 = 
(obj_t)(BgL_arg2939z00_783); 
BgL__ortest_2736z00_779 = 
(BgL_auxz00_1271==BGl_za2procedureza2z00zztype_cachez00); } } 
if(BgL__ortest_2736z00_779)
{ /* ./Inline/simple.scm 51 */
BgL_test2918z00_772 = BgL__ortest_2736z00_779; }  else 
{ /* ./Inline/simple.scm 53 */
bool_t BgL__ortest_2737z00_780;
{ /* ./Inline/simple.scm 53 */
BgL_typez00_bglt BgL_arg2935z00_782;
{ /* ./Inline/simple.scm 53 */
BgL_variablez00_bglt BgL_obj1097z00_1164;
BgL_obj1097z00_1164 = 
(BgL_variablez00_bglt)(BgL_fz00_770); 
BgL_arg2935z00_782 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_1164))->BgL_typez00); } 
{ /* ./Inline/simple.scm 53 */
obj_t BgL_auxz00_1277;
BgL_auxz00_1277 = 
(obj_t)(BgL_arg2935z00_782); 
BgL__ortest_2737z00_780 = 
(BgL_auxz00_1277==BGl_za2_za2z00zztype_cachez00); } } 
if(BgL__ortest_2737z00_780)
{ /* ./Inline/simple.scm 53 */
BgL_test2918z00_772 = BgL__ortest_2737z00_780; }  else 
{ /* ./Inline/simple.scm 54 */
BgL_typez00_bglt BgL_arg2931z00_781;
{ /* ./Inline/simple.scm 54 */
BgL_variablez00_bglt BgL_obj1097z00_1165;
BgL_obj1097z00_1165 = 
(BgL_variablez00_bglt)(BgL_fz00_770); 
BgL_arg2931z00_781 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_1165))->BgL_typez00); } 
{ /* ./Inline/simple.scm 54 */
obj_t BgL_auxz00_1283;
BgL_auxz00_1283 = 
(obj_t)(BgL_arg2931z00_781); 
BgL_test2918z00_772 = 
(BgL_auxz00_1283==BGl_za2objza2z00zztype_cachez00); } } } }  else 
{ /* ./Inline/simple.scm 51 */
BgL_test2918z00_772 = ((bool_t)0); } }  else 
{ /* ./Inline/simple.scm 50 */
BgL_test2918z00_772 = ((bool_t)0); } } 
if(BgL_test2918z00_772)
{ /* ./Inline/simple.scm 59 */
BgL_varz00_bglt BgL_obj1625z00_1166;
BgL_obj1625z00_1166 = 
(BgL_varz00_bglt)(BgL_az00_771); 
{ /* ./Inline/simple.scm 59 */
BgL_variablez00_bglt BgL_auxz00_1288;
BgL_auxz00_1288 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1166))->BgL_variablez00); 
BgL_arg2915z00_768 = 
(obj_t)(BgL_auxz00_1288); } }  else 
{ /* ./Inline/simple.scm 62 */
BgL_svarz00_bglt BgL_arg2921z00_773;
{ /* ./Inline/simple.scm 62 */
BgL_svarz00_bglt BgL_duplicated2738z00_774;
{ /* ./Inline/simple.scm 62 */
BgL_variablez00_bglt BgL_obj1100z00_1167;
BgL_obj1100z00_1167 = 
(BgL_variablez00_bglt)(BgL_fz00_770); 
{ /* ./Inline/simple.scm 62 */
BgL_valuez00_bglt BgL_auxz00_1292;
BgL_auxz00_1292 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1167))->BgL_valuez00); 
BgL_duplicated2738z00_774 = 
(BgL_svarz00_bglt)(BgL_auxz00_1292); } } 
{ /* ./Inline/simple.scm 62 */
BgL_svarz00_bglt BgL_new2739z00_775;
{ /* ./Inline/simple.scm 62 */
obj_t BgL_arg2924z00_776;
BgL_arg2924z00_776 = 
(((BgL_svarz00_bglt)CREF(BgL_duplicated2738z00_774))->BgL_locz00); 
BgL_new2739z00_775 = 
BGl_makezd2svarzd2zzast_varz00(BgL_arg2924z00_776); } 
{ /* ./Inline/simple.scm 62 */

BgL_arg2921z00_773 = BgL_new2739z00_775; } } } 
{ /* ./Inline/simple.scm 60 */
BgL_localz00_bglt BgL_auxz00_1297;
BgL_auxz00_1297 = 
BGl_clonezd2localzd2zzast_localz00(
(BgL_localz00_bglt)(BgL_fz00_770), 
(BgL_valuez00_bglt)(BgL_arg2921z00_773)); 
BgL_arg2915z00_768 = 
(obj_t)(BgL_auxz00_1297); } } } } 
BgL_newtail2734z00_765 = 
MAKE_PAIR(BgL_arg2915z00_768, BNIL); } 
SET_CDR(BgL_tail2733z00_762, BgL_newtail2734z00_765); 
{ /* ./Inline/simple.scm 49 */
obj_t BgL_arg2909z00_766;obj_t BgL_arg2910z00_767;
BgL_arg2909z00_766 = 
CDR(BgL_ll2730z00_760); 
BgL_arg2910z00_767 = 
CDR(BgL_ll2731z00_761); 
{ 
obj_t BgL_tail2733z00_1308;obj_t BgL_ll2731z00_1307;obj_t BgL_ll2730z00_1306;
BgL_ll2730z00_1306 = BgL_arg2909z00_766; 
BgL_ll2731z00_1307 = BgL_arg2910z00_767; 
BgL_tail2733z00_1308 = BgL_newtail2734z00_765; 
BgL_tail2733z00_762 = BgL_tail2733z00_1308; 
BgL_ll2731z00_761 = BgL_ll2731z00_1307; 
BgL_ll2730z00_760 = BgL_ll2730z00_1306; 
goto BgL_map2735z00_763;} } } } } } } 
{ /* ./Inline/simple.scm 49 */
obj_t BgL_bindingsz00_675;
{ 
obj_t BgL_reductorsz00_737;obj_t BgL_actualsz00_738;obj_t BgL_resz00_739;
BgL_reductorsz00_737 = BgL_reductorsz00_674; 
BgL_actualsz00_738 = BgL_actualsz00_673; 
BgL_resz00_739 = BNIL; 
BgL_loopz00_740:
{ /* ./Inline/simple.scm 69 */
bool_t BgL_test2862z00_741;
BgL_test2862z00_741 = 
NULLP(BgL_actualsz00_738); 
if(BgL_test2862z00_741)
{ /* ./Inline/simple.scm 69 */
BgL_bindingsz00_675 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_resz00_739); }  else 
{ /* ./Inline/simple.scm 71 */
bool_t BgL_test2864z00_742;
{ /* ./Inline/simple.scm 71 */
bool_t BgL_test2888z00_751;
{ /* ./Inline/simple.scm 71 */
obj_t BgL_arg2899z00_755;
BgL_arg2899z00_755 = 
CAR(BgL_actualsz00_738); 
BgL_test2888z00_751 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg2899z00_755, BGl_closurez00zzast_nodez00); } 
if(BgL_test2888z00_751)
{ /* ./Inline/simple.scm 72 */
obj_t BgL_auxz00_1317;obj_t BgL_auxz00_1315;
{ /* ./Inline/simple.scm 72 */
BgL_variablez00_bglt BgL_auxz00_1318;
{ /* ./Inline/simple.scm 73 */
BgL_varz00_bglt BgL_obj1625z00_1180;
{ /* ./Inline/simple.scm 73 */
obj_t BgL_auxz00_1319;
BgL_auxz00_1319 = 
CAR(BgL_actualsz00_738); 
BgL_obj1625z00_1180 = 
(BgL_varz00_bglt)(BgL_auxz00_1319); } 
BgL_auxz00_1318 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1180))->BgL_variablez00); } 
BgL_auxz00_1317 = 
(obj_t)(BgL_auxz00_1318); } 
BgL_auxz00_1315 = 
CAR(BgL_reductorsz00_737); 
BgL_test2864z00_742 = 
(BgL_auxz00_1315==BgL_auxz00_1317); }  else 
{ /* ./Inline/simple.scm 71 */
BgL_test2864z00_742 = ((bool_t)0); } } 
if(BgL_test2864z00_742)
{ /* ./Inline/simple.scm 71 */
{ /* ./Inline/simple.scm 74 */
obj_t BgL_arg2866z00_743;obj_t BgL_arg2868z00_744;
BgL_arg2866z00_743 = 
CDR(BgL_reductorsz00_737); 
BgL_arg2868z00_744 = 
CDR(BgL_actualsz00_738); 
{ 
obj_t BgL_actualsz00_1329;obj_t BgL_reductorsz00_1328;
BgL_reductorsz00_1328 = BgL_arg2866z00_743; 
BgL_actualsz00_1329 = BgL_arg2868z00_744; 
BgL_actualsz00_738 = BgL_actualsz00_1329; 
BgL_reductorsz00_737 = BgL_reductorsz00_1328; 
goto BgL_loopz00_740;} } }  else 
{ /* ./Inline/simple.scm 71 */
{ /* ./Inline/simple.scm 78 */
obj_t BgL_arg2873z00_745;obj_t BgL_arg2874z00_746;obj_t BgL_arg2875z00_747;
BgL_arg2873z00_745 = 
CDR(BgL_reductorsz00_737); 
BgL_arg2874z00_746 = 
CDR(BgL_actualsz00_738); 
{ /* ./Inline/simple.scm 80 */
obj_t BgL_arg2880z00_748;
{ /* ./Inline/simple.scm 80 */
obj_t BgL_arg2883z00_749;obj_t BgL_arg2884z00_750;
BgL_arg2883z00_749 = 
CAR(BgL_reductorsz00_737); 
BgL_arg2884z00_750 = 
CAR(BgL_actualsz00_738); 
BgL_arg2880z00_748 = 
MAKE_PAIR(BgL_arg2883z00_749, BgL_arg2884z00_750); } 
BgL_arg2875z00_747 = 
MAKE_PAIR(BgL_arg2880z00_748, BgL_resz00_739); } 
{ 
obj_t BgL_resz00_1338;obj_t BgL_actualsz00_1337;obj_t BgL_reductorsz00_1336;
BgL_reductorsz00_1336 = BgL_arg2873z00_745; 
BgL_actualsz00_1337 = BgL_arg2874z00_746; 
BgL_resz00_1338 = BgL_arg2875z00_747; 
BgL_resz00_739 = BgL_resz00_1338; 
BgL_actualsz00_738 = BgL_actualsz00_1337; 
BgL_reductorsz00_737 = BgL_reductorsz00_1336; 
goto BgL_loopz00_740;} } } } } } 
{ /* ./Inline/simple.scm 65 */
obj_t BgL_bodyz00_676;
{ /* ./Inline/simple.scm 83 */
bool_t BgL_test2857z00_736;
{ /* ./Inline/simple.scm 83 */
obj_t BgL_obj2684z00_1187;
BgL_obj2684z00_1187 = 
(obj_t)(BgL_sfunz00_671); 
BgL_test2857z00_736 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2684z00_1187, BGl_isfunz00zzinline_inlinez00); } 
if(BgL_test2857z00_736)
{ /* ./Inline/simple.scm 84 */
BgL_isfunz00_bglt BgL_obj2686z00_1188;
BgL_obj2686z00_1188 = 
(BgL_isfunz00_bglt)(BgL_sfunz00_671); 
{ /* ./Inline/simple.scm 84 */
BgL_nodez00_bglt BgL_auxz00_1343;
{ 
obj_t BgL_auxz00_1344;
{ /* ./Inline/simple.scm 84 */
BgL_objectz00_bglt BgL_auxz00_1345;
BgL_auxz00_1345 = 
(BgL_objectz00_bglt)(BgL_obj2686z00_1188); 
BgL_auxz00_1344 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1345); } 
BgL_auxz00_1343 = 
(((BgL_isfunz00_bglt)CREF(BgL_auxz00_1344))->BgL_originalzd2bodyzd2); } 
BgL_bodyz00_676 = 
(obj_t)(BgL_auxz00_1343); } }  else 
{ /* ./Inline/simple.scm 85 */
BgL_sfunz00_bglt BgL_obj1370z00_1189;
BgL_obj1370z00_1189 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_671); 
BgL_bodyz00_676 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1189))->BgL_bodyz00); } } 
{ /* ./Inline/simple.scm 86 */
obj_t BgL_newzd2kfactorzd2_678;
BgL_newzd2kfactorzd2_678 = 
PROCEDURE_ENTRY(BGl_za2inliningzd2reducezd2kfactorza2z00zzengine_paramz00)(BGl_za2inliningzd2reducezd2kfactorza2z00zzengine_paramz00, 
BINT(BgL_kfactorz00_2), BEOA); 
{ /* ./Inline/simple.scm 87 */
obj_t BgL_locz00_679;
BgL_locz00_679 = 
(((BgL_nodez00_bglt)CREF(BgL_nodez00_1))->BgL_locz00); 
{ /* ./Inline/simple.scm 88 */
BgL_typez00_bglt BgL_typez00_680;
BgL_typez00_680 = 
(((BgL_variablez00_bglt)CREF(BgL_calleez00_670))->BgL_typez00); 
{ /* ./Inline/simple.scm 89 */

{ /* ./Inline/simple.scm 91 */
bool_t BgL_test2747z00_681;
{ /* ./Inline/simple.scm 91 */
obj_t BgL_auxz00_1357;
{ /* ./Inline/simple.scm 91 */
obj_t BgL_auxz00_1358;
{ /* ./Inline/simple.scm 91 */
BgL_sfunz00_bglt BgL_obj1374z00_1193;
BgL_obj1374z00_1193 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_671); 
BgL_auxz00_1358 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1374z00_1193))->BgL_classz00); } 
BgL_auxz00_1357 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_1358, 
CNST_TABLE_REF(((long)1))); } 
BgL_test2747z00_681 = 
CBOOL(BgL_auxz00_1357); } 
if(BgL_test2747z00_681)
{ /* ./Inline/simple.scm 91 */BFALSE; }  else 
{ /* ./Inline/simple.scm 92 */
bool_t BgL_test2748z00_683;
BgL_test2748z00_683 = 
BGl_zc3zd3z10zz__r4_numbers_6_5z00(
BINT(((long)3)), BGl_za2verboseza2z00zzengine_paramz00, BNIL); 
if(BgL_test2748z00_683)
{ /* ./Inline/simple.scm 92 */
obj_t BgL_arg2751z00_685;obj_t BgL_arg2753z00_687;
BgL_arg2751z00_685 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_calleez00_670)); 
BgL_arg2753z00_687 = 
BGl_currentzd2functionzd2zztools_errorz00(); 
{ /* ./Inline/simple.scm 92 */
obj_t BgL_list2756z00_689;
{ /* ./Inline/simple.scm 92 */
obj_t BgL_arg2758z00_690;
{ /* ./Inline/simple.scm 92 */
obj_t BgL_arg2761z00_691;
{ /* ./Inline/simple.scm 92 */
obj_t BgL_arg2764z00_692;
{ /* ./Inline/simple.scm 92 */
obj_t BgL_arg2767z00_693;
{ /* ./Inline/simple.scm 92 */
obj_t BgL_arg2770z00_694;
{ /* ./Inline/simple.scm 92 */
obj_t BgL_arg2773z00_695;
{ /* ./Inline/simple.scm 92 */
obj_t BgL_arg2776z00_696;
{ /* ./Inline/simple.scm 92 */
obj_t BgL_auxz00_1371;
BgL_auxz00_1371 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2776z00_696 = 
MAKE_PAIR(BgL_auxz00_1371, BNIL); } 
{ /* ./Inline/simple.scm 92 */
obj_t BgL_auxz00_1374;
BgL_auxz00_1374 = 
BCHAR(((unsigned char)')')); 
BgL_arg2773z00_695 = 
MAKE_PAIR(BgL_auxz00_1374, BgL_arg2776z00_696); } } 
BgL_arg2770z00_694 = 
MAKE_PAIR(BgL_msgz00_4, BgL_arg2773z00_695); } 
BgL_arg2767z00_693 = 
MAKE_PAIR(BGl_string3365z00zzinline_simplez00, BgL_arg2770z00_694); } 
BgL_arg2764z00_692 = 
MAKE_PAIR(BgL_arg2753z00_687, BgL_arg2767z00_693); } 
BgL_arg2761z00_691 = 
MAKE_PAIR(BGl_string3366z00zzinline_simplez00, BgL_arg2764z00_692); } 
BgL_arg2758z00_690 = 
MAKE_PAIR(BgL_arg2751z00_685, BgL_arg2761z00_691); } 
BgL_list2756z00_689 = 
MAKE_PAIR(BGl_string3367z00zzinline_simplez00, BgL_arg2758z00_690); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)3)), BgL_list2756z00_689); } }  else 
{ /* ./Inline/simple.scm 92 */BUNSPEC; } } } 
{ /* ./Inline/simple.scm 103 */
BgL_nodez00_bglt BgL_alphazd2bodyzd2_700;
BgL_alphazd2bodyzd2_700 = 
BGl_alphatiza7eza7zzast_alphatiza7eza7(BgL_formalsz00_672, BgL_reductorsz00_674, BgL_locz00_679, 
(BgL_nodez00_bglt)(BgL_bodyz00_676)); 
BGl_spreadzd2sidezd2effectz12z12zzeffect_spreadz00(BgL_alphazd2bodyzd2_700); 
{ /* ./Inline/simple.scm 107 */
BgL_letzd2varzd2_bglt BgL_inlinezd2bodyzd2_701;
{ /* ./Inline/simple.scm 108 */
obj_t BgL_arg2840z00_729;BgL_typez00_bglt BgL_arg2841z00_730;bool_t BgL_arg2842z00_731;obj_t BgL_arg2844z00_733;BgL_nodez00_bglt BgL_arg2845z00_734;
BgL_arg2840z00_729 = BgL_locz00_679; 
BgL_arg2841z00_730 = BgL_typez00_680; 
BgL_arg2842z00_731 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(BgL_alphazd2bodyzd2_700); 
BgL_arg2844z00_733 = BgL_bindingsz00_675; 
{ /* ./Inline/simple.scm 114 */
obj_t BgL_arg2849z00_735;
{ /* ./Inline/simple.scm 114 */
obj_t BgL_auxz00_1389;
BgL_auxz00_1389 = 
(obj_t)(BgL_calleez00_670); 
BgL_arg2849z00_735 = 
MAKE_PAIR(BgL_auxz00_1389, BgL_stackz00_3); } 
BgL_arg2845z00_734 = 
BGl_inlinezd2nodezd2zzinline_inlinez00(BgL_alphazd2bodyzd2_700, 
(long)CINT(BgL_newzd2kfactorzd2_678), BgL_arg2849z00_735); } 
BgL_inlinezd2bodyzd2_701 = 
BGl_makezd2letzd2varz00zzast_nodez00(BgL_arg2840z00_729, BgL_arg2841z00_730, 
BBOOL(BgL_arg2842z00_731), 
BINT(((long)-1)), BgL_arg2844z00_733, BgL_arg2845z00_734, ((bool_t)1)); } 
{ 
obj_t BgL_ll2742z00_702;obj_t BgL_ll2743z00_703;
BgL_ll2742z00_702 = BgL_bindingsz00_675; 
BgL_ll2743z00_703 = BgL_formalsz00_672; 
BgL_forzd2each2744zd2_704:
{ /* ./Inline/simple.scm 116 */
bool_t BgL_test2790z00_705;
BgL_test2790z00_705 = 
NULLP(BgL_ll2742z00_702); 
if(BgL_test2790z00_705)
{ /* ./Inline/simple.scm 116 */((bool_t)1); }  else 
{ /* ./Inline/simple.scm 116 */
{ /* ./Inline/simple.scm 117 */
obj_t BgL_bindingz00_706;obj_t BgL_formalz00_707;
BgL_bindingz00_706 = 
CAR(BgL_ll2742z00_702); 
BgL_formalz00_707 = 
CAR(BgL_ll2743z00_703); 
{ /* ./Inline/simple.scm 117 */
obj_t BgL_arg2792z00_708;bool_t BgL_arg2793z00_709;
BgL_arg2792z00_708 = 
CAR(BgL_bindingz00_706); 
{ /* ./Inline/simple.scm 117 */
BgL_localz00_bglt BgL_obj1263z00_1198;
BgL_obj1263z00_1198 = 
(BgL_localz00_bglt)(BgL_formalz00_707); 
BgL_arg2793z00_709 = 
(((BgL_localz00_bglt)CREF(BgL_obj1263z00_1198))->BgL_userzf3zf3); } 
{ /* ./Inline/simple.scm 117 */
BgL_localz00_bglt BgL_obj1265z00_1199;bool_t BgL_val1264z00_1200;
BgL_obj1265z00_1199 = 
(BgL_localz00_bglt)(BgL_arg2792z00_708); 
BgL_val1264z00_1200 = BgL_arg2793z00_709; 
((((BgL_localz00_bglt)CREF(BgL_obj1265z00_1199))->BgL_userzf3zf3) = ((bool_t)BgL_val1264z00_1200), BUNSPEC); } } } 
{ /* ./Inline/simple.scm 116 */
obj_t BgL_arg2800z00_710;obj_t BgL_arg2801z00_711;
BgL_arg2800z00_710 = 
CDR(BgL_ll2742z00_702); 
BgL_arg2801z00_711 = 
CDR(BgL_ll2743z00_703); 
{ 
obj_t BgL_ll2743z00_1409;obj_t BgL_ll2742z00_1408;
BgL_ll2742z00_1408 = BgL_arg2800z00_710; 
BgL_ll2743z00_1409 = BgL_arg2801z00_711; 
BgL_ll2743z00_703 = BgL_ll2743z00_1409; 
BgL_ll2742z00_702 = BgL_ll2742z00_1408; 
goto BgL_forzd2each2744zd2_704;} } } } } 
{ /* ./Inline/simple.scm 124 */
bool_t BgL_test2806z00_712;
{ /* ./Inline/simple.scm 124 */
bool_t BgL_test2831z00_726;
{ /* ./Inline/simple.scm 124 */
obj_t BgL_auxz00_1410;
BgL_auxz00_1410 = 
(obj_t)(BgL_typez00_680); 
BgL_test2831z00_726 = 
(BgL_auxz00_1410==BGl_za2_za2z00zztype_cachez00); } 
if(BgL_test2831z00_726)
{ /* ./Inline/simple.scm 124 */
BgL_test2806z00_712 = ((bool_t)1); }  else 
{ /* ./Inline/simple.scm 126 */
bool_t BgL_test2832z00_727;
{ /* ./Inline/simple.scm 125 */
obj_t BgL_auxz00_1414;
BgL_auxz00_1414 = 
(obj_t)(BgL_typez00_680); 
BgL_test2832z00_727 = 
(BgL_auxz00_1414==BGl_za2objza2z00zztype_cachez00); } 
if(BgL_test2832z00_727)
{ /* ./Inline/simple.scm 126 */
BgL_test2806z00_712 = ((bool_t)1); }  else 
{ /* ./Inline/simple.scm 126 */
obj_t BgL_auxz00_1420;obj_t BgL_auxz00_1418;
{ /* ./Inline/simple.scm 126 */
BgL_typez00_bglt BgL_auxz00_1421;
BgL_auxz00_1421 = 
(((BgL_nodez00_bglt)CREF(BgL_alphazd2bodyzd2_700))->BgL_typez00); 
BgL_auxz00_1420 = 
(obj_t)(BgL_auxz00_1421); } 
BgL_auxz00_1418 = 
(obj_t)(BgL_typez00_680); 
BgL_test2806z00_712 = 
(BgL_auxz00_1418==BgL_auxz00_1420); } } } 
if(BgL_test2806z00_712)
{ /* ./Inline/simple.scm 124 */
return 
(BgL_nodez00_bglt)(BgL_inlinezd2bodyzd2_701);}  else 
{ /* ./Inline/simple.scm 128 */
BgL_localz00_bglt BgL_varz00_713;
{ /* ./Inline/simple.scm 128 */
obj_t BgL_arg2828z00_725;
BgL_arg2828z00_725 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)2)), BEOA); 
BgL_varz00_713 = 
BGl_makezd2localzd2svarz00zzast_localz00(BgL_arg2828z00_725, BgL_typez00_680); } 
{ /* ./Inline/simple.scm 130 */
obj_t BgL_arg2808z00_714;BgL_typez00_bglt BgL_arg2809z00_715;bool_t BgL_arg2810z00_716;obj_t BgL_arg2812z00_718;BgL_varz00_bglt BgL_arg2813z00_719;
BgL_arg2808z00_714 = BgL_locz00_679; 
BgL_arg2809z00_715 = BgL_typez00_680; 
BgL_arg2810z00_716 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_inlinezd2bodyzd2_701)); 
{ /* ./Inline/simple.scm 133 */
obj_t BgL_arg2817z00_720;
{ /* ./Inline/simple.scm 133 */
obj_t BgL_auxz00_1435;obj_t BgL_auxz00_1433;
BgL_auxz00_1435 = 
(obj_t)(BgL_inlinezd2bodyzd2_701); 
BgL_auxz00_1433 = 
(obj_t)(BgL_varz00_713); 
BgL_arg2817z00_720 = 
MAKE_PAIR(BgL_auxz00_1433, BgL_auxz00_1435); } 
{ /* ./Inline/simple.scm 133 */
obj_t BgL_list2819z00_721;
BgL_list2819z00_721 = 
MAKE_PAIR(BgL_arg2817z00_720, BNIL); 
BgL_arg2812z00_718 = BgL_list2819z00_721; } } 
{ /* ./Inline/simple.scm 135 */
obj_t BgL_arg2823z00_722;BgL_typez00_bglt BgL_arg2824z00_723;BgL_localz00_bglt BgL_arg2825z00_724;
BgL_arg2823z00_722 = BgL_locz00_679; 
BgL_arg2824z00_723 = BgL_typez00_680; 
BgL_arg2825z00_724 = BgL_varz00_713; 
BgL_arg2813z00_719 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg2823z00_722, BgL_arg2824z00_723, 
(BgL_variablez00_bglt)(BgL_arg2825z00_724)); } 
{ /* ./Inline/simple.scm 129 */
BgL_letzd2varzd2_bglt BgL_auxz00_1441;
BgL_auxz00_1441 = 
BGl_makezd2letzd2varz00zzast_nodez00(BgL_arg2808z00_714, BgL_arg2809z00_715, 
BBOOL(BgL_arg2810z00_716), 
BINT(((long)-1)), BgL_arg2812z00_718, 
(BgL_nodez00_bglt)(BgL_arg2813z00_719), ((bool_t)1)); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_1441);} } } } } } } } } } } } } } } } } } 
}



/* _inline-app-simple */
obj_t BGl__inlinezd2appzd2simplez00zzinline_simplez00(obj_t BgL_envz00_1206, obj_t BgL_nodez00_1207, obj_t BgL_kfactorz00_1208, obj_t BgL_stackz00_1209, obj_t BgL_msgz00_1210)
{ AN_OBJECT;
{ /* ./Inline/simple.scm 42 */
{ /* ./Inline/simple.scm 43 */
BgL_nodez00_bglt BgL_auxz00_1447;
BgL_auxz00_1447 = 
BGl_inlinezd2appzd2simplez00zzinline_simplez00(
(BgL_nodez00_bglt)(BgL_nodez00_1207), 
(long)CINT(BgL_kfactorz00_1208), BgL_stackz00_1209, BgL_msgz00_1210); 
return 
(obj_t)(BgL_auxz00_1447);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzinline_simplez00()
{ AN_OBJECT;
{ /* ./Inline/simple.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzinline_simplez00()
{ AN_OBJECT;
{ /* ./Inline/simple.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "inline_simple"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "inline_simple"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "inline_simple"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "inline_simple"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "inline_simple"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "inline_simple"); 
BGl_modulezd2initializa7ationz75zzast_localz00(((long)28959), "inline_simple"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "inline_simple"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "inline_simple"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "inline_simple"); 
BGl_modulezd2initializa7ationz75zzinline_inlinez00(((long)63036), "inline_simple"); 
BGl_modulezd2initializa7ationz75zzinline_siza7eza7(((long)54525), "inline_simple"); 
BGl_modulezd2initializa7ationz75zzast_alphatiza7eza7(((long)21007), "inline_simple"); 
BGl_modulezd2initializa7ationz75zzast_sexpz00(((long)15705), "inline_simple"); 
BGl_modulezd2initializa7ationz75zzeffect_effectz00(((long)14017), "inline_simple"); 
return 
BGl_modulezd2initializa7ationz75zzeffect_spreadz00(((long)63059), "inline_simple");} 
}

