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

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

static obj_t BGl_loopz00zz__rgc_compilez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__rgc_compilez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_rulesz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_dfaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_setz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_configz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_compilezd2condzd2testz00zz__rgc_compilez00(obj_t, obj_t, long);
extern obj_t BGl_predicatezd2matchzd2zz__rgc_rulesz00(int);
extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
extern bool_t BGl_specialzd2charzd2matchzf3zf3zz__rgc_rulesz00(int);
extern obj_t BGl_statezd2positionszd2zz__rgc_dfaz00(obj_t);
extern obj_t BGl_rgcsetzd2addz12zc0zz__rgc_setz00(obj_t, int);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_compilezd2regularzd2zz__rgc_compilez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2rgczd2optimza2zd2zz__rgc_configz00;
static obj_t BGl_compilezd2casezd2regularz00zz__rgc_compilez00(obj_t, obj_t, obj_t);
extern long bgl_list_length(obj_t);
static obj_t BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3330z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3329z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_compilezd2statezd2zz__rgc_compilez00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3328z00zz__rgc_compilez00 = BUNSPEC;
extern obj_t BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl_symbol3327z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3326z00zz__rgc_compilez00 = BUNSPEC;
extern obj_t BGl_rgczd2maxzd2charz00zz__rgc_configz00();
static obj_t BGl_symbol3325z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3324z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3323z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3322z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_compilezd2rangezd2testz00zz__rgc_compilez00(obj_t, obj_t);
static obj_t BGl_symbol3321z00zz__rgc_compilez00 = BUNSPEC;
extern obj_t BGl_rgcsetzd2ze3listz31zz__rgc_setz00(obj_t);
static obj_t BGl_symbol3320z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3319z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3318z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3317z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3316z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3315z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3314z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3313z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3312z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3311z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_cnstzd2initzd2zz__rgc_compilez00();
static obj_t BGl_symbol3310z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3309z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3308z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3307z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3306z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3305z00zz__rgc_compilez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_compilezd2dfazd2zz__rgc_compilez00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3304z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3303z00zz__rgc_compilez00 = BUNSPEC;
extern int BGl_specialzd2matchzd2charzd2ze3rulezd2numberze3zz__rgc_rulesz00(int);
static obj_t BGl_symbol3302z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_symbol3301z00zz__rgc_compilez00 = BUNSPEC;
static obj_t BGl_charzd2rangezd2ze3testze3zz__rgc_compilez00(obj_t, obj_t);
static long BGl_za2casezd2thresholdza2zd2zz__rgc_compilez00;
extern obj_t BGl_rgcsetzd2removez12zc0zz__rgc_setz00(obj_t, int);
static obj_t BGl_splitzd2transitionszd2zz__rgc_compilez00(obj_t);
extern obj_t string_to_symbol(char *);
extern bool_t BGl_specialzd2charzf3z21zz__rgc_rulesz00(int);
static obj_t BGl_compilezd2condzd2regularz00zz__rgc_compilez00(obj_t, obj_t, obj_t);
extern obj_t make_vector(int, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__rgc_compilez00();
static obj_t BGl_insortz00zz__rgc_compilez00(int, obj_t);
extern obj_t BGl_statezd2namezd2zz__rgc_dfaz00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__rgc_compilez00 = BUNSPEC;
extern bool_t BGl_statezf3zf3zz__rgc_dfaz00(obj_t);
static obj_t BGl_compilezd2memberzd2testz00zz__rgc_compilez00(obj_t, obj_t);
static obj_t BGl_compilezd2matchzd2zz__rgc_compilez00(obj_t);
static obj_t BGl_statezd2transitionzd2listz00zz__rgc_compilez00(obj_t);
extern obj_t BGl_rgcsetzd2notzd2zz__rgc_setz00(obj_t);
extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_initzd2compilezd2memberzd2vectorz12zc0zz__rgc_compilez00();
static obj_t BGl_compilezd2casezd2transitionz00zz__rgc_compilez00(obj_t, obj_t, obj_t);
static obj_t BGl_charszd2ze3charzd2rangesze3zz__rgc_compilez00(obj_t);
extern bool_t BGl_rgcsetzd2memberzf3z21zz__rgc_setz00(obj_t, int);
extern obj_t BGl_listzd2ze3rgcsetz31zz__rgc_setz00(obj_t, int);
static obj_t BGl_compilezd2submatcheszd2zz__rgc_compilez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_statezd2transitionszd2zz__rgc_dfaz00(obj_t);
extern int BGl_rgcsetzd2lengthzd2zz__rgc_setz00(obj_t);
static obj_t BGl_toplevelzd2initzd2zz__rgc_compilez00();
extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__compilezd2dfazd2zz__rgc_compilez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_charzd2rangeszd2ze3testze3zz__rgc_compilez00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_compilezd2dfazd2envz00zz__rgc_compilez00, BgL_bgl__compileza7d2dfaza7d2za7za7__rgc_compileza7003339za7, BGl__compilezd2dfazd2zz__rgc_compilez00, 0L, 3 );
DEFINE_STRING( BGl_string3332z00zz__rgc_compilez00, BgL_bgl_string3332za700za7za7__rgc_compileza7003340z00, "Illegal char description", 24 );
DEFINE_STRING( BGl_string3331z00zz__rgc_compilez00, BgL_bgl_string3331za700za7za7__rgc_compileza7003341z00, "compile-submatches", 18 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__rgc_compilez00(long BgL_checksumz00_2039, char * BgL_fromz00_2040)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__rgc_compilez00))
{ 
BGl_requirezd2initializa7ationz75zz__rgc_compilez00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__rgc_compilez00(); 
BGl_importedzd2moduleszd2initz00zz__rgc_compilez00(); 
BGl_toplevelzd2initzd2zz__rgc_compilez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__rgc_compilez00()
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 15 */
BGl_symbol3301z00zz__rgc_compilez00 = 
string_to_symbol("define"); 
BGl_symbol3302z00zz__rgc_compilez00 = 
string_to_symbol("input-port"); 
BGl_symbol3303z00zz__rgc_compilez00 = 
string_to_symbol("last-match"); 
BGl_symbol3304z00zz__rgc_compilez00 = 
string_to_symbol("the-rgc-context"); 
BGl_symbol3305z00zz__rgc_compilez00 = 
string_to_symbol("let"); 
BGl_symbol3306z00zz__rgc_compilez00 = 
string_to_symbol("new-match"); 
BGl_symbol3307z00zz__rgc_compilez00 = 
string_to_symbol("current-char::int"); 
BGl_symbol3308z00zz__rgc_compilez00 = 
string_to_symbol("rgc-buffer-get-char"); 
BGl_symbol3309z00zz__rgc_compilez00 = 
string_to_symbol("current-char"); 
BGl_symbol3310z00zz__rgc_compilez00 = 
string_to_symbol("if"); 
BGl_symbol3311z00zz__rgc_compilez00 = 
string_to_symbol("rgc-buffer-empty?"); 
BGl_symbol3312z00zz__rgc_compilez00 = 
string_to_symbol("rgc-fill-buffer"); 
BGl_symbol3313z00zz__rgc_compilez00 = 
string_to_symbol("rgc-fill-buffer-if-empty"); 
BGl_symbol3314z00zz__rgc_compilez00 = 
string_to_symbol("case"); 
BGl_symbol3315z00zz__rgc_compilez00 = 
string_to_symbol("else"); 
BGl_symbol3316z00zz__rgc_compilez00 = 
string_to_symbol("=fx"); 
BGl_symbol3317z00zz__rgc_compilez00 = 
string_to_symbol("cond"); 
BGl_symbol3318z00zz__rgc_compilez00 = 
string_to_symbol("not"); 
BGl_symbol3319z00zz__rgc_compilez00 = 
string_to_symbol("or"); 
BGl_symbol3320z00zz__rgc_compilez00 = 
string_to_symbol(">=fx"); 
BGl_symbol3321z00zz__rgc_compilez00 = 
string_to_symbol("<fx"); 
BGl_symbol3322z00zz__rgc_compilez00 = 
string_to_symbol("and"); 
BGl_symbol3323z00zz__rgc_compilez00 = 
string_to_symbol("begin"); 
BGl_symbol3324z00zz__rgc_compilez00 = 
string_to_symbol("rgc-stop-match!"); 
BGl_symbol3325z00zz__rgc_compilez00 = 
string_to_symbol("<=fx"); 
BGl_symbol3326z00zz__rgc_compilez00 = 
string_to_symbol("memq"); 
BGl_symbol3327z00zz__rgc_compilez00 = 
string_to_symbol("quote"); 
BGl_symbol3328z00zz__rgc_compilez00 = 
string_to_symbol("rgc-submatch-start*!"); 
BGl_symbol3329z00zz__rgc_compilez00 = 
string_to_symbol("rgc-submatch-start!"); 
return ( 
BGl_symbol3330z00zz__rgc_compilez00 = 
string_to_symbol("rgc-submatch-stop!"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__rgc_compilez00()
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 15 */
if(
CBOOL(BGl_za2rgczd2optimza2zd2zz__rgc_configz00))
{ /* ./Rgc/rgccompile.scm 70 */
BGl_za2casezd2thresholdza2zd2zz__rgc_compilez00 = 
(((long)80)/((long)2)); }  else 
{ /* ./Rgc/rgccompile.scm 70 */
BGl_za2casezd2thresholdza2zd2zz__rgc_compilez00 = ((long)80); } 
return ( 
BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00 = BUNSPEC, BUNSPEC) ;} 
}



/* compile-dfa */
BGL_EXPORTED_DEF obj_t BGl_compilezd2dfazd2zz__rgc_compilez00(obj_t BgL_submatchesz00_1, obj_t BgL_statesz00_2, obj_t BgL_positionsz00_3)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 52 */
BGl_initzd2compilezd2memberzd2vectorz12zc0zz__rgc_compilez00(); 
{ /* ./Rgc/rgccompile.scm 54 */
obj_t BgL_resz00_390;
if(
NULLP(BgL_statesz00_2))
{ /* ./Rgc/rgccompile.scm 54 */
BgL_resz00_390 = BNIL; }  else 
{ /* ./Rgc/rgccompile.scm 54 */
obj_t BgL_head1005z00_393;
BgL_head1005z00_393 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1003z00_394;obj_t BgL_tail1006z00_395;
BgL_l1003z00_394 = BgL_statesz00_2; 
BgL_tail1006z00_395 = BgL_head1005z00_393; 
BgL_map1004z00_396:
if(
NULLP(BgL_l1003z00_394))
{ /* ./Rgc/rgccompile.scm 54 */
BgL_resz00_390 = 
CDR(BgL_head1005z00_393); }  else 
{ /* ./Rgc/rgccompile.scm 55 */
obj_t BgL_newtail1007z00_398;
{ /* ./Rgc/rgccompile.scm 54 */
obj_t BgL_auxz00_2087;
BgL_auxz00_2087 = 
BGl_compilezd2statezd2zz__rgc_compilez00(BgL_submatchesz00_1, 
CAR(BgL_l1003z00_394), BgL_positionsz00_3); 
BgL_newtail1007z00_398 = 
MAKE_PAIR(BgL_auxz00_2087, BNIL); } 
SET_CDR(BgL_tail1006z00_395, BgL_newtail1007z00_398); 
{ 
obj_t BgL_tail1006z00_2094;obj_t BgL_l1003z00_2092;
BgL_l1003z00_2092 = 
CDR(BgL_l1003z00_394); 
BgL_tail1006z00_2094 = BgL_newtail1007z00_398; 
BgL_tail1006z00_395 = BgL_tail1006z00_2094; 
BgL_l1003z00_394 = BgL_l1003z00_2092; 
goto BgL_map1004z00_396;} } } } 
BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00 = BUNSPEC; 
return BgL_resz00_390;} } 
}



/* _compile-dfa */
obj_t BGl__compilezd2dfazd2zz__rgc_compilez00(obj_t BgL_envz00_2028, obj_t BgL_submatchesz00_2029, obj_t BgL_statesz00_2030, obj_t BgL_positionsz00_2031)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 52 */
return 
BGl_compilezd2dfazd2zz__rgc_compilez00(BgL_submatchesz00_2029, BgL_statesz00_2030, BgL_positionsz00_2031);} 
}



/* compile-state */
obj_t BGl_compilezd2statezd2zz__rgc_compilez00(obj_t BgL_submatchesz00_4, obj_t BgL_statez00_5, obj_t BgL_positionszd2tozd2charz00_6)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 88 */
{ /* ./Rgc/rgccompile.scm 92 */
obj_t BgL_arg1073z00_403;obj_t BgL_arg1075z00_404;
BgL_arg1073z00_403 = BGl_symbol3301z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 92 */
obj_t BgL_arg1079z00_405;obj_t BgL_arg1080z00_406;
{ /* ./Rgc/rgccompile.scm 92 */
obj_t BgL_arg1083z00_407;obj_t BgL_arg1084z00_408;
BgL_arg1083z00_407 = 
BGl_statezd2namezd2zz__rgc_dfaz00(BgL_statez00_5); 
{ /* ./Rgc/rgccompile.scm 92 */
obj_t BgL_arg1088z00_409;obj_t BgL_arg1089z00_410;
BgL_arg1088z00_409 = BGl_symbol3302z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 92 */
obj_t BgL_arg1092z00_411;obj_t BgL_arg1093z00_412;
BgL_arg1092z00_411 = BGl_symbol3303z00zz__rgc_compilez00; 
BgL_arg1093z00_412 = 
MAKE_PAIR(BGl_symbol3304z00zz__rgc_compilez00, BNIL); 
BgL_arg1089z00_410 = 
MAKE_PAIR(BgL_arg1092z00_411, BgL_arg1093z00_412); } 
BgL_arg1084z00_408 = 
MAKE_PAIR(BgL_arg1088z00_409, BgL_arg1089z00_410); } 
BgL_arg1079z00_405 = 
MAKE_PAIR(BgL_arg1083z00_407, BgL_arg1084z00_408); } 
{ /* ./Rgc/rgccompile.scm 93 */
obj_t BgL_arg1097z00_413;
{ /* ./Rgc/rgccompile.scm 93 */
obj_t BgL_transitionsz00_415;obj_t BgL_positionsz00_416;
BgL_transitionsz00_415 = 
BGl_statezd2transitionszd2zz__rgc_dfaz00(BgL_statez00_5); 
BgL_positionsz00_416 = 
BGl_statezd2positionszd2zz__rgc_dfaz00(BgL_statez00_5); 
if(
NULLP(BgL_transitionsz00_415))
{ /* ./Rgc/rgccompile.scm 95 */
BgL_arg1097z00_413 = BGl_symbol3303z00zz__rgc_compilez00; }  else 
{ /* ./Rgc/rgccompile.scm 97 */
obj_t BgL_specialzd2transzd2_418;
BgL_specialzd2transzd2_418 = 
BGl_splitzd2transitionszd2zz__rgc_compilez00(BgL_transitionsz00_415); 
{ /* ./Rgc/rgccompile.scm 98 */
obj_t BgL_regularzd2transzd2_419;
{ /* ./Rgc/rgccompile.scm 99 */
int BgL_auxz00_2106;
BgL_auxz00_2106 = 
(int)(((long)1)); 
BgL_regularzd2transzd2_419 = 
BGL_MVALUES_VAL(BgL_auxz00_2106); } 
{ /* ./Rgc/rgccompile.scm 99 */
obj_t BgL_matchzd2bodyzd2_420;
BgL_matchzd2bodyzd2_420 = 
BGl_compilezd2matchzd2zz__rgc_compilez00(BgL_specialzd2transzd2_418); 
if(
CBOOL(BgL_matchzd2bodyzd2_420))
{ /* ./Rgc/rgccompile.scm 106 */
obj_t BgL_arg1102z00_421;obj_t BgL_arg1103z00_422;
BgL_arg1102z00_421 = BGl_symbol3305z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 101 */
obj_t BgL_arg1106z00_423;obj_t BgL_arg1107z00_424;
{ /* ./Rgc/rgccompile.scm 101 */
obj_t BgL_arg1110z00_425;
{ /* ./Rgc/rgccompile.scm 101 */
obj_t BgL_arg1114z00_427;obj_t BgL_arg1115z00_428;
BgL_arg1114z00_427 = BGl_symbol3306z00zz__rgc_compilez00; 
BgL_arg1115z00_428 = 
MAKE_PAIR(BgL_matchzd2bodyzd2_420, BNIL); 
BgL_arg1110z00_425 = 
MAKE_PAIR(BgL_arg1114z00_427, BgL_arg1115z00_428); } 
BgL_arg1106z00_423 = 
MAKE_PAIR(BgL_arg1110z00_425, BNIL); } 
{ /* ./Rgc/rgccompile.scm 101 */
obj_t BgL_auxz00_2115;
BgL_auxz00_2115 = 
BGl_compilezd2regularzd2zz__rgc_compilez00(BgL_submatchesz00_4, BgL_statez00_5, BgL_regularzd2transzd2_419, BGl_symbol3306z00zz__rgc_compilez00, BgL_positionszd2tozd2charz00_6); 
BgL_arg1107z00_424 = 
MAKE_PAIR(BgL_auxz00_2115, BNIL); } 
BgL_arg1103z00_422 = 
MAKE_PAIR(BgL_arg1106z00_423, BgL_arg1107z00_424); } 
BgL_arg1097z00_413 = 
MAKE_PAIR(BgL_arg1102z00_421, BgL_arg1103z00_422); }  else 
{ /* ./Rgc/rgccompile.scm 100 */
BgL_arg1097z00_413 = 
BGl_compilezd2regularzd2zz__rgc_compilez00(BgL_submatchesz00_4, BgL_statez00_5, BgL_regularzd2transzd2_419, BGl_symbol3303z00zz__rgc_compilez00, BgL_positionszd2tozd2charz00_6); } } } } } 
BgL_arg1080z00_406 = 
MAKE_PAIR(BgL_arg1097z00_413, BNIL); } 
BgL_arg1075z00_404 = 
MAKE_PAIR(BgL_arg1079z00_405, BgL_arg1080z00_406); } 
return 
MAKE_PAIR(BgL_arg1073z00_403, BgL_arg1075z00_404);} } 
}



