/*===========================================================================*/
/*   (Eval/eval.scm)                                                         */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Eval/eval.scm -indent -o objs/obj_u/Eval/eval.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>
#include <signal.h>

static obj_t BGl__getzd2prompterzd2zz__evalz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__pp_circlez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__macroz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__install_expandersz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__evmeaningz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__evprimopz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(long, char *);
extern obj_t BGl_normaliza7ezd2prognz75zz__prognz00(obj_t);
static obj_t BGl_za2replzd2quitza2zd2zz__evalz00 = BUNSPEC;
extern obj_t BGl_expandz00zz__expandz00(obj_t);
static obj_t BGl_za2importedzd2filesza2zd2zz__evalz00 = BUNSPEC;
extern obj_t close_output_port(obj_t);
extern bool_t reset_eof(obj_t);
static obj_t BGl_zc3anonymousza31288ze3z83zz__evalz00(obj_t);
static obj_t BGl_zc3anonymousza31362ze3z83zz__evalz00(obj_t);
static obj_t BGl_escape_2903z00zz__evalz00(obj_t, obj_t);
static obj_t BGl_zc3exitza31214ze3z83zz__evalz00();
static obj_t BGl_za2replzd2printerza2zd2zz__evalz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31290ze3z83zz__evalz00(obj_t);
static obj_t BGl__expandzd2definezd2hygienezd2macrozd2zz__evalz00(obj_t, obj_t, obj_t);
extern obj_t BGl_findzd2loczd2zz__evcompilez00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31509ze3z83zz__evalz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2loadzd2verboseza2zd2zz__evalz00 = BUNSPEC;
extern obj_t BGl_installzd2allzd2expandersz12z12zz__install_expandersz00();
static obj_t BGl_zc3anonymousza31364ze3z83zz__evalz00(obj_t);
static obj_t BGl__nativezd2replzd2printerz00zz__evalz00(obj_t);
static obj_t BGl_escape_2922z00zz__evalz00(obj_t, obj_t);
static obj_t BGl_zc3exitza31280ze3z83zz__evalz00(obj_t, obj_t, obj_t);
static obj_t BGl_escape_2928z00zz__evalz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32167ze3z83zz__evalz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_nativezd2replzd2printerz00zz__evalz00();
static obj_t BGl_zc3anonymousza31512ze3z83zz__evalz00(obj_t);
static obj_t BGl_zc3exitza31354ze3z83zz__evalz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_za2includedzd2filesza2zd2zz__evalz00 = BUNSPEC;
extern obj_t string_to_symbol(char *);
static obj_t BGl_escape_2945z00zz__evalz00(obj_t, obj_t);
static obj_t BGl_zc3exitza31492ze3z83zz__evalz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_defaultzd2replzd2printerz00zz__evalz00(obj_t, obj_t);
extern obj_t BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3exitza31219ze3z83zz__evalz00();
static obj_t BGl_zc3anonymousza31305ze3z83zz__evalz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_escape_2960z00zz__evalz00(obj_t, obj_t);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__schemezd2reportzd2environmentz00zz__evalz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31579ze3z83zz__evalz00(obj_t, obj_t, obj_t);
extern obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_zc3anonymousza31371ze3z83zz__evalz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__modulezd2declarationz12zc0zz__evalz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2definezd2expanderz00zz__evalz00(obj_t, obj_t);
static obj_t BGl__defaultzd2replzd2errorzd2notifierzd2zz__evalz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_escape_2984z00zz__evalz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_notifyzd2assertzd2failz00zz__evalz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31308ze3z83zz__evalz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_loadz00zz__evalz00(obj_t);
static obj_t BGl__expandzd2definezd2expanderz00zz__evalz00(obj_t, obj_t, obj_t);
extern obj_t BGl_displayzd2circlezd2zz__pp_circlez00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31374ze3z83zz__evalz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2replzd2errorzd2notifierz12zc0zz__evalz00(obj_t);
static obj_t BGl__transcriptzd2offzd2zz__evalz00(obj_t);
static obj_t BGl_zc3anonymousza32114ze3z83zz__evalz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_loadaz00zz__evalz00(obj_t);
static bool_t BGl_importz12z12zz__evalz00(obj_t);
extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2userzd2passza2zd2zz__evalz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32116ze3z83zz__evalz00(obj_t);
static obj_t BGl_symbol3488z00zz__evalz00 = BUNSPEC;
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_transcriptzd2offzd2zz__evalz00();
static obj_t BGl_symbol3485z00zz__evalz00 = BUNSPEC;
static obj_t BGl_symbol3484z00zz__evalz00 = BUNSPEC;
static obj_t BGl_symbol3483z00zz__evalz00 = BUNSPEC;
static obj_t BGl_symbol3482z00zz__evalz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_loadqz00zz__evalz00(obj_t);
static obj_t BGl_internalzd2replzd2zz__evalz00();
static obj_t BGl_symbol3480z00zz__evalz00 = BUNSPEC;
static obj_t BGl_symbol3478z00zz__evalz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31588ze3z83zz__evalz00(obj_t);
static obj_t BGl_symbol3477z00zz__evalz00 = BUNSPEC;
static obj_t BGl_symbol3476z00zz__evalz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31096ze3z83zz__evalz00(obj_t, obj_t);
static obj_t BGl_symbol3475z00zz__evalz00 = BUNSPEC;
static obj_t BGl_loadvz00zz__evalz00(obj_t, obj_t);
static obj_t BGl_symbol3474z00zz__evalz00 = BUNSPEC;
static obj_t BGl_zc3exitza32106ze3z83zz__evalz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3473z00zz__evalz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_getzd2replzd2errorzd2notifierzd2zz__evalz00();
static obj_t BGl_symbol3470z00zz__evalz00 = BUNSPEC;
extern obj_t string_to_bstring(char *);
static obj_t BGl__getzd2replzd2errorzd2notifierzd2zz__evalz00(obj_t);
static obj_t BGl_symbol3468z00zz__evalz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31590ze3z83zz__evalz00(obj_t);
static obj_t BGl_zc3anonymousza31600ze3z83zz__evalz00(obj_t);
static obj_t BGl_symbol3467z00zz__evalz00 = BUNSPEC;
static obj_t BGl_symbol3466z00zz__evalz00 = BUNSPEC;
static obj_t BGl_symbol3465z00zz__evalz00 = BUNSPEC;
static obj_t BGl__expandzd2definezd2patternz00zz__evalz00(obj_t, obj_t);
static obj_t BGl_symbol3456z00zz__evalz00 = BUNSPEC;
static obj_t BGl_symbol3454z00zz__evalz00 = BUNSPEC;
static obj_t BGl_zc3exitza31580ze3z83zz__evalz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_evalz00zz__evalz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31110ze3z83zz__evalz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_defaultzd2replzd2errorzd2notifierzd2zz__evalz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3439z00zz__evalz00 = BUNSPEC;
static obj_t BGl_symbol3440z00zz__evalz00 = BUNSPEC;
static obj_t BGl_symbol3436z00zz__evalz00 = BUNSPEC;
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_symbol3433z00zz__evalz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32123ze3z83zz__evalz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2nilza2z00zz__evalz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_setzd2prompterz12zc0zz__evalz00(obj_t);
static obj_t BGl_za2replzd2errorzd2notifierza2z00zz__evalz00 = BUNSPEC;
extern obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_intrhdlz00zz__evalz00(obj_t, obj_t);
extern obj_t BGl_signalz00zz__osz00(int, obj_t);
static obj_t BGl__load2910z00zz__evalz00(obj_t, obj_t);
static obj_t BGl_za2transcriptza2z00zz__evalz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza32126ze3z83zz__evalz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2definezd2hygienezd2macrozd2zz__evalz00(obj_t, obj_t);
static obj_t BGl_escapez00zz__evalz00(obj_t, obj_t);
extern obj_t BGl_commandzd2linezd2zz__osz00();
extern obj_t display_string(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_quitz00zz__evalz00();
BGL_EXPORTED_DECL obj_t BGl_replz00zz__evalz00();
static obj_t BGl_zc3anonymousza31597ze3z83zz__evalz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_destructurez00zz__evalz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2replzd2printerz12z12zz__evalz00(obj_t);
static obj_t BGl__nullzd2environmentzd2zz__evalz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2definezd2patternz00zz__evalz00(obj_t);
extern obj_t BGl_installzd2expanderzd2zz__macroz00(obj_t, obj_t);
extern obj_t BGl_removezd2errorzd2handlerz12z12zz__errorz00();
extern obj_t BGl_replacez12z12zz__prognz00(obj_t, obj_t);
extern obj_t BGl_extendze2rze2macrozd2envzd2zz__match_normaliza7eza7(obj_t, obj_t);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__expandzd2definezd2macroz00zz__evalz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_nullzd2environmentzd2zz__evalz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2definezd2macroz00zz__evalz00(obj_t, obj_t);
static obj_t BGl_za2afilezd2listza2zd2zz__evalz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_schemezd2reportzd2environmentz00zz__evalz00(obj_t);
static obj_t BGl_cnstzd2initzd2zz__evalz00();
static obj_t BGl_zc3exitza31175ze3z83zz__evalz00(obj_t, long);
static obj_t BGl_findzd2filezd2zz__evalz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2userzd2passzd2nameza2z00zz__evalz00 = BUNSPEC;
static obj_t BGl__loadaz00zz__evalz00(obj_t, obj_t);
extern obj_t close_input_port(obj_t);
extern bool_t fexists(char *);
static obj_t BGl_zc3anonymousza31263ze3z83zz__evalz00(obj_t);
extern obj_t reset_console(obj_t);
static obj_t BGl__loadqz00zz__evalz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31265ze3z83zz__evalz00(obj_t);
extern obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl__setzd2prompterz12zc0zz__evalz00(obj_t, obj_t);
extern obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_za2promptza2z00zz__evalz00 = BUNSPEC;
extern obj_t BGl_evmeaningz00zz__evmeaningz00(obj_t, obj_t);
static obj_t BGl_zc3exitza31255ze3z83zz__evalz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_interactionzd2environmentzd2zz__evalz00();
extern obj_t BGl_evmeaningzd2resetzd2errorz12z12zz__evmeaningz00();
static obj_t BGl_quit_2888z00zz__evalz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__evalz00();
BGL_EXPORTED_DECL obj_t BGl_getzd2prompterzd2zz__evalz00();
static obj_t BGl__evalz00zz__evalz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31690ze3z83zz__evalz00(obj_t, obj_t, obj_t);
static obj_t BGl_list3469z00zz__evalz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__evalz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31701ze3z83zz__evalz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2declarationz12zc0zz__evalz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_transcriptzd2onzd2zz__evalz00(obj_t);
static obj_t BGl_zc3anonymousza31273ze3z83zz__evalz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list3487z00zz__evalz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_za2loadzd2pathza2zd2zz__evalz00 = BUNSPEC;
static obj_t BGl_zc3exitza31188ze3z83zz__evalz00();
static obj_t BGl__replz00zz__evalz00(obj_t);
static obj_t BGl__quitz00zz__evalz00(obj_t);
extern obj_t append_output_file(obj_t);
extern obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
static obj_t BGl_zc3anonymousza31276ze3z83zz__evalz00(obj_t);
extern obj_t BGl_notifyzd2errorzd2zz__errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_notifyzd2interruptzd2zz__errorz00(int);
extern obj_t BGl_evcompilez00zz__evcompilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_getzd2signalzd2handlerz00zz__osz00(int);
static obj_t BGl__transcriptzd2onzd2zz__evalz00(obj_t, obj_t);
extern obj_t BGl_readerzd2resetz12zc0zz__readerz00();
static obj_t BGl__setzd2replzd2printerz12z12zz__evalz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31708ze3z83zz__evalz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31489ze3z83zz__evalz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31500ze3z83zz__evalz00(obj_t);
extern obj_t BGl_addzd2errorzd2handlerz12z12zz__errorz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31699ze3z83zz__evalz00(obj_t);
extern obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__setzd2replzd2errorzd2notifierz12zc0zz__evalz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31711ze3z83zz__evalz00(obj_t);
static obj_t BGl_toplevelzd2initzd2zz__evalz00();
static obj_t BGl__defaultzd2replzd2printerz00zz__evalz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31502ze3z83zz__evalz00(obj_t);
extern char * BGl_datez00zz__osz00();
extern obj_t BGl_evmeaningzd2notifyzd2errorz00zz__evmeaningz00(obj_t, obj_t, obj_t);
static obj_t BGl__interactionzd2environmentzd2zz__evalz00(obj_t);
extern obj_t string_append_3(obj_t, obj_t, obj_t);
static long BGl_za2replzd2numza2zd2zz__evalz00;
static bool_t BGl_includez12z12zz__evalz00(obj_t);
static obj_t BGl_zc3exitza31691ze3z83zz__evalz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__notifyzd2assertzd2failz00zz__evalz00(obj_t, obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_transcriptzd2offzd2envz00zz__evalz00, BgL_bgl__transcriptza7d2offza7d2za7za7__evalza7003513za7, BGl__transcriptzd2offzd2zz__evalz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_modulezd2declarationz12zd2envz12zz__evalz00, BgL_bgl__moduleza7d2declarationza712za7c0za7za7__evalza7003514z00, BGl__modulezd2declarationz12zc0zz__evalz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_defaultzd2replzd2errorzd2notifierzd2envz00zz__evalz00, BgL_bgl__defaultza7d2replza7d2errorza7d2notifierza7d2za7za7__evalza7003515za7, BGl__defaultzd2replzd2errorzd2notifierzd2zz__evalz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_nativezd2replzd2printerzd2envzd2zz__evalz00, BgL_bgl__nativeza7d2replza7d2printerza700za7za7__evalza7003516z00, BGl__nativezd2replzd2printerz00zz__evalz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_evalzd2envzd2zz__evalz00, BgL_bgl__evalza700za7za7__evalza7003517z00, va_generic_entry, BGl__evalz00zz__evalz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_replzd2envzd2zz__evalz00, BgL_bgl__replza700za7za7__evalza7003518z00, BGl__replz00zz__evalz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_quitzd2envzd2zz__evalz00, BgL_bgl__quitza700za7za7__evalza7003519z00, BGl__quitz00zz__evalz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2definezd2macrozd2envzd2zz__evalz00, BgL_bgl__expandza7d2defineza7d2macroza700za7za7__evalza7003520z00, BGl__expandzd2definezd2macroz00zz__evalz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2prompterzd2envz00zz__evalz00, BgL_bgl__getza7d2prompterza7d2za7za7__evalza7003521za7, BGl__getzd2prompterzd2zz__evalz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc3429z00zz__evalz00, BgL_bgl_za7c3anonymousza7a31096za7e3za783za7za7__evalza7003522za7, BGl_zc3anonymousza31096ze3z83zz__evalz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3430z00zz__evalz00, BgL_bgl_za7c3anonymousza7a31110za7e3za783za7za7__evalza7003523za7, BGl_zc3anonymousza31110ze3z83zz__evalz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3445z00zz__evalz00, BgL_bgl_za7c3anonymousza7a31308za7e3za783za7za7__evalza7003524za7, BGl_zc3anonymousza31308ze3z83zz__evalz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2prompterz12zd2envz12zz__evalz00, BgL_bgl__setza7d2prompterza712za7c0za7za7__evalza7003525z00, BGl__setzd2prompterz12zc0zz__evalz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2definezd2patternzd2envzd2zz__evalz00, BgL_bgl__expandza7d2defineza7d2patternza700za7za7__evalza7003526z00, BGl__expandzd2definezd2patternz00zz__evalz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_nullzd2environmentzd2envz00zz__evalz00, BgL_bgl__nullza7d2environmentza7d2za7za7__evalza7003527za7, BGl__nullzd2environmentzd2zz__evalz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3495z00zz__evalz00, BgL_bgl_za7c3anonymousza7a32167za7e3za783za7za7__evalza7003528za7, BGl_zc3anonymousza32167ze3z83zz__evalz00, 0L, 1 );
DEFINE_STRING( BGl_string3499z00zz__evalz00, BgL_bgl_string3499za700za7za7__evalza7003529z00, ";; session started on ", 22 );
DEFINE_STRING( BGl_string3498z00zz__evalz00, BgL_bgl_string3498za700za7za7__evalza7003530z00, "assertion failed", 16 );
DEFINE_STRING( BGl_string3497z00zz__evalz00, BgL_bgl_string3497za700za7za7__evalza7003531z00, "assert", 6 );
DEFINE_STRING( BGl_string3496z00zz__evalz00, BgL_bgl_string3496za700za7za7__evalza7003532z00, "*:=> ", 5 );
DEFINE_STRING( BGl_string3494z00zz__evalz00, BgL_bgl_string3494za700za7za7__evalza7003533z00, " : ", 3 );
DEFINE_STRING( BGl_string3493z00zz__evalz00, BgL_bgl_string3493za700za7za7__evalza7003534z00, "   ", 3 );
DEFINE_STRING( BGl_string3503z00zz__evalz00, BgL_bgl_string3503za700za7za7__evalza7003535z00, "No transcript is currently in use", 33 );
DEFINE_STRING( BGl_string3492z00zz__evalz00, BgL_bgl_string3492za700za7za7__evalza7003536z00, "Variables' value are : ", 23 );
DEFINE_STRING( BGl_string3502z00zz__evalz00, BgL_bgl_string3502za700za7za7__evalza7003537z00, "transcript-off", 14 );
DEFINE_STRING( BGl_string3491z00zz__evalz00, BgL_bgl_string3491za700za7za7__evalza7003538z00, "-----------------------", 23 );
DEFINE_STRING( BGl_string3501z00zz__evalz00, BgL_bgl_string3501za700za7za7__evalza7003539z00, "A transcript is already in use", 30 );
DEFINE_STRING( BGl_string3489z00zz__evalz00, BgL_bgl_string3489za700za7za7__evalza7003540z00, "expand-define-pattern", 21 );
DEFINE_STRING( BGl_string3490z00zz__evalz00, BgL_bgl_string3490za700za7za7__evalza7003541z00, "Illegal form", 12 );
DEFINE_STRING( BGl_string3500z00zz__evalz00, BgL_bgl_string3500za700za7za7__evalza7003542z00, "transcript-on", 13 );
DEFINE_STRING( BGl_string3486z00zz__evalz00, BgL_bgl_string3486za700za7za7__evalza7003543z00, "Illegal module declaration", 26 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2replzd2errorzd2notifierzd2envz00zz__evalz00, BgL_bgl__getza7d2replza7d2errorza7d2notifierza7d2za7za7__evalza7003544za7, BGl__getzd2replzd2errorzd2notifierzd2zz__evalz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_interactionzd2environmentzd2envz00zz__evalz00, BgL_bgl__interactionza7d2environmentza7d2za7za7__evalza7003545za7, BGl__interactionzd2environmentzd2zz__evalz00, 0L, 0 );
DEFINE_STRING( BGl_string3481z00zz__evalz00, BgL_bgl_string3481za700za7za7__evalza7003546z00, "Illegal macro parameter", 23 );
DEFINE_STRING( BGl_string3479z00zz__evalz00, BgL_bgl_string3479za700za7za7__evalza7003547z00, "Too many arguments provided", 27 );
DEFINE_STRING( BGl_string3472z00zz__evalz00, BgL_bgl_string3472za700za7za7__evalza7003548z00, "Illegal `define-macro' syntax", 29 );
DEFINE_STRING( BGl_string3471z00zz__evalz00, BgL_bgl_string3471za700za7za7__evalza7003549z00, "define-macro", 12 );
DEFINE_STRING( BGl_string3464z00zz__evalz00, BgL_bgl_string3464za700za7za7__evalza7003550z00, "error occured while expansing the call", 38 );
DEFINE_STRING( BGl_string3463z00zz__evalz00, BgL_bgl_string3463za700za7za7__evalza7003551z00, "expand", 6 );
DEFINE_STRING( BGl_string3462z00zz__evalz00, BgL_bgl_string3462za700za7za7__evalza7003552z00, "illegal expander", 16 );
DEFINE_STRING( BGl_string3461z00zz__evalz00, BgL_bgl_string3461za700za7za7__evalza7003553z00, "wrong number of argument for expand", 35 );
DEFINE_STRING( BGl_string3459z00zz__evalz00, BgL_bgl_string3459za700za7za7__evalza7003554z00, "define-expander", 15 );
DEFINE_STRING( BGl_string3460z00zz__evalz00, BgL_bgl_string3460za700za7za7__evalza7003555z00, "Illegal `define-expander' syntax", 32 );
DEFINE_STRING( BGl_string3458z00zz__evalz00, BgL_bgl_string3458za700za7za7__evalza7003556z00, "loada", 5 );
DEFINE_STRING( BGl_string3457z00zz__evalz00, BgL_bgl_string3457za700za7za7__evalza7003557z00, "error occured when loading", 26 );
DEFINE_STRING( BGl_string3455z00zz__evalz00, BgL_bgl_string3455za700za7za7__evalza7003558z00, "module defined twice", 20 );
DEFINE_STRING( BGl_string3453z00zz__evalz00, BgL_bgl_string3453za700za7za7__evalza7003559z00, "Can't open file", 15 );
DEFINE_STRING( BGl_string3452z00zz__evalz00, BgL_bgl_string3452za700za7za7__evalza7003560z00, "load", 4 );
DEFINE_STRING( BGl_string3451z00zz__evalz00, BgL_bgl_string3451za700za7za7__evalza7003561z00, "Illegal file name", 17 );
DEFINE_STRING( BGl_string3449z00zz__evalz00, BgL_bgl_string3449za700za7za7__evalza7003562z00, "/", 1 );
DEFINE_STRING( BGl_string3450z00zz__evalz00, BgL_bgl_string3450za700za7za7__evalza7003563z00, "find-file", 9 );
DEFINE_STRING( BGl_string3448z00zz__evalz00, BgL_bgl_string3448za700za7za7__evalza7003564z00, "Illegal repl-printer (wrong arity)", 34 );
DEFINE_STRING( BGl_string3447z00zz__evalz00, BgL_bgl_string3447za700za7za7__evalza7003565z00, "set-repl-printer!", 17 );
DEFINE_STRING( BGl_string3446z00zz__evalz00, BgL_bgl_string3446za700za7za7__evalza7003566z00, ";; ", 3 );
DEFINE_STRING( BGl_string3444z00zz__evalz00, BgL_bgl_string3444za700za7za7__evalza7003567z00, "argument has to be a procedure of 1 argument", 44 );
DEFINE_STRING( BGl_string3443z00zz__evalz00, BgL_bgl_string3443za700za7za7__evalza7003568z00, "set-prompter!", 13 );
DEFINE_STRING( BGl_string3442z00zz__evalz00, BgL_bgl_string3442za700za7za7__evalza7003569z00, "Illegal notifier", 16 );
DEFINE_STRING( BGl_string3441z00zz__evalz00, BgL_bgl_string3441za700za7za7__evalza7003570z00, "set-repl-error-notifier!", 24 );
DEFINE_STRING( BGl_string3438z00zz__evalz00, BgL_bgl_string3438za700za7za7__evalza7003571z00, "Illegal environment", 19 );
DEFINE_STRING( BGl_string3437z00zz__evalz00, BgL_bgl_string3437za700za7za7__evalza7003572z00, "eval", 4 );
DEFINE_STRING( BGl_string3435z00zz__evalz00, BgL_bgl_string3435za700za7za7__evalza7003573z00, "Version not supported", 21 );
DEFINE_STRING( BGl_string3434z00zz__evalz00, BgL_bgl_string3434za700za7za7__evalza7003574z00, "scheme-report-environment", 25 );
DEFINE_STRING( BGl_string3432z00zz__evalz00, BgL_bgl_string3432za700za7za7__evalza7003575z00, ":=> ", 4 );
DEFINE_STRING( BGl_string3431z00zz__evalz00, BgL_bgl_string3431za700za7za7__evalza7003576z00, "User", 4 );
DEFINE_STATIC_PROCEDURE( BGl_defaultzd2replzd2printerzd2envzd2zz__evalz00, BgL_bgl__defaultza7d2replza7d2printerza700za7za7__evalza7003577z00, va_generic_entry, BGl__defaultzd2replzd2printerz00zz__evalz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2definezd2hygienezd2macrozd2envz00zz__evalz00, BgL_bgl__expandza7d2defineza7d2hygieneza7d2macroza7d2za7za7__evalza7003578za7, BGl__expandzd2definezd2hygienezd2macrozd2zz__evalz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2replzd2errorzd2notifierz12zd2envz12zz__evalz00, BgL_bgl__setza7d2replza7d2errorza7d2notifierza712za7c0za7za7__evalza7003579z00, BGl__setzd2replzd2errorzd2notifierz12zc0zz__evalz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2definezd2expanderzd2envzd2zz__evalz00, BgL_bgl__expandza7d2defineza7d2expanderza700za7za7__evalza7003580z00, BGl__expandzd2definezd2expanderz00zz__evalz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_notifyzd2assertzd2failzd2envzd2zz__evalz00, BgL_bgl__notifyza7d2assertza7d2failza700za7za7__evalza7003581z00, BGl__notifyzd2assertzd2failz00zz__evalz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_loadazd2envzd2zz__evalz00, BgL_bgl__loadaza700za7za7__evalza7003582z00, BGl__loadaz00zz__evalz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_transcriptzd2onzd2envz00zz__evalz00, BgL_bgl__transcriptza7d2onza7d2za7za7__evalza7003583za7, BGl__transcriptzd2onzd2zz__evalz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_loadqzd2envzd2zz__evalz00, BgL_bgl__loadqza700za7za7__evalza7003584z00, BGl__loadqz00zz__evalz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_schemezd2reportzd2environmentzd2envzd2zz__evalz00, BgL_bgl__schemeza7d2reportza7d2environmentza700za7za7__evalza7003585z00, BGl__schemezd2reportzd2environmentz00zz__evalz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2replzd2printerz12zd2envzc0zz__evalz00, BgL_bgl__setza7d2replza7d2printerza712za712za7za7__evalza7003586za7, BGl__setzd2replzd2printerz12z12zz__evalz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_loadzd2envzd2zz__evalz00, BgL_bgl__load2910za700za7za7__evalza7003587z00, BGl__load2910z00zz__evalz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long BgL_checksumz00_2181, char * BgL_fromz00_2182)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__evalz00))
{ 
BGl_requirezd2initializa7ationz75zz__evalz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__evalz00(); 
BGl_importedzd2moduleszd2initz00zz__evalz00(); 
BGl_toplevelzd2initzd2zz__evalz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 18 */
BGl_symbol3433z00zz__evalz00 = 
string_to_symbol("scheme-report-environment"); 
BGl_symbol3436z00zz__evalz00 = 
string_to_symbol("null-environment"); 
BGl_symbol3439z00zz__evalz00 = 
string_to_symbol("interaction-environment"); 
BGl_symbol3440z00zz__evalz00 = 
string_to_symbol("nowhere"); 
BGl_symbol3454z00zz__evalz00 = 
string_to_symbol("module"); 
BGl_symbol3456z00zz__evalz00 = 
string_to_symbol("main"); 
BGl_symbol3465z00zz__evalz00 = 
string_to_symbol("lambda"); 
BGl_symbol3466z00zz__evalz00 = 
string_to_symbol("x"); 
BGl_symbol3467z00zz__evalz00 = 
string_to_symbol("e"); 
BGl_symbol3468z00zz__evalz00 = 
string_to_symbol("let"); 
BGl_symbol3470z00zz__evalz00 = 
string_to_symbol("cdr"); 
{ /* ./Eval/eval.scm 450 */
obj_t BgL_auxz00_2200;
BgL_auxz00_2200 = 
MAKE_PAIR(BGl_symbol3466z00zz__evalz00, BNIL); 
BGl_list3469z00zz__evalz00 = 
MAKE_PAIR(BGl_symbol3470z00zz__evalz00, BgL_auxz00_2200); } 
BGl_symbol3473z00zz__evalz00 = 
string_to_symbol("quote"); 
BGl_symbol3474z00zz__evalz00 = 
string_to_symbol(".dummy."); 
BGl_symbol3475z00zz__evalz00 = 
string_to_symbol("if"); 
BGl_symbol3476z00zz__evalz00 = 
string_to_symbol("not"); 
BGl_symbol3477z00zz__evalz00 = 
string_to_symbol("null?"); 
BGl_symbol3478z00zz__evalz00 = 
string_to_symbol("error"); 
BGl_symbol3480z00zz__evalz00 = 
string_to_symbol("car"); 
BGl_symbol3482z00zz__evalz00 = 
string_to_symbol("done"); 
BGl_symbol3483z00zz__evalz00 = 
string_to_symbol("include"); 
BGl_symbol3484z00zz__evalz00 = 
string_to_symbol("import"); 
BGl_symbol3485z00zz__evalz00 = 
string_to_symbol("load"); 
BGl_symbol3488z00zz__evalz00 = 
string_to_symbol("dummy"); 
{ /* ./Eval/eval.scm 589 */
obj_t BgL_auxz00_2215;
BgL_auxz00_2215 = 
MAKE_PAIR(BGl_symbol3488z00zz__evalz00, BNIL); 
return ( 
BGl_list3487z00zz__evalz00 = 
MAKE_PAIR(BGl_symbol3473z00zz__evalz00, BgL_auxz00_2215), BUNSPEC) ;} } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 18 */
BGl_installzd2allzd2expandersz12z12zz__install_expandersz00(); 
BGl_za2promptza2z00zz__evalz00 = BGl_proc3429z00zz__evalz00; 
BGl_za2replzd2errorzd2notifierza2z00zz__evalz00 = BGl_defaultzd2replzd2errorzd2notifierzd2envz00zz__evalz00; 
BGl_za2replzd2numza2zd2zz__evalz00 = ((long)0); 
BGl_za2replzd2quitza2zd2zz__evalz00 = BGl_proc3430z00zz__evalz00; 
BGl_za2replzd2printerza2zd2zz__evalz00 = BGl_defaultzd2replzd2printerzd2envzd2zz__evalz00; 
BGl_za2loadzd2pathza2zd2zz__evalz00 = BNIL; 
BGl_za2loadzd2verboseza2zd2zz__evalz00 = BTRUE; 
BGl_za2includedzd2filesza2zd2zz__evalz00 = BNIL; 
BGl_za2importedzd2filesza2zd2zz__evalz00 = BNIL; 
BGl_za2afilezd2listza2zd2zz__evalz00 = BNIL; 
BGl_za2nilza2z00zz__evalz00 = BTRUE; 
BGl_za2userzd2passza2zd2zz__evalz00 = BUNSPEC; 
BGl_za2userzd2passzd2nameza2z00zz__evalz00 = BGl_string3431z00zz__evalz00; 
return ( 
BGl_za2transcriptza2z00zz__evalz00 = 
BGL_CURRENT_OUTPUT_PORT(), BUNSPEC) ;} 
}



