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

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

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__rgc_expandz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_rulesz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_treez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_dfaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_compilez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_configz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgcz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__rgc_setz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_resetzd2dfaz12zc0zz__rgc_dfaz00();
static obj_t BGl_cnstzd2initzd2zz__rgc_expandz00();
extern obj_t BGl_compilezd2dfazd2zz__rgc_compilez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2regularzd2grammarz00zz__rgc_expandz00(obj_t, obj_t);
extern obj_t BGl_regularzd2treezd2ze3nodeze3zz__rgc_treez00(obj_t);
extern obj_t string_to_symbol(char *);
extern obj_t BGl_getzd2initialzd2statez00zz__rgc_dfaz00();
static obj_t BGl_list2709z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2711z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2713z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2714z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__rgc_expandz00();
static obj_t BGl_list2718z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2720z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2719z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2724z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2726z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2728z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2729z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2731z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2732z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2733z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2734z00zz__rgc_expandz00 = BUNSPEC;
extern obj_t BGl_resetzd2treez12zc0zz__rgc_treez00();
static obj_t BGl_list2736z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2780z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2737z00zz__rgc_expandz00 = BUNSPEC;
extern obj_t BGl_statezd2namezd2zz__rgc_dfaz00(obj_t);
static obj_t BGl_symbol2778z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2740z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2739z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2741z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2742z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2773z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2772z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2746z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2770z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2750z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2751z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2752z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2763z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2755z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2756z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2760z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2758z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2759z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2761z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2762z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2754z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2764z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2753z00zz__rgc_expandz00 = BUNSPEC;
extern obj_t BGl_za2unsafezd2rgcza2zd2zz__rgcz00;
static obj_t BGl_list2765z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2766z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2749z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2768z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2748z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2769z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2747z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl__expandzd2stringzd2casez00zz__rgc_expandz00(obj_t, obj_t, obj_t);
extern obj_t BGl_nodezd2ze3dfaz31zz__rgc_dfaz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2745z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2744z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2743z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2775z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2776z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2777z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2738z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2779z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_list2781z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2735z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2730z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2727z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2725z00zz__rgc_expandz00 = BUNSPEC;
extern obj_t BGl_ruleszd2ze3regularzd2treeze3zz__rgc_rulesz00(obj_t, obj_t);
static obj_t BGl_symbol2723z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2722z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2721z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2717z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2716z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2715z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2712z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl__expandzd2regularzd2grammarz00zz__rgc_expandz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2710z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2699z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2708z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2698z00zz__rgc_expandz00 = BUNSPEC;
extern obj_t BGl_resetzd2specialzd2matchzd2charz12zc0zz__rgc_rulesz00();
static obj_t BGl_symbol2707z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2697z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2706z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2696z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2705z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2695z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2704z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2694z00zz__rgc_expandz00 = BUNSPEC;
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_symbol2703z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2693z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2702z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2692z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2701z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2691z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2700z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2690z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2689z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2688z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2687z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2686z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2685z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2684z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2681z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2680z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2679z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2678z00zz__rgc_expandz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_expandzd2stringzd2casez00zz__rgc_expandz00(obj_t, obj_t);
static obj_t BGl_symbol2677z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2676z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2675z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2674z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2673z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2672z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_makezd2regularzd2parserz00zz__rgc_expandz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2671z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2670z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2669z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2668z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2667z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2666z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2665z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2664z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2663z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2662z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2658z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2657z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2656z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2655z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2654z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2653z00zz__rgc_expandz00 = BUNSPEC;
static obj_t BGl_symbol2652z00zz__rgc_expandz00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_STRING( BGl_string2661z00zz__rgc_expandz00, BgL_bgl_string2661za700za7za7__rgc_expandza7002788z00, "regular-grammar", 15 );
DEFINE_STRING( BGl_string2660z00zz__rgc_expandz00, BgL_bgl_string2660za700za7za7__rgc_expandza7002789z00, "Illegal form", 12 );
DEFINE_STRING( BGl_string2659z00zz__rgc_expandz00, BgL_bgl_string2659za700za7za7__rgc_expandza7002790z00, "string-case", 11 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2regularzd2grammarzd2envzd2zz__rgc_expandz00, BgL_bgl__expandza7d2regularza7d2grammarza700za7za7__rgc_expandza7002791z00, BGl__expandzd2regularzd2grammarz00zz__rgc_expandz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2stringzd2casezd2envzd2zz__rgc_expandz00, BgL_bgl__expandza7d2stringza7d2caseza700za7za7__rgc_expandza7002792z00, BGl__expandzd2stringzd2casez00zz__rgc_expandz00, 0L, 2 );
DEFINE_STRING( BGl_string2782z00zz__rgc_expandz00, BgL_bgl_string2782za700za7za7__rgc_expandza7002793z00, "Can't read on a closed input port", 33 );
DEFINE_STRING( BGl_string2774z00zz__rgc_expandz00, BgL_bgl_string2774za700za7za7__rgc_expandza7002794z00, "Illegal match", 13 );
DEFINE_STRING( BGl_string2771z00zz__rgc_expandz00, BgL_bgl_string2771za700za7za7__rgc_expandza7002795z00, "", 0 );
DEFINE_STRING( BGl_string2683z00zz__rgc_expandz00, BgL_bgl_string2683za700za7za7__rgc_expandza7002796z00, "the-substring", 13 );
DEFINE_STRING( BGl_string2682z00zz__rgc_expandz00, BgL_bgl_string2682za700za7za7__rgc_expandza7002797z00, "Illegal range", 13 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__rgc_expandz00(long BgL_checksumz00_1070, char * BgL_fromz00_1071)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__rgc_expandz00))
{ 
BGl_requirezd2initializa7ationz75zz__rgc_expandz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__rgc_expandz00(); 
BGl_importedzd2moduleszd2initz00zz__rgc_expandz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__rgc_expandz00()
{ AN_OBJECT;
{ /* ./Rgc/rgcexpand.scm 22 */
BGl_symbol2652z00zz__rgc_expandz00 = 
string_to_symbol("port"); 
BGl_symbol2653z00zz__rgc_expandz00 = 
string_to_symbol("let"); 
BGl_symbol2654z00zz__rgc_expandz00 = 
string_to_symbol("open-input-string"); 
BGl_symbol2655z00zz__rgc_expandz00 = 
string_to_symbol("unwind-protect"); 
BGl_symbol2656z00zz__rgc_expandz00 = 
string_to_symbol("read/rp"); 
BGl_symbol2657z00zz__rgc_expandz00 = 
string_to_symbol("regular-grammar"); 
BGl_symbol2658z00zz__rgc_expandz00 = 
string_to_symbol("close-input-port"); 
BGl_symbol2662z00zz__rgc_expandz00 = 
string_to_symbol("the-rgc-context"); 
BGl_symbol2663z00zz__rgc_expandz00 = 
string_to_symbol("lambda"); 
BGl_symbol2664z00zz__rgc_expandz00 = 
string_to_symbol("input-port"); 
BGl_symbol2665z00zz__rgc_expandz00 = 
string_to_symbol("proc"); 
BGl_symbol2666z00zz__rgc_expandz00 = 
string_to_symbol("define"); 
BGl_symbol2667z00zz__rgc_expandz00 = 
string_to_symbol("the-port::input-port"); 
BGl_symbol2668z00zz__rgc_expandz00 = 
string_to_symbol("the-character::char"); 
BGl_symbol2669z00zz__rgc_expandz00 = 
string_to_symbol("rgc-buffer-character"); 
BGl_symbol2670z00zz__rgc_expandz00 = 
string_to_symbol("the-string::bstring"); 
BGl_symbol2671z00zz__rgc_expandz00 = 
string_to_symbol("rgc-buffer-substring"); 
BGl_symbol2672z00zz__rgc_expandz00 = 
string_to_symbol("the-length"); 
BGl_symbol2673z00zz__rgc_expandz00 = 
string_to_symbol("the-substring::bstring"); 
BGl_symbol2674z00zz__rgc_expandz00 = 
string_to_symbol("min"); 
BGl_symbol2675z00zz__rgc_expandz00 = 
string_to_symbol("max"); 
BGl_symbol2676z00zz__rgc_expandz00 = 
string_to_symbol("if"); 
BGl_symbol2677z00zz__rgc_expandz00 = 
string_to_symbol("and"); 
BGl_symbol2678z00zz__rgc_expandz00 = 
string_to_symbol(">=fx"); 
BGl_symbol2679z00zz__rgc_expandz00 = 
string_to_symbol("<=fx"); 
BGl_symbol2680z00zz__rgc_expandz00 = 
string_to_symbol("error"); 
BGl_symbol2681z00zz__rgc_expandz00 = 
string_to_symbol("cons"); 
BGl_symbol2684z00zz__rgc_expandz00 = 
string_to_symbol("the-length::int"); 
BGl_symbol2685z00zz__rgc_expandz00 = 
string_to_symbol("rgc-buffer-length"); 
BGl_symbol2686z00zz__rgc_expandz00 = 
string_to_symbol("the-fixnum::long"); 
BGl_symbol2687z00zz__rgc_expandz00 = 
string_to_symbol("rgc-buffer-fixnum"); 
BGl_symbol2688z00zz__rgc_expandz00 = 
string_to_symbol("the-integer::obj"); 
BGl_symbol2689z00zz__rgc_expandz00 = 
string_to_symbol("rgc-buffer-integer"); 
BGl_symbol2690z00zz__rgc_expandz00 = 
string_to_symbol("the-flonum::double"); 
BGl_symbol2691z00zz__rgc_expandz00 = 
string_to_symbol("rgc-buffer-flonum"); 
BGl_symbol2692z00zz__rgc_expandz00 = 
string_to_symbol("the-symbol::symbol"); 
BGl_symbol2693z00zz__rgc_expandz00 = 
string_to_symbol("rgc-buffer-symbol"); 
BGl_symbol2694z00zz__rgc_expandz00 = 
string_to_symbol("the-keyword::keyword"); 
BGl_symbol2695z00zz__rgc_expandz00 = 
string_to_symbol("rgc-buffer-keyword"); 
BGl_symbol2696z00zz__rgc_expandz00 = 
string_to_symbol("the-failure"); 
BGl_symbol2697z00zz__rgc_expandz00 = 
string_to_symbol("=fx"); 
BGl_symbol2698z00zz__rgc_expandz00 = 
string_to_symbol("string-ref"); 
BGl_symbol2699z00zz__rgc_expandz00 = 
string_to_symbol("the-string"); 
BGl_symbol2700z00zz__rgc_expandz00 = 
string_to_symbol("the-context"); 
BGl_symbol2701z00zz__rgc_expandz00 = 
string_to_symbol("rgc-context?::bool"); 
BGl_symbol2702z00zz__rgc_expandz00 = 
string_to_symbol("context"); 
BGl_symbol2703z00zz__rgc_expandz00 = 
string_to_symbol("eq?"); 
BGl_symbol2704z00zz__rgc_expandz00 = 
string_to_symbol("rgc-set-context!"); 
BGl_symbol2705z00zz__rgc_expandz00 = 
string_to_symbol("set!"); 
BGl_symbol2706z00zz__rgc_expandz00 = 
string_to_symbol("rgc-context"); 
BGl_symbol2707z00zz__rgc_expandz00 = 
string_to_symbol("pair?"); 
BGl_symbol2708z00zz__rgc_expandz00 = 
string_to_symbol("car"); 
BGl_symbol2710z00zz__rgc_expandz00 = 
string_to_symbol("rgc-submatches"); 
BGl_symbol2712z00zz__rgc_expandz00 = 
string_to_symbol("quote"); 
{ /* ./Rgc/rgcexpand.scm 192 */
obj_t BgL_auxz00_1131;
BgL_auxz00_1131 = 
MAKE_PAIR(BNIL, BNIL); 
BGl_list2711z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2712z00zz__rgc_expandz00, BgL_auxz00_1131); } 
{ /* ./Rgc/rgcexpand.scm 192 */
obj_t BgL_auxz00_1134;
{ /* ./Rgc/rgcexpand.scm 192 */
obj_t BgL_auxz00_1135;
BgL_auxz00_1135 = 
MAKE_PAIR(BGl_list2711z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1134 = 
MAKE_PAIR(BGl_symbol2710z00zz__rgc_expandz00, BgL_auxz00_1135); } 
BGl_list2709z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2666z00zz__rgc_expandz00, BgL_auxz00_1134); } 
BGl_symbol2715z00zz__rgc_expandz00 = 
string_to_symbol("rgc-submatch-start!"); 
BGl_symbol2716z00zz__rgc_expandz00 = 
string_to_symbol("match::int"); 
BGl_symbol2717z00zz__rgc_expandz00 = 
string_to_symbol("submatch::int"); 
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1142;
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1143;
BgL_auxz00_1143 = 
MAKE_PAIR(BGl_symbol2717z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1142 = 
MAKE_PAIR(BGl_symbol2716z00zz__rgc_expandz00, BgL_auxz00_1143); } 
BGl_list2714z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2715z00zz__rgc_expandz00, BgL_auxz00_1142); } 
BGl_symbol2721z00zz__rgc_expandz00 = 
string_to_symbol("vector"); 
BGl_symbol2722z00zz__rgc_expandz00 = 
string_to_symbol("match"); 
BGl_symbol2723z00zz__rgc_expandz00 = 
string_to_symbol("submatch"); 
BGl_symbol2725z00zz__rgc_expandz00 = 
string_to_symbol("rgc-buffer-position"); 
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1151;
BgL_auxz00_1151 = 
MAKE_PAIR(BGl_symbol2664z00zz__rgc_expandz00, BNIL); 
BGl_list2724z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2725z00zz__rgc_expandz00, BgL_auxz00_1151); } 
BGl_symbol2727z00zz__rgc_expandz00 = 
string_to_symbol("start"); 
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1155;
BgL_auxz00_1155 = 
MAKE_PAIR(BGl_symbol2727z00zz__rgc_expandz00, BNIL); 
BGl_list2726z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2712z00zz__rgc_expandz00, BgL_auxz00_1155); } 
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1158;
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1159;
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1160;
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1161;
BgL_auxz00_1161 = 
MAKE_PAIR(BGl_list2726z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1160 = 
MAKE_PAIR(BGl_list2724z00zz__rgc_expandz00, BgL_auxz00_1161); } 
BgL_auxz00_1159 = 
MAKE_PAIR(BGl_symbol2723z00zz__rgc_expandz00, BgL_auxz00_1160); } 
BgL_auxz00_1158 = 
MAKE_PAIR(BGl_symbol2722z00zz__rgc_expandz00, BgL_auxz00_1159); } 
BGl_list2720z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2721z00zz__rgc_expandz00, BgL_auxz00_1158); } 
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1167;
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1168;
BgL_auxz00_1168 = 
MAKE_PAIR(BGl_symbol2710z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1167 = 
MAKE_PAIR(BGl_list2720z00zz__rgc_expandz00, BgL_auxz00_1168); } 
BGl_list2719z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2681z00zz__rgc_expandz00, BgL_auxz00_1167); } 
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1172;
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1173;
BgL_auxz00_1173 = 
MAKE_PAIR(BGl_list2719z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1172 = 
MAKE_PAIR(BGl_symbol2710z00zz__rgc_expandz00, BgL_auxz00_1173); } 
BGl_list2718z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2705z00zz__rgc_expandz00, BgL_auxz00_1172); } 
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1177;
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_auxz00_1178;
BgL_auxz00_1178 = 
MAKE_PAIR(BGl_list2718z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1177 = 
MAKE_PAIR(BGl_list2714z00zz__rgc_expandz00, BgL_auxz00_1178); } 
BGl_list2713z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2666z00zz__rgc_expandz00, BgL_auxz00_1177); } 
BGl_symbol2730z00zz__rgc_expandz00 = 
string_to_symbol("rgc-submatch-start*!"); 
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1183;
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1184;
BgL_auxz00_1184 = 
MAKE_PAIR(BGl_symbol2717z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1183 = 
MAKE_PAIR(BGl_symbol2716z00zz__rgc_expandz00, BgL_auxz00_1184); } 
BGl_list2729z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2730z00zz__rgc_expandz00, BgL_auxz00_1183); } 
BGl_symbol2735z00zz__rgc_expandz00 = 
string_to_symbol("start*"); 
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1189;
BgL_auxz00_1189 = 
MAKE_PAIR(BGl_symbol2735z00zz__rgc_expandz00, BNIL); 
BGl_list2734z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2712z00zz__rgc_expandz00, BgL_auxz00_1189); } 
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1192;
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1193;
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1194;
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1195;
BgL_auxz00_1195 = 
MAKE_PAIR(BGl_list2734z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1194 = 
MAKE_PAIR(BGl_list2724z00zz__rgc_expandz00, BgL_auxz00_1195); } 
BgL_auxz00_1193 = 
MAKE_PAIR(BGl_symbol2723z00zz__rgc_expandz00, BgL_auxz00_1194); } 
BgL_auxz00_1192 = 
MAKE_PAIR(BGl_symbol2722z00zz__rgc_expandz00, BgL_auxz00_1193); } 
BGl_list2733z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2721z00zz__rgc_expandz00, BgL_auxz00_1192); } 
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1201;
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1202;
BgL_auxz00_1202 = 
MAKE_PAIR(BGl_symbol2710z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1201 = 
MAKE_PAIR(BGl_list2733z00zz__rgc_expandz00, BgL_auxz00_1202); } 
BGl_list2732z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2681z00zz__rgc_expandz00, BgL_auxz00_1201); } 
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1206;
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1207;
BgL_auxz00_1207 = 
MAKE_PAIR(BGl_list2732z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1206 = 
MAKE_PAIR(BGl_symbol2710z00zz__rgc_expandz00, BgL_auxz00_1207); } 
BGl_list2731z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2705z00zz__rgc_expandz00, BgL_auxz00_1206); } 
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1211;
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_auxz00_1212;
BgL_auxz00_1212 = 
MAKE_PAIR(BGl_list2731z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1211 = 
MAKE_PAIR(BGl_list2729z00zz__rgc_expandz00, BgL_auxz00_1212); } 
BGl_list2728z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2666z00zz__rgc_expandz00, BgL_auxz00_1211); } 
BGl_symbol2738z00zz__rgc_expandz00 = 
string_to_symbol("rgc-submatch-stop!"); 
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1217;
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1218;
BgL_auxz00_1218 = 
MAKE_PAIR(BGl_symbol2717z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1217 = 
MAKE_PAIR(BGl_symbol2716z00zz__rgc_expandz00, BgL_auxz00_1218); } 
BGl_list2737z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2738z00zz__rgc_expandz00, BgL_auxz00_1217); } 
BGl_symbol2743z00zz__rgc_expandz00 = 
string_to_symbol("stop"); 
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1223;
BgL_auxz00_1223 = 
MAKE_PAIR(BGl_symbol2743z00zz__rgc_expandz00, BNIL); 
BGl_list2742z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2712z00zz__rgc_expandz00, BgL_auxz00_1223); } 
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1226;
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1227;
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1228;
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1229;
BgL_auxz00_1229 = 
MAKE_PAIR(BGl_list2742z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1228 = 
MAKE_PAIR(BGl_list2724z00zz__rgc_expandz00, BgL_auxz00_1229); } 
BgL_auxz00_1227 = 
MAKE_PAIR(BGl_symbol2723z00zz__rgc_expandz00, BgL_auxz00_1228); } 
BgL_auxz00_1226 = 
MAKE_PAIR(BGl_symbol2722z00zz__rgc_expandz00, BgL_auxz00_1227); } 
BGl_list2741z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2721z00zz__rgc_expandz00, BgL_auxz00_1226); } 
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1235;
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1236;
BgL_auxz00_1236 = 
MAKE_PAIR(BGl_symbol2710z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1235 = 
MAKE_PAIR(BGl_list2741z00zz__rgc_expandz00, BgL_auxz00_1236); } 
BGl_list2740z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2681z00zz__rgc_expandz00, BgL_auxz00_1235); } 
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1240;
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1241;
BgL_auxz00_1241 = 
MAKE_PAIR(BGl_list2740z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1240 = 
MAKE_PAIR(BGl_symbol2710z00zz__rgc_expandz00, BgL_auxz00_1241); } 
BGl_list2739z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2705z00zz__rgc_expandz00, BgL_auxz00_1240); } 
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1245;
{ /* ./Rgc/rgcexpand.scm 219 */
obj_t BgL_auxz00_1246;
BgL_auxz00_1246 = 
MAKE_PAIR(BGl_list2739z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1245 = 
MAKE_PAIR(BGl_list2737z00zz__rgc_expandz00, BgL_auxz00_1246); } 
BGl_list2736z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2666z00zz__rgc_expandz00, BgL_auxz00_1245); } 
BGl_symbol2744z00zz__rgc_expandz00 = 
string_to_symbol("ignore"); 
BGl_symbol2745z00zz__rgc_expandz00 = 
string_to_symbol("rgc-start-match!"); 
{ /* ./Rgc/rgcexpand.scm 225 */
obj_t BgL_auxz00_1252;
{ /* ./Rgc/rgcexpand.scm 225 */
obj_t BgL_auxz00_1253;
BgL_auxz00_1253 = 
MAKE_PAIR(BGl_list2711z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1252 = 
MAKE_PAIR(BGl_symbol2710z00zz__rgc_expandz00, BgL_auxz00_1253); } 
BGl_list2746z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2705z00zz__rgc_expandz00, BgL_auxz00_1252); } 
BGl_symbol2747z00zz__rgc_expandz00 = 
string_to_symbol("match::long"); 
BGl_symbol2748z00zz__rgc_expandz00 = 
string_to_symbol("procedure?"); 
BGl_symbol2749z00zz__rgc_expandz00 = 
string_to_symbol("rgc-set-filepos!"); 
BGl_symbol2753z00zz__rgc_expandz00 = 
string_to_symbol("the-submatch"); 
BGl_symbol2754z00zz__rgc_expandz00 = 
string_to_symbol("num"); 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1262;
BgL_auxz00_1262 = 
MAKE_PAIR(BGl_symbol2754z00zz__rgc_expandz00, BNIL); 
BGl_list2752z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2753z00zz__rgc_expandz00, BgL_auxz00_1262); } 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1265;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1266;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1267;
BgL_auxz00_1267 = 
BINT(((long)0)); 
BgL_auxz00_1266 = 
MAKE_PAIR(BgL_auxz00_1267, BNIL); } 
BgL_auxz00_1265 = 
MAKE_PAIR(BGl_symbol2754z00zz__rgc_expandz00, BgL_auxz00_1266); } 
BGl_list2756z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2697z00zz__rgc_expandz00, BgL_auxz00_1265); } 
BGl_list2758z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2699z00zz__rgc_expandz00, BNIL); 
BGl_symbol2760z00zz__rgc_expandz00 = 
string_to_symbol("multiple-value-bind"); 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1274;
BgL_auxz00_1274 = 
MAKE_PAIR(BGl_symbol2743z00zz__rgc_expandz00, BNIL); 
BGl_list2761z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2727z00zz__rgc_expandz00, BgL_auxz00_1274); } 
BGl_symbol2763z00zz__rgc_expandz00 = 
string_to_symbol("rgc-the-submatch"); 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1278;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1279;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1280;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1281;
BgL_auxz00_1281 = 
MAKE_PAIR(BGl_symbol2754z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1280 = 
MAKE_PAIR(BGl_symbol2722z00zz__rgc_expandz00, BgL_auxz00_1281); } 
BgL_auxz00_1279 = 
MAKE_PAIR(BGl_list2724z00zz__rgc_expandz00, BgL_auxz00_1280); } 
BgL_auxz00_1278 = 
MAKE_PAIR(BGl_symbol2710z00zz__rgc_expandz00, BgL_auxz00_1279); } 
BGl_list2762z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2763z00zz__rgc_expandz00, BgL_auxz00_1278); } 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1287;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1288;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1289;
BgL_auxz00_1289 = 
BINT(((long)0)); 
BgL_auxz00_1288 = 
MAKE_PAIR(BgL_auxz00_1289, BNIL); } 
BgL_auxz00_1287 = 
MAKE_PAIR(BGl_symbol2727z00zz__rgc_expandz00, BgL_auxz00_1288); } 
BGl_list2766z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2678z00zz__rgc_expandz00, BgL_auxz00_1287); } 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1294;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1295;
BgL_auxz00_1295 = 
MAKE_PAIR(BGl_symbol2727z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1294 = 
MAKE_PAIR(BGl_symbol2743z00zz__rgc_expandz00, BgL_auxz00_1295); } 
BGl_list2768z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2678z00zz__rgc_expandz00, BgL_auxz00_1294); } 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1299;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1300;
BgL_auxz00_1300 = 
MAKE_PAIR(BGl_list2768z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1299 = 
MAKE_PAIR(BGl_list2766z00zz__rgc_expandz00, BgL_auxz00_1300); } 
BGl_list2765z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2677z00zz__rgc_expandz00, BgL_auxz00_1299); } 
BGl_symbol2770z00zz__rgc_expandz00 = 
string_to_symbol("the-substring"); 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1305;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1306;
BgL_auxz00_1306 = 
MAKE_PAIR(BGl_symbol2743z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1305 = 
MAKE_PAIR(BGl_symbol2727z00zz__rgc_expandz00, BgL_auxz00_1306); } 
BGl_list2769z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2770z00zz__rgc_expandz00, BgL_auxz00_1305); } 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1310;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1311;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1312;
BgL_auxz00_1312 = 
MAKE_PAIR(BGl_string2771z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1311 = 
MAKE_PAIR(BGl_list2769z00zz__rgc_expandz00, BgL_auxz00_1312); } 
BgL_auxz00_1310 = 
MAKE_PAIR(BGl_list2765z00zz__rgc_expandz00, BgL_auxz00_1311); } 
BGl_list2764z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2676z00zz__rgc_expandz00, BgL_auxz00_1310); } 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1317;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1318;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1319;
BgL_auxz00_1319 = 
MAKE_PAIR(BGl_list2764z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1318 = 
MAKE_PAIR(BGl_list2762z00zz__rgc_expandz00, BgL_auxz00_1319); } 
BgL_auxz00_1317 = 
MAKE_PAIR(BGl_list2761z00zz__rgc_expandz00, BgL_auxz00_1318); } 
BGl_list2759z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2760z00zz__rgc_expandz00, BgL_auxz00_1317); } 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1324;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1325;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1326;
BgL_auxz00_1326 = 
MAKE_PAIR(BGl_list2759z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1325 = 
MAKE_PAIR(BGl_list2758z00zz__rgc_expandz00, BgL_auxz00_1326); } 
BgL_auxz00_1324 = 
MAKE_PAIR(BGl_list2756z00zz__rgc_expandz00, BgL_auxz00_1325); } 
BGl_list2755z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2676z00zz__rgc_expandz00, BgL_auxz00_1324); } 
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1331;
{ /* ./Rgc/rgcexpand.scm 250 */
obj_t BgL_auxz00_1332;
BgL_auxz00_1332 = 
MAKE_PAIR(BGl_list2755z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1331 = 
MAKE_PAIR(BGl_list2752z00zz__rgc_expandz00, BgL_auxz00_1332); } 
BGl_list2751z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2666z00zz__rgc_expandz00, BgL_auxz00_1331); } 
BGl_list2750z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_list2751z00zz__rgc_expandz00, BNIL); 
BGl_symbol2772z00zz__rgc_expandz00 = 
string_to_symbol("case"); 
BGl_symbol2773z00zz__rgc_expandz00 = 
string_to_symbol("else"); 
BGl_list2775z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2744z00zz__rgc_expandz00, BNIL); 
BGl_symbol2778z00zz__rgc_expandz00 = 
string_to_symbol("closed-input-port?"); 
BGl_symbol2780z00zz__rgc_expandz00 = 
string_to_symbol("the-port"); 
BGl_list2779z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2780z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 272 */
obj_t BgL_auxz00_1343;
BgL_auxz00_1343 = 
MAKE_PAIR(BGl_list2779z00zz__rgc_expandz00, BNIL); 
BGl_list2777z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2778z00zz__rgc_expandz00, BgL_auxz00_1343); } 
{ /* ./Rgc/rgcexpand.scm 272 */
obj_t BgL_auxz00_1346;
{ /* ./Rgc/rgcexpand.scm 272 */
obj_t BgL_auxz00_1347;
{ /* ./Rgc/rgcexpand.scm 272 */
obj_t BgL_auxz00_1348;
BgL_auxz00_1348 = 
MAKE_PAIR(BGl_list2779z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1347 = 
MAKE_PAIR(BGl_string2782z00zz__rgc_expandz00, BgL_auxz00_1348); } 
BgL_auxz00_1346 = 
MAKE_PAIR(BGl_string2661z00zz__rgc_expandz00, BgL_auxz00_1347); } 
BGl_list2781z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2680z00zz__rgc_expandz00, BgL_auxz00_1346); } 
{ /* ./Rgc/rgcexpand.scm 272 */
obj_t BgL_auxz00_1353;
{ /* ./Rgc/rgcexpand.scm 272 */
obj_t BgL_auxz00_1354;
{ /* ./Rgc/rgcexpand.scm 272 */
obj_t BgL_auxz00_1355;
BgL_auxz00_1355 = 
MAKE_PAIR(BGl_list2775z00zz__rgc_expandz00, BNIL); 
BgL_auxz00_1354 = 
MAKE_PAIR(BGl_list2781z00zz__rgc_expandz00, BgL_auxz00_1355); } 
BgL_auxz00_1353 = 
MAKE_PAIR(BGl_list2777z00zz__rgc_expandz00, BgL_auxz00_1354); } 
return ( 
BGl_list2776z00zz__rgc_expandz00 = 
MAKE_PAIR(BGl_symbol2676z00zz__rgc_expandz00, BgL_auxz00_1353), BUNSPEC) ;} } 
}