/* split-transitions */
obj_t BGl_splitzd2transitionszd2zz__rgc_compilez00(obj_t BgL_transitionsz00_7)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 119 */
{ 
obj_t BgL_transitionsz00_431;obj_t BgL_specialsz00_432;obj_t BgL_regularsz00_433;
BgL_transitionsz00_431 = BgL_transitionsz00_7; 
BgL_specialsz00_432 = BNIL; 
BgL_regularsz00_433 = BNIL; 
BgL_loopz00_434:
if(
NULLP(BgL_transitionsz00_431))
{ /* ./Rgc/rgccompile.scm 124 */
{ /* ./Rgc/rgccompile.scm 125 */
int BgL_auxz00_2126;
BgL_auxz00_2126 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2126); } 
{ /* ./Rgc/rgccompile.scm 125 */
int BgL_auxz00_2129;
BgL_auxz00_2129 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2129, BgL_regularsz00_433); } 
return BgL_specialsz00_432;}  else 
{ /* ./Rgc/rgccompile.scm 126 */
bool_t BgL_test1134z00_438;
{ /* ./Rgc/rgccompile.scm 126 */
obj_t BgL_arg1155z00_445;
{ /* ./Rgc/rgccompile.scm 126 */
obj_t BgL_auxz00_2132;
BgL_auxz00_2132 = 
CAR(BgL_transitionsz00_431); 
BgL_arg1155z00_445 = 
CAR(BgL_auxz00_2132); } 
BgL_test1134z00_438 = 
BGl_specialzd2charzf3z21zz__rgc_rulesz00(
CINT(BgL_arg1155z00_445)); } 
if(BgL_test1134z00_438)
{ /* ./Rgc/rgccompile.scm 126 */
{ /* ./Rgc/rgccompile.scm 127 */
obj_t BgL_arg1136z00_439;obj_t BgL_arg1137z00_440;
BgL_arg1136z00_439 = 
CDR(BgL_transitionsz00_431); 
{ /* ./Rgc/rgccompile.scm 128 */
obj_t BgL_auxz00_2139;
BgL_auxz00_2139 = 
CAR(BgL_transitionsz00_431); 
BgL_arg1137z00_440 = 
MAKE_PAIR(BgL_auxz00_2139, BgL_specialsz00_432); } 
{ 
obj_t BgL_specialsz00_2143;obj_t BgL_transitionsz00_2142;
BgL_transitionsz00_2142 = BgL_arg1136z00_439; 
BgL_specialsz00_2143 = BgL_arg1137z00_440; 
BgL_specialsz00_432 = BgL_specialsz00_2143; 
BgL_transitionsz00_431 = BgL_transitionsz00_2142; 
goto BgL_loopz00_434;} } }  else 
{ /* ./Rgc/rgccompile.scm 126 */
{ /* ./Rgc/rgccompile.scm 131 */
obj_t BgL_arg1146z00_442;obj_t BgL_arg1147z00_443;
BgL_arg1146z00_442 = 
CDR(BgL_transitionsz00_431); 
{ /* ./Rgc/rgccompile.scm 133 */
obj_t BgL_auxz00_2145;
BgL_auxz00_2145 = 
CAR(BgL_transitionsz00_431); 
BgL_arg1147z00_443 = 
MAKE_PAIR(BgL_auxz00_2145, BgL_regularsz00_433); } 
{ 
obj_t BgL_regularsz00_2149;obj_t BgL_transitionsz00_2148;
BgL_transitionsz00_2148 = BgL_arg1146z00_442; 
BgL_regularsz00_2149 = BgL_arg1147z00_443; 
BgL_regularsz00_433 = BgL_regularsz00_2149; 
BgL_transitionsz00_431 = BgL_transitionsz00_2148; 
goto BgL_loopz00_434;} } } } } } 
}



/* compile-regular */
obj_t BGl_compilezd2regularzd2zz__rgc_compilez00(obj_t BgL_submatchesz00_8, obj_t BgL_currentzd2statezd2_9, obj_t BgL_transitionsz00_10, obj_t BgL_lastzd2matchzd2_11, obj_t BgL_pzd2ze3cz31_12)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 138 */
{ /* ./Rgc/rgccompile.scm 141 */
obj_t BgL_statezd2transzd2_447;obj_t BgL_positionsz00_448;
BgL_statezd2transzd2_447 = 
BGl_statezd2transitionzd2listz00zz__rgc_compilez00(BgL_transitionsz00_10); 
BgL_positionsz00_448 = 
BGl_statezd2positionszd2zz__rgc_dfaz00(BgL_currentzd2statezd2_9); 
if(
NULLP(BgL_statezd2transzd2_447))
{ /* ./Rgc/rgccompile.scm 143 */
return BgL_lastzd2matchzd2_11;}  else 
{ /* ./Rgc/rgccompile.scm 159 */
obj_t BgL_arg1164z00_450;obj_t BgL_arg1165z00_451;
BgL_arg1164z00_450 = BGl_symbol3305z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 148 */
obj_t BgL_arg1169z00_452;obj_t BgL_arg1171z00_453;
{ /* ./Rgc/rgccompile.scm 148 */
obj_t BgL_arg1174z00_454;
{ /* ./Rgc/rgccompile.scm 148 */
obj_t BgL_arg1178z00_456;obj_t BgL_arg1179z00_457;
BgL_arg1178z00_456 = BGl_symbol3307z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 148 */
obj_t BgL_arg1182z00_458;
{ /* ./Rgc/rgccompile.scm 148 */
obj_t BgL_arg1187z00_460;obj_t BgL_arg1188z00_461;
BgL_arg1187z00_460 = BGl_symbol3308z00zz__rgc_compilez00; 
BgL_arg1188z00_461 = 
MAKE_PAIR(BGl_symbol3302z00zz__rgc_compilez00, BNIL); 
BgL_arg1182z00_458 = 
MAKE_PAIR(BgL_arg1187z00_460, BgL_arg1188z00_461); } 
BgL_arg1179z00_457 = 
MAKE_PAIR(BgL_arg1182z00_458, BNIL); } 
BgL_arg1174z00_454 = 
MAKE_PAIR(BgL_arg1178z00_456, BgL_arg1179z00_457); } 
BgL_arg1169z00_452 = 
MAKE_PAIR(BgL_arg1174z00_454, BNIL); } 
{ /* ./Rgc/rgccompile.scm 149 */
obj_t BgL_arg1192z00_462;obj_t BgL_arg1193z00_463;
BgL_arg1192z00_462 = 
BGl_compilezd2submatcheszd2zz__rgc_compilez00(BGl_symbol3309z00zz__rgc_compilez00, BgL_submatchesz00_8, BgL_positionsz00_448, BgL_pzd2ze3cz31_12); 
{ /* ./Rgc/rgccompile.scm 153 */
obj_t BgL_arg1197z00_464;
{ /* ./Rgc/rgccompile.scm 153 */
bool_t BgL_testz00_2160;
{ /* ./Rgc/rgccompile.scm 153 */
long BgL_auxz00_2161;
BgL_auxz00_2161 = 
bgl_list_length(BgL_statezd2transzd2_447); 
BgL_testz00_2160 = 
(BgL_auxz00_2161<=((long)12)); } 
if(BgL_testz00_2160)
{ /* ./Rgc/rgccompile.scm 153 */
BgL_arg1197z00_464 = 
BGl_compilezd2condzd2regularz00zz__rgc_compilez00(BgL_currentzd2statezd2_9, BgL_statezd2transzd2_447, BgL_lastzd2matchzd2_11); }  else 
{ /* ./Rgc/rgccompile.scm 153 */
BgL_arg1197z00_464 = 
BGl_compilezd2casezd2regularz00zz__rgc_compilez00(BgL_currentzd2statezd2_9, BgL_statezd2transzd2_447, BgL_lastzd2matchzd2_11); } } 
BgL_arg1193z00_463 = 
MAKE_PAIR(BgL_arg1197z00_464, BNIL); } 
BgL_arg1171z00_453 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1192z00_462, BgL_arg1193z00_463); } 
BgL_arg1165z00_451 = 
MAKE_PAIR(BgL_arg1169z00_452, BgL_arg1171z00_453); } 
return 
MAKE_PAIR(BgL_arg1164z00_450, BgL_arg1165z00_451);} } } 
}



/* compile-case-regular */
obj_t BGl_compilezd2casezd2regularz00zz__rgc_compilez00(obj_t BgL_currentzd2statezd2_15, obj_t BgL_statezd2transzd2_16, obj_t BgL_matchz00_17)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 170 */
{ /* ./Rgc/rgccompile.scm 190 */
obj_t BgL_sentinelzd2matchzd2_476;
BgL_sentinelzd2matchzd2_476 = 
MAKE_CELL(BUNSPEC); 
{ 

{ /* ./Rgc/rgccompile.scm 171 */
obj_t BgL_auxz00_2037;
BgL_auxz00_2037 = BFALSE; 
CELL_SET(BgL_sentinelzd2matchzd2_476, BgL_auxz00_2037); } 
{ /* ./Rgc/rgccompile.scm 191 */
obj_t BgL_arg1225z00_477;obj_t BgL_arg1227z00_478;
BgL_arg1225z00_477 = BGl_symbol3314z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 191 */
obj_t BgL_arg1230z00_479;obj_t BgL_arg1231z00_480;
BgL_arg1230z00_479 = BGl_symbol3309z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 192 */
obj_t BgL_arg1234z00_481;obj_t BgL_arg1235z00_482;
if(
NULLP(BgL_statezd2transzd2_16))
{ /* ./Rgc/rgccompile.scm 192 */
BgL_arg1234z00_481 = BNIL; }  else 
{ /* ./Rgc/rgccompile.scm 192 */
obj_t BgL_head1012z00_485;
{ /* ./Rgc/rgccompile.scm 192 */
obj_t BgL_arg1259z00_496;
{ /* ./Rgc/rgccompile.scm 192 */
obj_t BgL_arg1265z00_498;
BgL_arg1265z00_498 = 
CAR(BgL_statezd2transzd2_16); 
BgL_arg1259z00_496 = 
BGl_compilezd2casezd2transitionz00zz__rgc_compilez00(BgL_matchz00_17, BgL_sentinelzd2matchzd2_476, BgL_arg1265z00_498); } 
BgL_head1012z00_485 = 
MAKE_PAIR(BgL_arg1259z00_496, BNIL); } 
{ /* ./Rgc/rgccompile.scm 192 */
obj_t BgL_arg1240z00_489;
BgL_arg1240z00_489 = 
CDR(BgL_statezd2transzd2_16); 
{ 
obj_t BgL_l1010z00_1320;obj_t BgL_tail1013z00_1321;
BgL_l1010z00_1320 = BgL_arg1240z00_489; 
BgL_tail1013z00_1321 = BgL_head1012z00_485; 
BgL_map1011z00_1319:
if(
NULLP(BgL_l1010z00_1320))
{ /* ./Rgc/rgccompile.scm 192 */
BgL_arg1234z00_481 = BgL_head1012z00_485; }  else 
{ /* ./Rgc/rgccompile.scm 192 */
obj_t BgL_newtail1014z00_1329;
{ /* ./Rgc/rgccompile.scm 192 */
obj_t BgL_arg1250z00_1330;
{ /* ./Rgc/rgccompile.scm 192 */
obj_t BgL_arg1254z00_1332;
BgL_arg1254z00_1332 = 
CAR(BgL_l1010z00_1320); 
BgL_arg1250z00_1330 = 
BGl_compilezd2casezd2transitionz00zz__rgc_compilez00(BgL_matchz00_17, BgL_sentinelzd2matchzd2_476, BgL_arg1254z00_1332); } 
BgL_newtail1014z00_1329 = 
MAKE_PAIR(BgL_arg1250z00_1330, BNIL); } 
SET_CDR(BgL_tail1013z00_1321, BgL_newtail1014z00_1329); 
{ 
obj_t BgL_tail1013z00_2184;obj_t BgL_l1010z00_2182;
BgL_l1010z00_2182 = 
CDR(BgL_l1010z00_1320); 
BgL_tail1013z00_2184 = BgL_newtail1014z00_1329; 
BgL_tail1013z00_1321 = BgL_tail1013z00_2184; 
BgL_l1010z00_1320 = BgL_l1010z00_2182; 
goto BgL_map1011z00_1319;} } } } } 
{ /* ./Rgc/rgccompile.scm 193 */
obj_t BgL_arg1270z00_499;obj_t BgL_arg1273z00_500;
{ /* ./Rgc/rgccompile.scm 173 */
bool_t BgL_test1301z00_515;
BgL_test1301z00_515 = 
BGl_statezf3zf3zz__rgc_dfaz00(
CELL_REF(BgL_sentinelzd2matchzd2_476)); 
if(BgL_test1301z00_515)
{ /* ./Rgc/rgccompile.scm 174 */
obj_t BgL_arg1303z00_516;obj_t BgL_arg1304z00_517;
{ /* ./Rgc/rgccompile.scm 174 */
obj_t BgL_auxz00_2187;
BgL_auxz00_2187 = 
BINT(((long)0)); 
BgL_arg1303z00_516 = 
MAKE_PAIR(BgL_auxz00_2187, BNIL); } 
{ /* ./Rgc/rgccompile.scm 174 */
obj_t BgL_arg1308z00_518;
{ /* ./Rgc/rgccompile.scm 174 */
obj_t BgL_arg1312z00_520;obj_t BgL_arg1313z00_521;
BgL_arg1312z00_520 = BGl_symbol3310z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 174 */
obj_t BgL_arg1316z00_522;obj_t BgL_arg1317z00_523;
{ /* ./Rgc/rgccompile.scm 174 */
obj_t BgL_arg1320z00_524;obj_t BgL_arg1321z00_525;
BgL_arg1320z00_524 = BGl_symbol3311z00zz__rgc_compilez00; 
BgL_arg1321z00_525 = 
MAKE_PAIR(BGl_symbol3302z00zz__rgc_compilez00, BNIL); 
BgL_arg1316z00_522 = 
MAKE_PAIR(BgL_arg1320z00_524, BgL_arg1321z00_525); } 
{ /* ./Rgc/rgccompile.scm 175 */
obj_t BgL_arg1326z00_526;obj_t BgL_arg1327z00_527;
{ /* ./Rgc/rgccompile.scm 175 */
obj_t BgL_arg1330z00_528;obj_t BgL_arg1331z00_529;
BgL_arg1330z00_528 = BGl_symbol3310z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 175 */
obj_t BgL_arg1334z00_530;obj_t BgL_arg1335z00_531;
{ /* ./Rgc/rgccompile.scm 175 */
obj_t BgL_arg1338z00_532;obj_t BgL_arg1340z00_533;
BgL_arg1338z00_532 = BGl_symbol3312z00zz__rgc_compilez00; 
BgL_arg1340z00_533 = 
MAKE_PAIR(BGl_symbol3302z00zz__rgc_compilez00, BNIL); 
BgL_arg1334z00_530 = 
MAKE_PAIR(BgL_arg1338z00_532, BgL_arg1340z00_533); } 
{ /* ./Rgc/rgccompile.scm 176 */
obj_t BgL_arg1344z00_534;obj_t BgL_arg1345z00_535;
{ /* ./Rgc/rgccompile.scm 176 */
obj_t BgL_matchz00_1379;
BgL_matchz00_1379 = BGl_symbol3303z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 176 */
obj_t BgL_arg1212z00_1380;obj_t BgL_arg1213z00_1381;
BgL_arg1212z00_1380 = 
BGl_statezd2namezd2zz__rgc_dfaz00(BgL_currentzd2statezd2_15); 
{ /* ./Rgc/rgccompile.scm 176 */
obj_t BgL_arg1217z00_1382;obj_t BgL_arg1218z00_1383;
BgL_arg1217z00_1382 = BGl_symbol3302z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 176 */
obj_t BgL_arg1221z00_1384;
BgL_arg1221z00_1384 = 
MAKE_PAIR(BGl_symbol3304z00zz__rgc_compilez00, BNIL); 
BgL_arg1218z00_1383 = 
MAKE_PAIR(BgL_matchz00_1379, BgL_arg1221z00_1384); } 
BgL_arg1213z00_1381 = 
MAKE_PAIR(BgL_arg1217z00_1382, BgL_arg1218z00_1383); } 
BgL_arg1344z00_534 = 
MAKE_PAIR(BgL_arg1212z00_1380, BgL_arg1213z00_1381); } } 
BgL_arg1345z00_535 = 
MAKE_PAIR(BgL_matchz00_17, BNIL); 
BgL_arg1335z00_531 = 
MAKE_PAIR(BgL_arg1344z00_534, BgL_arg1345z00_535); } 
BgL_arg1331z00_529 = 
MAKE_PAIR(BgL_arg1334z00_530, BgL_arg1335z00_531); } 
BgL_arg1326z00_526 = 
MAKE_PAIR(BgL_arg1330z00_528, BgL_arg1331z00_529); } 
{ /* ./Rgc/rgccompile.scm 178 */
obj_t BgL_arg1352z00_536;
{ /* ./Rgc/rgccompile.scm 178 */
obj_t BgL_statez00_1385;
BgL_statez00_1385 = 
CELL_REF(BgL_sentinelzd2matchzd2_476); 
{ /* ./Rgc/rgccompile.scm 178 */
obj_t BgL_arg1212z00_1387;obj_t BgL_arg1213z00_1388;
BgL_arg1212z00_1387 = 
BGl_statezd2namezd2zz__rgc_dfaz00(BgL_statez00_1385); 
{ /* ./Rgc/rgccompile.scm 178 */
obj_t BgL_arg1217z00_1389;obj_t BgL_arg1218z00_1390;
BgL_arg1217z00_1389 = BGl_symbol3302z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 178 */
obj_t BgL_arg1221z00_1391;
BgL_arg1221z00_1391 = 
MAKE_PAIR(BGl_symbol3304z00zz__rgc_compilez00, BNIL); 
BgL_arg1218z00_1390 = 
MAKE_PAIR(BgL_matchz00_17, BgL_arg1221z00_1391); } 
BgL_arg1213z00_1388 = 
MAKE_PAIR(BgL_arg1217z00_1389, BgL_arg1218z00_1390); } 
BgL_arg1352z00_536 = 
MAKE_PAIR(BgL_arg1212z00_1387, BgL_arg1213z00_1388); } } 
BgL_arg1327z00_527 = 
MAKE_PAIR(BgL_arg1352z00_536, BNIL); } 
BgL_arg1317z00_523 = 
MAKE_PAIR(BgL_arg1326z00_526, BgL_arg1327z00_527); } 
BgL_arg1313z00_521 = 
MAKE_PAIR(BgL_arg1316z00_522, BgL_arg1317z00_523); } 
BgL_arg1308z00_518 = 
MAKE_PAIR(BgL_arg1312z00_520, BgL_arg1313z00_521); } 
BgL_arg1304z00_517 = 
MAKE_PAIR(BgL_arg1308z00_518, BNIL); } 
BgL_arg1270z00_499 = 
MAKE_PAIR(BgL_arg1303z00_516, BgL_arg1304z00_517); }  else 
{ /* ./Rgc/rgccompile.scm 179 */
obj_t BgL_arg1358z00_538;obj_t BgL_arg1359z00_539;
{ /* ./Rgc/rgccompile.scm 179 */
obj_t BgL_auxz00_2214;
BgL_auxz00_2214 = 
BINT(((long)0)); 
BgL_arg1358z00_538 = 
MAKE_PAIR(BgL_auxz00_2214, BNIL); } 
{ /* ./Rgc/rgccompile.scm 179 */
obj_t BgL_arg1363z00_540;
{ /* ./Rgc/rgccompile.scm 179 */
obj_t BgL_arg1368z00_542;obj_t BgL_arg1370z00_543;
BgL_arg1368z00_542 = BGl_symbol3310z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 179 */
obj_t BgL_arg1374z00_544;obj_t BgL_arg1375z00_545;
{ /* ./Rgc/rgccompile.scm 179 */
obj_t BgL_arg1378z00_546;obj_t BgL_arg1380z00_547;
BgL_arg1378z00_546 = BGl_symbol3313z00zz__rgc_compilez00; 
BgL_arg1380z00_547 = 
MAKE_PAIR(BGl_symbol3302z00zz__rgc_compilez00, BNIL); 
BgL_arg1374z00_544 = 
MAKE_PAIR(BgL_arg1378z00_546, BgL_arg1380z00_547); } 
{ /* ./Rgc/rgccompile.scm 180 */
obj_t BgL_arg1384z00_548;obj_t BgL_arg1385z00_549;
{ /* ./Rgc/rgccompile.scm 180 */
obj_t BgL_matchz00_1393;
BgL_matchz00_1393 = BGl_symbol3303z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 180 */
obj_t BgL_arg1212z00_1394;obj_t BgL_arg1213z00_1395;
BgL_arg1212z00_1394 = 
BGl_statezd2namezd2zz__rgc_dfaz00(BgL_currentzd2statezd2_15); 
{ /* ./Rgc/rgccompile.scm 180 */
obj_t BgL_arg1217z00_1396;obj_t BgL_arg1218z00_1397;
BgL_arg1217z00_1396 = BGl_symbol3302z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 180 */
obj_t BgL_arg1221z00_1398;
BgL_arg1221z00_1398 = 
MAKE_PAIR(BGl_symbol3304z00zz__rgc_compilez00, BNIL); 
BgL_arg1218z00_1397 = 
MAKE_PAIR(BgL_matchz00_1393, BgL_arg1221z00_1398); } 
BgL_arg1213z00_1395 = 
MAKE_PAIR(BgL_arg1217z00_1396, BgL_arg1218z00_1397); } 
BgL_arg1384z00_548 = 
MAKE_PAIR(BgL_arg1212z00_1394, BgL_arg1213z00_1395); } } 
BgL_arg1385z00_549 = 
MAKE_PAIR(BgL_matchz00_17, BNIL); 
BgL_arg1375z00_545 = 
MAKE_PAIR(BgL_arg1384z00_548, BgL_arg1385z00_549); } 
BgL_arg1370z00_543 = 
MAKE_PAIR(BgL_arg1374z00_544, BgL_arg1375z00_545); } 
BgL_arg1363z00_540 = 
MAKE_PAIR(BgL_arg1368z00_542, BgL_arg1370z00_543); } 
BgL_arg1359z00_539 = 
MAKE_PAIR(BgL_arg1363z00_540, BNIL); } 
BgL_arg1270z00_499 = 
MAKE_PAIR(BgL_arg1358z00_538, BgL_arg1359z00_539); } } 
{ /* ./Rgc/rgccompile.scm 194 */
obj_t BgL_arg1277z00_501;
{ /* ./Rgc/rgccompile.scm 194 */
obj_t BgL_arg1281z00_503;obj_t BgL_arg1282z00_504;
BgL_arg1281z00_503 = BGl_symbol3315z00zz__rgc_compilez00; 
BgL_arg1282z00_504 = 
MAKE_PAIR(BgL_matchz00_17, BNIL); 
BgL_arg1277z00_501 = 
MAKE_PAIR(BgL_arg1281z00_503, BgL_arg1282z00_504); } 
BgL_arg1273z00_500 = 
MAKE_PAIR(BgL_arg1277z00_501, BNIL); } 
BgL_arg1235z00_482 = 
MAKE_PAIR(BgL_arg1270z00_499, BgL_arg1273z00_500); } 
BgL_arg1231z00_480 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1234z00_481, BgL_arg1235z00_482); } 
BgL_arg1227z00_478 = 
MAKE_PAIR(BgL_arg1230z00_479, BgL_arg1231z00_480); } 
return 
MAKE_PAIR(BgL_arg1225z00_477, BgL_arg1227z00_478);} } } } 
}