/* <anonymous:1110> */
obj_t BGl_zc3anonymousza31110ze3z83zz__evalz00(obj_t BgL_envz00_1862, obj_t BgL_xz00_1863)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 211 */
return 
BIGLOO_EXIT(BgL_xz00_1863);} 
}



/* <anonymous:1096> */
obj_t BGl_zc3anonymousza31096ze3z83zz__evalz00(obj_t BgL_envz00_1864, obj_t BgL_numz00_1865)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 151 */
{ 
obj_t BgL_numz00_393;
BgL_numz00_393 = BgL_numz00_1865; 
{ /* ./Eval/eval.scm 152 */
obj_t BgL_arg1098z00_1212;
BgL_arg1098z00_1212 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_numz00_393, BgL_arg1098z00_1212); } 
{ /* ./Eval/eval.scm 152 */
obj_t BgL_arg1103z00_1214;
BgL_arg1103z00_1214 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string3432z00zz__evalz00, BgL_arg1103z00_1214); } 
{ /* ./Eval/eval.scm 152 */
obj_t BgL_arg1107z00_1215;
BgL_arg1107z00_1215 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
FLUSH_OUTPUT_PORT(BgL_arg1107z00_1215);} } } 
}



/* eval */
BGL_EXPORTED_DEF obj_t BGl_evalz00zz__evalz00(obj_t BgL_expz00_1, obj_t BgL_environmentz00_2)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 108 */
{ /* ./Eval/eval.scm 109 */
obj_t BgL_envz00_401;
if(
PAIRP(BgL_environmentz00_2))
{ /* ./Eval/eval.scm 110 */
obj_t BgL_envz00_411;
BgL_envz00_411 = 
CAR(BgL_environmentz00_2); 
{ /* ./Eval/eval.scm 111 */
bool_t BgL_test1131z00_412;
{ /* ./Eval/eval.scm 111 */
bool_t BgL_test1133z00_413;
{ /* ./Eval/eval.scm 111 */
obj_t BgL_arg1141z00_416;
{ /* ./Eval/eval.scm 111 */
obj_t BgL_versionz00_1220;
BgL_versionz00_1220 = 
BINT(((long)5)); 
{ /* ./Eval/eval.scm 111 */
bool_t BgL_testz00_2231;
{ /* ./Eval/eval.scm 111 */
long BgL_auxz00_2232;
BgL_auxz00_2232 = 
(long)CINT(BgL_versionz00_1220); 
BgL_testz00_2231 = 
(BgL_auxz00_2232==((long)5)); } 
if(BgL_testz00_2231)
{ /* ./Eval/eval.scm 111 */
BgL_arg1141z00_416 = BGl_symbol3433z00zz__evalz00; }  else 
{ /* ./Eval/eval.scm 111 */
FAILURE(BGl_string3434z00zz__evalz00,BGl_string3435z00zz__evalz00,BgL_versionz00_1220);} } } 
BgL_test1133z00_413 = 
(BgL_envz00_411==BgL_arg1141z00_416); } 
if(BgL_test1133z00_413)
{ /* ./Eval/eval.scm 111 */
BgL_test1131z00_412 = ((bool_t)1); }  else 
{ /* ./Eval/eval.scm 112 */
bool_t BgL_test1134z00_414;
{ /* ./Eval/eval.scm 112 */
obj_t BgL_arg1137z00_415;
{ /* ./Eval/eval.scm 112 */
obj_t BgL_versionz00_1227;
BgL_versionz00_1227 = 
BINT(((long)5)); 
{ /* ./Eval/eval.scm 112 */
bool_t BgL_testz00_2239;
{ /* ./Eval/eval.scm 112 */
long BgL_auxz00_2240;
BgL_auxz00_2240 = 
(long)CINT(BgL_versionz00_1227); 
BgL_testz00_2239 = 
(BgL_auxz00_2240==((long)5)); } 
if(BgL_testz00_2239)
{ /* ./Eval/eval.scm 112 */
BgL_arg1137z00_415 = BGl_symbol3436z00zz__evalz00; }  else 
{ /* ./Eval/eval.scm 112 */
FAILURE(BGl_string3434z00zz__evalz00,BGl_string3435z00zz__evalz00,BgL_versionz00_1227);} } } 
BgL_test1134z00_414 = 
(BgL_envz00_411==BgL_arg1137z00_415); } 
if(BgL_test1134z00_414)
{ /* ./Eval/eval.scm 112 */
BgL_test1131z00_412 = ((bool_t)1); }  else 
{ /* ./Eval/eval.scm 112 */
BgL_test1131z00_412 = ((bool_t)1); } } } 
if(BgL_test1131z00_412)
{ /* ./Eval/eval.scm 111 */
BgL_envz00_401 = BgL_envz00_411; }  else 
{ /* ./Eval/eval.scm 111 */
FAILURE(BGl_string3437z00zz__evalz00,BGl_string3438z00zz__evalz00,BgL_environmentz00_2);} } }  else 
{ /* ./Eval/eval.scm 109 */
BgL_envz00_401 = BGl_symbol3439z00zz__evalz00; } 
{ /* ./Eval/eval.scm 109 */
obj_t BgL_locz00_402;
BgL_locz00_402 = 
BGl_findzd2loczd2zz__evcompilez00(BgL_expz00_1, BFALSE); 
{ /* ./Eval/eval.scm 117 */
obj_t BgL_sexpz00_403;
if(
PROCEDUREP(BGl_za2userzd2passza2zd2zz__evalz00))
{ /* ./Eval/eval.scm 118 */
BgL_sexpz00_403 = 
PROCEDURE_ENTRY(BGl_za2userzd2passza2zd2zz__evalz00)(BGl_za2userzd2passza2zd2zz__evalz00, BgL_expz00_1, BEOA); }  else 
{ /* ./Eval/eval.scm 118 */
BgL_sexpz00_403 = BgL_expz00_1; } 
{ /* ./Eval/eval.scm 118 */

BGl_evmeaningzd2resetzd2errorz12z12zz__evmeaningz00(); 
return 
BGl_evmeaningz00zz__evmeaningz00(
BGl_evcompilez00zz__evcompilez00(
BGl_expandz00zz__expandz00(BgL_sexpz00_403), BNIL, BgL_envz00_401, BGl_symbol3440z00zz__evalz00, BFALSE, BgL_locz00_402), BNIL);} } } } } 
}



/* _eval */
obj_t BGl__evalz00zz__evalz00(obj_t BgL_envz00_1873, obj_t BgL_expz00_1874, obj_t BgL_environmentz00_1875)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 108 */
return 
BGl_evalz00zz__evalz00(BgL_expz00_1874, BgL_environmentz00_1875);} 
}



/* scheme-report-environment */
BGL_EXPORTED_DEF obj_t BGl_schemezd2reportzd2environmentz00zz__evalz00(obj_t BgL_versionz00_3)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 125 */
{ /* ./Eval/eval.scm 126 */
bool_t BgL_testz00_2258;
{ /* ./Eval/eval.scm 126 */
long BgL_auxz00_2259;
BgL_auxz00_2259 = 
(long)CINT(BgL_versionz00_3); 
BgL_testz00_2258 = 
(BgL_auxz00_2259==((long)5)); } 
if(BgL_testz00_2258)
{ /* ./Eval/eval.scm 126 */
return BGl_symbol3433z00zz__evalz00;}  else 
{ /* ./Eval/eval.scm 126 */
FAILURE(BGl_string3434z00zz__evalz00,BGl_string3435z00zz__evalz00,BgL_versionz00_3);} } } 
}



/* _scheme-report-environment */
obj_t BGl__schemezd2reportzd2environmentz00zz__evalz00(obj_t BgL_envz00_1876, obj_t BgL_versionz00_1877)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 125 */
return 
BGl_schemezd2reportzd2environmentz00zz__evalz00(BgL_versionz00_1877);} 
}



/* null-environment */
BGL_EXPORTED_DEF obj_t BGl_nullzd2environmentzd2zz__evalz00(obj_t BgL_versionz00_4)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 135 */
{ /* ./Eval/eval.scm 136 */
bool_t BgL_testz00_2264;
{ /* ./Eval/eval.scm 136 */
long BgL_auxz00_2265;
BgL_auxz00_2265 = 
(long)CINT(BgL_versionz00_4); 
BgL_testz00_2264 = 
(BgL_auxz00_2265==((long)5)); } 
if(BgL_testz00_2264)
{ /* ./Eval/eval.scm 136 */
return BGl_symbol3436z00zz__evalz00;}  else 
{ /* ./Eval/eval.scm 136 */
FAILURE(BGl_string3434z00zz__evalz00,BGl_string3435z00zz__evalz00,BgL_versionz00_4);} } } 
}



/* _null-environment */
obj_t BGl__nullzd2environmentzd2zz__evalz00(obj_t BgL_envz00_1878, obj_t BgL_versionz00_1879)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 135 */
return 
BGl_nullzd2environmentzd2zz__evalz00(BgL_versionz00_1879);} 
}



/* interaction-environment */
BGL_EXPORTED_DEF obj_t BGl_interactionzd2environmentzd2zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 145 */
return BGl_symbol3439z00zz__evalz00;} 
}



/* _interaction-environment */
obj_t BGl__interactionzd2environmentzd2zz__evalz00(obj_t BgL_envz00_1880)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 145 */
return BGl_symbol3439z00zz__evalz00;} 
}



/* default-repl-error-notifier */
BGL_EXPORTED_DEF obj_t BGl_defaultzd2replzd2errorzd2notifierzd2zz__evalz00(obj_t BgL_procz00_8, obj_t BgL_msgz00_9, obj_t BgL_objz00_10)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 168 */
BGl_evmeaningzd2notifyzd2errorz00zz__evmeaningz00(BgL_procz00_8, BgL_msgz00_9, BgL_objz00_10); 
{ /* ./Eval/eval.scm 170 */
obj_t BgL_arg1160z00_1253;
BgL_arg1160z00_1253 = 
BGL_CURRENT_ERROR_PORT(); 
return 
FLUSH_OUTPUT_PORT(BgL_arg1160z00_1253);} } 
}



/* _default-repl-error-notifier */
obj_t BGl__defaultzd2replzd2errorzd2notifierzd2zz__evalz00(obj_t BgL_envz00_1866, obj_t BgL_procz00_1867, obj_t BgL_msgz00_1868, obj_t BgL_objz00_1869)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 168 */
return 
BGl_defaultzd2replzd2errorzd2notifierzd2zz__evalz00(BgL_procz00_1867, BgL_msgz00_1868, BgL_objz00_1869);} 
}



/* set-repl-error-notifier! */
BGL_EXPORTED_DEF obj_t BGl_setzd2replzd2errorzd2notifierz12zc0zz__evalz00(obj_t BgL_notifierz00_11)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 180 */
{ /* ./Eval/eval.scm 181 */
bool_t BgL_test1163z00_1255;
{ /* ./Eval/eval.scm 181 */
int BgL_arg1166z00_1256;
BgL_arg1166z00_1256 = 
PROCEDURE_ARITY(BgL_notifierz00_11); 
{ /* ./Eval/eval.scm 181 */
long BgL_auxz00_2275;
BgL_auxz00_2275 = 
(long)(BgL_arg1166z00_1256); 
BgL_test1163z00_1255 = 
(BgL_auxz00_2275==((long)3)); } } 
if(BgL_test1163z00_1255)
{ /* ./Eval/eval.scm 181 */
return ( 
BGl_za2replzd2errorzd2notifierza2z00zz__evalz00 = BgL_notifierz00_11, BUNSPEC) ;}  else 
{ /* ./Eval/eval.scm 181 */
FAILURE(BGl_string3441z00zz__evalz00,BGl_string3442z00zz__evalz00,BgL_notifierz00_11);} } } 
}



/* _set-repl-error-notifier! */
obj_t BGl__setzd2replzd2errorzd2notifierz12zc0zz__evalz00(obj_t BgL_envz00_1881, obj_t BgL_notifierz00_1882)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 180 */
return 
BGl_setzd2replzd2errorzd2notifierz12zc0zz__evalz00(BgL_notifierz00_1882);} 
}



/* get-repl-error-notifier */
BGL_EXPORTED_DEF obj_t BGl_getzd2replzd2errorzd2notifierzd2zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 188 */
return BGl_za2replzd2errorzd2notifierza2z00zz__evalz00;} 
}



/* _get-repl-error-notifier */
obj_t BGl__getzd2replzd2errorzd2notifierzd2zz__evalz00(obj_t BgL_envz00_1883)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 188 */
return BGl_za2replzd2errorzd2notifierza2z00zz__evalz00;} 
}



/* set-prompter! */
BGL_EXPORTED_DEF obj_t BGl_setzd2prompterz12zc0zz__evalz00(obj_t BgL_procz00_12)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 194 */
{ /* ./Eval/eval.scm 195 */
bool_t BgL_testz00_2281;
{ /* ./Eval/eval.scm 195 */
int BgL_auxz00_2282;
BgL_auxz00_2282 = 
(int)(((long)1)); 
BgL_testz00_2281 = 
PROCEDURE_CORRECT_ARITYP(BgL_procz00_12, BgL_auxz00_2282); } 
if(BgL_testz00_2281)
{ /* ./Eval/eval.scm 195 */
return ( 
BGl_za2promptza2z00zz__evalz00 = BgL_procz00_12, BUNSPEC) ;}  else 
{ /* ./Eval/eval.scm 195 */
FAILURE(BGl_string3443z00zz__evalz00,BGl_string3444z00zz__evalz00,BgL_procz00_12);} } } 
}



/* _set-prompter! */
obj_t BGl__setzd2prompterz12zc0zz__evalz00(obj_t BgL_envz00_1884, obj_t BgL_procz00_1885)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 194 */
return 
BGl_setzd2prompterz12zc0zz__evalz00(BgL_procz00_1885);} 
}



/* get-prompter */
BGL_EXPORTED_DEF obj_t BGl_getzd2prompterzd2zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 204 */
return BGl_za2promptza2z00zz__evalz00;} 
}



/* _get-prompter */
obj_t BGl__getzd2prompterzd2zz__evalz00(obj_t BgL_envz00_1886)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 204 */
return BGl_za2promptza2z00zz__evalz00;} 
}



/* repl */
BGL_EXPORTED_DEF obj_t BGl_replz00zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 216 */
{ /* ./Eval/eval.scm 217 */
obj_t BgL_replzd2quitzd2_426;long BgL_replzd2numzd2_427;
BgL_replzd2quitzd2_426 = BGl_za2replzd2quitza2zd2zz__evalz00; 
BgL_replzd2numzd2_427 = BGl_za2replzd2numza2zd2zz__evalz00; 
BGl_zc3exitza31175ze3z83zz__evalz00(BgL_replzd2quitzd2_426, BgL_replzd2numzd2_427); 
{ /* ./Eval/eval.scm 227 */
obj_t BgL_arg1196z00_441;
BgL_arg1196z00_441 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg1196z00_441); } 
{ /* ./Eval/eval.scm 228 */
obj_t BgL_arg1200z00_442;
BgL_arg1200z00_442 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
FLUSH_OUTPUT_PORT(BgL_arg1200z00_442);} } } 
}



/* <exit:1188> */
obj_t BGl_zc3exitza31188ze3z83zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 225 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1008z00_439;
if( SET_EXIT(BgL_an_exit1008z00_439) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1008z00_439 = 
(obj_t)jmpbuf; 
{ /* ./Eval/eval.scm 225 */

PUSH_EXIT(BgL_an_exit1008z00_439, ((bool_t)0)); 
{ /* ./Eval/eval.scm 223 */
obj_t BgL_val1009z00_440;
BgL_val1009z00_440 = 
BGl_internalzd2replzd2zz__evalz00(); 
POP_EXIT(); 
return BgL_val1009z00_440;} } 
} } 
}



/* <exit:1175> */
obj_t BGl_zc3exitza31175ze3z83zz__evalz00(obj_t BgL_replzd2quitzd2_2171, long BgL_replzd2numzd2_2170)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 219 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1003z00_429;
if( SET_EXIT(BgL_an_exit1003z00_429) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1003z00_429 = 
(obj_t)jmpbuf; 
{ /* ./Eval/eval.scm 219 */

PUSH_EXIT(BgL_an_exit1003z00_429, ((bool_t)1)); 
{ /* ./Eval/eval.scm 219 */
obj_t BgL_an_exitd1004z00_430;
BgL_an_exitd1004z00_430 = 
BGL_EXITD_TOP(); 
{ /* ./Eval/eval.scm 219 */
obj_t BgL_quitz00_1887;
{ 
int BgL_auxz00_2303;int BgL_auxz00_2301;
BgL_auxz00_2303 = 
(int)(((long)1)); 
BgL_auxz00_2301 = 
(int)(((long)1)); 
BgL_quitz00_1887 = 
make_fx_procedure(BGl_quit_2888z00zz__evalz00, BgL_auxz00_2301, BgL_auxz00_2303); } 
{ /* ./Eval/eval.scm 219 */
int BgL_auxz00_2306;
BgL_auxz00_2306 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_quitz00_1887, BgL_auxz00_2306, BgL_an_exitd1004z00_430); } 
{ /* ./Eval/eval.scm 220 */
obj_t BgL_res1006z00_433;
BGl_za2replzd2quitza2zd2zz__evalz00 = BgL_quitz00_1887; 
BGl_za2replzd2numza2zd2zz__evalz00 = 
(((long)1)+BGl_za2replzd2numza2zd2zz__evalz00); 
{ /* ./Eval/eval.scm 222 */
obj_t BgL_val1007z00_434;
BgL_val1007z00_434 = 
BGl_zc3exitza31188ze3z83zz__evalz00(); 
BGl_za2replzd2numza2zd2zz__evalz00 = BgL_replzd2numzd2_2170; 
BGl_za2replzd2quitza2zd2zz__evalz00 = BgL_replzd2quitzd2_2171; 
{ /* ./Eval/eval.scm 226 */
bool_t BgL_testz00_2311;
{ /* ./Eval/eval.scm 226 */
obj_t BgL_auxz00_2312;
BgL_auxz00_2312 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1007z00_434); 
BgL_testz00_2311 = 
CBOOL(BgL_auxz00_2312); } 
if(BgL_testz00_2311)
{ /* ./Eval/eval.scm 226 */
BgL_res1006z00_433 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1007z00_434), 
CDR(BgL_val1007z00_434)); }  else 
{ /* ./Eval/eval.scm 226 */
BgL_res1006z00_433 = BgL_val1007z00_434; } } } 
POP_EXIT(); 
return BgL_res1006z00_433;} } } } 
} } 
}



/* _repl */
obj_t BGl__replz00zz__evalz00(obj_t BgL_envz00_1888)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 216 */
return 
BGl_replz00zz__evalz00();} 
}



/* quit_2888 */
obj_t BGl_quit_2888z00zz__evalz00(obj_t BgL_envz00_1889, obj_t BgL_val1005z00_1891)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 219 */
{ /* ./Eval/eval.scm 219 */
obj_t BgL_an_exitd1004z00_1890;
{ /* ./Eval/eval.scm 219 */
int BgL_auxz00_2320;
BgL_auxz00_2320 = 
(int)(((long)0)); 
BgL_an_exitd1004z00_1890 = 
PROCEDURE_REF(BgL_envz00_1889, BgL_auxz00_2320); } 
{ 
obj_t BgL_val1005z00_431;
BgL_val1005z00_431 = BgL_val1005z00_1891; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1004z00_1890, BgL_val1005z00_431);} } } 
}



/* internal-repl */
obj_t BGl_internalzd2replzd2zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 233 */
{ /* ./Eval/eval.scm 234 */
obj_t BgL_oldzd2intrhdlzd2_443;
BgL_oldzd2intrhdlzd2_443 = 
BGl_getzd2signalzd2handlerz00zz__osz00(SIGINT); 
{ /* ./Eval/eval.scm 235 */
obj_t BgL_val1010z00_444;
BgL_val1010z00_444 = 
BGl_zc3exitza31214ze3z83zz__evalz00(); 
if(
PROCEDUREP(BgL_oldzd2intrhdlzd2_443))
{ /* ./Eval/eval.scm 275 */
BGl_signalz00zz__osz00(SIGINT, BgL_oldzd2intrhdlzd2_443); }  else 
{ /* ./Eval/eval.scm 275 */BFALSE; } 
{ /* ./Eval/eval.scm 275 */
bool_t BgL_testz00_2329;
{ /* ./Eval/eval.scm 275 */
obj_t BgL_auxz00_2330;
BgL_auxz00_2330 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1010z00_444); 
BgL_testz00_2329 = 
CBOOL(BgL_auxz00_2330); } 
if(BgL_testz00_2329)
{ /* ./Eval/eval.scm 275 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1010z00_444), 
CDR(BgL_val1010z00_444));}  else 
{ /* ./Eval/eval.scm 275 */
return BgL_val1010z00_444;} } } } } 
}



/* <exit:1280> */
obj_t BGl_zc3exitza31280ze3z83zz__evalz00(obj_t BgL_zc3anonymousza31308ze3z83_2166, obj_t BgL_zc3anonymousza31305ze3z83_2165, obj_t BgL_armed1020z00_2164)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 253 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1021z00_508;
if( SET_EXIT(BgL_an_exit1021z00_508) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1021z00_508 = 
(obj_t)jmpbuf; 
{ /* ./Eval/eval.scm 253 */

PUSH_EXIT(BgL_an_exit1021z00_508, ((bool_t)1)); 
{ /* ./Eval/eval.scm 253 */
obj_t BgL_an_exitd1022z00_509;
BgL_an_exitd1022z00_509 = 
BGL_EXITD_TOP(); 
{ /* ./Eval/eval.scm 253 */
obj_t BgL_escapez00_1899;
{ 
int BgL_auxz00_2342;int BgL_auxz00_2340;
BgL_auxz00_2342 = 
(int)(((long)1)); 
BgL_auxz00_2340 = 
(int)(((long)1)); 
BgL_escapez00_1899 = 
make_fx_procedure(BGl_escape_2903z00zz__evalz00, BgL_auxz00_2340, BgL_auxz00_2342); } 
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2345;
BgL_auxz00_2345 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_1899, BgL_auxz00_2345, BgL_an_exitd1022z00_509); } 
{ /* ./Eval/eval.scm 253 */
obj_t BgL_res1024z00_512;
{ /* ./Eval/eval.scm 253 */
obj_t BgL_zc3anonymousza31290ze3z83_1897;obj_t BgL_zc3anonymousza31288ze3z83_1901;
{ 
int BgL_auxz00_2350;int BgL_auxz00_2348;
BgL_auxz00_2350 = 
(int)(((long)1)); 
BgL_auxz00_2348 = 
(int)(((long)0)); 
BgL_zc3anonymousza31290ze3z83_1897 = 
make_fx_procedure(BGl_zc3anonymousza31290ze3z83zz__evalz00, BgL_auxz00_2348, BgL_auxz00_2350); } 
{ 
int BgL_auxz00_2355;int BgL_auxz00_2353;
BgL_auxz00_2355 = 
(int)(((long)4)); 
BgL_auxz00_2353 = 
(int)(((long)0)); 
BgL_zc3anonymousza31288ze3z83_1901 = 
make_fx_procedure(BGl_zc3anonymousza31288ze3z83zz__evalz00, BgL_auxz00_2353, BgL_auxz00_2355); } 
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2358;
BgL_auxz00_2358 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31290ze3z83_1897, BgL_auxz00_2358, BgL_armed1020z00_2164); } 
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2361;
BgL_auxz00_2361 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31288ze3z83_1901, BgL_auxz00_2361, BgL_an_exitd1022z00_509); } 
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2364;
BgL_auxz00_2364 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31288ze3z83_1901, BgL_auxz00_2364, BgL_armed1020z00_2164); } 
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2367;
BgL_auxz00_2367 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31288ze3z83_1901, BgL_auxz00_2367, BgL_zc3anonymousza31305ze3z83_2165); } 
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2370;
BgL_auxz00_2370 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31288ze3z83_1901, BgL_auxz00_2370, BgL_escapez00_1899); } 
BgL_res1024z00_512 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31288ze3z83_1901, BgL_zc3anonymousza31308ze3z83_2166, BgL_zc3anonymousza31290ze3z83_1897); } 
POP_EXIT(); 
return BgL_res1024z00_512;} } } } 
} } 
}