/* expand-string-case */
BGL_EXPORTED_DEF obj_t BGl_expandzd2stringzd2casez00zz__rgc_expandz00(obj_t BgL_xz00_1, obj_t BgL_ez00_2)
{ AN_OBJECT;
{ /* ./Rgc/rgcexpand.scm 68 */
{ 
obj_t BgL_strz00_383;obj_t BgL_clausesz00_384;
if(
PAIRP(BgL_xz00_1))
{ /* ./Rgc/rgcexpand.scm 69 */
obj_t BgL_cdrzd2109zd2_389;
BgL_cdrzd2109zd2_389 = 
CDR(BgL_xz00_1); 
if(
PAIRP(BgL_cdrzd2109zd2_389))
{ /* ./Rgc/rgcexpand.scm 69 */
BgL_strz00_383 = 
CAR(BgL_cdrzd2109zd2_389); 
BgL_clausesz00_384 = 
CDR(BgL_cdrzd2109zd2_389); 
{ /* ./Rgc/rgcexpand.scm 71 */
obj_t BgL_portzd2idzd2_393;
BgL_portzd2idzd2_393 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol2652z00zz__rgc_expandz00, BEOA); 
{ /* ./Rgc/rgcexpand.scm 72 */
obj_t BgL_newz00_394;
{ /* ./Rgc/rgcexpand.scm 72 */
obj_t BgL_arg1028z00_397;obj_t BgL_arg1029z00_398;
BgL_arg1028z00_397 = BGl_symbol2653z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 72 */
obj_t BgL_arg1032z00_399;obj_t BgL_arg1033z00_400;
{ /* ./Rgc/rgcexpand.scm 72 */
obj_t BgL_arg1036z00_401;
{ /* ./Rgc/rgcexpand.scm 72 */
obj_t BgL_arg1041z00_403;
{ /* ./Rgc/rgcexpand.scm 72 */
obj_t BgL_arg1044z00_404;
{ /* ./Rgc/rgcexpand.scm 72 */
obj_t BgL_arg1048z00_406;obj_t BgL_arg1049z00_407;
BgL_arg1048z00_406 = BGl_symbol2654z00zz__rgc_expandz00; 
BgL_arg1049z00_407 = 
MAKE_PAIR(BgL_strz00_383, BNIL); 
BgL_arg1044z00_404 = 
MAKE_PAIR(BgL_arg1048z00_406, BgL_arg1049z00_407); } 
BgL_arg1041z00_403 = 
MAKE_PAIR(BgL_arg1044z00_404, BNIL); } 
BgL_arg1036z00_401 = 
MAKE_PAIR(BgL_portzd2idzd2_393, BgL_arg1041z00_403); } 
BgL_arg1032z00_399 = 
MAKE_PAIR(BgL_arg1036z00_401, BNIL); } 
{ /* ./Rgc/rgcexpand.scm 73 */
obj_t BgL_arg1053z00_408;
{ /* ./Rgc/rgcexpand.scm 73 */
obj_t BgL_arg1058z00_410;obj_t BgL_arg1059z00_411;
BgL_arg1058z00_410 = BGl_symbol2655z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 74 */
obj_t BgL_arg1064z00_412;obj_t BgL_arg1065z00_413;
{ /* ./Rgc/rgcexpand.scm 74 */
obj_t BgL_arg1068z00_414;obj_t BgL_arg1069z00_415;
BgL_arg1068z00_414 = BGl_symbol2656z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 74 */
obj_t BgL_arg1073z00_416;obj_t BgL_arg1075z00_417;
{ /* ./Rgc/rgcexpand.scm 74 */
obj_t BgL_arg1079z00_418;obj_t BgL_arg1080z00_419;
BgL_arg1079z00_418 = BGl_symbol2657z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 74 */
obj_t BgL_auxz00_1372;
BgL_auxz00_1372 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_clausesz00_384, BNIL); 
BgL_arg1080z00_419 = 
MAKE_PAIR(BNIL, BgL_auxz00_1372); } 
BgL_arg1073z00_416 = 
MAKE_PAIR(BgL_arg1079z00_418, BgL_arg1080z00_419); } 
BgL_arg1075z00_417 = 
MAKE_PAIR(BgL_portzd2idzd2_393, BNIL); 
BgL_arg1069z00_415 = 
MAKE_PAIR(BgL_arg1073z00_416, BgL_arg1075z00_417); } 
BgL_arg1064z00_412 = 
MAKE_PAIR(BgL_arg1068z00_414, BgL_arg1069z00_415); } 
{ /* ./Rgc/rgcexpand.scm 77 */
obj_t BgL_arg1089z00_422;
{ /* ./Rgc/rgcexpand.scm 77 */
obj_t BgL_arg1093z00_424;obj_t BgL_arg1094z00_425;
BgL_arg1093z00_424 = BGl_symbol2658z00zz__rgc_expandz00; 
BgL_arg1094z00_425 = 
MAKE_PAIR(BgL_portzd2idzd2_393, BNIL); 
BgL_arg1089z00_422 = 
MAKE_PAIR(BgL_arg1093z00_424, BgL_arg1094z00_425); } 
BgL_arg1065z00_413 = 
MAKE_PAIR(BgL_arg1089z00_422, BNIL); } 
BgL_arg1059z00_411 = 
MAKE_PAIR(BgL_arg1064z00_412, BgL_arg1065z00_413); } 
BgL_arg1053z00_408 = 
MAKE_PAIR(BgL_arg1058z00_410, BgL_arg1059z00_411); } 
BgL_arg1033z00_400 = 
MAKE_PAIR(BgL_arg1053z00_408, BNIL); } 
BgL_arg1029z00_398 = 
MAKE_PAIR(BgL_arg1032z00_399, BgL_arg1033z00_400); } 
BgL_newz00_394 = 
MAKE_PAIR(BgL_arg1028z00_397, BgL_arg1029z00_398); } 
{ /* ./Rgc/rgcexpand.scm 78 */
obj_t BgL_auxz00_1387;
BgL_auxz00_1387 = 
CAR(BgL_newz00_394); 
SET_CAR(BgL_xz00_1, BgL_auxz00_1387); } 
{ /* ./Rgc/rgcexpand.scm 79 */
obj_t BgL_auxz00_1390;
BgL_auxz00_1390 = 
CDR(BgL_newz00_394); 
SET_CDR(BgL_xz00_1, BgL_auxz00_1390); } 
return 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_xz00_1, BgL_ez00_2, BEOA);} } }  else 
{ /* ./Rgc/rgcexpand.scm 69 */
FAILURE(BGl_string2659z00zz__rgc_expandz00,BGl_string2660z00zz__rgc_expandz00,BgL_xz00_1);} }  else 
{ /* ./Rgc/rgcexpand.scm 69 */
FAILURE(BGl_string2659z00zz__rgc_expandz00,BGl_string2660z00zz__rgc_expandz00,BgL_xz00_1);} } } 
}