/* compile-case-transition */
obj_t BGl_compilezd2casezd2transitionz00zz__rgc_compilez00(obj_t BgL_matchz00_2035, obj_t BgL_sentinelzd2matchzd2_2034, obj_t BgL_statezd2transzd2_505)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 190 */
{ /* ./Rgc/rgccompile.scm 183 */
obj_t BgL_setz00_507;obj_t BgL_statez00_508;
BgL_setz00_507 = 
CDR(BgL_statezd2transzd2_505); 
BgL_statez00_508 = 
CAR(BgL_statezd2transzd2_505); 
if(
BGl_rgcsetzd2memberzf3z21zz__rgc_setz00(BgL_setz00_507, 
(int)(((long)0))))
{ /* ./Rgc/rgccompile.scm 185 */
CELL_SET(BgL_sentinelzd2matchzd2_2034, BgL_statez00_508); 
BGl_rgcsetzd2removez12zc0zz__rgc_setz00(BgL_setz00_507, 
(int)(((long)0))); }  else 
{ /* ./Rgc/rgccompile.scm 185 */BFALSE; } 
{ /* ./Rgc/rgccompile.scm 189 */
obj_t BgL_casezd2testzd2_510;
BgL_casezd2testzd2_510 = 
BGl_rgcsetzd2ze3listz31zz__rgc_setz00(BgL_setz00_507); 
{ /* ./Rgc/rgccompile.scm 190 */
obj_t BgL_arg1290z00_511;
{ /* ./Rgc/rgccompile.scm 190 */
obj_t BgL_arg1293z00_512;
{ /* ./Rgc/rgccompile.scm 190 */
obj_t BgL_arg1212z00_1373;obj_t BgL_arg1213z00_1374;
BgL_arg1212z00_1373 = 
BGl_statezd2namezd2zz__rgc_dfaz00(BgL_statez00_508); 
{ /* ./Rgc/rgccompile.scm 190 */
obj_t BgL_arg1217z00_1375;obj_t BgL_arg1218z00_1376;
BgL_arg1217z00_1375 = BGl_symbol3302z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 190 */
obj_t BgL_arg1221z00_1377;
BgL_arg1221z00_1377 = 
MAKE_PAIR(BGl_symbol3304z00zz__rgc_compilez00, BNIL); 
BgL_arg1218z00_1376 = 
MAKE_PAIR(BgL_matchz00_2035, BgL_arg1221z00_1377); } 
BgL_arg1213z00_1374 = 
MAKE_PAIR(BgL_arg1217z00_1375, BgL_arg1218z00_1376); } 
BgL_arg1293z00_512 = 
MAKE_PAIR(BgL_arg1212z00_1373, BgL_arg1213z00_1374); } 
BgL_arg1290z00_511 = 
MAKE_PAIR(BgL_arg1293z00_512, BNIL); } 
return 
MAKE_PAIR(BgL_casezd2testzd2_510, BgL_arg1290z00_511);} } } } 
}



/* compile-cond-regular */
obj_t BGl_compilezd2condzd2regularz00zz__rgc_compilez00(obj_t BgL_currentzd2statezd2_18, obj_t BgL_statezd2transzd2_19, obj_t BgL_matchz00_20)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 200 */
{ /* ./Rgc/rgccompile.scm 224 */
obj_t BgL_sentinelzd2matchzd2_554;
BgL_sentinelzd2matchzd2_554 = BUNSPEC; 
{ 
obj_t BgL_statezd2transzd2_582;long BgL_prevzd2testzd2lenz00_583;
BgL_sentinelzd2matchzd2_554 = BFALSE; 
{ 
obj_t BgL_transz00_555;obj_t BgL_testsz00_556;long BgL_costz00_557;long BgL_prevzd2lenzd2_558;
BgL_transz00_555 = BgL_statezd2transzd2_19; 
BgL_testsz00_556 = BNIL; 
BgL_costz00_557 = ((long)0); 
BgL_prevzd2lenzd2_558 = ((long)0); 
BgL_loopz00_559:
if(
NULLP(BgL_transz00_555))
{ /* ./Rgc/rgccompile.scm 229 */
if(
(BgL_costz00_557>BGl_za2casezd2thresholdza2zd2zz__rgc_compilez00))
{ /* ./Rgc/rgccompile.scm 230 */
return 
BGl_compilezd2casezd2regularz00zz__rgc_compilez00(BgL_currentzd2statezd2_18, BgL_statezd2transzd2_19, BgL_matchz00_20);}  else 
{ /* ./Rgc/rgccompile.scm 238 */
obj_t BgL_arg1395z00_562;obj_t BgL_arg1396z00_563;
BgL_arg1395z00_562 = BGl_symbol3317z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 235 */
obj_t BgL_arg1399z00_564;obj_t BgL_arg1400z00_565;
if(
BGl_statezf3zf3zz__rgc_dfaz00(BgL_sentinelzd2matchzd2_554))
{ /* ./Rgc/rgccompile.scm 204 */
obj_t BgL_arg1468z00_597;obj_t BgL_arg1469z00_598;
{ /* ./Rgc/rgccompile.scm 204 */
obj_t BgL_arg1472z00_599;obj_t BgL_arg1474z00_600;
BgL_arg1472z00_599 = BGl_symbol3316z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 204 */
obj_t BgL_arg1477z00_601;obj_t BgL_arg1478z00_602;
BgL_arg1477z00_601 = BGl_symbol3309z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 204 */
obj_t BgL_auxz00_2259;
BgL_auxz00_2259 = 
BINT(((long)0)); 
BgL_arg1478z00_602 = 
MAKE_PAIR(BgL_auxz00_2259, BNIL); } 
BgL_arg1474z00_600 = 
MAKE_PAIR(BgL_arg1477z00_601, BgL_arg1478z00_602); } 
BgL_arg1468z00_597 = 
MAKE_PAIR(BgL_arg1472z00_599, BgL_arg1474z00_600); } 
{ /* ./Rgc/rgccompile.scm 205 */
obj_t BgL_arg1482z00_603;
{ /* ./Rgc/rgccompile.scm 205 */
obj_t BgL_arg1486z00_605;obj_t BgL_arg1487z00_606;
BgL_arg1486z00_605 = BGl_symbol3310z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 205 */
obj_t BgL_arg1490z00_607;obj_t BgL_arg1491z00_608;
{ /* ./Rgc/rgccompile.scm 205 */
obj_t BgL_arg1494z00_609;obj_t BgL_arg1495z00_610;
BgL_arg1494z00_609 = BGl_symbol3311z00zz__rgc_compilez00; 
BgL_arg1495z00_610 = 
MAKE_PAIR(BGl_symbol3302z00zz__rgc_compilez00, BNIL); 
BgL_arg1490z00_607 = 
MAKE_PAIR(BgL_arg1494z00_609, BgL_arg1495z00_610); } 
{ /* ./Rgc/rgccompile.scm 206 */
obj_t BgL_arg1499z00_611;obj_t BgL_arg1500z00_612;
{ /* ./Rgc/rgccompile.scm 206 */
obj_t BgL_arg1503z00_613;obj_t BgL_arg1504z00_614;
BgL_arg1503z00_613 = BGl_symbol3310z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 206 */
obj_t BgL_arg1507z00_615;obj_t BgL_arg1508z00_616;
{ /* ./Rgc/rgccompile.scm 206 */
obj_t BgL_arg1511z00_617;obj_t BgL_arg1512z00_618;
BgL_arg1511z00_617 = BGl_symbol3312z00zz__rgc_compilez00; 
BgL_arg1512z00_618 = 
MAKE_PAIR(BGl_symbol3302z00zz__rgc_compilez00, BNIL); 
BgL_arg1507z00_615 = 
MAKE_PAIR(BgL_arg1511z00_617, BgL_arg1512z00_618); } 
{ /* ./Rgc/rgccompile.scm 207 */
obj_t BgL_arg1516z00_619;obj_t BgL_arg1518z00_620;
{ /* ./Rgc/rgccompile.scm 207 */
obj_t BgL_matchz00_1425;
BgL_matchz00_1425 = BGl_symbol3303z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 207 */
obj_t BgL_arg1212z00_1426;obj_t BgL_arg1213z00_1427;
BgL_arg1212z00_1426 = 
BGl_statezd2namezd2zz__rgc_dfaz00(BgL_currentzd2statezd2_18); 
{ /* ./Rgc/rgccompile.scm 207 */
obj_t BgL_arg1217z00_1428;obj_t BgL_arg1218z00_1429;
BgL_arg1217z00_1428 = BGl_symbol3302z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 207 */
obj_t BgL_arg1221z00_1430;
BgL_arg1221z00_1430 = 
MAKE_PAIR(BGl_symbol3304z00zz__rgc_compilez00, BNIL); 
BgL_arg1218z00_1429 = 
MAKE_PAIR(BgL_matchz00_1425, BgL_arg1221z00_1430); } 
BgL_arg1213z00_1427 = 
MAKE_PAIR(BgL_arg1217z00_1428, BgL_arg1218z00_1429); } 
BgL_arg1516z00_619 = 
MAKE_PAIR(BgL_arg1212z00_1426, BgL_arg1213z00_1427); } } 
BgL_arg1518z00_620 = 
MAKE_PAIR(BgL_matchz00_20, BNIL); 
BgL_arg1508z00_616 = 
MAKE_PAIR(BgL_arg1516z00_619, BgL_arg1518z00_620); } 
BgL_arg1504z00_614 = 
MAKE_PAIR(BgL_arg1507z00_615, BgL_arg1508z00_616); } 
BgL_arg1499z00_611 = 
MAKE_PAIR(BgL_arg1503z00_613, BgL_arg1504z00_614); } 
{ /* ./Rgc/rgccompile.scm 209 */
obj_t BgL_arg1524z00_621;
{ /* ./Rgc/rgccompile.scm 209 */
obj_t BgL_statez00_1431;
BgL_statez00_1431 = BgL_sentinelzd2matchzd2_554; 
{ /* ./Rgc/rgccompile.scm 209 */
obj_t BgL_arg1212z00_1433;obj_t BgL_arg1213z00_1434;
BgL_arg1212z00_1433 = 
BGl_statezd2namezd2zz__rgc_dfaz00(BgL_statez00_1431); 
{ /* ./Rgc/rgccompile.scm 209 */
obj_t BgL_arg1217z00_1435;obj_t BgL_arg1218z00_1436;
BgL_arg1217z00_1435 = BGl_symbol3302z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 209 */
obj_t BgL_arg1221z00_1437;
BgL_arg1221z00_1437 = 
MAKE_PAIR(BGl_symbol3304z00zz__rgc_compilez00, BNIL); 
BgL_arg1218z00_1436 = 
MAKE_PAIR(BgL_matchz00_20, BgL_arg1221z00_1437); } 
BgL_arg1213z00_1434 = 
MAKE_PAIR(BgL_arg1217z00_1435, BgL_arg1218z00_1436); } 
BgL_arg1524z00_621 = 
MAKE_PAIR(BgL_arg1212z00_1433, BgL_arg1213z00_1434); } } 
BgL_arg1500z00_612 = 
MAKE_PAIR(BgL_arg1524z00_621, BNIL); } 
BgL_arg1491z00_608 = 
MAKE_PAIR(BgL_arg1499z00_611, BgL_arg1500z00_612); } 
BgL_arg1487z00_606 = 
MAKE_PAIR(BgL_arg1490z00_607, BgL_arg1491z00_608); } 
BgL_arg1482z00_603 = 
MAKE_PAIR(BgL_arg1486z00_605, BgL_arg1487z00_606); } 
BgL_arg1469z00_598 = 
MAKE_PAIR(BgL_arg1482z00_603, BNIL); } 
BgL_arg1399z00_564 = 
MAKE_PAIR(BgL_arg1468z00_597, BgL_arg1469z00_598); }  else 
{ /* ./Rgc/rgccompile.scm 210 */
obj_t BgL_arg1529z00_623;obj_t BgL_arg1530z00_624;
{ /* ./Rgc/rgccompile.scm 210 */
obj_t BgL_arg1533z00_625;obj_t BgL_arg1534z00_626;
BgL_arg1533z00_625 = BGl_symbol3316z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 210 */
obj_t BgL_arg1537z00_627;obj_t BgL_arg1538z00_628;
BgL_arg1537z00_627 = BGl_symbol3309z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 210 */
obj_t BgL_auxz00_2288;
BgL_auxz00_2288 = 
BINT(((long)0)); 
BgL_arg1538z00_628 = 
MAKE_PAIR(BgL_auxz00_2288, BNIL); } 
BgL_arg1534z00_626 = 
MAKE_PAIR(BgL_arg1537z00_627, BgL_arg1538z00_628); } 
BgL_arg1529z00_623 = 
MAKE_PAIR(BgL_arg1533z00_625, BgL_arg1534z00_626); } 
{ /* ./Rgc/rgccompile.scm 211 */
obj_t BgL_arg1542z00_629;
{ /* ./Rgc/rgccompile.scm 211 */
obj_t BgL_arg1546z00_631;obj_t BgL_arg1547z00_632;
BgL_arg1546z00_631 = BGl_symbol3310z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 211 */
obj_t BgL_arg1550z00_633;obj_t BgL_arg1551z00_634;
{ /* ./Rgc/rgccompile.scm 211 */
obj_t BgL_arg1554z00_635;obj_t BgL_arg1555z00_636;
BgL_arg1554z00_635 = BGl_symbol3313z00zz__rgc_compilez00; 
BgL_arg1555z00_636 = 
MAKE_PAIR(BGl_symbol3302z00zz__rgc_compilez00, BNIL); 
BgL_arg1550z00_633 = 
MAKE_PAIR(BgL_arg1554z00_635, BgL_arg1555z00_636); } 
{ /* ./Rgc/rgccompile.scm 212 */
obj_t BgL_arg1559z00_637;obj_t BgL_arg1560z00_638;
{ /* ./Rgc/rgccompile.scm 212 */
obj_t BgL_matchz00_1439;
BgL_matchz00_1439 = BGl_symbol3303z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 212 */
obj_t BgL_arg1212z00_1440;obj_t BgL_arg1213z00_1441;
BgL_arg1212z00_1440 = 
BGl_statezd2namezd2zz__rgc_dfaz00(BgL_currentzd2statezd2_18); 
{ /* ./Rgc/rgccompile.scm 212 */
obj_t BgL_arg1217z00_1442;obj_t BgL_arg1218z00_1443;
BgL_arg1217z00_1442 = BGl_symbol3302z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 212 */
obj_t BgL_arg1221z00_1444;
BgL_arg1221z00_1444 = 
MAKE_PAIR(BGl_symbol3304z00zz__rgc_compilez00, BNIL); 
BgL_arg1218z00_1443 = 
MAKE_PAIR(BgL_matchz00_1439, BgL_arg1221z00_1444); } 
BgL_arg1213z00_1441 = 
MAKE_PAIR(BgL_arg1217z00_1442, BgL_arg1218z00_1443); } 
BgL_arg1559z00_637 = 
MAKE_PAIR(BgL_arg1212z00_1440, BgL_arg1213z00_1441); } } 
BgL_arg1560z00_638 = 
MAKE_PAIR(BgL_matchz00_20, BNIL); 
BgL_arg1551z00_634 = 
MAKE_PAIR(BgL_arg1559z00_637, BgL_arg1560z00_638); } 
BgL_arg1547z00_632 = 
MAKE_PAIR(BgL_arg1550z00_633, BgL_arg1551z00_634); } 
BgL_arg1542z00_629 = 
MAKE_PAIR(BgL_arg1546z00_631, BgL_arg1547z00_632); } 
BgL_arg1530z00_624 = 
MAKE_PAIR(BgL_arg1542z00_629, BNIL); } 
BgL_arg1399z00_564 = 
MAKE_PAIR(BgL_arg1529z00_623, BgL_arg1530z00_624); } 
{ /* ./Rgc/rgccompile.scm 236 */
obj_t BgL_arg1406z00_566;obj_t BgL_arg1407z00_567;
BgL_arg1406z00_566 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_testsz00_556); 
{ /* ./Rgc/rgccompile.scm 237 */
obj_t BgL_arg1412z00_568;
{ /* ./Rgc/rgccompile.scm 237 */
obj_t BgL_arg1416z00_570;obj_t BgL_arg1417z00_571;
BgL_arg1416z00_570 = BGl_symbol3315z00zz__rgc_compilez00; 
BgL_arg1417z00_571 = 
MAKE_PAIR(BgL_matchz00_20, BNIL); 
BgL_arg1412z00_568 = 
MAKE_PAIR(BgL_arg1416z00_570, BgL_arg1417z00_571); } 
BgL_arg1407z00_567 = 
MAKE_PAIR(BgL_arg1412z00_568, BNIL); } 
BgL_arg1400z00_565 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1406z00_566, BgL_arg1407z00_567); } 
BgL_arg1396z00_563 = 
MAKE_PAIR(BgL_arg1399z00_564, BgL_arg1400z00_565); } 
return 
MAKE_PAIR(BgL_arg1395z00_562, BgL_arg1396z00_563);} }  else 
{ /* ./Rgc/rgccompile.scm 239 */
obj_t BgL_testz00_572;
BgL_statezd2transzd2_582 = 
CAR(BgL_transz00_555); 
BgL_prevzd2testzd2lenz00_583 = BgL_prevzd2lenzd2_558; 
{ /* ./Rgc/rgccompile.scm 215 */
obj_t BgL_setz00_585;obj_t BgL_statez00_586;
BgL_setz00_585 = 
CDR(BgL_statezd2transzd2_582); 
BgL_statez00_586 = 
CAR(BgL_statezd2transzd2_582); 
if(
BGl_rgcsetzd2memberzf3z21zz__rgc_setz00(BgL_setz00_585, 
(int)(((long)0))))
{ /* ./Rgc/rgccompile.scm 217 */
BgL_sentinelzd2matchzd2_554 = BgL_statez00_586; 
BGl_rgcsetzd2removez12zc0zz__rgc_setz00(BgL_setz00_585, 
(int)(((long)0))); }  else 
{ /* ./Rgc/rgccompile.scm 217 */BFALSE; } 
{ /* ./Rgc/rgccompile.scm 221 */
obj_t BgL_condzd2testzd2_588;
BgL_condzd2testzd2_588 = 
BGl_compilezd2condzd2testz00zz__rgc_compilez00(BgL_setz00_585, BGl_symbol3309z00zz__rgc_compilez00, BgL_prevzd2testzd2lenz00_583); 
{ /* ./Rgc/rgccompile.scm 223 */
obj_t BgL_condzd2costzd2_589;
{ /* ./Rgc/rgccompile.scm 223 */
int BgL_auxz00_2321;
BgL_auxz00_2321 = 
(int)(((long)1)); 
BgL_condzd2costzd2_589 = 
BGL_MVALUES_VAL(BgL_auxz00_2321); } 
{ /* ./Rgc/rgccompile.scm 223 */
obj_t BgL_val0_1015z00_590;
{ /* ./Rgc/rgccompile.scm 223 */
obj_t BgL_arg1453z00_592;
{ /* ./Rgc/rgccompile.scm 223 */
obj_t BgL_arg1456z00_593;
{ /* ./Rgc/rgccompile.scm 223 */
obj_t BgL_arg1212z00_1416;obj_t BgL_arg1213z00_1417;
BgL_arg1212z00_1416 = 
BGl_statezd2namezd2zz__rgc_dfaz00(BgL_statez00_586); 
{ /* ./Rgc/rgccompile.scm 223 */
obj_t BgL_arg1217z00_1418;obj_t BgL_arg1218z00_1419;
BgL_arg1217z00_1418 = BGl_symbol3302z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 223 */
obj_t BgL_arg1221z00_1420;
BgL_arg1221z00_1420 = 
MAKE_PAIR(BGl_symbol3304z00zz__rgc_compilez00, BNIL); 
BgL_arg1218z00_1419 = 
MAKE_PAIR(BgL_matchz00_20, BgL_arg1221z00_1420); } 
BgL_arg1213z00_1417 = 
MAKE_PAIR(BgL_arg1217z00_1418, BgL_arg1218z00_1419); } 
BgL_arg1456z00_593 = 
MAKE_PAIR(BgL_arg1212z00_1416, BgL_arg1213z00_1417); } 
BgL_arg1453z00_592 = 
MAKE_PAIR(BgL_arg1456z00_593, BNIL); } 
BgL_val0_1015z00_590 = 
MAKE_PAIR(BgL_condzd2testzd2_588, BgL_arg1453z00_592); } 
{ /* ./Rgc/rgccompile.scm 223 */
int BgL_auxz00_2331;
BgL_auxz00_2331 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2331); } 
{ /* ./Rgc/rgccompile.scm 223 */
int BgL_auxz00_2334;
BgL_auxz00_2334 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2334, BgL_condzd2costzd2_589); } 
BgL_testz00_572 = BgL_val0_1015z00_590; } } } } 
{ /* ./Rgc/rgccompile.scm 240 */
obj_t BgL_cz00_573;
{ /* ./Rgc/rgccompile.scm 241 */
int BgL_auxz00_2338;
BgL_auxz00_2338 = 
(int)(((long)1)); 
BgL_cz00_573 = 
BGL_MVALUES_VAL(BgL_auxz00_2338); } 
{ /* ./Rgc/rgccompile.scm 241 */
obj_t BgL_arg1422z00_574;obj_t BgL_arg1423z00_575;long BgL_arg1424z00_576;long BgL_arg1425z00_577;
BgL_arg1422z00_574 = 
CDR(BgL_transz00_555); 
BgL_arg1423z00_575 = 
MAKE_PAIR(BgL_testz00_572, BgL_testsz00_556); 
{ /* ./Rgc/rgccompile.scm 243 */
long BgL_auxz00_2343;
BgL_auxz00_2343 = 
(long)CINT(BgL_cz00_573); 
BgL_arg1424z00_576 = 
(BgL_auxz00_2343+BgL_costz00_557); } 
{ /* ./Rgc/rgccompile.scm 244 */
int BgL_arg1431z00_578;
{ /* ./Rgc/rgccompile.scm 244 */
obj_t BgL_auxz00_2346;
{ /* ./Rgc/rgccompile.scm 244 */
obj_t BgL_auxz00_2347;
BgL_auxz00_2347 = 
CAR(BgL_transz00_555); 
BgL_auxz00_2346 = 
CDR(BgL_auxz00_2347); } 
BgL_arg1431z00_578 = 
BGl_rgcsetzd2lengthzd2zz__rgc_setz00(BgL_auxz00_2346); } 
{ /* ./Rgc/rgccompile.scm 244 */
long BgL_auxz00_2351;
BgL_auxz00_2351 = 
(long)(BgL_arg1431z00_578); 
BgL_arg1425z00_577 = 
(BgL_prevzd2lenzd2_558+BgL_auxz00_2351); } } 
{ 
long BgL_prevzd2lenzd2_2357;long BgL_costz00_2356;obj_t BgL_testsz00_2355;obj_t BgL_transz00_2354;
BgL_transz00_2354 = BgL_arg1422z00_574; 
BgL_testsz00_2355 = BgL_arg1423z00_575; 
BgL_costz00_2356 = BgL_arg1424z00_576; 
BgL_prevzd2lenzd2_2357 = BgL_arg1425z00_577; 
BgL_prevzd2lenzd2_558 = BgL_prevzd2lenzd2_2357; 
BgL_costz00_557 = BgL_costz00_2356; 
BgL_testsz00_556 = BgL_testsz00_2355; 
BgL_transz00_555 = BgL_transz00_2354; 
goto BgL_loopz00_559;} } } } } } } } 
}