/* <exit:1255> */
obj_t BGl_zc3exitza31255ze3z83zz__evalz00(obj_t BgL_zc3anonymousza31276ze3z83_2169, obj_t BgL_zc3anonymousza31273ze3z83_2168, obj_t BgL_armed1028z00_2167)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 263 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1029z00_477;
if( SET_EXIT(BgL_an_exit1029z00_477) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1029z00_477 = 
(obj_t)jmpbuf; 
{ /* ./Eval/eval.scm 263 */

PUSH_EXIT(BgL_an_exit1029z00_477, ((bool_t)1)); 
{ /* ./Eval/eval.scm 263 */
obj_t BgL_an_exitd1030z00_478;
BgL_an_exitd1030z00_478 = 
BGL_EXITD_TOP(); 
{ /* ./Eval/eval.scm 263 */
obj_t BgL_escapez00_1894;
{ 
int BgL_auxz00_2381;int BgL_auxz00_2379;
BgL_auxz00_2381 = 
(int)(((long)1)); 
BgL_auxz00_2379 = 
(int)(((long)1)); 
BgL_escapez00_1894 = 
make_fx_procedure(BGl_escapez00zz__evalz00, BgL_auxz00_2379, BgL_auxz00_2381); } 
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2384;
BgL_auxz00_2384 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_1894, BgL_auxz00_2384, BgL_an_exitd1030z00_478); } 
{ /* ./Eval/eval.scm 263 */
obj_t BgL_res1032z00_481;
{ /* ./Eval/eval.scm 263 */
obj_t BgL_zc3anonymousza31265ze3z83_1892;obj_t BgL_zc3anonymousza31263ze3z83_1896;
{ 
int BgL_auxz00_2389;int BgL_auxz00_2387;
BgL_auxz00_2389 = 
(int)(((long)1)); 
BgL_auxz00_2387 = 
(int)(((long)0)); 
BgL_zc3anonymousza31265ze3z83_1892 = 
make_fx_procedure(BGl_zc3anonymousza31265ze3z83zz__evalz00, BgL_auxz00_2387, BgL_auxz00_2389); } 
{ 
int BgL_auxz00_2394;int BgL_auxz00_2392;
BgL_auxz00_2394 = 
(int)(((long)4)); 
BgL_auxz00_2392 = 
(int)(((long)0)); 
BgL_zc3anonymousza31263ze3z83_1896 = 
make_fx_procedure(BGl_zc3anonymousza31263ze3z83zz__evalz00, BgL_auxz00_2392, BgL_auxz00_2394); } 
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2397;
BgL_auxz00_2397 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31265ze3z83_1892, BgL_auxz00_2397, BgL_armed1028z00_2167); } 
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2400;
BgL_auxz00_2400 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31263ze3z83_1896, BgL_auxz00_2400, BgL_an_exitd1030z00_478); } 
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2403;
BgL_auxz00_2403 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31263ze3z83_1896, BgL_auxz00_2403, BgL_armed1028z00_2167); } 
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2406;
BgL_auxz00_2406 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31263ze3z83_1896, BgL_auxz00_2406, BgL_zc3anonymousza31273ze3z83_2168); } 
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2409;
BgL_auxz00_2409 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31263ze3z83_1896, BgL_auxz00_2409, BgL_escapez00_1894); } 
BgL_res1032z00_481 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31263ze3z83_1896, BgL_zc3anonymousza31276ze3z83_2169, BgL_zc3anonymousza31265ze3z83_1892); } 
POP_EXIT(); 
return BgL_res1032z00_481;} } } } 
} } 
}



/* <exit:1219> */
obj_t BGl_zc3exitza31219ze3z83zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 237 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1013z00_454;
if( SET_EXIT(BgL_an_exit1013z00_454) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1013z00_454 = 
(obj_t)jmpbuf; 
{ /* ./Eval/eval.scm 237 */

PUSH_EXIT(BgL_an_exit1013z00_454, ((bool_t)1)); 
{ /* ./Eval/eval.scm 237 */
obj_t BgL_an_exitd1014z00_455;
BgL_an_exitd1014z00_455 = 
BGL_EXITD_TOP(); 
{ /* ./Eval/eval.scm 239 */
obj_t BgL_res1016z00_458;
{ /* ./Eval/eval.scm 240 */
obj_t BgL_intrhdlz00_1902;
{ 
int BgL_auxz00_2420;int BgL_auxz00_2418;
BgL_auxz00_2420 = 
(int)(((long)1)); 
BgL_auxz00_2418 = 
(int)(((long)1)); 
BgL_intrhdlz00_1902 = 
make_fx_procedure(BGl_intrhdlz00zz__evalz00, BgL_auxz00_2418, BgL_auxz00_2420); } 
{ /* ./Eval/eval.scm 240 */
int BgL_auxz00_2423;
BgL_auxz00_2423 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_intrhdlz00_1902, BgL_auxz00_2423, BgL_an_exitd1014z00_455); } 
BGl_signalz00zz__osz00(SIGINT, BgL_intrhdlz00_1902); } 
{ /* ./Eval/eval.scm 250 */
obj_t BgL_arg1235z00_464;
BgL_arg1235z00_464 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg1235z00_464); } 
{ 

BgL_loopz00_465:
PROCEDURE_ENTRY(BGl_za2promptza2z00zz__evalz00)(BGl_za2promptza2z00zz__evalz00, 
BINT(BGl_za2replzd2numza2zd2zz__evalz00), BEOA); 
{ /* ./Eval/eval.scm 253 */
obj_t BgL_expz00_466;
{ /* ./Eval/eval.scm 253 */
obj_t BgL_cellvalz00_2432;
{ /* ./Eval/eval.scm 253 */
obj_t BgL_armed1020z00_503;
BgL_armed1020z00_503 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Eval/eval.scm 255 */
obj_t BgL_zc3anonymousza31305ze3z83_1900;
{ 
int BgL_auxz00_2435;int BgL_auxz00_2433;
BgL_auxz00_2435 = 
(int)(((long)1)); 
BgL_auxz00_2433 = 
(int)(((long)4)); 
BgL_zc3anonymousza31305ze3z83_1900 = 
make_fx_procedure(BGl_zc3anonymousza31305ze3z83zz__evalz00, BgL_auxz00_2433, BgL_auxz00_2435); } 
{ /* ./Eval/eval.scm 255 */
int BgL_auxz00_2438;
BgL_auxz00_2438 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31305ze3z83_1900, BgL_auxz00_2438, BgL_armed1020z00_503); } 
CELL_SET(BgL_armed1020z00_503, BTRUE); 
BgL_cellvalz00_2432 = 
BGl_zc3exitza31280ze3z83zz__evalz00(BGl_proc3445z00zz__evalz00, BgL_zc3anonymousza31305ze3z83_1900, BgL_armed1020z00_503); } } 
BgL_expz00_466 = 
MAKE_CELL(BgL_cellvalz00_2432); } 
{ /* ./Eval/eval.scm 261 */
bool_t BgL_test1240z00_467;
{ /* ./Eval/eval.scm 261 */
obj_t BgL_objectz00_1302;
BgL_objectz00_1302 = 
CELL_REF(BgL_expz00_466); 
BgL_test1240z00_467 = 
EOF_OBJECTP(BgL_objectz00_1302); } 
if(BgL_test1240z00_467)
{ /* ./Eval/eval.scm 261 */
BgL_res1016z00_458 = 
PROCEDURE_ENTRY(BGl_za2replzd2quitza2zd2zz__evalz00)(BGl_za2replzd2quitza2zd2zz__evalz00, 
BINT(((long)0)), BEOA); }  else 
{ /* ./Eval/eval.scm 263 */
obj_t BgL_vz00_468;
{ /* ./Eval/eval.scm 263 */
obj_t BgL_armed1028z00_472;
BgL_armed1028z00_472 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Eval/eval.scm 265 */
obj_t BgL_zc3anonymousza31276ze3z83_1893;obj_t BgL_zc3anonymousza31273ze3z83_1895;
{ 
int BgL_auxz00_2449;int BgL_auxz00_2447;
BgL_auxz00_2449 = 
(int)(((long)1)); 
BgL_auxz00_2447 = 
(int)(((long)0)); 
BgL_zc3anonymousza31276ze3z83_1893 = 
make_fx_procedure(BGl_zc3anonymousza31276ze3z83zz__evalz00, BgL_auxz00_2447, BgL_auxz00_2449); } 
{ 
int BgL_auxz00_2454;int BgL_auxz00_2452;
BgL_auxz00_2454 = 
(int)(((long)1)); 
BgL_auxz00_2452 = 
(int)(((long)4)); 
BgL_zc3anonymousza31273ze3z83_1895 = 
make_fx_procedure(BGl_zc3anonymousza31273ze3z83zz__evalz00, BgL_auxz00_2452, BgL_auxz00_2454); } 
{ /* ./Eval/eval.scm 265 */
int BgL_auxz00_2457;
BgL_auxz00_2457 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31276ze3z83_1893, BgL_auxz00_2457, BgL_expz00_466); } 
{ /* ./Eval/eval.scm 265 */
int BgL_auxz00_2460;
BgL_auxz00_2460 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31273ze3z83_1895, BgL_auxz00_2460, BgL_armed1028z00_472); } 
CELL_SET(BgL_armed1028z00_472, BTRUE); 
BgL_vz00_468 = 
BGl_zc3exitza31255ze3z83zz__evalz00(BgL_zc3anonymousza31276ze3z83_1893, BgL_zc3anonymousza31273ze3z83_1895, BgL_armed1028z00_472); } } 
{ /* ./Eval/eval.scm 268 */
bool_t BgL_test1242z00_469;
{ /* ./Eval/eval.scm 268 */
obj_t BgL_arg1249z00_471;
BgL_arg1249z00_471 = 
BGL_CURRENT_OUTPUT_PORT(); 
BgL_test1242z00_469 = 
(BGl_za2transcriptza2z00zz__evalz00==BgL_arg1249z00_471); } 
if(BgL_test1242z00_469)
{ /* ./Eval/eval.scm 268 */BFALSE; }  else 
{ /* ./Eval/eval.scm 269 */
obj_t BgL_port1033z00_470;
BgL_port1033z00_470 = BGl_za2transcriptza2z00zz__evalz00; 
display_string(BGl_string3446z00zz__evalz00, BgL_port1033z00_470); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
CELL_REF(BgL_expz00_466), BgL_port1033z00_470); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1033z00_470); } } 
PROCEDURE_ENTRY(BGl_za2replzd2printerza2zd2zz__evalz00)(BGl_za2replzd2printerza2zd2zz__evalz00, BgL_vz00_468, BGl_za2transcriptza2z00zz__evalz00, BEOA); 
WRITE_CHAR(((unsigned char)'\n'), BGl_za2transcriptza2z00zz__evalz00); 
CELL_SET(BgL_expz00_466, BUNSPEC); 
goto BgL_loopz00_465;} } } } 
POP_EXIT(); 
return BgL_res1016z00_458;} } } 
} } 
}



/* <exit:1214> */
obj_t BGl_zc3exitza31214ze3z83zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 275 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1011z00_450;
if( SET_EXIT(BgL_an_exit1011z00_450) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1011z00_450 = 
(obj_t)jmpbuf; 
{ /* ./Eval/eval.scm 275 */

PUSH_EXIT(BgL_an_exit1011z00_450, ((bool_t)0)); 
{ /* ./Eval/eval.scm 236 */
obj_t BgL_val1012z00_451;
{ 

BgL_loopz00_452:
BGl_zc3exitza31219ze3z83zz__evalz00(); 
goto BgL_loopz00_452;} 
POP_EXIT(); 
return BgL_val1012z00_451;} } 
} } 
}



/* <anonymous:1265> */
obj_t BGl_zc3anonymousza31265ze3z83zz__evalz00(obj_t BgL_envz00_1903)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 263 */
{ /* ./Eval/eval.scm 263 */
obj_t BgL_armed1028z00_1904;
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2479;
BgL_auxz00_2479 = 
(int)(((long)0)); 
BgL_armed1028z00_1904 = 
PROCEDURE_REF(BgL_envz00_1903, BgL_auxz00_2479); } 
{ 

{ /* ./Eval/eval.scm 263 */
bool_t BgL_testz00_2482;
{ /* ./Eval/eval.scm 263 */
obj_t BgL_auxz00_2483;
BgL_auxz00_2483 = 
CELL_REF(BgL_armed1028z00_1904); 
BgL_testz00_2482 = 
CBOOL(BgL_auxz00_2483); } 
if(BgL_testz00_2482)
{ /* ./Eval/eval.scm 263 */
CELL_SET(BgL_armed1028z00_1904, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Eval/eval.scm 263 */
return BFALSE;} } } } } 
}



/* <anonymous:1276> */
obj_t BGl_zc3anonymousza31276ze3z83zz__evalz00(obj_t BgL_envz00_1906)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 263 */
{ /* ./Eval/eval.scm 263 */
obj_t BgL_expz00_1907;
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2486;
BgL_auxz00_2486 = 
(int)(((long)0)); 
BgL_expz00_1907 = 
PROCEDURE_REF(BgL_envz00_1906, BgL_auxz00_2486); } 
{ 

return 
BGl_evalz00zz__evalz00(
CELL_REF(BgL_expz00_1907), BNIL);} } } 
}



/* <anonymous:1263> */
obj_t BGl_zc3anonymousza31263ze3z83zz__evalz00(obj_t BgL_envz00_1908)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 263 */
{ /* ./Eval/eval.scm 263 */
obj_t BgL_zc3anonymousza31273ze3z83_1911;obj_t BgL_escapez00_1912;
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2490;
BgL_auxz00_2490 = 
(int)(((long)2)); 
BgL_zc3anonymousza31273ze3z83_1911 = 
PROCEDURE_REF(BgL_envz00_1908, BgL_auxz00_2490); } 
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2493;
BgL_auxz00_2493 = 
(int)(((long)3)); 
BgL_escapez00_1912 = 
PROCEDURE_REF(BgL_envz00_1908, BgL_auxz00_2493); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza31273ze3z83_1911, BgL_escapez00_1912);} } } 
}



/* escape */
obj_t BGl_escapez00zz__evalz00(obj_t BgL_envz00_1913, obj_t BgL_val1031z00_1915)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 263 */
{ /* ./Eval/eval.scm 263 */
obj_t BgL_an_exitd1030z00_1914;
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2497;
BgL_auxz00_2497 = 
(int)(((long)0)); 
BgL_an_exitd1030z00_1914 = 
PROCEDURE_REF(BgL_envz00_1913, BgL_auxz00_2497); } 
{ 
obj_t BgL_val1031z00_479;
BgL_val1031z00_479 = BgL_val1031z00_1915; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1030z00_1914, BgL_val1031z00_479);} } } 
}



/* <anonymous:1273> */
obj_t BGl_zc3anonymousza31273ze3z83zz__evalz00(obj_t BgL_envz00_1916, obj_t BgL_escz00_1918, obj_t BgL_objz00_1919, obj_t BgL_procz00_1920, obj_t BgL_msgz00_1921)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 263 */
{ /* ./Eval/eval.scm 263 */
obj_t BgL_armed1028z00_1917;
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2501;
BgL_auxz00_2501 = 
(int)(((long)0)); 
BgL_armed1028z00_1917 = 
PROCEDURE_REF(BgL_envz00_1916, BgL_auxz00_2501); } 
{ 
obj_t BgL_escz00_493;obj_t BgL_objz00_494;obj_t BgL_procz00_495;obj_t BgL_msgz00_496;
BgL_escz00_493 = BgL_escz00_1918; 
BgL_objz00_494 = BgL_objz00_1919; 
BgL_procz00_495 = BgL_procz00_1920; 
BgL_msgz00_496 = BgL_msgz00_1921; 
CELL_SET(BgL_armed1028z00_1917, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
{ /* ./Eval/eval.scm 263 */
obj_t BgL_fun1156z00_1316;
if(
PROCEDUREP(BGl_za2replzd2errorzd2notifierza2z00zz__evalz00))
{ /* ./Eval/eval.scm 263 */
BgL_fun1156z00_1316 = BGl_za2replzd2errorzd2notifierza2z00zz__evalz00; }  else 
{ /* ./Eval/eval.scm 263 */
BgL_fun1156z00_1316 = BGl_defaultzd2replzd2errorzd2notifierzd2envz00zz__evalz00; } 
PROCEDURE_ENTRY(BgL_fun1156z00_1316)(BgL_fun1156z00_1316, BgL_objz00_494, BgL_procz00_495, BgL_msgz00_496, BEOA); } 
{ /* ./Eval/eval.scm 263 */
int BgL_auxz00_2509;
BgL_auxz00_2509 = 
(int)(((long)0)); 
sigsetmask(BgL_auxz00_2509); } 
return 
PROCEDURE_ENTRY(BgL_escz00_493)(BgL_escz00_493, BUNSPEC, BEOA);} } } 
}



/* <anonymous:1290> */
obj_t BGl_zc3anonymousza31290ze3z83zz__evalz00(obj_t BgL_envz00_1923)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 253 */
{ /* ./Eval/eval.scm 253 */
obj_t BgL_armed1020z00_1924;
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2514;
BgL_auxz00_2514 = 
(int)(((long)0)); 
BgL_armed1020z00_1924 = 
PROCEDURE_REF(BgL_envz00_1923, BgL_auxz00_2514); } 
{ 

{ /* ./Eval/eval.scm 253 */
bool_t BgL_testz00_2517;
{ /* ./Eval/eval.scm 253 */
obj_t BgL_auxz00_2518;
BgL_auxz00_2518 = 
CELL_REF(BgL_armed1020z00_1924); 
BgL_testz00_2517 = 
CBOOL(BgL_auxz00_2518); } 
if(BgL_testz00_2517)
{ /* ./Eval/eval.scm 253 */
CELL_SET(BgL_armed1020z00_1924, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Eval/eval.scm 253 */
return BFALSE;} } } } } 
}



/* <anonymous:1308> */
obj_t BGl_zc3anonymousza31308ze3z83zz__evalz00(obj_t BgL_envz00_1926)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 253 */
{ 

{ /* ./Eval/eval.scm 253 */
obj_t BgL_arg1310z00_1300;
BgL_arg1310z00_1300 = 
BGL_CURRENT_INPUT_PORT(); 
{ /* ./Eval/eval.scm 253 */
obj_t BgL_list1312z00_1301;
BgL_list1312z00_1301 = 
MAKE_PAIR(BgL_arg1310z00_1300, BNIL); 
return 
BGl_readz00zz__readerz00(BgL_list1312z00_1301);} } } } 
}



/* <anonymous:1288> */
obj_t BGl_zc3anonymousza31288ze3z83zz__evalz00(obj_t BgL_envz00_1927)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 253 */
{ /* ./Eval/eval.scm 253 */
obj_t BgL_zc3anonymousza31305ze3z83_1930;obj_t BgL_escapez00_1931;
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2524;
BgL_auxz00_2524 = 
(int)(((long)2)); 
BgL_zc3anonymousza31305ze3z83_1930 = 
PROCEDURE_REF(BgL_envz00_1927, BgL_auxz00_2524); } 
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2527;
BgL_auxz00_2527 = 
(int)(((long)3)); 
BgL_escapez00_1931 = 
PROCEDURE_REF(BgL_envz00_1927, BgL_auxz00_2527); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza31305ze3z83_1930, BgL_escapez00_1931);} } } 
}



/* escape_2903 */
obj_t BGl_escape_2903z00zz__evalz00(obj_t BgL_envz00_1932, obj_t BgL_val1023z00_1934)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 253 */
{ /* ./Eval/eval.scm 253 */
obj_t BgL_an_exitd1022z00_1933;
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2531;
BgL_auxz00_2531 = 
(int)(((long)0)); 
BgL_an_exitd1022z00_1933 = 
PROCEDURE_REF(BgL_envz00_1932, BgL_auxz00_2531); } 
{ 
obj_t BgL_val1023z00_510;
BgL_val1023z00_510 = BgL_val1023z00_1934; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1022z00_1933, BgL_val1023z00_510);} } } 
}



/* <anonymous:1305> */
obj_t BGl_zc3anonymousza31305ze3z83zz__evalz00(obj_t BgL_envz00_1935, obj_t BgL_escz00_1937, obj_t BgL_objz00_1938, obj_t BgL_procz00_1939, obj_t BgL_msgz00_1940)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 253 */
{ /* ./Eval/eval.scm 253 */
obj_t BgL_armed1020z00_1936;
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2535;
BgL_auxz00_2535 = 
(int)(((long)0)); 
BgL_armed1020z00_1936 = 
PROCEDURE_REF(BgL_envz00_1935, BgL_auxz00_2535); } 
{ 
obj_t BgL_escz00_526;obj_t BgL_objz00_527;obj_t BgL_procz00_528;obj_t BgL_msgz00_529;
BgL_escz00_526 = BgL_escz00_1937; 
BgL_objz00_527 = BgL_objz00_1938; 
BgL_procz00_528 = BgL_procz00_1939; 
BgL_msgz00_529 = BgL_msgz00_1940; 
CELL_SET(BgL_armed1020z00_1936, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
BGl_evmeaningzd2resetzd2errorz12z12zz__evmeaningz00(); 
{ /* ./Eval/eval.scm 253 */
obj_t BgL_fun1156z00_1295;
if(
PROCEDUREP(BGl_za2replzd2errorzd2notifierza2z00zz__evalz00))
{ /* ./Eval/eval.scm 253 */
BgL_fun1156z00_1295 = BGl_za2replzd2errorzd2notifierza2z00zz__evalz00; }  else 
{ /* ./Eval/eval.scm 253 */
BgL_fun1156z00_1295 = BGl_defaultzd2replzd2errorzd2notifierzd2envz00zz__evalz00; } 
PROCEDURE_ENTRY(BgL_fun1156z00_1295)(BgL_fun1156z00_1295, BgL_objz00_527, BgL_procz00_528, BgL_msgz00_529, BEOA); } 
{ /* ./Eval/eval.scm 253 */
bool_t BgL_test1297z00_1290;
BgL_test1297z00_1290 = 
EOF_OBJECTP(BgL_msgz00_529); 
if(BgL_test1297z00_1290)
{ /* ./Eval/eval.scm 253 */
obj_t BgL_arg1299z00_1291;
BgL_arg1299z00_1291 = 
BGL_CURRENT_INPUT_PORT(); 
reset_eof(BgL_arg1299z00_1291); }  else 
{ /* ./Eval/eval.scm 253 */((bool_t)0); } } 
{ /* ./Eval/eval.scm 253 */
int BgL_auxz00_2548;
BgL_auxz00_2548 = 
(int)(((long)0)); 
sigsetmask(BgL_auxz00_2548); } 
return 
PROCEDURE_ENTRY(BgL_escz00_526)(BgL_escz00_526, BUNSPEC, BEOA);} } } 
}



/* intrhdl */
obj_t BGl_intrhdlz00zz__evalz00(obj_t BgL_envz00_1942, obj_t BgL_nz00_1944)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 239 */
{ /* ./Eval/eval.scm 240 */
obj_t BgL_an_exitd1014z00_1943;
{ /* ./Eval/eval.scm 240 */
int BgL_auxz00_2553;
BgL_auxz00_2553 = 
(int)(((long)0)); 
BgL_an_exitd1014z00_1943 = 
PROCEDURE_REF(BgL_envz00_1942, BgL_auxz00_2553); } 
{ 
obj_t BgL_nz00_460;
BgL_nz00_460 = BgL_nz00_1944; 
BGl_notifyzd2interruptzd2zz__errorz00(
CINT(BgL_nz00_460)); 
BGl_readerzd2resetz12zc0zz__readerz00(); 
{ /* ./Eval/eval.scm 243 */
obj_t BgL_arg1228z00_1273;
BgL_arg1228z00_1273 = 
BGL_CURRENT_INPUT_PORT(); 
reset_console(BgL_arg1228z00_1273); } 
{ /* ./Eval/eval.scm 243 */
int BgL_auxz00_2561;
BgL_auxz00_2561 = 
(int)(((long)0)); 
sigsetmask(BgL_auxz00_2561); } 
BGl_signalz00zz__osz00(
CINT(BgL_nz00_460), BgL_envz00_1942); 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1014z00_1943, BUNSPEC);} } } 
}



/* default-repl-printer */
obj_t BGl_defaultzd2replzd2printerz00zz__evalz00(obj_t BgL_expz00_13, obj_t BgL_portz00_14)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 281 */
{ /* ./Eval/eval.scm 282 */
obj_t BgL_runner1323z00_1325;
{ /* ./Eval/eval.scm 282 */
obj_t BgL_list1320z00_1326;
BgL_list1320z00_1326 = 
MAKE_PAIR(BgL_portz00_14, BNIL); 
BgL_runner1323z00_1325 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_expz00_13, BgL_list1320z00_1326); } 
{ /* ./Eval/eval.scm 282 */
obj_t BgL_aux1322z00_1327;
BgL_aux1322z00_1327 = 
CAR(BgL_runner1323z00_1325); 
BgL_runner1323z00_1325 = 
CDR(BgL_runner1323z00_1325); 
return 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_aux1322z00_1327, BgL_runner1323z00_1325);} } } 
}



/* _default-repl-printer */
obj_t BGl__defaultzd2replzd2printerz00zz__evalz00(obj_t BgL_envz00_1870, obj_t BgL_expz00_1871, obj_t BgL_portz00_1872)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 281 */
return 
BGl_defaultzd2replzd2printerz00zz__evalz00(BgL_expz00_1871, BgL_portz00_1872);} 
}



/* set-repl-printer! */
BGL_EXPORTED_DEF obj_t BGl_setzd2replzd2printerz12z12zz__evalz00(obj_t BgL_dispz00_15)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 292 */
{ /* ./Eval/eval.scm 293 */
bool_t BgL_testz00_2573;
{ /* ./Eval/eval.scm 293 */
int BgL_auxz00_2574;
BgL_auxz00_2574 = 
(int)(((long)-2)); 
BgL_testz00_2573 = 
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_15, BgL_auxz00_2574); } 
if(BgL_testz00_2573)
{ /* ./Eval/eval.scm 293 */
obj_t BgL_oldz00_1331;
BgL_oldz00_1331 = BGl_za2replzd2printerza2zd2zz__evalz00; 
BGl_za2replzd2printerza2zd2zz__evalz00 = BgL_dispz00_15; 
return BgL_oldz00_1331;}  else 
{ /* ./Eval/eval.scm 293 */
FAILURE(BGl_string3447z00zz__evalz00,BGl_string3448z00zz__evalz00,BgL_dispz00_15);} } } 
}



/* _set-repl-printer! */
obj_t BGl__setzd2replzd2printerz12z12zz__evalz00(obj_t BgL_envz00_1948, obj_t BgL_dispz00_1949)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 292 */
return 
BGl_setzd2replzd2printerz12z12zz__evalz00(BgL_dispz00_1949);} 
}



/* native-repl-printer */
BGL_EXPORTED_DEF obj_t BGl_nativezd2replzd2printerz00zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 302 */
return BGl_defaultzd2replzd2printerzd2envzd2zz__evalz00;} 
}



/* _native-repl-printer */
obj_t BGl__nativezd2replzd2printerz00zz__evalz00(obj_t BgL_envz00_1950)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 302 */
return BGl_defaultzd2replzd2printerzd2envzd2zz__evalz00;} 
}



/* quit */
BGL_EXPORTED_DEF obj_t BGl_quitz00zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 308 */
return 
PROCEDURE_ENTRY(BGl_za2replzd2quitza2zd2zz__evalz00)(BGl_za2replzd2quitza2zd2zz__evalz00, 
BINT(((long)0)), BEOA);} 
}



/* _quit */
obj_t BGl__quitz00zz__evalz00(obj_t BgL_envz00_1951)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 308 */
return 
BGl_quitz00zz__evalz00();} 
}



