/*===========================================================================*/
/*   (Read/reader.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 Read/reader.scm -indent -o objs/obj_u/Read/reader.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

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

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgcz00(long, char *);
extern obj_t rgc_buffer_integer(obj_t);
static long BGl_za2parzd2openza2zd2zz__readerz00;
static long BGl_za2listzd2errorzd2levelza2z00zz__readerz00;
extern obj_t BGl_za2rgczd2caseza2zd2zz__rgcz00;
extern bool_t reset_eof(obj_t);
static obj_t BGl_readzd2multizd2linezd2commentzd2zz__readerz00(obj_t);
extern obj_t open_input_string(obj_t);
extern obj_t rgc_buffer_upcase_keyword(obj_t);
static obj_t BGl_ignore_8063z00zz__readerz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__readzd2casezd2insensitivez00zz__readerz00(obj_t, obj_t);
extern obj_t string_to_symbol(char *);
static obj_t BGl__readzf2casezf2zz__readerz00(obj_t, obj_t, obj_t);
static obj_t BGl_ignore_8055z00zz__readerz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t rgc_buffer_keyword(obj_t);
extern obj_t escape_scheme_string(char *);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t rgc_buffer_downcase_symbol(obj_t);
static obj_t BGl_za2bigloozd2grammarza2zd2zz__readerz00 = BUNSPEC;
extern obj_t make_vector(int, obj_t);
static obj_t BGl_zc3anonymousza31299ze3z83zz__readerz00(obj_t);
extern obj_t rgc_buffer_upcase_symbol(obj_t);
extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza36656ze3z83zz__readerz00(obj_t, obj_t, obj_t);
extern obj_t BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(obj_t);
extern obj_t BGl_za2bigloozd2strictzd2r5rszd2stringsza2zd2zz__biglooz00;
static obj_t BGl_readzd2quotezd2zz__readerz00(obj_t, obj_t, obj_t);
extern obj_t string_to_bstring(char *);
static obj_t BGl__readerzd2resetz12zc0zz__readerz00(obj_t);
extern obj_t BGl_listzd2ze3tvectorz31zz__tvectorz00(obj_t, obj_t);
extern obj_t BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_zc3exitza36649ze3z83zz__readerz00(obj_t);
extern ucs2_t BGl_integerzd2ze3ucs2z31zz__ucs2z00(int);
extern bool_t rgc_fill_buffer(obj_t);
static obj_t BGl_za2vectorzd2errorsza2zd2zz__readerz00 = BUNSPEC;
static obj_t BGl_ignorez72z72zz__readerz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza36382ze3z83zz__readerz00(obj_t, obj_t, obj_t);
extern obj_t rgc_buffer_downcase_keyword(obj_t);
static obj_t BGl__readzd2casezd2sensitivez00zz__readerz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_readzd2casezd2sensitivez00zz__readerz00(obj_t);
BGL_EXPORTED_DECL bool_t symbol_case_sensitivep(obj_t);
static bool_t BGl_za2positionzf3za2zf3zz__readerz00;
static obj_t BGl_loopz00zz__readerz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_bigloozd2casezd2sensitivityz00zz__readerz00();
static obj_t BGl__symbolzd2casezd2sensitivezf3zf3zz__readerz00(obj_t, obj_t);
extern long BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_STATEzd20zd21003z00zz__readerz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__readz00zz__readerz00(obj_t, obj_t);
static obj_t BGl_za2listzd2errorsza2zd2zz__readerz00 = BUNSPEC;
static long BGl_stringzd2newlinezd2numberz00zz__readerz00(obj_t);
extern obj_t escape_C_string(char *);
static obj_t BGl_STATEzd20zd21021z00zz__readerz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_za2endzd2ofzd2listza2z00zz__readerz00 = BUNSPEC;
static obj_t BGl_cnstzd2initzd2zz__readerz00();
extern obj_t utf8_string_to_ucs2_string(obj_t);
BGL_EXPORTED_DECL obj_t BGl_bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00(obj_t);
extern bool_t bigloo_strcmp(obj_t, obj_t);
static obj_t BGl_za2cycliczd2referencesza2zd2zz__readerz00 = BUNSPEC;
extern obj_t BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern obj_t close_input_port(obj_t);
extern obj_t BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_makezd2listz12zc0zz__readerz00(obj_t, obj_t);
static obj_t BGl_readzd2errorzd2zz__readerz00(char *, obj_t, obj_t);
static obj_t BGl_za2dottedzd2markza2zd2zz__readerz00 = BUNSPEC;
extern bool_t rgc_buffer_bol_p(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__readerz00();
static long BGl_za2brazd2openza2zd2zz__readerz00;
BGL_EXPORTED_DECL obj_t BGl_readzd2casezd2insensitivez00zz__readerz00(obj_t);
extern obj_t BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(unsigned char);
static obj_t BGl__bigloozd2casezd2sensitivityz00zz__readerz00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__readerz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_za2bigloozd2interpreterza2zd2zz__readerz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_readzf2casezf2zz__readerz00(obj_t, obj_t);
extern double rgc_buffer_flonum(obj_t);
extern obj_t rgc_buffer_substring(obj_t, int, int);
extern obj_t BGl_warningzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_thezd2failurezd2zz__readerz00(obj_t);
extern obj_t rgc_buffer_symbol(obj_t);
static obj_t BGl_symbol10213z00zz__readerz00 = BUNSPEC;
static obj_t BGl_symbol10214z00zz__readerz00 = BUNSPEC;
static obj_t BGl_symbol10215z00zz__readerz00 = BUNSPEC;
static obj_t BGl_symbol10216z00zz__readerz00 = BUNSPEC;
static obj_t BGl_symbol10217z00zz__readerz00 = BUNSPEC;
static obj_t BGl_symbol10220z00zz__readerz00 = BUNSPEC;
extern obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_symbol10221z00zz__readerz00 = BUNSPEC;
static obj_t BGl_symbol10222z00zz__readerz00 = BUNSPEC;
static obj_t BGl__bigloozd2regularzd2grammarz00zz__readerz00(obj_t);
static obj_t BGl_symbol10223z00zz__readerz00 = BUNSPEC;
static obj_t BGl_symbol10225z00zz__readerz00 = BUNSPEC;
static obj_t BGl_symbol10226z00zz__readerz00 = BUNSPEC;
static obj_t BGl_symbol10230z00zz__readerz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31213ze3z83zz__readerz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol10229z00zz__readerz00 = BUNSPEC;
static obj_t BGl_symbol10231z00zz__readerz00 = BUNSPEC;
static obj_t BGl_symbol10232z00zz__readerz00 = BUNSPEC;
static obj_t BGl__bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00(obj_t, obj_t);
static obj_t BGl_za2linezd2numberza2zd2zz__readerz00 = BUNSPEC;
extern bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_STATEzd20zd21195z00zz__readerz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_bigloozd2regularzd2grammarz00zz__readerz00();
BGL_EXPORTED_DECL obj_t BGl_readerzd2resetz12zc0zz__readerz00();
static obj_t BGl_ignorez00zz__readerz00(obj_t);
static obj_t BGl_zc3exitza36620ze3z83zz__readerz00(obj_t);
static obj_t BGl_thezd2substringzd2zz__readerz00(obj_t, long, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__readerz00();
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2casezd2sensitivityzd2setz12zd2envz12zz__readerz00, BgL_bgl__biglooza7d2caseza7d2sensitivityza7d2setza712za7c0za7za7__readerza70010258z00, BGl__bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_symbolzd2casezd2sensitivezf3zd2envz21zz__readerz00, BgL_bgl__symbolza7d2caseza7d2sensitiveza7f3za7f3za7za7__readerza70010259za7, BGl__symbolzd2casezd2sensitivezf3zf3zz__readerz00, 0L, 1 );
DEFINE_STRING( BGl_string10207z00zz__readerz00, BgL_bgl_string10207za700za7za7__readerza70010260z00, "read", 4 );
DEFINE_STRING( BGl_string10208z00zz__readerz00, BgL_bgl_string10208za700za7za7__readerza70010261z00, "Unclosed list", 13 );
DEFINE_STRING( BGl_string10209z00zz__readerz00, BgL_bgl_string10209za700za7za7__readerza70010262z00, "Unexpected end-of-file", 22 );
DEFINE_STRING( BGl_string10210z00zz__readerz00, BgL_bgl_string10210za700za7za7__readerza70010263z00, "Unclosed vector or structure", 28 );
DEFINE_STRING( BGl_string10211z00zz__readerz00, BgL_bgl_string10211za700za7za7__readerza70010264z00, "Illegal char", 12 );
DEFINE_STRING( BGl_string10212z00zz__readerz00, BgL_bgl_string10212za700za7za7__readerza70010265z00, "Illegal cyclic reference", 24 );
DEFINE_STRING( BGl_string10218z00zz__readerz00, BgL_bgl_string10218za700za7za7__readerza70010266z00, "'", 1 );
DEFINE_STRING( BGl_string10219z00zz__readerz00, BgL_bgl_string10219za700za7za7__readerza70010267z00, "Superfluous closing parenthesis `", 33 );
DEFINE_STRING( BGl_string10224z00zz__readerz00, BgL_bgl_string10224za700za7za7__readerza70010268z00, "Illegal constant", 16 );
DEFINE_STRING( BGl_string10227z00zz__readerz00, BgL_bgl_string10227za700za7za7__readerza70010269z00, "Illegal identifier", 18 );
DEFINE_STRING( BGl_string10228z00zz__readerz00, BgL_bgl_string10228za700za7za7__readerza70010270z00, "Illegal token", 13 );
DEFINE_STRING( BGl_string10233z00zz__readerz00, BgL_bgl_string10233za700za7za7__readerza70010271z00, "Illegal character", 17 );
DEFINE_STRING( BGl_string10234z00zz__readerz00, BgL_bgl_string10234za700za7za7__readerza70010272z00, "Illegal ascii character", 23 );
DEFINE_STRING( BGl_string10235z00zz__readerz00, BgL_bgl_string10235za700za7za7__readerza70010273z00, "#!optional", 10 );
DEFINE_STRING( BGl_string10236z00zz__readerz00, BgL_bgl_string10236za700za7za7__readerza70010274z00, "#!rest", 6 );
DEFINE_STRING( BGl_string10237z00zz__readerz00, BgL_bgl_string10237za700za7za7__readerza70010275z00, "#!key", 5 );
DEFINE_STRING( BGl_string10238z00zz__readerz00, BgL_bgl_string10238za700za7za7__readerza70010276z00, "regular-grammar", 15 );
DEFINE_STRING( BGl_string10240z00zz__readerz00, BgL_bgl_string10240za700za7za7__readerza70010277z00, "the-substring", 13 );
DEFINE_STRING( BGl_string10239z00zz__readerz00, BgL_bgl_string10239za700za7za7__readerza70010278z00, "Illegal match", 13 );
DEFINE_STRING( BGl_string10241z00zz__readerz00, BgL_bgl_string10241za700za7za7__readerza70010279z00, "Illegal range", 13 );
DEFINE_STRING( BGl_string10242z00zz__readerz00, BgL_bgl_string10242za700za7za7__readerza70010280z00, "bigloo-sensitivity-set!", 23 );
DEFINE_STRING( BGl_string10243z00zz__readerz00, BgL_bgl_string10243za700za7za7__readerza70010281z00, "Illegal sensitivity", 19 );
DEFINE_STRING( BGl_string10244z00zz__readerz00, BgL_bgl_string10244za700za7za7__readerza70010282z00, "no target for graph reference", 29 );
DEFINE_STRING( BGl_string10245z00zz__readerz00, BgL_bgl_string10245za700za7za7__readerza70010283z00, "Illegal quotation", 17 );
DEFINE_STRING( BGl_string10246z00zz__readerz00, BgL_bgl_string10246za700za7za7__readerza70010284z00, "EOF inside block comment -- #| missing a closing |#", 51 );
DEFINE_STRING( BGl_string10248z00zz__readerz00, BgL_bgl_string10248za700za7za7__readerza70010285z00, "Illegal closed input port", 25 );
DEFINE_STRING( BGl_string10249z00zz__readerz00, BgL_bgl_string10249za700za7za7__readerza70010286z00, "type `input-port' expected", 26 );
DEFINE_EXPORT_PROCEDURE( BGl_readerzd2resetz12zd2envz12zz__readerz00, BgL_bgl__readerza7d2resetza712za7c0za7za7__readerza70010287z00, BGl__readerzd2resetz12zc0zz__readerz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2casezd2sensitivezd2envzd2zz__readerz00, BgL_bgl__readza7d2caseza7d2sensitiveza700za7za7__readerza70010288z00, va_generic_entry, BGl__readzd2casezd2sensitivez00zz__readerz00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2casezd2insensitivezd2envzd2zz__readerz00, BgL_bgl__readza7d2caseza7d2insensitiveza700za7za7__readerza70010289z00, va_generic_entry, BGl__readzd2casezd2insensitivez00zz__readerz00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_readzd2envzd2zz__readerz00, BgL_bgl__readza700za7za7__readerza70010290z00, va_generic_entry, BGl__readz00zz__readerz00, -1 );
DEFINE_STATIC_PROCEDURE( BGl_proc10206z00zz__readerz00, BgL_bgl_stateza7d20za7d21021za700za7za7__readerza70010291z00, BGl_STATEzd20zd21021z00zz__readerz00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc10247z00zz__readerz00, BgL_bgl_stateza7d20za7d21003za700za7za7__readerza70010292z00, BGl_STATEzd20zd21003z00zz__readerz00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc10250z00zz__readerz00, BgL_bgl_stateza7d20za7d21195za700za7za7__readerza70010293z00, BGl_STATEzd20zd21195z00zz__readerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_readzf2casezd2envz20zz__readerz00, BgL_bgl__readza7f2caseza7f2za7za7__readerza70010294za7, va_generic_entry, BGl__readzf2casezf2zz__readerz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2casezd2sensitivityzd2envzd2zz__readerz00, BgL_bgl__biglooza7d2caseza7d2sensitivityza700za7za7__readerza70010295z00, BGl__bigloozd2casezd2sensitivityz00zz__readerz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2regularzd2grammarzd2envzd2zz__readerz00, BgL_bgl__biglooza7d2regularza7d2grammarza700za7za7__readerza70010296z00, BGl__bigloozd2regularzd2grammarz00zz__readerz00, 0L, 0 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long BgL_checksumz00_9768, char * BgL_fromz00_9769)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__readerz00))
{ 
BGl_requirezd2initializa7ationz75zz__readerz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__readerz00(); 
BGl_importedzd2moduleszd2initz00zz__readerz00(); 
BGl_toplevelzd2initzd2zz__readerz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__readerz00()
{ AN_OBJECT;
{ /* ./Read/reader.scm 14 */
BGl_symbol10213z00zz__readerz00 = 
string_to_symbol("at"); 
BGl_symbol10214z00zz__readerz00 = 
string_to_symbol("_structure_"); 
BGl_symbol10215z00zz__readerz00 = 
string_to_symbol("upcase"); 
BGl_symbol10216z00zz__readerz00 = 
string_to_symbol("downcase"); 
BGl_symbol10217z00zz__readerz00 = 
string_to_symbol("sensitive"); 
BGl_symbol10220z00zz__readerz00 = 
string_to_symbol("unquote-splicing"); 
BGl_symbol10221z00zz__readerz00 = 
string_to_symbol("unquote"); 
BGl_symbol10222z00zz__readerz00 = 
string_to_symbol("quasiquote"); 
BGl_symbol10223z00zz__readerz00 = 
string_to_symbol("quote"); 
BGl_symbol10225z00zz__readerz00 = 
string_to_symbol("UNSPECIFIED"); 
BGl_symbol10226z00zz__readerz00 = 
string_to_symbol("EOF-OBJECT"); 
BGl_symbol10229z00zz__readerz00 = 
string_to_symbol("NEWLINE"); 
BGl_symbol10230z00zz__readerz00 = 
string_to_symbol("TAB"); 
BGl_symbol10231z00zz__readerz00 = 
string_to_symbol("SPACE"); 
return ( 
BGl_symbol10232z00zz__readerz00 = 
string_to_symbol("RETURN"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__readerz00()
{ AN_OBJECT;
{ /* ./Read/reader.scm 14 */
BGl_za2bigloozd2interpreterza2zd2zz__readerz00 = BFALSE; 
BGl_za2parzd2openza2zd2zz__readerz00 = ((long)0); 
BGl_za2brazd2openza2zd2zz__readerz00 = ((long)0); 
BGl_za2listzd2errorzd2levelza2z00zz__readerz00 = ((long)20); 
{ /* ./Read/reader.scm 107 */
int BgL_auxz00_9791;
BgL_auxz00_9791 = 
(int)(((long)20)); 
BGl_za2listzd2errorsza2zd2zz__readerz00 = 
make_vector(BgL_auxz00_9791, BUNSPEC); } 
{ /* ./Read/reader.scm 108 */
int BgL_auxz00_9794;
BgL_auxz00_9794 = 
(int)(((long)20)); 
BGl_za2vectorzd2errorsza2zd2zz__readerz00 = 
make_vector(BgL_auxz00_9794, BUNSPEC); } 
BGl_za2cycliczd2referencesza2zd2zz__readerz00 = BNIL; 
BGl_za2positionzf3za2zf3zz__readerz00 = ((bool_t)0); 
BGl_za2linezd2numberza2zd2zz__readerz00 = 
BINT(((long)1)); 
{ /* ./Read/reader.scm 116 */
obj_t BgL_auxz00_9800;obj_t BgL_auxz00_9798;
BgL_auxz00_9800 = 
BINT(((long)0)); 
BgL_auxz00_9798 = 
BINT(((long)0)); 
BGl_za2endzd2ofzd2listza2z00zz__readerz00 = 
MAKE_PAIR(BgL_auxz00_9798, BgL_auxz00_9800); } 
{ /* ./Read/reader.scm 117 */
obj_t BgL_auxz00_9805;obj_t BgL_auxz00_9803;
BgL_auxz00_9805 = 
BINT(((long)1)); 
BgL_auxz00_9803 = 
BINT(((long)1)); 
BGl_za2dottedzd2markza2zd2zz__readerz00 = 
MAKE_PAIR(BgL_auxz00_9803, BgL_auxz00_9805); } 
{ /* ./Read/reader.scm 336 */
obj_t BgL_thezd2rgczd2contextz00_484;
BgL_thezd2rgczd2contextz00_484 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Read/reader.scm 336 */
obj_t BgL_zc3anonymousza31213ze3z83_9692;
{ 
int BgL_auxz00_9810;int BgL_auxz00_9808;
BgL_auxz00_9810 = 
(int)(((long)1)); 
BgL_auxz00_9808 = 
(int)(((long)2)); 
BgL_zc3anonymousza31213ze3z83_9692 = 
make_fx_procedure(BGl_zc3anonymousza31213ze3z83zz__readerz00, BgL_auxz00_9808, BgL_auxz00_9810); } 
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9813;
BgL_auxz00_9813 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31213ze3z83_9692, BgL_auxz00_9813, BgL_thezd2rgczd2contextz00_484); } 
return ( 
BGl_za2bigloozd2grammarza2zd2zz__readerz00 = BgL_zc3anonymousza31213ze3z83_9692, BUNSPEC) ;} } } 
}



/* <anonymous:1213> */
obj_t BGl_zc3anonymousza31213ze3z83zz__readerz00(obj_t BgL_envz00_9693, obj_t BgL_inputzd2portzd2_9695, obj_t BgL_procz00_9696)
{ AN_OBJECT;
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
obj_t BgL_thezd2rgczd2contextz00_9694;
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9816;
BgL_auxz00_9816 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_9694 = 
PROCEDURE_REF(BgL_envz00_9693, BgL_auxz00_9816); } 
{ 
obj_t BgL_inputzd2portzd2_485;obj_t BgL_procz00_486;
BgL_inputzd2portzd2_485 = BgL_inputzd2portzd2_9695; 
BgL_procz00_486 = BgL_procz00_9696; 
{ /* ./Read/reader.scm 336 */
obj_t BgL_ignorez00_9691;
{ 
int BgL_auxz00_9819;
BgL_auxz00_9819 = 
(int)(((long)4)); 
BgL_ignorez00_9691 = 
MAKE_EL_PROCEDURE(BgL_auxz00_9819); } 
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9822;
BgL_auxz00_9822 = 
(int)(((long)0)); 
PROCEDURE_EL_SET(BgL_ignorez00_9691, BgL_auxz00_9822, BgL_inputzd2portzd2_485); } 
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9825;
BgL_auxz00_9825 = 
(int)(((long)1)); 
PROCEDURE_EL_SET(BgL_ignorez00_9691, BgL_auxz00_9825, BgL_procz00_486); } 
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9828;
BgL_auxz00_9828 = 
(int)(((long)2)); 
PROCEDURE_EL_SET(BgL_ignorez00_9691, BgL_auxz00_9828, BgL_thezd2rgczd2contextz00_9694); } 
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9831;
BgL_auxz00_9831 = 
(int)(((long)3)); 
PROCEDURE_EL_SET(BgL_ignorez00_9691, BgL_auxz00_9831, BGl_proc10206z00zz__readerz00); } 
return 
BGl_ignorez00zz__readerz00(BgL_ignorez00_9691);} } } } 
}



/* ignore */
obj_t BGl_ignorez00zz__readerz00(obj_t BgL_envz00_9697)
{ AN_OBJECT;
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
obj_t BgL_inputzd2portzd2_9698;obj_t BgL_procz00_9699;obj_t BgL_thezd2rgczd2contextz00_9700;obj_t BgL_statezd20zd21021z00_9701;
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9835;
BgL_auxz00_9835 = 
(int)(((long)0)); 
BgL_inputzd2portzd2_9698 = 
PROCEDURE_EL_REF(BgL_envz00_9697, BgL_auxz00_9835); } 
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9838;
BgL_auxz00_9838 = 
(int)(((long)1)); 
BgL_procz00_9699 = 
PROCEDURE_EL_REF(BgL_envz00_9697, BgL_auxz00_9838); } 
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9841;
BgL_auxz00_9841 = 
(int)(((long)2)); 
BgL_thezd2rgczd2contextz00_9700 = 
PROCEDURE_EL_REF(BgL_envz00_9697, BgL_auxz00_9841); } 
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9844;
BgL_auxz00_9844 = 
(int)(((long)3)); 
BgL_statezd20zd21021z00_9701 = 
PROCEDURE_EL_REF(BgL_envz00_9697, BgL_auxz00_9844); } 
return 
BGl_ignorez72z72zz__readerz00(BgL_envz00_9697, BgL_thezd2rgczd2contextz00_9700, BgL_statezd20zd21021z00_9701, BgL_procz00_9699, BgL_inputzd2portzd2_9698);} } 
}



/* ignore' */
obj_t BGl_ignorez72z72zz__readerz00(obj_t BgL_envz00_9763, obj_t BgL_thezd2rgczd2contextz00_9762, obj_t BgL_statezd20zd21021z00_9761, obj_t BgL_procz00_9760, obj_t BgL_inputzd2portzd2_9759)
{ AN_OBJECT;
{ /* ./Read/reader.scm 336 */
BGl_ignorez72z72zz__readerz00:
{ 

RGC_START_MATCH(BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 336 */
long BgL_matchz00_620;
if(
PROCEDUREP(BgL_procz00_9760))
{ /* ./Read/reader.scm 336 */
obj_t BgL_auxz00_9851;
BgL_auxz00_9851 = 
PROCEDURE_ENTRY(BgL_procz00_9760)(BgL_procz00_9760, BgL_statezd20zd21021z00_9761, BgL_inputzd2portzd2_9759, 
BINT(((long)41)), 
CELL_REF(BgL_thezd2rgczd2contextz00_9762), BEOA); 
BgL_matchz00_620 = 
(long)CINT(BgL_auxz00_9851); }  else 
{ /* ./Read/reader.scm 336 */
obj_t BgL_auxz00_9856;
BgL_auxz00_9856 = 
BGl_STATEzd20zd21021z00zz__readerz00(BgL_statezd20zd21021z00_9761, BgL_inputzd2portzd2_9759, 
BINT(((long)41)), 
CELL_REF(BgL_thezd2rgczd2contextz00_9762)); 
BgL_matchz00_620 = 
(long)CINT(BgL_auxz00_9856); } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_9759); 
switch( BgL_matchz00_620) { case ((long)41) : 

{ /* ./Read/reader.scm 645 */
obj_t BgL_charz00_624;
{ /* ./Read/reader.scm 336 */
bool_t BgL_test1873z00_897;
{ /* ./Read/reader.scm 336 */
int BgL_arg1880z00_900;
{ /* ./Read/reader.scm 336 */
int BgL_res7933z00_4742;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_9861;
BgL_auxz00_9861 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7933z00_4742 = 
(int)(BgL_auxz00_9861); } 
BgL_arg1880z00_900 = BgL_res7933z00_4742; } 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_9864;
BgL_auxz00_9864 = 
(long)(BgL_arg1880z00_900); 
BgL_test1873z00_897 = 
(BgL_auxz00_9864==((long)0)); } } 
if(BgL_test1873z00_897)
{ /* ./Read/reader.scm 336 */
BgL_charz00_624 = BCNST(256); }  else 
{ /* ./Read/reader.scm 336 */
obj_t BgL_arg1875z00_898;
{ /* ./Read/reader.scm 336 */
obj_t BgL_res7935z00_4752;
{ /* ./Read/reader.scm 336 */
int BgL_arg1917z00_4746;
{ /* ./Read/reader.scm 336 */
int BgL_res7934z00_4748;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_9868;
BgL_auxz00_9868 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7934z00_4748 = 
(int)(BgL_auxz00_9868); } 
BgL_arg1917z00_4746 = BgL_res7934z00_4748; } 
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9871;
BgL_auxz00_9871 = 
(int)(((long)0)); 
BgL_res7935z00_4752 = 
rgc_buffer_substring(BgL_inputzd2portzd2_9759, BgL_auxz00_9871, BgL_arg1917z00_4746); } } 
BgL_arg1875z00_898 = BgL_res7935z00_4752; } 
{ /* ./Read/reader.scm 336 */
unsigned char BgL_auxz00_9874;
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_9875;
BgL_auxz00_9875 = 
(int)(((long)0)); 
BgL_auxz00_9874 = 
STRING_REF(BgL_arg1875z00_898, BgL_auxz00_9875); } 
BgL_charz00_624 = 
BCHAR(BgL_auxz00_9874); } } } 
{ /* ./Read/reader.scm 646 */
bool_t BgL_test1219z00_625;
BgL_test1219z00_625 = 
EOF_OBJECTP(BgL_charz00_624); 
if(BgL_test1219z00_625)
{ /* ./Read/reader.scm 646 */
if(
(BGl_za2parzd2openza2zd2zz__readerz00>((long)0)))
{ /* ./Read/reader.scm 647 */
{ /* ./Read/reader.scm 662 */
long BgL_openzd2keyzd2_627;
BgL_openzd2keyzd2_627 = 
(BGl_za2parzd2openza2zd2zz__readerz00-((long)1)); 
BGl_readerzd2resetz12zc0zz__readerz00(); 
{ /* ./Read/reader.scm 651 */
bool_t BgL_test1222z00_628;
{ /* ./Read/reader.scm 651 */
bool_t BgL_test1236z00_634;
{ /* ./Read/reader.scm 651 */
int BgL_arg1243z00_636;
BgL_arg1243z00_636 = 
VECTOR_LENGTH(BGl_za2listzd2errorsza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 651 */
long BgL_auxz00_9886;
BgL_auxz00_9886 = 
(long)(BgL_arg1243z00_636); 
BgL_test1236z00_634 = 
(BgL_openzd2keyzd2_627<BgL_auxz00_9886); } } 
if(BgL_test1236z00_634)
{ /* ./Read/reader.scm 652 */
obj_t BgL_auxz00_9890;
{ 
int BgL_auxz00_9891;
BgL_auxz00_9891 = 
(int)(BgL_openzd2keyzd2_627); 
BgL_auxz00_9890 = 
VECTOR_REF(BGl_za2listzd2errorsza2zd2zz__readerz00,BgL_auxz00_9891); } 
BgL_test1222z00_628 = 
INTEGERP(BgL_auxz00_9890); }  else 
{ /* ./Read/reader.scm 651 */
BgL_test1222z00_628 = ((bool_t)0); } } 
if(BgL_test1222z00_628)
{ /* ./Read/reader.scm 653 */
char * BgL_arg1227z00_631;obj_t BgL_arg1228z00_632;
BgL_arg1227z00_631 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
{ 
int BgL_auxz00_9897;
BgL_auxz00_9897 = 
(int)(BgL_openzd2keyzd2_627); 
BgL_arg1228z00_632 = 
VECTOR_REF(BGl_za2listzd2errorsza2zd2zz__readerz00,BgL_auxz00_9897); } 
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10208z00zz__readerz00, BgL_charz00_624, 
string_to_bstring(BgL_arg1227z00_631), BgL_arg1228z00_632);}  else 
{ /* ./Read/reader.scm 651 */
FAILURE(BGl_string10207z00zz__readerz00,BGl_string10209z00zz__readerz00,BGl_string10208z00zz__readerz00);} } } }  else 
{ /* ./Read/reader.scm 647 */
if(
(BGl_za2brazd2openza2zd2zz__readerz00>((long)0)))
{ /* ./Read/reader.scm 676 */
{ /* ./Read/reader.scm 662 */
long BgL_openzd2keyzd2_638;
BgL_openzd2keyzd2_638 = 
(BGl_za2brazd2openza2zd2zz__readerz00-((long)1)); 
BGl_readerzd2resetz12zc0zz__readerz00(); 
{ /* ./Read/reader.scm 664 */
bool_t BgL_test1249z00_639;
{ /* ./Read/reader.scm 664 */
bool_t BgL_test1263z00_645;
{ /* ./Read/reader.scm 664 */
int BgL_arg1269z00_647;
BgL_arg1269z00_647 = 
VECTOR_LENGTH(BGl_za2vectorzd2errorsza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 664 */
long BgL_auxz00_9908;
BgL_auxz00_9908 = 
(long)(BgL_arg1269z00_647); 
BgL_test1263z00_645 = 
(BgL_openzd2keyzd2_638<BgL_auxz00_9908); } } 
if(BgL_test1263z00_645)
{ /* ./Read/reader.scm 665 */
obj_t BgL_auxz00_9912;
{ 
int BgL_auxz00_9913;
BgL_auxz00_9913 = 
(int)(BgL_openzd2keyzd2_638); 
BgL_auxz00_9912 = 
VECTOR_REF(BGl_za2vectorzd2errorsza2zd2zz__readerz00,BgL_auxz00_9913); } 
BgL_test1249z00_639 = 
INTEGERP(BgL_auxz00_9912); }  else 
{ /* ./Read/reader.scm 664 */
BgL_test1249z00_639 = ((bool_t)0); } } 
if(BgL_test1249z00_639)
{ /* ./Read/reader.scm 667 */
char * BgL_arg1254z00_642;obj_t BgL_arg1255z00_643;
BgL_arg1254z00_642 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
{ 
int BgL_auxz00_9919;
BgL_auxz00_9919 = 
(int)(BgL_openzd2keyzd2_638); 
BgL_arg1255z00_643 = 
VECTOR_REF(BGl_za2vectorzd2errorsza2zd2zz__readerz00,BgL_auxz00_9919); } 
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10210z00zz__readerz00, BgL_charz00_624, 
string_to_bstring(BgL_arg1254z00_642), BgL_arg1255z00_643);}  else 
{ /* ./Read/reader.scm 664 */
FAILURE(BGl_string10207z00zz__readerz00,BGl_string10209z00zz__readerz00,BGl_string10210z00zz__readerz00);} } } }  else 
{ /* ./Read/reader.scm 676 */
reset_eof(BgL_inputzd2portzd2_9759); 
return BgL_charz00_624;} } }  else 
{ /* ./Read/reader.scm 679 */
obj_t BgL_arg1282z00_651;char * BgL_arg1283z00_652;int BgL_arg1284z00_653;
BgL_arg1282z00_651 = 
BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(
(unsigned char)CCHAR(BgL_charz00_624)); 
BgL_arg1283z00_652 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
BgL_arg1284z00_653 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10211z00zz__readerz00, BgL_arg1282z00_651, 
string_to_bstring(BgL_arg1283z00_652), 
BINT(BgL_arg1284z00_653));} } } break;case ((long)40) : 

{ /* ./Read/reader.scm 637 */
long BgL_noz00_656;
{ /* ./Read/reader.scm 637 */
obj_t BgL_arg1303z00_660;
{ /* ./Read/reader.scm 637 */
long BgL_arg1308z00_663;
{ /* ./Read/reader.scm 637 */
int BgL_arg1311z00_664;
{ /* ./Read/reader.scm 637 */
int BgL_res7853z00_4324;
{ /* ./Read/reader.scm 637 */
long BgL_auxz00_9933;
BgL_auxz00_9933 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7853z00_4324 = 
(int)(BgL_auxz00_9933); } 
BgL_arg1311z00_664 = BgL_res7853z00_4324; } 
{ /* ./Read/reader.scm 637 */
long BgL_auxz00_9936;
BgL_auxz00_9936 = 
(long)(BgL_arg1311z00_664); 
BgL_arg1308z00_663 = 
(BgL_auxz00_9936-((long)1)); } } 
BgL_arg1303z00_660 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)1), 
BINT(BgL_arg1308z00_663)); } 
BgL_noz00_656 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1303z00_660, BNIL); } 
{ /* ./Read/reader.scm 637 */
obj_t BgL_cellz00_657;
BgL_cellz00_657 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(
BINT(BgL_noz00_656), BGl_za2cycliczd2referencesza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 638 */

if(
PAIRP(BgL_cellz00_657))
{ /* ./Read/reader.scm 639 */
return 
CDR(BgL_cellz00_657);}  else 
{ /* ./Read/reader.scm 640 */
obj_t BgL_zc3anonymousza31299ze3z83_9689;
{ 
int BgL_auxz00_9949;int BgL_auxz00_9947;
BgL_auxz00_9949 = 
(int)(((long)1)); 
BgL_auxz00_9947 = 
(int)(((long)0)); 
BgL_zc3anonymousza31299ze3z83_9689 = 
make_fx_procedure(BGl_zc3anonymousza31299ze3z83zz__readerz00, BgL_auxz00_9947, BgL_auxz00_9949); } 
{ /* ./Read/reader.scm 640 */
obj_t BgL_auxz00_9954;int BgL_auxz00_9952;
BgL_auxz00_9954 = 
BINT(BgL_noz00_656); 
BgL_auxz00_9952 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31299ze3z83_9689, BgL_auxz00_9952, BgL_auxz00_9954); } 
return BgL_zc3anonymousza31299ze3z83_9689;} } } } break;case ((long)39) : 

{ /* ./Read/reader.scm 622 */
long BgL_noz00_666;
{ /* ./Read/reader.scm 622 */
obj_t BgL_arg1340z00_677;
{ /* ./Read/reader.scm 622 */
long BgL_arg1345z00_680;
{ /* ./Read/reader.scm 622 */
int BgL_arg1348z00_681;
{ /* ./Read/reader.scm 622 */
int BgL_res7854z00_4330;
{ /* ./Read/reader.scm 622 */
long BgL_auxz00_9957;
BgL_auxz00_9957 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7854z00_4330 = 
(int)(BgL_auxz00_9957); } 
BgL_arg1348z00_681 = BgL_res7854z00_4330; } 
{ /* ./Read/reader.scm 622 */
long BgL_auxz00_9960;
BgL_auxz00_9960 = 
(long)(BgL_arg1348z00_681); 
BgL_arg1345z00_680 = 
(BgL_auxz00_9960-((long)1)); } } 
BgL_arg1340z00_677 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)1), 
BINT(BgL_arg1345z00_680)); } 
BgL_noz00_666 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1340z00_677, BNIL); } 
{ /* ./Read/reader.scm 622 */
int BgL_posz00_667;
BgL_posz00_667 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 623 */
obj_t BgL_thezd2objectzd2_668;
BgL_thezd2objectzd2_668 = 
BGl_ignorez72z72zz__readerz00(BgL_envz00_9763, BgL_thezd2rgczd2contextz00_9762, BgL_statezd20zd21021z00_9761, BgL_procz00_9760, BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 624 */

{ /* ./Read/reader.scm 625 */
bool_t BgL_test1315z00_669;
BgL_test1315z00_669 = 
EOF_OBJECTP(BgL_thezd2objectzd2_668); 
if(BgL_test1315z00_669)
{ /* ./Read/reader.scm 626 */
char * BgL_arg1319z00_672;
BgL_arg1319z00_672 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10212z00zz__readerz00, 
BINT(BgL_noz00_666), 
string_to_bstring(BgL_arg1319z00_672), 
BINT(BgL_posz00_667)); }  else 
{ /* ./Read/reader.scm 625 */BFALSE; } } 
{ /* ./Read/reader.scm 632 */
obj_t BgL_arg1327z00_674;
{ /* ./Read/reader.scm 632 */
obj_t BgL_auxz00_9975;
BgL_auxz00_9975 = 
BINT(BgL_noz00_666); 
BgL_arg1327z00_674 = 
MAKE_PAIR(BgL_auxz00_9975, BgL_thezd2objectzd2_668); } 
BGl_za2cycliczd2referencesza2zd2zz__readerz00 = 
MAKE_PAIR(BgL_arg1327z00_674, BGl_za2cycliczd2referencesza2zd2zz__readerz00); } 
return 
BGl_loopz00zz__readerz00(BgL_inputzd2portzd2_9759, BgL_thezd2objectzd2_668);} } } } break;case ((long)38) : 

BGl_za2brazd2openza2zd2zz__readerz00 = 
(BGl_za2brazd2openza2zd2zz__readerz00-((long)1)); 
if(
(BGl_za2brazd2openza2zd2zz__readerz00<((long)0)))
{ /* ./Read/reader.scm 614 */
BGl_za2brazd2openza2zd2zz__readerz00 = ((long)0); 
{ 

goto BGl_ignorez72z72zz__readerz00;} }  else 
{ /* ./Read/reader.scm 614 */
return BGl_za2endzd2ofzd2listza2z00zz__readerz00;} break;case ((long)37) : 

{ /* ./Read/reader.scm 603 */
bool_t BgL_test1356z00_684;
{ /* ./Read/reader.scm 604 */
int BgL_arg1364z00_688;
BgL_arg1364z00_688 = 
VECTOR_LENGTH(BGl_za2vectorzd2errorsza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 604 */
long BgL_auxz00_9984;
BgL_auxz00_9984 = 
(long)(BgL_arg1364z00_688); 
BgL_test1356z00_684 = 
(BGl_za2brazd2openza2zd2zz__readerz00<BgL_auxz00_9984); } } 
if(BgL_test1356z00_684)
{ /* ./Read/reader.scm 605 */
int BgL_posz00_685;
BgL_posz00_685 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
{ 
obj_t BgL_auxz00_9991;int BgL_auxz00_9989;
BgL_auxz00_9991 = 
BINT(BgL_posz00_685); 
BgL_auxz00_9989 = 
(int)(BGl_za2brazd2openza2zd2zz__readerz00); 
VECTOR_SET(BGl_za2vectorzd2errorsza2zd2zz__readerz00,BgL_auxz00_9989,BgL_auxz00_9991); } }  else 
{ /* ./Read/reader.scm 603 */BFALSE; } } 
BGl_za2brazd2openza2zd2zz__readerz00 = 
(((long)1)+BGl_za2brazd2openza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 610 */
obj_t BgL_lz00_689;
{ /* ./Read/reader.scm 610 */
obj_t BgL_arg1371z00_690;
{ /* ./Read/reader.scm 610 */
char * BgL_namez00_4354;
BgL_namez00_4354 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 610 */
int BgL_posz00_4355;
BgL_posz00_4355 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 610 */
obj_t BgL_linez00_4356;
BgL_linez00_4356 = BGl_za2linezd2numberza2zd2zz__readerz00; 
{ /* ./Read/reader.scm 610 */
obj_t BgL_itemz00_4357;
BgL_itemz00_4357 = 
BGl_ignorez72z72zz__readerz00(BgL_envz00_9763, BgL_thezd2rgczd2contextz00_9762, BgL_statezd20zd21021z00_9761, BgL_procz00_9760, BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 610 */

if(
(BgL_itemz00_4357==BGl_za2endzd2ofzd2listza2z00zz__readerz00))
{ /* ./Read/reader.scm 610 */
BgL_arg1371z00_690 = BNIL; }  else 
{ 
obj_t BgL_accz00_4360;
{ /* ./Read/reader.scm 610 */
obj_t BgL_arg6290z00_4372;
if(BGl_za2positionzf3za2zf3zz__readerz00)
{ /* ./Read/reader.scm 610 */
obj_t BgL_arg6294z00_4374;
{ /* ./Read/reader.scm 610 */
obj_t BgL_list6297z00_4375;
{ /* ./Read/reader.scm 610 */
obj_t BgL_arg6299z00_4376;obj_t BgL_arg6300z00_4377;
BgL_arg6299z00_4376 = BGl_symbol10213z00zz__readerz00; 
{ /* ./Read/reader.scm 610 */
obj_t BgL_arg6303z00_4378;
{ /* ./Read/reader.scm 610 */
obj_t BgL_arg6306z00_4379;
BgL_arg6306z00_4379 = 
MAKE_PAIR(BgL_linez00_4356, BNIL); 
{ /* ./Read/reader.scm 610 */
obj_t BgL_auxz00_10002;
BgL_auxz00_10002 = 
BINT(BgL_posz00_4355); 
BgL_arg6303z00_4378 = 
MAKE_PAIR(BgL_auxz00_10002, BgL_arg6306z00_4379); } } 
{ /* ./Read/reader.scm 610 */
obj_t BgL_auxz00_10005;
BgL_auxz00_10005 = 
string_to_bstring(BgL_namez00_4354); 
BgL_arg6300z00_4377 = 
MAKE_PAIR(BgL_auxz00_10005, BgL_arg6303z00_4378); } } 
BgL_list6297z00_4375 = 
MAKE_PAIR(BgL_arg6299z00_4376, BgL_arg6300z00_4377); } 
BgL_arg6294z00_4374 = BgL_list6297z00_4375; } 
{ /* ./Read/reader.scm 610 */
obj_t BgL_res7861z00_4387;
BgL_res7861z00_4387 = 
MAKE_EXTENDED_PAIR(BgL_itemz00_4357, BNIL, BgL_arg6294z00_4374); 
BgL_arg6290z00_4372 = BgL_res7861z00_4387; } }  else 
{ /* ./Read/reader.scm 610 */
BgL_arg6290z00_4372 = 
MAKE_PAIR(BgL_itemz00_4357, BNIL); } 
BgL_accz00_4360 = BgL_arg6290z00_4372; 
BgL_loopz00_4359:
{ /* ./Read/reader.scm 610 */
obj_t BgL_itemz00_4361;
BgL_itemz00_4361 = 
BGl_ignorez72z72zz__readerz00(BgL_envz00_9763, BgL_thezd2rgczd2contextz00_9762, BgL_statezd20zd21021z00_9761, BgL_procz00_9760, BgL_inputzd2portzd2_9759); 
if(
(BgL_itemz00_4361==BGl_za2endzd2ofzd2listza2z00zz__readerz00))
{ /* ./Read/reader.scm 610 */
BgL_arg1371z00_690 = BgL_accz00_4360; }  else 
{ /* ./Read/reader.scm 610 */
obj_t BgL_arg6312z00_4363;
if(BGl_za2positionzf3za2zf3zz__readerz00)
{ /* ./Read/reader.scm 610 */
int BgL_newzd2poszd2_4364;obj_t BgL_newzd2linezd2_4365;
BgL_newzd2poszd2_4364 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
BgL_newzd2linezd2_4365 = BGl_za2linezd2numberza2zd2zz__readerz00; 
{ /* ./Read/reader.scm 610 */
obj_t BgL_arg6315z00_4366;
{ /* ./Read/reader.scm 610 */
obj_t BgL_list6318z00_4367;
{ /* ./Read/reader.scm 610 */
obj_t BgL_arg6320z00_4368;obj_t BgL_arg6321z00_4369;
BgL_arg6320z00_4368 = BGl_symbol10213z00zz__readerz00; 
{ /* ./Read/reader.scm 610 */
obj_t BgL_arg6324z00_4370;
{ /* ./Read/reader.scm 610 */
obj_t BgL_arg6327z00_4371;
BgL_arg6327z00_4371 = 
MAKE_PAIR(BgL_newzd2linezd2_4365, BNIL); 
{ /* ./Read/reader.scm 610 */
obj_t BgL_auxz00_10017;
BgL_auxz00_10017 = 
BINT(BgL_newzd2poszd2_4364); 
BgL_arg6324z00_4370 = 
MAKE_PAIR(BgL_auxz00_10017, BgL_arg6327z00_4371); } } 
{ /* ./Read/reader.scm 610 */
obj_t BgL_auxz00_10020;
BgL_auxz00_10020 = 
string_to_bstring(BgL_namez00_4354); 
BgL_arg6321z00_4369 = 
MAKE_PAIR(BgL_auxz00_10020, BgL_arg6324z00_4370); } } 
BgL_list6318z00_4367 = 
MAKE_PAIR(BgL_arg6320z00_4368, BgL_arg6321z00_4369); } 
BgL_arg6315z00_4366 = BgL_list6318z00_4367; } 
{ /* ./Read/reader.scm 610 */
obj_t BgL_res7863z00_4394;
BgL_res7863z00_4394 = 
MAKE_EXTENDED_PAIR(BgL_itemz00_4361, BgL_accz00_4360, BgL_arg6315z00_4366); 
BgL_arg6312z00_4363 = BgL_res7863z00_4394; } } }  else 
{ /* ./Read/reader.scm 610 */
BgL_arg6312z00_4363 = 
MAKE_PAIR(BgL_itemz00_4361, BgL_accz00_4360); } 
{ 
obj_t BgL_accz00_10026;
BgL_accz00_10026 = BgL_arg6312z00_4363; 
BgL_accz00_4360 = BgL_accz00_10026; 
goto BgL_loopz00_4359;} } } } } } } } } } 
BgL_lz00_689 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg1371z00_690); } 
return 
MAKE_PAIR(BGl_symbol10214z00zz__readerz00, BgL_lz00_689);} break;case ((long)36) : 

BGl_za2parzd2openza2zd2zz__readerz00 = 
(((long)1)+BGl_za2parzd2openza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 586 */
obj_t BgL_idz00_693;
{ /* ./Read/reader.scm 586 */
obj_t BgL_strz00_698;
{ /* ./Read/reader.scm 586 */
long BgL_arg1406z00_705;
{ /* ./Read/reader.scm 586 */
int BgL_arg1409z00_706;
{ /* ./Read/reader.scm 586 */
int BgL_res7864z00_4398;
{ /* ./Read/reader.scm 586 */
long BgL_auxz00_10030;
BgL_auxz00_10030 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7864z00_4398 = 
(int)(BgL_auxz00_10030); } 
BgL_arg1409z00_706 = BgL_res7864z00_4398; } 
{ /* ./Read/reader.scm 586 */
long BgL_auxz00_10033;
BgL_auxz00_10033 = 
(long)(BgL_arg1409z00_706); 
BgL_arg1406z00_705 = 
(BgL_auxz00_10033-((long)1)); } } 
BgL_strz00_698 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)1), 
BINT(BgL_arg1406z00_705)); } 
{ /* ./Read/reader.scm 588 */
obj_t BgL_arg1390z00_699;
{ /* ./Read/reader.scm 588 */
obj_t BgL_casezd2valuezd2_700;
BgL_casezd2valuezd2_700 = BGl_za2rgczd2caseza2zd2zz__rgcz00; 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_700, BGl_symbol10215z00zz__readerz00))
{ /* ./Read/reader.scm 588 */
BgL_arg1390z00_699 = 
BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(BgL_strz00_698); }  else 
{ /* ./Read/reader.scm 588 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_700, BGl_symbol10216z00zz__readerz00))
{ /* ./Read/reader.scm 588 */
BgL_arg1390z00_699 = 
BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(BgL_strz00_698); }  else 
{ /* ./Read/reader.scm 588 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_700, BGl_symbol10217z00zz__readerz00))
{ /* ./Read/reader.scm 588 */
BgL_arg1390z00_699 = BgL_strz00_698; }  else 
{ /* ./Read/reader.scm 588 */
BgL_arg1390z00_699 = 
BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(BgL_strz00_698); } } } } 
{ /* ./Read/reader.scm 587 */
char * BgL_auxz00_10047;
BgL_auxz00_10047 = 
BSTRING_TO_STRING(BgL_arg1390z00_699); 
BgL_idz00_693 = 
string_to_symbol(BgL_auxz00_10047); } } } 
{ /* ./Read/reader.scm 586 */
obj_t BgL_lz00_694;
{ /* ./Read/reader.scm 597 */
obj_t BgL_arg1381z00_695;
{ /* ./Read/reader.scm 597 */
char * BgL_namez00_4406;
BgL_namez00_4406 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 597 */
int BgL_posz00_4407;
BgL_posz00_4407 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 597 */
obj_t BgL_linez00_4408;
BgL_linez00_4408 = BGl_za2linezd2numberza2zd2zz__readerz00; 
{ /* ./Read/reader.scm 597 */
obj_t BgL_itemz00_4409;
BgL_itemz00_4409 = 
BGl_ignorez72z72zz__readerz00(BgL_envz00_9763, BgL_thezd2rgczd2contextz00_9762, BgL_statezd20zd21021z00_9761, BgL_procz00_9760, BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 597 */

if(
(BgL_itemz00_4409==BGl_za2endzd2ofzd2listza2z00zz__readerz00))
{ /* ./Read/reader.scm 597 */
BgL_arg1381z00_695 = BNIL; }  else 
{ 
obj_t BgL_accz00_4412;
{ /* ./Read/reader.scm 597 */
obj_t BgL_arg6290z00_4424;
if(BGl_za2positionzf3za2zf3zz__readerz00)
{ /* ./Read/reader.scm 597 */
obj_t BgL_arg6294z00_4426;
{ /* ./Read/reader.scm 597 */
obj_t BgL_list6297z00_4427;
{ /* ./Read/reader.scm 597 */
obj_t BgL_arg6299z00_4428;obj_t BgL_arg6300z00_4429;
BgL_arg6299z00_4428 = BGl_symbol10213z00zz__readerz00; 
{ /* ./Read/reader.scm 597 */
obj_t BgL_arg6303z00_4430;
{ /* ./Read/reader.scm 597 */
obj_t BgL_arg6306z00_4431;
BgL_arg6306z00_4431 = 
MAKE_PAIR(BgL_linez00_4408, BNIL); 
{ /* ./Read/reader.scm 597 */
obj_t BgL_auxz00_10057;
BgL_auxz00_10057 = 
BINT(BgL_posz00_4407); 
BgL_arg6303z00_4430 = 
MAKE_PAIR(BgL_auxz00_10057, BgL_arg6306z00_4431); } } 
{ /* ./Read/reader.scm 597 */
obj_t BgL_auxz00_10060;
BgL_auxz00_10060 = 
string_to_bstring(BgL_namez00_4406); 
BgL_arg6300z00_4429 = 
MAKE_PAIR(BgL_auxz00_10060, BgL_arg6303z00_4430); } } 
BgL_list6297z00_4427 = 
MAKE_PAIR(BgL_arg6299z00_4428, BgL_arg6300z00_4429); } 
BgL_arg6294z00_4426 = BgL_list6297z00_4427; } 
{ /* ./Read/reader.scm 597 */
obj_t BgL_res7868z00_4439;
BgL_res7868z00_4439 = 
MAKE_EXTENDED_PAIR(BgL_itemz00_4409, BNIL, BgL_arg6294z00_4426); 
BgL_arg6290z00_4424 = BgL_res7868z00_4439; } }  else 
{ /* ./Read/reader.scm 597 */
BgL_arg6290z00_4424 = 
MAKE_PAIR(BgL_itemz00_4409, BNIL); } 
BgL_accz00_4412 = BgL_arg6290z00_4424; 
BgL_loopz00_4411:
{ /* ./Read/reader.scm 597 */
obj_t BgL_itemz00_4413;
BgL_itemz00_4413 = 
BGl_ignorez72z72zz__readerz00(BgL_envz00_9763, BgL_thezd2rgczd2contextz00_9762, BgL_statezd20zd21021z00_9761, BgL_procz00_9760, BgL_inputzd2portzd2_9759); 
if(
(BgL_itemz00_4413==BGl_za2endzd2ofzd2listza2z00zz__readerz00))
{ /* ./Read/reader.scm 597 */
BgL_arg1381z00_695 = BgL_accz00_4412; }  else 
{ /* ./Read/reader.scm 597 */
obj_t BgL_arg6312z00_4415;
if(BGl_za2positionzf3za2zf3zz__readerz00)
{ /* ./Read/reader.scm 597 */
int BgL_newzd2poszd2_4416;obj_t BgL_newzd2linezd2_4417;
BgL_newzd2poszd2_4416 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
BgL_newzd2linezd2_4417 = BGl_za2linezd2numberza2zd2zz__readerz00; 
{ /* ./Read/reader.scm 597 */
obj_t BgL_arg6315z00_4418;
{ /* ./Read/reader.scm 597 */
obj_t BgL_list6318z00_4419;
{ /* ./Read/reader.scm 597 */
obj_t BgL_arg6320z00_4420;obj_t BgL_arg6321z00_4421;
BgL_arg6320z00_4420 = BGl_symbol10213z00zz__readerz00; 
{ /* ./Read/reader.scm 597 */
obj_t BgL_arg6324z00_4422;
{ /* ./Read/reader.scm 597 */
obj_t BgL_arg6327z00_4423;
BgL_arg6327z00_4423 = 
MAKE_PAIR(BgL_newzd2linezd2_4417, BNIL); 
{ /* ./Read/reader.scm 597 */
obj_t BgL_auxz00_10072;
BgL_auxz00_10072 = 
BINT(BgL_newzd2poszd2_4416); 
BgL_arg6324z00_4422 = 
MAKE_PAIR(BgL_auxz00_10072, BgL_arg6327z00_4423); } } 
{ /* ./Read/reader.scm 597 */
obj_t BgL_auxz00_10075;
BgL_auxz00_10075 = 
string_to_bstring(BgL_namez00_4406); 
BgL_arg6321z00_4421 = 
MAKE_PAIR(BgL_auxz00_10075, BgL_arg6324z00_4422); } } 
BgL_list6318z00_4419 = 
MAKE_PAIR(BgL_arg6320z00_4420, BgL_arg6321z00_4421); } 
BgL_arg6315z00_4418 = BgL_list6318z00_4419; } 
{ /* ./Read/reader.scm 597 */
obj_t BgL_res7870z00_4446;
BgL_res7870z00_4446 = 
MAKE_EXTENDED_PAIR(BgL_itemz00_4413, BgL_accz00_4412, BgL_arg6315z00_4418); 
BgL_arg6312z00_4415 = BgL_res7870z00_4446; } } }  else 
{ /* ./Read/reader.scm 597 */
BgL_arg6312z00_4415 = 
MAKE_PAIR(BgL_itemz00_4413, BgL_accz00_4412); } 
{ 
obj_t BgL_accz00_10081;
BgL_accz00_10081 = BgL_arg6312z00_4415; 
BgL_accz00_4412 = BgL_accz00_10081; 
goto BgL_loopz00_4411;} } } } } } } } } } 
BgL_lz00_694 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg1381z00_695); } 
{ /* ./Read/reader.scm 597 */

return 
BGl_listzd2ze3tvectorz31zz__tvectorz00(BgL_idz00_693, BgL_lz00_694);} } } break;case ((long)35) : 

{ /* ./Read/reader.scm 576 */
bool_t BgL_test1413z00_708;
{ /* ./Read/reader.scm 577 */
int BgL_arg1421z00_712;
BgL_arg1421z00_712 = 
VECTOR_LENGTH(BGl_za2vectorzd2errorsza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 577 */
long BgL_auxz00_10085;
BgL_auxz00_10085 = 
(long)(BgL_arg1421z00_712); 
BgL_test1413z00_708 = 
(BGl_za2parzd2openza2zd2zz__readerz00<BgL_auxz00_10085); } } 
if(BgL_test1413z00_708)
{ /* ./Read/reader.scm 578 */
int BgL_posz00_709;
BgL_posz00_709 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
{ 
obj_t BgL_auxz00_10092;int BgL_auxz00_10090;
BgL_auxz00_10092 = 
BINT(BgL_posz00_709); 
BgL_auxz00_10090 = 
(int)(BGl_za2parzd2openza2zd2zz__readerz00); 
VECTOR_SET(BGl_za2vectorzd2errorsza2zd2zz__readerz00,BgL_auxz00_10090,BgL_auxz00_10092); } }  else 
{ /* ./Read/reader.scm 576 */BFALSE; } } 
BGl_za2parzd2openza2zd2zz__readerz00 = 
(((long)1)+BGl_za2parzd2openza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg1427z00_713;
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg1430z00_714;
{ /* ./Read/reader.scm 582 */
char * BgL_namez00_4458;
BgL_namez00_4458 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 582 */
int BgL_posz00_4459;
BgL_posz00_4459 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 582 */
obj_t BgL_linez00_4460;
BgL_linez00_4460 = BGl_za2linezd2numberza2zd2zz__readerz00; 
{ /* ./Read/reader.scm 582 */
obj_t BgL_itemz00_4461;
BgL_itemz00_4461 = 
BGl_ignorez72z72zz__readerz00(BgL_envz00_9763, BgL_thezd2rgczd2contextz00_9762, BgL_statezd20zd21021z00_9761, BgL_procz00_9760, BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 582 */

if(
(BgL_itemz00_4461==BGl_za2endzd2ofzd2listza2z00zz__readerz00))
{ /* ./Read/reader.scm 582 */
BgL_arg1430z00_714 = BNIL; }  else 
{ 
obj_t BgL_accz00_4464;
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg6290z00_4476;
if(BGl_za2positionzf3za2zf3zz__readerz00)
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg6294z00_4478;
{ /* ./Read/reader.scm 582 */
obj_t BgL_list6297z00_4479;
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg6299z00_4480;obj_t BgL_arg6300z00_4481;
BgL_arg6299z00_4480 = BGl_symbol10213z00zz__readerz00; 
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg6303z00_4482;
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg6306z00_4483;
BgL_arg6306z00_4483 = 
MAKE_PAIR(BgL_linez00_4460, BNIL); 
{ /* ./Read/reader.scm 582 */
obj_t BgL_auxz00_10103;
BgL_auxz00_10103 = 
BINT(BgL_posz00_4459); 
BgL_arg6303z00_4482 = 
MAKE_PAIR(BgL_auxz00_10103, BgL_arg6306z00_4483); } } 
{ /* ./Read/reader.scm 582 */
obj_t BgL_auxz00_10106;
BgL_auxz00_10106 = 
string_to_bstring(BgL_namez00_4458); 
BgL_arg6300z00_4481 = 
MAKE_PAIR(BgL_auxz00_10106, BgL_arg6303z00_4482); } } 
BgL_list6297z00_4479 = 
MAKE_PAIR(BgL_arg6299z00_4480, BgL_arg6300z00_4481); } 
BgL_arg6294z00_4478 = BgL_list6297z00_4479; } 
{ /* ./Read/reader.scm 582 */
obj_t BgL_res7874z00_4491;
BgL_res7874z00_4491 = 
MAKE_EXTENDED_PAIR(BgL_itemz00_4461, BNIL, BgL_arg6294z00_4478); 
BgL_arg6290z00_4476 = BgL_res7874z00_4491; } }  else 
{ /* ./Read/reader.scm 582 */
BgL_arg6290z00_4476 = 
MAKE_PAIR(BgL_itemz00_4461, BNIL); } 
BgL_accz00_4464 = BgL_arg6290z00_4476; 
BgL_loopz00_4463:
{ /* ./Read/reader.scm 582 */
obj_t BgL_itemz00_4465;
BgL_itemz00_4465 = 
BGl_ignorez72z72zz__readerz00(BgL_envz00_9763, BgL_thezd2rgczd2contextz00_9762, BgL_statezd20zd21021z00_9761, BgL_procz00_9760, BgL_inputzd2portzd2_9759); 
if(
(BgL_itemz00_4465==BGl_za2endzd2ofzd2listza2z00zz__readerz00))
{ /* ./Read/reader.scm 582 */
BgL_arg1430z00_714 = BgL_accz00_4464; }  else 
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg6312z00_4467;
if(BGl_za2positionzf3za2zf3zz__readerz00)
{ /* ./Read/reader.scm 582 */
int BgL_newzd2poszd2_4468;obj_t BgL_newzd2linezd2_4469;
BgL_newzd2poszd2_4468 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
BgL_newzd2linezd2_4469 = BGl_za2linezd2numberza2zd2zz__readerz00; 
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg6315z00_4470;
{ /* ./Read/reader.scm 582 */
obj_t BgL_list6318z00_4471;
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg6320z00_4472;obj_t BgL_arg6321z00_4473;
BgL_arg6320z00_4472 = BGl_symbol10213z00zz__readerz00; 
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg6324z00_4474;
{ /* ./Read/reader.scm 582 */
obj_t BgL_arg6327z00_4475;
BgL_arg6327z00_4475 = 
MAKE_PAIR(BgL_newzd2linezd2_4469, BNIL); 
{ /* ./Read/reader.scm 582 */
obj_t BgL_auxz00_10118;
BgL_auxz00_10118 = 
BINT(BgL_newzd2poszd2_4468); 
BgL_arg6324z00_4474 = 
MAKE_PAIR(BgL_auxz00_10118, BgL_arg6327z00_4475); } } 
{ /* ./Read/reader.scm 582 */
obj_t BgL_auxz00_10121;
BgL_auxz00_10121 = 
string_to_bstring(BgL_namez00_4458); 
BgL_arg6321z00_4473 = 
MAKE_PAIR(BgL_auxz00_10121, BgL_arg6324z00_4474); } } 
BgL_list6318z00_4471 = 
MAKE_PAIR(BgL_arg6320z00_4472, BgL_arg6321z00_4473); } 
BgL_arg6315z00_4470 = BgL_list6318z00_4471; } 
{ /* ./Read/reader.scm 582 */
obj_t BgL_res7876z00_4498;
BgL_res7876z00_4498 = 
MAKE_EXTENDED_PAIR(BgL_itemz00_4465, BgL_accz00_4464, BgL_arg6315z00_4470); 
BgL_arg6312z00_4467 = BgL_res7876z00_4498; } } }  else 
{ /* ./Read/reader.scm 582 */
BgL_arg6312z00_4467 = 
MAKE_PAIR(BgL_itemz00_4465, BgL_accz00_4464); } 
{ 
obj_t BgL_accz00_10127;
BgL_accz00_10127 = BgL_arg6312z00_4467; 
BgL_accz00_4464 = BgL_accz00_10127; 
goto BgL_loopz00_4463;} } } } } } } } } } 
BgL_arg1427z00_713 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg1430z00_714); } 
return 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg1427z00_713);} break;case ((long)34) : 

BGl_za2parzd2openza2zd2zz__readerz00 = 
(BGl_za2parzd2openza2zd2zz__readerz00-((long)1)); 
if(
(BGl_za2parzd2openza2zd2zz__readerz00<((long)0)))
{ /* ./Read/reader.scm 561 */
{ /* ./Read/reader.scm 563 */
char * BgL_arg1440z00_718;int BgL_arg1441z00_719;obj_t BgL_arg1445z00_722;
BgL_arg1440z00_718 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
BgL_arg1441z00_719 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 567 */
obj_t BgL_res7880z00_4514;
{ /* ./Read/reader.scm 567 */
int BgL_arg1917z00_4508;
{ /* ./Read/reader.scm 567 */
int BgL_res7879z00_4510;
{ /* ./Read/reader.scm 567 */
long BgL_auxz00_10135;
BgL_auxz00_10135 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7879z00_4510 = 
(int)(BgL_auxz00_10135); } 
BgL_arg1917z00_4508 = BgL_res7879z00_4510; } 
{ /* ./Read/reader.scm 567 */
int BgL_auxz00_10138;
BgL_auxz00_10138 = 
(int)(((long)0)); 
BgL_res7880z00_4514 = 
rgc_buffer_substring(BgL_inputzd2portzd2_9759, BgL_auxz00_10138, BgL_arg1917z00_4508); } } 
BgL_arg1445z00_722 = BgL_res7880z00_4514; } 
{ /* ./Read/reader.scm 563 */
obj_t BgL_list1448z00_724;
{ /* ./Read/reader.scm 563 */
obj_t BgL_arg1450z00_725;
{ /* ./Read/reader.scm 563 */
obj_t BgL_arg1453z00_726;
{ /* ./Read/reader.scm 563 */
obj_t BgL_arg1456z00_727;
BgL_arg1456z00_727 = 
MAKE_PAIR(BGl_string10218z00zz__readerz00, BNIL); 
BgL_arg1453z00_726 = 
MAKE_PAIR(BgL_arg1445z00_722, BgL_arg1456z00_727); } 
BgL_arg1450z00_725 = 
MAKE_PAIR(BGl_string10219z00zz__readerz00, BgL_arg1453z00_726); } 
BgL_list1448z00_724 = 
MAKE_PAIR(BGl_string10207z00zz__readerz00, BgL_arg1450z00_725); } 
BGl_warningzf2locationzf2zz__errorz00(
string_to_bstring(BgL_arg1440z00_718), 
BINT(BgL_arg1441z00_719), BgL_list1448z00_724); } } 
BGl_za2parzd2openza2zd2zz__readerz00 = ((long)0); 
{ 

goto BGl_ignorez72z72zz__readerz00;} }  else 
{ /* ./Read/reader.scm 561 */
return BGl_za2endzd2ofzd2listza2z00zz__readerz00;} break;case ((long)33) : 

{ /* ./Read/reader.scm 549 */
bool_t BgL_test1471z00_730;
{ /* ./Read/reader.scm 550 */
int BgL_arg1482z00_734;
BgL_arg1482z00_734 = 
VECTOR_LENGTH(BGl_za2listzd2errorsza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 550 */
long BgL_auxz00_10149;
BgL_auxz00_10149 = 
(long)(BgL_arg1482z00_734); 
BgL_test1471z00_730 = 
(BGl_za2parzd2openza2zd2zz__readerz00<BgL_auxz00_10149); } } 
if(BgL_test1471z00_730)
{ /* ./Read/reader.scm 553 */
int BgL_arg1474z00_731;
BgL_arg1474z00_731 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
{ 
obj_t BgL_auxz00_10156;int BgL_auxz00_10154;
BgL_auxz00_10156 = 
BINT(BgL_arg1474z00_731); 
BgL_auxz00_10154 = 
(int)(BGl_za2parzd2openza2zd2zz__readerz00); 
VECTOR_SET(BGl_za2listzd2errorsza2zd2zz__readerz00,BgL_auxz00_10154,BgL_auxz00_10156); } }  else 
{ /* ./Read/reader.scm 549 */BFALSE; } } 
BGl_za2parzd2openza2zd2zz__readerz00 = 
(((long)1)+BGl_za2parzd2openza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 557 */
obj_t BgL_arg1488z00_735;
{ /* ./Read/reader.scm 557 */
char * BgL_namez00_4526;
BgL_namez00_4526 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 557 */
int BgL_posz00_4527;
BgL_posz00_4527 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 557 */
obj_t BgL_linez00_4528;
BgL_linez00_4528 = BGl_za2linezd2numberza2zd2zz__readerz00; 
{ /* ./Read/reader.scm 557 */
obj_t BgL_itemz00_4529;
BgL_itemz00_4529 = 
BGl_ignorez72z72zz__readerz00(BgL_envz00_9763, BgL_thezd2rgczd2contextz00_9762, BgL_statezd20zd21021z00_9761, BgL_procz00_9760, BgL_inputzd2portzd2_9759); 
{ /* ./Read/reader.scm 557 */

if(
(BgL_itemz00_4529==BGl_za2endzd2ofzd2listza2z00zz__readerz00))
{ /* ./Read/reader.scm 557 */
BgL_arg1488z00_735 = BNIL; }  else 
{ 
obj_t BgL_accz00_4532;
{ /* ./Read/reader.scm 557 */
obj_t BgL_arg6290z00_4544;
if(BGl_za2positionzf3za2zf3zz__readerz00)
{ /* ./Read/reader.scm 557 */
obj_t BgL_arg6294z00_4546;
{ /* ./Read/reader.scm 557 */
obj_t BgL_list6297z00_4547;
{ /* ./Read/reader.scm 557 */
obj_t BgL_arg6299z00_4548;obj_t BgL_arg6300z00_4549;
BgL_arg6299z00_4548 = BGl_symbol10213z00zz__readerz00; 
{ /* ./Read/reader.scm 557 */
obj_t BgL_arg6303z00_4550;
{ /* ./Read/reader.scm 557 */
obj_t BgL_arg6306z00_4551;
BgL_arg6306z00_4551 = 
MAKE_PAIR(BgL_linez00_4528, BNIL); 
{ /* ./Read/reader.scm 557 */
obj_t BgL_auxz00_10167;
BgL_auxz00_10167 = 
BINT(BgL_posz00_4527); 
BgL_arg6303z00_4550 = 
MAKE_PAIR(BgL_auxz00_10167, BgL_arg6306z00_4551); } } 
{ /* ./Read/reader.scm 557 */
obj_t BgL_auxz00_10170;
BgL_auxz00_10170 = 
string_to_bstring(BgL_namez00_4526); 
BgL_arg6300z00_4549 = 
MAKE_PAIR(BgL_auxz00_10170, BgL_arg6303z00_4550); } } 
BgL_list6297z00_4547 = 
MAKE_PAIR(BgL_arg6299z00_4548, BgL_arg6300z00_4549); } 
BgL_arg6294z00_4546 = BgL_list6297z00_4547; } 
{ /* ./Read/reader.scm 557 */
obj_t BgL_res7884z00_4559;
BgL_res7884z00_4559 = 
MAKE_EXTENDED_PAIR(BgL_itemz00_4529, BNIL, BgL_arg6294z00_4546); 
BgL_arg6290z00_4544 = BgL_res7884z00_4559; } }  else 
{ /* ./Read/reader.scm 557 */
BgL_arg6290z00_4544 = 
MAKE_PAIR(BgL_itemz00_4529, BNIL); } 
BgL_accz00_4532 = BgL_arg6290z00_4544; 
BgL_loopz00_4531:
{ /* ./Read/reader.scm 557 */
obj_t BgL_itemz00_4533;
BgL_itemz00_4533 = 
BGl_ignorez72z72zz__readerz00(BgL_envz00_9763, BgL_thezd2rgczd2contextz00_9762, BgL_statezd20zd21021z00_9761, BgL_procz00_9760, BgL_inputzd2portzd2_9759); 
if(
(BgL_itemz00_4533==BGl_za2endzd2ofzd2listza2z00zz__readerz00))
{ /* ./Read/reader.scm 557 */
BgL_arg1488z00_735 = BgL_accz00_4532; }  else 
{ /* ./Read/reader.scm 557 */
obj_t BgL_arg6312z00_4535;
if(BGl_za2positionzf3za2zf3zz__readerz00)
{ /* ./Read/reader.scm 557 */
int BgL_newzd2poszd2_4536;obj_t BgL_newzd2linezd2_4537;
BgL_newzd2poszd2_4536 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
BgL_newzd2linezd2_4537 = BGl_za2linezd2numberza2zd2zz__readerz00; 
{ /* ./Read/reader.scm 557 */
obj_t BgL_arg6315z00_4538;
{ /* ./Read/reader.scm 557 */
obj_t BgL_list6318z00_4539;
{ /* ./Read/reader.scm 557 */
obj_t BgL_arg6320z00_4540;obj_t BgL_arg6321z00_4541;
BgL_arg6320z00_4540 = BGl_symbol10213z00zz__readerz00; 
{ /* ./Read/reader.scm 557 */
obj_t BgL_arg6324z00_4542;
{ /* ./Read/reader.scm 557 */
obj_t BgL_arg6327z00_4543;
BgL_arg6327z00_4543 = 
MAKE_PAIR(BgL_newzd2linezd2_4537, BNIL); 
{ /* ./Read/reader.scm 557 */
obj_t BgL_auxz00_10182;
BgL_auxz00_10182 = 
BINT(BgL_newzd2poszd2_4536); 
BgL_arg6324z00_4542 = 
MAKE_PAIR(BgL_auxz00_10182, BgL_arg6327z00_4543); } } 
{ /* ./Read/reader.scm 557 */
obj_t BgL_auxz00_10185;
BgL_auxz00_10185 = 
string_to_bstring(BgL_namez00_4526); 
BgL_arg6321z00_4541 = 
MAKE_PAIR(BgL_auxz00_10185, BgL_arg6324z00_4542); } } 
BgL_list6318z00_4539 = 
MAKE_PAIR(BgL_arg6320z00_4540, BgL_arg6321z00_4541); } 
BgL_arg6315z00_4538 = BgL_list6318z00_4539; } 
{ /* ./Read/reader.scm 557 */
obj_t BgL_res7886z00_4566;
BgL_res7886z00_4566 = 
MAKE_EXTENDED_PAIR(BgL_itemz00_4533, BgL_accz00_4532, BgL_arg6315z00_4538); 
BgL_arg6312z00_4535 = BgL_res7886z00_4566; } } }  else 
{ /* ./Read/reader.scm 557 */
BgL_arg6312z00_4535 = 
MAKE_PAIR(BgL_itemz00_4533, BgL_accz00_4532); } 
{ 
obj_t BgL_accz00_10191;
BgL_accz00_10191 = BgL_arg6312z00_4535; 
BgL_accz00_4532 = BgL_accz00_10191; 
goto BgL_loopz00_4531;} } } } } } } } } } 
return 
BGl_makezd2listz12zc0zz__readerz00(BgL_arg1488z00_735, BgL_inputzd2portzd2_9759);} break;case ((long)32) : 

return 
BGl_readzd2quotezd2zz__readerz00(BGl_symbol10220z00zz__readerz00, BgL_inputzd2portzd2_9759, BgL_envz00_9763);break;case ((long)31) : 

return 
BGl_readzd2quotezd2zz__readerz00(BGl_symbol10221z00zz__readerz00, BgL_inputzd2portzd2_9759, BgL_envz00_9763);break;case ((long)30) : 

return 
BGl_readzd2quotezd2zz__readerz00(BGl_symbol10222z00zz__readerz00, BgL_inputzd2portzd2_9759, BgL_envz00_9763);break;case ((long)29) : 

return 
BGl_readzd2quotezd2zz__readerz00(BGl_symbol10223z00zz__readerz00, BgL_inputzd2portzd2_9759, BgL_envz00_9763);break;case ((long)28) : 

{ /* ./Read/reader.scm 529 */
bool_t BgL_test1517z00_747;
{ /* ./Read/reader.scm 529 */
int BgL_arg1537z00_755;
{ /* ./Read/reader.scm 529 */
int BgL_res7892z00_4573;
{ /* ./Read/reader.scm 529 */
long BgL_auxz00_10197;
BgL_auxz00_10197 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7892z00_4573 = 
(int)(BgL_auxz00_10197); } 
BgL_arg1537z00_755 = BgL_res7892z00_4573; } 
{ /* ./Read/reader.scm 529 */
long BgL_auxz00_10200;
BgL_auxz00_10200 = 
(long)(BgL_arg1537z00_755); 
BgL_test1517z00_747 = 
(BgL_auxz00_10200==((long)2)); } } 
if(BgL_test1517z00_747)
{ /* ./Read/reader.scm 530 */
obj_t BgL_res7893z00_4581;
{ /* ./Read/reader.scm 530 */
obj_t BgL_casezd2valuezd2_4577;
BgL_casezd2valuezd2_4577 = BGl_za2rgczd2caseza2zd2zz__rgcz00; 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_4577, BGl_symbol10217z00zz__readerz00))
{ /* ./Read/reader.scm 530 */
BgL_res7893z00_4581 = 
rgc_buffer_symbol(BgL_inputzd2portzd2_9759); }  else 
{ /* ./Read/reader.scm 530 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_4577, BGl_symbol10216z00zz__readerz00))
{ /* ./Read/reader.scm 530 */
BgL_res7893z00_4581 = 
rgc_buffer_downcase_symbol(BgL_inputzd2portzd2_9759); }  else 
{ /* ./Read/reader.scm 530 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_4577, BGl_symbol10215z00zz__readerz00))
{ /* ./Read/reader.scm 530 */
BgL_res7893z00_4581 = 
rgc_buffer_upcase_symbol(BgL_inputzd2portzd2_9759); }  else 
{ /* ./Read/reader.scm 530 */
BgL_res7893z00_4581 = 
rgc_buffer_symbol(BgL_inputzd2portzd2_9759); } } } } 
return BgL_res7893z00_4581;}  else 
{ /* ./Read/reader.scm 531 */
obj_t BgL_strz00_748;
{ /* ./Read/reader.scm 531 */
long BgL_arg1529z00_752;
{ /* ./Read/reader.scm 531 */
int BgL_arg1532z00_753;
{ /* ./Read/reader.scm 531 */
int BgL_res7894z00_4583;
{ /* ./Read/reader.scm 531 */
long BgL_auxz00_10214;
BgL_auxz00_10214 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7894z00_4583 = 
(int)(BgL_auxz00_10214); } 
BgL_arg1532z00_753 = BgL_res7894z00_4583; } 
{ /* ./Read/reader.scm 531 */
long BgL_auxz00_10217;
BgL_auxz00_10217 = 
(long)(BgL_arg1532z00_753); 
BgL_arg1529z00_752 = 
(BgL_auxz00_10217-((long)1)); } } 
BgL_strz00_748 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)0), 
BINT(BgL_arg1529z00_752)); } 
{ /* ./Read/reader.scm 533 */
long BgL_arg1520z00_749;
BgL_arg1520z00_749 = 
BGl_stringzd2newlinezd2numberz00zz__readerz00(BgL_strz00_748); 
{ /* ./Read/reader.scm 533 */
long BgL_za71za7_4586;
BgL_za71za7_4586 = 
(long)CINT(BGl_za2linezd2numberza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 533 */
long BgL_auxz00_10224;
BgL_auxz00_10224 = 
(BgL_za71za7_4586+BgL_arg1520z00_749); 
BGl_za2linezd2numberza2zd2zz__readerz00 = 
BINT(BgL_auxz00_10224); } } } 
{ /* ./Read/reader.scm 534 */
obj_t BgL_arg1524z00_750;
{ /* ./Read/reader.scm 534 */
char * BgL_auxz00_10227;
BgL_auxz00_10227 = 
BSTRING_TO_STRING(BgL_strz00_748); 
BgL_arg1524z00_750 = 
escape_C_string(BgL_auxz00_10227); } 
{ /* ./Read/reader.scm 534 */
char * BgL_auxz00_10230;
BgL_auxz00_10230 = 
BSTRING_TO_STRING(BgL_arg1524z00_750); 
return 
string_to_symbol(BgL_auxz00_10230);} } } } break;case ((long)27) : 

{ /* ./Read/reader.scm 527 */
obj_t BgL_res7895z00_4594;
{ /* ./Read/reader.scm 527 */
obj_t BgL_casezd2valuezd2_4590;
BgL_casezd2valuezd2_4590 = BGl_za2rgczd2caseza2zd2zz__rgcz00; 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_4590, BGl_symbol10217z00zz__readerz00))
{ /* ./Read/reader.scm 527 */
BgL_res7895z00_4594 = 
rgc_buffer_symbol(BgL_inputzd2portzd2_9759); }  else 
{ /* ./Read/reader.scm 527 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_4590, BGl_symbol10216z00zz__readerz00))
{ /* ./Read/reader.scm 527 */
BgL_res7895z00_4594 = 
rgc_buffer_downcase_symbol(BgL_inputzd2portzd2_9759); }  else 
{ /* ./Read/reader.scm 527 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_4590, BGl_symbol10215z00zz__readerz00))
{ /* ./Read/reader.scm 527 */
BgL_res7895z00_4594 = 
rgc_buffer_upcase_symbol(BgL_inputzd2portzd2_9759); }  else 
{ /* ./Read/reader.scm 527 */
BgL_res7895z00_4594 = 
rgc_buffer_symbol(BgL_inputzd2portzd2_9759); } } } } 
return BgL_res7895z00_4594;} break;case ((long)26) : 

{ /* ./Read/reader.scm 522 */
obj_t BgL_res7896z00_4600;
{ /* ./Read/reader.scm 522 */
obj_t BgL_casezd2valuezd2_4596;
BgL_casezd2valuezd2_4596 = BGl_za2rgczd2caseza2zd2zz__rgcz00; 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_4596, BGl_symbol10217z00zz__readerz00))
{ /* ./Read/reader.scm 522 */
BgL_res7896z00_4600 = 
rgc_buffer_keyword(BgL_inputzd2portzd2_9759); }  else 
{ /* ./Read/reader.scm 522 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_4596, BGl_symbol10216z00zz__readerz00))
{ /* ./Read/reader.scm 522 */
BgL_res7896z00_4600 = 
rgc_buffer_downcase_keyword(BgL_inputzd2portzd2_9759); }  else 
{ /* ./Read/reader.scm 522 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_4596, BGl_symbol10215z00zz__readerz00))
{ /* ./Read/reader.scm 522 */
BgL_res7896z00_4600 = 
rgc_buffer_upcase_keyword(BgL_inputzd2portzd2_9759); }  else 
{ /* ./Read/reader.scm 522 */
BgL_res7896z00_4600 = 
rgc_buffer_keyword(BgL_inputzd2portzd2_9759); } } } } 
return BgL_res7896z00_4600;} break;case ((long)25) : 

{ /* ./Read/reader.scm 510 */
bool_t BgL_test1543z00_757;
{ /* ./Read/reader.scm 510 */
int BgL_arg1572z00_769;
{ /* ./Read/reader.scm 510 */
int BgL_res7897z00_4602;
{ /* ./Read/reader.scm 510 */
long BgL_auxz00_10253;
BgL_auxz00_10253 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7897z00_4602 = 
(int)(BgL_auxz00_10253); } 
BgL_arg1572z00_769 = BgL_res7897z00_4602; } 
{ /* ./Read/reader.scm 510 */
long BgL_auxz00_10256;
BgL_auxz00_10256 = 
(long)(BgL_arg1572z00_769); 
BgL_test1543z00_757 = 
(BgL_auxz00_10256==((long)7)); } } 
if(BgL_test1543z00_757)
{ /* ./Read/reader.scm 516 */
long BgL_arg1545z00_758;
{ /* ./Read/reader.scm 516 */
obj_t BgL_arg1548z00_759;
BgL_arg1548z00_759 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)2), 
BINT(((long)6))); 
{ /* ./Read/reader.scm 516 */
obj_t BgL_list1551z00_761;
{ /* ./Read/reader.scm 516 */
obj_t BgL_auxz00_10262;
BgL_auxz00_10262 = 
BINT(((long)16)); 
BgL_list1551z00_761 = 
MAKE_PAIR(BgL_auxz00_10262, BNIL); } 
BgL_arg1545z00_758 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1548z00_759, BgL_list1551z00_761); } } 
return 
BCNST(BgL_arg1545z00_758);}  else 
{ /* ./Read/reader.scm 511 */
obj_t BgL_arg1557z00_764;char * BgL_arg1558z00_765;int BgL_arg1559z00_766;
{ /* ./Read/reader.scm 513 */
obj_t BgL_res7899z00_4612;
{ /* ./Read/reader.scm 513 */
int BgL_arg1917z00_4606;
{ /* ./Read/reader.scm 513 */
int BgL_res7898z00_4608;
{ /* ./Read/reader.scm 513 */
long BgL_auxz00_10267;
BgL_auxz00_10267 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7898z00_4608 = 
(int)(BgL_auxz00_10267); } 
BgL_arg1917z00_4606 = BgL_res7898z00_4608; } 
{ /* ./Read/reader.scm 513 */
int BgL_auxz00_10270;
BgL_auxz00_10270 = 
(int)(((long)0)); 
BgL_res7899z00_4612 = 
rgc_buffer_substring(BgL_inputzd2portzd2_9759, BgL_auxz00_10270, BgL_arg1917z00_4606); } } 
BgL_arg1557z00_764 = BgL_res7899z00_4612; } 
BgL_arg1558z00_765 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
BgL_arg1559z00_766 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10224z00zz__readerz00, BgL_arg1557z00_764, 
string_to_bstring(BgL_arg1558z00_765), 
BINT(BgL_arg1559z00_766));} } break;case ((long)24) : 

return BFALSE;break;case ((long)23) : 

return BTRUE;break;case ((long)22) : 

{ /* ./Read/reader.scm 487 */
obj_t BgL_symbolz00_771;
{ /* ./Read/reader.scm 489 */
obj_t BgL_arg1599z00_781;
{ /* ./Read/reader.scm 489 */
obj_t BgL_arg1602z00_782;
{ /* ./Read/reader.scm 489 */
int BgL_arg1606z00_784;
{ /* ./Read/reader.scm 489 */
int BgL_res7902z00_4618;
{ /* ./Read/reader.scm 489 */
long BgL_auxz00_10278;
BgL_auxz00_10278 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7902z00_4618 = 
(int)(BgL_auxz00_10278); } 
BgL_arg1606z00_784 = BgL_res7902z00_4618; } 
BgL_arg1602z00_782 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)1), 
BINT(BgL_arg1606z00_784)); } 
BgL_arg1599z00_781 = 
BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(BgL_arg1602z00_782); } 
{ /* ./Read/reader.scm 487 */
char * BgL_auxz00_10284;
BgL_auxz00_10284 = 
BSTRING_TO_STRING(BgL_arg1599z00_781); 
BgL_symbolz00_771 = 
string_to_symbol(BgL_auxz00_10284); } } 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_symbolz00_771, BGl_symbol10225z00zz__readerz00))
{ /* ./Read/reader.scm 490 */
return BUNSPEC;}  else 
{ /* ./Read/reader.scm 490 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_symbolz00_771, BGl_symbol10226z00zz__readerz00))
{ /* ./Read/reader.scm 490 */
return BEOF;}  else 
{ /* ./Read/reader.scm 496 */
char * BgL_arg1582z00_777;int BgL_arg1585z00_778;
BgL_arg1582z00_777 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
BgL_arg1585z00_778 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10227z00zz__readerz00, BgL_symbolz00_771, 
string_to_bstring(BgL_arg1582z00_777), 
BINT(BgL_arg1585z00_778));} } } break;case ((long)21) : 

if(
(BGl_za2parzd2openza2zd2zz__readerz00<=((long)0)))
{ /* ./Read/reader.scm 478 */
char * BgL_arg1613z00_788;int BgL_arg1614z00_789;
BgL_arg1613z00_788 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
BgL_arg1614z00_789 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10228z00zz__readerz00, 
BCHAR(((unsigned char)'.')), 
string_to_bstring(BgL_arg1613z00_788), 
BINT(BgL_arg1614z00_789));}  else 
{ /* ./Read/reader.scm 477 */
return BGl_za2dottedzd2markza2zd2zz__readerz00;} break;case ((long)20) : 

{ /* ./Read/reader.scm 473 */
double BgL_auxz00_10304;
BgL_auxz00_10304 = 
rgc_buffer_flonum(BgL_inputzd2portzd2_9759); 
return 
DOUBLE_TO_REAL(BgL_auxz00_10304);} break;case ((long)19) : 

{ /* ./Read/reader.scm 467 */
obj_t BgL_arg1627z00_792;
{ /* ./Read/reader.scm 467 */
int BgL_arg1634z00_796;
{ /* ./Read/reader.scm 467 */
int BgL_res7907z00_4632;
{ /* ./Read/reader.scm 467 */
long BgL_auxz00_10307;
BgL_auxz00_10307 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7907z00_4632 = 
(int)(BgL_auxz00_10307); } 
BgL_arg1634z00_796 = BgL_res7907z00_4632; } 
BgL_arg1627z00_792 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)2), 
BINT(BgL_arg1634z00_796)); } 
{ /* ./Read/reader.scm 467 */
obj_t BgL_list1630z00_794;
{ /* ./Read/reader.scm 467 */
obj_t BgL_auxz00_10312;
BgL_auxz00_10312 = 
BINT(((long)10)); 
BgL_list1630z00_794 = 
MAKE_PAIR(BgL_auxz00_10312, BNIL); } 
return 
BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1627z00_792, BgL_list1630z00_794);} } break;case ((long)18) : 

{ /* ./Read/reader.scm 465 */
obj_t BgL_arg1638z00_797;
{ /* ./Read/reader.scm 465 */
int BgL_arg1648z00_801;
{ /* ./Read/reader.scm 465 */
int BgL_res7908z00_4634;
{ /* ./Read/reader.scm 465 */
long BgL_auxz00_10316;
BgL_auxz00_10316 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7908z00_4634 = 
(int)(BgL_auxz00_10316); } 
BgL_arg1648z00_801 = BgL_res7908z00_4634; } 
BgL_arg1638z00_797 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)2), 
BINT(BgL_arg1648z00_801)); } 
{ /* ./Read/reader.scm 465 */
obj_t BgL_list1642z00_799;
{ /* ./Read/reader.scm 465 */
obj_t BgL_auxz00_10321;
BgL_auxz00_10321 = 
BINT(((long)10)); 
BgL_list1642z00_799 = 
MAKE_PAIR(BgL_auxz00_10321, BNIL); } 
return 
BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1638z00_797, BgL_list1642z00_799);} } break;case ((long)17) : 

{ /* ./Read/reader.scm 463 */
obj_t BgL_arg1652z00_802;
{ /* ./Read/reader.scm 463 */
int BgL_arg1659z00_806;
{ /* ./Read/reader.scm 463 */
int BgL_res7909z00_4636;
{ /* ./Read/reader.scm 463 */
long BgL_auxz00_10325;
BgL_auxz00_10325 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7909z00_4636 = 
(int)(BgL_auxz00_10325); } 
BgL_arg1659z00_806 = BgL_res7909z00_4636; } 
BgL_arg1652z00_802 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)2), 
BINT(BgL_arg1659z00_806)); } 
{ /* ./Read/reader.scm 463 */
obj_t BgL_list1655z00_804;
{ /* ./Read/reader.scm 463 */
obj_t BgL_auxz00_10330;
BgL_auxz00_10330 = 
BINT(((long)16)); 
BgL_list1655z00_804 = 
MAKE_PAIR(BgL_auxz00_10330, BNIL); } 
{ /* ./Read/reader.scm 463 */
long BgL_auxz00_10333;
BgL_auxz00_10333 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1652z00_802, BgL_list1655z00_804); 
return 
BINT(BgL_auxz00_10333);} } } break;case ((long)16) : 

{ /* ./Read/reader.scm 461 */
obj_t BgL_arg1663z00_807;
{ /* ./Read/reader.scm 461 */
int BgL_arg1670z00_811;
{ /* ./Read/reader.scm 461 */
int BgL_res7910z00_4638;
{ /* ./Read/reader.scm 461 */
long BgL_auxz00_10336;
BgL_auxz00_10336 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7910z00_4638 = 
(int)(BgL_auxz00_10336); } 
BgL_arg1670z00_811 = BgL_res7910z00_4638; } 
BgL_arg1663z00_807 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)2), 
BINT(BgL_arg1670z00_811)); } 
{ /* ./Read/reader.scm 461 */
obj_t BgL_list1666z00_809;
{ /* ./Read/reader.scm 461 */
obj_t BgL_auxz00_10341;
BgL_auxz00_10341 = 
BINT(((long)10)); 
BgL_list1666z00_809 = 
MAKE_PAIR(BgL_auxz00_10341, BNIL); } 
{ /* ./Read/reader.scm 461 */
long BgL_auxz00_10344;
BgL_auxz00_10344 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1663z00_807, BgL_list1666z00_809); 
return 
BINT(BgL_auxz00_10344);} } } break;case ((long)15) : 

{ /* ./Read/reader.scm 459 */
obj_t BgL_arg1674z00_812;
{ /* ./Read/reader.scm 459 */
int BgL_arg1681z00_816;
{ /* ./Read/reader.scm 459 */
int BgL_res7911z00_4640;
{ /* ./Read/reader.scm 459 */
long BgL_auxz00_10347;
BgL_auxz00_10347 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7911z00_4640 = 
(int)(BgL_auxz00_10347); } 
BgL_arg1681z00_816 = BgL_res7911z00_4640; } 
BgL_arg1674z00_812 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)2), 
BINT(BgL_arg1681z00_816)); } 
{ /* ./Read/reader.scm 459 */
obj_t BgL_list1677z00_814;
{ /* ./Read/reader.scm 459 */
obj_t BgL_auxz00_10352;
BgL_auxz00_10352 = 
BINT(((long)8)); 
BgL_list1677z00_814 = 
MAKE_PAIR(BgL_auxz00_10352, BNIL); } 
{ /* ./Read/reader.scm 459 */
long BgL_auxz00_10355;
BgL_auxz00_10355 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1674z00_812, BgL_list1677z00_814); 
return 
BINT(BgL_auxz00_10355);} } } break;case ((long)14) : 

return 
rgc_buffer_integer(BgL_inputzd2portzd2_9759);break;case ((long)13) : 

return 
rgc_buffer_integer(BgL_inputzd2portzd2_9759);break;case ((long)12) : 

{ /* ./Read/reader.scm 441 */
obj_t BgL_strz00_817;
{ /* ./Read/reader.scm 441 */
long BgL_arg1693z00_820;
{ /* ./Read/reader.scm 441 */
int BgL_arg1696z00_821;
{ /* ./Read/reader.scm 441 */
int BgL_res7912z00_4644;
{ /* ./Read/reader.scm 441 */
long BgL_auxz00_10360;
BgL_auxz00_10360 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7912z00_4644 = 
(int)(BgL_auxz00_10360); } 
BgL_arg1696z00_821 = BgL_res7912z00_4644; } 
{ /* ./Read/reader.scm 441 */
long BgL_auxz00_10363;
BgL_auxz00_10363 = 
(long)(BgL_arg1696z00_821); 
BgL_arg1693z00_820 = 
(BgL_auxz00_10363-((long)1)); } } 
BgL_strz00_817 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)3), 
BINT(BgL_arg1693z00_820)); } 
{ /* ./Read/reader.scm 442 */
long BgL_arg1687z00_818;
BgL_arg1687z00_818 = 
BGl_stringzd2newlinezd2numberz00zz__readerz00(BgL_strz00_817); 
{ /* ./Read/reader.scm 442 */
long BgL_za71za7_4647;
BgL_za71za7_4647 = 
(long)CINT(BGl_za2linezd2numberza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 442 */
long BgL_auxz00_10370;
BgL_auxz00_10370 = 
(BgL_za71za7_4647+BgL_arg1687z00_818); 
BGl_za2linezd2numberza2zd2zz__readerz00 = 
BINT(BgL_auxz00_10370); } } } 
return 
utf8_string_to_ucs2_string(BgL_strz00_817);} break;case ((long)11) : 

{ /* ./Read/reader.scm 436 */
obj_t BgL_strz00_823;
{ /* ./Read/reader.scm 436 */
long BgL_arg1707z00_826;
{ /* ./Read/reader.scm 436 */
int BgL_arg1710z00_827;
{ /* ./Read/reader.scm 436 */
int BgL_res7913z00_4651;
{ /* ./Read/reader.scm 436 */
long BgL_auxz00_10374;
BgL_auxz00_10374 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7913z00_4651 = 
(int)(BgL_auxz00_10374); } 
BgL_arg1710z00_827 = BgL_res7913z00_4651; } 
{ /* ./Read/reader.scm 436 */
long BgL_auxz00_10377;
BgL_auxz00_10377 = 
(long)(BgL_arg1710z00_827); 
BgL_arg1707z00_826 = 
(BgL_auxz00_10377-((long)1)); } } 
BgL_strz00_823 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)1), 
BINT(BgL_arg1707z00_826)); } 
{ /* ./Read/reader.scm 437 */
long BgL_arg1701z00_824;
BgL_arg1701z00_824 = 
BGl_stringzd2newlinezd2numberz00zz__readerz00(BgL_strz00_823); 
{ /* ./Read/reader.scm 437 */
long BgL_za71za7_4654;
BgL_za71za7_4654 = 
(long)CINT(BGl_za2linezd2numberza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 437 */
long BgL_auxz00_10384;
BgL_auxz00_10384 = 
(BgL_za71za7_4654+BgL_arg1701z00_824); 
BGl_za2linezd2numberza2zd2zz__readerz00 = 
BINT(BgL_auxz00_10384); } } } 
{ /* ./Read/reader.scm 438 */
char * BgL_auxz00_10387;
BgL_auxz00_10387 = 
BSTRING_TO_STRING(BgL_strz00_823); 
return 
escape_C_string(BgL_auxz00_10387);} } break;case ((long)10) : 

{ /* ./Read/reader.scm 427 */
obj_t BgL_strz00_829;
{ /* ./Read/reader.scm 427 */
long BgL_arg1741z00_842;
{ /* ./Read/reader.scm 427 */
int BgL_arg1744z00_843;
{ /* ./Read/reader.scm 427 */
int BgL_res7914z00_4657;
{ /* ./Read/reader.scm 427 */
long BgL_auxz00_10390;
BgL_auxz00_10390 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7914z00_4657 = 
(int)(BgL_auxz00_10390); } 
BgL_arg1744z00_843 = BgL_res7914z00_4657; } 
{ /* ./Read/reader.scm 427 */
long BgL_auxz00_10393;
BgL_auxz00_10393 = 
(long)(BgL_arg1744z00_843); 
BgL_arg1741z00_842 = 
(BgL_auxz00_10393-((long)1)); } } 
BgL_strz00_829 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)1), 
BINT(BgL_arg1741z00_842)); } 
{ /* ./Read/reader.scm 428 */
long BgL_arg1715z00_830;
BgL_arg1715z00_830 = 
BGl_stringzd2newlinezd2numberz00zz__readerz00(BgL_strz00_829); 
{ /* ./Read/reader.scm 428 */
long BgL_za71za7_4660;
BgL_za71za7_4660 = 
(long)CINT(BGl_za2linezd2numberza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 428 */
long BgL_auxz00_10400;
BgL_auxz00_10400 = 
(BgL_za71za7_4660+BgL_arg1715z00_830); 
BGl_za2linezd2numberza2zd2zz__readerz00 = 
BINT(BgL_auxz00_10400); } } } 
if(
CBOOL(BGl_za2bigloozd2strictzd2r5rszd2stringsza2zd2zz__biglooz00))
{ /* ./Read/reader.scm 430 */
obj_t BgL_strz00_831;
{ /* ./Read/reader.scm 430 */
long BgL_arg1721z00_833;
{ /* ./Read/reader.scm 430 */
int BgL_arg1724z00_834;
{ /* ./Read/reader.scm 430 */
int BgL_res7915z00_4663;
{ /* ./Read/reader.scm 430 */
long BgL_auxz00_10405;
BgL_auxz00_10405 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7915z00_4663 = 
(int)(BgL_auxz00_10405); } 
BgL_arg1724z00_834 = BgL_res7915z00_4663; } 
{ /* ./Read/reader.scm 430 */
long BgL_auxz00_10408;
BgL_auxz00_10408 = 
(long)(BgL_arg1724z00_834); 
BgL_arg1721z00_833 = 
(BgL_auxz00_10408-((long)1)); } } 
BgL_strz00_831 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)1), 
BINT(BgL_arg1721z00_833)); } 
{ /* ./Read/reader.scm 431 */
char * BgL_auxz00_10413;
BgL_auxz00_10413 = 
BSTRING_TO_STRING(BgL_strz00_831); 
return 
escape_scheme_string(BgL_auxz00_10413);} }  else 
{ /* ./Read/reader.scm 432 */
obj_t BgL_strz00_836;
{ /* ./Read/reader.scm 432 */
long BgL_arg1732z00_838;
{ /* ./Read/reader.scm 432 */
int BgL_arg1735z00_839;
{ /* ./Read/reader.scm 432 */
int BgL_res7916z00_4667;
{ /* ./Read/reader.scm 432 */
long BgL_auxz00_10416;
BgL_auxz00_10416 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7916z00_4667 = 
(int)(BgL_auxz00_10416); } 
BgL_arg1735z00_839 = BgL_res7916z00_4667; } 
{ /* ./Read/reader.scm 432 */
long BgL_auxz00_10419;
BgL_auxz00_10419 = 
(long)(BgL_arg1735z00_839); 
BgL_arg1732z00_838 = 
(BgL_auxz00_10419-((long)1)); } } 
BgL_strz00_836 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)0), 
BINT(BgL_arg1732z00_838)); } 
{ /* ./Read/reader.scm 433 */
char * BgL_auxz00_10424;
BgL_auxz00_10424 = 
BSTRING_TO_STRING(BgL_strz00_836); 
return 
escape_C_string(BgL_auxz00_10424);} } } break;case ((long)9) : 

{ /* ./Read/reader.scm 421 */
long BgL_arg1749z00_845;
{ /* ./Read/reader.scm 421 */
obj_t BgL_arg1752z00_846;
BgL_arg1752z00_846 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)2), 
BINT(((long)6))); 
{ /* ./Read/reader.scm 421 */
obj_t BgL_list1755z00_848;
{ /* ./Read/reader.scm 421 */
obj_t BgL_auxz00_10429;
BgL_auxz00_10429 = 
BINT(((long)16)); 
BgL_list1755z00_848 = 
MAKE_PAIR(BgL_auxz00_10429, BNIL); } 
BgL_arg1749z00_845 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1752z00_846, BgL_list1755z00_848); } } 
{ /* ./Read/reader.scm 421 */
ucs2_t BgL_auxz00_10433;
BgL_auxz00_10433 = 
BGl_integerzd2ze3ucs2z31zz__ucs2z00(
(int)(BgL_arg1749z00_845)); 
return 
BUCS2(BgL_auxz00_10433);} } break;case ((long)8) : 

{ /* ./Read/reader.scm 400 */
obj_t BgL_charzd2namezd2_849;
{ /* ./Read/reader.scm 402 */
obj_t BgL_arg1787z00_862;
{ /* ./Read/reader.scm 402 */
obj_t BgL_arg1790z00_863;
{ /* ./Read/reader.scm 402 */
int BgL_arg1794z00_865;
{ /* ./Read/reader.scm 402 */
int BgL_res7917z00_4671;
{ /* ./Read/reader.scm 402 */
long BgL_auxz00_10437;
BgL_auxz00_10437 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7917z00_4671 = 
(int)(BgL_auxz00_10437); } 
BgL_arg1794z00_865 = BgL_res7917z00_4671; } 
BgL_arg1790z00_863 = 
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)2), 
BINT(BgL_arg1794z00_865)); } 
BgL_arg1787z00_862 = 
BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(BgL_arg1790z00_863); } 
{ /* ./Read/reader.scm 400 */
char * BgL_auxz00_10443;
BgL_auxz00_10443 = 
BSTRING_TO_STRING(BgL_arg1787z00_862); 
BgL_charzd2namezd2_849 = 
string_to_symbol(BgL_auxz00_10443); } } 
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2namezd2_849, BGl_symbol10229z00zz__readerz00))
{ /* ./Read/reader.scm 403 */
return 
BCHAR(((unsigned char)'\n'));}  else 
{ /* ./Read/reader.scm 403 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2namezd2_849, BGl_symbol10230z00zz__readerz00))
{ /* ./Read/reader.scm 403 */
return 
BCHAR(((unsigned char)'\t'));}  else 
{ /* ./Read/reader.scm 403 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2namezd2_849, BGl_symbol10231z00zz__readerz00))
{ /* ./Read/reader.scm 403 */
return 
BCHAR(((unsigned char)' '));}  else 
{ /* ./Read/reader.scm 403 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_charzd2namezd2_849, BGl_symbol10232z00zz__readerz00))
{ /* ./Read/reader.scm 411 */
unsigned char BgL_auxz00_10457;
BgL_auxz00_10457 = 
(((long)13)); 
return 
BCHAR(BgL_auxz00_10457);}  else 
{ /* ./Read/reader.scm 413 */
obj_t BgL_arg1768z00_857;char * BgL_arg1769z00_858;int BgL_arg1771z00_859;
{ /* ./Read/reader.scm 415 */
obj_t BgL_res7919z00_4681;
{ /* ./Read/reader.scm 415 */
int BgL_arg1917z00_4675;
{ /* ./Read/reader.scm 415 */
int BgL_res7918z00_4677;
{ /* ./Read/reader.scm 415 */
long BgL_auxz00_10460;
BgL_auxz00_10460 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7918z00_4677 = 
(int)(BgL_auxz00_10460); } 
BgL_arg1917z00_4675 = BgL_res7918z00_4677; } 
{ /* ./Read/reader.scm 415 */
int BgL_auxz00_10463;
BgL_auxz00_10463 = 
(int)(((long)0)); 
BgL_res7919z00_4681 = 
rgc_buffer_substring(BgL_inputzd2portzd2_9759, BgL_auxz00_10463, BgL_arg1917z00_4675); } } 
BgL_arg1768z00_857 = BgL_res7919z00_4681; } 
BgL_arg1769z00_858 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
BgL_arg1771z00_859 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10233z00zz__readerz00, BgL_arg1768z00_857, 
string_to_bstring(BgL_arg1769z00_858), 
BINT(BgL_arg1771z00_859));} } } } } break;case ((long)7) : 

{ /* ./Read/reader.scm 398 */
obj_t BgL_arg1798z00_866;
{ /* ./Read/reader.scm 398 */
obj_t BgL_res7923z00_4693;
{ /* ./Read/reader.scm 398 */
int BgL_arg1917z00_4687;
{ /* ./Read/reader.scm 398 */
int BgL_res7922z00_4689;
{ /* ./Read/reader.scm 398 */
long BgL_auxz00_10471;
BgL_auxz00_10471 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7922z00_4689 = 
(int)(BgL_auxz00_10471); } 
BgL_arg1917z00_4687 = BgL_res7922z00_4689; } 
{ /* ./Read/reader.scm 398 */
int BgL_auxz00_10474;
BgL_auxz00_10474 = 
(int)(((long)0)); 
BgL_res7923z00_4693 = 
rgc_buffer_substring(BgL_inputzd2portzd2_9759, BgL_auxz00_10474, BgL_arg1917z00_4687); } } 
BgL_arg1798z00_866 = BgL_res7923z00_4693; } 
{ /* ./Read/reader.scm 398 */
unsigned char BgL_auxz00_10477;
{ /* ./Read/reader.scm 398 */
int BgL_auxz00_10478;
BgL_auxz00_10478 = 
(int)(((long)2)); 
BgL_auxz00_10477 = 
STRING_REF(BgL_arg1798z00_866, BgL_auxz00_10478); } 
return 
BCHAR(BgL_auxz00_10477);} } break;case ((long)6) : 

{ /* ./Read/reader.scm 389 */
obj_t BgL_stringz00_868;
{ /* ./Read/reader.scm 389 */
obj_t BgL_res7925z00_4703;
{ /* ./Read/reader.scm 389 */
int BgL_arg1917z00_4697;
{ /* ./Read/reader.scm 389 */
int BgL_res7924z00_4699;
{ /* ./Read/reader.scm 389 */
long BgL_auxz00_10482;
BgL_auxz00_10482 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7924z00_4699 = 
(int)(BgL_auxz00_10482); } 
BgL_arg1917z00_4697 = BgL_res7924z00_4699; } 
{ /* ./Read/reader.scm 389 */
int BgL_auxz00_10485;
BgL_auxz00_10485 = 
(int)(((long)0)); 
BgL_res7925z00_4703 = 
rgc_buffer_substring(BgL_inputzd2portzd2_9759, BgL_auxz00_10485, BgL_arg1917z00_4697); } } 
BgL_stringz00_868 = BgL_res7925z00_4703; } 
{ /* ./Read/reader.scm 390 */
bool_t BgL_test1802z00_869;
{ /* ./Read/reader.scm 390 */
int BgL_arg1829z00_879;
{ /* ./Read/reader.scm 390 */
int BgL_res7926z00_4705;
{ /* ./Read/reader.scm 390 */
long BgL_auxz00_10488;
BgL_auxz00_10488 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7926z00_4705 = 
(int)(BgL_auxz00_10488); } 
BgL_arg1829z00_879 = BgL_res7926z00_4705; } 
{ /* ./Read/reader.scm 390 */
long BgL_auxz00_10491;
BgL_auxz00_10491 = 
(long)(BgL_arg1829z00_879); 
BgL_test1802z00_869 = 
(BgL_auxz00_10491==((long)5)); } } 
if(BgL_test1802z00_869)
{ /* ./Read/reader.scm 396 */
long BgL_arg1804z00_870;
BgL_arg1804z00_870 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(
BGl_thezd2substringzd2zz__readerz00(BgL_inputzd2portzd2_9759, ((long)2), 
BINT(((long)5))), BNIL); 
{ /* ./Read/reader.scm 396 */
unsigned char BgL_auxz00_10498;
BgL_auxz00_10498 = 
(BgL_arg1804z00_870); 
return 
BCHAR(BgL_auxz00_10498);} }  else 
{ /* ./Read/reader.scm 391 */
char * BgL_arg1815z00_875;int BgL_arg1816z00_876;
BgL_arg1815z00_875 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9759); 
BgL_arg1816z00_876 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9759); 
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10234z00zz__readerz00, BgL_stringz00_868, 
string_to_bstring(BgL_arg1815z00_875), 
BINT(BgL_arg1816z00_876));} } } break;case ((long)5) : 

{ /* ./Read/reader.scm 375 */
obj_t BgL_strz00_881;
{ /* ./Read/reader.scm 375 */
obj_t BgL_res7930z00_4720;
{ /* ./Read/reader.scm 375 */
int BgL_arg1917z00_4714;
{ /* ./Read/reader.scm 375 */
int BgL_res7929z00_4716;
{ /* ./Read/reader.scm 375 */
long BgL_auxz00_10506;
BgL_auxz00_10506 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7929z00_4716 = 
(int)(BgL_auxz00_10506); } 
BgL_arg1917z00_4714 = BgL_res7929z00_4716; } 
{ /* ./Read/reader.scm 375 */
int BgL_auxz00_10509;
BgL_auxz00_10509 = 
(int)(((long)0)); 
BgL_res7930z00_4720 = 
rgc_buffer_substring(BgL_inputzd2portzd2_9759, BgL_auxz00_10509, BgL_arg1917z00_4714); } } 
BgL_strz00_881 = BgL_res7930z00_4720; } 
{ /* ./Read/reader.scm 375 */

if(
bigloo_strcmp(BgL_strz00_881, BGl_string10235z00zz__readerz00))
{ /* ./Read/reader.scm 377 */
return BOPTIONAL;}  else 
{ /* ./Read/reader.scm 377 */
if(
bigloo_strcmp(BgL_strz00_881, BGl_string10236z00zz__readerz00))
{ /* ./Read/reader.scm 379 */
return BREST;}  else 
{ /* ./Read/reader.scm 379 */
if(
bigloo_strcmp(BgL_strz00_881, BGl_string10237z00zz__readerz00))
{ /* ./Read/reader.scm 381 */
return BKEY;}  else 
{ /* ./Read/reader.scm 381 */
BGl_za2bigloozd2interpreterza2zd2zz__readerz00 = BTRUE; 
{ 

goto BGl_ignorez72z72zz__readerz00;} } } } } } break;case ((long)4) : 

{ 

goto BGl_ignorez72z72zz__readerz00;} break;case ((long)3) : 

BGl_readzd2multizd2linezd2commentzd2zz__readerz00(BgL_inputzd2portzd2_9759); 
{ 

goto BGl_ignorez72z72zz__readerz00;} break;case ((long)2) : 

{ 

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

{ 

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

{ /* ./Read/reader.scm 353 */
int BgL_arg1852z00_886;
{ /* ./Read/reader.scm 353 */
int BgL_res7932z00_4729;
{ /* ./Read/reader.scm 353 */
long BgL_auxz00_10519;
BgL_auxz00_10519 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9759); 
BgL_res7932z00_4729 = 
(int)(BgL_auxz00_10519); } 
BgL_arg1852z00_886 = BgL_res7932z00_4729; } 
{ /* ./Read/reader.scm 353 */
long BgL_za71za7_4730;long BgL_za72za7_4731;
BgL_za71za7_4730 = 
(long)CINT(BGl_za2linezd2numberza2zd2zz__readerz00); 
BgL_za72za7_4731 = 
(long)(BgL_arg1852z00_886); 
{ /* ./Read/reader.scm 353 */
long BgL_auxz00_10524;
BgL_auxz00_10524 = 
(BgL_za71za7_4730+BgL_za72za7_4731); 
BGl_za2linezd2numberza2zd2zz__readerz00 = 
BINT(BgL_auxz00_10524); } } } 
{ 

goto BGl_ignorez72z72zz__readerz00;} break;
default: 
{ /* ./Read/reader.scm 336 */
obj_t BgL_objectz00_4734;
BgL_objectz00_4734 = 
BINT(BgL_matchz00_620); 
FAILURE(BGl_string10238z00zz__readerz00,BGl_string10239z00zz__readerz00,BgL_objectz00_4734);} } } } } 
}



/* the-substring */
obj_t BGl_thezd2substringzd2zz__readerz00(obj_t BgL_inputzd2portzd2_9764, long BgL_minz00_908, obj_t BgL_maxz00_909)
{ AN_OBJECT;
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test1897z00_911;
if(
(BgL_minz00_908>=((long)0)))
{ /* ./Read/reader.scm 336 */
bool_t BgL_test1907z00_916;
{ /* ./Read/reader.scm 336 */
int BgL_arg1910z00_917;
{ /* ./Read/reader.scm 336 */
int BgL_res7938z00_4773;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10532;
BgL_auxz00_10532 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9764); 
BgL_res7938z00_4773 = 
(int)(BgL_auxz00_10532); } 
BgL_arg1910z00_917 = BgL_res7938z00_4773; } 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10537;long BgL_auxz00_10535;
BgL_auxz00_10537 = 
(long)(BgL_arg1910z00_917); 
BgL_auxz00_10535 = 
(long)CINT(BgL_maxz00_909); 
BgL_test1907z00_916 = 
(BgL_auxz00_10535<=BgL_auxz00_10537); } } 
if(BgL_test1907z00_916)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10541;
BgL_auxz00_10541 = 
(long)CINT(BgL_maxz00_909); 
BgL_test1897z00_911 = 
(BgL_auxz00_10541>=BgL_minz00_908); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test1897z00_911 = ((bool_t)0); } }  else 
{ /* ./Read/reader.scm 336 */
BgL_test1897z00_911 = ((bool_t)0); } 
if(BgL_test1897z00_911)
{ /* ./Read/reader.scm 336 */
int BgL_auxz00_10547;int BgL_auxz00_10545;
BgL_auxz00_10547 = 
CINT(BgL_maxz00_909); 
BgL_auxz00_10545 = 
(int)(BgL_minz00_908); 
return 
rgc_buffer_substring(BgL_inputzd2portzd2_9764, BgL_auxz00_10545, BgL_auxz00_10547);}  else 
{ /* ./Read/reader.scm 336 */
obj_t BgL_arg1902z00_914;
{ /* ./Read/reader.scm 336 */
obj_t BgL_auxz00_10550;
BgL_auxz00_10550 = 
BINT(BgL_minz00_908); 
BgL_arg1902z00_914 = 
MAKE_PAIR(BgL_auxz00_10550, BgL_maxz00_909); } 
FAILURE(BGl_string10240z00zz__readerz00,BGl_string10241z00zz__readerz00,BgL_arg1902z00_914);} } } 
}



/* <anonymous:1299> */
obj_t BGl_zc3anonymousza31299ze3z83zz__readerz00(obj_t BgL_envz00_9702)
{ AN_OBJECT;
{ /* ./Read/reader.scm 640 */
{ /* ./Read/reader.scm 640 */
int BgL_auxz00_10554;
BgL_auxz00_10554 = 
(int)(((long)0)); 
return 
PROCEDURE_REF(BgL_envz00_9702, BgL_auxz00_10554);} } 
}



/* STATE-0-1021 */
obj_t BGl_STATEzd20zd21021z00zz__readerz00(obj_t BgL_envz00_9704, obj_t BgL_inputzd2portzd2_9705, obj_t BgL_lastzd2matchzd2_9706, obj_t BgL_thezd2rgczd2contextz00_9707)
{ AN_OBJECT;
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_inputzd2portzd2_1671;obj_t BgL_lastzd2matchzd2_1672;obj_t BgL_thezd2rgczd2contextz00_1673;
BgL_inputzd2portzd2_1671 = BgL_inputzd2portzd2_9705; 
BgL_lastzd2matchzd2_1672 = BgL_lastzd2matchzd2_9706; 
BgL_thezd2rgczd2contextz00_1673 = BgL_thezd2rgczd2contextz00_9707; 
BgL_zc3anonymousza33251ze3z83_1674:
{ 
obj_t BgL_inputzd2portzd2_923;obj_t BgL_lastzd2matchzd2_924;obj_t BgL_thezd2rgczd2contextz00_925;obj_t BgL_inputzd2portzd2_2362;obj_t BgL_lastzd2matchzd2_2363;obj_t BgL_thezd2rgczd2contextz00_2364;obj_t BgL_inputzd2portzd2_1433;obj_t BgL_lastzd2matchzd2_1434;obj_t BgL_thezd2rgczd2contextz00_1435;obj_t BgL_inputzd2portzd2_1661;obj_t BgL_lastzd2matchzd2_1662;obj_t BgL_thezd2rgczd2contextz00_1663;obj_t BgL_inputzd2portzd2_1890;obj_t BgL_lastzd2matchzd2_1891;obj_t BgL_thezd2rgczd2contextz00_1892;obj_t BgL_inputzd2portzd2_1279;obj_t BgL_lastzd2matchzd2_1280;obj_t BgL_thezd2rgczd2contextz00_1281;obj_t BgL_inputzd2portzd2_2384;obj_t BgL_lastzd2matchzd2_2385;obj_t BgL_thezd2rgczd2contextz00_2386;obj_t BgL_inputzd2portzd2_2177;obj_t BgL_lastzd2matchzd2_2178;obj_t BgL_thezd2rgczd2contextz00_2179;obj_t BgL_inputzd2portzd2_2019;obj_t BgL_lastzd2matchzd2_2020;obj_t BgL_thezd2rgczd2contextz00_2021;obj_t BgL_inputzd2portzd2_1628;obj_t BgL_lastzd2matchzd2_1629;obj_t BgL_thezd2rgczd2contextz00_1630;obj_t BgL_inputzd2portzd2_1015;obj_t BgL_lastzd2matchzd2_1016;obj_t BgL_thezd2rgczd2contextz00_1017;obj_t BgL_inputzd2portzd2_2847;long BgL_lastzd2matchzd2_2848;obj_t BgL_thezd2rgczd2contextz00_2849;obj_t BgL_inputzd2portzd2_2408;long BgL_lastzd2matchzd2_2409;obj_t BgL_thezd2rgczd2contextz00_2410;obj_t BgL_inputzd2portzd2_2856;long BgL_lastzd2matchzd2_2857;obj_t BgL_thezd2rgczd2contextz00_2858;obj_t BgL_inputzd2portzd2_1638;long BgL_lastzd2matchzd2_1639;obj_t BgL_thezd2rgczd2contextz00_1640;obj_t BgL_inputzd2portzd2_2071;long BgL_lastzd2matchzd2_2072;obj_t BgL_thezd2rgczd2contextz00_2073;obj_t BgL_inputzd2portzd2_2129;long BgL_lastzd2matchzd2_2130;obj_t BgL_thezd2rgczd2contextz00_2131;obj_t BgL_inputzd2portzd2_2049;long BgL_lastzd2matchzd2_2050;obj_t BgL_thezd2rgczd2contextz00_2051;obj_t BgL_inputzd2portzd2_2248;long BgL_lastzd2matchzd2_2249;obj_t BgL_thezd2rgczd2contextz00_2250;obj_t BgL_inputzd2portzd2_2210;long BgL_lastzd2matchzd2_2211;obj_t BgL_thezd2rgczd2contextz00_2212;obj_t BgL_inputzd2portzd2_1973;long BgL_lastzd2matchzd2_1974;obj_t BgL_thezd2rgczd2contextz00_1975;obj_t BgL_inputzd2portzd2_2422;long BgL_lastzd2matchzd2_2423;obj_t BgL_thezd2rgczd2contextz00_2424;obj_t BgL_inputzd2portzd2_1943;long BgL_lastzd2matchzd2_1944;obj_t BgL_thezd2rgczd2contextz00_1945;obj_t BgL_inputzd2portzd2_2101;long BgL_lastzd2matchzd2_2102;obj_t BgL_thezd2rgczd2contextz00_2103;obj_t BgL_inputzd2portzd2_2444;long BgL_lastzd2matchzd2_2445;obj_t BgL_thezd2rgczd2contextz00_2446;obj_t BgL_inputzd2portzd2_2276;long BgL_lastzd2matchzd2_2277;obj_t BgL_thezd2rgczd2contextz00_2278;obj_t BgL_inputzd2portzd2_2149;long BgL_lastzd2matchzd2_2150;obj_t BgL_thezd2rgczd2contextz00_2151;obj_t BgL_inputzd2portzd2_1581;long BgL_lastzd2matchzd2_1582;obj_t BgL_thezd2rgczd2contextz00_1583;obj_t BgL_inputzd2portzd2_2468;long BgL_lastzd2matchzd2_2469;obj_t BgL_thezd2rgczd2contextz00_2470;obj_t BgL_inputzd2portzd2_2300;long BgL_lastzd2matchzd2_2301;obj_t BgL_thezd2rgczd2contextz00_2302;obj_t BgL_inputzd2portzd2_1921;long BgL_lastzd2matchzd2_1922;obj_t BgL_thezd2rgczd2contextz00_1923;obj_t BgL_inputzd2portzd2_1214;long BgL_lastzd2matchzd2_1215;obj_t BgL_thezd2rgczd2contextz00_1216;obj_t BgL_inputzd2portzd2_1119;long BgL_lastzd2matchzd2_1120;obj_t BgL_thezd2rgczd2contextz00_1121;obj_t BgL_inputzd2portzd2_1648;long BgL_lastzd2matchzd2_1649;obj_t BgL_thezd2rgczd2contextz00_1650;obj_t BgL_inputzd2portzd2_2875;long BgL_lastzd2matchzd2_2876;obj_t BgL_thezd2rgczd2contextz00_2877;obj_t BgL_inputzd2portzd2_2492;long BgL_lastzd2matchzd2_2493;obj_t BgL_thezd2rgczd2contextz00_2494;obj_t BgL_inputzd2portzd2_2519;long BgL_lastzd2matchzd2_2520;obj_t BgL_thezd2rgczd2contextz00_2521;obj_t BgL_inputzd2portzd2_2547;long BgL_lastzd2matchzd2_2548;obj_t BgL_thezd2rgczd2contextz00_2549;obj_t BgL_inputzd2portzd2_2575;long BgL_lastzd2matchzd2_2576;obj_t BgL_thezd2rgczd2contextz00_2577;obj_t BgL_inputzd2portzd2_2902;long BgL_lastzd2matchzd2_2903;obj_t BgL_thezd2rgczd2contextz00_2904;obj_t BgL_inputzd2portzd2_2933;long BgL_lastzd2matchzd2_2934;obj_t BgL_thezd2rgczd2contextz00_2935;obj_t BgL_inputzd2portzd2_1223;long BgL_lastzd2matchzd2_1224;obj_t BgL_thezd2rgczd2contextz00_1225;obj_t BgL_inputzd2portzd2_1443;long BgL_lastzd2matchzd2_1444;obj_t BgL_thezd2rgczd2contextz00_1445;obj_t BgL_inputzd2portzd2_2982;long BgL_lastzd2matchzd2_2983;obj_t BgL_thezd2rgczd2contextz00_2984;obj_t BgL_inputzd2portzd2_1476;long BgL_lastzd2matchzd2_1477;obj_t BgL_thezd2rgczd2contextz00_1478;obj_t BgL_inputzd2portzd2_1514;long BgL_lastzd2matchzd2_1515;obj_t BgL_thezd2rgczd2contextz00_1516;obj_t BgL_inputzd2portzd2_1337;long BgL_lastzd2matchzd2_1338;obj_t BgL_thezd2rgczd2contextz00_1339;obj_t BgL_inputzd2portzd2_1305;long BgL_lastzd2matchzd2_1306;obj_t BgL_thezd2rgczd2contextz00_1307;obj_t BgL_inputzd2portzd2_3034;long BgL_lastzd2matchzd2_3035;obj_t BgL_thezd2rgczd2contextz00_3036;obj_t BgL_inputzd2portzd2_1058;long BgL_lastzd2matchzd2_1059;obj_t BgL_thezd2rgczd2contextz00_1060;obj_t BgL_inputzd2portzd2_1026;long BgL_lastzd2matchzd2_1027;obj_t BgL_thezd2rgczd2contextz00_1028;obj_t BgL_inputzd2portzd2_944;long BgL_lastzd2matchzd2_945;obj_t BgL_thezd2rgczd2contextz00_946;obj_t BgL_inputzd2portzd2_3059;long BgL_lastzd2matchzd2_3060;obj_t BgL_thezd2rgczd2contextz00_3061;obj_t BgL_inputzd2portzd2_935;long BgL_lastzd2matchzd2_936;obj_t BgL_thezd2rgczd2contextz00_937;obj_t BgL_inputzd2portzd2_3133;long BgL_lastzd2matchzd2_3134;obj_t BgL_thezd2rgczd2contextz00_3135;obj_t BgL_inputzd2portzd2_2593;long BgL_lastzd2matchzd2_2594;obj_t BgL_thezd2rgczd2contextz00_2595;obj_t BgL_inputzd2portzd2_3100;long BgL_lastzd2matchzd2_3101;obj_t BgL_thezd2rgczd2contextz00_3102;obj_t BgL_inputzd2portzd2_1681;long BgL_lastzd2matchzd2_1682;obj_t BgL_thezd2rgczd2contextz00_1683;obj_t BgL_inputzd2portzd2_1857;long BgL_lastzd2matchzd2_1858;obj_t BgL_thezd2rgczd2contextz00_1859;obj_t BgL_inputzd2portzd2_1795;long BgL_lastzd2matchzd2_1796;obj_t BgL_thezd2rgczd2contextz00_1797;obj_t BgL_inputzd2portzd2_1763;long BgL_lastzd2matchzd2_1764;obj_t BgL_thezd2rgczd2contextz00_1765;obj_t BgL_inputzd2portzd2_2675;long BgL_lastzd2matchzd2_2676;obj_t BgL_thezd2rgczd2contextz00_2677;obj_t BgL_inputzd2portzd2_2625;long BgL_lastzd2matchzd2_2626;obj_t BgL_thezd2rgczd2contextz00_2627;obj_t BgL_inputzd2portzd2_1713;long BgL_lastzd2matchzd2_1714;obj_t BgL_thezd2rgczd2contextz00_1715;obj_t BgL_inputzd2portzd2_1816;long BgL_lastzd2matchzd2_1817;obj_t BgL_thezd2rgczd2contextz00_1818;obj_t BgL_inputzd2portzd2_1395;long BgL_lastzd2matchzd2_1396;obj_t BgL_thezd2rgczd2contextz00_1397;obj_t BgL_inputzd2portzd2_1371;long BgL_lastzd2matchzd2_1372;obj_t BgL_thezd2rgczd2contextz00_1373;obj_t BgL_inputzd2portzd2_1547;long BgL_lastzd2matchzd2_1548;obj_t BgL_thezd2rgczd2contextz00_1549;obj_t BgL_inputzd2portzd2_1178;long BgL_lastzd2matchzd2_1179;obj_t BgL_thezd2rgczd2contextz00_1180;obj_t BgL_inputzd2portzd2_1154;long BgL_lastzd2matchzd2_1155;obj_t BgL_thezd2rgczd2contextz00_1156;obj_t BgL_inputzd2portzd2_1254;long BgL_lastzd2matchzd2_1255;obj_t BgL_thezd2rgczd2contextz00_1256;obj_t BgL_inputzd2portzd2_3211;long BgL_lastzd2matchzd2_3212;obj_t BgL_thezd2rgczd2contextz00_3213;obj_t BgL_inputzd2portzd2_3166;long BgL_lastzd2matchzd2_3167;obj_t BgL_thezd2rgczd2contextz00_3168;obj_t BgL_inputzd2portzd2_3142;long BgL_lastzd2matchzd2_3143;obj_t BgL_thezd2rgczd2contextz00_3144;obj_t BgL_inputzd2portzd2_2701;long BgL_lastzd2matchzd2_2702;obj_t BgL_thezd2rgczd2contextz00_2703;obj_t BgL_inputzd2portzd2_2726;long BgL_lastzd2matchzd2_2727;obj_t BgL_thezd2rgczd2contextz00_2728;obj_t BgL_inputzd2portzd2_1130;long BgL_lastzd2matchzd2_1131;obj_t BgL_thezd2rgczd2contextz00_1132;obj_t BgL_inputzd2portzd2_3238;long BgL_lastzd2matchzd2_3239;obj_t BgL_thezd2rgczd2contextz00_3240;obj_t BgL_inputzd2portzd2_3268;long BgL_lastzd2matchzd2_3269;obj_t BgL_thezd2rgczd2contextz00_3270;obj_t BgL_inputzd2portzd2_3281;long BgL_lastzd2matchzd2_3282;obj_t BgL_thezd2rgczd2contextz00_3283;obj_t BgL_inputzd2portzd2_2753;long BgL_lastzd2matchzd2_2754;obj_t BgL_thezd2rgczd2contextz00_2755;obj_t BgL_inputzd2portzd2_977;long BgL_lastzd2matchzd2_978;obj_t BgL_thezd2rgczd2contextz00_979;obj_t BgL_inputzd2portzd2_2335;long BgL_lastzd2matchzd2_2336;obj_t BgL_thezd2rgczd2contextz00_2337;obj_t BgL_inputzd2portzd2_2779;long BgL_lastzd2matchzd2_2780;obj_t BgL_thezd2rgczd2contextz00_2781;obj_t BgL_inputzd2portzd2_1205;long BgL_lastzd2matchzd2_1206;obj_t BgL_thezd2rgczd2contextz00_1207;obj_t BgL_inputzd2portzd2_2793;long BgL_lastzd2matchzd2_2794;obj_t BgL_thezd2rgczd2contextz00_2795;obj_t BgL_inputzd2portzd2_1611;long BgL_lastzd2matchzd2_1612;obj_t BgL_thezd2rgczd2contextz00_1613;obj_t BgL_inputzd2portzd2_1108;long BgL_lastzd2matchzd2_1109;obj_t BgL_thezd2rgczd2contextz00_1110;obj_t BgL_inputzd2portzd2_1424;long BgL_lastzd2matchzd2_1425;obj_t BgL_thezd2rgczd2contextz00_1426;obj_t BgL_inputzd2portzd2_1572;long BgL_lastzd2matchzd2_1573;obj_t BgL_thezd2rgczd2contextz00_1574;obj_t BgL_inputzd2portzd2_2010;long BgL_lastzd2matchzd2_2011;obj_t BgL_thezd2rgczd2contextz00_2012;obj_t BgL_inputzd2portzd2_1003;long BgL_lastzd2matchzd2_1004;obj_t BgL_thezd2rgczd2contextz00_1005;
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1675;
BgL_currentzd2charzd2_1675 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1671); 
switch( 
(long)(BgL_currentzd2charzd2_1675)) { case ((long)125) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6108;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1671); 
BgL_newzd2matchzd2_6108 = ((long)38); 
return 
BINT(BgL_newzd2matchzd2_6108);} break;case ((long)124) : 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10560;
BgL_inputzd2portzd2_1015 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_1016 = BgL_lastzd2matchzd2_1672; 
BgL_thezd2rgczd2contextz00_1017 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza32078ze3z83_1018:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1019;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1015); 
BgL_newzd2matchzd2_1019 = ((long)41); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1020;
BgL_currentzd2charzd2_1020 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1015); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10563;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10564;
BgL_auxz00_10564 = 
(long)(BgL_currentzd2charzd2_1020); 
BgL_testz00_10563 = 
(BgL_auxz00_10564==((long)0)); } 
if(BgL_testz00_10563)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2080z00_1022;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7945z00_4950;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_4947;
BgL__andtest_1208z00_4947 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1015); 
if(BgL__andtest_1208z00_4947)
{ /* ./Read/reader.scm 336 */
BgL_res7945z00_4950 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1015); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7945z00_4950 = ((bool_t)0); } } 
BgL_test2080z00_1022 = BgL_res7945z00_4950; } 
if(BgL_test2080z00_1022)
{ 

goto BgL_zc3anonymousza32078ze3z83_1018;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10560 = BgL_newzd2matchzd2_1019
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2083z00_1023;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10571;
BgL_auxz00_10571 = 
(long)(BgL_currentzd2charzd2_1020); 
BgL_test2083z00_1023 = 
(BgL_auxz00_10571==((long)92)); } 
if(BgL_test2083z00_1023)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2847 = BgL_inputzd2portzd2_1015; 
BgL_lastzd2matchzd2_2848 = BgL_newzd2matchzd2_1019; 
BgL_thezd2rgczd2contextz00_2849 = BgL_thezd2rgczd2contextz00_1017; 
BgL_zc3anonymousza35270ze3z83_2850:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2851;
BgL_currentzd2charzd2_2851 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2847); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10576;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10577;
BgL_auxz00_10577 = 
(long)(BgL_currentzd2charzd2_2851); 
BgL_testz00_10576 = 
(BgL_auxz00_10577==((long)0)); } 
if(BgL_testz00_10576)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5272z00_2853;
BgL_test5272z00_2853 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2847); 
if(BgL_test5272z00_2853)
{ /* ./Read/reader.scm 336 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_2847))
{ 

goto BgL_zc3anonymousza35270ze3z83_2850;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10560 = BgL_lastzd2matchzd2_2848
; } }  else 
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2408 = BgL_inputzd2portzd2_2847; 
BgL_lastzd2matchzd2_2409 = BgL_lastzd2matchzd2_2848; 
BgL_thezd2rgczd2contextz00_2410 = BgL_thezd2rgczd2contextz00_2849; 
BgL_zc3anonymousza34542ze3z83_2411:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2412;
BgL_currentzd2charzd2_2412 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2408); 
switch( 
(long)(BgL_currentzd2charzd2_2412)) { case ((long)0) : 

{ /* ./Read/reader.scm 336 */
bool_t BgL_test4544z00_2416;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8002z00_7504;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7501;
BgL__andtest_1208z00_7501 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2408); 
if(BgL__andtest_1208z00_7501)
{ /* ./Read/reader.scm 336 */
BgL_res8002z00_7504 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2408); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8002z00_7504 = ((bool_t)0); } } 
BgL_test4544z00_2416 = BgL_res8002z00_7504; } 
if(BgL_test4544z00_2416)
{ 

goto BgL_zc3anonymousza34542ze3z83_2411;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10560 = BgL_lastzd2matchzd2_2409
; } } break;case ((long)124) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_7508;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2408); 
BgL_newzd2matchzd2_7508 = ((long)28); 
BgL_auxz00_10560 = BgL_newzd2matchzd2_7508; } break;case ((long)92) : 

BgL_inputzd2portzd2_2856 = BgL_inputzd2portzd2_2408; 
BgL_lastzd2matchzd2_2857 = BgL_lastzd2matchzd2_2409; 
BgL_thezd2rgczd2contextz00_2858 = BgL_thezd2rgczd2contextz00_2410; 
BgL_zc3anonymousza35283ze3z83_2859:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2860;
BgL_currentzd2charzd2_2860 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2856); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10591;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10592;
BgL_auxz00_10592 = 
(long)(BgL_currentzd2charzd2_2860); 
BgL_testz00_10591 = 
(BgL_auxz00_10592==((long)0)); } 
if(BgL_testz00_10591)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5285z00_2862;
BgL_test5285z00_2862 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2856); 
if(BgL_test5285z00_2862)
{ /* ./Read/reader.scm 336 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_2856))
{ 

goto BgL_zc3anonymousza35283ze3z83_2859;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10560 = BgL_lastzd2matchzd2_2857
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_10601;long BgL_lastzd2matchzd2_10600;obj_t BgL_inputzd2portzd2_10599;
BgL_inputzd2portzd2_10599 = BgL_inputzd2portzd2_2856; 
BgL_lastzd2matchzd2_10600 = BgL_lastzd2matchzd2_2857; 
BgL_thezd2rgczd2contextz00_10601 = BgL_thezd2rgczd2contextz00_2858; 
BgL_thezd2rgczd2contextz00_2410 = BgL_thezd2rgczd2contextz00_10601; 
BgL_lastzd2matchzd2_2409 = BgL_lastzd2matchzd2_10600; 
BgL_inputzd2portzd2_2408 = BgL_inputzd2portzd2_10599; 
goto BgL_zc3anonymousza34542ze3z83_2411;} } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10602;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10603;
BgL_auxz00_10603 = 
(long)(BgL_currentzd2charzd2_2860); 
BgL_testz00_10602 = 
(BgL_auxz00_10603==((long)10)); } 
if(BgL_testz00_10602)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10560 = BgL_lastzd2matchzd2_2857; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_10608;long BgL_lastzd2matchzd2_10607;obj_t BgL_inputzd2portzd2_10606;
BgL_inputzd2portzd2_10606 = BgL_inputzd2portzd2_2856; 
BgL_lastzd2matchzd2_10607 = BgL_lastzd2matchzd2_2857; 
BgL_thezd2rgczd2contextz00_10608 = BgL_thezd2rgczd2contextz00_2858; 
BgL_thezd2rgczd2contextz00_2410 = BgL_thezd2rgczd2contextz00_10608; 
BgL_lastzd2matchzd2_2409 = BgL_lastzd2matchzd2_10607; 
BgL_inputzd2portzd2_2408 = BgL_inputzd2portzd2_10606; 
goto BgL_zc3anonymousza34542ze3z83_2411;} } } } } break;
default: 
{ 

goto BgL_zc3anonymousza34542ze3z83_2411;} } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10611;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10612;
BgL_auxz00_10612 = 
(long)(BgL_currentzd2charzd2_2851); 
BgL_testz00_10611 = 
(BgL_auxz00_10612==((long)10)); } 
if(BgL_testz00_10611)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10560 = BgL_lastzd2matchzd2_2848; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_10617;long BgL_lastzd2matchzd2_10616;obj_t BgL_inputzd2portzd2_10615;
BgL_inputzd2portzd2_10615 = BgL_inputzd2portzd2_2847; 
BgL_lastzd2matchzd2_10616 = BgL_lastzd2matchzd2_2848; 
BgL_thezd2rgczd2contextz00_10617 = BgL_thezd2rgczd2contextz00_2849; 
BgL_thezd2rgczd2contextz00_2410 = BgL_thezd2rgczd2contextz00_10617; 
BgL_lastzd2matchzd2_2409 = BgL_lastzd2matchzd2_10616; 
BgL_inputzd2portzd2_2408 = BgL_inputzd2portzd2_10615; 
goto BgL_zc3anonymousza34542ze3z83_2411;} } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2085z00_1024;
if(BgL_test2083z00_1023)
{ /* ./Read/reader.scm 336 */
BgL_test2085z00_1024 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10619;
BgL_auxz00_10619 = 
(long)(BgL_currentzd2charzd2_1020); 
BgL_test2085z00_1024 = 
(BgL_auxz00_10619==((long)124)); } 
if(BgL_test2085z00_1024)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10560 = BgL_newzd2matchzd2_1019; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_10625;long BgL_lastzd2matchzd2_10624;obj_t BgL_inputzd2portzd2_10623;
BgL_inputzd2portzd2_10623 = BgL_inputzd2portzd2_1015; 
BgL_lastzd2matchzd2_10624 = BgL_newzd2matchzd2_1019; 
BgL_thezd2rgczd2contextz00_10625 = BgL_thezd2rgczd2contextz00_1017; 
BgL_thezd2rgczd2contextz00_2410 = BgL_thezd2rgczd2contextz00_10625; 
BgL_lastzd2matchzd2_2409 = BgL_lastzd2matchzd2_10624; 
BgL_inputzd2portzd2_2408 = BgL_inputzd2portzd2_10623; 
goto BgL_zc3anonymousza34542ze3z83_2411;} } } } } } } 
return 
BINT(BgL_auxz00_10560);} break;case ((long)96) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6113;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1671); 
BgL_newzd2matchzd2_6113 = ((long)30); 
return 
BINT(BgL_newzd2matchzd2_6113);} break;case ((long)59) : 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10629;
BgL_inputzd2portzd2_1628 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_1629 = BgL_lastzd2matchzd2_1672; 
BgL_thezd2rgczd2contextz00_1630 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza33177ze3z83_1631:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1632;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1628); 
BgL_newzd2matchzd2_1632 = ((long)2); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1633;
BgL_currentzd2charzd2_1633 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1628); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10632;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10633;
BgL_auxz00_10633 = 
(long)(BgL_currentzd2charzd2_1633); 
BgL_testz00_10632 = 
(BgL_auxz00_10633==((long)0)); } 
if(BgL_testz00_10632)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3179z00_1635;
BgL_test3179z00_1635 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1628); 
if(BgL_test3179z00_1635)
{ /* ./Read/reader.scm 336 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1628))
{ 

goto BgL_zc3anonymousza33177ze3z83_1631;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10629 = BgL_newzd2matchzd2_1632
; } }  else 
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1638 = BgL_inputzd2portzd2_1628; 
BgL_lastzd2matchzd2_1639 = BgL_newzd2matchzd2_1632; 
BgL_thezd2rgczd2contextz00_1640 = BgL_thezd2rgczd2contextz00_1630; 
BgL_zc3anonymousza33191ze3z83_1641:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1642;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1638); 
BgL_newzd2matchzd2_1642 = ((long)2); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1643;
BgL_currentzd2charzd2_1643 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1638); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10642;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10643;
BgL_auxz00_10643 = 
(long)(BgL_currentzd2charzd2_1643); 
BgL_testz00_10642 = 
(BgL_auxz00_10643==((long)0)); } 
if(BgL_testz00_10642)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3193z00_1645;
BgL_test3193z00_1645 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1638); 
if(BgL_test3193z00_1645)
{ /* ./Read/reader.scm 336 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1638))
{ 

goto BgL_zc3anonymousza33191ze3z83_1641;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10629 = BgL_newzd2matchzd2_1642
; } }  else 
{ 
long BgL_lastzd2matchzd2_10650;
BgL_lastzd2matchzd2_10650 = BgL_newzd2matchzd2_1642; 
BgL_lastzd2matchzd2_1639 = BgL_lastzd2matchzd2_10650; 
goto BgL_zc3anonymousza33191ze3z83_1641;} } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10651;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10652;
BgL_auxz00_10652 = 
(long)(BgL_currentzd2charzd2_1643); 
BgL_testz00_10651 = 
(BgL_auxz00_10652==((long)10)); } 
if(BgL_testz00_10651)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10629 = BgL_newzd2matchzd2_1642; }  else 
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_10655;
BgL_lastzd2matchzd2_10655 = BgL_newzd2matchzd2_1642; 
BgL_lastzd2matchzd2_1639 = BgL_lastzd2matchzd2_10655; 
goto BgL_zc3anonymousza33191ze3z83_1641;} } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10656;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10657;
BgL_auxz00_10657 = 
(long)(BgL_currentzd2charzd2_1633); 
BgL_testz00_10656 = 
(BgL_auxz00_10657==((long)10)); } 
if(BgL_testz00_10656)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10629 = BgL_newzd2matchzd2_1632; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_10662;long BgL_lastzd2matchzd2_10661;obj_t BgL_inputzd2portzd2_10660;
BgL_inputzd2portzd2_10660 = BgL_inputzd2portzd2_1628; 
BgL_lastzd2matchzd2_10661 = BgL_newzd2matchzd2_1632; 
BgL_thezd2rgczd2contextz00_10662 = BgL_thezd2rgczd2contextz00_1630; 
BgL_thezd2rgczd2contextz00_1640 = BgL_thezd2rgczd2contextz00_10662; 
BgL_lastzd2matchzd2_1639 = BgL_lastzd2matchzd2_10661; 
BgL_inputzd2portzd2_1638 = BgL_inputzd2portzd2_10660; 
goto BgL_zc3anonymousza33191ze3z83_1641;} } } } } } 
return 
BINT(BgL_auxz00_10629);} break;case ((long)58) : 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10664;
BgL_inputzd2portzd2_2019 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_2020 = BgL_lastzd2matchzd2_1672; 
BgL_thezd2rgczd2contextz00_2021 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza33850ze3z83_2022:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2023;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2019); 
BgL_newzd2matchzd2_2023 = ((long)27); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2024;
BgL_currentzd2charzd2_2024 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2019); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10667;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10668;
BgL_auxz00_10668 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10667 = 
(BgL_auxz00_10668==((long)0)); } 
if(BgL_testz00_10667)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3852z00_2026;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7988z00_6847;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6844;
BgL__andtest_1208z00_6844 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2019); 
if(BgL__andtest_1208z00_6844)
{ /* ./Read/reader.scm 336 */
BgL_res7988z00_6847 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2019); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7988z00_6847 = ((bool_t)0); } } 
BgL_test3852z00_2026 = BgL_res7988z00_6847; } 
if(BgL_test3852z00_2026)
{ 

goto BgL_zc3anonymousza33850ze3z83_2022;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10664 = BgL_newzd2matchzd2_2023
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3855z00_2027;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10675;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10676;
BgL_auxz00_10676 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10675 = 
(BgL_auxz00_10676>=((long)48)); } 
if(BgL_testz00_10675)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10679;
BgL_auxz00_10679 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_test3855z00_2027 = 
(BgL_auxz00_10679<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test3855z00_2027 = ((bool_t)0); } } 
if(BgL_test3855z00_2027)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2071 = BgL_inputzd2portzd2_2019; 
BgL_lastzd2matchzd2_2072 = BgL_newzd2matchzd2_2023; 
BgL_thezd2rgczd2contextz00_2073 = BgL_thezd2rgczd2contextz00_2021; 
BgL_zc3anonymousza33941ze3z83_2074:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2075;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2071); 
BgL_newzd2matchzd2_2075 = ((long)27); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2076;
BgL_currentzd2charzd2_2076 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2071); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10685;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10686;
BgL_auxz00_10686 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10685 = 
(BgL_auxz00_10686==((long)0)); } 
if(BgL_testz00_10685)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3943z00_2078;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7990z00_6935;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6932;
BgL__andtest_1208z00_6932 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2071); 
if(BgL__andtest_1208z00_6932)
{ /* ./Read/reader.scm 336 */
BgL_res7990z00_6935 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2071); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7990z00_6935 = ((bool_t)0); } } 
BgL_test3943z00_2078 = BgL_res7990z00_6935; } 
if(BgL_test3943z00_2078)
{ 

goto BgL_zc3anonymousza33941ze3z83_2074;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10664 = BgL_newzd2matchzd2_2075
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3946z00_2079;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10693;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10694;
BgL_auxz00_10694 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10693 = 
(BgL_auxz00_10694>=((long)48)); } 
if(BgL_testz00_10693)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10697;
BgL_auxz00_10697 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_test3946z00_2079 = 
(BgL_auxz00_10697<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test3946z00_2079 = ((bool_t)0); } } 
if(BgL_test3946z00_2079)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_10701;
BgL_lastzd2matchzd2_10701 = BgL_newzd2matchzd2_2075; 
BgL_lastzd2matchzd2_2072 = BgL_lastzd2matchzd2_10701; 
goto BgL_zc3anonymousza33941ze3z83_2074;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3948z00_2080;
switch( 
(long)(BgL_currentzd2charzd2_2076)) { case ((long)39) : 

BgL_test3948z00_2080 = ((bool_t)1); break;case ((long)44) : 

BgL_test3948z00_2080 = ((bool_t)1); break;case ((long)58) : 

BgL_test3948z00_2080 = ((bool_t)1); break;
default: 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10702;
BgL_auxz00_10702 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_test3948z00_2080 = 
(BgL_auxz00_10702==((long)96)); } } 
if(BgL_test3948z00_2080)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2129 = BgL_inputzd2portzd2_2071; 
BgL_lastzd2matchzd2_2130 = BgL_newzd2matchzd2_2075; 
BgL_thezd2rgczd2contextz00_2131 = BgL_thezd2rgczd2contextz00_2073; 
BgL_zc3anonymousza34046ze3z83_2132:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2133;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2129); 
BgL_newzd2matchzd2_2133 = ((long)27); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2134;
BgL_currentzd2charzd2_2134 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2129); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10710;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10711;
BgL_auxz00_10711 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10710 = 
(BgL_auxz00_10711==((long)0)); } 
if(BgL_testz00_10710)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4048z00_2136;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7992z00_7035;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7032;
BgL__andtest_1208z00_7032 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2129); 
if(BgL__andtest_1208z00_7032)
{ /* ./Read/reader.scm 336 */
BgL_res7992z00_7035 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2129); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7992z00_7035 = ((bool_t)0); } } 
BgL_test4048z00_2136 = BgL_res7992z00_7035; } 
if(BgL_test4048z00_2136)
{ 

goto BgL_zc3anonymousza34046ze3z83_2132;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10664 = BgL_newzd2matchzd2_2133
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4051z00_2137;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10718;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10719;
BgL_auxz00_10719 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10718 = 
(BgL_auxz00_10719<((long)33)); } 
if(BgL_testz00_10718)
{ /* ./Read/reader.scm 336 */
BgL_test4051z00_2137 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10722;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10723;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10724;
BgL_auxz00_10724 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10723 = 
(BgL_auxz00_10724==((long)35)); } 
if(BgL_testz00_10723)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10722 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10727;
BgL_auxz00_10727 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10722 = 
(BgL_auxz00_10727==((long)34)); } } 
if(BgL_testz00_10722)
{ /* ./Read/reader.scm 336 */
BgL_test4051z00_2137 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10730;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10731;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10732;
BgL_auxz00_10732 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10731 = 
(BgL_auxz00_10732==((long)41)); } 
if(BgL_testz00_10731)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10730 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10735;
BgL_auxz00_10735 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10730 = 
(BgL_auxz00_10735==((long)40)); } } 
if(BgL_testz00_10730)
{ /* ./Read/reader.scm 336 */
BgL_test4051z00_2137 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10738;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10739;
BgL_auxz00_10739 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10738 = 
(BgL_auxz00_10739==((long)59)); } 
if(BgL_testz00_10738)
{ /* ./Read/reader.scm 336 */
BgL_test4051z00_2137 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10742;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10743;
BgL_auxz00_10743 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10742 = 
(BgL_auxz00_10743==((long)91)); } 
if(BgL_testz00_10742)
{ /* ./Read/reader.scm 336 */
BgL_test4051z00_2137 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10746;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10747;
BgL_auxz00_10747 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10746 = 
(BgL_auxz00_10747==((long)93)); } 
if(BgL_testz00_10746)
{ /* ./Read/reader.scm 336 */
BgL_test4051z00_2137 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10750;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10751;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10752;
BgL_auxz00_10752 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10751 = 
(BgL_auxz00_10752==((long)125)); } 
if(BgL_testz00_10751)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10750 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10755;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10756;
BgL_auxz00_10756 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10755 = 
(BgL_auxz00_10756==((long)124)); } 
if(BgL_testz00_10755)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10750 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10759;
BgL_auxz00_10759 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_testz00_10750 = 
(BgL_auxz00_10759==((long)123)); } } } 
if(BgL_testz00_10750)
{ /* ./Read/reader.scm 336 */
BgL_test4051z00_2137 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10762;
BgL_auxz00_10762 = 
(long)(BgL_currentzd2charzd2_2134); 
BgL_test4051z00_2137 = 
(BgL_auxz00_10762==((long)127)); } } } } } } } } 
if(BgL_test4051z00_2137)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10664 = BgL_newzd2matchzd2_2133; }  else 
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_10766;
BgL_lastzd2matchzd2_10766 = BgL_newzd2matchzd2_2133; 
BgL_lastzd2matchzd2_2130 = BgL_lastzd2matchzd2_10766; 
goto BgL_zc3anonymousza34046ze3z83_2132;} } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3950z00_2081;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10767;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10768;
BgL_auxz00_10768 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10767 = 
(BgL_auxz00_10768<((long)33)); } 
if(BgL_testz00_10767)
{ /* ./Read/reader.scm 336 */
BgL_test3950z00_2081 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10771;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10772;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10773;
BgL_auxz00_10773 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10772 = 
(BgL_auxz00_10773==((long)35)); } 
if(BgL_testz00_10772)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10771 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10776;
BgL_auxz00_10776 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10771 = 
(BgL_auxz00_10776==((long)34)); } } 
if(BgL_testz00_10771)
{ /* ./Read/reader.scm 336 */
BgL_test3950z00_2081 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10779;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10780;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10781;
BgL_auxz00_10781 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10780 = 
(BgL_auxz00_10781==((long)41)); } 
if(BgL_testz00_10780)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10779 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10784;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10785;
BgL_auxz00_10785 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10784 = 
(BgL_auxz00_10785==((long)40)); } 
if(BgL_testz00_10784)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10779 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10788;
BgL_auxz00_10788 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10779 = 
(BgL_auxz00_10788==((long)39)); } } } 
if(BgL_testz00_10779)
{ /* ./Read/reader.scm 336 */
BgL_test3950z00_2081 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10791;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10792;
BgL_auxz00_10792 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10791 = 
(BgL_auxz00_10792==((long)44)); } 
if(BgL_testz00_10791)
{ /* ./Read/reader.scm 336 */
BgL_test3950z00_2081 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10795;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10796;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10797;
BgL_auxz00_10797 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10796 = 
(BgL_auxz00_10797>=((long)48)); } 
if(BgL_testz00_10796)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10800;
BgL_auxz00_10800 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10795 = 
(BgL_auxz00_10800<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_10795 = ((bool_t)0)
; } } 
if(BgL_testz00_10795)
{ /* ./Read/reader.scm 336 */
BgL_test3950z00_2081 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10803;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10804;
BgL_auxz00_10804 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10803 = 
(BgL_auxz00_10804==((long)91)); } 
if(BgL_testz00_10803)
{ /* ./Read/reader.scm 336 */
BgL_test3950z00_2081 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10807;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10808;
BgL_auxz00_10808 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10807 = 
(BgL_auxz00_10808==((long)93)); } 
if(BgL_testz00_10807)
{ /* ./Read/reader.scm 336 */
BgL_test3950z00_2081 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10811;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10812;
BgL_auxz00_10812 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10811 = 
(BgL_auxz00_10812==((long)96)); } 
if(BgL_testz00_10811)
{ /* ./Read/reader.scm 336 */
BgL_test3950z00_2081 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10815;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10816;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10817;
BgL_auxz00_10817 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10816 = 
(BgL_auxz00_10817==((long)125)); } 
if(BgL_testz00_10816)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10815 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10820;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10821;
BgL_auxz00_10821 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10820 = 
(BgL_auxz00_10821==((long)124)); } 
if(BgL_testz00_10820)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10815 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10824;
BgL_auxz00_10824 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_testz00_10815 = 
(BgL_auxz00_10824==((long)123)); } } } 
if(BgL_testz00_10815)
{ /* ./Read/reader.scm 336 */
BgL_test3950z00_2081 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10827;
BgL_auxz00_10827 = 
(long)(BgL_currentzd2charzd2_2076); 
BgL_test3950z00_2081 = 
(BgL_auxz00_10827==((long)127)); } } } } } } } } } } 
if(BgL_test3950z00_2081)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10664 = BgL_newzd2matchzd2_2075; }  else 
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2049 = BgL_inputzd2portzd2_2071; 
BgL_lastzd2matchzd2_2050 = BgL_newzd2matchzd2_2075; 
BgL_thezd2rgczd2contextz00_2051 = BgL_thezd2rgczd2contextz00_2073; 
BgL_zc3anonymousza33903ze3z83_2052:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2053;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2049); 
BgL_newzd2matchzd2_2053 = ((long)26); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2054;
BgL_currentzd2charzd2_2054 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2049); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10833;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10834;
BgL_auxz00_10834 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10833 = 
(BgL_auxz00_10834==((long)0)); } 
if(BgL_testz00_10833)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3905z00_2056;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7989z00_6898;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6895;
BgL__andtest_1208z00_6895 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2049); 
if(BgL__andtest_1208z00_6895)
{ /* ./Read/reader.scm 336 */
BgL_res7989z00_6898 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2049); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7989z00_6898 = ((bool_t)0); } } 
BgL_test3905z00_2056 = BgL_res7989z00_6898; } 
if(BgL_test3905z00_2056)
{ 

goto BgL_zc3anonymousza33903ze3z83_2052;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10664 = BgL_newzd2matchzd2_2053
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3908z00_2057;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10841;
BgL_auxz00_10841 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_test3908z00_2057 = 
(BgL_auxz00_10841==((long)58)); } 
if(BgL_test3908z00_2057)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_10847;long BgL_lastzd2matchzd2_10846;obj_t BgL_inputzd2portzd2_10845;
BgL_inputzd2portzd2_10845 = BgL_inputzd2portzd2_2049; 
BgL_lastzd2matchzd2_10846 = BgL_newzd2matchzd2_2053; 
BgL_thezd2rgczd2contextz00_10847 = BgL_thezd2rgczd2contextz00_2051; 
BgL_thezd2rgczd2contextz00_2131 = BgL_thezd2rgczd2contextz00_10847; 
BgL_lastzd2matchzd2_2130 = BgL_lastzd2matchzd2_10846; 
BgL_inputzd2portzd2_2129 = BgL_inputzd2portzd2_10845; 
goto BgL_zc3anonymousza34046ze3z83_2132;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3910z00_2058;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10848;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10849;
BgL_auxz00_10849 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10848 = 
(BgL_auxz00_10849<((long)33)); } 
if(BgL_testz00_10848)
{ /* ./Read/reader.scm 336 */
BgL_test3910z00_2058 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10852;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10853;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10854;
BgL_auxz00_10854 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10853 = 
(BgL_auxz00_10854==((long)35)); } 
if(BgL_testz00_10853)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10852 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10857;
BgL_auxz00_10857 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10852 = 
(BgL_auxz00_10857==((long)34)); } } 
if(BgL_testz00_10852)
{ /* ./Read/reader.scm 336 */
BgL_test3910z00_2058 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10860;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10861;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10862;
BgL_auxz00_10862 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10861 = 
(BgL_auxz00_10862==((long)41)); } 
if(BgL_testz00_10861)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10860 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10865;
BgL_auxz00_10865 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10860 = 
(BgL_auxz00_10865==((long)40)); } } 
if(BgL_testz00_10860)
{ /* ./Read/reader.scm 336 */
BgL_test3910z00_2058 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10868;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10869;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10870;
BgL_auxz00_10870 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10869 = 
(BgL_auxz00_10870==((long)59)); } 
if(BgL_testz00_10869)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10868 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_10868 = BgL_test3908z00_2057
; } } 
if(BgL_testz00_10868)
{ /* ./Read/reader.scm 336 */
BgL_test3910z00_2058 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10873;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10874;
BgL_auxz00_10874 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10873 = 
(BgL_auxz00_10874==((long)91)); } 
if(BgL_testz00_10873)
{ /* ./Read/reader.scm 336 */
BgL_test3910z00_2058 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10877;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10878;
BgL_auxz00_10878 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10877 = 
(BgL_auxz00_10878==((long)93)); } 
if(BgL_testz00_10877)
{ /* ./Read/reader.scm 336 */
BgL_test3910z00_2058 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10881;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10882;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10883;
BgL_auxz00_10883 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10882 = 
(BgL_auxz00_10883==((long)125)); } 
if(BgL_testz00_10882)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10881 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10886;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10887;
BgL_auxz00_10887 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10886 = 
(BgL_auxz00_10887==((long)124)); } 
if(BgL_testz00_10886)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10881 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10890;
BgL_auxz00_10890 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_testz00_10881 = 
(BgL_auxz00_10890==((long)123)); } } } 
if(BgL_testz00_10881)
{ /* ./Read/reader.scm 336 */
BgL_test3910z00_2058 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10893;
BgL_auxz00_10893 = 
(long)(BgL_currentzd2charzd2_2054); 
BgL_test3910z00_2058 = 
(BgL_auxz00_10893==((long)127)); } } } } } } } } 
if(BgL_test3910z00_2058)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10664 = BgL_newzd2matchzd2_2053; }  else 
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_10897;
BgL_lastzd2matchzd2_10897 = BgL_newzd2matchzd2_2053; 
BgL_lastzd2matchzd2_2050 = BgL_lastzd2matchzd2_10897; 
goto BgL_zc3anonymousza33903ze3z83_2052;} } } } } } } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3857z00_2028;
switch( 
(long)(BgL_currentzd2charzd2_2024)) { case ((long)39) : 

BgL_test3857z00_2028 = ((bool_t)1); break;case ((long)44) : 

BgL_test3857z00_2028 = ((bool_t)1); break;case ((long)58) : 

BgL_test3857z00_2028 = ((bool_t)1); break;
default: 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10898;
BgL_auxz00_10898 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_test3857z00_2028 = 
(BgL_auxz00_10898==((long)96)); } } 
if(BgL_test3857z00_2028)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_10906;long BgL_lastzd2matchzd2_10905;obj_t BgL_inputzd2portzd2_10904;
BgL_inputzd2portzd2_10904 = BgL_inputzd2portzd2_2019; 
BgL_lastzd2matchzd2_10905 = BgL_newzd2matchzd2_2023; 
BgL_thezd2rgczd2contextz00_10906 = BgL_thezd2rgczd2contextz00_2021; 
BgL_thezd2rgczd2contextz00_2131 = BgL_thezd2rgczd2contextz00_10906; 
BgL_lastzd2matchzd2_2130 = BgL_lastzd2matchzd2_10905; 
BgL_inputzd2portzd2_2129 = BgL_inputzd2portzd2_10904; 
goto BgL_zc3anonymousza34046ze3z83_2132;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3859z00_2029;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10907;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10908;
BgL_auxz00_10908 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10907 = 
(BgL_auxz00_10908<((long)33)); } 
if(BgL_testz00_10907)
{ /* ./Read/reader.scm 336 */
BgL_test3859z00_2029 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10911;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10912;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10913;
BgL_auxz00_10913 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10912 = 
(BgL_auxz00_10913==((long)35)); } 
if(BgL_testz00_10912)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10911 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10916;
BgL_auxz00_10916 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10911 = 
(BgL_auxz00_10916==((long)34)); } } 
if(BgL_testz00_10911)
{ /* ./Read/reader.scm 336 */
BgL_test3859z00_2029 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10919;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10920;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10921;
BgL_auxz00_10921 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10920 = 
(BgL_auxz00_10921==((long)41)); } 
if(BgL_testz00_10920)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10919 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10924;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10925;
BgL_auxz00_10925 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10924 = 
(BgL_auxz00_10925==((long)40)); } 
if(BgL_testz00_10924)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10919 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10928;
BgL_auxz00_10928 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10919 = 
(BgL_auxz00_10928==((long)39)); } } } 
if(BgL_testz00_10919)
{ /* ./Read/reader.scm 336 */
BgL_test3859z00_2029 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10931;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10932;
BgL_auxz00_10932 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10931 = 
(BgL_auxz00_10932==((long)44)); } 
if(BgL_testz00_10931)
{ /* ./Read/reader.scm 336 */
BgL_test3859z00_2029 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10935;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10936;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10937;
BgL_auxz00_10937 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10936 = 
(BgL_auxz00_10937>=((long)48)); } 
if(BgL_testz00_10936)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10940;
BgL_auxz00_10940 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10935 = 
(BgL_auxz00_10940<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_10935 = ((bool_t)0)
; } } 
if(BgL_testz00_10935)
{ /* ./Read/reader.scm 336 */
BgL_test3859z00_2029 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10943;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10944;
BgL_auxz00_10944 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10943 = 
(BgL_auxz00_10944==((long)91)); } 
if(BgL_testz00_10943)
{ /* ./Read/reader.scm 336 */
BgL_test3859z00_2029 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10947;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10948;
BgL_auxz00_10948 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10947 = 
(BgL_auxz00_10948==((long)93)); } 
if(BgL_testz00_10947)
{ /* ./Read/reader.scm 336 */
BgL_test3859z00_2029 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10951;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10952;
BgL_auxz00_10952 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10951 = 
(BgL_auxz00_10952==((long)96)); } 
if(BgL_testz00_10951)
{ /* ./Read/reader.scm 336 */
BgL_test3859z00_2029 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10955;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10956;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10957;
BgL_auxz00_10957 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10956 = 
(BgL_auxz00_10957==((long)125)); } 
if(BgL_testz00_10956)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10955 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10960;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10961;
BgL_auxz00_10961 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10960 = 
(BgL_auxz00_10961==((long)124)); } 
if(BgL_testz00_10960)
{ /* ./Read/reader.scm 336 */
BgL_testz00_10955 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10964;
BgL_auxz00_10964 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_testz00_10955 = 
(BgL_auxz00_10964==((long)123)); } } } 
if(BgL_testz00_10955)
{ /* ./Read/reader.scm 336 */
BgL_test3859z00_2029 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10967;
BgL_auxz00_10967 = 
(long)(BgL_currentzd2charzd2_2024); 
BgL_test3859z00_2029 = 
(BgL_auxz00_10967==((long)127)); } } } } } } } } } } 
if(BgL_test3859z00_2029)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10664 = BgL_newzd2matchzd2_2023; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_10973;long BgL_lastzd2matchzd2_10972;obj_t BgL_inputzd2portzd2_10971;
BgL_inputzd2portzd2_10971 = BgL_inputzd2portzd2_2019; 
BgL_lastzd2matchzd2_10972 = BgL_newzd2matchzd2_2023; 
BgL_thezd2rgczd2contextz00_10973 = BgL_thezd2rgczd2contextz00_2021; 
BgL_thezd2rgczd2contextz00_2051 = BgL_thezd2rgczd2contextz00_10973; 
BgL_lastzd2matchzd2_2050 = BgL_lastzd2matchzd2_10972; 
BgL_inputzd2portzd2_2049 = BgL_inputzd2portzd2_10971; 
goto BgL_zc3anonymousza33903ze3z83_2052;} } } } } } } } 
return 
BINT(BgL_auxz00_10664);} break;case ((long)57) : 
case ((long)56) : 
case ((long)55) : 
case ((long)54) : 
case ((long)53) : 
case ((long)52) : 
case ((long)51) : 
case ((long)50) : 
case ((long)49) : 
case ((long)48) : 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10975;
BgL_inputzd2portzd2_2177 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_2178 = BgL_lastzd2matchzd2_1672; 
BgL_thezd2rgczd2contextz00_2179 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza34131ze3z83_2180:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2181;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2177); 
BgL_newzd2matchzd2_2181 = ((long)13); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2182;
BgL_currentzd2charzd2_2182 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2177); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10978;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10979;
BgL_auxz00_10979 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_10978 = 
(BgL_auxz00_10979==((long)0)); } 
if(BgL_testz00_10978)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4133z00_2184;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7994z00_7117;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7114;
BgL__andtest_1208z00_7114 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2177); 
if(BgL__andtest_1208z00_7114)
{ /* ./Read/reader.scm 336 */
BgL_res7994z00_7117 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2177); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7994z00_7117 = ((bool_t)0); } } 
BgL_test4133z00_2184 = BgL_res7994z00_7117; } 
if(BgL_test4133z00_2184)
{ 

goto BgL_zc3anonymousza34131ze3z83_2180;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2181
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4136z00_2185;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10986;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10987;
BgL_auxz00_10987 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_10986 = 
(BgL_auxz00_10987==((long)69)); } 
if(BgL_testz00_10986)
{ /* ./Read/reader.scm 336 */
BgL_test4136z00_2185 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10990;
BgL_auxz00_10990 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_test4136z00_2185 = 
(BgL_auxz00_10990==((long)101)); } } 
if(BgL_test4136z00_2185)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2248 = BgL_inputzd2portzd2_2177; 
BgL_lastzd2matchzd2_2249 = BgL_newzd2matchzd2_2181; 
BgL_thezd2rgczd2contextz00_2250 = BgL_thezd2rgczd2contextz00_2179; 
BgL_zc3anonymousza34259ze3z83_2251:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2252;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2248); 
BgL_newzd2matchzd2_2252 = ((long)27); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2253;
BgL_currentzd2charzd2_2253 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2248); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_10996;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_10997;
BgL_auxz00_10997 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_10996 = 
(BgL_auxz00_10997==((long)0)); } 
if(BgL_testz00_10996)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4261z00_2255;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7996z00_7237;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7234;
BgL__andtest_1208z00_7234 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2248); 
if(BgL__andtest_1208z00_7234)
{ /* ./Read/reader.scm 336 */
BgL_res7996z00_7237 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2248); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7996z00_7237 = ((bool_t)0); } } 
BgL_test4261z00_2255 = BgL_res7996z00_7237; } 
if(BgL_test4261z00_2255)
{ 

goto BgL_zc3anonymousza34259ze3z83_2251;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2252
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11004;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11005;
BgL_auxz00_11005 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11004 = 
(BgL_auxz00_11005==((long)58)); } 
if(BgL_testz00_11004)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_2248; 
BgL_lastzd2matchzd2_1944 = BgL_newzd2matchzd2_2252; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_2250; 
BgL_zc3anonymousza33739ze3z83_1946:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1947;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1943); 
BgL_newzd2matchzd2_1947 = ((long)26); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1948;
BgL_currentzd2charzd2_1948 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1943); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11010;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11011;
BgL_auxz00_11011 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11010 = 
(BgL_auxz00_11011==((long)0)); } 
if(BgL_testz00_11010)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3741z00_1950;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7980z00_6654;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6651;
BgL__andtest_1208z00_6651 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1943); 
if(BgL__andtest_1208z00_6651)
{ /* ./Read/reader.scm 336 */
BgL_res7980z00_6654 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1943); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7980z00_6654 = ((bool_t)0); } } 
BgL_test3741z00_1950 = BgL_res7980z00_6654; } 
if(BgL_test3741z00_1950)
{ 

goto BgL_zc3anonymousza33739ze3z83_1946;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_1947
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3744z00_1951;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11018;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11019;
BgL_auxz00_11019 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11018 = 
(BgL_auxz00_11019<((long)33)); } 
if(BgL_testz00_11018)
{ /* ./Read/reader.scm 336 */
BgL_test3744z00_1951 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11022;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11023;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11024;
BgL_auxz00_11024 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11023 = 
(BgL_auxz00_11024==((long)35)); } 
if(BgL_testz00_11023)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11022 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11027;
BgL_auxz00_11027 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11022 = 
(BgL_auxz00_11027==((long)34)); } } 
if(BgL_testz00_11022)
{ /* ./Read/reader.scm 336 */
BgL_test3744z00_1951 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11030;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11031;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11032;
BgL_auxz00_11032 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11031 = 
(BgL_auxz00_11032==((long)41)); } 
if(BgL_testz00_11031)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11030 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11035;
BgL_auxz00_11035 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11030 = 
(BgL_auxz00_11035==((long)40)); } } 
if(BgL_testz00_11030)
{ /* ./Read/reader.scm 336 */
BgL_test3744z00_1951 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11038;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11039;
BgL_auxz00_11039 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11038 = 
(BgL_auxz00_11039==((long)59)); } 
if(BgL_testz00_11038)
{ /* ./Read/reader.scm 336 */
BgL_test3744z00_1951 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11042;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11043;
BgL_auxz00_11043 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11042 = 
(BgL_auxz00_11043==((long)91)); } 
if(BgL_testz00_11042)
{ /* ./Read/reader.scm 336 */
BgL_test3744z00_1951 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11046;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11047;
BgL_auxz00_11047 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11046 = 
(BgL_auxz00_11047==((long)93)); } 
if(BgL_testz00_11046)
{ /* ./Read/reader.scm 336 */
BgL_test3744z00_1951 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11050;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11051;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11052;
BgL_auxz00_11052 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11051 = 
(BgL_auxz00_11052==((long)125)); } 
if(BgL_testz00_11051)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11050 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11055;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11056;
BgL_auxz00_11056 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11055 = 
(BgL_auxz00_11056==((long)124)); } 
if(BgL_testz00_11055)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11050 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11059;
BgL_auxz00_11059 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_testz00_11050 = 
(BgL_auxz00_11059==((long)123)); } } } 
if(BgL_testz00_11050)
{ /* ./Read/reader.scm 336 */
BgL_test3744z00_1951 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11062;
BgL_auxz00_11062 = 
(long)(BgL_currentzd2charzd2_1948); 
BgL_test3744z00_1951 = 
(BgL_auxz00_11062==((long)127)); } } } } } } } } 
if(BgL_test3744z00_1951)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_1947; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11068;long BgL_lastzd2matchzd2_11067;obj_t BgL_inputzd2portzd2_11066;
BgL_inputzd2portzd2_11066 = BgL_inputzd2portzd2_1943; 
BgL_lastzd2matchzd2_11067 = BgL_newzd2matchzd2_1947; 
BgL_thezd2rgczd2contextz00_11068 = BgL_thezd2rgczd2contextz00_1945; 
BgL_thezd2rgczd2contextz00_2131 = BgL_thezd2rgczd2contextz00_11068; 
BgL_lastzd2matchzd2_2130 = BgL_lastzd2matchzd2_11067; 
BgL_inputzd2portzd2_2129 = BgL_inputzd2portzd2_11066; 
goto BgL_zc3anonymousza34046ze3z83_2132;} } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4266z00_2257;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11069;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11070;
BgL_auxz00_11070 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11069 = 
(BgL_auxz00_11070>=((long)48)); } 
if(BgL_testz00_11069)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11073;
BgL_auxz00_11073 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_test4266z00_2257 = 
(BgL_auxz00_11073<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4266z00_2257 = ((bool_t)0); } } 
if(BgL_test4266z00_2257)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2444 = BgL_inputzd2portzd2_2248; 
BgL_lastzd2matchzd2_2445 = BgL_newzd2matchzd2_2252; 
BgL_thezd2rgczd2contextz00_2446 = BgL_thezd2rgczd2contextz00_2250; 
BgL_zc3anonymousza34594ze3z83_2447:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2448;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2444); 
BgL_newzd2matchzd2_2448 = ((long)20); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2449;
BgL_currentzd2charzd2_2449 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2444); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11079;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11080;
BgL_auxz00_11080 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11079 = 
(BgL_auxz00_11080==((long)0)); } 
if(BgL_testz00_11079)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4596z00_2451;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8004z00_7557;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7554;
BgL__andtest_1208z00_7554 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2444); 
if(BgL__andtest_1208z00_7554)
{ /* ./Read/reader.scm 336 */
BgL_res8004z00_7557 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2444); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8004z00_7557 = ((bool_t)0); } } 
BgL_test4596z00_2451 = BgL_res8004z00_7557; } 
if(BgL_test4596z00_2451)
{ 

goto BgL_zc3anonymousza34594ze3z83_2447;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2448
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11087;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11088;
BgL_auxz00_11088 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11087 = 
(BgL_auxz00_11088==((long)58)); } 
if(BgL_testz00_11087)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11093;long BgL_lastzd2matchzd2_11092;obj_t BgL_inputzd2portzd2_11091;
BgL_inputzd2portzd2_11091 = BgL_inputzd2portzd2_2444; 
BgL_lastzd2matchzd2_11092 = BgL_newzd2matchzd2_2448; 
BgL_thezd2rgczd2contextz00_11093 = BgL_thezd2rgczd2contextz00_2446; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_11093; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_11092; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_11091; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4601z00_2453;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11094;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11095;
BgL_auxz00_11095 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11094 = 
(BgL_auxz00_11095>=((long)48)); } 
if(BgL_testz00_11094)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11098;
BgL_auxz00_11098 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_test4601z00_2453 = 
(BgL_auxz00_11098<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4601z00_2453 = ((bool_t)0); } } 
if(BgL_test4601z00_2453)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_11102;
BgL_lastzd2matchzd2_11102 = BgL_newzd2matchzd2_2448; 
BgL_lastzd2matchzd2_2445 = BgL_lastzd2matchzd2_11102; 
goto BgL_zc3anonymousza34594ze3z83_2447;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4603z00_2454;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11103;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11104;
BgL_auxz00_11104 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11103 = 
(BgL_auxz00_11104<((long)33)); } 
if(BgL_testz00_11103)
{ /* ./Read/reader.scm 336 */
BgL_test4603z00_2454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11107;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11108;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11109;
BgL_auxz00_11109 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11108 = 
(BgL_auxz00_11109==((long)35)); } 
if(BgL_testz00_11108)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11107 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11112;
BgL_auxz00_11112 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11107 = 
(BgL_auxz00_11112==((long)34)); } } 
if(BgL_testz00_11107)
{ /* ./Read/reader.scm 336 */
BgL_test4603z00_2454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11115;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11116;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11117;
BgL_auxz00_11117 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11116 = 
(BgL_auxz00_11117==((long)41)); } 
if(BgL_testz00_11116)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11115 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11120;
BgL_auxz00_11120 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11115 = 
(BgL_auxz00_11120==((long)40)); } } 
if(BgL_testz00_11115)
{ /* ./Read/reader.scm 336 */
BgL_test4603z00_2454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11123;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11124;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11125;
BgL_auxz00_11125 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11124 = 
(BgL_auxz00_11125>=((long)48)); } 
if(BgL_testz00_11124)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11128;
BgL_auxz00_11128 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11123 = 
(BgL_auxz00_11128<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_11123 = ((bool_t)0)
; } } 
if(BgL_testz00_11123)
{ /* ./Read/reader.scm 336 */
BgL_test4603z00_2454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11131;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11132;
BgL_auxz00_11132 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11131 = 
(BgL_auxz00_11132==((long)91)); } 
if(BgL_testz00_11131)
{ /* ./Read/reader.scm 336 */
BgL_test4603z00_2454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11135;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11136;
BgL_auxz00_11136 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11135 = 
(BgL_auxz00_11136==((long)93)); } 
if(BgL_testz00_11135)
{ /* ./Read/reader.scm 336 */
BgL_test4603z00_2454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11139;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11140;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11141;
BgL_auxz00_11141 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11140 = 
(BgL_auxz00_11141==((long)125)); } 
if(BgL_testz00_11140)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11139 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11144;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11145;
BgL_auxz00_11145 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11144 = 
(BgL_auxz00_11145==((long)124)); } 
if(BgL_testz00_11144)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11139 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11148;
BgL_auxz00_11148 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_testz00_11139 = 
(BgL_auxz00_11148==((long)123)); } } } 
if(BgL_testz00_11139)
{ /* ./Read/reader.scm 336 */
BgL_test4603z00_2454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11151;
BgL_auxz00_11151 = 
(long)(BgL_currentzd2charzd2_2449); 
BgL_test4603z00_2454 = 
(BgL_auxz00_11151==((long)127)); } } } } } } } } 
if(BgL_test4603z00_2454)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2448; }  else 
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_2444; 
BgL_lastzd2matchzd2_2423 = BgL_newzd2matchzd2_2448; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_2446; 
BgL_zc3anonymousza34556ze3z83_2425:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2426;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2422); 
BgL_newzd2matchzd2_2426 = ((long)27); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2427;
BgL_currentzd2charzd2_2427 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2422); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11157;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11158;
BgL_auxz00_11158 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11157 = 
(BgL_auxz00_11158==((long)0)); } 
if(BgL_testz00_11157)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4558z00_2429;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8003z00_7520;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7517;
BgL__andtest_1208z00_7517 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2422); 
if(BgL__andtest_1208z00_7517)
{ /* ./Read/reader.scm 336 */
BgL_res8003z00_7520 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2422); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8003z00_7520 = ((bool_t)0); } } 
BgL_test4558z00_2429 = BgL_res8003z00_7520; } 
if(BgL_test4558z00_2429)
{ 

goto BgL_zc3anonymousza34556ze3z83_2425;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2426
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4561z00_2430;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11165;
BgL_auxz00_11165 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_test4561z00_2430 = 
(BgL_auxz00_11165==((long)58)); } 
if(BgL_test4561z00_2430)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11171;long BgL_lastzd2matchzd2_11170;obj_t BgL_inputzd2portzd2_11169;
BgL_inputzd2portzd2_11169 = BgL_inputzd2portzd2_2422; 
BgL_lastzd2matchzd2_11170 = BgL_newzd2matchzd2_2426; 
BgL_thezd2rgczd2contextz00_11171 = BgL_thezd2rgczd2contextz00_2424; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_11171; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_11170; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_11169; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4563z00_2431;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11172;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11173;
BgL_auxz00_11173 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11172 = 
(BgL_auxz00_11173<((long)33)); } 
if(BgL_testz00_11172)
{ /* ./Read/reader.scm 336 */
BgL_test4563z00_2431 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11176;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11177;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11178;
BgL_auxz00_11178 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11177 = 
(BgL_auxz00_11178==((long)35)); } 
if(BgL_testz00_11177)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11176 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11181;
BgL_auxz00_11181 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11176 = 
(BgL_auxz00_11181==((long)34)); } } 
if(BgL_testz00_11176)
{ /* ./Read/reader.scm 336 */
BgL_test4563z00_2431 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11184;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11185;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11186;
BgL_auxz00_11186 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11185 = 
(BgL_auxz00_11186==((long)41)); } 
if(BgL_testz00_11185)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11184 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11189;
BgL_auxz00_11189 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11184 = 
(BgL_auxz00_11189==((long)40)); } } 
if(BgL_testz00_11184)
{ /* ./Read/reader.scm 336 */
BgL_test4563z00_2431 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11192;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11193;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11194;
BgL_auxz00_11194 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11193 = 
(BgL_auxz00_11194==((long)59)); } 
if(BgL_testz00_11193)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11192 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_11192 = BgL_test4561z00_2430
; } } 
if(BgL_testz00_11192)
{ /* ./Read/reader.scm 336 */
BgL_test4563z00_2431 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11197;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11198;
BgL_auxz00_11198 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11197 = 
(BgL_auxz00_11198==((long)91)); } 
if(BgL_testz00_11197)
{ /* ./Read/reader.scm 336 */
BgL_test4563z00_2431 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11201;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11202;
BgL_auxz00_11202 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11201 = 
(BgL_auxz00_11202==((long)93)); } 
if(BgL_testz00_11201)
{ /* ./Read/reader.scm 336 */
BgL_test4563z00_2431 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11205;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11206;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11207;
BgL_auxz00_11207 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11206 = 
(BgL_auxz00_11207==((long)125)); } 
if(BgL_testz00_11206)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11205 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11210;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11211;
BgL_auxz00_11211 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11210 = 
(BgL_auxz00_11211==((long)124)); } 
if(BgL_testz00_11210)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11205 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11214;
BgL_auxz00_11214 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_testz00_11205 = 
(BgL_auxz00_11214==((long)123)); } } } 
if(BgL_testz00_11205)
{ /* ./Read/reader.scm 336 */
BgL_test4563z00_2431 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11217;
BgL_auxz00_11217 = 
(long)(BgL_currentzd2charzd2_2427); 
BgL_test4563z00_2431 = 
(BgL_auxz00_11217==((long)127)); } } } } } } } } 
if(BgL_test4563z00_2431)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2426; }  else 
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_11221;
BgL_lastzd2matchzd2_11221 = BgL_newzd2matchzd2_2426; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_11221; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4268z00_2258;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11222;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11223;
BgL_auxz00_11223 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11222 = 
(BgL_auxz00_11223==((long)43)); } 
if(BgL_testz00_11222)
{ /* ./Read/reader.scm 336 */
BgL_test4268z00_2258 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11226;
BgL_auxz00_11226 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_test4268z00_2258 = 
(BgL_auxz00_11226==((long)45)); } } 
if(BgL_test4268z00_2258)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2276 = BgL_inputzd2portzd2_2248; 
BgL_lastzd2matchzd2_2277 = BgL_newzd2matchzd2_2252; 
BgL_thezd2rgczd2contextz00_2278 = BgL_thezd2rgczd2contextz00_2250; 
BgL_zc3anonymousza34311ze3z83_2279:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2280;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2276); 
BgL_newzd2matchzd2_2280 = ((long)27); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2281;
BgL_currentzd2charzd2_2281 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2276); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11232;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11233;
BgL_auxz00_11233 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11232 = 
(BgL_auxz00_11233==((long)0)); } 
if(BgL_testz00_11232)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4313z00_2283;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7997z00_7286;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7283;
BgL__andtest_1208z00_7283 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2276); 
if(BgL__andtest_1208z00_7283)
{ /* ./Read/reader.scm 336 */
BgL_res7997z00_7286 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2276); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7997z00_7286 = ((bool_t)0); } } 
BgL_test4313z00_2283 = BgL_res7997z00_7286; } 
if(BgL_test4313z00_2283)
{ 

goto BgL_zc3anonymousza34311ze3z83_2279;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2280
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11240;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11241;
BgL_auxz00_11241 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11240 = 
(BgL_auxz00_11241==((long)58)); } 
if(BgL_testz00_11240)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11246;long BgL_lastzd2matchzd2_11245;obj_t BgL_inputzd2portzd2_11244;
BgL_inputzd2portzd2_11244 = BgL_inputzd2portzd2_2276; 
BgL_lastzd2matchzd2_11245 = BgL_newzd2matchzd2_2280; 
BgL_thezd2rgczd2contextz00_11246 = BgL_thezd2rgczd2contextz00_2278; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_11246; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_11245; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_11244; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4318z00_2285;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11247;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11248;
BgL_auxz00_11248 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11247 = 
(BgL_auxz00_11248>=((long)48)); } 
if(BgL_testz00_11247)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11251;
BgL_auxz00_11251 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_test4318z00_2285 = 
(BgL_auxz00_11251<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4318z00_2285 = ((bool_t)0); } } 
if(BgL_test4318z00_2285)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11257;long BgL_lastzd2matchzd2_11256;obj_t BgL_inputzd2portzd2_11255;
BgL_inputzd2portzd2_11255 = BgL_inputzd2portzd2_2276; 
BgL_lastzd2matchzd2_11256 = BgL_newzd2matchzd2_2280; 
BgL_thezd2rgczd2contextz00_11257 = BgL_thezd2rgczd2contextz00_2278; 
BgL_thezd2rgczd2contextz00_2446 = BgL_thezd2rgczd2contextz00_11257; 
BgL_lastzd2matchzd2_2445 = BgL_lastzd2matchzd2_11256; 
BgL_inputzd2portzd2_2444 = BgL_inputzd2portzd2_11255; 
goto BgL_zc3anonymousza34594ze3z83_2447;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4320z00_2286;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11258;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11259;
BgL_auxz00_11259 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11258 = 
(BgL_auxz00_11259<((long)33)); } 
if(BgL_testz00_11258)
{ /* ./Read/reader.scm 336 */
BgL_test4320z00_2286 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11262;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11263;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11264;
BgL_auxz00_11264 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11263 = 
(BgL_auxz00_11264==((long)35)); } 
if(BgL_testz00_11263)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11262 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11267;
BgL_auxz00_11267 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11262 = 
(BgL_auxz00_11267==((long)34)); } } 
if(BgL_testz00_11262)
{ /* ./Read/reader.scm 336 */
BgL_test4320z00_2286 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11270;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11271;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11272;
BgL_auxz00_11272 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11271 = 
(BgL_auxz00_11272==((long)41)); } 
if(BgL_testz00_11271)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11270 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11275;
BgL_auxz00_11275 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11270 = 
(BgL_auxz00_11275==((long)40)); } } 
if(BgL_testz00_11270)
{ /* ./Read/reader.scm 336 */
BgL_test4320z00_2286 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11278;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11279;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11280;
BgL_auxz00_11280 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11279 = 
(BgL_auxz00_11280>=((long)48)); } 
if(BgL_testz00_11279)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11283;
BgL_auxz00_11283 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11278 = 
(BgL_auxz00_11283<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_11278 = ((bool_t)0)
; } } 
if(BgL_testz00_11278)
{ /* ./Read/reader.scm 336 */
BgL_test4320z00_2286 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11286;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11287;
BgL_auxz00_11287 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11286 = 
(BgL_auxz00_11287==((long)91)); } 
if(BgL_testz00_11286)
{ /* ./Read/reader.scm 336 */
BgL_test4320z00_2286 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11290;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11291;
BgL_auxz00_11291 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11290 = 
(BgL_auxz00_11291==((long)93)); } 
if(BgL_testz00_11290)
{ /* ./Read/reader.scm 336 */
BgL_test4320z00_2286 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11294;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11295;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11296;
BgL_auxz00_11296 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11295 = 
(BgL_auxz00_11296==((long)125)); } 
if(BgL_testz00_11295)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11294 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11299;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11300;
BgL_auxz00_11300 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11299 = 
(BgL_auxz00_11300==((long)124)); } 
if(BgL_testz00_11299)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11294 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11303;
BgL_auxz00_11303 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_testz00_11294 = 
(BgL_auxz00_11303==((long)123)); } } } 
if(BgL_testz00_11294)
{ /* ./Read/reader.scm 336 */
BgL_test4320z00_2286 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11306;
BgL_auxz00_11306 = 
(long)(BgL_currentzd2charzd2_2281); 
BgL_test4320z00_2286 = 
(BgL_auxz00_11306==((long)127)); } } } } } } } } 
if(BgL_test4320z00_2286)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2280; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11312;long BgL_lastzd2matchzd2_11311;obj_t BgL_inputzd2portzd2_11310;
BgL_inputzd2portzd2_11310 = BgL_inputzd2portzd2_2276; 
BgL_lastzd2matchzd2_11311 = BgL_newzd2matchzd2_2280; 
BgL_thezd2rgczd2contextz00_11312 = BgL_thezd2rgczd2contextz00_2278; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_11312; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_11311; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_11310; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4270z00_2259;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11313;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11314;
BgL_auxz00_11314 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11313 = 
(BgL_auxz00_11314<((long)33)); } 
if(BgL_testz00_11313)
{ /* ./Read/reader.scm 336 */
BgL_test4270z00_2259 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11317;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11318;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11319;
BgL_auxz00_11319 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11318 = 
(BgL_auxz00_11319==((long)35)); } 
if(BgL_testz00_11318)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11317 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11322;
BgL_auxz00_11322 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11317 = 
(BgL_auxz00_11322==((long)34)); } } 
if(BgL_testz00_11317)
{ /* ./Read/reader.scm 336 */
BgL_test4270z00_2259 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11325;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11326;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11327;
BgL_auxz00_11327 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11326 = 
(BgL_auxz00_11327==((long)41)); } 
if(BgL_testz00_11326)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11325 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11330;
BgL_auxz00_11330 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11325 = 
(BgL_auxz00_11330==((long)40)); } } 
if(BgL_testz00_11325)
{ /* ./Read/reader.scm 336 */
BgL_test4270z00_2259 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11333;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11334;
BgL_auxz00_11334 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11333 = 
(BgL_auxz00_11334==((long)43)); } 
if(BgL_testz00_11333)
{ /* ./Read/reader.scm 336 */
BgL_test4270z00_2259 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11337;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11338;
BgL_auxz00_11338 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11337 = 
(BgL_auxz00_11338==((long)45)); } 
if(BgL_testz00_11337)
{ /* ./Read/reader.scm 336 */
BgL_test4270z00_2259 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11341;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11342;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11343;
BgL_auxz00_11343 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11342 = 
(BgL_auxz00_11343>=((long)48)); } 
if(BgL_testz00_11342)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11346;
BgL_auxz00_11346 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11341 = 
(BgL_auxz00_11346<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_11341 = ((bool_t)0)
; } } 
if(BgL_testz00_11341)
{ /* ./Read/reader.scm 336 */
BgL_test4270z00_2259 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11349;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11350;
BgL_auxz00_11350 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11349 = 
(BgL_auxz00_11350==((long)91)); } 
if(BgL_testz00_11349)
{ /* ./Read/reader.scm 336 */
BgL_test4270z00_2259 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11353;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11354;
BgL_auxz00_11354 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11353 = 
(BgL_auxz00_11354==((long)93)); } 
if(BgL_testz00_11353)
{ /* ./Read/reader.scm 336 */
BgL_test4270z00_2259 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11357;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11358;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11359;
BgL_auxz00_11359 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11358 = 
(BgL_auxz00_11359==((long)125)); } 
if(BgL_testz00_11358)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11357 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11362;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11363;
BgL_auxz00_11363 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11362 = 
(BgL_auxz00_11363==((long)124)); } 
if(BgL_testz00_11362)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11357 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11366;
BgL_auxz00_11366 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_testz00_11357 = 
(BgL_auxz00_11366==((long)123)); } } } 
if(BgL_testz00_11357)
{ /* ./Read/reader.scm 336 */
BgL_test4270z00_2259 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11369;
BgL_auxz00_11369 = 
(long)(BgL_currentzd2charzd2_2253); 
BgL_test4270z00_2259 = 
(BgL_auxz00_11369==((long)127)); } } } } } } } } } } 
if(BgL_test4270z00_2259)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2252; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11375;long BgL_lastzd2matchzd2_11374;obj_t BgL_inputzd2portzd2_11373;
BgL_inputzd2portzd2_11373 = BgL_inputzd2portzd2_2248; 
BgL_lastzd2matchzd2_11374 = BgL_newzd2matchzd2_2252; 
BgL_thezd2rgczd2contextz00_11375 = BgL_thezd2rgczd2contextz00_2250; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_11375; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_11374; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_11373; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11376;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11377;
BgL_auxz00_11377 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11376 = 
(BgL_auxz00_11377==((long)58)); } 
if(BgL_testz00_11376)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11382;long BgL_lastzd2matchzd2_11381;obj_t BgL_inputzd2portzd2_11380;
BgL_inputzd2portzd2_11380 = BgL_inputzd2portzd2_2177; 
BgL_lastzd2matchzd2_11381 = BgL_newzd2matchzd2_2181; 
BgL_thezd2rgczd2contextz00_11382 = BgL_thezd2rgczd2contextz00_2179; 
BgL_thezd2rgczd2contextz00_2131 = BgL_thezd2rgczd2contextz00_11382; 
BgL_lastzd2matchzd2_2130 = BgL_lastzd2matchzd2_11381; 
BgL_inputzd2portzd2_2129 = BgL_inputzd2portzd2_11380; 
goto BgL_zc3anonymousza34046ze3z83_2132;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4140z00_2187;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11383;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11384;
BgL_auxz00_11384 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11383 = 
(BgL_auxz00_11384>=((long)48)); } 
if(BgL_testz00_11383)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11387;
BgL_auxz00_11387 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_test4140z00_2187 = 
(BgL_auxz00_11387<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4140z00_2187 = ((bool_t)0); } } 
if(BgL_test4140z00_2187)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2210 = BgL_inputzd2portzd2_2177; 
BgL_lastzd2matchzd2_2211 = BgL_newzd2matchzd2_2181; 
BgL_thezd2rgczd2contextz00_2212 = BgL_thezd2rgczd2contextz00_2179; 
BgL_zc3anonymousza34194ze3z83_2213:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2214;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2210); 
BgL_newzd2matchzd2_2214 = ((long)13); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2215;
BgL_currentzd2charzd2_2215 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2210); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11393;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11394;
BgL_auxz00_11394 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11393 = 
(BgL_auxz00_11394==((long)0)); } 
if(BgL_testz00_11393)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4196z00_2217;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7995z00_7176;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7173;
BgL__andtest_1208z00_7173 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2210); 
if(BgL__andtest_1208z00_7173)
{ /* ./Read/reader.scm 336 */
BgL_res7995z00_7176 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2210); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7995z00_7176 = ((bool_t)0); } } 
BgL_test4196z00_2217 = BgL_res7995z00_7176; } 
if(BgL_test4196z00_2217)
{ 

goto BgL_zc3anonymousza34194ze3z83_2213;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2214
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4199z00_2218;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11401;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11402;
BgL_auxz00_11402 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11401 = 
(BgL_auxz00_11402==((long)69)); } 
if(BgL_testz00_11401)
{ /* ./Read/reader.scm 336 */
BgL_test4199z00_2218 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11405;
BgL_auxz00_11405 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_test4199z00_2218 = 
(BgL_auxz00_11405==((long)101)); } } 
if(BgL_test4199z00_2218)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11411;long BgL_lastzd2matchzd2_11410;obj_t BgL_inputzd2portzd2_11409;
BgL_inputzd2portzd2_11409 = BgL_inputzd2portzd2_2210; 
BgL_lastzd2matchzd2_11410 = BgL_newzd2matchzd2_2214; 
BgL_thezd2rgczd2contextz00_11411 = BgL_thezd2rgczd2contextz00_2212; 
BgL_thezd2rgczd2contextz00_2250 = BgL_thezd2rgczd2contextz00_11411; 
BgL_lastzd2matchzd2_2249 = BgL_lastzd2matchzd2_11410; 
BgL_inputzd2portzd2_2248 = BgL_inputzd2portzd2_11409; 
goto BgL_zc3anonymousza34259ze3z83_2251;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11412;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11413;
BgL_auxz00_11413 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11412 = 
(BgL_auxz00_11413==((long)58)); } 
if(BgL_testz00_11412)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11418;long BgL_lastzd2matchzd2_11417;obj_t BgL_inputzd2portzd2_11416;
BgL_inputzd2portzd2_11416 = BgL_inputzd2portzd2_2210; 
BgL_lastzd2matchzd2_11417 = BgL_newzd2matchzd2_2214; 
BgL_thezd2rgczd2contextz00_11418 = BgL_thezd2rgczd2contextz00_2212; 
BgL_thezd2rgczd2contextz00_2131 = BgL_thezd2rgczd2contextz00_11418; 
BgL_lastzd2matchzd2_2130 = BgL_lastzd2matchzd2_11417; 
BgL_inputzd2portzd2_2129 = BgL_inputzd2portzd2_11416; 
goto BgL_zc3anonymousza34046ze3z83_2132;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4203z00_2220;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11419;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11420;
BgL_auxz00_11420 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11419 = 
(BgL_auxz00_11420>=((long)48)); } 
if(BgL_testz00_11419)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11423;
BgL_auxz00_11423 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_test4203z00_2220 = 
(BgL_auxz00_11423<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4203z00_2220 = ((bool_t)0); } } 
if(BgL_test4203z00_2220)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_11427;
BgL_lastzd2matchzd2_11427 = BgL_newzd2matchzd2_2214; 
BgL_lastzd2matchzd2_2211 = BgL_lastzd2matchzd2_11427; 
goto BgL_zc3anonymousza34194ze3z83_2213;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4205z00_2221;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11428;
BgL_auxz00_11428 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_test4205z00_2221 = 
(BgL_auxz00_11428==((long)46)); } 
if(BgL_test4205z00_2221)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1973 = BgL_inputzd2portzd2_2210; 
BgL_lastzd2matchzd2_1974 = BgL_newzd2matchzd2_2214; 
BgL_thezd2rgczd2contextz00_1975 = BgL_thezd2rgczd2contextz00_2212; 
BgL_zc3anonymousza33776ze3z83_1976:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1977;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1973); 
BgL_newzd2matchzd2_1977 = ((long)20); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1978;
BgL_currentzd2charzd2_1978 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1973); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11434;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11435;
BgL_auxz00_11435 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11434 = 
(BgL_auxz00_11435==((long)0)); } 
if(BgL_testz00_11434)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3778z00_1980;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7981z00_6691;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6688;
BgL__andtest_1208z00_6688 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1973); 
if(BgL__andtest_1208z00_6688)
{ /* ./Read/reader.scm 336 */
BgL_res7981z00_6691 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1973); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7981z00_6691 = ((bool_t)0); } } 
BgL_test3778z00_1980 = BgL_res7981z00_6691; } 
if(BgL_test3778z00_1980)
{ 

goto BgL_zc3anonymousza33776ze3z83_1976;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_1977
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3781z00_1981;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11442;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11443;
BgL_auxz00_11443 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11442 = 
(BgL_auxz00_11443==((long)69)); } 
if(BgL_testz00_11442)
{ /* ./Read/reader.scm 336 */
BgL_test3781z00_1981 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11446;
BgL_auxz00_11446 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_test3781z00_1981 = 
(BgL_auxz00_11446==((long)101)); } } 
if(BgL_test3781z00_1981)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11452;long BgL_lastzd2matchzd2_11451;obj_t BgL_inputzd2portzd2_11450;
BgL_inputzd2portzd2_11450 = BgL_inputzd2portzd2_1973; 
BgL_lastzd2matchzd2_11451 = BgL_newzd2matchzd2_1977; 
BgL_thezd2rgczd2contextz00_11452 = BgL_thezd2rgczd2contextz00_1975; 
BgL_thezd2rgczd2contextz00_2250 = BgL_thezd2rgczd2contextz00_11452; 
BgL_lastzd2matchzd2_2249 = BgL_lastzd2matchzd2_11451; 
BgL_inputzd2portzd2_2248 = BgL_inputzd2portzd2_11450; 
goto BgL_zc3anonymousza34259ze3z83_2251;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11453;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11454;
BgL_auxz00_11454 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11453 = 
(BgL_auxz00_11454==((long)58)); } 
if(BgL_testz00_11453)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11459;long BgL_lastzd2matchzd2_11458;obj_t BgL_inputzd2portzd2_11457;
BgL_inputzd2portzd2_11457 = BgL_inputzd2portzd2_1973; 
BgL_lastzd2matchzd2_11458 = BgL_newzd2matchzd2_1977; 
BgL_thezd2rgczd2contextz00_11459 = BgL_thezd2rgczd2contextz00_1975; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_11459; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_11458; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_11457; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3785z00_1983;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11460;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11461;
BgL_auxz00_11461 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11460 = 
(BgL_auxz00_11461>=((long)48)); } 
if(BgL_testz00_11460)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11464;
BgL_auxz00_11464 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_test3785z00_1983 = 
(BgL_auxz00_11464<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test3785z00_1983 = ((bool_t)0); } } 
if(BgL_test3785z00_1983)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2101 = BgL_inputzd2portzd2_1973; 
BgL_lastzd2matchzd2_2102 = BgL_newzd2matchzd2_1977; 
BgL_thezd2rgczd2contextz00_2103 = BgL_thezd2rgczd2contextz00_1975; 
BgL_zc3anonymousza33994ze3z83_2104:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2105;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2101); 
BgL_newzd2matchzd2_2105 = ((long)20); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2106;
BgL_currentzd2charzd2_2106 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2101); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11470;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11471;
BgL_auxz00_11471 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11470 = 
(BgL_auxz00_11471==((long)0)); } 
if(BgL_testz00_11470)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3996z00_2108;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7991z00_6986;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6983;
BgL__andtest_1208z00_6983 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2101); 
if(BgL__andtest_1208z00_6983)
{ /* ./Read/reader.scm 336 */
BgL_res7991z00_6986 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2101); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7991z00_6986 = ((bool_t)0); } } 
BgL_test3996z00_2108 = BgL_res7991z00_6986; } 
if(BgL_test3996z00_2108)
{ 

goto BgL_zc3anonymousza33994ze3z83_2104;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2105
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3999z00_2109;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11478;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11479;
BgL_auxz00_11479 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11478 = 
(BgL_auxz00_11479==((long)69)); } 
if(BgL_testz00_11478)
{ /* ./Read/reader.scm 336 */
BgL_test3999z00_2109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11482;
BgL_auxz00_11482 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_test3999z00_2109 = 
(BgL_auxz00_11482==((long)101)); } } 
if(BgL_test3999z00_2109)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11488;long BgL_lastzd2matchzd2_11487;obj_t BgL_inputzd2portzd2_11486;
BgL_inputzd2portzd2_11486 = BgL_inputzd2portzd2_2101; 
BgL_lastzd2matchzd2_11487 = BgL_newzd2matchzd2_2105; 
BgL_thezd2rgczd2contextz00_11488 = BgL_thezd2rgczd2contextz00_2103; 
BgL_thezd2rgczd2contextz00_2250 = BgL_thezd2rgczd2contextz00_11488; 
BgL_lastzd2matchzd2_2249 = BgL_lastzd2matchzd2_11487; 
BgL_inputzd2portzd2_2248 = BgL_inputzd2portzd2_11486; 
goto BgL_zc3anonymousza34259ze3z83_2251;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11489;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11490;
BgL_auxz00_11490 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11489 = 
(BgL_auxz00_11490==((long)58)); } 
if(BgL_testz00_11489)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11495;long BgL_lastzd2matchzd2_11494;obj_t BgL_inputzd2portzd2_11493;
BgL_inputzd2portzd2_11493 = BgL_inputzd2portzd2_2101; 
BgL_lastzd2matchzd2_11494 = BgL_newzd2matchzd2_2105; 
BgL_thezd2rgczd2contextz00_11495 = BgL_thezd2rgczd2contextz00_2103; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_11495; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_11494; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_11493; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4003z00_2111;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11496;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11497;
BgL_auxz00_11497 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11496 = 
(BgL_auxz00_11497>=((long)48)); } 
if(BgL_testz00_11496)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11500;
BgL_auxz00_11500 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_test4003z00_2111 = 
(BgL_auxz00_11500<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4003z00_2111 = ((bool_t)0); } } 
if(BgL_test4003z00_2111)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_11504;
BgL_lastzd2matchzd2_11504 = BgL_newzd2matchzd2_2105; 
BgL_lastzd2matchzd2_2102 = BgL_lastzd2matchzd2_11504; 
goto BgL_zc3anonymousza33994ze3z83_2104;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4005z00_2112;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11505;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11506;
BgL_auxz00_11506 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11505 = 
(BgL_auxz00_11506<((long)33)); } 
if(BgL_testz00_11505)
{ /* ./Read/reader.scm 336 */
BgL_test4005z00_2112 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11509;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11510;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11511;
BgL_auxz00_11511 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11510 = 
(BgL_auxz00_11511==((long)35)); } 
if(BgL_testz00_11510)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11509 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11514;
BgL_auxz00_11514 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11509 = 
(BgL_auxz00_11514==((long)34)); } } 
if(BgL_testz00_11509)
{ /* ./Read/reader.scm 336 */
BgL_test4005z00_2112 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11517;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11518;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11519;
BgL_auxz00_11519 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11518 = 
(BgL_auxz00_11519==((long)41)); } 
if(BgL_testz00_11518)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11517 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11522;
BgL_auxz00_11522 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11517 = 
(BgL_auxz00_11522==((long)40)); } } 
if(BgL_testz00_11517)
{ /* ./Read/reader.scm 336 */
BgL_test4005z00_2112 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11525;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11526;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11527;
BgL_auxz00_11527 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11526 = 
(BgL_auxz00_11527>=((long)48)); } 
if(BgL_testz00_11526)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11530;
BgL_auxz00_11530 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11525 = 
(BgL_auxz00_11530<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_11525 = ((bool_t)0)
; } } 
if(BgL_testz00_11525)
{ /* ./Read/reader.scm 336 */
BgL_test4005z00_2112 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11533;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11534;
BgL_auxz00_11534 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11533 = 
(BgL_auxz00_11534==((long)69)); } 
if(BgL_testz00_11533)
{ /* ./Read/reader.scm 336 */
BgL_test4005z00_2112 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11537;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11538;
BgL_auxz00_11538 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11537 = 
(BgL_auxz00_11538==((long)91)); } 
if(BgL_testz00_11537)
{ /* ./Read/reader.scm 336 */
BgL_test4005z00_2112 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11541;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11542;
BgL_auxz00_11542 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11541 = 
(BgL_auxz00_11542==((long)93)); } 
if(BgL_testz00_11541)
{ /* ./Read/reader.scm 336 */
BgL_test4005z00_2112 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11545;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11546;
BgL_auxz00_11546 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11545 = 
(BgL_auxz00_11546==((long)101)); } 
if(BgL_testz00_11545)
{ /* ./Read/reader.scm 336 */
BgL_test4005z00_2112 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11549;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11550;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11551;
BgL_auxz00_11551 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11550 = 
(BgL_auxz00_11551==((long)125)); } 
if(BgL_testz00_11550)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11549 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11554;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11555;
BgL_auxz00_11555 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11554 = 
(BgL_auxz00_11555==((long)124)); } 
if(BgL_testz00_11554)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11549 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11558;
BgL_auxz00_11558 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_testz00_11549 = 
(BgL_auxz00_11558==((long)123)); } } } 
if(BgL_testz00_11549)
{ /* ./Read/reader.scm 336 */
BgL_test4005z00_2112 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11561;
BgL_auxz00_11561 = 
(long)(BgL_currentzd2charzd2_2106); 
BgL_test4005z00_2112 = 
(BgL_auxz00_11561==((long)127)); } } } } } } } } } } 
if(BgL_test4005z00_2112)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2105; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11567;long BgL_lastzd2matchzd2_11566;obj_t BgL_inputzd2portzd2_11565;
BgL_inputzd2portzd2_11565 = BgL_inputzd2portzd2_2101; 
BgL_lastzd2matchzd2_11566 = BgL_newzd2matchzd2_2105; 
BgL_thezd2rgczd2contextz00_11567 = BgL_thezd2rgczd2contextz00_2103; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_11567; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_11566; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_11565; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3787z00_1984;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11568;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11569;
BgL_auxz00_11569 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11568 = 
(BgL_auxz00_11569<((long)33)); } 
if(BgL_testz00_11568)
{ /* ./Read/reader.scm 336 */
BgL_test3787z00_1984 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11572;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11573;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11574;
BgL_auxz00_11574 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11573 = 
(BgL_auxz00_11574==((long)35)); } 
if(BgL_testz00_11573)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11572 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11577;
BgL_auxz00_11577 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11572 = 
(BgL_auxz00_11577==((long)34)); } } 
if(BgL_testz00_11572)
{ /* ./Read/reader.scm 336 */
BgL_test3787z00_1984 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11580;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11581;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11582;
BgL_auxz00_11582 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11581 = 
(BgL_auxz00_11582==((long)41)); } 
if(BgL_testz00_11581)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11580 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11585;
BgL_auxz00_11585 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11580 = 
(BgL_auxz00_11585==((long)40)); } } 
if(BgL_testz00_11580)
{ /* ./Read/reader.scm 336 */
BgL_test3787z00_1984 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11588;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11589;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11590;
BgL_auxz00_11590 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11589 = 
(BgL_auxz00_11590>=((long)48)); } 
if(BgL_testz00_11589)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11593;
BgL_auxz00_11593 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11588 = 
(BgL_auxz00_11593<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_11588 = ((bool_t)0)
; } } 
if(BgL_testz00_11588)
{ /* ./Read/reader.scm 336 */
BgL_test3787z00_1984 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11596;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11597;
BgL_auxz00_11597 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11596 = 
(BgL_auxz00_11597==((long)69)); } 
if(BgL_testz00_11596)
{ /* ./Read/reader.scm 336 */
BgL_test3787z00_1984 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11600;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11601;
BgL_auxz00_11601 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11600 = 
(BgL_auxz00_11601==((long)91)); } 
if(BgL_testz00_11600)
{ /* ./Read/reader.scm 336 */
BgL_test3787z00_1984 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11604;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11605;
BgL_auxz00_11605 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11604 = 
(BgL_auxz00_11605==((long)93)); } 
if(BgL_testz00_11604)
{ /* ./Read/reader.scm 336 */
BgL_test3787z00_1984 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11608;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11609;
BgL_auxz00_11609 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11608 = 
(BgL_auxz00_11609==((long)101)); } 
if(BgL_testz00_11608)
{ /* ./Read/reader.scm 336 */
BgL_test3787z00_1984 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11612;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11613;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11614;
BgL_auxz00_11614 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11613 = 
(BgL_auxz00_11614==((long)125)); } 
if(BgL_testz00_11613)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11612 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11617;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11618;
BgL_auxz00_11618 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11617 = 
(BgL_auxz00_11618==((long)124)); } 
if(BgL_testz00_11617)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11612 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11621;
BgL_auxz00_11621 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_testz00_11612 = 
(BgL_auxz00_11621==((long)123)); } } } 
if(BgL_testz00_11612)
{ /* ./Read/reader.scm 336 */
BgL_test3787z00_1984 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11624;
BgL_auxz00_11624 = 
(long)(BgL_currentzd2charzd2_1978); 
BgL_test3787z00_1984 = 
(BgL_auxz00_11624==((long)127)); } } } } } } } } } } 
if(BgL_test3787z00_1984)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_1977; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11630;long BgL_lastzd2matchzd2_11629;obj_t BgL_inputzd2portzd2_11628;
BgL_inputzd2portzd2_11628 = BgL_inputzd2portzd2_1973; 
BgL_lastzd2matchzd2_11629 = BgL_newzd2matchzd2_1977; 
BgL_thezd2rgczd2contextz00_11630 = BgL_thezd2rgczd2contextz00_1975; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_11630; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_11629; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_11628; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4207z00_2222;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11631;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11632;
BgL_auxz00_11632 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11631 = 
(BgL_auxz00_11632<((long)33)); } 
if(BgL_testz00_11631)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11635;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11636;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11637;
BgL_auxz00_11637 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11636 = 
(BgL_auxz00_11637==((long)35)); } 
if(BgL_testz00_11636)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11635 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11640;
BgL_auxz00_11640 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11635 = 
(BgL_auxz00_11640==((long)34)); } } 
if(BgL_testz00_11635)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11643;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11644;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11645;
BgL_auxz00_11645 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11644 = 
(BgL_auxz00_11645==((long)41)); } 
if(BgL_testz00_11644)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11643 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11648;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11649;
BgL_auxz00_11649 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11648 = 
(BgL_auxz00_11649==((long)40)); } 
if(BgL_testz00_11648)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11643 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11652;
BgL_auxz00_11652 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11643 = 
(BgL_auxz00_11652==((long)39)); } } } 
if(BgL_testz00_11643)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11655;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11656;
BgL_auxz00_11656 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11655 = 
(BgL_auxz00_11656==((long)44)); } 
if(BgL_testz00_11655)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test4205z00_2221)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11660;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11661;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11662;
BgL_auxz00_11662 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11661 = 
(BgL_auxz00_11662>=((long)48)); } 
if(BgL_testz00_11661)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11665;
BgL_auxz00_11665 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11660 = 
(BgL_auxz00_11665<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_11660 = ((bool_t)0)
; } } 
if(BgL_testz00_11660)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11668;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11669;
BgL_auxz00_11669 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11668 = 
(BgL_auxz00_11669==((long)69)); } 
if(BgL_testz00_11668)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11672;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11673;
BgL_auxz00_11673 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11672 = 
(BgL_auxz00_11673==((long)91)); } 
if(BgL_testz00_11672)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11676;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11677;
BgL_auxz00_11677 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11676 = 
(BgL_auxz00_11677==((long)93)); } 
if(BgL_testz00_11676)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11680;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11681;
BgL_auxz00_11681 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11680 = 
(BgL_auxz00_11681==((long)96)); } 
if(BgL_testz00_11680)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11684;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11685;
BgL_auxz00_11685 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11684 = 
(BgL_auxz00_11685==((long)101)); } 
if(BgL_testz00_11684)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11688;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11689;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11690;
BgL_auxz00_11690 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11689 = 
(BgL_auxz00_11690==((long)125)); } 
if(BgL_testz00_11689)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11688 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11693;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11694;
BgL_auxz00_11694 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11693 = 
(BgL_auxz00_11694==((long)124)); } 
if(BgL_testz00_11693)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11688 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11697;
BgL_auxz00_11697 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_testz00_11688 = 
(BgL_auxz00_11697==((long)123)); } } } 
if(BgL_testz00_11688)
{ /* ./Read/reader.scm 336 */
BgL_test4207z00_2222 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11700;
BgL_auxz00_11700 = 
(long)(BgL_currentzd2charzd2_2215); 
BgL_test4207z00_2222 = 
(BgL_auxz00_11700==((long)127)); } } } } } } } } } } } } } 
if(BgL_test4207z00_2222)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2214; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11706;long BgL_lastzd2matchzd2_11705;obj_t BgL_inputzd2portzd2_11704;
BgL_inputzd2portzd2_11704 = BgL_inputzd2portzd2_2210; 
BgL_lastzd2matchzd2_11705 = BgL_newzd2matchzd2_2214; 
BgL_thezd2rgczd2contextz00_11706 = BgL_thezd2rgczd2contextz00_2212; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_11706; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_11705; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_11704; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4142z00_2188;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11707;
BgL_auxz00_11707 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_test4142z00_2188 = 
(BgL_auxz00_11707==((long)46)); } 
if(BgL_test4142z00_2188)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11713;long BgL_lastzd2matchzd2_11712;obj_t BgL_inputzd2portzd2_11711;
BgL_inputzd2portzd2_11711 = BgL_inputzd2portzd2_2177; 
BgL_lastzd2matchzd2_11712 = BgL_newzd2matchzd2_2181; 
BgL_thezd2rgczd2contextz00_11713 = BgL_thezd2rgczd2contextz00_2179; 
BgL_thezd2rgczd2contextz00_1975 = BgL_thezd2rgczd2contextz00_11713; 
BgL_lastzd2matchzd2_1974 = BgL_lastzd2matchzd2_11712; 
BgL_inputzd2portzd2_1973 = BgL_inputzd2portzd2_11711; 
goto BgL_zc3anonymousza33776ze3z83_1976;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4144z00_2189;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11714;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11715;
BgL_auxz00_11715 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11714 = 
(BgL_auxz00_11715<((long)33)); } 
if(BgL_testz00_11714)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11718;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11719;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11720;
BgL_auxz00_11720 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11719 = 
(BgL_auxz00_11720==((long)35)); } 
if(BgL_testz00_11719)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11718 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11723;
BgL_auxz00_11723 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11718 = 
(BgL_auxz00_11723==((long)34)); } } 
if(BgL_testz00_11718)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11726;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11727;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11728;
BgL_auxz00_11728 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11727 = 
(BgL_auxz00_11728==((long)41)); } 
if(BgL_testz00_11727)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11726 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11731;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11732;
BgL_auxz00_11732 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11731 = 
(BgL_auxz00_11732==((long)40)); } 
if(BgL_testz00_11731)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11726 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11735;
BgL_auxz00_11735 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11726 = 
(BgL_auxz00_11735==((long)39)); } } } 
if(BgL_testz00_11726)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11738;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11739;
BgL_auxz00_11739 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11738 = 
(BgL_auxz00_11739==((long)44)); } 
if(BgL_testz00_11738)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test4142z00_2188)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11743;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11744;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11745;
BgL_auxz00_11745 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11744 = 
(BgL_auxz00_11745>=((long)48)); } 
if(BgL_testz00_11744)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11748;
BgL_auxz00_11748 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11743 = 
(BgL_auxz00_11748<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_11743 = ((bool_t)0)
; } } 
if(BgL_testz00_11743)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11751;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11752;
BgL_auxz00_11752 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11751 = 
(BgL_auxz00_11752==((long)69)); } 
if(BgL_testz00_11751)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11755;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11756;
BgL_auxz00_11756 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11755 = 
(BgL_auxz00_11756==((long)91)); } 
if(BgL_testz00_11755)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11759;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11760;
BgL_auxz00_11760 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11759 = 
(BgL_auxz00_11760==((long)93)); } 
if(BgL_testz00_11759)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11763;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11764;
BgL_auxz00_11764 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11763 = 
(BgL_auxz00_11764==((long)96)); } 
if(BgL_testz00_11763)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11767;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11768;
BgL_auxz00_11768 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11767 = 
(BgL_auxz00_11768==((long)101)); } 
if(BgL_testz00_11767)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11771;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11772;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11773;
BgL_auxz00_11773 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11772 = 
(BgL_auxz00_11773==((long)125)); } 
if(BgL_testz00_11772)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11771 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11776;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11777;
BgL_auxz00_11777 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11776 = 
(BgL_auxz00_11777==((long)124)); } 
if(BgL_testz00_11776)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11771 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11780;
BgL_auxz00_11780 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_testz00_11771 = 
(BgL_auxz00_11780==((long)123)); } } } 
if(BgL_testz00_11771)
{ /* ./Read/reader.scm 336 */
BgL_test4144z00_2189 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11783;
BgL_auxz00_11783 = 
(long)(BgL_currentzd2charzd2_2182); 
BgL_test4144z00_2189 = 
(BgL_auxz00_11783==((long)127)); } } } } } } } } } } } } } 
if(BgL_test4144z00_2189)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_10975 = BgL_newzd2matchzd2_2181; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11789;long BgL_lastzd2matchzd2_11788;obj_t BgL_inputzd2portzd2_11787;
BgL_inputzd2portzd2_11787 = BgL_inputzd2portzd2_2177; 
BgL_lastzd2matchzd2_11788 = BgL_newzd2matchzd2_2181; 
BgL_thezd2rgczd2contextz00_11789 = BgL_thezd2rgczd2contextz00_2179; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_11789; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_11788; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_11787; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } } } 
return 
BINT(BgL_auxz00_10975);} break;case ((long)46) : 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11791;
BgL_inputzd2portzd2_2384 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_2385 = BgL_lastzd2matchzd2_1672; 
BgL_thezd2rgczd2contextz00_2386 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza34499ze3z83_2387:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2388;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2384); 
BgL_newzd2matchzd2_2388 = ((long)21); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2389;
BgL_currentzd2charzd2_2389 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2384); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11794;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11795;
BgL_auxz00_11795 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11794 = 
(BgL_auxz00_11795==((long)0)); } 
if(BgL_testz00_11794)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4501z00_2391;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8001z00_7466;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7463;
BgL__andtest_1208z00_7463 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2384); 
if(BgL__andtest_1208z00_7463)
{ /* ./Read/reader.scm 336 */
BgL_res8001z00_7466 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2384); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8001z00_7466 = ((bool_t)0); } } 
BgL_test4501z00_2391 = BgL_res8001z00_7466; } 
if(BgL_test4501z00_2391)
{ 

goto BgL_zc3anonymousza34499ze3z83_2387;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_11791 = BgL_newzd2matchzd2_2388
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11802;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11803;
BgL_auxz00_11803 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11802 = 
(BgL_auxz00_11803==((long)58)); } 
if(BgL_testz00_11802)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11808;long BgL_lastzd2matchzd2_11807;obj_t BgL_inputzd2portzd2_11806;
BgL_inputzd2portzd2_11806 = BgL_inputzd2portzd2_2384; 
BgL_lastzd2matchzd2_11807 = BgL_newzd2matchzd2_2388; 
BgL_thezd2rgczd2contextz00_11808 = BgL_thezd2rgczd2contextz00_2386; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_11808; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_11807; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_11806; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4506z00_2393;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11809;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11810;
BgL_auxz00_11810 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11809 = 
(BgL_auxz00_11810>=((long)48)); } 
if(BgL_testz00_11809)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11813;
BgL_auxz00_11813 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_test4506z00_2393 = 
(BgL_auxz00_11813<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4506z00_2393 = ((bool_t)0); } } 
if(BgL_test4506z00_2393)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2149 = BgL_inputzd2portzd2_2384; 
BgL_lastzd2matchzd2_2150 = BgL_newzd2matchzd2_2388; 
BgL_thezd2rgczd2contextz00_2151 = BgL_thezd2rgczd2contextz00_2386; 
BgL_zc3anonymousza34079ze3z83_2152:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2153;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2149); 
BgL_newzd2matchzd2_2153 = ((long)20); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2154;
BgL_currentzd2charzd2_2154 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2149); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11819;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11820;
BgL_auxz00_11820 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11819 = 
(BgL_auxz00_11820==((long)0)); } 
if(BgL_testz00_11819)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4081z00_2156;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7993z00_7068;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7065;
BgL__andtest_1208z00_7065 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2149); 
if(BgL__andtest_1208z00_7065)
{ /* ./Read/reader.scm 336 */
BgL_res7993z00_7068 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2149); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7993z00_7068 = ((bool_t)0); } } 
BgL_test4081z00_2156 = BgL_res7993z00_7068; } 
if(BgL_test4081z00_2156)
{ 

goto BgL_zc3anonymousza34079ze3z83_2152;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_11791 = BgL_newzd2matchzd2_2153
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4084z00_2157;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11827;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11828;
BgL_auxz00_11828 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11827 = 
(BgL_auxz00_11828==((long)69)); } 
if(BgL_testz00_11827)
{ /* ./Read/reader.scm 336 */
BgL_test4084z00_2157 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11831;
BgL_auxz00_11831 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_test4084z00_2157 = 
(BgL_auxz00_11831==((long)101)); } } 
if(BgL_test4084z00_2157)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11837;long BgL_lastzd2matchzd2_11836;obj_t BgL_inputzd2portzd2_11835;
BgL_inputzd2portzd2_11835 = BgL_inputzd2portzd2_2149; 
BgL_lastzd2matchzd2_11836 = BgL_newzd2matchzd2_2153; 
BgL_thezd2rgczd2contextz00_11837 = BgL_thezd2rgczd2contextz00_2151; 
BgL_thezd2rgczd2contextz00_2250 = BgL_thezd2rgczd2contextz00_11837; 
BgL_lastzd2matchzd2_2249 = BgL_lastzd2matchzd2_11836; 
BgL_inputzd2portzd2_2248 = BgL_inputzd2portzd2_11835; 
goto BgL_zc3anonymousza34259ze3z83_2251;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11838;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11839;
BgL_auxz00_11839 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11838 = 
(BgL_auxz00_11839==((long)58)); } 
if(BgL_testz00_11838)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11844;long BgL_lastzd2matchzd2_11843;obj_t BgL_inputzd2portzd2_11842;
BgL_inputzd2portzd2_11842 = BgL_inputzd2portzd2_2149; 
BgL_lastzd2matchzd2_11843 = BgL_newzd2matchzd2_2153; 
BgL_thezd2rgczd2contextz00_11844 = BgL_thezd2rgczd2contextz00_2151; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_11844; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_11843; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_11842; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4088z00_2159;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11845;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11846;
BgL_auxz00_11846 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11845 = 
(BgL_auxz00_11846>=((long)48)); } 
if(BgL_testz00_11845)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11849;
BgL_auxz00_11849 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_test4088z00_2159 = 
(BgL_auxz00_11849<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4088z00_2159 = ((bool_t)0); } } 
if(BgL_test4088z00_2159)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_11853;
BgL_lastzd2matchzd2_11853 = BgL_newzd2matchzd2_2153; 
BgL_lastzd2matchzd2_2150 = BgL_lastzd2matchzd2_11853; 
goto BgL_zc3anonymousza34079ze3z83_2152;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4090z00_2160;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11854;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11855;
BgL_auxz00_11855 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11854 = 
(BgL_auxz00_11855<((long)33)); } 
if(BgL_testz00_11854)
{ /* ./Read/reader.scm 336 */
BgL_test4090z00_2160 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11858;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11859;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11860;
BgL_auxz00_11860 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11859 = 
(BgL_auxz00_11860==((long)35)); } 
if(BgL_testz00_11859)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11858 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11863;
BgL_auxz00_11863 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11858 = 
(BgL_auxz00_11863==((long)34)); } } 
if(BgL_testz00_11858)
{ /* ./Read/reader.scm 336 */
BgL_test4090z00_2160 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11866;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11867;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11868;
BgL_auxz00_11868 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11867 = 
(BgL_auxz00_11868==((long)41)); } 
if(BgL_testz00_11867)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11866 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11871;
BgL_auxz00_11871 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11866 = 
(BgL_auxz00_11871==((long)40)); } } 
if(BgL_testz00_11866)
{ /* ./Read/reader.scm 336 */
BgL_test4090z00_2160 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11874;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11875;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11876;
BgL_auxz00_11876 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11875 = 
(BgL_auxz00_11876>=((long)48)); } 
if(BgL_testz00_11875)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11879;
BgL_auxz00_11879 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11874 = 
(BgL_auxz00_11879<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_11874 = ((bool_t)0)
; } } 
if(BgL_testz00_11874)
{ /* ./Read/reader.scm 336 */
BgL_test4090z00_2160 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11882;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11883;
BgL_auxz00_11883 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11882 = 
(BgL_auxz00_11883==((long)69)); } 
if(BgL_testz00_11882)
{ /* ./Read/reader.scm 336 */
BgL_test4090z00_2160 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11886;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11887;
BgL_auxz00_11887 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11886 = 
(BgL_auxz00_11887==((long)91)); } 
if(BgL_testz00_11886)
{ /* ./Read/reader.scm 336 */
BgL_test4090z00_2160 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11890;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11891;
BgL_auxz00_11891 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11890 = 
(BgL_auxz00_11891==((long)93)); } 
if(BgL_testz00_11890)
{ /* ./Read/reader.scm 336 */
BgL_test4090z00_2160 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11894;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11895;
BgL_auxz00_11895 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11894 = 
(BgL_auxz00_11895==((long)101)); } 
if(BgL_testz00_11894)
{ /* ./Read/reader.scm 336 */
BgL_test4090z00_2160 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11898;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11899;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11900;
BgL_auxz00_11900 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11899 = 
(BgL_auxz00_11900==((long)125)); } 
if(BgL_testz00_11899)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11898 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11903;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11904;
BgL_auxz00_11904 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11903 = 
(BgL_auxz00_11904==((long)124)); } 
if(BgL_testz00_11903)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11898 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11907;
BgL_auxz00_11907 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_testz00_11898 = 
(BgL_auxz00_11907==((long)123)); } } } 
if(BgL_testz00_11898)
{ /* ./Read/reader.scm 336 */
BgL_test4090z00_2160 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11910;
BgL_auxz00_11910 = 
(long)(BgL_currentzd2charzd2_2154); 
BgL_test4090z00_2160 = 
(BgL_auxz00_11910==((long)127)); } } } } } } } } } } 
if(BgL_test4090z00_2160)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_11791 = BgL_newzd2matchzd2_2153; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11916;long BgL_lastzd2matchzd2_11915;obj_t BgL_inputzd2portzd2_11914;
BgL_inputzd2portzd2_11914 = BgL_inputzd2portzd2_2149; 
BgL_lastzd2matchzd2_11915 = BgL_newzd2matchzd2_2153; 
BgL_thezd2rgczd2contextz00_11916 = BgL_thezd2rgczd2contextz00_2151; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_11916; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_11915; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_11914; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4508z00_2394;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11917;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11918;
BgL_auxz00_11918 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11917 = 
(BgL_auxz00_11918<((long)33)); } 
if(BgL_testz00_11917)
{ /* ./Read/reader.scm 336 */
BgL_test4508z00_2394 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11921;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11922;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11923;
BgL_auxz00_11923 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11922 = 
(BgL_auxz00_11923==((long)35)); } 
if(BgL_testz00_11922)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11921 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11926;
BgL_auxz00_11926 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11921 = 
(BgL_auxz00_11926==((long)34)); } } 
if(BgL_testz00_11921)
{ /* ./Read/reader.scm 336 */
BgL_test4508z00_2394 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11929;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11930;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11931;
BgL_auxz00_11931 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11930 = 
(BgL_auxz00_11931==((long)41)); } 
if(BgL_testz00_11930)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11929 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11934;
BgL_auxz00_11934 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11929 = 
(BgL_auxz00_11934==((long)40)); } } 
if(BgL_testz00_11929)
{ /* ./Read/reader.scm 336 */
BgL_test4508z00_2394 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11937;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11938;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11939;
BgL_auxz00_11939 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11938 = 
(BgL_auxz00_11939>=((long)48)); } 
if(BgL_testz00_11938)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11942;
BgL_auxz00_11942 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11937 = 
(BgL_auxz00_11942<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_11937 = ((bool_t)0)
; } } 
if(BgL_testz00_11937)
{ /* ./Read/reader.scm 336 */
BgL_test4508z00_2394 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11945;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11946;
BgL_auxz00_11946 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11945 = 
(BgL_auxz00_11946==((long)91)); } 
if(BgL_testz00_11945)
{ /* ./Read/reader.scm 336 */
BgL_test4508z00_2394 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11949;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11950;
BgL_auxz00_11950 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11949 = 
(BgL_auxz00_11950==((long)93)); } 
if(BgL_testz00_11949)
{ /* ./Read/reader.scm 336 */
BgL_test4508z00_2394 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11953;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11954;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11955;
BgL_auxz00_11955 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11954 = 
(BgL_auxz00_11955==((long)125)); } 
if(BgL_testz00_11954)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11953 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11958;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11959;
BgL_auxz00_11959 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11958 = 
(BgL_auxz00_11959==((long)124)); } 
if(BgL_testz00_11958)
{ /* ./Read/reader.scm 336 */
BgL_testz00_11953 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11962;
BgL_auxz00_11962 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_testz00_11953 = 
(BgL_auxz00_11962==((long)123)); } } } 
if(BgL_testz00_11953)
{ /* ./Read/reader.scm 336 */
BgL_test4508z00_2394 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11965;
BgL_auxz00_11965 = 
(long)(BgL_currentzd2charzd2_2389); 
BgL_test4508z00_2394 = 
(BgL_auxz00_11965==((long)127)); } } } } } } } } 
if(BgL_test4508z00_2394)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_11791 = BgL_newzd2matchzd2_2388; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11971;long BgL_lastzd2matchzd2_11970;obj_t BgL_inputzd2portzd2_11969;
BgL_inputzd2portzd2_11969 = BgL_inputzd2portzd2_2384; 
BgL_lastzd2matchzd2_11970 = BgL_newzd2matchzd2_2388; 
BgL_thezd2rgczd2contextz00_11971 = BgL_thezd2rgczd2contextz00_2386; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_11971; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_11970; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_11969; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } 
return 
BINT(BgL_auxz00_11791);} break;case ((long)45) : 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11973;
BgL_inputzd2portzd2_1279 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_1280 = BgL_lastzd2matchzd2_1672; 
BgL_thezd2rgczd2contextz00_1281 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza32549ze3z83_1282:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1283;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1279); 
BgL_newzd2matchzd2_1283 = ((long)27); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1284;
BgL_currentzd2charzd2_1284 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1279); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11976;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11977;
BgL_auxz00_11977 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_11976 = 
(BgL_auxz00_11977==((long)0)); } 
if(BgL_testz00_11976)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2551z00_1286;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7955z00_5429;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5426;
BgL__andtest_1208z00_5426 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1279); 
if(BgL__andtest_1208z00_5426)
{ /* ./Read/reader.scm 336 */
BgL_res7955z00_5429 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1279); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7955z00_5429 = ((bool_t)0); } } 
BgL_test2551z00_1286 = BgL_res7955z00_5429; } 
if(BgL_test2551z00_1286)
{ 

goto BgL_zc3anonymousza32549ze3z83_1282;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_11973 = BgL_newzd2matchzd2_1283
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11984;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11985;
BgL_auxz00_11985 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_11984 = 
(BgL_auxz00_11985==((long)58)); } 
if(BgL_testz00_11984)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_11990;long BgL_lastzd2matchzd2_11989;obj_t BgL_inputzd2portzd2_11988;
BgL_inputzd2portzd2_11988 = BgL_inputzd2portzd2_1279; 
BgL_lastzd2matchzd2_11989 = BgL_newzd2matchzd2_1283; 
BgL_thezd2rgczd2contextz00_11990 = BgL_thezd2rgczd2contextz00_1281; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_11990; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_11989; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_11988; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2556z00_1288;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_11991;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11992;
BgL_auxz00_11992 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_11991 = 
(BgL_auxz00_11992>=((long)48)); } 
if(BgL_testz00_11991)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_11995;
BgL_auxz00_11995 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_test2556z00_1288 = 
(BgL_auxz00_11995<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2556z00_1288 = ((bool_t)0); } } 
if(BgL_test2556z00_1288)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1581 = BgL_inputzd2portzd2_1279; 
BgL_lastzd2matchzd2_1582 = BgL_newzd2matchzd2_1283; 
BgL_thezd2rgczd2contextz00_1583 = BgL_thezd2rgczd2contextz00_1281; 
BgL_zc3anonymousza33095ze3z83_1584:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1585;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1581); 
BgL_newzd2matchzd2_1585 = ((long)14); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1586;
BgL_currentzd2charzd2_1586 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1581); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12001;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12002;
BgL_auxz00_12002 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12001 = 
(BgL_auxz00_12002==((long)0)); } 
if(BgL_testz00_12001)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3097z00_1588;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7966z00_5978;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5975;
BgL__andtest_1208z00_5975 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1581); 
if(BgL__andtest_1208z00_5975)
{ /* ./Read/reader.scm 336 */
BgL_res7966z00_5978 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1581); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7966z00_5978 = ((bool_t)0); } } 
BgL_test3097z00_1588 = BgL_res7966z00_5978; } 
if(BgL_test3097z00_1588)
{ 

goto BgL_zc3anonymousza33095ze3z83_1584;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_11973 = BgL_newzd2matchzd2_1585
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3100z00_1589;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12009;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12010;
BgL_auxz00_12010 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12009 = 
(BgL_auxz00_12010==((long)69)); } 
if(BgL_testz00_12009)
{ /* ./Read/reader.scm 336 */
BgL_test3100z00_1589 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12013;
BgL_auxz00_12013 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_test3100z00_1589 = 
(BgL_auxz00_12013==((long)101)); } } 
if(BgL_test3100z00_1589)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12019;long BgL_lastzd2matchzd2_12018;obj_t BgL_inputzd2portzd2_12017;
BgL_inputzd2portzd2_12017 = BgL_inputzd2portzd2_1581; 
BgL_lastzd2matchzd2_12018 = BgL_newzd2matchzd2_1585; 
BgL_thezd2rgczd2contextz00_12019 = BgL_thezd2rgczd2contextz00_1583; 
BgL_thezd2rgczd2contextz00_2250 = BgL_thezd2rgczd2contextz00_12019; 
BgL_lastzd2matchzd2_2249 = BgL_lastzd2matchzd2_12018; 
BgL_inputzd2portzd2_2248 = BgL_inputzd2portzd2_12017; 
goto BgL_zc3anonymousza34259ze3z83_2251;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12020;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12021;
BgL_auxz00_12021 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12020 = 
(BgL_auxz00_12021==((long)58)); } 
if(BgL_testz00_12020)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12026;long BgL_lastzd2matchzd2_12025;obj_t BgL_inputzd2portzd2_12024;
BgL_inputzd2portzd2_12024 = BgL_inputzd2portzd2_1581; 
BgL_lastzd2matchzd2_12025 = BgL_newzd2matchzd2_1585; 
BgL_thezd2rgczd2contextz00_12026 = BgL_thezd2rgczd2contextz00_1583; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_12026; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_12025; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_12024; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3104z00_1591;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12027;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12028;
BgL_auxz00_12028 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12027 = 
(BgL_auxz00_12028>=((long)48)); } 
if(BgL_testz00_12027)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12031;
BgL_auxz00_12031 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_test3104z00_1591 = 
(BgL_auxz00_12031<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test3104z00_1591 = ((bool_t)0); } } 
if(BgL_test3104z00_1591)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_12035;
BgL_lastzd2matchzd2_12035 = BgL_newzd2matchzd2_1585; 
BgL_lastzd2matchzd2_1582 = BgL_lastzd2matchzd2_12035; 
goto BgL_zc3anonymousza33095ze3z83_1584;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3106z00_1592;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12036;
BgL_auxz00_12036 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_test3106z00_1592 = 
(BgL_auxz00_12036==((long)46)); } 
if(BgL_test3106z00_1592)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12042;long BgL_lastzd2matchzd2_12041;obj_t BgL_inputzd2portzd2_12040;
BgL_inputzd2portzd2_12040 = BgL_inputzd2portzd2_1581; 
BgL_lastzd2matchzd2_12041 = BgL_newzd2matchzd2_1585; 
BgL_thezd2rgczd2contextz00_12042 = BgL_thezd2rgczd2contextz00_1583; 
BgL_thezd2rgczd2contextz00_1975 = BgL_thezd2rgczd2contextz00_12042; 
BgL_lastzd2matchzd2_1974 = BgL_lastzd2matchzd2_12041; 
BgL_inputzd2portzd2_1973 = BgL_inputzd2portzd2_12040; 
goto BgL_zc3anonymousza33776ze3z83_1976;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3108z00_1593;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12043;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12044;
BgL_auxz00_12044 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12043 = 
(BgL_auxz00_12044<((long)33)); } 
if(BgL_testz00_12043)
{ /* ./Read/reader.scm 336 */
BgL_test3108z00_1593 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12047;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12048;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12049;
BgL_auxz00_12049 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12048 = 
(BgL_auxz00_12049==((long)35)); } 
if(BgL_testz00_12048)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12047 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12052;
BgL_auxz00_12052 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12047 = 
(BgL_auxz00_12052==((long)34)); } } 
if(BgL_testz00_12047)
{ /* ./Read/reader.scm 336 */
BgL_test3108z00_1593 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12055;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12056;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12057;
BgL_auxz00_12057 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12056 = 
(BgL_auxz00_12057==((long)41)); } 
if(BgL_testz00_12056)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12055 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12060;
BgL_auxz00_12060 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12055 = 
(BgL_auxz00_12060==((long)40)); } } 
if(BgL_testz00_12055)
{ /* ./Read/reader.scm 336 */
BgL_test3108z00_1593 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test3106z00_1592)
{ /* ./Read/reader.scm 336 */
BgL_test3108z00_1593 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12064;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12065;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12066;
BgL_auxz00_12066 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12065 = 
(BgL_auxz00_12066>=((long)48)); } 
if(BgL_testz00_12065)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12069;
BgL_auxz00_12069 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12064 = 
(BgL_auxz00_12069<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12064 = ((bool_t)0)
; } } 
if(BgL_testz00_12064)
{ /* ./Read/reader.scm 336 */
BgL_test3108z00_1593 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12072;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12073;
BgL_auxz00_12073 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12072 = 
(BgL_auxz00_12073==((long)69)); } 
if(BgL_testz00_12072)
{ /* ./Read/reader.scm 336 */
BgL_test3108z00_1593 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12076;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12077;
BgL_auxz00_12077 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12076 = 
(BgL_auxz00_12077==((long)91)); } 
if(BgL_testz00_12076)
{ /* ./Read/reader.scm 336 */
BgL_test3108z00_1593 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12080;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12081;
BgL_auxz00_12081 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12080 = 
(BgL_auxz00_12081==((long)93)); } 
if(BgL_testz00_12080)
{ /* ./Read/reader.scm 336 */
BgL_test3108z00_1593 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12084;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12085;
BgL_auxz00_12085 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12084 = 
(BgL_auxz00_12085==((long)101)); } 
if(BgL_testz00_12084)
{ /* ./Read/reader.scm 336 */
BgL_test3108z00_1593 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12088;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12089;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12090;
BgL_auxz00_12090 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12089 = 
(BgL_auxz00_12090==((long)125)); } 
if(BgL_testz00_12089)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12088 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12093;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12094;
BgL_auxz00_12094 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12093 = 
(BgL_auxz00_12094==((long)124)); } 
if(BgL_testz00_12093)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12088 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12097;
BgL_auxz00_12097 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_testz00_12088 = 
(BgL_auxz00_12097==((long)123)); } } } 
if(BgL_testz00_12088)
{ /* ./Read/reader.scm 336 */
BgL_test3108z00_1593 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12100;
BgL_auxz00_12100 = 
(long)(BgL_currentzd2charzd2_1586); 
BgL_test3108z00_1593 = 
(BgL_auxz00_12100==((long)127)); } } } } } } } } } } } 
if(BgL_test3108z00_1593)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_11973 = BgL_newzd2matchzd2_1585; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12106;long BgL_lastzd2matchzd2_12105;obj_t BgL_inputzd2portzd2_12104;
BgL_inputzd2portzd2_12104 = BgL_inputzd2portzd2_1581; 
BgL_lastzd2matchzd2_12105 = BgL_newzd2matchzd2_1585; 
BgL_thezd2rgczd2contextz00_12106 = BgL_thezd2rgczd2contextz00_1583; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_12106; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_12105; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_12104; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2558z00_1289;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12107;
BgL_auxz00_12107 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_test2558z00_1289 = 
(BgL_auxz00_12107==((long)46)); } 
if(BgL_test2558z00_1289)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2468 = BgL_inputzd2portzd2_1279; 
BgL_lastzd2matchzd2_2469 = BgL_newzd2matchzd2_1283; 
BgL_thezd2rgczd2contextz00_2470 = BgL_thezd2rgczd2contextz00_1281; 
BgL_zc3anonymousza34637ze3z83_2471:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2472;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2468); 
BgL_newzd2matchzd2_2472 = ((long)27); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2473;
BgL_currentzd2charzd2_2473 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2468); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12113;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12114;
BgL_auxz00_12114 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12113 = 
(BgL_auxz00_12114==((long)0)); } 
if(BgL_testz00_12113)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4639z00_2475;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8005z00_7598;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7595;
BgL__andtest_1208z00_7595 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2468); 
if(BgL__andtest_1208z00_7595)
{ /* ./Read/reader.scm 336 */
BgL_res8005z00_7598 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2468); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8005z00_7598 = ((bool_t)0); } } 
BgL_test4639z00_2475 = BgL_res8005z00_7598; } 
if(BgL_test4639z00_2475)
{ 

goto BgL_zc3anonymousza34637ze3z83_2471;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_11973 = BgL_newzd2matchzd2_2472
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12121;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12122;
BgL_auxz00_12122 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12121 = 
(BgL_auxz00_12122==((long)58)); } 
if(BgL_testz00_12121)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12127;long BgL_lastzd2matchzd2_12126;obj_t BgL_inputzd2portzd2_12125;
BgL_inputzd2portzd2_12125 = BgL_inputzd2portzd2_2468; 
BgL_lastzd2matchzd2_12126 = BgL_newzd2matchzd2_2472; 
BgL_thezd2rgczd2contextz00_12127 = BgL_thezd2rgczd2contextz00_2470; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_12127; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_12126; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_12125; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4644z00_2477;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12128;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12129;
BgL_auxz00_12129 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12128 = 
(BgL_auxz00_12129>=((long)48)); } 
if(BgL_testz00_12128)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12132;
BgL_auxz00_12132 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_test4644z00_2477 = 
(BgL_auxz00_12132<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4644z00_2477 = ((bool_t)0); } } 
if(BgL_test4644z00_2477)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12138;long BgL_lastzd2matchzd2_12137;obj_t BgL_inputzd2portzd2_12136;
BgL_inputzd2portzd2_12136 = BgL_inputzd2portzd2_2468; 
BgL_lastzd2matchzd2_12137 = BgL_newzd2matchzd2_2472; 
BgL_thezd2rgczd2contextz00_12138 = BgL_thezd2rgczd2contextz00_2470; 
BgL_thezd2rgczd2contextz00_2151 = BgL_thezd2rgczd2contextz00_12138; 
BgL_lastzd2matchzd2_2150 = BgL_lastzd2matchzd2_12137; 
BgL_inputzd2portzd2_2149 = BgL_inputzd2portzd2_12136; 
goto BgL_zc3anonymousza34079ze3z83_2152;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4646z00_2478;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12139;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12140;
BgL_auxz00_12140 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12139 = 
(BgL_auxz00_12140<((long)33)); } 
if(BgL_testz00_12139)
{ /* ./Read/reader.scm 336 */
BgL_test4646z00_2478 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12143;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12144;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12145;
BgL_auxz00_12145 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12144 = 
(BgL_auxz00_12145==((long)35)); } 
if(BgL_testz00_12144)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12143 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12148;
BgL_auxz00_12148 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12143 = 
(BgL_auxz00_12148==((long)34)); } } 
if(BgL_testz00_12143)
{ /* ./Read/reader.scm 336 */
BgL_test4646z00_2478 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12151;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12152;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12153;
BgL_auxz00_12153 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12152 = 
(BgL_auxz00_12153==((long)41)); } 
if(BgL_testz00_12152)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12151 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12156;
BgL_auxz00_12156 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12151 = 
(BgL_auxz00_12156==((long)40)); } } 
if(BgL_testz00_12151)
{ /* ./Read/reader.scm 336 */
BgL_test4646z00_2478 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12159;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12160;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12161;
BgL_auxz00_12161 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12160 = 
(BgL_auxz00_12161>=((long)48)); } 
if(BgL_testz00_12160)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12164;
BgL_auxz00_12164 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12159 = 
(BgL_auxz00_12164<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12159 = ((bool_t)0)
; } } 
if(BgL_testz00_12159)
{ /* ./Read/reader.scm 336 */
BgL_test4646z00_2478 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12167;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12168;
BgL_auxz00_12168 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12167 = 
(BgL_auxz00_12168==((long)91)); } 
if(BgL_testz00_12167)
{ /* ./Read/reader.scm 336 */
BgL_test4646z00_2478 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12171;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12172;
BgL_auxz00_12172 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12171 = 
(BgL_auxz00_12172==((long)93)); } 
if(BgL_testz00_12171)
{ /* ./Read/reader.scm 336 */
BgL_test4646z00_2478 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12175;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12176;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12177;
BgL_auxz00_12177 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12176 = 
(BgL_auxz00_12177==((long)125)); } 
if(BgL_testz00_12176)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12175 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12180;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12181;
BgL_auxz00_12181 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12180 = 
(BgL_auxz00_12181==((long)124)); } 
if(BgL_testz00_12180)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12175 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12184;
BgL_auxz00_12184 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_testz00_12175 = 
(BgL_auxz00_12184==((long)123)); } } } 
if(BgL_testz00_12175)
{ /* ./Read/reader.scm 336 */
BgL_test4646z00_2478 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12187;
BgL_auxz00_12187 = 
(long)(BgL_currentzd2charzd2_2473); 
BgL_test4646z00_2478 = 
(BgL_auxz00_12187==((long)127)); } } } } } } } } 
if(BgL_test4646z00_2478)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_11973 = BgL_newzd2matchzd2_2472; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12193;long BgL_lastzd2matchzd2_12192;obj_t BgL_inputzd2portzd2_12191;
BgL_inputzd2portzd2_12191 = BgL_inputzd2portzd2_2468; 
BgL_lastzd2matchzd2_12192 = BgL_newzd2matchzd2_2472; 
BgL_thezd2rgczd2contextz00_12193 = BgL_thezd2rgczd2contextz00_2470; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_12193; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_12192; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_12191; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2560z00_1290;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12194;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12195;
BgL_auxz00_12195 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12194 = 
(BgL_auxz00_12195<((long)33)); } 
if(BgL_testz00_12194)
{ /* ./Read/reader.scm 336 */
BgL_test2560z00_1290 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12198;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12199;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12200;
BgL_auxz00_12200 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12199 = 
(BgL_auxz00_12200==((long)35)); } 
if(BgL_testz00_12199)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12198 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12203;
BgL_auxz00_12203 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12198 = 
(BgL_auxz00_12203==((long)34)); } } 
if(BgL_testz00_12198)
{ /* ./Read/reader.scm 336 */
BgL_test2560z00_1290 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12206;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12207;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12208;
BgL_auxz00_12208 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12207 = 
(BgL_auxz00_12208==((long)41)); } 
if(BgL_testz00_12207)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12206 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12211;
BgL_auxz00_12211 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12206 = 
(BgL_auxz00_12211==((long)40)); } } 
if(BgL_testz00_12206)
{ /* ./Read/reader.scm 336 */
BgL_test2560z00_1290 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test2558z00_1289)
{ /* ./Read/reader.scm 336 */
BgL_test2560z00_1290 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12215;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12216;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12217;
BgL_auxz00_12217 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12216 = 
(BgL_auxz00_12217>=((long)48)); } 
if(BgL_testz00_12216)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12220;
BgL_auxz00_12220 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12215 = 
(BgL_auxz00_12220<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12215 = ((bool_t)0)
; } } 
if(BgL_testz00_12215)
{ /* ./Read/reader.scm 336 */
BgL_test2560z00_1290 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12223;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12224;
BgL_auxz00_12224 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12223 = 
(BgL_auxz00_12224==((long)91)); } 
if(BgL_testz00_12223)
{ /* ./Read/reader.scm 336 */
BgL_test2560z00_1290 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12227;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12228;
BgL_auxz00_12228 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12227 = 
(BgL_auxz00_12228==((long)93)); } 
if(BgL_testz00_12227)
{ /* ./Read/reader.scm 336 */
BgL_test2560z00_1290 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12231;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12232;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12233;
BgL_auxz00_12233 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12232 = 
(BgL_auxz00_12233==((long)125)); } 
if(BgL_testz00_12232)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12231 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12236;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12237;
BgL_auxz00_12237 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12236 = 
(BgL_auxz00_12237==((long)124)); } 
if(BgL_testz00_12236)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12231 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12240;
BgL_auxz00_12240 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_testz00_12231 = 
(BgL_auxz00_12240==((long)123)); } } } 
if(BgL_testz00_12231)
{ /* ./Read/reader.scm 336 */
BgL_test2560z00_1290 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12243;
BgL_auxz00_12243 = 
(long)(BgL_currentzd2charzd2_1284); 
BgL_test2560z00_1290 = 
(BgL_auxz00_12243==((long)127)); } } } } } } } } } 
if(BgL_test2560z00_1290)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_11973 = BgL_newzd2matchzd2_1283; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12249;long BgL_lastzd2matchzd2_12248;obj_t BgL_inputzd2portzd2_12247;
BgL_inputzd2portzd2_12247 = BgL_inputzd2portzd2_1279; 
BgL_lastzd2matchzd2_12248 = BgL_newzd2matchzd2_1283; 
BgL_thezd2rgczd2contextz00_12249 = BgL_thezd2rgczd2contextz00_1281; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_12249; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_12248; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_12247; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } } 
return 
BINT(BgL_auxz00_11973);} break;case ((long)44) : 

{ 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12251;
BgL_statezd211zd21032z00_6115:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6116;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1671); 
BgL_newzd2matchzd2_6116 = ((long)31); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_6117;
BgL_currentzd2charzd2_6117 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1671); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12254;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12255;
BgL_auxz00_12255 = 
(long)(BgL_currentzd2charzd2_6117); 
BgL_testz00_12254 = 
(BgL_auxz00_12255==((long)0)); } 
if(BgL_testz00_12254)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5258z00_6119;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7970z00_6129;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6126;
BgL__andtest_1208z00_6126 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1671); 
if(BgL__andtest_1208z00_6126)
{ /* ./Read/reader.scm 336 */
BgL_res7970z00_6129 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1671); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7970z00_6129 = ((bool_t)0); } } 
BgL_test5258z00_6119 = BgL_res7970z00_6129; } 
if(BgL_test5258z00_6119)
{ /* ./Read/reader.scm 336 */
goto BgL_statezd211zd21032z00_6115;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12251 = BgL_newzd2matchzd2_6116
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12262;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12263;
BgL_auxz00_12263 = 
(long)(BgL_currentzd2charzd2_6117); 
BgL_testz00_12262 = 
(BgL_auxz00_12263==((long)64)); } 
if(BgL_testz00_12262)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6135;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1671); 
BgL_newzd2matchzd2_6135 = ((long)32); 
BgL_auxz00_12251 = BgL_newzd2matchzd2_6135; } }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12251 = BgL_newzd2matchzd2_6116; } } } } } 
return 
BINT(BgL_auxz00_12251);} } break;case ((long)43) : 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12268;
BgL_inputzd2portzd2_1890 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_1891 = BgL_lastzd2matchzd2_1672; 
BgL_thezd2rgczd2contextz00_1892 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza33660ze3z83_1893:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1894;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1890); 
BgL_newzd2matchzd2_1894 = ((long)27); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1895;
BgL_currentzd2charzd2_1895 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1890); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12271;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12272;
BgL_auxz00_12272 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12271 = 
(BgL_auxz00_12272==((long)0)); } 
if(BgL_testz00_12271)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3662z00_1897;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7978z00_6579;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6576;
BgL__andtest_1208z00_6576 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1890); 
if(BgL__andtest_1208z00_6576)
{ /* ./Read/reader.scm 336 */
BgL_res7978z00_6579 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1890); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7978z00_6579 = ((bool_t)0); } } 
BgL_test3662z00_1897 = BgL_res7978z00_6579; } 
if(BgL_test3662z00_1897)
{ 

goto BgL_zc3anonymousza33660ze3z83_1893;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12268 = BgL_newzd2matchzd2_1894
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12279;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12280;
BgL_auxz00_12280 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12279 = 
(BgL_auxz00_12280==((long)58)); } 
if(BgL_testz00_12279)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12285;long BgL_lastzd2matchzd2_12284;obj_t BgL_inputzd2portzd2_12283;
BgL_inputzd2portzd2_12283 = BgL_inputzd2portzd2_1890; 
BgL_lastzd2matchzd2_12284 = BgL_newzd2matchzd2_1894; 
BgL_thezd2rgczd2contextz00_12285 = BgL_thezd2rgczd2contextz00_1892; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_12285; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_12284; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_12283; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3667z00_1899;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12286;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12287;
BgL_auxz00_12287 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12286 = 
(BgL_auxz00_12287>=((long)48)); } 
if(BgL_testz00_12286)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12290;
BgL_auxz00_12290 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_test3667z00_1899 = 
(BgL_auxz00_12290<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test3667z00_1899 = ((bool_t)0); } } 
if(BgL_test3667z00_1899)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2300 = BgL_inputzd2portzd2_1890; 
BgL_lastzd2matchzd2_2301 = BgL_newzd2matchzd2_1894; 
BgL_thezd2rgczd2contextz00_2302 = BgL_thezd2rgczd2contextz00_1892; 
BgL_zc3anonymousza34354ze3z83_2303:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2304;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2300); 
BgL_newzd2matchzd2_2304 = ((long)13); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2305;
BgL_currentzd2charzd2_2305 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2300); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12296;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12297;
BgL_auxz00_12297 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12296 = 
(BgL_auxz00_12297==((long)0)); } 
if(BgL_testz00_12296)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4356z00_2307;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7998z00_7327;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7324;
BgL__andtest_1208z00_7324 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2300); 
if(BgL__andtest_1208z00_7324)
{ /* ./Read/reader.scm 336 */
BgL_res7998z00_7327 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2300); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7998z00_7327 = ((bool_t)0); } } 
BgL_test4356z00_2307 = BgL_res7998z00_7327; } 
if(BgL_test4356z00_2307)
{ 

goto BgL_zc3anonymousza34354ze3z83_2303;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12268 = BgL_newzd2matchzd2_2304
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4359z00_2308;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12304;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12305;
BgL_auxz00_12305 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12304 = 
(BgL_auxz00_12305==((long)69)); } 
if(BgL_testz00_12304)
{ /* ./Read/reader.scm 336 */
BgL_test4359z00_2308 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12308;
BgL_auxz00_12308 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_test4359z00_2308 = 
(BgL_auxz00_12308==((long)101)); } } 
if(BgL_test4359z00_2308)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12314;long BgL_lastzd2matchzd2_12313;obj_t BgL_inputzd2portzd2_12312;
BgL_inputzd2portzd2_12312 = BgL_inputzd2portzd2_2300; 
BgL_lastzd2matchzd2_12313 = BgL_newzd2matchzd2_2304; 
BgL_thezd2rgczd2contextz00_12314 = BgL_thezd2rgczd2contextz00_2302; 
BgL_thezd2rgczd2contextz00_2250 = BgL_thezd2rgczd2contextz00_12314; 
BgL_lastzd2matchzd2_2249 = BgL_lastzd2matchzd2_12313; 
BgL_inputzd2portzd2_2248 = BgL_inputzd2portzd2_12312; 
goto BgL_zc3anonymousza34259ze3z83_2251;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12315;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12316;
BgL_auxz00_12316 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12315 = 
(BgL_auxz00_12316==((long)58)); } 
if(BgL_testz00_12315)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12321;long BgL_lastzd2matchzd2_12320;obj_t BgL_inputzd2portzd2_12319;
BgL_inputzd2portzd2_12319 = BgL_inputzd2portzd2_2300; 
BgL_lastzd2matchzd2_12320 = BgL_newzd2matchzd2_2304; 
BgL_thezd2rgczd2contextz00_12321 = BgL_thezd2rgczd2contextz00_2302; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_12321; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_12320; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_12319; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4363z00_2310;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12322;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12323;
BgL_auxz00_12323 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12322 = 
(BgL_auxz00_12323>=((long)48)); } 
if(BgL_testz00_12322)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12326;
BgL_auxz00_12326 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_test4363z00_2310 = 
(BgL_auxz00_12326<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4363z00_2310 = ((bool_t)0); } } 
if(BgL_test4363z00_2310)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_12330;
BgL_lastzd2matchzd2_12330 = BgL_newzd2matchzd2_2304; 
BgL_lastzd2matchzd2_2301 = BgL_lastzd2matchzd2_12330; 
goto BgL_zc3anonymousza34354ze3z83_2303;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4365z00_2311;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12331;
BgL_auxz00_12331 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_test4365z00_2311 = 
(BgL_auxz00_12331==((long)46)); } 
if(BgL_test4365z00_2311)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12337;long BgL_lastzd2matchzd2_12336;obj_t BgL_inputzd2portzd2_12335;
BgL_inputzd2portzd2_12335 = BgL_inputzd2portzd2_2300; 
BgL_lastzd2matchzd2_12336 = BgL_newzd2matchzd2_2304; 
BgL_thezd2rgczd2contextz00_12337 = BgL_thezd2rgczd2contextz00_2302; 
BgL_thezd2rgczd2contextz00_1975 = BgL_thezd2rgczd2contextz00_12337; 
BgL_lastzd2matchzd2_1974 = BgL_lastzd2matchzd2_12336; 
BgL_inputzd2portzd2_1973 = BgL_inputzd2portzd2_12335; 
goto BgL_zc3anonymousza33776ze3z83_1976;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4367z00_2312;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12338;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12339;
BgL_auxz00_12339 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12338 = 
(BgL_auxz00_12339<((long)33)); } 
if(BgL_testz00_12338)
{ /* ./Read/reader.scm 336 */
BgL_test4367z00_2312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12342;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12343;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12344;
BgL_auxz00_12344 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12343 = 
(BgL_auxz00_12344==((long)35)); } 
if(BgL_testz00_12343)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12342 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12347;
BgL_auxz00_12347 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12342 = 
(BgL_auxz00_12347==((long)34)); } } 
if(BgL_testz00_12342)
{ /* ./Read/reader.scm 336 */
BgL_test4367z00_2312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12350;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12351;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12352;
BgL_auxz00_12352 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12351 = 
(BgL_auxz00_12352==((long)41)); } 
if(BgL_testz00_12351)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12350 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12355;
BgL_auxz00_12355 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12350 = 
(BgL_auxz00_12355==((long)40)); } } 
if(BgL_testz00_12350)
{ /* ./Read/reader.scm 336 */
BgL_test4367z00_2312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test4365z00_2311)
{ /* ./Read/reader.scm 336 */
BgL_test4367z00_2312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12359;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12360;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12361;
BgL_auxz00_12361 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12360 = 
(BgL_auxz00_12361>=((long)48)); } 
if(BgL_testz00_12360)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12364;
BgL_auxz00_12364 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12359 = 
(BgL_auxz00_12364<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12359 = ((bool_t)0)
; } } 
if(BgL_testz00_12359)
{ /* ./Read/reader.scm 336 */
BgL_test4367z00_2312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12367;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12368;
BgL_auxz00_12368 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12367 = 
(BgL_auxz00_12368==((long)69)); } 
if(BgL_testz00_12367)
{ /* ./Read/reader.scm 336 */
BgL_test4367z00_2312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12371;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12372;
BgL_auxz00_12372 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12371 = 
(BgL_auxz00_12372==((long)91)); } 
if(BgL_testz00_12371)
{ /* ./Read/reader.scm 336 */
BgL_test4367z00_2312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12375;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12376;
BgL_auxz00_12376 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12375 = 
(BgL_auxz00_12376==((long)93)); } 
if(BgL_testz00_12375)
{ /* ./Read/reader.scm 336 */
BgL_test4367z00_2312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12379;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12380;
BgL_auxz00_12380 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12379 = 
(BgL_auxz00_12380==((long)101)); } 
if(BgL_testz00_12379)
{ /* ./Read/reader.scm 336 */
BgL_test4367z00_2312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12383;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12384;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12385;
BgL_auxz00_12385 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12384 = 
(BgL_auxz00_12385==((long)125)); } 
if(BgL_testz00_12384)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12383 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12388;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12389;
BgL_auxz00_12389 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12388 = 
(BgL_auxz00_12389==((long)124)); } 
if(BgL_testz00_12388)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12383 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12392;
BgL_auxz00_12392 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_testz00_12383 = 
(BgL_auxz00_12392==((long)123)); } } } 
if(BgL_testz00_12383)
{ /* ./Read/reader.scm 336 */
BgL_test4367z00_2312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12395;
BgL_auxz00_12395 = 
(long)(BgL_currentzd2charzd2_2305); 
BgL_test4367z00_2312 = 
(BgL_auxz00_12395==((long)127)); } } } } } } } } } } } 
if(BgL_test4367z00_2312)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12268 = BgL_newzd2matchzd2_2304; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12401;long BgL_lastzd2matchzd2_12400;obj_t BgL_inputzd2portzd2_12399;
BgL_inputzd2portzd2_12399 = BgL_inputzd2portzd2_2300; 
BgL_lastzd2matchzd2_12400 = BgL_newzd2matchzd2_2304; 
BgL_thezd2rgczd2contextz00_12401 = BgL_thezd2rgczd2contextz00_2302; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_12401; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_12400; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_12399; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3669z00_1900;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12402;
BgL_auxz00_12402 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_test3669z00_1900 = 
(BgL_auxz00_12402==((long)46)); } 
if(BgL_test3669z00_1900)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12408;long BgL_lastzd2matchzd2_12407;obj_t BgL_inputzd2portzd2_12406;
BgL_inputzd2portzd2_12406 = BgL_inputzd2portzd2_1890; 
BgL_lastzd2matchzd2_12407 = BgL_newzd2matchzd2_1894; 
BgL_thezd2rgczd2contextz00_12408 = BgL_thezd2rgczd2contextz00_1892; 
BgL_thezd2rgczd2contextz00_2470 = BgL_thezd2rgczd2contextz00_12408; 
BgL_lastzd2matchzd2_2469 = BgL_lastzd2matchzd2_12407; 
BgL_inputzd2portzd2_2468 = BgL_inputzd2portzd2_12406; 
goto BgL_zc3anonymousza34637ze3z83_2471;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3671z00_1901;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12409;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12410;
BgL_auxz00_12410 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12409 = 
(BgL_auxz00_12410<((long)33)); } 
if(BgL_testz00_12409)
{ /* ./Read/reader.scm 336 */
BgL_test3671z00_1901 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12413;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12414;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12415;
BgL_auxz00_12415 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12414 = 
(BgL_auxz00_12415==((long)35)); } 
if(BgL_testz00_12414)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12413 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12418;
BgL_auxz00_12418 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12413 = 
(BgL_auxz00_12418==((long)34)); } } 
if(BgL_testz00_12413)
{ /* ./Read/reader.scm 336 */
BgL_test3671z00_1901 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12421;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12422;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12423;
BgL_auxz00_12423 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12422 = 
(BgL_auxz00_12423==((long)41)); } 
if(BgL_testz00_12422)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12421 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12426;
BgL_auxz00_12426 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12421 = 
(BgL_auxz00_12426==((long)40)); } } 
if(BgL_testz00_12421)
{ /* ./Read/reader.scm 336 */
BgL_test3671z00_1901 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test3669z00_1900)
{ /* ./Read/reader.scm 336 */
BgL_test3671z00_1901 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12430;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12431;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12432;
BgL_auxz00_12432 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12431 = 
(BgL_auxz00_12432>=((long)48)); } 
if(BgL_testz00_12431)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12435;
BgL_auxz00_12435 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12430 = 
(BgL_auxz00_12435<((long)60)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12430 = ((bool_t)0)
; } } 
if(BgL_testz00_12430)
{ /* ./Read/reader.scm 336 */
BgL_test3671z00_1901 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12438;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12439;
BgL_auxz00_12439 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12438 = 
(BgL_auxz00_12439==((long)91)); } 
if(BgL_testz00_12438)
{ /* ./Read/reader.scm 336 */
BgL_test3671z00_1901 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12442;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12443;
BgL_auxz00_12443 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12442 = 
(BgL_auxz00_12443==((long)93)); } 
if(BgL_testz00_12442)
{ /* ./Read/reader.scm 336 */
BgL_test3671z00_1901 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12446;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12447;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12448;
BgL_auxz00_12448 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12447 = 
(BgL_auxz00_12448==((long)125)); } 
if(BgL_testz00_12447)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12446 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12451;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12452;
BgL_auxz00_12452 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12451 = 
(BgL_auxz00_12452==((long)124)); } 
if(BgL_testz00_12451)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12446 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12455;
BgL_auxz00_12455 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_testz00_12446 = 
(BgL_auxz00_12455==((long)123)); } } } 
if(BgL_testz00_12446)
{ /* ./Read/reader.scm 336 */
BgL_test3671z00_1901 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12458;
BgL_auxz00_12458 = 
(long)(BgL_currentzd2charzd2_1895); 
BgL_test3671z00_1901 = 
(BgL_auxz00_12458==((long)127)); } } } } } } } } } 
if(BgL_test3671z00_1901)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12268 = BgL_newzd2matchzd2_1894; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12464;long BgL_lastzd2matchzd2_12463;obj_t BgL_inputzd2portzd2_12462;
BgL_inputzd2portzd2_12462 = BgL_inputzd2portzd2_1890; 
BgL_lastzd2matchzd2_12463 = BgL_newzd2matchzd2_1894; 
BgL_thezd2rgczd2contextz00_12464 = BgL_thezd2rgczd2contextz00_1892; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_12464; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_12463; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_12462; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } } } 
return 
BINT(BgL_auxz00_12268);} break;case ((long)93) : 
case ((long)41) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6140;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1671); 
BgL_newzd2matchzd2_6140 = ((long)34); 
return 
BINT(BgL_newzd2matchzd2_6140);} break;case ((long)91) : 
case ((long)40) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6145;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1671); 
BgL_newzd2matchzd2_6145 = ((long)33); 
return 
BINT(BgL_newzd2matchzd2_6145);} break;case ((long)39) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6150;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1671); 
BgL_newzd2matchzd2_6150 = ((long)29); 
return 
BINT(BgL_newzd2matchzd2_6150);} break;case ((long)35) : 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12472;
BgL_inputzd2portzd2_1661 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_1662 = BgL_lastzd2matchzd2_1672; 
BgL_thezd2rgczd2contextz00_1663 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza33223ze3z83_1664:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1665;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1661); 
BgL_newzd2matchzd2_1665 = ((long)41); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1666;
BgL_currentzd2charzd2_1666 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1661); 
switch( 
(long)(BgL_currentzd2charzd2_1666)) { case ((long)124) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6087;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1661); 
BgL_newzd2matchzd2_6087 = ((long)3); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_6087; } break;case ((long)123) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6092;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1661); 
BgL_newzd2matchzd2_6092 = ((long)37); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_6092; } break;case ((long)120) : 

BgL_inputzd2portzd2_1476 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_1477 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_1478 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza32905ze3z83_1479:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1480;
BgL_currentzd2charzd2_1480 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1476); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12478;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12479;
BgL_auxz00_12479 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12478 = 
(BgL_auxz00_12479==((long)0)); } 
if(BgL_testz00_12478)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2907z00_1482;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7962z00_5779;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5776;
BgL__andtest_1208z00_5776 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1476); 
if(BgL__andtest_1208z00_5776)
{ /* ./Read/reader.scm 336 */
BgL_res7962z00_5779 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1476); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7962z00_5779 = ((bool_t)0); } } 
BgL_test2907z00_1482 = BgL_res7962z00_5779; } 
if(BgL_test2907z00_1482)
{ 

goto BgL_zc3anonymousza32905ze3z83_1479;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1477
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2910z00_1483;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12486;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12487;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12488;
BgL_auxz00_12488 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12487 = 
(BgL_auxz00_12488>=((long)65)); } 
if(BgL_testz00_12487)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12491;
BgL_auxz00_12491 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12486 = 
(BgL_auxz00_12491<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12486 = ((bool_t)0)
; } } 
if(BgL_testz00_12486)
{ /* ./Read/reader.scm 336 */
BgL_test2910z00_1483 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12494;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12495;
BgL_auxz00_12495 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12494 = 
(BgL_auxz00_12495>=((long)97)); } 
if(BgL_testz00_12494)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12498;
BgL_auxz00_12498 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_test2910z00_1483 = 
(BgL_auxz00_12498<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2910z00_1483 = ((bool_t)0); } } } 
if(BgL_test2910z00_1483)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1514 = BgL_inputzd2portzd2_1476; 
BgL_lastzd2matchzd2_1515 = BgL_lastzd2matchzd2_1477; 
BgL_thezd2rgczd2contextz00_1516 = BgL_thezd2rgczd2contextz00_1478; 
BgL_zc3anonymousza32978ze3z83_1517:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1518;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1514); 
BgL_newzd2matchzd2_1518 = ((long)17); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1519;
BgL_currentzd2charzd2_1519 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1514); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12504;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12505;
BgL_auxz00_12505 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12504 = 
(BgL_auxz00_12505==((long)0)); } 
if(BgL_testz00_12504)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2980z00_1521;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7963z00_5855;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5852;
BgL__andtest_1208z00_5852 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1514); 
if(BgL__andtest_1208z00_5852)
{ /* ./Read/reader.scm 336 */
BgL_res7963z00_5855 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1514); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7963z00_5855 = ((bool_t)0); } } 
BgL_test2980z00_1521 = BgL_res7963z00_5855; } 
if(BgL_test2980z00_1521)
{ 

goto BgL_zc3anonymousza32978ze3z83_1517;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1518
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2983z00_1522;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12512;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12513;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12514;
BgL_auxz00_12514 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12513 = 
(BgL_auxz00_12514>=((long)48)); } 
if(BgL_testz00_12513)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12517;
BgL_auxz00_12517 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12512 = 
(BgL_auxz00_12517<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12512 = ((bool_t)0)
; } } 
if(BgL_testz00_12512)
{ /* ./Read/reader.scm 336 */
BgL_test2983z00_1522 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12520;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12521;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12522;
BgL_auxz00_12522 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12521 = 
(BgL_auxz00_12522>=((long)65)); } 
if(BgL_testz00_12521)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12525;
BgL_auxz00_12525 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12520 = 
(BgL_auxz00_12525<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12520 = ((bool_t)0)
; } } 
if(BgL_testz00_12520)
{ /* ./Read/reader.scm 336 */
BgL_test2983z00_1522 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12528;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12529;
BgL_auxz00_12529 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12528 = 
(BgL_auxz00_12529>=((long)97)); } 
if(BgL_testz00_12528)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12532;
BgL_auxz00_12532 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_test2983z00_1522 = 
(BgL_auxz00_12532<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2983z00_1522 = ((bool_t)0); } } } } 
if(BgL_test2983z00_1522)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_12536;
BgL_lastzd2matchzd2_12536 = BgL_newzd2matchzd2_1518; 
BgL_lastzd2matchzd2_1515 = BgL_lastzd2matchzd2_12536; 
goto BgL_zc3anonymousza32978ze3z83_1517;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2985z00_1523;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12537;
BgL_auxz00_12537 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_test2985z00_1523 = 
(BgL_auxz00_12537==((long)40)); } 
if(BgL_test2985z00_1523)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5873;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1514); 
BgL_newzd2matchzd2_5873 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5873; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2987z00_1524;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12542;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12543;
BgL_auxz00_12543 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12542 = 
(BgL_auxz00_12543<((long)33)); } 
if(BgL_testz00_12542)
{ /* ./Read/reader.scm 336 */
BgL_test2987z00_1524 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12546;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12547;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12548;
BgL_auxz00_12548 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12547 = 
(BgL_auxz00_12548==((long)35)); } 
if(BgL_testz00_12547)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12546 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12551;
BgL_auxz00_12551 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12546 = 
(BgL_auxz00_12551==((long)34)); } } 
if(BgL_testz00_12546)
{ /* ./Read/reader.scm 336 */
BgL_test2987z00_1524 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12554;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12555;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12556;
BgL_auxz00_12556 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12555 = 
(BgL_auxz00_12556==((long)41)); } 
if(BgL_testz00_12555)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12554 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12554 = BgL_test2985z00_1523
; } } 
if(BgL_testz00_12554)
{ /* ./Read/reader.scm 336 */
BgL_test2987z00_1524 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12559;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12560;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12561;
BgL_auxz00_12561 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12560 = 
(BgL_auxz00_12561>=((long)48)); } 
if(BgL_testz00_12560)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12564;
BgL_auxz00_12564 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12559 = 
(BgL_auxz00_12564<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12559 = ((bool_t)0)
; } } 
if(BgL_testz00_12559)
{ /* ./Read/reader.scm 336 */
BgL_test2987z00_1524 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12567;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12568;
BgL_auxz00_12568 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12567 = 
(BgL_auxz00_12568==((long)59)); } 
if(BgL_testz00_12567)
{ /* ./Read/reader.scm 336 */
BgL_test2987z00_1524 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12571;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12572;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12573;
BgL_auxz00_12573 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12572 = 
(BgL_auxz00_12573>=((long)65)); } 
if(BgL_testz00_12572)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12576;
BgL_auxz00_12576 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12571 = 
(BgL_auxz00_12576<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12571 = ((bool_t)0)
; } } 
if(BgL_testz00_12571)
{ /* ./Read/reader.scm 336 */
BgL_test2987z00_1524 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12579;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12580;
BgL_auxz00_12580 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12579 = 
(BgL_auxz00_12580==((long)91)); } 
if(BgL_testz00_12579)
{ /* ./Read/reader.scm 336 */
BgL_test2987z00_1524 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12583;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12584;
BgL_auxz00_12584 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12583 = 
(BgL_auxz00_12584==((long)93)); } 
if(BgL_testz00_12583)
{ /* ./Read/reader.scm 336 */
BgL_test2987z00_1524 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12587;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12588;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12589;
BgL_auxz00_12589 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12588 = 
(BgL_auxz00_12589>=((long)97)); } 
if(BgL_testz00_12588)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12592;
BgL_auxz00_12592 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12587 = 
(BgL_auxz00_12592<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12587 = ((bool_t)0)
; } } 
if(BgL_testz00_12587)
{ /* ./Read/reader.scm 336 */
BgL_test2987z00_1524 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12595;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12596;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12597;
BgL_auxz00_12597 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12596 = 
(BgL_auxz00_12597==((long)125)); } 
if(BgL_testz00_12596)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12595 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12600;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12601;
BgL_auxz00_12601 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12600 = 
(BgL_auxz00_12601==((long)124)); } 
if(BgL_testz00_12600)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12595 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12604;
BgL_auxz00_12604 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_testz00_12595 = 
(BgL_auxz00_12604==((long)123)); } } } 
if(BgL_testz00_12595)
{ /* ./Read/reader.scm 336 */
BgL_test2987z00_1524 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12607;
BgL_auxz00_12607 = 
(long)(BgL_currentzd2charzd2_1519); 
BgL_test2987z00_1524 = 
(BgL_auxz00_12607==((long)127)); } } } } } } } } } } } 
if(BgL_test2987z00_1524)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1518; }  else 
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_1514; 
BgL_lastzd2matchzd2_3035 = BgL_newzd2matchzd2_1518; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_1516; 
BgL_zc3anonymousza35608ze3z83_3037:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_3038;
BgL_currentzd2charzd2_3038 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3034); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12612;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12613;
BgL_auxz00_12613 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_testz00_12612 = 
(BgL_auxz00_12613==((long)0)); } 
if(BgL_testz00_12612)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5610z00_3040;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8024z00_8618;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8615;
BgL__andtest_1208z00_8615 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3034); 
if(BgL__andtest_1208z00_8615)
{ /* ./Read/reader.scm 336 */
BgL_res8024z00_8618 = 
rgc_fill_buffer(BgL_inputzd2portzd2_3034); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8024z00_8618 = ((bool_t)0); } } 
BgL_test5610z00_3040 = BgL_res8024z00_8618; } 
if(BgL_test5610z00_3040)
{ 

goto BgL_zc3anonymousza35608ze3z83_3037;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_3035
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5613z00_3041;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12620;
BgL_auxz00_12620 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_test5613z00_3041 = 
(BgL_auxz00_12620==((long)40)); } 
if(BgL_test5613z00_3041)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_8624;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3034); 
BgL_newzd2matchzd2_8624 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_8624; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5615z00_3042;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12625;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12626;
BgL_auxz00_12626 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_testz00_12625 = 
(BgL_auxz00_12626<((long)33)); } 
if(BgL_testz00_12625)
{ /* ./Read/reader.scm 336 */
BgL_test5615z00_3042 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12629;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12630;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12631;
BgL_auxz00_12631 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_testz00_12630 = 
(BgL_auxz00_12631==((long)35)); } 
if(BgL_testz00_12630)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12629 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12634;
BgL_auxz00_12634 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_testz00_12629 = 
(BgL_auxz00_12634==((long)34)); } } 
if(BgL_testz00_12629)
{ /* ./Read/reader.scm 336 */
BgL_test5615z00_3042 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12637;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12638;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12639;
BgL_auxz00_12639 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_testz00_12638 = 
(BgL_auxz00_12639==((long)41)); } 
if(BgL_testz00_12638)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12637 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12637 = BgL_test5613z00_3041
; } } 
if(BgL_testz00_12637)
{ /* ./Read/reader.scm 336 */
BgL_test5615z00_3042 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12642;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12643;
BgL_auxz00_12643 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_testz00_12642 = 
(BgL_auxz00_12643==((long)59)); } 
if(BgL_testz00_12642)
{ /* ./Read/reader.scm 336 */
BgL_test5615z00_3042 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12646;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12647;
BgL_auxz00_12647 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_testz00_12646 = 
(BgL_auxz00_12647==((long)91)); } 
if(BgL_testz00_12646)
{ /* ./Read/reader.scm 336 */
BgL_test5615z00_3042 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12650;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12651;
BgL_auxz00_12651 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_testz00_12650 = 
(BgL_auxz00_12651==((long)93)); } 
if(BgL_testz00_12650)
{ /* ./Read/reader.scm 336 */
BgL_test5615z00_3042 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12654;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12655;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12656;
BgL_auxz00_12656 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_testz00_12655 = 
(BgL_auxz00_12656==((long)125)); } 
if(BgL_testz00_12655)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12654 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12659;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12660;
BgL_auxz00_12660 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_testz00_12659 = 
(BgL_auxz00_12660==((long)124)); } 
if(BgL_testz00_12659)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12654 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12663;
BgL_auxz00_12663 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_testz00_12654 = 
(BgL_auxz00_12663==((long)123)); } } } 
if(BgL_testz00_12654)
{ /* ./Read/reader.scm 336 */
BgL_test5615z00_3042 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12666;
BgL_auxz00_12666 = 
(long)(BgL_currentzd2charzd2_3038); 
BgL_test5615z00_3042 = 
(BgL_auxz00_12666==((long)127)); } } } } } } } } 
if(BgL_test5615z00_3042)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_3035; }  else 
{ /* ./Read/reader.scm 336 */
{ 

goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2912z00_1484;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12670;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12671;
BgL_auxz00_12671 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12670 = 
(BgL_auxz00_12671>=((long)48)); } 
if(BgL_testz00_12670)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12674;
BgL_auxz00_12674 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_test2912z00_1484 = 
(BgL_auxz00_12674<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2912z00_1484 = ((bool_t)0); } } 
if(BgL_test2912z00_1484)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1337 = BgL_inputzd2portzd2_1476; 
BgL_lastzd2matchzd2_1338 = BgL_lastzd2matchzd2_1477; 
BgL_thezd2rgczd2contextz00_1339 = BgL_thezd2rgczd2contextz00_1478; 
BgL_zc3anonymousza32656ze3z83_1340:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1341;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1337); 
BgL_newzd2matchzd2_1341 = ((long)17); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1342;
BgL_currentzd2charzd2_1342 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1337); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12680;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12681;
BgL_auxz00_12681 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12680 = 
(BgL_auxz00_12681==((long)0)); } 
if(BgL_testz00_12680)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2658z00_1344;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7957z00_5537;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5534;
BgL__andtest_1208z00_5534 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1337); 
if(BgL__andtest_1208z00_5534)
{ /* ./Read/reader.scm 336 */
BgL_res7957z00_5537 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1337); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7957z00_5537 = ((bool_t)0); } } 
BgL_test2658z00_1344 = BgL_res7957z00_5537; } 
if(BgL_test2658z00_1344)
{ 

goto BgL_zc3anonymousza32656ze3z83_1340;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1341
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2661z00_1345;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12688;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12689;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12690;
BgL_auxz00_12690 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12689 = 
(BgL_auxz00_12690>=((long)65)); } 
if(BgL_testz00_12689)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12693;
BgL_auxz00_12693 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12688 = 
(BgL_auxz00_12693<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12688 = ((bool_t)0)
; } } 
if(BgL_testz00_12688)
{ /* ./Read/reader.scm 336 */
BgL_test2661z00_1345 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12696;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12697;
BgL_auxz00_12697 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12696 = 
(BgL_auxz00_12697>=((long)97)); } 
if(BgL_testz00_12696)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12700;
BgL_auxz00_12700 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_test2661z00_1345 = 
(BgL_auxz00_12700<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2661z00_1345 = ((bool_t)0); } } } 
if(BgL_test2661z00_1345)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12706;long BgL_lastzd2matchzd2_12705;obj_t BgL_inputzd2portzd2_12704;
BgL_inputzd2portzd2_12704 = BgL_inputzd2portzd2_1337; 
BgL_lastzd2matchzd2_12705 = BgL_newzd2matchzd2_1341; 
BgL_thezd2rgczd2contextz00_12706 = BgL_thezd2rgczd2contextz00_1339; 
BgL_thezd2rgczd2contextz00_1516 = BgL_thezd2rgczd2contextz00_12706; 
BgL_lastzd2matchzd2_1515 = BgL_lastzd2matchzd2_12705; 
BgL_inputzd2portzd2_1514 = BgL_inputzd2portzd2_12704; 
goto BgL_zc3anonymousza32978ze3z83_1517;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2663z00_1346;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12707;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12708;
BgL_auxz00_12708 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12707 = 
(BgL_auxz00_12708>=((long)48)); } 
if(BgL_testz00_12707)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12711;
BgL_auxz00_12711 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_test2663z00_1346 = 
(BgL_auxz00_12711<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2663z00_1346 = ((bool_t)0); } } 
if(BgL_test2663z00_1346)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_12715;
BgL_lastzd2matchzd2_12715 = BgL_newzd2matchzd2_1341; 
BgL_lastzd2matchzd2_1338 = BgL_lastzd2matchzd2_12715; 
goto BgL_zc3anonymousza32656ze3z83_1340;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2665z00_1347;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12716;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12717;
BgL_auxz00_12717 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12716 = 
(BgL_auxz00_12717<((long)33)); } 
if(BgL_testz00_12716)
{ /* ./Read/reader.scm 336 */
BgL_test2665z00_1347 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12720;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12721;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12722;
BgL_auxz00_12722 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12721 = 
(BgL_auxz00_12722==((long)35)); } 
if(BgL_testz00_12721)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12720 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12725;
BgL_auxz00_12725 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12720 = 
(BgL_auxz00_12725==((long)34)); } } 
if(BgL_testz00_12720)
{ /* ./Read/reader.scm 336 */
BgL_test2665z00_1347 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12728;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12729;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12730;
BgL_auxz00_12730 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12729 = 
(BgL_auxz00_12730==((long)41)); } 
if(BgL_testz00_12729)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12728 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12733;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12734;
BgL_auxz00_12734 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12733 = 
(BgL_auxz00_12734==((long)40)); } 
if(BgL_testz00_12733)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12728 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12737;
BgL_auxz00_12737 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12728 = 
(BgL_auxz00_12737==((long)39)); } } } 
if(BgL_testz00_12728)
{ /* ./Read/reader.scm 336 */
BgL_test2665z00_1347 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12740;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12741;
BgL_auxz00_12741 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12740 = 
(BgL_auxz00_12741==((long)44)); } 
if(BgL_testz00_12740)
{ /* ./Read/reader.scm 336 */
BgL_test2665z00_1347 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test2663z00_1346)
{ /* ./Read/reader.scm 336 */
BgL_test2665z00_1347 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12745;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12746;
BgL_auxz00_12746 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12745 = 
(BgL_auxz00_12746==((long)59)); } 
if(BgL_testz00_12745)
{ /* ./Read/reader.scm 336 */
BgL_test2665z00_1347 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12749;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12750;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12751;
BgL_auxz00_12751 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12750 = 
(BgL_auxz00_12751>=((long)65)); } 
if(BgL_testz00_12750)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12754;
BgL_auxz00_12754 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12749 = 
(BgL_auxz00_12754<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12749 = ((bool_t)0)
; } } 
if(BgL_testz00_12749)
{ /* ./Read/reader.scm 336 */
BgL_test2665z00_1347 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12757;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12758;
BgL_auxz00_12758 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12757 = 
(BgL_auxz00_12758==((long)91)); } 
if(BgL_testz00_12757)
{ /* ./Read/reader.scm 336 */
BgL_test2665z00_1347 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12761;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12762;
BgL_auxz00_12762 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12761 = 
(BgL_auxz00_12762==((long)93)); } 
if(BgL_testz00_12761)
{ /* ./Read/reader.scm 336 */
BgL_test2665z00_1347 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12765;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12766;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12767;
BgL_auxz00_12767 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12766 = 
(BgL_auxz00_12767>=((long)96)); } 
if(BgL_testz00_12766)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12770;
BgL_auxz00_12770 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12765 = 
(BgL_auxz00_12770<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12765 = ((bool_t)0)
; } } 
if(BgL_testz00_12765)
{ /* ./Read/reader.scm 336 */
BgL_test2665z00_1347 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12773;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12774;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12775;
BgL_auxz00_12775 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12774 = 
(BgL_auxz00_12775==((long)125)); } 
if(BgL_testz00_12774)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12773 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12778;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12779;
BgL_auxz00_12779 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12778 = 
(BgL_auxz00_12779==((long)124)); } 
if(BgL_testz00_12778)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12773 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12782;
BgL_auxz00_12782 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_testz00_12773 = 
(BgL_auxz00_12782==((long)123)); } } } 
if(BgL_testz00_12773)
{ /* ./Read/reader.scm 336 */
BgL_test2665z00_1347 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12785;
BgL_auxz00_12785 = 
(long)(BgL_currentzd2charzd2_1342); 
BgL_test2665z00_1347 = 
(BgL_auxz00_12785==((long)127)); } } } } } } } } } } } } 
if(BgL_test2665z00_1347)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1341; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12791;long BgL_lastzd2matchzd2_12790;obj_t BgL_inputzd2portzd2_12789;
BgL_inputzd2portzd2_12789 = BgL_inputzd2portzd2_1337; 
BgL_lastzd2matchzd2_12790 = BgL_newzd2matchzd2_1341; 
BgL_thezd2rgczd2contextz00_12791 = BgL_thezd2rgczd2contextz00_1339; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_12791; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_12790; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_12789; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2914z00_1485;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12792;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12793;
BgL_auxz00_12793 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12792 = 
(BgL_auxz00_12793==((long)43)); } 
if(BgL_testz00_12792)
{ /* ./Read/reader.scm 336 */
BgL_test2914z00_1485 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12796;
BgL_auxz00_12796 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_test2914z00_1485 = 
(BgL_auxz00_12796==((long)45)); } } 
if(BgL_test2914z00_1485)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1305 = BgL_inputzd2portzd2_1476; 
BgL_lastzd2matchzd2_1306 = BgL_lastzd2matchzd2_1477; 
BgL_thezd2rgczd2contextz00_1307 = BgL_thezd2rgczd2contextz00_1478; 
BgL_zc3anonymousza32597ze3z83_1308:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1309;
BgL_currentzd2charzd2_1309 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1305); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12801;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12802;
BgL_auxz00_12802 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12801 = 
(BgL_auxz00_12802==((long)0)); } 
if(BgL_testz00_12801)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2599z00_1311;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7956z00_5473;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5470;
BgL__andtest_1208z00_5470 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1305); 
if(BgL__andtest_1208z00_5470)
{ /* ./Read/reader.scm 336 */
BgL_res7956z00_5473 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1305); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7956z00_5473 = ((bool_t)0); } } 
BgL_test2599z00_1311 = BgL_res7956z00_5473; } 
if(BgL_test2599z00_1311)
{ 

goto BgL_zc3anonymousza32597ze3z83_1308;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1306
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2602z00_1312;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12809;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12810;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12811;
BgL_auxz00_12811 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12810 = 
(BgL_auxz00_12811>=((long)48)); } 
if(BgL_testz00_12810)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12814;
BgL_auxz00_12814 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12809 = 
(BgL_auxz00_12814<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12809 = ((bool_t)0)
; } } 
if(BgL_testz00_12809)
{ /* ./Read/reader.scm 336 */
BgL_test2602z00_1312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12817;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12818;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12819;
BgL_auxz00_12819 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12818 = 
(BgL_auxz00_12819>=((long)65)); } 
if(BgL_testz00_12818)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12822;
BgL_auxz00_12822 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12817 = 
(BgL_auxz00_12822<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12817 = ((bool_t)0)
; } } 
if(BgL_testz00_12817)
{ /* ./Read/reader.scm 336 */
BgL_test2602z00_1312 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12825;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12826;
BgL_auxz00_12826 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12825 = 
(BgL_auxz00_12826>=((long)97)); } 
if(BgL_testz00_12825)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12829;
BgL_auxz00_12829 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_test2602z00_1312 = 
(BgL_auxz00_12829<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2602z00_1312 = ((bool_t)0); } } } } 
if(BgL_test2602z00_1312)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12835;long BgL_lastzd2matchzd2_12834;obj_t BgL_inputzd2portzd2_12833;
BgL_inputzd2portzd2_12833 = BgL_inputzd2portzd2_1305; 
BgL_lastzd2matchzd2_12834 = BgL_lastzd2matchzd2_1306; 
BgL_thezd2rgczd2contextz00_12835 = BgL_thezd2rgczd2contextz00_1307; 
BgL_thezd2rgczd2contextz00_1516 = BgL_thezd2rgczd2contextz00_12835; 
BgL_lastzd2matchzd2_1515 = BgL_lastzd2matchzd2_12834; 
BgL_inputzd2portzd2_1514 = BgL_inputzd2portzd2_12833; 
goto BgL_zc3anonymousza32978ze3z83_1517;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2604z00_1313;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12836;
BgL_auxz00_12836 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_test2604z00_1313 = 
(BgL_auxz00_12836==((long)40)); } 
if(BgL_test2604z00_1313)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5491;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1305); 
BgL_newzd2matchzd2_5491 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5491; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2606z00_1314;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12841;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12842;
BgL_auxz00_12842 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12841 = 
(BgL_auxz00_12842<((long)33)); } 
if(BgL_testz00_12841)
{ /* ./Read/reader.scm 336 */
BgL_test2606z00_1314 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12845;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12846;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12847;
BgL_auxz00_12847 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12846 = 
(BgL_auxz00_12847==((long)35)); } 
if(BgL_testz00_12846)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12845 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12850;
BgL_auxz00_12850 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12845 = 
(BgL_auxz00_12850==((long)34)); } } 
if(BgL_testz00_12845)
{ /* ./Read/reader.scm 336 */
BgL_test2606z00_1314 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12853;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12854;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12855;
BgL_auxz00_12855 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12854 = 
(BgL_auxz00_12855==((long)41)); } 
if(BgL_testz00_12854)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12853 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12853 = BgL_test2604z00_1313
; } } 
if(BgL_testz00_12853)
{ /* ./Read/reader.scm 336 */
BgL_test2606z00_1314 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12858;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12859;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12860;
BgL_auxz00_12860 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12859 = 
(BgL_auxz00_12860>=((long)48)); } 
if(BgL_testz00_12859)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12863;
BgL_auxz00_12863 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12858 = 
(BgL_auxz00_12863<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12858 = ((bool_t)0)
; } } 
if(BgL_testz00_12858)
{ /* ./Read/reader.scm 336 */
BgL_test2606z00_1314 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12866;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12867;
BgL_auxz00_12867 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12866 = 
(BgL_auxz00_12867==((long)59)); } 
if(BgL_testz00_12866)
{ /* ./Read/reader.scm 336 */
BgL_test2606z00_1314 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12870;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12871;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12872;
BgL_auxz00_12872 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12871 = 
(BgL_auxz00_12872>=((long)65)); } 
if(BgL_testz00_12871)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12875;
BgL_auxz00_12875 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12870 = 
(BgL_auxz00_12875<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12870 = ((bool_t)0)
; } } 
if(BgL_testz00_12870)
{ /* ./Read/reader.scm 336 */
BgL_test2606z00_1314 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12878;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12879;
BgL_auxz00_12879 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12878 = 
(BgL_auxz00_12879==((long)91)); } 
if(BgL_testz00_12878)
{ /* ./Read/reader.scm 336 */
BgL_test2606z00_1314 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12882;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12883;
BgL_auxz00_12883 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12882 = 
(BgL_auxz00_12883==((long)93)); } 
if(BgL_testz00_12882)
{ /* ./Read/reader.scm 336 */
BgL_test2606z00_1314 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12886;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12887;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12888;
BgL_auxz00_12888 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12887 = 
(BgL_auxz00_12888>=((long)97)); } 
if(BgL_testz00_12887)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12891;
BgL_auxz00_12891 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12886 = 
(BgL_auxz00_12891<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12886 = ((bool_t)0)
; } } 
if(BgL_testz00_12886)
{ /* ./Read/reader.scm 336 */
BgL_test2606z00_1314 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12894;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12895;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12896;
BgL_auxz00_12896 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12895 = 
(BgL_auxz00_12896==((long)125)); } 
if(BgL_testz00_12895)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12894 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12899;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12900;
BgL_auxz00_12900 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12899 = 
(BgL_auxz00_12900==((long)124)); } 
if(BgL_testz00_12899)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12894 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12903;
BgL_auxz00_12903 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_testz00_12894 = 
(BgL_auxz00_12903==((long)123)); } } } 
if(BgL_testz00_12894)
{ /* ./Read/reader.scm 336 */
BgL_test2606z00_1314 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12906;
BgL_auxz00_12906 = 
(long)(BgL_currentzd2charzd2_1309); 
BgL_test2606z00_1314 = 
(BgL_auxz00_12906==((long)127)); } } } } } } } } } } } 
if(BgL_test2606z00_1314)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1306; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_12912;long BgL_lastzd2matchzd2_12911;obj_t BgL_inputzd2portzd2_12910;
BgL_inputzd2portzd2_12910 = BgL_inputzd2portzd2_1305; 
BgL_lastzd2matchzd2_12911 = BgL_lastzd2matchzd2_1306; 
BgL_thezd2rgczd2contextz00_12912 = BgL_thezd2rgczd2contextz00_1307; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_12912; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_12911; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_12910; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2916z00_1486;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12913;
BgL_auxz00_12913 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_test2916z00_1486 = 
(BgL_auxz00_12913==((long)40)); } 
if(BgL_test2916z00_1486)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5801;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1476); 
BgL_newzd2matchzd2_5801 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5801; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2918z00_1487;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12918;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12919;
BgL_auxz00_12919 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12918 = 
(BgL_auxz00_12919<((long)33)); } 
if(BgL_testz00_12918)
{ /* ./Read/reader.scm 336 */
BgL_test2918z00_1487 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12922;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12923;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12924;
BgL_auxz00_12924 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12923 = 
(BgL_auxz00_12924==((long)35)); } 
if(BgL_testz00_12923)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12922 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12927;
BgL_auxz00_12927 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12922 = 
(BgL_auxz00_12927==((long)34)); } } 
if(BgL_testz00_12922)
{ /* ./Read/reader.scm 336 */
BgL_test2918z00_1487 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12930;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12931;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12932;
BgL_auxz00_12932 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12931 = 
(BgL_auxz00_12932==((long)41)); } 
if(BgL_testz00_12931)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12930 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test2916z00_1486)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12930 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12936;
BgL_auxz00_12936 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12930 = 
(BgL_auxz00_12936==((long)39)); } } } 
if(BgL_testz00_12930)
{ /* ./Read/reader.scm 336 */
BgL_test2918z00_1487 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12939;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12940;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12941;
BgL_auxz00_12941 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12940 = 
(BgL_auxz00_12941==((long)45)); } 
if(BgL_testz00_12940)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12939 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12944;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12945;
BgL_auxz00_12945 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12944 = 
(BgL_auxz00_12945==((long)44)); } 
if(BgL_testz00_12944)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12939 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12948;
BgL_auxz00_12948 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12939 = 
(BgL_auxz00_12948==((long)43)); } } } 
if(BgL_testz00_12939)
{ /* ./Read/reader.scm 336 */
BgL_test2918z00_1487 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12951;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12952;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12953;
BgL_auxz00_12953 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12952 = 
(BgL_auxz00_12953>=((long)48)); } 
if(BgL_testz00_12952)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12956;
BgL_auxz00_12956 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12951 = 
(BgL_auxz00_12956<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12951 = ((bool_t)0)
; } } 
if(BgL_testz00_12951)
{ /* ./Read/reader.scm 336 */
BgL_test2918z00_1487 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12959;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12960;
BgL_auxz00_12960 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12959 = 
(BgL_auxz00_12960==((long)59)); } 
if(BgL_testz00_12959)
{ /* ./Read/reader.scm 336 */
BgL_test2918z00_1487 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12963;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12964;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12965;
BgL_auxz00_12965 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12964 = 
(BgL_auxz00_12965>=((long)65)); } 
if(BgL_testz00_12964)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12968;
BgL_auxz00_12968 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12963 = 
(BgL_auxz00_12968<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12963 = ((bool_t)0)
; } } 
if(BgL_testz00_12963)
{ /* ./Read/reader.scm 336 */
BgL_test2918z00_1487 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12971;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12972;
BgL_auxz00_12972 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12971 = 
(BgL_auxz00_12972==((long)91)); } 
if(BgL_testz00_12971)
{ /* ./Read/reader.scm 336 */
BgL_test2918z00_1487 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12975;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12976;
BgL_auxz00_12976 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12975 = 
(BgL_auxz00_12976==((long)93)); } 
if(BgL_testz00_12975)
{ /* ./Read/reader.scm 336 */
BgL_test2918z00_1487 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12979;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12980;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12981;
BgL_auxz00_12981 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12980 = 
(BgL_auxz00_12981>=((long)96)); } 
if(BgL_testz00_12980)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12984;
BgL_auxz00_12984 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12979 = 
(BgL_auxz00_12984<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_12979 = ((bool_t)0)
; } } 
if(BgL_testz00_12979)
{ /* ./Read/reader.scm 336 */
BgL_test2918z00_1487 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12987;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12988;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12989;
BgL_auxz00_12989 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12988 = 
(BgL_auxz00_12989==((long)125)); } 
if(BgL_testz00_12988)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12987 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_12992;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12993;
BgL_auxz00_12993 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12992 = 
(BgL_auxz00_12993==((long)124)); } 
if(BgL_testz00_12992)
{ /* ./Read/reader.scm 336 */
BgL_testz00_12987 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12996;
BgL_auxz00_12996 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_testz00_12987 = 
(BgL_auxz00_12996==((long)123)); } } } 
if(BgL_testz00_12987)
{ /* ./Read/reader.scm 336 */
BgL_test2918z00_1487 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_12999;
BgL_auxz00_12999 = 
(long)(BgL_currentzd2charzd2_1480); 
BgL_test2918z00_1487 = 
(BgL_auxz00_12999==((long)127)); } } } } } } } } } } } } 
if(BgL_test2918z00_1487)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1477; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_13005;long BgL_lastzd2matchzd2_13004;obj_t BgL_inputzd2portzd2_13003;
BgL_inputzd2portzd2_13003 = BgL_inputzd2portzd2_1476; 
BgL_lastzd2matchzd2_13004 = BgL_lastzd2matchzd2_1477; 
BgL_thezd2rgczd2contextz00_13005 = BgL_thezd2rgczd2contextz00_1478; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_13005; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_13004; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_13003; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } } break;case ((long)117) : 

BgL_inputzd2portzd2_2982 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_2983 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_2984 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza35505ze3z83_2985:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2986;
BgL_currentzd2charzd2_2986 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2982); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13007;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13008;
BgL_auxz00_13008 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_13007 = 
(BgL_auxz00_13008==((long)0)); } 
if(BgL_testz00_13007)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5507z00_2988;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8023z00_8515;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8512;
BgL__andtest_1208z00_8512 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2982); 
if(BgL__andtest_1208z00_8512)
{ /* ./Read/reader.scm 336 */
BgL_res8023z00_8515 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2982); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8023z00_8515 = ((bool_t)0); } } 
BgL_test5507z00_2988 = BgL_res8023z00_8515; } 
if(BgL_test5507z00_2988)
{ 

goto BgL_zc3anonymousza35505ze3z83_2985;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2983
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5510z00_2989;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13015;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13016;
BgL_auxz00_13016 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_13015 = 
(BgL_auxz00_13016>=((long)98)); } 
if(BgL_testz00_13015)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13019;
BgL_auxz00_13019 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_test5510z00_2989 = 
(BgL_auxz00_13019<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5510z00_2989 = ((bool_t)0); } } 
if(BgL_test5510z00_2989)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1058 = BgL_inputzd2portzd2_2982; 
BgL_lastzd2matchzd2_1059 = BgL_lastzd2matchzd2_2983; 
BgL_thezd2rgczd2contextz00_1060 = BgL_thezd2rgczd2contextz00_2984; 
BgL_zc3anonymousza32154ze3z83_1061:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1062;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1058); 
BgL_newzd2matchzd2_1062 = ((long)22); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1063;
BgL_currentzd2charzd2_1063 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1058); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13025;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13026;
BgL_auxz00_13026 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_13025 = 
(BgL_auxz00_13026==((long)0)); } 
if(BgL_testz00_13025)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2156z00_1065;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7947z00_5028;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5025;
BgL__andtest_1208z00_5025 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1058); 
if(BgL__andtest_1208z00_5025)
{ /* ./Read/reader.scm 336 */
BgL_res7947z00_5028 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1058); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7947z00_5028 = ((bool_t)0); } } 
BgL_test2156z00_1065 = BgL_res7947z00_5028; } 
if(BgL_test2156z00_1065)
{ 

goto BgL_zc3anonymousza32154ze3z83_1061;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1062
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2159z00_1066;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13033;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13034;
BgL_auxz00_13034 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_13033 = 
(BgL_auxz00_13034>=((long)98)); } 
if(BgL_testz00_13033)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13037;
BgL_auxz00_13037 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_test2159z00_1066 = 
(BgL_auxz00_13037<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2159z00_1066 = ((bool_t)0); } } 
if(BgL_test2159z00_1066)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2625 = BgL_inputzd2portzd2_1058; 
BgL_lastzd2matchzd2_2626 = BgL_newzd2matchzd2_1062; 
BgL_thezd2rgczd2contextz00_2627 = BgL_thezd2rgczd2contextz00_1060; 
BgL_zc3anonymousza34920ze3z83_2628:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2629;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2625); 
BgL_newzd2matchzd2_2629 = ((long)22); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2630;
BgL_currentzd2charzd2_2630 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2625); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13043;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13044;
BgL_auxz00_13044 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13043 = 
(BgL_auxz00_13044==((long)0)); } 
if(BgL_testz00_13043)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4922z00_2632;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8011z00_7898;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7895;
BgL__andtest_1208z00_7895 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2625); 
if(BgL__andtest_1208z00_7895)
{ /* ./Read/reader.scm 336 */
BgL_res8011z00_7898 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2625); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8011z00_7898 = ((bool_t)0); } } 
BgL_test4922z00_2632 = BgL_res8011z00_7898; } 
if(BgL_test4922z00_2632)
{ 

goto BgL_zc3anonymousza34920ze3z83_2628;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2629
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4925z00_2633;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13051;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13052;
BgL_auxz00_13052 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13051 = 
(BgL_auxz00_13052>=((long)98)); } 
if(BgL_testz00_13051)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13055;
BgL_auxz00_13055 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_test4925z00_2633 = 
(BgL_auxz00_13055<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4925z00_2633 = ((bool_t)0); } } 
if(BgL_test4925z00_2633)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1713 = BgL_inputzd2portzd2_2625; 
BgL_lastzd2matchzd2_1714 = BgL_newzd2matchzd2_2629; 
BgL_thezd2rgczd2contextz00_1715 = BgL_thezd2rgczd2contextz00_2627; 
BgL_zc3anonymousza33341ze3z83_1716:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1717;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1713); 
BgL_newzd2matchzd2_1717 = ((long)22); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1718;
BgL_currentzd2charzd2_1718 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1713); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13061;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13062;
BgL_auxz00_13062 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13061 = 
(BgL_auxz00_13062==((long)0)); } 
if(BgL_testz00_13061)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3343z00_1720;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7973z00_6252;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6249;
BgL__andtest_1208z00_6249 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1713); 
if(BgL__andtest_1208z00_6249)
{ /* ./Read/reader.scm 336 */
BgL_res7973z00_6252 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1713); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7973z00_6252 = ((bool_t)0); } } 
BgL_test3343z00_1720 = BgL_res7973z00_6252; } 
if(BgL_test3343z00_1720)
{ 

goto BgL_zc3anonymousza33341ze3z83_1716;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1717
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3346z00_1721;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13069;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13070;
BgL_auxz00_13070 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13069 = 
(BgL_auxz00_13070>=((long)98)); } 
if(BgL_testz00_13069)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13073;
BgL_auxz00_13073 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_test3346z00_1721 = 
(BgL_auxz00_13073<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test3346z00_1721 = ((bool_t)0); } } 
if(BgL_test3346z00_1721)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1816 = BgL_inputzd2portzd2_1713; 
BgL_lastzd2matchzd2_1817 = BgL_newzd2matchzd2_1717; 
BgL_thezd2rgczd2contextz00_1818 = BgL_thezd2rgczd2contextz00_1715; 
BgL_zc3anonymousza33523ze3z83_1819:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1820;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1816); 
BgL_newzd2matchzd2_1820 = ((long)9); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1821;
BgL_currentzd2charzd2_1821 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1816); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13079;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13080;
BgL_auxz00_13080 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13079 = 
(BgL_auxz00_13080==((long)0)); } 
if(BgL_testz00_13079)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3525z00_1823;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7976z00_6439;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6436;
BgL__andtest_1208z00_6436 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1816); 
if(BgL__andtest_1208z00_6436)
{ /* ./Read/reader.scm 336 */
BgL_res7976z00_6439 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1816); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7976z00_6439 = ((bool_t)0); } } 
BgL_test3525z00_1823 = BgL_res7976z00_6439; } 
if(BgL_test3525z00_1823)
{ 

goto BgL_zc3anonymousza33523ze3z83_1819;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1820
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3528z00_1824;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13087;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13088;
BgL_auxz00_13088 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13087 = 
(BgL_auxz00_13088==((long)45)); } 
if(BgL_testz00_13087)
{ /* ./Read/reader.scm 336 */
BgL_test3528z00_1824 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13091;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13092;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13093;
BgL_auxz00_13093 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13092 = 
(BgL_auxz00_13093>=((long)98)); } 
if(BgL_testz00_13092)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13096;
BgL_auxz00_13096 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13091 = 
(BgL_auxz00_13096<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13091 = ((bool_t)0)
; } } 
if(BgL_testz00_13091)
{ /* ./Read/reader.scm 336 */
BgL_test3528z00_1824 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13099;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13100;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13101;
BgL_auxz00_13101 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13100 = 
(BgL_auxz00_13101==((long)106)); } 
if(BgL_testz00_13100)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13099 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13104;
BgL_auxz00_13104 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13099 = 
(BgL_auxz00_13104==((long)105)); } } 
if(BgL_testz00_13099)
{ /* ./Read/reader.scm 336 */
BgL_test3528z00_1824 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13107;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13108;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13109;
BgL_auxz00_13109 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13108 = 
(BgL_auxz00_13109==((long)112)); } 
if(BgL_testz00_13108)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13107 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13112;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13113;
BgL_auxz00_13113 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13112 = 
(BgL_auxz00_13113==((long)111)); } 
if(BgL_testz00_13112)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13107 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13116;
BgL_auxz00_13116 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13107 = 
(BgL_auxz00_13116==((long)110)); } } } 
if(BgL_testz00_13107)
{ /* ./Read/reader.scm 336 */
BgL_test3528z00_1824 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL__ortest_1160z00_1852;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13119;
BgL_auxz00_13119 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL__ortest_1160z00_1852 = 
(BgL_auxz00_13119==((long)116)); } 
if(BgL__ortest_1160z00_1852)
{ /* ./Read/reader.scm 336 */
BgL_test3528z00_1824 = BgL__ortest_1160z00_1852; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13123;
BgL_auxz00_13123 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_test3528z00_1824 = 
(BgL_auxz00_13123==((long)115)); } } } } } } 
if(BgL_test3528z00_1824)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_3059 = BgL_inputzd2portzd2_1816; 
BgL_lastzd2matchzd2_3060 = BgL_newzd2matchzd2_1820; 
BgL_thezd2rgczd2contextz00_3061 = BgL_thezd2rgczd2contextz00_1818; 
BgL_zc3anonymousza35645ze3z83_3062:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_3063;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3059); 
BgL_newzd2matchzd2_3063 = ((long)22); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_3064;
BgL_currentzd2charzd2_3064 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3059); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13129;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13130;
BgL_auxz00_13130 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13129 = 
(BgL_auxz00_13130==((long)0)); } 
if(BgL_testz00_13129)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5647z00_3066;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8025z00_8660;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8657;
BgL__andtest_1208z00_8657 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3059); 
if(BgL__andtest_1208z00_8657)
{ /* ./Read/reader.scm 336 */
BgL_res8025z00_8660 = 
rgc_fill_buffer(BgL_inputzd2portzd2_3059); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8025z00_8660 = ((bool_t)0); } } 
BgL_test5647z00_3066 = BgL_res8025z00_8660; } 
if(BgL_test5647z00_3066)
{ 

goto BgL_zc3anonymousza35645ze3z83_3062;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3063
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5650z00_3067;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13137;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13138;
BgL_auxz00_13138 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13137 = 
(BgL_auxz00_13138==((long)45)); } 
if(BgL_testz00_13137)
{ /* ./Read/reader.scm 336 */
BgL_test5650z00_3067 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13141;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13142;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13143;
BgL_auxz00_13143 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13142 = 
(BgL_auxz00_13143>=((long)98)); } 
if(BgL_testz00_13142)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13146;
BgL_auxz00_13146 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13141 = 
(BgL_auxz00_13146<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13141 = ((bool_t)0)
; } } 
if(BgL_testz00_13141)
{ /* ./Read/reader.scm 336 */
BgL_test5650z00_3067 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13149;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13150;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13151;
BgL_auxz00_13151 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13150 = 
(BgL_auxz00_13151==((long)106)); } 
if(BgL_testz00_13150)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13149 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13154;
BgL_auxz00_13154 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13149 = 
(BgL_auxz00_13154==((long)105)); } } 
if(BgL_testz00_13149)
{ /* ./Read/reader.scm 336 */
BgL_test5650z00_3067 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13157;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13158;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13159;
BgL_auxz00_13159 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13158 = 
(BgL_auxz00_13159==((long)112)); } 
if(BgL_testz00_13158)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13157 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13162;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13163;
BgL_auxz00_13163 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13162 = 
(BgL_auxz00_13163==((long)111)); } 
if(BgL_testz00_13162)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13157 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13166;
BgL_auxz00_13166 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13157 = 
(BgL_auxz00_13166==((long)110)); } } } 
if(BgL_testz00_13157)
{ /* ./Read/reader.scm 336 */
BgL_test5650z00_3067 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL__ortest_1140z00_3095;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13169;
BgL_auxz00_13169 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL__ortest_1140z00_3095 = 
(BgL_auxz00_13169==((long)116)); } 
if(BgL__ortest_1140z00_3095)
{ /* ./Read/reader.scm 336 */
BgL_test5650z00_3067 = BgL__ortest_1140z00_3095; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13173;
BgL_auxz00_13173 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_test5650z00_3067 = 
(BgL_auxz00_13173==((long)115)); } } } } } } 
if(BgL_test5650z00_3067)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_13177;
BgL_lastzd2matchzd2_13177 = BgL_newzd2matchzd2_3063; 
BgL_lastzd2matchzd2_3060 = BgL_lastzd2matchzd2_13177; 
goto BgL_zc3anonymousza35645ze3z83_3062;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5652z00_3068;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13178;
BgL_auxz00_13178 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_test5652z00_3068 = 
(BgL_auxz00_13178==((long)40)); } 
if(BgL_test5652z00_3068)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_8686;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3059); 
BgL_newzd2matchzd2_8686 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_8686; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5654z00_3069;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13183;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13184;
BgL_auxz00_13184 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13183 = 
(BgL_auxz00_13184<((long)33)); } 
if(BgL_testz00_13183)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13187;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13188;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13189;
BgL_auxz00_13189 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13188 = 
(BgL_auxz00_13189==((long)35)); } 
if(BgL_testz00_13188)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13187 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13192;
BgL_auxz00_13192 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13187 = 
(BgL_auxz00_13192==((long)34)); } } 
if(BgL_testz00_13187)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13195;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13196;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13197;
BgL_auxz00_13197 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13196 = 
(BgL_auxz00_13197==((long)41)); } 
if(BgL_testz00_13196)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13195 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13195 = BgL_test5652z00_3068
; } } 
if(BgL_testz00_13195)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13200;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13201;
BgL_auxz00_13201 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13200 = 
(BgL_auxz00_13201==((long)45)); } 
if(BgL_testz00_13200)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13204;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13205;
BgL_auxz00_13205 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13204 = 
(BgL_auxz00_13205==((long)59)); } 
if(BgL_testz00_13204)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13208;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13209;
BgL_auxz00_13209 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13208 = 
(BgL_auxz00_13209==((long)91)); } 
if(BgL_testz00_13208)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13212;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13213;
BgL_auxz00_13213 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13212 = 
(BgL_auxz00_13213==((long)93)); } 
if(BgL_testz00_13212)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13216;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13217;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13218;
BgL_auxz00_13218 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13217 = 
(BgL_auxz00_13218>=((long)98)); } 
if(BgL_testz00_13217)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13221;
BgL_auxz00_13221 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13216 = 
(BgL_auxz00_13221<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13216 = ((bool_t)0)
; } } 
if(BgL_testz00_13216)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13224;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13225;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13226;
BgL_auxz00_13226 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13225 = 
(BgL_auxz00_13226==((long)106)); } 
if(BgL_testz00_13225)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13224 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13229;
BgL_auxz00_13229 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13224 = 
(BgL_auxz00_13229==((long)105)); } } 
if(BgL_testz00_13224)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13232;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13233;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13234;
BgL_auxz00_13234 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13233 = 
(BgL_auxz00_13234==((long)112)); } 
if(BgL_testz00_13233)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13232 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13237;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13238;
BgL_auxz00_13238 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13237 = 
(BgL_auxz00_13238==((long)111)); } 
if(BgL_testz00_13237)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13232 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13241;
BgL_auxz00_13241 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13232 = 
(BgL_auxz00_13241==((long)110)); } } } 
if(BgL_testz00_13232)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13244;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13245;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13246;
BgL_auxz00_13246 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13245 = 
(BgL_auxz00_13246==((long)116)); } 
if(BgL_testz00_13245)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13244 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13249;
BgL_auxz00_13249 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13244 = 
(BgL_auxz00_13249==((long)115)); } } 
if(BgL_testz00_13244)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13252;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13253;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13254;
BgL_auxz00_13254 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13253 = 
(BgL_auxz00_13254==((long)125)); } 
if(BgL_testz00_13253)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13252 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13257;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13258;
BgL_auxz00_13258 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13257 = 
(BgL_auxz00_13258==((long)124)); } 
if(BgL_testz00_13257)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13252 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13261;
BgL_auxz00_13261 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_testz00_13252 = 
(BgL_auxz00_13261==((long)123)); } } } 
if(BgL_testz00_13252)
{ /* ./Read/reader.scm 336 */
BgL_test5654z00_3069 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13264;
BgL_auxz00_13264 = 
(long)(BgL_currentzd2charzd2_3064); 
BgL_test5654z00_3069 = 
(BgL_auxz00_13264==((long)127)); } } } } } } } } } } } } } 
if(BgL_test5654z00_3069)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3063; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_13270;long BgL_lastzd2matchzd2_13269;obj_t BgL_inputzd2portzd2_13268;
BgL_inputzd2portzd2_13268 = BgL_inputzd2portzd2_3059; 
BgL_lastzd2matchzd2_13269 = BgL_newzd2matchzd2_3063; 
BgL_thezd2rgczd2contextz00_13270 = BgL_thezd2rgczd2contextz00_3061; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_13270; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_13269; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_13268; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3530z00_1825;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13271;
BgL_auxz00_13271 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_test3530z00_1825 = 
(BgL_auxz00_13271==((long)40)); } 
if(BgL_test3530z00_1825)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6465;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1816); 
BgL_newzd2matchzd2_6465 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_6465; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3532z00_1826;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13276;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13277;
BgL_auxz00_13277 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13276 = 
(BgL_auxz00_13277<((long)33)); } 
if(BgL_testz00_13276)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13280;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13281;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13282;
BgL_auxz00_13282 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13281 = 
(BgL_auxz00_13282==((long)35)); } 
if(BgL_testz00_13281)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13280 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13285;
BgL_auxz00_13285 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13280 = 
(BgL_auxz00_13285==((long)34)); } } 
if(BgL_testz00_13280)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13288;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13289;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13290;
BgL_auxz00_13290 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13289 = 
(BgL_auxz00_13290==((long)41)); } 
if(BgL_testz00_13289)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13288 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13288 = BgL_test3530z00_1825
; } } 
if(BgL_testz00_13288)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13293;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13294;
BgL_auxz00_13294 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13293 = 
(BgL_auxz00_13294==((long)45)); } 
if(BgL_testz00_13293)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13297;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13298;
BgL_auxz00_13298 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13297 = 
(BgL_auxz00_13298==((long)59)); } 
if(BgL_testz00_13297)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13301;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13302;
BgL_auxz00_13302 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13301 = 
(BgL_auxz00_13302==((long)91)); } 
if(BgL_testz00_13301)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13305;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13306;
BgL_auxz00_13306 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13305 = 
(BgL_auxz00_13306==((long)93)); } 
if(BgL_testz00_13305)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13309;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13310;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13311;
BgL_auxz00_13311 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13310 = 
(BgL_auxz00_13311>=((long)98)); } 
if(BgL_testz00_13310)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13314;
BgL_auxz00_13314 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13309 = 
(BgL_auxz00_13314<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13309 = ((bool_t)0)
; } } 
if(BgL_testz00_13309)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13317;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13318;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13319;
BgL_auxz00_13319 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13318 = 
(BgL_auxz00_13319==((long)106)); } 
if(BgL_testz00_13318)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13317 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13322;
BgL_auxz00_13322 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13317 = 
(BgL_auxz00_13322==((long)105)); } } 
if(BgL_testz00_13317)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13325;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13326;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13327;
BgL_auxz00_13327 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13326 = 
(BgL_auxz00_13327==((long)112)); } 
if(BgL_testz00_13326)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13325 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13330;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13331;
BgL_auxz00_13331 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13330 = 
(BgL_auxz00_13331==((long)111)); } 
if(BgL_testz00_13330)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13325 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13334;
BgL_auxz00_13334 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13325 = 
(BgL_auxz00_13334==((long)110)); } } } 
if(BgL_testz00_13325)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13337;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13338;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13339;
BgL_auxz00_13339 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13338 = 
(BgL_auxz00_13339==((long)116)); } 
if(BgL_testz00_13338)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13337 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13342;
BgL_auxz00_13342 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13337 = 
(BgL_auxz00_13342==((long)115)); } } 
if(BgL_testz00_13337)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13345;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13346;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13347;
BgL_auxz00_13347 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13346 = 
(BgL_auxz00_13347==((long)125)); } 
if(BgL_testz00_13346)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13345 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13350;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13351;
BgL_auxz00_13351 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13350 = 
(BgL_auxz00_13351==((long)124)); } 
if(BgL_testz00_13350)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13345 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13354;
BgL_auxz00_13354 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_testz00_13345 = 
(BgL_auxz00_13354==((long)123)); } } } 
if(BgL_testz00_13345)
{ /* ./Read/reader.scm 336 */
BgL_test3532z00_1826 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13357;
BgL_auxz00_13357 = 
(long)(BgL_currentzd2charzd2_1821); 
BgL_test3532z00_1826 = 
(BgL_auxz00_13357==((long)127)); } } } } } } } } } } } } } 
if(BgL_test3532z00_1826)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1820; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_13363;long BgL_lastzd2matchzd2_13362;obj_t BgL_inputzd2portzd2_13361;
BgL_inputzd2portzd2_13361 = BgL_inputzd2portzd2_1816; 
BgL_lastzd2matchzd2_13362 = BgL_newzd2matchzd2_1820; 
BgL_thezd2rgczd2contextz00_13363 = BgL_thezd2rgczd2contextz00_1818; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_13363; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_13362; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_13361; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3348z00_1722;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13364;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13365;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13366;
BgL_auxz00_13366 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13365 = 
(BgL_auxz00_13366>=((long)48)); } 
if(BgL_testz00_13365)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13369;
BgL_auxz00_13369 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13364 = 
(BgL_auxz00_13369<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13364 = ((bool_t)0)
; } } 
if(BgL_testz00_13364)
{ /* ./Read/reader.scm 336 */
BgL_test3348z00_1722 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13372;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13373;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13374;
BgL_auxz00_13374 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13373 = 
(BgL_auxz00_13374>=((long)65)); } 
if(BgL_testz00_13373)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13377;
BgL_auxz00_13377 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13372 = 
(BgL_auxz00_13377<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13372 = ((bool_t)0)
; } } 
if(BgL_testz00_13372)
{ /* ./Read/reader.scm 336 */
BgL_test3348z00_1722 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13380;
BgL_auxz00_13380 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_test3348z00_1722 = 
(BgL_auxz00_13380==((long)97)); } } } 
if(BgL_test3348z00_1722)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1795 = BgL_inputzd2portzd2_1713; 
BgL_lastzd2matchzd2_1796 = BgL_newzd2matchzd2_1717; 
BgL_thezd2rgczd2contextz00_1797 = BgL_thezd2rgczd2contextz00_1715; 
BgL_zc3anonymousza33487ze3z83_1798:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1799;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1795); 
BgL_newzd2matchzd2_1799 = ((long)9); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1800;
BgL_currentzd2charzd2_1800 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1795); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13386;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13387;
BgL_auxz00_13387 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_testz00_13386 = 
(BgL_auxz00_13387==((long)0)); } 
if(BgL_testz00_13386)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3489z00_1802;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7975z00_6399;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6396;
BgL__andtest_1208z00_6396 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1795); 
if(BgL__andtest_1208z00_6396)
{ /* ./Read/reader.scm 336 */
BgL_res7975z00_6399 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1795); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7975z00_6399 = ((bool_t)0); } } 
BgL_test3489z00_1802 = BgL_res7975z00_6399; } 
if(BgL_test3489z00_1802)
{ 

goto BgL_zc3anonymousza33487ze3z83_1798;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1799
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3492z00_1803;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13394;
BgL_auxz00_13394 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_test3492z00_1803 = 
(BgL_auxz00_13394==((long)40)); } 
if(BgL_test3492z00_1803)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6405;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1795); 
BgL_newzd2matchzd2_6405 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_6405; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3494z00_1804;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13399;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13400;
BgL_auxz00_13400 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_testz00_13399 = 
(BgL_auxz00_13400<((long)33)); } 
if(BgL_testz00_13399)
{ /* ./Read/reader.scm 336 */
BgL_test3494z00_1804 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13403;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13404;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13405;
BgL_auxz00_13405 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_testz00_13404 = 
(BgL_auxz00_13405==((long)35)); } 
if(BgL_testz00_13404)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13403 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13408;
BgL_auxz00_13408 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_testz00_13403 = 
(BgL_auxz00_13408==((long)34)); } } 
if(BgL_testz00_13403)
{ /* ./Read/reader.scm 336 */
BgL_test3494z00_1804 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13411;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13412;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13413;
BgL_auxz00_13413 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_testz00_13412 = 
(BgL_auxz00_13413==((long)41)); } 
if(BgL_testz00_13412)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13411 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13411 = BgL_test3492z00_1803
; } } 
if(BgL_testz00_13411)
{ /* ./Read/reader.scm 336 */
BgL_test3494z00_1804 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13416;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13417;
BgL_auxz00_13417 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_testz00_13416 = 
(BgL_auxz00_13417==((long)59)); } 
if(BgL_testz00_13416)
{ /* ./Read/reader.scm 336 */
BgL_test3494z00_1804 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13420;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13421;
BgL_auxz00_13421 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_testz00_13420 = 
(BgL_auxz00_13421==((long)91)); } 
if(BgL_testz00_13420)
{ /* ./Read/reader.scm 336 */
BgL_test3494z00_1804 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13424;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13425;
BgL_auxz00_13425 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_testz00_13424 = 
(BgL_auxz00_13425==((long)93)); } 
if(BgL_testz00_13424)
{ /* ./Read/reader.scm 336 */
BgL_test3494z00_1804 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13428;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13429;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13430;
BgL_auxz00_13430 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_testz00_13429 = 
(BgL_auxz00_13430==((long)125)); } 
if(BgL_testz00_13429)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13428 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13433;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13434;
BgL_auxz00_13434 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_testz00_13433 = 
(BgL_auxz00_13434==((long)124)); } 
if(BgL_testz00_13433)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13428 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13437;
BgL_auxz00_13437 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_testz00_13428 = 
(BgL_auxz00_13437==((long)123)); } } } 
if(BgL_testz00_13428)
{ /* ./Read/reader.scm 336 */
BgL_test3494z00_1804 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13440;
BgL_auxz00_13440 = 
(long)(BgL_currentzd2charzd2_1800); 
BgL_test3494z00_1804 = 
(BgL_auxz00_13440==((long)127)); } } } } } } } } 
if(BgL_test3494z00_1804)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1799; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_13446;long BgL_lastzd2matchzd2_13445;obj_t BgL_inputzd2portzd2_13444;
BgL_inputzd2portzd2_13444 = BgL_inputzd2portzd2_1795; 
BgL_lastzd2matchzd2_13445 = BgL_newzd2matchzd2_1799; 
BgL_thezd2rgczd2contextz00_13446 = BgL_thezd2rgczd2contextz00_1797; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_13446; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_13445; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_13444; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3350z00_1723;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13447;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13448;
BgL_auxz00_13448 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13447 = 
(BgL_auxz00_13448==((long)45)); } 
if(BgL_testz00_13447)
{ /* ./Read/reader.scm 336 */
BgL_test3350z00_1723 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13451;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13452;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13453;
BgL_auxz00_13453 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13452 = 
(BgL_auxz00_13453==((long)106)); } 
if(BgL_testz00_13452)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13451 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13456;
BgL_auxz00_13456 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13451 = 
(BgL_auxz00_13456==((long)105)); } } 
if(BgL_testz00_13451)
{ /* ./Read/reader.scm 336 */
BgL_test3350z00_1723 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13459;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13460;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13461;
BgL_auxz00_13461 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13460 = 
(BgL_auxz00_13461==((long)112)); } 
if(BgL_testz00_13460)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13459 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13464;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13465;
BgL_auxz00_13465 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13464 = 
(BgL_auxz00_13465==((long)111)); } 
if(BgL_testz00_13464)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13459 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13468;
BgL_auxz00_13468 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13459 = 
(BgL_auxz00_13468==((long)110)); } } } 
if(BgL_testz00_13459)
{ /* ./Read/reader.scm 336 */
BgL_test3350z00_1723 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL__ortest_1161z00_1754;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13471;
BgL_auxz00_13471 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL__ortest_1161z00_1754 = 
(BgL_auxz00_13471==((long)116)); } 
if(BgL__ortest_1161z00_1754)
{ /* ./Read/reader.scm 336 */
BgL_test3350z00_1723 = BgL__ortest_1161z00_1754; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13475;
BgL_auxz00_13475 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_test3350z00_1723 = 
(BgL_auxz00_13475==((long)115)); } } } } } 
if(BgL_test3350z00_1723)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_13481;long BgL_lastzd2matchzd2_13480;obj_t BgL_inputzd2portzd2_13479;
BgL_inputzd2portzd2_13479 = BgL_inputzd2portzd2_1713; 
BgL_lastzd2matchzd2_13480 = BgL_newzd2matchzd2_1717; 
BgL_thezd2rgczd2contextz00_13481 = BgL_thezd2rgczd2contextz00_1715; 
BgL_thezd2rgczd2contextz00_3061 = BgL_thezd2rgczd2contextz00_13481; 
BgL_lastzd2matchzd2_3060 = BgL_lastzd2matchzd2_13480; 
BgL_inputzd2portzd2_3059 = BgL_inputzd2portzd2_13479; 
goto BgL_zc3anonymousza35645ze3z83_3062;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3352z00_1724;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13482;
BgL_auxz00_13482 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_test3352z00_1724 = 
(BgL_auxz00_13482==((long)40)); } 
if(BgL_test3352z00_1724)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6288;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1713); 
BgL_newzd2matchzd2_6288 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_6288; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3354z00_1725;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13487;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13488;
BgL_auxz00_13488 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13487 = 
(BgL_auxz00_13488<((long)33)); } 
if(BgL_testz00_13487)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13491;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13492;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13493;
BgL_auxz00_13493 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13492 = 
(BgL_auxz00_13493==((long)35)); } 
if(BgL_testz00_13492)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13491 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13496;
BgL_auxz00_13496 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13491 = 
(BgL_auxz00_13496==((long)34)); } } 
if(BgL_testz00_13491)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13499;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13500;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13501;
BgL_auxz00_13501 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13500 = 
(BgL_auxz00_13501==((long)41)); } 
if(BgL_testz00_13500)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13499 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13499 = BgL_test3352z00_1724
; } } 
if(BgL_testz00_13499)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13504;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13505;
BgL_auxz00_13505 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13504 = 
(BgL_auxz00_13505==((long)45)); } 
if(BgL_testz00_13504)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13508;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13509;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13510;
BgL_auxz00_13510 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13509 = 
(BgL_auxz00_13510>=((long)48)); } 
if(BgL_testz00_13509)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13513;
BgL_auxz00_13513 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13508 = 
(BgL_auxz00_13513<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13508 = ((bool_t)0)
; } } 
if(BgL_testz00_13508)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13516;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13517;
BgL_auxz00_13517 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13516 = 
(BgL_auxz00_13517==((long)59)); } 
if(BgL_testz00_13516)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13520;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13521;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13522;
BgL_auxz00_13522 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13521 = 
(BgL_auxz00_13522>=((long)65)); } 
if(BgL_testz00_13521)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13525;
BgL_auxz00_13525 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13520 = 
(BgL_auxz00_13525<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13520 = ((bool_t)0)
; } } 
if(BgL_testz00_13520)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13528;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13529;
BgL_auxz00_13529 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13528 = 
(BgL_auxz00_13529==((long)91)); } 
if(BgL_testz00_13528)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13532;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13533;
BgL_auxz00_13533 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13532 = 
(BgL_auxz00_13533==((long)93)); } 
if(BgL_testz00_13532)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13536;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13537;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13538;
BgL_auxz00_13538 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13537 = 
(BgL_auxz00_13538>=((long)97)); } 
if(BgL_testz00_13537)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13541;
BgL_auxz00_13541 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13536 = 
(BgL_auxz00_13541<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13536 = ((bool_t)0)
; } } 
if(BgL_testz00_13536)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13544;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13545;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13546;
BgL_auxz00_13546 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13545 = 
(BgL_auxz00_13546==((long)106)); } 
if(BgL_testz00_13545)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13544 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13549;
BgL_auxz00_13549 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13544 = 
(BgL_auxz00_13549==((long)105)); } } 
if(BgL_testz00_13544)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13552;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13553;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13554;
BgL_auxz00_13554 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13553 = 
(BgL_auxz00_13554==((long)112)); } 
if(BgL_testz00_13553)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13552 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13557;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13558;
BgL_auxz00_13558 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13557 = 
(BgL_auxz00_13558==((long)111)); } 
if(BgL_testz00_13557)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13552 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13561;
BgL_auxz00_13561 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13552 = 
(BgL_auxz00_13561==((long)110)); } } } 
if(BgL_testz00_13552)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13564;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13565;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13566;
BgL_auxz00_13566 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13565 = 
(BgL_auxz00_13566==((long)116)); } 
if(BgL_testz00_13565)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13564 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13569;
BgL_auxz00_13569 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13564 = 
(BgL_auxz00_13569==((long)115)); } } 
if(BgL_testz00_13564)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13572;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13573;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13574;
BgL_auxz00_13574 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13573 = 
(BgL_auxz00_13574==((long)125)); } 
if(BgL_testz00_13573)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13572 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13577;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13578;
BgL_auxz00_13578 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13577 = 
(BgL_auxz00_13578==((long)124)); } 
if(BgL_testz00_13577)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13572 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13581;
BgL_auxz00_13581 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_testz00_13572 = 
(BgL_auxz00_13581==((long)123)); } } } 
if(BgL_testz00_13572)
{ /* ./Read/reader.scm 336 */
BgL_test3354z00_1725 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13584;
BgL_auxz00_13584 = 
(long)(BgL_currentzd2charzd2_1718); 
BgL_test3354z00_1725 = 
(BgL_auxz00_13584==((long)127)); } } } } } } } } } } } } } } } 
if(BgL_test3354z00_1725)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1717; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_13590;long BgL_lastzd2matchzd2_13589;obj_t BgL_inputzd2portzd2_13588;
BgL_inputzd2portzd2_13588 = BgL_inputzd2portzd2_1713; 
BgL_lastzd2matchzd2_13589 = BgL_newzd2matchzd2_1717; 
BgL_thezd2rgczd2contextz00_13590 = BgL_thezd2rgczd2contextz00_1715; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_13590; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_13589; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_13588; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4927z00_2634;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13591;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13592;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13593;
BgL_auxz00_13593 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13592 = 
(BgL_auxz00_13593>=((long)48)); } 
if(BgL_testz00_13592)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13596;
BgL_auxz00_13596 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13591 = 
(BgL_auxz00_13596<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13591 = ((bool_t)0)
; } } 
if(BgL_testz00_13591)
{ /* ./Read/reader.scm 336 */
BgL_test4927z00_2634 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13599;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13600;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13601;
BgL_auxz00_13601 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13600 = 
(BgL_auxz00_13601>=((long)65)); } 
if(BgL_testz00_13600)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13604;
BgL_auxz00_13604 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13599 = 
(BgL_auxz00_13604<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13599 = ((bool_t)0)
; } } 
if(BgL_testz00_13599)
{ /* ./Read/reader.scm 336 */
BgL_test4927z00_2634 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13607;
BgL_auxz00_13607 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_test4927z00_2634 = 
(BgL_auxz00_13607==((long)97)); } } } 
if(BgL_test4927z00_2634)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1681 = BgL_inputzd2portzd2_2625; 
BgL_lastzd2matchzd2_1682 = BgL_newzd2matchzd2_2629; 
BgL_thezd2rgczd2contextz00_1683 = BgL_thezd2rgczd2contextz00_2627; 
BgL_zc3anonymousza33282ze3z83_1684:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1685;
BgL_currentzd2charzd2_1685 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1681); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13612;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13613;
BgL_auxz00_13613 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13612 = 
(BgL_auxz00_13613==((long)0)); } 
if(BgL_testz00_13612)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3284z00_1687;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7972z00_6188;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6185;
BgL__andtest_1208z00_6185 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1681); 
if(BgL__andtest_1208z00_6185)
{ /* ./Read/reader.scm 336 */
BgL_res7972z00_6188 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1681); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7972z00_6188 = ((bool_t)0); } } 
BgL_test3284z00_1687 = BgL_res7972z00_6188; } 
if(BgL_test3284z00_1687)
{ 

goto BgL_zc3anonymousza33282ze3z83_1684;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1682
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3287z00_1688;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13620;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13621;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13622;
BgL_auxz00_13622 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13621 = 
(BgL_auxz00_13622>=((long)48)); } 
if(BgL_testz00_13621)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13625;
BgL_auxz00_13625 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13620 = 
(BgL_auxz00_13625<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13620 = ((bool_t)0)
; } } 
if(BgL_testz00_13620)
{ /* ./Read/reader.scm 336 */
BgL_test3287z00_1688 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13628;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13629;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13630;
BgL_auxz00_13630 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13629 = 
(BgL_auxz00_13630>=((long)65)); } 
if(BgL_testz00_13629)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13633;
BgL_auxz00_13633 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13628 = 
(BgL_auxz00_13633<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13628 = ((bool_t)0)
; } } 
if(BgL_testz00_13628)
{ /* ./Read/reader.scm 336 */
BgL_test3287z00_1688 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13636;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13637;
BgL_auxz00_13637 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13636 = 
(BgL_auxz00_13637>=((long)97)); } 
if(BgL_testz00_13636)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13640;
BgL_auxz00_13640 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_test3287z00_1688 = 
(BgL_auxz00_13640<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test3287z00_1688 = ((bool_t)0); } } } } 
if(BgL_test3287z00_1688)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_13646;long BgL_lastzd2matchzd2_13645;obj_t BgL_inputzd2portzd2_13644;
BgL_inputzd2portzd2_13644 = BgL_inputzd2portzd2_1681; 
BgL_lastzd2matchzd2_13645 = BgL_lastzd2matchzd2_1682; 
BgL_thezd2rgczd2contextz00_13646 = BgL_thezd2rgczd2contextz00_1683; 
BgL_thezd2rgczd2contextz00_1797 = BgL_thezd2rgczd2contextz00_13646; 
BgL_lastzd2matchzd2_1796 = BgL_lastzd2matchzd2_13645; 
BgL_inputzd2portzd2_1795 = BgL_inputzd2portzd2_13644; 
goto BgL_zc3anonymousza33487ze3z83_1798;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3289z00_1689;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13647;
BgL_auxz00_13647 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_test3289z00_1689 = 
(BgL_auxz00_13647==((long)40)); } 
if(BgL_test3289z00_1689)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6206;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1681); 
BgL_newzd2matchzd2_6206 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_6206; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3291z00_1690;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13652;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13653;
BgL_auxz00_13653 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13652 = 
(BgL_auxz00_13653<((long)33)); } 
if(BgL_testz00_13652)
{ /* ./Read/reader.scm 336 */
BgL_test3291z00_1690 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13656;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13657;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13658;
BgL_auxz00_13658 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13657 = 
(BgL_auxz00_13658==((long)35)); } 
if(BgL_testz00_13657)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13656 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13661;
BgL_auxz00_13661 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13656 = 
(BgL_auxz00_13661==((long)34)); } } 
if(BgL_testz00_13656)
{ /* ./Read/reader.scm 336 */
BgL_test3291z00_1690 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13664;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13665;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13666;
BgL_auxz00_13666 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13665 = 
(BgL_auxz00_13666==((long)41)); } 
if(BgL_testz00_13665)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13664 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13664 = BgL_test3289z00_1689
; } } 
if(BgL_testz00_13664)
{ /* ./Read/reader.scm 336 */
BgL_test3291z00_1690 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13669;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13670;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13671;
BgL_auxz00_13671 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13670 = 
(BgL_auxz00_13671>=((long)48)); } 
if(BgL_testz00_13670)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13674;
BgL_auxz00_13674 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13669 = 
(BgL_auxz00_13674<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13669 = ((bool_t)0)
; } } 
if(BgL_testz00_13669)
{ /* ./Read/reader.scm 336 */
BgL_test3291z00_1690 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13677;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13678;
BgL_auxz00_13678 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13677 = 
(BgL_auxz00_13678==((long)59)); } 
if(BgL_testz00_13677)
{ /* ./Read/reader.scm 336 */
BgL_test3291z00_1690 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13681;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13682;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13683;
BgL_auxz00_13683 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13682 = 
(BgL_auxz00_13683>=((long)65)); } 
if(BgL_testz00_13682)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13686;
BgL_auxz00_13686 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13681 = 
(BgL_auxz00_13686<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13681 = ((bool_t)0)
; } } 
if(BgL_testz00_13681)
{ /* ./Read/reader.scm 336 */
BgL_test3291z00_1690 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13689;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13690;
BgL_auxz00_13690 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13689 = 
(BgL_auxz00_13690==((long)91)); } 
if(BgL_testz00_13689)
{ /* ./Read/reader.scm 336 */
BgL_test3291z00_1690 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13693;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13694;
BgL_auxz00_13694 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13693 = 
(BgL_auxz00_13694==((long)93)); } 
if(BgL_testz00_13693)
{ /* ./Read/reader.scm 336 */
BgL_test3291z00_1690 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13697;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13698;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13699;
BgL_auxz00_13699 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13698 = 
(BgL_auxz00_13699>=((long)97)); } 
if(BgL_testz00_13698)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13702;
BgL_auxz00_13702 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13697 = 
(BgL_auxz00_13702<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13697 = ((bool_t)0)
; } } 
if(BgL_testz00_13697)
{ /* ./Read/reader.scm 336 */
BgL_test3291z00_1690 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13705;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13706;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13707;
BgL_auxz00_13707 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13706 = 
(BgL_auxz00_13707==((long)125)); } 
if(BgL_testz00_13706)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13705 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13710;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13711;
BgL_auxz00_13711 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13710 = 
(BgL_auxz00_13711==((long)124)); } 
if(BgL_testz00_13710)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13705 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13714;
BgL_auxz00_13714 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_testz00_13705 = 
(BgL_auxz00_13714==((long)123)); } } } 
if(BgL_testz00_13705)
{ /* ./Read/reader.scm 336 */
BgL_test3291z00_1690 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13717;
BgL_auxz00_13717 = 
(long)(BgL_currentzd2charzd2_1685); 
BgL_test3291z00_1690 = 
(BgL_auxz00_13717==((long)127)); } } } } } } } } } } } 
if(BgL_test3291z00_1690)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1682; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_13723;long BgL_lastzd2matchzd2_13722;obj_t BgL_inputzd2portzd2_13721;
BgL_inputzd2portzd2_13721 = BgL_inputzd2portzd2_1681; 
BgL_lastzd2matchzd2_13722 = BgL_lastzd2matchzd2_1682; 
BgL_thezd2rgczd2contextz00_13723 = BgL_thezd2rgczd2contextz00_1683; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_13723; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_13722; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_13721; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4929z00_2635;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13724;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13725;
BgL_auxz00_13725 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13724 = 
(BgL_auxz00_13725==((long)45)); } 
if(BgL_testz00_13724)
{ /* ./Read/reader.scm 336 */
BgL_test4929z00_2635 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13728;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13729;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13730;
BgL_auxz00_13730 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13729 = 
(BgL_auxz00_13730==((long)106)); } 
if(BgL_testz00_13729)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13728 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13733;
BgL_auxz00_13733 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13728 = 
(BgL_auxz00_13733==((long)105)); } } 
if(BgL_testz00_13728)
{ /* ./Read/reader.scm 336 */
BgL_test4929z00_2635 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13736;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13737;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13738;
BgL_auxz00_13738 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13737 = 
(BgL_auxz00_13738==((long)112)); } 
if(BgL_testz00_13737)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13736 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13741;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13742;
BgL_auxz00_13742 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13741 = 
(BgL_auxz00_13742==((long)111)); } 
if(BgL_testz00_13741)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13736 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13745;
BgL_auxz00_13745 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13736 = 
(BgL_auxz00_13745==((long)110)); } } } 
if(BgL_testz00_13736)
{ /* ./Read/reader.scm 336 */
BgL_test4929z00_2635 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL__ortest_1147z00_2666;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13748;
BgL_auxz00_13748 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL__ortest_1147z00_2666 = 
(BgL_auxz00_13748==((long)116)); } 
if(BgL__ortest_1147z00_2666)
{ /* ./Read/reader.scm 336 */
BgL_test4929z00_2635 = BgL__ortest_1147z00_2666; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13752;
BgL_auxz00_13752 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_test4929z00_2635 = 
(BgL_auxz00_13752==((long)115)); } } } } } 
if(BgL_test4929z00_2635)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_13758;long BgL_lastzd2matchzd2_13757;obj_t BgL_inputzd2portzd2_13756;
BgL_inputzd2portzd2_13756 = BgL_inputzd2portzd2_2625; 
BgL_lastzd2matchzd2_13757 = BgL_newzd2matchzd2_2629; 
BgL_thezd2rgczd2contextz00_13758 = BgL_thezd2rgczd2contextz00_2627; 
BgL_thezd2rgczd2contextz00_3061 = BgL_thezd2rgczd2contextz00_13758; 
BgL_lastzd2matchzd2_3060 = BgL_lastzd2matchzd2_13757; 
BgL_inputzd2portzd2_3059 = BgL_inputzd2portzd2_13756; 
goto BgL_zc3anonymousza35645ze3z83_3062;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4931z00_2636;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13759;
BgL_auxz00_13759 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_test4931z00_2636 = 
(BgL_auxz00_13759==((long)40)); } 
if(BgL_test4931z00_2636)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_7934;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2625); 
BgL_newzd2matchzd2_7934 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_7934; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4933z00_2637;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13764;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13765;
BgL_auxz00_13765 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13764 = 
(BgL_auxz00_13765<((long)33)); } 
if(BgL_testz00_13764)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13768;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13769;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13770;
BgL_auxz00_13770 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13769 = 
(BgL_auxz00_13770==((long)35)); } 
if(BgL_testz00_13769)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13768 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13773;
BgL_auxz00_13773 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13768 = 
(BgL_auxz00_13773==((long)34)); } } 
if(BgL_testz00_13768)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13776;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13777;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13778;
BgL_auxz00_13778 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13777 = 
(BgL_auxz00_13778==((long)41)); } 
if(BgL_testz00_13777)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13776 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13776 = BgL_test4931z00_2636
; } } 
if(BgL_testz00_13776)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13781;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13782;
BgL_auxz00_13782 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13781 = 
(BgL_auxz00_13782==((long)45)); } 
if(BgL_testz00_13781)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13785;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13786;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13787;
BgL_auxz00_13787 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13786 = 
(BgL_auxz00_13787>=((long)48)); } 
if(BgL_testz00_13786)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13790;
BgL_auxz00_13790 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13785 = 
(BgL_auxz00_13790<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13785 = ((bool_t)0)
; } } 
if(BgL_testz00_13785)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13793;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13794;
BgL_auxz00_13794 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13793 = 
(BgL_auxz00_13794==((long)59)); } 
if(BgL_testz00_13793)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13797;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13798;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13799;
BgL_auxz00_13799 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13798 = 
(BgL_auxz00_13799>=((long)65)); } 
if(BgL_testz00_13798)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13802;
BgL_auxz00_13802 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13797 = 
(BgL_auxz00_13802<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13797 = ((bool_t)0)
; } } 
if(BgL_testz00_13797)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13805;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13806;
BgL_auxz00_13806 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13805 = 
(BgL_auxz00_13806==((long)91)); } 
if(BgL_testz00_13805)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13809;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13810;
BgL_auxz00_13810 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13809 = 
(BgL_auxz00_13810==((long)93)); } 
if(BgL_testz00_13809)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13813;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13814;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13815;
BgL_auxz00_13815 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13814 = 
(BgL_auxz00_13815>=((long)97)); } 
if(BgL_testz00_13814)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13818;
BgL_auxz00_13818 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13813 = 
(BgL_auxz00_13818<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13813 = ((bool_t)0)
; } } 
if(BgL_testz00_13813)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13821;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13822;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13823;
BgL_auxz00_13823 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13822 = 
(BgL_auxz00_13823==((long)106)); } 
if(BgL_testz00_13822)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13821 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13826;
BgL_auxz00_13826 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13821 = 
(BgL_auxz00_13826==((long)105)); } } 
if(BgL_testz00_13821)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13829;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13830;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13831;
BgL_auxz00_13831 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13830 = 
(BgL_auxz00_13831==((long)112)); } 
if(BgL_testz00_13830)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13829 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13834;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13835;
BgL_auxz00_13835 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13834 = 
(BgL_auxz00_13835==((long)111)); } 
if(BgL_testz00_13834)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13829 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13838;
BgL_auxz00_13838 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13829 = 
(BgL_auxz00_13838==((long)110)); } } } 
if(BgL_testz00_13829)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13841;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13842;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13843;
BgL_auxz00_13843 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13842 = 
(BgL_auxz00_13843==((long)116)); } 
if(BgL_testz00_13842)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13841 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13846;
BgL_auxz00_13846 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13841 = 
(BgL_auxz00_13846==((long)115)); } } 
if(BgL_testz00_13841)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13849;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13850;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13851;
BgL_auxz00_13851 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13850 = 
(BgL_auxz00_13851==((long)125)); } 
if(BgL_testz00_13850)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13849 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13854;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13855;
BgL_auxz00_13855 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13854 = 
(BgL_auxz00_13855==((long)124)); } 
if(BgL_testz00_13854)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13849 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13858;
BgL_auxz00_13858 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_testz00_13849 = 
(BgL_auxz00_13858==((long)123)); } } } 
if(BgL_testz00_13849)
{ /* ./Read/reader.scm 336 */
BgL_test4933z00_2637 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13861;
BgL_auxz00_13861 = 
(long)(BgL_currentzd2charzd2_2630); 
BgL_test4933z00_2637 = 
(BgL_auxz00_13861==((long)127)); } } } } } } } } } } } } } } } 
if(BgL_test4933z00_2637)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2629; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_13867;long BgL_lastzd2matchzd2_13866;obj_t BgL_inputzd2portzd2_13865;
BgL_inputzd2portzd2_13865 = BgL_inputzd2portzd2_2625; 
BgL_lastzd2matchzd2_13866 = BgL_newzd2matchzd2_2629; 
BgL_thezd2rgczd2contextz00_13867 = BgL_thezd2rgczd2contextz00_2627; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_13867; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_13866; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_13865; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2161z00_1067;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13868;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13869;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13870;
BgL_auxz00_13870 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_13869 = 
(BgL_auxz00_13870>=((long)48)); } 
if(BgL_testz00_13869)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13873;
BgL_auxz00_13873 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_13868 = 
(BgL_auxz00_13873<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13868 = ((bool_t)0)
; } } 
if(BgL_testz00_13868)
{ /* ./Read/reader.scm 336 */
BgL_test2161z00_1067 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13876;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13877;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13878;
BgL_auxz00_13878 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_13877 = 
(BgL_auxz00_13878>=((long)65)); } 
if(BgL_testz00_13877)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13881;
BgL_auxz00_13881 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_13876 = 
(BgL_auxz00_13881<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13876 = ((bool_t)0)
; } } 
if(BgL_testz00_13876)
{ /* ./Read/reader.scm 336 */
BgL_test2161z00_1067 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13884;
BgL_auxz00_13884 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_test2161z00_1067 = 
(BgL_auxz00_13884==((long)97)); } } } 
if(BgL_test2161z00_1067)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2593 = BgL_inputzd2portzd2_1058; 
BgL_lastzd2matchzd2_2594 = BgL_newzd2matchzd2_1062; 
BgL_thezd2rgczd2contextz00_2595 = BgL_thezd2rgczd2contextz00_1060; 
BgL_zc3anonymousza34861ze3z83_2596:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2597;
BgL_currentzd2charzd2_2597 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2593); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13889;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13890;
BgL_auxz00_13890 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13889 = 
(BgL_auxz00_13890==((long)0)); } 
if(BgL_testz00_13889)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4863z00_2599;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8010z00_7834;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7831;
BgL__andtest_1208z00_7831 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2593); 
if(BgL__andtest_1208z00_7831)
{ /* ./Read/reader.scm 336 */
BgL_res8010z00_7834 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2593); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8010z00_7834 = ((bool_t)0); } } 
BgL_test4863z00_2599 = BgL_res8010z00_7834; } 
if(BgL_test4863z00_2599)
{ 

goto BgL_zc3anonymousza34861ze3z83_2596;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2594
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4866z00_2600;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13897;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13898;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13899;
BgL_auxz00_13899 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13898 = 
(BgL_auxz00_13899>=((long)48)); } 
if(BgL_testz00_13898)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13902;
BgL_auxz00_13902 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13897 = 
(BgL_auxz00_13902<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13897 = ((bool_t)0)
; } } 
if(BgL_testz00_13897)
{ /* ./Read/reader.scm 336 */
BgL_test4866z00_2600 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13905;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13906;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13907;
BgL_auxz00_13907 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13906 = 
(BgL_auxz00_13907>=((long)65)); } 
if(BgL_testz00_13906)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13910;
BgL_auxz00_13910 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13905 = 
(BgL_auxz00_13910<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13905 = ((bool_t)0)
; } } 
if(BgL_testz00_13905)
{ /* ./Read/reader.scm 336 */
BgL_test4866z00_2600 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13913;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13914;
BgL_auxz00_13914 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13913 = 
(BgL_auxz00_13914>=((long)97)); } 
if(BgL_testz00_13913)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13917;
BgL_auxz00_13917 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_test4866z00_2600 = 
(BgL_auxz00_13917<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4866z00_2600 = ((bool_t)0); } } } } 
if(BgL_test4866z00_2600)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_13923;long BgL_lastzd2matchzd2_13922;obj_t BgL_inputzd2portzd2_13921;
BgL_inputzd2portzd2_13921 = BgL_inputzd2portzd2_2593; 
BgL_lastzd2matchzd2_13922 = BgL_lastzd2matchzd2_2594; 
BgL_thezd2rgczd2contextz00_13923 = BgL_thezd2rgczd2contextz00_2595; 
BgL_thezd2rgczd2contextz00_1683 = BgL_thezd2rgczd2contextz00_13923; 
BgL_lastzd2matchzd2_1682 = BgL_lastzd2matchzd2_13922; 
BgL_inputzd2portzd2_1681 = BgL_inputzd2portzd2_13921; 
goto BgL_zc3anonymousza33282ze3z83_1684;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4868z00_2601;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13924;
BgL_auxz00_13924 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_test4868z00_2601 = 
(BgL_auxz00_13924==((long)40)); } 
if(BgL_test4868z00_2601)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_7852;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2593); 
BgL_newzd2matchzd2_7852 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_7852; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4870z00_2602;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13929;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13930;
BgL_auxz00_13930 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13929 = 
(BgL_auxz00_13930<((long)33)); } 
if(BgL_testz00_13929)
{ /* ./Read/reader.scm 336 */
BgL_test4870z00_2602 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13933;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13934;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13935;
BgL_auxz00_13935 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13934 = 
(BgL_auxz00_13935==((long)35)); } 
if(BgL_testz00_13934)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13933 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13938;
BgL_auxz00_13938 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13933 = 
(BgL_auxz00_13938==((long)34)); } } 
if(BgL_testz00_13933)
{ /* ./Read/reader.scm 336 */
BgL_test4870z00_2602 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13941;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13942;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13943;
BgL_auxz00_13943 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13942 = 
(BgL_auxz00_13943==((long)41)); } 
if(BgL_testz00_13942)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13941 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13941 = BgL_test4868z00_2601
; } } 
if(BgL_testz00_13941)
{ /* ./Read/reader.scm 336 */
BgL_test4870z00_2602 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13946;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13947;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13948;
BgL_auxz00_13948 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13947 = 
(BgL_auxz00_13948>=((long)48)); } 
if(BgL_testz00_13947)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13951;
BgL_auxz00_13951 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13946 = 
(BgL_auxz00_13951<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13946 = ((bool_t)0)
; } } 
if(BgL_testz00_13946)
{ /* ./Read/reader.scm 336 */
BgL_test4870z00_2602 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13954;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13955;
BgL_auxz00_13955 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13954 = 
(BgL_auxz00_13955==((long)59)); } 
if(BgL_testz00_13954)
{ /* ./Read/reader.scm 336 */
BgL_test4870z00_2602 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13958;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13959;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13960;
BgL_auxz00_13960 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13959 = 
(BgL_auxz00_13960>=((long)65)); } 
if(BgL_testz00_13959)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13963;
BgL_auxz00_13963 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13958 = 
(BgL_auxz00_13963<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13958 = ((bool_t)0)
; } } 
if(BgL_testz00_13958)
{ /* ./Read/reader.scm 336 */
BgL_test4870z00_2602 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13966;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13967;
BgL_auxz00_13967 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13966 = 
(BgL_auxz00_13967==((long)91)); } 
if(BgL_testz00_13966)
{ /* ./Read/reader.scm 336 */
BgL_test4870z00_2602 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13970;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13971;
BgL_auxz00_13971 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13970 = 
(BgL_auxz00_13971==((long)93)); } 
if(BgL_testz00_13970)
{ /* ./Read/reader.scm 336 */
BgL_test4870z00_2602 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13974;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13975;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13976;
BgL_auxz00_13976 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13975 = 
(BgL_auxz00_13976>=((long)97)); } 
if(BgL_testz00_13975)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13979;
BgL_auxz00_13979 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13974 = 
(BgL_auxz00_13979<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_13974 = ((bool_t)0)
; } } 
if(BgL_testz00_13974)
{ /* ./Read/reader.scm 336 */
BgL_test4870z00_2602 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13982;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13983;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13984;
BgL_auxz00_13984 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13983 = 
(BgL_auxz00_13984==((long)125)); } 
if(BgL_testz00_13983)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13982 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_13987;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13988;
BgL_auxz00_13988 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13987 = 
(BgL_auxz00_13988==((long)124)); } 
if(BgL_testz00_13987)
{ /* ./Read/reader.scm 336 */
BgL_testz00_13982 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13991;
BgL_auxz00_13991 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_testz00_13982 = 
(BgL_auxz00_13991==((long)123)); } } } 
if(BgL_testz00_13982)
{ /* ./Read/reader.scm 336 */
BgL_test4870z00_2602 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_13994;
BgL_auxz00_13994 = 
(long)(BgL_currentzd2charzd2_2597); 
BgL_test4870z00_2602 = 
(BgL_auxz00_13994==((long)127)); } } } } } } } } } } } 
if(BgL_test4870z00_2602)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2594; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14000;long BgL_lastzd2matchzd2_13999;obj_t BgL_inputzd2portzd2_13998;
BgL_inputzd2portzd2_13998 = BgL_inputzd2portzd2_2593; 
BgL_lastzd2matchzd2_13999 = BgL_lastzd2matchzd2_2594; 
BgL_thezd2rgczd2contextz00_14000 = BgL_thezd2rgczd2contextz00_2595; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_14000; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_13999; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_13998; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2163z00_1068;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14001;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14002;
BgL_auxz00_14002 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14001 = 
(BgL_auxz00_14002==((long)45)); } 
if(BgL_testz00_14001)
{ /* ./Read/reader.scm 336 */
BgL_test2163z00_1068 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14005;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14006;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14007;
BgL_auxz00_14007 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14006 = 
(BgL_auxz00_14007==((long)106)); } 
if(BgL_testz00_14006)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14005 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14010;
BgL_auxz00_14010 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14005 = 
(BgL_auxz00_14010==((long)105)); } } 
if(BgL_testz00_14005)
{ /* ./Read/reader.scm 336 */
BgL_test2163z00_1068 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14013;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14014;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14015;
BgL_auxz00_14015 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14014 = 
(BgL_auxz00_14015==((long)112)); } 
if(BgL_testz00_14014)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14013 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14018;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14019;
BgL_auxz00_14019 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14018 = 
(BgL_auxz00_14019==((long)111)); } 
if(BgL_testz00_14018)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14013 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14022;
BgL_auxz00_14022 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14013 = 
(BgL_auxz00_14022==((long)110)); } } } 
if(BgL_testz00_14013)
{ /* ./Read/reader.scm 336 */
BgL_test2163z00_1068 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL__ortest_1181z00_1099;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14025;
BgL_auxz00_14025 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL__ortest_1181z00_1099 = 
(BgL_auxz00_14025==((long)116)); } 
if(BgL__ortest_1181z00_1099)
{ /* ./Read/reader.scm 336 */
BgL_test2163z00_1068 = BgL__ortest_1181z00_1099; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14029;
BgL_auxz00_14029 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_test2163z00_1068 = 
(BgL_auxz00_14029==((long)115)); } } } } } 
if(BgL_test2163z00_1068)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14035;long BgL_lastzd2matchzd2_14034;obj_t BgL_inputzd2portzd2_14033;
BgL_inputzd2portzd2_14033 = BgL_inputzd2portzd2_1058; 
BgL_lastzd2matchzd2_14034 = BgL_newzd2matchzd2_1062; 
BgL_thezd2rgczd2contextz00_14035 = BgL_thezd2rgczd2contextz00_1060; 
BgL_thezd2rgczd2contextz00_3061 = BgL_thezd2rgczd2contextz00_14035; 
BgL_lastzd2matchzd2_3060 = BgL_lastzd2matchzd2_14034; 
BgL_inputzd2portzd2_3059 = BgL_inputzd2portzd2_14033; 
goto BgL_zc3anonymousza35645ze3z83_3062;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2165z00_1069;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14036;
BgL_auxz00_14036 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_test2165z00_1069 = 
(BgL_auxz00_14036==((long)40)); } 
if(BgL_test2165z00_1069)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5064;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1058); 
BgL_newzd2matchzd2_5064 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5064; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2167z00_1070;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14041;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14042;
BgL_auxz00_14042 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14041 = 
(BgL_auxz00_14042<((long)33)); } 
if(BgL_testz00_14041)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14045;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14046;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14047;
BgL_auxz00_14047 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14046 = 
(BgL_auxz00_14047==((long)35)); } 
if(BgL_testz00_14046)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14045 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14050;
BgL_auxz00_14050 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14045 = 
(BgL_auxz00_14050==((long)34)); } } 
if(BgL_testz00_14045)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14053;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14054;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14055;
BgL_auxz00_14055 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14054 = 
(BgL_auxz00_14055==((long)41)); } 
if(BgL_testz00_14054)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14053 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14053 = BgL_test2165z00_1069
; } } 
if(BgL_testz00_14053)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14058;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14059;
BgL_auxz00_14059 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14058 = 
(BgL_auxz00_14059==((long)45)); } 
if(BgL_testz00_14058)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14062;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14063;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14064;
BgL_auxz00_14064 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14063 = 
(BgL_auxz00_14064>=((long)48)); } 
if(BgL_testz00_14063)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14067;
BgL_auxz00_14067 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14062 = 
(BgL_auxz00_14067<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14062 = ((bool_t)0)
; } } 
if(BgL_testz00_14062)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14070;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14071;
BgL_auxz00_14071 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14070 = 
(BgL_auxz00_14071==((long)59)); } 
if(BgL_testz00_14070)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14074;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14075;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14076;
BgL_auxz00_14076 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14075 = 
(BgL_auxz00_14076>=((long)65)); } 
if(BgL_testz00_14075)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14079;
BgL_auxz00_14079 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14074 = 
(BgL_auxz00_14079<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14074 = ((bool_t)0)
; } } 
if(BgL_testz00_14074)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14082;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14083;
BgL_auxz00_14083 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14082 = 
(BgL_auxz00_14083==((long)91)); } 
if(BgL_testz00_14082)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14086;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14087;
BgL_auxz00_14087 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14086 = 
(BgL_auxz00_14087==((long)93)); } 
if(BgL_testz00_14086)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14090;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14091;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14092;
BgL_auxz00_14092 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14091 = 
(BgL_auxz00_14092>=((long)97)); } 
if(BgL_testz00_14091)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14095;
BgL_auxz00_14095 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14090 = 
(BgL_auxz00_14095<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14090 = ((bool_t)0)
; } } 
if(BgL_testz00_14090)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14098;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14099;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14100;
BgL_auxz00_14100 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14099 = 
(BgL_auxz00_14100==((long)106)); } 
if(BgL_testz00_14099)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14098 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14103;
BgL_auxz00_14103 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14098 = 
(BgL_auxz00_14103==((long)105)); } } 
if(BgL_testz00_14098)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14106;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14107;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14108;
BgL_auxz00_14108 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14107 = 
(BgL_auxz00_14108==((long)112)); } 
if(BgL_testz00_14107)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14106 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14111;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14112;
BgL_auxz00_14112 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14111 = 
(BgL_auxz00_14112==((long)111)); } 
if(BgL_testz00_14111)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14106 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14115;
BgL_auxz00_14115 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14106 = 
(BgL_auxz00_14115==((long)110)); } } } 
if(BgL_testz00_14106)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14118;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14119;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14120;
BgL_auxz00_14120 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14119 = 
(BgL_auxz00_14120==((long)116)); } 
if(BgL_testz00_14119)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14118 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14123;
BgL_auxz00_14123 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14118 = 
(BgL_auxz00_14123==((long)115)); } } 
if(BgL_testz00_14118)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14126;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14127;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14128;
BgL_auxz00_14128 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14127 = 
(BgL_auxz00_14128==((long)125)); } 
if(BgL_testz00_14127)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14126 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14131;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14132;
BgL_auxz00_14132 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14131 = 
(BgL_auxz00_14132==((long)124)); } 
if(BgL_testz00_14131)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14126 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14135;
BgL_auxz00_14135 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_testz00_14126 = 
(BgL_auxz00_14135==((long)123)); } } } 
if(BgL_testz00_14126)
{ /* ./Read/reader.scm 336 */
BgL_test2167z00_1070 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14138;
BgL_auxz00_14138 = 
(long)(BgL_currentzd2charzd2_1063); 
BgL_test2167z00_1070 = 
(BgL_auxz00_14138==((long)127)); } } } } } } } } } } } } } } } 
if(BgL_test2167z00_1070)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1062; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14144;long BgL_lastzd2matchzd2_14143;obj_t BgL_inputzd2portzd2_14142;
BgL_inputzd2portzd2_14142 = BgL_inputzd2portzd2_1058; 
BgL_lastzd2matchzd2_14143 = BgL_newzd2matchzd2_1062; 
BgL_thezd2rgczd2contextz00_14144 = BgL_thezd2rgczd2contextz00_1060; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_14144; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_14143; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_14142; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5512z00_2990;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14145;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14146;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14147;
BgL_auxz00_14147 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14146 = 
(BgL_auxz00_14147>=((long)65)); } 
if(BgL_testz00_14146)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14150;
BgL_auxz00_14150 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14145 = 
(BgL_auxz00_14150<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14145 = ((bool_t)0)
; } } 
if(BgL_testz00_14145)
{ /* ./Read/reader.scm 336 */
BgL_test5512z00_2990 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14153;
BgL_auxz00_14153 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_test5512z00_2990 = 
(BgL_auxz00_14153==((long)97)); } } 
if(BgL_test5512z00_2990)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1026 = BgL_inputzd2portzd2_2982; 
BgL_lastzd2matchzd2_1027 = BgL_lastzd2matchzd2_2983; 
BgL_thezd2rgczd2contextz00_1028 = BgL_thezd2rgczd2contextz00_2984; 
BgL_zc3anonymousza32094ze3z83_1029:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1030;
BgL_currentzd2charzd2_1030 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1026); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14158;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14159;
BgL_auxz00_14159 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14158 = 
(BgL_auxz00_14159==((long)0)); } 
if(BgL_testz00_14158)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2096z00_1032;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7946z00_4964;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_4961;
BgL__andtest_1208z00_4961 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1026); 
if(BgL__andtest_1208z00_4961)
{ /* ./Read/reader.scm 336 */
BgL_res7946z00_4964 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1026); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7946z00_4964 = ((bool_t)0); } } 
BgL_test2096z00_1032 = BgL_res7946z00_4964; } 
if(BgL_test2096z00_1032)
{ 

goto BgL_zc3anonymousza32094ze3z83_1029;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1027
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2099z00_1033;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14166;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14167;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14168;
BgL_auxz00_14168 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14167 = 
(BgL_auxz00_14168>=((long)48)); } 
if(BgL_testz00_14167)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14171;
BgL_auxz00_14171 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14166 = 
(BgL_auxz00_14171<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14166 = ((bool_t)0)
; } } 
if(BgL_testz00_14166)
{ /* ./Read/reader.scm 336 */
BgL_test2099z00_1033 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14174;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14175;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14176;
BgL_auxz00_14176 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14175 = 
(BgL_auxz00_14176>=((long)65)); } 
if(BgL_testz00_14175)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14179;
BgL_auxz00_14179 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14174 = 
(BgL_auxz00_14179<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14174 = ((bool_t)0)
; } } 
if(BgL_testz00_14174)
{ /* ./Read/reader.scm 336 */
BgL_test2099z00_1033 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14182;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14183;
BgL_auxz00_14183 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14182 = 
(BgL_auxz00_14183>=((long)97)); } 
if(BgL_testz00_14182)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14186;
BgL_auxz00_14186 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_test2099z00_1033 = 
(BgL_auxz00_14186<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2099z00_1033 = ((bool_t)0); } } } } 
if(BgL_test2099z00_1033)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14192;long BgL_lastzd2matchzd2_14191;obj_t BgL_inputzd2portzd2_14190;
BgL_inputzd2portzd2_14190 = BgL_inputzd2portzd2_1026; 
BgL_lastzd2matchzd2_14191 = BgL_lastzd2matchzd2_1027; 
BgL_thezd2rgczd2contextz00_14192 = BgL_thezd2rgczd2contextz00_1028; 
BgL_thezd2rgczd2contextz00_2595 = BgL_thezd2rgczd2contextz00_14192; 
BgL_lastzd2matchzd2_2594 = BgL_lastzd2matchzd2_14191; 
BgL_inputzd2portzd2_2593 = BgL_inputzd2portzd2_14190; 
goto BgL_zc3anonymousza34861ze3z83_2596;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2101z00_1034;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14193;
BgL_auxz00_14193 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_test2101z00_1034 = 
(BgL_auxz00_14193==((long)40)); } 
if(BgL_test2101z00_1034)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_4982;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1026); 
BgL_newzd2matchzd2_4982 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_4982; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2103z00_1035;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14198;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14199;
BgL_auxz00_14199 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14198 = 
(BgL_auxz00_14199<((long)33)); } 
if(BgL_testz00_14198)
{ /* ./Read/reader.scm 336 */
BgL_test2103z00_1035 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14202;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14203;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14204;
BgL_auxz00_14204 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14203 = 
(BgL_auxz00_14204==((long)35)); } 
if(BgL_testz00_14203)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14202 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14207;
BgL_auxz00_14207 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14202 = 
(BgL_auxz00_14207==((long)34)); } } 
if(BgL_testz00_14202)
{ /* ./Read/reader.scm 336 */
BgL_test2103z00_1035 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14210;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14211;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14212;
BgL_auxz00_14212 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14211 = 
(BgL_auxz00_14212==((long)41)); } 
if(BgL_testz00_14211)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14210 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14210 = BgL_test2101z00_1034
; } } 
if(BgL_testz00_14210)
{ /* ./Read/reader.scm 336 */
BgL_test2103z00_1035 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14215;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14216;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14217;
BgL_auxz00_14217 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14216 = 
(BgL_auxz00_14217>=((long)48)); } 
if(BgL_testz00_14216)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14220;
BgL_auxz00_14220 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14215 = 
(BgL_auxz00_14220<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14215 = ((bool_t)0)
; } } 
if(BgL_testz00_14215)
{ /* ./Read/reader.scm 336 */
BgL_test2103z00_1035 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14223;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14224;
BgL_auxz00_14224 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14223 = 
(BgL_auxz00_14224==((long)59)); } 
if(BgL_testz00_14223)
{ /* ./Read/reader.scm 336 */
BgL_test2103z00_1035 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14227;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14228;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14229;
BgL_auxz00_14229 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14228 = 
(BgL_auxz00_14229>=((long)65)); } 
if(BgL_testz00_14228)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14232;
BgL_auxz00_14232 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14227 = 
(BgL_auxz00_14232<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14227 = ((bool_t)0)
; } } 
if(BgL_testz00_14227)
{ /* ./Read/reader.scm 336 */
BgL_test2103z00_1035 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14235;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14236;
BgL_auxz00_14236 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14235 = 
(BgL_auxz00_14236==((long)91)); } 
if(BgL_testz00_14235)
{ /* ./Read/reader.scm 336 */
BgL_test2103z00_1035 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14239;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14240;
BgL_auxz00_14240 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14239 = 
(BgL_auxz00_14240==((long)93)); } 
if(BgL_testz00_14239)
{ /* ./Read/reader.scm 336 */
BgL_test2103z00_1035 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14243;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14244;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14245;
BgL_auxz00_14245 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14244 = 
(BgL_auxz00_14245>=((long)97)); } 
if(BgL_testz00_14244)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14248;
BgL_auxz00_14248 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14243 = 
(BgL_auxz00_14248<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14243 = ((bool_t)0)
; } } 
if(BgL_testz00_14243)
{ /* ./Read/reader.scm 336 */
BgL_test2103z00_1035 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14251;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14252;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14253;
BgL_auxz00_14253 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14252 = 
(BgL_auxz00_14253==((long)125)); } 
if(BgL_testz00_14252)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14251 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14256;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14257;
BgL_auxz00_14257 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14256 = 
(BgL_auxz00_14257==((long)124)); } 
if(BgL_testz00_14256)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14251 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14260;
BgL_auxz00_14260 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_testz00_14251 = 
(BgL_auxz00_14260==((long)123)); } } } 
if(BgL_testz00_14251)
{ /* ./Read/reader.scm 336 */
BgL_test2103z00_1035 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14263;
BgL_auxz00_14263 = 
(long)(BgL_currentzd2charzd2_1030); 
BgL_test2103z00_1035 = 
(BgL_auxz00_14263==((long)127)); } } } } } } } } } } } 
if(BgL_test2103z00_1035)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1027; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14269;long BgL_lastzd2matchzd2_14268;obj_t BgL_inputzd2portzd2_14267;
BgL_inputzd2portzd2_14267 = BgL_inputzd2portzd2_1026; 
BgL_lastzd2matchzd2_14268 = BgL_lastzd2matchzd2_1027; 
BgL_thezd2rgczd2contextz00_14269 = BgL_thezd2rgczd2contextz00_1028; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_14269; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_14268; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_14267; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5514z00_2991;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14270;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14271;
BgL_auxz00_14271 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14270 = 
(BgL_auxz00_14271>=((long)48)); } 
if(BgL_testz00_14270)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14274;
BgL_auxz00_14274 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_test5514z00_2991 = 
(BgL_auxz00_14274<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5514z00_2991 = ((bool_t)0); } } 
if(BgL_test5514z00_2991)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_944 = BgL_inputzd2portzd2_2982; 
BgL_lastzd2matchzd2_945 = BgL_lastzd2matchzd2_2983; 
BgL_thezd2rgczd2contextz00_946 = BgL_thezd2rgczd2contextz00_2984; 
BgL_zc3anonymousza31952ze3z83_947:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_948;
BgL_currentzd2charzd2_948 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_944); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14279;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14280;
BgL_auxz00_14280 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14279 = 
(BgL_auxz00_14280==((long)0)); } 
if(BgL_testz00_14279)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test1954z00_950;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7942z00_4826;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_4823;
BgL__andtest_1208z00_4823 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_944); 
if(BgL__andtest_1208z00_4823)
{ /* ./Read/reader.scm 336 */
BgL_res7942z00_4826 = 
rgc_fill_buffer(BgL_inputzd2portzd2_944); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7942z00_4826 = ((bool_t)0); } } 
BgL_test1954z00_950 = BgL_res7942z00_4826; } 
if(BgL_test1954z00_950)
{ 

goto BgL_zc3anonymousza31952ze3z83_947;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_945
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test1957z00_951;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14287;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14288;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14289;
BgL_auxz00_14289 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14288 = 
(BgL_auxz00_14289>=((long)65)); } 
if(BgL_testz00_14288)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14292;
BgL_auxz00_14292 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14287 = 
(BgL_auxz00_14292<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14287 = ((bool_t)0)
; } } 
if(BgL_testz00_14287)
{ /* ./Read/reader.scm 336 */
BgL_test1957z00_951 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14295;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14296;
BgL_auxz00_14296 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14295 = 
(BgL_auxz00_14296>=((long)97)); } 
if(BgL_testz00_14295)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14299;
BgL_auxz00_14299 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_test1957z00_951 = 
(BgL_auxz00_14299<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test1957z00_951 = ((bool_t)0); } } } 
if(BgL_test1957z00_951)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14305;long BgL_lastzd2matchzd2_14304;obj_t BgL_inputzd2portzd2_14303;
BgL_inputzd2portzd2_14303 = BgL_inputzd2portzd2_944; 
BgL_lastzd2matchzd2_14304 = BgL_lastzd2matchzd2_945; 
BgL_thezd2rgczd2contextz00_14305 = BgL_thezd2rgczd2contextz00_946; 
BgL_thezd2rgczd2contextz00_2595 = BgL_thezd2rgczd2contextz00_14305; 
BgL_lastzd2matchzd2_2594 = BgL_lastzd2matchzd2_14304; 
BgL_inputzd2portzd2_2593 = BgL_inputzd2portzd2_14303; 
goto BgL_zc3anonymousza34861ze3z83_2596;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test1959z00_952;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14306;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14307;
BgL_auxz00_14307 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14306 = 
(BgL_auxz00_14307>=((long)48)); } 
if(BgL_testz00_14306)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14310;
BgL_auxz00_14310 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_test1959z00_952 = 
(BgL_auxz00_14310<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test1959z00_952 = ((bool_t)0); } } 
if(BgL_test1959z00_952)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_3100 = BgL_inputzd2portzd2_944; 
BgL_lastzd2matchzd2_3101 = BgL_lastzd2matchzd2_945; 
BgL_thezd2rgczd2contextz00_3102 = BgL_thezd2rgczd2contextz00_946; 
BgL_zc3anonymousza35721ze3z83_3103:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_3104;
BgL_currentzd2charzd2_3104 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3100); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14315;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14316;
BgL_auxz00_14316 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14315 = 
(BgL_auxz00_14316==((long)0)); } 
if(BgL_testz00_14315)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5723z00_3106;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8026z00_8739;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8736;
BgL__andtest_1208z00_8736 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3100); 
if(BgL__andtest_1208z00_8736)
{ /* ./Read/reader.scm 336 */
BgL_res8026z00_8739 = 
rgc_fill_buffer(BgL_inputzd2portzd2_3100); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8026z00_8739 = ((bool_t)0); } } 
BgL_test5723z00_3106 = BgL_res8026z00_8739; } 
if(BgL_test5723z00_3106)
{ 

goto BgL_zc3anonymousza35721ze3z83_3103;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_3101
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5726z00_3107;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14323;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14324;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14325;
BgL_auxz00_14325 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14324 = 
(BgL_auxz00_14325>=((long)65)); } 
if(BgL_testz00_14324)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14328;
BgL_auxz00_14328 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14323 = 
(BgL_auxz00_14328<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14323 = ((bool_t)0)
; } } 
if(BgL_testz00_14323)
{ /* ./Read/reader.scm 336 */
BgL_test5726z00_3107 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14331;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14332;
BgL_auxz00_14332 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14331 = 
(BgL_auxz00_14332>=((long)97)); } 
if(BgL_testz00_14331)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14335;
BgL_auxz00_14335 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_test5726z00_3107 = 
(BgL_auxz00_14335<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5726z00_3107 = ((bool_t)0); } } } 
if(BgL_test5726z00_3107)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14341;long BgL_lastzd2matchzd2_14340;obj_t BgL_inputzd2portzd2_14339;
BgL_inputzd2portzd2_14339 = BgL_inputzd2portzd2_3100; 
BgL_lastzd2matchzd2_14340 = BgL_lastzd2matchzd2_3101; 
BgL_thezd2rgczd2contextz00_14341 = BgL_thezd2rgczd2contextz00_3102; 
BgL_thezd2rgczd2contextz00_1683 = BgL_thezd2rgczd2contextz00_14341; 
BgL_lastzd2matchzd2_1682 = BgL_lastzd2matchzd2_14340; 
BgL_inputzd2portzd2_1681 = BgL_inputzd2portzd2_14339; 
goto BgL_zc3anonymousza33282ze3z83_1684;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5728z00_3108;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14342;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14343;
BgL_auxz00_14343 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14342 = 
(BgL_auxz00_14343>=((long)48)); } 
if(BgL_testz00_14342)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14346;
BgL_auxz00_14346 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_test5728z00_3108 = 
(BgL_auxz00_14346<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5728z00_3108 = ((bool_t)0); } } 
if(BgL_test5728z00_3108)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1857 = BgL_inputzd2portzd2_3100; 
BgL_lastzd2matchzd2_1858 = BgL_lastzd2matchzd2_3101; 
BgL_thezd2rgczd2contextz00_1859 = BgL_thezd2rgczd2contextz00_3102; 
BgL_zc3anonymousza33599ze3z83_1860:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1861;
BgL_currentzd2charzd2_1861 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1857); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14351;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14352;
BgL_auxz00_14352 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14351 = 
(BgL_auxz00_14352==((long)0)); } 
if(BgL_testz00_14351)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3601z00_1863;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7977z00_6518;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6515;
BgL__andtest_1208z00_6515 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1857); 
if(BgL__andtest_1208z00_6515)
{ /* ./Read/reader.scm 336 */
BgL_res7977z00_6518 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1857); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7977z00_6518 = ((bool_t)0); } } 
BgL_test3601z00_1863 = BgL_res7977z00_6518; } 
if(BgL_test3601z00_1863)
{ 

goto BgL_zc3anonymousza33599ze3z83_1860;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1858
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3604z00_1864;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14359;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14360;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14361;
BgL_auxz00_14361 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14360 = 
(BgL_auxz00_14361>=((long)65)); } 
if(BgL_testz00_14360)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14364;
BgL_auxz00_14364 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14359 = 
(BgL_auxz00_14364<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14359 = ((bool_t)0)
; } } 
if(BgL_testz00_14359)
{ /* ./Read/reader.scm 336 */
BgL_test3604z00_1864 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14367;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14368;
BgL_auxz00_14368 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14367 = 
(BgL_auxz00_14368>=((long)97)); } 
if(BgL_testz00_14367)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14371;
BgL_auxz00_14371 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_test3604z00_1864 = 
(BgL_auxz00_14371<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test3604z00_1864 = ((bool_t)0); } } } 
if(BgL_test3604z00_1864)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14377;long BgL_lastzd2matchzd2_14376;obj_t BgL_inputzd2portzd2_14375;
BgL_inputzd2portzd2_14375 = BgL_inputzd2portzd2_1857; 
BgL_lastzd2matchzd2_14376 = BgL_lastzd2matchzd2_1858; 
BgL_thezd2rgczd2contextz00_14377 = BgL_thezd2rgczd2contextz00_1859; 
BgL_thezd2rgczd2contextz00_1797 = BgL_thezd2rgczd2contextz00_14377; 
BgL_lastzd2matchzd2_1796 = BgL_lastzd2matchzd2_14376; 
BgL_inputzd2portzd2_1795 = BgL_inputzd2portzd2_14375; 
goto BgL_zc3anonymousza33487ze3z83_1798;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3606z00_1865;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14378;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14379;
BgL_auxz00_14379 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14378 = 
(BgL_auxz00_14379>=((long)48)); } 
if(BgL_testz00_14378)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14382;
BgL_auxz00_14382 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_test3606z00_1865 = 
(BgL_auxz00_14382<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test3606z00_1865 = ((bool_t)0); } } 
if(BgL_test3606z00_1865)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1763 = BgL_inputzd2portzd2_1857; 
BgL_lastzd2matchzd2_1764 = BgL_lastzd2matchzd2_1858; 
BgL_thezd2rgczd2contextz00_1765 = BgL_thezd2rgczd2contextz00_1859; 
BgL_zc3anonymousza33437ze3z83_1766:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1767;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1763); 
BgL_newzd2matchzd2_1767 = ((long)9); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1768;
BgL_currentzd2charzd2_1768 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1763); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14388;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14389;
BgL_auxz00_14389 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14388 = 
(BgL_auxz00_14389==((long)0)); } 
if(BgL_testz00_14388)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3439z00_1770;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7974z00_6350;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6347;
BgL__andtest_1208z00_6347 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1763); 
if(BgL__andtest_1208z00_6347)
{ /* ./Read/reader.scm 336 */
BgL_res7974z00_6350 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1763); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7974z00_6350 = ((bool_t)0); } } 
BgL_test3439z00_1770 = BgL_res7974z00_6350; } 
if(BgL_test3439z00_1770)
{ 

goto BgL_zc3anonymousza33437ze3z83_1766;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1767
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3442z00_1771;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14396;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14397;
BgL_auxz00_14397 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14396 = 
(BgL_auxz00_14397>=((long)48)); } 
if(BgL_testz00_14396)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14400;
BgL_auxz00_14400 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_test3442z00_1771 = 
(BgL_auxz00_14400<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test3442z00_1771 = ((bool_t)0); } } 
if(BgL_test3442z00_1771)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2675 = BgL_inputzd2portzd2_1763; 
BgL_lastzd2matchzd2_2676 = BgL_newzd2matchzd2_1767; 
BgL_thezd2rgczd2contextz00_2677 = BgL_thezd2rgczd2contextz00_1765; 
BgL_zc3anonymousza35016ze3z83_2678:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2679;
BgL_currentzd2charzd2_2679 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2675); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14405;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14406;
BgL_auxz00_14406 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14405 = 
(BgL_auxz00_14406==((long)0)); } 
if(BgL_testz00_14405)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5018z00_2681;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8012z00_7995;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7992;
BgL__andtest_1208z00_7992 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2675); 
if(BgL__andtest_1208z00_7992)
{ /* ./Read/reader.scm 336 */
BgL_res8012z00_7995 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2675); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8012z00_7995 = ((bool_t)0); } } 
BgL_test5018z00_2681 = BgL_res8012z00_7995; } 
if(BgL_test5018z00_2681)
{ 

goto BgL_zc3anonymousza35016ze3z83_2678;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2676
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5021z00_2682;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14413;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14414;
BgL_auxz00_14414 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14413 = 
(BgL_auxz00_14414>=((long)48)); } 
if(BgL_testz00_14413)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14417;
BgL_auxz00_14417 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_test5021z00_2682 = 
(BgL_auxz00_14417<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5021z00_2682 = ((bool_t)0); } } 
if(BgL_test5021z00_2682)
{ /* ./Read/reader.scm 336 */
{ 

goto BgL_zc3anonymousza35016ze3z83_2678;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5023z00_2683;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14421;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14422;
BgL_auxz00_14422 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14421 = 
(BgL_auxz00_14422<((long)33)); } 
if(BgL_testz00_14421)
{ /* ./Read/reader.scm 336 */
BgL_test5023z00_2683 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14425;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14426;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14427;
BgL_auxz00_14427 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14426 = 
(BgL_auxz00_14427==((long)35)); } 
if(BgL_testz00_14426)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14425 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14430;
BgL_auxz00_14430 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14425 = 
(BgL_auxz00_14430==((long)34)); } } 
if(BgL_testz00_14425)
{ /* ./Read/reader.scm 336 */
BgL_test5023z00_2683 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14433;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14434;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14435;
BgL_auxz00_14435 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14434 = 
(BgL_auxz00_14435==((long)41)); } 
if(BgL_testz00_14434)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14433 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14438;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14439;
BgL_auxz00_14439 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14438 = 
(BgL_auxz00_14439==((long)40)); } 
if(BgL_testz00_14438)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14433 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14442;
BgL_auxz00_14442 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14433 = 
(BgL_auxz00_14442==((long)39)); } } } 
if(BgL_testz00_14433)
{ /* ./Read/reader.scm 336 */
BgL_test5023z00_2683 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14445;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14446;
BgL_auxz00_14446 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14445 = 
(BgL_auxz00_14446==((long)44)); } 
if(BgL_testz00_14445)
{ /* ./Read/reader.scm 336 */
BgL_test5023z00_2683 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test5021z00_2682)
{ /* ./Read/reader.scm 336 */
BgL_test5023z00_2683 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14450;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14451;
BgL_auxz00_14451 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14450 = 
(BgL_auxz00_14451==((long)59)); } 
if(BgL_testz00_14450)
{ /* ./Read/reader.scm 336 */
BgL_test5023z00_2683 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14454;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14455;
BgL_auxz00_14455 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14454 = 
(BgL_auxz00_14455==((long)91)); } 
if(BgL_testz00_14454)
{ /* ./Read/reader.scm 336 */
BgL_test5023z00_2683 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14458;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14459;
BgL_auxz00_14459 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14458 = 
(BgL_auxz00_14459==((long)93)); } 
if(BgL_testz00_14458)
{ /* ./Read/reader.scm 336 */
BgL_test5023z00_2683 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14462;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14463;
BgL_auxz00_14463 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14462 = 
(BgL_auxz00_14463==((long)96)); } 
if(BgL_testz00_14462)
{ /* ./Read/reader.scm 336 */
BgL_test5023z00_2683 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14466;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14467;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14468;
BgL_auxz00_14468 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14467 = 
(BgL_auxz00_14468==((long)125)); } 
if(BgL_testz00_14467)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14466 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14471;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14472;
BgL_auxz00_14472 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14471 = 
(BgL_auxz00_14472==((long)124)); } 
if(BgL_testz00_14471)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14466 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14475;
BgL_auxz00_14475 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_testz00_14466 = 
(BgL_auxz00_14475==((long)123)); } } } 
if(BgL_testz00_14466)
{ /* ./Read/reader.scm 336 */
BgL_test5023z00_2683 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14478;
BgL_auxz00_14478 = 
(long)(BgL_currentzd2charzd2_2679); 
BgL_test5023z00_2683 = 
(BgL_auxz00_14478==((long)127)); } } } } } } } } } } } 
if(BgL_test5023z00_2683)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2676; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14484;long BgL_lastzd2matchzd2_14483;obj_t BgL_inputzd2portzd2_14482;
BgL_inputzd2portzd2_14482 = BgL_inputzd2portzd2_2675; 
BgL_lastzd2matchzd2_14483 = BgL_lastzd2matchzd2_2676; 
BgL_thezd2rgczd2contextz00_14484 = BgL_thezd2rgczd2contextz00_2677; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_14484; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_14483; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_14482; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3444z00_1772;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14485;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14486;
BgL_auxz00_14486 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14485 = 
(BgL_auxz00_14486<((long)33)); } 
if(BgL_testz00_14485)
{ /* ./Read/reader.scm 336 */
BgL_test3444z00_1772 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14489;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14490;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14491;
BgL_auxz00_14491 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14490 = 
(BgL_auxz00_14491==((long)35)); } 
if(BgL_testz00_14490)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14489 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14494;
BgL_auxz00_14494 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14489 = 
(BgL_auxz00_14494==((long)34)); } } 
if(BgL_testz00_14489)
{ /* ./Read/reader.scm 336 */
BgL_test3444z00_1772 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14497;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14498;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14499;
BgL_auxz00_14499 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14498 = 
(BgL_auxz00_14499==((long)41)); } 
if(BgL_testz00_14498)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14497 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14502;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14503;
BgL_auxz00_14503 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14502 = 
(BgL_auxz00_14503==((long)40)); } 
if(BgL_testz00_14502)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14497 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14506;
BgL_auxz00_14506 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14497 = 
(BgL_auxz00_14506==((long)39)); } } } 
if(BgL_testz00_14497)
{ /* ./Read/reader.scm 336 */
BgL_test3444z00_1772 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14509;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14510;
BgL_auxz00_14510 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14509 = 
(BgL_auxz00_14510==((long)44)); } 
if(BgL_testz00_14509)
{ /* ./Read/reader.scm 336 */
BgL_test3444z00_1772 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test3442z00_1771)
{ /* ./Read/reader.scm 336 */
BgL_test3444z00_1772 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14514;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14515;
BgL_auxz00_14515 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14514 = 
(BgL_auxz00_14515==((long)59)); } 
if(BgL_testz00_14514)
{ /* ./Read/reader.scm 336 */
BgL_test3444z00_1772 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14518;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14519;
BgL_auxz00_14519 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14518 = 
(BgL_auxz00_14519==((long)91)); } 
if(BgL_testz00_14518)
{ /* ./Read/reader.scm 336 */
BgL_test3444z00_1772 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14522;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14523;
BgL_auxz00_14523 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14522 = 
(BgL_auxz00_14523==((long)93)); } 
if(BgL_testz00_14522)
{ /* ./Read/reader.scm 336 */
BgL_test3444z00_1772 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14526;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14527;
BgL_auxz00_14527 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14526 = 
(BgL_auxz00_14527==((long)96)); } 
if(BgL_testz00_14526)
{ /* ./Read/reader.scm 336 */
BgL_test3444z00_1772 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14530;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14531;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14532;
BgL_auxz00_14532 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14531 = 
(BgL_auxz00_14532==((long)125)); } 
if(BgL_testz00_14531)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14530 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14535;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14536;
BgL_auxz00_14536 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14535 = 
(BgL_auxz00_14536==((long)124)); } 
if(BgL_testz00_14535)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14530 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14539;
BgL_auxz00_14539 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_testz00_14530 = 
(BgL_auxz00_14539==((long)123)); } } } 
if(BgL_testz00_14530)
{ /* ./Read/reader.scm 336 */
BgL_test3444z00_1772 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14542;
BgL_auxz00_14542 = 
(long)(BgL_currentzd2charzd2_1768); 
BgL_test3444z00_1772 = 
(BgL_auxz00_14542==((long)127)); } } } } } } } } } } } 
if(BgL_test3444z00_1772)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1767; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14548;long BgL_lastzd2matchzd2_14547;obj_t BgL_inputzd2portzd2_14546;
BgL_inputzd2portzd2_14546 = BgL_inputzd2portzd2_1763; 
BgL_lastzd2matchzd2_14547 = BgL_newzd2matchzd2_1767; 
BgL_thezd2rgczd2contextz00_14548 = BgL_thezd2rgczd2contextz00_1765; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_14548; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_14547; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_14546; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3608z00_1866;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14549;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14550;
BgL_auxz00_14550 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14549 = 
(BgL_auxz00_14550<((long)33)); } 
if(BgL_testz00_14549)
{ /* ./Read/reader.scm 336 */
BgL_test3608z00_1866 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14553;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14554;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14555;
BgL_auxz00_14555 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14554 = 
(BgL_auxz00_14555==((long)35)); } 
if(BgL_testz00_14554)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14553 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14558;
BgL_auxz00_14558 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14553 = 
(BgL_auxz00_14558==((long)34)); } } 
if(BgL_testz00_14553)
{ /* ./Read/reader.scm 336 */
BgL_test3608z00_1866 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14561;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14562;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14563;
BgL_auxz00_14563 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14562 = 
(BgL_auxz00_14563==((long)41)); } 
if(BgL_testz00_14562)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14561 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14566;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14567;
BgL_auxz00_14567 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14566 = 
(BgL_auxz00_14567==((long)40)); } 
if(BgL_testz00_14566)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14561 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14570;
BgL_auxz00_14570 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14561 = 
(BgL_auxz00_14570==((long)39)); } } } 
if(BgL_testz00_14561)
{ /* ./Read/reader.scm 336 */
BgL_test3608z00_1866 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14573;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14574;
BgL_auxz00_14574 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14573 = 
(BgL_auxz00_14574==((long)44)); } 
if(BgL_testz00_14573)
{ /* ./Read/reader.scm 336 */
BgL_test3608z00_1866 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test3606z00_1865)
{ /* ./Read/reader.scm 336 */
BgL_test3608z00_1866 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14578;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14579;
BgL_auxz00_14579 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14578 = 
(BgL_auxz00_14579==((long)59)); } 
if(BgL_testz00_14578)
{ /* ./Read/reader.scm 336 */
BgL_test3608z00_1866 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14582;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14583;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14584;
BgL_auxz00_14584 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14583 = 
(BgL_auxz00_14584>=((long)65)); } 
if(BgL_testz00_14583)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14587;
BgL_auxz00_14587 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14582 = 
(BgL_auxz00_14587<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14582 = ((bool_t)0)
; } } 
if(BgL_testz00_14582)
{ /* ./Read/reader.scm 336 */
BgL_test3608z00_1866 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14590;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14591;
BgL_auxz00_14591 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14590 = 
(BgL_auxz00_14591==((long)91)); } 
if(BgL_testz00_14590)
{ /* ./Read/reader.scm 336 */
BgL_test3608z00_1866 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14594;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14595;
BgL_auxz00_14595 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14594 = 
(BgL_auxz00_14595==((long)93)); } 
if(BgL_testz00_14594)
{ /* ./Read/reader.scm 336 */
BgL_test3608z00_1866 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14598;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14599;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14600;
BgL_auxz00_14600 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14599 = 
(BgL_auxz00_14600>=((long)96)); } 
if(BgL_testz00_14599)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14603;
BgL_auxz00_14603 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14598 = 
(BgL_auxz00_14603<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14598 = ((bool_t)0)
; } } 
if(BgL_testz00_14598)
{ /* ./Read/reader.scm 336 */
BgL_test3608z00_1866 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14606;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14607;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14608;
BgL_auxz00_14608 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14607 = 
(BgL_auxz00_14608==((long)125)); } 
if(BgL_testz00_14607)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14606 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14611;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14612;
BgL_auxz00_14612 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14611 = 
(BgL_auxz00_14612==((long)124)); } 
if(BgL_testz00_14611)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14606 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14615;
BgL_auxz00_14615 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_testz00_14606 = 
(BgL_auxz00_14615==((long)123)); } } } 
if(BgL_testz00_14606)
{ /* ./Read/reader.scm 336 */
BgL_test3608z00_1866 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14618;
BgL_auxz00_14618 = 
(long)(BgL_currentzd2charzd2_1861); 
BgL_test3608z00_1866 = 
(BgL_auxz00_14618==((long)127)); } } } } } } } } } } } } 
if(BgL_test3608z00_1866)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1858; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14624;long BgL_lastzd2matchzd2_14623;obj_t BgL_inputzd2portzd2_14622;
BgL_inputzd2portzd2_14622 = BgL_inputzd2portzd2_1857; 
BgL_lastzd2matchzd2_14623 = BgL_lastzd2matchzd2_1858; 
BgL_thezd2rgczd2contextz00_14624 = BgL_thezd2rgczd2contextz00_1859; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_14624; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_14623; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_14622; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5730z00_3109;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14625;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14626;
BgL_auxz00_14626 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14625 = 
(BgL_auxz00_14626<((long)33)); } 
if(BgL_testz00_14625)
{ /* ./Read/reader.scm 336 */
BgL_test5730z00_3109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14629;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14630;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14631;
BgL_auxz00_14631 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14630 = 
(BgL_auxz00_14631==((long)35)); } 
if(BgL_testz00_14630)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14629 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14634;
BgL_auxz00_14634 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14629 = 
(BgL_auxz00_14634==((long)34)); } } 
if(BgL_testz00_14629)
{ /* ./Read/reader.scm 336 */
BgL_test5730z00_3109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14637;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14638;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14639;
BgL_auxz00_14639 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14638 = 
(BgL_auxz00_14639==((long)41)); } 
if(BgL_testz00_14638)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14637 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14642;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14643;
BgL_auxz00_14643 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14642 = 
(BgL_auxz00_14643==((long)40)); } 
if(BgL_testz00_14642)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14637 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14646;
BgL_auxz00_14646 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14637 = 
(BgL_auxz00_14646==((long)39)); } } } 
if(BgL_testz00_14637)
{ /* ./Read/reader.scm 336 */
BgL_test5730z00_3109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14649;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14650;
BgL_auxz00_14650 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14649 = 
(BgL_auxz00_14650==((long)44)); } 
if(BgL_testz00_14649)
{ /* ./Read/reader.scm 336 */
BgL_test5730z00_3109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test5728z00_3108)
{ /* ./Read/reader.scm 336 */
BgL_test5730z00_3109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14654;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14655;
BgL_auxz00_14655 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14654 = 
(BgL_auxz00_14655==((long)59)); } 
if(BgL_testz00_14654)
{ /* ./Read/reader.scm 336 */
BgL_test5730z00_3109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14658;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14659;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14660;
BgL_auxz00_14660 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14659 = 
(BgL_auxz00_14660>=((long)65)); } 
if(BgL_testz00_14659)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14663;
BgL_auxz00_14663 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14658 = 
(BgL_auxz00_14663<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14658 = ((bool_t)0)
; } } 
if(BgL_testz00_14658)
{ /* ./Read/reader.scm 336 */
BgL_test5730z00_3109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14666;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14667;
BgL_auxz00_14667 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14666 = 
(BgL_auxz00_14667==((long)91)); } 
if(BgL_testz00_14666)
{ /* ./Read/reader.scm 336 */
BgL_test5730z00_3109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14670;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14671;
BgL_auxz00_14671 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14670 = 
(BgL_auxz00_14671==((long)93)); } 
if(BgL_testz00_14670)
{ /* ./Read/reader.scm 336 */
BgL_test5730z00_3109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14674;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14675;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14676;
BgL_auxz00_14676 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14675 = 
(BgL_auxz00_14676>=((long)96)); } 
if(BgL_testz00_14675)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14679;
BgL_auxz00_14679 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14674 = 
(BgL_auxz00_14679<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14674 = ((bool_t)0)
; } } 
if(BgL_testz00_14674)
{ /* ./Read/reader.scm 336 */
BgL_test5730z00_3109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14682;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14683;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14684;
BgL_auxz00_14684 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14683 = 
(BgL_auxz00_14684==((long)125)); } 
if(BgL_testz00_14683)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14682 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14687;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14688;
BgL_auxz00_14688 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14687 = 
(BgL_auxz00_14688==((long)124)); } 
if(BgL_testz00_14687)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14682 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14691;
BgL_auxz00_14691 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_testz00_14682 = 
(BgL_auxz00_14691==((long)123)); } } } 
if(BgL_testz00_14682)
{ /* ./Read/reader.scm 336 */
BgL_test5730z00_3109 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14694;
BgL_auxz00_14694 = 
(long)(BgL_currentzd2charzd2_3104); 
BgL_test5730z00_3109 = 
(BgL_auxz00_14694==((long)127)); } } } } } } } } } } } } 
if(BgL_test5730z00_3109)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_3101; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14700;long BgL_lastzd2matchzd2_14699;obj_t BgL_inputzd2portzd2_14698;
BgL_inputzd2portzd2_14698 = BgL_inputzd2portzd2_3100; 
BgL_lastzd2matchzd2_14699 = BgL_lastzd2matchzd2_3101; 
BgL_thezd2rgczd2contextz00_14700 = BgL_thezd2rgczd2contextz00_3102; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_14700; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_14699; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_14698; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test1961z00_953;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14701;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14702;
BgL_auxz00_14702 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14701 = 
(BgL_auxz00_14702<((long)33)); } 
if(BgL_testz00_14701)
{ /* ./Read/reader.scm 336 */
BgL_test1961z00_953 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14705;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14706;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14707;
BgL_auxz00_14707 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14706 = 
(BgL_auxz00_14707==((long)35)); } 
if(BgL_testz00_14706)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14705 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14710;
BgL_auxz00_14710 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14705 = 
(BgL_auxz00_14710==((long)34)); } } 
if(BgL_testz00_14705)
{ /* ./Read/reader.scm 336 */
BgL_test1961z00_953 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14713;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14714;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14715;
BgL_auxz00_14715 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14714 = 
(BgL_auxz00_14715==((long)41)); } 
if(BgL_testz00_14714)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14713 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14718;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14719;
BgL_auxz00_14719 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14718 = 
(BgL_auxz00_14719==((long)40)); } 
if(BgL_testz00_14718)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14713 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14722;
BgL_auxz00_14722 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14713 = 
(BgL_auxz00_14722==((long)39)); } } } 
if(BgL_testz00_14713)
{ /* ./Read/reader.scm 336 */
BgL_test1961z00_953 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14725;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14726;
BgL_auxz00_14726 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14725 = 
(BgL_auxz00_14726==((long)44)); } 
if(BgL_testz00_14725)
{ /* ./Read/reader.scm 336 */
BgL_test1961z00_953 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test1959z00_952)
{ /* ./Read/reader.scm 336 */
BgL_test1961z00_953 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14730;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14731;
BgL_auxz00_14731 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14730 = 
(BgL_auxz00_14731==((long)59)); } 
if(BgL_testz00_14730)
{ /* ./Read/reader.scm 336 */
BgL_test1961z00_953 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14734;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14735;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14736;
BgL_auxz00_14736 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14735 = 
(BgL_auxz00_14736>=((long)65)); } 
if(BgL_testz00_14735)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14739;
BgL_auxz00_14739 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14734 = 
(BgL_auxz00_14739<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14734 = ((bool_t)0)
; } } 
if(BgL_testz00_14734)
{ /* ./Read/reader.scm 336 */
BgL_test1961z00_953 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14742;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14743;
BgL_auxz00_14743 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14742 = 
(BgL_auxz00_14743==((long)91)); } 
if(BgL_testz00_14742)
{ /* ./Read/reader.scm 336 */
BgL_test1961z00_953 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14746;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14747;
BgL_auxz00_14747 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14746 = 
(BgL_auxz00_14747==((long)93)); } 
if(BgL_testz00_14746)
{ /* ./Read/reader.scm 336 */
BgL_test1961z00_953 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14750;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14751;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14752;
BgL_auxz00_14752 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14751 = 
(BgL_auxz00_14752>=((long)96)); } 
if(BgL_testz00_14751)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14755;
BgL_auxz00_14755 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14750 = 
(BgL_auxz00_14755<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14750 = ((bool_t)0)
; } } 
if(BgL_testz00_14750)
{ /* ./Read/reader.scm 336 */
BgL_test1961z00_953 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14758;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14759;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14760;
BgL_auxz00_14760 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14759 = 
(BgL_auxz00_14760==((long)125)); } 
if(BgL_testz00_14759)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14758 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14763;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14764;
BgL_auxz00_14764 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14763 = 
(BgL_auxz00_14764==((long)124)); } 
if(BgL_testz00_14763)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14758 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14767;
BgL_auxz00_14767 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_testz00_14758 = 
(BgL_auxz00_14767==((long)123)); } } } 
if(BgL_testz00_14758)
{ /* ./Read/reader.scm 336 */
BgL_test1961z00_953 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14770;
BgL_auxz00_14770 = 
(long)(BgL_currentzd2charzd2_948); 
BgL_test1961z00_953 = 
(BgL_auxz00_14770==((long)127)); } } } } } } } } } } } } 
if(BgL_test1961z00_953)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_945; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14776;long BgL_lastzd2matchzd2_14775;obj_t BgL_inputzd2portzd2_14774;
BgL_inputzd2portzd2_14774 = BgL_inputzd2portzd2_944; 
BgL_lastzd2matchzd2_14775 = BgL_lastzd2matchzd2_945; 
BgL_thezd2rgczd2contextz00_14776 = BgL_thezd2rgczd2contextz00_946; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_14776; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_14775; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_14774; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5516z00_2992;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14777;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14778;
BgL_auxz00_14778 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14777 = 
(BgL_auxz00_14778==((long)45)); } 
if(BgL_testz00_14777)
{ /* ./Read/reader.scm 336 */
BgL_test5516z00_2992 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14781;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14782;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14783;
BgL_auxz00_14783 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14782 = 
(BgL_auxz00_14783==((long)106)); } 
if(BgL_testz00_14782)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14781 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14786;
BgL_auxz00_14786 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14781 = 
(BgL_auxz00_14786==((long)105)); } } 
if(BgL_testz00_14781)
{ /* ./Read/reader.scm 336 */
BgL_test5516z00_2992 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14789;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14790;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14791;
BgL_auxz00_14791 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14790 = 
(BgL_auxz00_14791==((long)112)); } 
if(BgL_testz00_14790)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14789 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14794;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14795;
BgL_auxz00_14795 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14794 = 
(BgL_auxz00_14795==((long)111)); } 
if(BgL_testz00_14794)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14789 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14798;
BgL_auxz00_14798 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14789 = 
(BgL_auxz00_14798==((long)110)); } } } 
if(BgL_testz00_14789)
{ /* ./Read/reader.scm 336 */
BgL_test5516z00_2992 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL__ortest_1141z00_3026;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14801;
BgL_auxz00_14801 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL__ortest_1141z00_3026 = 
(BgL_auxz00_14801==((long)116)); } 
if(BgL__ortest_1141z00_3026)
{ /* ./Read/reader.scm 336 */
BgL_test5516z00_2992 = BgL__ortest_1141z00_3026; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14805;
BgL_auxz00_14805 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_test5516z00_2992 = 
(BgL_auxz00_14805==((long)115)); } } } } } 
if(BgL_test5516z00_2992)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14811;long BgL_lastzd2matchzd2_14810;obj_t BgL_inputzd2portzd2_14809;
BgL_inputzd2portzd2_14809 = BgL_inputzd2portzd2_2982; 
BgL_lastzd2matchzd2_14810 = BgL_lastzd2matchzd2_2983; 
BgL_thezd2rgczd2contextz00_14811 = BgL_thezd2rgczd2contextz00_2984; 
BgL_thezd2rgczd2contextz00_3061 = BgL_thezd2rgczd2contextz00_14811; 
BgL_lastzd2matchzd2_3060 = BgL_lastzd2matchzd2_14810; 
BgL_inputzd2portzd2_3059 = BgL_inputzd2portzd2_14809; 
goto BgL_zc3anonymousza35645ze3z83_3062;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14812;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14813;
BgL_auxz00_14813 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14812 = 
(BgL_auxz00_14813==((long)40)); } 
if(BgL_testz00_14812)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_8551;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2982); 
BgL_newzd2matchzd2_8551 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_8551; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5520z00_2994;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14817;
BgL_auxz00_14817 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_test5520z00_2994 = 
(BgL_auxz00_14817==((long)34)); } 
if(BgL_test5520z00_2994)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_935 = BgL_inputzd2portzd2_2982; 
BgL_lastzd2matchzd2_936 = BgL_lastzd2matchzd2_2983; 
BgL_thezd2rgczd2contextz00_937 = BgL_thezd2rgczd2contextz00_2984; 
BgL_zc3anonymousza31940ze3z83_938:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_939;
BgL_currentzd2charzd2_939 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_935); 
switch( 
(long)(BgL_currentzd2charzd2_939)) { case ((long)0) : 

{ /* ./Read/reader.scm 336 */
bool_t BgL_test1942z00_943;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7941z00_4813;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_4810;
BgL__andtest_1208z00_4810 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_935); 
if(BgL__andtest_1208z00_4810)
{ /* ./Read/reader.scm 336 */
BgL_res7941z00_4813 = 
rgc_fill_buffer(BgL_inputzd2portzd2_935); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7941z00_4813 = ((bool_t)0); } } 
BgL_test1942z00_943 = BgL_res7941z00_4813; } 
if(BgL_test1942z00_943)
{ 

goto BgL_zc3anonymousza31940ze3z83_938;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_936
; } } break;case ((long)92) : 

BgL_inputzd2portzd2_3133 = BgL_inputzd2portzd2_935; 
BgL_lastzd2matchzd2_3134 = BgL_lastzd2matchzd2_936; 
BgL_thezd2rgczd2contextz00_3135 = BgL_thezd2rgczd2contextz00_937; 
BgL_zc3anonymousza35782ze3z83_3136:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_3137;
BgL_currentzd2charzd2_3137 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3133); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14827;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14828;
BgL_auxz00_14828 = 
(long)(BgL_currentzd2charzd2_3137); 
BgL_testz00_14827 = 
(BgL_auxz00_14828==((long)0)); } 
if(BgL_testz00_14827)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5784z00_3139;
BgL_test5784z00_3139 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3133); 
if(BgL_test5784z00_3139)
{ /* ./Read/reader.scm 336 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3133))
{ 

goto BgL_zc3anonymousza35782ze3z83_3136;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_3134
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_14837;long BgL_lastzd2matchzd2_14836;obj_t BgL_inputzd2portzd2_14835;
BgL_inputzd2portzd2_14835 = BgL_inputzd2portzd2_3133; 
BgL_lastzd2matchzd2_14836 = BgL_lastzd2matchzd2_3134; 
BgL_thezd2rgczd2contextz00_14837 = BgL_thezd2rgczd2contextz00_3135; 
BgL_thezd2rgczd2contextz00_937 = BgL_thezd2rgczd2contextz00_14837; 
BgL_lastzd2matchzd2_936 = BgL_lastzd2matchzd2_14836; 
BgL_inputzd2portzd2_935 = BgL_inputzd2portzd2_14835; 
goto BgL_zc3anonymousza31940ze3z83_938;} } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14838;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14839;
BgL_auxz00_14839 = 
(long)(BgL_currentzd2charzd2_3137); 
BgL_testz00_14838 = 
(BgL_auxz00_14839==((long)10)); } 
if(BgL_testz00_14838)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_3134; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14844;long BgL_lastzd2matchzd2_14843;obj_t BgL_inputzd2portzd2_14842;
BgL_inputzd2portzd2_14842 = BgL_inputzd2portzd2_3133; 
BgL_lastzd2matchzd2_14843 = BgL_lastzd2matchzd2_3134; 
BgL_thezd2rgczd2contextz00_14844 = BgL_thezd2rgczd2contextz00_3135; 
BgL_thezd2rgczd2contextz00_937 = BgL_thezd2rgczd2contextz00_14844; 
BgL_lastzd2matchzd2_936 = BgL_lastzd2matchzd2_14843; 
BgL_inputzd2portzd2_935 = BgL_inputzd2portzd2_14842; 
goto BgL_zc3anonymousza31940ze3z83_938;} } } } } break;case ((long)34) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_4817;
RGC_STOP_MATCH(BgL_inputzd2portzd2_935); 
BgL_newzd2matchzd2_4817 = ((long)12); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_4817; } break;
default: 
{ 

goto BgL_zc3anonymousza31940ze3z83_938;} } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5522z00_2995;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14848;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14849;
BgL_auxz00_14849 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14848 = 
(BgL_auxz00_14849<((long)33)); } 
if(BgL_testz00_14848)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14852;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14853;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14854;
BgL_auxz00_14854 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14853 = 
(BgL_auxz00_14854==((long)35)); } 
if(BgL_testz00_14853)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14852 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14852 = BgL_test5520z00_2994
; } } 
if(BgL_testz00_14852)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14857;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14858;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14859;
BgL_auxz00_14859 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14858 = 
(BgL_auxz00_14859==((long)41)); } 
if(BgL_testz00_14858)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14857 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14862;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14863;
BgL_auxz00_14863 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14862 = 
(BgL_auxz00_14863==((long)40)); } 
if(BgL_testz00_14862)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14857 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14866;
BgL_auxz00_14866 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14857 = 
(BgL_auxz00_14866==((long)39)); } } } 
if(BgL_testz00_14857)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14869;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14870;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14871;
BgL_auxz00_14871 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14870 = 
(BgL_auxz00_14871==((long)45)); } 
if(BgL_testz00_14870)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14869 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14874;
BgL_auxz00_14874 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14869 = 
(BgL_auxz00_14874==((long)44)); } } 
if(BgL_testz00_14869)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14877;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14878;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14879;
BgL_auxz00_14879 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14878 = 
(BgL_auxz00_14879>=((long)48)); } 
if(BgL_testz00_14878)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14882;
BgL_auxz00_14882 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14877 = 
(BgL_auxz00_14882<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14877 = ((bool_t)0)
; } } 
if(BgL_testz00_14877)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14885;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14886;
BgL_auxz00_14886 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14885 = 
(BgL_auxz00_14886==((long)59)); } 
if(BgL_testz00_14885)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14889;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14890;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14891;
BgL_auxz00_14891 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14890 = 
(BgL_auxz00_14891>=((long)65)); } 
if(BgL_testz00_14890)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14894;
BgL_auxz00_14894 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14889 = 
(BgL_auxz00_14894<((long)71)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14889 = ((bool_t)0)
; } } 
if(BgL_testz00_14889)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14897;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14898;
BgL_auxz00_14898 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14897 = 
(BgL_auxz00_14898==((long)91)); } 
if(BgL_testz00_14897)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14901;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14902;
BgL_auxz00_14902 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14901 = 
(BgL_auxz00_14902==((long)93)); } 
if(BgL_testz00_14901)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14905;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14906;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14907;
BgL_auxz00_14907 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14906 = 
(BgL_auxz00_14907>=((long)96)); } 
if(BgL_testz00_14906)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14910;
BgL_auxz00_14910 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14905 = 
(BgL_auxz00_14910<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_14905 = ((bool_t)0)
; } } 
if(BgL_testz00_14905)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14913;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14914;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14915;
BgL_auxz00_14915 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14914 = 
(BgL_auxz00_14915==((long)106)); } 
if(BgL_testz00_14914)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14913 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14918;
BgL_auxz00_14918 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14913 = 
(BgL_auxz00_14918==((long)105)); } } 
if(BgL_testz00_14913)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14921;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14922;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14923;
BgL_auxz00_14923 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14922 = 
(BgL_auxz00_14923==((long)112)); } 
if(BgL_testz00_14922)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14921 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14926;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14927;
BgL_auxz00_14927 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14926 = 
(BgL_auxz00_14927==((long)111)); } 
if(BgL_testz00_14926)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14921 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14930;
BgL_auxz00_14930 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14921 = 
(BgL_auxz00_14930==((long)110)); } } } 
if(BgL_testz00_14921)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14933;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14934;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14935;
BgL_auxz00_14935 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14934 = 
(BgL_auxz00_14935==((long)116)); } 
if(BgL_testz00_14934)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14933 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14938;
BgL_auxz00_14938 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14933 = 
(BgL_auxz00_14938==((long)115)); } } 
if(BgL_testz00_14933)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14941;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14942;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14943;
BgL_auxz00_14943 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14942 = 
(BgL_auxz00_14943==((long)125)); } 
if(BgL_testz00_14942)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14941 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14946;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14947;
BgL_auxz00_14947 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14946 = 
(BgL_auxz00_14947==((long)124)); } 
if(BgL_testz00_14946)
{ /* ./Read/reader.scm 336 */
BgL_testz00_14941 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14950;
BgL_auxz00_14950 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_testz00_14941 = 
(BgL_auxz00_14950==((long)123)); } } } 
if(BgL_testz00_14941)
{ /* ./Read/reader.scm 336 */
BgL_test5522z00_2995 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14953;
BgL_auxz00_14953 = 
(long)(BgL_currentzd2charzd2_2986); 
BgL_test5522z00_2995 = 
(BgL_auxz00_14953==((long)127)); } } } } } } } } } } } } } } } 
if(BgL_test5522z00_2995)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2983; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14959;long BgL_lastzd2matchzd2_14958;obj_t BgL_inputzd2portzd2_14957;
BgL_inputzd2portzd2_14957 = BgL_inputzd2portzd2_2982; 
BgL_lastzd2matchzd2_14958 = BgL_lastzd2matchzd2_2983; 
BgL_thezd2rgczd2contextz00_14959 = BgL_thezd2rgczd2contextz00_2984; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_14959; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_14958; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_14957; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } } } } break;case ((long)111) : 

BgL_inputzd2portzd2_1443 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_1444 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_1445 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza32841ze3z83_1446:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1447;
BgL_currentzd2charzd2_1447 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1443); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14961;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14962;
BgL_auxz00_14962 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_14961 = 
(BgL_auxz00_14962==((long)0)); } 
if(BgL_testz00_14961)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2843z00_1449;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7961z00_5714;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5711;
BgL__andtest_1208z00_5711 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1443); 
if(BgL__andtest_1208z00_5711)
{ /* ./Read/reader.scm 336 */
BgL_res7961z00_5714 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1443); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7961z00_5714 = ((bool_t)0); } } 
BgL_test2843z00_1449 = BgL_res7961z00_5714; } 
if(BgL_test2843z00_1449)
{ 

goto BgL_zc3anonymousza32841ze3z83_1446;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1444
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2846z00_1450;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14969;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14970;
BgL_auxz00_14970 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_14969 = 
(BgL_auxz00_14970==((long)57)); } 
if(BgL_testz00_14969)
{ /* ./Read/reader.scm 336 */
BgL_test2846z00_1450 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14973;
BgL_auxz00_14973 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_test2846z00_1450 = 
(BgL_auxz00_14973==((long)56)); } } 
if(BgL_test2846z00_1450)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_14979;long BgL_lastzd2matchzd2_14978;obj_t BgL_inputzd2portzd2_14977;
BgL_inputzd2portzd2_14977 = BgL_inputzd2portzd2_1443; 
BgL_lastzd2matchzd2_14978 = BgL_lastzd2matchzd2_1444; 
BgL_thezd2rgczd2contextz00_14979 = BgL_thezd2rgczd2contextz00_1445; 
BgL_thezd2rgczd2contextz00_2677 = BgL_thezd2rgczd2contextz00_14979; 
BgL_lastzd2matchzd2_2676 = BgL_lastzd2matchzd2_14978; 
BgL_inputzd2portzd2_2675 = BgL_inputzd2portzd2_14977; 
goto BgL_zc3anonymousza35016ze3z83_2678;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2848z00_1451;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14980;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14981;
BgL_auxz00_14981 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_14980 = 
(BgL_auxz00_14981>=((long)48)); } 
if(BgL_testz00_14980)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14984;
BgL_auxz00_14984 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_test2848z00_1451 = 
(BgL_auxz00_14984<((long)56)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2848z00_1451 = ((bool_t)0); } } 
if(BgL_test2848z00_1451)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1395 = BgL_inputzd2portzd2_1443; 
BgL_lastzd2matchzd2_1396 = BgL_lastzd2matchzd2_1444; 
BgL_thezd2rgczd2contextz00_1397 = BgL_thezd2rgczd2contextz00_1445; 
BgL_zc3anonymousza32762ze3z83_1398:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1399;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1395); 
BgL_newzd2matchzd2_1399 = ((long)15); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1400;
BgL_currentzd2charzd2_1400 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1395); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14990;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14991;
BgL_auxz00_14991 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_14990 = 
(BgL_auxz00_14991==((long)0)); } 
if(BgL_testz00_14990)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2764z00_1402;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7959z00_5645;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5642;
BgL__andtest_1208z00_5642 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1395); 
if(BgL__andtest_1208z00_5642)
{ /* ./Read/reader.scm 336 */
BgL_res7959z00_5645 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1395); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7959z00_5645 = ((bool_t)0); } } 
BgL_test2764z00_1402 = BgL_res7959z00_5645; } 
if(BgL_test2764z00_1402)
{ 

goto BgL_zc3anonymousza32762ze3z83_1398;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1399
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2767z00_1403;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_14998;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_14999;
BgL_auxz00_14999 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_14998 = 
(BgL_auxz00_14999==((long)57)); } 
if(BgL_testz00_14998)
{ /* ./Read/reader.scm 336 */
BgL_test2767z00_1403 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15002;
BgL_auxz00_15002 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_test2767z00_1403 = 
(BgL_auxz00_15002==((long)56)); } } 
if(BgL_test2767z00_1403)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15008;long BgL_lastzd2matchzd2_15007;obj_t BgL_inputzd2portzd2_15006;
BgL_inputzd2portzd2_15006 = BgL_inputzd2portzd2_1395; 
BgL_lastzd2matchzd2_15007 = BgL_newzd2matchzd2_1399; 
BgL_thezd2rgczd2contextz00_15008 = BgL_thezd2rgczd2contextz00_1397; 
BgL_thezd2rgczd2contextz00_2677 = BgL_thezd2rgczd2contextz00_15008; 
BgL_lastzd2matchzd2_2676 = BgL_lastzd2matchzd2_15007; 
BgL_inputzd2portzd2_2675 = BgL_inputzd2portzd2_15006; 
goto BgL_zc3anonymousza35016ze3z83_2678;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2769z00_1404;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15009;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15010;
BgL_auxz00_15010 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15009 = 
(BgL_auxz00_15010>=((long)48)); } 
if(BgL_testz00_15009)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15013;
BgL_auxz00_15013 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_test2769z00_1404 = 
(BgL_auxz00_15013<((long)56)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2769z00_1404 = ((bool_t)0); } } 
if(BgL_test2769z00_1404)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_15017;
BgL_lastzd2matchzd2_15017 = BgL_newzd2matchzd2_1399; 
BgL_lastzd2matchzd2_1396 = BgL_lastzd2matchzd2_15017; 
goto BgL_zc3anonymousza32762ze3z83_1398;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2771z00_1405;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15018;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15019;
BgL_auxz00_15019 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15018 = 
(BgL_auxz00_15019<((long)33)); } 
if(BgL_testz00_15018)
{ /* ./Read/reader.scm 336 */
BgL_test2771z00_1405 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15022;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15023;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15024;
BgL_auxz00_15024 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15023 = 
(BgL_auxz00_15024==((long)35)); } 
if(BgL_testz00_15023)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15022 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15027;
BgL_auxz00_15027 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15022 = 
(BgL_auxz00_15027==((long)34)); } } 
if(BgL_testz00_15022)
{ /* ./Read/reader.scm 336 */
BgL_test2771z00_1405 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15030;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15031;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15032;
BgL_auxz00_15032 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15031 = 
(BgL_auxz00_15032==((long)41)); } 
if(BgL_testz00_15031)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15030 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15035;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15036;
BgL_auxz00_15036 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15035 = 
(BgL_auxz00_15036==((long)40)); } 
if(BgL_testz00_15035)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15030 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15039;
BgL_auxz00_15039 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15030 = 
(BgL_auxz00_15039==((long)39)); } } } 
if(BgL_testz00_15030)
{ /* ./Read/reader.scm 336 */
BgL_test2771z00_1405 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15042;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15043;
BgL_auxz00_15043 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15042 = 
(BgL_auxz00_15043==((long)44)); } 
if(BgL_testz00_15042)
{ /* ./Read/reader.scm 336 */
BgL_test2771z00_1405 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15046;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15047;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15048;
BgL_auxz00_15048 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15047 = 
(BgL_auxz00_15048>=((long)48)); } 
if(BgL_testz00_15047)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15051;
BgL_auxz00_15051 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15046 = 
(BgL_auxz00_15051<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15046 = ((bool_t)0)
; } } 
if(BgL_testz00_15046)
{ /* ./Read/reader.scm 336 */
BgL_test2771z00_1405 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15054;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15055;
BgL_auxz00_15055 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15054 = 
(BgL_auxz00_15055==((long)59)); } 
if(BgL_testz00_15054)
{ /* ./Read/reader.scm 336 */
BgL_test2771z00_1405 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15058;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15059;
BgL_auxz00_15059 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15058 = 
(BgL_auxz00_15059==((long)91)); } 
if(BgL_testz00_15058)
{ /* ./Read/reader.scm 336 */
BgL_test2771z00_1405 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15062;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15063;
BgL_auxz00_15063 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15062 = 
(BgL_auxz00_15063==((long)93)); } 
if(BgL_testz00_15062)
{ /* ./Read/reader.scm 336 */
BgL_test2771z00_1405 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15066;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15067;
BgL_auxz00_15067 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15066 = 
(BgL_auxz00_15067==((long)96)); } 
if(BgL_testz00_15066)
{ /* ./Read/reader.scm 336 */
BgL_test2771z00_1405 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15070;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15071;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15072;
BgL_auxz00_15072 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15071 = 
(BgL_auxz00_15072==((long)125)); } 
if(BgL_testz00_15071)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15070 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15075;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15076;
BgL_auxz00_15076 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15075 = 
(BgL_auxz00_15076==((long)124)); } 
if(BgL_testz00_15075)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15070 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15079;
BgL_auxz00_15079 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_testz00_15070 = 
(BgL_auxz00_15079==((long)123)); } } } 
if(BgL_testz00_15070)
{ /* ./Read/reader.scm 336 */
BgL_test2771z00_1405 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15082;
BgL_auxz00_15082 = 
(long)(BgL_currentzd2charzd2_1400); 
BgL_test2771z00_1405 = 
(BgL_auxz00_15082==((long)127)); } } } } } } } } } } } 
if(BgL_test2771z00_1405)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1399; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15088;long BgL_lastzd2matchzd2_15087;obj_t BgL_inputzd2portzd2_15086;
BgL_inputzd2portzd2_15086 = BgL_inputzd2portzd2_1395; 
BgL_lastzd2matchzd2_15087 = BgL_newzd2matchzd2_1399; 
BgL_thezd2rgczd2contextz00_15088 = BgL_thezd2rgczd2contextz00_1397; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_15088; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_15087; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_15086; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2850z00_1452;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15089;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15090;
BgL_auxz00_15090 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15089 = 
(BgL_auxz00_15090==((long)43)); } 
if(BgL_testz00_15089)
{ /* ./Read/reader.scm 336 */
BgL_test2850z00_1452 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15093;
BgL_auxz00_15093 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_test2850z00_1452 = 
(BgL_auxz00_15093==((long)45)); } } 
if(BgL_test2850z00_1452)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1371 = BgL_inputzd2portzd2_1443; 
BgL_lastzd2matchzd2_1372 = BgL_lastzd2matchzd2_1444; 
BgL_thezd2rgczd2contextz00_1373 = BgL_thezd2rgczd2contextz00_1445; 
BgL_zc3anonymousza32718ze3z83_1374:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1375;
BgL_currentzd2charzd2_1375 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1371); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15098;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15099;
BgL_auxz00_15099 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15098 = 
(BgL_auxz00_15099==((long)0)); } 
if(BgL_testz00_15098)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2720z00_1377;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7958z00_5597;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5594;
BgL__andtest_1208z00_5594 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1371); 
if(BgL__andtest_1208z00_5594)
{ /* ./Read/reader.scm 336 */
BgL_res7958z00_5597 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1371); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7958z00_5597 = ((bool_t)0); } } 
BgL_test2720z00_1377 = BgL_res7958z00_5597; } 
if(BgL_test2720z00_1377)
{ 

goto BgL_zc3anonymousza32718ze3z83_1374;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1372
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2723z00_1378;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15106;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15107;
BgL_auxz00_15107 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15106 = 
(BgL_auxz00_15107>=((long)48)); } 
if(BgL_testz00_15106)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15110;
BgL_auxz00_15110 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_test2723z00_1378 = 
(BgL_auxz00_15110<((long)56)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2723z00_1378 = ((bool_t)0); } } 
if(BgL_test2723z00_1378)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1547 = BgL_inputzd2portzd2_1371; 
BgL_lastzd2matchzd2_1548 = BgL_lastzd2matchzd2_1372; 
BgL_thezd2rgczd2contextz00_1549 = BgL_thezd2rgczd2contextz00_1373; 
BgL_zc3anonymousza33038ze3z83_1550:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1551;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1547); 
BgL_newzd2matchzd2_1551 = ((long)15); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1552;
BgL_currentzd2charzd2_1552 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1547); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15116;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15117;
BgL_auxz00_15117 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15116 = 
(BgL_auxz00_15117==((long)0)); } 
if(BgL_testz00_15116)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3040z00_1554;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7964z00_5919;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5916;
BgL__andtest_1208z00_5916 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1547); 
if(BgL__andtest_1208z00_5916)
{ /* ./Read/reader.scm 336 */
BgL_res7964z00_5919 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1547); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7964z00_5919 = ((bool_t)0); } } 
BgL_test3040z00_1554 = BgL_res7964z00_5919; } 
if(BgL_test3040z00_1554)
{ 

goto BgL_zc3anonymousza33038ze3z83_1550;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1551
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3043z00_1555;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15124;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15125;
BgL_auxz00_15125 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15124 = 
(BgL_auxz00_15125>=((long)48)); } 
if(BgL_testz00_15124)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15128;
BgL_auxz00_15128 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_test3043z00_1555 = 
(BgL_auxz00_15128<((long)56)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test3043z00_1555 = ((bool_t)0); } } 
if(BgL_test3043z00_1555)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_15132;
BgL_lastzd2matchzd2_15132 = BgL_newzd2matchzd2_1551; 
BgL_lastzd2matchzd2_1548 = BgL_lastzd2matchzd2_15132; 
goto BgL_zc3anonymousza33038ze3z83_1550;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3045z00_1556;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15133;
BgL_auxz00_15133 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_test3045z00_1556 = 
(BgL_auxz00_15133==((long)40)); } 
if(BgL_test3045z00_1556)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5929;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1547); 
BgL_newzd2matchzd2_5929 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5929; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3047z00_1557;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15138;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15139;
BgL_auxz00_15139 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15138 = 
(BgL_auxz00_15139<((long)33)); } 
if(BgL_testz00_15138)
{ /* ./Read/reader.scm 336 */
BgL_test3047z00_1557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15142;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15143;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15144;
BgL_auxz00_15144 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15143 = 
(BgL_auxz00_15144==((long)35)); } 
if(BgL_testz00_15143)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15142 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15147;
BgL_auxz00_15147 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15142 = 
(BgL_auxz00_15147==((long)34)); } } 
if(BgL_testz00_15142)
{ /* ./Read/reader.scm 336 */
BgL_test3047z00_1557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15150;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15151;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15152;
BgL_auxz00_15152 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15151 = 
(BgL_auxz00_15152==((long)41)); } 
if(BgL_testz00_15151)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15150 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15150 = BgL_test3045z00_1556
; } } 
if(BgL_testz00_15150)
{ /* ./Read/reader.scm 336 */
BgL_test3047z00_1557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15155;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15156;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15157;
BgL_auxz00_15157 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15156 = 
(BgL_auxz00_15157>=((long)48)); } 
if(BgL_testz00_15156)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15160;
BgL_auxz00_15160 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15155 = 
(BgL_auxz00_15160<((long)56)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15155 = ((bool_t)0)
; } } 
if(BgL_testz00_15155)
{ /* ./Read/reader.scm 336 */
BgL_test3047z00_1557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15163;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15164;
BgL_auxz00_15164 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15163 = 
(BgL_auxz00_15164==((long)59)); } 
if(BgL_testz00_15163)
{ /* ./Read/reader.scm 336 */
BgL_test3047z00_1557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15167;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15168;
BgL_auxz00_15168 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15167 = 
(BgL_auxz00_15168==((long)91)); } 
if(BgL_testz00_15167)
{ /* ./Read/reader.scm 336 */
BgL_test3047z00_1557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15171;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15172;
BgL_auxz00_15172 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15171 = 
(BgL_auxz00_15172==((long)93)); } 
if(BgL_testz00_15171)
{ /* ./Read/reader.scm 336 */
BgL_test3047z00_1557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15175;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15176;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15177;
BgL_auxz00_15177 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15176 = 
(BgL_auxz00_15177==((long)125)); } 
if(BgL_testz00_15176)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15175 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15180;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15181;
BgL_auxz00_15181 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15180 = 
(BgL_auxz00_15181==((long)124)); } 
if(BgL_testz00_15180)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15175 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15184;
BgL_auxz00_15184 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_testz00_15175 = 
(BgL_auxz00_15184==((long)123)); } } } 
if(BgL_testz00_15175)
{ /* ./Read/reader.scm 336 */
BgL_test3047z00_1557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15187;
BgL_auxz00_15187 = 
(long)(BgL_currentzd2charzd2_1552); 
BgL_test3047z00_1557 = 
(BgL_auxz00_15187==((long)127)); } } } } } } } } } 
if(BgL_test3047z00_1557)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1551; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15193;long BgL_lastzd2matchzd2_15192;obj_t BgL_inputzd2portzd2_15191;
BgL_inputzd2portzd2_15191 = BgL_inputzd2portzd2_1547; 
BgL_lastzd2matchzd2_15192 = BgL_newzd2matchzd2_1551; 
BgL_thezd2rgczd2contextz00_15193 = BgL_thezd2rgczd2contextz00_1549; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_15193; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_15192; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_15191; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2725z00_1379;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15194;
BgL_auxz00_15194 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_test2725z00_1379 = 
(BgL_auxz00_15194==((long)40)); } 
if(BgL_test2725z00_1379)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5607;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1371); 
BgL_newzd2matchzd2_5607 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5607; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2727z00_1380;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15199;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15200;
BgL_auxz00_15200 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15199 = 
(BgL_auxz00_15200<((long)33)); } 
if(BgL_testz00_15199)
{ /* ./Read/reader.scm 336 */
BgL_test2727z00_1380 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15203;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15204;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15205;
BgL_auxz00_15205 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15204 = 
(BgL_auxz00_15205==((long)35)); } 
if(BgL_testz00_15204)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15203 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15208;
BgL_auxz00_15208 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15203 = 
(BgL_auxz00_15208==((long)34)); } } 
if(BgL_testz00_15203)
{ /* ./Read/reader.scm 336 */
BgL_test2727z00_1380 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15211;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15212;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15213;
BgL_auxz00_15213 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15212 = 
(BgL_auxz00_15213==((long)41)); } 
if(BgL_testz00_15212)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15211 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15211 = BgL_test2725z00_1379
; } } 
if(BgL_testz00_15211)
{ /* ./Read/reader.scm 336 */
BgL_test2727z00_1380 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15216;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15217;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15218;
BgL_auxz00_15218 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15217 = 
(BgL_auxz00_15218>=((long)48)); } 
if(BgL_testz00_15217)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15221;
BgL_auxz00_15221 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15216 = 
(BgL_auxz00_15221<((long)56)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15216 = ((bool_t)0)
; } } 
if(BgL_testz00_15216)
{ /* ./Read/reader.scm 336 */
BgL_test2727z00_1380 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15224;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15225;
BgL_auxz00_15225 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15224 = 
(BgL_auxz00_15225==((long)59)); } 
if(BgL_testz00_15224)
{ /* ./Read/reader.scm 336 */
BgL_test2727z00_1380 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15228;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15229;
BgL_auxz00_15229 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15228 = 
(BgL_auxz00_15229==((long)91)); } 
if(BgL_testz00_15228)
{ /* ./Read/reader.scm 336 */
BgL_test2727z00_1380 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15232;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15233;
BgL_auxz00_15233 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15232 = 
(BgL_auxz00_15233==((long)93)); } 
if(BgL_testz00_15232)
{ /* ./Read/reader.scm 336 */
BgL_test2727z00_1380 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15236;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15237;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15238;
BgL_auxz00_15238 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15237 = 
(BgL_auxz00_15238==((long)125)); } 
if(BgL_testz00_15237)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15236 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15241;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15242;
BgL_auxz00_15242 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15241 = 
(BgL_auxz00_15242==((long)124)); } 
if(BgL_testz00_15241)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15236 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15245;
BgL_auxz00_15245 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_testz00_15236 = 
(BgL_auxz00_15245==((long)123)); } } } 
if(BgL_testz00_15236)
{ /* ./Read/reader.scm 336 */
BgL_test2727z00_1380 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15248;
BgL_auxz00_15248 = 
(long)(BgL_currentzd2charzd2_1375); 
BgL_test2727z00_1380 = 
(BgL_auxz00_15248==((long)127)); } } } } } } } } } 
if(BgL_test2727z00_1380)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1372; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15254;long BgL_lastzd2matchzd2_15253;obj_t BgL_inputzd2portzd2_15252;
BgL_inputzd2portzd2_15252 = BgL_inputzd2portzd2_1371; 
BgL_lastzd2matchzd2_15253 = BgL_lastzd2matchzd2_1372; 
BgL_thezd2rgczd2contextz00_15254 = BgL_thezd2rgczd2contextz00_1373; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_15254; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_15253; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_15252; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2852z00_1453;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15255;
BgL_auxz00_15255 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_test2852z00_1453 = 
(BgL_auxz00_15255==((long)40)); } 
if(BgL_test2852z00_1453)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5732;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1443); 
BgL_newzd2matchzd2_5732 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5732; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2854z00_1454;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15260;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15261;
BgL_auxz00_15261 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15260 = 
(BgL_auxz00_15261<((long)33)); } 
if(BgL_testz00_15260)
{ /* ./Read/reader.scm 336 */
BgL_test2854z00_1454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15264;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15265;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15266;
BgL_auxz00_15266 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15265 = 
(BgL_auxz00_15266==((long)35)); } 
if(BgL_testz00_15265)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15264 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15269;
BgL_auxz00_15269 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15264 = 
(BgL_auxz00_15269==((long)34)); } } 
if(BgL_testz00_15264)
{ /* ./Read/reader.scm 336 */
BgL_test2854z00_1454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15272;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15273;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15274;
BgL_auxz00_15274 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15273 = 
(BgL_auxz00_15274==((long)41)); } 
if(BgL_testz00_15273)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15272 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test2852z00_1453)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15272 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15278;
BgL_auxz00_15278 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15272 = 
(BgL_auxz00_15278==((long)39)); } } } 
if(BgL_testz00_15272)
{ /* ./Read/reader.scm 336 */
BgL_test2854z00_1454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15281;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15282;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15283;
BgL_auxz00_15283 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15282 = 
(BgL_auxz00_15283==((long)45)); } 
if(BgL_testz00_15282)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15281 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15286;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15287;
BgL_auxz00_15287 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15286 = 
(BgL_auxz00_15287==((long)44)); } 
if(BgL_testz00_15286)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15281 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15290;
BgL_auxz00_15290 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15281 = 
(BgL_auxz00_15290==((long)43)); } } } 
if(BgL_testz00_15281)
{ /* ./Read/reader.scm 336 */
BgL_test2854z00_1454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15293;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15294;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15295;
BgL_auxz00_15295 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15294 = 
(BgL_auxz00_15295>=((long)48)); } 
if(BgL_testz00_15294)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15298;
BgL_auxz00_15298 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15293 = 
(BgL_auxz00_15298<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15293 = ((bool_t)0)
; } } 
if(BgL_testz00_15293)
{ /* ./Read/reader.scm 336 */
BgL_test2854z00_1454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15301;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15302;
BgL_auxz00_15302 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15301 = 
(BgL_auxz00_15302==((long)59)); } 
if(BgL_testz00_15301)
{ /* ./Read/reader.scm 336 */
BgL_test2854z00_1454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15305;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15306;
BgL_auxz00_15306 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15305 = 
(BgL_auxz00_15306==((long)91)); } 
if(BgL_testz00_15305)
{ /* ./Read/reader.scm 336 */
BgL_test2854z00_1454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15309;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15310;
BgL_auxz00_15310 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15309 = 
(BgL_auxz00_15310==((long)93)); } 
if(BgL_testz00_15309)
{ /* ./Read/reader.scm 336 */
BgL_test2854z00_1454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15313;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15314;
BgL_auxz00_15314 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15313 = 
(BgL_auxz00_15314==((long)96)); } 
if(BgL_testz00_15313)
{ /* ./Read/reader.scm 336 */
BgL_test2854z00_1454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15317;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15318;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15319;
BgL_auxz00_15319 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15318 = 
(BgL_auxz00_15319==((long)125)); } 
if(BgL_testz00_15318)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15317 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15322;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15323;
BgL_auxz00_15323 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15322 = 
(BgL_auxz00_15323==((long)124)); } 
if(BgL_testz00_15322)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15317 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15326;
BgL_auxz00_15326 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_testz00_15317 = 
(BgL_auxz00_15326==((long)123)); } } } 
if(BgL_testz00_15317)
{ /* ./Read/reader.scm 336 */
BgL_test2854z00_1454 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15329;
BgL_auxz00_15329 = 
(long)(BgL_currentzd2charzd2_1447); 
BgL_test2854z00_1454 = 
(BgL_auxz00_15329==((long)127)); } } } } } } } } } } } 
if(BgL_test2854z00_1454)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1444; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15335;long BgL_lastzd2matchzd2_15334;obj_t BgL_inputzd2portzd2_15333;
BgL_inputzd2portzd2_15333 = BgL_inputzd2portzd2_1443; 
BgL_lastzd2matchzd2_15334 = BgL_lastzd2matchzd2_1444; 
BgL_thezd2rgczd2contextz00_15335 = BgL_thezd2rgczd2contextz00_1445; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_15335; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_15334; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_15333; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } } break;case ((long)108) : 

BgL_inputzd2portzd2_1223 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_1224 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_1225 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza32445ze3z83_1226:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1227;
BgL_currentzd2charzd2_1227 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1223); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15337;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15338;
BgL_auxz00_15338 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15337 = 
(BgL_auxz00_15338==((long)0)); } 
if(BgL_testz00_15337)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2447z00_1229;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7953z00_5319;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5316;
BgL__andtest_1208z00_5316 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1223); 
if(BgL__andtest_1208z00_5316)
{ /* ./Read/reader.scm 336 */
BgL_res7953z00_5319 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1223); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7953z00_5319 = ((bool_t)0); } } 
BgL_test2447z00_1229 = BgL_res7953z00_5319; } 
if(BgL_test2447z00_1229)
{ 

goto BgL_zc3anonymousza32445ze3z83_1226;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1224
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2450z00_1230;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15345;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15346;
BgL_auxz00_15346 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15345 = 
(BgL_auxz00_15346>=((long)48)); } 
if(BgL_testz00_15345)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15349;
BgL_auxz00_15349 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_test2450z00_1230 = 
(BgL_auxz00_15349<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2450z00_1230 = ((bool_t)0); } } 
if(BgL_test2450z00_1230)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1178 = BgL_inputzd2portzd2_1223; 
BgL_lastzd2matchzd2_1179 = BgL_lastzd2matchzd2_1224; 
BgL_thezd2rgczd2contextz00_1180 = BgL_thezd2rgczd2contextz00_1225; 
BgL_zc3anonymousza32372ze3z83_1181:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1182;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1178); 
BgL_newzd2matchzd2_1182 = ((long)19); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1183;
BgL_currentzd2charzd2_1183 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1178); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15355;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15356;
BgL_auxz00_15356 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15355 = 
(BgL_auxz00_15356==((long)0)); } 
if(BgL_testz00_15355)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2374z00_1185;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7951z00_5255;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5252;
BgL__andtest_1208z00_5252 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1178); 
if(BgL__andtest_1208z00_5252)
{ /* ./Read/reader.scm 336 */
BgL_res7951z00_5255 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1178); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7951z00_5255 = ((bool_t)0); } } 
BgL_test2374z00_1185 = BgL_res7951z00_5255; } 
if(BgL_test2374z00_1185)
{ 

goto BgL_zc3anonymousza32372ze3z83_1181;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1182
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2377z00_1186;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15363;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15364;
BgL_auxz00_15364 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15363 = 
(BgL_auxz00_15364>=((long)48)); } 
if(BgL_testz00_15363)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15367;
BgL_auxz00_15367 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_test2377z00_1186 = 
(BgL_auxz00_15367<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2377z00_1186 = ((bool_t)0); } } 
if(BgL_test2377z00_1186)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_15371;
BgL_lastzd2matchzd2_15371 = BgL_newzd2matchzd2_1182; 
BgL_lastzd2matchzd2_1179 = BgL_lastzd2matchzd2_15371; 
goto BgL_zc3anonymousza32372ze3z83_1181;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2379z00_1187;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15372;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15373;
BgL_auxz00_15373 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15372 = 
(BgL_auxz00_15373<((long)33)); } 
if(BgL_testz00_15372)
{ /* ./Read/reader.scm 336 */
BgL_test2379z00_1187 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15376;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15377;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15378;
BgL_auxz00_15378 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15377 = 
(BgL_auxz00_15378==((long)35)); } 
if(BgL_testz00_15377)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15376 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15381;
BgL_auxz00_15381 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15376 = 
(BgL_auxz00_15381==((long)34)); } } 
if(BgL_testz00_15376)
{ /* ./Read/reader.scm 336 */
BgL_test2379z00_1187 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15384;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15385;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15386;
BgL_auxz00_15386 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15385 = 
(BgL_auxz00_15386==((long)41)); } 
if(BgL_testz00_15385)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15384 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15389;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15390;
BgL_auxz00_15390 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15389 = 
(BgL_auxz00_15390==((long)40)); } 
if(BgL_testz00_15389)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15384 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15393;
BgL_auxz00_15393 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15384 = 
(BgL_auxz00_15393==((long)39)); } } } 
if(BgL_testz00_15384)
{ /* ./Read/reader.scm 336 */
BgL_test2379z00_1187 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15396;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15397;
BgL_auxz00_15397 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15396 = 
(BgL_auxz00_15397==((long)44)); } 
if(BgL_testz00_15396)
{ /* ./Read/reader.scm 336 */
BgL_test2379z00_1187 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test2377z00_1186)
{ /* ./Read/reader.scm 336 */
BgL_test2379z00_1187 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15401;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15402;
BgL_auxz00_15402 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15401 = 
(BgL_auxz00_15402==((long)59)); } 
if(BgL_testz00_15401)
{ /* ./Read/reader.scm 336 */
BgL_test2379z00_1187 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15405;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15406;
BgL_auxz00_15406 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15405 = 
(BgL_auxz00_15406==((long)91)); } 
if(BgL_testz00_15405)
{ /* ./Read/reader.scm 336 */
BgL_test2379z00_1187 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15409;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15410;
BgL_auxz00_15410 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15409 = 
(BgL_auxz00_15410==((long)93)); } 
if(BgL_testz00_15409)
{ /* ./Read/reader.scm 336 */
BgL_test2379z00_1187 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15413;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15414;
BgL_auxz00_15414 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15413 = 
(BgL_auxz00_15414==((long)96)); } 
if(BgL_testz00_15413)
{ /* ./Read/reader.scm 336 */
BgL_test2379z00_1187 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15417;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15418;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15419;
BgL_auxz00_15419 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15418 = 
(BgL_auxz00_15419==((long)125)); } 
if(BgL_testz00_15418)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15417 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15422;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15423;
BgL_auxz00_15423 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15422 = 
(BgL_auxz00_15423==((long)124)); } 
if(BgL_testz00_15422)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15417 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15426;
BgL_auxz00_15426 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_testz00_15417 = 
(BgL_auxz00_15426==((long)123)); } } } 
if(BgL_testz00_15417)
{ /* ./Read/reader.scm 336 */
BgL_test2379z00_1187 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15429;
BgL_auxz00_15429 = 
(long)(BgL_currentzd2charzd2_1183); 
BgL_test2379z00_1187 = 
(BgL_auxz00_15429==((long)127)); } } } } } } } } } } } 
if(BgL_test2379z00_1187)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1182; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15435;long BgL_lastzd2matchzd2_15434;obj_t BgL_inputzd2portzd2_15433;
BgL_inputzd2portzd2_15433 = BgL_inputzd2portzd2_1178; 
BgL_lastzd2matchzd2_15434 = BgL_newzd2matchzd2_1182; 
BgL_thezd2rgczd2contextz00_15435 = BgL_thezd2rgczd2contextz00_1180; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_15435; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_15434; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_15433; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2452z00_1231;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15436;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15437;
BgL_auxz00_15437 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15436 = 
(BgL_auxz00_15437==((long)43)); } 
if(BgL_testz00_15436)
{ /* ./Read/reader.scm 336 */
BgL_test2452z00_1231 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15440;
BgL_auxz00_15440 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_test2452z00_1231 = 
(BgL_auxz00_15440==((long)45)); } } 
if(BgL_test2452z00_1231)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1154 = BgL_inputzd2portzd2_1223; 
BgL_lastzd2matchzd2_1155 = BgL_lastzd2matchzd2_1224; 
BgL_thezd2rgczd2contextz00_1156 = BgL_thezd2rgczd2contextz00_1225; 
BgL_zc3anonymousza32328ze3z83_1157:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1158;
BgL_currentzd2charzd2_1158 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1154); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15445;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15446;
BgL_auxz00_15446 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15445 = 
(BgL_auxz00_15446==((long)0)); } 
if(BgL_testz00_15445)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2330z00_1160;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7950z00_5207;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5204;
BgL__andtest_1208z00_5204 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1154); 
if(BgL__andtest_1208z00_5204)
{ /* ./Read/reader.scm 336 */
BgL_res7950z00_5207 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1154); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7950z00_5207 = ((bool_t)0); } } 
BgL_test2330z00_1160 = BgL_res7950z00_5207; } 
if(BgL_test2330z00_1160)
{ 

goto BgL_zc3anonymousza32328ze3z83_1157;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1155
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2333z00_1161;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15453;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15454;
BgL_auxz00_15454 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15453 = 
(BgL_auxz00_15454>=((long)48)); } 
if(BgL_testz00_15453)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15457;
BgL_auxz00_15457 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_test2333z00_1161 = 
(BgL_auxz00_15457<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2333z00_1161 = ((bool_t)0); } } 
if(BgL_test2333z00_1161)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1254 = BgL_inputzd2portzd2_1154; 
BgL_lastzd2matchzd2_1255 = BgL_lastzd2matchzd2_1155; 
BgL_thezd2rgczd2contextz00_1256 = BgL_thezd2rgczd2contextz00_1156; 
BgL_zc3anonymousza32504ze3z83_1257:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1258;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1254); 
BgL_newzd2matchzd2_1258 = ((long)19); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1259;
BgL_currentzd2charzd2_1259 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1254); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15463;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15464;
BgL_auxz00_15464 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15463 = 
(BgL_auxz00_15464==((long)0)); } 
if(BgL_testz00_15463)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2506z00_1261;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7954z00_5381;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5378;
BgL__andtest_1208z00_5378 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1254); 
if(BgL__andtest_1208z00_5378)
{ /* ./Read/reader.scm 336 */
BgL_res7954z00_5381 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1254); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7954z00_5381 = ((bool_t)0); } } 
BgL_test2506z00_1261 = BgL_res7954z00_5381; } 
if(BgL_test2506z00_1261)
{ 

goto BgL_zc3anonymousza32504ze3z83_1257;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1258
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2509z00_1262;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15471;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15472;
BgL_auxz00_15472 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15471 = 
(BgL_auxz00_15472>=((long)48)); } 
if(BgL_testz00_15471)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15475;
BgL_auxz00_15475 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_test2509z00_1262 = 
(BgL_auxz00_15475<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2509z00_1262 = ((bool_t)0); } } 
if(BgL_test2509z00_1262)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_15479;
BgL_lastzd2matchzd2_15479 = BgL_newzd2matchzd2_1258; 
BgL_lastzd2matchzd2_1255 = BgL_lastzd2matchzd2_15479; 
goto BgL_zc3anonymousza32504ze3z83_1257;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2511z00_1263;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15480;
BgL_auxz00_15480 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_test2511z00_1263 = 
(BgL_auxz00_15480==((long)40)); } 
if(BgL_test2511z00_1263)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5391;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1254); 
BgL_newzd2matchzd2_5391 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5391; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2513z00_1264;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15485;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15486;
BgL_auxz00_15486 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15485 = 
(BgL_auxz00_15486<((long)33)); } 
if(BgL_testz00_15485)
{ /* ./Read/reader.scm 336 */
BgL_test2513z00_1264 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15489;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15490;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15491;
BgL_auxz00_15491 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15490 = 
(BgL_auxz00_15491==((long)35)); } 
if(BgL_testz00_15490)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15489 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15494;
BgL_auxz00_15494 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15489 = 
(BgL_auxz00_15494==((long)34)); } } 
if(BgL_testz00_15489)
{ /* ./Read/reader.scm 336 */
BgL_test2513z00_1264 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15497;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15498;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15499;
BgL_auxz00_15499 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15498 = 
(BgL_auxz00_15499==((long)41)); } 
if(BgL_testz00_15498)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15497 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15497 = BgL_test2511z00_1263
; } } 
if(BgL_testz00_15497)
{ /* ./Read/reader.scm 336 */
BgL_test2513z00_1264 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15502;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15503;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15504;
BgL_auxz00_15504 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15503 = 
(BgL_auxz00_15504>=((long)48)); } 
if(BgL_testz00_15503)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15507;
BgL_auxz00_15507 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15502 = 
(BgL_auxz00_15507<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15502 = ((bool_t)0)
; } } 
if(BgL_testz00_15502)
{ /* ./Read/reader.scm 336 */
BgL_test2513z00_1264 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15510;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15511;
BgL_auxz00_15511 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15510 = 
(BgL_auxz00_15511==((long)59)); } 
if(BgL_testz00_15510)
{ /* ./Read/reader.scm 336 */
BgL_test2513z00_1264 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15514;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15515;
BgL_auxz00_15515 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15514 = 
(BgL_auxz00_15515==((long)91)); } 
if(BgL_testz00_15514)
{ /* ./Read/reader.scm 336 */
BgL_test2513z00_1264 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15518;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15519;
BgL_auxz00_15519 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15518 = 
(BgL_auxz00_15519==((long)93)); } 
if(BgL_testz00_15518)
{ /* ./Read/reader.scm 336 */
BgL_test2513z00_1264 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15522;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15523;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15524;
BgL_auxz00_15524 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15523 = 
(BgL_auxz00_15524==((long)125)); } 
if(BgL_testz00_15523)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15522 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15527;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15528;
BgL_auxz00_15528 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15527 = 
(BgL_auxz00_15528==((long)124)); } 
if(BgL_testz00_15527)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15522 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15531;
BgL_auxz00_15531 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_testz00_15522 = 
(BgL_auxz00_15531==((long)123)); } } } 
if(BgL_testz00_15522)
{ /* ./Read/reader.scm 336 */
BgL_test2513z00_1264 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15534;
BgL_auxz00_15534 = 
(long)(BgL_currentzd2charzd2_1259); 
BgL_test2513z00_1264 = 
(BgL_auxz00_15534==((long)127)); } } } } } } } } } 
if(BgL_test2513z00_1264)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1258; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15540;long BgL_lastzd2matchzd2_15539;obj_t BgL_inputzd2portzd2_15538;
BgL_inputzd2portzd2_15538 = BgL_inputzd2portzd2_1254; 
BgL_lastzd2matchzd2_15539 = BgL_newzd2matchzd2_1258; 
BgL_thezd2rgczd2contextz00_15540 = BgL_thezd2rgczd2contextz00_1256; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_15540; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_15539; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_15538; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2335z00_1162;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15541;
BgL_auxz00_15541 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_test2335z00_1162 = 
(BgL_auxz00_15541==((long)40)); } 
if(BgL_test2335z00_1162)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5217;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1154); 
BgL_newzd2matchzd2_5217 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5217; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2337z00_1163;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15546;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15547;
BgL_auxz00_15547 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15546 = 
(BgL_auxz00_15547<((long)33)); } 
if(BgL_testz00_15546)
{ /* ./Read/reader.scm 336 */
BgL_test2337z00_1163 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15550;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15551;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15552;
BgL_auxz00_15552 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15551 = 
(BgL_auxz00_15552==((long)35)); } 
if(BgL_testz00_15551)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15550 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15555;
BgL_auxz00_15555 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15550 = 
(BgL_auxz00_15555==((long)34)); } } 
if(BgL_testz00_15550)
{ /* ./Read/reader.scm 336 */
BgL_test2337z00_1163 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15558;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15559;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15560;
BgL_auxz00_15560 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15559 = 
(BgL_auxz00_15560==((long)41)); } 
if(BgL_testz00_15559)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15558 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15558 = BgL_test2335z00_1162
; } } 
if(BgL_testz00_15558)
{ /* ./Read/reader.scm 336 */
BgL_test2337z00_1163 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15563;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15564;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15565;
BgL_auxz00_15565 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15564 = 
(BgL_auxz00_15565>=((long)48)); } 
if(BgL_testz00_15564)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15568;
BgL_auxz00_15568 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15563 = 
(BgL_auxz00_15568<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15563 = ((bool_t)0)
; } } 
if(BgL_testz00_15563)
{ /* ./Read/reader.scm 336 */
BgL_test2337z00_1163 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15571;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15572;
BgL_auxz00_15572 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15571 = 
(BgL_auxz00_15572==((long)59)); } 
if(BgL_testz00_15571)
{ /* ./Read/reader.scm 336 */
BgL_test2337z00_1163 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15575;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15576;
BgL_auxz00_15576 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15575 = 
(BgL_auxz00_15576==((long)91)); } 
if(BgL_testz00_15575)
{ /* ./Read/reader.scm 336 */
BgL_test2337z00_1163 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15579;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15580;
BgL_auxz00_15580 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15579 = 
(BgL_auxz00_15580==((long)93)); } 
if(BgL_testz00_15579)
{ /* ./Read/reader.scm 336 */
BgL_test2337z00_1163 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15583;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15584;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15585;
BgL_auxz00_15585 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15584 = 
(BgL_auxz00_15585==((long)125)); } 
if(BgL_testz00_15584)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15583 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15588;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15589;
BgL_auxz00_15589 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15588 = 
(BgL_auxz00_15589==((long)124)); } 
if(BgL_testz00_15588)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15583 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15592;
BgL_auxz00_15592 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_testz00_15583 = 
(BgL_auxz00_15592==((long)123)); } } } 
if(BgL_testz00_15583)
{ /* ./Read/reader.scm 336 */
BgL_test2337z00_1163 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15595;
BgL_auxz00_15595 = 
(long)(BgL_currentzd2charzd2_1158); 
BgL_test2337z00_1163 = 
(BgL_auxz00_15595==((long)127)); } } } } } } } } } 
if(BgL_test2337z00_1163)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1155; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15601;long BgL_lastzd2matchzd2_15600;obj_t BgL_inputzd2portzd2_15599;
BgL_inputzd2portzd2_15599 = BgL_inputzd2portzd2_1154; 
BgL_lastzd2matchzd2_15600 = BgL_lastzd2matchzd2_1155; 
BgL_thezd2rgczd2contextz00_15601 = BgL_thezd2rgczd2contextz00_1156; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_15601; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_15600; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_15599; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2454z00_1232;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15602;
BgL_auxz00_15602 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_test2454z00_1232 = 
(BgL_auxz00_15602==((long)40)); } 
if(BgL_test2454z00_1232)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5333;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1223); 
BgL_newzd2matchzd2_5333 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5333; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2456z00_1233;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15607;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15608;
BgL_auxz00_15608 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15607 = 
(BgL_auxz00_15608<((long)33)); } 
if(BgL_testz00_15607)
{ /* ./Read/reader.scm 336 */
BgL_test2456z00_1233 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15611;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15612;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15613;
BgL_auxz00_15613 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15612 = 
(BgL_auxz00_15613==((long)35)); } 
if(BgL_testz00_15612)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15611 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15616;
BgL_auxz00_15616 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15611 = 
(BgL_auxz00_15616==((long)34)); } } 
if(BgL_testz00_15611)
{ /* ./Read/reader.scm 336 */
BgL_test2456z00_1233 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15619;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15620;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15621;
BgL_auxz00_15621 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15620 = 
(BgL_auxz00_15621==((long)41)); } 
if(BgL_testz00_15620)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15619 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test2454z00_1232)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15619 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15625;
BgL_auxz00_15625 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15619 = 
(BgL_auxz00_15625==((long)39)); } } } 
if(BgL_testz00_15619)
{ /* ./Read/reader.scm 336 */
BgL_test2456z00_1233 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15628;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15629;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15630;
BgL_auxz00_15630 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15629 = 
(BgL_auxz00_15630==((long)45)); } 
if(BgL_testz00_15629)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15628 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15633;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15634;
BgL_auxz00_15634 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15633 = 
(BgL_auxz00_15634==((long)44)); } 
if(BgL_testz00_15633)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15628 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15637;
BgL_auxz00_15637 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15628 = 
(BgL_auxz00_15637==((long)43)); } } } 
if(BgL_testz00_15628)
{ /* ./Read/reader.scm 336 */
BgL_test2456z00_1233 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15640;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15641;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15642;
BgL_auxz00_15642 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15641 = 
(BgL_auxz00_15642>=((long)48)); } 
if(BgL_testz00_15641)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15645;
BgL_auxz00_15645 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15640 = 
(BgL_auxz00_15645<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15640 = ((bool_t)0)
; } } 
if(BgL_testz00_15640)
{ /* ./Read/reader.scm 336 */
BgL_test2456z00_1233 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15648;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15649;
BgL_auxz00_15649 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15648 = 
(BgL_auxz00_15649==((long)59)); } 
if(BgL_testz00_15648)
{ /* ./Read/reader.scm 336 */
BgL_test2456z00_1233 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15652;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15653;
BgL_auxz00_15653 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15652 = 
(BgL_auxz00_15653==((long)91)); } 
if(BgL_testz00_15652)
{ /* ./Read/reader.scm 336 */
BgL_test2456z00_1233 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15656;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15657;
BgL_auxz00_15657 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15656 = 
(BgL_auxz00_15657==((long)93)); } 
if(BgL_testz00_15656)
{ /* ./Read/reader.scm 336 */
BgL_test2456z00_1233 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15660;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15661;
BgL_auxz00_15661 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15660 = 
(BgL_auxz00_15661==((long)96)); } 
if(BgL_testz00_15660)
{ /* ./Read/reader.scm 336 */
BgL_test2456z00_1233 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15664;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15665;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15666;
BgL_auxz00_15666 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15665 = 
(BgL_auxz00_15666==((long)125)); } 
if(BgL_testz00_15665)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15664 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15669;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15670;
BgL_auxz00_15670 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15669 = 
(BgL_auxz00_15670==((long)124)); } 
if(BgL_testz00_15669)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15664 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15673;
BgL_auxz00_15673 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_testz00_15664 = 
(BgL_auxz00_15673==((long)123)); } } } 
if(BgL_testz00_15664)
{ /* ./Read/reader.scm 336 */
BgL_test2456z00_1233 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15676;
BgL_auxz00_15676 = 
(long)(BgL_currentzd2charzd2_1227); 
BgL_test2456z00_1233 = 
(BgL_auxz00_15676==((long)127)); } } } } } } } } } } } 
if(BgL_test2456z00_1233)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1224; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15682;long BgL_lastzd2matchzd2_15681;obj_t BgL_inputzd2portzd2_15680;
BgL_inputzd2portzd2_15680 = BgL_inputzd2portzd2_1223; 
BgL_lastzd2matchzd2_15681 = BgL_lastzd2matchzd2_1224; 
BgL_thezd2rgczd2contextz00_15682 = BgL_thezd2rgczd2contextz00_1225; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_15682; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_15681; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_15680; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } break;case ((long)101) : 

BgL_inputzd2portzd2_2933 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_2934 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_2935 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza35409ze3z83_2936:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2937;
BgL_currentzd2charzd2_2937 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2933); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15684;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15685;
BgL_auxz00_15685 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_15684 = 
(BgL_auxz00_15685==((long)0)); } 
if(BgL_testz00_15684)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5411z00_2939;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8022z00_8418;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8415;
BgL__andtest_1208z00_8415 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2933); 
if(BgL__andtest_1208z00_8415)
{ /* ./Read/reader.scm 336 */
BgL_res8022z00_8418 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2933); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8022z00_8418 = ((bool_t)0); } } 
BgL_test5411z00_2939 = BgL_res8022z00_8418; } 
if(BgL_test5411z00_2939)
{ 

goto BgL_zc3anonymousza35409ze3z83_2936;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2934
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5414z00_2940;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15692;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15693;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15694;
BgL_auxz00_15694 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_15693 = 
(BgL_auxz00_15694>=((long)98)); } 
if(BgL_testz00_15693)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15697;
BgL_auxz00_15697 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_15692 = 
(BgL_auxz00_15697<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15692 = ((bool_t)0)
; } } 
if(BgL_testz00_15692)
{ /* ./Read/reader.scm 336 */
BgL_test5414z00_2940 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15700;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15701;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15702;
BgL_auxz00_15702 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_15701 = 
(BgL_auxz00_15702==((long)106)); } 
if(BgL_testz00_15701)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15700 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15705;
BgL_auxz00_15705 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_15700 = 
(BgL_auxz00_15705==((long)105)); } } 
if(BgL_testz00_15700)
{ /* ./Read/reader.scm 336 */
BgL_test5414z00_2940 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15708;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15709;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15710;
BgL_auxz00_15710 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_15709 = 
(BgL_auxz00_15710==((long)112)); } 
if(BgL_testz00_15709)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15708 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15713;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15714;
BgL_auxz00_15714 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_15713 = 
(BgL_auxz00_15714==((long)111)); } 
if(BgL_testz00_15713)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15708 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15717;
BgL_auxz00_15717 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_15708 = 
(BgL_auxz00_15717==((long)110)); } } } 
if(BgL_testz00_15708)
{ /* ./Read/reader.scm 336 */
BgL_test5414z00_2940 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL__ortest_1142z00_2977;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15720;
BgL_auxz00_15720 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL__ortest_1142z00_2977 = 
(BgL_auxz00_15720==((long)116)); } 
if(BgL__ortest_1142z00_2977)
{ /* ./Read/reader.scm 336 */
BgL_test5414z00_2940 = BgL__ortest_1142z00_2977; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15724;
BgL_auxz00_15724 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_test5414z00_2940 = 
(BgL_auxz00_15724==((long)115)); } } } } } 
if(BgL_test5414z00_2940)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15730;long BgL_lastzd2matchzd2_15729;obj_t BgL_inputzd2portzd2_15728;
BgL_inputzd2portzd2_15728 = BgL_inputzd2portzd2_2933; 
BgL_lastzd2matchzd2_15729 = BgL_lastzd2matchzd2_2934; 
BgL_thezd2rgczd2contextz00_15730 = BgL_thezd2rgczd2contextz00_2935; 
BgL_thezd2rgczd2contextz00_3061 = BgL_thezd2rgczd2contextz00_15730; 
BgL_lastzd2matchzd2_3060 = BgL_lastzd2matchzd2_15729; 
BgL_inputzd2portzd2_3059 = BgL_inputzd2portzd2_15728; 
goto BgL_zc3anonymousza35645ze3z83_3062;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5416z00_2941;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15731;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15732;
BgL_auxz00_15732 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_15731 = 
(BgL_auxz00_15732>=((long)48)); } 
if(BgL_testz00_15731)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15735;
BgL_auxz00_15735 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_test5416z00_2941 = 
(BgL_auxz00_15735<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5416z00_2941 = ((bool_t)0); } } 
if(BgL_test5416z00_2941)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_3211 = BgL_inputzd2portzd2_2933; 
BgL_lastzd2matchzd2_3212 = BgL_lastzd2matchzd2_2934; 
BgL_thezd2rgczd2contextz00_3213 = BgL_thezd2rgczd2contextz00_2935; 
BgL_zc3anonymousza35924ze3z83_3214:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_3215;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3211); 
BgL_newzd2matchzd2_3215 = ((long)18); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_3216;
BgL_currentzd2charzd2_3216 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3211); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15741;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15742;
BgL_auxz00_15742 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15741 = 
(BgL_auxz00_15742==((long)0)); } 
if(BgL_testz00_15741)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5926z00_3218;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8029z00_8942;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8939;
BgL__andtest_1208z00_8939 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3211); 
if(BgL__andtest_1208z00_8939)
{ /* ./Read/reader.scm 336 */
BgL_res8029z00_8942 = 
rgc_fill_buffer(BgL_inputzd2portzd2_3211); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8029z00_8942 = ((bool_t)0); } } 
BgL_test5926z00_3218 = BgL_res8029z00_8942; } 
if(BgL_test5926z00_3218)
{ 

goto BgL_zc3anonymousza35924ze3z83_3214;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3215
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5929z00_3219;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15749;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15750;
BgL_auxz00_15750 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15749 = 
(BgL_auxz00_15750>=((long)48)); } 
if(BgL_testz00_15749)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15753;
BgL_auxz00_15753 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_test5929z00_3219 = 
(BgL_auxz00_15753<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5929z00_3219 = ((bool_t)0); } } 
if(BgL_test5929z00_3219)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_15757;
BgL_lastzd2matchzd2_15757 = BgL_newzd2matchzd2_3215; 
BgL_lastzd2matchzd2_3212 = BgL_lastzd2matchzd2_15757; 
goto BgL_zc3anonymousza35924ze3z83_3214;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5931z00_3220;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15758;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15759;
BgL_auxz00_15759 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15758 = 
(BgL_auxz00_15759<((long)33)); } 
if(BgL_testz00_15758)
{ /* ./Read/reader.scm 336 */
BgL_test5931z00_3220 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15762;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15763;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15764;
BgL_auxz00_15764 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15763 = 
(BgL_auxz00_15764==((long)35)); } 
if(BgL_testz00_15763)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15762 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15767;
BgL_auxz00_15767 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15762 = 
(BgL_auxz00_15767==((long)34)); } } 
if(BgL_testz00_15762)
{ /* ./Read/reader.scm 336 */
BgL_test5931z00_3220 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15770;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15771;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15772;
BgL_auxz00_15772 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15771 = 
(BgL_auxz00_15772==((long)41)); } 
if(BgL_testz00_15771)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15770 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15775;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15776;
BgL_auxz00_15776 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15775 = 
(BgL_auxz00_15776==((long)40)); } 
if(BgL_testz00_15775)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15770 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15779;
BgL_auxz00_15779 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15770 = 
(BgL_auxz00_15779==((long)39)); } } } 
if(BgL_testz00_15770)
{ /* ./Read/reader.scm 336 */
BgL_test5931z00_3220 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15782;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15783;
BgL_auxz00_15783 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15782 = 
(BgL_auxz00_15783==((long)44)); } 
if(BgL_testz00_15782)
{ /* ./Read/reader.scm 336 */
BgL_test5931z00_3220 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test5929z00_3219)
{ /* ./Read/reader.scm 336 */
BgL_test5931z00_3220 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15787;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15788;
BgL_auxz00_15788 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15787 = 
(BgL_auxz00_15788==((long)59)); } 
if(BgL_testz00_15787)
{ /* ./Read/reader.scm 336 */
BgL_test5931z00_3220 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15791;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15792;
BgL_auxz00_15792 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15791 = 
(BgL_auxz00_15792==((long)91)); } 
if(BgL_testz00_15791)
{ /* ./Read/reader.scm 336 */
BgL_test5931z00_3220 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15795;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15796;
BgL_auxz00_15796 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15795 = 
(BgL_auxz00_15796==((long)93)); } 
if(BgL_testz00_15795)
{ /* ./Read/reader.scm 336 */
BgL_test5931z00_3220 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15799;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15800;
BgL_auxz00_15800 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15799 = 
(BgL_auxz00_15800==((long)96)); } 
if(BgL_testz00_15799)
{ /* ./Read/reader.scm 336 */
BgL_test5931z00_3220 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15803;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15804;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15805;
BgL_auxz00_15805 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15804 = 
(BgL_auxz00_15805==((long)125)); } 
if(BgL_testz00_15804)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15803 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15808;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15809;
BgL_auxz00_15809 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15808 = 
(BgL_auxz00_15809==((long)124)); } 
if(BgL_testz00_15808)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15803 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15812;
BgL_auxz00_15812 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_testz00_15803 = 
(BgL_auxz00_15812==((long)123)); } } } 
if(BgL_testz00_15803)
{ /* ./Read/reader.scm 336 */
BgL_test5931z00_3220 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15815;
BgL_auxz00_15815 = 
(long)(BgL_currentzd2charzd2_3216); 
BgL_test5931z00_3220 = 
(BgL_auxz00_15815==((long)127)); } } } } } } } } } } } 
if(BgL_test5931z00_3220)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3215; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15821;long BgL_lastzd2matchzd2_15820;obj_t BgL_inputzd2portzd2_15819;
BgL_inputzd2portzd2_15819 = BgL_inputzd2portzd2_3211; 
BgL_lastzd2matchzd2_15820 = BgL_newzd2matchzd2_3215; 
BgL_thezd2rgczd2contextz00_15821 = BgL_thezd2rgczd2contextz00_3213; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_15821; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_15820; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_15819; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15822;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15823;
BgL_auxz00_15823 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_15822 = 
(BgL_auxz00_15823==((long)45)); } 
if(BgL_testz00_15822)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_3166 = BgL_inputzd2portzd2_2933; 
BgL_lastzd2matchzd2_3167 = BgL_lastzd2matchzd2_2934; 
BgL_thezd2rgczd2contextz00_3168 = BgL_thezd2rgczd2contextz00_2935; 
BgL_zc3anonymousza35839ze3z83_3169:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_3170;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3166); 
BgL_newzd2matchzd2_3170 = ((long)22); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_3171;
BgL_currentzd2charzd2_3171 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3166); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15828;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15829;
BgL_auxz00_15829 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15828 = 
(BgL_auxz00_15829==((long)0)); } 
if(BgL_testz00_15828)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5841z00_3173;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8028z00_8854;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8851;
BgL__andtest_1208z00_8851 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3166); 
if(BgL__andtest_1208z00_8851)
{ /* ./Read/reader.scm 336 */
BgL_res8028z00_8854 = 
rgc_fill_buffer(BgL_inputzd2portzd2_3166); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8028z00_8854 = ((bool_t)0); } } 
BgL_test5841z00_3173 = BgL_res8028z00_8854; } 
if(BgL_test5841z00_3173)
{ 

goto BgL_zc3anonymousza35839ze3z83_3169;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3170
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5844z00_3174;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15836;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15837;
BgL_auxz00_15837 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15836 = 
(BgL_auxz00_15837>=((long)48)); } 
if(BgL_testz00_15836)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15840;
BgL_auxz00_15840 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_test5844z00_3174 = 
(BgL_auxz00_15840<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5844z00_3174 = ((bool_t)0); } } 
if(BgL_test5844z00_3174)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2701 = BgL_inputzd2portzd2_3166; 
BgL_lastzd2matchzd2_2702 = BgL_newzd2matchzd2_3170; 
BgL_thezd2rgczd2contextz00_2703 = BgL_thezd2rgczd2contextz00_3168; 
BgL_zc3anonymousza35063ze3z83_2704:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2705;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2701); 
BgL_newzd2matchzd2_2705 = ((long)18); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2706;
BgL_currentzd2charzd2_2706 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2701); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15846;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15847;
BgL_auxz00_15847 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15846 = 
(BgL_auxz00_15847==((long)0)); } 
if(BgL_testz00_15846)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5065z00_2708;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8013z00_8042;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8039;
BgL__andtest_1208z00_8039 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2701); 
if(BgL__andtest_1208z00_8039)
{ /* ./Read/reader.scm 336 */
BgL_res8013z00_8042 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2701); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8013z00_8042 = ((bool_t)0); } } 
BgL_test5065z00_2708 = BgL_res8013z00_8042; } 
if(BgL_test5065z00_2708)
{ 

goto BgL_zc3anonymousza35063ze3z83_2704;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2705
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5068z00_2709;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15854;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15855;
BgL_auxz00_15855 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15854 = 
(BgL_auxz00_15855>=((long)48)); } 
if(BgL_testz00_15854)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15858;
BgL_auxz00_15858 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_test5068z00_2709 = 
(BgL_auxz00_15858<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5068z00_2709 = ((bool_t)0); } } 
if(BgL_test5068z00_2709)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_15862;
BgL_lastzd2matchzd2_15862 = BgL_newzd2matchzd2_2705; 
BgL_lastzd2matchzd2_2702 = BgL_lastzd2matchzd2_15862; 
goto BgL_zc3anonymousza35063ze3z83_2704;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5070z00_2710;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15863;
BgL_auxz00_15863 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_test5070z00_2710 = 
(BgL_auxz00_15863==((long)40)); } 
if(BgL_test5070z00_2710)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_8052;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2701); 
BgL_newzd2matchzd2_8052 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_8052; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5072z00_2711;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15868;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15869;
BgL_auxz00_15869 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15868 = 
(BgL_auxz00_15869<((long)33)); } 
if(BgL_testz00_15868)
{ /* ./Read/reader.scm 336 */
BgL_test5072z00_2711 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15872;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15873;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15874;
BgL_auxz00_15874 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15873 = 
(BgL_auxz00_15874==((long)35)); } 
if(BgL_testz00_15873)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15872 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15877;
BgL_auxz00_15877 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15872 = 
(BgL_auxz00_15877==((long)34)); } } 
if(BgL_testz00_15872)
{ /* ./Read/reader.scm 336 */
BgL_test5072z00_2711 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15880;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15881;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15882;
BgL_auxz00_15882 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15881 = 
(BgL_auxz00_15882==((long)41)); } 
if(BgL_testz00_15881)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15880 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15880 = BgL_test5070z00_2710
; } } 
if(BgL_testz00_15880)
{ /* ./Read/reader.scm 336 */
BgL_test5072z00_2711 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15885;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15886;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15887;
BgL_auxz00_15887 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15886 = 
(BgL_auxz00_15887>=((long)48)); } 
if(BgL_testz00_15886)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15890;
BgL_auxz00_15890 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15885 = 
(BgL_auxz00_15890<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15885 = ((bool_t)0)
; } } 
if(BgL_testz00_15885)
{ /* ./Read/reader.scm 336 */
BgL_test5072z00_2711 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15893;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15894;
BgL_auxz00_15894 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15893 = 
(BgL_auxz00_15894==((long)59)); } 
if(BgL_testz00_15893)
{ /* ./Read/reader.scm 336 */
BgL_test5072z00_2711 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15897;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15898;
BgL_auxz00_15898 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15897 = 
(BgL_auxz00_15898==((long)91)); } 
if(BgL_testz00_15897)
{ /* ./Read/reader.scm 336 */
BgL_test5072z00_2711 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15901;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15902;
BgL_auxz00_15902 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15901 = 
(BgL_auxz00_15902==((long)93)); } 
if(BgL_testz00_15901)
{ /* ./Read/reader.scm 336 */
BgL_test5072z00_2711 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15905;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15906;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15907;
BgL_auxz00_15907 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15906 = 
(BgL_auxz00_15907==((long)125)); } 
if(BgL_testz00_15906)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15905 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15910;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15911;
BgL_auxz00_15911 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15910 = 
(BgL_auxz00_15911==((long)124)); } 
if(BgL_testz00_15910)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15905 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15914;
BgL_auxz00_15914 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_testz00_15905 = 
(BgL_auxz00_15914==((long)123)); } } } 
if(BgL_testz00_15905)
{ /* ./Read/reader.scm 336 */
BgL_test5072z00_2711 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15917;
BgL_auxz00_15917 = 
(long)(BgL_currentzd2charzd2_2706); 
BgL_test5072z00_2711 = 
(BgL_auxz00_15917==((long)127)); } } } } } } } } } 
if(BgL_test5072z00_2711)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2705; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15923;long BgL_lastzd2matchzd2_15922;obj_t BgL_inputzd2portzd2_15921;
BgL_inputzd2portzd2_15921 = BgL_inputzd2portzd2_2701; 
BgL_lastzd2matchzd2_15922 = BgL_newzd2matchzd2_2705; 
BgL_thezd2rgczd2contextz00_15923 = BgL_thezd2rgczd2contextz00_2703; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_15923; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_15922; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_15921; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5846z00_3175;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15924;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15925;
BgL_auxz00_15925 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15924 = 
(BgL_auxz00_15925==((long)45)); } 
if(BgL_testz00_15924)
{ /* ./Read/reader.scm 336 */
BgL_test5846z00_3175 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15928;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15929;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15930;
BgL_auxz00_15930 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15929 = 
(BgL_auxz00_15930>=((long)98)); } 
if(BgL_testz00_15929)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15933;
BgL_auxz00_15933 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15928 = 
(BgL_auxz00_15933<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15928 = ((bool_t)0)
; } } 
if(BgL_testz00_15928)
{ /* ./Read/reader.scm 336 */
BgL_test5846z00_3175 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15936;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15937;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15938;
BgL_auxz00_15938 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15937 = 
(BgL_auxz00_15938==((long)106)); } 
if(BgL_testz00_15937)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15936 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15941;
BgL_auxz00_15941 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15936 = 
(BgL_auxz00_15941==((long)105)); } } 
if(BgL_testz00_15936)
{ /* ./Read/reader.scm 336 */
BgL_test5846z00_3175 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15944;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15945;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15946;
BgL_auxz00_15946 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15945 = 
(BgL_auxz00_15946==((long)112)); } 
if(BgL_testz00_15945)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15944 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15949;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15950;
BgL_auxz00_15950 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15949 = 
(BgL_auxz00_15950==((long)111)); } 
if(BgL_testz00_15949)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15944 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15953;
BgL_auxz00_15953 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15944 = 
(BgL_auxz00_15953==((long)110)); } } } 
if(BgL_testz00_15944)
{ /* ./Read/reader.scm 336 */
BgL_test5846z00_3175 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL__ortest_1138z00_3205;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15956;
BgL_auxz00_15956 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL__ortest_1138z00_3205 = 
(BgL_auxz00_15956==((long)116)); } 
if(BgL__ortest_1138z00_3205)
{ /* ./Read/reader.scm 336 */
BgL_test5846z00_3175 = BgL__ortest_1138z00_3205; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15960;
BgL_auxz00_15960 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_test5846z00_3175 = 
(BgL_auxz00_15960==((long)115)); } } } } } } 
if(BgL_test5846z00_3175)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_15966;long BgL_lastzd2matchzd2_15965;obj_t BgL_inputzd2portzd2_15964;
BgL_inputzd2portzd2_15964 = BgL_inputzd2portzd2_3166; 
BgL_lastzd2matchzd2_15965 = BgL_newzd2matchzd2_3170; 
BgL_thezd2rgczd2contextz00_15966 = BgL_thezd2rgczd2contextz00_3168; 
BgL_thezd2rgczd2contextz00_3061 = BgL_thezd2rgczd2contextz00_15966; 
BgL_lastzd2matchzd2_3060 = BgL_lastzd2matchzd2_15965; 
BgL_inputzd2portzd2_3059 = BgL_inputzd2portzd2_15964; 
goto BgL_zc3anonymousza35645ze3z83_3062;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5848z00_3176;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15967;
BgL_auxz00_15967 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_test5848z00_3176 = 
(BgL_auxz00_15967==((long)40)); } 
if(BgL_test5848z00_3176)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_8884;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3166); 
BgL_newzd2matchzd2_8884 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_8884; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5850z00_3177;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15972;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15973;
BgL_auxz00_15973 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15972 = 
(BgL_auxz00_15973<((long)33)); } 
if(BgL_testz00_15972)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15976;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15977;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15978;
BgL_auxz00_15978 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15977 = 
(BgL_auxz00_15978==((long)35)); } 
if(BgL_testz00_15977)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15976 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15981;
BgL_auxz00_15981 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15976 = 
(BgL_auxz00_15981==((long)34)); } } 
if(BgL_testz00_15976)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15984;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15985;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15986;
BgL_auxz00_15986 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15985 = 
(BgL_auxz00_15986==((long)41)); } 
if(BgL_testz00_15985)
{ /* ./Read/reader.scm 336 */
BgL_testz00_15984 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15984 = BgL_test5848z00_3176
; } } 
if(BgL_testz00_15984)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15989;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15990;
BgL_auxz00_15990 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15989 = 
(BgL_auxz00_15990==((long)45)); } 
if(BgL_testz00_15989)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15993;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_15994;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15995;
BgL_auxz00_15995 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15994 = 
(BgL_auxz00_15995>=((long)48)); } 
if(BgL_testz00_15994)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_15998;
BgL_auxz00_15998 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_15993 = 
(BgL_auxz00_15998<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_15993 = ((bool_t)0)
; } } 
if(BgL_testz00_15993)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16001;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16002;
BgL_auxz00_16002 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16001 = 
(BgL_auxz00_16002==((long)59)); } 
if(BgL_testz00_16001)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16005;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16006;
BgL_auxz00_16006 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16005 = 
(BgL_auxz00_16006==((long)91)); } 
if(BgL_testz00_16005)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16009;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16010;
BgL_auxz00_16010 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16009 = 
(BgL_auxz00_16010==((long)93)); } 
if(BgL_testz00_16009)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16013;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16014;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16015;
BgL_auxz00_16015 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16014 = 
(BgL_auxz00_16015>=((long)98)); } 
if(BgL_testz00_16014)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16018;
BgL_auxz00_16018 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16013 = 
(BgL_auxz00_16018<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16013 = ((bool_t)0)
; } } 
if(BgL_testz00_16013)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16021;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16022;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16023;
BgL_auxz00_16023 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16022 = 
(BgL_auxz00_16023==((long)106)); } 
if(BgL_testz00_16022)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16021 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16026;
BgL_auxz00_16026 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16021 = 
(BgL_auxz00_16026==((long)105)); } } 
if(BgL_testz00_16021)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16029;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16030;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16031;
BgL_auxz00_16031 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16030 = 
(BgL_auxz00_16031==((long)112)); } 
if(BgL_testz00_16030)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16029 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16034;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16035;
BgL_auxz00_16035 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16034 = 
(BgL_auxz00_16035==((long)111)); } 
if(BgL_testz00_16034)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16029 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16038;
BgL_auxz00_16038 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16029 = 
(BgL_auxz00_16038==((long)110)); } } } 
if(BgL_testz00_16029)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16041;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16042;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16043;
BgL_auxz00_16043 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16042 = 
(BgL_auxz00_16043==((long)116)); } 
if(BgL_testz00_16042)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16041 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16046;
BgL_auxz00_16046 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16041 = 
(BgL_auxz00_16046==((long)115)); } } 
if(BgL_testz00_16041)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16049;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16050;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16051;
BgL_auxz00_16051 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16050 = 
(BgL_auxz00_16051==((long)125)); } 
if(BgL_testz00_16050)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16049 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16054;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16055;
BgL_auxz00_16055 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16054 = 
(BgL_auxz00_16055==((long)124)); } 
if(BgL_testz00_16054)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16049 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16058;
BgL_auxz00_16058 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_testz00_16049 = 
(BgL_auxz00_16058==((long)123)); } } } 
if(BgL_testz00_16049)
{ /* ./Read/reader.scm 336 */
BgL_test5850z00_3177 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16061;
BgL_auxz00_16061 = 
(long)(BgL_currentzd2charzd2_3171); 
BgL_test5850z00_3177 = 
(BgL_auxz00_16061==((long)127)); } } } } } } } } } } } } } } 
if(BgL_test5850z00_3177)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3170; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16067;long BgL_lastzd2matchzd2_16066;obj_t BgL_inputzd2portzd2_16065;
BgL_inputzd2portzd2_16065 = BgL_inputzd2portzd2_3166; 
BgL_lastzd2matchzd2_16066 = BgL_newzd2matchzd2_3170; 
BgL_thezd2rgczd2contextz00_16067 = BgL_thezd2rgczd2contextz00_3168; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_16067; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_16066; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_16065; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16068;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16069;
BgL_auxz00_16069 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16068 = 
(BgL_auxz00_16069==((long)43)); } 
if(BgL_testz00_16068)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_3142 = BgL_inputzd2portzd2_2933; 
BgL_lastzd2matchzd2_3143 = BgL_lastzd2matchzd2_2934; 
BgL_thezd2rgczd2contextz00_3144 = BgL_thezd2rgczd2contextz00_2935; 
BgL_zc3anonymousza35795ze3z83_3145:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_3146;
BgL_currentzd2charzd2_3146 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3142); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16073;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16074;
BgL_auxz00_16074 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16073 = 
(BgL_auxz00_16074==((long)0)); } 
if(BgL_testz00_16073)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5797z00_3148;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8027z00_8806;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8803;
BgL__andtest_1208z00_8803 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3142); 
if(BgL__andtest_1208z00_8803)
{ /* ./Read/reader.scm 336 */
BgL_res8027z00_8806 = 
rgc_fill_buffer(BgL_inputzd2portzd2_3142); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8027z00_8806 = ((bool_t)0); } } 
BgL_test5797z00_3148 = BgL_res8027z00_8806; } 
if(BgL_test5797z00_3148)
{ 

goto BgL_zc3anonymousza35795ze3z83_3145;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_3143
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5800z00_3149;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16081;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16082;
BgL_auxz00_16082 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16081 = 
(BgL_auxz00_16082>=((long)48)); } 
if(BgL_testz00_16081)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16085;
BgL_auxz00_16085 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_test5800z00_3149 = 
(BgL_auxz00_16085<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5800z00_3149 = ((bool_t)0); } } 
if(BgL_test5800z00_3149)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16091;long BgL_lastzd2matchzd2_16090;obj_t BgL_inputzd2portzd2_16089;
BgL_inputzd2portzd2_16089 = BgL_inputzd2portzd2_3142; 
BgL_lastzd2matchzd2_16090 = BgL_lastzd2matchzd2_3143; 
BgL_thezd2rgczd2contextz00_16091 = BgL_thezd2rgczd2contextz00_3144; 
BgL_thezd2rgczd2contextz00_2703 = BgL_thezd2rgczd2contextz00_16091; 
BgL_lastzd2matchzd2_2702 = BgL_lastzd2matchzd2_16090; 
BgL_inputzd2portzd2_2701 = BgL_inputzd2portzd2_16089; 
goto BgL_zc3anonymousza35063ze3z83_2704;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5802z00_3150;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16092;
BgL_auxz00_16092 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_test5802z00_3150 = 
(BgL_auxz00_16092==((long)40)); } 
if(BgL_test5802z00_3150)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_8816;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3142); 
BgL_newzd2matchzd2_8816 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_8816; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5804z00_3151;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16097;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16098;
BgL_auxz00_16098 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16097 = 
(BgL_auxz00_16098<((long)33)); } 
if(BgL_testz00_16097)
{ /* ./Read/reader.scm 336 */
BgL_test5804z00_3151 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16101;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16102;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16103;
BgL_auxz00_16103 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16102 = 
(BgL_auxz00_16103==((long)35)); } 
if(BgL_testz00_16102)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16101 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16106;
BgL_auxz00_16106 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16101 = 
(BgL_auxz00_16106==((long)34)); } } 
if(BgL_testz00_16101)
{ /* ./Read/reader.scm 336 */
BgL_test5804z00_3151 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16109;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16110;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16111;
BgL_auxz00_16111 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16110 = 
(BgL_auxz00_16111==((long)41)); } 
if(BgL_testz00_16110)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16109 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16109 = BgL_test5802z00_3150
; } } 
if(BgL_testz00_16109)
{ /* ./Read/reader.scm 336 */
BgL_test5804z00_3151 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16114;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16115;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16116;
BgL_auxz00_16116 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16115 = 
(BgL_auxz00_16116>=((long)48)); } 
if(BgL_testz00_16115)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16119;
BgL_auxz00_16119 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16114 = 
(BgL_auxz00_16119<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16114 = ((bool_t)0)
; } } 
if(BgL_testz00_16114)
{ /* ./Read/reader.scm 336 */
BgL_test5804z00_3151 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16122;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16123;
BgL_auxz00_16123 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16122 = 
(BgL_auxz00_16123==((long)59)); } 
if(BgL_testz00_16122)
{ /* ./Read/reader.scm 336 */
BgL_test5804z00_3151 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16126;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16127;
BgL_auxz00_16127 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16126 = 
(BgL_auxz00_16127==((long)91)); } 
if(BgL_testz00_16126)
{ /* ./Read/reader.scm 336 */
BgL_test5804z00_3151 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16130;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16131;
BgL_auxz00_16131 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16130 = 
(BgL_auxz00_16131==((long)93)); } 
if(BgL_testz00_16130)
{ /* ./Read/reader.scm 336 */
BgL_test5804z00_3151 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16134;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16135;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16136;
BgL_auxz00_16136 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16135 = 
(BgL_auxz00_16136==((long)125)); } 
if(BgL_testz00_16135)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16134 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16139;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16140;
BgL_auxz00_16140 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16139 = 
(BgL_auxz00_16140==((long)124)); } 
if(BgL_testz00_16139)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16134 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16143;
BgL_auxz00_16143 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_testz00_16134 = 
(BgL_auxz00_16143==((long)123)); } } } 
if(BgL_testz00_16134)
{ /* ./Read/reader.scm 336 */
BgL_test5804z00_3151 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16146;
BgL_auxz00_16146 = 
(long)(BgL_currentzd2charzd2_3146); 
BgL_test5804z00_3151 = 
(BgL_auxz00_16146==((long)127)); } } } } } } } } } 
if(BgL_test5804z00_3151)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_3143; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16152;long BgL_lastzd2matchzd2_16151;obj_t BgL_inputzd2portzd2_16150;
BgL_inputzd2portzd2_16150 = BgL_inputzd2portzd2_3142; 
BgL_lastzd2matchzd2_16151 = BgL_lastzd2matchzd2_3143; 
BgL_thezd2rgczd2contextz00_16152 = BgL_thezd2rgczd2contextz00_3144; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_16152; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_16151; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_16150; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5422z00_2944;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16153;
BgL_auxz00_16153 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_test5422z00_2944 = 
(BgL_auxz00_16153==((long)40)); } 
if(BgL_test5422z00_2944)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_8450;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2933); 
BgL_newzd2matchzd2_8450 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_8450; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5424z00_2945;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16158;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16159;
BgL_auxz00_16159 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16158 = 
(BgL_auxz00_16159<((long)33)); } 
if(BgL_testz00_16158)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16162;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16163;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16164;
BgL_auxz00_16164 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16163 = 
(BgL_auxz00_16164==((long)35)); } 
if(BgL_testz00_16163)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16162 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16167;
BgL_auxz00_16167 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16162 = 
(BgL_auxz00_16167==((long)34)); } } 
if(BgL_testz00_16162)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16170;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16171;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16172;
BgL_auxz00_16172 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16171 = 
(BgL_auxz00_16172==((long)41)); } 
if(BgL_testz00_16171)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16170 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test5422z00_2944)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16170 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16176;
BgL_auxz00_16176 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16170 = 
(BgL_auxz00_16176==((long)39)); } } } 
if(BgL_testz00_16170)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16179;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16180;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16181;
BgL_auxz00_16181 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16180 = 
(BgL_auxz00_16181==((long)45)); } 
if(BgL_testz00_16180)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16179 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16184;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16185;
BgL_auxz00_16185 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16184 = 
(BgL_auxz00_16185==((long)44)); } 
if(BgL_testz00_16184)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16179 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16188;
BgL_auxz00_16188 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16179 = 
(BgL_auxz00_16188==((long)43)); } } } 
if(BgL_testz00_16179)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16191;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16192;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16193;
BgL_auxz00_16193 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16192 = 
(BgL_auxz00_16193>=((long)48)); } 
if(BgL_testz00_16192)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16196;
BgL_auxz00_16196 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16191 = 
(BgL_auxz00_16196<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16191 = ((bool_t)0)
; } } 
if(BgL_testz00_16191)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16199;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16200;
BgL_auxz00_16200 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16199 = 
(BgL_auxz00_16200==((long)59)); } 
if(BgL_testz00_16199)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16203;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16204;
BgL_auxz00_16204 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16203 = 
(BgL_auxz00_16204==((long)91)); } 
if(BgL_testz00_16203)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16207;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16208;
BgL_auxz00_16208 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16207 = 
(BgL_auxz00_16208==((long)93)); } 
if(BgL_testz00_16207)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16211;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16212;
BgL_auxz00_16212 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16211 = 
(BgL_auxz00_16212==((long)96)); } 
if(BgL_testz00_16211)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16215;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16216;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16217;
BgL_auxz00_16217 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16216 = 
(BgL_auxz00_16217>=((long)98)); } 
if(BgL_testz00_16216)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16220;
BgL_auxz00_16220 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16215 = 
(BgL_auxz00_16220<((long)103)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16215 = ((bool_t)0)
; } } 
if(BgL_testz00_16215)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16223;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16224;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16225;
BgL_auxz00_16225 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16224 = 
(BgL_auxz00_16225==((long)106)); } 
if(BgL_testz00_16224)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16223 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16228;
BgL_auxz00_16228 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16223 = 
(BgL_auxz00_16228==((long)105)); } } 
if(BgL_testz00_16223)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16231;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16232;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16233;
BgL_auxz00_16233 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16232 = 
(BgL_auxz00_16233==((long)112)); } 
if(BgL_testz00_16232)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16231 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16236;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16237;
BgL_auxz00_16237 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16236 = 
(BgL_auxz00_16237==((long)111)); } 
if(BgL_testz00_16236)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16231 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16240;
BgL_auxz00_16240 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16231 = 
(BgL_auxz00_16240==((long)110)); } } } 
if(BgL_testz00_16231)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16243;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16244;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16245;
BgL_auxz00_16245 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16244 = 
(BgL_auxz00_16245==((long)116)); } 
if(BgL_testz00_16244)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16243 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16248;
BgL_auxz00_16248 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16243 = 
(BgL_auxz00_16248==((long)115)); } } 
if(BgL_testz00_16243)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16251;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16252;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16253;
BgL_auxz00_16253 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16252 = 
(BgL_auxz00_16253==((long)125)); } 
if(BgL_testz00_16252)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16251 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16256;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16257;
BgL_auxz00_16257 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16256 = 
(BgL_auxz00_16257==((long)124)); } 
if(BgL_testz00_16256)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16251 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16260;
BgL_auxz00_16260 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_testz00_16251 = 
(BgL_auxz00_16260==((long)123)); } } } 
if(BgL_testz00_16251)
{ /* ./Read/reader.scm 336 */
BgL_test5424z00_2945 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16263;
BgL_auxz00_16263 = 
(long)(BgL_currentzd2charzd2_2937); 
BgL_test5424z00_2945 = 
(BgL_auxz00_16263==((long)127)); } } } } } } } } } } } } } } } 
if(BgL_test5424z00_2945)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2934; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16269;long BgL_lastzd2matchzd2_16268;obj_t BgL_inputzd2portzd2_16267;
BgL_inputzd2portzd2_16267 = BgL_inputzd2portzd2_2933; 
BgL_lastzd2matchzd2_16268 = BgL_lastzd2matchzd2_2934; 
BgL_thezd2rgczd2contextz00_16269 = BgL_thezd2rgczd2contextz00_2935; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_16269; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_16268; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_16267; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } } } break;case ((long)100) : 

BgL_inputzd2portzd2_2902 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_2903 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_2904 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza35350ze3z83_2905:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2906;
BgL_currentzd2charzd2_2906 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2902); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16271;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16272;
BgL_auxz00_16272 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16271 = 
(BgL_auxz00_16272==((long)0)); } 
if(BgL_testz00_16271)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5352z00_2908;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8021z00_8357;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8354;
BgL__andtest_1208z00_8354 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2902); 
if(BgL__andtest_1208z00_8354)
{ /* ./Read/reader.scm 336 */
BgL_res8021z00_8357 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2902); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8021z00_8357 = ((bool_t)0); } } 
BgL_test5352z00_2908 = BgL_res8021z00_8357; } 
if(BgL_test5352z00_2908)
{ 

goto BgL_zc3anonymousza35350ze3z83_2905;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2903
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5355z00_2909;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16279;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16280;
BgL_auxz00_16280 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16279 = 
(BgL_auxz00_16280>=((long)48)); } 
if(BgL_testz00_16279)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16283;
BgL_auxz00_16283 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_test5355z00_2909 = 
(BgL_auxz00_16283<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5355z00_2909 = ((bool_t)0); } } 
if(BgL_test5355z00_2909)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2726 = BgL_inputzd2portzd2_2902; 
BgL_lastzd2matchzd2_2727 = BgL_lastzd2matchzd2_2903; 
BgL_thezd2rgczd2contextz00_2728 = BgL_thezd2rgczd2contextz00_2904; 
BgL_zc3anonymousza35108ze3z83_2729:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2730;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2726); 
BgL_newzd2matchzd2_2730 = ((long)16); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2731;
BgL_currentzd2charzd2_2731 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2726); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16289;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16290;
BgL_auxz00_16290 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16289 = 
(BgL_auxz00_16290==((long)0)); } 
if(BgL_testz00_16289)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5110z00_2733;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8014z00_8090;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8087;
BgL__andtest_1208z00_8087 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2726); 
if(BgL__andtest_1208z00_8087)
{ /* ./Read/reader.scm 336 */
BgL_res8014z00_8090 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2726); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8014z00_8090 = ((bool_t)0); } } 
BgL_test5110z00_2733 = BgL_res8014z00_8090; } 
if(BgL_test5110z00_2733)
{ 

goto BgL_zc3anonymousza35108ze3z83_2729;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2730
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5113z00_2734;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16297;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16298;
BgL_auxz00_16298 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16297 = 
(BgL_auxz00_16298>=((long)48)); } 
if(BgL_testz00_16297)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16301;
BgL_auxz00_16301 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_test5113z00_2734 = 
(BgL_auxz00_16301<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5113z00_2734 = ((bool_t)0); } } 
if(BgL_test5113z00_2734)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_16305;
BgL_lastzd2matchzd2_16305 = BgL_newzd2matchzd2_2730; 
BgL_lastzd2matchzd2_2727 = BgL_lastzd2matchzd2_16305; 
goto BgL_zc3anonymousza35108ze3z83_2729;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5115z00_2735;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16306;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16307;
BgL_auxz00_16307 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16306 = 
(BgL_auxz00_16307<((long)33)); } 
if(BgL_testz00_16306)
{ /* ./Read/reader.scm 336 */
BgL_test5115z00_2735 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16310;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16311;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16312;
BgL_auxz00_16312 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16311 = 
(BgL_auxz00_16312==((long)35)); } 
if(BgL_testz00_16311)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16310 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16315;
BgL_auxz00_16315 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16310 = 
(BgL_auxz00_16315==((long)34)); } } 
if(BgL_testz00_16310)
{ /* ./Read/reader.scm 336 */
BgL_test5115z00_2735 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16318;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16319;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16320;
BgL_auxz00_16320 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16319 = 
(BgL_auxz00_16320==((long)41)); } 
if(BgL_testz00_16319)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16318 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16323;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16324;
BgL_auxz00_16324 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16323 = 
(BgL_auxz00_16324==((long)40)); } 
if(BgL_testz00_16323)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16318 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16327;
BgL_auxz00_16327 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16318 = 
(BgL_auxz00_16327==((long)39)); } } } 
if(BgL_testz00_16318)
{ /* ./Read/reader.scm 336 */
BgL_test5115z00_2735 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16330;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16331;
BgL_auxz00_16331 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16330 = 
(BgL_auxz00_16331==((long)44)); } 
if(BgL_testz00_16330)
{ /* ./Read/reader.scm 336 */
BgL_test5115z00_2735 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test5113z00_2734)
{ /* ./Read/reader.scm 336 */
BgL_test5115z00_2735 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16335;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16336;
BgL_auxz00_16336 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16335 = 
(BgL_auxz00_16336==((long)59)); } 
if(BgL_testz00_16335)
{ /* ./Read/reader.scm 336 */
BgL_test5115z00_2735 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16339;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16340;
BgL_auxz00_16340 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16339 = 
(BgL_auxz00_16340==((long)91)); } 
if(BgL_testz00_16339)
{ /* ./Read/reader.scm 336 */
BgL_test5115z00_2735 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16343;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16344;
BgL_auxz00_16344 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16343 = 
(BgL_auxz00_16344==((long)93)); } 
if(BgL_testz00_16343)
{ /* ./Read/reader.scm 336 */
BgL_test5115z00_2735 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16347;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16348;
BgL_auxz00_16348 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16347 = 
(BgL_auxz00_16348==((long)96)); } 
if(BgL_testz00_16347)
{ /* ./Read/reader.scm 336 */
BgL_test5115z00_2735 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16351;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16352;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16353;
BgL_auxz00_16353 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16352 = 
(BgL_auxz00_16353==((long)125)); } 
if(BgL_testz00_16352)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16351 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16356;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16357;
BgL_auxz00_16357 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16356 = 
(BgL_auxz00_16357==((long)124)); } 
if(BgL_testz00_16356)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16351 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16360;
BgL_auxz00_16360 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_testz00_16351 = 
(BgL_auxz00_16360==((long)123)); } } } 
if(BgL_testz00_16351)
{ /* ./Read/reader.scm 336 */
BgL_test5115z00_2735 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16363;
BgL_auxz00_16363 = 
(long)(BgL_currentzd2charzd2_2731); 
BgL_test5115z00_2735 = 
(BgL_auxz00_16363==((long)127)); } } } } } } } } } } } 
if(BgL_test5115z00_2735)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2730; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16369;long BgL_lastzd2matchzd2_16368;obj_t BgL_inputzd2portzd2_16367;
BgL_inputzd2portzd2_16367 = BgL_inputzd2portzd2_2726; 
BgL_lastzd2matchzd2_16368 = BgL_newzd2matchzd2_2730; 
BgL_thezd2rgczd2contextz00_16369 = BgL_thezd2rgczd2contextz00_2728; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_16369; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_16368; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_16367; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5357z00_2910;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16370;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16371;
BgL_auxz00_16371 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16370 = 
(BgL_auxz00_16371==((long)43)); } 
if(BgL_testz00_16370)
{ /* ./Read/reader.scm 336 */
BgL_test5357z00_2910 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16374;
BgL_auxz00_16374 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_test5357z00_2910 = 
(BgL_auxz00_16374==((long)45)); } } 
if(BgL_test5357z00_2910)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1130 = BgL_inputzd2portzd2_2902; 
BgL_lastzd2matchzd2_1131 = BgL_lastzd2matchzd2_2903; 
BgL_thezd2rgczd2contextz00_1132 = BgL_thezd2rgczd2contextz00_2904; 
BgL_zc3anonymousza32284ze3z83_1133:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1134;
BgL_currentzd2charzd2_1134 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1130); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16379;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16380;
BgL_auxz00_16380 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16379 = 
(BgL_auxz00_16380==((long)0)); } 
if(BgL_testz00_16379)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2286z00_1136;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7949z00_5160;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5157;
BgL__andtest_1208z00_5157 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1130); 
if(BgL__andtest_1208z00_5157)
{ /* ./Read/reader.scm 336 */
BgL_res7949z00_5160 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1130); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7949z00_5160 = ((bool_t)0); } } 
BgL_test2286z00_1136 = BgL_res7949z00_5160; } 
if(BgL_test2286z00_1136)
{ 

goto BgL_zc3anonymousza32284ze3z83_1133;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1131
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2289z00_1137;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16387;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16388;
BgL_auxz00_16388 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16387 = 
(BgL_auxz00_16388>=((long)48)); } 
if(BgL_testz00_16387)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16391;
BgL_auxz00_16391 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_test2289z00_1137 = 
(BgL_auxz00_16391<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2289z00_1137 = ((bool_t)0); } } 
if(BgL_test2289z00_1137)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_3238 = BgL_inputzd2portzd2_1130; 
BgL_lastzd2matchzd2_3239 = BgL_lastzd2matchzd2_1131; 
BgL_thezd2rgczd2contextz00_3240 = BgL_thezd2rgczd2contextz00_1132; 
BgL_zc3anonymousza35972ze3z83_3241:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_3242;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3238); 
BgL_newzd2matchzd2_3242 = ((long)16); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_3243;
BgL_currentzd2charzd2_3243 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3238); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16397;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16398;
BgL_auxz00_16398 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16397 = 
(BgL_auxz00_16398==((long)0)); } 
if(BgL_testz00_16397)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5974z00_3245;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8030z00_8989;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8986;
BgL__andtest_1208z00_8986 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3238); 
if(BgL__andtest_1208z00_8986)
{ /* ./Read/reader.scm 336 */
BgL_res8030z00_8989 = 
rgc_fill_buffer(BgL_inputzd2portzd2_3238); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8030z00_8989 = ((bool_t)0); } } 
BgL_test5974z00_3245 = BgL_res8030z00_8989; } 
if(BgL_test5974z00_3245)
{ 

goto BgL_zc3anonymousza35972ze3z83_3241;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3242
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5977z00_3246;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16405;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16406;
BgL_auxz00_16406 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16405 = 
(BgL_auxz00_16406>=((long)48)); } 
if(BgL_testz00_16405)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16409;
BgL_auxz00_16409 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_test5977z00_3246 = 
(BgL_auxz00_16409<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5977z00_3246 = ((bool_t)0); } } 
if(BgL_test5977z00_3246)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_16413;
BgL_lastzd2matchzd2_16413 = BgL_newzd2matchzd2_3242; 
BgL_lastzd2matchzd2_3239 = BgL_lastzd2matchzd2_16413; 
goto BgL_zc3anonymousza35972ze3z83_3241;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5979z00_3247;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16414;
BgL_auxz00_16414 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_test5979z00_3247 = 
(BgL_auxz00_16414==((long)40)); } 
if(BgL_test5979z00_3247)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_8999;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3238); 
BgL_newzd2matchzd2_8999 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_8999; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5981z00_3248;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16419;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16420;
BgL_auxz00_16420 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16419 = 
(BgL_auxz00_16420<((long)33)); } 
if(BgL_testz00_16419)
{ /* ./Read/reader.scm 336 */
BgL_test5981z00_3248 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16423;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16424;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16425;
BgL_auxz00_16425 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16424 = 
(BgL_auxz00_16425==((long)35)); } 
if(BgL_testz00_16424)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16423 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16428;
BgL_auxz00_16428 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16423 = 
(BgL_auxz00_16428==((long)34)); } } 
if(BgL_testz00_16423)
{ /* ./Read/reader.scm 336 */
BgL_test5981z00_3248 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16431;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16432;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16433;
BgL_auxz00_16433 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16432 = 
(BgL_auxz00_16433==((long)41)); } 
if(BgL_testz00_16432)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16431 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16431 = BgL_test5979z00_3247
; } } 
if(BgL_testz00_16431)
{ /* ./Read/reader.scm 336 */
BgL_test5981z00_3248 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16436;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16437;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16438;
BgL_auxz00_16438 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16437 = 
(BgL_auxz00_16438>=((long)48)); } 
if(BgL_testz00_16437)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16441;
BgL_auxz00_16441 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16436 = 
(BgL_auxz00_16441<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16436 = ((bool_t)0)
; } } 
if(BgL_testz00_16436)
{ /* ./Read/reader.scm 336 */
BgL_test5981z00_3248 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16444;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16445;
BgL_auxz00_16445 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16444 = 
(BgL_auxz00_16445==((long)59)); } 
if(BgL_testz00_16444)
{ /* ./Read/reader.scm 336 */
BgL_test5981z00_3248 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16448;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16449;
BgL_auxz00_16449 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16448 = 
(BgL_auxz00_16449==((long)91)); } 
if(BgL_testz00_16448)
{ /* ./Read/reader.scm 336 */
BgL_test5981z00_3248 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16452;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16453;
BgL_auxz00_16453 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16452 = 
(BgL_auxz00_16453==((long)93)); } 
if(BgL_testz00_16452)
{ /* ./Read/reader.scm 336 */
BgL_test5981z00_3248 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16456;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16457;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16458;
BgL_auxz00_16458 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16457 = 
(BgL_auxz00_16458==((long)125)); } 
if(BgL_testz00_16457)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16456 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16461;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16462;
BgL_auxz00_16462 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16461 = 
(BgL_auxz00_16462==((long)124)); } 
if(BgL_testz00_16461)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16456 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16465;
BgL_auxz00_16465 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_testz00_16456 = 
(BgL_auxz00_16465==((long)123)); } } } 
if(BgL_testz00_16456)
{ /* ./Read/reader.scm 336 */
BgL_test5981z00_3248 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16468;
BgL_auxz00_16468 = 
(long)(BgL_currentzd2charzd2_3243); 
BgL_test5981z00_3248 = 
(BgL_auxz00_16468==((long)127)); } } } } } } } } } 
if(BgL_test5981z00_3248)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3242; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16474;long BgL_lastzd2matchzd2_16473;obj_t BgL_inputzd2portzd2_16472;
BgL_inputzd2portzd2_16472 = BgL_inputzd2portzd2_3238; 
BgL_lastzd2matchzd2_16473 = BgL_newzd2matchzd2_3242; 
BgL_thezd2rgczd2contextz00_16474 = BgL_thezd2rgczd2contextz00_3240; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_16474; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_16473; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_16472; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2291z00_1138;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16475;
BgL_auxz00_16475 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_test2291z00_1138 = 
(BgL_auxz00_16475==((long)40)); } 
if(BgL_test2291z00_1138)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5170;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1130); 
BgL_newzd2matchzd2_5170 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5170; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2293z00_1139;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16480;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16481;
BgL_auxz00_16481 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16480 = 
(BgL_auxz00_16481<((long)33)); } 
if(BgL_testz00_16480)
{ /* ./Read/reader.scm 336 */
BgL_test2293z00_1139 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16484;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16485;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16486;
BgL_auxz00_16486 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16485 = 
(BgL_auxz00_16486==((long)35)); } 
if(BgL_testz00_16485)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16484 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16489;
BgL_auxz00_16489 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16484 = 
(BgL_auxz00_16489==((long)34)); } } 
if(BgL_testz00_16484)
{ /* ./Read/reader.scm 336 */
BgL_test2293z00_1139 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16492;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16493;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16494;
BgL_auxz00_16494 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16493 = 
(BgL_auxz00_16494==((long)41)); } 
if(BgL_testz00_16493)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16492 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16492 = BgL_test2291z00_1138
; } } 
if(BgL_testz00_16492)
{ /* ./Read/reader.scm 336 */
BgL_test2293z00_1139 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16497;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16498;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16499;
BgL_auxz00_16499 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16498 = 
(BgL_auxz00_16499>=((long)48)); } 
if(BgL_testz00_16498)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16502;
BgL_auxz00_16502 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16497 = 
(BgL_auxz00_16502<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16497 = ((bool_t)0)
; } } 
if(BgL_testz00_16497)
{ /* ./Read/reader.scm 336 */
BgL_test2293z00_1139 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16505;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16506;
BgL_auxz00_16506 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16505 = 
(BgL_auxz00_16506==((long)59)); } 
if(BgL_testz00_16505)
{ /* ./Read/reader.scm 336 */
BgL_test2293z00_1139 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16509;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16510;
BgL_auxz00_16510 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16509 = 
(BgL_auxz00_16510==((long)91)); } 
if(BgL_testz00_16509)
{ /* ./Read/reader.scm 336 */
BgL_test2293z00_1139 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16513;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16514;
BgL_auxz00_16514 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16513 = 
(BgL_auxz00_16514==((long)93)); } 
if(BgL_testz00_16513)
{ /* ./Read/reader.scm 336 */
BgL_test2293z00_1139 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16517;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16518;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16519;
BgL_auxz00_16519 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16518 = 
(BgL_auxz00_16519==((long)125)); } 
if(BgL_testz00_16518)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16517 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16522;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16523;
BgL_auxz00_16523 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16522 = 
(BgL_auxz00_16523==((long)124)); } 
if(BgL_testz00_16522)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16517 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16526;
BgL_auxz00_16526 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_testz00_16517 = 
(BgL_auxz00_16526==((long)123)); } } } 
if(BgL_testz00_16517)
{ /* ./Read/reader.scm 336 */
BgL_test2293z00_1139 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16529;
BgL_auxz00_16529 = 
(long)(BgL_currentzd2charzd2_1134); 
BgL_test2293z00_1139 = 
(BgL_auxz00_16529==((long)127)); } } } } } } } } } 
if(BgL_test2293z00_1139)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1131; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16535;long BgL_lastzd2matchzd2_16534;obj_t BgL_inputzd2portzd2_16533;
BgL_inputzd2portzd2_16533 = BgL_inputzd2portzd2_1130; 
BgL_lastzd2matchzd2_16534 = BgL_lastzd2matchzd2_1131; 
BgL_thezd2rgczd2contextz00_16535 = BgL_thezd2rgczd2contextz00_1132; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_16535; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_16534; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_16533; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5359z00_2911;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16536;
BgL_auxz00_16536 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_test5359z00_2911 = 
(BgL_auxz00_16536==((long)40)); } 
if(BgL_test5359z00_2911)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_8371;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2902); 
BgL_newzd2matchzd2_8371 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_8371; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5361z00_2912;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16541;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16542;
BgL_auxz00_16542 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16541 = 
(BgL_auxz00_16542<((long)33)); } 
if(BgL_testz00_16541)
{ /* ./Read/reader.scm 336 */
BgL_test5361z00_2912 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16545;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16546;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16547;
BgL_auxz00_16547 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16546 = 
(BgL_auxz00_16547==((long)35)); } 
if(BgL_testz00_16546)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16545 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16550;
BgL_auxz00_16550 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16545 = 
(BgL_auxz00_16550==((long)34)); } } 
if(BgL_testz00_16545)
{ /* ./Read/reader.scm 336 */
BgL_test5361z00_2912 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16553;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16554;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16555;
BgL_auxz00_16555 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16554 = 
(BgL_auxz00_16555==((long)41)); } 
if(BgL_testz00_16554)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16553 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test5359z00_2911)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16553 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16559;
BgL_auxz00_16559 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16553 = 
(BgL_auxz00_16559==((long)39)); } } } 
if(BgL_testz00_16553)
{ /* ./Read/reader.scm 336 */
BgL_test5361z00_2912 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16562;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16563;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16564;
BgL_auxz00_16564 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16563 = 
(BgL_auxz00_16564==((long)45)); } 
if(BgL_testz00_16563)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16562 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16567;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16568;
BgL_auxz00_16568 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16567 = 
(BgL_auxz00_16568==((long)44)); } 
if(BgL_testz00_16567)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16562 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16571;
BgL_auxz00_16571 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16562 = 
(BgL_auxz00_16571==((long)43)); } } } 
if(BgL_testz00_16562)
{ /* ./Read/reader.scm 336 */
BgL_test5361z00_2912 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16574;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16575;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16576;
BgL_auxz00_16576 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16575 = 
(BgL_auxz00_16576>=((long)48)); } 
if(BgL_testz00_16575)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16579;
BgL_auxz00_16579 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16574 = 
(BgL_auxz00_16579<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16574 = ((bool_t)0)
; } } 
if(BgL_testz00_16574)
{ /* ./Read/reader.scm 336 */
BgL_test5361z00_2912 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16582;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16583;
BgL_auxz00_16583 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16582 = 
(BgL_auxz00_16583==((long)59)); } 
if(BgL_testz00_16582)
{ /* ./Read/reader.scm 336 */
BgL_test5361z00_2912 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16586;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16587;
BgL_auxz00_16587 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16586 = 
(BgL_auxz00_16587==((long)91)); } 
if(BgL_testz00_16586)
{ /* ./Read/reader.scm 336 */
BgL_test5361z00_2912 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16590;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16591;
BgL_auxz00_16591 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16590 = 
(BgL_auxz00_16591==((long)93)); } 
if(BgL_testz00_16590)
{ /* ./Read/reader.scm 336 */
BgL_test5361z00_2912 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16594;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16595;
BgL_auxz00_16595 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16594 = 
(BgL_auxz00_16595==((long)96)); } 
if(BgL_testz00_16594)
{ /* ./Read/reader.scm 336 */
BgL_test5361z00_2912 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16598;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16599;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16600;
BgL_auxz00_16600 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16599 = 
(BgL_auxz00_16600==((long)125)); } 
if(BgL_testz00_16599)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16598 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16603;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16604;
BgL_auxz00_16604 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16603 = 
(BgL_auxz00_16604==((long)124)); } 
if(BgL_testz00_16603)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16598 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16607;
BgL_auxz00_16607 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_testz00_16598 = 
(BgL_auxz00_16607==((long)123)); } } } 
if(BgL_testz00_16598)
{ /* ./Read/reader.scm 336 */
BgL_test5361z00_2912 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16610;
BgL_auxz00_16610 = 
(long)(BgL_currentzd2charzd2_2906); 
BgL_test5361z00_2912 = 
(BgL_auxz00_16610==((long)127)); } } } } } } } } } } } 
if(BgL_test5361z00_2912)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2903; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16616;long BgL_lastzd2matchzd2_16615;obj_t BgL_inputzd2portzd2_16614;
BgL_inputzd2portzd2_16614 = BgL_inputzd2portzd2_2902; 
BgL_lastzd2matchzd2_16615 = BgL_lastzd2matchzd2_2903; 
BgL_thezd2rgczd2contextz00_16616 = BgL_thezd2rgczd2contextz00_2904; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_16616; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_16615; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_16614; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } break;case ((long)92) : 

BgL_inputzd2portzd2_2575 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_2576 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_2577 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza34832ze3z83_2578:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2579;
BgL_currentzd2charzd2_2579 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2575); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16618;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16619;
BgL_auxz00_16619 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_testz00_16618 = 
(BgL_auxz00_16619==((long)0)); } 
if(BgL_testz00_16618)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4834z00_2581;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8009z00_7799;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7796;
BgL__andtest_1208z00_7796 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2575); 
if(BgL__andtest_1208z00_7796)
{ /* ./Read/reader.scm 336 */
BgL_res8009z00_7799 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2575); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8009z00_7799 = ((bool_t)0); } } 
BgL_test4834z00_2581 = BgL_res8009z00_7799; } 
if(BgL_test4834z00_2581)
{ 

goto BgL_zc3anonymousza34832ze3z83_2578;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2576
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4837z00_2582;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16626;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16627;
BgL_auxz00_16627 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_testz00_16626 = 
(BgL_auxz00_16627<((long)65)); } 
if(BgL_testz00_16626)
{ /* ./Read/reader.scm 336 */
BgL_test4837z00_2582 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16630;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16631;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16632;
BgL_auxz00_16632 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_testz00_16631 = 
(BgL_auxz00_16632>=((long)91)); } 
if(BgL_testz00_16631)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16635;
BgL_auxz00_16635 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_testz00_16630 = 
(BgL_auxz00_16635<((long)97)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16630 = ((bool_t)0)
; } } 
if(BgL_testz00_16630)
{ /* ./Read/reader.scm 336 */
BgL_test4837z00_2582 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16638;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16639;
BgL_auxz00_16639 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_testz00_16638 = 
(BgL_auxz00_16639>=((long)123)); } 
if(BgL_testz00_16638)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16642;
BgL_auxz00_16642 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_test4837z00_2582 = 
(BgL_auxz00_16642<((long)128)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4837z00_2582 = ((bool_t)0); } } } } 
if(BgL_test4837z00_2582)
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4838z00_2583;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16646;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16647;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16648;
BgL_auxz00_16648 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_testz00_16647 = 
(BgL_auxz00_16648>=((long)32)); } 
if(BgL_testz00_16647)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16651;
BgL_auxz00_16651 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_testz00_16646 = 
(BgL_auxz00_16651<((long)65)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16646 = ((bool_t)0)
; } } 
if(BgL_testz00_16646)
{ /* ./Read/reader.scm 336 */
BgL_test4838z00_2583 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16654;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16655;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16656;
BgL_auxz00_16656 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_testz00_16655 = 
(BgL_auxz00_16656>=((long)91)); } 
if(BgL_testz00_16655)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16659;
BgL_auxz00_16659 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_testz00_16654 = 
(BgL_auxz00_16659<((long)97)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16654 = ((bool_t)0)
; } } 
if(BgL_testz00_16654)
{ /* ./Read/reader.scm 336 */
BgL_test4838z00_2583 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16662;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16663;
BgL_auxz00_16663 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_testz00_16662 = 
(BgL_auxz00_16663>=((long)123)); } 
if(BgL_testz00_16662)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16666;
BgL_auxz00_16666 = 
(long)(BgL_currentzd2charzd2_2579); 
BgL_test4838z00_2583 = 
(BgL_auxz00_16666<((long)127)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4838z00_2583 = ((bool_t)0); } } } } 
if(BgL_test4838z00_2583)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_7825;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2575); 
BgL_newzd2matchzd2_7825 = ((long)7); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_7825; } }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2576; } }  else 
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_3268 = BgL_inputzd2portzd2_2575; 
BgL_lastzd2matchzd2_3269 = BgL_lastzd2matchzd2_2576; 
BgL_thezd2rgczd2contextz00_3270 = BgL_thezd2rgczd2contextz00_2577; 
BgL_zc3anonymousza36019ze3z83_3271:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_3272;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3268); 
BgL_newzd2matchzd2_3272 = ((long)7); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_3273;
BgL_currentzd2charzd2_3273 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3268); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16673;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16674;
BgL_auxz00_16674 = 
(long)(BgL_currentzd2charzd2_3273); 
BgL_testz00_16673 = 
(BgL_auxz00_16674==((long)0)); } 
if(BgL_testz00_16673)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test6021z00_3275;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8031z00_9039;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_9036;
BgL__andtest_1208z00_9036 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3268); 
if(BgL__andtest_1208z00_9036)
{ /* ./Read/reader.scm 336 */
BgL_res8031z00_9039 = 
rgc_fill_buffer(BgL_inputzd2portzd2_3268); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8031z00_9039 = ((bool_t)0); } } 
BgL_test6021z00_3275 = BgL_res8031z00_9039; } 
if(BgL_test6021z00_3275)
{ 

goto BgL_zc3anonymousza36019ze3z83_3271;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3272
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test6024z00_3276;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16681;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16682;
BgL_auxz00_16682 = 
(long)(BgL_currentzd2charzd2_3273); 
BgL_testz00_16681 = 
(BgL_auxz00_16682<((long)65)); } 
if(BgL_testz00_16681)
{ /* ./Read/reader.scm 336 */
BgL_test6024z00_3276 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16685;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16686;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16687;
BgL_auxz00_16687 = 
(long)(BgL_currentzd2charzd2_3273); 
BgL_testz00_16686 = 
(BgL_auxz00_16687>=((long)91)); } 
if(BgL_testz00_16686)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16690;
BgL_auxz00_16690 = 
(long)(BgL_currentzd2charzd2_3273); 
BgL_testz00_16685 = 
(BgL_auxz00_16690<((long)97)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16685 = ((bool_t)0)
; } } 
if(BgL_testz00_16685)
{ /* ./Read/reader.scm 336 */
BgL_test6024z00_3276 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16693;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16694;
BgL_auxz00_16694 = 
(long)(BgL_currentzd2charzd2_3273); 
BgL_testz00_16693 = 
(BgL_auxz00_16694>=((long)123)); } 
if(BgL_testz00_16693)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16697;
BgL_auxz00_16697 = 
(long)(BgL_currentzd2charzd2_3273); 
BgL_test6024z00_3276 = 
(BgL_auxz00_16697<((long)128)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test6024z00_3276 = ((bool_t)0); } } } } 
if(BgL_test6024z00_3276)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3272; }  else 
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_3281 = BgL_inputzd2portzd2_3268; 
BgL_lastzd2matchzd2_3282 = BgL_newzd2matchzd2_3272; 
BgL_thezd2rgczd2contextz00_3283 = BgL_thezd2rgczd2contextz00_3270; 
BgL_zc3anonymousza36037ze3z83_3284:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_3285;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3281); 
BgL_newzd2matchzd2_3285 = ((long)8); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_3286;
BgL_currentzd2charzd2_3286 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3281); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16703;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16704;
BgL_auxz00_16704 = 
(long)(BgL_currentzd2charzd2_3286); 
BgL_testz00_16703 = 
(BgL_auxz00_16704==((long)0)); } 
if(BgL_testz00_16703)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test6039z00_3288;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8032z00_9058;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_9055;
BgL__andtest_1208z00_9055 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3281); 
if(BgL__andtest_1208z00_9055)
{ /* ./Read/reader.scm 336 */
BgL_res8032z00_9058 = 
rgc_fill_buffer(BgL_inputzd2portzd2_3281); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8032z00_9058 = ((bool_t)0); } } 
BgL_test6039z00_3288 = BgL_res8032z00_9058; } 
if(BgL_test6039z00_3288)
{ 

goto BgL_zc3anonymousza36037ze3z83_3284;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3285
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test6042z00_3289;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16711;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16712;
BgL_auxz00_16712 = 
(long)(BgL_currentzd2charzd2_3286); 
BgL_testz00_16711 = 
(BgL_auxz00_16712<((long)65)); } 
if(BgL_testz00_16711)
{ /* ./Read/reader.scm 336 */
BgL_test6042z00_3289 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16715;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16716;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16717;
BgL_auxz00_16717 = 
(long)(BgL_currentzd2charzd2_3286); 
BgL_testz00_16716 = 
(BgL_auxz00_16717>=((long)91)); } 
if(BgL_testz00_16716)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16720;
BgL_auxz00_16720 = 
(long)(BgL_currentzd2charzd2_3286); 
BgL_testz00_16715 = 
(BgL_auxz00_16720<((long)97)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16715 = ((bool_t)0)
; } } 
if(BgL_testz00_16715)
{ /* ./Read/reader.scm 336 */
BgL_test6042z00_3289 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16723;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16724;
BgL_auxz00_16724 = 
(long)(BgL_currentzd2charzd2_3286); 
BgL_testz00_16723 = 
(BgL_auxz00_16724>=((long)123)); } 
if(BgL_testz00_16723)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16727;
BgL_auxz00_16727 = 
(long)(BgL_currentzd2charzd2_3286); 
BgL_test6042z00_3289 = 
(BgL_auxz00_16727<((long)128)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test6042z00_3289 = ((bool_t)0); } } } } 
if(BgL_test6042z00_3289)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_3285; }  else 
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_16731;
BgL_lastzd2matchzd2_16731 = BgL_newzd2matchzd2_3285; 
BgL_lastzd2matchzd2_3282 = BgL_lastzd2matchzd2_16731; 
goto BgL_zc3anonymousza36037ze3z83_3284;} } } } } } } } } } } } } } } break;case ((long)116) : 
case ((long)84) : 

BgL_inputzd2portzd2_2547 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_2548 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_2549 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza34781ze3z83_2550:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2551;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2547); 
BgL_newzd2matchzd2_2551 = ((long)23); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2552;
BgL_currentzd2charzd2_2552 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2547); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16734;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16735;
BgL_auxz00_16735 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16734 = 
(BgL_auxz00_16735==((long)0)); } 
if(BgL_testz00_16734)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4783z00_2554;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8008z00_7746;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7743;
BgL__andtest_1208z00_7743 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2547); 
if(BgL__andtest_1208z00_7743)
{ /* ./Read/reader.scm 336 */
BgL_res8008z00_7746 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2547); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8008z00_7746 = ((bool_t)0); } } 
BgL_test4783z00_2554 = BgL_res8008z00_7746; } 
if(BgL_test4783z00_2554)
{ 

goto BgL_zc3anonymousza34781ze3z83_2550;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2551
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4786z00_2555;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16742;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16743;
BgL_auxz00_16743 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16742 = 
(BgL_auxz00_16743>=((long)48)); } 
if(BgL_testz00_16742)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16746;
BgL_auxz00_16746 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_test4786z00_2555 = 
(BgL_auxz00_16746<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4786z00_2555 = ((bool_t)0); } } 
if(BgL_test4786z00_2555)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16752;long BgL_lastzd2matchzd2_16751;obj_t BgL_inputzd2portzd2_16750;
BgL_inputzd2portzd2_16750 = BgL_inputzd2portzd2_2547; 
BgL_lastzd2matchzd2_16751 = BgL_newzd2matchzd2_2551; 
BgL_thezd2rgczd2contextz00_16752 = BgL_thezd2rgczd2contextz00_2549; 
BgL_thezd2rgczd2contextz00_2677 = BgL_thezd2rgczd2contextz00_16752; 
BgL_lastzd2matchzd2_2676 = BgL_lastzd2matchzd2_16751; 
BgL_inputzd2portzd2_2675 = BgL_inputzd2portzd2_16750; 
goto BgL_zc3anonymousza35016ze3z83_2678;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4788z00_2556;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16753;
BgL_auxz00_16753 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_test4788z00_2556 = 
(BgL_auxz00_16753==((long)40)); } 
if(BgL_test4788z00_2556)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_7756;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2547); 
BgL_newzd2matchzd2_7756 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_7756; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4790z00_2557;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16758;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16759;
BgL_auxz00_16759 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16758 = 
(BgL_auxz00_16759<((long)33)); } 
if(BgL_testz00_16758)
{ /* ./Read/reader.scm 336 */
BgL_test4790z00_2557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16762;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16763;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16764;
BgL_auxz00_16764 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16763 = 
(BgL_auxz00_16764==((long)35)); } 
if(BgL_testz00_16763)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16762 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16767;
BgL_auxz00_16767 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16762 = 
(BgL_auxz00_16767==((long)34)); } } 
if(BgL_testz00_16762)
{ /* ./Read/reader.scm 336 */
BgL_test4790z00_2557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16770;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16771;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16772;
BgL_auxz00_16772 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16771 = 
(BgL_auxz00_16772==((long)41)); } 
if(BgL_testz00_16771)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16770 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test4788z00_2556)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16770 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16776;
BgL_auxz00_16776 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16770 = 
(BgL_auxz00_16776==((long)39)); } } } 
if(BgL_testz00_16770)
{ /* ./Read/reader.scm 336 */
BgL_test4790z00_2557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16779;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16780;
BgL_auxz00_16780 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16779 = 
(BgL_auxz00_16780==((long)44)); } 
if(BgL_testz00_16779)
{ /* ./Read/reader.scm 336 */
BgL_test4790z00_2557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16783;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16784;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16785;
BgL_auxz00_16785 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16784 = 
(BgL_auxz00_16785>=((long)48)); } 
if(BgL_testz00_16784)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16788;
BgL_auxz00_16788 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16783 = 
(BgL_auxz00_16788<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16783 = ((bool_t)0)
; } } 
if(BgL_testz00_16783)
{ /* ./Read/reader.scm 336 */
BgL_test4790z00_2557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16791;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16792;
BgL_auxz00_16792 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16791 = 
(BgL_auxz00_16792==((long)59)); } 
if(BgL_testz00_16791)
{ /* ./Read/reader.scm 336 */
BgL_test4790z00_2557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16795;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16796;
BgL_auxz00_16796 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16795 = 
(BgL_auxz00_16796==((long)91)); } 
if(BgL_testz00_16795)
{ /* ./Read/reader.scm 336 */
BgL_test4790z00_2557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16799;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16800;
BgL_auxz00_16800 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16799 = 
(BgL_auxz00_16800==((long)93)); } 
if(BgL_testz00_16799)
{ /* ./Read/reader.scm 336 */
BgL_test4790z00_2557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16803;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16804;
BgL_auxz00_16804 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16803 = 
(BgL_auxz00_16804==((long)96)); } 
if(BgL_testz00_16803)
{ /* ./Read/reader.scm 336 */
BgL_test4790z00_2557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16807;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16808;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16809;
BgL_auxz00_16809 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16808 = 
(BgL_auxz00_16809==((long)125)); } 
if(BgL_testz00_16808)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16807 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16812;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16813;
BgL_auxz00_16813 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16812 = 
(BgL_auxz00_16813==((long)124)); } 
if(BgL_testz00_16812)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16807 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16816;
BgL_auxz00_16816 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_testz00_16807 = 
(BgL_auxz00_16816==((long)123)); } } } 
if(BgL_testz00_16807)
{ /* ./Read/reader.scm 336 */
BgL_test4790z00_2557 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16819;
BgL_auxz00_16819 = 
(long)(BgL_currentzd2charzd2_2552); 
BgL_test4790z00_2557 = 
(BgL_auxz00_16819==((long)127)); } } } } } } } } } } } 
if(BgL_test4790z00_2557)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2551; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16825;long BgL_lastzd2matchzd2_16824;obj_t BgL_inputzd2portzd2_16823;
BgL_inputzd2portzd2_16823 = BgL_inputzd2portzd2_2547; 
BgL_lastzd2matchzd2_16824 = BgL_newzd2matchzd2_2551; 
BgL_thezd2rgczd2contextz00_16825 = BgL_thezd2rgczd2contextz00_2549; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_16825; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_16824; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_16823; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } break;case ((long)102) : 
case ((long)70) : 

BgL_inputzd2portzd2_2519 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_2520 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_2521 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza34730ze3z83_2522:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2523;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2519); 
BgL_newzd2matchzd2_2523 = ((long)24); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2524;
BgL_currentzd2charzd2_2524 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2519); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16828;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16829;
BgL_auxz00_16829 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16828 = 
(BgL_auxz00_16829==((long)0)); } 
if(BgL_testz00_16828)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4732z00_2526;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8007z00_7692;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7689;
BgL__andtest_1208z00_7689 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2519); 
if(BgL__andtest_1208z00_7689)
{ /* ./Read/reader.scm 336 */
BgL_res8007z00_7692 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2519); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8007z00_7692 = ((bool_t)0); } } 
BgL_test4732z00_2526 = BgL_res8007z00_7692; } 
if(BgL_test4732z00_2526)
{ 

goto BgL_zc3anonymousza34730ze3z83_2522;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2523
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4735z00_2527;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16836;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16837;
BgL_auxz00_16837 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16836 = 
(BgL_auxz00_16837>=((long)48)); } 
if(BgL_testz00_16836)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16840;
BgL_auxz00_16840 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_test4735z00_2527 = 
(BgL_auxz00_16840<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4735z00_2527 = ((bool_t)0); } } 
if(BgL_test4735z00_2527)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16846;long BgL_lastzd2matchzd2_16845;obj_t BgL_inputzd2portzd2_16844;
BgL_inputzd2portzd2_16844 = BgL_inputzd2portzd2_2519; 
BgL_lastzd2matchzd2_16845 = BgL_newzd2matchzd2_2523; 
BgL_thezd2rgczd2contextz00_16846 = BgL_thezd2rgczd2contextz00_2521; 
BgL_thezd2rgczd2contextz00_2677 = BgL_thezd2rgczd2contextz00_16846; 
BgL_lastzd2matchzd2_2676 = BgL_lastzd2matchzd2_16845; 
BgL_inputzd2portzd2_2675 = BgL_inputzd2portzd2_16844; 
goto BgL_zc3anonymousza35016ze3z83_2678;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4737z00_2528;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16847;
BgL_auxz00_16847 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_test4737z00_2528 = 
(BgL_auxz00_16847==((long)40)); } 
if(BgL_test4737z00_2528)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_7702;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2519); 
BgL_newzd2matchzd2_7702 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_7702; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4739z00_2529;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16852;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16853;
BgL_auxz00_16853 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16852 = 
(BgL_auxz00_16853<((long)33)); } 
if(BgL_testz00_16852)
{ /* ./Read/reader.scm 336 */
BgL_test4739z00_2529 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16856;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16857;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16858;
BgL_auxz00_16858 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16857 = 
(BgL_auxz00_16858==((long)35)); } 
if(BgL_testz00_16857)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16856 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16861;
BgL_auxz00_16861 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16856 = 
(BgL_auxz00_16861==((long)34)); } } 
if(BgL_testz00_16856)
{ /* ./Read/reader.scm 336 */
BgL_test4739z00_2529 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16864;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16865;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16866;
BgL_auxz00_16866 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16865 = 
(BgL_auxz00_16866==((long)41)); } 
if(BgL_testz00_16865)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16864 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test4737z00_2528)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16864 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16870;
BgL_auxz00_16870 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16864 = 
(BgL_auxz00_16870==((long)39)); } } } 
if(BgL_testz00_16864)
{ /* ./Read/reader.scm 336 */
BgL_test4739z00_2529 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16873;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16874;
BgL_auxz00_16874 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16873 = 
(BgL_auxz00_16874==((long)44)); } 
if(BgL_testz00_16873)
{ /* ./Read/reader.scm 336 */
BgL_test4739z00_2529 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16877;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16878;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16879;
BgL_auxz00_16879 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16878 = 
(BgL_auxz00_16879>=((long)48)); } 
if(BgL_testz00_16878)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16882;
BgL_auxz00_16882 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16877 = 
(BgL_auxz00_16882<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16877 = ((bool_t)0)
; } } 
if(BgL_testz00_16877)
{ /* ./Read/reader.scm 336 */
BgL_test4739z00_2529 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16885;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16886;
BgL_auxz00_16886 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16885 = 
(BgL_auxz00_16886==((long)59)); } 
if(BgL_testz00_16885)
{ /* ./Read/reader.scm 336 */
BgL_test4739z00_2529 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16889;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16890;
BgL_auxz00_16890 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16889 = 
(BgL_auxz00_16890==((long)91)); } 
if(BgL_testz00_16889)
{ /* ./Read/reader.scm 336 */
BgL_test4739z00_2529 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16893;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16894;
BgL_auxz00_16894 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16893 = 
(BgL_auxz00_16894==((long)93)); } 
if(BgL_testz00_16893)
{ /* ./Read/reader.scm 336 */
BgL_test4739z00_2529 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16897;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16898;
BgL_auxz00_16898 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16897 = 
(BgL_auxz00_16898==((long)96)); } 
if(BgL_testz00_16897)
{ /* ./Read/reader.scm 336 */
BgL_test4739z00_2529 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16901;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16902;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16903;
BgL_auxz00_16903 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16902 = 
(BgL_auxz00_16903==((long)125)); } 
if(BgL_testz00_16902)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16901 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16906;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16907;
BgL_auxz00_16907 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16906 = 
(BgL_auxz00_16907==((long)124)); } 
if(BgL_testz00_16906)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16901 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16910;
BgL_auxz00_16910 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_testz00_16901 = 
(BgL_auxz00_16910==((long)123)); } } } 
if(BgL_testz00_16901)
{ /* ./Read/reader.scm 336 */
BgL_test4739z00_2529 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16913;
BgL_auxz00_16913 = 
(long)(BgL_currentzd2charzd2_2524); 
BgL_test4739z00_2529 = 
(BgL_auxz00_16913==((long)127)); } } } } } } } } } } } 
if(BgL_test4739z00_2529)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2523; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16919;long BgL_lastzd2matchzd2_16918;obj_t BgL_inputzd2portzd2_16917;
BgL_inputzd2portzd2_16917 = BgL_inputzd2portzd2_2519; 
BgL_lastzd2matchzd2_16918 = BgL_newzd2matchzd2_2523; 
BgL_thezd2rgczd2contextz00_16919 = BgL_thezd2rgczd2contextz00_2521; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_16919; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_16918; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_16917; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } } break;case ((long)255) : 
case ((long)254) : 
case ((long)253) : 
case ((long)252) : 
case ((long)251) : 
case ((long)250) : 
case ((long)249) : 
case ((long)248) : 
case ((long)247) : 
case ((long)246) : 
case ((long)245) : 
case ((long)244) : 
case ((long)243) : 
case ((long)242) : 
case ((long)241) : 
case ((long)240) : 
case ((long)239) : 
case ((long)238) : 
case ((long)237) : 
case ((long)236) : 
case ((long)235) : 
case ((long)234) : 
case ((long)233) : 
case ((long)232) : 
case ((long)231) : 
case ((long)230) : 
case ((long)229) : 
case ((long)228) : 
case ((long)227) : 
case ((long)226) : 
case ((long)225) : 
case ((long)224) : 
case ((long)223) : 
case ((long)222) : 
case ((long)221) : 
case ((long)220) : 
case ((long)219) : 
case ((long)218) : 
case ((long)217) : 
case ((long)216) : 
case ((long)215) : 
case ((long)214) : 
case ((long)213) : 
case ((long)212) : 
case ((long)211) : 
case ((long)210) : 
case ((long)209) : 
case ((long)208) : 
case ((long)207) : 
case ((long)206) : 
case ((long)205) : 
case ((long)204) : 
case ((long)203) : 
case ((long)202) : 
case ((long)201) : 
case ((long)200) : 
case ((long)199) : 
case ((long)198) : 
case ((long)197) : 
case ((long)196) : 
case ((long)195) : 
case ((long)194) : 
case ((long)193) : 
case ((long)192) : 
case ((long)191) : 
case ((long)190) : 
case ((long)189) : 
case ((long)188) : 
case ((long)187) : 
case ((long)186) : 
case ((long)185) : 
case ((long)184) : 
case ((long)183) : 
case ((long)182) : 
case ((long)181) : 
case ((long)180) : 
case ((long)179) : 
case ((long)178) : 
case ((long)177) : 
case ((long)176) : 
case ((long)175) : 
case ((long)174) : 
case ((long)173) : 
case ((long)172) : 
case ((long)171) : 
case ((long)170) : 
case ((long)169) : 
case ((long)168) : 
case ((long)167) : 
case ((long)166) : 
case ((long)165) : 
case ((long)164) : 
case ((long)163) : 
case ((long)162) : 
case ((long)161) : 
case ((long)160) : 
case ((long)159) : 
case ((long)158) : 
case ((long)157) : 
case ((long)156) : 
case ((long)155) : 
case ((long)154) : 
case ((long)153) : 
case ((long)152) : 
case ((long)151) : 
case ((long)150) : 
case ((long)149) : 
case ((long)148) : 
case ((long)147) : 
case ((long)146) : 
case ((long)145) : 
case ((long)144) : 
case ((long)143) : 
case ((long)142) : 
case ((long)141) : 
case ((long)140) : 
case ((long)139) : 
case ((long)138) : 
case ((long)137) : 
case ((long)136) : 
case ((long)135) : 
case ((long)134) : 
case ((long)133) : 
case ((long)132) : 
case ((long)131) : 
case ((long)130) : 
case ((long)129) : 
case ((long)128) : 
case ((long)122) : 
case ((long)121) : 
case ((long)119) : 
case ((long)118) : 
case ((long)115) : 
case ((long)114) : 
case ((long)113) : 
case ((long)112) : 
case ((long)110) : 
case ((long)109) : 
case ((long)107) : 
case ((long)106) : 
case ((long)105) : 
case ((long)104) : 
case ((long)103) : 
case ((long)99) : 
case ((long)98) : 
case ((long)90) : 
case ((long)89) : 
case ((long)88) : 
case ((long)87) : 
case ((long)86) : 
case ((long)85) : 
case ((long)83) : 
case ((long)82) : 
case ((long)81) : 
case ((long)80) : 
case ((long)79) : 
case ((long)78) : 
case ((long)77) : 
case ((long)76) : 
case ((long)75) : 
case ((long)74) : 
case ((long)73) : 
case ((long)72) : 
case ((long)71) : 
case ((long)69) : 
case ((long)68) : 
case ((long)67) : 
case ((long)66) : 

BgL_inputzd2portzd2_2492 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_2493 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_2494 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza34680ze3z83_2495:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2496;
BgL_currentzd2charzd2_2496 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2492); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16921;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16922;
BgL_auxz00_16922 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16921 = 
(BgL_auxz00_16922==((long)0)); } 
if(BgL_testz00_16921)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4682z00_2498;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8006z00_7638;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7635;
BgL__andtest_1208z00_7635 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2492); 
if(BgL__andtest_1208z00_7635)
{ /* ./Read/reader.scm 336 */
BgL_res8006z00_7638 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2492); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8006z00_7638 = ((bool_t)0); } } 
BgL_test4682z00_2498 = BgL_res8006z00_7638; } 
if(BgL_test4682z00_2498)
{ 

goto BgL_zc3anonymousza34680ze3z83_2495;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2493
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4685z00_2499;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16929;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16930;
BgL_auxz00_16930 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16929 = 
(BgL_auxz00_16930>=((long)48)); } 
if(BgL_testz00_16929)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16933;
BgL_auxz00_16933 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_test4685z00_2499 = 
(BgL_auxz00_16933<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4685z00_2499 = ((bool_t)0); } } 
if(BgL_test4685z00_2499)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_16939;long BgL_lastzd2matchzd2_16938;obj_t BgL_inputzd2portzd2_16937;
BgL_inputzd2portzd2_16937 = BgL_inputzd2portzd2_2492; 
BgL_lastzd2matchzd2_16938 = BgL_lastzd2matchzd2_2493; 
BgL_thezd2rgczd2contextz00_16939 = BgL_thezd2rgczd2contextz00_2494; 
BgL_thezd2rgczd2contextz00_2677 = BgL_thezd2rgczd2contextz00_16939; 
BgL_lastzd2matchzd2_2676 = BgL_lastzd2matchzd2_16938; 
BgL_inputzd2portzd2_2675 = BgL_inputzd2portzd2_16937; 
goto BgL_zc3anonymousza35016ze3z83_2678;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4687z00_2500;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16940;
BgL_auxz00_16940 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_test4687z00_2500 = 
(BgL_auxz00_16940==((long)40)); } 
if(BgL_test4687z00_2500)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_7648;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2492); 
BgL_newzd2matchzd2_7648 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_7648; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4689z00_2501;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16945;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16946;
BgL_auxz00_16946 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16945 = 
(BgL_auxz00_16946<((long)33)); } 
if(BgL_testz00_16945)
{ /* ./Read/reader.scm 336 */
BgL_test4689z00_2501 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16949;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16950;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16951;
BgL_auxz00_16951 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16950 = 
(BgL_auxz00_16951==((long)35)); } 
if(BgL_testz00_16950)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16949 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16954;
BgL_auxz00_16954 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16949 = 
(BgL_auxz00_16954==((long)34)); } } 
if(BgL_testz00_16949)
{ /* ./Read/reader.scm 336 */
BgL_test4689z00_2501 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16957;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16958;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16959;
BgL_auxz00_16959 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16958 = 
(BgL_auxz00_16959==((long)41)); } 
if(BgL_testz00_16958)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16957 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test4687z00_2500)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16957 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16963;
BgL_auxz00_16963 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16957 = 
(BgL_auxz00_16963==((long)39)); } } } 
if(BgL_testz00_16957)
{ /* ./Read/reader.scm 336 */
BgL_test4689z00_2501 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16966;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16967;
BgL_auxz00_16967 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16966 = 
(BgL_auxz00_16967==((long)44)); } 
if(BgL_testz00_16966)
{ /* ./Read/reader.scm 336 */
BgL_test4689z00_2501 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16970;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16971;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16972;
BgL_auxz00_16972 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16971 = 
(BgL_auxz00_16972>=((long)48)); } 
if(BgL_testz00_16971)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16975;
BgL_auxz00_16975 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16970 = 
(BgL_auxz00_16975<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_16970 = ((bool_t)0)
; } } 
if(BgL_testz00_16970)
{ /* ./Read/reader.scm 336 */
BgL_test4689z00_2501 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16978;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16979;
BgL_auxz00_16979 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16978 = 
(BgL_auxz00_16979==((long)59)); } 
if(BgL_testz00_16978)
{ /* ./Read/reader.scm 336 */
BgL_test4689z00_2501 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16982;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16983;
BgL_auxz00_16983 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16982 = 
(BgL_auxz00_16983==((long)91)); } 
if(BgL_testz00_16982)
{ /* ./Read/reader.scm 336 */
BgL_test4689z00_2501 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16986;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16987;
BgL_auxz00_16987 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16986 = 
(BgL_auxz00_16987==((long)93)); } 
if(BgL_testz00_16986)
{ /* ./Read/reader.scm 336 */
BgL_test4689z00_2501 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16990;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16991;
BgL_auxz00_16991 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16990 = 
(BgL_auxz00_16991==((long)96)); } 
if(BgL_testz00_16990)
{ /* ./Read/reader.scm 336 */
BgL_test4689z00_2501 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16994;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16995;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_16996;
BgL_auxz00_16996 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16995 = 
(BgL_auxz00_16996==((long)125)); } 
if(BgL_testz00_16995)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16994 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_16999;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17000;
BgL_auxz00_17000 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16999 = 
(BgL_auxz00_17000==((long)124)); } 
if(BgL_testz00_16999)
{ /* ./Read/reader.scm 336 */
BgL_testz00_16994 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17003;
BgL_auxz00_17003 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_testz00_16994 = 
(BgL_auxz00_17003==((long)123)); } } } 
if(BgL_testz00_16994)
{ /* ./Read/reader.scm 336 */
BgL_test4689z00_2501 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17006;
BgL_auxz00_17006 = 
(long)(BgL_currentzd2charzd2_2496); 
BgL_test4689z00_2501 = 
(BgL_auxz00_17006==((long)127)); } } } } } } } } } } } 
if(BgL_test4689z00_2501)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2493; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_17012;long BgL_lastzd2matchzd2_17011;obj_t BgL_inputzd2portzd2_17010;
BgL_inputzd2portzd2_17010 = BgL_inputzd2portzd2_2492; 
BgL_lastzd2matchzd2_17011 = BgL_lastzd2matchzd2_2493; 
BgL_thezd2rgczd2contextz00_17012 = BgL_thezd2rgczd2contextz00_2494; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_17012; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_17011; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_17010; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } break;case ((long)97) : 
case ((long)65) : 

BgL_inputzd2portzd2_2875 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_2876 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_2877 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza35300ze3z83_2878:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2879;
BgL_currentzd2charzd2_2879 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2875); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17014;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17015;
BgL_auxz00_17015 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17014 = 
(BgL_auxz00_17015==((long)0)); } 
if(BgL_testz00_17014)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5302z00_2881;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8020z00_8304;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8301;
BgL__andtest_1208z00_8301 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2875); 
if(BgL__andtest_1208z00_8301)
{ /* ./Read/reader.scm 336 */
BgL_res8020z00_8304 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2875); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8020z00_8304 = ((bool_t)0); } } 
BgL_test5302z00_2881 = BgL_res8020z00_8304; } 
if(BgL_test5302z00_2881)
{ 

goto BgL_zc3anonymousza35300ze3z83_2878;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2876
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5305z00_2882;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17022;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17023;
BgL_auxz00_17023 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17022 = 
(BgL_auxz00_17023>=((long)48)); } 
if(BgL_testz00_17022)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17026;
BgL_auxz00_17026 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_test5305z00_2882 = 
(BgL_auxz00_17026<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5305z00_2882 = ((bool_t)0); } } 
if(BgL_test5305z00_2882)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2753 = BgL_inputzd2portzd2_2875; 
BgL_lastzd2matchzd2_2754 = BgL_lastzd2matchzd2_2876; 
BgL_thezd2rgczd2contextz00_2755 = BgL_thezd2rgczd2contextz00_2877; 
BgL_zc3anonymousza35156ze3z83_2756:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2757;
BgL_currentzd2charzd2_2757 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2753); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17031;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17032;
BgL_auxz00_17032 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17031 = 
(BgL_auxz00_17032==((long)0)); } 
if(BgL_testz00_17031)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5158z00_2759;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8015z00_8136;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8133;
BgL__andtest_1208z00_8133 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2753); 
if(BgL__andtest_1208z00_8133)
{ /* ./Read/reader.scm 336 */
BgL_res8015z00_8136 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2753); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8015z00_8136 = ((bool_t)0); } } 
BgL_test5158z00_2759 = BgL_res8015z00_8136; } 
if(BgL_test5158z00_2759)
{ 

goto BgL_zc3anonymousza35156ze3z83_2756;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2754
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5161z00_2760;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17039;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17040;
BgL_auxz00_17040 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17039 = 
(BgL_auxz00_17040>=((long)48)); } 
if(BgL_testz00_17039)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17043;
BgL_auxz00_17043 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_test5161z00_2760 = 
(BgL_auxz00_17043<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test5161z00_2760 = ((bool_t)0); } } 
if(BgL_test5161z00_2760)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_977 = BgL_inputzd2portzd2_2753; 
BgL_lastzd2matchzd2_978 = BgL_lastzd2matchzd2_2754; 
BgL_thezd2rgczd2contextz00_979 = BgL_thezd2rgczd2contextz00_2755; 
BgL_zc3anonymousza32013ze3z83_980:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_981;
BgL_currentzd2charzd2_981 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_977); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17048;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17049;
BgL_auxz00_17049 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17048 = 
(BgL_auxz00_17049==((long)0)); } 
if(BgL_testz00_17048)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2015z00_983;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7943z00_4886;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_4883;
BgL__andtest_1208z00_4883 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_977); 
if(BgL__andtest_1208z00_4883)
{ /* ./Read/reader.scm 336 */
BgL_res7943z00_4886 = 
rgc_fill_buffer(BgL_inputzd2portzd2_977); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7943z00_4886 = ((bool_t)0); } } 
BgL_test2015z00_983 = BgL_res7943z00_4886; } 
if(BgL_test2015z00_983)
{ 

goto BgL_zc3anonymousza32013ze3z83_980;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_978
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2018z00_984;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17056;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17057;
BgL_auxz00_17057 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17056 = 
(BgL_auxz00_17057>=((long)48)); } 
if(BgL_testz00_17056)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17060;
BgL_auxz00_17060 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_test2018z00_984 = 
(BgL_auxz00_17060<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2018z00_984 = ((bool_t)0); } } 
if(BgL_test2018z00_984)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2335 = BgL_inputzd2portzd2_977; 
BgL_lastzd2matchzd2_2336 = BgL_lastzd2matchzd2_978; 
BgL_thezd2rgczd2contextz00_2337 = BgL_thezd2rgczd2contextz00_979; 
BgL_zc3anonymousza34413ze3z83_2338:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2339;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2335); 
BgL_newzd2matchzd2_2339 = ((long)6); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2340;
BgL_currentzd2charzd2_2340 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2335); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17066;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17067;
BgL_auxz00_17067 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17066 = 
(BgL_auxz00_17067==((long)0)); } 
if(BgL_testz00_17066)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4415z00_2342;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7999z00_7382;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7379;
BgL__andtest_1208z00_7379 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2335); 
if(BgL__andtest_1208z00_7379)
{ /* ./Read/reader.scm 336 */
BgL_res7999z00_7382 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2335); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7999z00_7382 = ((bool_t)0); } } 
BgL_test4415z00_2342 = BgL_res7999z00_7382; } 
if(BgL_test4415z00_2342)
{ 

goto BgL_zc3anonymousza34413ze3z83_2338;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2339
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4418z00_2343;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17074;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17075;
BgL_auxz00_17075 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17074 = 
(BgL_auxz00_17075>=((long)48)); } 
if(BgL_testz00_17074)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17078;
BgL_auxz00_17078 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_test4418z00_2343 = 
(BgL_auxz00_17078<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test4418z00_2343 = ((bool_t)0); } } 
if(BgL_test4418z00_2343)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_17084;long BgL_lastzd2matchzd2_17083;obj_t BgL_inputzd2portzd2_17082;
BgL_inputzd2portzd2_17082 = BgL_inputzd2portzd2_2335; 
BgL_lastzd2matchzd2_17083 = BgL_newzd2matchzd2_2339; 
BgL_thezd2rgczd2contextz00_17084 = BgL_thezd2rgczd2contextz00_2337; 
BgL_thezd2rgczd2contextz00_2677 = BgL_thezd2rgczd2contextz00_17084; 
BgL_lastzd2matchzd2_2676 = BgL_lastzd2matchzd2_17083; 
BgL_inputzd2portzd2_2675 = BgL_inputzd2portzd2_17082; 
goto BgL_zc3anonymousza35016ze3z83_2678;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4420z00_2344;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17085;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17086;
BgL_auxz00_17086 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17085 = 
(BgL_auxz00_17086<((long)33)); } 
if(BgL_testz00_17085)
{ /* ./Read/reader.scm 336 */
BgL_test4420z00_2344 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17089;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17090;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17091;
BgL_auxz00_17091 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17090 = 
(BgL_auxz00_17091==((long)35)); } 
if(BgL_testz00_17090)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17089 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17094;
BgL_auxz00_17094 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17089 = 
(BgL_auxz00_17094==((long)34)); } } 
if(BgL_testz00_17089)
{ /* ./Read/reader.scm 336 */
BgL_test4420z00_2344 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17097;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17098;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17099;
BgL_auxz00_17099 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17098 = 
(BgL_auxz00_17099==((long)41)); } 
if(BgL_testz00_17098)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17097 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17102;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17103;
BgL_auxz00_17103 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17102 = 
(BgL_auxz00_17103==((long)40)); } 
if(BgL_testz00_17102)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17097 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17106;
BgL_auxz00_17106 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17097 = 
(BgL_auxz00_17106==((long)39)); } } } 
if(BgL_testz00_17097)
{ /* ./Read/reader.scm 336 */
BgL_test4420z00_2344 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17109;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17110;
BgL_auxz00_17110 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17109 = 
(BgL_auxz00_17110==((long)44)); } 
if(BgL_testz00_17109)
{ /* ./Read/reader.scm 336 */
BgL_test4420z00_2344 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test4418z00_2343)
{ /* ./Read/reader.scm 336 */
BgL_test4420z00_2344 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17114;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17115;
BgL_auxz00_17115 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17114 = 
(BgL_auxz00_17115==((long)59)); } 
if(BgL_testz00_17114)
{ /* ./Read/reader.scm 336 */
BgL_test4420z00_2344 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17118;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17119;
BgL_auxz00_17119 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17118 = 
(BgL_auxz00_17119==((long)91)); } 
if(BgL_testz00_17118)
{ /* ./Read/reader.scm 336 */
BgL_test4420z00_2344 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17122;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17123;
BgL_auxz00_17123 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17122 = 
(BgL_auxz00_17123==((long)93)); } 
if(BgL_testz00_17122)
{ /* ./Read/reader.scm 336 */
BgL_test4420z00_2344 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17126;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17127;
BgL_auxz00_17127 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17126 = 
(BgL_auxz00_17127==((long)96)); } 
if(BgL_testz00_17126)
{ /* ./Read/reader.scm 336 */
BgL_test4420z00_2344 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17130;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17131;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17132;
BgL_auxz00_17132 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17131 = 
(BgL_auxz00_17132==((long)125)); } 
if(BgL_testz00_17131)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17130 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17135;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17136;
BgL_auxz00_17136 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17135 = 
(BgL_auxz00_17136==((long)124)); } 
if(BgL_testz00_17135)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17130 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17139;
BgL_auxz00_17139 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_testz00_17130 = 
(BgL_auxz00_17139==((long)123)); } } } 
if(BgL_testz00_17130)
{ /* ./Read/reader.scm 336 */
BgL_test4420z00_2344 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17142;
BgL_auxz00_17142 = 
(long)(BgL_currentzd2charzd2_2340); 
BgL_test4420z00_2344 = 
(BgL_auxz00_17142==((long)127)); } } } } } } } } } } } 
if(BgL_test4420z00_2344)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_2339; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_17148;long BgL_lastzd2matchzd2_17147;obj_t BgL_inputzd2portzd2_17146;
BgL_inputzd2portzd2_17146 = BgL_inputzd2portzd2_2335; 
BgL_lastzd2matchzd2_17147 = BgL_newzd2matchzd2_2339; 
BgL_thezd2rgczd2contextz00_17148 = BgL_thezd2rgczd2contextz00_2337; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_17148; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_17147; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_17146; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2020z00_985;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17149;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17150;
BgL_auxz00_17150 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17149 = 
(BgL_auxz00_17150<((long)33)); } 
if(BgL_testz00_17149)
{ /* ./Read/reader.scm 336 */
BgL_test2020z00_985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17153;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17154;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17155;
BgL_auxz00_17155 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17154 = 
(BgL_auxz00_17155==((long)35)); } 
if(BgL_testz00_17154)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17153 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17158;
BgL_auxz00_17158 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17153 = 
(BgL_auxz00_17158==((long)34)); } } 
if(BgL_testz00_17153)
{ /* ./Read/reader.scm 336 */
BgL_test2020z00_985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17161;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17162;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17163;
BgL_auxz00_17163 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17162 = 
(BgL_auxz00_17163==((long)41)); } 
if(BgL_testz00_17162)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17161 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17166;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17167;
BgL_auxz00_17167 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17166 = 
(BgL_auxz00_17167==((long)40)); } 
if(BgL_testz00_17166)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17161 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17170;
BgL_auxz00_17170 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17161 = 
(BgL_auxz00_17170==((long)39)); } } } 
if(BgL_testz00_17161)
{ /* ./Read/reader.scm 336 */
BgL_test2020z00_985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17173;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17174;
BgL_auxz00_17174 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17173 = 
(BgL_auxz00_17174==((long)44)); } 
if(BgL_testz00_17173)
{ /* ./Read/reader.scm 336 */
BgL_test2020z00_985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test2018z00_984)
{ /* ./Read/reader.scm 336 */
BgL_test2020z00_985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17178;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17179;
BgL_auxz00_17179 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17178 = 
(BgL_auxz00_17179==((long)59)); } 
if(BgL_testz00_17178)
{ /* ./Read/reader.scm 336 */
BgL_test2020z00_985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17182;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17183;
BgL_auxz00_17183 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17182 = 
(BgL_auxz00_17183==((long)91)); } 
if(BgL_testz00_17182)
{ /* ./Read/reader.scm 336 */
BgL_test2020z00_985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17186;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17187;
BgL_auxz00_17187 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17186 = 
(BgL_auxz00_17187==((long)93)); } 
if(BgL_testz00_17186)
{ /* ./Read/reader.scm 336 */
BgL_test2020z00_985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17190;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17191;
BgL_auxz00_17191 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17190 = 
(BgL_auxz00_17191==((long)96)); } 
if(BgL_testz00_17190)
{ /* ./Read/reader.scm 336 */
BgL_test2020z00_985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17194;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17195;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17196;
BgL_auxz00_17196 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17195 = 
(BgL_auxz00_17196==((long)125)); } 
if(BgL_testz00_17195)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17194 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17199;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17200;
BgL_auxz00_17200 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17199 = 
(BgL_auxz00_17200==((long)124)); } 
if(BgL_testz00_17199)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17194 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17203;
BgL_auxz00_17203 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_testz00_17194 = 
(BgL_auxz00_17203==((long)123)); } } } 
if(BgL_testz00_17194)
{ /* ./Read/reader.scm 336 */
BgL_test2020z00_985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17206;
BgL_auxz00_17206 = 
(long)(BgL_currentzd2charzd2_981); 
BgL_test2020z00_985 = 
(BgL_auxz00_17206==((long)127)); } } } } } } } } } } } 
if(BgL_test2020z00_985)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_978; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_17212;long BgL_lastzd2matchzd2_17211;obj_t BgL_inputzd2portzd2_17210;
BgL_inputzd2portzd2_17210 = BgL_inputzd2portzd2_977; 
BgL_lastzd2matchzd2_17211 = BgL_lastzd2matchzd2_978; 
BgL_thezd2rgczd2contextz00_17212 = BgL_thezd2rgczd2contextz00_979; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_17212; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_17211; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_17210; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5163z00_2761;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17213;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17214;
BgL_auxz00_17214 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17213 = 
(BgL_auxz00_17214<((long)33)); } 
if(BgL_testz00_17213)
{ /* ./Read/reader.scm 336 */
BgL_test5163z00_2761 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17217;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17218;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17219;
BgL_auxz00_17219 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17218 = 
(BgL_auxz00_17219==((long)35)); } 
if(BgL_testz00_17218)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17217 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17222;
BgL_auxz00_17222 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17217 = 
(BgL_auxz00_17222==((long)34)); } } 
if(BgL_testz00_17217)
{ /* ./Read/reader.scm 336 */
BgL_test5163z00_2761 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17225;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17226;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17227;
BgL_auxz00_17227 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17226 = 
(BgL_auxz00_17227==((long)41)); } 
if(BgL_testz00_17226)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17225 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17230;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17231;
BgL_auxz00_17231 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17230 = 
(BgL_auxz00_17231==((long)40)); } 
if(BgL_testz00_17230)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17225 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17234;
BgL_auxz00_17234 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17225 = 
(BgL_auxz00_17234==((long)39)); } } } 
if(BgL_testz00_17225)
{ /* ./Read/reader.scm 336 */
BgL_test5163z00_2761 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17237;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17238;
BgL_auxz00_17238 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17237 = 
(BgL_auxz00_17238==((long)44)); } 
if(BgL_testz00_17237)
{ /* ./Read/reader.scm 336 */
BgL_test5163z00_2761 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test5161z00_2760)
{ /* ./Read/reader.scm 336 */
BgL_test5163z00_2761 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17242;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17243;
BgL_auxz00_17243 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17242 = 
(BgL_auxz00_17243==((long)59)); } 
if(BgL_testz00_17242)
{ /* ./Read/reader.scm 336 */
BgL_test5163z00_2761 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17246;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17247;
BgL_auxz00_17247 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17246 = 
(BgL_auxz00_17247==((long)91)); } 
if(BgL_testz00_17246)
{ /* ./Read/reader.scm 336 */
BgL_test5163z00_2761 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17250;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17251;
BgL_auxz00_17251 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17250 = 
(BgL_auxz00_17251==((long)93)); } 
if(BgL_testz00_17250)
{ /* ./Read/reader.scm 336 */
BgL_test5163z00_2761 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17254;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17255;
BgL_auxz00_17255 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17254 = 
(BgL_auxz00_17255==((long)96)); } 
if(BgL_testz00_17254)
{ /* ./Read/reader.scm 336 */
BgL_test5163z00_2761 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17258;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17259;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17260;
BgL_auxz00_17260 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17259 = 
(BgL_auxz00_17260==((long)125)); } 
if(BgL_testz00_17259)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17258 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17263;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17264;
BgL_auxz00_17264 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17263 = 
(BgL_auxz00_17264==((long)124)); } 
if(BgL_testz00_17263)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17258 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17267;
BgL_auxz00_17267 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_testz00_17258 = 
(BgL_auxz00_17267==((long)123)); } } } 
if(BgL_testz00_17258)
{ /* ./Read/reader.scm 336 */
BgL_test5163z00_2761 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17270;
BgL_auxz00_17270 = 
(long)(BgL_currentzd2charzd2_2757); 
BgL_test5163z00_2761 = 
(BgL_auxz00_17270==((long)127)); } } } } } } } } } } } 
if(BgL_test5163z00_2761)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2754; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_17276;long BgL_lastzd2matchzd2_17275;obj_t BgL_inputzd2portzd2_17274;
BgL_inputzd2portzd2_17274 = BgL_inputzd2portzd2_2753; 
BgL_lastzd2matchzd2_17275 = BgL_lastzd2matchzd2_2754; 
BgL_thezd2rgczd2contextz00_17276 = BgL_thezd2rgczd2contextz00_2755; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_17276; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_17275; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_17274; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5307z00_2883;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17277;
BgL_auxz00_17277 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_test5307z00_2883 = 
(BgL_auxz00_17277==((long)40)); } 
if(BgL_test5307z00_2883)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_8314;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2875); 
BgL_newzd2matchzd2_8314 = ((long)36); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_8314; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5309z00_2884;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17282;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17283;
BgL_auxz00_17283 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17282 = 
(BgL_auxz00_17283<((long)33)); } 
if(BgL_testz00_17282)
{ /* ./Read/reader.scm 336 */
BgL_test5309z00_2884 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17286;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17287;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17288;
BgL_auxz00_17288 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17287 = 
(BgL_auxz00_17288==((long)35)); } 
if(BgL_testz00_17287)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17286 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17291;
BgL_auxz00_17291 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17286 = 
(BgL_auxz00_17291==((long)34)); } } 
if(BgL_testz00_17286)
{ /* ./Read/reader.scm 336 */
BgL_test5309z00_2884 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17294;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17295;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17296;
BgL_auxz00_17296 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17295 = 
(BgL_auxz00_17296==((long)41)); } 
if(BgL_testz00_17295)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17294 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
if(BgL_test5307z00_2883)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17294 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17300;
BgL_auxz00_17300 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17294 = 
(BgL_auxz00_17300==((long)39)); } } } 
if(BgL_testz00_17294)
{ /* ./Read/reader.scm 336 */
BgL_test5309z00_2884 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17303;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17304;
BgL_auxz00_17304 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17303 = 
(BgL_auxz00_17304==((long)44)); } 
if(BgL_testz00_17303)
{ /* ./Read/reader.scm 336 */
BgL_test5309z00_2884 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17307;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17308;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17309;
BgL_auxz00_17309 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17308 = 
(BgL_auxz00_17309>=((long)48)); } 
if(BgL_testz00_17308)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17312;
BgL_auxz00_17312 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17307 = 
(BgL_auxz00_17312<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_17307 = ((bool_t)0)
; } } 
if(BgL_testz00_17307)
{ /* ./Read/reader.scm 336 */
BgL_test5309z00_2884 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17315;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17316;
BgL_auxz00_17316 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17315 = 
(BgL_auxz00_17316==((long)59)); } 
if(BgL_testz00_17315)
{ /* ./Read/reader.scm 336 */
BgL_test5309z00_2884 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17319;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17320;
BgL_auxz00_17320 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17319 = 
(BgL_auxz00_17320==((long)91)); } 
if(BgL_testz00_17319)
{ /* ./Read/reader.scm 336 */
BgL_test5309z00_2884 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17323;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17324;
BgL_auxz00_17324 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17323 = 
(BgL_auxz00_17324==((long)93)); } 
if(BgL_testz00_17323)
{ /* ./Read/reader.scm 336 */
BgL_test5309z00_2884 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17327;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17328;
BgL_auxz00_17328 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17327 = 
(BgL_auxz00_17328==((long)96)); } 
if(BgL_testz00_17327)
{ /* ./Read/reader.scm 336 */
BgL_test5309z00_2884 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17331;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17332;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17333;
BgL_auxz00_17333 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17332 = 
(BgL_auxz00_17333==((long)125)); } 
if(BgL_testz00_17332)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17331 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17336;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17337;
BgL_auxz00_17337 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17336 = 
(BgL_auxz00_17337==((long)124)); } 
if(BgL_testz00_17336)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17331 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17340;
BgL_auxz00_17340 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_testz00_17331 = 
(BgL_auxz00_17340==((long)123)); } } } 
if(BgL_testz00_17331)
{ /* ./Read/reader.scm 336 */
BgL_test5309z00_2884 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17343;
BgL_auxz00_17343 = 
(long)(BgL_currentzd2charzd2_2879); 
BgL_test5309z00_2884 = 
(BgL_auxz00_17343==((long)127)); } } } } } } } } } } } 
if(BgL_test5309z00_2884)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2876; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_17349;long BgL_lastzd2matchzd2_17348;obj_t BgL_inputzd2portzd2_17347;
BgL_inputzd2portzd2_17347 = BgL_inputzd2portzd2_2875; 
BgL_lastzd2matchzd2_17348 = BgL_lastzd2matchzd2_2876; 
BgL_thezd2rgczd2contextz00_17349 = BgL_thezd2rgczd2contextz00_2877; 
BgL_thezd2rgczd2contextz00_3036 = BgL_thezd2rgczd2contextz00_17349; 
BgL_lastzd2matchzd2_3035 = BgL_lastzd2matchzd2_17348; 
BgL_inputzd2portzd2_3034 = BgL_inputzd2portzd2_17347; 
goto BgL_zc3anonymousza35608ze3z83_3037;} } } } } } } break;case ((long)60) : 

BgL_inputzd2portzd2_1648 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_1649 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_1650 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza33205ze3z83_1651:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1652;
BgL_currentzd2charzd2_1652 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1648); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17351;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17352;
BgL_auxz00_17352 = 
(long)(BgL_currentzd2charzd2_1652); 
BgL_testz00_17351 = 
(BgL_auxz00_17352==((long)0)); } 
if(BgL_testz00_17351)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3207z00_1654;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7968z00_6071;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6068;
BgL__andtest_1208z00_6068 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1648); 
if(BgL__andtest_1208z00_6068)
{ /* ./Read/reader.scm 336 */
BgL_res7968z00_6071 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1648); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7968z00_6071 = ((bool_t)0); } } 
BgL_test3207z00_1654 = BgL_res7968z00_6071; } 
if(BgL_test3207z00_1654)
{ 

goto BgL_zc3anonymousza33205ze3z83_1651;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1649
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3210z00_1655;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17359;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17360;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17361;
BgL_auxz00_17361 = 
(long)(BgL_currentzd2charzd2_1652); 
BgL_testz00_17360 = 
(BgL_auxz00_17361>=((long)48)); } 
if(BgL_testz00_17360)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17364;
BgL_auxz00_17364 = 
(long)(BgL_currentzd2charzd2_1652); 
BgL_testz00_17359 = 
(BgL_auxz00_17364<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_17359 = ((bool_t)0)
; } } 
if(BgL_testz00_17359)
{ /* ./Read/reader.scm 336 */
BgL_test3210z00_1655 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
switch( 
(long)(BgL_currentzd2charzd2_1652)) { case ((long)65) : 

BgL_test3210z00_1655 = ((bool_t)1); break;case ((long)70) : 

BgL_test3210z00_1655 = ((bool_t)1); break;case ((long)97) : 

BgL_test3210z00_1655 = ((bool_t)1); break;
default: 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17367;
BgL_auxz00_17367 = 
(long)(BgL_currentzd2charzd2_1652); 
BgL_test3210z00_1655 = 
(BgL_auxz00_17367==((long)102)); } } } } 
if(BgL_test3210z00_1655)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2779 = BgL_inputzd2portzd2_1648; 
BgL_lastzd2matchzd2_2780 = BgL_lastzd2matchzd2_1649; 
BgL_thezd2rgczd2contextz00_2781 = BgL_thezd2rgczd2contextz00_1650; 
BgL_zc3anonymousza35203ze3z83_2782:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2783;
BgL_currentzd2charzd2_2783 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2779); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17374;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17375;
BgL_auxz00_17375 = 
(long)(BgL_currentzd2charzd2_2783); 
BgL_testz00_17374 = 
(BgL_auxz00_17375==((long)0)); } 
if(BgL_testz00_17374)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5205z00_2785;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8016z00_8182;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8179;
BgL__andtest_1208z00_8179 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2779); 
if(BgL__andtest_1208z00_8179)
{ /* ./Read/reader.scm 336 */
BgL_res8016z00_8182 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2779); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8016z00_8182 = ((bool_t)0); } } 
BgL_test5205z00_2785 = BgL_res8016z00_8182; } 
if(BgL_test5205z00_2785)
{ 

goto BgL_zc3anonymousza35203ze3z83_2782;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2780
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17382;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17383;
BgL_auxz00_17383 = 
(long)(BgL_currentzd2charzd2_2783); 
BgL_testz00_17382 = 
(BgL_auxz00_17383==((long)62)); } 
if(BgL_testz00_17382)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_8188;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2779); 
BgL_newzd2matchzd2_8188 = ((long)25); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_8188; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5210z00_2787;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17387;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17388;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17389;
BgL_auxz00_17389 = 
(long)(BgL_currentzd2charzd2_2783); 
BgL_testz00_17388 = 
(BgL_auxz00_17389>=((long)48)); } 
if(BgL_testz00_17388)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17392;
BgL_auxz00_17392 = 
(long)(BgL_currentzd2charzd2_2783); 
BgL_testz00_17387 = 
(BgL_auxz00_17392<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_17387 = ((bool_t)0)
; } } 
if(BgL_testz00_17387)
{ /* ./Read/reader.scm 336 */
BgL_test5210z00_2787 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
switch( 
(long)(BgL_currentzd2charzd2_2783)) { case ((long)65) : 

BgL_test5210z00_2787 = ((bool_t)1); break;case ((long)70) : 

BgL_test5210z00_2787 = ((bool_t)1); break;case ((long)97) : 

BgL_test5210z00_2787 = ((bool_t)1); break;
default: 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17395;
BgL_auxz00_17395 = 
(long)(BgL_currentzd2charzd2_2783); 
BgL_test5210z00_2787 = 
(BgL_auxz00_17395==((long)102)); } } } } 
if(BgL_test5210z00_2787)
{ /* ./Read/reader.scm 336 */
{ 

goto BgL_zc3anonymousza35203ze3z83_2782;} }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2780; } } } } } }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1649; } } } } break;case ((long)57) : 
case ((long)56) : 
case ((long)55) : 
case ((long)54) : 
case ((long)53) : 
case ((long)52) : 
case ((long)51) : 
case ((long)50) : 
case ((long)49) : 
case ((long)48) : 

BgL_inputzd2portzd2_1119 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_1120 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_1121 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza32266ze3z83_1122:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1123;
BgL_currentzd2charzd2_1123 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1119); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17402;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17403;
BgL_auxz00_17403 = 
(long)(BgL_currentzd2charzd2_1123); 
BgL_testz00_17402 = 
(BgL_auxz00_17403==((long)0)); } 
if(BgL_testz00_17402)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2268z00_1125;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7948z00_5134;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5131;
BgL__andtest_1208z00_5131 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1119); 
if(BgL__andtest_1208z00_5131)
{ /* ./Read/reader.scm 336 */
BgL_res7948z00_5134 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1119); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7948z00_5134 = ((bool_t)0); } } 
BgL_test2268z00_1125 = BgL_res7948z00_5134; } 
if(BgL_test2268z00_1125)
{ 

goto BgL_zc3anonymousza32266ze3z83_1122;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1120
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17410;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17411;
BgL_auxz00_17411 = 
(long)(BgL_currentzd2charzd2_1123); 
BgL_testz00_17410 = 
(BgL_auxz00_17411==((long)61)); } 
if(BgL_testz00_17410)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5140;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1119); 
BgL_newzd2matchzd2_5140 = ((long)39); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5140; } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2273z00_1127;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17415;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17416;
BgL_auxz00_17416 = 
(long)(BgL_currentzd2charzd2_1123); 
BgL_testz00_17415 = 
(BgL_auxz00_17416>=((long)48)); } 
if(BgL_testz00_17415)
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17419;
BgL_auxz00_17419 = 
(long)(BgL_currentzd2charzd2_1123); 
BgL_test2273z00_1127 = 
(BgL_auxz00_17419<((long)58)); }  else 
{ /* ./Read/reader.scm 336 */
BgL_test2273z00_1127 = ((bool_t)0); } } 
if(BgL_test2273z00_1127)
{ /* ./Read/reader.scm 336 */
{ 

goto BgL_zc3anonymousza32266ze3z83_1122;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17423;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17424;
BgL_auxz00_17424 = 
(long)(BgL_currentzd2charzd2_1123); 
BgL_testz00_17423 = 
(BgL_auxz00_17424==((long)35)); } 
if(BgL_testz00_17423)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5151;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1119); 
BgL_newzd2matchzd2_5151 = ((long)40); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5151; } }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1120; } } } } } } break;case ((long)40) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6097;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1661); 
BgL_newzd2matchzd2_6097 = ((long)35); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_6097; } break;case ((long)34) : 

BgL_inputzd2portzd2_1214 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_1215 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_1216 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza32433ze3z83_1217:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1218;
BgL_currentzd2charzd2_1218 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1214); 
switch( 
(long)(BgL_currentzd2charzd2_1218)) { case ((long)0) : 

{ /* ./Read/reader.scm 336 */
bool_t BgL_test2435z00_1222;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7952z00_5306;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5303;
BgL__andtest_1208z00_5303 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1214); 
if(BgL__andtest_1208z00_5303)
{ /* ./Read/reader.scm 336 */
BgL_res7952z00_5306 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1214); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7952z00_5306 = ((bool_t)0); } } 
BgL_test2435z00_1222 = BgL_res7952z00_5306; } 
if(BgL_test2435z00_1222)
{ 

goto BgL_zc3anonymousza32433ze3z83_1217;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1215
; } } break;case ((long)92) : 

BgL_inputzd2portzd2_1205 = BgL_inputzd2portzd2_1214; 
BgL_lastzd2matchzd2_1206 = BgL_lastzd2matchzd2_1215; 
BgL_thezd2rgczd2contextz00_1207 = BgL_thezd2rgczd2contextz00_1216; 
BgL_zc3anonymousza32420ze3z83_1208:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1209;
BgL_currentzd2charzd2_1209 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1205); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17435;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17436;
BgL_auxz00_17436 = 
(long)(BgL_currentzd2charzd2_1209); 
BgL_testz00_17435 = 
(BgL_auxz00_17436==((long)0)); } 
if(BgL_testz00_17435)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2422z00_1211;
BgL_test2422z00_1211 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1205); 
if(BgL_test2422z00_1211)
{ /* ./Read/reader.scm 336 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1205))
{ 

goto BgL_zc3anonymousza32420ze3z83_1208;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1206
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_17445;long BgL_lastzd2matchzd2_17444;obj_t BgL_inputzd2portzd2_17443;
BgL_inputzd2portzd2_17443 = BgL_inputzd2portzd2_1205; 
BgL_lastzd2matchzd2_17444 = BgL_lastzd2matchzd2_1206; 
BgL_thezd2rgczd2contextz00_17445 = BgL_thezd2rgczd2contextz00_1207; 
BgL_thezd2rgczd2contextz00_1216 = BgL_thezd2rgczd2contextz00_17445; 
BgL_lastzd2matchzd2_1215 = BgL_lastzd2matchzd2_17444; 
BgL_inputzd2portzd2_1214 = BgL_inputzd2portzd2_17443; 
goto BgL_zc3anonymousza32433ze3z83_1217;} } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17446;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17447;
BgL_auxz00_17447 = 
(long)(BgL_currentzd2charzd2_1209); 
BgL_testz00_17446 = 
(BgL_auxz00_17447==((long)10)); } 
if(BgL_testz00_17446)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1206; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_17452;long BgL_lastzd2matchzd2_17451;obj_t BgL_inputzd2portzd2_17450;
BgL_inputzd2portzd2_17450 = BgL_inputzd2portzd2_1205; 
BgL_lastzd2matchzd2_17451 = BgL_lastzd2matchzd2_1206; 
BgL_thezd2rgczd2contextz00_17452 = BgL_thezd2rgczd2contextz00_1207; 
BgL_thezd2rgczd2contextz00_1216 = BgL_thezd2rgczd2contextz00_17452; 
BgL_lastzd2matchzd2_1215 = BgL_lastzd2matchzd2_17451; 
BgL_inputzd2portzd2_1214 = BgL_inputzd2portzd2_17450; 
goto BgL_zc3anonymousza32433ze3z83_1217;} } } } } break;case ((long)34) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5310;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1214); 
BgL_newzd2matchzd2_5310 = ((long)11); 
BgL_auxz00_12472 = BgL_newzd2matchzd2_5310; } break;
default: 
{ 

goto BgL_zc3anonymousza32433ze3z83_1217;} } } break;case ((long)33) : 

BgL_inputzd2portzd2_1921 = BgL_inputzd2portzd2_1661; 
BgL_lastzd2matchzd2_1922 = BgL_newzd2matchzd2_1665; 
BgL_thezd2rgczd2contextz00_1923 = BgL_thezd2rgczd2contextz00_1663; 
BgL_zc3anonymousza33710ze3z83_1924:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1925;
BgL_currentzd2charzd2_1925 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1921); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17457;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17458;
BgL_auxz00_17458 = 
(long)(BgL_currentzd2charzd2_1925); 
BgL_testz00_17457 = 
(BgL_auxz00_17458==((long)0)); } 
if(BgL_testz00_17457)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3712z00_1927;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7979z00_6625;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6622;
BgL__andtest_1208z00_6622 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1921); 
if(BgL__andtest_1208z00_6622)
{ /* ./Read/reader.scm 336 */
BgL_res7979z00_6625 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1921); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7979z00_6625 = ((bool_t)0); } } 
BgL_test3712z00_1927 = BgL_res7979z00_6625; } 
if(BgL_test3712z00_1927)
{ 

goto BgL_zc3anonymousza33710ze3z83_1924;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1922
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3715z00_1928;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17465;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17466;
BgL_auxz00_17466 = 
(long)(BgL_currentzd2charzd2_1925); 
BgL_testz00_17465 = 
(BgL_auxz00_17466<((long)33)); } 
if(BgL_testz00_17465)
{ /* ./Read/reader.scm 336 */
BgL_test3715z00_1928 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17469;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17470;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17471;
BgL_auxz00_17471 = 
(long)(BgL_currentzd2charzd2_1925); 
BgL_testz00_17470 = 
(BgL_auxz00_17471==((long)35)); } 
if(BgL_testz00_17470)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17469 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17474;
BgL_auxz00_17474 = 
(long)(BgL_currentzd2charzd2_1925); 
BgL_testz00_17469 = 
(BgL_auxz00_17474==((long)34)); } } 
if(BgL_testz00_17469)
{ /* ./Read/reader.scm 336 */
BgL_test3715z00_1928 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17477;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17478;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17479;
BgL_auxz00_17479 = 
(long)(BgL_currentzd2charzd2_1925); 
BgL_testz00_17478 = 
(BgL_auxz00_17479==((long)41)); } 
if(BgL_testz00_17478)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17477 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17482;
BgL_auxz00_17482 = 
(long)(BgL_currentzd2charzd2_1925); 
BgL_testz00_17477 = 
(BgL_auxz00_17482==((long)40)); } } 
if(BgL_testz00_17477)
{ /* ./Read/reader.scm 336 */
BgL_test3715z00_1928 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
switch( 
(long)(BgL_currentzd2charzd2_1925)) { case ((long)59) : 

BgL_test3715z00_1928 = ((bool_t)1); break;case ((long)91) : 

BgL_test3715z00_1928 = ((bool_t)1); break;case ((long)93) : 

BgL_test3715z00_1928 = ((bool_t)1); break;case ((long)123) : 

BgL_test3715z00_1928 = ((bool_t)1); break;case ((long)125) : 

BgL_test3715z00_1928 = ((bool_t)1); break;
default: 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17485;
BgL_auxz00_17485 = 
(long)(BgL_currentzd2charzd2_1925); 
BgL_test3715z00_1928 = 
(BgL_auxz00_17485==((long)127)); } } } } } } 
if(BgL_test3715z00_1928)
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17491;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17492;
BgL_auxz00_17492 = 
(long)(BgL_currentzd2charzd2_1925); 
BgL_testz00_17491 = 
(BgL_auxz00_17492==((long)32)); } 
if(BgL_testz00_17491)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2793 = BgL_inputzd2portzd2_1921; 
BgL_lastzd2matchzd2_2794 = BgL_lastzd2matchzd2_1922; 
BgL_thezd2rgczd2contextz00_2795 = BgL_thezd2rgczd2contextz00_1923; 
BgL_zc3anonymousza35224ze3z83_2796:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2797;
BgL_currentzd2charzd2_2797 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2793); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17496;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17497;
BgL_auxz00_17497 = 
(long)(BgL_currentzd2charzd2_2797); 
BgL_testz00_17496 = 
(BgL_auxz00_17497==((long)0)); } 
if(BgL_testz00_17496)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5226z00_2799;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8017z00_8207;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_8204;
BgL__andtest_1208z00_8204 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2793); 
if(BgL__andtest_1208z00_8204)
{ /* ./Read/reader.scm 336 */
BgL_res8017z00_8207 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2793); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8017z00_8207 = ((bool_t)0); } } 
BgL_test5226z00_2799 = BgL_res8017z00_8207; } 
if(BgL_test5226z00_2799)
{ 

goto BgL_zc3anonymousza35224ze3z83_2796;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2794
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test5229z00_2800;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17504;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17505;
BgL_auxz00_17505 = 
(long)(BgL_currentzd2charzd2_2797); 
BgL_testz00_17504 = 
(BgL_auxz00_17505<((long)33)); } 
if(BgL_testz00_17504)
{ /* ./Read/reader.scm 336 */
BgL_test5229z00_2800 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17508;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17509;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17510;
BgL_auxz00_17510 = 
(long)(BgL_currentzd2charzd2_2797); 
BgL_testz00_17509 = 
(BgL_auxz00_17510==((long)35)); } 
if(BgL_testz00_17509)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17508 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17513;
BgL_auxz00_17513 = 
(long)(BgL_currentzd2charzd2_2797); 
BgL_testz00_17508 = 
(BgL_auxz00_17513==((long)34)); } } 
if(BgL_testz00_17508)
{ /* ./Read/reader.scm 336 */
BgL_test5229z00_2800 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17516;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17517;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17518;
BgL_auxz00_17518 = 
(long)(BgL_currentzd2charzd2_2797); 
BgL_testz00_17517 = 
(BgL_auxz00_17518==((long)41)); } 
if(BgL_testz00_17517)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17516 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17521;
BgL_auxz00_17521 = 
(long)(BgL_currentzd2charzd2_2797); 
BgL_testz00_17516 = 
(BgL_auxz00_17521==((long)40)); } } 
if(BgL_testz00_17516)
{ /* ./Read/reader.scm 336 */
BgL_test5229z00_2800 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
switch( 
(long)(BgL_currentzd2charzd2_2797)) { case ((long)59) : 

BgL_test5229z00_2800 = ((bool_t)1); break;case ((long)91) : 

BgL_test5229z00_2800 = ((bool_t)1); break;case ((long)93) : 

BgL_test5229z00_2800 = ((bool_t)1); break;case ((long)123) : 

BgL_test5229z00_2800 = ((bool_t)1); break;case ((long)125) : 

BgL_test5229z00_2800 = ((bool_t)1); break;
default: 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17524;
BgL_auxz00_17524 = 
(long)(BgL_currentzd2charzd2_2797); 
BgL_test5229z00_2800 = 
(BgL_auxz00_17524==((long)127)); } } } } } } 
if(BgL_test5229z00_2800)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_2794; }  else 
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1108 = BgL_inputzd2portzd2_2793; 
BgL_lastzd2matchzd2_1109 = BgL_lastzd2matchzd2_2794; 
BgL_thezd2rgczd2contextz00_1110 = BgL_thezd2rgczd2contextz00_2795; 
BgL_zc3anonymousza32250ze3z83_1111:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1112;
if(
rgc_buffer_bol_p(BgL_inputzd2portzd2_1108))
{ /* ./Read/reader.scm 336 */
RGC_STOP_MATCH(BgL_inputzd2portzd2_1108); 
BgL_newzd2matchzd2_1112 = ((long)4); }  else 
{ /* ./Read/reader.scm 336 */
BgL_newzd2matchzd2_1112 = BgL_lastzd2matchzd2_1109; } 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1113;
BgL_currentzd2charzd2_1113 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1108); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17534;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17535;
BgL_auxz00_17535 = 
(long)(BgL_currentzd2charzd2_1113); 
BgL_testz00_17534 = 
(BgL_auxz00_17535==((long)0)); } 
if(BgL_testz00_17534)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2252z00_1115;
BgL_test2252z00_1115 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1108); 
if(BgL_test2252z00_1115)
{ /* ./Read/reader.scm 336 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1108))
{ 

goto BgL_zc3anonymousza32250ze3z83_1111;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1112
; } }  else 
{ 
long BgL_lastzd2matchzd2_17542;
BgL_lastzd2matchzd2_17542 = BgL_newzd2matchzd2_1112; 
BgL_lastzd2matchzd2_1109 = BgL_lastzd2matchzd2_17542; 
goto BgL_zc3anonymousza32250ze3z83_1111;} } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17543;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17544;
BgL_auxz00_17544 = 
(long)(BgL_currentzd2charzd2_1113); 
BgL_testz00_17543 = 
(BgL_auxz00_17544==((long)10)); } 
if(BgL_testz00_17543)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1112; }  else 
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_17547;
BgL_lastzd2matchzd2_17547 = BgL_newzd2matchzd2_1112; 
BgL_lastzd2matchzd2_1109 = BgL_lastzd2matchzd2_17547; 
goto BgL_zc3anonymousza32250ze3z83_1111;} } } } } } } } } } }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_lastzd2matchzd2_1922; } }  else 
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1611 = BgL_inputzd2portzd2_1921; 
BgL_lastzd2matchzd2_1612 = BgL_lastzd2matchzd2_1922; 
BgL_thezd2rgczd2contextz00_1613 = BgL_thezd2rgczd2contextz00_1923; 
BgL_zc3anonymousza33152ze3z83_1614:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1615;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1611); 
BgL_newzd2matchzd2_1615 = ((long)5); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1616;
BgL_currentzd2charzd2_1616 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1611); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17550;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17551;
BgL_auxz00_17551 = 
(long)(BgL_currentzd2charzd2_1616); 
BgL_testz00_17550 = 
(BgL_auxz00_17551==((long)0)); } 
if(BgL_testz00_17550)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3154z00_1618;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7967z00_6031;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6028;
BgL__andtest_1208z00_6028 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1611); 
if(BgL__andtest_1208z00_6028)
{ /* ./Read/reader.scm 336 */
BgL_res7967z00_6031 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1611); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7967z00_6031 = ((bool_t)0); } } 
BgL_test3154z00_1618 = BgL_res7967z00_6031; } 
if(BgL_test3154z00_1618)
{ 

goto BgL_zc3anonymousza33152ze3z83_1614;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1615
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3157z00_1619;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17558;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17559;
BgL_auxz00_17559 = 
(long)(BgL_currentzd2charzd2_1616); 
BgL_testz00_17558 = 
(BgL_auxz00_17559<((long)33)); } 
if(BgL_testz00_17558)
{ /* ./Read/reader.scm 336 */
BgL_test3157z00_1619 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17562;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17563;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17564;
BgL_auxz00_17564 = 
(long)(BgL_currentzd2charzd2_1616); 
BgL_testz00_17563 = 
(BgL_auxz00_17564==((long)35)); } 
if(BgL_testz00_17563)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17562 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17567;
BgL_auxz00_17567 = 
(long)(BgL_currentzd2charzd2_1616); 
BgL_testz00_17562 = 
(BgL_auxz00_17567==((long)34)); } } 
if(BgL_testz00_17562)
{ /* ./Read/reader.scm 336 */
BgL_test3157z00_1619 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17570;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17571;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17572;
BgL_auxz00_17572 = 
(long)(BgL_currentzd2charzd2_1616); 
BgL_testz00_17571 = 
(BgL_auxz00_17572==((long)41)); } 
if(BgL_testz00_17571)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17570 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17575;
BgL_auxz00_17575 = 
(long)(BgL_currentzd2charzd2_1616); 
BgL_testz00_17570 = 
(BgL_auxz00_17575==((long)40)); } } 
if(BgL_testz00_17570)
{ /* ./Read/reader.scm 336 */
BgL_test3157z00_1619 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
switch( 
(long)(BgL_currentzd2charzd2_1616)) { case ((long)59) : 

BgL_test3157z00_1619 = ((bool_t)1); break;case ((long)91) : 

BgL_test3157z00_1619 = ((bool_t)1); break;case ((long)93) : 

BgL_test3157z00_1619 = ((bool_t)1); break;case ((long)123) : 

BgL_test3157z00_1619 = ((bool_t)1); break;case ((long)125) : 

BgL_test3157z00_1619 = ((bool_t)1); break;
default: 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17578;
BgL_auxz00_17578 = 
(long)(BgL_currentzd2charzd2_1616); 
BgL_test3157z00_1619 = 
(BgL_auxz00_17578==((long)127)); } } } } } } 
if(BgL_test3157z00_1619)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1615; }  else 
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_17584;
BgL_lastzd2matchzd2_17584 = BgL_newzd2matchzd2_1615; 
BgL_lastzd2matchzd2_1612 = BgL_lastzd2matchzd2_17584; 
goto BgL_zc3anonymousza33152ze3z83_1614;} } } } } } } } } } break;case ((long)0) : 

{ /* ./Read/reader.scm 336 */
bool_t BgL_test3243z00_1670;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7969z00_6103;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6100;
BgL__andtest_1208z00_6100 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1661); 
if(BgL__andtest_1208z00_6100)
{ /* ./Read/reader.scm 336 */
BgL_res7969z00_6103 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1661); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7969z00_6103 = ((bool_t)0); } } 
BgL_test3243z00_1670 = BgL_res7969z00_6103; } 
if(BgL_test3243z00_1670)
{ 

goto BgL_zc3anonymousza33223ze3z83_1664;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_12472 = BgL_newzd2matchzd2_1665
; } } break;
default: 
BgL_auxz00_12472 = BgL_newzd2matchzd2_1665; } } } 
return 
BINT(BgL_auxz00_12472);} break;case ((long)34) : 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17592;
BgL_inputzd2portzd2_1433 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_1434 = BgL_lastzd2matchzd2_1672; 
BgL_thezd2rgczd2contextz00_1435 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza32828ze3z83_1436:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1437;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1433); 
BgL_newzd2matchzd2_1437 = ((long)41); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1438;
BgL_currentzd2charzd2_1438 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1433); 
switch( 
(long)(BgL_currentzd2charzd2_1438)) { case ((long)0) : 

{ /* ./Read/reader.scm 336 */
bool_t BgL_test2830z00_1442;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7960z00_5701;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5698;
BgL__andtest_1208z00_5698 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1433); 
if(BgL__andtest_1208z00_5698)
{ /* ./Read/reader.scm 336 */
BgL_res7960z00_5701 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1433); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7960z00_5701 = ((bool_t)0); } } 
BgL_test2830z00_1442 = BgL_res7960z00_5701; } 
if(BgL_test2830z00_1442)
{ 

goto BgL_zc3anonymousza32828ze3z83_1436;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17592 = BgL_newzd2matchzd2_1437
; } } break;case ((long)92) : 

BgL_inputzd2portzd2_1424 = BgL_inputzd2portzd2_1433; 
BgL_lastzd2matchzd2_1425 = BgL_newzd2matchzd2_1437; 
BgL_thezd2rgczd2contextz00_1426 = BgL_thezd2rgczd2contextz00_1435; 
BgL_zc3anonymousza32815ze3z83_1427:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1428;
BgL_currentzd2charzd2_1428 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1424); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17600;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17601;
BgL_auxz00_17601 = 
(long)(BgL_currentzd2charzd2_1428); 
BgL_testz00_17600 = 
(BgL_auxz00_17601==((long)0)); } 
if(BgL_testz00_17600)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2817z00_1430;
BgL_test2817z00_1430 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1424); 
if(BgL_test2817z00_1430)
{ /* ./Read/reader.scm 336 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1424))
{ 

goto BgL_zc3anonymousza32815ze3z83_1427;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17592 = BgL_lastzd2matchzd2_1425
; } }  else 
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1572 = BgL_inputzd2portzd2_1424; 
BgL_lastzd2matchzd2_1573 = BgL_lastzd2matchzd2_1425; 
BgL_thezd2rgczd2contextz00_1574 = BgL_thezd2rgczd2contextz00_1426; 
BgL_zc3anonymousza33083ze3z83_1575:
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1576;
BgL_currentzd2charzd2_1576 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1572); 
switch( 
(long)(BgL_currentzd2charzd2_1576)) { case ((long)0) : 

{ /* ./Read/reader.scm 336 */
bool_t BgL_test3085z00_1580;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7965z00_5964;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_5961;
BgL__andtest_1208z00_5961 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1572); 
if(BgL__andtest_1208z00_5961)
{ /* ./Read/reader.scm 336 */
BgL_res7965z00_5964 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1572); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7965z00_5964 = ((bool_t)0); } } 
BgL_test3085z00_1580 = BgL_res7965z00_5964; } 
if(BgL_test3085z00_1580)
{ 

goto BgL_zc3anonymousza33083ze3z83_1575;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17592 = BgL_lastzd2matchzd2_1573
; } } break;case ((long)92) : 

{ 
obj_t BgL_thezd2rgczd2contextz00_17615;long BgL_lastzd2matchzd2_17614;obj_t BgL_inputzd2portzd2_17613;
BgL_inputzd2portzd2_17613 = BgL_inputzd2portzd2_1572; 
BgL_lastzd2matchzd2_17614 = BgL_lastzd2matchzd2_1573; 
BgL_thezd2rgczd2contextz00_17615 = BgL_thezd2rgczd2contextz00_1574; 
BgL_thezd2rgczd2contextz00_1426 = BgL_thezd2rgczd2contextz00_17615; 
BgL_lastzd2matchzd2_1425 = BgL_lastzd2matchzd2_17614; 
BgL_inputzd2portzd2_1424 = BgL_inputzd2portzd2_17613; 
goto BgL_zc3anonymousza32815ze3z83_1427;} break;case ((long)34) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5968;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1572); 
BgL_newzd2matchzd2_5968 = ((long)10); 
BgL_auxz00_17592 = BgL_newzd2matchzd2_5968; } break;
default: 
{ 

goto BgL_zc3anonymousza33083ze3z83_1575;} } } } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17619;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17620;
BgL_auxz00_17620 = 
(long)(BgL_currentzd2charzd2_1428); 
BgL_testz00_17619 = 
(BgL_auxz00_17620==((long)10)); } 
if(BgL_testz00_17619)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17592 = BgL_lastzd2matchzd2_1425; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_17625;long BgL_lastzd2matchzd2_17624;obj_t BgL_inputzd2portzd2_17623;
BgL_inputzd2portzd2_17623 = BgL_inputzd2portzd2_1424; 
BgL_lastzd2matchzd2_17624 = BgL_lastzd2matchzd2_1425; 
BgL_thezd2rgczd2contextz00_17625 = BgL_thezd2rgczd2contextz00_1426; 
BgL_thezd2rgczd2contextz00_1574 = BgL_thezd2rgczd2contextz00_17625; 
BgL_lastzd2matchzd2_1573 = BgL_lastzd2matchzd2_17624; 
BgL_inputzd2portzd2_1572 = BgL_inputzd2portzd2_17623; 
goto BgL_zc3anonymousza33083ze3z83_1575;} } } } } break;case ((long)34) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_5705;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1433); 
BgL_newzd2matchzd2_5705 = ((long)10); 
BgL_auxz00_17592 = BgL_newzd2matchzd2_5705; } break;
default: 
{ 
obj_t BgL_thezd2rgczd2contextz00_17629;long BgL_lastzd2matchzd2_17628;obj_t BgL_inputzd2portzd2_17627;
BgL_inputzd2portzd2_17627 = BgL_inputzd2portzd2_1433; 
BgL_lastzd2matchzd2_17628 = BgL_newzd2matchzd2_1437; 
BgL_thezd2rgczd2contextz00_17629 = BgL_thezd2rgczd2contextz00_1435; 
BgL_thezd2rgczd2contextz00_1574 = BgL_thezd2rgczd2contextz00_17629; 
BgL_lastzd2matchzd2_1573 = BgL_lastzd2matchzd2_17628; 
BgL_inputzd2portzd2_1572 = BgL_inputzd2portzd2_17627; 
goto BgL_zc3anonymousza33083ze3z83_1575;} } } } 
return 
BINT(BgL_auxz00_17592);} break;case ((long)255) : 
case ((long)254) : 
case ((long)253) : 
case ((long)252) : 
case ((long)251) : 
case ((long)250) : 
case ((long)249) : 
case ((long)248) : 
case ((long)247) : 
case ((long)246) : 
case ((long)245) : 
case ((long)244) : 
case ((long)243) : 
case ((long)242) : 
case ((long)241) : 
case ((long)240) : 
case ((long)239) : 
case ((long)238) : 
case ((long)237) : 
case ((long)236) : 
case ((long)235) : 
case ((long)234) : 
case ((long)233) : 
case ((long)232) : 
case ((long)231) : 
case ((long)230) : 
case ((long)229) : 
case ((long)228) : 
case ((long)227) : 
case ((long)226) : 
case ((long)225) : 
case ((long)224) : 
case ((long)223) : 
case ((long)222) : 
case ((long)221) : 
case ((long)220) : 
case ((long)219) : 
case ((long)218) : 
case ((long)217) : 
case ((long)216) : 
case ((long)215) : 
case ((long)214) : 
case ((long)213) : 
case ((long)212) : 
case ((long)211) : 
case ((long)210) : 
case ((long)209) : 
case ((long)208) : 
case ((long)207) : 
case ((long)206) : 
case ((long)205) : 
case ((long)204) : 
case ((long)203) : 
case ((long)202) : 
case ((long)201) : 
case ((long)200) : 
case ((long)199) : 
case ((long)198) : 
case ((long)197) : 
case ((long)196) : 
case ((long)195) : 
case ((long)194) : 
case ((long)193) : 
case ((long)192) : 
case ((long)191) : 
case ((long)190) : 
case ((long)189) : 
case ((long)188) : 
case ((long)187) : 
case ((long)186) : 
case ((long)185) : 
case ((long)184) : 
case ((long)183) : 
case ((long)182) : 
case ((long)181) : 
case ((long)180) : 
case ((long)179) : 
case ((long)178) : 
case ((long)177) : 
case ((long)176) : 
case ((long)175) : 
case ((long)174) : 
case ((long)173) : 
case ((long)172) : 
case ((long)171) : 
case ((long)170) : 
case ((long)169) : 
case ((long)168) : 
case ((long)167) : 
case ((long)166) : 
case ((long)165) : 
case ((long)164) : 
case ((long)163) : 
case ((long)162) : 
case ((long)161) : 
case ((long)160) : 
case ((long)159) : 
case ((long)158) : 
case ((long)157) : 
case ((long)156) : 
case ((long)155) : 
case ((long)154) : 
case ((long)153) : 
case ((long)152) : 
case ((long)151) : 
case ((long)150) : 
case ((long)149) : 
case ((long)148) : 
case ((long)147) : 
case ((long)146) : 
case ((long)145) : 
case ((long)144) : 
case ((long)143) : 
case ((long)142) : 
case ((long)141) : 
case ((long)140) : 
case ((long)139) : 
case ((long)138) : 
case ((long)137) : 
case ((long)136) : 
case ((long)135) : 
case ((long)134) : 
case ((long)133) : 
case ((long)132) : 
case ((long)131) : 
case ((long)130) : 
case ((long)129) : 
case ((long)128) : 
case ((long)126) : 
case ((long)122) : 
case ((long)121) : 
case ((long)120) : 
case ((long)119) : 
case ((long)118) : 
case ((long)117) : 
case ((long)116) : 
case ((long)115) : 
case ((long)114) : 
case ((long)113) : 
case ((long)112) : 
case ((long)111) : 
case ((long)110) : 
case ((long)109) : 
case ((long)108) : 
case ((long)107) : 
case ((long)106) : 
case ((long)105) : 
case ((long)104) : 
case ((long)103) : 
case ((long)102) : 
case ((long)101) : 
case ((long)100) : 
case ((long)99) : 
case ((long)98) : 
case ((long)97) : 
case ((long)95) : 
case ((long)94) : 
case ((long)92) : 
case ((long)90) : 
case ((long)89) : 
case ((long)88) : 
case ((long)87) : 
case ((long)86) : 
case ((long)85) : 
case ((long)84) : 
case ((long)83) : 
case ((long)82) : 
case ((long)81) : 
case ((long)80) : 
case ((long)79) : 
case ((long)78) : 
case ((long)77) : 
case ((long)76) : 
case ((long)75) : 
case ((long)74) : 
case ((long)73) : 
case ((long)72) : 
case ((long)71) : 
case ((long)70) : 
case ((long)69) : 
case ((long)68) : 
case ((long)67) : 
case ((long)66) : 
case ((long)65) : 
case ((long)64) : 
case ((long)63) : 
case ((long)62) : 
case ((long)61) : 
case ((long)60) : 
case ((long)47) : 
case ((long)42) : 
case ((long)38) : 
case ((long)37) : 
case ((long)36) : 
case ((long)33) : 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17633;
BgL_inputzd2portzd2_2362 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_2363 = BgL_lastzd2matchzd2_1672; 
BgL_thezd2rgczd2contextz00_2364 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza34461ze3z83_2365:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_2366;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2362); 
BgL_newzd2matchzd2_2366 = ((long)27); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_2367;
BgL_currentzd2charzd2_2367 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2362); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17636;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17637;
BgL_auxz00_17637 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17636 = 
(BgL_auxz00_17637==((long)0)); } 
if(BgL_testz00_17636)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4463z00_2369;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res8000z00_7429;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_7426;
BgL__andtest_1208z00_7426 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2362); 
if(BgL__andtest_1208z00_7426)
{ /* ./Read/reader.scm 336 */
BgL_res8000z00_7429 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2362); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res8000z00_7429 = ((bool_t)0); } } 
BgL_test4463z00_2369 = BgL_res8000z00_7429; } 
if(BgL_test4463z00_2369)
{ 

goto BgL_zc3anonymousza34461ze3z83_2365;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17633 = BgL_newzd2matchzd2_2366
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4466z00_2370;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17644;
BgL_auxz00_17644 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_test4466z00_2370 = 
(BgL_auxz00_17644==((long)58)); } 
if(BgL_test4466z00_2370)
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_17650;long BgL_lastzd2matchzd2_17649;obj_t BgL_inputzd2portzd2_17648;
BgL_inputzd2portzd2_17648 = BgL_inputzd2portzd2_2362; 
BgL_lastzd2matchzd2_17649 = BgL_newzd2matchzd2_2366; 
BgL_thezd2rgczd2contextz00_17650 = BgL_thezd2rgczd2contextz00_2364; 
BgL_thezd2rgczd2contextz00_1945 = BgL_thezd2rgczd2contextz00_17650; 
BgL_lastzd2matchzd2_1944 = BgL_lastzd2matchzd2_17649; 
BgL_inputzd2portzd2_1943 = BgL_inputzd2portzd2_17648; 
goto BgL_zc3anonymousza33739ze3z83_1946;} }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test4468z00_2371;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17651;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17652;
BgL_auxz00_17652 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17651 = 
(BgL_auxz00_17652<((long)33)); } 
if(BgL_testz00_17651)
{ /* ./Read/reader.scm 336 */
BgL_test4468z00_2371 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17655;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17656;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17657;
BgL_auxz00_17657 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17656 = 
(BgL_auxz00_17657==((long)35)); } 
if(BgL_testz00_17656)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17655 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17660;
BgL_auxz00_17660 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17655 = 
(BgL_auxz00_17660==((long)34)); } } 
if(BgL_testz00_17655)
{ /* ./Read/reader.scm 336 */
BgL_test4468z00_2371 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17663;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17664;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17665;
BgL_auxz00_17665 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17664 = 
(BgL_auxz00_17665==((long)41)); } 
if(BgL_testz00_17664)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17663 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17668;
BgL_auxz00_17668 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17663 = 
(BgL_auxz00_17668==((long)40)); } } 
if(BgL_testz00_17663)
{ /* ./Read/reader.scm 336 */
BgL_test4468z00_2371 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17671;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17672;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17673;
BgL_auxz00_17673 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17672 = 
(BgL_auxz00_17673==((long)59)); } 
if(BgL_testz00_17672)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17671 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
BgL_testz00_17671 = BgL_test4466z00_2370
; } } 
if(BgL_testz00_17671)
{ /* ./Read/reader.scm 336 */
BgL_test4468z00_2371 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17676;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17677;
BgL_auxz00_17677 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17676 = 
(BgL_auxz00_17677==((long)91)); } 
if(BgL_testz00_17676)
{ /* ./Read/reader.scm 336 */
BgL_test4468z00_2371 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17680;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17681;
BgL_auxz00_17681 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17680 = 
(BgL_auxz00_17681==((long)93)); } 
if(BgL_testz00_17680)
{ /* ./Read/reader.scm 336 */
BgL_test4468z00_2371 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17684;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17685;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17686;
BgL_auxz00_17686 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17685 = 
(BgL_auxz00_17686==((long)125)); } 
if(BgL_testz00_17685)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17684 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17689;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17690;
BgL_auxz00_17690 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17689 = 
(BgL_auxz00_17690==((long)124)); } 
if(BgL_testz00_17689)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17684 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17693;
BgL_auxz00_17693 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_testz00_17684 = 
(BgL_auxz00_17693==((long)123)); } } } 
if(BgL_testz00_17684)
{ /* ./Read/reader.scm 336 */
BgL_test4468z00_2371 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17696;
BgL_auxz00_17696 = 
(long)(BgL_currentzd2charzd2_2367); 
BgL_test4468z00_2371 = 
(BgL_auxz00_17696==((long)127)); } } } } } } } } 
if(BgL_test4468z00_2371)
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17633 = BgL_newzd2matchzd2_2366; }  else 
{ /* ./Read/reader.scm 336 */
{ 
obj_t BgL_thezd2rgczd2contextz00_17702;long BgL_lastzd2matchzd2_17701;obj_t BgL_inputzd2portzd2_17700;
BgL_inputzd2portzd2_17700 = BgL_inputzd2portzd2_2362; 
BgL_lastzd2matchzd2_17701 = BgL_newzd2matchzd2_2366; 
BgL_thezd2rgczd2contextz00_17702 = BgL_thezd2rgczd2contextz00_2364; 
BgL_thezd2rgczd2contextz00_2424 = BgL_thezd2rgczd2contextz00_17702; 
BgL_lastzd2matchzd2_2423 = BgL_lastzd2matchzd2_17701; 
BgL_inputzd2portzd2_2422 = BgL_inputzd2portzd2_17700; 
goto BgL_zc3anonymousza34556ze3z83_2425;} } } } } } } 
return 
BINT(BgL_auxz00_17633);} break;case ((long)10) : 

{ 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17704;
BgL_statezd23zd21024z00_6152:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6153;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1671); 
BgL_newzd2matchzd2_6153 = ((long)0); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_6154;
BgL_currentzd2charzd2_6154 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1671); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17707;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17708;
BgL_auxz00_17708 = 
(long)(BgL_currentzd2charzd2_6154); 
BgL_testz00_17707 = 
(BgL_auxz00_17708==((long)0)); } 
if(BgL_testz00_17707)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3830z00_6156;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7971z00_6166;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6163;
BgL__andtest_1208z00_6163 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1671); 
if(BgL__andtest_1208z00_6163)
{ /* ./Read/reader.scm 336 */
BgL_res7971z00_6166 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1671); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7971z00_6166 = ((bool_t)0); } } 
BgL_test3830z00_6156 = BgL_res7971z00_6166; } 
if(BgL_test3830z00_6156)
{ /* ./Read/reader.scm 336 */
goto BgL_statezd23zd21024z00_6152;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17704 = BgL_newzd2matchzd2_6153
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17715;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17716;
BgL_auxz00_17716 = 
(long)(BgL_currentzd2charzd2_6154); 
BgL_testz00_17715 = 
(BgL_auxz00_17716==((long)10)); } 
if(BgL_testz00_17715)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_2010 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_2011 = BgL_newzd2matchzd2_6153; 
BgL_thezd2rgczd2contextz00_2012 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza33839ze3z83_2013:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6785;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2010); 
BgL_newzd2matchzd2_6785 = ((long)0); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_6786;
BgL_currentzd2charzd2_6786 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2010); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17721;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17722;
BgL_auxz00_17722 = 
(long)(BgL_currentzd2charzd2_6786); 
BgL_testz00_17721 = 
(BgL_auxz00_17722==((long)0)); } 
if(BgL_testz00_17721)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3841z00_6788;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7985z00_6798;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6795;
BgL__andtest_1208z00_6795 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2010); 
if(BgL__andtest_1208z00_6795)
{ /* ./Read/reader.scm 336 */
BgL_res7985z00_6798 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2010); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7985z00_6798 = ((bool_t)0); } } 
BgL_test3841z00_6788 = BgL_res7985z00_6798; } 
if(BgL_test3841z00_6788)
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6802;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2010); 
BgL_newzd2matchzd2_6802 = ((long)0); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_6803;
BgL_currentzd2charzd2_6803 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2010); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17731;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17732;
BgL_auxz00_17732 = 
(long)(BgL_currentzd2charzd2_6803); 
BgL_testz00_17731 = 
(BgL_auxz00_17732==((long)0)); } 
if(BgL_testz00_17731)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3841z00_6805;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7986z00_6815;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6812;
BgL__andtest_1208z00_6812 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2010); 
if(BgL__andtest_1208z00_6812)
{ /* ./Read/reader.scm 336 */
BgL_res7986z00_6815 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2010); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7986z00_6815 = ((bool_t)0); } } 
BgL_test3841z00_6805 = BgL_res7986z00_6815; } 
if(BgL_test3841z00_6805)
{ 

goto BgL_zc3anonymousza33839ze3z83_2013;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17704 = BgL_newzd2matchzd2_6802
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17739;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17740;
BgL_auxz00_17740 = 
(long)(BgL_currentzd2charzd2_6803); 
BgL_testz00_17739 = 
(BgL_auxz00_17740==((long)10)); } 
if(BgL_testz00_17739)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_17743;
BgL_lastzd2matchzd2_17743 = BgL_newzd2matchzd2_6802; 
BgL_lastzd2matchzd2_2011 = BgL_lastzd2matchzd2_17743; 
goto BgL_zc3anonymousza33839ze3z83_2013;} }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17704 = BgL_newzd2matchzd2_6802; } } } } }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17704 = BgL_newzd2matchzd2_6785
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17744;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17745;
BgL_auxz00_17745 = 
(long)(BgL_currentzd2charzd2_6786); 
BgL_testz00_17744 = 
(BgL_auxz00_17745==((long)10)); } 
if(BgL_testz00_17744)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6823;
RGC_STOP_MATCH(BgL_inputzd2portzd2_2010); 
BgL_newzd2matchzd2_6823 = ((long)0); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_6824;
BgL_currentzd2charzd2_6824 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_2010); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17750;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17751;
BgL_auxz00_17751 = 
(long)(BgL_currentzd2charzd2_6824); 
BgL_testz00_17750 = 
(BgL_auxz00_17751==((long)0)); } 
if(BgL_testz00_17750)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test3841z00_6826;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7987z00_6836;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_6833;
BgL__andtest_1208z00_6833 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_2010); 
if(BgL__andtest_1208z00_6833)
{ /* ./Read/reader.scm 336 */
BgL_res7987z00_6836 = 
rgc_fill_buffer(BgL_inputzd2portzd2_2010); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7987z00_6836 = ((bool_t)0); } } 
BgL_test3841z00_6826 = BgL_res7987z00_6836; } 
if(BgL_test3841z00_6826)
{ 
long BgL_lastzd2matchzd2_17758;
BgL_lastzd2matchzd2_17758 = BgL_newzd2matchzd2_6785; 
BgL_lastzd2matchzd2_2011 = BgL_lastzd2matchzd2_17758; 
goto BgL_zc3anonymousza33839ze3z83_2013;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17704 = BgL_newzd2matchzd2_6823
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17759;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17760;
BgL_auxz00_17760 = 
(long)(BgL_currentzd2charzd2_6824); 
BgL_testz00_17759 = 
(BgL_auxz00_17760==((long)10)); } 
if(BgL_testz00_17759)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_17763;
BgL_lastzd2matchzd2_17763 = BgL_newzd2matchzd2_6823; 
BgL_lastzd2matchzd2_2011 = BgL_lastzd2matchzd2_17763; 
goto BgL_zc3anonymousza33839ze3z83_2013;} }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17704 = BgL_newzd2matchzd2_6823; } } } } } }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17704 = BgL_newzd2matchzd2_6785; } } } } } }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17704 = BgL_newzd2matchzd2_6153; } } } } } 
return 
BINT(BgL_auxz00_17704);} } break;case ((long)32) : 
case ((long)13) : 
case ((long)12) : 
case ((long)9) : 

{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17765;
BgL_inputzd2portzd2_923 = BgL_inputzd2portzd2_1671; 
BgL_lastzd2matchzd2_924 = BgL_lastzd2matchzd2_1672; 
BgL_thezd2rgczd2contextz00_925 = BgL_thezd2rgczd2contextz00_1673; 
BgL_zc3anonymousza31923ze3z83_926:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_927;
RGC_STOP_MATCH(BgL_inputzd2portzd2_923); 
BgL_newzd2matchzd2_927 = ((long)1); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_928;
BgL_currentzd2charzd2_928 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_923); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17768;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17769;
BgL_auxz00_17769 = 
(long)(BgL_currentzd2charzd2_928); 
BgL_testz00_17768 = 
(BgL_auxz00_17769==((long)0)); } 
if(BgL_testz00_17768)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test1925z00_930;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7940z00_4799;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_4796;
BgL__andtest_1208z00_4796 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_923); 
if(BgL__andtest_1208z00_4796)
{ /* ./Read/reader.scm 336 */
BgL_res7940z00_4799 = 
rgc_fill_buffer(BgL_inputzd2portzd2_923); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7940z00_4799 = ((bool_t)0); } } 
BgL_test1925z00_930 = BgL_res7940z00_4799; } 
if(BgL_test1925z00_930)
{ 

goto BgL_zc3anonymousza31923ze3z83_926;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17765 = BgL_newzd2matchzd2_927
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test1928z00_931;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17776;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17777;
BgL_auxz00_17777 = 
(long)(BgL_currentzd2charzd2_928); 
BgL_testz00_17776 = 
(BgL_auxz00_17777==((long)9)); } 
if(BgL_testz00_17776)
{ /* ./Read/reader.scm 336 */
BgL_test1928z00_931 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17780;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17781;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17782;
BgL_auxz00_17782 = 
(long)(BgL_currentzd2charzd2_928); 
BgL_testz00_17781 = 
(BgL_auxz00_17782==((long)13)); } 
if(BgL_testz00_17781)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17780 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17785;
BgL_auxz00_17785 = 
(long)(BgL_currentzd2charzd2_928); 
BgL_testz00_17780 = 
(BgL_auxz00_17785==((long)12)); } } 
if(BgL_testz00_17780)
{ /* ./Read/reader.scm 336 */
BgL_test1928z00_931 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17788;
BgL_auxz00_17788 = 
(long)(BgL_currentzd2charzd2_928); 
BgL_test1928z00_931 = 
(BgL_auxz00_17788==((long)32)); } } } 
if(BgL_test1928z00_931)
{ /* ./Read/reader.scm 336 */
BgL_inputzd2portzd2_1003 = BgL_inputzd2portzd2_923; 
BgL_lastzd2matchzd2_1004 = BgL_newzd2matchzd2_927; 
BgL_thezd2rgczd2contextz00_1005 = BgL_thezd2rgczd2contextz00_925; 
BgL_zc3anonymousza32061ze3z83_1006:
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_1007;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1003); 
BgL_newzd2matchzd2_1007 = ((long)1); 
{ /* ./Read/reader.scm 336 */
int BgL_currentzd2charzd2_1008;
BgL_currentzd2charzd2_1008 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_1003); 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17794;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17795;
BgL_auxz00_17795 = 
(long)(BgL_currentzd2charzd2_1008); 
BgL_testz00_17794 = 
(BgL_auxz00_17795==((long)0)); } 
if(BgL_testz00_17794)
{ /* ./Read/reader.scm 336 */
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2063z00_1010;
{ /* ./Read/reader.scm 336 */
bool_t BgL_res7944z00_4933;
{ /* ./Read/reader.scm 336 */
bool_t BgL__andtest_1208z00_4930;
BgL__andtest_1208z00_4930 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1003); 
if(BgL__andtest_1208z00_4930)
{ /* ./Read/reader.scm 336 */
BgL_res7944z00_4933 = 
rgc_fill_buffer(BgL_inputzd2portzd2_1003); }  else 
{ /* ./Read/reader.scm 336 */
BgL_res7944z00_4933 = ((bool_t)0); } } 
BgL_test2063z00_1010 = BgL_res7944z00_4933; } 
if(BgL_test2063z00_1010)
{ 

goto BgL_zc3anonymousza32061ze3z83_1006;}  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17765 = BgL_newzd2matchzd2_1007
; } } }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_test2066z00_1011;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17802;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17803;
BgL_auxz00_17803 = 
(long)(BgL_currentzd2charzd2_1008); 
BgL_testz00_17802 = 
(BgL_auxz00_17803==((long)9)); } 
if(BgL_testz00_17802)
{ /* ./Read/reader.scm 336 */
BgL_test2066z00_1011 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17806;
{ /* ./Read/reader.scm 336 */
bool_t BgL_testz00_17807;
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17808;
BgL_auxz00_17808 = 
(long)(BgL_currentzd2charzd2_1008); 
BgL_testz00_17807 = 
(BgL_auxz00_17808==((long)13)); } 
if(BgL_testz00_17807)
{ /* ./Read/reader.scm 336 */
BgL_testz00_17806 = ((bool_t)1)
; }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17811;
BgL_auxz00_17811 = 
(long)(BgL_currentzd2charzd2_1008); 
BgL_testz00_17806 = 
(BgL_auxz00_17811==((long)12)); } } 
if(BgL_testz00_17806)
{ /* ./Read/reader.scm 336 */
BgL_test2066z00_1011 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 336 */
long BgL_auxz00_17814;
BgL_auxz00_17814 = 
(long)(BgL_currentzd2charzd2_1008); 
BgL_test2066z00_1011 = 
(BgL_auxz00_17814==((long)32)); } } } 
if(BgL_test2066z00_1011)
{ /* ./Read/reader.scm 336 */
{ 
long BgL_lastzd2matchzd2_17818;
BgL_lastzd2matchzd2_17818 = BgL_newzd2matchzd2_1007; 
BgL_lastzd2matchzd2_1004 = BgL_lastzd2matchzd2_17818; 
goto BgL_zc3anonymousza32061ze3z83_1006;} }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17765 = BgL_newzd2matchzd2_1007; } } } } } }  else 
{ /* ./Read/reader.scm 336 */
BgL_auxz00_17765 = BgL_newzd2matchzd2_927; } } } } } 
return 
BINT(BgL_auxz00_17765);} break;case ((long)127) : 
case ((long)123) : 
case ((long)31) : 
case ((long)30) : 
case ((long)29) : 
case ((long)28) : 
case ((long)27) : 
case ((long)26) : 
case ((long)25) : 
case ((long)24) : 
case ((long)23) : 
case ((long)22) : 
case ((long)21) : 
case ((long)20) : 
case ((long)19) : 
case ((long)18) : 
case ((long)17) : 
case ((long)16) : 
case ((long)15) : 
case ((long)14) : 
case ((long)11) : 
case ((long)8) : 
case ((long)7) : 
case ((long)6) : 
case ((long)5) : 
case ((long)4) : 
case ((long)3) : 
case ((long)2) : 
case ((long)1) : 

{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6172;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1671); 
BgL_newzd2matchzd2_6172 = ((long)41); 
return 
BINT(BgL_newzd2matchzd2_6172);} break;case ((long)0) : 

{ /* ./Read/reader.scm 336 */
bool_t BgL_test3272z00_1679;
BgL_test3272z00_1679 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_1671); 
if(BgL_test3272z00_1679)
{ /* ./Read/reader.scm 336 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_1671))
{ 

goto BgL_zc3anonymousza33251ze3z83_1674;}  else 
{ /* ./Read/reader.scm 336 */
return BgL_lastzd2matchzd2_1672;} }  else 
{ /* ./Read/reader.scm 336 */
long BgL_newzd2matchzd2_6179;
RGC_STOP_MATCH(BgL_inputzd2portzd2_1671); 
BgL_newzd2matchzd2_6179 = ((long)41); 
return 
BINT(BgL_newzd2matchzd2_6179);} } break;
default: 
return BgL_lastzd2matchzd2_1672;} } } } } 
}



/* bigloo-case-sensitivity */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2casezd2sensitivityz00zz__readerz00()
{ AN_OBJECT;
{ /* ./Read/reader.scm 75 */
return BGl_za2rgczd2caseza2zd2zz__rgcz00;} 
}



/* _bigloo-case-sensitivity */
obj_t BGl__bigloozd2casezd2sensitivityz00zz__readerz00(obj_t BgL_envz00_9708)
{ AN_OBJECT;
{ /* ./Read/reader.scm 75 */
return BGl_za2rgczd2caseza2zd2zz__rgcz00;} 
}



/* bigloo-case-sensitivity-set! */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00(obj_t BgL_valz00_1)
{ AN_OBJECT;
{ /* ./Read/reader.scm 81 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_valz00_1, BGl_symbol10217z00zz__readerz00))
{ /* ./Read/reader.scm 82 */
return ( 
BGl_za2rgczd2caseza2zd2zz__rgcz00 = BGl_symbol10217z00zz__readerz00, BUNSPEC) ;}  else 
{ /* ./Read/reader.scm 82 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_valz00_1, BGl_symbol10216z00zz__readerz00))
{ /* ./Read/reader.scm 82 */
return ( 
BGl_za2rgczd2caseza2zd2zz__rgcz00 = BGl_symbol10216z00zz__readerz00, BUNSPEC) ;}  else 
{ /* ./Read/reader.scm 82 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_valz00_1, BGl_symbol10215z00zz__readerz00))
{ /* ./Read/reader.scm 82 */
return ( 
BGl_za2rgczd2caseza2zd2zz__rgcz00 = BGl_symbol10215z00zz__readerz00, BUNSPEC) ;}  else 
{ /* ./Read/reader.scm 82 */
FAILURE(BGl_string10242z00zz__readerz00,BGl_string10243z00zz__readerz00,BgL_valz00_1);} } } } 
}



/* _bigloo-case-sensitivity-set! */
obj_t BGl__bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00(obj_t BgL_envz00_9709, obj_t BgL_valz00_9710)
{ AN_OBJECT;
{ /* ./Read/reader.scm 81 */
return 
BGl_bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00(BgL_valz00_9710);} 
}



/* reader-reset! */
BGL_EXPORTED_DEF obj_t BGl_readerzd2resetz12zc0zz__readerz00()
{ AN_OBJECT;
{ /* ./Read/reader.scm 122 */
BGl_za2linezd2numberza2zd2zz__readerz00 = 
BINT(((long)1)); 
BGl_za2parzd2openza2zd2zz__readerz00 = ((long)0); 
return ( 
BGl_za2brazd2openza2zd2zz__readerz00 = ((long)0), BUNSPEC) ;} 
}



/* _reader-reset! */
obj_t BGl__readerzd2resetz12zc0zz__readerz00(obj_t BgL_envz00_9711)
{ AN_OBJECT;
{ /* ./Read/reader.scm 122 */
return 
BGl_readerzd2resetz12zc0zz__readerz00();} 
}



/* string-newline-number */
long BGl_stringzd2newlinezd2numberz00zz__readerz00(obj_t BgL_stringz00_2)
{ AN_OBJECT;
{ /* ./Read/reader.scm 133 */
{ 
long BgL_iz00_3439;long BgL_occz00_3440;
{ /* ./Read/reader.scm 134 */
long BgL_auxz00_17854;
{ /* ./Read/reader.scm 134 */
int BgL_auxz00_17855;
BgL_auxz00_17855 = 
STRING_LENGTH(BgL_stringz00_2); 
BgL_auxz00_17854 = 
(long)(BgL_auxz00_17855); } 
BgL_iz00_3439 = 
(BgL_auxz00_17854-((long)1)); } 
BgL_occz00_3440 = ((long)0); 
BgL_loopz00_3441:
if(
(BgL_iz00_3439==((long)-1)))
{ /* ./Read/reader.scm 137 */
return BgL_occz00_3440;}  else 
{ /* ./Read/reader.scm 139 */
bool_t BgL_testz00_17842;
{ /* ./Read/reader.scm 139 */
unsigned char BgL_auxz00_17843;
{ /* ./Read/reader.scm 139 */
int BgL_auxz00_17844;
BgL_auxz00_17844 = 
(int)(BgL_iz00_3439); 
BgL_auxz00_17843 = 
STRING_REF(BgL_stringz00_2, BgL_auxz00_17844); } 
BgL_testz00_17842 = 
(BgL_auxz00_17843==((unsigned char)'\n')); } 
if(BgL_testz00_17842)
{ /* ./Read/reader.scm 139 */
{ 
long BgL_occz00_17850;long BgL_iz00_17848;
BgL_iz00_17848 = 
(BgL_iz00_3439-((long)1)); 
BgL_occz00_17850 = 
(BgL_occz00_3440+((long)1)); 
BgL_occz00_3440 = BgL_occz00_17850; 
BgL_iz00_3439 = BgL_iz00_17848; 
goto BgL_loopz00_3441;} }  else 
{ /* ./Read/reader.scm 139 */
{ 
long BgL_iz00_17852;
BgL_iz00_17852 = 
(BgL_iz00_3439-((long)1)); 
BgL_iz00_3439 = BgL_iz00_17852; 
goto BgL_loopz00_3441;} } } } } 
}



/* read-error */
obj_t BGl_readzd2errorzd2zz__readerz00(char * BgL_msgz00_3, obj_t BgL_objz00_4, obj_t BgL_portz00_5)
{ AN_OBJECT;
{ /* ./Read/reader.scm 147 */
{ /* ./Read/reader.scm 148 */
obj_t BgL_objzd2loczd2_3452;
{ /* ./Read/reader.scm 148 */
bool_t BgL_test6120z00_3466;
BgL_test6120z00_3466 = 
EXTENDED_PAIRP(BgL_objz00_4); 
if(BgL_test6120z00_3466)
{ /* ./Read/reader.scm 149 */
obj_t BgL_ezd2103zd2_3471;
BgL_ezd2103zd2_3471 = 
CER(BgL_objz00_4); 
if(
PAIRP(BgL_ezd2103zd2_3471))
{ /* ./Read/reader.scm 149 */
obj_t BgL_cdrzd2109zd2_3473;
BgL_cdrzd2109zd2_3473 = 
CDR(BgL_ezd2103zd2_3471); 
{ /* ./Read/reader.scm 149 */
bool_t BgL_testz00_17865;
{ /* ./Read/reader.scm 149 */
obj_t BgL_auxz00_17866;
BgL_auxz00_17866 = 
CAR(BgL_ezd2103zd2_3471); 
BgL_testz00_17865 = 
(BgL_auxz00_17866==BGl_symbol10213z00zz__readerz00); } 
if(BgL_testz00_17865)
{ /* ./Read/reader.scm 149 */
if(
PAIRP(BgL_cdrzd2109zd2_3473))
{ /* ./Read/reader.scm 149 */
obj_t BgL_cdrzd2113zd2_3476;
BgL_cdrzd2113zd2_3476 = 
CDR(BgL_cdrzd2109zd2_3473); 
if(
PAIRP(BgL_cdrzd2113zd2_3476))
{ /* ./Read/reader.scm 149 */
obj_t BgL_cdrzd2117zd2_3478;
BgL_cdrzd2117zd2_3478 = 
CDR(BgL_cdrzd2113zd2_3476); 
if(
PAIRP(BgL_cdrzd2117zd2_3478))
{ /* ./Read/reader.scm 149 */
bool_t BgL_testz00_17877;
{ /* ./Read/reader.scm 149 */
obj_t BgL_auxz00_17878;
BgL_auxz00_17878 = 
CDR(BgL_cdrzd2117zd2_3478); 
BgL_testz00_17877 = 
NULLP(BgL_auxz00_17878); } 
if(BgL_testz00_17877)
{ /* ./Read/reader.scm 149 */
BgL_objzd2loczd2_3452 = 
CAR(BgL_cdrzd2113zd2_3476); }  else 
{ /* ./Read/reader.scm 149 */
BgL_objzd2loczd2_3452 = BFALSE; } }  else 
{ /* ./Read/reader.scm 149 */
BgL_objzd2loczd2_3452 = BFALSE; } }  else 
{ /* ./Read/reader.scm 149 */
BgL_objzd2loczd2_3452 = BFALSE; } }  else 
{ /* ./Read/reader.scm 149 */
BgL_objzd2loczd2_3452 = BFALSE; } }  else 
{ /* ./Read/reader.scm 149 */
BgL_objzd2loczd2_3452 = BFALSE; } } }  else 
{ /* ./Read/reader.scm 149 */
BgL_objzd2loczd2_3452 = BFALSE; } }  else 
{ /* ./Read/reader.scm 148 */
BgL_objzd2loczd2_3452 = BFALSE; } } 
{ /* ./Read/reader.scm 148 */
obj_t BgL_locz00_3453;
{ /* ./Read/reader.scm 155 */
bool_t BgL_test6100z00_3457;
if(
INTEGERP(BgL_objzd2loczd2_3452))
{ /* ./Read/reader.scm 155 */
BgL_test6100z00_3457 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 155 */
BgL_test6100z00_3457 = 
REALP(BgL_objzd2loczd2_3452); } 
if(BgL_test6100z00_3457)
{ /* ./Read/reader.scm 155 */
BgL_locz00_3453 = BgL_objzd2loczd2_3452; }  else 
{ /* ./Read/reader.scm 155 */
if(
(BGl_za2parzd2openza2zd2zz__readerz00>((long)0)))
{ /* ./Read/reader.scm 157 */
{ /* ./Read/reader.scm 164 */
long BgL_openzd2keyzd2_3459;
BgL_openzd2keyzd2_3459 = 
(BGl_za2parzd2openza2zd2zz__readerz00-((long)1)); 
{ /* ./Read/reader.scm 160 */
bool_t BgL_test6102z00_3460;
{ /* ./Read/reader.scm 160 */
int BgL_arg6105z00_3461;
BgL_arg6105z00_3461 = 
VECTOR_LENGTH(BGl_za2listzd2errorsza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 160 */
long BgL_auxz00_17890;
BgL_auxz00_17890 = 
(long)(BgL_arg6105z00_3461); 
BgL_test6102z00_3460 = 
(BgL_openzd2keyzd2_3459<BgL_auxz00_17890); } } 
if(BgL_test6102z00_3460)
{ 
int BgL_auxz00_17894;
BgL_auxz00_17894 = 
(int)(BgL_openzd2keyzd2_3459); 
BgL_locz00_3453 = 
VECTOR_REF(BGl_za2listzd2errorsza2zd2zz__readerz00,BgL_auxz00_17894); }  else 
{ /* ./Read/reader.scm 160 */
BgL_locz00_3453 = BFALSE; } } } }  else 
{ /* ./Read/reader.scm 157 */
if(
(BGl_za2brazd2openza2zd2zz__readerz00>((long)0)))
{ /* ./Read/reader.scm 168 */
{ /* ./Read/reader.scm 164 */
long BgL_openzd2keyzd2_3463;
BgL_openzd2keyzd2_3463 = 
(BGl_za2brazd2openza2zd2zz__readerz00-((long)1)); 
{ /* ./Read/reader.scm 165 */
bool_t BgL_test6110z00_3464;
{ /* ./Read/reader.scm 165 */
int BgL_arg6113z00_3465;
BgL_arg6113z00_3465 = 
VECTOR_LENGTH(BGl_za2vectorzd2errorsza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 165 */
long BgL_auxz00_17901;
BgL_auxz00_17901 = 
(long)(BgL_arg6113z00_3465); 
BgL_test6110z00_3464 = 
(BgL_openzd2keyzd2_3463<BgL_auxz00_17901); } } 
if(BgL_test6110z00_3464)
{ 
int BgL_auxz00_17905;
BgL_auxz00_17905 = 
(int)(BgL_openzd2keyzd2_3463); 
BgL_locz00_3453 = 
VECTOR_REF(BGl_za2vectorzd2errorsza2zd2zz__readerz00,BgL_auxz00_17905); }  else 
{ /* ./Read/reader.scm 165 */
BgL_locz00_3453 = BFALSE; } } } }  else 
{ /* ./Read/reader.scm 168 */
BgL_locz00_3453 = BFALSE; } } } } 
{ /* ./Read/reader.scm 155 */

if(
INTEGERP(BgL_locz00_3453))
{ /* ./Read/reader.scm 171 */
char * BgL_arg6095z00_3456;
BgL_arg6095z00_3456 = 
INPUT_PORT_NAME(BgL_portz00_5); 
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, 
string_to_bstring(BgL_msgz00_3), BgL_objz00_4, 
string_to_bstring(BgL_arg6095z00_3456), BgL_locz00_3453);}  else 
{ /* ./Read/reader.scm 172 */
obj_t BgL_messagez00_9129;
BgL_messagez00_9129 = 
string_to_bstring(BgL_msgz00_3); 
FAILURE(BGl_string10207z00zz__readerz00,BgL_messagez00_9129,BgL_objz00_4);} } } } } 
}



/* loop */
obj_t BGl_loopz00zz__readerz00(obj_t BgL_portz00_9758, obj_t BgL_objz00_3486)
{ AN_OBJECT;
{ /* ./Read/reader.scm 178 */
if(
PROCEDUREP(BgL_objz00_3486))
{ /* ./Read/reader.scm 180 */
{ /* ./Read/reader.scm 181 */
obj_t BgL_noz00_3489;
BgL_noz00_3489 = 
PROCEDURE_ENTRY(BgL_objz00_3486)(BgL_objz00_3486, BEOA); 
{ /* ./Read/reader.scm 181 */
obj_t BgL_cellz00_3490;
BgL_cellz00_3490 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_noz00_3489, BGl_za2cycliczd2referencesza2zd2zz__readerz00); 
{ /* ./Read/reader.scm 182 */

if(
PAIRP(BgL_cellz00_3490))
{ /* ./Read/reader.scm 183 */
return 
CDR(BgL_cellz00_3490);}  else 
{ /* ./Read/reader.scm 184 */
char * BgL_arg6164z00_3494;int BgL_arg6165z00_3495;
BgL_arg6164z00_3494 = 
INPUT_PORT_NAME(BgL_portz00_9758); 
BgL_arg6165z00_3495 = 
INPUT_PORT_FILEPOS(BgL_portz00_9758); 
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10244z00zz__readerz00, BgL_noz00_3489, 
string_to_bstring(BgL_arg6164z00_3494), 
BINT(BgL_arg6165z00_3495));} } } } }  else 
{ /* ./Read/reader.scm 180 */
if(
PAIRP(BgL_objz00_3486))
{ /* ./Read/reader.scm 190 */
{ /* ./Read/reader.scm 191 */
obj_t BgL_auxz00_17931;
BgL_auxz00_17931 = 
BGl_loopz00zz__readerz00(BgL_portz00_9758, 
CAR(BgL_objz00_3486)); 
SET_CAR(BgL_objz00_3486, BgL_auxz00_17931); } 
{ /* ./Read/reader.scm 192 */
obj_t BgL_auxz00_17935;
BgL_auxz00_17935 = 
BGl_loopz00zz__readerz00(BgL_portz00_9758, 
CDR(BgL_objz00_3486)); 
SET_CDR(BgL_objz00_3486, BgL_auxz00_17935); } 
return BgL_objz00_3486;}  else 
{ /* ./Read/reader.scm 190 */
if(
VECTORP(BgL_objz00_3486))
{ /* ./Read/reader.scm 194 */
{ /* ./Read/reader.scm 195 */
int BgL_lenz00_3502;
BgL_lenz00_3502 = 
VECTOR_LENGTH(BgL_objz00_3486); 
{ 
long BgL_iz00_3503;
BgL_iz00_3503 = ((long)0); 
BgL_laapz00_3504:
{ /* ./Read/reader.scm 197 */
bool_t BgL_testz00_17942;
{ /* ./Read/reader.scm 197 */
long BgL_auxz00_17943;
BgL_auxz00_17943 = 
(long)(BgL_lenz00_3502); 
BgL_testz00_17942 = 
(BgL_iz00_3503<BgL_auxz00_17943); } 
if(BgL_testz00_17942)
{ /* ./Read/reader.scm 197 */
{ 
obj_t BgL_auxz00_17948;int BgL_auxz00_17946;
{ /* ./Read/reader.scm 199 */
obj_t BgL_auxz00_17949;
{ 
int BgL_auxz00_17950;
BgL_auxz00_17950 = 
(int)(BgL_iz00_3503); 
BgL_auxz00_17949 = 
VECTOR_REF(BgL_objz00_3486,BgL_auxz00_17950); } 
BgL_auxz00_17948 = 
BGl_loopz00zz__readerz00(BgL_portz00_9758, BgL_auxz00_17949); } 
BgL_auxz00_17946 = 
(int)(BgL_iz00_3503); 
VECTOR_SET(BgL_objz00_3486,BgL_auxz00_17946,BgL_auxz00_17948); } 
{ 
long BgL_iz00_17955;
BgL_iz00_17955 = 
(BgL_iz00_3503+((long)1)); 
BgL_iz00_3503 = BgL_iz00_17955; 
goto BgL_laapz00_3504;} }  else 
{ /* ./Read/reader.scm 197 */
return BgL_objz00_3486;} } } } }  else 
{ /* ./Read/reader.scm 194 */
if(
STRUCTP(BgL_objz00_3486))
{ /* ./Read/reader.scm 202 */
{ /* ./Read/reader.scm 203 */
int BgL_lenz00_3510;
BgL_lenz00_3510 = 
VECTOR_LENGTH(BgL_objz00_3486); 
{ 
long BgL_iz00_3511;
BgL_iz00_3511 = ((long)0); 
BgL_laapz00_3512:
{ /* ./Read/reader.scm 205 */
bool_t BgL_testz00_17960;
{ /* ./Read/reader.scm 205 */
long BgL_auxz00_17961;
BgL_auxz00_17961 = 
(long)(BgL_lenz00_3510); 
BgL_testz00_17960 = 
(BgL_iz00_3511<BgL_auxz00_17961); } 
if(BgL_testz00_17960)
{ /* ./Read/reader.scm 205 */
{ /* ./Read/reader.scm 207 */
obj_t BgL_auxz00_17966;int BgL_auxz00_17964;
{ /* ./Read/reader.scm 207 */
obj_t BgL_auxz00_17967;
{ /* ./Read/reader.scm 207 */
int BgL_auxz00_17968;
BgL_auxz00_17968 = 
(int)(BgL_iz00_3511); 
BgL_auxz00_17967 = 
STRUCT_REF(BgL_objz00_3486, BgL_auxz00_17968); } 
BgL_auxz00_17966 = 
BGl_loopz00zz__readerz00(BgL_portz00_9758, BgL_auxz00_17967); } 
BgL_auxz00_17964 = 
(int)(BgL_iz00_3511); 
STRUCT_SET(BgL_objz00_3486, BgL_auxz00_17964, BgL_auxz00_17966); } 
{ 
long BgL_iz00_17973;
BgL_iz00_17973 = 
(BgL_iz00_3511+((long)1)); 
BgL_iz00_3511 = BgL_iz00_17973; 
goto BgL_laapz00_3512;} }  else 
{ /* ./Read/reader.scm 205 */
return BgL_objz00_3486;} } } } }  else 
{ /* ./Read/reader.scm 202 */
return BgL_objz00_3486;} } } } } 
}



/* make-list! */
obj_t BGl_makezd2listz12zc0zz__readerz00(obj_t BgL_lz00_8, obj_t BgL_portz00_9)
{ AN_OBJECT;
{ /* ./Read/reader.scm 216 */
{ 
obj_t BgL_lz00_3540;obj_t BgL_lz00_3527;
if(
NULLP(BgL_lz00_8))
{ /* ./Read/reader.scm 246 */
return BgL_lz00_8;}  else 
{ /* ./Read/reader.scm 248 */
bool_t BgL_test6224z00_3520;
if(
PAIRP(BgL_lz00_8))
{ /* ./Read/reader.scm 248 */
bool_t BgL_testz00_17979;
{ /* ./Read/reader.scm 248 */
obj_t BgL_auxz00_17980;
BgL_auxz00_17980 = 
CDR(BgL_lz00_8); 
BgL_testz00_17979 = 
PAIRP(BgL_auxz00_17980); } 
if(BgL_testz00_17979)
{ /* ./Read/reader.scm 248 */
obj_t BgL_auxz00_17983;
{ /* ./Read/reader.scm 248 */
obj_t BgL_auxz00_17984;
BgL_auxz00_17984 = 
CDR(BgL_lz00_8); 
BgL_auxz00_17983 = 
CAR(BgL_auxz00_17984); } 
BgL_test6224z00_3520 = 
(BgL_auxz00_17983==BGl_za2dottedzd2markza2zd2zz__readerz00); }  else 
{ /* ./Read/reader.scm 248 */
BgL_test6224z00_3520 = ((bool_t)0); } }  else 
{ /* ./Read/reader.scm 248 */
BgL_test6224z00_3520 = ((bool_t)0); } 
if(BgL_test6224z00_3520)
{ /* ./Read/reader.scm 248 */
{ /* ./Read/reader.scm 249 */
bool_t BgL_testz00_17989;
{ /* ./Read/reader.scm 249 */
obj_t BgL_auxz00_17990;
{ /* ./Read/reader.scm 249 */
obj_t BgL_auxz00_17991;
BgL_auxz00_17991 = 
CDR(BgL_lz00_8); 
BgL_auxz00_17990 = 
CDR(BgL_auxz00_17991); } 
BgL_testz00_17989 = 
NULLP(BgL_auxz00_17990); } 
if(BgL_testz00_17989)
{ /* ./Read/reader.scm 249 */
return 
CAR(BgL_lz00_8);}  else 
{ /* ./Read/reader.scm 249 */
BgL_lz00_3527 = BgL_lz00_8; 
{ 
obj_t BgL_lz00_3529;obj_t BgL_rz00_3530;
{ /* ./Read/reader.scm 232 */
obj_t BgL_auxz00_18010;
BgL_auxz00_18010 = 
CDR(BgL_lz00_3527); 
BgL_lz00_3529 = 
CDR(BgL_auxz00_18010); } 
BgL_rz00_3530 = 
CAR(BgL_lz00_3527); 
BgL_nrz00_3531:
{ /* ./Read/reader.scm 235 */
bool_t BgL_testz00_17996;
{ /* ./Read/reader.scm 235 */
obj_t BgL_auxz00_17997;
BgL_auxz00_17997 = 
CAR(BgL_lz00_3529); 
BgL_testz00_17996 = 
(BgL_auxz00_17997==BGl_za2dottedzd2markza2zd2zz__readerz00); } 
if(BgL_testz00_17996)
{ /* ./Read/reader.scm 235 */
return 
BGl_readzd2errorzd2zz__readerz00("Illegal pair", BgL_rz00_3530, BgL_portz00_9);}  else 
{ /* ./Read/reader.scm 237 */
bool_t BgL_testz00_18001;
{ /* ./Read/reader.scm 237 */
obj_t BgL_auxz00_18002;
BgL_auxz00_18002 = 
CDR(BgL_lz00_3529); 
BgL_testz00_18001 = 
NULLP(BgL_auxz00_18002); } 
if(BgL_testz00_18001)
{ /* ./Read/reader.scm 237 */
SET_CDR(BgL_lz00_3529, BgL_rz00_3530); 
return BgL_lz00_3529;}  else 
{ /* ./Read/reader.scm 237 */
{ /* ./Read/reader.scm 241 */
obj_t BgL_cdrlz00_3536;
BgL_cdrlz00_3536 = 
CDR(BgL_lz00_3529); 
{ /* ./Read/reader.scm 243 */
obj_t BgL_arg6257z00_3537;
SET_CDR(BgL_lz00_3529, BgL_rz00_3530); 
BgL_arg6257z00_3537 = BgL_lz00_3529; 
{ 
obj_t BgL_rz00_18009;obj_t BgL_lz00_18008;
BgL_lz00_18008 = BgL_cdrlz00_3536; 
BgL_rz00_18009 = BgL_arg6257z00_3537; 
BgL_rz00_3530 = BgL_rz00_18009; 
BgL_lz00_3529 = BgL_lz00_18008; 
goto BgL_nrz00_3531;} } } } } } } } } }  else 
{ /* ./Read/reader.scm 248 */
BgL_lz00_3540 = BgL_lz00_8; 
{ 
obj_t BgL_lz00_3542;obj_t BgL_rz00_3543;
BgL_lz00_3542 = BgL_lz00_3540; 
BgL_rz00_3543 = BNIL; 
BgL_nrz00_3544:
{ /* ./Read/reader.scm 221 */
bool_t BgL_testz00_18014;
{ /* ./Read/reader.scm 221 */
obj_t BgL_auxz00_18015;
BgL_auxz00_18015 = 
CAR(BgL_lz00_3542); 
BgL_testz00_18014 = 
(BgL_auxz00_18015==BGl_za2dottedzd2markza2zd2zz__readerz00); } 
if(BgL_testz00_18014)
{ /* ./Read/reader.scm 221 */
return 
BGl_readzd2errorzd2zz__readerz00("Illegal pair", BgL_rz00_3543, BgL_portz00_9);}  else 
{ /* ./Read/reader.scm 223 */
bool_t BgL_testz00_18019;
{ /* ./Read/reader.scm 223 */
obj_t BgL_auxz00_18020;
BgL_auxz00_18020 = 
CDR(BgL_lz00_3542); 
BgL_testz00_18019 = 
NULLP(BgL_auxz00_18020); } 
if(BgL_testz00_18019)
{ /* ./Read/reader.scm 223 */
SET_CDR(BgL_lz00_3542, BgL_rz00_3543); 
return BgL_lz00_3542;}  else 
{ /* ./Read/reader.scm 223 */
{ /* ./Read/reader.scm 227 */
obj_t BgL_cdrlz00_3547;
BgL_cdrlz00_3547 = 
CDR(BgL_lz00_3542); 
{ /* ./Read/reader.scm 229 */
obj_t BgL_arg6276z00_3548;
SET_CDR(BgL_lz00_3542, BgL_rz00_3543); 
BgL_arg6276z00_3548 = BgL_lz00_3542; 
{ 
obj_t BgL_rz00_18027;obj_t BgL_lz00_18026;
BgL_lz00_18026 = BgL_cdrlz00_3547; 
BgL_rz00_18027 = BgL_arg6276z00_3548; 
BgL_rz00_3543 = BgL_rz00_18027; 
BgL_lz00_3542 = BgL_lz00_18026; 
goto BgL_nrz00_3544;} } } } } } } } } } } 
}



/* read-quote */
obj_t BGl_readzd2quotezd2zz__readerz00(obj_t BgL_kwotez00_13, obj_t BgL_portz00_14, obj_t BgL_ignorez00_15)
{ AN_OBJECT;
{ /* ./Read/reader.scm 286 */
if(BGl_za2positionzf3za2zf3zz__readerz00)
{ /* ./Read/reader.scm 288 */
int BgL_posz00_3579;
BgL_posz00_3579 = 
INPUT_PORT_FILEPOS(BgL_portz00_14); 
{ /* ./Read/reader.scm 288 */
obj_t BgL_objz00_3580;
BgL_objz00_3580 = 
BGl_ignorez00zz__readerz00(BgL_ignorez00_15); 
{ /* ./Read/reader.scm 289 */

{ /* ./Read/reader.scm 290 */
bool_t BgL_test6338z00_3581;
{ /* ./Read/reader.scm 290 */
bool_t BgL_test6345z00_3585;
BgL_test6345z00_3585 = 
EOF_OBJECTP(BgL_objz00_3580); 
if(BgL_test6345z00_3585)
{ /* ./Read/reader.scm 290 */
BgL_test6338z00_3581 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 290 */
BgL_test6338z00_3581 = 
(BgL_objz00_3580==BGl_za2endzd2ofzd2listza2z00zz__readerz00); } } 
if(BgL_test6338z00_3581)
{ /* ./Read/reader.scm 291 */
char * BgL_arg6342z00_3584;
BgL_arg6342z00_3584 = 
INPUT_PORT_NAME(BgL_portz00_14); 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10245z00zz__readerz00, BgL_kwotez00_13, 
string_to_bstring(BgL_arg6342z00_3584), 
BINT(BgL_posz00_3579)); }  else 
{ /* ./Read/reader.scm 290 */BFALSE; } } 
{ /* ./Read/reader.scm 297 */
obj_t BgL_arg6349z00_3586;obj_t BgL_arg6350z00_3587;
BgL_arg6349z00_3586 = 
MAKE_PAIR(BgL_objz00_3580, BNIL); 
{ /* ./Read/reader.scm 298 */
obj_t BgL_arg6354z00_3588;char * BgL_arg6355z00_3589;
BgL_arg6354z00_3588 = BGl_symbol10213z00zz__readerz00; 
BgL_arg6355z00_3589 = 
INPUT_PORT_NAME(BgL_portz00_14); 
{ /* ./Read/reader.scm 298 */
obj_t BgL_list6357z00_3590;
{ /* ./Read/reader.scm 298 */
obj_t BgL_arg6359z00_3591;
{ /* ./Read/reader.scm 298 */
obj_t BgL_arg6362z00_3592;
{ /* ./Read/reader.scm 298 */
obj_t BgL_arg6365z00_3593;
BgL_arg6365z00_3593 = 
MAKE_PAIR(BGl_za2linezd2numberza2zd2zz__readerz00, BNIL); 
{ /* ./Read/reader.scm 298 */
obj_t BgL_auxz00_18043;
BgL_auxz00_18043 = 
BINT(BgL_posz00_3579); 
BgL_arg6362z00_3592 = 
MAKE_PAIR(BgL_auxz00_18043, BgL_arg6365z00_3593); } } 
{ /* ./Read/reader.scm 298 */
obj_t BgL_auxz00_18046;
BgL_auxz00_18046 = 
string_to_bstring(BgL_arg6355z00_3589); 
BgL_arg6359z00_3591 = 
MAKE_PAIR(BgL_auxz00_18046, BgL_arg6362z00_3592); } } 
BgL_list6357z00_3590 = 
MAKE_PAIR(BgL_arg6354z00_3588, BgL_arg6359z00_3591); } 
BgL_arg6350z00_3587 = BgL_list6357z00_3590; } } 
{ /* ./Read/reader.scm 296 */
obj_t BgL_res8039z00_9250;
BgL_res8039z00_9250 = 
MAKE_EXTENDED_PAIR(BgL_kwotez00_13, BgL_arg6349z00_3586, BgL_arg6350z00_3587); 
return BgL_res8039z00_9250;} } } } }  else 
{ /* ./Read/reader.scm 299 */
obj_t BgL_objz00_3594;
BgL_objz00_3594 = 
BGl_ignorez00zz__readerz00(BgL_ignorez00_15); 
{ /* ./Read/reader.scm 300 */
bool_t BgL_test6371z00_3595;
{ /* ./Read/reader.scm 300 */
bool_t BgL_test6377z00_3597;
BgL_test6377z00_3597 = 
EOF_OBJECTP(BgL_objz00_3594); 
if(BgL_test6377z00_3597)
{ /* ./Read/reader.scm 300 */
BgL_test6371z00_3595 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 300 */
BgL_test6371z00_3595 = 
(BgL_objz00_3594==BGl_za2endzd2ofzd2listza2z00zz__readerz00); } } 
if(BgL_test6371z00_3595)
{ /* ./Read/reader.scm 300 */
FAILURE(BGl_string10207z00zz__readerz00,BGl_string10245z00zz__readerz00,BgL_kwotez00_13);}  else 
{ /* ./Read/reader.scm 302 */
obj_t BgL_arg6374z00_3596;
BgL_arg6374z00_3596 = 
MAKE_PAIR(BgL_objz00_3594, BNIL); 
return 
MAKE_PAIR(BgL_kwotez00_13, BgL_arg6374z00_3596);} } } } 
}



/* read-multi-line-comment */
obj_t BGl_readzd2multizd2linezd2commentzd2zz__readerz00(obj_t BgL_portz00_16)
{ AN_OBJECT;
{ /* ./Read/reader.scm 307 */
{ /* ./Read/reader.scm 308 */
obj_t BgL_gz00_3598;
{ /* ./Read/reader.scm 308 */
obj_t BgL_thezd2rgczd2contextz00_3599;
BgL_thezd2rgczd2contextz00_3599 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Read/reader.scm 308 */
obj_t BgL_zc3anonymousza36382ze3z83_9715;
{ 
int BgL_auxz00_18060;
BgL_auxz00_18060 = 
(int)(((long)1)); 
BgL_zc3anonymousza36382ze3z83_9715 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_18060); } 
{ /* ./Read/reader.scm 308 */
int BgL_auxz00_18063;
BgL_auxz00_18063 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza36382ze3z83_9715, BgL_auxz00_18063, BgL_thezd2rgczd2contextz00_3599); } 
BgL_gz00_3598 = BgL_zc3anonymousza36382ze3z83_9715; } } 
return 
BGl_zc3anonymousza36382ze3z83zz__readerz00(BgL_gz00_3598, BgL_portz00_16, BFALSE);} } 
}



/* ignore_8055 */
obj_t BGl_ignore_8055z00zz__readerz00(obj_t BgL_statezd20zd21003z00_9719, obj_t BgL_thezd2rgczd2contextz00_9718, obj_t BgL_procz00_9717, obj_t BgL_inputzd2portzd2_9716)
{ AN_OBJECT;
{ /* ./Read/reader.scm 308 */
BGl_ignore_8055z00zz__readerz00:
RGC_START_MATCH(BgL_inputzd2portzd2_9716); 
{ /* ./Read/reader.scm 308 */
long BgL_matchz00_3630;
if(
PROCEDUREP(BgL_procz00_9717))
{ /* ./Read/reader.scm 308 */
obj_t BgL_auxz00_18071;
BgL_auxz00_18071 = 
PROCEDURE_ENTRY(BgL_procz00_9717)(BgL_procz00_9717, BgL_statezd20zd21003z00_9719, BgL_inputzd2portzd2_9716, 
BINT(((long)3)), 
CELL_REF(BgL_thezd2rgczd2contextz00_9718), BEOA); 
BgL_matchz00_3630 = 
(long)CINT(BgL_auxz00_18071); }  else 
{ /* ./Read/reader.scm 308 */
obj_t BgL_auxz00_18076;
BgL_auxz00_18076 = 
BGl_STATEzd20zd21003z00zz__readerz00(BgL_statezd20zd21003z00_9719, BgL_inputzd2portzd2_9716, 
BINT(((long)3)), 
CELL_REF(BgL_thezd2rgczd2contextz00_9718)); 
BgL_matchz00_3630 = 
(long)CINT(BgL_auxz00_18076); } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_9716); 
switch( BgL_matchz00_3630) { case ((long)3) : 

{ /* ./Read/reader.scm 317 */
obj_t BgL_cz00_3634;
BgL_cz00_3634 = 
BGl_thezd2failurezd2zz__readerz00(BgL_inputzd2portzd2_9716); 
{ /* ./Read/reader.scm 318 */
bool_t BgL_test6388z00_3635;
BgL_test6388z00_3635 = 
EOF_OBJECTP(BgL_cz00_3634); 
if(BgL_test6388z00_3635)
{ /* ./Read/reader.scm 319 */
char * BgL_arg6392z00_3638;int BgL_arg6393z00_3639;
BgL_arg6392z00_3638 = 
INPUT_PORT_NAME(BgL_inputzd2portzd2_9716); 
BgL_arg6393z00_3639 = 
INPUT_PORT_FILEPOS(BgL_inputzd2portzd2_9716); 
return 
BGl_errorzf2locationzf2zz__errorz00(BGl_string10207z00zz__readerz00, BGl_string10246z00zz__readerz00, BgL_cz00_3634, 
string_to_bstring(BgL_arg6392z00_3638), 
BINT(BgL_arg6393z00_3639));}  else 
{ /* ./Read/reader.scm 318 */
return BFALSE;} } } break;case ((long)2) : 

return BUNSPEC;break;case ((long)1) : 

{ 

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

BGl_readzd2multizd2linezd2commentzd2zz__readerz00(BgL_inputzd2portzd2_9716); 
{ 

goto BGl_ignore_8055z00zz__readerz00;} break;
default: 
{ /* ./Read/reader.scm 308 */
obj_t BgL_objectz00_9263;
BgL_objectz00_9263 = 
BINT(BgL_matchz00_3630); 
FAILURE(BGl_string10238z00zz__readerz00,BGl_string10239z00zz__readerz00,BgL_objectz00_9263);} } } } 
}



/* the-failure */
obj_t BGl_thezd2failurezd2zz__readerz00(obj_t BgL_inputzd2portzd2_9720)
{ AN_OBJECT;
{ /* ./Read/reader.scm 308 */
{ /* ./Read/reader.scm 308 */
bool_t BgL_test6419z00_3650;
{ /* ./Read/reader.scm 308 */
int BgL_arg6426z00_3653;
{ /* ./Read/reader.scm 308 */
int BgL_res8040z00_9271;
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18093;
BgL_auxz00_18093 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9720); 
BgL_res8040z00_9271 = 
(int)(BgL_auxz00_18093); } 
BgL_arg6426z00_3653 = BgL_res8040z00_9271; } 
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18096;
BgL_auxz00_18096 = 
(long)(BgL_arg6426z00_3653); 
BgL_test6419z00_3650 = 
(BgL_auxz00_18096==((long)0)); } } 
if(BgL_test6419z00_3650)
{ /* ./Read/reader.scm 308 */
return BCNST(256);}  else 
{ /* ./Read/reader.scm 308 */
obj_t BgL_arg6421z00_3651;
{ /* ./Read/reader.scm 308 */
obj_t BgL_res8042z00_9281;
{ /* ./Read/reader.scm 308 */
int BgL_arg6462z00_9275;
{ /* ./Read/reader.scm 308 */
int BgL_res8041z00_9277;
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18100;
BgL_auxz00_18100 = 
RGC_BUFFER_LENGTH(BgL_inputzd2portzd2_9720); 
BgL_res8041z00_9277 = 
(int)(BgL_auxz00_18100); } 
BgL_arg6462z00_9275 = BgL_res8041z00_9277; } 
{ /* ./Read/reader.scm 308 */
int BgL_auxz00_18103;
BgL_auxz00_18103 = 
(int)(((long)0)); 
BgL_res8042z00_9281 = 
rgc_buffer_substring(BgL_inputzd2portzd2_9720, BgL_auxz00_18103, BgL_arg6462z00_9275); } } 
BgL_arg6421z00_3651 = BgL_res8042z00_9281; } 
{ /* ./Read/reader.scm 308 */
unsigned char BgL_auxz00_18106;
{ /* ./Read/reader.scm 308 */
int BgL_auxz00_18107;
BgL_auxz00_18107 = 
(int)(((long)0)); 
BgL_auxz00_18106 = 
STRING_REF(BgL_arg6421z00_3651, BgL_auxz00_18107); } 
return 
BCHAR(BgL_auxz00_18106);} } } } 
}



/* <anonymous:6382> */
obj_t BGl_zc3anonymousza36382ze3z83zz__readerz00(obj_t BgL_envz00_9721, obj_t BgL_inputzd2portzd2_9723, obj_t BgL_procz00_9724)
{ AN_OBJECT;
{ /* ./Read/reader.scm 308 */
{ /* ./Read/reader.scm 308 */
obj_t BgL_thezd2rgczd2contextz00_9722;
{ /* ./Read/reader.scm 308 */
int BgL_auxz00_18111;
BgL_auxz00_18111 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_9722 = 
PROCEDURE_1_EL_REF(BgL_envz00_9721, BgL_auxz00_18111); } 
{ 
obj_t BgL_inputzd2portzd2_3600;obj_t BgL_procz00_3601;
BgL_inputzd2portzd2_3600 = BgL_inputzd2portzd2_9723; 
BgL_procz00_3601 = BgL_procz00_9724; 
return 
BGl_ignore_8055z00zz__readerz00(BGl_proc10247z00zz__readerz00, BgL_thezd2rgczd2contextz00_9722, BgL_procz00_3601, BgL_inputzd2portzd2_3600);} } } 
}



/* STATE-0-1003 */
obj_t BGl_STATEzd20zd21003z00zz__readerz00(obj_t BgL_envz00_9725, obj_t BgL_inputzd2portzd2_9726, obj_t BgL_lastzd2matchzd2_9727, obj_t BgL_thezd2rgczd2contextz00_9728)
{ AN_OBJECT;
{ /* ./Read/reader.scm 308 */
{ 
obj_t BgL_inputzd2portzd2_3676;obj_t BgL_lastzd2matchzd2_3677;obj_t BgL_thezd2rgczd2contextz00_3678;
BgL_inputzd2portzd2_3676 = BgL_inputzd2portzd2_9726; 
BgL_lastzd2matchzd2_3677 = BgL_lastzd2matchzd2_9727; 
BgL_thezd2rgczd2contextz00_3678 = BgL_thezd2rgczd2contextz00_9728; 
BgL_zc3anonymousza36468ze3z83_3679:
{ 
obj_t BgL_inputzd2portzd2_3686;obj_t BgL_lastzd2matchzd2_3687;obj_t BgL_thezd2rgczd2contextz00_3688;obj_t BgL_inputzd2portzd2_3696;obj_t BgL_lastzd2matchzd2_3697;obj_t BgL_thezd2rgczd2contextz00_3698;obj_t BgL_inputzd2portzd2_3715;obj_t BgL_lastzd2matchzd2_3716;obj_t BgL_thezd2rgczd2contextz00_3717;obj_t BgL_inputzd2portzd2_3706;long BgL_lastzd2matchzd2_3707;obj_t BgL_thezd2rgczd2contextz00_3708;obj_t BgL_inputzd2portzd2_3746;long BgL_lastzd2matchzd2_3747;obj_t BgL_thezd2rgczd2contextz00_3748;obj_t BgL_inputzd2portzd2_3726;long BgL_lastzd2matchzd2_3727;obj_t BgL_thezd2rgczd2contextz00_3728;
{ /* ./Read/reader.scm 308 */
int BgL_currentzd2charzd2_3680;
BgL_currentzd2charzd2_3680 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3676); 
switch( 
(long)(BgL_currentzd2charzd2_3680)) { case ((long)0) : 

{ /* ./Read/reader.scm 308 */
bool_t BgL_test6470z00_3684;
BgL_test6470z00_3684 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3676); 
if(BgL_test6470z00_3684)
{ /* ./Read/reader.scm 308 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3676))
{ 

goto BgL_zc3anonymousza36468ze3z83_3679;}  else 
{ /* ./Read/reader.scm 308 */
return BgL_lastzd2matchzd2_3677;} }  else 
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18120;
BgL_inputzd2portzd2_3715 = BgL_inputzd2portzd2_3676; 
BgL_lastzd2matchzd2_3716 = BgL_lastzd2matchzd2_3677; 
BgL_thezd2rgczd2contextz00_3717 = BgL_thezd2rgczd2contextz00_3678; 
BgL_zc3anonymousza36526ze3z83_3718:
{ /* ./Read/reader.scm 308 */
long BgL_newzd2matchzd2_3719;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3715); 
BgL_newzd2matchzd2_3719 = ((long)1); 
{ /* ./Read/reader.scm 308 */
int BgL_currentzd2charzd2_3720;
BgL_currentzd2charzd2_3720 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3715); 
switch( 
(long)(BgL_currentzd2charzd2_3720)) { case ((long)0) : 

{ /* ./Read/reader.scm 308 */
bool_t BgL_test6528z00_3724;
BgL_test6528z00_3724 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3715); 
if(BgL_test6528z00_3724)
{ /* ./Read/reader.scm 308 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3715))
{ 

goto BgL_zc3anonymousza36526ze3z83_3718;}  else 
{ /* ./Read/reader.scm 308 */
BgL_auxz00_18120 = BgL_newzd2matchzd2_3719
; } }  else 
{ /* ./Read/reader.scm 308 */
BgL_inputzd2portzd2_3726 = BgL_inputzd2portzd2_3715; 
BgL_lastzd2matchzd2_3727 = BgL_newzd2matchzd2_3719; 
BgL_thezd2rgczd2contextz00_3728 = BgL_thezd2rgczd2contextz00_3717; 
BgL_zc3anonymousza36542ze3z83_3729:
{ /* ./Read/reader.scm 308 */
long BgL_newzd2matchzd2_3730;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3726); 
BgL_newzd2matchzd2_3730 = ((long)1); 
{ /* ./Read/reader.scm 308 */
int BgL_currentzd2charzd2_3731;
BgL_currentzd2charzd2_3731 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3726); 
switch( 
(long)(BgL_currentzd2charzd2_3731)) { case ((long)0) : 

{ /* ./Read/reader.scm 308 */
bool_t BgL_test6544z00_3735;
BgL_test6544z00_3735 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3726); 
if(BgL_test6544z00_3735)
{ /* ./Read/reader.scm 308 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3726))
{ 

goto BgL_zc3anonymousza36542ze3z83_3729;}  else 
{ /* ./Read/reader.scm 308 */
BgL_auxz00_18120 = BgL_newzd2matchzd2_3730
; } }  else 
{ 
long BgL_lastzd2matchzd2_18133;
BgL_lastzd2matchzd2_18133 = BgL_newzd2matchzd2_3730; 
BgL_lastzd2matchzd2_3727 = BgL_lastzd2matchzd2_18133; 
goto BgL_zc3anonymousza36542ze3z83_3729;} } break;case ((long)124) : 

BgL_inputzd2portzd2_3746 = BgL_inputzd2portzd2_3726; 
BgL_lastzd2matchzd2_3747 = BgL_newzd2matchzd2_3730; 
BgL_thezd2rgczd2contextz00_3748 = BgL_thezd2rgczd2contextz00_3728; 
BgL_zc3anonymousza36561ze3z83_3749:
{ /* ./Read/reader.scm 308 */
int BgL_currentzd2charzd2_3750;
BgL_currentzd2charzd2_3750 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3746); 
{ /* ./Read/reader.scm 308 */
bool_t BgL_testz00_18135;
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18136;
BgL_auxz00_18136 = 
(long)(BgL_currentzd2charzd2_3750); 
BgL_testz00_18135 = 
(BgL_auxz00_18136==((long)0)); } 
if(BgL_testz00_18135)
{ /* ./Read/reader.scm 308 */
{ /* ./Read/reader.scm 308 */
bool_t BgL_test6563z00_3752;
BgL_test6563z00_3752 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3746); 
if(BgL_test6563z00_3752)
{ /* ./Read/reader.scm 308 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3746))
{ 

goto BgL_zc3anonymousza36561ze3z83_3749;}  else 
{ /* ./Read/reader.scm 308 */
BgL_auxz00_18120 = BgL_lastzd2matchzd2_3747
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_18145;long BgL_lastzd2matchzd2_18144;obj_t BgL_inputzd2portzd2_18143;
BgL_inputzd2portzd2_18143 = BgL_inputzd2portzd2_3746; 
BgL_lastzd2matchzd2_18144 = BgL_lastzd2matchzd2_3747; 
BgL_thezd2rgczd2contextz00_18145 = BgL_thezd2rgczd2contextz00_3748; 
BgL_thezd2rgczd2contextz00_3728 = BgL_thezd2rgczd2contextz00_18145; 
BgL_lastzd2matchzd2_3727 = BgL_lastzd2matchzd2_18144; 
BgL_inputzd2portzd2_3726 = BgL_inputzd2portzd2_18143; 
goto BgL_zc3anonymousza36542ze3z83_3729;} } }  else 
{ /* ./Read/reader.scm 308 */
bool_t BgL_testz00_18146;
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18147;
BgL_auxz00_18147 = 
(long)(BgL_currentzd2charzd2_3750); 
BgL_testz00_18146 = 
(BgL_auxz00_18147==((long)35)); } 
if(BgL_testz00_18146)
{ /* ./Read/reader.scm 308 */
BgL_auxz00_18120 = BgL_lastzd2matchzd2_3747; }  else 
{ /* ./Read/reader.scm 308 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18152;long BgL_lastzd2matchzd2_18151;obj_t BgL_inputzd2portzd2_18150;
BgL_inputzd2portzd2_18150 = BgL_inputzd2portzd2_3746; 
BgL_lastzd2matchzd2_18151 = BgL_lastzd2matchzd2_3747; 
BgL_thezd2rgczd2contextz00_18152 = BgL_thezd2rgczd2contextz00_3748; 
BgL_thezd2rgczd2contextz00_3728 = BgL_thezd2rgczd2contextz00_18152; 
BgL_lastzd2matchzd2_3727 = BgL_lastzd2matchzd2_18151; 
BgL_inputzd2portzd2_3726 = BgL_inputzd2portzd2_18150; 
goto BgL_zc3anonymousza36542ze3z83_3729;} } } } } break;case ((long)35) : 

BgL_inputzd2portzd2_3706 = BgL_inputzd2portzd2_3726; 
BgL_lastzd2matchzd2_3707 = BgL_newzd2matchzd2_3730; 
BgL_thezd2rgczd2contextz00_3708 = BgL_thezd2rgczd2contextz00_3728; 
BgL_zc3anonymousza36513ze3z83_3709:
{ /* ./Read/reader.scm 308 */
int BgL_currentzd2charzd2_3710;
BgL_currentzd2charzd2_3710 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3706); 
{ /* ./Read/reader.scm 308 */
bool_t BgL_testz00_18154;
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18155;
BgL_auxz00_18155 = 
(long)(BgL_currentzd2charzd2_3710); 
BgL_testz00_18154 = 
(BgL_auxz00_18155==((long)0)); } 
if(BgL_testz00_18154)
{ /* ./Read/reader.scm 308 */
{ /* ./Read/reader.scm 308 */
bool_t BgL_test6515z00_3712;
BgL_test6515z00_3712 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3706); 
if(BgL_test6515z00_3712)
{ /* ./Read/reader.scm 308 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3706))
{ 

goto BgL_zc3anonymousza36513ze3z83_3709;}  else 
{ /* ./Read/reader.scm 308 */
BgL_auxz00_18120 = BgL_lastzd2matchzd2_3707
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_18164;long BgL_lastzd2matchzd2_18163;obj_t BgL_inputzd2portzd2_18162;
BgL_inputzd2portzd2_18162 = BgL_inputzd2portzd2_3706; 
BgL_lastzd2matchzd2_18163 = BgL_lastzd2matchzd2_3707; 
BgL_thezd2rgczd2contextz00_18164 = BgL_thezd2rgczd2contextz00_3708; 
BgL_thezd2rgczd2contextz00_3728 = BgL_thezd2rgczd2contextz00_18164; 
BgL_lastzd2matchzd2_3727 = BgL_lastzd2matchzd2_18163; 
BgL_inputzd2portzd2_3726 = BgL_inputzd2portzd2_18162; 
goto BgL_zc3anonymousza36542ze3z83_3729;} } }  else 
{ /* ./Read/reader.scm 308 */
bool_t BgL_testz00_18165;
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18166;
BgL_auxz00_18166 = 
(long)(BgL_currentzd2charzd2_3710); 
BgL_testz00_18165 = 
(BgL_auxz00_18166==((long)124)); } 
if(BgL_testz00_18165)
{ /* ./Read/reader.scm 308 */
BgL_auxz00_18120 = BgL_lastzd2matchzd2_3707; }  else 
{ /* ./Read/reader.scm 308 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18171;long BgL_lastzd2matchzd2_18170;obj_t BgL_inputzd2portzd2_18169;
BgL_inputzd2portzd2_18169 = BgL_inputzd2portzd2_3706; 
BgL_lastzd2matchzd2_18170 = BgL_lastzd2matchzd2_3707; 
BgL_thezd2rgczd2contextz00_18171 = BgL_thezd2rgczd2contextz00_3708; 
BgL_thezd2rgczd2contextz00_3728 = BgL_thezd2rgczd2contextz00_18171; 
BgL_lastzd2matchzd2_3727 = BgL_lastzd2matchzd2_18170; 
BgL_inputzd2portzd2_3726 = BgL_inputzd2portzd2_18169; 
goto BgL_zc3anonymousza36542ze3z83_3729;} } } } } break;
default: 
{ 
long BgL_lastzd2matchzd2_18172;
BgL_lastzd2matchzd2_18172 = BgL_newzd2matchzd2_3730; 
BgL_lastzd2matchzd2_3727 = BgL_lastzd2matchzd2_18172; 
goto BgL_zc3anonymousza36542ze3z83_3729;} } } } } } break;case ((long)124) : 

{ 
obj_t BgL_thezd2rgczd2contextz00_18177;long BgL_lastzd2matchzd2_18176;obj_t BgL_inputzd2portzd2_18175;
BgL_inputzd2portzd2_18175 = BgL_inputzd2portzd2_3715; 
BgL_lastzd2matchzd2_18176 = BgL_newzd2matchzd2_3719; 
BgL_thezd2rgczd2contextz00_18177 = BgL_thezd2rgczd2contextz00_3717; 
BgL_thezd2rgczd2contextz00_3748 = BgL_thezd2rgczd2contextz00_18177; 
BgL_lastzd2matchzd2_3747 = BgL_lastzd2matchzd2_18176; 
BgL_inputzd2portzd2_3746 = BgL_inputzd2portzd2_18175; 
goto BgL_zc3anonymousza36561ze3z83_3749;} break;case ((long)35) : 

{ 
obj_t BgL_thezd2rgczd2contextz00_18180;long BgL_lastzd2matchzd2_18179;obj_t BgL_inputzd2portzd2_18178;
BgL_inputzd2portzd2_18178 = BgL_inputzd2portzd2_3715; 
BgL_lastzd2matchzd2_18179 = BgL_newzd2matchzd2_3719; 
BgL_thezd2rgczd2contextz00_18180 = BgL_thezd2rgczd2contextz00_3717; 
BgL_thezd2rgczd2contextz00_3708 = BgL_thezd2rgczd2contextz00_18180; 
BgL_lastzd2matchzd2_3707 = BgL_lastzd2matchzd2_18179; 
BgL_inputzd2portzd2_3706 = BgL_inputzd2portzd2_18178; 
goto BgL_zc3anonymousza36513ze3z83_3709;} break;
default: 
{ 
obj_t BgL_thezd2rgczd2contextz00_18183;long BgL_lastzd2matchzd2_18182;obj_t BgL_inputzd2portzd2_18181;
BgL_inputzd2portzd2_18181 = BgL_inputzd2portzd2_3715; 
BgL_lastzd2matchzd2_18182 = BgL_newzd2matchzd2_3719; 
BgL_thezd2rgczd2contextz00_18183 = BgL_thezd2rgczd2contextz00_3717; 
BgL_thezd2rgczd2contextz00_3728 = BgL_thezd2rgczd2contextz00_18183; 
BgL_lastzd2matchzd2_3727 = BgL_lastzd2matchzd2_18182; 
BgL_inputzd2portzd2_3726 = BgL_inputzd2portzd2_18181; 
goto BgL_zc3anonymousza36542ze3z83_3729;} } } } 
return 
BINT(BgL_auxz00_18120);} } break;case ((long)124) : 

{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18187;
BgL_inputzd2portzd2_3696 = BgL_inputzd2portzd2_3676; 
BgL_lastzd2matchzd2_3697 = BgL_lastzd2matchzd2_3677; 
BgL_thezd2rgczd2contextz00_3698 = BgL_thezd2rgczd2contextz00_3678; 
BgL_zc3anonymousza36498ze3z83_3699:
{ /* ./Read/reader.scm 308 */
long BgL_newzd2matchzd2_3700;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3696); 
BgL_newzd2matchzd2_3700 = ((long)3); 
{ /* ./Read/reader.scm 308 */
int BgL_currentzd2charzd2_3701;
BgL_currentzd2charzd2_3701 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3696); 
{ /* ./Read/reader.scm 308 */
bool_t BgL_testz00_18190;
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18191;
BgL_auxz00_18191 = 
(long)(BgL_currentzd2charzd2_3701); 
BgL_testz00_18190 = 
(BgL_auxz00_18191==((long)0)); } 
if(BgL_testz00_18190)
{ /* ./Read/reader.scm 308 */
{ /* ./Read/reader.scm 308 */
bool_t BgL_test6500z00_3703;
BgL_test6500z00_3703 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3696); 
if(BgL_test6500z00_3703)
{ /* ./Read/reader.scm 308 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3696))
{ 

goto BgL_zc3anonymousza36498ze3z83_3699;}  else 
{ /* ./Read/reader.scm 308 */
BgL_auxz00_18187 = BgL_newzd2matchzd2_3700
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_18200;long BgL_lastzd2matchzd2_18199;obj_t BgL_inputzd2portzd2_18198;
BgL_inputzd2portzd2_18198 = BgL_inputzd2portzd2_3696; 
BgL_lastzd2matchzd2_18199 = BgL_newzd2matchzd2_3700; 
BgL_thezd2rgczd2contextz00_18200 = BgL_thezd2rgczd2contextz00_3698; 
BgL_thezd2rgczd2contextz00_3728 = BgL_thezd2rgczd2contextz00_18200; 
BgL_lastzd2matchzd2_3727 = BgL_lastzd2matchzd2_18199; 
BgL_inputzd2portzd2_3726 = BgL_inputzd2portzd2_18198; 
goto BgL_zc3anonymousza36542ze3z83_3729;} } }  else 
{ /* ./Read/reader.scm 308 */
bool_t BgL_testz00_18201;
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18202;
BgL_auxz00_18202 = 
(long)(BgL_currentzd2charzd2_3701); 
BgL_testz00_18201 = 
(BgL_auxz00_18202==((long)35)); } 
if(BgL_testz00_18201)
{ /* ./Read/reader.scm 308 */
{ /* ./Read/reader.scm 308 */
long BgL_newzd2matchzd2_9319;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3696); 
BgL_newzd2matchzd2_9319 = ((long)2); 
BgL_auxz00_18187 = BgL_newzd2matchzd2_9319; } }  else 
{ /* ./Read/reader.scm 308 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18208;long BgL_lastzd2matchzd2_18207;obj_t BgL_inputzd2portzd2_18206;
BgL_inputzd2portzd2_18206 = BgL_inputzd2portzd2_3696; 
BgL_lastzd2matchzd2_18207 = BgL_newzd2matchzd2_3700; 
BgL_thezd2rgczd2contextz00_18208 = BgL_thezd2rgczd2contextz00_3698; 
BgL_thezd2rgczd2contextz00_3728 = BgL_thezd2rgczd2contextz00_18208; 
BgL_lastzd2matchzd2_3727 = BgL_lastzd2matchzd2_18207; 
BgL_inputzd2portzd2_3726 = BgL_inputzd2portzd2_18206; 
goto BgL_zc3anonymousza36542ze3z83_3729;} } } } } } 
return 
BINT(BgL_auxz00_18187);} break;case ((long)35) : 

{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18210;
BgL_inputzd2portzd2_3686 = BgL_inputzd2portzd2_3676; 
BgL_lastzd2matchzd2_3687 = BgL_lastzd2matchzd2_3677; 
BgL_thezd2rgczd2contextz00_3688 = BgL_thezd2rgczd2contextz00_3678; 
BgL_zc3anonymousza36483ze3z83_3689:
{ /* ./Read/reader.scm 308 */
long BgL_newzd2matchzd2_3690;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3686); 
BgL_newzd2matchzd2_3690 = ((long)3); 
{ /* ./Read/reader.scm 308 */
int BgL_currentzd2charzd2_3691;
BgL_currentzd2charzd2_3691 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3686); 
{ /* ./Read/reader.scm 308 */
bool_t BgL_testz00_18213;
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18214;
BgL_auxz00_18214 = 
(long)(BgL_currentzd2charzd2_3691); 
BgL_testz00_18213 = 
(BgL_auxz00_18214==((long)0)); } 
if(BgL_testz00_18213)
{ /* ./Read/reader.scm 308 */
{ /* ./Read/reader.scm 308 */
bool_t BgL_test6485z00_3693;
BgL_test6485z00_3693 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3686); 
if(BgL_test6485z00_3693)
{ /* ./Read/reader.scm 308 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3686))
{ 

goto BgL_zc3anonymousza36483ze3z83_3689;}  else 
{ /* ./Read/reader.scm 308 */
BgL_auxz00_18210 = BgL_newzd2matchzd2_3690
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_18223;long BgL_lastzd2matchzd2_18222;obj_t BgL_inputzd2portzd2_18221;
BgL_inputzd2portzd2_18221 = BgL_inputzd2portzd2_3686; 
BgL_lastzd2matchzd2_18222 = BgL_newzd2matchzd2_3690; 
BgL_thezd2rgczd2contextz00_18223 = BgL_thezd2rgczd2contextz00_3688; 
BgL_thezd2rgczd2contextz00_3728 = BgL_thezd2rgczd2contextz00_18223; 
BgL_lastzd2matchzd2_3727 = BgL_lastzd2matchzd2_18222; 
BgL_inputzd2portzd2_3726 = BgL_inputzd2portzd2_18221; 
goto BgL_zc3anonymousza36542ze3z83_3729;} } }  else 
{ /* ./Read/reader.scm 308 */
bool_t BgL_testz00_18224;
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18225;
BgL_auxz00_18225 = 
(long)(BgL_currentzd2charzd2_3691); 
BgL_testz00_18224 = 
(BgL_auxz00_18225==((long)124)); } 
if(BgL_testz00_18224)
{ /* ./Read/reader.scm 308 */
{ /* ./Read/reader.scm 308 */
long BgL_newzd2matchzd2_9306;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3686); 
BgL_newzd2matchzd2_9306 = ((long)0); 
BgL_auxz00_18210 = BgL_newzd2matchzd2_9306; } }  else 
{ /* ./Read/reader.scm 308 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18231;long BgL_lastzd2matchzd2_18230;obj_t BgL_inputzd2portzd2_18229;
BgL_inputzd2portzd2_18229 = BgL_inputzd2portzd2_3686; 
BgL_lastzd2matchzd2_18230 = BgL_newzd2matchzd2_3690; 
BgL_thezd2rgczd2contextz00_18231 = BgL_thezd2rgczd2contextz00_3688; 
BgL_thezd2rgczd2contextz00_3728 = BgL_thezd2rgczd2contextz00_18231; 
BgL_lastzd2matchzd2_3727 = BgL_lastzd2matchzd2_18230; 
BgL_inputzd2portzd2_3726 = BgL_inputzd2portzd2_18229; 
goto BgL_zc3anonymousza36542ze3z83_3729;} } } } } } 
return 
BINT(BgL_auxz00_18210);} break;
default: 
{ /* ./Read/reader.scm 308 */
long BgL_auxz00_18233;
{ 
obj_t BgL_thezd2rgczd2contextz00_18236;obj_t BgL_lastzd2matchzd2_18235;obj_t BgL_inputzd2portzd2_18234;
BgL_inputzd2portzd2_18234 = BgL_inputzd2portzd2_3676; 
BgL_lastzd2matchzd2_18235 = BgL_lastzd2matchzd2_3677; 
BgL_thezd2rgczd2contextz00_18236 = BgL_thezd2rgczd2contextz00_3678; 
BgL_thezd2rgczd2contextz00_3717 = BgL_thezd2rgczd2contextz00_18236; 
BgL_lastzd2matchzd2_3716 = BgL_lastzd2matchzd2_18235; 
BgL_inputzd2portzd2_3715 = BgL_inputzd2portzd2_18234; 
goto BgL_zc3anonymousza36526ze3z83_3718;} 
return 
BINT(BgL_auxz00_18233);} } } } } } 
}



/* bigloo-regular-grammar */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2regularzd2grammarz00zz__readerz00()
{ AN_OBJECT;
{ /* ./Read/reader.scm 329 */
return BGl_za2bigloozd2grammarza2zd2zz__readerz00;} 
}



/* _bigloo-regular-grammar */
obj_t BGl__bigloozd2regularzd2grammarz00zz__readerz00(obj_t BgL_envz00_9729)
{ AN_OBJECT;
{ /* ./Read/reader.scm 329 */
return BGl_za2bigloozd2grammarza2zd2zz__readerz00;} 
}



/* read */
BGL_EXPORTED_DEF obj_t BGl_readz00zz__readerz00(obj_t BgL_inputzd2portzd2_17)
{ AN_OBJECT;
{ /* ./Read/reader.scm 688 */
BGl_za2positionzf3za2zf3zz__readerz00 = ((bool_t)0); 
BGl_za2cycliczd2referencesza2zd2zz__readerz00 = BNIL; 
if(
NULLP(BgL_inputzd2portzd2_17))
{ /* ./Read/reader.scm 694 */
{ /* ./Read/reader.scm 695 */
obj_t BgL_arg6578z00_3787;
BgL_arg6578z00_3787 = 
BGL_CURRENT_INPUT_PORT(); 
return 
PROCEDURE_ENTRY(BGl_za2bigloozd2grammarza2zd2zz__readerz00)(BGl_za2bigloozd2grammarza2zd2zz__readerz00, BgL_arg6578z00_3787, BFALSE, BEOA);} }  else 
{ /* ./Read/reader.scm 696 */
bool_t BgL_testz00_18245;
{ /* ./Read/reader.scm 696 */
obj_t BgL_auxz00_18246;
BgL_auxz00_18246 = 
CAR(BgL_inputzd2portzd2_17); 
BgL_testz00_18245 = 
INPUT_PORTP(BgL_auxz00_18246); } 
if(BgL_testz00_18245)
{ /* ./Read/reader.scm 696 */
{ /* ./Read/reader.scm 699 */
obj_t BgL_portz00_3789;
BgL_portz00_3789 = 
CAR(BgL_inputzd2portzd2_17); 
{ /* ./Read/reader.scm 700 */
bool_t BgL_test6582z00_3790;
BgL_test6582z00_3790 = 
!RGC_BUFFER(BgL_portz00_3789); 
if(BgL_test6582z00_3790)
{ /* ./Read/reader.scm 700 */
FAILURE(BGl_string10207z00zz__readerz00,BGl_string10248z00zz__readerz00,BgL_portz00_3789);}  else 
{ /* ./Read/reader.scm 706 */
bool_t BgL_testz00_18253;
{ /* ./Read/reader.scm 706 */
obj_t BgL_auxz00_18254;
BgL_auxz00_18254 = 
CDR(BgL_inputzd2portzd2_17); 
BgL_testz00_18253 = 
NULLP(BgL_auxz00_18254); } 
if(BgL_testz00_18253)
{ /* ./Read/reader.scm 706 */
return 
PROCEDURE_ENTRY(BGl_za2bigloozd2grammarza2zd2zz__readerz00)(BGl_za2bigloozd2grammarza2zd2zz__readerz00, BgL_portz00_3789, BFALSE, BEOA);}  else 
{ /* ./Read/reader.scm 706 */
BGl_za2positionzf3za2zf3zz__readerz00 = ((bool_t)1); 
{ /* ./Read/reader.scm 710 */
bool_t BgL_testz00_18259;
{ /* ./Read/reader.scm 710 */
obj_t BgL_auxz00_18260;
{ /* ./Read/reader.scm 710 */
obj_t BgL_auxz00_18261;
BgL_auxz00_18261 = 
CDR(BgL_inputzd2portzd2_17); 
BgL_auxz00_18260 = 
CAR(BgL_auxz00_18261); } 
BgL_testz00_18259 = 
INTEGERP(BgL_auxz00_18260); } 
if(BgL_testz00_18259)
{ /* ./Read/reader.scm 711 */
obj_t BgL_auxz00_18265;
BgL_auxz00_18265 = 
CDR(BgL_inputzd2portzd2_17); 
BGl_za2linezd2numberza2zd2zz__readerz00 = 
CAR(BgL_auxz00_18265); }  else 
{ /* ./Read/reader.scm 710 */BFALSE; } } 
return 
PROCEDURE_ENTRY(BGl_za2bigloozd2grammarza2zd2zz__readerz00)(BGl_za2bigloozd2grammarza2zd2zz__readerz00, BgL_portz00_3789, BFALSE, BEOA);} } } } }  else 
{ /* ./Read/reader.scm 696 */
{ /* ./Read/reader.scm 697 */
obj_t BgL_arg6602z00_3797;
BgL_arg6602z00_3797 = 
CAR(BgL_inputzd2portzd2_17); 
FAILURE(BGl_string10207z00zz__readerz00,BGl_string10249z00zz__readerz00,BgL_arg6602z00_3797);} } } } 
}



/* _read */
obj_t BGl__readz00zz__readerz00(obj_t BgL_envz00_9730, obj_t BgL_inputzd2portzd2_9731)
{ AN_OBJECT;
{ /* ./Read/reader.scm 688 */
return 
BGl_readz00zz__readerz00(BgL_inputzd2portzd2_9731);} 
}



/* read/case */
BGL_EXPORTED_DEF obj_t BGl_readzf2casezf2zz__readerz00(obj_t BgL_casez00_18, obj_t BgL_inputzd2portzd2_19)
{ AN_OBJECT;
{ /* ./Read/reader.scm 717 */
{ /* ./Read/reader.scm 718 */
obj_t BgL_oldz00_3799;
BgL_oldz00_3799 = BGl_za2rgczd2caseza2zd2zz__rgcz00; 
BGl_bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00(BgL_casez00_18); 
{ /* ./Read/reader.scm 720 */
obj_t BgL_val1188z00_3800;
BgL_val1188z00_3800 = 
BGl_zc3exitza36620ze3z83zz__readerz00(BgL_inputzd2portzd2_19); 
BGl_bigloozd2casezd2sensitivityzd2setz12zc0zz__readerz00(BgL_oldz00_3799); 
{ /* ./Read/reader.scm 722 */
bool_t BgL_testz00_18276;
{ /* ./Read/reader.scm 722 */
obj_t BgL_auxz00_18277;
BgL_auxz00_18277 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1188z00_3800); 
BgL_testz00_18276 = 
CBOOL(BgL_auxz00_18277); } 
if(BgL_testz00_18276)
{ /* ./Read/reader.scm 722 */
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(
CAR(BgL_val1188z00_3800), 
CDR(BgL_val1188z00_3800));}  else 
{ /* ./Read/reader.scm 722 */
return BgL_val1188z00_3800;} } } } } 
}



/* <exit:6620> */
obj_t BGl_zc3exitza36620ze3z83zz__readerz00(obj_t BgL_inputzd2portzd2_9757)
{ AN_OBJECT;
{ /* ./Read/reader.scm 722 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1189z00_3805;
if( SET_EXIT(BgL_an_exit1189z00_3805) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1189z00_3805 = 
(obj_t)jmpbuf; 
{ /* ./Read/reader.scm 722 */

PUSH_EXIT(BgL_an_exit1189z00_3805, ((bool_t)0)); 
{ /* ./Read/reader.scm 721 */
obj_t BgL_val1190z00_3806;
BgL_val1190z00_3806 = 
BGl_readz00zz__readerz00(BgL_inputzd2portzd2_9757); 
POP_EXIT(); 
return BgL_val1190z00_3806;} } 
} } 
}



/* _read/case */
obj_t BGl__readzf2casezf2zz__readerz00(obj_t BgL_envz00_9732, obj_t BgL_casez00_9733, obj_t BgL_inputzd2portzd2_9734)
{ AN_OBJECT;
{ /* ./Read/reader.scm 717 */
return 
BGl_readzf2casezf2zz__readerz00(BgL_casez00_9733, BgL_inputzd2portzd2_9734);} 
}



/* read-case-sensitive */
BGL_EXPORTED_DEF obj_t BGl_readzd2casezd2sensitivez00zz__readerz00(obj_t BgL_inputzd2portzd2_20)
{ AN_OBJECT;
{ /* ./Read/reader.scm 729 */
{ /* ./Read/reader.scm 730 */
obj_t BgL_runner6630z00_9381;
{ /* ./Read/reader.scm 730 */
obj_t BgL_list6627z00_9382;
BgL_list6627z00_9382 = 
MAKE_PAIR(BgL_inputzd2portzd2_20, BNIL); 
BgL_runner6630z00_9381 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_symbol10217z00zz__readerz00, BgL_list6627z00_9382); } 
{ /* ./Read/reader.scm 730 */
obj_t BgL_aux6629z00_9383;
BgL_aux6629z00_9383 = 
CAR(BgL_runner6630z00_9381); 
BgL_runner6630z00_9381 = 
CDR(BgL_runner6630z00_9381); 
return 
BGl_readzf2casezf2zz__readerz00(BgL_aux6629z00_9383, BgL_runner6630z00_9381);} } } 
}



/* _read-case-sensitive */
obj_t BGl__readzd2casezd2sensitivez00zz__readerz00(obj_t BgL_envz00_9735, obj_t BgL_inputzd2portzd2_9736)
{ AN_OBJECT;
{ /* ./Read/reader.scm 729 */
return 
BGl_readzd2casezd2sensitivez00zz__readerz00(BgL_inputzd2portzd2_9736);} 
}



/* read-case-insensitive */
BGL_EXPORTED_DEF obj_t BGl_readzd2casezd2insensitivez00zz__readerz00(obj_t BgL_inputzd2portzd2_21)
{ AN_OBJECT;
{ /* ./Read/reader.scm 737 */
{ /* ./Read/reader.scm 738 */
obj_t BgL_runner6637z00_9386;
{ /* ./Read/reader.scm 738 */
obj_t BgL_list6634z00_9387;
BgL_list6634z00_9387 = 
MAKE_PAIR(BgL_inputzd2portzd2_21, BNIL); 
BgL_runner6637z00_9386 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_symbol10216z00zz__readerz00, BgL_list6634z00_9387); } 
{ /* ./Read/reader.scm 738 */
obj_t BgL_aux6636z00_9388;
BgL_aux6636z00_9388 = 
CAR(BgL_runner6637z00_9386); 
BgL_runner6637z00_9386 = 
CDR(BgL_runner6637z00_9386); 
return 
BGl_readzf2casezf2zz__readerz00(BgL_aux6636z00_9388, BgL_runner6637z00_9386);} } } 
}



/* _read-case-insensitive */
obj_t BGl__readzd2casezd2insensitivez00zz__readerz00(obj_t BgL_envz00_9737, obj_t BgL_inputzd2portzd2_9738)
{ AN_OBJECT;
{ /* ./Read/reader.scm 737 */
return 
BGl_readzd2casezd2insensitivez00zz__readerz00(BgL_inputzd2portzd2_9738);} 
}



/* symbol-case-sensitive? */
BGL_EXPORTED_DEF bool_t symbol_case_sensitivep(obj_t BgL_symbz00_22)
{ AN_OBJECT;
{ /* ./Read/reader.scm 743 */
{ /* ./Read/reader.scm 744 */
obj_t BgL_port1191z00_3814;
{ /* ./Read/reader.scm 744 */
obj_t BgL_arg7040z00_4098;
BgL_arg7040z00_4098 = 
SYMBOL_TO_STRING(BgL_symbz00_22); 
BgL_port1191z00_3814 = 
open_input_string(BgL_arg7040z00_4098); } 
{ /* ./Read/reader.scm 744 */
obj_t BgL_val1192z00_3815;
BgL_val1192z00_3815 = 
BGl_zc3exitza36649ze3z83zz__readerz00(BgL_port1191z00_3814); 
close_input_port(BgL_port1191z00_3814); 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18305;
{ /* ./Read/reader.scm 744 */
obj_t BgL_auxz00_18306;
BgL_auxz00_18306 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1192z00_3815); 
BgL_testz00_18305 = 
CBOOL(BgL_auxz00_18306); } 
if(BgL_testz00_18305)
{ /* ./Read/reader.scm 744 */
obj_t BgL_arg6643z00_3817;obj_t BgL_arg6644z00_3818;
BgL_arg6643z00_3817 = 
CAR(BgL_val1192z00_3815); 
BgL_arg6644z00_3818 = 
CDR(BgL_val1192z00_3815); 
{ /* ./Read/reader.scm 744 */
obj_t BgL_auxz00_18311;
BgL_auxz00_18311 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg6643z00_3817, BgL_arg6644z00_3818); 
return 
CBOOL(BgL_auxz00_18311);} }  else 
{ /* ./Read/reader.scm 744 */
return 
CBOOL(BgL_val1192z00_3815);} } } } } 
}



/* <exit:6649> */
obj_t BGl_zc3exitza36649ze3z83zz__readerz00(obj_t BgL_port1191z00_9756)
{ AN_OBJECT;
{ /* ./Read/reader.scm 744 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1193z00_3820;
if( SET_EXIT(BgL_an_exit1193z00_3820) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1193z00_3820 = 
(obj_t)jmpbuf; 
{ /* ./Read/reader.scm 744 */

PUSH_EXIT(BgL_an_exit1193z00_3820, ((bool_t)0)); 
{ /* ./Read/reader.scm 744 */
obj_t BgL_val1194z00_3821;
{ /* ./Read/reader.scm 744 */
obj_t BgL_arg6654z00_3822;
{ /* ./Read/reader.scm 744 */
obj_t BgL_thezd2rgczd2contextz00_3823;
BgL_thezd2rgczd2contextz00_3823 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Read/reader.scm 744 */
obj_t BgL_zc3anonymousza36656ze3z83_9741;
{ 
int BgL_auxz00_18318;
BgL_auxz00_18318 = 
(int)(((long)1)); 
BgL_zc3anonymousza36656ze3z83_9741 = 
MAKE_EL_PROCEDURE_1(BgL_auxz00_18318); } 
{ /* ./Read/reader.scm 744 */
int BgL_auxz00_18321;
BgL_auxz00_18321 = 
(int)(((long)0)); 
PROCEDURE_1_EL_SET(BgL_zc3anonymousza36656ze3z83_9741, BgL_auxz00_18321, BgL_thezd2rgczd2contextz00_3823); } 
BgL_arg6654z00_3822 = BgL_zc3anonymousza36656ze3z83_9741; } } 
BgL_val1194z00_3821 = 
BGl_zc3anonymousza36656ze3z83zz__readerz00(BgL_arg6654z00_3822, BgL_port1191z00_9756, BFALSE); } 
POP_EXIT(); 
return BgL_val1194z00_3821;} } 
} } 
}



/* _symbol-case-sensitive? */
obj_t BGl__symbolzd2casezd2sensitivezf3zf3zz__readerz00(obj_t BgL_envz00_9742, obj_t BgL_symbz00_9743)
{ AN_OBJECT;
{ /* ./Read/reader.scm 743 */
{ /* ./Read/reader.scm 744 */
bool_t BgL_auxz00_18327;
BgL_auxz00_18327 = 
symbol_case_sensitivep(BgL_symbz00_9743); 
return 
BBOOL(BgL_auxz00_18327);} } 
}



/* ignore_8063 */
obj_t BGl_ignore_8063z00zz__readerz00(obj_t BgL_statezd20zd21195z00_9747, obj_t BgL_thezd2rgczd2contextz00_9746, obj_t BgL_procz00_9745, obj_t BgL_inputzd2portzd2_9744)
{ AN_OBJECT;
{ /* ./Read/reader.scm 744 */
RGC_START_MATCH(BgL_inputzd2portzd2_9744); 
{ /* ./Read/reader.scm 744 */
long BgL_matchz00_3854;
if(
PROCEDUREP(BgL_procz00_9745))
{ /* ./Read/reader.scm 744 */
obj_t BgL_auxz00_18333;
BgL_auxz00_18333 = 
PROCEDURE_ENTRY(BgL_procz00_9745)(BgL_procz00_9745, BgL_statezd20zd21195z00_9747, BgL_inputzd2portzd2_9744, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_9746), BEOA); 
BgL_matchz00_3854 = 
(long)CINT(BgL_auxz00_18333); }  else 
{ /* ./Read/reader.scm 744 */
obj_t BgL_auxz00_18338;
BgL_auxz00_18338 = 
BGl_STATEzd20zd21195z00zz__readerz00(BgL_statezd20zd21195z00_9747, BgL_inputzd2portzd2_9744, 
BINT(((long)1)), 
CELL_REF(BgL_thezd2rgczd2contextz00_9746)); 
BgL_matchz00_3854 = 
(long)CINT(BgL_auxz00_18338); } 
RGC_SET_FILEPOS(BgL_inputzd2portzd2_9744); 
switch( BgL_matchz00_3854) { case ((long)1) : 

return BFALSE;break;case ((long)0) : 

return BTRUE;break;
default: 
{ /* ./Read/reader.scm 744 */
obj_t BgL_objectz00_9398;
BgL_objectz00_9398 = 
BINT(BgL_matchz00_3854); 
FAILURE(BGl_string10238z00zz__readerz00,BGl_string10239z00zz__readerz00,BgL_objectz00_9398);} } } } 
}



/* <anonymous:6656> */
obj_t BGl_zc3anonymousza36656ze3z83zz__readerz00(obj_t BgL_envz00_9748, obj_t BgL_inputzd2portzd2_9750, obj_t BgL_procz00_9751)
{ AN_OBJECT;
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
obj_t BgL_thezd2rgczd2contextz00_9749;
{ /* ./Read/reader.scm 744 */
int BgL_auxz00_18346;
BgL_auxz00_18346 = 
(int)(((long)0)); 
BgL_thezd2rgczd2contextz00_9749 = 
PROCEDURE_1_EL_REF(BgL_envz00_9748, BgL_auxz00_18346); } 
{ 
obj_t BgL_inputzd2portzd2_3824;obj_t BgL_procz00_3825;
BgL_inputzd2portzd2_3824 = BgL_inputzd2portzd2_9750; 
BgL_procz00_3825 = BgL_procz00_9751; 
return 
BGl_ignore_8063z00zz__readerz00(BGl_proc10250z00zz__readerz00, BgL_thezd2rgczd2contextz00_9749, BgL_procz00_3825, BgL_inputzd2portzd2_3824);} } } 
}



/* STATE-0-1195 */
obj_t BGl_STATEzd20zd21195z00zz__readerz00(obj_t BgL_envz00_9752, obj_t BgL_inputzd2portzd2_9753, obj_t BgL_lastzd2matchzd2_9754, obj_t BgL_thezd2rgczd2contextz00_9755)
{ AN_OBJECT;
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_inputzd2portzd2_3894;obj_t BgL_lastzd2matchzd2_3895;obj_t BgL_thezd2rgczd2contextz00_3896;
BgL_inputzd2portzd2_3894 = BgL_inputzd2portzd2_9753; 
BgL_lastzd2matchzd2_3895 = BgL_lastzd2matchzd2_9754; 
BgL_thezd2rgczd2contextz00_3896 = BgL_thezd2rgczd2contextz00_9755; 
BgL_zc3anonymousza36728ze3z83_3897:
{ 
obj_t BgL_inputzd2portzd2_4027;obj_t BgL_lastzd2matchzd2_4028;obj_t BgL_thezd2rgczd2contextz00_4029;obj_t BgL_inputzd2portzd2_3935;obj_t BgL_lastzd2matchzd2_3936;obj_t BgL_thezd2rgczd2contextz00_3937;obj_t BgL_inputzd2portzd2_3914;obj_t BgL_lastzd2matchzd2_3915;obj_t BgL_thezd2rgczd2contextz00_3916;obj_t BgL_inputzd2portzd2_4006;long BgL_lastzd2matchzd2_4007;obj_t BgL_thezd2rgczd2contextz00_4008;obj_t BgL_inputzd2portzd2_3976;long BgL_lastzd2matchzd2_3977;obj_t BgL_thezd2rgczd2contextz00_3978;obj_t BgL_inputzd2portzd2_3955;long BgL_lastzd2matchzd2_3956;obj_t BgL_thezd2rgczd2contextz00_3957;obj_t BgL_inputzd2portzd2_3996;long BgL_lastzd2matchzd2_3997;obj_t BgL_thezd2rgczd2contextz00_3998;obj_t BgL_inputzd2portzd2_4048;long BgL_lastzd2matchzd2_4049;obj_t BgL_thezd2rgczd2contextz00_4050;
{ /* ./Read/reader.scm 744 */
int BgL_currentzd2charzd2_3898;
BgL_currentzd2charzd2_3898 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3894); 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18351;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18352;
BgL_auxz00_18352 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18351 = 
(BgL_auxz00_18352==((long)0)); } 
if(BgL_testz00_18351)
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6730z00_3900;
BgL_test6730z00_3900 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3894); 
if(BgL_test6730z00_3900)
{ /* ./Read/reader.scm 744 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3894))
{ 

goto BgL_zc3anonymousza36728ze3z83_3897;}  else 
{ /* ./Read/reader.scm 744 */
return BgL_lastzd2matchzd2_3895;} }  else 
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18359;
BgL_inputzd2portzd2_3914 = BgL_inputzd2portzd2_3894; 
BgL_lastzd2matchzd2_3915 = BgL_lastzd2matchzd2_3895; 
BgL_thezd2rgczd2contextz00_3916 = BgL_thezd2rgczd2contextz00_3896; 
BgL_zc3anonymousza36765ze3z83_3917:
{ /* ./Read/reader.scm 744 */
long BgL_newzd2matchzd2_3918;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3914); 
BgL_newzd2matchzd2_3918 = ((long)0); 
{ /* ./Read/reader.scm 744 */
int BgL_currentzd2charzd2_3919;
BgL_currentzd2charzd2_3919 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3914); 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18362;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18363;
BgL_auxz00_18363 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18362 = 
(BgL_auxz00_18363==((long)0)); } 
if(BgL_testz00_18362)
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6767z00_3921;
BgL_test6767z00_3921 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3914); 
if(BgL_test6767z00_3921)
{ /* ./Read/reader.scm 744 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3914))
{ 

goto BgL_zc3anonymousza36765ze3z83_3917;}  else 
{ /* ./Read/reader.scm 744 */
BgL_auxz00_18359 = BgL_newzd2matchzd2_3918
; } }  else 
{ /* ./Read/reader.scm 744 */
BgL_inputzd2portzd2_3955 = BgL_inputzd2portzd2_3914; 
BgL_lastzd2matchzd2_3956 = BgL_newzd2matchzd2_3918; 
BgL_thezd2rgczd2contextz00_3957 = BgL_thezd2rgczd2contextz00_3916; 
BgL_zc3anonymousza36838ze3z83_3958:
{ /* ./Read/reader.scm 744 */
long BgL_newzd2matchzd2_3959;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3955); 
BgL_newzd2matchzd2_3959 = ((long)0); 
{ /* ./Read/reader.scm 744 */
int BgL_currentzd2charzd2_3960;
BgL_currentzd2charzd2_3960 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3955); 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18372;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18373;
BgL_auxz00_18373 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18372 = 
(BgL_auxz00_18373==((long)0)); } 
if(BgL_testz00_18372)
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6840z00_3962;
BgL_test6840z00_3962 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3955); 
if(BgL_test6840z00_3962)
{ /* ./Read/reader.scm 744 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3955))
{ 

goto BgL_zc3anonymousza36838ze3z83_3958;}  else 
{ /* ./Read/reader.scm 744 */
BgL_auxz00_18359 = BgL_newzd2matchzd2_3959
; } }  else 
{ 
long BgL_lastzd2matchzd2_18380;
BgL_lastzd2matchzd2_18380 = BgL_newzd2matchzd2_3959; 
BgL_lastzd2matchzd2_3956 = BgL_lastzd2matchzd2_18380; 
goto BgL_zc3anonymousza36838ze3z83_3958;} } }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6846z00_3964;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18381;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18382;
BgL_auxz00_18382 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18381 = 
(BgL_auxz00_18382==((long)33)); } 
if(BgL_testz00_18381)
{ /* ./Read/reader.scm 744 */
BgL_test6846z00_3964 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18385;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18386;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18387;
BgL_auxz00_18387 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18386 = 
(BgL_auxz00_18387>=((long)36)); } 
if(BgL_testz00_18386)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18390;
BgL_auxz00_18390 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18385 = 
(BgL_auxz00_18390<((long)40)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18385 = ((bool_t)0)
; } } 
if(BgL_testz00_18385)
{ /* ./Read/reader.scm 744 */
BgL_test6846z00_3964 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18393;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18394;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18395;
BgL_auxz00_18395 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18394 = 
(BgL_auxz00_18395>=((long)42)); } 
if(BgL_testz00_18394)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18398;
BgL_auxz00_18398 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18393 = 
(BgL_auxz00_18398<((long)59)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18393 = ((bool_t)0)
; } } 
if(BgL_testz00_18393)
{ /* ./Read/reader.scm 744 */
BgL_test6846z00_3964 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18401;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18402;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18403;
BgL_auxz00_18403 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18402 = 
(BgL_auxz00_18403>=((long)60)); } 
if(BgL_testz00_18402)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18406;
BgL_auxz00_18406 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18401 = 
(BgL_auxz00_18406<((long)91)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18401 = ((bool_t)0)
; } } 
if(BgL_testz00_18401)
{ /* ./Read/reader.scm 744 */
BgL_test6846z00_3964 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18409;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18410;
BgL_auxz00_18410 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18409 = 
(BgL_auxz00_18410==((long)92)); } 
if(BgL_testz00_18409)
{ /* ./Read/reader.scm 744 */
BgL_test6846z00_3964 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18413;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18414;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18415;
BgL_auxz00_18415 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18414 = 
(BgL_auxz00_18415>=((long)94)); } 
if(BgL_testz00_18414)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18418;
BgL_auxz00_18418 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18413 = 
(BgL_auxz00_18418<((long)123)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18413 = ((bool_t)0)
; } } 
if(BgL_testz00_18413)
{ /* ./Read/reader.scm 744 */
BgL_test6846z00_3964 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18421;
BgL_auxz00_18421 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_test6846z00_3964 = 
(BgL_auxz00_18421==((long)126)); } } } } } } } 
if(BgL_test6846z00_3964)
{ /* ./Read/reader.scm 744 */
BgL_inputzd2portzd2_4006 = BgL_inputzd2portzd2_3955; 
BgL_lastzd2matchzd2_4007 = BgL_newzd2matchzd2_3959; 
BgL_thezd2rgczd2contextz00_4008 = BgL_thezd2rgczd2contextz00_3957; 
BgL_zc3anonymousza36925ze3z83_4009:
{ /* ./Read/reader.scm 744 */
long BgL_newzd2matchzd2_4010;
RGC_STOP_MATCH(BgL_inputzd2portzd2_4006); 
BgL_newzd2matchzd2_4010 = ((long)0); 
{ /* ./Read/reader.scm 744 */
int BgL_currentzd2charzd2_4011;
BgL_currentzd2charzd2_4011 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_4006); 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18427;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18428;
BgL_auxz00_18428 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18427 = 
(BgL_auxz00_18428==((long)0)); } 
if(BgL_testz00_18427)
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6927z00_4013;
BgL_test6927z00_4013 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_4006); 
if(BgL_test6927z00_4013)
{ /* ./Read/reader.scm 744 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_4006))
{ 

goto BgL_zc3anonymousza36925ze3z83_4009;}  else 
{ /* ./Read/reader.scm 744 */
BgL_auxz00_18359 = BgL_newzd2matchzd2_4010
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_18437;long BgL_lastzd2matchzd2_18436;obj_t BgL_inputzd2portzd2_18435;
BgL_inputzd2portzd2_18435 = BgL_inputzd2portzd2_4006; 
BgL_lastzd2matchzd2_18436 = BgL_newzd2matchzd2_4010; 
BgL_thezd2rgczd2contextz00_18437 = BgL_thezd2rgczd2contextz00_4008; 
BgL_thezd2rgczd2contextz00_3957 = BgL_thezd2rgczd2contextz00_18437; 
BgL_lastzd2matchzd2_3956 = BgL_lastzd2matchzd2_18436; 
BgL_inputzd2portzd2_3955 = BgL_inputzd2portzd2_18435; 
goto BgL_zc3anonymousza36838ze3z83_3958;} } }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6933z00_4015;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18438;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18439;
BgL_auxz00_18439 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18438 = 
(BgL_auxz00_18439==((long)33)); } 
if(BgL_testz00_18438)
{ /* ./Read/reader.scm 744 */
BgL_test6933z00_4015 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18442;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18443;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18444;
BgL_auxz00_18444 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18443 = 
(BgL_auxz00_18444>=((long)36)); } 
if(BgL_testz00_18443)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18447;
BgL_auxz00_18447 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18442 = 
(BgL_auxz00_18447<((long)40)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18442 = ((bool_t)0)
; } } 
if(BgL_testz00_18442)
{ /* ./Read/reader.scm 744 */
BgL_test6933z00_4015 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18450;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18451;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18452;
BgL_auxz00_18452 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18451 = 
(BgL_auxz00_18452>=((long)42)); } 
if(BgL_testz00_18451)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18455;
BgL_auxz00_18455 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18450 = 
(BgL_auxz00_18455<((long)59)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18450 = ((bool_t)0)
; } } 
if(BgL_testz00_18450)
{ /* ./Read/reader.scm 744 */
BgL_test6933z00_4015 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18458;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18459;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18460;
BgL_auxz00_18460 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18459 = 
(BgL_auxz00_18460>=((long)60)); } 
if(BgL_testz00_18459)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18463;
BgL_auxz00_18463 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18458 = 
(BgL_auxz00_18463<((long)91)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18458 = ((bool_t)0)
; } } 
if(BgL_testz00_18458)
{ /* ./Read/reader.scm 744 */
BgL_test6933z00_4015 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18466;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18467;
BgL_auxz00_18467 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18466 = 
(BgL_auxz00_18467==((long)92)); } 
if(BgL_testz00_18466)
{ /* ./Read/reader.scm 744 */
BgL_test6933z00_4015 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18470;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18471;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18472;
BgL_auxz00_18472 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18471 = 
(BgL_auxz00_18472>=((long)94)); } 
if(BgL_testz00_18471)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18475;
BgL_auxz00_18475 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18470 = 
(BgL_auxz00_18475<((long)123)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18470 = ((bool_t)0)
; } } 
if(BgL_testz00_18470)
{ /* ./Read/reader.scm 744 */
BgL_test6933z00_4015 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18478;
BgL_auxz00_18478 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_test6933z00_4015 = 
(BgL_auxz00_18478==((long)126)); } } } } } } } 
if(BgL_test6933z00_4015)
{ /* ./Read/reader.scm 744 */
{ 
long BgL_lastzd2matchzd2_18482;
BgL_lastzd2matchzd2_18482 = BgL_newzd2matchzd2_4010; 
BgL_lastzd2matchzd2_4007 = BgL_lastzd2matchzd2_18482; 
goto BgL_zc3anonymousza36925ze3z83_4009;} }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18483;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18484;
BgL_auxz00_18484 = 
(long)(BgL_currentzd2charzd2_4011); 
BgL_testz00_18483 = 
(BgL_auxz00_18484==((long)10)); } 
if(BgL_testz00_18483)
{ /* ./Read/reader.scm 744 */
BgL_inputzd2portzd2_3976 = BgL_inputzd2portzd2_4006; 
BgL_lastzd2matchzd2_3977 = BgL_newzd2matchzd2_4010; 
BgL_thezd2rgczd2contextz00_3978 = BgL_thezd2rgczd2contextz00_4008; 
BgL_zc3anonymousza36876ze3z83_3979:
{ /* ./Read/reader.scm 744 */
long BgL_newzd2matchzd2_3980;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3976); 
BgL_newzd2matchzd2_3980 = ((long)0); 
{ /* ./Read/reader.scm 744 */
int BgL_currentzd2charzd2_3981;
BgL_currentzd2charzd2_3981 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3976); 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18489;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18490;
BgL_auxz00_18490 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_testz00_18489 = 
(BgL_auxz00_18490==((long)0)); } 
if(BgL_testz00_18489)
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6878z00_3983;
BgL_test6878z00_3983 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3976); 
if(BgL_test6878z00_3983)
{ /* ./Read/reader.scm 744 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3976))
{ 

goto BgL_zc3anonymousza36876ze3z83_3979;}  else 
{ /* ./Read/reader.scm 744 */
BgL_auxz00_18359 = BgL_newzd2matchzd2_3980
; } }  else 
{ 
long BgL_lastzd2matchzd2_18497;
BgL_lastzd2matchzd2_18497 = BgL_newzd2matchzd2_3980; 
BgL_lastzd2matchzd2_3977 = BgL_lastzd2matchzd2_18497; 
goto BgL_zc3anonymousza36876ze3z83_3979;} } }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6884z00_3985;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18498;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18499;
BgL_auxz00_18499 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_testz00_18498 = 
(BgL_auxz00_18499==((long)33)); } 
if(BgL_testz00_18498)
{ /* ./Read/reader.scm 744 */
BgL_test6884z00_3985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18502;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18503;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18504;
BgL_auxz00_18504 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_testz00_18503 = 
(BgL_auxz00_18504>=((long)36)); } 
if(BgL_testz00_18503)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18507;
BgL_auxz00_18507 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_testz00_18502 = 
(BgL_auxz00_18507<((long)40)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18502 = ((bool_t)0)
; } } 
if(BgL_testz00_18502)
{ /* ./Read/reader.scm 744 */
BgL_test6884z00_3985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18510;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18511;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18512;
BgL_auxz00_18512 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_testz00_18511 = 
(BgL_auxz00_18512>=((long)42)); } 
if(BgL_testz00_18511)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18515;
BgL_auxz00_18515 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_testz00_18510 = 
(BgL_auxz00_18515<((long)59)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18510 = ((bool_t)0)
; } } 
if(BgL_testz00_18510)
{ /* ./Read/reader.scm 744 */
BgL_test6884z00_3985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18518;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18519;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18520;
BgL_auxz00_18520 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_testz00_18519 = 
(BgL_auxz00_18520>=((long)60)); } 
if(BgL_testz00_18519)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18523;
BgL_auxz00_18523 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_testz00_18518 = 
(BgL_auxz00_18523<((long)91)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18518 = ((bool_t)0)
; } } 
if(BgL_testz00_18518)
{ /* ./Read/reader.scm 744 */
BgL_test6884z00_3985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18526;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18527;
BgL_auxz00_18527 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_testz00_18526 = 
(BgL_auxz00_18527==((long)92)); } 
if(BgL_testz00_18526)
{ /* ./Read/reader.scm 744 */
BgL_test6884z00_3985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18530;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18531;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18532;
BgL_auxz00_18532 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_testz00_18531 = 
(BgL_auxz00_18532>=((long)94)); } 
if(BgL_testz00_18531)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18535;
BgL_auxz00_18535 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_testz00_18530 = 
(BgL_auxz00_18535<((long)123)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18530 = ((bool_t)0)
; } } 
if(BgL_testz00_18530)
{ /* ./Read/reader.scm 744 */
BgL_test6884z00_3985 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18538;
BgL_auxz00_18538 = 
(long)(BgL_currentzd2charzd2_3981); 
BgL_test6884z00_3985 = 
(BgL_auxz00_18538==((long)126)); } } } } } } } 
if(BgL_test6884z00_3985)
{ /* ./Read/reader.scm 744 */
BgL_inputzd2portzd2_3996 = BgL_inputzd2portzd2_3976; 
BgL_lastzd2matchzd2_3997 = BgL_newzd2matchzd2_3980; 
BgL_thezd2rgczd2contextz00_3998 = BgL_thezd2rgczd2contextz00_3978; 
BgL_zc3anonymousza36911ze3z83_3999:
{ /* ./Read/reader.scm 744 */
long BgL_newzd2matchzd2_4000;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3996); 
BgL_newzd2matchzd2_4000 = ((long)0); 
{ /* ./Read/reader.scm 744 */
int BgL_currentzd2charzd2_4001;
BgL_currentzd2charzd2_4001 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3996); 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18544;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18545;
BgL_auxz00_18545 = 
(long)(BgL_currentzd2charzd2_4001); 
BgL_testz00_18544 = 
(BgL_auxz00_18545==((long)0)); } 
if(BgL_testz00_18544)
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6913z00_4003;
BgL_test6913z00_4003 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3996); 
if(BgL_test6913z00_4003)
{ /* ./Read/reader.scm 744 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3996))
{ 

goto BgL_zc3anonymousza36911ze3z83_3999;}  else 
{ /* ./Read/reader.scm 744 */
BgL_auxz00_18359 = BgL_newzd2matchzd2_4000
; } }  else 
{ 
long BgL_lastzd2matchzd2_18552;
BgL_lastzd2matchzd2_18552 = BgL_newzd2matchzd2_4000; 
BgL_lastzd2matchzd2_3997 = BgL_lastzd2matchzd2_18552; 
goto BgL_zc3anonymousza36911ze3z83_3999;} } }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18553;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18554;
BgL_auxz00_18554 = 
(long)(BgL_currentzd2charzd2_4001); 
BgL_testz00_18553 = 
(BgL_auxz00_18554==((long)10)); } 
if(BgL_testz00_18553)
{ /* ./Read/reader.scm 744 */
BgL_auxz00_18359 = BgL_newzd2matchzd2_4000; }  else 
{ /* ./Read/reader.scm 744 */
{ 
long BgL_lastzd2matchzd2_18557;
BgL_lastzd2matchzd2_18557 = BgL_newzd2matchzd2_4000; 
BgL_lastzd2matchzd2_3997 = BgL_lastzd2matchzd2_18557; 
goto BgL_zc3anonymousza36911ze3z83_3999;} } } } } } }  else 
{ /* ./Read/reader.scm 744 */
{ 
long BgL_lastzd2matchzd2_18558;
BgL_lastzd2matchzd2_18558 = BgL_newzd2matchzd2_3980; 
BgL_lastzd2matchzd2_3977 = BgL_lastzd2matchzd2_18558; 
goto BgL_zc3anonymousza36876ze3z83_3979;} } } } } } }  else 
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18561;long BgL_lastzd2matchzd2_18560;obj_t BgL_inputzd2portzd2_18559;
BgL_inputzd2portzd2_18559 = BgL_inputzd2portzd2_4006; 
BgL_lastzd2matchzd2_18560 = BgL_newzd2matchzd2_4010; 
BgL_thezd2rgczd2contextz00_18561 = BgL_thezd2rgczd2contextz00_4008; 
BgL_thezd2rgczd2contextz00_3957 = BgL_thezd2rgczd2contextz00_18561; 
BgL_lastzd2matchzd2_3956 = BgL_lastzd2matchzd2_18560; 
BgL_inputzd2portzd2_3955 = BgL_inputzd2portzd2_18559; 
goto BgL_zc3anonymousza36838ze3z83_3958;} } } } } } } }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18562;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18563;
BgL_auxz00_18563 = 
(long)(BgL_currentzd2charzd2_3960); 
BgL_testz00_18562 = 
(BgL_auxz00_18563==((long)10)); } 
if(BgL_testz00_18562)
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18568;long BgL_lastzd2matchzd2_18567;obj_t BgL_inputzd2portzd2_18566;
BgL_inputzd2portzd2_18566 = BgL_inputzd2portzd2_3955; 
BgL_lastzd2matchzd2_18567 = BgL_newzd2matchzd2_3959; 
BgL_thezd2rgczd2contextz00_18568 = BgL_thezd2rgczd2contextz00_3957; 
BgL_thezd2rgczd2contextz00_3978 = BgL_thezd2rgczd2contextz00_18568; 
BgL_lastzd2matchzd2_3977 = BgL_lastzd2matchzd2_18567; 
BgL_inputzd2portzd2_3976 = BgL_inputzd2portzd2_18566; 
goto BgL_zc3anonymousza36876ze3z83_3979;} }  else 
{ /* ./Read/reader.scm 744 */
{ 
long BgL_lastzd2matchzd2_18569;
BgL_lastzd2matchzd2_18569 = BgL_newzd2matchzd2_3959; 
BgL_lastzd2matchzd2_3956 = BgL_lastzd2matchzd2_18569; 
goto BgL_zc3anonymousza36838ze3z83_3958;} } } } } } } } } }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6773z00_3923;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18570;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18571;
BgL_auxz00_18571 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18570 = 
(BgL_auxz00_18571==((long)33)); } 
if(BgL_testz00_18570)
{ /* ./Read/reader.scm 744 */
BgL_test6773z00_3923 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18574;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18575;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18576;
BgL_auxz00_18576 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18575 = 
(BgL_auxz00_18576>=((long)36)); } 
if(BgL_testz00_18575)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18579;
BgL_auxz00_18579 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18574 = 
(BgL_auxz00_18579<((long)40)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18574 = ((bool_t)0)
; } } 
if(BgL_testz00_18574)
{ /* ./Read/reader.scm 744 */
BgL_test6773z00_3923 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18582;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18583;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18584;
BgL_auxz00_18584 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18583 = 
(BgL_auxz00_18584>=((long)42)); } 
if(BgL_testz00_18583)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18587;
BgL_auxz00_18587 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18582 = 
(BgL_auxz00_18587<((long)59)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18582 = ((bool_t)0)
; } } 
if(BgL_testz00_18582)
{ /* ./Read/reader.scm 744 */
BgL_test6773z00_3923 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18590;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18591;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18592;
BgL_auxz00_18592 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18591 = 
(BgL_auxz00_18592>=((long)60)); } 
if(BgL_testz00_18591)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18595;
BgL_auxz00_18595 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18590 = 
(BgL_auxz00_18595<((long)91)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18590 = ((bool_t)0)
; } } 
if(BgL_testz00_18590)
{ /* ./Read/reader.scm 744 */
BgL_test6773z00_3923 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18598;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18599;
BgL_auxz00_18599 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18598 = 
(BgL_auxz00_18599==((long)92)); } 
if(BgL_testz00_18598)
{ /* ./Read/reader.scm 744 */
BgL_test6773z00_3923 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18602;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18603;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18604;
BgL_auxz00_18604 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18603 = 
(BgL_auxz00_18604>=((long)94)); } 
if(BgL_testz00_18603)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18607;
BgL_auxz00_18607 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18602 = 
(BgL_auxz00_18607<((long)123)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18602 = ((bool_t)0)
; } } 
if(BgL_testz00_18602)
{ /* ./Read/reader.scm 744 */
BgL_test6773z00_3923 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18610;
BgL_auxz00_18610 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_test6773z00_3923 = 
(BgL_auxz00_18610==((long)126)); } } } } } } } 
if(BgL_test6773z00_3923)
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18616;long BgL_lastzd2matchzd2_18615;obj_t BgL_inputzd2portzd2_18614;
BgL_inputzd2portzd2_18614 = BgL_inputzd2portzd2_3914; 
BgL_lastzd2matchzd2_18615 = BgL_newzd2matchzd2_3918; 
BgL_thezd2rgczd2contextz00_18616 = BgL_thezd2rgczd2contextz00_3916; 
BgL_thezd2rgczd2contextz00_4008 = BgL_thezd2rgczd2contextz00_18616; 
BgL_lastzd2matchzd2_4007 = BgL_lastzd2matchzd2_18615; 
BgL_inputzd2portzd2_4006 = BgL_inputzd2portzd2_18614; 
goto BgL_zc3anonymousza36925ze3z83_4009;} }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18617;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18618;
BgL_auxz00_18618 = 
(long)(BgL_currentzd2charzd2_3919); 
BgL_testz00_18617 = 
(BgL_auxz00_18618==((long)10)); } 
if(BgL_testz00_18617)
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18623;long BgL_lastzd2matchzd2_18622;obj_t BgL_inputzd2portzd2_18621;
BgL_inputzd2portzd2_18621 = BgL_inputzd2portzd2_3914; 
BgL_lastzd2matchzd2_18622 = BgL_newzd2matchzd2_3918; 
BgL_thezd2rgczd2contextz00_18623 = BgL_thezd2rgczd2contextz00_3916; 
BgL_thezd2rgczd2contextz00_3978 = BgL_thezd2rgczd2contextz00_18623; 
BgL_lastzd2matchzd2_3977 = BgL_lastzd2matchzd2_18622; 
BgL_inputzd2portzd2_3976 = BgL_inputzd2portzd2_18621; 
goto BgL_zc3anonymousza36876ze3z83_3979;} }  else 
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18626;long BgL_lastzd2matchzd2_18625;obj_t BgL_inputzd2portzd2_18624;
BgL_inputzd2portzd2_18624 = BgL_inputzd2portzd2_3914; 
BgL_lastzd2matchzd2_18625 = BgL_newzd2matchzd2_3918; 
BgL_thezd2rgczd2contextz00_18626 = BgL_thezd2rgczd2contextz00_3916; 
BgL_thezd2rgczd2contextz00_3957 = BgL_thezd2rgczd2contextz00_18626; 
BgL_lastzd2matchzd2_3956 = BgL_lastzd2matchzd2_18625; 
BgL_inputzd2portzd2_3955 = BgL_inputzd2portzd2_18624; 
goto BgL_zc3anonymousza36838ze3z83_3958;} } } } } } } 
return 
BINT(BgL_auxz00_18359);} } }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6736z00_3902;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18628;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18629;
BgL_auxz00_18629 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18628 = 
(BgL_auxz00_18629==((long)33)); } 
if(BgL_testz00_18628)
{ /* ./Read/reader.scm 744 */
BgL_test6736z00_3902 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18632;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18633;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18634;
BgL_auxz00_18634 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18633 = 
(BgL_auxz00_18634>=((long)36)); } 
if(BgL_testz00_18633)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18637;
BgL_auxz00_18637 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18632 = 
(BgL_auxz00_18637<((long)40)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18632 = ((bool_t)0)
; } } 
if(BgL_testz00_18632)
{ /* ./Read/reader.scm 744 */
BgL_test6736z00_3902 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18640;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18641;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18642;
BgL_auxz00_18642 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18641 = 
(BgL_auxz00_18642>=((long)42)); } 
if(BgL_testz00_18641)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18645;
BgL_auxz00_18645 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18640 = 
(BgL_auxz00_18645<((long)59)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18640 = ((bool_t)0)
; } } 
if(BgL_testz00_18640)
{ /* ./Read/reader.scm 744 */
BgL_test6736z00_3902 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18648;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18649;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18650;
BgL_auxz00_18650 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18649 = 
(BgL_auxz00_18650>=((long)60)); } 
if(BgL_testz00_18649)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18653;
BgL_auxz00_18653 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18648 = 
(BgL_auxz00_18653<((long)91)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18648 = ((bool_t)0)
; } } 
if(BgL_testz00_18648)
{ /* ./Read/reader.scm 744 */
BgL_test6736z00_3902 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18656;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18657;
BgL_auxz00_18657 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18656 = 
(BgL_auxz00_18657==((long)92)); } 
if(BgL_testz00_18656)
{ /* ./Read/reader.scm 744 */
BgL_test6736z00_3902 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18660;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18661;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18662;
BgL_auxz00_18662 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18661 = 
(BgL_auxz00_18662>=((long)94)); } 
if(BgL_testz00_18661)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18665;
BgL_auxz00_18665 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18660 = 
(BgL_auxz00_18665<((long)123)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18660 = ((bool_t)0)
; } } 
if(BgL_testz00_18660)
{ /* ./Read/reader.scm 744 */
BgL_test6736z00_3902 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18668;
BgL_auxz00_18668 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_test6736z00_3902 = 
(BgL_auxz00_18668==((long)126)); } } } } } } } 
if(BgL_test6736z00_3902)
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18672;
BgL_inputzd2portzd2_4027 = BgL_inputzd2portzd2_3894; 
BgL_lastzd2matchzd2_4028 = BgL_lastzd2matchzd2_3895; 
BgL_thezd2rgczd2contextz00_4029 = BgL_thezd2rgczd2contextz00_3896; 
BgL_zc3anonymousza36963ze3z83_4030:
{ /* ./Read/reader.scm 744 */
long BgL_newzd2matchzd2_4031;
RGC_STOP_MATCH(BgL_inputzd2portzd2_4027); 
BgL_newzd2matchzd2_4031 = ((long)1); 
{ /* ./Read/reader.scm 744 */
int BgL_currentzd2charzd2_4032;
BgL_currentzd2charzd2_4032 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_4027); 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18675;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18676;
BgL_auxz00_18676 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18675 = 
(BgL_auxz00_18676==((long)0)); } 
if(BgL_testz00_18675)
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6965z00_4034;
BgL_test6965z00_4034 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_4027); 
if(BgL_test6965z00_4034)
{ /* ./Read/reader.scm 744 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_4027))
{ 

goto BgL_zc3anonymousza36963ze3z83_4030;}  else 
{ /* ./Read/reader.scm 744 */
BgL_auxz00_18672 = BgL_newzd2matchzd2_4031
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_18685;long BgL_lastzd2matchzd2_18684;obj_t BgL_inputzd2portzd2_18683;
BgL_inputzd2portzd2_18683 = BgL_inputzd2portzd2_4027; 
BgL_lastzd2matchzd2_18684 = BgL_newzd2matchzd2_4031; 
BgL_thezd2rgczd2contextz00_18685 = BgL_thezd2rgczd2contextz00_4029; 
BgL_thezd2rgczd2contextz00_3957 = BgL_thezd2rgczd2contextz00_18685; 
BgL_lastzd2matchzd2_3956 = BgL_lastzd2matchzd2_18684; 
BgL_inputzd2portzd2_3955 = BgL_inputzd2portzd2_18683; 
goto BgL_zc3anonymousza36838ze3z83_3958;} } }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6971z00_4036;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18686;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18687;
BgL_auxz00_18687 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18686 = 
(BgL_auxz00_18687==((long)33)); } 
if(BgL_testz00_18686)
{ /* ./Read/reader.scm 744 */
BgL_test6971z00_4036 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18690;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18691;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18692;
BgL_auxz00_18692 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18691 = 
(BgL_auxz00_18692>=((long)36)); } 
if(BgL_testz00_18691)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18695;
BgL_auxz00_18695 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18690 = 
(BgL_auxz00_18695<((long)40)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18690 = ((bool_t)0)
; } } 
if(BgL_testz00_18690)
{ /* ./Read/reader.scm 744 */
BgL_test6971z00_4036 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18698;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18699;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18700;
BgL_auxz00_18700 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18699 = 
(BgL_auxz00_18700>=((long)42)); } 
if(BgL_testz00_18699)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18703;
BgL_auxz00_18703 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18698 = 
(BgL_auxz00_18703<((long)59)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18698 = ((bool_t)0)
; } } 
if(BgL_testz00_18698)
{ /* ./Read/reader.scm 744 */
BgL_test6971z00_4036 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18706;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18707;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18708;
BgL_auxz00_18708 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18707 = 
(BgL_auxz00_18708>=((long)60)); } 
if(BgL_testz00_18707)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18711;
BgL_auxz00_18711 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18706 = 
(BgL_auxz00_18711<((long)91)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18706 = ((bool_t)0)
; } } 
if(BgL_testz00_18706)
{ /* ./Read/reader.scm 744 */
BgL_test6971z00_4036 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18714;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18715;
BgL_auxz00_18715 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18714 = 
(BgL_auxz00_18715==((long)92)); } 
if(BgL_testz00_18714)
{ /* ./Read/reader.scm 744 */
BgL_test6971z00_4036 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18718;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18719;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18720;
BgL_auxz00_18720 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18719 = 
(BgL_auxz00_18720>=((long)94)); } 
if(BgL_testz00_18719)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18723;
BgL_auxz00_18723 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18718 = 
(BgL_auxz00_18723<((long)123)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18718 = ((bool_t)0)
; } } 
if(BgL_testz00_18718)
{ /* ./Read/reader.scm 744 */
BgL_test6971z00_4036 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18726;
BgL_auxz00_18726 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_test6971z00_4036 = 
(BgL_auxz00_18726==((long)126)); } } } } } } } 
if(BgL_test6971z00_4036)
{ /* ./Read/reader.scm 744 */
BgL_inputzd2portzd2_4048 = BgL_inputzd2portzd2_4027; 
BgL_lastzd2matchzd2_4049 = BgL_newzd2matchzd2_4031; 
BgL_thezd2rgczd2contextz00_4050 = BgL_thezd2rgczd2contextz00_4029; 
BgL_zc3anonymousza37001ze3z83_4051:
{ /* ./Read/reader.scm 744 */
int BgL_currentzd2charzd2_4052;
BgL_currentzd2charzd2_4052 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_4048); 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18731;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18732;
BgL_auxz00_18732 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18731 = 
(BgL_auxz00_18732==((long)0)); } 
if(BgL_testz00_18731)
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
bool_t BgL_test7003z00_4054;
BgL_test7003z00_4054 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_4048); 
if(BgL_test7003z00_4054)
{ /* ./Read/reader.scm 744 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_4048))
{ 

goto BgL_zc3anonymousza37001ze3z83_4051;}  else 
{ /* ./Read/reader.scm 744 */
BgL_auxz00_18672 = BgL_lastzd2matchzd2_4049
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_18741;long BgL_lastzd2matchzd2_18740;obj_t BgL_inputzd2portzd2_18739;
BgL_inputzd2portzd2_18739 = BgL_inputzd2portzd2_4048; 
BgL_lastzd2matchzd2_18740 = BgL_lastzd2matchzd2_4049; 
BgL_thezd2rgczd2contextz00_18741 = BgL_thezd2rgczd2contextz00_4050; 
BgL_thezd2rgczd2contextz00_3957 = BgL_thezd2rgczd2contextz00_18741; 
BgL_lastzd2matchzd2_3956 = BgL_lastzd2matchzd2_18740; 
BgL_inputzd2portzd2_3955 = BgL_inputzd2portzd2_18739; 
goto BgL_zc3anonymousza36838ze3z83_3958;} } }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_test7009z00_4056;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18742;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18743;
BgL_auxz00_18743 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18742 = 
(BgL_auxz00_18743==((long)33)); } 
if(BgL_testz00_18742)
{ /* ./Read/reader.scm 744 */
BgL_test7009z00_4056 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18746;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18747;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18748;
BgL_auxz00_18748 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18747 = 
(BgL_auxz00_18748>=((long)36)); } 
if(BgL_testz00_18747)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18751;
BgL_auxz00_18751 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18746 = 
(BgL_auxz00_18751<((long)40)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18746 = ((bool_t)0)
; } } 
if(BgL_testz00_18746)
{ /* ./Read/reader.scm 744 */
BgL_test7009z00_4056 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18754;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18755;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18756;
BgL_auxz00_18756 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18755 = 
(BgL_auxz00_18756>=((long)42)); } 
if(BgL_testz00_18755)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18759;
BgL_auxz00_18759 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18754 = 
(BgL_auxz00_18759<((long)59)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18754 = ((bool_t)0)
; } } 
if(BgL_testz00_18754)
{ /* ./Read/reader.scm 744 */
BgL_test7009z00_4056 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18762;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18763;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18764;
BgL_auxz00_18764 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18763 = 
(BgL_auxz00_18764>=((long)60)); } 
if(BgL_testz00_18763)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18767;
BgL_auxz00_18767 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18762 = 
(BgL_auxz00_18767<((long)91)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18762 = ((bool_t)0)
; } } 
if(BgL_testz00_18762)
{ /* ./Read/reader.scm 744 */
BgL_test7009z00_4056 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18770;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18771;
BgL_auxz00_18771 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18770 = 
(BgL_auxz00_18771==((long)92)); } 
if(BgL_testz00_18770)
{ /* ./Read/reader.scm 744 */
BgL_test7009z00_4056 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18774;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18775;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18776;
BgL_auxz00_18776 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18775 = 
(BgL_auxz00_18776>=((long)94)); } 
if(BgL_testz00_18775)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18779;
BgL_auxz00_18779 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18774 = 
(BgL_auxz00_18779<((long)123)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18774 = ((bool_t)0)
; } } 
if(BgL_testz00_18774)
{ /* ./Read/reader.scm 744 */
BgL_test7009z00_4056 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18782;
BgL_auxz00_18782 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_test7009z00_4056 = 
(BgL_auxz00_18782==((long)126)); } } } } } } } 
if(BgL_test7009z00_4056)
{ /* ./Read/reader.scm 744 */
{ 

goto BgL_zc3anonymousza37001ze3z83_4051;} }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18786;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18787;
BgL_auxz00_18787 = 
(long)(BgL_currentzd2charzd2_4052); 
BgL_testz00_18786 = 
(BgL_auxz00_18787==((long)10)); } 
if(BgL_testz00_18786)
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18792;long BgL_lastzd2matchzd2_18791;obj_t BgL_inputzd2portzd2_18790;
BgL_inputzd2portzd2_18790 = BgL_inputzd2portzd2_4048; 
BgL_lastzd2matchzd2_18791 = BgL_lastzd2matchzd2_4049; 
BgL_thezd2rgczd2contextz00_18792 = BgL_thezd2rgczd2contextz00_4050; 
BgL_thezd2rgczd2contextz00_3978 = BgL_thezd2rgczd2contextz00_18792; 
BgL_lastzd2matchzd2_3977 = BgL_lastzd2matchzd2_18791; 
BgL_inputzd2portzd2_3976 = BgL_inputzd2portzd2_18790; 
goto BgL_zc3anonymousza36876ze3z83_3979;} }  else 
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18795;long BgL_lastzd2matchzd2_18794;obj_t BgL_inputzd2portzd2_18793;
BgL_inputzd2portzd2_18793 = BgL_inputzd2portzd2_4048; 
BgL_lastzd2matchzd2_18794 = BgL_lastzd2matchzd2_4049; 
BgL_thezd2rgczd2contextz00_18795 = BgL_thezd2rgczd2contextz00_4050; 
BgL_thezd2rgczd2contextz00_3957 = BgL_thezd2rgczd2contextz00_18795; 
BgL_lastzd2matchzd2_3956 = BgL_lastzd2matchzd2_18794; 
BgL_inputzd2portzd2_3955 = BgL_inputzd2portzd2_18793; 
goto BgL_zc3anonymousza36838ze3z83_3958;} } } } } } }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18796;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18797;
BgL_auxz00_18797 = 
(long)(BgL_currentzd2charzd2_4032); 
BgL_testz00_18796 = 
(BgL_auxz00_18797==((long)10)); } 
if(BgL_testz00_18796)
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18802;long BgL_lastzd2matchzd2_18801;obj_t BgL_inputzd2portzd2_18800;
BgL_inputzd2portzd2_18800 = BgL_inputzd2portzd2_4027; 
BgL_lastzd2matchzd2_18801 = BgL_newzd2matchzd2_4031; 
BgL_thezd2rgczd2contextz00_18802 = BgL_thezd2rgczd2contextz00_4029; 
BgL_thezd2rgczd2contextz00_3978 = BgL_thezd2rgczd2contextz00_18802; 
BgL_lastzd2matchzd2_3977 = BgL_lastzd2matchzd2_18801; 
BgL_inputzd2portzd2_3976 = BgL_inputzd2portzd2_18800; 
goto BgL_zc3anonymousza36876ze3z83_3979;} }  else 
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18805;long BgL_lastzd2matchzd2_18804;obj_t BgL_inputzd2portzd2_18803;
BgL_inputzd2portzd2_18803 = BgL_inputzd2portzd2_4027; 
BgL_lastzd2matchzd2_18804 = BgL_newzd2matchzd2_4031; 
BgL_thezd2rgczd2contextz00_18805 = BgL_thezd2rgczd2contextz00_4029; 
BgL_thezd2rgczd2contextz00_3957 = BgL_thezd2rgczd2contextz00_18805; 
BgL_lastzd2matchzd2_3956 = BgL_lastzd2matchzd2_18804; 
BgL_inputzd2portzd2_3955 = BgL_inputzd2portzd2_18803; 
goto BgL_zc3anonymousza36838ze3z83_3958;} } } } } } } 
return 
BINT(BgL_auxz00_18672);} }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18807;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18808;
BgL_auxz00_18808 = 
(long)(BgL_currentzd2charzd2_3898); 
BgL_testz00_18807 = 
(BgL_auxz00_18808==((long)10)); } 
if(BgL_testz00_18807)
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18811;
BgL_inputzd2portzd2_3935 = BgL_inputzd2portzd2_3894; 
BgL_lastzd2matchzd2_3936 = BgL_lastzd2matchzd2_3895; 
BgL_thezd2rgczd2contextz00_3937 = BgL_thezd2rgczd2contextz00_3896; 
BgL_zc3anonymousza36803ze3z83_3938:
{ /* ./Read/reader.scm 744 */
long BgL_newzd2matchzd2_3939;
RGC_STOP_MATCH(BgL_inputzd2portzd2_3935); 
BgL_newzd2matchzd2_3939 = ((long)0); 
{ /* ./Read/reader.scm 744 */
int BgL_currentzd2charzd2_3940;
BgL_currentzd2charzd2_3940 = 
RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3935); 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18814;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18815;
BgL_auxz00_18815 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_testz00_18814 = 
(BgL_auxz00_18815==((long)0)); } 
if(BgL_testz00_18814)
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6805z00_3942;
BgL_test6805z00_3942 = 
RGC_BUFFER_EMPTY(BgL_inputzd2portzd2_3935); 
if(BgL_test6805z00_3942)
{ /* ./Read/reader.scm 744 */
if(
rgc_fill_buffer(BgL_inputzd2portzd2_3935))
{ 

goto BgL_zc3anonymousza36803ze3z83_3938;}  else 
{ /* ./Read/reader.scm 744 */
BgL_auxz00_18811 = BgL_newzd2matchzd2_3939
; } }  else 
{ 
obj_t BgL_thezd2rgczd2contextz00_18824;long BgL_lastzd2matchzd2_18823;obj_t BgL_inputzd2portzd2_18822;
BgL_inputzd2portzd2_18822 = BgL_inputzd2portzd2_3935; 
BgL_lastzd2matchzd2_18823 = BgL_newzd2matchzd2_3939; 
BgL_thezd2rgczd2contextz00_18824 = BgL_thezd2rgczd2contextz00_3937; 
BgL_thezd2rgczd2contextz00_3978 = BgL_thezd2rgczd2contextz00_18824; 
BgL_lastzd2matchzd2_3977 = BgL_lastzd2matchzd2_18823; 
BgL_inputzd2portzd2_3976 = BgL_inputzd2portzd2_18822; 
goto BgL_zc3anonymousza36876ze3z83_3979;} } }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_test6811z00_3944;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18825;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18826;
BgL_auxz00_18826 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_testz00_18825 = 
(BgL_auxz00_18826==((long)33)); } 
if(BgL_testz00_18825)
{ /* ./Read/reader.scm 744 */
BgL_test6811z00_3944 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18829;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18830;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18831;
BgL_auxz00_18831 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_testz00_18830 = 
(BgL_auxz00_18831>=((long)36)); } 
if(BgL_testz00_18830)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18834;
BgL_auxz00_18834 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_testz00_18829 = 
(BgL_auxz00_18834<((long)40)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18829 = ((bool_t)0)
; } } 
if(BgL_testz00_18829)
{ /* ./Read/reader.scm 744 */
BgL_test6811z00_3944 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18837;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18838;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18839;
BgL_auxz00_18839 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_testz00_18838 = 
(BgL_auxz00_18839>=((long)42)); } 
if(BgL_testz00_18838)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18842;
BgL_auxz00_18842 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_testz00_18837 = 
(BgL_auxz00_18842<((long)59)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18837 = ((bool_t)0)
; } } 
if(BgL_testz00_18837)
{ /* ./Read/reader.scm 744 */
BgL_test6811z00_3944 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18845;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18846;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18847;
BgL_auxz00_18847 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_testz00_18846 = 
(BgL_auxz00_18847>=((long)60)); } 
if(BgL_testz00_18846)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18850;
BgL_auxz00_18850 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_testz00_18845 = 
(BgL_auxz00_18850<((long)91)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18845 = ((bool_t)0)
; } } 
if(BgL_testz00_18845)
{ /* ./Read/reader.scm 744 */
BgL_test6811z00_3944 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18853;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18854;
BgL_auxz00_18854 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_testz00_18853 = 
(BgL_auxz00_18854==((long)92)); } 
if(BgL_testz00_18853)
{ /* ./Read/reader.scm 744 */
BgL_test6811z00_3944 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18857;
{ /* ./Read/reader.scm 744 */
bool_t BgL_testz00_18858;
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18859;
BgL_auxz00_18859 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_testz00_18858 = 
(BgL_auxz00_18859>=((long)94)); } 
if(BgL_testz00_18858)
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18862;
BgL_auxz00_18862 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_testz00_18857 = 
(BgL_auxz00_18862<((long)123)); }  else 
{ /* ./Read/reader.scm 744 */
BgL_testz00_18857 = ((bool_t)0)
; } } 
if(BgL_testz00_18857)
{ /* ./Read/reader.scm 744 */
BgL_test6811z00_3944 = ((bool_t)1); }  else 
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18865;
BgL_auxz00_18865 = 
(long)(BgL_currentzd2charzd2_3940); 
BgL_test6811z00_3944 = 
(BgL_auxz00_18865==((long)126)); } } } } } } } 
if(BgL_test6811z00_3944)
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18871;long BgL_lastzd2matchzd2_18870;obj_t BgL_inputzd2portzd2_18869;
BgL_inputzd2portzd2_18869 = BgL_inputzd2portzd2_3935; 
BgL_lastzd2matchzd2_18870 = BgL_newzd2matchzd2_3939; 
BgL_thezd2rgczd2contextz00_18871 = BgL_thezd2rgczd2contextz00_3937; 
BgL_thezd2rgczd2contextz00_3998 = BgL_thezd2rgczd2contextz00_18871; 
BgL_lastzd2matchzd2_3997 = BgL_lastzd2matchzd2_18870; 
BgL_inputzd2portzd2_3996 = BgL_inputzd2portzd2_18869; 
goto BgL_zc3anonymousza36911ze3z83_3999;} }  else 
{ /* ./Read/reader.scm 744 */
{ 
obj_t BgL_thezd2rgczd2contextz00_18874;long BgL_lastzd2matchzd2_18873;obj_t BgL_inputzd2portzd2_18872;
BgL_inputzd2portzd2_18872 = BgL_inputzd2portzd2_3935; 
BgL_lastzd2matchzd2_18873 = BgL_newzd2matchzd2_3939; 
BgL_thezd2rgczd2contextz00_18874 = BgL_thezd2rgczd2contextz00_3937; 
BgL_thezd2rgczd2contextz00_3978 = BgL_thezd2rgczd2contextz00_18874; 
BgL_lastzd2matchzd2_3977 = BgL_lastzd2matchzd2_18873; 
BgL_inputzd2portzd2_3976 = BgL_inputzd2portzd2_18872; 
goto BgL_zc3anonymousza36876ze3z83_3979;} } } } } } 
return 
BINT(BgL_auxz00_18811);} }  else 
{ /* ./Read/reader.scm 744 */
{ /* ./Read/reader.scm 744 */
long BgL_auxz00_18876;
{ 
obj_t BgL_thezd2rgczd2contextz00_18879;obj_t BgL_lastzd2matchzd2_18878;obj_t BgL_inputzd2portzd2_18877;
BgL_inputzd2portzd2_18877 = BgL_inputzd2portzd2_3894; 
BgL_lastzd2matchzd2_18878 = BgL_lastzd2matchzd2_3895; 
BgL_thezd2rgczd2contextz00_18879 = BgL_thezd2rgczd2contextz00_3896; 
BgL_thezd2rgczd2contextz00_3916 = BgL_thezd2rgczd2contextz00_18879; 
BgL_lastzd2matchzd2_3915 = BgL_lastzd2matchzd2_18878; 
BgL_inputzd2portzd2_3914 = BgL_inputzd2portzd2_18877; 
goto BgL_zc3anonymousza36765ze3z83_3917;} 
return 
BINT(BgL_auxz00_18876);} } } } } } } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__readerz00()
{ AN_OBJECT;
{ /* ./Read/reader.scm 14 */
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__reader"); 
return 
BGl_modulezd2initializa7ationz75zz__rgcz00(((long)49918), "__reader");} 
}