/* compile-cond-test */
obj_t BGl_compilezd2condzd2testz00zz__rgc_compilez00(obj_t BgL_setz00_21, obj_t BgL_varz00_22, long BgL_prevzd2testzd2lenz00_23)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 249 */
{ /* ./Rgc/rgccompile.scm 302 */
obj_t BgL_maxz00_645;int BgL_lenz00_646;
BgL_maxz00_645 = 
BGl_rgczd2maxzd2charz00zz__rgc_configz00(); 
BgL_lenz00_646 = 
BGl_rgcsetzd2lengthzd2zz__rgc_setz00(BgL_setz00_21); 
{ /* ./Rgc/rgccompile.scm 305 */
bool_t BgL_test1565z00_647;
{ /* ./Rgc/rgccompile.scm 305 */
obj_t BgL_arg1593z00_661;long BgL_arg1594z00_662;
BgL_arg1593z00_661 = 
BGl_rgczd2maxzd2charz00zz__rgc_configz00(); 
{ /* ./Rgc/rgccompile.scm 305 */
long BgL_auxz00_2361;
{ /* ./Rgc/rgccompile.scm 305 */
long BgL_auxz00_2362;
BgL_auxz00_2362 = 
(long)(BgL_lenz00_646); 
BgL_auxz00_2361 = 
(BgL_auxz00_2362+BgL_prevzd2testzd2lenz00_23); } 
BgL_arg1594z00_662 = 
(((long)1)+BgL_auxz00_2361); } 
{ /* ./Rgc/rgccompile.scm 305 */
long BgL_auxz00_2366;
BgL_auxz00_2366 = 
(long)CINT(BgL_arg1593z00_661); 
BgL_test1565z00_647 = 
(BgL_auxz00_2366==BgL_arg1594z00_662); } } 
if(BgL_test1565z00_647)
{ /* ./Rgc/rgccompile.scm 305 */
{ /* ./Rgc/rgccompile.scm 309 */
obj_t BgL_val0_1031z00_648;
BgL_val0_1031z00_648 = BGl_symbol3315z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 309 */
int BgL_auxz00_2370;
BgL_auxz00_2370 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2370); } 
{ /* ./Rgc/rgccompile.scm 309 */
obj_t BgL_auxz00_2375;int BgL_auxz00_2373;
BgL_auxz00_2375 = 
BINT(((long)0)); 
BgL_auxz00_2373 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2373, BgL_auxz00_2375); } 
return BgL_val0_1031z00_648;} }  else 
{ /* ./Rgc/rgccompile.scm 310 */
bool_t BgL_testz00_2378;
{ /* ./Rgc/rgccompile.scm 310 */
long BgL_auxz00_2381;long BgL_auxz00_2379;
{ /* ./Rgc/rgccompile.scm 310 */
long BgL_auxz00_2382;
{ /* ./Rgc/rgccompile.scm 310 */
long BgL_auxz00_2383;
BgL_auxz00_2383 = 
(long)CINT(BgL_maxz00_645); 
BgL_auxz00_2382 = 
(BgL_auxz00_2383/((long)2)); } 
BgL_auxz00_2381 = 
(((long)2)+BgL_auxz00_2382); } 
BgL_auxz00_2379 = 
(long)(BgL_lenz00_646); 
BgL_testz00_2378 = 
(BgL_auxz00_2379>BgL_auxz00_2381); } 
if(BgL_testz00_2378)
{ /* ./Rgc/rgccompile.scm 310 */
{ /* ./Rgc/rgccompile.scm 312 */
obj_t BgL_testz00_651;
BgL_testz00_651 = 
BGl_compilezd2rangezd2testz00zz__rgc_compilez00(BgL_varz00_22, 
BGl_rgcsetzd2notzd2zz__rgc_setz00(BgL_setz00_21)); 
{ /* ./Rgc/rgccompile.scm 314 */
obj_t BgL_costz00_652;
{ /* ./Rgc/rgccompile.scm 314 */
int BgL_auxz00_2390;
BgL_auxz00_2390 = 
(int)(((long)1)); 
BgL_costz00_652 = 
BGL_MVALUES_VAL(BgL_auxz00_2390); } 
{ /* ./Rgc/rgccompile.scm 314 */
obj_t BgL_val0_1033z00_653;long BgL_val1_1034z00_654;
{ /* ./Rgc/rgccompile.scm 314 */
obj_t BgL_arg1572z00_655;obj_t BgL_arg1573z00_656;
BgL_arg1572z00_655 = BGl_symbol3318z00zz__rgc_compilez00; 
BgL_arg1573z00_656 = 
MAKE_PAIR(BgL_testz00_651, BNIL); 
BgL_val0_1033z00_653 = 
MAKE_PAIR(BgL_arg1572z00_655, BgL_arg1573z00_656); } 
{ /* ./Rgc/rgccompile.scm 314 */
long BgL_auxz00_2395;
BgL_auxz00_2395 = 
(long)CINT(BgL_costz00_652); 
BgL_val1_1034z00_654 = 
(((long)1)+BgL_auxz00_2395); } 
{ /* ./Rgc/rgccompile.scm 314 */
int BgL_auxz00_2398;
BgL_auxz00_2398 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2398); } 
{ /* ./Rgc/rgccompile.scm 314 */
obj_t BgL_auxz00_2403;int BgL_auxz00_2401;
BgL_auxz00_2403 = 
BINT(BgL_val1_1034z00_654); 
BgL_auxz00_2401 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2401, BgL_auxz00_2403); } 
return BgL_val0_1033z00_653;} } } }  else 
{ /* ./Rgc/rgccompile.scm 310 */
return 
BGl_compilezd2rangezd2testz00zz__rgc_compilez00(BgL_varz00_22, BgL_setz00_21);} } } } } 
}