/* find-file */
obj_t BGl_findzd2filezd2zz__evalz00(obj_t BgL_namez00_16)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 319 */
if(
STRINGP(BgL_namez00_16))
{ /* ./Eval/eval.scm 322 */
bool_t BgL_testz00_2585;
{ /* ./Eval/eval.scm 322 */
char * BgL_auxz00_2586;
BgL_auxz00_2586 = 
BSTRING_TO_STRING(BgL_namez00_16); 
BgL_testz00_2585 = 
fexists(BgL_auxz00_2586); } 
if(BgL_testz00_2585)
{ /* ./Eval/eval.scm 322 */
return BgL_namez00_16;}  else 
{ 
obj_t BgL_pathz00_544;
BgL_pathz00_544 = BGl_za2loadzd2pathza2zd2zz__evalz00; 
BgL_loopz00_545:
if(
NULLP(BgL_pathz00_544))
{ /* ./Eval/eval.scm 325 */
return BgL_namez00_16;}  else 
{ /* ./Eval/eval.scm 327 */
obj_t BgL_tryz00_547;
{ /* ./Eval/eval.scm 327 */
obj_t BgL_auxz00_2591;
BgL_auxz00_2591 = 
CAR(BgL_pathz00_544); 
BgL_tryz00_547 = 
string_append_3(BgL_auxz00_2591, BGl_string3449z00zz__evalz00, BgL_namez00_16); } 
{ /* ./Eval/eval.scm 328 */
bool_t BgL_testz00_2594;
{ /* ./Eval/eval.scm 328 */
char * BgL_auxz00_2595;
BgL_auxz00_2595 = 
BSTRING_TO_STRING(BgL_tryz00_547); 
BgL_testz00_2594 = 
fexists(BgL_auxz00_2595); } 
if(BgL_testz00_2594)
{ /* ./Eval/eval.scm 328 */
return BgL_tryz00_547;}  else 
{ 
obj_t BgL_pathz00_2598;
BgL_pathz00_2598 = 
CDR(BgL_pathz00_544); 
BgL_pathz00_544 = BgL_pathz00_2598; 
goto BgL_loopz00_545;} } } } }  else 
{ /* ./Eval/eval.scm 320 */
FAILURE(BGl_string3450z00zz__evalz00,BGl_string3451z00zz__evalz00,BgL_namez00_16);} } 
}



/* load */
BGL_EXPORTED_DEF obj_t BGl_loadz00zz__evalz00(obj_t BgL_filezd2namezd2_17)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 340 */
return 
BGl_loadvz00zz__evalz00(BgL_filezd2namezd2_17, BGl_za2loadzd2verboseza2zd2zz__evalz00);} 
}



/* _load2910 */
obj_t BGl__load2910z00zz__evalz00(obj_t BgL_envz00_1952, obj_t BgL_filezd2namezd2_1953)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 340 */
return 
BGl_loadz00zz__evalz00(BgL_filezd2namezd2_1953);} 
}



/* loadq */
BGL_EXPORTED_DEF obj_t BGl_loadqz00zz__evalz00(obj_t BgL_filezd2namezd2_18)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 343 */
return 
BGl_loadvz00zz__evalz00(BgL_filezd2namezd2_18, BFALSE);} 
}



/* _loadq */
obj_t BGl__loadqz00zz__evalz00(obj_t BgL_envz00_1954, obj_t BgL_filezd2namezd2_1955)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 343 */
return 
BGl_loadqz00zz__evalz00(BgL_filezd2namezd2_1955);} 
}



/* loadv */
obj_t BGl_loadvz00zz__evalz00(obj_t BgL_filezd2namezd2_19, obj_t BgL_vzf3zf3_20)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 346 */
{ /* ./Eval/eval.scm 347 */
obj_t BgL_pathz00_552;
BgL_pathz00_552 = 
BGl_findzd2filezd2zz__evalz00(BgL_filezd2namezd2_19); 
{ /* ./Eval/eval.scm 347 */
obj_t BgL_portz00_553;
BgL_portz00_553 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_pathz00_552, BNIL); 
{ /* ./Eval/eval.scm 348 */

BGl_readerzd2resetz12zc0zz__readerz00(); 
BGl_evmeaningzd2resetzd2errorz12z12zz__evmeaningz00(); 
if(
INPUT_PORTP(BgL_portz00_553))
{ /* ./Eval/eval.scm 352 */
obj_t BgL_armed1037z00_555;
BgL_armed1037z00_555 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Eval/eval.scm 390 */
obj_t BgL_zc3anonymousza31374ze3z83_1957;obj_t BgL_zc3anonymousza31371ze3z83_1959;
{ 
int BgL_auxz00_2613;int BgL_auxz00_2611;
BgL_auxz00_2613 = 
(int)(((long)3)); 
BgL_auxz00_2611 = 
(int)(((long)0)); 
BgL_zc3anonymousza31374ze3z83_1957 = 
make_fx_procedure(BGl_zc3anonymousza31374ze3z83zz__evalz00, BgL_auxz00_2611, BgL_auxz00_2613); } 
{ 
int BgL_auxz00_2618;int BgL_auxz00_2616;
BgL_auxz00_2618 = 
(int)(((long)2)); 
BgL_auxz00_2616 = 
(int)(((long)4)); 
BgL_zc3anonymousza31371ze3z83_1959 = 
make_fx_procedure(BGl_zc3anonymousza31371ze3z83zz__evalz00, BgL_auxz00_2616, BgL_auxz00_2618); } 
{ /* ./Eval/eval.scm 390 */
int BgL_auxz00_2621;
BgL_auxz00_2621 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31374ze3z83_1957, BgL_auxz00_2621, BgL_vzf3zf3_20); } 
{ /* ./Eval/eval.scm 390 */
int BgL_auxz00_2624;
BgL_auxz00_2624 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31374ze3z83_1957, BgL_auxz00_2624, BgL_portz00_553); } 
{ /* ./Eval/eval.scm 390 */
int BgL_auxz00_2627;
BgL_auxz00_2627 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31374ze3z83_1957, BgL_auxz00_2627, BgL_pathz00_552); } 
{ /* ./Eval/eval.scm 390 */
int BgL_auxz00_2630;
BgL_auxz00_2630 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31371ze3z83_1959, BgL_auxz00_2630, BgL_armed1037z00_555); } 
{ /* ./Eval/eval.scm 390 */
int BgL_auxz00_2633;
BgL_auxz00_2633 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31371ze3z83_1959, BgL_auxz00_2633, BgL_filezd2namezd2_19); } 
CELL_SET(BgL_armed1037z00_555, BTRUE); 
return 
BGl_zc3exitza31354ze3z83zz__evalz00(BgL_zc3anonymousza31374ze3z83_1957, BgL_zc3anonymousza31371ze3z83_1959, BgL_filezd2namezd2_19, BgL_armed1037z00_555);} }  else 
{ /* ./Eval/eval.scm 351 */
FAILURE(BGl_string3452z00zz__evalz00,BGl_string3453z00zz__evalz00,BgL_filezd2namezd2_19);} } } } } 
}



/* <exit:1354> */
obj_t BGl_zc3exitza31354ze3z83zz__evalz00(obj_t BgL_zc3anonymousza31374ze3z83_2163, obj_t BgL_zc3anonymousza31371ze3z83_2162, obj_t BgL_filezd2namezd2_2161, obj_t BgL_armed1037z00_2160)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 388 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1038z00_560;
if( SET_EXIT(BgL_an_exit1038z00_560) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1038z00_560 = 
(obj_t)jmpbuf; 
{ /* ./Eval/eval.scm 388 */

PUSH_EXIT(BgL_an_exit1038z00_560, ((bool_t)1)); 
{ /* ./Eval/eval.scm 388 */
obj_t BgL_an_exitd1039z00_561;
BgL_an_exitd1039z00_561 = 
BGL_EXITD_TOP(); 
{ /* ./Eval/eval.scm 388 */
obj_t BgL_escapez00_1958;
{ 
int BgL_auxz00_2644;int BgL_auxz00_2642;
BgL_auxz00_2644 = 
(int)(((long)1)); 
BgL_auxz00_2642 = 
(int)(((long)1)); 
BgL_escapez00_1958 = 
make_fx_procedure(BGl_escape_2922z00zz__evalz00, BgL_auxz00_2642, BgL_auxz00_2644); } 
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2647;
BgL_auxz00_2647 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_1958, BgL_auxz00_2647, BgL_an_exitd1039z00_561); } 
{ /* ./Eval/eval.scm 388 */
obj_t BgL_res1041z00_564;
{ /* ./Eval/eval.scm 388 */
obj_t BgL_zc3anonymousza31364ze3z83_1956;obj_t BgL_zc3anonymousza31362ze3z83_1960;
{ 
int BgL_auxz00_2652;int BgL_auxz00_2650;
BgL_auxz00_2652 = 
(int)(((long)1)); 
BgL_auxz00_2650 = 
(int)(((long)0)); 
BgL_zc3anonymousza31364ze3z83_1956 = 
make_fx_procedure(BGl_zc3anonymousza31364ze3z83zz__evalz00, BgL_auxz00_2650, BgL_auxz00_2652); } 
{ 
int BgL_auxz00_2657;int BgL_auxz00_2655;
BgL_auxz00_2657 = 
(int)(((long)5)); 
BgL_auxz00_2655 = 
(int)(((long)0)); 
BgL_zc3anonymousza31362ze3z83_1960 = 
make_fx_procedure(BGl_zc3anonymousza31362ze3z83zz__evalz00, BgL_auxz00_2655, BgL_auxz00_2657); } 
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2660;
BgL_auxz00_2660 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31364ze3z83_1956, BgL_auxz00_2660, BgL_armed1037z00_2160); } 
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2663;
BgL_auxz00_2663 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31362ze3z83_1960, BgL_auxz00_2663, BgL_an_exitd1039z00_561); } 
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2666;
BgL_auxz00_2666 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31362ze3z83_1960, BgL_auxz00_2666, BgL_armed1037z00_2160); } 
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2669;
BgL_auxz00_2669 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31362ze3z83_1960, BgL_auxz00_2669, BgL_filezd2namezd2_2161); } 
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2672;
BgL_auxz00_2672 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31362ze3z83_1960, BgL_auxz00_2672, BgL_zc3anonymousza31371ze3z83_2162); } 
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2675;
BgL_auxz00_2675 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31362ze3z83_1960, BgL_auxz00_2675, BgL_escapez00_1958); } 
BgL_res1041z00_564 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31362ze3z83_1960, BgL_zc3anonymousza31374ze3z83_2163, BgL_zc3anonymousza31364ze3z83_1956); } 
POP_EXIT(); 
return BgL_res1041z00_564;} } } } 
} } 
}



/* <anonymous:1364> */
obj_t BGl_zc3anonymousza31364ze3z83zz__evalz00(obj_t BgL_envz00_1961)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 388 */
{ /* ./Eval/eval.scm 388 */
obj_t BgL_armed1037z00_1962;
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2680;
BgL_auxz00_2680 = 
(int)(((long)0)); 
BgL_armed1037z00_1962 = 
PROCEDURE_REF(BgL_envz00_1961, BgL_auxz00_2680); } 
{ 

{ /* ./Eval/eval.scm 388 */
bool_t BgL_testz00_2683;
{ /* ./Eval/eval.scm 388 */
obj_t BgL_auxz00_2684;
BgL_auxz00_2684 = 
CELL_REF(BgL_armed1037z00_1962); 
BgL_testz00_2683 = 
CBOOL(BgL_auxz00_2684); } 
if(BgL_testz00_2683)
{ /* ./Eval/eval.scm 388 */
CELL_SET(BgL_armed1037z00_1962, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Eval/eval.scm 388 */
return BFALSE;} } } } } 
}



/* <anonymous:1374> */
obj_t BGl_zc3anonymousza31374ze3z83zz__evalz00(obj_t BgL_envz00_1964)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 388 */
{ /* ./Eval/eval.scm 352 */
obj_t BgL_vzf3zf3_1965;obj_t BgL_portz00_1966;obj_t BgL_pathz00_1967;
{ /* ./Eval/eval.scm 352 */
int BgL_auxz00_2687;
BgL_auxz00_2687 = 
(int)(((long)0)); 
BgL_vzf3zf3_1965 = 
PROCEDURE_REF(BgL_envz00_1964, BgL_auxz00_2687); } 
{ /* ./Eval/eval.scm 352 */
int BgL_auxz00_2690;
BgL_auxz00_2690 = 
(int)(((long)1)); 
BgL_portz00_1966 = 
PROCEDURE_REF(BgL_envz00_1964, BgL_auxz00_2690); } 
{ /* ./Eval/eval.scm 352 */
int BgL_auxz00_2693;
BgL_auxz00_2693 = 
(int)(((long)2)); 
BgL_pathz00_1967 = 
PROCEDURE_REF(BgL_envz00_1964, BgL_auxz00_2693); } 
{ 

{ 
obj_t BgL_sexpz00_582;bool_t BgL_modulezd2seenzf3z21_583;obj_t BgL_mainz00_584;
{ /* ./Eval/eval.scm 352 */
obj_t BgL_arg1376z00_586;
{ /* ./Eval/eval.scm 352 */
obj_t BgL_list1379z00_587;
{ /* ./Eval/eval.scm 352 */
obj_t BgL_arg1381z00_588;
BgL_arg1381z00_588 = 
MAKE_PAIR(BTRUE, BNIL); 
BgL_list1379z00_587 = 
MAKE_PAIR(BgL_portz00_1966, BgL_arg1381z00_588); } 
BgL_arg1376z00_586 = 
BGl_readz00zz__readerz00(BgL_list1379z00_587); } 
BgL_sexpz00_582 = BgL_arg1376z00_586; 
BgL_modulezd2seenzf3z21_583 = ((bool_t)0); 
BgL_mainz00_584 = BFALSE; 
BgL_loopz00_585:
{ /* ./Eval/eval.scm 356 */
bool_t BgL_test1384z00_589;
BgL_test1384z00_589 = 
EOF_OBJECTP(BgL_sexpz00_582); 
if(BgL_test1384z00_589)
{ /* ./Eval/eval.scm 356 */
close_input_port(BgL_portz00_1966); 
{ /* ./Eval/eval.scm 358 */
obj_t BgL_pmainz00_590;
if(
SYMBOLP(BgL_mainz00_584))
{ /* ./Eval/eval.scm 358 */
BgL_pmainz00_590 = 
BGl_evalz00zz__evalz00(BgL_mainz00_584, BNIL); }  else 
{ /* ./Eval/eval.scm 358 */
BgL_pmainz00_590 = BFALSE; } 
if(
PROCEDUREP(BgL_pmainz00_590))
{ /* ./Eval/eval.scm 362 */
obj_t BgL_arg1388z00_592;
BgL_arg1388z00_592 = 
BGl_commandzd2linezd2zz__osz00(); 
PROCEDURE_ENTRY(BgL_pmainz00_590)(BgL_pmainz00_590, BgL_arg1388z00_592, BEOA); }  else 
{ /* ./Eval/eval.scm 361 */BFALSE; } 
return BgL_pathz00_1967;} }  else 
{ /* ./Eval/eval.scm 364 */
bool_t BgL_test1396z00_595;
if(
PAIRP(BgL_sexpz00_582))
{ /* ./Eval/eval.scm 364 */
obj_t BgL_auxz00_2712;
BgL_auxz00_2712 = 
CAR(BgL_sexpz00_582); 
BgL_test1396z00_595 = 
(BgL_auxz00_2712==BGl_symbol3454z00zz__evalz00); }  else 
{ /* ./Eval/eval.scm 364 */
BgL_test1396z00_595 = ((bool_t)0); } 
if(BgL_test1396z00_595)
{ /* ./Eval/eval.scm 364 */
if(BgL_modulezd2seenzf3z21_583)
{ /* ./Eval/eval.scm 365 */
FAILURE(BGl_string3452z00zz__evalz00,BGl_string3455z00zz__evalz00,BgL_sexpz00_582);}  else 
{ /* ./Eval/eval.scm 367 */
obj_t BgL_mainz00_596;
{ /* ./Eval/eval.scm 367 */
obj_t BgL_auxz00_2718;
{ /* ./Eval/eval.scm 367 */
obj_t BgL_auxz00_2719;
BgL_auxz00_2719 = 
CDR(BgL_sexpz00_582); 
BgL_auxz00_2718 = 
CDR(BgL_auxz00_2719); } 
BgL_mainz00_596 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BGl_symbol3456z00zz__evalz00, BgL_auxz00_2718); } 
{ /* ./Eval/eval.scm 368 */
obj_t BgL_vz00_597;
BgL_vz00_597 = 
BGl_evalz00zz__evalz00(BgL_sexpz00_582, BNIL); 
if(
CBOOL(BgL_vzf3zf3_1965))
{ /* ./Eval/eval.scm 369 */
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_vz00_597, BNIL); 
{ /* ./Eval/eval.scm 372 */
obj_t BgL_arg1401z00_599;
BgL_arg1401z00_599 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg1401z00_599); } }  else 
{ /* ./Eval/eval.scm 369 */BFALSE; } 
{ /* ./Eval/eval.scm 373 */
obj_t BgL_arg1406z00_600;obj_t BgL_arg1407z00_601;
{ /* ./Eval/eval.scm 373 */
obj_t BgL_list1410z00_602;
{ /* ./Eval/eval.scm 373 */
obj_t BgL_arg1412z00_603;
BgL_arg1412z00_603 = 
MAKE_PAIR(BTRUE, BNIL); 
BgL_list1410z00_602 = 
MAKE_PAIR(BgL_portz00_1966, BgL_arg1412z00_603); } 
BgL_arg1406z00_600 = 
BGl_readz00zz__readerz00(BgL_list1410z00_602); } 
if(
PAIRP(BgL_mainz00_596))
{ /* ./Eval/eval.scm 376 */
obj_t BgL_auxz00_2734;
BgL_auxz00_2734 = 
CDR(BgL_mainz00_596); 
BgL_arg1407z00_601 = 
CAR(BgL_auxz00_2734); }  else 
{ /* ./Eval/eval.scm 375 */
BgL_arg1407z00_601 = BgL_vz00_597; } 
{ 
obj_t BgL_mainz00_2739;bool_t BgL_modulezd2seenzf3z21_2738;obj_t BgL_sexpz00_2737;
BgL_sexpz00_2737 = BgL_arg1406z00_600; 
BgL_modulezd2seenzf3z21_2738 = ((bool_t)1); 
BgL_mainz00_2739 = BgL_arg1407z00_601; 
BgL_mainz00_584 = BgL_mainz00_2739; 
BgL_modulezd2seenzf3z21_583 = BgL_modulezd2seenzf3z21_2738; 
BgL_sexpz00_582 = BgL_sexpz00_2737; 
goto BgL_loopz00_585;} } } } }  else 
{ /* ./Eval/eval.scm 364 */
{ /* ./Eval/eval.scm 379 */
obj_t BgL_vz00_608;
BgL_vz00_608 = 
BGl_evalz00zz__evalz00(BgL_sexpz00_582, BNIL); 
BGl_evmeaningzd2resetzd2errorz12z12zz__evmeaningz00(); 
if(
CBOOL(BgL_vzf3zf3_1965))
{ /* ./Eval/eval.scm 381 */
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_vz00_608, BNIL); 
{ /* ./Eval/eval.scm 384 */
obj_t BgL_arg1429z00_610;
BgL_arg1429z00_610 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg1429z00_610); } }  else 
{ /* ./Eval/eval.scm 381 */BFALSE; } 
{ /* ./Eval/eval.scm 385 */
obj_t BgL_arg1433z00_611;
{ /* ./Eval/eval.scm 385 */
obj_t BgL_list1436z00_612;
{ /* ./Eval/eval.scm 385 */
obj_t BgL_arg1438z00_613;
BgL_arg1438z00_613 = 
MAKE_PAIR(BTRUE, BNIL); 
BgL_list1436z00_612 = 
MAKE_PAIR(BgL_portz00_1966, BgL_arg1438z00_613); } 
BgL_arg1433z00_611 = 
BGl_readz00zz__readerz00(BgL_list1436z00_612); } 
{ 
obj_t BgL_sexpz00_2750;
BgL_sexpz00_2750 = BgL_arg1433z00_611; 
BgL_sexpz00_582 = BgL_sexpz00_2750; 
goto BgL_loopz00_585;} } } } } } } } } } } 
}



/* <anonymous:1362> */
obj_t BGl_zc3anonymousza31362ze3z83zz__evalz00(obj_t BgL_envz00_1968)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 388 */
{ /* ./Eval/eval.scm 388 */
obj_t BgL_zc3anonymousza31371ze3z83_1972;obj_t BgL_escapez00_1973;
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2751;
BgL_auxz00_2751 = 
(int)(((long)3)); 
BgL_zc3anonymousza31371ze3z83_1972 = 
PROCEDURE_REF(BgL_envz00_1968, BgL_auxz00_2751); } 
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2754;
BgL_auxz00_2754 = 
(int)(((long)4)); 
BgL_escapez00_1973 = 
PROCEDURE_REF(BgL_envz00_1968, BgL_auxz00_2754); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza31371ze3z83_1972, BgL_escapez00_1973);} } } 
}



/* escape_2922 */
obj_t BGl_escape_2922z00zz__evalz00(obj_t BgL_envz00_1974, obj_t BgL_val1040z00_1976)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 388 */
{ /* ./Eval/eval.scm 388 */
obj_t BgL_an_exitd1039z00_1975;
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2758;
BgL_auxz00_2758 = 
(int)(((long)0)); 
BgL_an_exitd1039z00_1975 = 
PROCEDURE_REF(BgL_envz00_1974, BgL_auxz00_2758); } 
{ 
obj_t BgL_val1040z00_562;
BgL_val1040z00_562 = BgL_val1040z00_1976; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1039z00_1975, BgL_val1040z00_562);} } } 
}



/* <anonymous:1371> */
obj_t BGl_zc3anonymousza31371ze3z83zz__evalz00(obj_t BgL_envz00_1977, obj_t BgL_escz00_1980, obj_t BgL_objz00_1981, obj_t BgL_procz00_1982, obj_t BgL_msgz00_1983)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 388 */
{ /* ./Eval/eval.scm 388 */
obj_t BgL_armed1037z00_1978;obj_t BgL_filezd2namezd2_1979;
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2762;
BgL_auxz00_2762 = 
(int)(((long)0)); 
BgL_armed1037z00_1978 = 
PROCEDURE_REF(BgL_envz00_1977, BgL_auxz00_2762); } 
{ /* ./Eval/eval.scm 388 */
int BgL_auxz00_2765;
BgL_auxz00_2765 = 
(int)(((long)1)); 
BgL_filezd2namezd2_1979 = 
PROCEDURE_REF(BgL_envz00_1977, BgL_auxz00_2765); } 
{ 
obj_t BgL_escz00_576;obj_t BgL_objz00_577;obj_t BgL_procz00_578;obj_t BgL_msgz00_579;
BgL_escz00_576 = BgL_escz00_1980; 
BgL_objz00_577 = BgL_objz00_1981; 
BgL_procz00_578 = BgL_procz00_1982; 
BgL_msgz00_579 = BgL_msgz00_1983; 
CELL_SET(BgL_armed1037z00_1978, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
{ /* ./Eval/eval.scm 388 */
obj_t BgL_fun1156z00_1361;
if(
PROCEDUREP(BGl_za2replzd2errorzd2notifierza2z00zz__evalz00))
{ /* ./Eval/eval.scm 388 */
BgL_fun1156z00_1361 = BGl_za2replzd2errorzd2notifierza2z00zz__evalz00; }  else 
{ /* ./Eval/eval.scm 388 */
BgL_fun1156z00_1361 = BGl_defaultzd2replzd2errorzd2notifierzd2envz00zz__evalz00; } 
PROCEDURE_ENTRY(BgL_fun1156z00_1361)(BgL_fun1156z00_1361, BgL_objz00_577, BgL_procz00_578, BgL_msgz00_579, BEOA); } 
FAILURE(BGl_string3452z00zz__evalz00,BGl_string3457z00zz__evalz00,BgL_filezd2namezd2_1979);} } } 
}



/* loada */
BGL_EXPORTED_DEF obj_t BGl_loadaz00zz__evalz00(obj_t BgL_filez00_21)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 399 */
{ /* ./Eval/eval.scm 400 */
obj_t BgL_portz00_622;
BgL_portz00_622 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_filez00_21, BNIL); 
if(
INPUT_PORTP(BgL_portz00_622))
{ /* ./Eval/eval.scm 401 */
{ /* ./Eval/eval.scm 403 */
obj_t BgL_arg1458z00_624;
{ /* ./Eval/eval.scm 403 */
obj_t BgL_list1461z00_625;
{ /* ./Eval/eval.scm 403 */
obj_t BgL_arg1463z00_626;
BgL_arg1463z00_626 = 
MAKE_PAIR(BTRUE, BNIL); 
BgL_list1461z00_625 = 
MAKE_PAIR(BgL_portz00_622, BgL_arg1463z00_626); } 
BgL_arg1458z00_624 = 
BGl_readz00zz__readerz00(BgL_list1461z00_625); } 
BGl_za2afilezd2listza2zd2zz__evalz00 = 
bgl_append2(BgL_arg1458z00_624, BGl_za2afilezd2listza2zd2zz__evalz00); } 
close_input_port(BgL_portz00_622); 
return BgL_filez00_21;}  else 
{ /* ./Eval/eval.scm 401 */
FAILURE(BGl_string3458z00zz__evalz00,BGl_string3453z00zz__evalz00,BgL_filez00_21);} } } 
}



/* _loada */
obj_t BGl__loadaz00zz__evalz00(obj_t BgL_envz00_1986, obj_t BgL_filez00_1987)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 399 */
return 
BGl_loadaz00zz__evalz00(BgL_filez00_1987);} 
}



/* expand-define-expander */
BGL_EXPORTED_DEF obj_t BGl_expandzd2definezd2expanderz00zz__evalz00(obj_t BgL_xz00_22, obj_t BgL_ez00_23)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 417 */
{ 
obj_t BgL_namez00_628;obj_t BgL_macroz00_629;
if(
PAIRP(BgL_xz00_22))
{ /* ./Eval/eval.scm 418 */
obj_t BgL_cdrzd2109zd2_634;
BgL_cdrzd2109zd2_634 = 
CDR(BgL_xz00_22); 
if(
PAIRP(BgL_cdrzd2109zd2_634))
{ /* ./Eval/eval.scm 418 */
obj_t BgL_carzd2112zd2_636;
BgL_carzd2112zd2_636 = 
CAR(BgL_cdrzd2109zd2_634); 
if(
SYMBOLP(BgL_carzd2112zd2_636))
{ /* ./Eval/eval.scm 418 */
BgL_namez00_628 = BgL_carzd2112zd2_636; 
BgL_macroz00_629 = 
CDR(BgL_cdrzd2109zd2_634); 
{ /* ./Eval/eval.scm 420 */
obj_t BgL_expdzd2lamzd2_639;
BgL_expdzd2lamzd2_639 = 
BGl_normaliza7ezd2prognz75zz__prognz00(BgL_macroz00_629); 
{ /* ./Eval/eval.scm 420 */
obj_t BgL_expdzd2lamzf2locz20_640;
BgL_expdzd2lamzf2locz20_640 = 
BGl_replacez12z12zz__prognz00(BgL_xz00_22, BgL_expdzd2lamzd2_639); 
{ /* ./Eval/eval.scm 421 */
obj_t BgL_expdzd2evalzd2_641;
BgL_expdzd2evalzd2_641 = 
BGl_evalz00zz__evalz00(BgL_expdzd2lamzf2locz20_640, BNIL); 
{ /* ./Eval/eval.scm 422 */

{ /* ./Eval/eval.scm 426 */
obj_t BgL_zc3anonymousza31489ze3z83_1993;
{ 
int BgL_auxz00_2797;int BgL_auxz00_2795;
BgL_auxz00_2797 = 
(int)(((long)3)); 
BgL_auxz00_2795 = 
(int)(((long)2)); 
BgL_zc3anonymousza31489ze3z83_1993 = 
make_fx_procedure(BGl_zc3anonymousza31489ze3z83zz__evalz00, BgL_auxz00_2795, BgL_auxz00_2797); } 
{ /* ./Eval/eval.scm 426 */
int BgL_auxz00_2800;
BgL_auxz00_2800 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31489ze3z83_1993, BgL_auxz00_2800, BgL_expdzd2evalzd2_641); } 
{ /* ./Eval/eval.scm 426 */
int BgL_auxz00_2803;
BgL_auxz00_2803 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31489ze3z83_1993, BgL_auxz00_2803, BgL_namez00_628); } 
{ /* ./Eval/eval.scm 426 */
int BgL_auxz00_2806;
BgL_auxz00_2806 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31489ze3z83_1993, BgL_auxz00_2806, BgL_macroz00_629); } 
BGl_installzd2expanderzd2zz__macroz00(BgL_namez00_628, BgL_zc3anonymousza31489ze3z83_1993); } } } } } 
return BUNSPEC;}  else 
{ /* ./Eval/eval.scm 418 */
FAILURE(BGl_string3459z00zz__evalz00,BGl_string3460z00zz__evalz00,BgL_xz00_22);} }  else 
{ /* ./Eval/eval.scm 418 */
FAILURE(BGl_string3459z00zz__evalz00,BGl_string3460z00zz__evalz00,BgL_xz00_22);} }  else 
{ /* ./Eval/eval.scm 418 */
FAILURE(BGl_string3459z00zz__evalz00,BGl_string3460z00zz__evalz00,BgL_xz00_22);} } } 
}