/* _expand-string-case */
obj_t BGl__expandzd2stringzd2casez00zz__rgc_expandz00(obj_t BgL_envz00_1064, obj_t BgL_xz00_1065, obj_t BgL_ez00_1066)
{ AN_OBJECT;
{ /* ./Rgc/rgcexpand.scm 68 */
return 
BGl_expandzd2stringzd2casez00zz__rgc_expandz00(BgL_xz00_1065, BgL_ez00_1066);} 
}



/* expand-regular-grammar */
BGL_EXPORTED_DEF obj_t BGl_expandzd2regularzd2grammarz00zz__rgc_expandz00(obj_t BgL_xz00_3, obj_t BgL_ez00_4)
{ AN_OBJECT;
{ /* ./Rgc/rgcexpand.scm 89 */
{ 
obj_t BgL_userzd2envzd2_426;obj_t BgL_clausesz00_427;
if(
PAIRP(BgL_xz00_3))
{ /* ./Rgc/rgcexpand.scm 90 */
obj_t BgL_cdrzd2124zd2_432;
BgL_cdrzd2124zd2_432 = 
CDR(BgL_xz00_3); 
if(
PAIRP(BgL_cdrzd2124zd2_432))
{ /* ./Rgc/rgcexpand.scm 90 */
BgL_userzd2envzd2_426 = 
CAR(BgL_cdrzd2124zd2_432); 
BgL_clausesz00_427 = 
CDR(BgL_cdrzd2124zd2_432); 
{ /* ./Rgc/rgcexpand.scm 92 */
obj_t BgL_treez00_436;
BgL_treez00_436 = 
BGl_ruleszd2ze3regularzd2treeze3zz__rgc_rulesz00(BgL_userzd2envzd2_426, BgL_clausesz00_427); 
{ /* ./Rgc/rgcexpand.scm 96 */
obj_t BgL_actionsz00_437;obj_t BgL_elsezd2numzd2_438;obj_t BgL_submatchzf3zf3_439;
{ /* ./Rgc/rgcexpand.scm 96 */
int BgL_auxz00_1406;
BgL_auxz00_1406 = 
(int)(((long)1)); 
BgL_actionsz00_437 = 
BGL_MVALUES_VAL(BgL_auxz00_1406); } 
{ /* ./Rgc/rgcexpand.scm 96 */
int BgL_auxz00_1409;
BgL_auxz00_1409 = 
(int)(((long)2)); 
BgL_elsezd2numzd2_438 = 
BGL_MVALUES_VAL(BgL_auxz00_1409); } 
{ /* ./Rgc/rgcexpand.scm 96 */
int BgL_auxz00_1412;
BgL_auxz00_1412 = 
(int)(((long)3)); 
BgL_submatchzf3zf3_439 = 
BGL_MVALUES_VAL(BgL_auxz00_1412); } 
{ /* ./Rgc/rgcexpand.scm 96 */
obj_t BgL_nodez00_440;
BgL_nodez00_440 = 
BGl_regularzd2treezd2ze3nodeze3zz__rgc_treez00(BgL_treez00_436); 
{ /* ./Rgc/rgcexpand.scm 115 */
obj_t BgL_followposz00_441;obj_t BgL_positionsz00_442;obj_t BgL_submatchesz00_443;
{ /* ./Rgc/rgcexpand.scm 115 */
int BgL_auxz00_1416;
BgL_auxz00_1416 = 
(int)(((long)1)); 
BgL_followposz00_441 = 
BGL_MVALUES_VAL(BgL_auxz00_1416); } 
{ /* ./Rgc/rgcexpand.scm 115 */
int BgL_auxz00_1419;
BgL_auxz00_1419 = 
(int)(((long)2)); 
BgL_positionsz00_442 = 
BGL_MVALUES_VAL(BgL_auxz00_1419); } 
{ /* ./Rgc/rgcexpand.scm 115 */
int BgL_auxz00_1422;
BgL_auxz00_1422 = 
(int)(((long)3)); 
BgL_submatchesz00_443 = 
BGL_MVALUES_VAL(BgL_auxz00_1422); } 
{ /* ./Rgc/rgcexpand.scm 116 */
obj_t BgL_dfaz00_444;
BgL_dfaz00_444 = 
BGl_nodezd2ze3dfaz31zz__rgc_dfaz00(BgL_nodez00_440, BgL_followposz00_441, BgL_positionsz00_442); 
{ /* ./Rgc/rgcexpand.scm 116 */
obj_t BgL_sexpz00_445;
BgL_sexpz00_445 = 
BGl_makezd2regularzd2parserz00zz__rgc_expandz00(
BGl_compilezd2dfazd2zz__rgc_compilez00(BgL_submatchesz00_443, BgL_dfaz00_444, BgL_positionsz00_442), BgL_actionsz00_437, BgL_elsezd2numzd2_438, BgL_submatchzf3zf3_439); 
{ /* ./Rgc/rgcexpand.scm 117 */

BGl_resetzd2specialzd2matchzd2charz12zc0zz__rgc_rulesz00(); 
BGl_resetzd2treez12zc0zz__rgc_treez00(); 
BGl_resetzd2dfaz12zc0zz__rgc_dfaz00(); 
return 
PROCEDURE_ENTRY(BgL_ez00_4)(BgL_ez00_4, BgL_sexpz00_445, BgL_ez00_4, BEOA);} } } } } } } }  else 
{ /* ./Rgc/rgcexpand.scm 90 */
FAILURE(BGl_string2661z00zz__rgc_expandz00,BGl_string2660z00zz__rgc_expandz00,BgL_xz00_3);} }  else 
{ /* ./Rgc/rgcexpand.scm 90 */
FAILURE(BGl_string2661z00zz__rgc_expandz00,BGl_string2660z00zz__rgc_expandz00,BgL_xz00_3);} } } 
}