/* compile-range-test */
obj_t BGl_compilezd2rangezd2testz00zz__rgc_compilez00(obj_t BgL_varz00_2033, obj_t BgL_setz00_665)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 301 */
{ 
obj_t BgL_startz00_687;obj_t BgL_stopz00_688;obj_t BgL_setz00_689;
{ 
obj_t BgL_startz00_667;obj_t BgL_testsz00_668;long BgL_costz00_669;
{ /* ./Rgc/rgccompile.scm 291 */
long BgL_arg1606z00_671;
{ /* ./Rgc/rgccompile.scm 291 */
obj_t BgL_maxz00_1468;
BgL_maxz00_1468 = 
BGl_rgczd2maxzd2charz00zz__rgc_configz00(); 
{ 
long BgL_iz00_1470;
BgL_iz00_1470 = ((long)1); 
BgL_loopz00_1469:
{ /* ./Rgc/rgccompile.scm 291 */
bool_t BgL_testz00_2408;
{ /* ./Rgc/rgccompile.scm 291 */
long BgL_auxz00_2409;
BgL_auxz00_2409 = 
(long)CINT(BgL_maxz00_1468); 
BgL_testz00_2408 = 
(BgL_iz00_1470==BgL_auxz00_2409); } 
if(BgL_testz00_2408)
{ /* ./Rgc/rgccompile.scm 291 */
BgL_arg1606z00_671 = ((long)-1); }  else 
{ /* ./Rgc/rgccompile.scm 291 */
if(
BGl_rgcsetzd2memberzf3z21zz__rgc_setz00(BgL_setz00_665, 
(int)(BgL_iz00_1470)))
{ /* ./Rgc/rgccompile.scm 291 */
BgL_arg1606z00_671 = BgL_iz00_1470; }  else 
{ /* ./Rgc/rgccompile.scm 291 */
{ 
long BgL_iz00_2415;
BgL_iz00_2415 = 
(BgL_iz00_1470+((long)1)); 
BgL_iz00_1470 = BgL_iz00_2415; 
goto BgL_loopz00_1469;} } } } } } 
BgL_startz00_667 = 
BINT(BgL_arg1606z00_671); 
BgL_testsz00_668 = BNIL; 
BgL_costz00_669 = ((long)0); 
BgL_loopz00_670:
{ /* ./Rgc/rgccompile.scm 294 */
bool_t BgL_testz00_2417;
{ /* ./Rgc/rgccompile.scm 294 */
long BgL_auxz00_2418;
BgL_auxz00_2418 = 
(long)CINT(BgL_startz00_667); 
BgL_testz00_2417 = 
(BgL_auxz00_2418==((long)-1)); } 
if(BgL_testz00_2417)
{ /* ./Rgc/rgccompile.scm 295 */
obj_t BgL_val0_1029z00_675;
{ /* ./Rgc/rgccompile.scm 295 */
obj_t BgL_auxz00_2421;
BgL_auxz00_2421 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_testsz00_668), BNIL); 
BgL_val0_1029z00_675 = 
MAKE_PAIR(BGl_symbol3319z00zz__rgc_compilez00, BgL_auxz00_2421); } 
{ /* ./Rgc/rgccompile.scm 295 */
int BgL_auxz00_2425;
BgL_auxz00_2425 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2425); } 
{ /* ./Rgc/rgccompile.scm 295 */
obj_t BgL_auxz00_2430;int BgL_auxz00_2428;
BgL_auxz00_2430 = 
BINT(BgL_costz00_669); 
BgL_auxz00_2428 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2428, BgL_auxz00_2430); } 
return BgL_val0_1029z00_675;}  else 
{ /* ./Rgc/rgccompile.scm 296 */
obj_t BgL_stopz00_681;
{ /* ./Rgc/rgccompile.scm 296 */
obj_t BgL_maxz00_1485;
BgL_maxz00_1485 = 
BGl_rgczd2maxzd2charz00zz__rgc_configz00(); 
{ 
obj_t BgL_iz00_1487;
BgL_iz00_1487 = BgL_startz00_667; 
BgL_loopz00_1486:
{ /* ./Rgc/rgccompile.scm 296 */
bool_t BgL_testz00_2434;
{ /* ./Rgc/rgccompile.scm 296 */
long BgL_auxz00_2437;long BgL_auxz00_2435;
BgL_auxz00_2437 = 
(long)CINT(BgL_maxz00_1485); 
BgL_auxz00_2435 = 
(long)CINT(BgL_iz00_1487); 
BgL_testz00_2434 = 
(BgL_auxz00_2435==BgL_auxz00_2437); } 
if(BgL_testz00_2434)
{ /* ./Rgc/rgccompile.scm 296 */
BgL_stopz00_681 = BgL_maxz00_1485; }  else 
{ /* ./Rgc/rgccompile.scm 296 */
if(
BGl_rgcsetzd2memberzf3z21zz__rgc_setz00(BgL_setz00_665, 
CINT(BgL_iz00_1487)))
{ /* ./Rgc/rgccompile.scm 296 */
{ /* ./Rgc/rgccompile.scm 296 */
long BgL_arg1761z00_1490;
{ /* ./Rgc/rgccompile.scm 296 */
long BgL_auxz00_2443;
BgL_auxz00_2443 = 
(long)CINT(BgL_iz00_1487); 
BgL_arg1761z00_1490 = 
(BgL_auxz00_2443+((long)1)); } 
{ 
obj_t BgL_iz00_2446;
BgL_iz00_2446 = 
BINT(BgL_arg1761z00_1490); 
BgL_iz00_1487 = BgL_iz00_2446; 
goto BgL_loopz00_1486;} } }  else 
{ /* ./Rgc/rgccompile.scm 296 */
BgL_stopz00_681 = BgL_iz00_1487; } } } } } 
{ /* ./Rgc/rgccompile.scm 297 */
obj_t BgL_testz00_682;
BgL_startz00_687 = BgL_startz00_667; 
BgL_stopz00_688 = BgL_stopz00_681; 
BgL_setz00_689 = BgL_setz00_665; 
{ /* ./Rgc/rgccompile.scm 272 */
bool_t BgL_testz00_2448;
{ /* ./Rgc/rgccompile.scm 272 */
long BgL_auxz00_2453;long BgL_auxz00_2449;
BgL_auxz00_2453 = 
(long)CINT(BgL_startz00_687); 
{ /* ./Rgc/rgccompile.scm 272 */
long BgL_auxz00_2450;
BgL_auxz00_2450 = 
(long)CINT(BgL_stopz00_688); 
BgL_auxz00_2449 = 
(BgL_auxz00_2450-((long)1)); } 
BgL_testz00_2448 = 
(BgL_auxz00_2449==BgL_auxz00_2453); } 
if(BgL_testz00_2448)
{ /* ./Rgc/rgccompile.scm 272 */
{ /* ./Rgc/rgccompile.scm 273 */
obj_t BgL_val0_1017z00_692;
{ /* ./Rgc/rgccompile.scm 273 */
obj_t BgL_arg1640z00_694;obj_t BgL_arg1641z00_695;
BgL_arg1640z00_694 = BGl_symbol3316z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 273 */
obj_t BgL_arg1644z00_696;
BgL_arg1644z00_696 = 
MAKE_PAIR(BgL_startz00_687, BNIL); 
BgL_arg1641z00_695 = 
MAKE_PAIR(BgL_varz00_2033, BgL_arg1644z00_696); } 
BgL_val0_1017z00_692 = 
MAKE_PAIR(BgL_arg1640z00_694, BgL_arg1641z00_695); } 
{ /* ./Rgc/rgccompile.scm 273 */
int BgL_auxz00_2459;
BgL_auxz00_2459 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2459); } 
{ /* ./Rgc/rgccompile.scm 273 */
obj_t BgL_auxz00_2464;int BgL_auxz00_2462;
BgL_auxz00_2464 = 
BINT(((long)1)); 
BgL_auxz00_2462 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2462, BgL_auxz00_2464); } 
BgL_testz00_682 = BgL_val0_1017z00_692; } }  else 
{ /* ./Rgc/rgccompile.scm 274 */
bool_t BgL_testz00_2467;
{ /* ./Rgc/rgccompile.scm 274 */
long BgL_auxz00_2468;
{ /* ./Rgc/rgccompile.scm 274 */
long BgL_auxz00_2471;long BgL_auxz00_2469;
BgL_auxz00_2471 = 
(long)CINT(BgL_startz00_687); 
BgL_auxz00_2469 = 
(long)CINT(BgL_stopz00_688); 
BgL_auxz00_2468 = 
(BgL_auxz00_2469-BgL_auxz00_2471); } 
BgL_testz00_2467 = 
(BgL_auxz00_2468<((long)4)); } 
if(BgL_testz00_2467)
{ /* ./Rgc/rgccompile.scm 274 */
{ /* ./Rgc/rgccompile.scm 275 */
obj_t BgL_val0_1019z00_698;long BgL_val1_1020z00_699;
{ /* ./Rgc/rgccompile.scm 275 */
obj_t BgL_arg1651z00_700;obj_t BgL_arg1652z00_701;
BgL_arg1651z00_700 = BGl_symbol3319z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 275 */
obj_t BgL_arg1655z00_702;
{ 
obj_t BgL_startz00_704;obj_t BgL_resz00_705;
BgL_startz00_704 = BgL_startz00_687; 
BgL_resz00_705 = BNIL; 
BgL_loopz00_706:
{ /* ./Rgc/rgccompile.scm 277 */
bool_t BgL_testz00_2475;
{ /* ./Rgc/rgccompile.scm 277 */
long BgL_auxz00_2478;long BgL_auxz00_2476;
BgL_auxz00_2478 = 
(long)CINT(BgL_stopz00_688); 
BgL_auxz00_2476 = 
(long)CINT(BgL_startz00_704); 
BgL_testz00_2475 = 
(BgL_auxz00_2476==BgL_auxz00_2478); } 
if(BgL_testz00_2475)
{ /* ./Rgc/rgccompile.scm 277 */
BgL_arg1655z00_702 = BgL_resz00_705; }  else 
{ /* ./Rgc/rgccompile.scm 279 */
long BgL_arg1661z00_708;obj_t BgL_arg1662z00_709;
{ /* ./Rgc/rgccompile.scm 279 */
long BgL_auxz00_2481;
BgL_auxz00_2481 = 
(long)CINT(BgL_startz00_704); 
BgL_arg1661z00_708 = 
(BgL_auxz00_2481+((long)1)); } 
{ /* ./Rgc/rgccompile.scm 280 */
obj_t BgL_arg1666z00_710;
{ /* ./Rgc/rgccompile.scm 280 */
obj_t BgL_arg1669z00_711;obj_t BgL_arg1670z00_712;
BgL_arg1669z00_711 = BGl_symbol3316z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 280 */
obj_t BgL_arg1673z00_713;
BgL_arg1673z00_713 = 
MAKE_PAIR(BgL_startz00_704, BNIL); 
BgL_arg1670z00_712 = 
MAKE_PAIR(BgL_varz00_2033, BgL_arg1673z00_713); } 
BgL_arg1666z00_710 = 
MAKE_PAIR(BgL_arg1669z00_711, BgL_arg1670z00_712); } 
BgL_arg1662z00_709 = 
MAKE_PAIR(BgL_arg1666z00_710, BgL_resz00_705); } 
{ 
obj_t BgL_resz00_2490;obj_t BgL_startz00_2488;
BgL_startz00_2488 = 
BINT(BgL_arg1661z00_708); 
BgL_resz00_2490 = BgL_arg1662z00_709; 
BgL_resz00_705 = BgL_resz00_2490; 
BgL_startz00_704 = BgL_startz00_2488; 
goto BgL_loopz00_706;} } } } 
BgL_arg1652z00_701 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1655z00_702, BNIL); } 
BgL_val0_1019z00_698 = 
MAKE_PAIR(BgL_arg1651z00_700, BgL_arg1652z00_701); } 
{ /* ./Rgc/rgccompile.scm 281 */
long BgL_auxz00_2495;long BgL_auxz00_2493;
BgL_auxz00_2495 = 
(long)CINT(BgL_startz00_687); 
BgL_auxz00_2493 = 
(long)CINT(BgL_stopz00_688); 
BgL_val1_1020z00_699 = 
(BgL_auxz00_2493-BgL_auxz00_2495); } 
{ /* ./Rgc/rgccompile.scm 275 */
int BgL_auxz00_2498;
BgL_auxz00_2498 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2498); } 
{ /* ./Rgc/rgccompile.scm 275 */
obj_t BgL_auxz00_2503;int BgL_auxz00_2501;
BgL_auxz00_2503 = 
BINT(BgL_val1_1020z00_699); 
BgL_auxz00_2501 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2501, BgL_auxz00_2503); } 
BgL_testz00_682 = BgL_val0_1019z00_698; } }  else 
{ /* ./Rgc/rgccompile.scm 282 */
bool_t BgL_test1678z00_714;
{ /* ./Rgc/rgccompile.scm 282 */
bool_t BgL_test1739z00_744;
{ /* ./Rgc/rgccompile.scm 282 */
obj_t BgL_arg1743z00_745;
BgL_arg1743z00_745 = 
BGl_rgczd2maxzd2charz00zz__rgc_configz00(); 
{ /* ./Rgc/rgccompile.scm 282 */
long BgL_auxz00_2509;long BgL_auxz00_2507;
BgL_auxz00_2509 = 
(long)CINT(BgL_arg1743z00_745); 
BgL_auxz00_2507 = 
(long)CINT(BgL_stopz00_688); 
BgL_test1739z00_744 = 
(BgL_auxz00_2507==BgL_auxz00_2509); } } 
if(BgL_test1739z00_744)
{ /* ./Rgc/rgccompile.scm 282 */
long BgL_auxz00_2513;
BgL_auxz00_2513 = 
(long)CINT(BgL_startz00_687); 
BgL_test1678z00_714 = 
(BgL_auxz00_2513==((long)1)); }  else 
{ /* ./Rgc/rgccompile.scm 282 */
BgL_test1678z00_714 = ((bool_t)0); } } 
if(BgL_test1678z00_714)
{ /* ./Rgc/rgccompile.scm 282 */
{ /* ./Rgc/rgccompile.scm 283 */
int BgL_auxz00_2517;
BgL_auxz00_2517 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2517); } 
{ /* ./Rgc/rgccompile.scm 283 */
obj_t BgL_auxz00_2522;int BgL_auxz00_2520;
BgL_auxz00_2522 = 
BINT(((long)0)); 
BgL_auxz00_2520 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2520, BgL_auxz00_2522); } 
BgL_testz00_682 = BTRUE; }  else 
{ /* ./Rgc/rgccompile.scm 284 */
bool_t BgL_test1681z00_717;
{ /* ./Rgc/rgccompile.scm 284 */
obj_t BgL_arg1736z00_743;
BgL_arg1736z00_743 = 
BGl_rgczd2maxzd2charz00zz__rgc_configz00(); 
{ /* ./Rgc/rgccompile.scm 284 */
long BgL_auxz00_2528;long BgL_auxz00_2526;
BgL_auxz00_2528 = 
(long)CINT(BgL_arg1736z00_743); 
BgL_auxz00_2526 = 
(long)CINT(BgL_stopz00_688); 
BgL_test1681z00_717 = 
(BgL_auxz00_2526==BgL_auxz00_2528); } } 
if(BgL_test1681z00_717)
{ /* ./Rgc/rgccompile.scm 284 */
{ /* ./Rgc/rgccompile.scm 285 */
obj_t BgL_val0_1023z00_718;
{ /* ./Rgc/rgccompile.scm 285 */
obj_t BgL_arg1685z00_720;obj_t BgL_arg1686z00_721;
BgL_arg1685z00_720 = BGl_symbol3320z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 285 */
obj_t BgL_arg1689z00_722;
BgL_arg1689z00_722 = 
MAKE_PAIR(BgL_startz00_687, BNIL); 
BgL_arg1686z00_721 = 
MAKE_PAIR(BgL_varz00_2033, BgL_arg1689z00_722); } 
BgL_val0_1023z00_718 = 
MAKE_PAIR(BgL_arg1685z00_720, BgL_arg1686z00_721); } 
{ /* ./Rgc/rgccompile.scm 285 */
int BgL_auxz00_2535;
BgL_auxz00_2535 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2535); } 
{ /* ./Rgc/rgccompile.scm 285 */
obj_t BgL_auxz00_2540;int BgL_auxz00_2538;
BgL_auxz00_2540 = 
BINT(((long)1)); 
BgL_auxz00_2538 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2538, BgL_auxz00_2540); } 
BgL_testz00_682 = BgL_val0_1023z00_718; } }  else 
{ /* ./Rgc/rgccompile.scm 286 */
bool_t BgL_testz00_2543;
{ /* ./Rgc/rgccompile.scm 286 */
long BgL_auxz00_2544;
BgL_auxz00_2544 = 
(long)CINT(BgL_startz00_687); 
BgL_testz00_2543 = 
(BgL_auxz00_2544==((long)1)); } 
if(BgL_testz00_2543)
{ /* ./Rgc/rgccompile.scm 286 */
{ /* ./Rgc/rgccompile.scm 287 */
obj_t BgL_val0_1025z00_724;
{ /* ./Rgc/rgccompile.scm 287 */
obj_t BgL_arg1696z00_726;obj_t BgL_arg1697z00_727;
BgL_arg1696z00_726 = BGl_symbol3321z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 287 */
obj_t BgL_arg1700z00_728;
BgL_arg1700z00_728 = 
MAKE_PAIR(BgL_stopz00_688, BNIL); 
BgL_arg1697z00_727 = 
MAKE_PAIR(BgL_varz00_2033, BgL_arg1700z00_728); } 
BgL_val0_1025z00_724 = 
MAKE_PAIR(BgL_arg1696z00_726, BgL_arg1697z00_727); } 
{ /* ./Rgc/rgccompile.scm 287 */
int BgL_auxz00_2550;
BgL_auxz00_2550 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2550); } 
{ /* ./Rgc/rgccompile.scm 287 */
obj_t BgL_auxz00_2555;int BgL_auxz00_2553;
BgL_auxz00_2555 = 
BINT(((long)1)); 
BgL_auxz00_2553 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2553, BgL_auxz00_2555); } 
BgL_testz00_682 = BgL_val0_1025z00_724; } }  else 
{ /* ./Rgc/rgccompile.scm 286 */
{ /* ./Rgc/rgccompile.scm 289 */
obj_t BgL_val0_1027z00_729;
{ /* ./Rgc/rgccompile.scm 289 */
obj_t BgL_arg1706z00_731;obj_t BgL_arg1707z00_732;
BgL_arg1706z00_731 = BGl_symbol3322z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 289 */
obj_t BgL_arg1710z00_733;obj_t BgL_arg1711z00_734;
{ /* ./Rgc/rgccompile.scm 289 */
obj_t BgL_arg1714z00_735;obj_t BgL_arg1715z00_736;
BgL_arg1714z00_735 = BGl_symbol3320z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 289 */
obj_t BgL_arg1718z00_737;
BgL_arg1718z00_737 = 
MAKE_PAIR(BgL_startz00_687, BNIL); 
BgL_arg1715z00_736 = 
MAKE_PAIR(BgL_varz00_2033, BgL_arg1718z00_737); } 
BgL_arg1710z00_733 = 
MAKE_PAIR(BgL_arg1714z00_735, BgL_arg1715z00_736); } 
{ /* ./Rgc/rgccompile.scm 289 */
obj_t BgL_arg1722z00_738;
{ /* ./Rgc/rgccompile.scm 289 */
obj_t BgL_arg1726z00_740;obj_t BgL_arg1727z00_741;
BgL_arg1726z00_740 = BGl_symbol3321z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 289 */
obj_t BgL_arg1731z00_742;
BgL_arg1731z00_742 = 
MAKE_PAIR(BgL_stopz00_688, BNIL); 
BgL_arg1727z00_741 = 
MAKE_PAIR(BgL_varz00_2033, BgL_arg1731z00_742); } 
BgL_arg1722z00_738 = 
MAKE_PAIR(BgL_arg1726z00_740, BgL_arg1727z00_741); } 
BgL_arg1711z00_734 = 
MAKE_PAIR(BgL_arg1722z00_738, BNIL); } 
BgL_arg1707z00_732 = 
MAKE_PAIR(BgL_arg1710z00_733, BgL_arg1711z00_734); } 
BgL_val0_1027z00_729 = 
MAKE_PAIR(BgL_arg1706z00_731, BgL_arg1707z00_732); } 
{ /* ./Rgc/rgccompile.scm 289 */
int BgL_auxz00_2567;
BgL_auxz00_2567 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2567); } 
{ /* ./Rgc/rgccompile.scm 289 */
obj_t BgL_auxz00_2572;int BgL_auxz00_2570;
BgL_auxz00_2572 = 
BINT(((long)3)); 
BgL_auxz00_2570 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2570, BgL_auxz00_2572); } 
BgL_testz00_682 = BgL_val0_1027z00_729; } } } } } } } 
{ /* ./Rgc/rgccompile.scm 299 */
obj_t BgL_cz00_683;
{ /* ./Rgc/rgccompile.scm 299 */
int BgL_auxz00_2575;
BgL_auxz00_2575 = 
(int)(((long)1)); 
BgL_cz00_683 = 
BGL_MVALUES_VAL(BgL_auxz00_2575); } 
{ /* ./Rgc/rgccompile.scm 299 */
obj_t BgL_arg1624z00_684;obj_t BgL_arg1625z00_685;long BgL_arg1626z00_686;
{ /* ./Rgc/rgccompile.scm 299 */
obj_t BgL_maxz00_1498;
BgL_maxz00_1498 = 
BGl_rgczd2maxzd2charz00zz__rgc_configz00(); 
{ 
obj_t BgL_iz00_1500;
BgL_iz00_1500 = BgL_stopz00_681; 
BgL_loopz00_1499:
{ /* ./Rgc/rgccompile.scm 299 */
bool_t BgL_testz00_2579;
{ /* ./Rgc/rgccompile.scm 299 */
long BgL_auxz00_2582;long BgL_auxz00_2580;
BgL_auxz00_2582 = 
(long)CINT(BgL_maxz00_1498); 
BgL_auxz00_2580 = 
(long)CINT(BgL_iz00_1500); 
BgL_testz00_2579 = 
(BgL_auxz00_2580==BgL_auxz00_2582); } 
if(BgL_testz00_2579)
{ /* ./Rgc/rgccompile.scm 299 */
BgL_arg1624z00_684 = 
BINT(((long)-1)); }  else 
{ /* ./Rgc/rgccompile.scm 299 */
if(
BGl_rgcsetzd2memberzf3z21zz__rgc_setz00(BgL_setz00_665, 
CINT(BgL_iz00_1500)))
{ /* ./Rgc/rgccompile.scm 299 */
BgL_arg1624z00_684 = BgL_iz00_1500; }  else 
{ /* ./Rgc/rgccompile.scm 299 */
{ /* ./Rgc/rgccompile.scm 299 */
long BgL_arg1772z00_1503;
{ /* ./Rgc/rgccompile.scm 299 */
long BgL_auxz00_2589;
BgL_auxz00_2589 = 
(long)CINT(BgL_iz00_1500); 
BgL_arg1772z00_1503 = 
(BgL_auxz00_2589+((long)1)); } 
{ 
obj_t BgL_iz00_2592;
BgL_iz00_2592 = 
BINT(BgL_arg1772z00_1503); 
BgL_iz00_1500 = BgL_iz00_2592; 
goto BgL_loopz00_1499;} } } } } } } 
BgL_arg1625z00_685 = 
MAKE_PAIR(BgL_testz00_682, BgL_testsz00_668); 
{ /* ./Rgc/rgccompile.scm 301 */
long BgL_auxz00_2595;
BgL_auxz00_2595 = 
(long)CINT(BgL_cz00_683); 
BgL_arg1626z00_686 = 
(BgL_auxz00_2595+BgL_costz00_669); } 
{ 
long BgL_costz00_2600;obj_t BgL_testsz00_2599;obj_t BgL_startz00_2598;
BgL_startz00_2598 = BgL_arg1624z00_684; 
BgL_testsz00_2599 = BgL_arg1625z00_685; 
BgL_costz00_2600 = BgL_arg1626z00_686; 
BgL_costz00_669 = BgL_costz00_2600; 
BgL_testsz00_668 = BgL_testsz00_2599; 
BgL_startz00_667 = BgL_startz00_2598; 
goto BgL_loopz00_670;} } } } } } } } } } 
}



/* state-transition-list */
obj_t BGl_statezd2transitionzd2listz00zz__rgc_compilez00(obj_t BgL_transitionsz00_24)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 321 */
{ 
obj_t BgL_transitionsz00_771;obj_t BgL_resz00_772;
BgL_transitionsz00_771 = BgL_transitionsz00_24; 
BgL_resz00_772 = BNIL; 
BgL_loopz00_773:
if(
NULLP(BgL_transitionsz00_771))
{ /* ./Rgc/rgccompile.scm 324 */
return BgL_resz00_772;}  else 
{ /* ./Rgc/rgccompile.scm 326 */
obj_t BgL_transitionz00_775;
BgL_transitionz00_775 = 
CAR(BgL_transitionsz00_771); 
{ /* ./Rgc/rgccompile.scm 326 */
obj_t BgL_charz00_776;
BgL_charz00_776 = 
CAR(BgL_transitionz00_775); 
{ /* ./Rgc/rgccompile.scm 327 */
obj_t BgL_statez00_777;
BgL_statez00_777 = 
CDR(BgL_transitionz00_775); 
{ /* ./Rgc/rgccompile.scm 328 */

{ /* ./Rgc/rgccompile.scm 329 */
obj_t BgL_cellz00_778;
BgL_cellz00_778 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_statez00_777, BgL_resz00_772); 
if(
PAIRP(BgL_cellz00_778))
{ /* ./Rgc/rgccompile.scm 330 */
BGl_rgcsetzd2addz12zc0zz__rgc_setz00(
CDR(BgL_cellz00_778), 
CINT(BgL_charz00_776)); 
{ 
obj_t BgL_transitionsz00_2613;
BgL_transitionsz00_2613 = 
CDR(BgL_transitionsz00_771); 
BgL_transitionsz00_771 = BgL_transitionsz00_2613; 
goto BgL_loopz00_773;} }  else 
{ /* ./Rgc/rgccompile.scm 331 */
obj_t BgL_setz00_782;
{ /* ./Rgc/rgccompile.scm 331 */
obj_t BgL_arg1799z00_786;obj_t BgL_arg1800z00_787;
{ /* ./Rgc/rgccompile.scm 331 */
obj_t BgL_list1803z00_788;
BgL_list1803z00_788 = 
MAKE_PAIR(BgL_charz00_776, BNIL); 
BgL_arg1799z00_786 = BgL_list1803z00_788; } 
BgL_arg1800z00_787 = 
BGl_rgczd2maxzd2charz00zz__rgc_configz00(); 
BgL_setz00_782 = 
BGl_listzd2ze3rgcsetz31zz__rgc_setz00(BgL_arg1799z00_786, 
CINT(BgL_arg1800z00_787)); } 
{ /* ./Rgc/rgccompile.scm 332 */
obj_t BgL_arg1790z00_783;obj_t BgL_arg1791z00_784;
BgL_arg1790z00_783 = 
CDR(BgL_transitionsz00_771); 
{ /* ./Rgc/rgccompile.scm 333 */
obj_t BgL_arg1795z00_785;
BgL_arg1795z00_785 = 
MAKE_PAIR(BgL_statez00_777, BgL_setz00_782); 
BgL_arg1791z00_784 = 
MAKE_PAIR(BgL_arg1795z00_785, BgL_resz00_772); } 
{ 
obj_t BgL_resz00_2623;obj_t BgL_transitionsz00_2622;
BgL_transitionsz00_2622 = BgL_arg1790z00_783; 
BgL_resz00_2623 = BgL_arg1791z00_784; 
BgL_resz00_772 = BgL_resz00_2623; 
BgL_transitionsz00_771 = BgL_transitionsz00_2622; 
goto BgL_loopz00_773;} } } } } } } } } } 
}