/* _expand-define-expander */
obj_t BGl__expandzd2definezd2expanderz00zz__evalz00(obj_t BgL_envz00_1994, obj_t BgL_xz00_1995, obj_t BgL_ez00_1996)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 417 */
return 
BGl_expandzd2definezd2expanderz00zz__evalz00(BgL_xz00_1995, BgL_ez00_1996);} 
}



/* <anonymous:1489> */
obj_t BGl_zc3anonymousza31489ze3z83zz__evalz00(obj_t BgL_envz00_1997, obj_t BgL_xz00_2001, obj_t BgL_ez00_2002)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 425 */
{ /* ./Eval/eval.scm 426 */
obj_t BgL_expdzd2evalzd2_1998;obj_t BgL_namez00_1999;obj_t BgL_macroz00_2000;
{ /* ./Eval/eval.scm 426 */
int BgL_auxz00_2815;
BgL_auxz00_2815 = 
(int)(((long)0)); 
BgL_expdzd2evalzd2_1998 = 
PROCEDURE_REF(BgL_envz00_1997, BgL_auxz00_2815); } 
{ /* ./Eval/eval.scm 426 */
int BgL_auxz00_2818;
BgL_auxz00_2818 = 
(int)(((long)1)); 
BgL_namez00_1999 = 
PROCEDURE_REF(BgL_envz00_1997, BgL_auxz00_2818); } 
{ /* ./Eval/eval.scm 426 */
int BgL_auxz00_2821;
BgL_auxz00_2821 = 
(int)(((long)2)); 
BgL_macroz00_2000 = 
PROCEDURE_REF(BgL_envz00_1997, BgL_auxz00_2821); } 
{ 
obj_t BgL_xz00_643;obj_t BgL_ez00_644;
BgL_xz00_643 = BgL_xz00_2001; 
BgL_ez00_644 = BgL_ez00_2002; 
if(
PROCEDUREP(BgL_expdzd2evalzd2_1998))
{ /* ./Eval/eval.scm 428 */
bool_t BgL_testz00_2826;
{ /* ./Eval/eval.scm 428 */
int BgL_auxz00_2827;
BgL_auxz00_2827 = 
(int)(((long)2)); 
BgL_testz00_2826 = 
PROCEDURE_CORRECT_ARITYP(BgL_expdzd2evalzd2_1998, BgL_auxz00_2827); } 
if(BgL_testz00_2826)
{ /* ./Eval/eval.scm 430 */
obj_t BgL_armed1045z00_648;
BgL_armed1045z00_648 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Eval/eval.scm 432 */
obj_t BgL_zc3anonymousza31509ze3z83_1989;obj_t BgL_zc3anonymousza31512ze3z83_1991;
{ 
int BgL_auxz00_2832;int BgL_auxz00_2830;
BgL_auxz00_2832 = 
(int)(((long)2)); 
BgL_auxz00_2830 = 
(int)(((long)4)); 
BgL_zc3anonymousza31509ze3z83_1989 = 
make_fx_procedure(BGl_zc3anonymousza31509ze3z83zz__evalz00, BgL_auxz00_2830, BgL_auxz00_2832); } 
{ 
int BgL_auxz00_2837;int BgL_auxz00_2835;
BgL_auxz00_2837 = 
(int)(((long)3)); 
BgL_auxz00_2835 = 
(int)(((long)0)); 
BgL_zc3anonymousza31512ze3z83_1991 = 
make_fx_procedure(BGl_zc3anonymousza31512ze3z83zz__evalz00, BgL_auxz00_2835, BgL_auxz00_2837); } 
{ /* ./Eval/eval.scm 432 */
int BgL_auxz00_2840;
BgL_auxz00_2840 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31509ze3z83_1989, BgL_auxz00_2840, BgL_armed1045z00_648); } 
{ /* ./Eval/eval.scm 432 */
int BgL_auxz00_2843;
BgL_auxz00_2843 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31509ze3z83_1989, BgL_auxz00_2843, BgL_xz00_643); } 
{ /* ./Eval/eval.scm 432 */
int BgL_auxz00_2846;
BgL_auxz00_2846 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31512ze3z83_1991, BgL_auxz00_2846, BgL_expdzd2evalzd2_1998); } 
{ /* ./Eval/eval.scm 432 */
int BgL_auxz00_2849;
BgL_auxz00_2849 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31512ze3z83_1991, BgL_auxz00_2849, BgL_xz00_643); } 
{ /* ./Eval/eval.scm 432 */
int BgL_auxz00_2852;
BgL_auxz00_2852 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31512ze3z83_1991, BgL_auxz00_2852, BgL_ez00_644); } 
CELL_SET(BgL_armed1045z00_648, BTRUE); 
return 
BGl_zc3exitza31492ze3z83zz__evalz00(BgL_zc3anonymousza31512ze3z83_1991, BgL_zc3anonymousza31509ze3z83_1989, BgL_xz00_643, BgL_armed1045z00_648);} }  else 
{ /* ./Eval/eval.scm 428 */
FAILURE(BgL_namez00_1999,BGl_string3461z00zz__evalz00,BgL_macroz00_2000);} }  else 
{ /* ./Eval/eval.scm 426 */
FAILURE(BgL_namez00_1999,BGl_string3462z00zz__evalz00,BgL_macroz00_2000);} } } } 
}



/* <exit:1492> */
obj_t BGl_zc3exitza31492ze3z83zz__evalz00(obj_t BgL_zc3anonymousza31512ze3z83_2159, obj_t BgL_zc3anonymousza31509ze3z83_2158, obj_t BgL_xz00_2157, obj_t BgL_armed1045z00_2156)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 431 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1046z00_653;
if( SET_EXIT(BgL_an_exit1046z00_653) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1046z00_653 = 
(obj_t)jmpbuf; 
{ /* ./Eval/eval.scm 431 */

PUSH_EXIT(BgL_an_exit1046z00_653, ((bool_t)1)); 
{ /* ./Eval/eval.scm 431 */
obj_t BgL_an_exitd1047z00_654;
BgL_an_exitd1047z00_654 = 
BGL_EXITD_TOP(); 
{ /* ./Eval/eval.scm 431 */
obj_t BgL_escapez00_1988;
{ 
int BgL_auxz00_2864;int BgL_auxz00_2862;
BgL_auxz00_2864 = 
(int)(((long)1)); 
BgL_auxz00_2862 = 
(int)(((long)1)); 
BgL_escapez00_1988 = 
make_fx_procedure(BGl_escape_2928z00zz__evalz00, BgL_auxz00_2862, BgL_auxz00_2864); } 
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2867;
BgL_auxz00_2867 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_1988, BgL_auxz00_2867, BgL_an_exitd1047z00_654); } 
{ /* ./Eval/eval.scm 431 */
obj_t BgL_res1049z00_657;
{ /* ./Eval/eval.scm 431 */
obj_t BgL_zc3anonymousza31502ze3z83_1992;obj_t BgL_zc3anonymousza31500ze3z83_1990;
{ 
int BgL_auxz00_2872;int BgL_auxz00_2870;
BgL_auxz00_2872 = 
(int)(((long)1)); 
BgL_auxz00_2870 = 
(int)(((long)0)); 
BgL_zc3anonymousza31502ze3z83_1992 = 
make_fx_procedure(BGl_zc3anonymousza31502ze3z83zz__evalz00, BgL_auxz00_2870, BgL_auxz00_2872); } 
{ 
int BgL_auxz00_2877;int BgL_auxz00_2875;
BgL_auxz00_2877 = 
(int)(((long)5)); 
BgL_auxz00_2875 = 
(int)(((long)0)); 
BgL_zc3anonymousza31500ze3z83_1990 = 
make_fx_procedure(BGl_zc3anonymousza31500ze3z83zz__evalz00, BgL_auxz00_2875, BgL_auxz00_2877); } 
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2880;
BgL_auxz00_2880 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31502ze3z83_1992, BgL_auxz00_2880, BgL_armed1045z00_2156); } 
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2883;
BgL_auxz00_2883 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31500ze3z83_1990, BgL_auxz00_2883, BgL_an_exitd1047z00_654); } 
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2886;
BgL_auxz00_2886 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31500ze3z83_1990, BgL_auxz00_2886, BgL_armed1045z00_2156); } 
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2889;
BgL_auxz00_2889 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31500ze3z83_1990, BgL_auxz00_2889, BgL_xz00_2157); } 
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2892;
BgL_auxz00_2892 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31500ze3z83_1990, BgL_auxz00_2892, BgL_zc3anonymousza31509ze3z83_2158); } 
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2895;
BgL_auxz00_2895 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31500ze3z83_1990, BgL_auxz00_2895, BgL_escapez00_1988); } 
BgL_res1049z00_657 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31500ze3z83_1990, BgL_zc3anonymousza31512ze3z83_2159, BgL_zc3anonymousza31502ze3z83_1992); } 
POP_EXIT(); 
return BgL_res1049z00_657;} } } } 
} } 
}



/* <anonymous:1502> */
obj_t BGl_zc3anonymousza31502ze3z83zz__evalz00(obj_t BgL_envz00_2004)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 431 */
{ /* ./Eval/eval.scm 431 */
obj_t BgL_armed1045z00_2005;
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2900;
BgL_auxz00_2900 = 
(int)(((long)0)); 
BgL_armed1045z00_2005 = 
PROCEDURE_REF(BgL_envz00_2004, BgL_auxz00_2900); } 
{ 

{ /* ./Eval/eval.scm 431 */
bool_t BgL_testz00_2903;
{ /* ./Eval/eval.scm 431 */
obj_t BgL_auxz00_2904;
BgL_auxz00_2904 = 
CELL_REF(BgL_armed1045z00_2005); 
BgL_testz00_2903 = 
CBOOL(BgL_auxz00_2904); } 
if(BgL_testz00_2903)
{ /* ./Eval/eval.scm 431 */
CELL_SET(BgL_armed1045z00_2005, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Eval/eval.scm 431 */
return BFALSE;} } } } } 
}



/* <anonymous:1512> */
obj_t BGl_zc3anonymousza31512ze3z83zz__evalz00(obj_t BgL_envz00_2007)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 431 */
{ /* ./Eval/eval.scm 430 */
obj_t BgL_expdzd2evalzd2_2008;obj_t BgL_xz00_2009;obj_t BgL_ez00_2010;
{ /* ./Eval/eval.scm 430 */
int BgL_auxz00_2907;
BgL_auxz00_2907 = 
(int)(((long)0)); 
BgL_expdzd2evalzd2_2008 = 
PROCEDURE_REF(BgL_envz00_2007, BgL_auxz00_2907); } 
{ /* ./Eval/eval.scm 430 */
int BgL_auxz00_2910;
BgL_auxz00_2910 = 
(int)(((long)1)); 
BgL_xz00_2009 = 
PROCEDURE_REF(BgL_envz00_2007, BgL_auxz00_2910); } 
{ /* ./Eval/eval.scm 430 */
int BgL_auxz00_2913;
BgL_auxz00_2913 = 
(int)(((long)2)); 
BgL_ez00_2010 = 
PROCEDURE_REF(BgL_envz00_2007, BgL_auxz00_2913); } 
{ 

return 
PROCEDURE_ENTRY(BgL_expdzd2evalzd2_2008)(BgL_expdzd2evalzd2_2008, BgL_xz00_2009, BgL_ez00_2010, BEOA);} } } 
}



/* <anonymous:1500> */
obj_t BGl_zc3anonymousza31500ze3z83zz__evalz00(obj_t BgL_envz00_2011)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 431 */
{ /* ./Eval/eval.scm 431 */
obj_t BgL_zc3anonymousza31509ze3z83_2015;obj_t BgL_escapez00_2016;
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2918;
BgL_auxz00_2918 = 
(int)(((long)3)); 
BgL_zc3anonymousza31509ze3z83_2015 = 
PROCEDURE_REF(BgL_envz00_2011, BgL_auxz00_2918); } 
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2921;
BgL_auxz00_2921 = 
(int)(((long)4)); 
BgL_escapez00_2016 = 
PROCEDURE_REF(BgL_envz00_2011, BgL_auxz00_2921); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza31509ze3z83_2015, BgL_escapez00_2016);} } } 
}



/* escape_2928 */
obj_t BGl_escape_2928z00zz__evalz00(obj_t BgL_envz00_2017, obj_t BgL_val1048z00_2019)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 431 */
{ /* ./Eval/eval.scm 431 */
obj_t BgL_an_exitd1047z00_2018;
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2925;
BgL_auxz00_2925 = 
(int)(((long)0)); 
BgL_an_exitd1047z00_2018 = 
PROCEDURE_REF(BgL_envz00_2017, BgL_auxz00_2925); } 
{ 
obj_t BgL_val1048z00_655;
BgL_val1048z00_655 = BgL_val1048z00_2019; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1047z00_2018, BgL_val1048z00_655);} } } 
}



/* <anonymous:1509> */
obj_t BGl_zc3anonymousza31509ze3z83zz__evalz00(obj_t BgL_envz00_2020, obj_t BgL_escz00_2023, obj_t BgL_objz00_2024, obj_t BgL_procz00_2025, obj_t BgL_msgz00_2026)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 431 */
{ /* ./Eval/eval.scm 431 */
obj_t BgL_armed1045z00_2021;obj_t BgL_xz00_2022;
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2929;
BgL_auxz00_2929 = 
(int)(((long)0)); 
BgL_armed1045z00_2021 = 
PROCEDURE_REF(BgL_envz00_2020, BgL_auxz00_2929); } 
{ /* ./Eval/eval.scm 431 */
int BgL_auxz00_2932;
BgL_auxz00_2932 = 
(int)(((long)1)); 
BgL_xz00_2022 = 
PROCEDURE_REF(BgL_envz00_2020, BgL_auxz00_2932); } 
{ 
obj_t BgL_escz00_669;obj_t BgL_objz00_670;obj_t BgL_procz00_671;obj_t BgL_msgz00_672;
BgL_escz00_669 = BgL_escz00_2023; 
BgL_objz00_670 = BgL_objz00_2024; 
BgL_procz00_671 = BgL_procz00_2025; 
BgL_msgz00_672 = BgL_msgz00_2026; 
CELL_SET(BgL_armed1045z00_2021, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
{ /* ./Eval/eval.scm 431 */
obj_t BgL_fun1156z00_1427;
if(
PROCEDUREP(BGl_za2replzd2errorzd2notifierza2z00zz__evalz00))
{ /* ./Eval/eval.scm 431 */
BgL_fun1156z00_1427 = BGl_za2replzd2errorzd2notifierza2z00zz__evalz00; }  else 
{ /* ./Eval/eval.scm 431 */
BgL_fun1156z00_1427 = BGl_defaultzd2replzd2errorzd2notifierzd2envz00zz__evalz00; } 
PROCEDURE_ENTRY(BgL_fun1156z00_1427)(BgL_fun1156z00_1427, BgL_objz00_670, BgL_procz00_671, BgL_msgz00_672, BEOA); } 
FAILURE(BGl_string3463z00zz__evalz00,BGl_string3464z00zz__evalz00,BgL_xz00_2022);} } } 
}



/* expand-define-macro */
BGL_EXPORTED_DEF obj_t BGl_expandzd2definezd2macroz00zz__evalz00(obj_t BgL_xz00_24, obj_t BgL_ez00_25)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 443 */
{ 
obj_t BgL_namez00_680;obj_t BgL_argsz00_681;obj_t BgL_bodyz00_682;
if(
PAIRP(BgL_xz00_24))
{ /* ./Eval/eval.scm 444 */
obj_t BgL_cdrzd2132zd2_687;
BgL_cdrzd2132zd2_687 = 
CDR(BgL_xz00_24); 
if(
PAIRP(BgL_cdrzd2132zd2_687))
{ /* ./Eval/eval.scm 444 */
obj_t BgL_carzd2136zd2_689;
BgL_carzd2136zd2_689 = 
CAR(BgL_cdrzd2132zd2_687); 
if(
PAIRP(BgL_carzd2136zd2_689))
{ /* ./Eval/eval.scm 444 */
BgL_namez00_680 = 
CAR(BgL_carzd2136zd2_689); 
BgL_argsz00_681 = 
CDR(BgL_carzd2136zd2_689); 
BgL_bodyz00_682 = 
CDR(BgL_cdrzd2132zd2_687); 
BgL_tagzd2118zd2_683:
{ /* ./Eval/eval.scm 449 */
obj_t BgL_arg1577z00_709;
{ /* ./Eval/eval.scm 449 */
obj_t BgL_expdzd2lamzd2_710;
{ /* ./Eval/eval.scm 449 */
obj_t BgL_arg1606z00_747;obj_t BgL_arg1607z00_748;
BgL_arg1606z00_747 = BGl_symbol3465z00zz__evalz00; 
{ /* ./Eval/eval.scm 449 */
obj_t BgL_arg1610z00_749;obj_t BgL_arg1611z00_750;
{ /* ./Eval/eval.scm 449 */
obj_t BgL_arg1614z00_751;obj_t BgL_arg1615z00_752;
BgL_arg1614z00_751 = BGl_symbol3466z00zz__evalz00; 
BgL_arg1615z00_752 = 
MAKE_PAIR(BGl_symbol3467z00zz__evalz00, BNIL); 
BgL_arg1610z00_749 = 
MAKE_PAIR(BgL_arg1614z00_751, BgL_arg1615z00_752); } 
{ /* ./Eval/eval.scm 450 */
obj_t BgL_arg1619z00_753;
{ /* ./Eval/eval.scm 450 */
obj_t BgL_arg1623z00_755;obj_t BgL_arg1624z00_756;
BgL_arg1623z00_755 = BGl_symbol3467z00zz__evalz00; 
{ /* ./Eval/eval.scm 450 */
obj_t BgL_arg1627z00_757;obj_t BgL_arg1628z00_758;
{ /* ./Eval/eval.scm 450 */
obj_t BgL_arg1631z00_759;obj_t BgL_arg1632z00_760;
BgL_arg1631z00_759 = BGl_symbol3468z00zz__evalz00; 
{ /* ./Eval/eval.scm 450 */
obj_t BgL_arg1635z00_761;obj_t BgL_arg1636z00_762;
BgL_arg1635z00_761 = 
BGl_destructurez00zz__evalz00(BgL_argsz00_681, BGl_list3469z00zz__evalz00, BNIL); 
{ /* ./Eval/eval.scm 450 */
obj_t BgL_auxz00_2952;
BgL_auxz00_2952 = 
BGl_normaliza7ezd2prognz75zz__prognz00(BgL_bodyz00_682); 
BgL_arg1636z00_762 = 
MAKE_PAIR(BgL_auxz00_2952, BNIL); } 
BgL_arg1632z00_760 = 
MAKE_PAIR(BgL_arg1635z00_761, BgL_arg1636z00_762); } 
BgL_arg1627z00_757 = 
MAKE_PAIR(BgL_arg1631z00_759, BgL_arg1632z00_760); } 
BgL_arg1628z00_758 = 
MAKE_PAIR(BGl_symbol3467z00zz__evalz00, BNIL); 
BgL_arg1624z00_756 = 
MAKE_PAIR(BgL_arg1627z00_757, BgL_arg1628z00_758); } 
BgL_arg1619z00_753 = 
MAKE_PAIR(BgL_arg1623z00_755, BgL_arg1624z00_756); } 
BgL_arg1611z00_750 = 
MAKE_PAIR(BgL_arg1619z00_753, BNIL); } 
BgL_arg1607z00_748 = 
MAKE_PAIR(BgL_arg1610z00_749, BgL_arg1611z00_750); } 
BgL_expdzd2lamzd2_710 = 
MAKE_PAIR(BgL_arg1606z00_747, BgL_arg1607z00_748); } 
{ /* ./Eval/eval.scm 449 */
obj_t BgL_expdzd2lamzf2locz20_711;
BgL_expdzd2lamzf2locz20_711 = 
BGl_replacez12z12zz__prognz00(BgL_xz00_24, BgL_expdzd2lamzd2_710); 
{ /* ./Eval/eval.scm 453 */
obj_t BgL_expdzd2evalzd2_712;
BgL_expdzd2evalzd2_712 = 
BGl_evalz00zz__evalz00(BgL_expdzd2lamzf2locz20_711, BNIL); 
{ /* ./Eval/eval.scm 454 */

{ /* ./Eval/eval.scm 455 */
obj_t BgL_zc3anonymousza31579ze3z83_2033;
{ 
int BgL_auxz00_2967;int BgL_auxz00_2965;
BgL_auxz00_2967 = 
(int)(((long)1)); 
BgL_auxz00_2965 = 
(int)(((long)2)); 
BgL_zc3anonymousza31579ze3z83_2033 = 
make_fx_procedure(BGl_zc3anonymousza31579ze3z83zz__evalz00, BgL_auxz00_2965, BgL_auxz00_2967); } 
{ /* ./Eval/eval.scm 455 */
int BgL_auxz00_2970;
BgL_auxz00_2970 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31579ze3z83_2033, BgL_auxz00_2970, BgL_expdzd2evalzd2_712); } 
BgL_arg1577z00_709 = BgL_zc3anonymousza31579ze3z83_2033; } } } } } 
BGl_installzd2expanderzd2zz__macroz00(BgL_namez00_680, BgL_arg1577z00_709); } 
return BUNSPEC;}  else 
{ /* ./Eval/eval.scm 444 */
obj_t BgL_cdrzd2154zd2_695;
BgL_cdrzd2154zd2_695 = 
CDR(BgL_cdrzd2132zd2_687); 
if(
PAIRP(BgL_cdrzd2154zd2_695))
{ /* ./Eval/eval.scm 444 */
obj_t BgL_carzd2158zd2_697;
BgL_carzd2158zd2_697 = 
CAR(BgL_cdrzd2154zd2_695); 
if(
PAIRP(BgL_carzd2158zd2_697))
{ /* ./Eval/eval.scm 444 */
obj_t BgL_cdrzd2163zd2_699;
BgL_cdrzd2163zd2_699 = 
CDR(BgL_carzd2158zd2_697); 
{ /* ./Eval/eval.scm 444 */
bool_t BgL_testz00_2984;
{ /* ./Eval/eval.scm 444 */
obj_t BgL_auxz00_2985;
BgL_auxz00_2985 = 
CAR(BgL_carzd2158zd2_697); 
BgL_testz00_2984 = 
(BgL_auxz00_2985==BGl_symbol3465z00zz__evalz00); } 
if(BgL_testz00_2984)
{ /* ./Eval/eval.scm 444 */
if(
PAIRP(BgL_cdrzd2163zd2_699))
{ /* ./Eval/eval.scm 444 */
bool_t BgL_testz00_2990;
{ /* ./Eval/eval.scm 444 */
obj_t BgL_auxz00_2991;
BgL_auxz00_2991 = 
CDR(BgL_cdrzd2154zd2_695); 
BgL_testz00_2990 = 
NULLP(BgL_auxz00_2991); } 
if(BgL_testz00_2990)
{ 
obj_t BgL_bodyz00_2998;obj_t BgL_argsz00_2996;obj_t BgL_namez00_2994;
BgL_namez00_2994 = 
CAR(BgL_cdrzd2132zd2_687); 
BgL_argsz00_2996 = 
CAR(BgL_cdrzd2163zd2_699); 
BgL_bodyz00_2998 = 
CDR(BgL_cdrzd2163zd2_699); 
BgL_bodyz00_682 = BgL_bodyz00_2998; 
BgL_argsz00_681 = BgL_argsz00_2996; 
BgL_namez00_680 = BgL_namez00_2994; 
goto BgL_tagzd2118zd2_683;}  else 
{ /* ./Eval/eval.scm 444 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_24);} }  else 
{ /* ./Eval/eval.scm 444 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_24);} }  else 
{ /* ./Eval/eval.scm 444 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_24);} } }  else 
{ /* ./Eval/eval.scm 444 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_24);} }  else 
{ /* ./Eval/eval.scm 444 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_24);} } }  else 
{ /* ./Eval/eval.scm 444 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_24);} }  else 
{ /* ./Eval/eval.scm 444 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_24);} } } 
}



/* _expand-define-macro */
obj_t BGl__expandzd2definezd2macroz00zz__evalz00(obj_t BgL_envz00_2034, obj_t BgL_xz00_2035, obj_t BgL_ez00_2036)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 443 */
return 
BGl_expandzd2definezd2macroz00zz__evalz00(BgL_xz00_2035, BgL_ez00_2036);} 
}



/* <anonymous:1579> */
obj_t BGl_zc3anonymousza31579ze3z83zz__evalz00(obj_t BgL_envz00_2037, obj_t BgL_xz00_2039, obj_t BgL_ez00_2040)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 455 */
{ /* ./Eval/eval.scm 456 */
obj_t BgL_expdzd2evalzd2_2038;
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3008;
BgL_auxz00_3008 = 
(int)(((long)0)); 
BgL_expdzd2evalzd2_2038 = 
PROCEDURE_REF(BgL_envz00_2037, BgL_auxz00_3008); } 
{ 
obj_t BgL_xz00_713;obj_t BgL_ez00_714;
BgL_xz00_713 = BgL_xz00_2039; 
BgL_ez00_714 = BgL_ez00_2040; 
{ /* ./Eval/eval.scm 456 */
obj_t BgL_armed1053z00_716;
BgL_armed1053z00_716 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Eval/eval.scm 458 */
obj_t BgL_zc3anonymousza31597ze3z83_2029;obj_t BgL_zc3anonymousza31600ze3z83_2031;
{ 
int BgL_auxz00_3013;int BgL_auxz00_3011;
BgL_auxz00_3013 = 
(int)(((long)2)); 
BgL_auxz00_3011 = 
(int)(((long)4)); 
BgL_zc3anonymousza31597ze3z83_2029 = 
make_fx_procedure(BGl_zc3anonymousza31597ze3z83zz__evalz00, BgL_auxz00_3011, BgL_auxz00_3013); } 
{ 
int BgL_auxz00_3018;int BgL_auxz00_3016;
BgL_auxz00_3018 = 
(int)(((long)3)); 
BgL_auxz00_3016 = 
(int)(((long)0)); 
BgL_zc3anonymousza31600ze3z83_2031 = 
make_fx_procedure(BGl_zc3anonymousza31600ze3z83zz__evalz00, BgL_auxz00_3016, BgL_auxz00_3018); } 
{ /* ./Eval/eval.scm 458 */
int BgL_auxz00_3021;
BgL_auxz00_3021 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31597ze3z83_2029, BgL_auxz00_3021, BgL_armed1053z00_716); } 
{ /* ./Eval/eval.scm 458 */
int BgL_auxz00_3024;
BgL_auxz00_3024 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31597ze3z83_2029, BgL_auxz00_3024, BgL_xz00_713); } 
{ /* ./Eval/eval.scm 458 */
int BgL_auxz00_3027;
BgL_auxz00_3027 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31600ze3z83_2031, BgL_auxz00_3027, BgL_expdzd2evalzd2_2038); } 
{ /* ./Eval/eval.scm 458 */
int BgL_auxz00_3030;
BgL_auxz00_3030 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31600ze3z83_2031, BgL_auxz00_3030, BgL_xz00_713); } 
{ /* ./Eval/eval.scm 458 */
int BgL_auxz00_3033;
BgL_auxz00_3033 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31600ze3z83_2031, BgL_auxz00_3033, BgL_ez00_714); } 
CELL_SET(BgL_armed1053z00_716, BTRUE); 
return 
BGl_zc3exitza31580ze3z83zz__evalz00(BgL_zc3anonymousza31600ze3z83_2031, BgL_zc3anonymousza31597ze3z83_2029, BgL_xz00_713, BgL_armed1053z00_716);} } } } } 
}