/* _expand-regular-grammar */
obj_t BGl__expandzd2regularzd2grammarz00zz__rgc_expandz00(obj_t BgL_envz00_1067, obj_t BgL_xz00_1068, obj_t BgL_ez00_1069)
{ AN_OBJECT;
{ /* ./Rgc/rgcexpand.scm 89 */
return 
BGl_expandzd2regularzd2grammarz00zz__rgc_expandz00(BgL_xz00_1068, BgL_ez00_1069);} 
}



/* make-regular-parser */
obj_t BGl_makezd2regularzd2parserz00zz__rgc_expandz00(obj_t BgL_statesz00_5, obj_t BgL_actionsz00_6, obj_t BgL_elsezd2numzd2_7, obj_t BgL_submatchzf3zf3_8)
{ AN_OBJECT;
{ /* ./Rgc/rgcexpand.scm 133 */
{ /* ./Rgc/rgcexpand.scm 134 */
obj_t BgL_arg1131z00_447;obj_t BgL_arg1132z00_448;
BgL_arg1131z00_447 = BGl_symbol2653z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 134 */
obj_t BgL_arg1135z00_449;obj_t BgL_arg1136z00_450;
{ /* ./Rgc/rgcexpand.scm 134 */
obj_t BgL_arg1140z00_451;
{ /* ./Rgc/rgcexpand.scm 134 */
obj_t BgL_arg1144z00_453;obj_t BgL_arg1146z00_454;
BgL_arg1144z00_453 = BGl_symbol2662z00zz__rgc_expandz00; 
BgL_arg1146z00_454 = 
MAKE_PAIR(BUNSPEC, BNIL); 
BgL_arg1140z00_451 = 
MAKE_PAIR(BgL_arg1144z00_453, BgL_arg1146z00_454); } 
BgL_arg1135z00_449 = 
MAKE_PAIR(BgL_arg1140z00_451, BNIL); } 
{ /* ./Rgc/rgcexpand.scm 135 */
obj_t BgL_arg1150z00_455;
{ /* ./Rgc/rgcexpand.scm 135 */
obj_t BgL_arg1154z00_457;obj_t BgL_arg1155z00_458;
BgL_arg1154z00_457 = BGl_symbol2663z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 135 */
obj_t BgL_arg1158z00_459;obj_t BgL_arg1160z00_460;
{ /* ./Rgc/rgcexpand.scm 135 */
obj_t BgL_arg1163z00_461;obj_t BgL_arg1164z00_462;
BgL_arg1163z00_461 = BGl_symbol2664z00zz__rgc_expandz00; 
BgL_arg1164z00_462 = 
MAKE_PAIR(BGl_symbol2665z00zz__rgc_expandz00, BNIL); 
BgL_arg1158z00_459 = 
MAKE_PAIR(BgL_arg1163z00_461, BgL_arg1164z00_462); } 
{ /* ./Rgc/rgcexpand.scm 140 */
obj_t BgL_arg1169z00_463;
{ /* ./Rgc/rgcexpand.scm 140 */
obj_t BgL_arg1172z00_464;obj_t BgL_arg1173z00_465;
{ /* ./Rgc/rgcexpand.scm 140 */
obj_t BgL_arg1177z00_466;obj_t BgL_arg1178z00_467;
BgL_arg1177z00_466 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 140 */
obj_t BgL_arg1181z00_468;obj_t BgL_arg1182z00_469;
BgL_arg1181z00_468 = 
MAKE_PAIR(BGl_symbol2667z00zz__rgc_expandz00, BNIL); 
BgL_arg1182z00_469 = 
MAKE_PAIR(BGl_symbol2664z00zz__rgc_expandz00, BNIL); 
BgL_arg1178z00_467 = 
MAKE_PAIR(BgL_arg1181z00_468, BgL_arg1182z00_469); } 
BgL_arg1172z00_464 = 
MAKE_PAIR(BgL_arg1177z00_466, BgL_arg1178z00_467); } 
{ /* ./Rgc/rgcexpand.scm 143 */
obj_t BgL_arg1187z00_470;obj_t BgL_arg1188z00_471;
{ /* ./Rgc/rgcexpand.scm 143 */
obj_t BgL_arg1191z00_472;obj_t BgL_arg1192z00_473;
BgL_arg1191z00_472 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 143 */
obj_t BgL_arg1195z00_474;obj_t BgL_arg1196z00_475;
BgL_arg1195z00_474 = 
MAKE_PAIR(BGl_symbol2668z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 144 */
obj_t BgL_arg1200z00_476;
{ /* ./Rgc/rgcexpand.scm 144 */
obj_t BgL_arg1204z00_478;obj_t BgL_arg1205z00_479;
BgL_arg1204z00_478 = BGl_symbol2669z00zz__rgc_expandz00; 
BgL_arg1205z00_479 = 
MAKE_PAIR(BGl_symbol2664z00zz__rgc_expandz00, BNIL); 
BgL_arg1200z00_476 = 
MAKE_PAIR(BgL_arg1204z00_478, BgL_arg1205z00_479); } 
BgL_arg1196z00_475 = 
MAKE_PAIR(BgL_arg1200z00_476, BNIL); } 
BgL_arg1192z00_473 = 
MAKE_PAIR(BgL_arg1195z00_474, BgL_arg1196z00_475); } 
BgL_arg1187z00_470 = 
MAKE_PAIR(BgL_arg1191z00_472, BgL_arg1192z00_473); } 
{ /* ./Rgc/rgcexpand.scm 146 */
obj_t BgL_arg1209z00_480;obj_t BgL_arg1210z00_481;
{ /* ./Rgc/rgcexpand.scm 146 */
obj_t BgL_arg1213z00_482;obj_t BgL_arg1214z00_483;
BgL_arg1213z00_482 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 146 */
obj_t BgL_arg1217z00_484;obj_t BgL_arg1218z00_485;
BgL_arg1217z00_484 = 
MAKE_PAIR(BGl_symbol2670z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 147 */
obj_t BgL_arg1222z00_486;
{ /* ./Rgc/rgcexpand.scm 147 */
obj_t BgL_arg1227z00_488;obj_t BgL_arg1228z00_489;
BgL_arg1227z00_488 = BGl_symbol2671z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 147 */
obj_t BgL_arg1231z00_490;obj_t BgL_arg1233z00_491;
BgL_arg1231z00_490 = BGl_symbol2664z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 147 */
obj_t BgL_arg1237z00_493;
{ /* ./Rgc/rgcexpand.scm 147 */
obj_t BgL_arg1240z00_494;
BgL_arg1240z00_494 = 
MAKE_PAIR(BGl_symbol2672z00zz__rgc_expandz00, BNIL); 
BgL_arg1237z00_493 = 
MAKE_PAIR(BgL_arg1240z00_494, BNIL); } 
{ /* ./Rgc/rgcexpand.scm 147 */
obj_t BgL_auxz00_1456;
BgL_auxz00_1456 = 
BINT(((long)0)); 
BgL_arg1233z00_491 = 
MAKE_PAIR(BgL_auxz00_1456, BgL_arg1237z00_493); } } 
BgL_arg1228z00_489 = 
MAKE_PAIR(BgL_arg1231z00_490, BgL_arg1233z00_491); } 
BgL_arg1222z00_486 = 
MAKE_PAIR(BgL_arg1227z00_488, BgL_arg1228z00_489); } 
BgL_arg1218z00_485 = 
MAKE_PAIR(BgL_arg1222z00_486, BNIL); } 
BgL_arg1214z00_483 = 
MAKE_PAIR(BgL_arg1217z00_484, BgL_arg1218z00_485); } 
BgL_arg1209z00_480 = 
MAKE_PAIR(BgL_arg1213z00_482, BgL_arg1214z00_483); } 
{ /* ./Rgc/rgcexpand.scm 149 */
obj_t BgL_arg1245z00_496;obj_t BgL_arg1246z00_497;
{ /* ./Rgc/rgcexpand.scm 149 */
obj_t BgL_arg1249z00_498;obj_t BgL_arg1250z00_499;
BgL_arg1249z00_498 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 149 */
obj_t BgL_arg1254z00_500;obj_t BgL_arg1255z00_501;
{ /* ./Rgc/rgcexpand.scm 149 */
obj_t BgL_arg1258z00_502;obj_t BgL_arg1259z00_503;
BgL_arg1258z00_502 = BGl_symbol2673z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 149 */
obj_t BgL_arg1262z00_504;obj_t BgL_arg1265z00_505;
BgL_arg1262z00_504 = BGl_symbol2674z00zz__rgc_expandz00; 
BgL_arg1265z00_505 = 
MAKE_PAIR(BGl_symbol2675z00zz__rgc_expandz00, BNIL); 
BgL_arg1259z00_503 = 
MAKE_PAIR(BgL_arg1262z00_504, BgL_arg1265z00_505); } 
BgL_arg1254z00_500 = 
MAKE_PAIR(BgL_arg1258z00_502, BgL_arg1259z00_503); } 
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1269z00_506;
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1273z00_508;obj_t BgL_arg1274z00_509;
BgL_arg1273z00_508 = BGl_symbol2676z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1277z00_510;obj_t BgL_arg1278z00_511;
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1281z00_512;obj_t BgL_arg1282z00_513;
BgL_arg1281z00_512 = BGl_symbol2677z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1285z00_514;obj_t BgL_arg1286z00_515;
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1289z00_516;obj_t BgL_arg1290z00_517;
BgL_arg1289z00_516 = BGl_symbol2678z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1293z00_518;obj_t BgL_arg1294z00_519;
BgL_arg1293z00_518 = BGl_symbol2674z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_auxz00_1467;
BgL_auxz00_1467 = 
BINT(((long)0)); 
BgL_arg1294z00_519 = 
MAKE_PAIR(BgL_auxz00_1467, BNIL); } 
BgL_arg1290z00_517 = 
MAKE_PAIR(BgL_arg1293z00_518, BgL_arg1294z00_519); } 
BgL_arg1285z00_514 = 
MAKE_PAIR(BgL_arg1289z00_516, BgL_arg1290z00_517); } 
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1298z00_520;obj_t BgL_arg1299z00_521;
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1302z00_522;obj_t BgL_arg1303z00_523;
BgL_arg1302z00_522 = BGl_symbol2679z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1306z00_524;obj_t BgL_arg1307z00_525;
BgL_arg1306z00_524 = BGl_symbol2675z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1310z00_526;
BgL_arg1310z00_526 = 
MAKE_PAIR(BGl_symbol2672z00zz__rgc_expandz00, BNIL); 
BgL_arg1307z00_525 = 
MAKE_PAIR(BgL_arg1310z00_526, BNIL); } 
BgL_arg1303z00_523 = 
MAKE_PAIR(BgL_arg1306z00_524, BgL_arg1307z00_525); } 
BgL_arg1298z00_520 = 
MAKE_PAIR(BgL_arg1302z00_522, BgL_arg1303z00_523); } 
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1315z00_528;
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1319z00_530;obj_t BgL_arg1320z00_531;
BgL_arg1319z00_530 = BGl_symbol2678z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 150 */
obj_t BgL_arg1323z00_532;obj_t BgL_arg1324z00_533;
BgL_arg1323z00_532 = BGl_symbol2675z00zz__rgc_expandz00; 
BgL_arg1324z00_533 = 
MAKE_PAIR(BGl_symbol2674z00zz__rgc_expandz00, BNIL); 
BgL_arg1320z00_531 = 
MAKE_PAIR(BgL_arg1323z00_532, BgL_arg1324z00_533); } 
BgL_arg1315z00_528 = 
MAKE_PAIR(BgL_arg1319z00_530, BgL_arg1320z00_531); } 
BgL_arg1299z00_521 = 
MAKE_PAIR(BgL_arg1315z00_528, BNIL); } 
BgL_arg1286z00_515 = 
MAKE_PAIR(BgL_arg1298z00_520, BgL_arg1299z00_521); } 
BgL_arg1282z00_513 = 
MAKE_PAIR(BgL_arg1285z00_514, BgL_arg1286z00_515); } 
BgL_arg1277z00_510 = 
MAKE_PAIR(BgL_arg1281z00_512, BgL_arg1282z00_513); } 
{ /* ./Rgc/rgcexpand.scm 151 */
obj_t BgL_arg1328z00_534;obj_t BgL_arg1329z00_535;
{ /* ./Rgc/rgcexpand.scm 151 */
obj_t BgL_arg1332z00_536;obj_t BgL_arg1333z00_537;
BgL_arg1332z00_536 = BGl_symbol2671z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 151 */
obj_t BgL_arg1336z00_538;obj_t BgL_arg1337z00_539;
BgL_arg1336z00_538 = BGl_symbol2664z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 151 */
obj_t BgL_arg1340z00_540;obj_t BgL_arg1341z00_541;
BgL_arg1340z00_540 = BGl_symbol2674z00zz__rgc_expandz00; 
BgL_arg1341z00_541 = 
MAKE_PAIR(BGl_symbol2675z00zz__rgc_expandz00, BNIL); 
BgL_arg1337z00_539 = 
MAKE_PAIR(BgL_arg1340z00_540, BgL_arg1341z00_541); } 
BgL_arg1333z00_537 = 
MAKE_PAIR(BgL_arg1336z00_538, BgL_arg1337z00_539); } 
BgL_arg1328z00_534 = 
MAKE_PAIR(BgL_arg1332z00_536, BgL_arg1333z00_537); } 
{ /* ./Rgc/rgcexpand.scm 152 */
obj_t BgL_arg1345z00_542;
{ /* ./Rgc/rgcexpand.scm 152 */
obj_t BgL_arg1349z00_544;obj_t BgL_arg1352z00_545;
BgL_arg1349z00_544 = BGl_symbol2680z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 152 */
obj_t BgL_arg1356z00_547;
{ /* ./Rgc/rgcexpand.scm 152 */
obj_t BgL_arg1360z00_549;
{ /* ./Rgc/rgcexpand.scm 152 */
obj_t BgL_arg1363z00_550;
{ /* ./Rgc/rgcexpand.scm 152 */
obj_t BgL_arg1368z00_552;obj_t BgL_arg1370z00_553;
BgL_arg1368z00_552 = BGl_symbol2681z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 152 */
obj_t BgL_arg1374z00_554;obj_t BgL_arg1375z00_555;
BgL_arg1374z00_554 = BGl_symbol2674z00zz__rgc_expandz00; 
BgL_arg1375z00_555 = 
MAKE_PAIR(BGl_symbol2675z00zz__rgc_expandz00, BNIL); 
BgL_arg1370z00_553 = 
MAKE_PAIR(BgL_arg1374z00_554, BgL_arg1375z00_555); } 
BgL_arg1363z00_550 = 
MAKE_PAIR(BgL_arg1368z00_552, BgL_arg1370z00_553); } 
BgL_arg1360z00_549 = 
MAKE_PAIR(BgL_arg1363z00_550, BNIL); } 
BgL_arg1356z00_547 = 
MAKE_PAIR(BGl_string2682z00zz__rgc_expandz00, BgL_arg1360z00_549); } 
BgL_arg1352z00_545 = 
MAKE_PAIR(BGl_string2683z00zz__rgc_expandz00, BgL_arg1356z00_547); } 
BgL_arg1345z00_542 = 
MAKE_PAIR(BgL_arg1349z00_544, BgL_arg1352z00_545); } 
BgL_arg1329z00_535 = 
MAKE_PAIR(BgL_arg1345z00_542, BNIL); } 
BgL_arg1278z00_511 = 
MAKE_PAIR(BgL_arg1328z00_534, BgL_arg1329z00_535); } 
BgL_arg1274z00_509 = 
MAKE_PAIR(BgL_arg1277z00_510, BgL_arg1278z00_511); } 
BgL_arg1269z00_506 = 
MAKE_PAIR(BgL_arg1273z00_508, BgL_arg1274z00_509); } 
BgL_arg1255z00_501 = 
MAKE_PAIR(BgL_arg1269z00_506, BNIL); } 
BgL_arg1250z00_499 = 
MAKE_PAIR(BgL_arg1254z00_500, BgL_arg1255z00_501); } 
BgL_arg1245z00_496 = 
MAKE_PAIR(BgL_arg1249z00_498, BgL_arg1250z00_499); } 
{ /* ./Rgc/rgcexpand.scm 154 */
obj_t BgL_arg1380z00_556;obj_t BgL_arg1381z00_557;
{ /* ./Rgc/rgcexpand.scm 154 */
obj_t BgL_arg1384z00_558;obj_t BgL_arg1385z00_559;
BgL_arg1384z00_558 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 154 */
obj_t BgL_arg1388z00_560;obj_t BgL_arg1390z00_561;
BgL_arg1388z00_560 = 
MAKE_PAIR(BGl_symbol2684z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 155 */
obj_t BgL_arg1394z00_562;
{ /* ./Rgc/rgcexpand.scm 155 */
obj_t BgL_arg1398z00_564;obj_t BgL_arg1399z00_565;
BgL_arg1398z00_564 = BGl_symbol2685z00zz__rgc_expandz00; 
BgL_arg1399z00_565 = 
MAKE_PAIR(BGl_symbol2664z00zz__rgc_expandz00, BNIL); 
BgL_arg1394z00_562 = 
MAKE_PAIR(BgL_arg1398z00_564, BgL_arg1399z00_565); } 
BgL_arg1390z00_561 = 
MAKE_PAIR(BgL_arg1394z00_562, BNIL); } 
BgL_arg1385z00_559 = 
MAKE_PAIR(BgL_arg1388z00_560, BgL_arg1390z00_561); } 
BgL_arg1380z00_556 = 
MAKE_PAIR(BgL_arg1384z00_558, BgL_arg1385z00_559); } 
{ /* ./Rgc/rgcexpand.scm 157 */
obj_t BgL_arg1403z00_566;obj_t BgL_arg1406z00_567;
{ /* ./Rgc/rgcexpand.scm 157 */
obj_t BgL_arg1409z00_568;obj_t BgL_arg1410z00_569;
BgL_arg1409z00_568 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 157 */
obj_t BgL_arg1413z00_570;obj_t BgL_arg1414z00_571;
BgL_arg1413z00_570 = 
MAKE_PAIR(BGl_symbol2686z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 158 */
obj_t BgL_arg1418z00_572;
{ /* ./Rgc/rgcexpand.scm 158 */
obj_t BgL_arg1422z00_574;obj_t BgL_arg1423z00_575;
BgL_arg1422z00_574 = BGl_symbol2687z00zz__rgc_expandz00; 
BgL_arg1423z00_575 = 
MAKE_PAIR(BGl_symbol2664z00zz__rgc_expandz00, BNIL); 
BgL_arg1418z00_572 = 
MAKE_PAIR(BgL_arg1422z00_574, BgL_arg1423z00_575); } 
BgL_arg1414z00_571 = 
MAKE_PAIR(BgL_arg1418z00_572, BNIL); } 
BgL_arg1410z00_569 = 
MAKE_PAIR(BgL_arg1413z00_570, BgL_arg1414z00_571); } 
BgL_arg1403z00_566 = 
MAKE_PAIR(BgL_arg1409z00_568, BgL_arg1410z00_569); } 
{ /* ./Rgc/rgcexpand.scm 160 */
obj_t BgL_arg1427z00_576;obj_t BgL_arg1428z00_577;
{ /* ./Rgc/rgcexpand.scm 160 */
obj_t BgL_arg1431z00_578;obj_t BgL_arg1432z00_579;
BgL_arg1431z00_578 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 160 */
obj_t BgL_arg1435z00_580;obj_t BgL_arg1436z00_581;
BgL_arg1435z00_580 = 
MAKE_PAIR(BGl_symbol2688z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 161 */
obj_t BgL_arg1440z00_582;
{ /* ./Rgc/rgcexpand.scm 161 */
obj_t BgL_arg1444z00_584;obj_t BgL_arg1445z00_585;
BgL_arg1444z00_584 = BGl_symbol2689z00zz__rgc_expandz00; 
BgL_arg1445z00_585 = 
MAKE_PAIR(BGl_symbol2664z00zz__rgc_expandz00, BNIL); 
BgL_arg1440z00_582 = 
MAKE_PAIR(BgL_arg1444z00_584, BgL_arg1445z00_585); } 
BgL_arg1436z00_581 = 
MAKE_PAIR(BgL_arg1440z00_582, BNIL); } 
BgL_arg1432z00_579 = 
MAKE_PAIR(BgL_arg1435z00_580, BgL_arg1436z00_581); } 
BgL_arg1427z00_576 = 
MAKE_PAIR(BgL_arg1431z00_578, BgL_arg1432z00_579); } 
{ /* ./Rgc/rgcexpand.scm 163 */
obj_t BgL_arg1449z00_586;obj_t BgL_arg1450z00_587;
{ /* ./Rgc/rgcexpand.scm 163 */
obj_t BgL_arg1453z00_588;obj_t BgL_arg1454z00_589;
BgL_arg1453z00_588 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 163 */
obj_t BgL_arg1457z00_590;obj_t BgL_arg1458z00_591;
BgL_arg1457z00_590 = 
MAKE_PAIR(BGl_symbol2690z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 164 */
obj_t BgL_arg1462z00_592;
{ /* ./Rgc/rgcexpand.scm 164 */
obj_t BgL_arg1466z00_594;obj_t BgL_arg1468z00_595;
BgL_arg1466z00_594 = BGl_symbol2691z00zz__rgc_expandz00; 
BgL_arg1468z00_595 = 
MAKE_PAIR(BGl_symbol2664z00zz__rgc_expandz00, BNIL); 
BgL_arg1462z00_592 = 
MAKE_PAIR(BgL_arg1466z00_594, BgL_arg1468z00_595); } 
BgL_arg1458z00_591 = 
MAKE_PAIR(BgL_arg1462z00_592, BNIL); } 
BgL_arg1454z00_589 = 
MAKE_PAIR(BgL_arg1457z00_590, BgL_arg1458z00_591); } 
BgL_arg1449z00_586 = 
MAKE_PAIR(BgL_arg1453z00_588, BgL_arg1454z00_589); } 
{ /* ./Rgc/rgcexpand.scm 166 */
obj_t BgL_arg1472z00_596;obj_t BgL_arg1474z00_597;
{ /* ./Rgc/rgcexpand.scm 166 */
obj_t BgL_arg1477z00_598;obj_t BgL_arg1478z00_599;
BgL_arg1477z00_598 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 166 */
obj_t BgL_arg1481z00_600;obj_t BgL_arg1482z00_601;
BgL_arg1481z00_600 = 
MAKE_PAIR(BGl_symbol2692z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 167 */
obj_t BgL_arg1486z00_602;
{ /* ./Rgc/rgcexpand.scm 167 */
obj_t BgL_arg1490z00_604;obj_t BgL_arg1491z00_605;
BgL_arg1490z00_604 = BGl_symbol2693z00zz__rgc_expandz00; 
BgL_arg1491z00_605 = 
MAKE_PAIR(BGl_symbol2664z00zz__rgc_expandz00, BNIL); 
BgL_arg1486z00_602 = 
MAKE_PAIR(BgL_arg1490z00_604, BgL_arg1491z00_605); } 
BgL_arg1482z00_601 = 
MAKE_PAIR(BgL_arg1486z00_602, BNIL); } 
BgL_arg1478z00_599 = 
MAKE_PAIR(BgL_arg1481z00_600, BgL_arg1482z00_601); } 
BgL_arg1472z00_596 = 
MAKE_PAIR(BgL_arg1477z00_598, BgL_arg1478z00_599); } 
{ /* ./Rgc/rgcexpand.scm 169 */
obj_t BgL_arg1495z00_606;obj_t BgL_arg1496z00_607;
{ /* ./Rgc/rgcexpand.scm 169 */
obj_t BgL_arg1499z00_608;obj_t BgL_arg1500z00_609;
BgL_arg1499z00_608 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 169 */
obj_t BgL_arg1503z00_610;obj_t BgL_arg1504z00_611;
BgL_arg1503z00_610 = 
MAKE_PAIR(BGl_symbol2694z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 170 */
obj_t BgL_arg1508z00_612;
{ /* ./Rgc/rgcexpand.scm 170 */
obj_t BgL_arg1512z00_614;obj_t BgL_arg1513z00_615;
BgL_arg1512z00_614 = BGl_symbol2695z00zz__rgc_expandz00; 
BgL_arg1513z00_615 = 
MAKE_PAIR(BGl_symbol2664z00zz__rgc_expandz00, BNIL); 
BgL_arg1508z00_612 = 
MAKE_PAIR(BgL_arg1512z00_614, BgL_arg1513z00_615); } 
BgL_arg1504z00_611 = 
MAKE_PAIR(BgL_arg1508z00_612, BNIL); } 
BgL_arg1500z00_609 = 
MAKE_PAIR(BgL_arg1503z00_610, BgL_arg1504z00_611); } 
BgL_arg1495z00_606 = 
MAKE_PAIR(BgL_arg1499z00_608, BgL_arg1500z00_609); } 
{ /* ./Rgc/rgcexpand.scm 172 */
obj_t BgL_arg1518z00_616;obj_t BgL_arg1519z00_617;
{ /* ./Rgc/rgcexpand.scm 172 */
obj_t BgL_arg1522z00_618;obj_t BgL_arg1524z00_619;
BgL_arg1522z00_618 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 172 */
obj_t BgL_arg1527z00_620;obj_t BgL_arg1528z00_621;
BgL_arg1527z00_620 = 
MAKE_PAIR(BGl_symbol2696z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 173 */
obj_t BgL_arg1532z00_622;
{ /* ./Rgc/rgcexpand.scm 173 */
obj_t BgL_arg1537z00_624;obj_t BgL_arg1538z00_625;
BgL_arg1537z00_624 = BGl_symbol2676z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 173 */
obj_t BgL_arg1541z00_626;obj_t BgL_arg1542z00_627;
{ /* ./Rgc/rgcexpand.scm 173 */
obj_t BgL_arg1545z00_628;obj_t BgL_arg1546z00_629;
BgL_arg1545z00_628 = BGl_symbol2697z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 173 */
obj_t BgL_arg1549z00_630;obj_t BgL_arg1550z00_631;
BgL_arg1549z00_630 = 
MAKE_PAIR(BGl_symbol2672z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 173 */
obj_t BgL_auxz00_1539;
BgL_auxz00_1539 = 
BINT(((long)0)); 
BgL_arg1550z00_631 = 
MAKE_PAIR(BgL_auxz00_1539, BNIL); } 
BgL_arg1546z00_629 = 
MAKE_PAIR(BgL_arg1549z00_630, BgL_arg1550z00_631); } 
BgL_arg1541z00_626 = 
MAKE_PAIR(BgL_arg1545z00_628, BgL_arg1546z00_629); } 
{ /* ./Rgc/rgcexpand.scm 176 */
obj_t BgL_arg1555z00_632;
{ /* ./Rgc/rgcexpand.scm 176 */
obj_t BgL_arg1558z00_633;
{ /* ./Rgc/rgcexpand.scm 176 */
obj_t BgL_arg1562z00_635;obj_t BgL_arg1563z00_636;
BgL_arg1562z00_635 = BGl_symbol2698z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 176 */
obj_t BgL_arg1566z00_637;obj_t BgL_arg1567z00_638;
BgL_arg1566z00_637 = 
MAKE_PAIR(BGl_symbol2699z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 176 */
obj_t BgL_auxz00_1545;
BgL_auxz00_1545 = 
BINT(((long)0)); 
BgL_arg1567z00_638 = 
MAKE_PAIR(BgL_auxz00_1545, BNIL); } 
BgL_arg1563z00_636 = 
MAKE_PAIR(BgL_arg1566z00_637, BgL_arg1567z00_638); } 
BgL_arg1558z00_633 = 
MAKE_PAIR(BgL_arg1562z00_635, BgL_arg1563z00_636); } 
BgL_arg1555z00_632 = 
MAKE_PAIR(BgL_arg1558z00_633, BNIL); } 
BgL_arg1542z00_627 = 
MAKE_PAIR(BCNST(256), BgL_arg1555z00_632); } 
BgL_arg1538z00_625 = 
MAKE_PAIR(BgL_arg1541z00_626, BgL_arg1542z00_627); } 
BgL_arg1532z00_622 = 
MAKE_PAIR(BgL_arg1537z00_624, BgL_arg1538z00_625); } 
BgL_arg1528z00_621 = 
MAKE_PAIR(BgL_arg1532z00_622, BNIL); } 
BgL_arg1524z00_619 = 
MAKE_PAIR(BgL_arg1527z00_620, BgL_arg1528z00_621); } 
BgL_arg1518z00_616 = 
MAKE_PAIR(BgL_arg1522z00_618, BgL_arg1524z00_619); } 
{ /* ./Rgc/rgcexpand.scm 178 */
obj_t BgL_arg1572z00_639;obj_t BgL_arg1573z00_640;
{ /* ./Rgc/rgcexpand.scm 178 */
obj_t BgL_arg1576z00_641;obj_t BgL_arg1577z00_642;
BgL_arg1576z00_641 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 178 */
obj_t BgL_arg1581z00_643;obj_t BgL_arg1582z00_644;
BgL_arg1581z00_643 = 
MAKE_PAIR(BGl_symbol2700z00zz__rgc_expandz00, BNIL); 
BgL_arg1582z00_644 = 
MAKE_PAIR(BGl_symbol2662z00zz__rgc_expandz00, BNIL); 
BgL_arg1577z00_642 = 
MAKE_PAIR(BgL_arg1581z00_643, BgL_arg1582z00_644); } 
BgL_arg1572z00_639 = 
MAKE_PAIR(BgL_arg1576z00_641, BgL_arg1577z00_642); } 
{ /* ./Rgc/rgcexpand.scm 181 */
obj_t BgL_arg1587z00_645;obj_t BgL_arg1588z00_646;
{ /* ./Rgc/rgcexpand.scm 181 */
obj_t BgL_arg1591z00_647;obj_t BgL_arg1593z00_648;
BgL_arg1591z00_647 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 181 */
obj_t BgL_arg1596z00_649;obj_t BgL_arg1597z00_650;
{ /* ./Rgc/rgcexpand.scm 181 */
obj_t BgL_arg1600z00_651;obj_t BgL_arg1601z00_652;
BgL_arg1600z00_651 = BGl_symbol2701z00zz__rgc_expandz00; 
BgL_arg1601z00_652 = 
MAKE_PAIR(BGl_symbol2702z00zz__rgc_expandz00, BNIL); 
BgL_arg1596z00_649 = 
MAKE_PAIR(BgL_arg1600z00_651, BgL_arg1601z00_652); } 
{ /* ./Rgc/rgcexpand.scm 182 */
obj_t BgL_arg1605z00_653;
{ /* ./Rgc/rgcexpand.scm 182 */
obj_t BgL_arg1609z00_655;obj_t BgL_arg1610z00_656;
BgL_arg1609z00_655 = BGl_symbol2703z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 182 */
obj_t BgL_arg1613z00_657;obj_t BgL_arg1614z00_658;
BgL_arg1613z00_657 = BGl_symbol2662z00zz__rgc_expandz00; 
BgL_arg1614z00_658 = 
MAKE_PAIR(BGl_symbol2702z00zz__rgc_expandz00, BNIL); 
BgL_arg1610z00_656 = 
MAKE_PAIR(BgL_arg1613z00_657, BgL_arg1614z00_658); } 
BgL_arg1605z00_653 = 
MAKE_PAIR(BgL_arg1609z00_655, BgL_arg1610z00_656); } 
BgL_arg1597z00_650 = 
MAKE_PAIR(BgL_arg1605z00_653, BNIL); } 
BgL_arg1593z00_648 = 
MAKE_PAIR(BgL_arg1596z00_649, BgL_arg1597z00_650); } 
BgL_arg1587z00_645 = 
MAKE_PAIR(BgL_arg1591z00_647, BgL_arg1593z00_648); } 
{ /* ./Rgc/rgcexpand.scm 184 */
obj_t BgL_arg1618z00_659;obj_t BgL_arg1619z00_660;
{ /* ./Rgc/rgcexpand.scm 184 */
obj_t BgL_arg1622z00_661;obj_t BgL_arg1623z00_662;
BgL_arg1622z00_661 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 184 */
obj_t BgL_arg1626z00_663;obj_t BgL_arg1627z00_664;
{ /* ./Rgc/rgcexpand.scm 184 */
obj_t BgL_arg1630z00_665;obj_t BgL_arg1631z00_666;
BgL_arg1630z00_665 = BGl_symbol2704z00zz__rgc_expandz00; 
BgL_arg1631z00_666 = 
MAKE_PAIR(BGl_symbol2702z00zz__rgc_expandz00, BNIL); 
BgL_arg1626z00_663 = 
MAKE_PAIR(BgL_arg1630z00_665, BgL_arg1631z00_666); } 
{ /* ./Rgc/rgcexpand.scm 185 */
obj_t BgL_arg1635z00_667;
{ /* ./Rgc/rgcexpand.scm 185 */
obj_t BgL_arg1640z00_669;obj_t BgL_arg1641z00_670;
BgL_arg1640z00_669 = BGl_symbol2705z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 185 */
obj_t BgL_arg1644z00_671;obj_t BgL_arg1645z00_672;
BgL_arg1644z00_671 = BGl_symbol2662z00zz__rgc_expandz00; 
BgL_arg1645z00_672 = 
MAKE_PAIR(BGl_symbol2702z00zz__rgc_expandz00, BNIL); 
BgL_arg1641z00_670 = 
MAKE_PAIR(BgL_arg1644z00_671, BgL_arg1645z00_672); } 
BgL_arg1635z00_667 = 
MAKE_PAIR(BgL_arg1640z00_669, BgL_arg1641z00_670); } 
BgL_arg1627z00_664 = 
MAKE_PAIR(BgL_arg1635z00_667, BNIL); } 
BgL_arg1623z00_662 = 
MAKE_PAIR(BgL_arg1626z00_663, BgL_arg1627z00_664); } 
BgL_arg1618z00_659 = 
MAKE_PAIR(BgL_arg1622z00_661, BgL_arg1623z00_662); } 
{ /* ./Rgc/rgcexpand.scm 186 */
obj_t BgL_arg1649z00_673;obj_t BgL_arg1650z00_674;
{ /* ./Rgc/rgcexpand.scm 186 */
obj_t BgL_arg1653z00_675;obj_t BgL_arg1654z00_676;
BgL_arg1653z00_675 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 186 */
obj_t BgL_arg1657z00_677;obj_t BgL_arg1658z00_678;
BgL_arg1657z00_677 = 
MAKE_PAIR(BGl_symbol2706z00zz__rgc_expandz00, BGl_symbol2702z00zz__rgc_expandz00); 
{ /* ./Rgc/rgcexpand.scm 187 */
obj_t BgL_arg1662z00_679;
{ /* ./Rgc/rgcexpand.scm 187 */
obj_t BgL_arg1666z00_681;obj_t BgL_arg1667z00_682;
BgL_arg1666z00_681 = BGl_symbol2676z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 187 */
obj_t BgL_arg1670z00_683;obj_t BgL_arg1671z00_684;
{ /* ./Rgc/rgcexpand.scm 187 */
obj_t BgL_arg1674z00_685;obj_t BgL_arg1675z00_686;
BgL_arg1674z00_685 = BGl_symbol2707z00zz__rgc_expandz00; 
BgL_arg1675z00_686 = 
MAKE_PAIR(BGl_symbol2702z00zz__rgc_expandz00, BNIL); 
BgL_arg1670z00_683 = 
MAKE_PAIR(BgL_arg1674z00_685, BgL_arg1675z00_686); } 
{ /* ./Rgc/rgcexpand.scm 188 */
obj_t BgL_arg1679z00_687;obj_t BgL_arg1680z00_688;
{ /* ./Rgc/rgcexpand.scm 188 */
obj_t BgL_arg1683z00_689;obj_t BgL_arg1684z00_690;
BgL_arg1683z00_689 = BGl_symbol2705z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 188 */
obj_t BgL_arg1687z00_691;obj_t BgL_arg1688z00_692;
BgL_arg1687z00_691 = BGl_symbol2662z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 188 */
obj_t BgL_arg1691z00_693;
{ /* ./Rgc/rgcexpand.scm 188 */
obj_t BgL_arg1695z00_695;obj_t BgL_arg1696z00_696;
BgL_arg1695z00_695 = BGl_symbol2708z00zz__rgc_expandz00; 
BgL_arg1696z00_696 = 
MAKE_PAIR(BGl_symbol2702z00zz__rgc_expandz00, BNIL); 
BgL_arg1691z00_693 = 
MAKE_PAIR(BgL_arg1695z00_695, BgL_arg1696z00_696); } 
BgL_arg1688z00_692 = 
MAKE_PAIR(BgL_arg1691z00_693, BNIL); } 
BgL_arg1684z00_690 = 
MAKE_PAIR(BgL_arg1687z00_691, BgL_arg1688z00_692); } 
BgL_arg1679z00_687 = 
MAKE_PAIR(BgL_arg1683z00_689, BgL_arg1684z00_690); } 
{ /* ./Rgc/rgcexpand.scm 189 */
obj_t BgL_arg1700z00_697;
{ /* ./Rgc/rgcexpand.scm 189 */
obj_t BgL_arg1704z00_699;obj_t BgL_arg1705z00_700;
BgL_arg1704z00_699 = BGl_symbol2705z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 189 */
obj_t BgL_arg1709z00_701;obj_t BgL_arg1710z00_702;
BgL_arg1709z00_701 = BGl_symbol2662z00zz__rgc_expandz00; 
BgL_arg1710z00_702 = 
MAKE_PAIR(BUNSPEC, BNIL); 
BgL_arg1705z00_700 = 
MAKE_PAIR(BgL_arg1709z00_701, BgL_arg1710z00_702); } 
BgL_arg1700z00_697 = 
MAKE_PAIR(BgL_arg1704z00_699, BgL_arg1705z00_700); } 
BgL_arg1680z00_688 = 
MAKE_PAIR(BgL_arg1700z00_697, BNIL); } 
BgL_arg1671z00_684 = 
MAKE_PAIR(BgL_arg1679z00_687, BgL_arg1680z00_688); } 
BgL_arg1667z00_682 = 
MAKE_PAIR(BgL_arg1670z00_683, BgL_arg1671z00_684); } 
BgL_arg1662z00_679 = 
MAKE_PAIR(BgL_arg1666z00_681, BgL_arg1667z00_682); } 
BgL_arg1658z00_678 = 
MAKE_PAIR(BgL_arg1662z00_679, BNIL); } 
BgL_arg1654z00_676 = 
MAKE_PAIR(BgL_arg1657z00_677, BgL_arg1658z00_678); } 
BgL_arg1649z00_673 = 
MAKE_PAIR(BgL_arg1653z00_675, BgL_arg1654z00_676); } 
{ /* ./Rgc/rgcexpand.scm 190 */
obj_t BgL_arg1714z00_703;obj_t BgL_arg1715z00_704;
if(
CBOOL(BgL_submatchzf3zf3_8))
{ /* ./Rgc/rgcexpand.scm 192 */
obj_t BgL_list1718z00_705;
{ /* ./Rgc/rgcexpand.scm 192 */
obj_t BgL_arg1720z00_706;obj_t BgL_arg1721z00_707;
BgL_arg1720z00_706 = BGl_list2709z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 201 */
obj_t BgL_arg1724z00_708;obj_t BgL_arg1725z00_709;
BgL_arg1724z00_708 = BGl_list2713z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 210 */
obj_t BgL_arg1728z00_710;obj_t BgL_arg1729z00_711;
BgL_arg1728z00_710 = BGl_list2728z00zz__rgc_expandz00; 
BgL_arg1729z00_711 = 
MAKE_PAIR(BGl_list2736z00zz__rgc_expandz00, BNIL); 
BgL_arg1725z00_709 = 
MAKE_PAIR(BgL_arg1728z00_710, BgL_arg1729z00_711); } 
BgL_arg1721z00_707 = 
MAKE_PAIR(BgL_arg1724z00_708, BgL_arg1725z00_709); } 
BgL_list1718z00_705 = 
MAKE_PAIR(BgL_arg1720z00_706, BgL_arg1721z00_707); } 
BgL_arg1714z00_703 = BgL_list1718z00_705; }  else 
{ /* ./Rgc/rgcexpand.scm 190 */
BgL_arg1714z00_703 = BNIL; } 
{ /* ./Rgc/rgcexpand.scm 222 */
obj_t BgL_arg1733z00_712;obj_t BgL_arg1734z00_713;
{ /* ./Rgc/rgcexpand.scm 222 */
obj_t BgL_arg1737z00_714;obj_t BgL_arg1738z00_715;
BgL_arg1737z00_714 = BGl_symbol2666z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 222 */
obj_t BgL_arg1741z00_716;obj_t BgL_arg1743z00_717;
BgL_arg1741z00_716 = 
MAKE_PAIR(BGl_symbol2744z00zz__rgc_expandz00, BNIL); 
{ /* ./Rgc/rgcexpand.scm 223 */
obj_t BgL_arg1748z00_718;obj_t BgL_arg1749z00_719;
{ /* ./Rgc/rgcexpand.scm 223 */
obj_t BgL_arg1752z00_720;obj_t BgL_arg1753z00_721;
BgL_arg1752z00_720 = BGl_symbol2745z00zz__rgc_expandz00; 
BgL_arg1753z00_721 = 
MAKE_PAIR(BGl_symbol2664z00zz__rgc_expandz00, BNIL); 
BgL_arg1748z00_718 = 
MAKE_PAIR(BgL_arg1752z00_720, BgL_arg1753z00_721); } 
{ /* ./Rgc/rgcexpand.scm 224 */
obj_t BgL_arg1757z00_722;obj_t BgL_arg1758z00_723;
if(
CBOOL(BgL_submatchzf3zf3_8))
{ /* ./Rgc/rgcexpand.scm 225 */
obj_t BgL_list1761z00_724;
BgL_list1761z00_724 = 
MAKE_PAIR(BGl_list2746z00zz__rgc_expandz00, BNIL); 
BgL_arg1757z00_722 = BgL_list1761z00_724; }  else 
{ /* ./Rgc/rgcexpand.scm 224 */
BgL_arg1757z00_722 = BNIL; } 
{ /* ./Rgc/rgcexpand.scm 227 */
obj_t BgL_arg1766z00_725;
{ /* ./Rgc/rgcexpand.scm 227 */
obj_t BgL_arg1771z00_727;obj_t BgL_arg1772z00_728;
BgL_arg1771z00_727 = BGl_symbol2653z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 227 */
obj_t BgL_arg1775z00_729;obj_t BgL_arg1776z00_730;
{ /* ./Rgc/rgcexpand.scm 227 */
obj_t BgL_arg1779z00_731;
{ /* ./Rgc/rgcexpand.scm 227 */
obj_t BgL_arg1783z00_733;obj_t BgL_arg1784z00_734;
BgL_arg1783z00_733 = BGl_symbol2747z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 227 */
obj_t BgL_arg1787z00_735;
{ /* ./Rgc/rgcexpand.scm 227 */
obj_t BgL_arg1791z00_737;obj_t BgL_arg1792z00_738;
BgL_arg1791z00_737 = BGl_symbol2676z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 227 */
obj_t BgL_arg1795z00_739;obj_t BgL_arg1796z00_740;
{ /* ./Rgc/rgcexpand.scm 227 */
obj_t BgL_arg1799z00_741;obj_t BgL_arg1800z00_742;
BgL_arg1799z00_741 = BGl_symbol2748z00zz__rgc_expandz00; 
BgL_arg1800z00_742 = 
MAKE_PAIR(BGl_symbol2665z00zz__rgc_expandz00, BNIL); 
BgL_arg1795z00_739 = 
MAKE_PAIR(BgL_arg1799z00_741, BgL_arg1800z00_742); } 
{ /* ./Rgc/rgcexpand.scm 228 */
obj_t BgL_arg1804z00_743;obj_t BgL_arg1805z00_744;
{ /* ./Rgc/rgcexpand.scm 228 */
obj_t BgL_arg1809z00_745;obj_t BgL_arg1810z00_746;
BgL_arg1809z00_745 = BGl_symbol2665z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 228 */
obj_t BgL_arg1813z00_747;obj_t BgL_arg1815z00_748;
BgL_arg1813z00_747 = 
BGl_statezd2namezd2zz__rgc_dfaz00(
BGl_getzd2initialzd2statez00zz__rgc_dfaz00()); 
{ /* ./Rgc/rgcexpand.scm 228 */
obj_t BgL_arg1822z00_750;obj_t BgL_arg1824z00_751;
BgL_arg1822z00_750 = BGl_symbol2664z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 228 */
obj_t BgL_arg1827z00_752;
BgL_arg1827z00_752 = 
MAKE_PAIR(BGl_symbol2662z00zz__rgc_expandz00, BNIL); 
BgL_arg1824z00_751 = 
MAKE_PAIR(BgL_elsezd2numzd2_7, BgL_arg1827z00_752); } 
BgL_arg1815z00_748 = 
MAKE_PAIR(BgL_arg1822z00_750, BgL_arg1824z00_751); } 
BgL_arg1810z00_746 = 
MAKE_PAIR(BgL_arg1813z00_747, BgL_arg1815z00_748); } 
BgL_arg1804z00_743 = 
MAKE_PAIR(BgL_arg1809z00_745, BgL_arg1810z00_746); } 
{ /* ./Rgc/rgcexpand.scm 232 */
obj_t BgL_arg1833z00_753;
{ /* ./Rgc/rgcexpand.scm 232 */
obj_t BgL_arg1839z00_755;obj_t BgL_arg1840z00_756;
BgL_arg1839z00_755 = 
BGl_statezd2namezd2zz__rgc_dfaz00(
BGl_getzd2initialzd2statez00zz__rgc_dfaz00()); 
{ /* ./Rgc/rgcexpand.scm 232 */
obj_t BgL_arg1847z00_758;obj_t BgL_arg1848z00_759;
BgL_arg1847z00_758 = BGl_symbol2664z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 232 */
obj_t BgL_arg1851z00_760;
BgL_arg1851z00_760 = 
MAKE_PAIR(BGl_symbol2662z00zz__rgc_expandz00, BNIL); 
BgL_arg1848z00_759 = 
MAKE_PAIR(BgL_elsezd2numzd2_7, BgL_arg1851z00_760); } 
BgL_arg1840z00_756 = 
MAKE_PAIR(BgL_arg1847z00_758, BgL_arg1848z00_759); } 
BgL_arg1833z00_753 = 
MAKE_PAIR(BgL_arg1839z00_755, BgL_arg1840z00_756); } 
BgL_arg1805z00_744 = 
MAKE_PAIR(BgL_arg1833z00_753, BNIL); } 
BgL_arg1796z00_740 = 
MAKE_PAIR(BgL_arg1804z00_743, BgL_arg1805z00_744); } 
BgL_arg1792z00_738 = 
MAKE_PAIR(BgL_arg1795z00_739, BgL_arg1796z00_740); } 
BgL_arg1787z00_735 = 
MAKE_PAIR(BgL_arg1791z00_737, BgL_arg1792z00_738); } 
BgL_arg1784z00_734 = 
MAKE_PAIR(BgL_arg1787z00_735, BNIL); } 
BgL_arg1779z00_731 = 
MAKE_PAIR(BgL_arg1783z00_733, BgL_arg1784z00_734); } 
BgL_arg1775z00_729 = 
MAKE_PAIR(BgL_arg1779z00_731, BNIL); } 
{ /* ./Rgc/rgcexpand.scm 236 */
obj_t BgL_arg1855z00_761;obj_t BgL_arg1856z00_762;
{ /* ./Rgc/rgcexpand.scm 236 */
obj_t BgL_arg1859z00_763;obj_t BgL_arg1861z00_764;
BgL_arg1859z00_763 = BGl_symbol2749z00zz__rgc_expandz00; 
BgL_arg1861z00_764 = 
MAKE_PAIR(BGl_symbol2664z00zz__rgc_expandz00, BNIL); 
BgL_arg1855z00_761 = 
MAKE_PAIR(BgL_arg1859z00_763, BgL_arg1861z00_764); } 
{ /* ./Rgc/rgcexpand.scm 237 */
obj_t BgL_arg1865z00_765;obj_t BgL_arg1866z00_766;
if(
CBOOL(BgL_submatchzf3zf3_8))
{ /* ./Rgc/rgcexpand.scm 237 */
BgL_arg1865z00_765 = BGl_list2750z00zz__rgc_expandz00; }  else 
{ /* ./Rgc/rgcexpand.scm 237 */
BgL_arg1865z00_765 = BNIL; } 
{ /* ./Rgc/rgcexpand.scm 252 */
obj_t BgL_arg1869z00_767;
{ /* ./Rgc/rgcexpand.scm 252 */
obj_t BgL_arg1873z00_769;obj_t BgL_arg1874z00_770;
BgL_arg1873z00_769 = BGl_symbol2772z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 252 */
obj_t BgL_arg1877z00_771;obj_t BgL_arg1878z00_772;
BgL_arg1877z00_771 = BGl_symbol2722z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 253 */
obj_t BgL_arg1881z00_773;obj_t BgL_arg1882z00_774;
{ 
obj_t BgL_actionsz00_1000;long BgL_numz00_1001;obj_t BgL_resz00_1002;
BgL_actionsz00_1000 = BgL_actionsz00_6; 
BgL_numz00_1001 = ((long)0); 
BgL_resz00_1002 = BNIL; 
BgL_loopz00_999:
if(
NULLP(BgL_actionsz00_1000))
{ /* ./Rgc/rgcexpand.scm 253 */
BgL_arg1881z00_773 = BgL_resz00_1002; }  else 
{ /* ./Rgc/rgcexpand.scm 253 */
obj_t BgL_arg1887z00_1013;long BgL_arg1888z00_1014;obj_t BgL_arg1889z00_1015;
BgL_arg1887z00_1013 = 
CDR(BgL_actionsz00_1000); 
BgL_arg1888z00_1014 = 
(BgL_numz00_1001+((long)1)); 
{ /* ./Rgc/rgcexpand.scm 253 */
obj_t BgL_arg1894z00_1016;
{ /* ./Rgc/rgcexpand.scm 253 */
obj_t BgL_arg1897z00_1017;obj_t BgL_arg1898z00_1018;
{ /* ./Rgc/rgcexpand.scm 253 */
obj_t BgL_auxz00_1637;
BgL_auxz00_1637 = 
BINT(BgL_numz00_1001); 
BgL_arg1897z00_1017 = 
MAKE_PAIR(BgL_auxz00_1637, BNIL); } 
{ /* ./Rgc/rgcexpand.scm 253 */
obj_t BgL_auxz00_1640;
BgL_auxz00_1640 = 
CAR(BgL_actionsz00_1000); 
BgL_arg1898z00_1018 = 
MAKE_PAIR(BgL_auxz00_1640, BNIL); } 
BgL_arg1894z00_1016 = 
MAKE_PAIR(BgL_arg1897z00_1017, BgL_arg1898z00_1018); } 
BgL_arg1889z00_1015 = 
MAKE_PAIR(BgL_arg1894z00_1016, BgL_resz00_1002); } 
{ 
obj_t BgL_resz00_1647;long BgL_numz00_1646;obj_t BgL_actionsz00_1645;
BgL_actionsz00_1645 = BgL_arg1887z00_1013; 
BgL_numz00_1646 = BgL_arg1888z00_1014; 
BgL_resz00_1647 = BgL_arg1889z00_1015; 
BgL_resz00_1002 = BgL_resz00_1647; 
BgL_numz00_1001 = BgL_numz00_1646; 
BgL_actionsz00_1000 = BgL_actionsz00_1645; 
goto BgL_loopz00_999;} } } 
{ /* ./Rgc/rgcexpand.scm 261 */
obj_t BgL_arg1910z00_788;
{ /* ./Rgc/rgcexpand.scm 261 */
obj_t BgL_arg1915z00_790;obj_t BgL_arg1916z00_791;
BgL_arg1915z00_790 = BGl_symbol2773z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 262 */
obj_t BgL_arg1919z00_792;
{ /* ./Rgc/rgcexpand.scm 262 */
obj_t BgL_arg1923z00_794;obj_t BgL_arg1924z00_795;
BgL_arg1923z00_794 = BGl_symbol2680z00zz__rgc_expandz00; 
{ /* ./Rgc/rgcexpand.scm 262 */
obj_t BgL_arg1930z00_797;
{ /* ./Rgc/rgcexpand.scm 262 */
obj_t BgL_arg1934z00_799;
BgL_arg1934z00_799 = 
MAKE_PAIR(BGl_symbol2722z00zz__rgc_expandz00, BNIL); 
BgL_arg1930z00_797 = 
MAKE_PAIR(BGl_string2774z00zz__rgc_expandz00, BgL_arg1934z00_799); } 
BgL_arg1924z00_795 = 
MAKE_PAIR(BGl_string2661z00zz__rgc_expandz00, BgL_arg1930z00_797); } 
BgL_arg1919z00_792 = 
MAKE_PAIR(BgL_arg1923z00_794, BgL_arg1924z00_795); } 
BgL_arg1916z00_791 = 
MAKE_PAIR(BgL_arg1919z00_792, BNIL); } 
BgL_arg1910z00_788 = 
MAKE_PAIR(BgL_arg1915z00_790, BgL_arg1916z00_791); } 
BgL_arg1882z00_774 = 
MAKE_PAIR(BgL_arg1910z00_788, BNIL); } 
BgL_arg1878z00_772 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1881z00_773, BgL_arg1882z00_774); } 
BgL_arg1874z00_770 = 
MAKE_PAIR(BgL_arg1877z00_771, BgL_arg1878z00_772); } 
BgL_arg1869z00_767 = 
MAKE_PAIR(BgL_arg1873z00_769, BgL_arg1874z00_770); } 
BgL_arg1866z00_766 = 
MAKE_PAIR(BgL_arg1869z00_767, BNIL); } 
BgL_arg1856z00_762 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1865z00_765, BgL_arg1866z00_766); } 
BgL_arg1776z00_730 = 
MAKE_PAIR(BgL_arg1855z00_761, BgL_arg1856z00_762); } 
BgL_arg1772z00_728 = 
MAKE_PAIR(BgL_arg1775z00_729, BgL_arg1776z00_730); } 
BgL_arg1766z00_725 = 
MAKE_PAIR(BgL_arg1771z00_727, BgL_arg1772z00_728); } 
BgL_arg1758z00_723 = 
MAKE_PAIR(BgL_arg1766z00_725, BNIL); } 
BgL_arg1749z00_719 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1757z00_722, BgL_arg1758z00_723); } 
BgL_arg1743z00_717 = 
MAKE_PAIR(BgL_arg1748z00_718, BgL_arg1749z00_719); } 
BgL_arg1738z00_715 = 
MAKE_PAIR(BgL_arg1741z00_716, BgL_arg1743z00_717); } 
BgL_arg1733z00_712 = 
MAKE_PAIR(BgL_arg1737z00_714, BgL_arg1738z00_715); } 
{ /* ./Rgc/rgcexpand.scm 266 */
obj_t BgL_arg1938z00_800;
if(
CBOOL(BGl_za2unsafezd2rgcza2zd2zz__rgcz00))
{ /* ./Rgc/rgcexpand.scm 266 */
BgL_arg1938z00_800 = BGl_list2775z00zz__rgc_expandz00; }  else 
{ /* ./Rgc/rgcexpand.scm 266 */
BgL_arg1938z00_800 = BGl_list2776z00zz__rgc_expandz00; } 
BgL_arg1734z00_713 = 
MAKE_PAIR(BgL_arg1938z00_800, BNIL); } 
BgL_arg1715z00_704 = 
MAKE_PAIR(BgL_arg1733z00_712, BgL_arg1734z00_713); } 
BgL_arg1650z00_674 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1714z00_703, BgL_arg1715z00_704); } 
BgL_arg1619z00_660 = 
MAKE_PAIR(BgL_arg1649z00_673, BgL_arg1650z00_674); } 
BgL_arg1588z00_646 = 
MAKE_PAIR(BgL_arg1618z00_659, BgL_arg1619z00_660); } 
BgL_arg1573z00_640 = 
MAKE_PAIR(BgL_arg1587z00_645, BgL_arg1588z00_646); } 
BgL_arg1519z00_617 = 
MAKE_PAIR(BgL_arg1572z00_639, BgL_arg1573z00_640); } 
BgL_arg1496z00_607 = 
MAKE_PAIR(BgL_arg1518z00_616, BgL_arg1519z00_617); } 
BgL_arg1474z00_597 = 
MAKE_PAIR(BgL_arg1495z00_606, BgL_arg1496z00_607); } 
BgL_arg1450z00_587 = 
MAKE_PAIR(BgL_arg1472z00_596, BgL_arg1474z00_597); } 
BgL_arg1428z00_577 = 
MAKE_PAIR(BgL_arg1449z00_586, BgL_arg1450z00_587); } 
BgL_arg1406z00_567 = 
MAKE_PAIR(BgL_arg1427z00_576, BgL_arg1428z00_577); } 
BgL_arg1381z00_557 = 
MAKE_PAIR(BgL_arg1403z00_566, BgL_arg1406z00_567); } 
BgL_arg1246z00_497 = 
MAKE_PAIR(BgL_arg1380z00_556, BgL_arg1381z00_557); } 
BgL_arg1210z00_481 = 
MAKE_PAIR(BgL_arg1245z00_496, BgL_arg1246z00_497); } 
BgL_arg1188z00_471 = 
MAKE_PAIR(BgL_arg1209z00_480, BgL_arg1210z00_481); } 
BgL_arg1173z00_465 = 
MAKE_PAIR(BgL_arg1187z00_470, BgL_arg1188z00_471); } 
BgL_arg1169z00_463 = 
MAKE_PAIR(BgL_arg1172z00_464, BgL_arg1173z00_465); } 
BgL_arg1160z00_460 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_statesz00_5, BgL_arg1169z00_463); } 
BgL_arg1155z00_458 = 
MAKE_PAIR(BgL_arg1158z00_459, BgL_arg1160z00_460); } 
BgL_arg1150z00_455 = 
MAKE_PAIR(BgL_arg1154z00_457, BgL_arg1155z00_458); } 
BgL_arg1136z00_450 = 
MAKE_PAIR(BgL_arg1150z00_455, BNIL); } 
BgL_arg1132z00_448 = 
MAKE_PAIR(BgL_arg1135z00_449, BgL_arg1136z00_450); } 
return 
MAKE_PAIR(BgL_arg1131z00_447, BgL_arg1132z00_448);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__rgc_expandz00()
{ AN_OBJECT;
{ /* ./Rgc/rgcexpand.scm 22 */
BGl_modulezd2initializa7ationz75zz__rgc_rulesz00(((long)45211), "__rgc_expand"); 
BGl_modulezd2initializa7ationz75zz__rgc_treez00(((long)55666), "__rgc_expand"); 
BGl_modulezd2initializa7ationz75zz__rgc_dfaz00(((long)59320), "__rgc_expand"); 
BGl_modulezd2initializa7ationz75zz__rgc_compilez00(((long)46311), "__rgc_expand"); 
BGl_modulezd2initializa7ationz75zz__rgc_configz00(((long)37616), "__rgc_expand"); 
BGl_modulezd2initializa7ationz75zz__rgcz00(((long)49918), "__rgc_expand"); 
BGl_modulezd2initializa7ationz75zz__rgc_setz00(((long)45761), "__rgc_expand"); 
return 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__rgc_expand");} 
}