/* insort */
obj_t BGl_insortz00zz__rgc_compilez00(int BgL_elz00_25, obj_t BgL_lstz00_26)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 343 */
if(
NULLP(BgL_lstz00_26))
{ /* ./Rgc/rgccompile.scm 345 */
{ /* ./Rgc/rgccompile.scm 346 */
obj_t BgL_list1814z00_790;
{ /* ./Rgc/rgccompile.scm 346 */
obj_t BgL_auxz00_2626;
BgL_auxz00_2626 = 
BINT(BgL_elz00_25); 
BgL_list1814z00_790 = 
MAKE_PAIR(BgL_auxz00_2626, BNIL); } 
return BgL_list1814z00_790;} }  else 
{ /* ./Rgc/rgccompile.scm 347 */
bool_t BgL_testz00_2629;
{ /* ./Rgc/rgccompile.scm 347 */
long BgL_auxz00_2632;long BgL_auxz00_2630;
{ /* ./Rgc/rgccompile.scm 347 */
obj_t BgL_auxz00_2633;
BgL_auxz00_2633 = 
CAR(BgL_lstz00_26); 
BgL_auxz00_2632 = 
(long)CINT(BgL_auxz00_2633); } 
BgL_auxz00_2630 = 
(long)(BgL_elz00_25); 
BgL_testz00_2629 = 
(BgL_auxz00_2630<BgL_auxz00_2632); } 
if(BgL_testz00_2629)
{ /* ./Rgc/rgccompile.scm 347 */
{ /* ./Rgc/rgccompile.scm 348 */
obj_t BgL_auxz00_2637;
BgL_auxz00_2637 = 
BINT(BgL_elz00_25); 
return 
MAKE_PAIR(BgL_auxz00_2637, BgL_lstz00_26);} }  else 
{ /* ./Rgc/rgccompile.scm 349 */
bool_t BgL_testz00_2640;
{ /* ./Rgc/rgccompile.scm 349 */
long BgL_auxz00_2643;long BgL_auxz00_2641;
{ /* ./Rgc/rgccompile.scm 349 */
obj_t BgL_auxz00_2644;
BgL_auxz00_2644 = 
CAR(BgL_lstz00_26); 
BgL_auxz00_2643 = 
(long)CINT(BgL_auxz00_2644); } 
BgL_auxz00_2641 = 
(long)(BgL_elz00_25); 
BgL_testz00_2640 = 
(BgL_auxz00_2641==BgL_auxz00_2643); } 
if(BgL_testz00_2640)
{ /* ./Rgc/rgccompile.scm 349 */
return BgL_lstz00_26;}  else 
{ /* ./Rgc/rgccompile.scm 349 */
{ /* ./Rgc/rgccompile.scm 352 */
obj_t BgL_auxz00_2650;obj_t BgL_auxz00_2648;
BgL_auxz00_2650 = 
BGl_insortz00zz__rgc_compilez00(BgL_elz00_25, 
CDR(BgL_lstz00_26)); 
BgL_auxz00_2648 = 
CAR(BgL_lstz00_26); 
return 
MAKE_PAIR(BgL_auxz00_2648, BgL_auxz00_2650);} } } } } 
}



/* compile-match */
obj_t BGl_compilezd2matchzd2zz__rgc_compilez00(obj_t BgL_transitionsz00_27)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 362 */
{ 
obj_t BgL_matchesz00_811;
{ 
obj_t BgL_transitionsz00_799;obj_t BgL_matchesz00_800;
BgL_transitionsz00_799 = BgL_transitionsz00_27; 
BgL_matchesz00_800 = BNIL; 
BgL_loopz00_801:
if(
NULLP(BgL_transitionsz00_799))
{ /* ./Rgc/rgccompile.scm 386 */
BgL_matchesz00_811 = BgL_matchesz00_800; 
if(
NULLP(BgL_matchesz00_811))
{ /* ./Rgc/rgccompile.scm 366 */
return BFALSE;}  else 
{ /* ./Rgc/rgccompile.scm 366 */
return 
BGl_loopz00zz__rgc_compilez00(BgL_matchesz00_811);} }  else 
{ /* ./Rgc/rgccompile.scm 388 */
obj_t BgL_transitionz00_803;
BgL_transitionz00_803 = 
CAR(BgL_transitionsz00_799); 
{ /* ./Rgc/rgccompile.scm 388 */
obj_t BgL_charz00_804;
BgL_charz00_804 = 
CAR(BgL_transitionz00_803); 
{ /* ./Rgc/rgccompile.scm 390 */

if(
BGl_specialzd2charzd2matchzf3zf3zz__rgc_rulesz00(
CINT(BgL_charz00_804)))
{ 
obj_t BgL_matchesz00_2666;obj_t BgL_transitionsz00_2664;
BgL_transitionsz00_2664 = 
CDR(BgL_transitionsz00_799); 
BgL_matchesz00_2666 = 
BGl_insortz00zz__rgc_compilez00(
BGl_specialzd2matchzd2charzd2ze3rulezd2numberze3zz__rgc_rulesz00(
CINT(BgL_charz00_804)), BgL_matchesz00_800); 
BgL_matchesz00_800 = BgL_matchesz00_2666; 
BgL_transitionsz00_799 = BgL_transitionsz00_2664; 
goto BgL_loopz00_801;}  else 
{ 
obj_t BgL_transitionsz00_2670;
BgL_transitionsz00_2670 = 
CDR(BgL_transitionsz00_799); 
BgL_transitionsz00_799 = BgL_transitionsz00_2670; 
goto BgL_loopz00_801;} } } } } } } 
}



/* loop */
obj_t BGl_loopz00zz__rgc_compilez00(obj_t BgL_matchesz00_814)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 369 */
if(
NULLP(BgL_matchesz00_814))
{ /* ./Rgc/rgccompile.scm 370 */
return BGl_symbol3303z00zz__rgc_compilez00;}  else 
{ /* ./Rgc/rgccompile.scm 372 */
obj_t BgL_matchz00_817;
BgL_matchz00_817 = 
CAR(BgL_matchesz00_814); 
{ /* ./Rgc/rgccompile.scm 372 */
obj_t BgL_predsz00_818;
BgL_predsz00_818 = 
BGl_predicatezd2matchzd2zz__rgc_rulesz00(
CINT(BgL_matchz00_817)); 
{ /* ./Rgc/rgccompile.scm 373 */

if(
PAIRP(BgL_predsz00_818))
{ /* ./Rgc/rgccompile.scm 380 */
obj_t BgL_arg1868z00_820;obj_t BgL_arg1869z00_821;
BgL_arg1868z00_820 = BGl_symbol3310z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 376 */
obj_t BgL_arg1872z00_822;obj_t BgL_arg1873z00_823;
{ /* ./Rgc/rgccompile.scm 376 */
obj_t BgL_auxz00_2679;
BgL_auxz00_2679 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_predsz00_818, BNIL); 
BgL_arg1872z00_822 = 
MAKE_PAIR(BGl_symbol3322z00zz__rgc_compilez00, BgL_auxz00_2679); } 
{ /* ./Rgc/rgccompile.scm 377 */
obj_t BgL_arg1881z00_826;obj_t BgL_arg1882z00_827;
{ /* ./Rgc/rgccompile.scm 377 */
obj_t BgL_arg1885z00_828;obj_t BgL_arg1886z00_829;
BgL_arg1885z00_828 = BGl_symbol3323z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 378 */
obj_t BgL_arg1889z00_830;obj_t BgL_arg1890z00_831;
{ /* ./Rgc/rgccompile.scm 378 */
obj_t BgL_arg1893z00_832;obj_t BgL_arg1894z00_833;
BgL_arg1893z00_832 = BGl_symbol3324z00zz__rgc_compilez00; 
BgL_arg1894z00_833 = 
MAKE_PAIR(BGl_symbol3302z00zz__rgc_compilez00, BNIL); 
BgL_arg1889z00_830 = 
MAKE_PAIR(BgL_arg1893z00_832, BgL_arg1894z00_833); } 
BgL_arg1890z00_831 = 
MAKE_PAIR(BgL_matchz00_817, BNIL); 
BgL_arg1886z00_829 = 
MAKE_PAIR(BgL_arg1889z00_830, BgL_arg1890z00_831); } 
BgL_arg1881z00_826 = 
MAKE_PAIR(BgL_arg1885z00_828, BgL_arg1886z00_829); } 
{ /* ./Rgc/rgccompile.scm 376 */
obj_t BgL_auxz00_2687;
BgL_auxz00_2687 = 
BGl_loopz00zz__rgc_compilez00(
CDR(BgL_matchesz00_814)); 
BgL_arg1882z00_827 = 
MAKE_PAIR(BgL_auxz00_2687, BNIL); } 
BgL_arg1873z00_823 = 
MAKE_PAIR(BgL_arg1881z00_826, BgL_arg1882z00_827); } 
BgL_arg1869z00_821 = 
MAKE_PAIR(BgL_arg1872z00_822, BgL_arg1873z00_823); } 
return 
MAKE_PAIR(BgL_arg1868z00_820, BgL_arg1869z00_821);}  else 
{ /* ./Rgc/rgccompile.scm 383 */
obj_t BgL_arg1908z00_837;obj_t BgL_arg1910z00_838;
BgL_arg1908z00_837 = BGl_symbol3323z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 382 */
obj_t BgL_arg1915z00_839;obj_t BgL_arg1916z00_840;
{ /* ./Rgc/rgccompile.scm 382 */
obj_t BgL_arg1919z00_841;obj_t BgL_arg1920z00_842;
BgL_arg1919z00_841 = BGl_symbol3324z00zz__rgc_compilez00; 
BgL_arg1920z00_842 = 
MAKE_PAIR(BGl_symbol3302z00zz__rgc_compilez00, BNIL); 
BgL_arg1915z00_839 = 
MAKE_PAIR(BgL_arg1919z00_841, BgL_arg1920z00_842); } 
BgL_arg1916z00_840 = 
MAKE_PAIR(BgL_matchz00_817, BNIL); 
BgL_arg1910z00_838 = 
MAKE_PAIR(BgL_arg1915z00_839, BgL_arg1916z00_840); } 
return 
MAKE_PAIR(BgL_arg1908z00_837, BgL_arg1910z00_838);} } } } } 
}



/* init-compile-member-vector! */
obj_t BGl_initzd2compilezd2memberzd2vectorz12zc0zz__rgc_compilez00()
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 405 */
if(
VECTORP(BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00))
{ /* ./Rgc/rgccompile.scm 406 */
return BFALSE;}  else 
{ /* ./Rgc/rgccompile.scm 407 */
obj_t BgL_arg1931z00_845;obj_t BgL_arg1933z00_846;
BgL_arg1931z00_845 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(
BINT(((long)1)), 
BGl_rgczd2maxzd2charz00zz__rgc_configz00()); 
BgL_arg1933z00_846 = BUNSPEC; 
{ /* ./Rgc/rgccompile.scm 407 */
int BgL_auxz00_2704;
BgL_auxz00_2704 = 
CINT(BgL_arg1931z00_845); 
return ( 
BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00 = 
make_vector(BgL_auxz00_2704, BgL_arg1933z00_846), BUNSPEC) ;} } } 
}



/* chars->char-ranges */
obj_t BGl_charszd2ze3charzd2rangesze3zz__rgc_compilez00(obj_t BgL_charsz00_28)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 422 */
{ /* ./Rgc/rgccompile.scm 423 */
obj_t BgL_maxz00_849;
BgL_maxz00_849 = 
BGl_rgczd2maxzd2charz00zz__rgc_configz00(); 
{ 
obj_t BgL_iz00_881;obj_t BgL_iz00_874;
BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00, BFALSE); 
{ 
obj_t BgL_l1035z00_1605;
BgL_l1035z00_1605 = BgL_charsz00_28; 
BgL_forzd2each1036zd2_1604:
if(
PAIRP(BgL_l1035z00_1605))
{ /* ./Rgc/rgccompile.scm 448 */
{ /* ./Rgc/rgccompile.scm 448 */
obj_t BgL_xz00_1610;
BgL_xz00_1610 = 
CAR(BgL_l1035z00_1605); 
{ 
int BgL_auxz00_2712;
BgL_auxz00_2712 = 
CINT(BgL_xz00_1610); 
VECTOR_SET(BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00,BgL_auxz00_2712,BTRUE); } } 
{ 
obj_t BgL_l1035z00_2715;
BgL_l1035z00_2715 = 
CDR(BgL_l1035z00_1605); 
BgL_l1035z00_1605 = BgL_l1035z00_2715; 
goto BgL_forzd2each1036zd2_1604;} }  else 
{ /* ./Rgc/rgccompile.scm 448 */((bool_t)1); } } 
{ 
obj_t BgL_iz00_858;obj_t BgL_rangesz00_859;
BgL_iz00_858 = 
BINT(((long)0)); 
BgL_rangesz00_859 = BNIL; 
BgL_loopz00_860:
{ /* ./Rgc/rgccompile.scm 451 */
bool_t BgL_testz00_2717;
{ /* ./Rgc/rgccompile.scm 451 */
long BgL_auxz00_2720;long BgL_auxz00_2718;
BgL_auxz00_2720 = 
(long)CINT(BgL_maxz00_849); 
BgL_auxz00_2718 = 
(long)CINT(BgL_iz00_858); 
BgL_testz00_2717 = 
(BgL_auxz00_2718>=BgL_auxz00_2720); } 
if(BgL_testz00_2717)
{ /* ./Rgc/rgccompile.scm 451 */
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_rangesz00_859);}  else 
{ /* ./Rgc/rgccompile.scm 453 */
obj_t BgL_rangez00_862;
{ /* ./Rgc/rgccompile.scm 453 */
obj_t BgL_startz00_1640;
BgL_iz00_881 = BgL_iz00_858; 
{ 
obj_t BgL_iz00_883;
BgL_iz00_883 = BgL_iz00_881; 
BgL_loopz00_884:
{ /* ./Rgc/rgccompile.scm 427 */
bool_t BgL_testz00_2724;
{ /* ./Rgc/rgccompile.scm 427 */
long BgL_auxz00_2727;long BgL_auxz00_2725;
BgL_auxz00_2727 = 
(long)CINT(BgL_maxz00_849); 
BgL_auxz00_2725 = 
(long)CINT(BgL_iz00_883); 
BgL_testz00_2724 = 
(BgL_auxz00_2725==BgL_auxz00_2727); } 
if(BgL_testz00_2724)
{ /* ./Rgc/rgccompile.scm 427 */
BgL_startz00_1640 = BFALSE; }  else 
{ /* ./Rgc/rgccompile.scm 429 */
bool_t BgL_test1995z00_886;
{ /* ./Rgc/rgccompile.scm 429 */
obj_t BgL_vectorz00_1664;int BgL_kz00_1665;
BgL_vectorz00_1664 = BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00; 
BgL_kz00_1665 = 
CINT(BgL_iz00_883); 
{ /* ./Rgc/rgccompile.scm 429 */
obj_t BgL_auxz00_2731;
BgL_auxz00_2731 = 
VECTOR_REF(BgL_vectorz00_1664,BgL_kz00_1665); 
BgL_test1995z00_886 = 
CBOOL(BgL_auxz00_2731); } } 
if(BgL_test1995z00_886)
{ /* ./Rgc/rgccompile.scm 429 */
BgL_startz00_1640 = BgL_iz00_883; }  else 
{ /* ./Rgc/rgccompile.scm 429 */
{ /* ./Rgc/rgccompile.scm 432 */
long BgL_arg1997z00_887;
{ /* ./Rgc/rgccompile.scm 432 */
long BgL_auxz00_2735;
BgL_auxz00_2735 = 
(long)CINT(BgL_iz00_883); 
BgL_arg1997z00_887 = 
(BgL_auxz00_2735+((long)1)); } 
{ 
obj_t BgL_iz00_2738;
BgL_iz00_2738 = 
BINT(BgL_arg1997z00_887); 
BgL_iz00_883 = BgL_iz00_2738; 
goto BgL_loopz00_884;} } } } } } 
if(
CBOOL(BgL_startz00_1640))
{ /* ./Rgc/rgccompile.scm 453 */
long BgL_arg1974z00_1641;
{ /* ./Rgc/rgccompile.scm 453 */
long BgL_auxz00_2742;
{ /* ./Rgc/rgccompile.scm 453 */
obj_t BgL_auxz00_2743;
BgL_iz00_874 = BgL_startz00_1640; 
{ 
obj_t BgL_iz00_876;
BgL_iz00_876 = BgL_iz00_874; 
BgL_loopz00_877:
{ /* ./Rgc/rgccompile.scm 436 */
bool_t BgL_testz00_2744;
{ /* ./Rgc/rgccompile.scm 436 */
long BgL_auxz00_2747;long BgL_auxz00_2745;
BgL_auxz00_2747 = 
(long)CINT(BgL_maxz00_849); 
BgL_auxz00_2745 = 
(long)CINT(BgL_iz00_876); 
BgL_testz00_2744 = 
(BgL_auxz00_2745==BgL_auxz00_2747); } 
if(BgL_testz00_2744)
{ /* ./Rgc/rgccompile.scm 436 */
BgL_auxz00_2743 = BgL_maxz00_849; }  else 
{ /* ./Rgc/rgccompile.scm 438 */
bool_t BgL_test1985z00_879;
{ /* ./Rgc/rgccompile.scm 438 */
obj_t BgL_vectorz00_1658;int BgL_kz00_1659;
BgL_vectorz00_1658 = BGl_compilezd2memberzd2vectorz00zz__rgc_compilez00; 
BgL_kz00_1659 = 
CINT(BgL_iz00_876); 
{ /* ./Rgc/rgccompile.scm 438 */
obj_t BgL_auxz00_2751;
BgL_auxz00_2751 = 
VECTOR_REF(BgL_vectorz00_1658,BgL_kz00_1659); 
BgL_test1985z00_879 = 
CBOOL(BgL_auxz00_2751); } } 
if(BgL_test1985z00_879)
{ /* ./Rgc/rgccompile.scm 438 */
{ /* ./Rgc/rgccompile.scm 439 */
long BgL_arg1987z00_880;
{ /* ./Rgc/rgccompile.scm 439 */
long BgL_auxz00_2755;
BgL_auxz00_2755 = 
(long)CINT(BgL_iz00_876); 
BgL_arg1987z00_880 = 
(BgL_auxz00_2755+((long)1)); } 
{ 
obj_t BgL_iz00_2758;
BgL_iz00_2758 = 
BINT(BgL_arg1987z00_880); 
BgL_iz00_876 = BgL_iz00_2758; 
goto BgL_loopz00_877;} } }  else 
{ /* ./Rgc/rgccompile.scm 438 */
BgL_auxz00_2743 = BgL_iz00_876; } } } } 
BgL_auxz00_2742 = 
(long)CINT(BgL_auxz00_2743); } 
BgL_arg1974z00_1641 = 
(BgL_auxz00_2742-((long)1)); } 
{ /* ./Rgc/rgccompile.scm 453 */
obj_t BgL_auxz00_2762;
BgL_auxz00_2762 = 
BINT(BgL_arg1974z00_1641); 
BgL_rangez00_862 = 
MAKE_PAIR(BgL_startz00_1640, BgL_auxz00_2762); } }  else 
{ /* ./Rgc/rgccompile.scm 453 */
BgL_rangez00_862 = BgL_maxz00_849; } } 
if(
PAIRP(BgL_rangez00_862))
{ /* ./Rgc/rgccompile.scm 455 */
long BgL_arg1958z00_864;obj_t BgL_arg1960z00_865;
{ /* ./Rgc/rgccompile.scm 455 */
long BgL_auxz00_2767;
{ /* ./Rgc/rgccompile.scm 455 */
obj_t BgL_auxz00_2768;
BgL_auxz00_2768 = 
CDR(BgL_rangez00_862); 
BgL_auxz00_2767 = 
(long)CINT(BgL_auxz00_2768); } 
BgL_arg1958z00_864 = 
(BgL_auxz00_2767+((long)1)); } 
BgL_arg1960z00_865 = 
MAKE_PAIR(BgL_rangez00_862, BgL_rangesz00_859); 
{ 
obj_t BgL_rangesz00_2775;obj_t BgL_iz00_2773;
BgL_iz00_2773 = 
BINT(BgL_arg1958z00_864); 
BgL_rangesz00_2775 = BgL_arg1960z00_865; 
BgL_rangesz00_859 = BgL_rangesz00_2775; 
BgL_iz00_858 = BgL_iz00_2773; 
goto BgL_loopz00_860;} }  else 
{ 
obj_t BgL_iz00_2776;
BgL_iz00_2776 = BgL_rangez00_862; 
BgL_iz00_858 = BgL_iz00_2776; 
goto BgL_loopz00_860;} } } } } } } 
}