/* <exit:1580> */
obj_t BGl_zc3exitza31580ze3z83zz__evalz00(obj_t BgL_zc3anonymousza31600ze3z83_2155, obj_t BgL_zc3anonymousza31597ze3z83_2154, obj_t BgL_xz00_2153, obj_t BgL_armed1053z00_2152)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 456 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1054z00_721;
if( SET_EXIT(BgL_an_exit1054z00_721) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1054z00_721 = 
(obj_t)jmpbuf; 
{ /* ./Eval/eval.scm 456 */

PUSH_EXIT(BgL_an_exit1054z00_721, ((bool_t)1)); 
{ /* ./Eval/eval.scm 456 */
obj_t BgL_an_exitd1055z00_722;
BgL_an_exitd1055z00_722 = 
BGL_EXITD_TOP(); 
{ /* ./Eval/eval.scm 456 */
obj_t BgL_escapez00_2028;
{ 
int BgL_auxz00_3043;int BgL_auxz00_3041;
BgL_auxz00_3043 = 
(int)(((long)1)); 
BgL_auxz00_3041 = 
(int)(((long)1)); 
BgL_escapez00_2028 = 
make_fx_procedure(BGl_escape_2945z00zz__evalz00, BgL_auxz00_3041, BgL_auxz00_3043); } 
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3046;
BgL_auxz00_3046 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_2028, BgL_auxz00_3046, BgL_an_exitd1055z00_722); } 
{ /* ./Eval/eval.scm 456 */
obj_t BgL_res1057z00_725;
{ /* ./Eval/eval.scm 456 */
obj_t BgL_zc3anonymousza31590ze3z83_2032;obj_t BgL_zc3anonymousza31588ze3z83_2030;
{ 
int BgL_auxz00_3051;int BgL_auxz00_3049;
BgL_auxz00_3051 = 
(int)(((long)1)); 
BgL_auxz00_3049 = 
(int)(((long)0)); 
BgL_zc3anonymousza31590ze3z83_2032 = 
make_fx_procedure(BGl_zc3anonymousza31590ze3z83zz__evalz00, BgL_auxz00_3049, BgL_auxz00_3051); } 
{ 
int BgL_auxz00_3056;int BgL_auxz00_3054;
BgL_auxz00_3056 = 
(int)(((long)5)); 
BgL_auxz00_3054 = 
(int)(((long)0)); 
BgL_zc3anonymousza31588ze3z83_2030 = 
make_fx_procedure(BGl_zc3anonymousza31588ze3z83zz__evalz00, BgL_auxz00_3054, BgL_auxz00_3056); } 
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3059;
BgL_auxz00_3059 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31590ze3z83_2032, BgL_auxz00_3059, BgL_armed1053z00_2152); } 
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3062;
BgL_auxz00_3062 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31588ze3z83_2030, BgL_auxz00_3062, BgL_an_exitd1055z00_722); } 
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3065;
BgL_auxz00_3065 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31588ze3z83_2030, BgL_auxz00_3065, BgL_armed1053z00_2152); } 
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3068;
BgL_auxz00_3068 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31588ze3z83_2030, BgL_auxz00_3068, BgL_xz00_2153); } 
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3071;
BgL_auxz00_3071 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31588ze3z83_2030, BgL_auxz00_3071, BgL_zc3anonymousza31597ze3z83_2154); } 
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3074;
BgL_auxz00_3074 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31588ze3z83_2030, BgL_auxz00_3074, BgL_escapez00_2028); } 
BgL_res1057z00_725 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31588ze3z83_2030, BgL_zc3anonymousza31600ze3z83_2155, BgL_zc3anonymousza31590ze3z83_2032); } 
POP_EXIT(); 
return BgL_res1057z00_725;} } } } 
} } 
}



/* <anonymous:1590> */
obj_t BGl_zc3anonymousza31590ze3z83zz__evalz00(obj_t BgL_envz00_2042)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 456 */
{ /* ./Eval/eval.scm 456 */
obj_t BgL_armed1053z00_2043;
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3079;
BgL_auxz00_3079 = 
(int)(((long)0)); 
BgL_armed1053z00_2043 = 
PROCEDURE_REF(BgL_envz00_2042, BgL_auxz00_3079); } 
{ 

{ /* ./Eval/eval.scm 456 */
bool_t BgL_testz00_3082;
{ /* ./Eval/eval.scm 456 */
obj_t BgL_auxz00_3083;
BgL_auxz00_3083 = 
CELL_REF(BgL_armed1053z00_2043); 
BgL_testz00_3082 = 
CBOOL(BgL_auxz00_3083); } 
if(BgL_testz00_3082)
{ /* ./Eval/eval.scm 456 */
CELL_SET(BgL_armed1053z00_2043, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Eval/eval.scm 456 */
return BFALSE;} } } } } 
}



/* <anonymous:1600> */
obj_t BGl_zc3anonymousza31600ze3z83zz__evalz00(obj_t BgL_envz00_2045)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 456 */
{ /* ./Eval/eval.scm 456 */
obj_t BgL_expdzd2evalzd2_2046;obj_t BgL_xz00_2047;obj_t BgL_ez00_2048;
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3086;
BgL_auxz00_3086 = 
(int)(((long)0)); 
BgL_expdzd2evalzd2_2046 = 
PROCEDURE_REF(BgL_envz00_2045, BgL_auxz00_3086); } 
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3089;
BgL_auxz00_3089 = 
(int)(((long)1)); 
BgL_xz00_2047 = 
PROCEDURE_REF(BgL_envz00_2045, BgL_auxz00_3089); } 
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3092;
BgL_auxz00_3092 = 
(int)(((long)2)); 
BgL_ez00_2048 = 
PROCEDURE_REF(BgL_envz00_2045, BgL_auxz00_3092); } 
{ 

return 
PROCEDURE_ENTRY(BgL_expdzd2evalzd2_2046)(BgL_expdzd2evalzd2_2046, BgL_xz00_2047, BgL_ez00_2048, BEOA);} } } 
}



/* <anonymous:1588> */
obj_t BGl_zc3anonymousza31588ze3z83zz__evalz00(obj_t BgL_envz00_2049)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 456 */
{ /* ./Eval/eval.scm 456 */
obj_t BgL_zc3anonymousza31597ze3z83_2053;obj_t BgL_escapez00_2054;
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3097;
BgL_auxz00_3097 = 
(int)(((long)3)); 
BgL_zc3anonymousza31597ze3z83_2053 = 
PROCEDURE_REF(BgL_envz00_2049, BgL_auxz00_3097); } 
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3100;
BgL_auxz00_3100 = 
(int)(((long)4)); 
BgL_escapez00_2054 = 
PROCEDURE_REF(BgL_envz00_2049, BgL_auxz00_3100); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza31597ze3z83_2053, BgL_escapez00_2054);} } } 
}



/* escape_2945 */
obj_t BGl_escape_2945z00zz__evalz00(obj_t BgL_envz00_2055, obj_t BgL_val1056z00_2057)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 456 */
{ /* ./Eval/eval.scm 456 */
obj_t BgL_an_exitd1055z00_2056;
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3104;
BgL_auxz00_3104 = 
(int)(((long)0)); 
BgL_an_exitd1055z00_2056 = 
PROCEDURE_REF(BgL_envz00_2055, BgL_auxz00_3104); } 
{ 
obj_t BgL_val1056z00_723;
BgL_val1056z00_723 = BgL_val1056z00_2057; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1055z00_2056, BgL_val1056z00_723);} } } 
}



/* <anonymous:1597> */
obj_t BGl_zc3anonymousza31597ze3z83zz__evalz00(obj_t BgL_envz00_2058, obj_t BgL_escz00_2061, obj_t BgL_objz00_2062, obj_t BgL_procz00_2063, obj_t BgL_msgz00_2064)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 456 */
{ /* ./Eval/eval.scm 456 */
obj_t BgL_armed1053z00_2059;obj_t BgL_xz00_2060;
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3108;
BgL_auxz00_3108 = 
(int)(((long)0)); 
BgL_armed1053z00_2059 = 
PROCEDURE_REF(BgL_envz00_2058, BgL_auxz00_3108); } 
{ /* ./Eval/eval.scm 456 */
int BgL_auxz00_3111;
BgL_auxz00_3111 = 
(int)(((long)1)); 
BgL_xz00_2060 = 
PROCEDURE_REF(BgL_envz00_2058, BgL_auxz00_3111); } 
{ 
obj_t BgL_escz00_737;obj_t BgL_objz00_738;obj_t BgL_procz00_739;obj_t BgL_msgz00_740;
BgL_escz00_737 = BgL_escz00_2061; 
BgL_objz00_738 = BgL_objz00_2062; 
BgL_procz00_739 = BgL_procz00_2063; 
BgL_msgz00_740 = BgL_msgz00_2064; 
CELL_SET(BgL_armed1053z00_2059, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
{ /* ./Eval/eval.scm 456 */
obj_t BgL_fun1156z00_1501;
if(
PROCEDUREP(BGl_za2replzd2errorzd2notifierza2z00zz__evalz00))
{ /* ./Eval/eval.scm 456 */
BgL_fun1156z00_1501 = BGl_za2replzd2errorzd2notifierza2z00zz__evalz00; }  else 
{ /* ./Eval/eval.scm 456 */
BgL_fun1156z00_1501 = BGl_defaultzd2replzd2errorzd2notifierzd2envz00zz__evalz00; } 
PROCEDURE_ENTRY(BgL_fun1156z00_1501)(BgL_fun1156z00_1501, BgL_objz00_738, BgL_procz00_739, BgL_msgz00_740, BEOA); } 
FAILURE(BGl_string3463z00zz__evalz00,BGl_string3464z00zz__evalz00,BgL_xz00_2060);} } } 
}



/* expand-define-hygiene-macro */
BGL_EXPORTED_DEF obj_t BGl_expandzd2definezd2hygienezd2macrozd2zz__evalz00(obj_t BgL_xz00_26, obj_t BgL_ez00_27)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 469 */
{ 
obj_t BgL_namez00_765;obj_t BgL_argsz00_766;obj_t BgL_bodyz00_767;
if(
PAIRP(BgL_xz00_26))
{ /* ./Eval/eval.scm 470 */
obj_t BgL_cdrzd2186zd2_772;
BgL_cdrzd2186zd2_772 = 
CDR(BgL_xz00_26); 
if(
PAIRP(BgL_cdrzd2186zd2_772))
{ /* ./Eval/eval.scm 470 */
obj_t BgL_carzd2190zd2_774;
BgL_carzd2190zd2_774 = 
CAR(BgL_cdrzd2186zd2_772); 
if(
PAIRP(BgL_carzd2190zd2_774))
{ /* ./Eval/eval.scm 470 */
obj_t BgL_cdrzd2195zd2_776;
BgL_cdrzd2195zd2_776 = 
CDR(BgL_carzd2190zd2_774); 
{ /* ./Eval/eval.scm 470 */
bool_t BgL_testz00_3129;
{ /* ./Eval/eval.scm 470 */
obj_t BgL_auxz00_3130;
BgL_auxz00_3130 = 
CAR(BgL_carzd2190zd2_774); 
BgL_testz00_3129 = 
(BgL_auxz00_3130==BGl_symbol3473z00zz__evalz00); } 
if(BgL_testz00_3129)
{ /* ./Eval/eval.scm 470 */
if(
PAIRP(BgL_cdrzd2195zd2_776))
{ /* ./Eval/eval.scm 470 */
obj_t BgL_carzd2198zd2_779;
BgL_carzd2198zd2_779 = 
CAR(BgL_cdrzd2195zd2_776); 
if(
PAIRP(BgL_carzd2198zd2_779))
{ /* ./Eval/eval.scm 470 */
bool_t BgL_testz00_3138;
{ /* ./Eval/eval.scm 470 */
obj_t BgL_auxz00_3139;
BgL_auxz00_3139 = 
CDR(BgL_cdrzd2195zd2_776); 
BgL_testz00_3138 = 
NULLP(BgL_auxz00_3139); } 
if(BgL_testz00_3138)
{ /* ./Eval/eval.scm 470 */
BgL_namez00_765 = 
CAR(BgL_carzd2198zd2_779); 
BgL_argsz00_766 = 
CDR(BgL_carzd2198zd2_779); 
BgL_bodyz00_767 = 
CDR(BgL_cdrzd2186zd2_772); 
{ /* ./Eval/eval.scm 472 */
obj_t BgL_bodyz00_788;
if(
NULLP(BgL_bodyz00_767))
{ /* ./Eval/eval.scm 472 */
BgL_bodyz00_788 = BNIL; }  else 
{ /* ./Eval/eval.scm 472 */
obj_t BgL_head1060z00_847;
{ /* ./Eval/eval.scm 472 */
obj_t BgL_auxz00_3144;
{ /* ./Eval/eval.scm 472 */
obj_t BgL_auxz00_3145;
{ /* ./Eval/eval.scm 472 */
obj_t BgL_auxz00_3146;
BgL_auxz00_3146 = 
CAR(BgL_bodyz00_767); 
BgL_auxz00_3145 = 
CDR(BgL_auxz00_3146); } 
BgL_auxz00_3144 = 
CAR(BgL_auxz00_3145); } 
BgL_head1060z00_847 = 
MAKE_PAIR(BgL_auxz00_3144, BNIL); } 
{ /* ./Eval/eval.scm 472 */
obj_t BgL_arg1762z00_851;
BgL_arg1762z00_851 = 
CDR(BgL_bodyz00_767); 
{ 
obj_t BgL_l1058z00_1557;obj_t BgL_tail1061z00_1558;
BgL_l1058z00_1557 = BgL_arg1762z00_851; 
BgL_tail1061z00_1558 = BgL_head1060z00_847; 
BgL_map1059z00_1556:
if(
NULLP(BgL_l1058z00_1557))
{ /* ./Eval/eval.scm 472 */
BgL_bodyz00_788 = BgL_head1060z00_847; }  else 
{ /* ./Eval/eval.scm 472 */
obj_t BgL_newtail1062z00_1566;
{ /* ./Eval/eval.scm 472 */
obj_t BgL_auxz00_3154;
{ /* ./Eval/eval.scm 472 */
obj_t BgL_auxz00_3155;
{ /* ./Eval/eval.scm 472 */
obj_t BgL_auxz00_3156;
BgL_auxz00_3156 = 
CAR(BgL_l1058z00_1557); 
BgL_auxz00_3155 = 
CDR(BgL_auxz00_3156); } 
BgL_auxz00_3154 = 
CAR(BgL_auxz00_3155); } 
BgL_newtail1062z00_1566 = 
MAKE_PAIR(BgL_auxz00_3154, BNIL); } 
SET_CDR(BgL_tail1061z00_1558, BgL_newtail1062z00_1566); 
{ 
obj_t BgL_tail1061z00_3164;obj_t BgL_l1058z00_3162;
BgL_l1058z00_3162 = 
CDR(BgL_l1058z00_1557); 
BgL_tail1061z00_3164 = BgL_newtail1062z00_1566; 
BgL_tail1061z00_1558 = BgL_tail1061z00_3164; 
BgL_l1058z00_1557 = BgL_l1058z00_3162; 
goto BgL_map1059z00_1556;} } } } } 
{ /* ./Eval/eval.scm 475 */
obj_t BgL_arg1688z00_789;
{ /* ./Eval/eval.scm 475 */
obj_t BgL_expdzd2lamzd2_790;
{ /* ./Eval/eval.scm 475 */
obj_t BgL_arg1717z00_827;obj_t BgL_arg1718z00_828;
BgL_arg1717z00_827 = BGl_symbol3465z00zz__evalz00; 
{ /* ./Eval/eval.scm 475 */
obj_t BgL_arg1721z00_829;obj_t BgL_arg1722z00_830;
{ /* ./Eval/eval.scm 475 */
obj_t BgL_arg1725z00_831;obj_t BgL_arg1726z00_832;
BgL_arg1725z00_831 = BGl_symbol3466z00zz__evalz00; 
BgL_arg1726z00_832 = 
MAKE_PAIR(BGl_symbol3467z00zz__evalz00, BNIL); 
BgL_arg1721z00_829 = 
MAKE_PAIR(BgL_arg1725z00_831, BgL_arg1726z00_832); } 
{ /* ./Eval/eval.scm 476 */
obj_t BgL_arg1731z00_833;
{ /* ./Eval/eval.scm 476 */
obj_t BgL_arg1735z00_835;obj_t BgL_arg1736z00_836;
BgL_arg1735z00_835 = BGl_symbol3467z00zz__evalz00; 
{ /* ./Eval/eval.scm 476 */
obj_t BgL_arg1739z00_837;obj_t BgL_arg1740z00_838;
{ /* ./Eval/eval.scm 476 */
obj_t BgL_arg1743z00_839;obj_t BgL_arg1744z00_840;
BgL_arg1743z00_839 = BGl_symbol3468z00zz__evalz00; 
{ /* ./Eval/eval.scm 476 */
obj_t BgL_arg1748z00_841;obj_t BgL_arg1749z00_842;
BgL_arg1748z00_841 = 
BGl_destructurez00zz__evalz00(BgL_argsz00_766, BGl_list3469z00zz__evalz00, BNIL); 
{ /* ./Eval/eval.scm 476 */
obj_t BgL_auxz00_3168;
BgL_auxz00_3168 = 
BGl_normaliza7ezd2prognz75zz__prognz00(BgL_bodyz00_788); 
BgL_arg1749z00_842 = 
MAKE_PAIR(BgL_auxz00_3168, BNIL); } 
BgL_arg1744z00_840 = 
MAKE_PAIR(BgL_arg1748z00_841, BgL_arg1749z00_842); } 
BgL_arg1739z00_837 = 
MAKE_PAIR(BgL_arg1743z00_839, BgL_arg1744z00_840); } 
BgL_arg1740z00_838 = 
MAKE_PAIR(BGl_symbol3467z00zz__evalz00, BNIL); 
BgL_arg1736z00_836 = 
MAKE_PAIR(BgL_arg1739z00_837, BgL_arg1740z00_838); } 
BgL_arg1731z00_833 = 
MAKE_PAIR(BgL_arg1735z00_835, BgL_arg1736z00_836); } 
BgL_arg1722z00_830 = 
MAKE_PAIR(BgL_arg1731z00_833, BNIL); } 
BgL_arg1718z00_828 = 
MAKE_PAIR(BgL_arg1721z00_829, BgL_arg1722z00_830); } 
BgL_expdzd2lamzd2_790 = 
MAKE_PAIR(BgL_arg1717z00_827, BgL_arg1718z00_828); } 
{ /* ./Eval/eval.scm 475 */
obj_t BgL_expdzd2lamzf2locz20_791;
BgL_expdzd2lamzf2locz20_791 = 
BGl_replacez12z12zz__prognz00(BgL_xz00_26, BgL_expdzd2lamzd2_790); 
{ /* ./Eval/eval.scm 479 */
obj_t BgL_expdzd2evalzd2_792;
BgL_expdzd2evalzd2_792 = 
BGl_evalz00zz__evalz00(BgL_expdzd2lamzf2locz20_791, BNIL); 
{ /* ./Eval/eval.scm 480 */

{ /* ./Eval/eval.scm 481 */
obj_t BgL_zc3anonymousza31690ze3z83_2071;
{ 
int BgL_auxz00_3183;int BgL_auxz00_3181;
BgL_auxz00_3183 = 
(int)(((long)1)); 
BgL_auxz00_3181 = 
(int)(((long)2)); 
BgL_zc3anonymousza31690ze3z83_2071 = 
make_fx_procedure(BGl_zc3anonymousza31690ze3z83zz__evalz00, BgL_auxz00_3181, BgL_auxz00_3183); } 
{ /* ./Eval/eval.scm 481 */
int BgL_auxz00_3186;
BgL_auxz00_3186 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31690ze3z83_2071, BgL_auxz00_3186, BgL_expdzd2evalzd2_792); } 
BgL_arg1688z00_789 = BgL_zc3anonymousza31690ze3z83_2071; } } } } } 
BGl_installzd2expanderzd2zz__macroz00(BgL_namez00_765, BgL_arg1688z00_789); } 
return BUNSPEC;} }  else 
{ /* ./Eval/eval.scm 470 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_26);} }  else 
{ /* ./Eval/eval.scm 470 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_26);} }  else 
{ /* ./Eval/eval.scm 470 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_26);} }  else 
{ /* ./Eval/eval.scm 470 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_26);} } }  else 
{ /* ./Eval/eval.scm 470 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_26);} }  else 
{ /* ./Eval/eval.scm 470 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_26);} }  else 
{ /* ./Eval/eval.scm 470 */
FAILURE(BGl_string3471z00zz__evalz00,BGl_string3472z00zz__evalz00,BgL_xz00_26);} } } 
}



/* _expand-define-hygiene-macro */
obj_t BGl__expandzd2definezd2hygienezd2macrozd2zz__evalz00(obj_t BgL_envz00_2072, obj_t BgL_xz00_2073, obj_t BgL_ez00_2074)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 469 */
return 
BGl_expandzd2definezd2hygienezd2macrozd2zz__evalz00(BgL_xz00_2073, BgL_ez00_2074);} 
}



/* <anonymous:1690> */
obj_t BGl_zc3anonymousza31690ze3z83zz__evalz00(obj_t BgL_envz00_2075, obj_t BgL_xz00_2077, obj_t BgL_ez00_2078)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 481 */
{ /* ./Eval/eval.scm 482 */
obj_t BgL_expdzd2evalzd2_2076;
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3201;
BgL_auxz00_3201 = 
(int)(((long)0)); 
BgL_expdzd2evalzd2_2076 = 
PROCEDURE_REF(BgL_envz00_2075, BgL_auxz00_3201); } 
{ 
obj_t BgL_xz00_793;obj_t BgL_ez00_794;
BgL_xz00_793 = BgL_xz00_2077; 
BgL_ez00_794 = BgL_ez00_2078; 
{ /* ./Eval/eval.scm 482 */
obj_t BgL_armed1066z00_796;
BgL_armed1066z00_796 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Eval/eval.scm 484 */
obj_t BgL_zc3anonymousza31708ze3z83_2067;obj_t BgL_zc3anonymousza31711ze3z83_2069;
{ 
int BgL_auxz00_3206;int BgL_auxz00_3204;
BgL_auxz00_3206 = 
(int)(((long)2)); 
BgL_auxz00_3204 = 
(int)(((long)4)); 
BgL_zc3anonymousza31708ze3z83_2067 = 
make_fx_procedure(BGl_zc3anonymousza31708ze3z83zz__evalz00, BgL_auxz00_3204, BgL_auxz00_3206); } 
{ 
int BgL_auxz00_3211;int BgL_auxz00_3209;
BgL_auxz00_3211 = 
(int)(((long)3)); 
BgL_auxz00_3209 = 
(int)(((long)0)); 
BgL_zc3anonymousza31711ze3z83_2069 = 
make_fx_procedure(BGl_zc3anonymousza31711ze3z83zz__evalz00, BgL_auxz00_3209, BgL_auxz00_3211); } 
{ /* ./Eval/eval.scm 484 */
int BgL_auxz00_3214;
BgL_auxz00_3214 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31708ze3z83_2067, BgL_auxz00_3214, BgL_armed1066z00_796); } 
{ /* ./Eval/eval.scm 484 */
int BgL_auxz00_3217;
BgL_auxz00_3217 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31708ze3z83_2067, BgL_auxz00_3217, BgL_xz00_793); } 
{ /* ./Eval/eval.scm 484 */
int BgL_auxz00_3220;
BgL_auxz00_3220 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31711ze3z83_2069, BgL_auxz00_3220, BgL_expdzd2evalzd2_2076); } 
{ /* ./Eval/eval.scm 484 */
int BgL_auxz00_3223;
BgL_auxz00_3223 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31711ze3z83_2069, BgL_auxz00_3223, BgL_xz00_793); } 
{ /* ./Eval/eval.scm 484 */
int BgL_auxz00_3226;
BgL_auxz00_3226 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31711ze3z83_2069, BgL_auxz00_3226, BgL_ez00_794); } 
CELL_SET(BgL_armed1066z00_796, BTRUE); 
return 
BGl_zc3exitza31691ze3z83zz__evalz00(BgL_zc3anonymousza31711ze3z83_2069, BgL_zc3anonymousza31708ze3z83_2067, BgL_xz00_793, BgL_armed1066z00_796);} } } } } 
}



/* <exit:1691> */
obj_t BGl_zc3exitza31691ze3z83zz__evalz00(obj_t BgL_zc3anonymousza31711ze3z83_2151, obj_t BgL_zc3anonymousza31708ze3z83_2150, obj_t BgL_xz00_2149, obj_t BgL_armed1066z00_2148)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 482 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1067z00_801;
if( SET_EXIT(BgL_an_exit1067z00_801) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1067z00_801 = 
(obj_t)jmpbuf; 
{ /* ./Eval/eval.scm 482 */

PUSH_EXIT(BgL_an_exit1067z00_801, ((bool_t)1)); 
{ /* ./Eval/eval.scm 482 */
obj_t BgL_an_exitd1068z00_802;
BgL_an_exitd1068z00_802 = 
BGL_EXITD_TOP(); 
{ /* ./Eval/eval.scm 482 */
obj_t BgL_escapez00_2066;
{ 
int BgL_auxz00_3236;int BgL_auxz00_3234;
BgL_auxz00_3236 = 
(int)(((long)1)); 
BgL_auxz00_3234 = 
(int)(((long)1)); 
BgL_escapez00_2066 = 
make_fx_procedure(BGl_escape_2960z00zz__evalz00, BgL_auxz00_3234, BgL_auxz00_3236); } 
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3239;
BgL_auxz00_3239 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_2066, BgL_auxz00_3239, BgL_an_exitd1068z00_802); } 
{ /* ./Eval/eval.scm 482 */
obj_t BgL_res1070z00_805;
{ /* ./Eval/eval.scm 482 */
obj_t BgL_zc3anonymousza31701ze3z83_2070;obj_t BgL_zc3anonymousza31699ze3z83_2068;
{ 
int BgL_auxz00_3244;int BgL_auxz00_3242;
BgL_auxz00_3244 = 
(int)(((long)1)); 
BgL_auxz00_3242 = 
(int)(((long)0)); 
BgL_zc3anonymousza31701ze3z83_2070 = 
make_fx_procedure(BGl_zc3anonymousza31701ze3z83zz__evalz00, BgL_auxz00_3242, BgL_auxz00_3244); } 
{ 
int BgL_auxz00_3249;int BgL_auxz00_3247;
BgL_auxz00_3249 = 
(int)(((long)5)); 
BgL_auxz00_3247 = 
(int)(((long)0)); 
BgL_zc3anonymousza31699ze3z83_2068 = 
make_fx_procedure(BGl_zc3anonymousza31699ze3z83zz__evalz00, BgL_auxz00_3247, BgL_auxz00_3249); } 
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3252;
BgL_auxz00_3252 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31701ze3z83_2070, BgL_auxz00_3252, BgL_armed1066z00_2148); } 
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3255;
BgL_auxz00_3255 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31699ze3z83_2068, BgL_auxz00_3255, BgL_an_exitd1068z00_802); } 
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3258;
BgL_auxz00_3258 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31699ze3z83_2068, BgL_auxz00_3258, BgL_armed1066z00_2148); } 
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3261;
BgL_auxz00_3261 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31699ze3z83_2068, BgL_auxz00_3261, BgL_xz00_2149); } 
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3264;
BgL_auxz00_3264 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31699ze3z83_2068, BgL_auxz00_3264, BgL_zc3anonymousza31708ze3z83_2150); } 
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3267;
BgL_auxz00_3267 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31699ze3z83_2068, BgL_auxz00_3267, BgL_escapez00_2066); } 
BgL_res1070z00_805 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31699ze3z83_2068, BgL_zc3anonymousza31711ze3z83_2151, BgL_zc3anonymousza31701ze3z83_2070); } 
POP_EXIT(); 
return BgL_res1070z00_805;} } } } 
} } 
}