/* char-ranges->test */
obj_t BGl_charzd2rangeszd2ze3testze3zz__rgc_compilez00(obj_t BgL_currentz00_29, obj_t BgL_rangesz00_30)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 463 */
{ /* ./Rgc/rgccompile.scm 470 */
obj_t BgL_arg2004z00_892;obj_t BgL_arg2005z00_893;
BgL_arg2004z00_892 = BGl_symbol3319z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 470 */
obj_t BgL_arg2008z00_894;
if(
NULLP(BgL_rangesz00_30))
{ /* ./Rgc/rgccompile.scm 470 */
BgL_arg2008z00_894 = BNIL; }  else 
{ /* ./Rgc/rgccompile.scm 470 */
obj_t BgL_head1039z00_898;
{ /* ./Rgc/rgccompile.scm 470 */
obj_t BgL_auxz00_2780;
BgL_auxz00_2780 = 
BGl_charzd2rangezd2ze3testze3zz__rgc_compilez00(BgL_currentz00_29, 
CAR(BgL_rangesz00_30)); 
BgL_head1039z00_898 = 
MAKE_PAIR(BgL_auxz00_2780, BNIL); } 
{ /* ./Rgc/rgccompile.scm 470 */
obj_t BgL_arg2014z00_902;
BgL_arg2014z00_902 = 
CDR(BgL_rangesz00_30); 
{ 
obj_t BgL_l1037z00_1674;obj_t BgL_tail1040z00_1675;
BgL_l1037z00_1674 = BgL_arg2014z00_902; 
BgL_tail1040z00_1675 = BgL_head1039z00_898; 
BgL_map1038z00_1673:
if(
NULLP(BgL_l1037z00_1674))
{ /* ./Rgc/rgccompile.scm 470 */
BgL_arg2008z00_894 = BgL_head1039z00_898; }  else 
{ /* ./Rgc/rgccompile.scm 470 */
obj_t BgL_newtail1041z00_1683;
{ /* ./Rgc/rgccompile.scm 470 */
obj_t BgL_auxz00_2787;
BgL_auxz00_2787 = 
BGl_charzd2rangezd2ze3testze3zz__rgc_compilez00(BgL_currentz00_29, 
CAR(BgL_l1037z00_1674)); 
BgL_newtail1041z00_1683 = 
MAKE_PAIR(BgL_auxz00_2787, BNIL); } 
SET_CDR(BgL_tail1040z00_1675, BgL_newtail1041z00_1683); 
{ 
obj_t BgL_tail1040z00_2794;obj_t BgL_l1037z00_2792;
BgL_l1037z00_2792 = 
CDR(BgL_l1037z00_1674); 
BgL_tail1040z00_2794 = BgL_newtail1041z00_1683; 
BgL_tail1040z00_1675 = BgL_tail1040z00_2794; 
BgL_l1037z00_1674 = BgL_l1037z00_2792; 
goto BgL_map1038z00_1673;} } } } } 
BgL_arg2005z00_893 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2008z00_894, BNIL); } 
return 
MAKE_PAIR(BgL_arg2004z00_892, BgL_arg2005z00_893);} } 
}



/* char-range->test */
obj_t BGl_charzd2rangezd2ze3testze3zz__rgc_compilez00(obj_t BgL_currentz00_2032, obj_t BgL_rangez00_912)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 469 */
{ /* ./Rgc/rgccompile.scm 465 */
obj_t BgL_startz00_914;obj_t BgL_stopz00_915;
BgL_startz00_914 = 
CAR(BgL_rangez00_912); 
BgL_stopz00_915 = 
CDR(BgL_rangez00_912); 
{ /* ./Rgc/rgccompile.scm 467 */
bool_t BgL_testz00_2799;
{ /* ./Rgc/rgccompile.scm 467 */
long BgL_auxz00_2802;long BgL_auxz00_2800;
BgL_auxz00_2802 = 
(long)CINT(BgL_stopz00_915); 
BgL_auxz00_2800 = 
(long)CINT(BgL_startz00_914); 
BgL_testz00_2799 = 
(BgL_auxz00_2800==BgL_auxz00_2802); } 
if(BgL_testz00_2799)
{ /* ./Rgc/rgccompile.scm 468 */
obj_t BgL_arg2046z00_917;obj_t BgL_arg2047z00_918;
BgL_arg2046z00_917 = BGl_symbol3316z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 468 */
obj_t BgL_arg2050z00_919;
BgL_arg2050z00_919 = 
MAKE_PAIR(BgL_startz00_914, BNIL); 
BgL_arg2047z00_918 = 
MAKE_PAIR(BgL_currentz00_2032, BgL_arg2050z00_919); } 
return 
MAKE_PAIR(BgL_arg2046z00_917, BgL_arg2047z00_918);}  else 
{ /* ./Rgc/rgccompile.scm 469 */
obj_t BgL_arg2054z00_920;obj_t BgL_arg2055z00_921;
BgL_arg2054z00_920 = BGl_symbol3322z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 469 */
obj_t BgL_arg2058z00_922;obj_t BgL_arg2059z00_923;
{ /* ./Rgc/rgccompile.scm 469 */
obj_t BgL_arg2062z00_924;obj_t BgL_arg2063z00_925;
BgL_arg2062z00_924 = BGl_symbol3320z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 469 */
obj_t BgL_arg2066z00_926;
BgL_arg2066z00_926 = 
MAKE_PAIR(BgL_startz00_914, BNIL); 
BgL_arg2063z00_925 = 
MAKE_PAIR(BgL_currentz00_2032, BgL_arg2066z00_926); } 
BgL_arg2058z00_922 = 
MAKE_PAIR(BgL_arg2062z00_924, BgL_arg2063z00_925); } 
{ /* ./Rgc/rgccompile.scm 469 */
obj_t BgL_arg2070z00_927;
{ /* ./Rgc/rgccompile.scm 469 */
obj_t BgL_arg2074z00_929;obj_t BgL_arg2075z00_930;
BgL_arg2074z00_929 = BGl_symbol3325z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 469 */
obj_t BgL_arg2078z00_931;
BgL_arg2078z00_931 = 
MAKE_PAIR(BgL_stopz00_915, BNIL); 
BgL_arg2075z00_930 = 
MAKE_PAIR(BgL_currentz00_2032, BgL_arg2078z00_931); } 
BgL_arg2070z00_927 = 
MAKE_PAIR(BgL_arg2074z00_929, BgL_arg2075z00_930); } 
BgL_arg2059z00_923 = 
MAKE_PAIR(BgL_arg2070z00_927, BNIL); } 
BgL_arg2055z00_921 = 
MAKE_PAIR(BgL_arg2058z00_922, BgL_arg2059z00_923); } 
return 
MAKE_PAIR(BgL_arg2054z00_920, BgL_arg2055z00_921);} } } } 
}



/* compile-member-test */
obj_t BGl_compilezd2memberzd2testz00zz__rgc_compilez00(obj_t BgL_currentz00_31, obj_t BgL_charsz00_32)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 477 */
{ 

if(
PAIRP(BgL_charsz00_32))
{ /* ./Rgc/rgccompile.scm 478 */
bool_t BgL_testz00_2819;
{ /* ./Rgc/rgccompile.scm 478 */
obj_t BgL_auxz00_2820;
BgL_auxz00_2820 = 
CDR(BgL_charsz00_32); 
BgL_testz00_2819 = 
NULLP(BgL_auxz00_2820); } 
if(BgL_testz00_2819)
{ /* ./Rgc/rgccompile.scm 478 */
obj_t BgL_arg2087z00_939;
BgL_arg2087z00_939 = 
CAR(BgL_charsz00_32); 
{ /* ./Rgc/rgccompile.scm 478 */
obj_t BgL_arg2098z00_1732;obj_t BgL_arg2099z00_1733;
BgL_arg2098z00_1732 = BGl_symbol3316z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 478 */
obj_t BgL_arg2102z00_1734;
BgL_arg2102z00_1734 = 
MAKE_PAIR(BgL_arg2087z00_939, BNIL); 
BgL_arg2099z00_1733 = 
MAKE_PAIR(BgL_currentz00_31, BgL_arg2102z00_1734); } 
return 
MAKE_PAIR(BgL_arg2098z00_1732, BgL_arg2099z00_1733);} }  else 
{ /* ./Rgc/rgccompile.scm 478 */
BgL_tagzd2102zd2_935:
{ /* ./Rgc/rgccompile.scm 482 */
obj_t BgL_rangesz00_944;
BgL_rangesz00_944 = 
BGl_charszd2ze3charzd2rangesze3zz__rgc_compilez00(BgL_charsz00_32); 
{ /* ./Rgc/rgccompile.scm 483 */
bool_t BgL_testz00_2828;
{ /* ./Rgc/rgccompile.scm 483 */
long BgL_auxz00_2831;long BgL_auxz00_2829;
{ /* ./Rgc/rgccompile.scm 483 */
long BgL_auxz00_2832;
BgL_auxz00_2832 = 
bgl_list_length(BgL_charsz00_32); 
BgL_auxz00_2831 = 
(BgL_auxz00_2832/((long)3)); } 
BgL_auxz00_2829 = 
bgl_list_length(BgL_rangesz00_944); 
BgL_testz00_2828 = 
(BgL_auxz00_2829>BgL_auxz00_2831); } 
if(BgL_testz00_2828)
{ /* ./Rgc/rgccompile.scm 484 */
obj_t BgL_arg2107z00_946;obj_t BgL_arg2108z00_947;
BgL_arg2107z00_946 = BGl_symbol3326z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 484 */
obj_t BgL_arg2111z00_948;
{ /* ./Rgc/rgccompile.scm 484 */
obj_t BgL_arg2115z00_949;
{ /* ./Rgc/rgccompile.scm 484 */
obj_t BgL_arg2119z00_951;obj_t BgL_arg2120z00_952;
BgL_arg2119z00_951 = BGl_symbol3327z00zz__rgc_compilez00; 
BgL_arg2120z00_952 = 
MAKE_PAIR(BgL_charsz00_32, BNIL); 
BgL_arg2115z00_949 = 
MAKE_PAIR(BgL_arg2119z00_951, BgL_arg2120z00_952); } 
BgL_arg2111z00_948 = 
MAKE_PAIR(BgL_arg2115z00_949, BNIL); } 
BgL_arg2108z00_947 = 
MAKE_PAIR(BgL_currentz00_31, BgL_arg2111z00_948); } 
return 
MAKE_PAIR(BgL_arg2107z00_946, BgL_arg2108z00_947);}  else 
{ /* ./Rgc/rgccompile.scm 483 */
return 
BGl_charzd2rangeszd2ze3testze3zz__rgc_compilez00(BgL_currentz00_31, BgL_rangesz00_944);} } } } }  else 
{ /* ./Rgc/rgccompile.scm 478 */
goto BgL_tagzd2102zd2_935;} } } 
}