/* <anonymous:1701> */
obj_t BGl_zc3anonymousza31701ze3z83zz__evalz00(obj_t BgL_envz00_2080)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 482 */
{ /* ./Eval/eval.scm 482 */
obj_t BgL_armed1066z00_2081;
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3272;
BgL_auxz00_3272 = 
(int)(((long)0)); 
BgL_armed1066z00_2081 = 
PROCEDURE_REF(BgL_envz00_2080, BgL_auxz00_3272); } 
{ 

{ /* ./Eval/eval.scm 482 */
bool_t BgL_testz00_3275;
{ /* ./Eval/eval.scm 482 */
obj_t BgL_auxz00_3276;
BgL_auxz00_3276 = 
CELL_REF(BgL_armed1066z00_2081); 
BgL_testz00_3275 = 
CBOOL(BgL_auxz00_3276); } 
if(BgL_testz00_3275)
{ /* ./Eval/eval.scm 482 */
CELL_SET(BgL_armed1066z00_2081, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Eval/eval.scm 482 */
return BFALSE;} } } } } 
}



/* <anonymous:1711> */
obj_t BGl_zc3anonymousza31711ze3z83zz__evalz00(obj_t BgL_envz00_2083)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 482 */
{ /* ./Eval/eval.scm 482 */
obj_t BgL_expdzd2evalzd2_2084;obj_t BgL_xz00_2085;obj_t BgL_ez00_2086;
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3279;
BgL_auxz00_3279 = 
(int)(((long)0)); 
BgL_expdzd2evalzd2_2084 = 
PROCEDURE_REF(BgL_envz00_2083, BgL_auxz00_3279); } 
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3282;
BgL_auxz00_3282 = 
(int)(((long)1)); 
BgL_xz00_2085 = 
PROCEDURE_REF(BgL_envz00_2083, BgL_auxz00_3282); } 
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3285;
BgL_auxz00_3285 = 
(int)(((long)2)); 
BgL_ez00_2086 = 
PROCEDURE_REF(BgL_envz00_2083, BgL_auxz00_3285); } 
{ 

return 
PROCEDURE_ENTRY(BgL_expdzd2evalzd2_2084)(BgL_expdzd2evalzd2_2084, BgL_xz00_2085, BgL_ez00_2086, BEOA);} } } 
}



/* <anonymous:1699> */
obj_t BGl_zc3anonymousza31699ze3z83zz__evalz00(obj_t BgL_envz00_2087)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 482 */
{ /* ./Eval/eval.scm 482 */
obj_t BgL_zc3anonymousza31708ze3z83_2091;obj_t BgL_escapez00_2092;
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3290;
BgL_auxz00_3290 = 
(int)(((long)3)); 
BgL_zc3anonymousza31708ze3z83_2091 = 
PROCEDURE_REF(BgL_envz00_2087, BgL_auxz00_3290); } 
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3293;
BgL_auxz00_3293 = 
(int)(((long)4)); 
BgL_escapez00_2092 = 
PROCEDURE_REF(BgL_envz00_2087, BgL_auxz00_3293); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza31708ze3z83_2091, BgL_escapez00_2092);} } } 
}



/* escape_2960 */
obj_t BGl_escape_2960z00zz__evalz00(obj_t BgL_envz00_2093, obj_t BgL_val1069z00_2095)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 482 */
{ /* ./Eval/eval.scm 482 */
obj_t BgL_an_exitd1068z00_2094;
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3297;
BgL_auxz00_3297 = 
(int)(((long)0)); 
BgL_an_exitd1068z00_2094 = 
PROCEDURE_REF(BgL_envz00_2093, BgL_auxz00_3297); } 
{ 
obj_t BgL_val1069z00_803;
BgL_val1069z00_803 = BgL_val1069z00_2095; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1068z00_2094, BgL_val1069z00_803);} } } 
}



/* <anonymous:1708> */
obj_t BGl_zc3anonymousza31708ze3z83zz__evalz00(obj_t BgL_envz00_2096, obj_t BgL_escz00_2099, obj_t BgL_objz00_2100, obj_t BgL_procz00_2101, obj_t BgL_msgz00_2102)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 482 */
{ /* ./Eval/eval.scm 482 */
obj_t BgL_armed1066z00_2097;obj_t BgL_xz00_2098;
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3301;
BgL_auxz00_3301 = 
(int)(((long)0)); 
BgL_armed1066z00_2097 = 
PROCEDURE_REF(BgL_envz00_2096, BgL_auxz00_3301); } 
{ /* ./Eval/eval.scm 482 */
int BgL_auxz00_3304;
BgL_auxz00_3304 = 
(int)(((long)1)); 
BgL_xz00_2098 = 
PROCEDURE_REF(BgL_envz00_2096, BgL_auxz00_3304); } 
{ 
obj_t BgL_escz00_817;obj_t BgL_objz00_818;obj_t BgL_procz00_819;obj_t BgL_msgz00_820;
BgL_escz00_817 = BgL_escz00_2099; 
BgL_objz00_818 = BgL_objz00_2100; 
BgL_procz00_819 = BgL_procz00_2101; 
BgL_msgz00_820 = BgL_msgz00_2102; 
CELL_SET(BgL_armed1066z00_2097, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
{ /* ./Eval/eval.scm 482 */
obj_t BgL_fun1156z00_1634;
if(
PROCEDUREP(BGl_za2replzd2errorzd2notifierza2z00zz__evalz00))
{ /* ./Eval/eval.scm 482 */
BgL_fun1156z00_1634 = BGl_za2replzd2errorzd2notifierza2z00zz__evalz00; }  else 
{ /* ./Eval/eval.scm 482 */
BgL_fun1156z00_1634 = BGl_defaultzd2replzd2errorzd2notifierzd2envz00zz__evalz00; } 
PROCEDURE_ENTRY(BgL_fun1156z00_1634)(BgL_fun1156z00_1634, BgL_objz00_818, BgL_procz00_819, BgL_msgz00_820, BEOA); } 
FAILURE(BGl_string3463z00zz__evalz00,BGl_string3464z00zz__evalz00,BgL_xz00_2098);} } } 
}



/* destructure */
obj_t BGl_destructurez00zz__evalz00(obj_t BgL_patz00_28, obj_t BgL_argz00_29, obj_t BgL_bindingsz00_30)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 495 */
BGl_destructurez00zz__evalz00:
if(
NULLP(BgL_patz00_28))
{ /* ./Eval/eval.scm 497 */
{ /* ./Eval/eval.scm 498 */
obj_t BgL_arg1792z00_862;
{ /* ./Eval/eval.scm 498 */
obj_t BgL_arg1795z00_863;obj_t BgL_arg1796z00_864;
BgL_arg1795z00_863 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol3474z00zz__evalz00, BEOA); 
{ /* ./Eval/eval.scm 499 */
obj_t BgL_arg1800z00_865;
{ /* ./Eval/eval.scm 499 */
obj_t BgL_arg1804z00_867;obj_t BgL_arg1805z00_868;
BgL_arg1804z00_867 = BGl_symbol3475z00zz__evalz00; 
{ /* ./Eval/eval.scm 499 */
obj_t BgL_arg1809z00_869;obj_t BgL_arg1810z00_870;
{ /* ./Eval/eval.scm 499 */
obj_t BgL_arg1813z00_871;obj_t BgL_arg1815z00_872;
BgL_arg1813z00_871 = BGl_symbol3476z00zz__evalz00; 
{ /* ./Eval/eval.scm 499 */
obj_t BgL_arg1818z00_873;
{ /* ./Eval/eval.scm 499 */
obj_t BgL_arg1824z00_875;obj_t BgL_arg1825z00_876;
BgL_arg1824z00_875 = BGl_symbol3477z00zz__evalz00; 
BgL_arg1825z00_876 = 
MAKE_PAIR(BgL_argz00_29, BNIL); 
BgL_arg1818z00_873 = 
MAKE_PAIR(BgL_arg1824z00_875, BgL_arg1825z00_876); } 
BgL_arg1815z00_872 = 
MAKE_PAIR(BgL_arg1818z00_873, BNIL); } 
BgL_arg1809z00_869 = 
MAKE_PAIR(BgL_arg1813z00_871, BgL_arg1815z00_872); } 
{ /* ./Eval/eval.scm 500 */
obj_t BgL_arg1829z00_877;obj_t BgL_arg1830z00_878;
{ /* ./Eval/eval.scm 500 */
obj_t BgL_arg1833z00_879;obj_t BgL_arg1836z00_880;
BgL_arg1833z00_879 = BGl_symbol3478z00zz__evalz00; 
{ /* ./Eval/eval.scm 500 */
obj_t BgL_arg1840z00_882;
{ /* ./Eval/eval.scm 500 */
obj_t BgL_arg1845z00_884;
BgL_arg1845z00_884 = 
MAKE_PAIR(BgL_argz00_29, BNIL); 
BgL_arg1840z00_882 = 
MAKE_PAIR(BGl_string3479z00zz__evalz00, BgL_arg1845z00_884); } 
BgL_arg1836z00_880 = 
MAKE_PAIR(BGl_string3463z00zz__evalz00, BgL_arg1840z00_882); } 
BgL_arg1829z00_877 = 
MAKE_PAIR(BgL_arg1833z00_879, BgL_arg1836z00_880); } 
{ /* ./Eval/eval.scm 501 */
obj_t BgL_arg1849z00_885;
{ /* ./Eval/eval.scm 501 */
obj_t BgL_arg1853z00_887;obj_t BgL_arg1854z00_888;
BgL_arg1853z00_887 = BGl_symbol3473z00zz__evalz00; 
BgL_arg1854z00_888 = 
MAKE_PAIR(BNIL, BNIL); 
BgL_arg1849z00_885 = 
MAKE_PAIR(BgL_arg1853z00_887, BgL_arg1854z00_888); } 
BgL_arg1830z00_878 = 
MAKE_PAIR(BgL_arg1849z00_885, BNIL); } 
BgL_arg1810z00_870 = 
MAKE_PAIR(BgL_arg1829z00_877, BgL_arg1830z00_878); } 
BgL_arg1805z00_868 = 
MAKE_PAIR(BgL_arg1809z00_869, BgL_arg1810z00_870); } 
BgL_arg1800z00_865 = 
MAKE_PAIR(BgL_arg1804z00_867, BgL_arg1805z00_868); } 
BgL_arg1796z00_864 = 
MAKE_PAIR(BgL_arg1800z00_865, BNIL); } 
BgL_arg1792z00_862 = 
MAKE_PAIR(BgL_arg1795z00_863, BgL_arg1796z00_864); } 
return 
MAKE_PAIR(BgL_arg1792z00_862, BgL_bindingsz00_30);} }  else 
{ /* ./Eval/eval.scm 497 */
if(
SYMBOLP(BgL_patz00_28))
{ /* ./Eval/eval.scm 503 */
{ /* ./Eval/eval.scm 504 */
obj_t BgL_arg1859z00_890;
{ /* ./Eval/eval.scm 504 */
obj_t BgL_arg1862z00_891;
BgL_arg1862z00_891 = 
MAKE_PAIR(BgL_argz00_29, BNIL); 
BgL_arg1859z00_890 = 
MAKE_PAIR(BgL_patz00_28, BgL_arg1862z00_891); } 
return 
MAKE_PAIR(BgL_arg1859z00_890, BgL_bindingsz00_30);} }  else 
{ /* ./Eval/eval.scm 503 */
if(
PAIRP(BgL_patz00_28))
{ /* ./Eval/eval.scm 505 */
{ /* ./Eval/eval.scm 506 */
obj_t BgL_arg1867z00_893;obj_t BgL_arg1868z00_894;obj_t BgL_arg1869z00_895;
BgL_arg1867z00_893 = 
CAR(BgL_patz00_28); 
{ /* ./Eval/eval.scm 507 */
obj_t BgL_arg1873z00_896;obj_t BgL_arg1874z00_897;
BgL_arg1873z00_896 = BGl_symbol3480z00zz__evalz00; 
BgL_arg1874z00_897 = 
MAKE_PAIR(BgL_argz00_29, BNIL); 
BgL_arg1868z00_894 = 
MAKE_PAIR(BgL_arg1873z00_896, BgL_arg1874z00_897); } 
{ /* ./Eval/eval.scm 508 */
obj_t BgL_arg1878z00_898;obj_t BgL_arg1879z00_899;
BgL_arg1878z00_898 = 
CDR(BgL_patz00_28); 
{ /* ./Eval/eval.scm 509 */
obj_t BgL_arg1884z00_900;obj_t BgL_arg1885z00_901;
BgL_arg1884z00_900 = BGl_symbol3470z00zz__evalz00; 
BgL_arg1885z00_901 = 
MAKE_PAIR(BgL_argz00_29, BNIL); 
BgL_arg1879z00_899 = 
MAKE_PAIR(BgL_arg1884z00_900, BgL_arg1885z00_901); } 
BgL_arg1869z00_895 = 
BGl_destructurez00zz__evalz00(BgL_arg1878z00_898, BgL_arg1879z00_899, BgL_bindingsz00_30); } 
{ 
obj_t BgL_bindingsz00_3350;obj_t BgL_argz00_3349;obj_t BgL_patz00_3348;
BgL_patz00_3348 = BgL_arg1867z00_893; 
BgL_argz00_3349 = BgL_arg1868z00_894; 
BgL_bindingsz00_3350 = BgL_arg1869z00_895; 
BgL_bindingsz00_30 = BgL_bindingsz00_3350; 
BgL_argz00_29 = BgL_argz00_3349; 
BgL_patz00_28 = BgL_patz00_3348; 
goto BGl_destructurez00zz__evalz00;} } }  else 
{ /* ./Eval/eval.scm 505 */
FAILURE(BGl_string3463z00zz__evalz00,BGl_string3481z00zz__evalz00,BgL_patz00_28);} } } } 
}



/* module-declaration! */
BGL_EXPORTED_DEF obj_t BGl_modulezd2declarationz12zc0zz__evalz00(obj_t BgL_declsz00_31)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 517 */
{ 
obj_t BgL_declsz00_902;
BgL_declsz00_902 = BgL_declsz00_31; 
BgL_loopz00_903:
if(
NULLP(BgL_declsz00_902))
{ /* ./Eval/eval.scm 520 */
return BGl_symbol3482z00zz__evalz00;}  else 
{ /* ./Eval/eval.scm 522 */
bool_t BgL_testz00_3354;
{ /* ./Eval/eval.scm 522 */
obj_t BgL_auxz00_3355;
BgL_auxz00_3355 = 
CAR(BgL_declsz00_902); 
BgL_testz00_3354 = 
PAIRP(BgL_auxz00_3355); } 
if(BgL_testz00_3354)
{ /* ./Eval/eval.scm 524 */
bool_t BgL_testz00_3358;
{ /* ./Eval/eval.scm 524 */
obj_t BgL_auxz00_3359;
{ /* ./Eval/eval.scm 524 */
obj_t BgL_auxz00_3360;
BgL_auxz00_3360 = 
CAR(BgL_declsz00_902); 
BgL_auxz00_3359 = 
CAR(BgL_auxz00_3360); } 
BgL_testz00_3358 = 
(BgL_auxz00_3359==BGl_symbol3483z00zz__evalz00); } 
if(BgL_testz00_3358)
{ /* ./Eval/eval.scm 524 */
{ /* ./Eval/eval.scm 525 */
obj_t BgL_auxz00_3364;
{ /* ./Eval/eval.scm 525 */
obj_t BgL_auxz00_3365;
BgL_auxz00_3365 = 
CAR(BgL_declsz00_902); 
BgL_auxz00_3364 = 
CDR(BgL_auxz00_3365); } 
BGl_includez12z12zz__evalz00(BgL_auxz00_3364); } 
{ 
obj_t BgL_declsz00_3369;
BgL_declsz00_3369 = 
CDR(BgL_declsz00_902); 
BgL_declsz00_902 = BgL_declsz00_3369; 
goto BgL_loopz00_903;} }  else 
{ /* ./Eval/eval.scm 527 */
bool_t BgL_testz00_3371;
{ /* ./Eval/eval.scm 527 */
obj_t BgL_auxz00_3372;
{ /* ./Eval/eval.scm 527 */
obj_t BgL_auxz00_3373;
BgL_auxz00_3373 = 
CAR(BgL_declsz00_902); 
BgL_auxz00_3372 = 
CAR(BgL_auxz00_3373); } 
BgL_testz00_3371 = 
(BgL_auxz00_3372==BGl_symbol3484z00zz__evalz00); } 
if(BgL_testz00_3371)
{ /* ./Eval/eval.scm 527 */
{ /* ./Eval/eval.scm 528 */
obj_t BgL_auxz00_3377;
{ /* ./Eval/eval.scm 528 */
obj_t BgL_auxz00_3378;
BgL_auxz00_3378 = 
CAR(BgL_declsz00_902); 
BgL_auxz00_3377 = 
CDR(BgL_auxz00_3378); } 
BGl_importz12z12zz__evalz00(BgL_auxz00_3377); } 
{ 
obj_t BgL_declsz00_3382;
BgL_declsz00_3382 = 
CDR(BgL_declsz00_902); 
BgL_declsz00_902 = BgL_declsz00_3382; 
goto BgL_loopz00_903;} }  else 
{ /* ./Eval/eval.scm 530 */
bool_t BgL_testz00_3384;
{ /* ./Eval/eval.scm 530 */
obj_t BgL_auxz00_3385;
{ /* ./Eval/eval.scm 530 */
obj_t BgL_auxz00_3386;
BgL_auxz00_3386 = 
CAR(BgL_declsz00_902); 
BgL_auxz00_3385 = 
CAR(BgL_auxz00_3386); } 
BgL_testz00_3384 = 
(BgL_auxz00_3385==BGl_symbol3485z00zz__evalz00); } 
if(BgL_testz00_3384)
{ /* ./Eval/eval.scm 530 */
{ /* ./Eval/eval.scm 531 */
obj_t BgL_auxz00_3390;
{ /* ./Eval/eval.scm 531 */
obj_t BgL_auxz00_3391;
BgL_auxz00_3391 = 
CAR(BgL_declsz00_902); 
BgL_auxz00_3390 = 
CDR(BgL_auxz00_3391); } 
BGl_importz12z12zz__evalz00(BgL_auxz00_3390); } 
{ 
obj_t BgL_declsz00_3395;
BgL_declsz00_3395 = 
CDR(BgL_declsz00_902); 
BgL_declsz00_902 = BgL_declsz00_3395; 
goto BgL_loopz00_903;} }  else 
{ /* ./Eval/eval.scm 530 */
{ 
obj_t BgL_declsz00_3397;
BgL_declsz00_3397 = 
CDR(BgL_declsz00_902); 
BgL_declsz00_902 = BgL_declsz00_3397; 
goto BgL_loopz00_903;} } } } }  else 
{ /* ./Eval/eval.scm 522 */
FAILURE(BGl_string3437z00zz__evalz00,BGl_string3486z00zz__evalz00,BgL_declsz00_902);} } } } 
}



/* _module-declaration! */
obj_t BGl__modulezd2declarationz12zc0zz__evalz00(obj_t BgL_envz00_2104, obj_t BgL_declsz00_2105)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 517 */
return 
BGl_modulezd2declarationz12zc0zz__evalz00(BgL_declsz00_2105);} 
}



/* include! */
bool_t BGl_includez12z12zz__evalz00(obj_t BgL_includesz00_32)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 546 */
{ 
obj_t BgL_l1071z00_929;
BgL_l1071z00_929 = BgL_includesz00_32; 
BgL_forzd2each1072zd2_930:
if(
PAIRP(BgL_l1071z00_929))
{ /* ./Eval/eval.scm 547 */
{ /* ./Eval/eval.scm 548 */
obj_t BgL_iz00_932;
BgL_iz00_932 = 
CAR(BgL_l1071z00_929); 
{ /* ./Eval/eval.scm 548 */
bool_t BgL_testz00_3404;
{ /* ./Eval/eval.scm 548 */
obj_t BgL_auxz00_3405;
BgL_auxz00_3405 = 
BGl_memberz00zz__r4_pairs_and_lists_6_3z00(BgL_iz00_932, BGl_za2includedzd2filesza2zd2zz__evalz00); 
BgL_testz00_3404 = 
CBOOL(BgL_auxz00_3405); } 
if(BgL_testz00_3404)
{ /* ./Eval/eval.scm 548 */BFALSE; }  else 
{ /* ./Eval/eval.scm 548 */
BGl_za2includedzd2filesza2zd2zz__evalz00 = 
MAKE_PAIR(BgL_iz00_932, BGl_za2includedzd2filesza2zd2zz__evalz00); 
BGl_loadvz00zz__evalz00(BgL_iz00_932, BFALSE); } } } 
{ 
obj_t BgL_l1071z00_3410;
BgL_l1071z00_3410 = 
CDR(BgL_l1071z00_929); 
BgL_l1071z00_929 = BgL_l1071z00_3410; 
goto BgL_forzd2each1072zd2_930;} }  else 
{ /* ./Eval/eval.scm 547 */
return ((bool_t)1);} } } 
}



/* import! */
bool_t BGl_importz12z12zz__evalz00(obj_t BgL_iclausesz00_33)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 557 */
{ /* ./Eval/eval.scm 558 */
obj_t BgL_lz00_935;
if(
NULLP(BgL_iclausesz00_33))
{ /* ./Eval/eval.scm 558 */
BgL_lz00_935 = BNIL; }  else 
{ /* ./Eval/eval.scm 558 */
obj_t BgL_head1075z00_946;
BgL_head1075z00_946 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1073z00_947;obj_t BgL_tail1076z00_948;
BgL_l1073z00_947 = BgL_iclausesz00_33; 
BgL_tail1076z00_948 = BgL_head1075z00_946; 
BgL_map1074z00_949:
if(
NULLP(BgL_l1073z00_947))
{ /* ./Eval/eval.scm 558 */
BgL_lz00_935 = 
CDR(BgL_head1075z00_946); }  else 
{ /* ./Eval/eval.scm 559 */
obj_t BgL_newtail1077z00_951;
{ /* ./Eval/eval.scm 559 */
obj_t BgL_arg2010z00_953;
{ /* ./Eval/eval.scm 559 */
obj_t BgL_iz00_955;
BgL_iz00_955 = 
CAR(BgL_l1073z00_947); 
if(
PAIRP(BgL_iz00_955))
{ /* ./Eval/eval.scm 559 */
obj_t BgL_cdrzd2217zd2_965;
BgL_cdrzd2217zd2_965 = 
CDR(BgL_iz00_955); 
if(
PAIRP(BgL_cdrzd2217zd2_965))
{ /* ./Eval/eval.scm 559 */
bool_t BgL_testz00_3424;
{ /* ./Eval/eval.scm 559 */
obj_t BgL_auxz00_3425;
BgL_auxz00_3425 = 
CDR(BgL_cdrzd2217zd2_965); 
BgL_testz00_3424 = 
NULLP(BgL_auxz00_3425); } 
if(BgL_testz00_3424)
{ /* ./Eval/eval.scm 559 */
obj_t BgL_arg2018z00_968;
BgL_arg2018z00_968 = 
CAR(BgL_cdrzd2217zd2_965); 
if(
STRINGP(BgL_arg2018z00_968))
{ /* ./Eval/eval.scm 559 */
BgL_arg2010z00_953 = BgL_arg2018z00_968; }  else 
{ /* ./Eval/eval.scm 559 */
obj_t BgL_cellz00_1692;
BgL_cellz00_1692 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg2018z00_968, BGl_za2afilezd2listza2zd2zz__evalz00); 
if(
PAIRP(BgL_cellz00_1692))
{ /* ./Eval/eval.scm 559 */
obj_t BgL_auxz00_3434;
BgL_auxz00_3434 = 
CDR(BgL_cellz00_1692); 
BgL_arg2010z00_953 = 
CAR(BgL_auxz00_3434); }  else 
{ /* ./Eval/eval.scm 559 */
BgL_arg2010z00_953 = BFALSE; } } }  else 
{ /* ./Eval/eval.scm 559 */
obj_t BgL_cdrzd2229zd2_969;
BgL_cdrzd2229zd2_969 = 
CDR(BgL_cdrzd2217zd2_965); 
if(
PAIRP(BgL_cdrzd2229zd2_969))
{ /* ./Eval/eval.scm 559 */
bool_t BgL_testz00_3440;
{ /* ./Eval/eval.scm 559 */
obj_t BgL_auxz00_3441;
BgL_auxz00_3441 = 
CDR(BgL_cdrzd2229zd2_969); 
BgL_testz00_3440 = 
NULLP(BgL_auxz00_3441); } 
if(BgL_testz00_3440)
{ /* ./Eval/eval.scm 559 */
BgL_arg2010z00_953 = 
CAR(BgL_cdrzd2229zd2_969); }  else 
{ /* ./Eval/eval.scm 559 */
obj_t BgL_cellz00_1708;
BgL_cellz00_1708 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_iz00_955, BGl_za2afilezd2listza2zd2zz__evalz00); 
if(
PAIRP(BgL_cellz00_1708))
{ /* ./Eval/eval.scm 559 */
obj_t BgL_auxz00_3448;
BgL_auxz00_3448 = 
CDR(BgL_cellz00_1708); 
BgL_arg2010z00_953 = 
CAR(BgL_auxz00_3448); }  else 
{ /* ./Eval/eval.scm 559 */
BgL_arg2010z00_953 = BFALSE; } } }  else 
{ /* ./Eval/eval.scm 559 */
obj_t BgL_cellz00_1716;
BgL_cellz00_1716 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_iz00_955, BGl_za2afilezd2listza2zd2zz__evalz00); 
if(
PAIRP(BgL_cellz00_1716))
{ /* ./Eval/eval.scm 559 */
obj_t BgL_auxz00_3454;
BgL_auxz00_3454 = 
CDR(BgL_cellz00_1716); 
BgL_arg2010z00_953 = 
CAR(BgL_auxz00_3454); }  else 
{ /* ./Eval/eval.scm 559 */
BgL_arg2010z00_953 = BFALSE; } } } }  else 
{ /* ./Eval/eval.scm 559 */
obj_t BgL_cellz00_1724;
BgL_cellz00_1724 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_iz00_955, BGl_za2afilezd2listza2zd2zz__evalz00); 
if(
PAIRP(BgL_cellz00_1724))
{ /* ./Eval/eval.scm 559 */
obj_t BgL_auxz00_3460;
BgL_auxz00_3460 = 
CDR(BgL_cellz00_1724); 
BgL_arg2010z00_953 = 
CAR(BgL_auxz00_3460); }  else 
{ /* ./Eval/eval.scm 559 */
BgL_arg2010z00_953 = BFALSE; } } }  else 
{ /* ./Eval/eval.scm 559 */
obj_t BgL_cellz00_1732;
BgL_cellz00_1732 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_iz00_955, BGl_za2afilezd2listza2zd2zz__evalz00); 
if(
PAIRP(BgL_cellz00_1732))
{ /* ./Eval/eval.scm 559 */
obj_t BgL_auxz00_3466;
BgL_auxz00_3466 = 
CDR(BgL_cellz00_1732); 
BgL_arg2010z00_953 = 
CAR(BgL_auxz00_3466); }  else 
{ /* ./Eval/eval.scm 559 */
BgL_arg2010z00_953 = BFALSE; } } } 
BgL_newtail1077z00_951 = 
MAKE_PAIR(BgL_arg2010z00_953, BNIL); } 
SET_CDR(BgL_tail1076z00_948, BgL_newtail1077z00_951); 
{ 
obj_t BgL_tail1076z00_3473;obj_t BgL_l1073z00_3471;
BgL_l1073z00_3471 = 
CDR(BgL_l1073z00_947); 
BgL_tail1076z00_3473 = BgL_newtail1077z00_951; 
BgL_tail1076z00_948 = BgL_tail1076z00_3473; 
BgL_l1073z00_947 = BgL_l1073z00_3471; 
goto BgL_map1074z00_949;} } } } 
{ 
obj_t BgL_l1078z00_936;
BgL_l1078z00_936 = BgL_lz00_935; 
BgL_forzd2each1079zd2_937:
if(
PAIRP(BgL_l1078z00_936))
{ /* ./Eval/eval.scm 577 */
{ /* ./Eval/eval.scm 578 */
obj_t BgL_iz00_939;
BgL_iz00_939 = 
CAR(BgL_l1078z00_936); 
{ /* ./Eval/eval.scm 578 */
bool_t BgL_test1987z00_940;
if(
STRINGP(BgL_iz00_939))
{ /* ./Eval/eval.scm 579 */
bool_t BgL_testz00_3479;
{ /* ./Eval/eval.scm 579 */
obj_t BgL_auxz00_3480;
BgL_auxz00_3480 = 
BGl_memberz00zz__r4_pairs_and_lists_6_3z00(BgL_iz00_939, BGl_za2importedzd2filesza2zd2zz__evalz00); 
BgL_testz00_3479 = 
CBOOL(BgL_auxz00_3480); } 
if(BgL_testz00_3479)
{ /* ./Eval/eval.scm 579 */
BgL_test1987z00_940 = ((bool_t)0); }  else 
{ /* ./Eval/eval.scm 579 */
BgL_test1987z00_940 = ((bool_t)1); } }  else 
{ /* ./Eval/eval.scm 578 */
BgL_test1987z00_940 = ((bool_t)0); } 
if(BgL_test1987z00_940)
{ /* ./Eval/eval.scm 578 */
BGl_za2importedzd2filesza2zd2zz__evalz00 = 
MAKE_PAIR(BgL_iz00_939, BGl_za2importedzd2filesza2zd2zz__evalz00); 
BGl_loadvz00zz__evalz00(BgL_iz00_939, BFALSE); }  else 
{ /* ./Eval/eval.scm 578 */BFALSE; } } } 
{ 
obj_t BgL_l1078z00_3486;
BgL_l1078z00_3486 = 
CDR(BgL_l1078z00_936); 
BgL_l1078z00_936 = BgL_l1078z00_3486; 
goto BgL_forzd2each1079zd2_937;} }  else 
{ /* ./Eval/eval.scm 577 */
return ((bool_t)1);} } } } 
}