/* compile-submatches */
obj_t BGl_compilezd2submatcheszd2zz__rgc_compilez00(obj_t BgL_currentz00_33, obj_t BgL_submatchesz00_34, obj_t BgL_positionsz00_35, obj_t BgL_positionszd2tozd2charz00_36)
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 490 */
{ 
obj_t BgL_positionsz00_959;obj_t BgL_charzd2submatcheszd2_960;
BgL_positionsz00_959 = 
BGl_rgcsetzd2ze3listz31zz__rgc_setz00(BgL_positionsz00_35); 
BgL_charzd2submatcheszd2_960 = BNIL; 
BgL_loopz00_961:
if(
NULLP(BgL_positionsz00_959))
{ /* ./Rgc/rgccompile.scm 505 */
if(
NULLP(BgL_charzd2submatcheszd2_960))
{ /* ./Rgc/rgccompile.scm 506 */
return BNIL;}  else 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_head1045z00_967;
BgL_head1045z00_967 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1043z00_968;obj_t BgL_tail1046z00_969;
BgL_l1043z00_968 = BgL_charzd2submatcheszd2_960; 
BgL_tail1046z00_969 = BgL_head1045z00_967; 
BgL_map1044z00_970:
if(
NULLP(BgL_l1043z00_968))
{ /* ./Rgc/rgccompile.scm 506 */
return 
CDR(BgL_head1045z00_967);}  else 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_newtail1047z00_972;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2153z00_974;
{ 
obj_t BgL_charz00_985;obj_t BgL_sz00_986;obj_t BgL_mz00_987;obj_t BgL_smz00_988;obj_t BgL_tsz00_989;obj_t BgL_tsmz00_990;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_ezd2113zd2_994;
BgL_ezd2113zd2_994 = 
CAR(BgL_l1043z00_968); 
if(
PAIRP(BgL_ezd2113zd2_994))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_cdrzd2125zd2_996;
BgL_cdrzd2125zd2_996 = 
CDR(BgL_ezd2113zd2_994); 
if(
PAIRP(BgL_cdrzd2125zd2_996))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_cdrzd2130zd2_998;
BgL_cdrzd2130zd2_998 = 
CDR(BgL_cdrzd2125zd2_996); 
{ /* ./Rgc/rgccompile.scm 506 */
bool_t BgL_testz00_2857;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_auxz00_2858;
BgL_auxz00_2858 = 
CAR(BgL_cdrzd2125zd2_996); 
BgL_testz00_2857 = 
NULLP(BgL_auxz00_2858); } 
if(BgL_testz00_2857)
{ /* ./Rgc/rgccompile.scm 506 */
if(
PAIRP(BgL_cdrzd2130zd2_998))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_carzd2133zd2_1001;
BgL_carzd2133zd2_1001 = 
CAR(BgL_cdrzd2130zd2_998); 
if(
PAIRP(BgL_carzd2133zd2_1001))
{ /* ./Rgc/rgccompile.scm 506 */
bool_t BgL_testz00_2866;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_auxz00_2867;
BgL_auxz00_2867 = 
CDR(BgL_cdrzd2130zd2_998); 
BgL_testz00_2866 = 
NULLP(BgL_auxz00_2867); } 
if(BgL_testz00_2866)
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2163z00_1004;obj_t BgL_arg2165z00_1005;obj_t BgL_arg2166z00_1006;
BgL_arg2163z00_1004 = 
CAR(BgL_ezd2113zd2_994); 
BgL_arg2165z00_1005 = 
CAR(BgL_carzd2133zd2_1001); 
BgL_arg2166z00_1006 = 
CDR(BgL_carzd2133zd2_1001); 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2319z00_1766;obj_t BgL_arg2320z00_1767;
BgL_arg2319z00_1766 = BGl_symbol3310z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2323z00_1768;obj_t BgL_arg2324z00_1769;
BgL_arg2323z00_1768 = 
BGl_compilezd2memberzd2testz00zz__rgc_compilez00(BgL_currentz00_33, BgL_arg2163z00_1004); 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2328z00_1770;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2332z00_1772;obj_t BgL_arg2333z00_1773;
BgL_arg2332z00_1772 = BGl_symbol3330z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2336z00_1774;
BgL_arg2336z00_1774 = 
MAKE_PAIR(BgL_arg2166z00_1006, BNIL); 
BgL_arg2333z00_1773 = 
MAKE_PAIR(BgL_arg2165z00_1005, BgL_arg2336z00_1774); } 
BgL_arg2328z00_1770 = 
MAKE_PAIR(BgL_arg2332z00_1772, BgL_arg2333z00_1773); } 
BgL_arg2324z00_1769 = 
MAKE_PAIR(BgL_arg2328z00_1770, BNIL); } 
BgL_arg2320z00_1767 = 
MAKE_PAIR(BgL_arg2323z00_1768, BgL_arg2324z00_1769); } 
BgL_arg2153z00_974 = 
MAKE_PAIR(BgL_arg2319z00_1766, BgL_arg2320z00_1767); } }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_carzd2218zd2_1009;
BgL_carzd2218zd2_1009 = 
CAR(BgL_cdrzd2125zd2_996); 
if(
PAIRP(BgL_carzd2218zd2_1009))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_carzd2223zd2_1011;
BgL_carzd2223zd2_1011 = 
CAR(BgL_carzd2218zd2_1009); 
if(
PAIRP(BgL_carzd2223zd2_1011))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_cdrzd2229zd2_1013;
BgL_cdrzd2229zd2_1013 = 
CDR(BgL_carzd2223zd2_1011); 
if(
PAIRP(BgL_cdrzd2229zd2_1013))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_cdrzd2234zd2_1015;
BgL_cdrzd2234zd2_1015 = 
CDR(BgL_cdrzd2229zd2_1013); 
if(
PAIRP(BgL_cdrzd2234zd2_1015))
{ /* ./Rgc/rgccompile.scm 506 */
bool_t BgL_testz00_2894;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_auxz00_2895;
BgL_auxz00_2895 = 
CDR(BgL_cdrzd2234zd2_1015); 
BgL_testz00_2894 = 
NULLP(BgL_auxz00_2895); } 
if(BgL_testz00_2894)
{ /* ./Rgc/rgccompile.scm 506 */
bool_t BgL_testz00_2898;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_auxz00_2899;
BgL_auxz00_2899 = 
CDR(BgL_carzd2218zd2_1009); 
BgL_testz00_2898 = 
NULLP(BgL_auxz00_2899); } 
if(BgL_testz00_2898)
{ /* ./Rgc/rgccompile.scm 506 */
bool_t BgL_testz00_2902;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_auxz00_2903;
BgL_auxz00_2903 = 
CDR(BgL_cdrzd2125zd2_996); 
BgL_testz00_2902 = 
NULLP(BgL_auxz00_2903); } 
if(BgL_testz00_2902)
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2187z00_1020;obj_t BgL_arg2188z00_1021;obj_t BgL_arg2189z00_1022;obj_t BgL_arg2190z00_1023;
BgL_arg2187z00_1020 = 
CAR(BgL_ezd2113zd2_994); 
BgL_arg2188z00_1021 = 
CAR(BgL_carzd2223zd2_1011); 
BgL_arg2189z00_1022 = 
CAR(BgL_cdrzd2229zd2_1013); 
BgL_arg2190z00_1023 = 
CAR(BgL_cdrzd2234zd2_1015); 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2341z00_1806;obj_t BgL_arg2342z00_1807;
BgL_arg2341z00_1806 = BGl_symbol3310z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2345z00_1808;obj_t BgL_arg2346z00_1809;
BgL_arg2345z00_1808 = 
BGl_compilezd2memberzd2testz00zz__rgc_compilez00(BgL_currentz00_33, BgL_arg2187z00_1020); 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2350z00_1810;
if(
CBOOL(BgL_arg2188z00_1021))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2354z00_1812;obj_t BgL_arg2355z00_1813;
BgL_arg2354z00_1812 = BGl_symbol3328z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2358z00_1814;
BgL_arg2358z00_1814 = 
MAKE_PAIR(BgL_arg2190z00_1023, BNIL); 
BgL_arg2355z00_1813 = 
MAKE_PAIR(BgL_arg2189z00_1022, BgL_arg2358z00_1814); } 
BgL_arg2350z00_1810 = 
MAKE_PAIR(BgL_arg2354z00_1812, BgL_arg2355z00_1813); }  else 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2362z00_1815;obj_t BgL_arg2363z00_1816;
BgL_arg2362z00_1815 = BGl_symbol3329z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2366z00_1817;
BgL_arg2366z00_1817 = 
MAKE_PAIR(BgL_arg2190z00_1023, BNIL); 
BgL_arg2363z00_1816 = 
MAKE_PAIR(BgL_arg2189z00_1022, BgL_arg2366z00_1817); } 
BgL_arg2350z00_1810 = 
MAKE_PAIR(BgL_arg2362z00_1815, BgL_arg2363z00_1816); } 
BgL_arg2346z00_1809 = 
MAKE_PAIR(BgL_arg2350z00_1810, BNIL); } 
BgL_arg2342z00_1807 = 
MAKE_PAIR(BgL_arg2345z00_1808, BgL_arg2346z00_1809); } 
BgL_arg2153z00_974 = 
MAKE_PAIR(BgL_arg2341z00_1806, BgL_arg2342z00_1807); } }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} } }  else 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_carzd2383zd2_1028;
BgL_carzd2383zd2_1028 = 
CAR(BgL_cdrzd2125zd2_996); 
if(
PAIRP(BgL_carzd2383zd2_1028))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_carzd2388zd2_1030;
BgL_carzd2388zd2_1030 = 
CAR(BgL_carzd2383zd2_1028); 
if(
PAIRP(BgL_carzd2388zd2_1030))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_cdrzd2394zd2_1032;
BgL_cdrzd2394zd2_1032 = 
CDR(BgL_carzd2388zd2_1030); 
if(
PAIRP(BgL_cdrzd2394zd2_1032))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_cdrzd2399zd2_1034;
BgL_cdrzd2399zd2_1034 = 
CDR(BgL_cdrzd2394zd2_1032); 
if(
PAIRP(BgL_cdrzd2399zd2_1034))
{ /* ./Rgc/rgccompile.scm 506 */
bool_t BgL_testz00_2941;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_auxz00_2942;
BgL_auxz00_2942 = 
CDR(BgL_cdrzd2399zd2_1034); 
BgL_testz00_2941 = 
NULLP(BgL_auxz00_2942); } 
if(BgL_testz00_2941)
{ /* ./Rgc/rgccompile.scm 506 */
bool_t BgL_testz00_2945;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_auxz00_2946;
BgL_auxz00_2946 = 
CDR(BgL_carzd2383zd2_1028); 
BgL_testz00_2945 = 
NULLP(BgL_auxz00_2946); } 
if(BgL_testz00_2945)
{ /* ./Rgc/rgccompile.scm 506 */
bool_t BgL_testz00_2949;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_auxz00_2950;
BgL_auxz00_2950 = 
CDR(BgL_cdrzd2125zd2_996); 
BgL_testz00_2949 = 
NULLP(BgL_auxz00_2950); } 
if(BgL_testz00_2949)
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2234z00_1039;obj_t BgL_arg2235z00_1040;obj_t BgL_arg2236z00_1041;obj_t BgL_arg2237z00_1042;
BgL_arg2234z00_1039 = 
CAR(BgL_ezd2113zd2_994); 
BgL_arg2235z00_1040 = 
CAR(BgL_carzd2388zd2_1030); 
BgL_arg2236z00_1041 = 
CAR(BgL_cdrzd2394zd2_1032); 
BgL_arg2237z00_1042 = 
CAR(BgL_cdrzd2399zd2_1034); 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2341z00_1869;obj_t BgL_arg2342z00_1870;
BgL_arg2341z00_1869 = BGl_symbol3310z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2345z00_1871;obj_t BgL_arg2346z00_1872;
BgL_arg2345z00_1871 = 
BGl_compilezd2memberzd2testz00zz__rgc_compilez00(BgL_currentz00_33, BgL_arg2234z00_1039); 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2350z00_1873;
if(
CBOOL(BgL_arg2235z00_1040))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2354z00_1875;obj_t BgL_arg2355z00_1876;
BgL_arg2354z00_1875 = BGl_symbol3328z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2358z00_1877;
BgL_arg2358z00_1877 = 
MAKE_PAIR(BgL_arg2237z00_1042, BNIL); 
BgL_arg2355z00_1876 = 
MAKE_PAIR(BgL_arg2236z00_1041, BgL_arg2358z00_1877); } 
BgL_arg2350z00_1873 = 
MAKE_PAIR(BgL_arg2354z00_1875, BgL_arg2355z00_1876); }  else 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2362z00_1878;obj_t BgL_arg2363z00_1879;
BgL_arg2362z00_1878 = BGl_symbol3329z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_arg2366z00_1880;
BgL_arg2366z00_1880 = 
MAKE_PAIR(BgL_arg2237z00_1042, BNIL); 
BgL_arg2363z00_1879 = 
MAKE_PAIR(BgL_arg2236z00_1041, BgL_arg2366z00_1880); } 
BgL_arg2350z00_1873 = 
MAKE_PAIR(BgL_arg2362z00_1878, BgL_arg2363z00_1879); } 
BgL_arg2346z00_1872 = 
MAKE_PAIR(BgL_arg2350z00_1873, BNIL); } 
BgL_arg2342z00_1870 = 
MAKE_PAIR(BgL_arg2345z00_1871, BgL_arg2346z00_1872); } 
BgL_arg2153z00_974 = 
MAKE_PAIR(BgL_arg2341z00_1869, BgL_arg2342z00_1870); } }  else 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_cdrzd2435zd2_1044;
BgL_cdrzd2435zd2_1044 = 
CDR(BgL_cdrzd2125zd2_996); 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_carzd2442zd2_1045;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_auxz00_2970;
BgL_auxz00_2970 = 
CAR(BgL_cdrzd2125zd2_996); 
BgL_carzd2442zd2_1045 = 
CAR(BgL_auxz00_2970); } 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_cdrzd2451zd2_1046;
BgL_cdrzd2451zd2_1046 = 
CDR(BgL_carzd2442zd2_1045); 
if(
PAIRP(BgL_cdrzd2435zd2_1044))
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_carzd2470zd2_1048;
BgL_carzd2470zd2_1048 = 
CAR(BgL_cdrzd2435zd2_1044); 
if(
PAIRP(BgL_carzd2470zd2_1048))
{ /* ./Rgc/rgccompile.scm 506 */
bool_t BgL_testz00_2979;
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_auxz00_2980;
BgL_auxz00_2980 = 
CDR(BgL_cdrzd2435zd2_1044); 
BgL_testz00_2979 = 
NULLP(BgL_auxz00_2980); } 
if(BgL_testz00_2979)
{ /* ./Rgc/rgccompile.scm 506 */
BgL_charz00_985 = 
CAR(BgL_ezd2113zd2_994); 
BgL_sz00_986 = 
CAR(BgL_carzd2442zd2_1045); 
BgL_mz00_987 = 
CAR(BgL_cdrzd2451zd2_1046); 
{ /* ./Rgc/rgccompile.scm 506 */
obj_t BgL_auxz00_3004;
BgL_auxz00_3004 = 
CDR(BgL_cdrzd2451zd2_1046); 
BgL_smz00_988 = 
CAR(BgL_auxz00_3004); } 
BgL_tsz00_989 = 
CAR(BgL_carzd2470zd2_1048); 
BgL_tsmz00_990 = 
CDR(BgL_carzd2470zd2_1048); 
{ /* ./Rgc/rgccompile.scm 518 */
obj_t BgL_arg2371z00_1085;obj_t BgL_arg2372z00_1086;
BgL_arg2371z00_1085 = BGl_symbol3310z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 518 */
obj_t BgL_arg2376z00_1087;obj_t BgL_arg2377z00_1088;
BgL_arg2376z00_1087 = 
BGl_compilezd2memberzd2testz00zz__rgc_compilez00(BgL_currentz00_33, BgL_charz00_985); 
{ /* ./Rgc/rgccompile.scm 519 */
obj_t BgL_arg2381z00_1089;
{ /* ./Rgc/rgccompile.scm 519 */
obj_t BgL_arg2385z00_1091;obj_t BgL_arg2386z00_1092;
BgL_arg2385z00_1091 = BGl_symbol3323z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 520 */
obj_t BgL_arg2389z00_1093;obj_t BgL_arg2390z00_1094;
if(
CBOOL(BgL_sz00_986))
{ /* ./Rgc/rgccompile.scm 523 */
obj_t BgL_arg2393z00_1095;obj_t BgL_arg2394z00_1096;
BgL_arg2393z00_1095 = BGl_symbol3328z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 523 */
obj_t BgL_arg2397z00_1097;
BgL_arg2397z00_1097 = 
MAKE_PAIR(BgL_smz00_988, BNIL); 
BgL_arg2394z00_1096 = 
MAKE_PAIR(BgL_mz00_987, BgL_arg2397z00_1097); } 
BgL_arg2389z00_1093 = 
MAKE_PAIR(BgL_arg2393z00_1095, BgL_arg2394z00_1096); }  else 
{ /* ./Rgc/rgccompile.scm 524 */
obj_t BgL_arg2401z00_1098;obj_t BgL_arg2402z00_1099;
BgL_arg2401z00_1098 = BGl_symbol3329z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 524 */
obj_t BgL_arg2405z00_1100;
BgL_arg2405z00_1100 = 
MAKE_PAIR(BgL_smz00_988, BNIL); 
BgL_arg2402z00_1099 = 
MAKE_PAIR(BgL_mz00_987, BgL_arg2405z00_1100); } 
BgL_arg2389z00_1093 = 
MAKE_PAIR(BgL_arg2401z00_1098, BgL_arg2402z00_1099); } 
{ /* ./Rgc/rgccompile.scm 525 */
obj_t BgL_arg2409z00_1101;
{ /* ./Rgc/rgccompile.scm 525 */
obj_t BgL_arg2413z00_1103;obj_t BgL_arg2414z00_1104;
BgL_arg2413z00_1103 = BGl_symbol3330z00zz__rgc_compilez00; 
{ /* ./Rgc/rgccompile.scm 525 */
obj_t BgL_arg2417z00_1105;
BgL_arg2417z00_1105 = 
MAKE_PAIR(BgL_tsmz00_990, BNIL); 
BgL_arg2414z00_1104 = 
MAKE_PAIR(BgL_tsz00_989, BgL_arg2417z00_1105); } 
BgL_arg2409z00_1101 = 
MAKE_PAIR(BgL_arg2413z00_1103, BgL_arg2414z00_1104); } 
BgL_arg2390z00_1094 = 
MAKE_PAIR(BgL_arg2409z00_1101, BNIL); } 
BgL_arg2386z00_1092 = 
MAKE_PAIR(BgL_arg2389z00_1093, BgL_arg2390z00_1094); } 
BgL_arg2381z00_1089 = 
MAKE_PAIR(BgL_arg2385z00_1091, BgL_arg2386z00_1092); } 
BgL_arg2377z00_1088 = 
MAKE_PAIR(BgL_arg2381z00_1089, BNIL); } 
BgL_arg2372z00_1086 = 
MAKE_PAIR(BgL_arg2376z00_1087, BgL_arg2377z00_1088); } 
BgL_arg2153z00_974 = 
MAKE_PAIR(BgL_arg2371z00_1085, BgL_arg2372z00_1086); } }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} } } } }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} } } }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} }  else 
{ /* ./Rgc/rgccompile.scm 506 */
FAILURE(BGl_string3331z00zz__rgc_compilez00,BGl_string3332z00zz__rgc_compilez00,BgL_ezd2113zd2_994);} } } 
BgL_newtail1047z00_972 = 
MAKE_PAIR(BgL_arg2153z00_974, BNIL); } 
SET_CDR(BgL_tail1046z00_969, BgL_newtail1047z00_972); 
{ 
obj_t BgL_tail1046z00_3024;obj_t BgL_l1043z00_3022;
BgL_l1043z00_3022 = 
CDR(BgL_l1043z00_968); 
BgL_tail1046z00_3024 = BgL_newtail1047z00_972; 
BgL_tail1046z00_969 = BgL_tail1046z00_3024; 
BgL_l1043z00_968 = BgL_l1043z00_3022; 
goto BgL_map1044z00_970;} } } } }  else 
{ /* ./Rgc/rgccompile.scm 531 */
obj_t BgL_posz00_1106;
BgL_posz00_1106 = 
CAR(BgL_positionsz00_959); 
{ /* ./Rgc/rgccompile.scm 531 */
obj_t BgL_charz00_1107;
{ 
int BgL_auxz00_3026;
BgL_auxz00_3026 = 
CINT(BgL_posz00_1106); 
BgL_charz00_1107 = 
VECTOR_REF(BgL_positionszd2tozd2charz00_36,BgL_auxz00_3026); } 
{ /* ./Rgc/rgccompile.scm 532 */
obj_t BgL_cellz00_1108;
{ 
int BgL_auxz00_3029;
BgL_auxz00_3029 = 
CINT(BgL_posz00_1106); 
BgL_cellz00_1108 = 
VECTOR_REF(BgL_submatchesz00_34,BgL_auxz00_3029); } 
{ /* ./Rgc/rgccompile.scm 533 */

if(
NULLP(BgL_cellz00_1108))
{ 
obj_t BgL_positionsz00_3034;
BgL_positionsz00_3034 = 
CDR(BgL_positionsz00_959); 
BgL_positionsz00_959 = BgL_positionsz00_3034; 
goto BgL_loopz00_961;}  else 
{ /* ./Rgc/rgccompile.scm 537 */
obj_t BgL_oldz00_1111;
{ 
obj_t BgL_smz00_1981;
BgL_smz00_1981 = BgL_charzd2submatcheszd2_960; 
BgL_loopz00_1980:
if(
NULLP(BgL_smz00_1981))
{ /* ./Rgc/rgccompile.scm 537 */
BgL_oldz00_1111 = BNIL; }  else 
{ /* ./Rgc/rgccompile.scm 537 */
bool_t BgL_testz00_3038;
{ /* ./Rgc/rgccompile.scm 537 */
obj_t BgL_auxz00_3039;
{ /* ./Rgc/rgccompile.scm 537 */
obj_t BgL_auxz00_3040;
BgL_auxz00_3040 = 
CAR(BgL_smz00_1981); 
BgL_auxz00_3039 = 
CDR(BgL_auxz00_3040); } 
BgL_testz00_3038 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_cellz00_1108, BgL_auxz00_3039); } 
if(BgL_testz00_3038)
{ /* ./Rgc/rgccompile.scm 537 */
BgL_oldz00_1111 = 
CAR(BgL_smz00_1981); }  else 
{ /* ./Rgc/rgccompile.scm 537 */
{ 
obj_t BgL_smz00_3045;
BgL_smz00_3045 = 
CDR(BgL_smz00_1981); 
BgL_smz00_1981 = BgL_smz00_3045; 
goto BgL_loopz00_1980;} } } } 
if(
PAIRP(BgL_oldz00_1111))
{ /* ./Rgc/rgccompile.scm 538 */
{ /* ./Rgc/rgccompile.scm 540 */
obj_t BgL_arg2459z00_1995;
{ /* ./Rgc/rgccompile.scm 540 */
obj_t BgL_auxz00_3049;
BgL_auxz00_3049 = 
CAR(BgL_oldz00_1111); 
BgL_arg2459z00_1995 = 
MAKE_PAIR(BgL_charz00_1107, BgL_auxz00_3049); } 
SET_CAR(BgL_oldz00_1111, BgL_arg2459z00_1995); } BgL_oldz00_1111; 
{ 
obj_t BgL_positionsz00_3053;
BgL_positionsz00_3053 = 
CDR(BgL_positionsz00_959); 
BgL_positionsz00_959 = BgL_positionsz00_3053; 
goto BgL_loopz00_961;} }  else 
{ /* ./Rgc/rgccompile.scm 543 */
obj_t BgL_arg2437z00_1114;obj_t BgL_arg2438z00_1115;
BgL_arg2437z00_1114 = 
CDR(BgL_positionsz00_959); 
{ /* ./Rgc/rgccompile.scm 544 */
obj_t BgL_arg2442z00_1116;
{ /* ./Rgc/rgccompile.scm 544 */
obj_t BgL_arg2445z00_1117;
{ /* ./Rgc/rgccompile.scm 544 */
obj_t BgL_list2448z00_1118;
BgL_list2448z00_1118 = 
MAKE_PAIR(BgL_charz00_1107, BNIL); 
BgL_arg2445z00_1117 = BgL_list2448z00_1118; } 
BgL_arg2442z00_1116 = 
MAKE_PAIR(BgL_arg2445z00_1117, BgL_cellz00_1108); } 
BgL_arg2438z00_1115 = 
MAKE_PAIR(BgL_arg2442z00_1116, BgL_charzd2submatcheszd2_960); } 
{ 
obj_t BgL_charzd2submatcheszd2_3060;obj_t BgL_positionsz00_3059;
BgL_positionsz00_3059 = BgL_arg2437z00_1114; 
BgL_charzd2submatcheszd2_3060 = BgL_arg2438z00_1115; 
BgL_charzd2submatcheszd2_960 = BgL_charzd2submatcheszd2_3060; 
BgL_positionsz00_959 = BgL_positionsz00_3059; 
goto BgL_loopz00_961;} } } } } } } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__rgc_compilez00()
{ AN_OBJECT;
{ /* ./Rgc/rgccompile.scm 15 */
BGl_modulezd2initializa7ationz75zz__rgc_rulesz00(((long)45211), "__rgc_compile"); 
BGl_modulezd2initializa7ationz75zz__rgc_dfaz00(((long)59320), "__rgc_compile"); 
BGl_modulezd2initializa7ationz75zz__rgc_setz00(((long)45761), "__rgc_compile"); 
BGl_modulezd2initializa7ationz75zz__rgc_configz00(((long)37616), "__rgc_compile"); 
return 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__rgc_compile");} 
}