/* expand-define-pattern */
BGL_EXPORTED_DEF obj_t BGl_expandzd2definezd2patternz00zz__evalz00(obj_t BgL_xz00_34)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 588 */
if(
PAIRP(BgL_xz00_34))
{ /* ./Eval/eval.scm 589 */
obj_t BgL_cdrzd2258zd2_988;
BgL_cdrzd2258zd2_988 = 
CDR(BgL_xz00_34); 
if(
PAIRP(BgL_cdrzd2258zd2_988))
{ /* ./Eval/eval.scm 589 */
obj_t BgL_cdrzd2263zd2_990;
BgL_cdrzd2263zd2_990 = 
CDR(BgL_cdrzd2258zd2_988); 
if(
PAIRP(BgL_cdrzd2263zd2_990))
{ /* ./Eval/eval.scm 589 */
obj_t BgL_cdrzd2268zd2_992;
BgL_cdrzd2268zd2_992 = 
CDR(BgL_cdrzd2263zd2_990); 
if(
PAIRP(BgL_cdrzd2268zd2_992))
{ /* ./Eval/eval.scm 589 */
bool_t BgL_testz00_3499;
{ /* ./Eval/eval.scm 589 */
obj_t BgL_auxz00_3500;
BgL_auxz00_3500 = 
CDR(BgL_cdrzd2268zd2_992); 
BgL_testz00_3499 = 
NULLP(BgL_auxz00_3500); } 
if(BgL_testz00_3499)
{ /* ./Eval/eval.scm 589 */
obj_t BgL_arg2067z00_995;obj_t BgL_arg2068z00_996;obj_t BgL_arg2069z00_997;
BgL_arg2067z00_995 = 
CAR(BgL_cdrzd2258zd2_988); 
BgL_arg2068z00_996 = 
CAR(BgL_cdrzd2263zd2_990); 
BgL_arg2069z00_997 = 
CAR(BgL_cdrzd2268zd2_992); 
{ /* ./Eval/eval.scm 589 */
obj_t BgL_arg2091z00_1780;
{ /* ./Eval/eval.scm 589 */
obj_t BgL_arg2094z00_1781;
{ /* ./Eval/eval.scm 589 */
obj_t BgL_arg2098z00_1782;obj_t BgL_arg2099z00_1783;
BgL_arg2098z00_1782 = BGl_symbol3465z00zz__evalz00; 
{ /* ./Eval/eval.scm 589 */
obj_t BgL_arg2102z00_1784;
BgL_arg2102z00_1784 = 
MAKE_PAIR(BgL_arg2069z00_997, BNIL); 
BgL_arg2099z00_1783 = 
MAKE_PAIR(BgL_arg2068z00_996, BgL_arg2102z00_1784); } 
BgL_arg2094z00_1781 = 
MAKE_PAIR(BgL_arg2098z00_1782, BgL_arg2099z00_1783); } 
BgL_arg2091z00_1780 = 
BGl_evalz00zz__evalz00(BgL_arg2094z00_1781, BNIL); } 
BGl_extendze2rze2macrozd2envzd2zz__match_normaliza7eza7(BgL_arg2067z00_995, BgL_arg2091z00_1780); } 
return BGl_list3487z00zz__evalz00;}  else 
{ /* ./Eval/eval.scm 589 */
FAILURE(BGl_string3489z00zz__evalz00,BGl_string3490z00zz__evalz00,BgL_xz00_34);} }  else 
{ /* ./Eval/eval.scm 589 */
FAILURE(BGl_string3489z00zz__evalz00,BGl_string3490z00zz__evalz00,BgL_xz00_34);} }  else 
{ /* ./Eval/eval.scm 589 */
FAILURE(BGl_string3489z00zz__evalz00,BGl_string3490z00zz__evalz00,BgL_xz00_34);} }  else 
{ /* ./Eval/eval.scm 589 */
FAILURE(BGl_string3489z00zz__evalz00,BGl_string3490z00zz__evalz00,BgL_xz00_34);} }  else 
{ /* ./Eval/eval.scm 589 */
FAILURE(BGl_string3489z00zz__evalz00,BGl_string3490z00zz__evalz00,BgL_xz00_34);} } 
}



/* _expand-define-pattern */
obj_t BGl__expandzd2definezd2patternz00zz__evalz00(obj_t BgL_envz00_2106, obj_t BgL_xz00_2107)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 588 */
return 
BGl_expandzd2definezd2patternz00zz__evalz00(BgL_xz00_2107);} 
}



/* notify-assert-fail */
BGL_EXPORTED_DEF obj_t BGl_notifyzd2assertzd2failz00zz__evalz00(obj_t BgL_varsz00_35, obj_t BgL_failzd2bodyzd2_36, obj_t BgL_locz00_37)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 599 */
{ /* ./Eval/eval.scm 600 */
obj_t BgL_portz00_1005;
BgL_portz00_1005 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Eval/eval.scm 601 */
obj_t BgL_armed1083z00_1006;
BgL_armed1083z00_1006 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Eval/eval.scm 611 */
obj_t BgL_zc3anonymousza32126ze3z83_2110;obj_t BgL_zc3anonymousza32123ze3z83_2112;
{ 
int BgL_auxz00_3520;int BgL_auxz00_3518;
BgL_auxz00_3520 = 
(int)(((long)2)); 
BgL_auxz00_3518 = 
(int)(((long)0)); 
BgL_zc3anonymousza32126ze3z83_2110 = 
make_fx_procedure(BGl_zc3anonymousza32126ze3z83zz__evalz00, BgL_auxz00_3518, BgL_auxz00_3520); } 
{ 
int BgL_auxz00_3525;int BgL_auxz00_3523;
BgL_auxz00_3525 = 
(int)(((long)1)); 
BgL_auxz00_3523 = 
(int)(((long)4)); 
BgL_zc3anonymousza32123ze3z83_2112 = 
make_fx_procedure(BGl_zc3anonymousza32123ze3z83zz__evalz00, BgL_auxz00_3523, BgL_auxz00_3525); } 
{ /* ./Eval/eval.scm 611 */
int BgL_auxz00_3528;
BgL_auxz00_3528 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32126ze3z83_2110, BgL_auxz00_3528, BgL_locz00_37); } 
{ /* ./Eval/eval.scm 611 */
int BgL_auxz00_3531;
BgL_auxz00_3531 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32126ze3z83_2110, BgL_auxz00_3531, BgL_failzd2bodyzd2_36); } 
{ /* ./Eval/eval.scm 611 */
int BgL_auxz00_3534;
BgL_auxz00_3534 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32123ze3z83_2112, BgL_auxz00_3534, BgL_armed1083z00_1006); } 
CELL_SET(BgL_armed1083z00_1006, BTRUE); 
BGl_zc3exitza32106ze3z83zz__evalz00(BgL_zc3anonymousza32126ze3z83_2110, BgL_zc3anonymousza32123ze3z83_2112, BgL_armed1083z00_1006); } } 
display_string(BGl_string3491z00zz__evalz00, BgL_portz00_1005); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_1005); 
display_string(BGl_string3492z00zz__evalz00, BgL_portz00_1005); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_1005); 
{ 
obj_t BgL_l1090z00_1043;
BgL_l1090z00_1043 = BgL_varsz00_35; 
BgL_forzd2each1091zd2_1044:
if(
PAIRP(BgL_l1090z00_1043))
{ /* ./Eval/eval.scm 615 */
{ /* ./Eval/eval.scm 616 */
obj_t BgL_fz00_1046;
BgL_fz00_1046 = 
CAR(BgL_l1090z00_1043); 
display_string(BGl_string3493z00zz__evalz00, BgL_portz00_1005); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_fz00_1046, BgL_portz00_1005); 
display_string(BGl_string3494z00zz__evalz00, BgL_portz00_1005); 
{ /* ./Eval/eval.scm 619 */
obj_t BgL_arg2151z00_1047;
BgL_arg2151z00_1047 = 
BGl_evalz00zz__evalz00(BgL_fz00_1046, BNIL); 
PROCEDURE_ENTRY(BGl_za2replzd2printerza2zd2zz__evalz00)(BGl_za2replzd2printerza2zd2zz__evalz00, BgL_arg2151z00_1047, BgL_portz00_1005, BEOA); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_1005); } 
{ 
obj_t BgL_l1090z00_3552;
BgL_l1090z00_3552 = 
CDR(BgL_l1090z00_1043); 
BgL_l1090z00_1043 = BgL_l1090z00_3552; 
goto BgL_forzd2each1091zd2_1044;} }  else 
{ /* ./Eval/eval.scm 615 */((bool_t)1); } } 
display_string(BGl_string3491z00zz__evalz00, BgL_portz00_1005); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_1005); 
{ /* ./Eval/eval.scm 623 */
obj_t BgL_oldzd2prompterzd2_1051;
BgL_oldzd2prompterzd2_1051 = BGl_za2promptza2z00zz__evalz00; 
{ /* ./Eval/eval.scm 624 */
bool_t BgL_testz00_3556;
{ /* ./Eval/eval.scm 624 */
int BgL_auxz00_3557;
BgL_auxz00_3557 = 
(int)(((long)1)); 
BgL_testz00_3556 = 
PROCEDURE_CORRECT_ARITYP(BGl_proc3495z00zz__evalz00, BgL_auxz00_3557); } 
if(BgL_testz00_3556)
{ /* ./Eval/eval.scm 624 */
BGl_za2promptza2z00zz__evalz00 = BGl_proc3495z00zz__evalz00; }  else 
{ /* ./Eval/eval.scm 624 */
FAILURE(BGl_string3443z00zz__evalz00,BGl_string3444z00zz__evalz00,BGl_proc3495z00zz__evalz00);} } 
BGl_replz00zz__evalz00(); 
{ /* ./Eval/eval.scm 626 */
bool_t BgL_testz00_3562;
{ /* ./Eval/eval.scm 626 */
int BgL_auxz00_3563;
BgL_auxz00_3563 = 
(int)(((long)1)); 
BgL_testz00_3562 = 
PROCEDURE_CORRECT_ARITYP(BgL_oldzd2prompterzd2_1051, BgL_auxz00_3563); } 
if(BgL_testz00_3562)
{ /* ./Eval/eval.scm 626 */
return ( 
BGl_za2promptza2z00zz__evalz00 = BgL_oldzd2prompterzd2_1051, BUNSPEC) ;}  else 
{ /* ./Eval/eval.scm 626 */
FAILURE(BGl_string3443z00zz__evalz00,BGl_string3444z00zz__evalz00,BgL_oldzd2prompterzd2_1051);} } } } } 
}



/* <exit:2106> */
obj_t BGl_zc3exitza32106ze3z83zz__evalz00(obj_t BgL_zc3anonymousza32126ze3z83_2147, obj_t BgL_zc3anonymousza32123ze3z83_2146, obj_t BgL_armed1083z00_2145)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 601 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1084z00_1011;
if( SET_EXIT(BgL_an_exit1084z00_1011) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1084z00_1011 = 
(obj_t)jmpbuf; 
{ /* ./Eval/eval.scm 601 */

PUSH_EXIT(BgL_an_exit1084z00_1011, ((bool_t)1)); 
{ /* ./Eval/eval.scm 601 */
obj_t BgL_an_exitd1085z00_1012;
BgL_an_exitd1085z00_1012 = 
BGL_EXITD_TOP(); 
{ /* ./Eval/eval.scm 601 */
obj_t BgL_escapez00_2111;
{ 
int BgL_auxz00_3573;int BgL_auxz00_3571;
BgL_auxz00_3573 = 
(int)(((long)1)); 
BgL_auxz00_3571 = 
(int)(((long)1)); 
BgL_escapez00_2111 = 
make_fx_procedure(BGl_escape_2984z00zz__evalz00, BgL_auxz00_3571, BgL_auxz00_3573); } 
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3576;
BgL_auxz00_3576 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_2111, BgL_auxz00_3576, BgL_an_exitd1085z00_1012); } 
{ /* ./Eval/eval.scm 601 */
obj_t BgL_res1087z00_1015;
{ /* ./Eval/eval.scm 601 */
obj_t BgL_zc3anonymousza32116ze3z83_2109;obj_t BgL_zc3anonymousza32114ze3z83_2113;
{ 
int BgL_auxz00_3581;int BgL_auxz00_3579;
BgL_auxz00_3581 = 
(int)(((long)1)); 
BgL_auxz00_3579 = 
(int)(((long)0)); 
BgL_zc3anonymousza32116ze3z83_2109 = 
make_fx_procedure(BGl_zc3anonymousza32116ze3z83zz__evalz00, BgL_auxz00_3579, BgL_auxz00_3581); } 
{ 
int BgL_auxz00_3586;int BgL_auxz00_3584;
BgL_auxz00_3586 = 
(int)(((long)4)); 
BgL_auxz00_3584 = 
(int)(((long)0)); 
BgL_zc3anonymousza32114ze3z83_2113 = 
make_fx_procedure(BGl_zc3anonymousza32114ze3z83zz__evalz00, BgL_auxz00_3584, BgL_auxz00_3586); } 
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3589;
BgL_auxz00_3589 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32116ze3z83_2109, BgL_auxz00_3589, BgL_armed1083z00_2145); } 
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3592;
BgL_auxz00_3592 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32114ze3z83_2113, BgL_auxz00_3592, BgL_an_exitd1085z00_1012); } 
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3595;
BgL_auxz00_3595 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32114ze3z83_2113, BgL_auxz00_3595, BgL_armed1083z00_2145); } 
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3598;
BgL_auxz00_3598 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32114ze3z83_2113, BgL_auxz00_3598, BgL_zc3anonymousza32123ze3z83_2146); } 
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3601;
BgL_auxz00_3601 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32114ze3z83_2113, BgL_auxz00_3601, BgL_escapez00_2111); } 
BgL_res1087z00_1015 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza32114ze3z83_2113, BgL_zc3anonymousza32126ze3z83_2147, BgL_zc3anonymousza32116ze3z83_2109); } 
POP_EXIT(); 
return BgL_res1087z00_1015;} } } } 
} } 
}



/* _notify-assert-fail */
obj_t BGl__notifyzd2assertzd2failz00zz__evalz00(obj_t BgL_envz00_2114, obj_t BgL_varsz00_2115, obj_t BgL_failzd2bodyzd2_2116, obj_t BgL_locz00_2117)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 599 */
return 
BGl_notifyzd2assertzd2failz00zz__evalz00(BgL_varsz00_2115, BgL_failzd2bodyzd2_2116, BgL_locz00_2117);} 
}



/* <anonymous:2167> */
obj_t BGl_zc3anonymousza32167ze3z83zz__evalz00(obj_t BgL_envz00_2118, obj_t BgL_numz00_2119)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 624 */
{ 
obj_t BgL_numz00_1053;
BgL_numz00_1053 = BgL_numz00_2119; 
{ /* ./Eval/eval.scm 624 */
obj_t BgL_arg2170z00_1832;
BgL_arg2170z00_1832 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
display_string(BGl_string3496z00zz__evalz00, BgL_arg2170z00_1832);} } } 
}



/* <anonymous:2116> */
obj_t BGl_zc3anonymousza32116ze3z83zz__evalz00(obj_t BgL_envz00_2120)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 601 */
{ /* ./Eval/eval.scm 601 */
obj_t BgL_armed1083z00_2121;
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3609;
BgL_auxz00_3609 = 
(int)(((long)0)); 
BgL_armed1083z00_2121 = 
PROCEDURE_REF(BgL_envz00_2120, BgL_auxz00_3609); } 
{ 

{ /* ./Eval/eval.scm 601 */
bool_t BgL_testz00_3612;
{ /* ./Eval/eval.scm 601 */
obj_t BgL_auxz00_3613;
BgL_auxz00_3613 = 
CELL_REF(BgL_armed1083z00_2121); 
BgL_testz00_3612 = 
CBOOL(BgL_auxz00_3613); } 
if(BgL_testz00_3612)
{ /* ./Eval/eval.scm 601 */
CELL_SET(BgL_armed1083z00_2121, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Eval/eval.scm 601 */
return BFALSE;} } } } } 
}



/* <anonymous:2126> */
obj_t BGl_zc3anonymousza32126ze3z83zz__evalz00(obj_t BgL_envz00_2123)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 601 */
{ /* ./Eval/eval.scm 601 */
obj_t BgL_locz00_2124;obj_t BgL_failzd2bodyzd2_2125;
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3616;
BgL_auxz00_3616 = 
(int)(((long)0)); 
BgL_locz00_2124 = 
PROCEDURE_REF(BgL_envz00_2123, BgL_auxz00_3616); } 
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3619;
BgL_auxz00_3619 = 
(int)(((long)1)); 
BgL_failzd2bodyzd2_2125 = 
PROCEDURE_REF(BgL_envz00_2123, BgL_auxz00_3619); } 
{ 

if(
PAIRP(BgL_locz00_2124))
{ /* ./Eval/eval.scm 601 */
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string3497z00zz__evalz00, BGl_string3498z00zz__evalz00, BgL_failzd2bodyzd2_2125, 
CAR(BgL_locz00_2124), 
CDR(BgL_locz00_2124));}  else 
{ /* ./Eval/eval.scm 601 */
FAILURE(BGl_string3497z00zz__evalz00,BGl_string3498z00zz__evalz00,BgL_failzd2bodyzd2_2125);} } } } 
}



/* <anonymous:2114> */
obj_t BGl_zc3anonymousza32114ze3z83zz__evalz00(obj_t BgL_envz00_2126)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 601 */
{ /* ./Eval/eval.scm 601 */
obj_t BgL_zc3anonymousza32123ze3z83_2129;obj_t BgL_escapez00_2130;
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3628;
BgL_auxz00_3628 = 
(int)(((long)2)); 
BgL_zc3anonymousza32123ze3z83_2129 = 
PROCEDURE_REF(BgL_envz00_2126, BgL_auxz00_3628); } 
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3631;
BgL_auxz00_3631 = 
(int)(((long)3)); 
BgL_escapez00_2130 = 
PROCEDURE_REF(BgL_envz00_2126, BgL_auxz00_3631); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza32123ze3z83_2129, BgL_escapez00_2130);} } } 
}



/* escape_2984 */
obj_t BGl_escape_2984z00zz__evalz00(obj_t BgL_envz00_2131, obj_t BgL_val1086z00_2133)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 601 */
{ /* ./Eval/eval.scm 601 */
obj_t BgL_an_exitd1085z00_2132;
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3635;
BgL_auxz00_3635 = 
(int)(((long)0)); 
BgL_an_exitd1085z00_2132 = 
PROCEDURE_REF(BgL_envz00_2131, BgL_auxz00_3635); } 
{ 
obj_t BgL_val1086z00_1013;
BgL_val1086z00_1013 = BgL_val1086z00_2133; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1085z00_2132, BgL_val1086z00_1013);} } } 
}



/* <anonymous:2123> */
obj_t BGl_zc3anonymousza32123ze3z83zz__evalz00(obj_t BgL_envz00_2134, obj_t BgL_escz00_2136, obj_t BgL_objz00_2137, obj_t BgL_procz00_2138, obj_t BgL_msgz00_2139)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 601 */
{ /* ./Eval/eval.scm 601 */
obj_t BgL_armed1083z00_2135;
{ /* ./Eval/eval.scm 601 */
int BgL_auxz00_3639;
BgL_auxz00_3639 = 
(int)(((long)0)); 
BgL_armed1083z00_2135 = 
PROCEDURE_REF(BgL_envz00_2134, BgL_auxz00_3639); } 
{ 
obj_t BgL_escz00_1027;obj_t BgL_objz00_1028;obj_t BgL_procz00_1029;obj_t BgL_msgz00_1030;
BgL_escz00_1027 = BgL_escz00_2136; 
BgL_objz00_1028 = BgL_objz00_2137; 
BgL_procz00_1029 = BgL_procz00_2138; 
BgL_msgz00_1030 = BgL_msgz00_2139; 
CELL_SET(BgL_armed1083z00_2135, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
BGl_notifyzd2errorzd2zz__errorz00(BgL_objz00_1028, BgL_procz00_1029, BgL_msgz00_1030); 
return 
PROCEDURE_ENTRY(BgL_escz00_1027)(BgL_escz00_1027, BUNSPEC, BEOA);} } } 
}



/* transcript-on */
BGL_EXPORTED_DEF obj_t BGl_transcriptzd2onzd2zz__evalz00(obj_t BgL_filez00_38)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 647 */
{ /* ./Eval/eval.scm 648 */
bool_t BgL_test2177z00_1058;
{ /* ./Eval/eval.scm 648 */
obj_t BgL_arg2187z00_1061;
BgL_arg2187z00_1061 = 
BGL_CURRENT_OUTPUT_PORT(); 
BgL_test2177z00_1058 = 
(BGl_za2transcriptza2z00zz__evalz00==BgL_arg2187z00_1061); } 
if(BgL_test2177z00_1058)
{ /* ./Eval/eval.scm 648 */
BGl_za2transcriptza2z00zz__evalz00 = 
append_output_file(BgL_filez00_38); 
{ /* ./Eval/eval.scm 652 */
obj_t BgL_port1093z00_1059;
BgL_port1093z00_1059 = BGl_za2transcriptza2z00zz__evalz00; 
display_string(BGl_string3499z00zz__evalz00, BgL_port1093z00_1059); 
{ /* ./Eval/eval.scm 652 */
char * BgL_arg2181z00_1060;
BgL_arg2181z00_1060 = 
BGl_datez00zz__osz00(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg2181z00_1060), BgL_port1093z00_1059); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1093z00_1059); } 
return BUNSPEC;}  else 
{ /* ./Eval/eval.scm 649 */
obj_t BgL_objectz00_1842;
BgL_objectz00_1842 = BGl_za2transcriptza2z00zz__evalz00; 
FAILURE(BGl_string3500z00zz__evalz00,BGl_string3501z00zz__evalz00,BgL_objectz00_1842);} } } 
}



/* _transcript-on */
obj_t BGl__transcriptzd2onzd2zz__evalz00(obj_t BgL_envz00_2142, obj_t BgL_filez00_2143)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 647 */
return 
BGl_transcriptzd2onzd2zz__evalz00(BgL_filez00_2143);} 
}



/* transcript-off */
BGL_EXPORTED_DEF obj_t BGl_transcriptzd2offzd2zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 658 */
{ /* ./Eval/eval.scm 659 */
bool_t BgL_test2190z00_1062;
{ /* ./Eval/eval.scm 659 */
obj_t BgL_arg2195z00_1063;
BgL_arg2195z00_1063 = 
BGL_CURRENT_OUTPUT_PORT(); 
BgL_test2190z00_1062 = 
(BGl_za2transcriptza2z00zz__evalz00==BgL_arg2195z00_1063); } 
if(BgL_test2190z00_1062)
{ /* ./Eval/eval.scm 660 */
obj_t BgL_objectz00_1845;
BgL_objectz00_1845 = BGl_za2transcriptza2z00zz__evalz00; 
FAILURE(BGl_string3502z00zz__evalz00,BGl_string3503z00zz__evalz00,BgL_objectz00_1845);}  else 
{ /* ./Eval/eval.scm 659 */
close_output_port(BGl_za2transcriptza2z00zz__evalz00); 
BGl_za2transcriptza2z00zz__evalz00 = 
BGL_CURRENT_OUTPUT_PORT(); } } 
return BUNSPEC;} 
}



/* _transcript-off */
obj_t BGl__transcriptzd2offzd2zz__evalz00(obj_t BgL_envz00_2144)
{ AN_OBJECT;
{ /* ./Eval/eval.scm 658 */
return 
BGl_transcriptzd2offzd2zz__evalz00();} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__evalz00()
{ AN_OBJECT;
{ /* ./Eval/eval.scm 18 */
BGl_modulezd2initializa7ationz75zz__typez00(((long)52864), "__eval"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__eval"); 
BGl_modulezd2initializa7ationz75zz__biglooz00(((long)48291), "__eval"); 
BGl_modulezd2initializa7ationz75zz__tvectorz00(((long)57114), "__eval"); 
BGl_modulezd2initializa7ationz75zz__structurez00(((long)53290), "__eval"); 
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)13855), "__eval"); 
BGl_modulezd2initializa7ationz75zz__osz00(((long)63306), "__eval"); 
BGl_modulezd2initializa7ationz75zz__pp_circlez00(((long)46262), "__eval"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)47908), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)21694), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)6615), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(((long)49269), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(((long)29164), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)51785), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(((long)35070), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)247), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)21875), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)104413), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(((long)50132), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)63121), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(((long)13988), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)45566), "__eval"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)18972), "__eval"); 
BGl_modulezd2initializa7ationz75zz__macroz00(((long)11817), "__eval"); 
BGl_modulezd2initializa7ationz75zz__install_expandersz00(((long)40901), "__eval"); 
BGl_modulezd2initializa7ationz75zz__prognz00(((long)9608), "__eval"); 
BGl_modulezd2initializa7ationz75zz__expandz00(((long)60776), "__eval"); 
BGl_modulezd2initializa7ationz75zz__evcompilez00(((long)0), "__eval"); 
BGl_modulezd2initializa7ationz75zz__evmeaningz00(((long)21499), "__eval"); 
BGl_modulezd2initializa7ationz75zz__evprimopz00(((long)34944), "__eval"); 
BGl_modulezd2initializa7ationz75zz__evenvz00(((long)3930), "__eval"); 
return 
BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(((long)48951), "__eval");} 
}

