/*===========================================================================*/
/*   (Ieee/string.scm)                                                       */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Ieee/string.scm -indent -o objs/obj_s/Ieee/string.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___R4_STRINGS_6_7_TYPE_DEFINITIONS
#define BGL___R4_STRINGS_6_7_TYPE_DEFINITIONS
#endif // BGL___R4_STRINGS_6_7_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

static obj_t BGl_z62stringzd2shrinkz12za2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62stringze3zf3z72zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62substringzd2cizd3zf3z90zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62escapezd2schemezd2stringz62zz__r4_strings_6_7z00(obj_t, obj_t);
extern bool_t bigloo_strncmp_ci_at(obj_t, obj_t, long, long);
static obj_t BGl__stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2naturalzd2compare3z00zz__r4_strings_6_7z00(obj_t, obj_t);
extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
BGL_EXPORTED_DECL obj_t BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(obj_t, unsigned char, obj_t, obj_t);
static obj_t BGl_z62stringzd2cizc3zd3zf3z53zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_emptyzd2stringzf3z21zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2forzd2readz00zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2deletezd2zz__r4_strings_6_7z00(obj_t, obj_t, int, long);
extern bool_t bigloo_string_cile(obj_t, obj_t);
static obj_t BGl_z62stringzd2forzd2readz62zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2replacezd2zz__r4_strings_6_7z00(obj_t, unsigned char, unsigned char);
static obj_t BGl__stringzd2containszd2zz__r4_strings_6_7z00(obj_t, obj_t);
extern bool_t bigloo_string_cilt(obj_t, obj_t);
extern bool_t bigloo_string_le(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_escapezd2schemezd2stringz00zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl__substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00(obj_t, obj_t);
extern bool_t bigloo_string_lt(obj_t, obj_t);
static obj_t BGl__stringzd2indexzd2zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd2cizc3zd3zf3z31zz__r4_strings_6_7z00(obj_t, obj_t);
extern bool_t bigloo_strcicmp(obj_t, obj_t);
static obj_t BGl_z62stringzd2upcasezb0zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd2cizc3zf3ze2zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringze3zd3zf3zc3zz__r4_strings_6_7z00(obj_t, obj_t);
extern obj_t string_for_read(obj_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_z62stringzd2downcasez12za2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62stringzd2nullzf3z43zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2skipzd2rightz00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_stringzd2lengthzd2zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL int BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3808z00zz__r4_strings_6_7z00 = BUNSPEC;
static bool_t BGl_delimzf3zf3zz__r4_strings_6_7z00(obj_t, unsigned char);
static obj_t BGl_z62stringzd2upcasez12za2zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2setz12zc0zz__r4_strings_6_7z00(obj_t, long, unsigned char);
static obj_t BGl__stringzd2skipzd2zz__r4_strings_6_7z00(obj_t, obj_t);
extern bool_t bigloo_strncmp_ci(obj_t, obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL int BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3816z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_stringzd2cize3zf3zc2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62stringzd2cize3zd3zf3z73zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL unsigned char BGl_stringzd2refzd2urz00zz__r4_strings_6_7z00(obj_t, long);
static obj_t BGl_z62emptyzd2stringzf3z43zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00(obj_t, obj_t, int);
BGL_EXPORTED_DECL bool_t BGl_stringzd2nullzf3z21zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_symbol3820z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_z62substringzd3zf3z42zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3902z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_z62listzd2ze3stringz53zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62stringzd2aszd2readz62zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_symbol3906z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3909z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl__stringzd2hexzd2externz00zz__r4_strings_6_7z00(obj_t, obj_t);
extern bool_t bigloo_strcmp_ci_at(obj_t, obj_t, long);
extern bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62stringzd2capitaliza7ez17zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2shrinkz12zc0zz__r4_strings_6_7z00(obj_t, long);
BGL_EXPORTED_DECL bool_t BGl_substringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t, obj_t, long);
extern unsigned char BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(long);
static obj_t BGl_cnstzd2initzd2zz__r4_strings_6_7z00(void);
BGL_EXPORTED_DECL obj_t BGl_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
extern long bgl_list_length(obj_t);
BGL_EXPORTED_DECL obj_t BGl_blitzd2stringzd2urz12z12zz__r4_strings_6_7z00(obj_t, long, obj_t, long, long);
BGL_EXPORTED_DECL obj_t BGl_stringzd2hexzd2internz12z12zz__r4_strings_6_7z00(obj_t);
static obj_t BGl__stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62blitzd2stringzd2urz12z70zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd2cize3zd3zf3z11zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_strings_6_7z00(void);
static obj_t BGl_z62stringzd2hexzd2internz62zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_gczd2rootszd2initz00zz__r4_strings_6_7z00(void);
static obj_t BGl__stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62stringzd2splitzb0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2naturalzd2compare3zd2cizd2zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2skipzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2replacez12zc0zz__r4_strings_6_7z00(obj_t, unsigned char, unsigned char);
static obj_t BGl_symbol3922z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl__stringzd2charzd2indexz00zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62stringzd2replacez12za2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_symbol3924z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3928z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_z62stringzd2lengthzb0zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzc3zf3z30zz__r4_strings_6_7z00(obj_t, obj_t);
extern bool_t bigloo_strcmp_at(obj_t, obj_t, long);
extern obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62substringzd2urzb0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
extern obj_t bgl_escape_scheme_string(char *, long, long);
extern obj_t bgl_reverse_bang(obj_t);
static obj_t BGl__stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(obj_t, obj_t);
extern obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2stringzd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62stringzd2appendzb0zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2containszd2zz__r4_strings_6_7z00(obj_t, obj_t, int);
static obj_t BGl_symbol3930z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3770z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_stringzd2indexzd2rightz00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3934z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_list3901z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3853z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3936z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_z62stringzd2setzd2urz12z70zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62stringzd2hexzd2internz12z70zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_symbol3858z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_stringzd2splitzd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(obj_t, long);
BGL_EXPORTED_DECL bool_t BGl_stringzd3zf3z20zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62stringzd2refzd2urz62zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_stringzd2naturalzd2compare3zd2cizd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62stringzd2ze3listz53zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_escapezd2Czd2stringz00zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_symbol3940z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(obj_t);
extern bool_t bigloo_strncmp_at(obj_t, obj_t, long, long);
static obj_t BGl_symbol3860z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3942z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3862z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_z62escapezd2Czd2stringz62zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_symbol3946z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3948z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3788z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringze3zf3z10zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_substringzd2urzd2zz__r4_strings_6_7z00(obj_t, long, long);
BGL_EXPORTED_DECL bool_t BGl_substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00(obj_t, obj_t, long, obj_t);
static obj_t BGl_z62stringzd2compare3zd2ciz62zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62stringz62zz__r4_strings_6_7z00(obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
BGL_EXPORTED_DECL long BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_comparezd2leftzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62stringzd2charzd2indexzd2urzb0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__substringzd2atzf3z21zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62stringzd2compare3zb0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2skipzd2rightz00zz__r4_strings_6_7z00(obj_t, obj_t);
extern obj_t c_substring(obj_t, long, long);
BGL_EXPORTED_DECL obj_t BGl_stringzd2hexzd2internz00zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_symbol3952z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3954z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3875z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3794z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3958z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3879z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_z62stringzd2cizc3zf3z80zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62stringzc3zd3zf3z81zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2containszd2ciz00zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2aszd2readz00zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL unsigned char BGl_stringzd2refzd2zz__r4_strings_6_7z00(obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_makezd2stringzd2zz__r4_strings_6_7z00(long, obj_t);
static obj_t BGl_z62stringzd2replacezb0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
extern obj_t bgl_escape_C_string(char *, long, long);
static obj_t BGl_symbol3963z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3885z00zz__r4_strings_6_7z00 = BUNSPEC;
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
static obj_t BGl_symbol3967z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_z62stringzd2capitaliza7ez12z05zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62stringzd2cizd3zf3z90zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_comparezd2rightzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
extern bool_t bigloo_string_cige(obj_t, obj_t);
static obj_t BGl_list3857z00zz__r4_strings_6_7z00 = BUNSPEC;
extern obj_t blit_string(obj_t, long, obj_t, long, long);
static obj_t BGl__stringzd2deletezd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62stringzd2setz12za2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2suffixzf3z21zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2charzd2indexzd2urzd2zz__r4_strings_6_7z00(obj_t, unsigned char, long, long);
extern bool_t bigloo_string_cigt(obj_t, obj_t);
extern bool_t bigloo_string_ge(obj_t, obj_t);
static obj_t BGl_symbol3970z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3890z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3893z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3897z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62stringzd2cize3zf3za0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
extern bool_t bigloo_string_gt(obj_t, obj_t);
static obj_t BGl_z62blitzd2stringz12za2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_strnatcmpz00zz__r4_strings_6_7z00(obj_t, obj_t, bool_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_substringzd3zf3z20zz__r4_strings_6_7z00(obj_t, obj_t, long);
extern obj_t make_string(long, unsigned char);
static obj_t BGl_z62stringzd2refzb0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3981z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_stringzd2cutzd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_z62stringzd2fillz12za2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzf3zf3zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_z62stringzc3zf3z52zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62stringzf3z91zz__r4_strings_6_7z00(obj_t, obj_t);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl_z62stringzd2copyzb0zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2setzd2urz12z12zz__r4_strings_6_7z00(obj_t, long, unsigned char);
static obj_t BGl__stringzd2indexzd2rightz00zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00(obj_t, int, long);
BGL_EXPORTED_DECL bool_t BGl_stringzc3zd3zf3ze3zz__r4_strings_6_7z00(obj_t, obj_t);
extern obj_t make_string_sans_fill(long);
BGL_EXPORTED_DECL obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t, long, obj_t, long, long);
static obj_t BGl_z62stringze3zd3zf3za1zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_z62stringzd3zf3z42zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62stringzd2downcasezb0zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__substringz00zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern bool_t bigloo_strncmp(obj_t, obj_t, long);
BGL_EXPORTED_DECL int BGl_stringzd2naturalzd2compare3z00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_substringzd2atzf3z21zz__r4_strings_6_7z00(obj_t, obj_t, long, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2fillz12zc0zz__r4_strings_6_7z00(obj_t, unsigned char);
static obj_t BGl_list3892z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_z62stringzd2cutzb0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringz00zz__r4_strings_6_7z00(obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2upcasez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2upca3987z00, BGl_z62stringzd2upcasez12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2capitaliza7ezd2envza7zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2capi3988z00, BGl_z62stringzd2capitaliza7ez17zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3810z00zz__r4_strings_6_7z00, BgL_bgl_string3810za700za7za7_3989za7, "wrong number of arguments: [2..3] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string3811z00zz__r4_strings_6_7z00, BgL_bgl_string3811za700za7za7_3990za7, "Illegal start index ", 20 );
BGL_DEFINE_STRING(BGl_string3812z00zz__r4_strings_6_7z00, BgL_bgl_string3812za700za7za7_3991za7, "Illegal end index ", 18 );
BGL_DEFINE_STRING(BGl_string3813z00zz__r4_strings_6_7z00, BgL_bgl_string3813za700za7za7_3992za7, "&substring-ur", 13 );
BGL_DEFINE_STRING(BGl_string3814z00zz__r4_strings_6_7z00, BgL_bgl_string3814za700za7za7_3993za7, "_string-contains", 16 );
BGL_DEFINE_STRING(BGl_string3815z00zz__r4_strings_6_7z00, BgL_bgl_string3815za700za7za7_3994za7, "case_else1120", 13 );
BGL_DEFINE_STRING(BGl_string3817z00zz__r4_strings_6_7z00, BgL_bgl_string3817za700za7za7_3995za7, "string-contains", 15 );
BGL_DEFINE_STRING(BGl_string3818z00zz__r4_strings_6_7z00, BgL_bgl_string3818za700za7za7_3996za7, "_string-contains-ci", 19 );
BGL_DEFINE_STRING(BGl_string3819z00zz__r4_strings_6_7z00, BgL_bgl_string3819za700za7za7_3997za7, "case_else1126", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2suffixzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix3998za7, opt_generic_entry, BGl__stringzd2suffixzf3z21zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2compare3zd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2comp3999z00, BGl_z62stringzd2compare3zb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2copyzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2copy4000z00, BGl_z62stringzd2copyzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2upcasezd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2upca4001z00, BGl_z62stringzd2upcasezb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2setzd2urz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2setza74002za7, BGl_z62stringzd2setzd2urz12z70zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2hexzd2internzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2hexza74003za7, BGl_z62stringzd2hexzd2internz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2hexzd2internz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2hexza74004za7, BGl_z62stringzd2hexzd2internz12z70zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2cizc3zd3zf3zd2envze3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7c4005za7, BGl_z62stringzd2cizc3zd3zf3z53zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3900z00zz__r4_strings_6_7z00, BgL_bgl_string3900za700za7za7_4006za7, "string-pred-skip", 16 );
BGL_DEFINE_STRING(BGl_string3821z00zz__r4_strings_6_7z00, BgL_bgl_string3821za700za7za7_4007za7, "string-contains-ci", 18 );
BGL_DEFINE_STRING(BGl_string3903z00zz__r4_strings_6_7z00, BgL_bgl_string3903za700za7za7_4008za7, "arg1761", 7 );
BGL_DEFINE_STRING(BGl_string3822z00zz__r4_strings_6_7z00, BgL_bgl_string3822za700za7za7_4009za7, "&string-compare3", 16 );
BGL_DEFINE_STRING(BGl_string3904z00zz__r4_strings_6_7z00, BgL_bgl_string3904za700za7za7_4010za7, "_string-prefix-length", 21 );
BGL_DEFINE_STRING(BGl_string3823z00zz__r4_strings_6_7z00, BgL_bgl_string3823za700za7za7_4011za7, "&string-compare3-ci", 19 );
BGL_DEFINE_STRING(BGl_string3905z00zz__r4_strings_6_7z00, BgL_bgl_string3905za700za7za7_4012za7, "case_else1163", 13 );
BGL_DEFINE_STRING(BGl_string3824z00zz__r4_strings_6_7z00, BgL_bgl_string3824za700za7za7_4013za7, "", 0 );
BGL_DEFINE_STRING(BGl_string3825z00zz__r4_strings_6_7z00, BgL_bgl_string3825za700za7za7_4014za7, "string-append", 13 );
BGL_DEFINE_STRING(BGl_string3907z00zz__r4_strings_6_7z00, BgL_bgl_string3907za700za7za7_4015za7, "string-prefix-length::int", 25 );
BGL_DEFINE_STRING(BGl_string3826z00zz__r4_strings_6_7z00, BgL_bgl_string3826za700za7za7_4016za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string3908z00zz__r4_strings_6_7z00, BgL_bgl_string3908za700za7za7_4017za7, "wrong number of arguments: [2..6] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string3827z00zz__r4_strings_6_7z00, BgL_bgl_string3827za700za7za7_4018za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string3828z00zz__r4_strings_6_7z00, BgL_bgl_string3828za700za7za7_4019za7, "&list->string", 13 );
BGL_DEFINE_STRING(BGl_string3829z00zz__r4_strings_6_7z00, BgL_bgl_string3829za700za7za7_4020za7, "&string->list", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2prefixzd2lengthzd2cizd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix4021za7, opt_generic_entry, BGl__stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2skipzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2skipza7d4022z00, opt_generic_entry, BGl__stringzd2skipzd2zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2ze3listzd2envze3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2za7e3l4023za7, BGl_z62stringzd2ze3listz53zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2suffixzd2lengthzd2cizd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix4024za7, opt_generic_entry, BGl__stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2stringzd2envz00zz__r4_strings_6_7z00, BgL_bgl__makeza7d2stringza7d4025z00, opt_generic_entry, BGl__makezd2stringzd2zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2suffixzd2lengthzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix4026za7, opt_generic_entry, BGl__stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7d4027za7, BGl_z62stringzd2cizd3zf3z90zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3910z00zz__r4_strings_6_7z00, BgL_bgl_string3910za700za7za7_4028za7, "string-prefix-length", 20 );
BGL_DEFINE_STRING(BGl_string3911z00zz__r4_strings_6_7z00, BgL_bgl_string3911za700za7za7_4029za7, "Index negative end index `", 26 );
BGL_DEFINE_STRING(BGl_string3830z00zz__r4_strings_6_7z00, BgL_bgl_string3830za700za7za7_4030za7, "&string-copy", 12 );
BGL_DEFINE_STRING(BGl_string3912z00zz__r4_strings_6_7z00, BgL_bgl_string3912za700za7za7_4031za7, "end1", 4 );
BGL_DEFINE_STRING(BGl_string3831z00zz__r4_strings_6_7z00, BgL_bgl_string3831za700za7za7_4032za7, "&string-fill!", 13 );
BGL_DEFINE_STRING(BGl_string3913z00zz__r4_strings_6_7z00, BgL_bgl_string3913za700za7za7_4033za7, "'", 1 );
BGL_DEFINE_STRING(BGl_string3832z00zz__r4_strings_6_7z00, BgL_bgl_string3832za700za7za7_4034za7, "&string-upcase", 14 );
BGL_DEFINE_STRING(BGl_string3914z00zz__r4_strings_6_7z00, BgL_bgl_string3914za700za7za7_4035za7, "Too large end index `", 21 );
BGL_DEFINE_STRING(BGl_string3833z00zz__r4_strings_6_7z00, BgL_bgl_string3833za700za7za7_4036za7, "&string-downcase", 16 );
BGL_DEFINE_STRING(BGl_string3915z00zz__r4_strings_6_7z00, BgL_bgl_string3915za700za7za7_4037za7, "end2", 4 );
BGL_DEFINE_STRING(BGl_string3834z00zz__r4_strings_6_7z00, BgL_bgl_string3834za700za7za7_4038za7, "&string-upcase!", 15 );
BGL_DEFINE_STRING(BGl_string3916z00zz__r4_strings_6_7z00, BgL_bgl_string3916za700za7za7_4039za7, "Index negative start index `", 28 );
BGL_DEFINE_STRING(BGl_string3835z00zz__r4_strings_6_7z00, BgL_bgl_string3835za700za7za7_4040za7, "&string-downcase!", 17 );
BGL_DEFINE_STRING(BGl_string3917z00zz__r4_strings_6_7z00, BgL_bgl_string3917za700za7za7_4041za7, "start1", 6 );
BGL_DEFINE_STRING(BGl_string3836z00zz__r4_strings_6_7z00, BgL_bgl_string3836za700za7za7_4042za7, "&string-capitalize!", 19 );
BGL_DEFINE_STRING(BGl_string3918z00zz__r4_strings_6_7z00, BgL_bgl_string3918za700za7za7_4043za7, "Too large start index `", 23 );
BGL_DEFINE_STRING(BGl_string3837z00zz__r4_strings_6_7z00, BgL_bgl_string3837za700za7za7_4044za7, "&string-capitalize", 18 );
BGL_DEFINE_STRING(BGl_string3919z00zz__r4_strings_6_7z00, BgL_bgl_string3919za700za7za7_4045za7, "start2", 6 );
BGL_DEFINE_STRING(BGl_string3838z00zz__r4_strings_6_7z00, BgL_bgl_string3838za700za7za7_4046za7, "&string-for-read", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2compare3zd2cizd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2comp4047z00, BGl_z62stringzd2compare3zd2ciz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3839z00zz__r4_strings_6_7z00, BgL_bgl_string3839za700za7za7_4048za7, "&escape-C-string", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2appendzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2appe4049z00, va_generic_entry, BGl_z62stringzd2appendzb0zz__r4_strings_6_7z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_substringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__substringza700za7za7_4050za7, opt_generic_entry, BGl__substringz00zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2containszd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2contai4051za7, opt_generic_entry, BGl__stringzd2containszd2zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2indexzd2rightzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2indexza74052z00, opt_generic_entry, BGl__stringzd2indexzd2rightz00zz__r4_strings_6_7z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string3920z00zz__r4_strings_6_7z00, BgL_bgl_string3920za700za7za7_4053za7, "_string-prefix-length-ci", 24 );
BGL_DEFINE_STRING(BGl_string3921z00zz__r4_strings_6_7z00, BgL_bgl_string3921za700za7za7_4054za7, "case_else1167", 13 );
BGL_DEFINE_STRING(BGl_string3840z00zz__r4_strings_6_7z00, BgL_bgl_string3840za700za7za7_4055za7, "&escape-scheme-string", 21 );
BGL_DEFINE_STRING(BGl_string3841z00zz__r4_strings_6_7z00, BgL_bgl_string3841za700za7za7_4056za7, "&string-as-read", 15 );
BGL_DEFINE_STRING(BGl_string3923z00zz__r4_strings_6_7z00, BgL_bgl_string3923za700za7za7_4057za7, "string-prefix-length-ci::int", 28 );
BGL_DEFINE_STRING(BGl_string3842z00zz__r4_strings_6_7z00, BgL_bgl_string3842za700za7za7_4058za7, "&blit-string-ur!", 16 );
BGL_DEFINE_STRING(BGl_string3843z00zz__r4_strings_6_7z00, BgL_bgl_string3843za700za7za7_4059za7, "]", 1 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd3zf3zd2envzf2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d3za7f3za74060z00, BGl_z62stringzd3zf3z42zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3925z00zz__r4_strings_6_7z00, BgL_bgl_string3925za700za7za7_4061za7, "string-prefix-length-ci", 23 );
BGL_DEFINE_STRING(BGl_string3844z00zz__r4_strings_6_7z00, BgL_bgl_string3844za700za7za7_4062za7, "] [dest:", 8 );
BGL_DEFINE_STRING(BGl_string3926z00zz__r4_strings_6_7z00, BgL_bgl_string3926za700za7za7_4063za7, "_string-suffix-length", 21 );
BGL_DEFINE_STRING(BGl_string3845z00zz__r4_strings_6_7z00, BgL_bgl_string3845za700za7za7_4064za7, "[src:", 5 );
BGL_DEFINE_STRING(BGl_string3764z00zz__r4_strings_6_7z00, BgL_bgl_string3764za700za7za7_4065za7, "/tmp/bigloo/runtime/Ieee/string.scm", 35 );
BGL_DEFINE_STRING(BGl_string3927z00zz__r4_strings_6_7z00, BgL_bgl_string3927za700za7za7_4066za7, "case_else1171", 13 );
BGL_DEFINE_STRING(BGl_string3846z00zz__r4_strings_6_7z00, BgL_bgl_string3846za700za7za7_4067za7, "blit-string!:Index and length out of range", 42 );
BGL_DEFINE_STRING(BGl_string3765z00zz__r4_strings_6_7z00, BgL_bgl_string3765za700za7za7_4068za7, "&string-null?", 13 );
BGL_DEFINE_STRING(BGl_string3847z00zz__r4_strings_6_7z00, BgL_bgl_string3847za700za7za7_4069za7, "&blit-string!", 13 );
BGL_DEFINE_STRING(BGl_string3766z00zz__r4_strings_6_7z00, BgL_bgl_string3766za700za7za7_4070za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string3929z00zz__r4_strings_6_7z00, BgL_bgl_string3929za700za7za7_4071za7, "string-suffix-length::int", 25 );
BGL_DEFINE_STRING(BGl_string3848z00zz__r4_strings_6_7z00, BgL_bgl_string3848za700za7za7_4072za7, "&string-shrink!", 15 );
BGL_DEFINE_STRING(BGl_string3767z00zz__r4_strings_6_7z00, BgL_bgl_string3767za700za7za7_4073za7, "_make-string", 12 );
BGL_DEFINE_STRING(BGl_string3849z00zz__r4_strings_6_7z00, BgL_bgl_string3849za700za7za7_4074za7, "&string-replace", 15 );
BGL_DEFINE_STRING(BGl_string3768z00zz__r4_strings_6_7z00, BgL_bgl_string3768za700za7za7_4075za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string3769z00zz__r4_strings_6_7z00, BgL_bgl_string3769za700za7za7_4076za7, "case_else1095", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2naturalzd2compare3zd2cizd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2natura4077za7, opt_generic_entry, BGl__stringzd2naturalzd2compare3zd2cizd2zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2containszd2cizd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2contai4078za7, opt_generic_entry, BGl__stringzd2containszd2ciz00zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2capitaliza7ez12zd2envzb5zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2capi4079z00, BGl_z62stringzd2capitaliza7ez12z05zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3931z00zz__r4_strings_6_7z00, BgL_bgl_string3931za700za7za7_4080za7, "string-suffix-length", 20 );
BGL_DEFINE_STRING(BGl_string3850z00zz__r4_strings_6_7z00, BgL_bgl_string3850za700za7za7_4081za7, "&string-replace!", 16 );
BGL_DEFINE_STRING(BGl_string3932z00zz__r4_strings_6_7z00, BgL_bgl_string3932za700za7za7_4082za7, "_string-suffix-length-ci", 24 );
BGL_DEFINE_STRING(BGl_string3851z00zz__r4_strings_6_7z00, BgL_bgl_string3851za700za7za7_4083za7, "_string-delete", 14 );
BGL_DEFINE_STRING(BGl_string3933z00zz__r4_strings_6_7z00, BgL_bgl_string3933za700za7za7_4084za7, "case_else1175", 13 );
BGL_DEFINE_STRING(BGl_string3852z00zz__r4_strings_6_7z00, BgL_bgl_string3852za700za7za7_4085za7, "case_else1131", 13 );
BGL_DEFINE_STRING(BGl_string3771z00zz__r4_strings_6_7z00, BgL_bgl_string3771za700za7za7_4086za7, "make-string", 11 );
BGL_DEFINE_STRING(BGl_string3772z00zz__r4_strings_6_7z00, BgL_bgl_string3772za700za7za7_4087za7, "wrong number of arguments: [1..2] expected, provided", 52 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2shrinkz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2shri4088z00, BGl_z62stringzd2shrinkz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3935z00zz__r4_strings_6_7z00, BgL_bgl_string3935za700za7za7_4089za7, "string-suffix-length-ci::int", 28 );
BGL_DEFINE_STRING(BGl_string3854z00zz__r4_strings_6_7z00, BgL_bgl_string3854za700za7za7_4090za7, "string-delete", 13 );
BGL_DEFINE_STRING(BGl_string3773z00zz__r4_strings_6_7z00, BgL_bgl_string3773za700za7za7_4091za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string3855z00zz__r4_strings_6_7z00, BgL_bgl_string3855za700za7za7_4092za7, "wrong number of arguments: [2..4] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string3774z00zz__r4_strings_6_7z00, BgL_bgl_string3774za700za7za7_4093za7, "bchar", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl_za762stringza7f3za791za74094z00, BGl_z62stringzf3z91zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3937z00zz__r4_strings_6_7z00, BgL_bgl_string3937za700za7za7_4095za7, "string-suffix-length-ci", 23 );
BGL_DEFINE_STRING(BGl_string3856z00zz__r4_strings_6_7z00, BgL_bgl_string3856za700za7za7_4096za7, "loop:Wrong number of arguments", 30 );
BGL_DEFINE_STRING(BGl_string3775z00zz__r4_strings_6_7z00, BgL_bgl_string3775za700za7za7_4097za7, "string", 6 );
BGL_DEFINE_STRING(BGl_string3938z00zz__r4_strings_6_7z00, BgL_bgl_string3938za700za7za7_4098za7, "_string-prefix?", 15 );
BGL_DEFINE_STRING(BGl_string3776z00zz__r4_strings_6_7z00, BgL_bgl_string3776za700za7za7_4099za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string3939z00zz__r4_strings_6_7z00, BgL_bgl_string3939za700za7za7_4100za7, "case_else1179", 13 );
BGL_DEFINE_STRING(BGl_string3777z00zz__r4_strings_6_7z00, BgL_bgl_string3777za700za7za7_4101za7, "&string-length", 14 );
BGL_DEFINE_STRING(BGl_string3859z00zz__r4_strings_6_7z00, BgL_bgl_string3859za700za7za7_4102za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string3778z00zz__r4_strings_6_7z00, BgL_bgl_string3778za700za7za7_4103za7, "string-ref", 10 );
BGL_DEFINE_STRING(BGl_string3779z00zz__r4_strings_6_7z00, BgL_bgl_string3779za700za7za7_4104za7, "&string-ref", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_substringzd2cizd2atzf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl__substringza7d2ciza74105z00, opt_generic_entry, BGl__substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2indexzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2indexza74106z00, opt_generic_entry, BGl__stringzd2indexzd2zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_blitzd2stringzd2urz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl_za762blitza7d2string4107z00, BGl_z62blitzd2stringzd2urz12z70zz__r4_strings_6_7z00, 0L, BUNSPEC, 5);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringze3zd3zf3zd2envz11zz__r4_strings_6_7z00, BgL_bgl_za762stringza7e3za7d3za74108z00, BGl_z62stringze3zd3zf3za1zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3941z00zz__r4_strings_6_7z00, BgL_bgl_string3941za700za7za7_4109za7, "string-prefix?::bool", 20 );
BGL_DEFINE_STRING(BGl_string3861z00zz__r4_strings_6_7z00, BgL_bgl_string3861za700za7za7_4110za7, "pred", 4 );
BGL_DEFINE_STRING(BGl_string3780z00zz__r4_strings_6_7z00, BgL_bgl_string3780za700za7za7_4111za7, "string-set!", 11 );
BGL_DEFINE_STRING(BGl_string3943z00zz__r4_strings_6_7z00, BgL_bgl_string3943za700za7za7_4112za7, "string-prefix?", 14 );
BGL_DEFINE_STRING(BGl_string3781z00zz__r4_strings_6_7z00, BgL_bgl_string3781za700za7za7_4113za7, "&string-set!", 12 );
BGL_DEFINE_STRING(BGl_string3944z00zz__r4_strings_6_7z00, BgL_bgl_string3944za700za7za7_4114za7, "_string-prefix-ci?", 18 );
BGL_DEFINE_STRING(BGl_string3863z00zz__r4_strings_6_7z00, BgL_bgl_string3863za700za7za7_4115za7, "cc", 2 );
BGL_DEFINE_STRING(BGl_string3782z00zz__r4_strings_6_7z00, BgL_bgl_string3782za700za7za7_4116za7, "&string-ref-ur", 14 );
BGL_DEFINE_STRING(BGl_string3945z00zz__r4_strings_6_7z00, BgL_bgl_string3945za700za7za7_4117za7, "case_else1183", 13 );
BGL_DEFINE_STRING(BGl_string3864z00zz__r4_strings_6_7z00, BgL_bgl_string3864za700za7za7_4118za7, "start index out of range", 24 );
BGL_DEFINE_STRING(BGl_string3783z00zz__r4_strings_6_7z00, BgL_bgl_string3783za700za7za7_4119za7, "&string-set-ur!", 15 );
BGL_DEFINE_STRING(BGl_string3865z00zz__r4_strings_6_7z00, BgL_bgl_string3865za700za7za7_4120za7, "end index out of range", 22 );
BGL_DEFINE_STRING(BGl_string3784z00zz__r4_strings_6_7z00, BgL_bgl_string3784za700za7za7_4121za7, "&string=?", 9 );
BGL_DEFINE_STRING(BGl_string3947z00zz__r4_strings_6_7z00, BgL_bgl_string3947za700za7za7_4122za7, "string-prefix-ci?::bool", 23 );
BGL_DEFINE_STRING(BGl_string3866z00zz__r4_strings_6_7z00, BgL_bgl_string3866za700za7za7_4123za7, "Illegal indices", 15 );
BGL_DEFINE_STRING(BGl_string3785z00zz__r4_strings_6_7z00, BgL_bgl_string3785za700za7za7_4124za7, "&substring=?", 12 );
BGL_DEFINE_STRING(BGl_string3867z00zz__r4_strings_6_7z00, BgL_bgl_string3867za700za7za7_4125za7, "Illegal char/charset/predicate", 30 );
BGL_DEFINE_STRING(BGl_string3786z00zz__r4_strings_6_7z00, BgL_bgl_string3786za700za7za7_4126za7, "_substring-at?", 14 );
BGL_DEFINE_STRING(BGl_string3949z00zz__r4_strings_6_7z00, BgL_bgl_string3949za700za7za7_4127za7, "string-prefix-ci?", 17 );
BGL_DEFINE_STRING(BGl_string3868z00zz__r4_strings_6_7z00, BgL_bgl_string3868za700za7za7_4128za7, "delim?", 6 );
BGL_DEFINE_STRING(BGl_string3787z00zz__r4_strings_6_7z00, BgL_bgl_string3787za700za7za7_4129za7, "case_else1102", 13 );
BGL_DEFINE_STRING(BGl_string3869z00zz__r4_strings_6_7z00, BgL_bgl_string3869za700za7za7_4130za7, " \t\n", 3 );
BGL_DEFINE_STRING(BGl_string3789z00zz__r4_strings_6_7z00, BgL_bgl_string3789za700za7za7_4131za7, "substring-at?", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2naturalzd2compare3zd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2natura4132za7, opt_generic_entry, BGl__stringzd2naturalzd2compare3z00zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_substringzd2atzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl__substringza7d2atza74133z00, opt_generic_entry, BGl__substringzd2atzf3z21zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2prefixzd2cizf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix4134za7, opt_generic_entry, BGl__stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2setz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2setza74135za7, BGl_z62stringzd2setz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string3950z00zz__r4_strings_6_7z00, BgL_bgl_string3950za700za7za7_4136za7, "_string-suffix?", 15 );
BGL_DEFINE_STRING(BGl_string3951z00zz__r4_strings_6_7z00, BgL_bgl_string3951za700za7za7_4137za7, "case_else1187", 13 );
BGL_DEFINE_STRING(BGl_string3870z00zz__r4_strings_6_7z00, BgL_bgl_string3870za700za7za7_4138za7, "&string-split", 13 );
BGL_DEFINE_STRING(BGl_string3871z00zz__r4_strings_6_7z00, BgL_bgl_string3871za700za7za7_4139za7, "&string-cut", 11 );
BGL_DEFINE_STRING(BGl_string3790z00zz__r4_strings_6_7z00, BgL_bgl_string3790za700za7za7_4140za7, "wrong number of arguments: [3..4] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string3953z00zz__r4_strings_6_7z00, BgL_bgl_string3953za700za7za7_4141za7, "string-suffix?::bool", 20 );
BGL_DEFINE_STRING(BGl_string3872z00zz__r4_strings_6_7z00, BgL_bgl_string3872za700za7za7_4142za7, "&string-char-index-ur", 21 );
BGL_DEFINE_STRING(BGl_string3791z00zz__r4_strings_6_7z00, BgL_bgl_string3791za700za7za7_4143za7, "&substring-ci=?", 15 );
BGL_DEFINE_STRING(BGl_string3873z00zz__r4_strings_6_7z00, BgL_bgl_string3873za700za7za7_4144za7, "_string-char-index", 18 );
BGL_DEFINE_STRING(BGl_string3792z00zz__r4_strings_6_7z00, BgL_bgl_string3792za700za7za7_4145za7, "_substring-ci-at?", 17 );
BGL_DEFINE_STRING(BGl_string3955z00zz__r4_strings_6_7z00, BgL_bgl_string3955za700za7za7_4146za7, "string-suffix?", 14 );
BGL_DEFINE_STRING(BGl_string3874z00zz__r4_strings_6_7z00, BgL_bgl_string3874za700za7za7_4147za7, "case_else1137", 13 );
BGL_DEFINE_STRING(BGl_string3793z00zz__r4_strings_6_7z00, BgL_bgl_string3793za700za7za7_4148za7, "case_else1109", 13 );
BGL_DEFINE_STRING(BGl_string3956z00zz__r4_strings_6_7z00, BgL_bgl_string3956za700za7za7_4149za7, "_string-suffix-ci?", 18 );
BGL_DEFINE_STRING(BGl_string3957z00zz__r4_strings_6_7z00, BgL_bgl_string3957za700za7za7_4150za7, "case_else1191", 13 );
BGL_DEFINE_STRING(BGl_string3876z00zz__r4_strings_6_7z00, BgL_bgl_string3876za700za7za7_4151za7, "string-char-index", 17 );
BGL_DEFINE_STRING(BGl_string3795z00zz__r4_strings_6_7z00, BgL_bgl_string3795za700za7za7_4152za7, "substring-ci-at?", 16 );
BGL_DEFINE_STRING(BGl_string3877z00zz__r4_strings_6_7z00, BgL_bgl_string3877za700za7za7_4153za7, "_string-index", 13 );
BGL_DEFINE_STRING(BGl_string3796z00zz__r4_strings_6_7z00, BgL_bgl_string3796za700za7za7_4154za7, "&empty-string?", 14 );
BGL_DEFINE_STRING(BGl_string3959z00zz__r4_strings_6_7z00, BgL_bgl_string3959za700za7za7_4155za7, "string-suffix-ci?::bool", 23 );
BGL_DEFINE_STRING(BGl_string3878z00zz__r4_strings_6_7z00, BgL_bgl_string3878za700za7za7_4156za7, "case_else1143", 13 );
BGL_DEFINE_STRING(BGl_string3797z00zz__r4_strings_6_7z00, BgL_bgl_string3797za700za7za7_4157za7, "&string-ci=?", 12 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2charzd2indexzd2urzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2char4158z00, BGl_z62stringzd2charzd2indexzd2urzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 4);
BGL_DEFINE_STRING(BGl_string3798z00zz__r4_strings_6_7z00, BgL_bgl_string3798za700za7za7_4159za7, "&string<?", 9 );
BGL_DEFINE_STRING(BGl_string3799z00zz__r4_strings_6_7z00, BgL_bgl_string3799za700za7za7_4160za7, "&string>?", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2prefixzd2lengthzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix4161za7, opt_generic_entry, BGl__stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2cize3zf3zd2envz10zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7e4162za7, BGl_z62stringzd2cize3zf3za0zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2splitzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2spli4163z00, va_generic_entry, BGl_z62stringzd2splitzb0zz__r4_strings_6_7z00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_emptyzd2stringzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl_za762emptyza7d2strin4164z00, BGl_z62emptyzd2stringzf3z43zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3960z00zz__r4_strings_6_7z00, BgL_bgl_string3960za700za7za7_4165za7, "string-suffix-ci?", 17 );
BGL_DEFINE_STRING(BGl_string3961z00zz__r4_strings_6_7z00, BgL_bgl_string3961za700za7za7_4166za7, "_string-natural-compare3", 24 );
BGL_DEFINE_STRING(BGl_string3880z00zz__r4_strings_6_7z00, BgL_bgl_string3880za700za7za7_4167za7, "string-index", 12 );
BGL_DEFINE_STRING(BGl_string3962z00zz__r4_strings_6_7z00, BgL_bgl_string3962za700za7za7_4168za7, "case_else1197", 13 );
BGL_DEFINE_STRING(BGl_string3881z00zz__r4_strings_6_7z00, BgL_bgl_string3881za700za7za7_4169za7, "liip", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2refzd2urzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2refza74170za7, BGl_z62stringzd2refzd2urz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3882z00zz__r4_strings_6_7z00, BgL_bgl_string3882za700za7za7_4171za7, "Illegal regset", 14 );
BGL_DEFINE_STRING(BGl_string3964z00zz__r4_strings_6_7z00, BgL_bgl_string3964za700za7za7_4172za7, "string-natural-compare3", 23 );
BGL_DEFINE_STRING(BGl_string3883z00zz__r4_strings_6_7z00, BgL_bgl_string3883za700za7za7_4173za7, "_string-index-right", 19 );
BGL_DEFINE_STRING(BGl_string3965z00zz__r4_strings_6_7z00, BgL_bgl_string3965za700za7za7_4174za7, "_string-natural-compare3-ci", 27 );
BGL_DEFINE_STRING(BGl_string3884z00zz__r4_strings_6_7z00, BgL_bgl_string3884za700za7za7_4175za7, "case_else1148", 13 );
BGL_DEFINE_STRING(BGl_string3966z00zz__r4_strings_6_7z00, BgL_bgl_string3966za700za7za7_4176za7, "case_else1203", 13 );
BGL_DEFINE_STRING(BGl_string3886z00zz__r4_strings_6_7z00, BgL_bgl_string3886za700za7za7_4177za7, "string-index-right", 18 );
BGL_DEFINE_STRING(BGl_string3968z00zz__r4_strings_6_7z00, BgL_bgl_string3968za700za7za7_4178za7, "string-natural-compare3-ci", 26 );
BGL_DEFINE_STRING(BGl_string3887z00zz__r4_strings_6_7z00, BgL_bgl_string3887za700za7za7_4179za7, "index out of bound", 18 );
BGL_DEFINE_STRING(BGl_string3969z00zz__r4_strings_6_7z00, BgL_bgl_string3969za700za7za7_4180za7, "while", 5 );
BGL_DEFINE_STRING(BGl_string3888z00zz__r4_strings_6_7z00, BgL_bgl_string3888za700za7za7_4181za7, "_string-skip", 12 );
BGL_DEFINE_STRING(BGl_string3889z00zz__r4_strings_6_7z00, BgL_bgl_string3889za700za7za7_4182za7, "case_else1154", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringze3zf3zd2envzc2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7e3za7f3za74183z00, BGl_z62stringze3zf3z72zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3971z00zz__r4_strings_6_7z00, BgL_bgl_string3971za700za7za7_4184za7, "an-awful-hack", 13 );
BGL_DEFINE_STRING(BGl_string3972z00zz__r4_strings_6_7z00, BgL_bgl_string3972za700za7za7_4185za7, "hex-string->string", 18 );
BGL_DEFINE_STRING(BGl_string3891z00zz__r4_strings_6_7z00, BgL_bgl_string3891za700za7za7_4186za7, "string-skip", 11 );
BGL_DEFINE_STRING(BGl_string3973z00zz__r4_strings_6_7z00, BgL_bgl_string3973za700za7za7_4187za7, "Illegal string (illegal character)", 34 );
BGL_DEFINE_STRING(BGl_string3974z00zz__r4_strings_6_7z00, BgL_bgl_string3974za700za7za7_4188za7, "string-hex-intern", 17 );
BGL_DEFINE_STRING(BGl_string3975z00zz__r4_strings_6_7z00, BgL_bgl_string3975za700za7za7_4189za7, "Illegal string (length is odd)", 30 );
BGL_DEFINE_STRING(BGl_string3894z00zz__r4_strings_6_7z00, BgL_bgl_string3894za700za7za7_4190za7, "arg1698", 7 );
BGL_DEFINE_STRING(BGl_string3976z00zz__r4_strings_6_7z00, BgL_bgl_string3976za700za7za7_4191za7, "&string-hex-intern", 18 );
BGL_DEFINE_STRING(BGl_string3895z00zz__r4_strings_6_7z00, BgL_bgl_string3895za700za7za7_4192za7, "_string-skip-right", 18 );
BGL_DEFINE_STRING(BGl_string3977z00zz__r4_strings_6_7z00, BgL_bgl_string3977za700za7za7_4193za7, "string-hex-intern!", 18 );
BGL_DEFINE_STRING(BGl_string3896z00zz__r4_strings_6_7z00, BgL_bgl_string3896za700za7za7_4194za7, "case_else1159", 13 );
BGL_DEFINE_STRING(BGl_string3978z00zz__r4_strings_6_7z00, BgL_bgl_string3978za700za7za7_4195za7, "&string-hex-intern!", 19 );
BGL_DEFINE_STRING(BGl_string3979z00zz__r4_strings_6_7z00, BgL_bgl_string3979za700za7za7_4196za7, "_string-hex-extern", 18 );
BGL_DEFINE_STRING(BGl_string3898z00zz__r4_strings_6_7z00, BgL_bgl_string3898za700za7za7_4197za7, "string-skip-right", 17 );
BGL_DEFINE_STRING(BGl_string3899z00zz__r4_strings_6_7z00, BgL_bgl_string3899za700za7za7_4198za7, "string-char-skip", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzc3zd3zf3zd2envz31zz__r4_strings_6_7z00, BgL_bgl_za762stringza7c3za7d3za74199z00, BGl_z62stringzc3zd3zf3z81zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3980z00zz__r4_strings_6_7z00, BgL_bgl_string3980za700za7za7_4200za7, "case_else1207", 13 );
BGL_DEFINE_STRING(BGl_string3982z00zz__r4_strings_6_7z00, BgL_bgl_string3982za700za7za7_4201za7, "string-hex-extern::bstring", 26 );
BGL_DEFINE_STRING(BGl_string3983z00zz__r4_strings_6_7z00, BgL_bgl_string3983za700za7za7_4202za7, "wrong number of arguments: [1..3] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string3984z00zz__r4_strings_6_7z00, BgL_bgl_string3984za700za7za7_4203za7, "string-hex-extern", 17 );
BGL_DEFINE_STRING(BGl_string3985z00zz__r4_strings_6_7z00, BgL_bgl_string3985za700za7za7_4204za7, "0123456789abcdef", 16 );
BGL_DEFINE_STRING(BGl_string3986z00zz__r4_strings_6_7z00, BgL_bgl_string3986za700za7za7_4205za7, "__r4_strings_6_7", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2replacez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2repl4206z00, BGl_z62stringzd2replacez12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2skipzd2rightzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2skipza7d4207z00, opt_generic_entry, BGl__stringzd2skipzd2rightz00zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2lengthzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2leng4208z00, BGl_z62stringzd2lengthzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza762za7za7__4209z00, va_generic_entry, BGl_z62stringz62zz__r4_strings_6_7z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2charzd2indexzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2charza7d4210z00, opt_generic_entry, BGl__stringzd2charzd2indexz00zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2deletezd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2delete4211za7, opt_generic_entry, BGl__stringzd2deletezd2zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2nullzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2null4212z00, BGl_z62stringzd2nullzf3z43zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_escapezd2Czd2stringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762escapeza7d2cza7d24213za7, BGl_z62escapezd2Czd2stringz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2cutzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2cutza74214za7, va_generic_entry, BGl_z62stringzd2cutzb0zz__r4_strings_6_7z00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2suffixzd2cizf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix4215za7, opt_generic_entry, BGl__stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_substringzd2urzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762substringza7d2u4216z00, BGl_z62substringzd2urzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_substringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00, BgL_bgl_za762substringza7d2c4217z00, BGl_z62substringzd2cizd3zf3z90zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_escapezd2schemezd2stringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762escapeza7d2sche4218z00, BGl_z62escapezd2schemezd2stringz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2cize3zd3zf3zd2envzc3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7e4219za7, BGl_z62stringzd2cize3zd3zf3z73zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2cizc3zf3zd2envz30zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7c4220za7, BGl_z62stringzd2cizc3zf3z80zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2hexzd2externzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2hexza7d24221z00, opt_generic_entry, BGl__stringzd2hexzd2externz00zz__r4_strings_6_7z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_blitzd2stringz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762blitza7d2string4222z00, BGl_z62blitzd2stringz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 5);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2downcasezd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2down4223z00, BGl_z62stringzd2downcasezb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3stringzd2envze3zz__r4_strings_6_7z00, BgL_bgl_za762listza7d2za7e3str4224za7, BGl_z62listzd2ze3stringz53zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2aszd2readzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2asza7d4225za7, BGl_z62stringzd2aszd2readz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2refzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2refza74226za7, BGl_z62stringzd2refzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2fillz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2fill4227z00, BGl_z62stringzd2fillz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzc3zf3zd2envze2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7c3za7f3za74228z00, BGl_z62stringzc3zf3z52zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3800z00zz__r4_strings_6_7z00, BgL_bgl_string3800za700za7za7_4229za7, "&string<=?", 10 );
BGL_DEFINE_STRING(BGl_string3801z00zz__r4_strings_6_7z00, BgL_bgl_string3801za700za7za7_4230za7, "&string>=?", 10 );
BGL_DEFINE_STRING(BGl_string3802z00zz__r4_strings_6_7z00, BgL_bgl_string3802za700za7za7_4231za7, "&string-ci<?", 12 );
BGL_DEFINE_STRING(BGl_string3803z00zz__r4_strings_6_7z00, BgL_bgl_string3803za700za7za7_4232za7, "&string-ci>?", 12 );
BGL_DEFINE_STRING(BGl_string3804z00zz__r4_strings_6_7z00, BgL_bgl_string3804za700za7za7_4233za7, "&string-ci<=?", 13 );
BGL_DEFINE_STRING(BGl_string3805z00zz__r4_strings_6_7z00, BgL_bgl_string3805za700za7za7_4234za7, "&string-ci>=?", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2prefixzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix4235za7, opt_generic_entry, BGl__stringzd2prefixzf3z21zz__r4_strings_6_7z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string3806z00zz__r4_strings_6_7z00, BgL_bgl_string3806za700za7za7_4236za7, "_substring", 10 );
BGL_DEFINE_STRING(BGl_string3807z00zz__r4_strings_6_7z00, BgL_bgl_string3807za700za7za7_4237za7, "case_else1114", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2forzd2readzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2forza74238za7, BGl_z62stringzd2forzd2readz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3809z00zz__r4_strings_6_7z00, BgL_bgl_string3809za700za7za7_4239za7, "substring", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2downcasez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2down4240z00, BGl_z62stringzd2downcasez12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_substringzd3zf3zd2envzf2zz__r4_strings_6_7z00, BgL_bgl_za762substringza7d3za74241za7, BGl_z62substringzd3zf3z42zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2replacezd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2repl4242z00, BGl_z62stringzd2replacezb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_PROCEDURE(BGl_stringzd2replacezd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2repl4242z00);
BGL_BIND_PROCEDURE(BGl_substringzd3zf3zd2envzf2zz__r4_strings_6_7z00, BgL_bgl_za762substringza7d3za74241za7);
BGL_BIND_PROCEDURE(BGl_stringzd2downcasez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2down4240z00);
BGL_BIND_STRING(BGl_string3809z00zz__r4_strings_6_7z00, BgL_bgl_string3809za700za7za7_4239za7);
BGL_BIND_PROCEDURE(BGl_stringzd2forzd2readzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2forza74238za7);
BGL_BIND_STRING(BGl_string3807z00zz__r4_strings_6_7z00, BgL_bgl_string3807za700za7za7_4237za7);
BGL_BIND_STRING(BGl_string3806z00zz__r4_strings_6_7z00, BgL_bgl_string3806za700za7za7_4236za7);
BGL_BIND_PROCEDURE(BGl_stringzd2prefixzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix4235za7);
BGL_BIND_STRING(BGl_string3805z00zz__r4_strings_6_7z00, BgL_bgl_string3805za700za7za7_4234za7);
BGL_BIND_STRING(BGl_string3804z00zz__r4_strings_6_7z00, BgL_bgl_string3804za700za7za7_4233za7);
BGL_BIND_STRING(BGl_string3803z00zz__r4_strings_6_7z00, BgL_bgl_string3803za700za7za7_4232za7);
BGL_BIND_STRING(BGl_string3802z00zz__r4_strings_6_7z00, BgL_bgl_string3802za700za7za7_4231za7);
BGL_BIND_STRING(BGl_string3801z00zz__r4_strings_6_7z00, BgL_bgl_string3801za700za7za7_4230za7);
BGL_BIND_STRING(BGl_string3800z00zz__r4_strings_6_7z00, BgL_bgl_string3800za700za7za7_4229za7);
BGL_BIND_PROCEDURE(BGl_stringzc3zf3zd2envze2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7c3za7f3za74228z00);
BGL_BIND_PROCEDURE(BGl_stringzd2fillz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2fill4227z00);
BGL_BIND_PROCEDURE(BGl_stringzd2refzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2refza74226za7);
BGL_BIND_PROCEDURE(BGl_stringzd2aszd2readzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2asza7d4225za7);
BGL_BIND_PROCEDURE(BGl_listzd2ze3stringzd2envze3zz__r4_strings_6_7z00, BgL_bgl_za762listza7d2za7e3str4224za7);
BGL_BIND_PROCEDURE(BGl_stringzd2downcasezd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2down4223z00);
BGL_BIND_PROCEDURE(BGl_blitzd2stringz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762blitza7d2string4222z00);
BGL_BIND_PROCEDURE(BGl_stringzd2hexzd2externzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2hexza7d24221z00);
BGL_BIND_PROCEDURE(BGl_stringzd2cizc3zf3zd2envz30zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7c4220za7);
BGL_BIND_PROCEDURE(BGl_stringzd2cize3zd3zf3zd2envzc3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7e4219za7);
BGL_BIND_PROCEDURE(BGl_escapezd2schemezd2stringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762escapeza7d2sche4218z00);
BGL_BIND_PROCEDURE(BGl_substringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00, BgL_bgl_za762substringza7d2c4217z00);
BGL_BIND_PROCEDURE(BGl_substringzd2urzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762substringza7d2u4216z00);
BGL_BIND_PROCEDURE(BGl_stringzd2suffixzd2cizf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix4215za7);
BGL_BIND_PROCEDURE(BGl_stringzd2cutzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2cutza74214za7);
BGL_BIND_PROCEDURE(BGl_escapezd2Czd2stringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762escapeza7d2cza7d24213za7);
BGL_BIND_PROCEDURE(BGl_stringzd2nullzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2null4212z00);
BGL_BIND_PROCEDURE(BGl_stringzd2deletezd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2delete4211za7);
BGL_BIND_PROCEDURE(BGl_stringzd2charzd2indexzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2charza7d4210z00);
BGL_BIND_PROCEDURE(BGl_stringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza762za7za7__4209z00);
BGL_BIND_PROCEDURE(BGl_stringzd2lengthzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2leng4208z00);
BGL_BIND_PROCEDURE(BGl_stringzd2skipzd2rightzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2skipza7d4207z00);
BGL_BIND_PROCEDURE(BGl_stringzd2replacez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2repl4206z00);
BGL_BIND_STRING(BGl_string3986z00zz__r4_strings_6_7z00, BgL_bgl_string3986za700za7za7_4205za7);
BGL_BIND_STRING(BGl_string3985z00zz__r4_strings_6_7z00, BgL_bgl_string3985za700za7za7_4204za7);
BGL_BIND_STRING(BGl_string3984z00zz__r4_strings_6_7z00, BgL_bgl_string3984za700za7za7_4203za7);
BGL_BIND_STRING(BGl_string3983z00zz__r4_strings_6_7z00, BgL_bgl_string3983za700za7za7_4202za7);
BGL_BIND_STRING(BGl_string3982z00zz__r4_strings_6_7z00, BgL_bgl_string3982za700za7za7_4201za7);
BGL_BIND_STRING(BGl_string3980z00zz__r4_strings_6_7z00, BgL_bgl_string3980za700za7za7_4200za7);
BGL_BIND_PROCEDURE(BGl_stringzc3zd3zf3zd2envz31zz__r4_strings_6_7z00, BgL_bgl_za762stringza7c3za7d3za74199z00);
BGL_BIND_STRING(BGl_string3899z00zz__r4_strings_6_7z00, BgL_bgl_string3899za700za7za7_4198za7);
BGL_BIND_STRING(BGl_string3898z00zz__r4_strings_6_7z00, BgL_bgl_string3898za700za7za7_4197za7);
BGL_BIND_STRING(BGl_string3979z00zz__r4_strings_6_7z00, BgL_bgl_string3979za700za7za7_4196za7);
BGL_BIND_STRING(BGl_string3978z00zz__r4_strings_6_7z00, BgL_bgl_string3978za700za7za7_4195za7);
BGL_BIND_STRING(BGl_string3896z00zz__r4_strings_6_7z00, BgL_bgl_string3896za700za7za7_4194za7);
BGL_BIND_STRING(BGl_string3977z00zz__r4_strings_6_7z00, BgL_bgl_string3977za700za7za7_4193za7);
BGL_BIND_STRING(BGl_string3895z00zz__r4_strings_6_7z00, BgL_bgl_string3895za700za7za7_4192za7);
BGL_BIND_STRING(BGl_string3976z00zz__r4_strings_6_7z00, BgL_bgl_string3976za700za7za7_4191za7);
BGL_BIND_STRING(BGl_string3894z00zz__r4_strings_6_7z00, BgL_bgl_string3894za700za7za7_4190za7);
BGL_BIND_STRING(BGl_string3975z00zz__r4_strings_6_7z00, BgL_bgl_string3975za700za7za7_4189za7);
BGL_BIND_STRING(BGl_string3974z00zz__r4_strings_6_7z00, BgL_bgl_string3974za700za7za7_4188za7);
BGL_BIND_STRING(BGl_string3973z00zz__r4_strings_6_7z00, BgL_bgl_string3973za700za7za7_4187za7);
BGL_BIND_STRING(BGl_string3891z00zz__r4_strings_6_7z00, BgL_bgl_string3891za700za7za7_4186za7);
BGL_BIND_STRING(BGl_string3972z00zz__r4_strings_6_7z00, BgL_bgl_string3972za700za7za7_4185za7);
BGL_BIND_STRING(BGl_string3971z00zz__r4_strings_6_7z00, BgL_bgl_string3971za700za7za7_4184za7);
BGL_BIND_PROCEDURE(BGl_stringze3zf3zd2envzc2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7e3za7f3za74183z00);
BGL_BIND_STRING(BGl_string3889z00zz__r4_strings_6_7z00, BgL_bgl_string3889za700za7za7_4182za7);
BGL_BIND_STRING(BGl_string3888z00zz__r4_strings_6_7z00, BgL_bgl_string3888za700za7za7_4181za7);
BGL_BIND_STRING(BGl_string3969z00zz__r4_strings_6_7z00, BgL_bgl_string3969za700za7za7_4180za7);
BGL_BIND_STRING(BGl_string3887z00zz__r4_strings_6_7z00, BgL_bgl_string3887za700za7za7_4179za7);
BGL_BIND_STRING(BGl_string3968z00zz__r4_strings_6_7z00, BgL_bgl_string3968za700za7za7_4178za7);
BGL_BIND_STRING(BGl_string3886z00zz__r4_strings_6_7z00, BgL_bgl_string3886za700za7za7_4177za7);
BGL_BIND_STRING(BGl_string3966z00zz__r4_strings_6_7z00, BgL_bgl_string3966za700za7za7_4176za7);
BGL_BIND_STRING(BGl_string3884z00zz__r4_strings_6_7z00, BgL_bgl_string3884za700za7za7_4175za7);
BGL_BIND_STRING(BGl_string3965z00zz__r4_strings_6_7z00, BgL_bgl_string3965za700za7za7_4174za7);
BGL_BIND_STRING(BGl_string3883z00zz__r4_strings_6_7z00, BgL_bgl_string3883za700za7za7_4173za7);
BGL_BIND_STRING(BGl_string3964z00zz__r4_strings_6_7z00, BgL_bgl_string3964za700za7za7_4172za7);
BGL_BIND_STRING(BGl_string3882z00zz__r4_strings_6_7z00, BgL_bgl_string3882za700za7za7_4171za7);
BGL_BIND_PROCEDURE(BGl_stringzd2refzd2urzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2refza74170za7);
BGL_BIND_STRING(BGl_string3881z00zz__r4_strings_6_7z00, BgL_bgl_string3881za700za7za7_4169za7);
BGL_BIND_STRING(BGl_string3962z00zz__r4_strings_6_7z00, BgL_bgl_string3962za700za7za7_4168za7);
BGL_BIND_STRING(BGl_string3880z00zz__r4_strings_6_7z00, BgL_bgl_string3880za700za7za7_4167za7);
BGL_BIND_STRING(BGl_string3961z00zz__r4_strings_6_7z00, BgL_bgl_string3961za700za7za7_4166za7);
BGL_BIND_STRING(BGl_string3960z00zz__r4_strings_6_7z00, BgL_bgl_string3960za700za7za7_4165za7);
BGL_BIND_PROCEDURE(BGl_emptyzd2stringzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl_za762emptyza7d2strin4164z00);
BGL_BIND_PROCEDURE(BGl_stringzd2splitzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2spli4163z00);
BGL_BIND_PROCEDURE(BGl_stringzd2cize3zf3zd2envz10zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7e4162za7);
BGL_BIND_PROCEDURE(BGl_stringzd2prefixzd2lengthzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix4161za7);
BGL_BIND_STRING(BGl_string3799z00zz__r4_strings_6_7z00, BgL_bgl_string3799za700za7za7_4160za7);
BGL_BIND_STRING(BGl_string3798z00zz__r4_strings_6_7z00, BgL_bgl_string3798za700za7za7_4159za7);
BGL_BIND_PROCEDURE(BGl_stringzd2charzd2indexzd2urzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2char4158z00);
BGL_BIND_STRING(BGl_string3797z00zz__r4_strings_6_7z00, BgL_bgl_string3797za700za7za7_4157za7);
BGL_BIND_STRING(BGl_string3878z00zz__r4_strings_6_7z00, BgL_bgl_string3878za700za7za7_4156za7);
BGL_BIND_STRING(BGl_string3959z00zz__r4_strings_6_7z00, BgL_bgl_string3959za700za7za7_4155za7);
BGL_BIND_STRING(BGl_string3796z00zz__r4_strings_6_7z00, BgL_bgl_string3796za700za7za7_4154za7);
BGL_BIND_STRING(BGl_string3877z00zz__r4_strings_6_7z00, BgL_bgl_string3877za700za7za7_4153za7);
BGL_BIND_STRING(BGl_string3795z00zz__r4_strings_6_7z00, BgL_bgl_string3795za700za7za7_4152za7);
BGL_BIND_STRING(BGl_string3876z00zz__r4_strings_6_7z00, BgL_bgl_string3876za700za7za7_4151za7);
BGL_BIND_STRING(BGl_string3957z00zz__r4_strings_6_7z00, BgL_bgl_string3957za700za7za7_4150za7);
BGL_BIND_STRING(BGl_string3956z00zz__r4_strings_6_7z00, BgL_bgl_string3956za700za7za7_4149za7);
BGL_BIND_STRING(BGl_string3793z00zz__r4_strings_6_7z00, BgL_bgl_string3793za700za7za7_4148za7);
BGL_BIND_STRING(BGl_string3874z00zz__r4_strings_6_7z00, BgL_bgl_string3874za700za7za7_4147za7);
BGL_BIND_STRING(BGl_string3955z00zz__r4_strings_6_7z00, BgL_bgl_string3955za700za7za7_4146za7);
BGL_BIND_STRING(BGl_string3792z00zz__r4_strings_6_7z00, BgL_bgl_string3792za700za7za7_4145za7);
BGL_BIND_STRING(BGl_string3873z00zz__r4_strings_6_7z00, BgL_bgl_string3873za700za7za7_4144za7);
BGL_BIND_STRING(BGl_string3791z00zz__r4_strings_6_7z00, BgL_bgl_string3791za700za7za7_4143za7);
BGL_BIND_STRING(BGl_string3872z00zz__r4_strings_6_7z00, BgL_bgl_string3872za700za7za7_4142za7);
BGL_BIND_STRING(BGl_string3953z00zz__r4_strings_6_7z00, BgL_bgl_string3953za700za7za7_4141za7);
BGL_BIND_STRING(BGl_string3790z00zz__r4_strings_6_7z00, BgL_bgl_string3790za700za7za7_4140za7);
BGL_BIND_STRING(BGl_string3871z00zz__r4_strings_6_7z00, BgL_bgl_string3871za700za7za7_4139za7);
BGL_BIND_STRING(BGl_string3870z00zz__r4_strings_6_7z00, BgL_bgl_string3870za700za7za7_4138za7);
BGL_BIND_STRING(BGl_string3951z00zz__r4_strings_6_7z00, BgL_bgl_string3951za700za7za7_4137za7);
BGL_BIND_STRING(BGl_string3950z00zz__r4_strings_6_7z00, BgL_bgl_string3950za700za7za7_4136za7);
BGL_BIND_PROCEDURE(BGl_stringzd2setz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2setza74135za7);
BGL_BIND_PROCEDURE(BGl_stringzd2prefixzd2cizf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix4134za7);
BGL_BIND_PROCEDURE(BGl_substringzd2atzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl__substringza7d2atza74133z00);
BGL_BIND_PROCEDURE(BGl_stringzd2naturalzd2compare3zd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2natura4132za7);
BGL_BIND_STRING(BGl_string3789z00zz__r4_strings_6_7z00, BgL_bgl_string3789za700za7za7_4131za7);
BGL_BIND_STRING(BGl_string3869z00zz__r4_strings_6_7z00, BgL_bgl_string3869za700za7za7_4130za7);
BGL_BIND_STRING(BGl_string3787z00zz__r4_strings_6_7z00, BgL_bgl_string3787za700za7za7_4129za7);
BGL_BIND_STRING(BGl_string3868z00zz__r4_strings_6_7z00, BgL_bgl_string3868za700za7za7_4128za7);
BGL_BIND_STRING(BGl_string3949z00zz__r4_strings_6_7z00, BgL_bgl_string3949za700za7za7_4127za7);
BGL_BIND_STRING(BGl_string3786z00zz__r4_strings_6_7z00, BgL_bgl_string3786za700za7za7_4126za7);
BGL_BIND_STRING(BGl_string3867z00zz__r4_strings_6_7z00, BgL_bgl_string3867za700za7za7_4125za7);
BGL_BIND_STRING(BGl_string3785z00zz__r4_strings_6_7z00, BgL_bgl_string3785za700za7za7_4124za7);
BGL_BIND_STRING(BGl_string3866z00zz__r4_strings_6_7z00, BgL_bgl_string3866za700za7za7_4123za7);
BGL_BIND_STRING(BGl_string3947z00zz__r4_strings_6_7z00, BgL_bgl_string3947za700za7za7_4122za7);
BGL_BIND_STRING(BGl_string3784z00zz__r4_strings_6_7z00, BgL_bgl_string3784za700za7za7_4121za7);
BGL_BIND_STRING(BGl_string3865z00zz__r4_strings_6_7z00, BgL_bgl_string3865za700za7za7_4120za7);
BGL_BIND_STRING(BGl_string3783z00zz__r4_strings_6_7z00, BgL_bgl_string3783za700za7za7_4119za7);
BGL_BIND_STRING(BGl_string3864z00zz__r4_strings_6_7z00, BgL_bgl_string3864za700za7za7_4118za7);
BGL_BIND_STRING(BGl_string3945z00zz__r4_strings_6_7z00, BgL_bgl_string3945za700za7za7_4117za7);
BGL_BIND_STRING(BGl_string3782z00zz__r4_strings_6_7z00, BgL_bgl_string3782za700za7za7_4116za7);
BGL_BIND_STRING(BGl_string3863z00zz__r4_strings_6_7z00, BgL_bgl_string3863za700za7za7_4115za7);
BGL_BIND_STRING(BGl_string3944z00zz__r4_strings_6_7z00, BgL_bgl_string3944za700za7za7_4114za7);
BGL_BIND_STRING(BGl_string3781z00zz__r4_strings_6_7z00, BgL_bgl_string3781za700za7za7_4113za7);
BGL_BIND_STRING(BGl_string3943z00zz__r4_strings_6_7z00, BgL_bgl_string3943za700za7za7_4112za7);
BGL_BIND_STRING(BGl_string3780z00zz__r4_strings_6_7z00, BgL_bgl_string3780za700za7za7_4111za7);
BGL_BIND_STRING(BGl_string3861z00zz__r4_strings_6_7z00, BgL_bgl_string3861za700za7za7_4110za7);
BGL_BIND_STRING(BGl_string3941z00zz__r4_strings_6_7z00, BgL_bgl_string3941za700za7za7_4109za7);
BGL_BIND_PROCEDURE(BGl_stringze3zd3zf3zd2envz11zz__r4_strings_6_7z00, BgL_bgl_za762stringza7e3za7d3za74108z00);
BGL_BIND_PROCEDURE(BGl_blitzd2stringzd2urz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl_za762blitza7d2string4107z00);
BGL_BIND_PROCEDURE(BGl_stringzd2indexzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2indexza74106z00);
BGL_BIND_PROCEDURE(BGl_substringzd2cizd2atzf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl__substringza7d2ciza74105z00);
BGL_BIND_STRING(BGl_string3779z00zz__r4_strings_6_7z00, BgL_bgl_string3779za700za7za7_4104za7);
BGL_BIND_STRING(BGl_string3778z00zz__r4_strings_6_7z00, BgL_bgl_string3778za700za7za7_4103za7);
BGL_BIND_STRING(BGl_string3859z00zz__r4_strings_6_7z00, BgL_bgl_string3859za700za7za7_4102za7);
BGL_BIND_STRING(BGl_string3777z00zz__r4_strings_6_7z00, BgL_bgl_string3777za700za7za7_4101za7);
BGL_BIND_STRING(BGl_string3939z00zz__r4_strings_6_7z00, BgL_bgl_string3939za700za7za7_4100za7);
BGL_BIND_STRING(BGl_string3776z00zz__r4_strings_6_7z00, BgL_bgl_string3776za700za7za7_4099za7);
BGL_BIND_STRING(BGl_string3938z00zz__r4_strings_6_7z00, BgL_bgl_string3938za700za7za7_4098za7);
BGL_BIND_STRING(BGl_string3775z00zz__r4_strings_6_7z00, BgL_bgl_string3775za700za7za7_4097za7);
BGL_BIND_STRING(BGl_string3856z00zz__r4_strings_6_7z00, BgL_bgl_string3856za700za7za7_4096za7);
BGL_BIND_STRING(BGl_string3937z00zz__r4_strings_6_7z00, BgL_bgl_string3937za700za7za7_4095za7);
BGL_BIND_PROCEDURE(BGl_stringzf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl_za762stringza7f3za791za74094z00);
BGL_BIND_STRING(BGl_string3774z00zz__r4_strings_6_7z00, BgL_bgl_string3774za700za7za7_4093za7);
BGL_BIND_STRING(BGl_string3855z00zz__r4_strings_6_7z00, BgL_bgl_string3855za700za7za7_4092za7);
BGL_BIND_STRING(BGl_string3773z00zz__r4_strings_6_7z00, BgL_bgl_string3773za700za7za7_4091za7);
BGL_BIND_STRING(BGl_string3854z00zz__r4_strings_6_7z00, BgL_bgl_string3854za700za7za7_4090za7);
BGL_BIND_STRING(BGl_string3935z00zz__r4_strings_6_7z00, BgL_bgl_string3935za700za7za7_4089za7);
BGL_BIND_PROCEDURE(BGl_stringzd2shrinkz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2shri4088z00);
BGL_BIND_STRING(BGl_string3772z00zz__r4_strings_6_7z00, BgL_bgl_string3772za700za7za7_4087za7);
BGL_BIND_STRING(BGl_string3771z00zz__r4_strings_6_7z00, BgL_bgl_string3771za700za7za7_4086za7);
BGL_BIND_STRING(BGl_string3852z00zz__r4_strings_6_7z00, BgL_bgl_string3852za700za7za7_4085za7);
BGL_BIND_STRING(BGl_string3933z00zz__r4_strings_6_7z00, BgL_bgl_string3933za700za7za7_4084za7);
BGL_BIND_STRING(BGl_string3851z00zz__r4_strings_6_7z00, BgL_bgl_string3851za700za7za7_4083za7);
BGL_BIND_STRING(BGl_string3932z00zz__r4_strings_6_7z00, BgL_bgl_string3932za700za7za7_4082za7);
BGL_BIND_STRING(BGl_string3850z00zz__r4_strings_6_7z00, BgL_bgl_string3850za700za7za7_4081za7);
BGL_BIND_STRING(BGl_string3931z00zz__r4_strings_6_7z00, BgL_bgl_string3931za700za7za7_4080za7);
BGL_BIND_PROCEDURE(BGl_stringzd2capitaliza7ez12zd2envzb5zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2capi4079z00);
BGL_BIND_PROCEDURE(BGl_stringzd2containszd2cizd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2contai4078za7);
BGL_BIND_PROCEDURE(BGl_stringzd2naturalzd2compare3zd2cizd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2natura4077za7);
BGL_BIND_STRING(BGl_string3769z00zz__r4_strings_6_7z00, BgL_bgl_string3769za700za7za7_4076za7);
BGL_BIND_STRING(BGl_string3768z00zz__r4_strings_6_7z00, BgL_bgl_string3768za700za7za7_4075za7);
BGL_BIND_STRING(BGl_string3849z00zz__r4_strings_6_7z00, BgL_bgl_string3849za700za7za7_4074za7);
BGL_BIND_STRING(BGl_string3767z00zz__r4_strings_6_7z00, BgL_bgl_string3767za700za7za7_4073za7);
BGL_BIND_STRING(BGl_string3848z00zz__r4_strings_6_7z00, BgL_bgl_string3848za700za7za7_4072za7);
BGL_BIND_STRING(BGl_string3929z00zz__r4_strings_6_7z00, BgL_bgl_string3929za700za7za7_4071za7);
BGL_BIND_STRING(BGl_string3766z00zz__r4_strings_6_7z00, BgL_bgl_string3766za700za7za7_4070za7);
BGL_BIND_STRING(BGl_string3847z00zz__r4_strings_6_7z00, BgL_bgl_string3847za700za7za7_4069za7);
BGL_BIND_STRING(BGl_string3765z00zz__r4_strings_6_7z00, BgL_bgl_string3765za700za7za7_4068za7);
BGL_BIND_STRING(BGl_string3846z00zz__r4_strings_6_7z00, BgL_bgl_string3846za700za7za7_4067za7);
BGL_BIND_STRING(BGl_string3927z00zz__r4_strings_6_7z00, BgL_bgl_string3927za700za7za7_4066za7);
BGL_BIND_STRING(BGl_string3764z00zz__r4_strings_6_7z00, BgL_bgl_string3764za700za7za7_4065za7);
BGL_BIND_STRING(BGl_string3845z00zz__r4_strings_6_7z00, BgL_bgl_string3845za700za7za7_4064za7);
BGL_BIND_STRING(BGl_string3926z00zz__r4_strings_6_7z00, BgL_bgl_string3926za700za7za7_4063za7);
BGL_BIND_STRING(BGl_string3844z00zz__r4_strings_6_7z00, BgL_bgl_string3844za700za7za7_4062za7);
BGL_BIND_STRING(BGl_string3925z00zz__r4_strings_6_7z00, BgL_bgl_string3925za700za7za7_4061za7);
BGL_BIND_PROCEDURE(BGl_stringzd3zf3zd2envzf2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d3za7f3za74060z00);
BGL_BIND_STRING(BGl_string3843z00zz__r4_strings_6_7z00, BgL_bgl_string3843za700za7za7_4059za7);
BGL_BIND_STRING(BGl_string3842z00zz__r4_strings_6_7z00, BgL_bgl_string3842za700za7za7_4058za7);
BGL_BIND_STRING(BGl_string3923z00zz__r4_strings_6_7z00, BgL_bgl_string3923za700za7za7_4057za7);
BGL_BIND_STRING(BGl_string3841z00zz__r4_strings_6_7z00, BgL_bgl_string3841za700za7za7_4056za7);
BGL_BIND_STRING(BGl_string3840z00zz__r4_strings_6_7z00, BgL_bgl_string3840za700za7za7_4055za7);
BGL_BIND_STRING(BGl_string3921z00zz__r4_strings_6_7z00, BgL_bgl_string3921za700za7za7_4054za7);
BGL_BIND_STRING(BGl_string3920z00zz__r4_strings_6_7z00, BgL_bgl_string3920za700za7za7_4053za7);
BGL_BIND_PROCEDURE(BGl_stringzd2indexzd2rightzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2indexza74052z00);
BGL_BIND_PROCEDURE(BGl_stringzd2containszd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2contai4051za7);
BGL_BIND_PROCEDURE(BGl_substringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__substringza700za7za7_4050za7);
BGL_BIND_PROCEDURE(BGl_stringzd2appendzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2appe4049z00);
BGL_BIND_STRING(BGl_string3839z00zz__r4_strings_6_7z00, BgL_bgl_string3839za700za7za7_4048za7);
BGL_BIND_PROCEDURE(BGl_stringzd2compare3zd2cizd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2comp4047z00);
BGL_BIND_STRING(BGl_string3838z00zz__r4_strings_6_7z00, BgL_bgl_string3838za700za7za7_4046za7);
BGL_BIND_STRING(BGl_string3919z00zz__r4_strings_6_7z00, BgL_bgl_string3919za700za7za7_4045za7);
BGL_BIND_STRING(BGl_string3837z00zz__r4_strings_6_7z00, BgL_bgl_string3837za700za7za7_4044za7);
BGL_BIND_STRING(BGl_string3918z00zz__r4_strings_6_7z00, BgL_bgl_string3918za700za7za7_4043za7);
BGL_BIND_STRING(BGl_string3836z00zz__r4_strings_6_7z00, BgL_bgl_string3836za700za7za7_4042za7);
BGL_BIND_STRING(BGl_string3917z00zz__r4_strings_6_7z00, BgL_bgl_string3917za700za7za7_4041za7);
BGL_BIND_STRING(BGl_string3835z00zz__r4_strings_6_7z00, BgL_bgl_string3835za700za7za7_4040za7);
BGL_BIND_STRING(BGl_string3916z00zz__r4_strings_6_7z00, BgL_bgl_string3916za700za7za7_4039za7);
BGL_BIND_STRING(BGl_string3834z00zz__r4_strings_6_7z00, BgL_bgl_string3834za700za7za7_4038za7);
BGL_BIND_STRING(BGl_string3915z00zz__r4_strings_6_7z00, BgL_bgl_string3915za700za7za7_4037za7);
BGL_BIND_STRING(BGl_string3833z00zz__r4_strings_6_7z00, BgL_bgl_string3833za700za7za7_4036za7);
BGL_BIND_STRING(BGl_string3914z00zz__r4_strings_6_7z00, BgL_bgl_string3914za700za7za7_4035za7);
BGL_BIND_STRING(BGl_string3832z00zz__r4_strings_6_7z00, BgL_bgl_string3832za700za7za7_4034za7);
BGL_BIND_STRING(BGl_string3913z00zz__r4_strings_6_7z00, BgL_bgl_string3913za700za7za7_4033za7);
BGL_BIND_STRING(BGl_string3831z00zz__r4_strings_6_7z00, BgL_bgl_string3831za700za7za7_4032za7);
BGL_BIND_STRING(BGl_string3912z00zz__r4_strings_6_7z00, BgL_bgl_string3912za700za7za7_4031za7);
BGL_BIND_STRING(BGl_string3830z00zz__r4_strings_6_7z00, BgL_bgl_string3830za700za7za7_4030za7);
BGL_BIND_STRING(BGl_string3911z00zz__r4_strings_6_7z00, BgL_bgl_string3911za700za7za7_4029za7);
BGL_BIND_STRING(BGl_string3910z00zz__r4_strings_6_7z00, BgL_bgl_string3910za700za7za7_4028za7);
BGL_BIND_PROCEDURE(BGl_stringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7d4027za7);
BGL_BIND_PROCEDURE(BGl_stringzd2suffixzd2lengthzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix4026za7);
BGL_BIND_PROCEDURE(BGl_makezd2stringzd2envz00zz__r4_strings_6_7z00, BgL_bgl__makeza7d2stringza7d4025z00);
BGL_BIND_PROCEDURE(BGl_stringzd2suffixzd2lengthzd2cizd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix4024za7);
BGL_BIND_PROCEDURE(BGl_stringzd2ze3listzd2envze3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2za7e3l4023za7);
BGL_BIND_PROCEDURE(BGl_stringzd2skipzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2skipza7d4022z00);
BGL_BIND_PROCEDURE(BGl_stringzd2prefixzd2lengthzd2cizd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix4021za7);
BGL_BIND_STRING(BGl_string3829z00zz__r4_strings_6_7z00, BgL_bgl_string3829za700za7za7_4020za7);
BGL_BIND_STRING(BGl_string3828z00zz__r4_strings_6_7z00, BgL_bgl_string3828za700za7za7_4019za7);
BGL_BIND_STRING(BGl_string3827z00zz__r4_strings_6_7z00, BgL_bgl_string3827za700za7za7_4018za7);
BGL_BIND_STRING(BGl_string3908z00zz__r4_strings_6_7z00, BgL_bgl_string3908za700za7za7_4017za7);
BGL_BIND_STRING(BGl_string3826z00zz__r4_strings_6_7z00, BgL_bgl_string3826za700za7za7_4016za7);
BGL_BIND_STRING(BGl_string3907z00zz__r4_strings_6_7z00, BgL_bgl_string3907za700za7za7_4015za7);
BGL_BIND_STRING(BGl_string3825z00zz__r4_strings_6_7z00, BgL_bgl_string3825za700za7za7_4014za7);
BGL_BIND_STRING(BGl_string3824z00zz__r4_strings_6_7z00, BgL_bgl_string3824za700za7za7_4013za7);
BGL_BIND_STRING(BGl_string3905z00zz__r4_strings_6_7z00, BgL_bgl_string3905za700za7za7_4012za7);
BGL_BIND_STRING(BGl_string3823z00zz__r4_strings_6_7z00, BgL_bgl_string3823za700za7za7_4011za7);
BGL_BIND_STRING(BGl_string3904z00zz__r4_strings_6_7z00, BgL_bgl_string3904za700za7za7_4010za7);
BGL_BIND_STRING(BGl_string3822z00zz__r4_strings_6_7z00, BgL_bgl_string3822za700za7za7_4009za7);
BGL_BIND_STRING(BGl_string3903z00zz__r4_strings_6_7z00, BgL_bgl_string3903za700za7za7_4008za7);
BGL_BIND_STRING(BGl_string3821z00zz__r4_strings_6_7z00, BgL_bgl_string3821za700za7za7_4007za7);
BGL_BIND_STRING(BGl_string3900z00zz__r4_strings_6_7z00, BgL_bgl_string3900za700za7za7_4006za7);
BGL_BIND_PROCEDURE(BGl_stringzd2cizc3zd3zf3zd2envze3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7c4005za7);
BGL_BIND_PROCEDURE(BGl_stringzd2hexzd2internz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2hexza74004za7);
BGL_BIND_PROCEDURE(BGl_stringzd2hexzd2internzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2hexza74003za7);
BGL_BIND_PROCEDURE(BGl_stringzd2setzd2urz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2setza74002za7);
BGL_BIND_PROCEDURE(BGl_stringzd2upcasezd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2upca4001z00);
BGL_BIND_PROCEDURE(BGl_stringzd2copyzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2copy4000z00);
BGL_BIND_PROCEDURE(BGl_stringzd2compare3zd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2comp3999z00);
BGL_BIND_PROCEDURE(BGl_stringzd2suffixzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix3998za7);
BGL_BIND_STRING(BGl_string3819z00zz__r4_strings_6_7z00, BgL_bgl_string3819za700za7za7_3997za7);
BGL_BIND_STRING(BGl_string3818z00zz__r4_strings_6_7z00, BgL_bgl_string3818za700za7za7_3996za7);
BGL_BIND_STRING(BGl_string3817z00zz__r4_strings_6_7z00, BgL_bgl_string3817za700za7za7_3995za7);
BGL_BIND_STRING(BGl_string3815z00zz__r4_strings_6_7z00, BgL_bgl_string3815za700za7za7_3994za7);
BGL_BIND_STRING(BGl_string3814z00zz__r4_strings_6_7z00, BgL_bgl_string3814za700za7za7_3993za7);
BGL_BIND_STRING(BGl_string3813z00zz__r4_strings_6_7z00, BgL_bgl_string3813za700za7za7_3992za7);
BGL_BIND_STRING(BGl_string3812z00zz__r4_strings_6_7z00, BgL_bgl_string3812za700za7za7_3991za7);
BGL_BIND_STRING(BGl_string3811z00zz__r4_strings_6_7z00, BgL_bgl_string3811za700za7za7_3990za7);
BGL_BIND_STRING(BGl_string3810z00zz__r4_strings_6_7z00, BgL_bgl_string3810za700za7za7_3989za7);
BGL_BIND_PROCEDURE(BGl_stringzd2capitaliza7ezd2envza7zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2capi3988z00);
BGL_BIND_PROCEDURE(BGl_stringzd2upcasez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2upca3987z00);
}

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3808z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3816z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3820z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3902z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3906z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3909z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3922z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3924z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3928z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3930z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3770z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3934z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_list3901z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3853z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3936z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3858z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3940z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3860z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3942z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3862z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3946z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3948z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3788z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3952z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3954z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3875z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3794z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3958z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3879z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3963z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3885z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3967z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_list3857z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3970z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3890z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3893z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3897z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3981z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_list3892z00zz__r4_strings_6_7z00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long BgL_checksumz00_5798, char * BgL_fromz00_5799)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__r4_strings_6_7z00(); 
BGl_cnstzd2initzd2zz__r4_strings_6_7z00(); 
return 
BGl_importedzd2moduleszd2initz00zz__r4_strings_6_7z00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_strings_6_7z00(void)
{
{ /* Ieee/string.scm 18 */
BGl_symbol3770z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3771z00zz__r4_strings_6_7z00); 
BGl_symbol3788z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3789z00zz__r4_strings_6_7z00); 
BGl_symbol3794z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3795z00zz__r4_strings_6_7z00); 
BGl_symbol3808z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3809z00zz__r4_strings_6_7z00); 
BGl_symbol3816z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3817z00zz__r4_strings_6_7z00); 
BGl_symbol3820z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3821z00zz__r4_strings_6_7z00); 
BGl_symbol3853z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3854z00zz__r4_strings_6_7z00); 
BGl_symbol3858z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3859z00zz__r4_strings_6_7z00); 
BGl_symbol3860z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3861z00zz__r4_strings_6_7z00); 
BGl_symbol3862z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3863z00zz__r4_strings_6_7z00); 
BGl_list3857z00zz__r4_strings_6_7z00 = 
MAKE_YOUNG_PAIR(BGl_symbol3858z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3860z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3860z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3862z00zz__r4_strings_6_7z00, BNIL)))); 
BGl_symbol3875z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3876z00zz__r4_strings_6_7z00); 
BGl_symbol3879z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3880z00zz__r4_strings_6_7z00); 
BGl_symbol3885z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3886z00zz__r4_strings_6_7z00); 
BGl_symbol3890z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3891z00zz__r4_strings_6_7z00); 
BGl_symbol3893z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3894z00zz__r4_strings_6_7z00); 
BGl_list3892z00zz__r4_strings_6_7z00 = 
MAKE_YOUNG_PAIR(BGl_symbol3858z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3860z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3860z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3893z00zz__r4_strings_6_7z00, BNIL)))); 
BGl_symbol3897z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3898z00zz__r4_strings_6_7z00); 
BGl_symbol3902z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3903z00zz__r4_strings_6_7z00); 
BGl_list3901z00zz__r4_strings_6_7z00 = 
MAKE_YOUNG_PAIR(BGl_symbol3858z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3860z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3860z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3902z00zz__r4_strings_6_7z00, BNIL)))); 
BGl_symbol3906z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3907z00zz__r4_strings_6_7z00); 
BGl_symbol3909z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3910z00zz__r4_strings_6_7z00); 
BGl_symbol3922z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3923z00zz__r4_strings_6_7z00); 
BGl_symbol3924z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3925z00zz__r4_strings_6_7z00); 
BGl_symbol3928z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3929z00zz__r4_strings_6_7z00); 
BGl_symbol3930z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3931z00zz__r4_strings_6_7z00); 
BGl_symbol3934z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3935z00zz__r4_strings_6_7z00); 
BGl_symbol3936z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3937z00zz__r4_strings_6_7z00); 
BGl_symbol3940z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3941z00zz__r4_strings_6_7z00); 
BGl_symbol3942z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3943z00zz__r4_strings_6_7z00); 
BGl_symbol3946z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3947z00zz__r4_strings_6_7z00); 
BGl_symbol3948z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3949z00zz__r4_strings_6_7z00); 
BGl_symbol3952z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3953z00zz__r4_strings_6_7z00); 
BGl_symbol3954z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3955z00zz__r4_strings_6_7z00); 
BGl_symbol3958z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3959z00zz__r4_strings_6_7z00); 
BGl_symbol3963z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3964z00zz__r4_strings_6_7z00); 
BGl_symbol3967z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3968z00zz__r4_strings_6_7z00); 
BGl_symbol3970z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3971z00zz__r4_strings_6_7z00); 
return ( 
BGl_symbol3981z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3982z00zz__r4_strings_6_7z00), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__r4_strings_6_7z00(void)
{
{ /* Ieee/string.scm 18 */
return 
bgl_gc_roots_register();} 

}



/* string? */
BGL_EXPORTED_DEF bool_t BGl_stringzf3zf3zz__r4_strings_6_7z00(obj_t BgL_objz00_3)
{
{ /* Ieee/string.scm 300 */
return 
STRINGP(BgL_objz00_3);} 

}



/* &string? */
obj_t BGl_z62stringzf3z91zz__r4_strings_6_7z00(obj_t BgL_envz00_4043, obj_t BgL_objz00_4044)
{
{ /* Ieee/string.scm 300 */
return 
BBOOL(
BGl_stringzf3zf3zz__r4_strings_6_7z00(BgL_objz00_4044));} 

}



/* string-null? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2nullzf3z21zz__r4_strings_6_7z00(obj_t BgL_strz00_4)
{
{ /* Ieee/string.scm 306 */
return 
(
STRING_LENGTH(BgL_strz00_4)==0L);} 

}



/* &string-null? */
obj_t BGl_z62stringzd2nullzf3z43zz__r4_strings_6_7z00(obj_t BgL_envz00_4045, obj_t BgL_strz00_4046)
{
{ /* Ieee/string.scm 306 */
{ /* Ieee/string.scm 307 */
 bool_t BgL_tmpz00_5861;
{ /* Ieee/string.scm 307 */
 obj_t BgL_auxz00_5862;
if(
STRINGP(BgL_strz00_4046))
{ /* Ieee/string.scm 307 */
BgL_auxz00_5862 = BgL_strz00_4046
; }  else 
{ 
 obj_t BgL_auxz00_5865;
BgL_auxz00_5865 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(15062L), BGl_string3765z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_4046); 
FAILURE(BgL_auxz00_5865,BFALSE,BFALSE);} 
BgL_tmpz00_5861 = 
BGl_stringzd2nullzf3z21zz__r4_strings_6_7z00(BgL_auxz00_5862); } 
return 
BBOOL(BgL_tmpz00_5861);} } 

}



/* _make-string */
obj_t BGl__makezd2stringzd2zz__r4_strings_6_7z00(obj_t BgL_env1093z00_8, obj_t BgL_opt1092z00_7)
{
{ /* Ieee/string.scm 312 */
{ /* Ieee/string.scm 312 */
 obj_t BgL_g1094z00_5752;
{ 
 obj_t BgL_auxz00_5871;
if(
VECTORP(BgL_opt1092z00_7))
{ /* Ieee/string.scm 312 */
BgL_auxz00_5871 = BgL_opt1092z00_7
; }  else 
{ 
 obj_t BgL_auxz00_5874;
BgL_auxz00_5874 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(15309L), BGl_string3767z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1092z00_7); 
FAILURE(BgL_auxz00_5874,BFALSE,BFALSE);} 
BgL_g1094z00_5752 = 
VECTOR_REF(BgL_auxz00_5871,0L); } 
{ 

{ /* Ieee/string.scm 312 */
 long BgL_aux1096z00_5755;
{ 
 obj_t BgL_auxz00_5879;
if(
VECTORP(BgL_opt1092z00_7))
{ /* Ieee/string.scm 312 */
BgL_auxz00_5879 = BgL_opt1092z00_7
; }  else 
{ 
 obj_t BgL_auxz00_5882;
BgL_auxz00_5882 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(15309L), BGl_string3767z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1092z00_7); 
FAILURE(BgL_auxz00_5882,BFALSE,BFALSE);} 
BgL_aux1096z00_5755 = 
VECTOR_LENGTH(BgL_auxz00_5879); } 
switch( BgL_aux1096z00_5755) { case 1L : 

{ /* Ieee/string.scm 312 */

{ /* Ieee/string.scm 312 */
 long BgL_kz00_5756;
{ /* Ieee/string.scm 312 */
 obj_t BgL_tmpz00_5887;
if(
INTEGERP(BgL_g1094z00_5752))
{ /* Ieee/string.scm 312 */
BgL_tmpz00_5887 = BgL_g1094z00_5752
; }  else 
{ 
 obj_t BgL_auxz00_5890;
BgL_auxz00_5890 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(15309L), BGl_string3767z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_g1094z00_5752); 
FAILURE(BgL_auxz00_5890,BFALSE,BFALSE);} 
BgL_kz00_5756 = 
(long)CINT(BgL_tmpz00_5887); } 
return 
make_string(BgL_kz00_5756, ((unsigned char)' '));} } break;case 2L : 

{ /* Ieee/string.scm 312 */
 obj_t BgL_charz00_5757;
{ 
 obj_t BgL_auxz00_5896;
if(
VECTORP(BgL_opt1092z00_7))
{ /* Ieee/string.scm 312 */
BgL_auxz00_5896 = BgL_opt1092z00_7
; }  else 
{ 
 obj_t BgL_auxz00_5899;
BgL_auxz00_5899 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(15309L), BGl_string3767z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1092z00_7); 
FAILURE(BgL_auxz00_5899,BFALSE,BFALSE);} 
BgL_charz00_5757 = 
VECTOR_REF(BgL_auxz00_5896,1L); } 
{ /* Ieee/string.scm 312 */

{ /* Ieee/string.scm 312 */
 long BgL_kz00_5758;
{ /* Ieee/string.scm 312 */
 obj_t BgL_tmpz00_5904;
if(
INTEGERP(BgL_g1094z00_5752))
{ /* Ieee/string.scm 312 */
BgL_tmpz00_5904 = BgL_g1094z00_5752
; }  else 
{ 
 obj_t BgL_auxz00_5907;
BgL_auxz00_5907 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(15309L), BGl_string3767z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_g1094z00_5752); 
FAILURE(BgL_auxz00_5907,BFALSE,BFALSE);} 
BgL_kz00_5758 = 
(long)CINT(BgL_tmpz00_5904); } 
{ /* Ieee/string.scm 313 */
 unsigned char BgL_tmpz00_5912;
{ /* Ieee/string.scm 313 */
 obj_t BgL_tmpz00_5913;
if(
CHARP(BgL_charz00_5757))
{ /* Ieee/string.scm 313 */
BgL_tmpz00_5913 = BgL_charz00_5757
; }  else 
{ 
 obj_t BgL_auxz00_5916;
BgL_auxz00_5916 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(15385L), BGl_string3767z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_charz00_5757); 
FAILURE(BgL_auxz00_5916,BFALSE,BFALSE);} 
BgL_tmpz00_5912 = 
CCHAR(BgL_tmpz00_5913); } 
return 
make_string(BgL_kz00_5758, BgL_tmpz00_5912);} } } } break;
default: 
{ /* Ieee/string.scm 312 */
 long BgL_arg1224z00_5754;
{ 
 obj_t BgL_auxz00_5922;
if(
VECTORP(BgL_opt1092z00_7))
{ /* Ieee/string.scm 312 */
BgL_auxz00_5922 = BgL_opt1092z00_7
; }  else 
{ 
 obj_t BgL_auxz00_5925;
BgL_auxz00_5925 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(15309L), BGl_string3769z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1092z00_7); 
FAILURE(BgL_auxz00_5925,BFALSE,BFALSE);} 
BgL_arg1224z00_5754 = 
VECTOR_LENGTH(BgL_auxz00_5922); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3770z00zz__r4_strings_6_7z00, BGl_string3772z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1224z00_5754));} } } } } } 

}



/* make-string */
BGL_EXPORTED_DEF obj_t BGl_makezd2stringzd2zz__r4_strings_6_7z00(long BgL_kz00_5, obj_t BgL_charz00_6)
{
{ /* Ieee/string.scm 312 */
{ /* Ieee/string.scm 313 */
 unsigned char BgL_tmpz00_5933;
{ /* Ieee/string.scm 313 */
 obj_t BgL_tmpz00_5934;
if(
CHARP(BgL_charz00_6))
{ /* Ieee/string.scm 313 */
BgL_tmpz00_5934 = BgL_charz00_6
; }  else 
{ 
 obj_t BgL_auxz00_5937;
BgL_auxz00_5937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(15385L), BGl_string3771z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_charz00_6); 
FAILURE(BgL_auxz00_5937,BFALSE,BFALSE);} 
BgL_tmpz00_5933 = 
CCHAR(BgL_tmpz00_5934); } 
return 
make_string(BgL_kz00_5, BgL_tmpz00_5933);} } 

}



/* string */
BGL_EXPORTED_DEF obj_t BGl_stringz00zz__r4_strings_6_7z00(obj_t BgL_charsz00_9)
{
{ /* Ieee/string.scm 318 */
{ /* Ieee/string.scm 319 */
 obj_t BgL_auxz00_5943;
{ /* Ieee/string.scm 319 */
 bool_t BgL_test4253z00_5944;
if(
PAIRP(BgL_charsz00_9))
{ /* Ieee/string.scm 319 */
BgL_test4253z00_5944 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 319 */
BgL_test4253z00_5944 = 
NULLP(BgL_charsz00_9)
; } 
if(BgL_test4253z00_5944)
{ /* Ieee/string.scm 319 */
BgL_auxz00_5943 = BgL_charsz00_9
; }  else 
{ 
 obj_t BgL_auxz00_5948;
BgL_auxz00_5948 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(15665L), BGl_string3775z00zz__r4_strings_6_7z00, BGl_string3776z00zz__r4_strings_6_7z00, BgL_charsz00_9); 
FAILURE(BgL_auxz00_5948,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_auxz00_5943);} } 

}



/* &string */
obj_t BGl_z62stringz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4047, obj_t BgL_charsz00_4048)
{
{ /* Ieee/string.scm 318 */
return 
BGl_stringz00zz__r4_strings_6_7z00(BgL_charsz00_4048);} 

}



/* string-length */
BGL_EXPORTED_DEF long BGl_stringzd2lengthzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_10)
{
{ /* Ieee/string.scm 324 */
return 
STRING_LENGTH(BgL_stringz00_10);} 

}



/* &string-length */
obj_t BGl_z62stringzd2lengthzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4049, obj_t BgL_stringz00_4050)
{
{ /* Ieee/string.scm 324 */
{ /* Ieee/string.scm 325 */
 long BgL_tmpz00_5955;
{ /* Ieee/string.scm 325 */
 obj_t BgL_auxz00_5956;
if(
STRINGP(BgL_stringz00_4050))
{ /* Ieee/string.scm 325 */
BgL_auxz00_5956 = BgL_stringz00_4050
; }  else 
{ 
 obj_t BgL_auxz00_5959;
BgL_auxz00_5959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(15937L), BGl_string3777z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4050); 
FAILURE(BgL_auxz00_5959,BFALSE,BFALSE);} 
BgL_tmpz00_5955 = 
BGl_stringzd2lengthzd2zz__r4_strings_6_7z00(BgL_auxz00_5956); } 
return 
BINT(BgL_tmpz00_5955);} } 

}



/* string-ref */
BGL_EXPORTED_DEF unsigned char BGl_stringzd2refzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_11, long BgL_kz00_12)
{
{ /* Ieee/string.scm 330 */
{ /* Ieee/string.scm 331 */
 long BgL_l2237z00_5760;
BgL_l2237z00_5760 = 
STRING_LENGTH(BgL_stringz00_11); 
if(
BOUND_CHECK(BgL_kz00_12, BgL_l2237z00_5760))
{ /* Ieee/string.scm 331 */
return 
STRING_REF(BgL_stringz00_11, BgL_kz00_12);}  else 
{ 
 obj_t BgL_auxz00_5969;
BgL_auxz00_5969 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_11, 
(int)(BgL_l2237z00_5760), 
(int)(BgL_kz00_12)); 
FAILURE(BgL_auxz00_5969,BFALSE,BFALSE);} } } 

}



/* &string-ref */
obj_t BGl_z62stringzd2refzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4051, obj_t BgL_stringz00_4052, obj_t BgL_kz00_4053)
{
{ /* Ieee/string.scm 330 */
{ /* Ieee/string.scm 331 */
 unsigned char BgL_tmpz00_5975;
{ /* Ieee/string.scm 331 */
 long BgL_auxz00_5983; obj_t BgL_auxz00_5976;
{ /* Ieee/string.scm 331 */
 obj_t BgL_tmpz00_5984;
if(
INTEGERP(BgL_kz00_4053))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_5984 = BgL_kz00_4053
; }  else 
{ 
 obj_t BgL_auxz00_5987;
BgL_auxz00_5987 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3779z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_kz00_4053); 
FAILURE(BgL_auxz00_5987,BFALSE,BFALSE);} 
BgL_auxz00_5983 = 
(long)CINT(BgL_tmpz00_5984); } 
if(
STRINGP(BgL_stringz00_4052))
{ /* Ieee/string.scm 331 */
BgL_auxz00_5976 = BgL_stringz00_4052
; }  else 
{ 
 obj_t BgL_auxz00_5979;
BgL_auxz00_5979 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3779z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4052); 
FAILURE(BgL_auxz00_5979,BFALSE,BFALSE);} 
BgL_tmpz00_5975 = 
BGl_stringzd2refzd2zz__r4_strings_6_7z00(BgL_auxz00_5976, BgL_auxz00_5983); } 
return 
BCHAR(BgL_tmpz00_5975);} } 

}



/* string-set! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2setz12zc0zz__r4_strings_6_7z00(obj_t BgL_stringz00_13, long BgL_kz00_14, unsigned char BgL_charz00_15)
{
{ /* Ieee/string.scm 336 */
{ /* Ieee/string.scm 337 */
 long BgL_l2241z00_5761;
BgL_l2241z00_5761 = 
STRING_LENGTH(BgL_stringz00_13); 
if(
BOUND_CHECK(BgL_kz00_14, BgL_l2241z00_5761))
{ /* Ieee/string.scm 337 */
return 
STRING_SET(BgL_stringz00_13, BgL_kz00_14, BgL_charz00_15);}  else 
{ 
 obj_t BgL_auxz00_5998;
BgL_auxz00_5998 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16519L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_stringz00_13, 
(int)(BgL_l2241z00_5761), 
(int)(BgL_kz00_14)); 
FAILURE(BgL_auxz00_5998,BFALSE,BFALSE);} } } 

}



/* &string-set! */
obj_t BGl_z62stringzd2setz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4054, obj_t BgL_stringz00_4055, obj_t BgL_kz00_4056, obj_t BgL_charz00_4057)
{
{ /* Ieee/string.scm 336 */
{ /* Ieee/string.scm 337 */
 unsigned char BgL_auxz00_6020; long BgL_auxz00_6011; obj_t BgL_auxz00_6004;
{ /* Ieee/string.scm 337 */
 obj_t BgL_tmpz00_6021;
if(
CHARP(BgL_charz00_4057))
{ /* Ieee/string.scm 337 */
BgL_tmpz00_6021 = BgL_charz00_4057
; }  else 
{ 
 obj_t BgL_auxz00_6024;
BgL_auxz00_6024 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16519L), BGl_string3781z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_charz00_4057); 
FAILURE(BgL_auxz00_6024,BFALSE,BFALSE);} 
BgL_auxz00_6020 = 
CCHAR(BgL_tmpz00_6021); } 
{ /* Ieee/string.scm 337 */
 obj_t BgL_tmpz00_6012;
if(
INTEGERP(BgL_kz00_4056))
{ /* Ieee/string.scm 337 */
BgL_tmpz00_6012 = BgL_kz00_4056
; }  else 
{ 
 obj_t BgL_auxz00_6015;
BgL_auxz00_6015 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16519L), BGl_string3781z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_kz00_4056); 
FAILURE(BgL_auxz00_6015,BFALSE,BFALSE);} 
BgL_auxz00_6011 = 
(long)CINT(BgL_tmpz00_6012); } 
if(
STRINGP(BgL_stringz00_4055))
{ /* Ieee/string.scm 337 */
BgL_auxz00_6004 = BgL_stringz00_4055
; }  else 
{ 
 obj_t BgL_auxz00_6007;
BgL_auxz00_6007 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16519L), BGl_string3781z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4055); 
FAILURE(BgL_auxz00_6007,BFALSE,BFALSE);} 
return 
BGl_stringzd2setz12zc0zz__r4_strings_6_7z00(BgL_auxz00_6004, BgL_auxz00_6011, BgL_auxz00_6020);} } 

}



/* string-ref-ur */
BGL_EXPORTED_DEF unsigned char BGl_stringzd2refzd2urz00zz__r4_strings_6_7z00(obj_t BgL_stringz00_16, long BgL_kz00_17)
{
{ /* Ieee/string.scm 342 */
{ /* Ieee/string.scm 343 */
 long BgL_l2245z00_5762;
BgL_l2245z00_5762 = 
STRING_LENGTH(BgL_stringz00_16); 
if(
BOUND_CHECK(BgL_kz00_17, BgL_l2245z00_5762))
{ /* Ieee/string.scm 343 */
return 
STRING_REF(BgL_stringz00_16, BgL_kz00_17);}  else 
{ 
 obj_t BgL_auxz00_6034;
BgL_auxz00_6034 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_16, 
(int)(BgL_l2245z00_5762), 
(int)(BgL_kz00_17)); 
FAILURE(BgL_auxz00_6034,BFALSE,BFALSE);} } } 

}



/* &string-ref-ur */
obj_t BGl_z62stringzd2refzd2urz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4058, obj_t BgL_stringz00_4059, obj_t BgL_kz00_4060)
{
{ /* Ieee/string.scm 342 */
{ /* Ieee/string.scm 343 */
 unsigned char BgL_tmpz00_6040;
{ /* Ieee/string.scm 343 */
 long BgL_auxz00_6048; obj_t BgL_auxz00_6041;
{ /* Ieee/string.scm 343 */
 obj_t BgL_tmpz00_6049;
if(
INTEGERP(BgL_kz00_4060))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_6049 = BgL_kz00_4060
; }  else 
{ 
 obj_t BgL_auxz00_6052;
BgL_auxz00_6052 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3782z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_kz00_4060); 
FAILURE(BgL_auxz00_6052,BFALSE,BFALSE);} 
BgL_auxz00_6048 = 
(long)CINT(BgL_tmpz00_6049); } 
if(
STRINGP(BgL_stringz00_4059))
{ /* Ieee/string.scm 343 */
BgL_auxz00_6041 = BgL_stringz00_4059
; }  else 
{ 
 obj_t BgL_auxz00_6044;
BgL_auxz00_6044 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3782z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4059); 
FAILURE(BgL_auxz00_6044,BFALSE,BFALSE);} 
BgL_tmpz00_6040 = 
BGl_stringzd2refzd2urz00zz__r4_strings_6_7z00(BgL_auxz00_6041, BgL_auxz00_6048); } 
return 
BCHAR(BgL_tmpz00_6040);} } 

}



/* string-set-ur! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2setzd2urz12z12zz__r4_strings_6_7z00(obj_t BgL_stringz00_18, long BgL_kz00_19, unsigned char BgL_charz00_20)
{
{ /* Ieee/string.scm 348 */
{ /* Ieee/string.scm 349 */
 long BgL_l2249z00_5763;
BgL_l2249z00_5763 = 
STRING_LENGTH(BgL_stringz00_18); 
if(
BOUND_CHECK(BgL_kz00_19, BgL_l2249z00_5763))
{ /* Ieee/string.scm 349 */
return 
STRING_SET(BgL_stringz00_18, BgL_kz00_19, BgL_charz00_20);}  else 
{ 
 obj_t BgL_auxz00_6063;
BgL_auxz00_6063 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_stringz00_18, 
(int)(BgL_l2249z00_5763), 
(int)(BgL_kz00_19)); 
FAILURE(BgL_auxz00_6063,BFALSE,BFALSE);} } } 

}



/* &string-set-ur! */
obj_t BGl_z62stringzd2setzd2urz12z70zz__r4_strings_6_7z00(obj_t BgL_envz00_4061, obj_t BgL_stringz00_4062, obj_t BgL_kz00_4063, obj_t BgL_charz00_4064)
{
{ /* Ieee/string.scm 348 */
{ /* Ieee/string.scm 349 */
 unsigned char BgL_auxz00_6085; long BgL_auxz00_6076; obj_t BgL_auxz00_6069;
{ /* Ieee/string.scm 349 */
 obj_t BgL_tmpz00_6086;
if(
CHARP(BgL_charz00_4064))
{ /* Ieee/string.scm 349 */
BgL_tmpz00_6086 = BgL_charz00_4064
; }  else 
{ 
 obj_t BgL_auxz00_6089;
BgL_auxz00_6089 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3783z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_charz00_4064); 
FAILURE(BgL_auxz00_6089,BFALSE,BFALSE);} 
BgL_auxz00_6085 = 
CCHAR(BgL_tmpz00_6086); } 
{ /* Ieee/string.scm 349 */
 obj_t BgL_tmpz00_6077;
if(
INTEGERP(BgL_kz00_4063))
{ /* Ieee/string.scm 349 */
BgL_tmpz00_6077 = BgL_kz00_4063
; }  else 
{ 
 obj_t BgL_auxz00_6080;
BgL_auxz00_6080 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3783z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_kz00_4063); 
FAILURE(BgL_auxz00_6080,BFALSE,BFALSE);} 
BgL_auxz00_6076 = 
(long)CINT(BgL_tmpz00_6077); } 
if(
STRINGP(BgL_stringz00_4062))
{ /* Ieee/string.scm 349 */
BgL_auxz00_6069 = BgL_stringz00_4062
; }  else 
{ 
 obj_t BgL_auxz00_6072;
BgL_auxz00_6072 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3783z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4062); 
FAILURE(BgL_auxz00_6072,BFALSE,BFALSE);} 
return 
BGl_stringzd2setzd2urz12z12zz__r4_strings_6_7z00(BgL_auxz00_6069, BgL_auxz00_6076, BgL_auxz00_6085);} } 

}



/* string=? */
BGL_EXPORTED_DEF bool_t BGl_stringzd3zf3z20zz__r4_strings_6_7z00(obj_t BgL_string1z00_21, obj_t BgL_string2z00_22)
{
{ /* Ieee/string.scm 354 */
{ /* Ieee/string.scm 357 */
 long BgL_l1z00_5764;
BgL_l1z00_5764 = 
STRING_LENGTH(BgL_string1z00_21); 
if(
(BgL_l1z00_5764==
STRING_LENGTH(BgL_string2z00_22)))
{ /* Ieee/string.scm 359 */
 int BgL_arg1230z00_5765;
{ /* Ieee/string.scm 359 */
 char * BgL_auxz00_6101; char * BgL_tmpz00_6099;
BgL_auxz00_6101 = 
BSTRING_TO_STRING(BgL_string2z00_22); 
BgL_tmpz00_6099 = 
BSTRING_TO_STRING(BgL_string1z00_21); 
BgL_arg1230z00_5765 = 
memcmp(BgL_tmpz00_6099, BgL_auxz00_6101, BgL_l1z00_5764); } 
return 
(
(long)(BgL_arg1230z00_5765)==0L);}  else 
{ /* Ieee/string.scm 358 */
return ((bool_t)0);} } } 

}



/* &string=? */
obj_t BGl_z62stringzd3zf3z42zz__r4_strings_6_7z00(obj_t BgL_envz00_4065, obj_t BgL_string1z00_4066, obj_t BgL_string2z00_4067)
{
{ /* Ieee/string.scm 354 */
{ /* Ieee/string.scm 357 */
 bool_t BgL_tmpz00_6106;
{ /* Ieee/string.scm 357 */
 obj_t BgL_auxz00_6114; obj_t BgL_auxz00_6107;
if(
STRINGP(BgL_string2z00_4067))
{ /* Ieee/string.scm 357 */
BgL_auxz00_6114 = BgL_string2z00_4067
; }  else 
{ 
 obj_t BgL_auxz00_6117;
BgL_auxz00_6117 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17446L), BGl_string3784z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4067); 
FAILURE(BgL_auxz00_6117,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4066))
{ /* Ieee/string.scm 357 */
BgL_auxz00_6107 = BgL_string1z00_4066
; }  else 
{ 
 obj_t BgL_auxz00_6110;
BgL_auxz00_6110 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17446L), BGl_string3784z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4066); 
FAILURE(BgL_auxz00_6110,BFALSE,BFALSE);} 
BgL_tmpz00_6106 = 
BGl_stringzd3zf3z20zz__r4_strings_6_7z00(BgL_auxz00_6107, BgL_auxz00_6114); } 
return 
BBOOL(BgL_tmpz00_6106);} } 

}



/* substring=? */
BGL_EXPORTED_DEF bool_t BGl_substringzd3zf3z20zz__r4_strings_6_7z00(obj_t BgL_string1z00_23, obj_t BgL_string2z00_24, long BgL_lenz00_25)
{
{ /* Ieee/string.scm 368 */
BGL_TAIL return 
bigloo_strncmp(BgL_string1z00_23, BgL_string2z00_24, BgL_lenz00_25);} 

}



/* &substring=? */
obj_t BGl_z62substringzd3zf3z42zz__r4_strings_6_7z00(obj_t BgL_envz00_4068, obj_t BgL_string1z00_4069, obj_t BgL_string2z00_4070, obj_t BgL_lenz00_4071)
{
{ /* Ieee/string.scm 368 */
{ /* Ieee/string.scm 369 */
 bool_t BgL_tmpz00_6124;
{ /* Ieee/string.scm 369 */
 long BgL_auxz00_6139; obj_t BgL_auxz00_6132; obj_t BgL_auxz00_6125;
{ /* Ieee/string.scm 369 */
 obj_t BgL_tmpz00_6140;
if(
INTEGERP(BgL_lenz00_4071))
{ /* Ieee/string.scm 369 */
BgL_tmpz00_6140 = BgL_lenz00_4071
; }  else 
{ 
 obj_t BgL_auxz00_6143;
BgL_auxz00_6143 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17949L), BGl_string3785z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lenz00_4071); 
FAILURE(BgL_auxz00_6143,BFALSE,BFALSE);} 
BgL_auxz00_6139 = 
(long)CINT(BgL_tmpz00_6140); } 
if(
STRINGP(BgL_string2z00_4070))
{ /* Ieee/string.scm 369 */
BgL_auxz00_6132 = BgL_string2z00_4070
; }  else 
{ 
 obj_t BgL_auxz00_6135;
BgL_auxz00_6135 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17949L), BGl_string3785z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4070); 
FAILURE(BgL_auxz00_6135,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4069))
{ /* Ieee/string.scm 369 */
BgL_auxz00_6125 = BgL_string1z00_4069
; }  else 
{ 
 obj_t BgL_auxz00_6128;
BgL_auxz00_6128 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17949L), BGl_string3785z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4069); 
FAILURE(BgL_auxz00_6128,BFALSE,BFALSE);} 
BgL_tmpz00_6124 = 
BGl_substringzd3zf3z20zz__r4_strings_6_7z00(BgL_auxz00_6125, BgL_auxz00_6132, BgL_auxz00_6139); } 
return 
BBOOL(BgL_tmpz00_6124);} } 

}



/* _substring-at? */
obj_t BGl__substringzd2atzf3z21zz__r4_strings_6_7z00(obj_t BgL_env1098z00_31, obj_t BgL_opt1097z00_30)
{
{ /* Ieee/string.scm 374 */
{ /* Ieee/string.scm 374 */
 obj_t BgL_g1099z00_5766; obj_t BgL_g1100z00_5767; obj_t BgL_g1101z00_5768;
{ 
 obj_t BgL_auxz00_6150;
if(
VECTORP(BgL_opt1097z00_30))
{ /* Ieee/string.scm 374 */
BgL_auxz00_6150 = BgL_opt1097z00_30
; }  else 
{ 
 obj_t BgL_auxz00_6153;
BgL_auxz00_6153 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1097z00_30); 
FAILURE(BgL_auxz00_6153,BFALSE,BFALSE);} 
BgL_g1099z00_5766 = 
VECTOR_REF(BgL_auxz00_6150,0L); } 
{ 
 obj_t BgL_auxz00_6158;
if(
VECTORP(BgL_opt1097z00_30))
{ /* Ieee/string.scm 374 */
BgL_auxz00_6158 = BgL_opt1097z00_30
; }  else 
{ 
 obj_t BgL_auxz00_6161;
BgL_auxz00_6161 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1097z00_30); 
FAILURE(BgL_auxz00_6161,BFALSE,BFALSE);} 
BgL_g1100z00_5767 = 
VECTOR_REF(BgL_auxz00_6158,1L); } 
{ 
 obj_t BgL_auxz00_6166;
if(
VECTORP(BgL_opt1097z00_30))
{ /* Ieee/string.scm 374 */
BgL_auxz00_6166 = BgL_opt1097z00_30
; }  else 
{ 
 obj_t BgL_auxz00_6169;
BgL_auxz00_6169 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1097z00_30); 
FAILURE(BgL_auxz00_6169,BFALSE,BFALSE);} 
BgL_g1101z00_5768 = 
VECTOR_REF(BgL_auxz00_6166,2L); } 
{ 

{ /* Ieee/string.scm 374 */
 long BgL_aux1103z00_5771;
{ 
 obj_t BgL_auxz00_6174;
if(
VECTORP(BgL_opt1097z00_30))
{ /* Ieee/string.scm 374 */
BgL_auxz00_6174 = BgL_opt1097z00_30
; }  else 
{ 
 obj_t BgL_auxz00_6177;
BgL_auxz00_6177 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1097z00_30); 
FAILURE(BgL_auxz00_6177,BFALSE,BFALSE);} 
BgL_aux1103z00_5771 = 
VECTOR_LENGTH(BgL_auxz00_6174); } 
switch( BgL_aux1103z00_5771) { case 3L : 

{ /* Ieee/string.scm 374 */

{ /* Ieee/string.scm 374 */
 obj_t BgL_string1z00_5772; obj_t BgL_string2z00_5773; long BgL_offz00_5774;
if(
STRINGP(BgL_g1099z00_5766))
{ /* Ieee/string.scm 374 */
BgL_string1z00_5772 = BgL_g1099z00_5766; }  else 
{ 
 obj_t BgL_auxz00_6184;
BgL_auxz00_6184 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1099z00_5766); 
FAILURE(BgL_auxz00_6184,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1100z00_5767))
{ /* Ieee/string.scm 374 */
BgL_string2z00_5773 = BgL_g1100z00_5767; }  else 
{ 
 obj_t BgL_auxz00_6190;
BgL_auxz00_6190 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1100z00_5767); 
FAILURE(BgL_auxz00_6190,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 374 */
 obj_t BgL_tmpz00_6194;
if(
INTEGERP(BgL_g1101z00_5768))
{ /* Ieee/string.scm 374 */
BgL_tmpz00_6194 = BgL_g1101z00_5768
; }  else 
{ 
 obj_t BgL_auxz00_6197;
BgL_auxz00_6197 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_g1101z00_5768); 
FAILURE(BgL_auxz00_6197,BFALSE,BFALSE);} 
BgL_offz00_5774 = 
(long)CINT(BgL_tmpz00_6194); } 
return 
BBOOL(
bigloo_strcmp_at(BgL_string1z00_5772, BgL_string2z00_5773, BgL_offz00_5774));} } break;case 4L : 

{ /* Ieee/string.scm 374 */
 obj_t BgL_lenz00_5775;
{ 
 obj_t BgL_auxz00_6204;
if(
VECTORP(BgL_opt1097z00_30))
{ /* Ieee/string.scm 374 */
BgL_auxz00_6204 = BgL_opt1097z00_30
; }  else 
{ 
 obj_t BgL_auxz00_6207;
BgL_auxz00_6207 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1097z00_30); 
FAILURE(BgL_auxz00_6207,BFALSE,BFALSE);} 
BgL_lenz00_5775 = 
VECTOR_REF(BgL_auxz00_6204,3L); } 
{ /* Ieee/string.scm 374 */

{ /* Ieee/string.scm 374 */
 obj_t BgL_string1z00_5776; obj_t BgL_string2z00_5777; long BgL_offz00_5778;
if(
STRINGP(BgL_g1099z00_5766))
{ /* Ieee/string.scm 374 */
BgL_string1z00_5776 = BgL_g1099z00_5766; }  else 
{ 
 obj_t BgL_auxz00_6214;
BgL_auxz00_6214 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1099z00_5766); 
FAILURE(BgL_auxz00_6214,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1100z00_5767))
{ /* Ieee/string.scm 374 */
BgL_string2z00_5777 = BgL_g1100z00_5767; }  else 
{ 
 obj_t BgL_auxz00_6220;
BgL_auxz00_6220 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1100z00_5767); 
FAILURE(BgL_auxz00_6220,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 374 */
 obj_t BgL_tmpz00_6224;
if(
INTEGERP(BgL_g1101z00_5768))
{ /* Ieee/string.scm 374 */
BgL_tmpz00_6224 = BgL_g1101z00_5768
; }  else 
{ 
 obj_t BgL_auxz00_6227;
BgL_auxz00_6227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_g1101z00_5768); 
FAILURE(BgL_auxz00_6227,BFALSE,BFALSE);} 
BgL_offz00_5778 = 
(long)CINT(BgL_tmpz00_6224); } 
{ /* Ieee/string.scm 375 */
 bool_t BgL_test4287z00_6232;
{ /* Ieee/string.scm 375 */
 long BgL_n1z00_5779;
{ /* Ieee/string.scm 375 */
 obj_t BgL_tmpz00_6233;
if(
INTEGERP(BgL_lenz00_5775))
{ /* Ieee/string.scm 375 */
BgL_tmpz00_6233 = BgL_lenz00_5775
; }  else 
{ 
 obj_t BgL_auxz00_6236;
BgL_auxz00_6236 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18291L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lenz00_5775); 
FAILURE(BgL_auxz00_6236,BFALSE,BFALSE);} 
BgL_n1z00_5779 = 
(long)CINT(BgL_tmpz00_6233); } 
BgL_test4287z00_6232 = 
(BgL_n1z00_5779==(-1L)); } 
if(BgL_test4287z00_6232)
{ /* Ieee/string.scm 375 */
return 
BBOOL(
bigloo_strcmp_at(BgL_string1z00_5776, BgL_string2z00_5777, BgL_offz00_5778));}  else 
{ /* Ieee/string.scm 377 */
 bool_t BgL_tmpz00_6244;
{ /* Ieee/string.scm 377 */
 long BgL_tmpz00_6245;
{ /* Ieee/string.scm 377 */
 obj_t BgL_tmpz00_6246;
if(
INTEGERP(BgL_lenz00_5775))
{ /* Ieee/string.scm 377 */
BgL_tmpz00_6246 = BgL_lenz00_5775
; }  else 
{ 
 obj_t BgL_auxz00_6249;
BgL_auxz00_6249 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18383L), BGl_string3786z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lenz00_5775); 
FAILURE(BgL_auxz00_6249,BFALSE,BFALSE);} 
BgL_tmpz00_6245 = 
(long)CINT(BgL_tmpz00_6246); } 
BgL_tmpz00_6244 = 
bigloo_strncmp_at(BgL_string1z00_5776, BgL_string2z00_5777, BgL_offz00_5778, BgL_tmpz00_6245); } 
return 
BBOOL(BgL_tmpz00_6244);} } } } } break;
default: 
{ /* Ieee/string.scm 374 */
 long BgL_arg1232z00_5770;
{ 
 obj_t BgL_auxz00_6256;
if(
VECTORP(BgL_opt1097z00_30))
{ /* Ieee/string.scm 374 */
BgL_auxz00_6256 = BgL_opt1097z00_30
; }  else 
{ 
 obj_t BgL_auxz00_6259;
BgL_auxz00_6259 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18208L), BGl_string3787z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1097z00_30); 
FAILURE(BgL_auxz00_6259,BFALSE,BFALSE);} 
BgL_arg1232z00_5770 = 
VECTOR_LENGTH(BgL_auxz00_6256); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3788z00zz__r4_strings_6_7z00, BGl_string3790z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1232z00_5770));} } } } } } 

}



/* substring-at? */
BGL_EXPORTED_DEF bool_t BGl_substringzd2atzf3z21zz__r4_strings_6_7z00(obj_t BgL_string1z00_26, obj_t BgL_string2z00_27, long BgL_offz00_28, obj_t BgL_lenz00_29)
{
{ /* Ieee/string.scm 374 */
{ /* Ieee/string.scm 375 */
 bool_t BgL_test4291z00_6267;
{ /* Ieee/string.scm 375 */
 long BgL_n1z00_5780;
{ /* Ieee/string.scm 375 */
 obj_t BgL_tmpz00_6268;
if(
INTEGERP(BgL_lenz00_29))
{ /* Ieee/string.scm 375 */
BgL_tmpz00_6268 = BgL_lenz00_29
; }  else 
{ 
 obj_t BgL_auxz00_6271;
BgL_auxz00_6271 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18291L), BGl_string3789z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lenz00_29); 
FAILURE(BgL_auxz00_6271,BFALSE,BFALSE);} 
BgL_n1z00_5780 = 
(long)CINT(BgL_tmpz00_6268); } 
BgL_test4291z00_6267 = 
(BgL_n1z00_5780==(-1L)); } 
if(BgL_test4291z00_6267)
{ /* Ieee/string.scm 375 */
return 
bigloo_strcmp_at(BgL_string1z00_26, BgL_string2z00_27, BgL_offz00_28);}  else 
{ /* Ieee/string.scm 377 */
 long BgL_tmpz00_6278;
{ /* Ieee/string.scm 377 */
 obj_t BgL_tmpz00_6279;
if(
INTEGERP(BgL_lenz00_29))
{ /* Ieee/string.scm 377 */
BgL_tmpz00_6279 = BgL_lenz00_29
; }  else 
{ 
 obj_t BgL_auxz00_6282;
BgL_auxz00_6282 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18383L), BGl_string3789z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lenz00_29); 
FAILURE(BgL_auxz00_6282,BFALSE,BFALSE);} 
BgL_tmpz00_6278 = 
(long)CINT(BgL_tmpz00_6279); } 
return 
bigloo_strncmp_at(BgL_string1z00_26, BgL_string2z00_27, BgL_offz00_28, BgL_tmpz00_6278);} } } 

}



/* substring-ci=? */
BGL_EXPORTED_DEF bool_t BGl_substringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t BgL_string1z00_32, obj_t BgL_string2z00_33, long BgL_lenz00_34)
{
{ /* Ieee/string.scm 382 */
BGL_TAIL return 
bigloo_strncmp_ci(BgL_string1z00_32, BgL_string2z00_33, BgL_lenz00_34);} 

}



/* &substring-ci=? */
obj_t BGl_z62substringzd2cizd3zf3z90zz__r4_strings_6_7z00(obj_t BgL_envz00_4072, obj_t BgL_string1z00_4073, obj_t BgL_string2z00_4074, obj_t BgL_lenz00_4075)
{
{ /* Ieee/string.scm 382 */
{ /* Ieee/string.scm 383 */
 bool_t BgL_tmpz00_6289;
{ /* Ieee/string.scm 383 */
 long BgL_auxz00_6304; obj_t BgL_auxz00_6297; obj_t BgL_auxz00_6290;
{ /* Ieee/string.scm 383 */
 obj_t BgL_tmpz00_6305;
if(
INTEGERP(BgL_lenz00_4075))
{ /* Ieee/string.scm 383 */
BgL_tmpz00_6305 = BgL_lenz00_4075
; }  else 
{ 
 obj_t BgL_auxz00_6308;
BgL_auxz00_6308 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18668L), BGl_string3791z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lenz00_4075); 
FAILURE(BgL_auxz00_6308,BFALSE,BFALSE);} 
BgL_auxz00_6304 = 
(long)CINT(BgL_tmpz00_6305); } 
if(
STRINGP(BgL_string2z00_4074))
{ /* Ieee/string.scm 383 */
BgL_auxz00_6297 = BgL_string2z00_4074
; }  else 
{ 
 obj_t BgL_auxz00_6300;
BgL_auxz00_6300 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18668L), BGl_string3791z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4074); 
FAILURE(BgL_auxz00_6300,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4073))
{ /* Ieee/string.scm 383 */
BgL_auxz00_6290 = BgL_string1z00_4073
; }  else 
{ 
 obj_t BgL_auxz00_6293;
BgL_auxz00_6293 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18668L), BGl_string3791z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4073); 
FAILURE(BgL_auxz00_6293,BFALSE,BFALSE);} 
BgL_tmpz00_6289 = 
BGl_substringzd2cizd3zf3zf2zz__r4_strings_6_7z00(BgL_auxz00_6290, BgL_auxz00_6297, BgL_auxz00_6304); } 
return 
BBOOL(BgL_tmpz00_6289);} } 

}



/* _substring-ci-at? */
obj_t BGl__substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00(obj_t BgL_env1105z00_40, obj_t BgL_opt1104z00_39)
{
{ /* Ieee/string.scm 388 */
{ /* Ieee/string.scm 388 */
 obj_t BgL_g1106z00_5781; obj_t BgL_g1107z00_5782; obj_t BgL_g1108z00_5783;
{ 
 obj_t BgL_auxz00_6315;
if(
VECTORP(BgL_opt1104z00_39))
{ /* Ieee/string.scm 388 */
BgL_auxz00_6315 = BgL_opt1104z00_39
; }  else 
{ 
 obj_t BgL_auxz00_6318;
BgL_auxz00_6318 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1104z00_39); 
FAILURE(BgL_auxz00_6318,BFALSE,BFALSE);} 
BgL_g1106z00_5781 = 
VECTOR_REF(BgL_auxz00_6315,0L); } 
{ 
 obj_t BgL_auxz00_6323;
if(
VECTORP(BgL_opt1104z00_39))
{ /* Ieee/string.scm 388 */
BgL_auxz00_6323 = BgL_opt1104z00_39
; }  else 
{ 
 obj_t BgL_auxz00_6326;
BgL_auxz00_6326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1104z00_39); 
FAILURE(BgL_auxz00_6326,BFALSE,BFALSE);} 
BgL_g1107z00_5782 = 
VECTOR_REF(BgL_auxz00_6323,1L); } 
{ 
 obj_t BgL_auxz00_6331;
if(
VECTORP(BgL_opt1104z00_39))
{ /* Ieee/string.scm 388 */
BgL_auxz00_6331 = BgL_opt1104z00_39
; }  else 
{ 
 obj_t BgL_auxz00_6334;
BgL_auxz00_6334 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1104z00_39); 
FAILURE(BgL_auxz00_6334,BFALSE,BFALSE);} 
BgL_g1108z00_5783 = 
VECTOR_REF(BgL_auxz00_6331,2L); } 
{ 

{ /* Ieee/string.scm 388 */
 long BgL_aux1110z00_5786;
{ 
 obj_t BgL_auxz00_6339;
if(
VECTORP(BgL_opt1104z00_39))
{ /* Ieee/string.scm 388 */
BgL_auxz00_6339 = BgL_opt1104z00_39
; }  else 
{ 
 obj_t BgL_auxz00_6342;
BgL_auxz00_6342 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1104z00_39); 
FAILURE(BgL_auxz00_6342,BFALSE,BFALSE);} 
BgL_aux1110z00_5786 = 
VECTOR_LENGTH(BgL_auxz00_6339); } 
switch( BgL_aux1110z00_5786) { case 3L : 

{ /* Ieee/string.scm 388 */

{ /* Ieee/string.scm 388 */
 obj_t BgL_string1z00_5787; obj_t BgL_string2z00_5788; long BgL_offz00_5789;
if(
STRINGP(BgL_g1106z00_5781))
{ /* Ieee/string.scm 388 */
BgL_string1z00_5787 = BgL_g1106z00_5781; }  else 
{ 
 obj_t BgL_auxz00_6349;
BgL_auxz00_6349 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1106z00_5781); 
FAILURE(BgL_auxz00_6349,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1107z00_5782))
{ /* Ieee/string.scm 388 */
BgL_string2z00_5788 = BgL_g1107z00_5782; }  else 
{ 
 obj_t BgL_auxz00_6355;
BgL_auxz00_6355 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1107z00_5782); 
FAILURE(BgL_auxz00_6355,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 388 */
 obj_t BgL_tmpz00_6359;
if(
INTEGERP(BgL_g1108z00_5783))
{ /* Ieee/string.scm 388 */
BgL_tmpz00_6359 = BgL_g1108z00_5783
; }  else 
{ 
 obj_t BgL_auxz00_6362;
BgL_auxz00_6362 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_g1108z00_5783); 
FAILURE(BgL_auxz00_6362,BFALSE,BFALSE);} 
BgL_offz00_5789 = 
(long)CINT(BgL_tmpz00_6359); } 
return 
BBOOL(
bigloo_strcmp_ci_at(BgL_string1z00_5787, BgL_string2z00_5788, BgL_offz00_5789));} } break;case 4L : 

{ /* Ieee/string.scm 388 */
 obj_t BgL_lenz00_5790;
{ 
 obj_t BgL_auxz00_6369;
if(
VECTORP(BgL_opt1104z00_39))
{ /* Ieee/string.scm 388 */
BgL_auxz00_6369 = BgL_opt1104z00_39
; }  else 
{ 
 obj_t BgL_auxz00_6372;
BgL_auxz00_6372 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1104z00_39); 
FAILURE(BgL_auxz00_6372,BFALSE,BFALSE);} 
BgL_lenz00_5790 = 
VECTOR_REF(BgL_auxz00_6369,3L); } 
{ /* Ieee/string.scm 388 */

{ /* Ieee/string.scm 388 */
 obj_t BgL_string1z00_5791; obj_t BgL_string2z00_5792; long BgL_offz00_5793;
if(
STRINGP(BgL_g1106z00_5781))
{ /* Ieee/string.scm 388 */
BgL_string1z00_5791 = BgL_g1106z00_5781; }  else 
{ 
 obj_t BgL_auxz00_6379;
BgL_auxz00_6379 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1106z00_5781); 
FAILURE(BgL_auxz00_6379,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1107z00_5782))
{ /* Ieee/string.scm 388 */
BgL_string2z00_5792 = BgL_g1107z00_5782; }  else 
{ 
 obj_t BgL_auxz00_6385;
BgL_auxz00_6385 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1107z00_5782); 
FAILURE(BgL_auxz00_6385,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 388 */
 obj_t BgL_tmpz00_6389;
if(
INTEGERP(BgL_g1108z00_5783))
{ /* Ieee/string.scm 388 */
BgL_tmpz00_6389 = BgL_g1108z00_5783
; }  else 
{ 
 obj_t BgL_auxz00_6392;
BgL_auxz00_6392 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_g1108z00_5783); 
FAILURE(BgL_auxz00_6392,BFALSE,BFALSE);} 
BgL_offz00_5793 = 
(long)CINT(BgL_tmpz00_6389); } 
{ /* Ieee/string.scm 389 */
 bool_t BgL_test4308z00_6397;
{ /* Ieee/string.scm 389 */
 long BgL_n1z00_5794;
{ /* Ieee/string.scm 389 */
 obj_t BgL_tmpz00_6398;
if(
INTEGERP(BgL_lenz00_5790))
{ /* Ieee/string.scm 389 */
BgL_tmpz00_6398 = BgL_lenz00_5790
; }  else 
{ 
 obj_t BgL_auxz00_6401;
BgL_auxz00_6401 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(19016L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lenz00_5790); 
FAILURE(BgL_auxz00_6401,BFALSE,BFALSE);} 
BgL_n1z00_5794 = 
(long)CINT(BgL_tmpz00_6398); } 
BgL_test4308z00_6397 = 
(BgL_n1z00_5794==(-1L)); } 
if(BgL_test4308z00_6397)
{ /* Ieee/string.scm 389 */
return 
BBOOL(
bigloo_strcmp_ci_at(BgL_string1z00_5791, BgL_string2z00_5792, BgL_offz00_5793));}  else 
{ /* Ieee/string.scm 391 */
 bool_t BgL_tmpz00_6409;
{ /* Ieee/string.scm 391 */
 long BgL_tmpz00_6410;
{ /* Ieee/string.scm 391 */
 obj_t BgL_tmpz00_6411;
if(
INTEGERP(BgL_lenz00_5790))
{ /* Ieee/string.scm 391 */
BgL_tmpz00_6411 = BgL_lenz00_5790
; }  else 
{ 
 obj_t BgL_auxz00_6414;
BgL_auxz00_6414 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(19108L), BGl_string3792z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lenz00_5790); 
FAILURE(BgL_auxz00_6414,BFALSE,BFALSE);} 
BgL_tmpz00_6410 = 
(long)CINT(BgL_tmpz00_6411); } 
BgL_tmpz00_6409 = 
bigloo_strncmp_ci_at(BgL_string1z00_5791, BgL_string2z00_5792, BgL_offz00_5793, BgL_tmpz00_6410); } 
return 
BBOOL(BgL_tmpz00_6409);} } } } } break;
default: 
{ /* Ieee/string.scm 388 */
 long BgL_arg1234z00_5785;
{ 
 obj_t BgL_auxz00_6421;
if(
VECTORP(BgL_opt1104z00_39))
{ /* Ieee/string.scm 388 */
BgL_auxz00_6421 = BgL_opt1104z00_39
; }  else 
{ 
 obj_t BgL_auxz00_6424;
BgL_auxz00_6424 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(18930L), BGl_string3793z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1104z00_39); 
FAILURE(BgL_auxz00_6424,BFALSE,BFALSE);} 
BgL_arg1234z00_5785 = 
VECTOR_LENGTH(BgL_auxz00_6421); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3794z00zz__r4_strings_6_7z00, BGl_string3790z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1234z00_5785));} } } } } } 

}



/* substring-ci-at? */
BGL_EXPORTED_DEF bool_t BGl_substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00(obj_t BgL_string1z00_35, obj_t BgL_string2z00_36, long BgL_offz00_37, obj_t BgL_lenz00_38)
{
{ /* Ieee/string.scm 388 */
{ /* Ieee/string.scm 389 */
 bool_t BgL_test4312z00_6432;
{ /* Ieee/string.scm 389 */
 long BgL_n1z00_5795;
{ /* Ieee/string.scm 389 */
 obj_t BgL_tmpz00_6433;
if(
INTEGERP(BgL_lenz00_38))
{ /* Ieee/string.scm 389 */
BgL_tmpz00_6433 = BgL_lenz00_38
; }  else 
{ 
 obj_t BgL_auxz00_6436;
BgL_auxz00_6436 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(19016L), BGl_string3795z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lenz00_38); 
FAILURE(BgL_auxz00_6436,BFALSE,BFALSE);} 
BgL_n1z00_5795 = 
(long)CINT(BgL_tmpz00_6433); } 
BgL_test4312z00_6432 = 
(BgL_n1z00_5795==(-1L)); } 
if(BgL_test4312z00_6432)
{ /* Ieee/string.scm 389 */
return 
bigloo_strcmp_ci_at(BgL_string1z00_35, BgL_string2z00_36, BgL_offz00_37);}  else 
{ /* Ieee/string.scm 391 */
 long BgL_tmpz00_6443;
{ /* Ieee/string.scm 391 */
 obj_t BgL_tmpz00_6444;
if(
INTEGERP(BgL_lenz00_38))
{ /* Ieee/string.scm 391 */
BgL_tmpz00_6444 = BgL_lenz00_38
; }  else 
{ 
 obj_t BgL_auxz00_6447;
BgL_auxz00_6447 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(19108L), BGl_string3795z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lenz00_38); 
FAILURE(BgL_auxz00_6447,BFALSE,BFALSE);} 
BgL_tmpz00_6443 = 
(long)CINT(BgL_tmpz00_6444); } 
return 
bigloo_strncmp_ci_at(BgL_string1z00_35, BgL_string2z00_36, BgL_offz00_37, BgL_tmpz00_6443);} } } 

}



/* empty-string? */
BGL_EXPORTED_DEF bool_t BGl_emptyzd2stringzf3z21zz__r4_strings_6_7z00(obj_t BgL_stringz00_41)
{
{ /* Ieee/string.scm 396 */
return 
(
STRING_LENGTH(BgL_stringz00_41)==0L);} 

}



/* &empty-string? */
obj_t BGl_z62emptyzd2stringzf3z43zz__r4_strings_6_7z00(obj_t BgL_envz00_4076, obj_t BgL_stringz00_4077)
{
{ /* Ieee/string.scm 396 */
{ /* Ieee/string.scm 397 */
 bool_t BgL_tmpz00_6455;
{ /* Ieee/string.scm 397 */
 obj_t BgL_auxz00_6456;
if(
STRINGP(BgL_stringz00_4077))
{ /* Ieee/string.scm 397 */
BgL_auxz00_6456 = BgL_stringz00_4077
; }  else 
{ 
 obj_t BgL_auxz00_6459;
BgL_auxz00_6459 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(19384L), BGl_string3796z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4077); 
FAILURE(BgL_auxz00_6459,BFALSE,BFALSE);} 
BgL_tmpz00_6455 = 
BGl_emptyzd2stringzf3z21zz__r4_strings_6_7z00(BgL_auxz00_6456); } 
return 
BBOOL(BgL_tmpz00_6455);} } 

}



/* string-ci=? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t BgL_string1z00_42, obj_t BgL_string2z00_43)
{
{ /* Ieee/string.scm 402 */
BGL_TAIL return 
bigloo_strcicmp(BgL_string1z00_42, BgL_string2z00_43);} 

}



/* &string-ci=? */
obj_t BGl_z62stringzd2cizd3zf3z90zz__r4_strings_6_7z00(obj_t BgL_envz00_4078, obj_t BgL_string1z00_4079, obj_t BgL_string2z00_4080)
{
{ /* Ieee/string.scm 402 */
{ /* Ieee/string.scm 403 */
 bool_t BgL_tmpz00_6466;
{ /* Ieee/string.scm 403 */
 obj_t BgL_auxz00_6474; obj_t BgL_auxz00_6467;
if(
STRINGP(BgL_string2z00_4080))
{ /* Ieee/string.scm 403 */
BgL_auxz00_6474 = BgL_string2z00_4080
; }  else 
{ 
 obj_t BgL_auxz00_6477;
BgL_auxz00_6477 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(19682L), BGl_string3797z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4080); 
FAILURE(BgL_auxz00_6477,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4079))
{ /* Ieee/string.scm 403 */
BgL_auxz00_6467 = BgL_string1z00_4079
; }  else 
{ 
 obj_t BgL_auxz00_6470;
BgL_auxz00_6470 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(19682L), BGl_string3797z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4079); 
FAILURE(BgL_auxz00_6470,BFALSE,BFALSE);} 
BgL_tmpz00_6466 = 
BGl_stringzd2cizd3zf3zf2zz__r4_strings_6_7z00(BgL_auxz00_6467, BgL_auxz00_6474); } 
return 
BBOOL(BgL_tmpz00_6466);} } 

}



/* string<? */
BGL_EXPORTED_DEF bool_t BGl_stringzc3zf3z30zz__r4_strings_6_7z00(obj_t BgL_string1z00_44, obj_t BgL_string2z00_45)
{
{ /* Ieee/string.scm 408 */
BGL_TAIL return 
bigloo_string_lt(BgL_string1z00_44, BgL_string2z00_45);} 

}



/* &string<? */
obj_t BGl_z62stringzc3zf3z52zz__r4_strings_6_7z00(obj_t BgL_envz00_4081, obj_t BgL_string1z00_4082, obj_t BgL_string2z00_4083)
{
{ /* Ieee/string.scm 408 */
{ /* Ieee/string.scm 409 */
 bool_t BgL_tmpz00_6484;
{ /* Ieee/string.scm 409 */
 obj_t BgL_auxz00_6492; obj_t BgL_auxz00_6485;
if(
STRINGP(BgL_string2z00_4083))
{ /* Ieee/string.scm 409 */
BgL_auxz00_6492 = BgL_string2z00_4083
; }  else 
{ 
 obj_t BgL_auxz00_6495;
BgL_auxz00_6495 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(19979L), BGl_string3798z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4083); 
FAILURE(BgL_auxz00_6495,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4082))
{ /* Ieee/string.scm 409 */
BgL_auxz00_6485 = BgL_string1z00_4082
; }  else 
{ 
 obj_t BgL_auxz00_6488;
BgL_auxz00_6488 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(19979L), BGl_string3798z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4082); 
FAILURE(BgL_auxz00_6488,BFALSE,BFALSE);} 
BgL_tmpz00_6484 = 
BGl_stringzc3zf3z30zz__r4_strings_6_7z00(BgL_auxz00_6485, BgL_auxz00_6492); } 
return 
BBOOL(BgL_tmpz00_6484);} } 

}



/* string>? */
BGL_EXPORTED_DEF bool_t BGl_stringze3zf3z10zz__r4_strings_6_7z00(obj_t BgL_string1z00_46, obj_t BgL_string2z00_47)
{
{ /* Ieee/string.scm 414 */
BGL_TAIL return 
bigloo_string_gt(BgL_string1z00_46, BgL_string2z00_47);} 

}



/* &string>? */
obj_t BGl_z62stringze3zf3z72zz__r4_strings_6_7z00(obj_t BgL_envz00_4084, obj_t BgL_string1z00_4085, obj_t BgL_string2z00_4086)
{
{ /* Ieee/string.scm 414 */
{ /* Ieee/string.scm 415 */
 bool_t BgL_tmpz00_6502;
{ /* Ieee/string.scm 415 */
 obj_t BgL_auxz00_6510; obj_t BgL_auxz00_6503;
if(
STRINGP(BgL_string2z00_4086))
{ /* Ieee/string.scm 415 */
BgL_auxz00_6510 = BgL_string2z00_4086
; }  else 
{ 
 obj_t BgL_auxz00_6513;
BgL_auxz00_6513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(20277L), BGl_string3799z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4086); 
FAILURE(BgL_auxz00_6513,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4085))
{ /* Ieee/string.scm 415 */
BgL_auxz00_6503 = BgL_string1z00_4085
; }  else 
{ 
 obj_t BgL_auxz00_6506;
BgL_auxz00_6506 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(20277L), BGl_string3799z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4085); 
FAILURE(BgL_auxz00_6506,BFALSE,BFALSE);} 
BgL_tmpz00_6502 = 
BGl_stringze3zf3z10zz__r4_strings_6_7z00(BgL_auxz00_6503, BgL_auxz00_6510); } 
return 
BBOOL(BgL_tmpz00_6502);} } 

}



/* string<=? */
BGL_EXPORTED_DEF bool_t BGl_stringzc3zd3zf3ze3zz__r4_strings_6_7z00(obj_t BgL_string1z00_48, obj_t BgL_string2z00_49)
{
{ /* Ieee/string.scm 420 */
BGL_TAIL return 
bigloo_string_le(BgL_string1z00_48, BgL_string2z00_49);} 

}



/* &string<=? */
obj_t BGl_z62stringzc3zd3zf3z81zz__r4_strings_6_7z00(obj_t BgL_envz00_4087, obj_t BgL_string1z00_4088, obj_t BgL_string2z00_4089)
{
{ /* Ieee/string.scm 420 */
{ /* Ieee/string.scm 421 */
 bool_t BgL_tmpz00_6520;
{ /* Ieee/string.scm 421 */
 obj_t BgL_auxz00_6528; obj_t BgL_auxz00_6521;
if(
STRINGP(BgL_string2z00_4089))
{ /* Ieee/string.scm 421 */
BgL_auxz00_6528 = BgL_string2z00_4089
; }  else 
{ 
 obj_t BgL_auxz00_6531;
BgL_auxz00_6531 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(20576L), BGl_string3800z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4089); 
FAILURE(BgL_auxz00_6531,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4088))
{ /* Ieee/string.scm 421 */
BgL_auxz00_6521 = BgL_string1z00_4088
; }  else 
{ 
 obj_t BgL_auxz00_6524;
BgL_auxz00_6524 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(20576L), BGl_string3800z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4088); 
FAILURE(BgL_auxz00_6524,BFALSE,BFALSE);} 
BgL_tmpz00_6520 = 
BGl_stringzc3zd3zf3ze3zz__r4_strings_6_7z00(BgL_auxz00_6521, BgL_auxz00_6528); } 
return 
BBOOL(BgL_tmpz00_6520);} } 

}



/* string>=? */
BGL_EXPORTED_DEF bool_t BGl_stringze3zd3zf3zc3zz__r4_strings_6_7z00(obj_t BgL_string1z00_50, obj_t BgL_string2z00_51)
{
{ /* Ieee/string.scm 426 */
BGL_TAIL return 
bigloo_string_ge(BgL_string1z00_50, BgL_string2z00_51);} 

}



/* &string>=? */
obj_t BGl_z62stringze3zd3zf3za1zz__r4_strings_6_7z00(obj_t BgL_envz00_4090, obj_t BgL_string1z00_4091, obj_t BgL_string2z00_4092)
{
{ /* Ieee/string.scm 426 */
{ /* Ieee/string.scm 427 */
 bool_t BgL_tmpz00_6538;
{ /* Ieee/string.scm 427 */
 obj_t BgL_auxz00_6546; obj_t BgL_auxz00_6539;
if(
STRINGP(BgL_string2z00_4092))
{ /* Ieee/string.scm 427 */
BgL_auxz00_6546 = BgL_string2z00_4092
; }  else 
{ 
 obj_t BgL_auxz00_6549;
BgL_auxz00_6549 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(20875L), BGl_string3801z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4092); 
FAILURE(BgL_auxz00_6549,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4091))
{ /* Ieee/string.scm 427 */
BgL_auxz00_6539 = BgL_string1z00_4091
; }  else 
{ 
 obj_t BgL_auxz00_6542;
BgL_auxz00_6542 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(20875L), BGl_string3801z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4091); 
FAILURE(BgL_auxz00_6542,BFALSE,BFALSE);} 
BgL_tmpz00_6538 = 
BGl_stringze3zd3zf3zc3zz__r4_strings_6_7z00(BgL_auxz00_6539, BgL_auxz00_6546); } 
return 
BBOOL(BgL_tmpz00_6538);} } 

}



/* string-ci<? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2cizc3zf3ze2zz__r4_strings_6_7z00(obj_t BgL_string1z00_52, obj_t BgL_string2z00_53)
{
{ /* Ieee/string.scm 432 */
BGL_TAIL return 
bigloo_string_cilt(BgL_string1z00_52, BgL_string2z00_53);} 

}



/* &string-ci<? */
obj_t BGl_z62stringzd2cizc3zf3z80zz__r4_strings_6_7z00(obj_t BgL_envz00_4093, obj_t BgL_string1z00_4094, obj_t BgL_string2z00_4095)
{
{ /* Ieee/string.scm 432 */
{ /* Ieee/string.scm 433 */
 bool_t BgL_tmpz00_6556;
{ /* Ieee/string.scm 433 */
 obj_t BgL_auxz00_6564; obj_t BgL_auxz00_6557;
if(
STRINGP(BgL_string2z00_4095))
{ /* Ieee/string.scm 433 */
BgL_auxz00_6564 = BgL_string2z00_4095
; }  else 
{ 
 obj_t BgL_auxz00_6567;
BgL_auxz00_6567 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(21176L), BGl_string3802z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4095); 
FAILURE(BgL_auxz00_6567,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4094))
{ /* Ieee/string.scm 433 */
BgL_auxz00_6557 = BgL_string1z00_4094
; }  else 
{ 
 obj_t BgL_auxz00_6560;
BgL_auxz00_6560 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(21176L), BGl_string3802z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4094); 
FAILURE(BgL_auxz00_6560,BFALSE,BFALSE);} 
BgL_tmpz00_6556 = 
BGl_stringzd2cizc3zf3ze2zz__r4_strings_6_7z00(BgL_auxz00_6557, BgL_auxz00_6564); } 
return 
BBOOL(BgL_tmpz00_6556);} } 

}



/* string-ci>? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2cize3zf3zc2zz__r4_strings_6_7z00(obj_t BgL_string1z00_54, obj_t BgL_string2z00_55)
{
{ /* Ieee/string.scm 438 */
BGL_TAIL return 
bigloo_string_cigt(BgL_string1z00_54, BgL_string2z00_55);} 

}



/* &string-ci>? */
obj_t BGl_z62stringzd2cize3zf3za0zz__r4_strings_6_7z00(obj_t BgL_envz00_4096, obj_t BgL_string1z00_4097, obj_t BgL_string2z00_4098)
{
{ /* Ieee/string.scm 438 */
{ /* Ieee/string.scm 439 */
 bool_t BgL_tmpz00_6574;
{ /* Ieee/string.scm 439 */
 obj_t BgL_auxz00_6582; obj_t BgL_auxz00_6575;
if(
STRINGP(BgL_string2z00_4098))
{ /* Ieee/string.scm 439 */
BgL_auxz00_6582 = BgL_string2z00_4098
; }  else 
{ 
 obj_t BgL_auxz00_6585;
BgL_auxz00_6585 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(21479L), BGl_string3803z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4098); 
FAILURE(BgL_auxz00_6585,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4097))
{ /* Ieee/string.scm 439 */
BgL_auxz00_6575 = BgL_string1z00_4097
; }  else 
{ 
 obj_t BgL_auxz00_6578;
BgL_auxz00_6578 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(21479L), BGl_string3803z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4097); 
FAILURE(BgL_auxz00_6578,BFALSE,BFALSE);} 
BgL_tmpz00_6574 = 
BGl_stringzd2cize3zf3zc2zz__r4_strings_6_7z00(BgL_auxz00_6575, BgL_auxz00_6582); } 
return 
BBOOL(BgL_tmpz00_6574);} } 

}



/* string-ci<=? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2cizc3zd3zf3z31zz__r4_strings_6_7z00(obj_t BgL_string1z00_56, obj_t BgL_string2z00_57)
{
{ /* Ieee/string.scm 444 */
BGL_TAIL return 
bigloo_string_cile(BgL_string1z00_56, BgL_string2z00_57);} 

}



/* &string-ci<=? */
obj_t BGl_z62stringzd2cizc3zd3zf3z53zz__r4_strings_6_7z00(obj_t BgL_envz00_4099, obj_t BgL_string1z00_4100, obj_t BgL_string2z00_4101)
{
{ /* Ieee/string.scm 444 */
{ /* Ieee/string.scm 445 */
 bool_t BgL_tmpz00_6592;
{ /* Ieee/string.scm 445 */
 obj_t BgL_auxz00_6600; obj_t BgL_auxz00_6593;
if(
STRINGP(BgL_string2z00_4101))
{ /* Ieee/string.scm 445 */
BgL_auxz00_6600 = BgL_string2z00_4101
; }  else 
{ 
 obj_t BgL_auxz00_6603;
BgL_auxz00_6603 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(21783L), BGl_string3804z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4101); 
FAILURE(BgL_auxz00_6603,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4100))
{ /* Ieee/string.scm 445 */
BgL_auxz00_6593 = BgL_string1z00_4100
; }  else 
{ 
 obj_t BgL_auxz00_6596;
BgL_auxz00_6596 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(21783L), BGl_string3804z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4100); 
FAILURE(BgL_auxz00_6596,BFALSE,BFALSE);} 
BgL_tmpz00_6592 = 
BGl_stringzd2cizc3zd3zf3z31zz__r4_strings_6_7z00(BgL_auxz00_6593, BgL_auxz00_6600); } 
return 
BBOOL(BgL_tmpz00_6592);} } 

}



/* string-ci>=? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2cize3zd3zf3z11zz__r4_strings_6_7z00(obj_t BgL_string1z00_58, obj_t BgL_string2z00_59)
{
{ /* Ieee/string.scm 450 */
BGL_TAIL return 
bigloo_string_cige(BgL_string1z00_58, BgL_string2z00_59);} 

}



/* &string-ci>=? */
obj_t BGl_z62stringzd2cize3zd3zf3z73zz__r4_strings_6_7z00(obj_t BgL_envz00_4102, obj_t BgL_string1z00_4103, obj_t BgL_string2z00_4104)
{
{ /* Ieee/string.scm 450 */
{ /* Ieee/string.scm 451 */
 bool_t BgL_tmpz00_6610;
{ /* Ieee/string.scm 451 */
 obj_t BgL_auxz00_6618; obj_t BgL_auxz00_6611;
if(
STRINGP(BgL_string2z00_4104))
{ /* Ieee/string.scm 451 */
BgL_auxz00_6618 = BgL_string2z00_4104
; }  else 
{ 
 obj_t BgL_auxz00_6621;
BgL_auxz00_6621 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22087L), BGl_string3805z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string2z00_4104); 
FAILURE(BgL_auxz00_6621,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4103))
{ /* Ieee/string.scm 451 */
BgL_auxz00_6611 = BgL_string1z00_4103
; }  else 
{ 
 obj_t BgL_auxz00_6614;
BgL_auxz00_6614 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22087L), BGl_string3805z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_string1z00_4103); 
FAILURE(BgL_auxz00_6614,BFALSE,BFALSE);} 
BgL_tmpz00_6610 = 
BGl_stringzd2cize3zd3zf3z11zz__r4_strings_6_7z00(BgL_auxz00_6611, BgL_auxz00_6618); } 
return 
BBOOL(BgL_tmpz00_6610);} } 

}



/* _substring */
obj_t BGl__substringz00zz__r4_strings_6_7z00(obj_t BgL_env1112z00_64, obj_t BgL_opt1111z00_63)
{
{ /* Ieee/string.scm 456 */
{ /* Ieee/string.scm 456 */
 obj_t BgL_stringz00_973; obj_t BgL_g1113z00_974;
{ 
 obj_t BgL_auxz00_6627;
if(
VECTORP(BgL_opt1111z00_63))
{ /* Ieee/string.scm 456 */
BgL_auxz00_6627 = BgL_opt1111z00_63
; }  else 
{ 
 obj_t BgL_auxz00_6630;
BgL_auxz00_6630 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22342L), BGl_string3806z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1111z00_63); 
FAILURE(BgL_auxz00_6630,BFALSE,BFALSE);} 
BgL_stringz00_973 = 
VECTOR_REF(BgL_auxz00_6627,0L); } 
{ 
 obj_t BgL_auxz00_6635;
if(
VECTORP(BgL_opt1111z00_63))
{ /* Ieee/string.scm 456 */
BgL_auxz00_6635 = BgL_opt1111z00_63
; }  else 
{ 
 obj_t BgL_auxz00_6638;
BgL_auxz00_6638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22342L), BGl_string3806z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1111z00_63); 
FAILURE(BgL_auxz00_6638,BFALSE,BFALSE);} 
BgL_g1113z00_974 = 
VECTOR_REF(BgL_auxz00_6635,1L); } 
{ 

{ /* Ieee/string.scm 456 */
 long BgL_aux1115z00_976;
{ 
 obj_t BgL_auxz00_6643;
if(
VECTORP(BgL_opt1111z00_63))
{ /* Ieee/string.scm 456 */
BgL_auxz00_6643 = BgL_opt1111z00_63
; }  else 
{ 
 obj_t BgL_auxz00_6646;
BgL_auxz00_6646 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22342L), BGl_string3806z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1111z00_63); 
FAILURE(BgL_auxz00_6646,BFALSE,BFALSE);} 
BgL_aux1115z00_976 = 
VECTOR_LENGTH(BgL_auxz00_6643); } 
switch( BgL_aux1115z00_976) { case 2L : 

{ /* Ieee/string.scm 456 */
 long BgL_endz00_977;
{ /* Ieee/string.scm 456 */
 obj_t BgL_stringz00_2647;
if(
STRINGP(BgL_stringz00_973))
{ /* Ieee/string.scm 456 */
BgL_stringz00_2647 = BgL_stringz00_973; }  else 
{ 
 obj_t BgL_auxz00_6653;
BgL_auxz00_6653 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22396L), BGl_string3806z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_973); 
FAILURE(BgL_auxz00_6653,BFALSE,BFALSE);} 
BgL_endz00_977 = 
STRING_LENGTH(BgL_stringz00_2647); } 
{ /* Ieee/string.scm 456 */

{ /* Ieee/string.scm 456 */
 long BgL_auxz00_6665; obj_t BgL_auxz00_6658;
{ /* Ieee/string.scm 456 */
 obj_t BgL_tmpz00_6666;
if(
INTEGERP(BgL_g1113z00_974))
{ /* Ieee/string.scm 456 */
BgL_tmpz00_6666 = BgL_g1113z00_974
; }  else 
{ 
 obj_t BgL_auxz00_6669;
BgL_auxz00_6669 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22342L), BGl_string3806z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_g1113z00_974); 
FAILURE(BgL_auxz00_6669,BFALSE,BFALSE);} 
BgL_auxz00_6665 = 
(long)CINT(BgL_tmpz00_6666); } 
if(
STRINGP(BgL_stringz00_973))
{ /* Ieee/string.scm 456 */
BgL_auxz00_6658 = BgL_stringz00_973
; }  else 
{ 
 obj_t BgL_auxz00_6661;
BgL_auxz00_6661 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22342L), BGl_string3806z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_973); 
FAILURE(BgL_auxz00_6661,BFALSE,BFALSE);} 
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_auxz00_6658, BgL_auxz00_6665, BgL_endz00_977);} } } break;case 3L : 

{ /* Ieee/string.scm 456 */
 obj_t BgL_endz00_978;
{ 
 obj_t BgL_auxz00_6675;
if(
VECTORP(BgL_opt1111z00_63))
{ /* Ieee/string.scm 456 */
BgL_auxz00_6675 = BgL_opt1111z00_63
; }  else 
{ 
 obj_t BgL_auxz00_6678;
BgL_auxz00_6678 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22342L), BGl_string3806z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1111z00_63); 
FAILURE(BgL_auxz00_6678,BFALSE,BFALSE);} 
BgL_endz00_978 = 
VECTOR_REF(BgL_auxz00_6675,2L); } 
{ /* Ieee/string.scm 456 */

{ /* Ieee/string.scm 456 */
 long BgL_auxz00_6699; long BgL_auxz00_6690; obj_t BgL_auxz00_6683;
{ /* Ieee/string.scm 456 */
 obj_t BgL_tmpz00_6700;
if(
INTEGERP(BgL_endz00_978))
{ /* Ieee/string.scm 456 */
BgL_tmpz00_6700 = BgL_endz00_978
; }  else 
{ 
 obj_t BgL_auxz00_6703;
BgL_auxz00_6703 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22342L), BGl_string3806z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_endz00_978); 
FAILURE(BgL_auxz00_6703,BFALSE,BFALSE);} 
BgL_auxz00_6699 = 
(long)CINT(BgL_tmpz00_6700); } 
{ /* Ieee/string.scm 456 */
 obj_t BgL_tmpz00_6691;
if(
INTEGERP(BgL_g1113z00_974))
{ /* Ieee/string.scm 456 */
BgL_tmpz00_6691 = BgL_g1113z00_974
; }  else 
{ 
 obj_t BgL_auxz00_6694;
BgL_auxz00_6694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22342L), BGl_string3806z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_g1113z00_974); 
FAILURE(BgL_auxz00_6694,BFALSE,BFALSE);} 
BgL_auxz00_6690 = 
(long)CINT(BgL_tmpz00_6691); } 
if(
STRINGP(BgL_stringz00_973))
{ /* Ieee/string.scm 456 */
BgL_auxz00_6683 = BgL_stringz00_973
; }  else 
{ 
 obj_t BgL_auxz00_6686;
BgL_auxz00_6686 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22342L), BGl_string3806z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_973); 
FAILURE(BgL_auxz00_6686,BFALSE,BFALSE);} 
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_auxz00_6683, BgL_auxz00_6690, BgL_auxz00_6699);} } } break;
default: 
{ /* Ieee/string.scm 456 */
 long BgL_arg1239z00_979;
{ 
 obj_t BgL_auxz00_6709;
if(
VECTORP(BgL_opt1111z00_63))
{ /* Ieee/string.scm 456 */
BgL_auxz00_6709 = BgL_opt1111z00_63
; }  else 
{ 
 obj_t BgL_auxz00_6712;
BgL_auxz00_6712 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22342L), BGl_string3807z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1111z00_63); 
FAILURE(BgL_auxz00_6712,BFALSE,BFALSE);} 
BgL_arg1239z00_979 = 
VECTOR_LENGTH(BgL_auxz00_6709); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3808z00zz__r4_strings_6_7z00, BGl_string3810z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1239z00_979));} } } } } } 

}



/* substring */
BGL_EXPORTED_DEF obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t BgL_stringz00_60, long BgL_startz00_61, long BgL_endz00_62)
{
{ /* Ieee/string.scm 456 */
{ /* Ieee/string.scm 457 */
 long BgL_lenz00_980;
BgL_lenz00_980 = 
STRING_LENGTH(BgL_stringz00_60); 
{ /* Ieee/string.scm 459 */
 bool_t BgL_test4345z00_6721;
if(
(BgL_startz00_61<0L))
{ /* Ieee/string.scm 459 */
BgL_test4345z00_6721 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 459 */
BgL_test4345z00_6721 = 
(BgL_startz00_61>BgL_lenz00_980)
; } 
if(BgL_test4345z00_6721)
{ /* Ieee/string.scm 461 */
 obj_t BgL_arg1242z00_983; obj_t BgL_arg1248z00_984;
{ /* Ieee/string.scm 461 */
 obj_t BgL_arg1249z00_985;
{ /* Ieee/fixnum.scm 979 */

BgL_arg1249z00_985 = 
BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_startz00_61, 10L); } 
BgL_arg1242z00_983 = 
string_append(BGl_string3811z00zz__r4_strings_6_7z00, BgL_arg1249z00_985); } 
{ /* Ieee/string.scm 462 */
 obj_t BgL_list1253z00_989;
{ /* Ieee/string.scm 462 */
 obj_t BgL_arg1254z00_990;
BgL_arg1254z00_990 = 
MAKE_YOUNG_PAIR(BgL_stringz00_60, BNIL); 
BgL_list1253z00_989 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lenz00_980), BgL_arg1254z00_990); } 
BgL_arg1248z00_984 = BgL_list1253z00_989; } 
{ /* Ieee/string.scm 460 */
 obj_t BgL_aux2818z00_4767;
BgL_aux2818z00_4767 = 
BGl_errorz00zz__errorz00(BGl_string3809z00zz__r4_strings_6_7z00, BgL_arg1242z00_983, BgL_arg1248z00_984); 
if(
STRINGP(BgL_aux2818z00_4767))
{ /* Ieee/string.scm 460 */
return BgL_aux2818z00_4767;}  else 
{ 
 obj_t BgL_auxz00_6733;
BgL_auxz00_6733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22513L), BGl_string3809z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_aux2818z00_4767); 
FAILURE(BgL_auxz00_6733,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 463 */
 bool_t BgL_test4348z00_6737;
if(
(BgL_endz00_62<BgL_startz00_61))
{ /* Ieee/string.scm 463 */
BgL_test4348z00_6737 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 463 */
BgL_test4348z00_6737 = 
(BgL_endz00_62>BgL_lenz00_980)
; } 
if(BgL_test4348z00_6737)
{ /* Ieee/string.scm 465 */
 obj_t BgL_arg1258z00_993; obj_t BgL_arg1259z00_994;
{ /* Ieee/string.scm 465 */
 obj_t BgL_arg1261z00_995;
{ /* Ieee/fixnum.scm 979 */

BgL_arg1261z00_995 = 
BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_endz00_62, 10L); } 
BgL_arg1258z00_993 = 
string_append(BGl_string3812z00zz__r4_strings_6_7z00, BgL_arg1261z00_995); } 
{ /* Ieee/string.scm 466 */
 obj_t BgL_list1263z00_999;
{ /* Ieee/string.scm 466 */
 obj_t BgL_arg1265z00_1000;
BgL_arg1265z00_1000 = 
MAKE_YOUNG_PAIR(BgL_stringz00_60, BNIL); 
BgL_list1263z00_999 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lenz00_980), BgL_arg1265z00_1000); } 
BgL_arg1259z00_994 = BgL_list1263z00_999; } 
{ /* Ieee/string.scm 464 */
 obj_t BgL_aux2820z00_4769;
BgL_aux2820z00_4769 = 
BGl_errorz00zz__errorz00(BGl_string3809z00zz__r4_strings_6_7z00, BgL_arg1258z00_993, BgL_arg1259z00_994); 
if(
STRINGP(BgL_aux2820z00_4769))
{ /* Ieee/string.scm 464 */
return BgL_aux2820z00_4769;}  else 
{ 
 obj_t BgL_auxz00_6749;
BgL_auxz00_6749 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(22680L), BGl_string3809z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_aux2820z00_4769); 
FAILURE(BgL_auxz00_6749,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 463 */
BGL_TAIL return 
c_substring(BgL_stringz00_60, BgL_startz00_61, BgL_endz00_62);} } } } } 

}



/* substring-ur */
BGL_EXPORTED_DEF obj_t BGl_substringzd2urzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_65, long BgL_startz00_66, long BgL_endz00_67)
{
{ /* Ieee/string.scm 473 */
BGL_TAIL return 
c_substring(BgL_stringz00_65, BgL_startz00_66, BgL_endz00_67);} 

}



/* &substring-ur */
obj_t BGl_z62substringzd2urzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4105, obj_t BgL_stringz00_4106, obj_t BgL_startz00_4107, obj_t BgL_endz00_4108)
{
{ /* Ieee/string.scm 473 */
{ /* Ieee/string.scm 474 */
 long BgL_auxz00_6771; long BgL_auxz00_6762; obj_t BgL_auxz00_6755;
{ /* Ieee/string.scm 474 */
 obj_t BgL_tmpz00_6772;
if(
INTEGERP(BgL_endz00_4108))
{ /* Ieee/string.scm 474 */
BgL_tmpz00_6772 = BgL_endz00_4108
; }  else 
{ 
 obj_t BgL_auxz00_6775;
BgL_auxz00_6775 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23120L), BGl_string3813z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_endz00_4108); 
FAILURE(BgL_auxz00_6775,BFALSE,BFALSE);} 
BgL_auxz00_6771 = 
(long)CINT(BgL_tmpz00_6772); } 
{ /* Ieee/string.scm 474 */
 obj_t BgL_tmpz00_6763;
if(
INTEGERP(BgL_startz00_4107))
{ /* Ieee/string.scm 474 */
BgL_tmpz00_6763 = BgL_startz00_4107
; }  else 
{ 
 obj_t BgL_auxz00_6766;
BgL_auxz00_6766 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23120L), BGl_string3813z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_4107); 
FAILURE(BgL_auxz00_6766,BFALSE,BFALSE);} 
BgL_auxz00_6762 = 
(long)CINT(BgL_tmpz00_6763); } 
if(
STRINGP(BgL_stringz00_4106))
{ /* Ieee/string.scm 474 */
BgL_auxz00_6755 = BgL_stringz00_4106
; }  else 
{ 
 obj_t BgL_auxz00_6758;
BgL_auxz00_6758 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23120L), BGl_string3813z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4106); 
FAILURE(BgL_auxz00_6758,BFALSE,BFALSE);} 
return 
BGl_substringzd2urzd2zz__r4_strings_6_7z00(BgL_auxz00_6755, BgL_auxz00_6762, BgL_auxz00_6771);} } 

}



/* _string-contains */
obj_t BGl__stringzd2containszd2zz__r4_strings_6_7z00(obj_t BgL_env1117z00_72, obj_t BgL_opt1116z00_71)
{
{ /* Ieee/string.scm 479 */
{ /* Ieee/string.scm 479 */
 obj_t BgL_g1118z00_1003; obj_t BgL_g1119z00_1004;
{ 
 obj_t BgL_auxz00_6781;
if(
VECTORP(BgL_opt1116z00_71))
{ /* Ieee/string.scm 479 */
BgL_auxz00_6781 = BgL_opt1116z00_71
; }  else 
{ 
 obj_t BgL_auxz00_6784;
BgL_auxz00_6784 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23374L), BGl_string3814z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1116z00_71); 
FAILURE(BgL_auxz00_6784,BFALSE,BFALSE);} 
BgL_g1118z00_1003 = 
VECTOR_REF(BgL_auxz00_6781,0L); } 
{ 
 obj_t BgL_auxz00_6789;
if(
VECTORP(BgL_opt1116z00_71))
{ /* Ieee/string.scm 479 */
BgL_auxz00_6789 = BgL_opt1116z00_71
; }  else 
{ 
 obj_t BgL_auxz00_6792;
BgL_auxz00_6792 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23374L), BGl_string3814z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1116z00_71); 
FAILURE(BgL_auxz00_6792,BFALSE,BFALSE);} 
BgL_g1119z00_1004 = 
VECTOR_REF(BgL_auxz00_6789,1L); } 
{ 

{ /* Ieee/string.scm 479 */
 long BgL_aux1121z00_1006;
{ 
 obj_t BgL_auxz00_6797;
if(
VECTORP(BgL_opt1116z00_71))
{ /* Ieee/string.scm 479 */
BgL_auxz00_6797 = BgL_opt1116z00_71
; }  else 
{ 
 obj_t BgL_auxz00_6800;
BgL_auxz00_6800 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23374L), BGl_string3814z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1116z00_71); 
FAILURE(BgL_auxz00_6800,BFALSE,BFALSE);} 
BgL_aux1121z00_1006 = 
VECTOR_LENGTH(BgL_auxz00_6797); } 
switch( BgL_aux1121z00_1006) { case 2L : 

{ /* Ieee/string.scm 479 */

{ /* Ieee/string.scm 479 */
 obj_t BgL_auxz00_6812; obj_t BgL_auxz00_6805;
if(
STRINGP(BgL_g1119z00_1004))
{ /* Ieee/string.scm 479 */
BgL_auxz00_6812 = BgL_g1119z00_1004
; }  else 
{ 
 obj_t BgL_auxz00_6815;
BgL_auxz00_6815 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23374L), BGl_string3814z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1119z00_1004); 
FAILURE(BgL_auxz00_6815,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1118z00_1003))
{ /* Ieee/string.scm 479 */
BgL_auxz00_6805 = BgL_g1118z00_1003
; }  else 
{ 
 obj_t BgL_auxz00_6808;
BgL_auxz00_6808 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23374L), BGl_string3814z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1118z00_1003); 
FAILURE(BgL_auxz00_6808,BFALSE,BFALSE);} 
return 
BGl_stringzd2containszd2zz__r4_strings_6_7z00(BgL_auxz00_6805, BgL_auxz00_6812, 
(int)(0L));} } break;case 3L : 

{ /* Ieee/string.scm 479 */
 obj_t BgL_startz00_1008;
{ 
 obj_t BgL_auxz00_6821;
if(
VECTORP(BgL_opt1116z00_71))
{ /* Ieee/string.scm 479 */
BgL_auxz00_6821 = BgL_opt1116z00_71
; }  else 
{ 
 obj_t BgL_auxz00_6824;
BgL_auxz00_6824 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23374L), BGl_string3814z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1116z00_71); 
FAILURE(BgL_auxz00_6824,BFALSE,BFALSE);} 
BgL_startz00_1008 = 
VECTOR_REF(BgL_auxz00_6821,2L); } 
{ /* Ieee/string.scm 479 */

{ /* Ieee/string.scm 479 */
 int BgL_auxz00_6843; obj_t BgL_auxz00_6836; obj_t BgL_auxz00_6829;
{ /* Ieee/string.scm 479 */
 obj_t BgL_tmpz00_6844;
if(
INTEGERP(BgL_startz00_1008))
{ /* Ieee/string.scm 479 */
BgL_tmpz00_6844 = BgL_startz00_1008
; }  else 
{ 
 obj_t BgL_auxz00_6847;
BgL_auxz00_6847 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23374L), BGl_string3814z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_1008); 
FAILURE(BgL_auxz00_6847,BFALSE,BFALSE);} 
BgL_auxz00_6843 = 
CINT(BgL_tmpz00_6844); } 
if(
STRINGP(BgL_g1119z00_1004))
{ /* Ieee/string.scm 479 */
BgL_auxz00_6836 = BgL_g1119z00_1004
; }  else 
{ 
 obj_t BgL_auxz00_6839;
BgL_auxz00_6839 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23374L), BGl_string3814z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1119z00_1004); 
FAILURE(BgL_auxz00_6839,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1118z00_1003))
{ /* Ieee/string.scm 479 */
BgL_auxz00_6829 = BgL_g1118z00_1003
; }  else 
{ 
 obj_t BgL_auxz00_6832;
BgL_auxz00_6832 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23374L), BGl_string3814z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1118z00_1003); 
FAILURE(BgL_auxz00_6832,BFALSE,BFALSE);} 
return 
BGl_stringzd2containszd2zz__r4_strings_6_7z00(BgL_auxz00_6829, BgL_auxz00_6836, BgL_auxz00_6843);} } } break;
default: 
{ /* Ieee/string.scm 479 */
 long BgL_arg1266z00_1009;
{ 
 obj_t BgL_auxz00_6853;
if(
VECTORP(BgL_opt1116z00_71))
{ /* Ieee/string.scm 479 */
BgL_auxz00_6853 = BgL_opt1116z00_71
; }  else 
{ 
 obj_t BgL_auxz00_6856;
BgL_auxz00_6856 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(23374L), BGl_string3815z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1116z00_71); 
FAILURE(BgL_auxz00_6856,BFALSE,BFALSE);} 
BgL_arg1266z00_1009 = 
VECTOR_LENGTH(BgL_auxz00_6853); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3816z00zz__r4_strings_6_7z00, BGl_string3810z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1266z00_1009));} } } } } } 

}



/* string-contains */
BGL_EXPORTED_DEF obj_t BGl_stringzd2containszd2zz__r4_strings_6_7z00(obj_t BgL_s1z00_68, obj_t BgL_s2z00_69, int BgL_startz00_70)
{
{ /* Ieee/string.scm 479 */
{ /* Ieee/string.scm 480 */
 long BgL_l2z00_1010;
BgL_l2z00_1010 = 
STRING_LENGTH(BgL_s2z00_69); 
if(
(BgL_l2z00_1010==1L))
{ /* Ieee/string.scm 482 */
 unsigned char BgL_arg1269z00_1012;
if(
BOUND_CHECK(0L, BgL_l2z00_1010))
{ /* Ieee/string.scm 331 */
BgL_arg1269z00_1012 = 
STRING_REF(BgL_s2z00_69, 0L); }  else 
{ 
 obj_t BgL_auxz00_6870;
BgL_auxz00_6870 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s2z00_69, 
(int)(BgL_l2z00_1010), 
(int)(0L)); 
FAILURE(BgL_auxz00_6870,BFALSE,BFALSE);} 
return 
BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_s1z00_68, 
BCHAR(BgL_arg1269z00_1012), 
BINT(BgL_startz00_70));}  else 
{ /* Ieee/string.scm 483 */
 long BgL_l1z00_1013; long BgL_i0z00_1014;
BgL_l1z00_1013 = 
STRING_LENGTH(BgL_s1z00_68); 
if(
(
(long)(BgL_startz00_70)<0L))
{ /* Ieee/string.scm 484 */
BgL_i0z00_1014 = 0L; }  else 
{ /* Ieee/string.scm 484 */
BgL_i0z00_1014 = 
(long)(BgL_startz00_70); } 
if(
(BgL_l1z00_1013<
(BgL_i0z00_1014+BgL_l2z00_1010)))
{ /* Ieee/string.scm 485 */
return BFALSE;}  else 
{ /* Ieee/string.scm 487 */
 long BgL_stopz00_1017;
BgL_stopz00_1017 = 
(BgL_l1z00_1013-BgL_l2z00_1010); 
{ 
 long BgL_iz00_1019;
BgL_iz00_1019 = BgL_i0z00_1014; 
BgL_zc3z04anonymousza31273ze3z87_1020:
if(
bigloo_strcmp_at(BgL_s1z00_68, BgL_s2z00_69, BgL_iz00_1019))
{ /* Ieee/string.scm 490 */
return 
BINT(BgL_iz00_1019);}  else 
{ /* Ieee/string.scm 490 */
if(
(BgL_iz00_1019==BgL_stopz00_1017))
{ /* Ieee/string.scm 492 */
return BFALSE;}  else 
{ 
 long BgL_iz00_6893;
BgL_iz00_6893 = 
(BgL_iz00_1019+1L); 
BgL_iz00_1019 = BgL_iz00_6893; 
goto BgL_zc3z04anonymousza31273ze3z87_1020;} } } } } } } 

}



/* _string-contains-ci */
obj_t BGl__stringzd2containszd2ciz00zz__r4_strings_6_7z00(obj_t BgL_env1123z00_77, obj_t BgL_opt1122z00_76)
{
{ /* Ieee/string.scm 500 */
{ /* Ieee/string.scm 500 */
 obj_t BgL_g1124z00_1027; obj_t BgL_g1125z00_1028;
{ 
 obj_t BgL_auxz00_6895;
if(
VECTORP(BgL_opt1122z00_76))
{ /* Ieee/string.scm 500 */
BgL_auxz00_6895 = BgL_opt1122z00_76
; }  else 
{ 
 obj_t BgL_auxz00_6898;
BgL_auxz00_6898 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24040L), BGl_string3818z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1122z00_76); 
FAILURE(BgL_auxz00_6898,BFALSE,BFALSE);} 
BgL_g1124z00_1027 = 
VECTOR_REF(BgL_auxz00_6895,0L); } 
{ 
 obj_t BgL_auxz00_6903;
if(
VECTORP(BgL_opt1122z00_76))
{ /* Ieee/string.scm 500 */
BgL_auxz00_6903 = BgL_opt1122z00_76
; }  else 
{ 
 obj_t BgL_auxz00_6906;
BgL_auxz00_6906 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24040L), BGl_string3818z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1122z00_76); 
FAILURE(BgL_auxz00_6906,BFALSE,BFALSE);} 
BgL_g1125z00_1028 = 
VECTOR_REF(BgL_auxz00_6903,1L); } 
{ 

{ /* Ieee/string.scm 500 */
 long BgL_aux1127z00_1030;
{ 
 obj_t BgL_auxz00_6911;
if(
VECTORP(BgL_opt1122z00_76))
{ /* Ieee/string.scm 500 */
BgL_auxz00_6911 = BgL_opt1122z00_76
; }  else 
{ 
 obj_t BgL_auxz00_6914;
BgL_auxz00_6914 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24040L), BGl_string3818z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1122z00_76); 
FAILURE(BgL_auxz00_6914,BFALSE,BFALSE);} 
BgL_aux1127z00_1030 = 
VECTOR_LENGTH(BgL_auxz00_6911); } 
switch( BgL_aux1127z00_1030) { case 2L : 

{ /* Ieee/string.scm 500 */

{ /* Ieee/string.scm 500 */
 obj_t BgL_auxz00_6926; obj_t BgL_auxz00_6919;
if(
STRINGP(BgL_g1125z00_1028))
{ /* Ieee/string.scm 500 */
BgL_auxz00_6926 = BgL_g1125z00_1028
; }  else 
{ 
 obj_t BgL_auxz00_6929;
BgL_auxz00_6929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24040L), BGl_string3818z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1125z00_1028); 
FAILURE(BgL_auxz00_6929,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1124z00_1027))
{ /* Ieee/string.scm 500 */
BgL_auxz00_6919 = BgL_g1124z00_1027
; }  else 
{ 
 obj_t BgL_auxz00_6922;
BgL_auxz00_6922 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24040L), BGl_string3818z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1124z00_1027); 
FAILURE(BgL_auxz00_6922,BFALSE,BFALSE);} 
return 
BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00(BgL_auxz00_6919, BgL_auxz00_6926, 
(int)(0L));} } break;case 3L : 

{ /* Ieee/string.scm 500 */
 obj_t BgL_startz00_1032;
{ 
 obj_t BgL_auxz00_6935;
if(
VECTORP(BgL_opt1122z00_76))
{ /* Ieee/string.scm 500 */
BgL_auxz00_6935 = BgL_opt1122z00_76
; }  else 
{ 
 obj_t BgL_auxz00_6938;
BgL_auxz00_6938 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24040L), BGl_string3818z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1122z00_76); 
FAILURE(BgL_auxz00_6938,BFALSE,BFALSE);} 
BgL_startz00_1032 = 
VECTOR_REF(BgL_auxz00_6935,2L); } 
{ /* Ieee/string.scm 500 */

{ /* Ieee/string.scm 500 */
 int BgL_auxz00_6957; obj_t BgL_auxz00_6950; obj_t BgL_auxz00_6943;
{ /* Ieee/string.scm 500 */
 obj_t BgL_tmpz00_6958;
if(
INTEGERP(BgL_startz00_1032))
{ /* Ieee/string.scm 500 */
BgL_tmpz00_6958 = BgL_startz00_1032
; }  else 
{ 
 obj_t BgL_auxz00_6961;
BgL_auxz00_6961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24040L), BGl_string3818z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_1032); 
FAILURE(BgL_auxz00_6961,BFALSE,BFALSE);} 
BgL_auxz00_6957 = 
CINT(BgL_tmpz00_6958); } 
if(
STRINGP(BgL_g1125z00_1028))
{ /* Ieee/string.scm 500 */
BgL_auxz00_6950 = BgL_g1125z00_1028
; }  else 
{ 
 obj_t BgL_auxz00_6953;
BgL_auxz00_6953 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24040L), BGl_string3818z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1125z00_1028); 
FAILURE(BgL_auxz00_6953,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1124z00_1027))
{ /* Ieee/string.scm 500 */
BgL_auxz00_6943 = BgL_g1124z00_1027
; }  else 
{ 
 obj_t BgL_auxz00_6946;
BgL_auxz00_6946 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24040L), BGl_string3818z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1124z00_1027); 
FAILURE(BgL_auxz00_6946,BFALSE,BFALSE);} 
return 
BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00(BgL_auxz00_6943, BgL_auxz00_6950, BgL_auxz00_6957);} } } break;
default: 
{ /* Ieee/string.scm 500 */
 long BgL_arg1280z00_1033;
{ 
 obj_t BgL_auxz00_6967;
if(
VECTORP(BgL_opt1122z00_76))
{ /* Ieee/string.scm 500 */
BgL_auxz00_6967 = BgL_opt1122z00_76
; }  else 
{ 
 obj_t BgL_auxz00_6970;
BgL_auxz00_6970 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24040L), BGl_string3819z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1122z00_76); 
FAILURE(BgL_auxz00_6970,BFALSE,BFALSE);} 
BgL_arg1280z00_1033 = 
VECTOR_LENGTH(BgL_auxz00_6967); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3820z00zz__r4_strings_6_7z00, BGl_string3810z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1280z00_1033));} } } } } } 

}



/* string-contains-ci */
BGL_EXPORTED_DEF obj_t BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00(obj_t BgL_s1z00_73, obj_t BgL_s2z00_74, int BgL_startz00_75)
{
{ /* Ieee/string.scm 500 */
{ /* Ieee/string.scm 501 */
 long BgL_l1z00_1034; long BgL_l2z00_1035; long BgL_i0z00_1036;
BgL_l1z00_1034 = 
STRING_LENGTH(BgL_s1z00_73); 
BgL_l2z00_1035 = 
STRING_LENGTH(BgL_s2z00_74); 
if(
(
(long)(BgL_startz00_75)<0L))
{ /* Ieee/string.scm 503 */
BgL_i0z00_1036 = 0L; }  else 
{ /* Ieee/string.scm 503 */
BgL_i0z00_1036 = 
(long)(BgL_startz00_75); } 
if(
(BgL_l1z00_1034<
(BgL_i0z00_1036+BgL_l2z00_1035)))
{ /* Ieee/string.scm 504 */
return BFALSE;}  else 
{ /* Ieee/string.scm 506 */
 long BgL_stopz00_1039;
BgL_stopz00_1039 = 
(BgL_l1z00_1034-BgL_l2z00_1035); 
{ 
 long BgL_iz00_1041;
BgL_iz00_1041 = BgL_i0z00_1036; 
BgL_zc3z04anonymousza31283ze3z87_1042:
if(
bigloo_strcmp_ci_at(BgL_s1z00_73, BgL_s2z00_74, BgL_iz00_1041))
{ /* Ieee/string.scm 509 */
return 
BINT(BgL_iz00_1041);}  else 
{ /* Ieee/string.scm 509 */
if(
(BgL_iz00_1041==BgL_stopz00_1039))
{ /* Ieee/string.scm 511 */
return BFALSE;}  else 
{ 
 long BgL_iz00_6993;
BgL_iz00_6993 = 
(BgL_iz00_1041+1L); 
BgL_iz00_1041 = BgL_iz00_6993; 
goto BgL_zc3z04anonymousza31283ze3z87_1042;} } } } } } 

}



/* string-compare3 */
BGL_EXPORTED_DEF long BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(obj_t BgL_az00_78, obj_t BgL_bz00_79)
{
{ /* Ieee/string.scm 523 */
{ /* Ieee/string.scm 524 */
 long BgL_alz00_1049;
BgL_alz00_1049 = 
STRING_LENGTH(BgL_az00_78); 
{ /* Ieee/string.scm 524 */
 long BgL_blz00_1050;
BgL_blz00_1050 = 
STRING_LENGTH(BgL_bz00_79); 
{ /* Ieee/string.scm 525 */
 long BgL_lz00_1051;
if(
(BgL_alz00_1049<BgL_blz00_1050))
{ /* Ieee/string.scm 526 */
BgL_lz00_1051 = BgL_alz00_1049; }  else 
{ /* Ieee/string.scm 526 */
BgL_lz00_1051 = BgL_blz00_1050; } 
{ /* Ieee/string.scm 526 */

{ 
 long BgL_rz00_1053;
BgL_rz00_1053 = 0L; 
BgL_zc3z04anonymousza31293ze3z87_1054:
if(
(BgL_rz00_1053==BgL_lz00_1051))
{ /* Ieee/string.scm 528 */
return 
(BgL_alz00_1049-BgL_blz00_1050);}  else 
{ /* Ieee/string.scm 530 */
 long BgL_cz00_1056;
{ /* Ieee/string.scm 530 */
 long BgL_auxz00_7015; long BgL_tmpz00_7002;
{ /* Ieee/string.scm 531 */
 unsigned char BgL_tmpz00_7016;
{ /* Ieee/string.scm 343 */
 long BgL_l2261z00_4210;
BgL_l2261z00_4210 = 
STRING_LENGTH(BgL_bz00_79); 
if(
BOUND_CHECK(BgL_rz00_1053, BgL_l2261z00_4210))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_7016 = 
STRING_REF(BgL_bz00_79, BgL_rz00_1053)
; }  else 
{ 
 obj_t BgL_auxz00_7021;
BgL_auxz00_7021 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_bz00_79, 
(int)(BgL_l2261z00_4210), 
(int)(BgL_rz00_1053)); 
FAILURE(BgL_auxz00_7021,BFALSE,BFALSE);} } 
BgL_auxz00_7015 = 
(BgL_tmpz00_7016); } 
{ /* Ieee/string.scm 530 */
 unsigned char BgL_tmpz00_7003;
{ /* Ieee/string.scm 343 */
 long BgL_l2257z00_4206;
BgL_l2257z00_4206 = 
STRING_LENGTH(BgL_az00_78); 
if(
BOUND_CHECK(BgL_rz00_1053, BgL_l2257z00_4206))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_7003 = 
STRING_REF(BgL_az00_78, BgL_rz00_1053)
; }  else 
{ 
 obj_t BgL_auxz00_7008;
BgL_auxz00_7008 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_az00_78, 
(int)(BgL_l2257z00_4206), 
(int)(BgL_rz00_1053)); 
FAILURE(BgL_auxz00_7008,BFALSE,BFALSE);} } 
BgL_tmpz00_7002 = 
(BgL_tmpz00_7003); } 
BgL_cz00_1056 = 
(BgL_tmpz00_7002-BgL_auxz00_7015); } 
if(
(BgL_cz00_1056==0L))
{ 
 long BgL_rz00_7031;
BgL_rz00_7031 = 
(BgL_rz00_1053+1L); 
BgL_rz00_1053 = BgL_rz00_7031; 
goto BgL_zc3z04anonymousza31293ze3z87_1054;}  else 
{ /* Ieee/string.scm 532 */
return BgL_cz00_1056;} } } } } } } } 

}



/* &string-compare3 */
obj_t BGl_z62stringzd2compare3zb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4109, obj_t BgL_az00_4110, obj_t BgL_bz00_4111)
{
{ /* Ieee/string.scm 523 */
{ /* Ieee/string.scm 524 */
 long BgL_tmpz00_7033;
{ /* Ieee/string.scm 524 */
 obj_t BgL_auxz00_7041; obj_t BgL_auxz00_7034;
if(
STRINGP(BgL_bz00_4111))
{ /* Ieee/string.scm 524 */
BgL_auxz00_7041 = BgL_bz00_4111
; }  else 
{ 
 obj_t BgL_auxz00_7044;
BgL_auxz00_7044 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24981L), BGl_string3822z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_bz00_4111); 
FAILURE(BgL_auxz00_7044,BFALSE,BFALSE);} 
if(
STRINGP(BgL_az00_4110))
{ /* Ieee/string.scm 524 */
BgL_auxz00_7034 = BgL_az00_4110
; }  else 
{ 
 obj_t BgL_auxz00_7037;
BgL_auxz00_7037 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(24981L), BGl_string3822z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_az00_4110); 
FAILURE(BgL_auxz00_7037,BFALSE,BFALSE);} 
BgL_tmpz00_7033 = 
BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(BgL_auxz00_7034, BgL_auxz00_7041); } 
return 
BINT(BgL_tmpz00_7033);} } 

}



/* string-compare3-ci */
BGL_EXPORTED_DEF long BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(obj_t BgL_az00_80, obj_t BgL_bz00_81)
{
{ /* Ieee/string.scm 539 */
{ /* Ieee/string.scm 540 */
 long BgL_alz00_1067;
BgL_alz00_1067 = 
STRING_LENGTH(BgL_az00_80); 
{ /* Ieee/string.scm 540 */
 long BgL_blz00_1068;
BgL_blz00_1068 = 
STRING_LENGTH(BgL_bz00_81); 
{ /* Ieee/string.scm 541 */
 long BgL_lz00_1069;
if(
(BgL_alz00_1067<BgL_blz00_1068))
{ /* Ieee/string.scm 542 */
BgL_lz00_1069 = BgL_alz00_1067; }  else 
{ /* Ieee/string.scm 542 */
BgL_lz00_1069 = BgL_blz00_1068; } 
{ /* Ieee/string.scm 542 */

{ 
 long BgL_rz00_1071;
BgL_rz00_1071 = 0L; 
BgL_zc3z04anonymousza31331ze3z87_1072:
if(
(BgL_rz00_1071==BgL_lz00_1069))
{ /* Ieee/string.scm 544 */
return 
(BgL_alz00_1067-BgL_blz00_1068);}  else 
{ /* Ieee/string.scm 546 */
 long BgL_cz00_1074;
{ /* Ieee/string.scm 546 */
 long BgL_auxz00_7072; long BgL_tmpz00_7057;
{ /* Ieee/string.scm 547 */
 unsigned char BgL_tmpz00_7073;
{ /* Ieee/string.scm 547 */
 unsigned char BgL_tmpz00_7074;
{ /* Ieee/string.scm 343 */
 long BgL_l2269z00_4218;
BgL_l2269z00_4218 = 
STRING_LENGTH(BgL_bz00_81); 
if(
BOUND_CHECK(BgL_rz00_1071, BgL_l2269z00_4218))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_7074 = 
STRING_REF(BgL_bz00_81, BgL_rz00_1071)
; }  else 
{ 
 obj_t BgL_auxz00_7079;
BgL_auxz00_7079 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_bz00_81, 
(int)(BgL_l2269z00_4218), 
(int)(BgL_rz00_1071)); 
FAILURE(BgL_auxz00_7079,BFALSE,BFALSE);} } 
BgL_tmpz00_7073 = 
tolower(BgL_tmpz00_7074); } 
BgL_auxz00_7072 = 
(BgL_tmpz00_7073); } 
{ /* Ieee/string.scm 546 */
 unsigned char BgL_tmpz00_7058;
{ /* Ieee/string.scm 546 */
 unsigned char BgL_tmpz00_7059;
{ /* Ieee/string.scm 343 */
 long BgL_l2265z00_4214;
BgL_l2265z00_4214 = 
STRING_LENGTH(BgL_az00_80); 
if(
BOUND_CHECK(BgL_rz00_1071, BgL_l2265z00_4214))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_7059 = 
STRING_REF(BgL_az00_80, BgL_rz00_1071)
; }  else 
{ 
 obj_t BgL_auxz00_7064;
BgL_auxz00_7064 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_az00_80, 
(int)(BgL_l2265z00_4214), 
(int)(BgL_rz00_1071)); 
FAILURE(BgL_auxz00_7064,BFALSE,BFALSE);} } 
BgL_tmpz00_7058 = 
tolower(BgL_tmpz00_7059); } 
BgL_tmpz00_7057 = 
(BgL_tmpz00_7058); } 
BgL_cz00_1074 = 
(BgL_tmpz00_7057-BgL_auxz00_7072); } 
if(
(BgL_cz00_1074==0L))
{ 
 long BgL_rz00_7090;
BgL_rz00_7090 = 
(BgL_rz00_1071+1L); 
BgL_rz00_1071 = BgL_rz00_7090; 
goto BgL_zc3z04anonymousza31331ze3z87_1072;}  else 
{ /* Ieee/string.scm 548 */
return BgL_cz00_1074;} } } } } } } } 

}



/* &string-compare3-ci */
obj_t BGl_z62stringzd2compare3zd2ciz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4112, obj_t BgL_az00_4113, obj_t BgL_bz00_4114)
{
{ /* Ieee/string.scm 539 */
{ /* Ieee/string.scm 540 */
 long BgL_tmpz00_7092;
{ /* Ieee/string.scm 540 */
 obj_t BgL_auxz00_7100; obj_t BgL_auxz00_7093;
if(
STRINGP(BgL_bz00_4114))
{ /* Ieee/string.scm 540 */
BgL_auxz00_7100 = BgL_bz00_4114
; }  else 
{ 
 obj_t BgL_auxz00_7103;
BgL_auxz00_7103 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(25633L), BGl_string3823z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_bz00_4114); 
FAILURE(BgL_auxz00_7103,BFALSE,BFALSE);} 
if(
STRINGP(BgL_az00_4113))
{ /* Ieee/string.scm 540 */
BgL_auxz00_7093 = BgL_az00_4113
; }  else 
{ 
 obj_t BgL_auxz00_7096;
BgL_auxz00_7096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(25633L), BGl_string3823z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_az00_4113); 
FAILURE(BgL_auxz00_7096,BFALSE,BFALSE);} 
BgL_tmpz00_7092 = 
BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(BgL_auxz00_7093, BgL_auxz00_7100); } 
return 
BINT(BgL_tmpz00_7092);} } 

}



/* string-append */
BGL_EXPORTED_DEF obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t BgL_listz00_82)
{
{ /* Ieee/string.scm 559 */
if(
NULLP(BgL_listz00_82))
{ /* Ieee/string.scm 560 */
return BGl_string3824z00zz__r4_strings_6_7z00;}  else 
{ /* Ieee/string.scm 562 */
 long BgL_lenz00_1088;
{ 
 obj_t BgL_listz00_2745; long BgL_resz00_2746;
BgL_listz00_2745 = BgL_listz00_82; 
BgL_resz00_2746 = 0L; 
BgL_stringzd2appendzd2_2744:
if(
NULLP(BgL_listz00_2745))
{ /* Ieee/string.scm 564 */
BgL_lenz00_1088 = BgL_resz00_2746; }  else 
{ 
 long BgL_resz00_7121; obj_t BgL_listz00_7113;
{ /* Ieee/string.scm 566 */
 obj_t BgL_pairz00_2757;
if(
PAIRP(BgL_listz00_2745))
{ /* Ieee/string.scm 566 */
BgL_pairz00_2757 = BgL_listz00_2745; }  else 
{ 
 obj_t BgL_auxz00_7116;
BgL_auxz00_7116 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(26746L), BGl_string3825z00zz__r4_strings_6_7z00, BGl_string3826z00zz__r4_strings_6_7z00, BgL_listz00_2745); 
FAILURE(BgL_auxz00_7116,BFALSE,BFALSE);} 
BgL_listz00_7113 = 
CDR(BgL_pairz00_2757); } 
{ /* Ieee/string.scm 567 */
 long BgL_tmpz00_7122;
{ /* Ieee/string.scm 568 */
 obj_t BgL_stringz00_2759;
{ /* Ieee/string.scm 568 */
 obj_t BgL_pairz00_2758;
if(
PAIRP(BgL_listz00_2745))
{ /* Ieee/string.scm 568 */
BgL_pairz00_2758 = BgL_listz00_2745; }  else 
{ 
 obj_t BgL_auxz00_7125;
BgL_auxz00_7125 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(26793L), BGl_string3825z00zz__r4_strings_6_7z00, BGl_string3826z00zz__r4_strings_6_7z00, BgL_listz00_2745); 
FAILURE(BgL_auxz00_7125,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 568 */
 obj_t BgL_aux2876z00_4825;
BgL_aux2876z00_4825 = 
CAR(BgL_pairz00_2758); 
if(
STRINGP(BgL_aux2876z00_4825))
{ /* Ieee/string.scm 568 */
BgL_stringz00_2759 = BgL_aux2876z00_4825; }  else 
{ 
 obj_t BgL_auxz00_7132;
BgL_auxz00_7132 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(26788L), BGl_string3825z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_aux2876z00_4825); 
FAILURE(BgL_auxz00_7132,BFALSE,BFALSE);} } } 
BgL_tmpz00_7122 = 
STRING_LENGTH(BgL_stringz00_2759); } 
BgL_resz00_7121 = 
(BgL_resz00_2746+BgL_tmpz00_7122); } 
BgL_resz00_2746 = BgL_resz00_7121; 
BgL_listz00_2745 = BgL_listz00_7113; 
goto BgL_stringzd2appendzd2_2744;} } 
{ /* Ieee/string.scm 562 */
 obj_t BgL_resz00_1089;
BgL_resz00_1089 = 
make_string_sans_fill(BgL_lenz00_1088); 
{ /* Ieee/string.scm 569 */

{ 
 obj_t BgL_listz00_2772; long BgL_wz00_2773;
BgL_listz00_2772 = BgL_listz00_82; 
BgL_wz00_2773 = 0L; 
BgL_stringzd2appendzd2_2771:
if(
NULLP(BgL_listz00_2772))
{ /* Ieee/string.scm 572 */
return BgL_resz00_1089;}  else 
{ /* Ieee/string.scm 574 */
 obj_t BgL_sz00_2775;
{ /* Ieee/string.scm 574 */
 obj_t BgL_pairz00_2776;
if(
PAIRP(BgL_listz00_2772))
{ /* Ieee/string.scm 574 */
BgL_pairz00_2776 = BgL_listz00_2772; }  else 
{ 
 obj_t BgL_auxz00_7143;
BgL_auxz00_7143 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(26945L), BGl_string3825z00zz__r4_strings_6_7z00, BGl_string3826z00zz__r4_strings_6_7z00, BgL_listz00_2772); 
FAILURE(BgL_auxz00_7143,BFALSE,BFALSE);} 
BgL_sz00_2775 = 
CAR(BgL_pairz00_2776); } 
{ /* Ieee/string.scm 574 */
 long BgL_lz00_2777;
{ /* Ieee/string.scm 575 */
 obj_t BgL_stringz00_2778;
if(
STRINGP(BgL_sz00_2775))
{ /* Ieee/string.scm 575 */
BgL_stringz00_2778 = BgL_sz00_2775; }  else 
{ 
 obj_t BgL_auxz00_7150;
BgL_auxz00_7150 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(26958L), BGl_string3825z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_sz00_2775); 
FAILURE(BgL_auxz00_7150,BFALSE,BFALSE);} 
BgL_lz00_2777 = 
STRING_LENGTH(BgL_stringz00_2778); } 
{ /* Ieee/string.scm 575 */

{ /* Ieee/string.scm 576 */
 obj_t BgL_s1z00_2779;
if(
STRINGP(BgL_sz00_2775))
{ /* Ieee/string.scm 576 */
BgL_s1z00_2779 = BgL_sz00_2775; }  else 
{ 
 obj_t BgL_auxz00_7157;
BgL_auxz00_7157 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(27001L), BGl_string3825z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_sz00_2775); 
FAILURE(BgL_auxz00_7157,BFALSE,BFALSE);} 
blit_string(BgL_s1z00_2779, 0L, BgL_resz00_1089, BgL_wz00_2773, BgL_lz00_2777); } 
{ /* Ieee/string.scm 577 */
 obj_t BgL_arg1346z00_2783; long BgL_arg1347z00_2784;
{ /* Ieee/string.scm 577 */
 obj_t BgL_pairz00_2785;
if(
PAIRP(BgL_listz00_2772))
{ /* Ieee/string.scm 577 */
BgL_pairz00_2785 = BgL_listz00_2772; }  else 
{ 
 obj_t BgL_auxz00_7164;
BgL_auxz00_7164 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(27040L), BGl_string3825z00zz__r4_strings_6_7z00, BGl_string3826z00zz__r4_strings_6_7z00, BgL_listz00_2772); 
FAILURE(BgL_auxz00_7164,BFALSE,BFALSE);} 
BgL_arg1346z00_2783 = 
CDR(BgL_pairz00_2785); } 
BgL_arg1347z00_2784 = 
(BgL_wz00_2773+BgL_lz00_2777); 
{ 
 long BgL_wz00_7171; obj_t BgL_listz00_7170;
BgL_listz00_7170 = BgL_arg1346z00_2783; 
BgL_wz00_7171 = BgL_arg1347z00_2784; 
BgL_wz00_2773 = BgL_wz00_7171; 
BgL_listz00_2772 = BgL_listz00_7170; 
goto BgL_stringzd2appendzd2_2771;} } } } } } } } } } 

}



/* &string-append */
obj_t BGl_z62stringzd2appendzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4115, obj_t BgL_listz00_4116)
{
{ /* Ieee/string.scm 559 */
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_listz00_4116);} 

}



/* list->string */
BGL_EXPORTED_DEF obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t BgL_listz00_83)
{
{ /* Ieee/string.scm 582 */
{ /* Ieee/string.scm 583 */
 long BgL_lenz00_1110;
BgL_lenz00_1110 = 
bgl_list_length(BgL_listz00_83); 
{ /* Ieee/string.scm 583 */
 obj_t BgL_stringz00_1111;
BgL_stringz00_1111 = 
make_string_sans_fill(BgL_lenz00_1110); 
{ /* Ieee/string.scm 584 */

{ 
 long BgL_iz00_2797; obj_t BgL_lz00_2798;
BgL_iz00_2797 = 0L; 
BgL_lz00_2798 = BgL_listz00_83; 
BgL_loopz00_2796:
if(
(BgL_iz00_2797==BgL_lenz00_1110))
{ /* Ieee/string.scm 587 */
return BgL_stringz00_1111;}  else 
{ /* Ieee/string.scm 587 */
{ /* Ieee/string.scm 590 */
 obj_t BgL_arg1358z00_2802;
{ /* Ieee/string.scm 590 */
 obj_t BgL_pairz00_2803;
if(
PAIRP(BgL_lz00_2798))
{ /* Ieee/string.scm 590 */
BgL_pairz00_2803 = BgL_lz00_2798; }  else 
{ 
 obj_t BgL_auxz00_7179;
BgL_auxz00_7179 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(27500L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3826z00zz__r4_strings_6_7z00, BgL_lz00_2798); 
FAILURE(BgL_auxz00_7179,BFALSE,BFALSE);} 
BgL_arg1358z00_2802 = 
CAR(BgL_pairz00_2803); } 
{ /* Ieee/string.scm 590 */
 unsigned char BgL_charz00_2806;
{ /* Ieee/string.scm 590 */
 obj_t BgL_tmpz00_7184;
if(
CHARP(BgL_arg1358z00_2802))
{ /* Ieee/string.scm 590 */
BgL_tmpz00_7184 = BgL_arg1358z00_2802
; }  else 
{ 
 obj_t BgL_auxz00_7187;
BgL_auxz00_7187 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(27501L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_arg1358z00_2802); 
FAILURE(BgL_auxz00_7187,BFALSE,BFALSE);} 
BgL_charz00_2806 = 
CCHAR(BgL_tmpz00_7184); } 
{ /* Ieee/string.scm 349 */
 long BgL_l2273z00_4222;
BgL_l2273z00_4222 = 
STRING_LENGTH(BgL_stringz00_1111); 
if(
BOUND_CHECK(BgL_iz00_2797, BgL_l2273z00_4222))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_stringz00_1111, BgL_iz00_2797, BgL_charz00_2806); }  else 
{ 
 obj_t BgL_auxz00_7196;
BgL_auxz00_7196 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_stringz00_1111, 
(int)(BgL_l2273z00_4222), 
(int)(BgL_iz00_2797)); 
FAILURE(BgL_auxz00_7196,BFALSE,BFALSE);} } } } 
{ /* Ieee/string.scm 591 */
 long BgL_arg1359z00_2807; obj_t BgL_arg1360z00_2808;
BgL_arg1359z00_2807 = 
(BgL_iz00_2797+1L); 
{ /* Ieee/string.scm 591 */
 obj_t BgL_pairz00_2810;
if(
PAIRP(BgL_lz00_2798))
{ /* Ieee/string.scm 591 */
BgL_pairz00_2810 = BgL_lz00_2798; }  else 
{ 
 obj_t BgL_auxz00_7205;
BgL_auxz00_7205 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(27527L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3826z00zz__r4_strings_6_7z00, BgL_lz00_2798); 
FAILURE(BgL_auxz00_7205,BFALSE,BFALSE);} 
BgL_arg1360z00_2808 = 
CDR(BgL_pairz00_2810); } 
{ 
 obj_t BgL_lz00_7211; long BgL_iz00_7210;
BgL_iz00_7210 = BgL_arg1359z00_2807; 
BgL_lz00_7211 = BgL_arg1360z00_2808; 
BgL_lz00_2798 = BgL_lz00_7211; 
BgL_iz00_2797 = BgL_iz00_7210; 
goto BgL_loopz00_2796;} } } } } } } } 

}



/* &list->string */
obj_t BGl_z62listzd2ze3stringz53zz__r4_strings_6_7z00(obj_t BgL_envz00_4117, obj_t BgL_listz00_4118)
{
{ /* Ieee/string.scm 582 */
{ /* Ieee/string.scm 583 */
 obj_t BgL_auxz00_7212;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_4118))
{ /* Ieee/string.scm 583 */
BgL_auxz00_7212 = BgL_listz00_4118
; }  else 
{ 
 obj_t BgL_auxz00_7215;
BgL_auxz00_7215 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(27318L), BGl_string3828z00zz__r4_strings_6_7z00, BGl_string3776z00zz__r4_strings_6_7z00, BgL_listz00_4118); 
FAILURE(BgL_auxz00_7215,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_auxz00_7212);} } 

}



/* string->list */
BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(obj_t BgL_stringz00_84)
{
{ /* Ieee/string.scm 596 */
{ /* Ieee/string.scm 597 */
 long BgL_lenz00_1121;
BgL_lenz00_1121 = 
STRING_LENGTH(BgL_stringz00_84); 
{ /* Ieee/string.scm 598 */
 long BgL_g1021z00_1122;
BgL_g1021z00_1122 = 
(BgL_lenz00_1121-1L); 
{ 
 long BgL_iz00_1125; obj_t BgL_resz00_1126;
BgL_iz00_1125 = BgL_g1021z00_1122; 
BgL_resz00_1126 = BNIL; 
BgL_zc3z04anonymousza31361ze3z87_1127:
if(
(BgL_iz00_1125==(-1L)))
{ /* Ieee/string.scm 600 */
return BgL_resz00_1126;}  else 
{ /* Ieee/string.scm 602 */
 long BgL_arg1363z00_1129; obj_t BgL_arg1364z00_1130;
BgL_arg1363z00_1129 = 
(BgL_iz00_1125-1L); 
{ /* Ieee/string.scm 603 */
 unsigned char BgL_arg1365z00_1131;
{ /* Ieee/string.scm 343 */
 long BgL_l2277z00_4226;
BgL_l2277z00_4226 = 
STRING_LENGTH(BgL_stringz00_84); 
if(
BOUND_CHECK(BgL_iz00_1125, BgL_l2277z00_4226))
{ /* Ieee/string.scm 343 */
BgL_arg1365z00_1131 = 
STRING_REF(BgL_stringz00_84, BgL_iz00_1125); }  else 
{ 
 obj_t BgL_auxz00_7229;
BgL_auxz00_7229 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_84, 
(int)(BgL_l2277z00_4226), 
(int)(BgL_iz00_1125)); 
FAILURE(BgL_auxz00_7229,BFALSE,BFALSE);} } 
BgL_arg1364z00_1130 = 
MAKE_YOUNG_PAIR(
BCHAR(BgL_arg1365z00_1131), BgL_resz00_1126); } 
{ 
 obj_t BgL_resz00_7238; long BgL_iz00_7237;
BgL_iz00_7237 = BgL_arg1363z00_1129; 
BgL_resz00_7238 = BgL_arg1364z00_1130; 
BgL_resz00_1126 = BgL_resz00_7238; 
BgL_iz00_1125 = BgL_iz00_7237; 
goto BgL_zc3z04anonymousza31361ze3z87_1127;} } } } } } 

}



/* &string->list */
obj_t BGl_z62stringzd2ze3listz53zz__r4_strings_6_7z00(obj_t BgL_envz00_4119, obj_t BgL_stringz00_4120)
{
{ /* Ieee/string.scm 596 */
{ /* Ieee/string.scm 597 */
 obj_t BgL_auxz00_7239;
if(
STRINGP(BgL_stringz00_4120))
{ /* Ieee/string.scm 597 */
BgL_auxz00_7239 = BgL_stringz00_4120
; }  else 
{ 
 obj_t BgL_auxz00_7242;
BgL_auxz00_7242 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(27792L), BGl_string3829z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4120); 
FAILURE(BgL_auxz00_7242,BFALSE,BFALSE);} 
return 
BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(BgL_auxz00_7239);} } 

}



/* string-copy */
BGL_EXPORTED_DEF obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_85)
{
{ /* Ieee/string.scm 608 */
{ /* Ieee/string.scm 609 */
 long BgL_lenz00_1133;
BgL_lenz00_1133 = 
STRING_LENGTH(BgL_stringz00_85); 
{ /* Ieee/string.scm 609 */
 obj_t BgL_newz00_1134;
BgL_newz00_1134 = 
make_string_sans_fill(BgL_lenz00_1133); 
{ /* Ieee/string.scm 610 */

{ /* Ieee/string.scm 611 */
 long BgL_g1023z00_1135;
BgL_g1023z00_1135 = 
(BgL_lenz00_1133-1L); 
{ 
 long BgL_iz00_1137;
BgL_iz00_1137 = BgL_g1023z00_1135; 
BgL_zc3z04anonymousza31366ze3z87_1138:
if(
(BgL_iz00_1137==(-1L)))
{ /* Ieee/string.scm 612 */
return BgL_newz00_1134;}  else 
{ /* Ieee/string.scm 612 */
{ /* Ieee/string.scm 615 */
 unsigned char BgL_arg1368z00_1140;
{ /* Ieee/string.scm 343 */
 long BgL_l2281z00_4230;
BgL_l2281z00_4230 = 
STRING_LENGTH(BgL_stringz00_85); 
if(
BOUND_CHECK(BgL_iz00_1137, BgL_l2281z00_4230))
{ /* Ieee/string.scm 343 */
BgL_arg1368z00_1140 = 
STRING_REF(BgL_stringz00_85, BgL_iz00_1137); }  else 
{ 
 obj_t BgL_auxz00_7256;
BgL_auxz00_7256 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_85, 
(int)(BgL_l2281z00_4230), 
(int)(BgL_iz00_1137)); 
FAILURE(BgL_auxz00_7256,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 349 */
 long BgL_l2285z00_4234;
BgL_l2285z00_4234 = 
STRING_LENGTH(BgL_newz00_1134); 
if(
BOUND_CHECK(BgL_iz00_1137, BgL_l2285z00_4234))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_newz00_1134, BgL_iz00_1137, BgL_arg1368z00_1140); }  else 
{ 
 obj_t BgL_auxz00_7266;
BgL_auxz00_7266 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_newz00_1134, 
(int)(BgL_l2285z00_4234), 
(int)(BgL_iz00_1137)); 
FAILURE(BgL_auxz00_7266,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_7272;
BgL_iz00_7272 = 
(BgL_iz00_1137-1L); 
BgL_iz00_1137 = BgL_iz00_7272; 
goto BgL_zc3z04anonymousza31366ze3z87_1138;} } } } } } } } 

}



/* &string-copy */
obj_t BGl_z62stringzd2copyzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4121, obj_t BgL_stringz00_4122)
{
{ /* Ieee/string.scm 608 */
{ /* Ieee/string.scm 609 */
 obj_t BgL_auxz00_7274;
if(
STRINGP(BgL_stringz00_4122))
{ /* Ieee/string.scm 609 */
BgL_auxz00_7274 = BgL_stringz00_4122
; }  else 
{ 
 obj_t BgL_auxz00_7277;
BgL_auxz00_7277 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(28227L), BGl_string3830z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4122); 
FAILURE(BgL_auxz00_7277,BFALSE,BFALSE);} 
return 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_auxz00_7274);} } 

}



/* string-fill! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2fillz12zc0zz__r4_strings_6_7z00(obj_t BgL_stringz00_86, unsigned char BgL_charz00_87)
{
{ /* Ieee/string.scm 621 */
{ /* Ieee/string.scm 622 */
 long BgL_lenz00_1143;
BgL_lenz00_1143 = 
STRING_LENGTH(BgL_stringz00_86); 
{ 
 long BgL_iz00_2834;
BgL_iz00_2834 = 0L; 
BgL_loopz00_2833:
if(
(BgL_iz00_2834==BgL_lenz00_1143))
{ /* Ieee/string.scm 624 */
return BUNSPEC;}  else 
{ /* Ieee/string.scm 624 */
{ /* Ieee/string.scm 349 */
 long BgL_l2289z00_4238;
BgL_l2289z00_4238 = 
STRING_LENGTH(BgL_stringz00_86); 
if(
BOUND_CHECK(BgL_iz00_2834, BgL_l2289z00_4238))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_stringz00_86, BgL_iz00_2834, BgL_charz00_87); }  else 
{ 
 obj_t BgL_auxz00_7289;
BgL_auxz00_7289 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_stringz00_86, 
(int)(BgL_l2289z00_4238), 
(int)(BgL_iz00_2834)); 
FAILURE(BgL_auxz00_7289,BFALSE,BFALSE);} } 
{ 
 long BgL_iz00_7295;
BgL_iz00_7295 = 
(BgL_iz00_2834+1L); 
BgL_iz00_2834 = BgL_iz00_7295; 
goto BgL_loopz00_2833;} } } } } 

}



/* &string-fill! */
obj_t BGl_z62stringzd2fillz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4123, obj_t BgL_stringz00_4124, obj_t BgL_charz00_4125)
{
{ /* Ieee/string.scm 621 */
{ /* Ieee/string.scm 622 */
 unsigned char BgL_auxz00_7304; obj_t BgL_auxz00_7297;
{ /* Ieee/string.scm 622 */
 obj_t BgL_tmpz00_7305;
if(
CHARP(BgL_charz00_4125))
{ /* Ieee/string.scm 622 */
BgL_tmpz00_7305 = BgL_charz00_4125
; }  else 
{ 
 obj_t BgL_auxz00_7308;
BgL_auxz00_7308 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(28709L), BGl_string3831z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_charz00_4125); 
FAILURE(BgL_auxz00_7308,BFALSE,BFALSE);} 
BgL_auxz00_7304 = 
CCHAR(BgL_tmpz00_7305); } 
if(
STRINGP(BgL_stringz00_4124))
{ /* Ieee/string.scm 622 */
BgL_auxz00_7297 = BgL_stringz00_4124
; }  else 
{ 
 obj_t BgL_auxz00_7300;
BgL_auxz00_7300 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(28709L), BGl_string3831z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4124); 
FAILURE(BgL_auxz00_7300,BFALSE,BFALSE);} 
return 
BGl_stringzd2fillz12zc0zz__r4_strings_6_7z00(BgL_auxz00_7297, BgL_auxz00_7304);} } 

}



/* string-upcase */
BGL_EXPORTED_DEF obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_88)
{
{ /* Ieee/string.scm 633 */
{ /* Ieee/string.scm 634 */
 long BgL_lenz00_1150;
BgL_lenz00_1150 = 
STRING_LENGTH(BgL_stringz00_88); 
{ /* Ieee/string.scm 634 */
 obj_t BgL_resz00_1151;
BgL_resz00_1151 = 
make_string_sans_fill(BgL_lenz00_1150); 
{ /* Ieee/string.scm 635 */

{ 
 long BgL_iz00_1153;
BgL_iz00_1153 = 0L; 
BgL_zc3z04anonymousza31373ze3z87_1154:
if(
(BgL_iz00_1153==BgL_lenz00_1150))
{ /* Ieee/string.scm 637 */
return BgL_resz00_1151;}  else 
{ /* Ieee/string.scm 637 */
{ /* Ieee/string.scm 640 */
 unsigned char BgL_arg1376z00_1156;
{ /* Ieee/string.scm 640 */
 unsigned char BgL_tmpz00_7318;
{ /* Ieee/string.scm 343 */
 long BgL_l2293z00_4242;
BgL_l2293z00_4242 = 
STRING_LENGTH(BgL_stringz00_88); 
if(
BOUND_CHECK(BgL_iz00_1153, BgL_l2293z00_4242))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_7318 = 
STRING_REF(BgL_stringz00_88, BgL_iz00_1153)
; }  else 
{ 
 obj_t BgL_auxz00_7323;
BgL_auxz00_7323 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_88, 
(int)(BgL_l2293z00_4242), 
(int)(BgL_iz00_1153)); 
FAILURE(BgL_auxz00_7323,BFALSE,BFALSE);} } 
BgL_arg1376z00_1156 = 
toupper(BgL_tmpz00_7318); } 
{ /* Ieee/string.scm 349 */
 long BgL_l2297z00_4246;
BgL_l2297z00_4246 = 
STRING_LENGTH(BgL_resz00_1151); 
if(
BOUND_CHECK(BgL_iz00_1153, BgL_l2297z00_4246))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_resz00_1151, BgL_iz00_1153, BgL_arg1376z00_1156); }  else 
{ 
 obj_t BgL_auxz00_7334;
BgL_auxz00_7334 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_resz00_1151, 
(int)(BgL_l2297z00_4246), 
(int)(BgL_iz00_1153)); 
FAILURE(BgL_auxz00_7334,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_7340;
BgL_iz00_7340 = 
(BgL_iz00_1153+1L); 
BgL_iz00_1153 = BgL_iz00_7340; 
goto BgL_zc3z04anonymousza31373ze3z87_1154;} } } } } } } 

}



/* &string-upcase */
obj_t BGl_z62stringzd2upcasezb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4126, obj_t BgL_stringz00_4127)
{
{ /* Ieee/string.scm 633 */
{ /* Ieee/string.scm 634 */
 obj_t BgL_auxz00_7342;
if(
STRINGP(BgL_stringz00_4127))
{ /* Ieee/string.scm 634 */
BgL_auxz00_7342 = BgL_stringz00_4127
; }  else 
{ 
 obj_t BgL_auxz00_7345;
BgL_auxz00_7345 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(29133L), BGl_string3832z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4127); 
FAILURE(BgL_auxz00_7345,BFALSE,BFALSE);} 
return 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_auxz00_7342);} } 

}



/* string-downcase */
BGL_EXPORTED_DEF obj_t BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_89)
{
{ /* Ieee/string.scm 646 */
{ /* Ieee/string.scm 647 */
 long BgL_lenz00_1160;
BgL_lenz00_1160 = 
STRING_LENGTH(BgL_stringz00_89); 
{ /* Ieee/string.scm 647 */
 obj_t BgL_resz00_1161;
BgL_resz00_1161 = 
make_string_sans_fill(BgL_lenz00_1160); 
{ /* Ieee/string.scm 648 */

{ 
 long BgL_iz00_1163;
BgL_iz00_1163 = 0L; 
BgL_zc3z04anonymousza31379ze3z87_1164:
if(
(BgL_iz00_1163==BgL_lenz00_1160))
{ /* Ieee/string.scm 650 */
return BgL_resz00_1161;}  else 
{ /* Ieee/string.scm 650 */
{ /* Ieee/string.scm 653 */
 unsigned char BgL_arg1381z00_1166;
{ /* Ieee/string.scm 653 */
 unsigned char BgL_tmpz00_7354;
{ /* Ieee/string.scm 343 */
 long BgL_l2301z00_4250;
BgL_l2301z00_4250 = 
STRING_LENGTH(BgL_stringz00_89); 
if(
BOUND_CHECK(BgL_iz00_1163, BgL_l2301z00_4250))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_7354 = 
STRING_REF(BgL_stringz00_89, BgL_iz00_1163)
; }  else 
{ 
 obj_t BgL_auxz00_7359;
BgL_auxz00_7359 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_89, 
(int)(BgL_l2301z00_4250), 
(int)(BgL_iz00_1163)); 
FAILURE(BgL_auxz00_7359,BFALSE,BFALSE);} } 
BgL_arg1381z00_1166 = 
tolower(BgL_tmpz00_7354); } 
{ /* Ieee/string.scm 349 */
 long BgL_l2305z00_4254;
BgL_l2305z00_4254 = 
STRING_LENGTH(BgL_resz00_1161); 
if(
BOUND_CHECK(BgL_iz00_1163, BgL_l2305z00_4254))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_resz00_1161, BgL_iz00_1163, BgL_arg1381z00_1166); }  else 
{ 
 obj_t BgL_auxz00_7370;
BgL_auxz00_7370 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_resz00_1161, 
(int)(BgL_l2305z00_4254), 
(int)(BgL_iz00_1163)); 
FAILURE(BgL_auxz00_7370,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_7376;
BgL_iz00_7376 = 
(BgL_iz00_1163+1L); 
BgL_iz00_1163 = BgL_iz00_7376; 
goto BgL_zc3z04anonymousza31379ze3z87_1164;} } } } } } } 

}



/* &string-downcase */
obj_t BGl_z62stringzd2downcasezb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4128, obj_t BgL_stringz00_4129)
{
{ /* Ieee/string.scm 646 */
{ /* Ieee/string.scm 647 */
 obj_t BgL_auxz00_7378;
if(
STRINGP(BgL_stringz00_4129))
{ /* Ieee/string.scm 647 */
BgL_auxz00_7378 = BgL_stringz00_4129
; }  else 
{ 
 obj_t BgL_auxz00_7381;
BgL_auxz00_7381 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(29618L), BGl_string3833z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4129); 
FAILURE(BgL_auxz00_7381,BFALSE,BFALSE);} 
return 
BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(BgL_auxz00_7378);} } 

}



/* string-upcase! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(obj_t BgL_stringz00_90)
{
{ /* Ieee/string.scm 659 */
{ /* Ieee/string.scm 660 */
 long BgL_lenz00_1170;
BgL_lenz00_1170 = 
STRING_LENGTH(BgL_stringz00_90); 
{ 
 long BgL_iz00_1172;
BgL_iz00_1172 = 0L; 
BgL_zc3z04anonymousza31384ze3z87_1173:
if(
(BgL_iz00_1172==BgL_lenz00_1170))
{ /* Ieee/string.scm 662 */
return BgL_stringz00_90;}  else 
{ /* Ieee/string.scm 662 */
{ /* Ieee/string.scm 665 */
 unsigned char BgL_arg1386z00_1175;
{ /* Ieee/string.scm 665 */
 unsigned char BgL_tmpz00_7389;
{ /* Ieee/string.scm 343 */
 long BgL_l2309z00_4258;
BgL_l2309z00_4258 = 
STRING_LENGTH(BgL_stringz00_90); 
if(
BOUND_CHECK(BgL_iz00_1172, BgL_l2309z00_4258))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_7389 = 
STRING_REF(BgL_stringz00_90, BgL_iz00_1172)
; }  else 
{ 
 obj_t BgL_auxz00_7394;
BgL_auxz00_7394 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_90, 
(int)(BgL_l2309z00_4258), 
(int)(BgL_iz00_1172)); 
FAILURE(BgL_auxz00_7394,BFALSE,BFALSE);} } 
BgL_arg1386z00_1175 = 
toupper(BgL_tmpz00_7389); } 
{ /* Ieee/string.scm 349 */
 long BgL_l2313z00_4262;
BgL_l2313z00_4262 = 
STRING_LENGTH(BgL_stringz00_90); 
if(
BOUND_CHECK(BgL_iz00_1172, BgL_l2313z00_4262))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_stringz00_90, BgL_iz00_1172, BgL_arg1386z00_1175); }  else 
{ 
 obj_t BgL_auxz00_7405;
BgL_auxz00_7405 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_stringz00_90, 
(int)(BgL_l2313z00_4262), 
(int)(BgL_iz00_1172)); 
FAILURE(BgL_auxz00_7405,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_7411;
BgL_iz00_7411 = 
(BgL_iz00_1172+1L); 
BgL_iz00_1172 = BgL_iz00_7411; 
goto BgL_zc3z04anonymousza31384ze3z87_1173;} } } } } 

}



/* &string-upcase! */
obj_t BGl_z62stringzd2upcasez12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4130, obj_t BgL_stringz00_4131)
{
{ /* Ieee/string.scm 659 */
{ /* Ieee/string.scm 660 */
 obj_t BgL_auxz00_7413;
if(
STRINGP(BgL_stringz00_4131))
{ /* Ieee/string.scm 660 */
BgL_auxz00_7413 = BgL_stringz00_4131
; }  else 
{ 
 obj_t BgL_auxz00_7416;
BgL_auxz00_7416 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(30104L), BGl_string3834z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4131); 
FAILURE(BgL_auxz00_7416,BFALSE,BFALSE);} 
return 
BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(BgL_auxz00_7413);} } 

}



/* string-downcase! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(obj_t BgL_stringz00_91)
{
{ /* Ieee/string.scm 671 */
{ /* Ieee/string.scm 672 */
 long BgL_lenz00_1179;
BgL_lenz00_1179 = 
STRING_LENGTH(BgL_stringz00_91); 
{ 
 long BgL_iz00_1181;
BgL_iz00_1181 = 0L; 
BgL_zc3z04anonymousza31389ze3z87_1182:
if(
(BgL_iz00_1181==BgL_lenz00_1179))
{ /* Ieee/string.scm 674 */
return BgL_stringz00_91;}  else 
{ /* Ieee/string.scm 674 */
{ /* Ieee/string.scm 677 */
 unsigned char BgL_arg1391z00_1184;
{ /* Ieee/string.scm 677 */
 unsigned char BgL_tmpz00_7424;
{ /* Ieee/string.scm 343 */
 long BgL_l2317z00_4266;
BgL_l2317z00_4266 = 
STRING_LENGTH(BgL_stringz00_91); 
if(
BOUND_CHECK(BgL_iz00_1181, BgL_l2317z00_4266))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_7424 = 
STRING_REF(BgL_stringz00_91, BgL_iz00_1181)
; }  else 
{ 
 obj_t BgL_auxz00_7429;
BgL_auxz00_7429 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_91, 
(int)(BgL_l2317z00_4266), 
(int)(BgL_iz00_1181)); 
FAILURE(BgL_auxz00_7429,BFALSE,BFALSE);} } 
BgL_arg1391z00_1184 = 
tolower(BgL_tmpz00_7424); } 
{ /* Ieee/string.scm 349 */
 long BgL_l2321z00_4270;
BgL_l2321z00_4270 = 
STRING_LENGTH(BgL_stringz00_91); 
if(
BOUND_CHECK(BgL_iz00_1181, BgL_l2321z00_4270))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_stringz00_91, BgL_iz00_1181, BgL_arg1391z00_1184); }  else 
{ 
 obj_t BgL_auxz00_7440;
BgL_auxz00_7440 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_stringz00_91, 
(int)(BgL_l2321z00_4270), 
(int)(BgL_iz00_1181)); 
FAILURE(BgL_auxz00_7440,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_7446;
BgL_iz00_7446 = 
(BgL_iz00_1181+1L); 
BgL_iz00_1181 = BgL_iz00_7446; 
goto BgL_zc3z04anonymousza31389ze3z87_1182;} } } } } 

}



/* &string-downcase! */
obj_t BGl_z62stringzd2downcasez12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4132, obj_t BgL_stringz00_4133)
{
{ /* Ieee/string.scm 671 */
{ /* Ieee/string.scm 672 */
 obj_t BgL_auxz00_7448;
if(
STRINGP(BgL_stringz00_4133))
{ /* Ieee/string.scm 672 */
BgL_auxz00_7448 = BgL_stringz00_4133
; }  else 
{ 
 obj_t BgL_auxz00_7451;
BgL_auxz00_7451 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(30559L), BGl_string3835z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4133); 
FAILURE(BgL_auxz00_7451,BFALSE,BFALSE);} 
return 
BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(BgL_auxz00_7448);} } 

}



/* string-capitalize! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(obj_t BgL_stringz00_92)
{
{ /* Ieee/string.scm 687 */
{ /* Ieee/string.scm 688 */
 bool_t BgL_nonzd2firstzd2alphaz00_1188; long BgL_stringzd2lenzd2_1189;
BgL_nonzd2firstzd2alphaz00_1188 = ((bool_t)0); 
BgL_stringzd2lenzd2_1189 = 
STRING_LENGTH(BgL_stringz00_92); 
{ 
 long BgL_iz00_1191;
BgL_iz00_1191 = 0L; 
BgL_zc3z04anonymousza31396ze3z87_1192:
if(
(BgL_iz00_1191==BgL_stringzd2lenzd2_1189))
{ /* Ieee/string.scm 690 */
return BgL_stringz00_92;}  else 
{ /* Ieee/string.scm 690 */
{ /* Ieee/string.scm 692 */
 unsigned char BgL_cz00_1194;
{ /* Ieee/string.scm 343 */
 long BgL_l2325z00_4274;
BgL_l2325z00_4274 = 
STRING_LENGTH(BgL_stringz00_92); 
if(
BOUND_CHECK(BgL_iz00_1191, BgL_l2325z00_4274))
{ /* Ieee/string.scm 343 */
BgL_cz00_1194 = 
STRING_REF(BgL_stringz00_92, BgL_iz00_1191); }  else 
{ 
 obj_t BgL_auxz00_7463;
BgL_auxz00_7463 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_92, 
(int)(BgL_l2325z00_4274), 
(int)(BgL_iz00_1191)); 
FAILURE(BgL_auxz00_7463,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 693 */
 bool_t BgL_test4443z00_7469;
if(
isalpha(BgL_cz00_1194))
{ /* Ieee/string.scm 693 */
BgL_test4443z00_7469 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 693 */
BgL_test4443z00_7469 = 
(
(BgL_cz00_1194)>127L)
; } 
if(BgL_test4443z00_7469)
{ /* Ieee/string.scm 693 */
if(BgL_nonzd2firstzd2alphaz00_1188)
{ /* Ieee/string.scm 695 */
 unsigned char BgL_arg1401z00_1198;
BgL_arg1401z00_1198 = 
tolower(BgL_cz00_1194); 
{ /* Ieee/string.scm 349 */
 long BgL_l2329z00_4278;
BgL_l2329z00_4278 = 
STRING_LENGTH(BgL_stringz00_92); 
if(
BOUND_CHECK(BgL_iz00_1191, BgL_l2329z00_4278))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_stringz00_92, BgL_iz00_1191, BgL_arg1401z00_1198); }  else 
{ 
 obj_t BgL_auxz00_7480;
BgL_auxz00_7480 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_stringz00_92, 
(int)(BgL_l2329z00_4278), 
(int)(BgL_iz00_1191)); 
FAILURE(BgL_auxz00_7480,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 694 */
BgL_nonzd2firstzd2alphaz00_1188 = ((bool_t)1); 
{ /* Ieee/string.scm 698 */
 unsigned char BgL_arg1402z00_1199;
BgL_arg1402z00_1199 = 
toupper(BgL_cz00_1194); 
{ /* Ieee/string.scm 349 */
 long BgL_l2333z00_4282;
BgL_l2333z00_4282 = 
STRING_LENGTH(BgL_stringz00_92); 
if(
BOUND_CHECK(BgL_iz00_1191, BgL_l2333z00_4282))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_stringz00_92, BgL_iz00_1191, BgL_arg1402z00_1199); }  else 
{ 
 obj_t BgL_auxz00_7491;
BgL_auxz00_7491 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_stringz00_92, 
(int)(BgL_l2333z00_4282), 
(int)(BgL_iz00_1191)); 
FAILURE(BgL_auxz00_7491,BFALSE,BFALSE);} } } } }  else 
{ /* Ieee/string.scm 693 */
BgL_nonzd2firstzd2alphaz00_1188 = ((bool_t)0); } } } 
{ 
 long BgL_iz00_7497;
BgL_iz00_7497 = 
(BgL_iz00_1191+1L); 
BgL_iz00_1191 = BgL_iz00_7497; 
goto BgL_zc3z04anonymousza31396ze3z87_1192;} } } } } 

}



/* &string-capitalize! */
obj_t BGl_z62stringzd2capitaliza7ez12z05zz__r4_strings_6_7z00(obj_t BgL_envz00_4134, obj_t BgL_stringz00_4135)
{
{ /* Ieee/string.scm 687 */
{ /* Ieee/string.scm 688 */
 obj_t BgL_auxz00_7499;
if(
STRINGP(BgL_stringz00_4135))
{ /* Ieee/string.scm 688 */
BgL_auxz00_7499 = BgL_stringz00_4135
; }  else 
{ 
 obj_t BgL_auxz00_7502;
BgL_auxz00_7502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(31314L), BGl_string3836z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4135); 
FAILURE(BgL_auxz00_7502,BFALSE,BFALSE);} 
return 
BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(BgL_auxz00_7499);} } 

}



/* string-capitalize */
BGL_EXPORTED_DEF obj_t BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(obj_t BgL_stringz00_93)
{
{ /* Ieee/string.scm 704 */
BGL_TAIL return 
BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_stringz00_93));} 

}



/* &string-capitalize */
obj_t BGl_z62stringzd2capitaliza7ez17zz__r4_strings_6_7z00(obj_t BgL_envz00_4136, obj_t BgL_stringz00_4137)
{
{ /* Ieee/string.scm 704 */
{ /* Ieee/string.scm 705 */
 obj_t BgL_auxz00_7509;
if(
STRINGP(BgL_stringz00_4137))
{ /* Ieee/string.scm 705 */
BgL_auxz00_7509 = BgL_stringz00_4137
; }  else 
{ 
 obj_t BgL_auxz00_7512;
BgL_auxz00_7512 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(32038L), BGl_string3837z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4137); 
FAILURE(BgL_auxz00_7512,BFALSE,BFALSE);} 
return 
BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(BgL_auxz00_7509);} } 

}



/* string-for-read */
BGL_EXPORTED_DEF obj_t BGl_stringzd2forzd2readz00zz__r4_strings_6_7z00(obj_t BgL_stringz00_94)
{
{ /* Ieee/string.scm 710 */
BGL_TAIL return 
string_for_read(BgL_stringz00_94);} 

}



/* &string-for-read */
obj_t BGl_z62stringzd2forzd2readz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4138, obj_t BgL_stringz00_4139)
{
{ /* Ieee/string.scm 710 */
{ /* Ieee/string.scm 711 */
 obj_t BgL_auxz00_7518;
if(
STRINGP(BgL_stringz00_4139))
{ /* Ieee/string.scm 711 */
BgL_auxz00_7518 = BgL_stringz00_4139
; }  else 
{ 
 obj_t BgL_auxz00_7521;
BgL_auxz00_7521 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(32327L), BGl_string3838z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4139); 
FAILURE(BgL_auxz00_7521,BFALSE,BFALSE);} 
return 
BGl_stringzd2forzd2readz00zz__r4_strings_6_7z00(BgL_auxz00_7518);} } 

}



/* escape-C-string */
BGL_EXPORTED_DEF obj_t BGl_escapezd2Czd2stringz00zz__r4_strings_6_7z00(obj_t BgL_strz00_95)
{
{ /* Ieee/string.scm 718 */
{ /* Ieee/string.scm 719 */
 obj_t BgL_arg1407z00_5796;
{ /* Ieee/string.scm 194 */
 long BgL_endz00_5797;
BgL_endz00_5797 = 
STRING_LENGTH(BgL_strz00_95); 
{ /* Ieee/string.scm 194 */

BgL_arg1407z00_5796 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_95, 1L, BgL_endz00_5797); } } 
return 
bgl_escape_C_string(
BSTRING_TO_STRING(BgL_arg1407z00_5796), 0L, 
STRING_LENGTH(BgL_arg1407z00_5796));} } 

}



/* &escape-C-string */
obj_t BGl_z62escapezd2Czd2stringz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4140, obj_t BgL_strz00_4141)
{
{ /* Ieee/string.scm 718 */
{ /* Ieee/string.scm 719 */
 obj_t BgL_auxz00_7531;
if(
STRINGP(BgL_strz00_4141))
{ /* Ieee/string.scm 719 */
BgL_auxz00_7531 = BgL_strz00_4141
; }  else 
{ 
 obj_t BgL_auxz00_7534;
BgL_auxz00_7534 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(32781L), BGl_string3839z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_4141); 
FAILURE(BgL_auxz00_7534,BFALSE,BFALSE);} 
return 
BGl_escapezd2Czd2stringz00zz__r4_strings_6_7z00(BgL_auxz00_7531);} } 

}



/* escape-scheme-string */
BGL_EXPORTED_DEF obj_t BGl_escapezd2schemezd2stringz00zz__r4_strings_6_7z00(obj_t BgL_strz00_96)
{
{ /* Ieee/string.scm 726 */
return 
bgl_escape_scheme_string(
BSTRING_TO_STRING(BgL_strz00_96), 0L, 
STRING_LENGTH(BgL_strz00_96));} 

}



/* &escape-scheme-string */
obj_t BGl_z62escapezd2schemezd2stringz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4142, obj_t BgL_strz00_4143)
{
{ /* Ieee/string.scm 726 */
{ /* Ieee/string.scm 727 */
 obj_t BgL_auxz00_7542;
if(
STRINGP(BgL_strz00_4143))
{ /* Ieee/string.scm 727 */
BgL_auxz00_7542 = BgL_strz00_4143
; }  else 
{ 
 obj_t BgL_auxz00_7545;
BgL_auxz00_7545 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(33246L), BGl_string3840z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_4143); 
FAILURE(BgL_auxz00_7545,BFALSE,BFALSE);} 
return 
BGl_escapezd2schemezd2stringz00zz__r4_strings_6_7z00(BgL_auxz00_7542);} } 

}



/* string-as-read */
BGL_EXPORTED_DEF obj_t BGl_stringzd2aszd2readz00zz__r4_strings_6_7z00(obj_t BgL_strz00_97)
{
{ /* Ieee/string.scm 732 */
return 
bgl_escape_C_string(
BSTRING_TO_STRING(BgL_strz00_97), 0L, 
STRING_LENGTH(BgL_strz00_97));} 

}



/* &string-as-read */
obj_t BGl_z62stringzd2aszd2readz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4144, obj_t BgL_strz00_4145)
{
{ /* Ieee/string.scm 732 */
{ /* Ieee/string.scm 733 */
 obj_t BgL_auxz00_7553;
if(
STRINGP(BgL_strz00_4145))
{ /* Ieee/string.scm 733 */
BgL_auxz00_7553 = BgL_strz00_4145
; }  else 
{ 
 obj_t BgL_auxz00_7556;
BgL_auxz00_7556 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(33554L), BGl_string3841z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_4145); 
FAILURE(BgL_auxz00_7556,BFALSE,BFALSE);} 
return 
BGl_stringzd2aszd2readz00zz__r4_strings_6_7z00(BgL_auxz00_7553);} } 

}



/* blit-string-ur! */
BGL_EXPORTED_DEF obj_t BGl_blitzd2stringzd2urz12z12zz__r4_strings_6_7z00(obj_t BgL_s1z00_98, long BgL_o1z00_99, obj_t BgL_s2z00_100, long BgL_o2z00_101, long BgL_lz00_102)
{
{ /* Ieee/string.scm 738 */
BGL_TAIL return 
blit_string(BgL_s1z00_98, BgL_o1z00_99, BgL_s2z00_100, BgL_o2z00_101, BgL_lz00_102);} 

}



/* &blit-string-ur! */
obj_t BGl_z62blitzd2stringzd2urz12z70zz__r4_strings_6_7z00(obj_t BgL_envz00_4146, obj_t BgL_s1z00_4147, obj_t BgL_o1z00_4148, obj_t BgL_s2z00_4149, obj_t BgL_o2z00_4150, obj_t BgL_lz00_4151)
{
{ /* Ieee/string.scm 738 */
{ /* Ieee/string.scm 739 */
 long BgL_auxz00_7594; long BgL_auxz00_7585; obj_t BgL_auxz00_7578; long BgL_auxz00_7569; obj_t BgL_auxz00_7562;
{ /* Ieee/string.scm 739 */
 obj_t BgL_tmpz00_7595;
if(
INTEGERP(BgL_lz00_4151))
{ /* Ieee/string.scm 739 */
BgL_tmpz00_7595 = BgL_lz00_4151
; }  else 
{ 
 obj_t BgL_auxz00_7598;
BgL_auxz00_7598 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(33849L), BGl_string3842z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lz00_4151); 
FAILURE(BgL_auxz00_7598,BFALSE,BFALSE);} 
BgL_auxz00_7594 = 
(long)CINT(BgL_tmpz00_7595); } 
{ /* Ieee/string.scm 739 */
 obj_t BgL_tmpz00_7586;
if(
INTEGERP(BgL_o2z00_4150))
{ /* Ieee/string.scm 739 */
BgL_tmpz00_7586 = BgL_o2z00_4150
; }  else 
{ 
 obj_t BgL_auxz00_7589;
BgL_auxz00_7589 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(33849L), BGl_string3842z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_o2z00_4150); 
FAILURE(BgL_auxz00_7589,BFALSE,BFALSE);} 
BgL_auxz00_7585 = 
(long)CINT(BgL_tmpz00_7586); } 
if(
STRINGP(BgL_s2z00_4149))
{ /* Ieee/string.scm 739 */
BgL_auxz00_7578 = BgL_s2z00_4149
; }  else 
{ 
 obj_t BgL_auxz00_7581;
BgL_auxz00_7581 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(33849L), BGl_string3842z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_4149); 
FAILURE(BgL_auxz00_7581,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 739 */
 obj_t BgL_tmpz00_7570;
if(
INTEGERP(BgL_o1z00_4148))
{ /* Ieee/string.scm 739 */
BgL_tmpz00_7570 = BgL_o1z00_4148
; }  else 
{ 
 obj_t BgL_auxz00_7573;
BgL_auxz00_7573 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(33849L), BGl_string3842z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_o1z00_4148); 
FAILURE(BgL_auxz00_7573,BFALSE,BFALSE);} 
BgL_auxz00_7569 = 
(long)CINT(BgL_tmpz00_7570); } 
if(
STRINGP(BgL_s1z00_4147))
{ /* Ieee/string.scm 739 */
BgL_auxz00_7562 = BgL_s1z00_4147
; }  else 
{ 
 obj_t BgL_auxz00_7565;
BgL_auxz00_7565 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(33849L), BGl_string3842z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_4147); 
FAILURE(BgL_auxz00_7565,BFALSE,BFALSE);} 
return 
BGl_blitzd2stringzd2urz12z12zz__r4_strings_6_7z00(BgL_auxz00_7562, BgL_auxz00_7569, BgL_auxz00_7578, BgL_auxz00_7585, BgL_auxz00_7594);} } 

}



/* blit-string! */
BGL_EXPORTED_DEF obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t BgL_s1z00_103, long BgL_o1z00_104, obj_t BgL_s2z00_105, long BgL_o2z00_106, long BgL_lz00_107)
{
{ /* Ieee/string.scm 744 */
{ /* Ieee/string.scm 745 */
 bool_t BgL_test4459z00_7604;
{ /* Ieee/string.scm 745 */
 bool_t BgL_test4460z00_7605;
{ /* Ieee/string.scm 745 */
 long BgL_auxz00_7608; long BgL_tmpz00_7606;
BgL_auxz00_7608 = 
(
STRING_LENGTH(BgL_s1z00_103)+1L); 
BgL_tmpz00_7606 = 
(BgL_lz00_107+BgL_o1z00_104); 
BgL_test4460z00_7605 = 
BOUND_CHECK(BgL_tmpz00_7606, BgL_auxz00_7608); } 
if(BgL_test4460z00_7605)
{ /* Ieee/string.scm 746 */
 long BgL_auxz00_7614; long BgL_tmpz00_7612;
BgL_auxz00_7614 = 
(
STRING_LENGTH(BgL_s2z00_105)+1L); 
BgL_tmpz00_7612 = 
(BgL_lz00_107+BgL_o2z00_106); 
BgL_test4459z00_7604 = 
BOUND_CHECK(BgL_tmpz00_7612, BgL_auxz00_7614); }  else 
{ /* Ieee/string.scm 745 */
BgL_test4459z00_7604 = ((bool_t)0)
; } } 
if(BgL_test4459z00_7604)
{ /* Ieee/string.scm 745 */
BGL_TAIL return 
blit_string(BgL_s1z00_103, BgL_o1z00_104, BgL_s2z00_105, BgL_o2z00_106, BgL_lz00_107);}  else 
{ /* Ieee/string.scm 749 */
 obj_t BgL_arg1422z00_1222; obj_t BgL_arg1423z00_1223;
{ /* Ieee/string.scm 749 */
 obj_t BgL_list1424z00_1224;
{ /* Ieee/string.scm 749 */
 obj_t BgL_arg1425z00_1225;
{ /* Ieee/string.scm 749 */
 obj_t BgL_arg1426z00_1226;
{ /* Ieee/string.scm 749 */
 obj_t BgL_arg1427z00_1227;
{ /* Ieee/string.scm 749 */
 obj_t BgL_arg1428z00_1228;
BgL_arg1428z00_1228 = 
MAKE_YOUNG_PAIR(BGl_string3843z00zz__r4_strings_6_7z00, BNIL); 
BgL_arg1427z00_1227 = 
MAKE_YOUNG_PAIR(BgL_s2z00_105, BgL_arg1428z00_1228); } 
BgL_arg1426z00_1226 = 
MAKE_YOUNG_PAIR(BGl_string3844z00zz__r4_strings_6_7z00, BgL_arg1427z00_1227); } 
BgL_arg1425z00_1225 = 
MAKE_YOUNG_PAIR(BgL_s1z00_103, BgL_arg1426z00_1226); } 
BgL_list1424z00_1224 = 
MAKE_YOUNG_PAIR(BGl_string3845z00zz__r4_strings_6_7z00, BgL_arg1425z00_1225); } 
BgL_arg1422z00_1222 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1424z00_1224); } 
{ /* Ieee/string.scm 750 */
 long BgL_arg1429z00_1229; long BgL_arg1430z00_1230;
BgL_arg1429z00_1229 = 
STRING_LENGTH(BgL_s1z00_103); 
BgL_arg1430z00_1230 = 
STRING_LENGTH(BgL_s2z00_105); 
{ /* Ieee/string.scm 750 */
 obj_t BgL_list1431z00_1231;
{ /* Ieee/string.scm 750 */
 obj_t BgL_arg1432z00_1232;
{ /* Ieee/string.scm 750 */
 obj_t BgL_arg1433z00_1233;
{ /* Ieee/string.scm 750 */
 obj_t BgL_arg1434z00_1234;
{ /* Ieee/string.scm 750 */
 obj_t BgL_arg1435z00_1235;
BgL_arg1435z00_1235 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lz00_107), BNIL); 
BgL_arg1434z00_1234 = 
MAKE_YOUNG_PAIR(
BINT(BgL_o2z00_106), BgL_arg1435z00_1235); } 
BgL_arg1433z00_1233 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1430z00_1230), BgL_arg1434z00_1234); } 
BgL_arg1432z00_1232 = 
MAKE_YOUNG_PAIR(
BINT(BgL_o1z00_104), BgL_arg1433z00_1233); } 
BgL_list1431z00_1231 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1429z00_1229), BgL_arg1432z00_1232); } 
BgL_arg1423z00_1223 = BgL_list1431z00_1231; } } 
return 
BGl_errorz00zz__errorz00(BGl_string3846z00zz__r4_strings_6_7z00, BgL_arg1422z00_1222, BgL_arg1423z00_1223);} } } 

}



/* &blit-string! */
obj_t BGl_z62blitzd2stringz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4152, obj_t BgL_s1z00_4153, obj_t BgL_o1z00_4154, obj_t BgL_s2z00_4155, obj_t BgL_o2z00_4156, obj_t BgL_lz00_4157)
{
{ /* Ieee/string.scm 744 */
{ /* Ieee/string.scm 745 */
 long BgL_auxz00_7670; long BgL_auxz00_7661; obj_t BgL_auxz00_7654; long BgL_auxz00_7645; obj_t BgL_auxz00_7638;
{ /* Ieee/string.scm 745 */
 obj_t BgL_tmpz00_7671;
if(
INTEGERP(BgL_lz00_4157))
{ /* Ieee/string.scm 745 */
BgL_tmpz00_7671 = BgL_lz00_4157
; }  else 
{ 
 obj_t BgL_auxz00_7674;
BgL_auxz00_7674 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(34142L), BGl_string3847z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lz00_4157); 
FAILURE(BgL_auxz00_7674,BFALSE,BFALSE);} 
BgL_auxz00_7670 = 
(long)CINT(BgL_tmpz00_7671); } 
{ /* Ieee/string.scm 745 */
 obj_t BgL_tmpz00_7662;
if(
INTEGERP(BgL_o2z00_4156))
{ /* Ieee/string.scm 745 */
BgL_tmpz00_7662 = BgL_o2z00_4156
; }  else 
{ 
 obj_t BgL_auxz00_7665;
BgL_auxz00_7665 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(34142L), BGl_string3847z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_o2z00_4156); 
FAILURE(BgL_auxz00_7665,BFALSE,BFALSE);} 
BgL_auxz00_7661 = 
(long)CINT(BgL_tmpz00_7662); } 
if(
STRINGP(BgL_s2z00_4155))
{ /* Ieee/string.scm 745 */
BgL_auxz00_7654 = BgL_s2z00_4155
; }  else 
{ 
 obj_t BgL_auxz00_7657;
BgL_auxz00_7657 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(34142L), BGl_string3847z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_4155); 
FAILURE(BgL_auxz00_7657,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 745 */
 obj_t BgL_tmpz00_7646;
if(
INTEGERP(BgL_o1z00_4154))
{ /* Ieee/string.scm 745 */
BgL_tmpz00_7646 = BgL_o1z00_4154
; }  else 
{ 
 obj_t BgL_auxz00_7649;
BgL_auxz00_7649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(34142L), BGl_string3847z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_o1z00_4154); 
FAILURE(BgL_auxz00_7649,BFALSE,BFALSE);} 
BgL_auxz00_7645 = 
(long)CINT(BgL_tmpz00_7646); } 
if(
STRINGP(BgL_s1z00_4153))
{ /* Ieee/string.scm 745 */
BgL_auxz00_7638 = BgL_s1z00_4153
; }  else 
{ 
 obj_t BgL_auxz00_7641;
BgL_auxz00_7641 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(34142L), BGl_string3847z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_4153); 
FAILURE(BgL_auxz00_7641,BFALSE,BFALSE);} 
return 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_auxz00_7638, BgL_auxz00_7645, BgL_auxz00_7654, BgL_auxz00_7661, BgL_auxz00_7670);} } 

}



/* string-shrink! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2shrinkz12zc0zz__r4_strings_6_7z00(obj_t BgL_sz00_108, long BgL_lz00_109)
{
{ /* Ieee/string.scm 755 */
return 
bgl_string_shrink(BgL_sz00_108, BgL_lz00_109);} 

}



/* &string-shrink! */
obj_t BGl_z62stringzd2shrinkz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4158, obj_t BgL_sz00_4159, obj_t BgL_lz00_4160)
{
{ /* Ieee/string.scm 755 */
{ /* Ieee/string.scm 756 */
 long BgL_auxz00_7688; obj_t BgL_auxz00_7681;
{ /* Ieee/string.scm 756 */
 obj_t BgL_tmpz00_7689;
if(
INTEGERP(BgL_lz00_4160))
{ /* Ieee/string.scm 756 */
BgL_tmpz00_7689 = BgL_lz00_4160
; }  else 
{ 
 obj_t BgL_auxz00_7692;
BgL_auxz00_7692 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(34751L), BGl_string3848z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_lz00_4160); 
FAILURE(BgL_auxz00_7692,BFALSE,BFALSE);} 
BgL_auxz00_7688 = 
(long)CINT(BgL_tmpz00_7689); } 
if(
STRINGP(BgL_sz00_4159))
{ /* Ieee/string.scm 756 */
BgL_auxz00_7681 = BgL_sz00_4159
; }  else 
{ 
 obj_t BgL_auxz00_7684;
BgL_auxz00_7684 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(34751L), BGl_string3848z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_sz00_4159); 
FAILURE(BgL_auxz00_7684,BFALSE,BFALSE);} 
return 
BGl_stringzd2shrinkz12zc0zz__r4_strings_6_7z00(BgL_auxz00_7681, BgL_auxz00_7688);} } 

}



/* string-replace */
BGL_EXPORTED_DEF obj_t BGl_stringzd2replacezd2zz__r4_strings_6_7z00(obj_t BgL_strz00_110, unsigned char BgL_c1z00_111, unsigned char BgL_c2z00_112)
{
{ /* Ieee/string.scm 761 */
{ /* Ieee/string.scm 762 */
 long BgL_lenz00_1243;
BgL_lenz00_1243 = 
STRING_LENGTH(BgL_strz00_110); 
{ /* Ieee/string.scm 762 */
 obj_t BgL_newz00_1244;
{ /* Ieee/string.scm 172 */

BgL_newz00_1244 = 
make_string(BgL_lenz00_1243, ((unsigned char)' ')); } 
{ /* Ieee/string.scm 763 */

{ 
 long BgL_iz00_1246;
BgL_iz00_1246 = 0L; 
BgL_zc3z04anonymousza31444ze3z87_1247:
if(
(BgL_iz00_1246==BgL_lenz00_1243))
{ /* Ieee/string.scm 765 */
return BgL_newz00_1244;}  else 
{ /* Ieee/string.scm 767 */
 unsigned char BgL_cz00_1249;
{ /* Ieee/string.scm 343 */
 long BgL_l2337z00_4286;
BgL_l2337z00_4286 = 
STRING_LENGTH(BgL_strz00_110); 
if(
BOUND_CHECK(BgL_iz00_1246, BgL_l2337z00_4286))
{ /* Ieee/string.scm 343 */
BgL_cz00_1249 = 
STRING_REF(BgL_strz00_110, BgL_iz00_1246); }  else 
{ 
 obj_t BgL_auxz00_7706;
BgL_auxz00_7706 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_strz00_110, 
(int)(BgL_l2337z00_4286), 
(int)(BgL_iz00_1246)); 
FAILURE(BgL_auxz00_7706,BFALSE,BFALSE);} } 
if(
(BgL_cz00_1249==
(unsigned char)(BgL_c1z00_111)))
{ /* Ieee/string.scm 769 */
 unsigned char BgL_charz00_2934;
BgL_charz00_2934 = 
(unsigned char)(BgL_c2z00_112); 
{ /* Ieee/string.scm 349 */
 long BgL_l2341z00_4290;
BgL_l2341z00_4290 = 
STRING_LENGTH(BgL_newz00_1244); 
if(
BOUND_CHECK(BgL_iz00_1246, BgL_l2341z00_4290))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_newz00_1244, BgL_iz00_1246, BgL_charz00_2934); }  else 
{ 
 obj_t BgL_auxz00_7720;
BgL_auxz00_7720 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_newz00_1244, 
(int)(BgL_l2341z00_4290), 
(int)(BgL_iz00_1246)); 
FAILURE(BgL_auxz00_7720,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 349 */
 long BgL_l2345z00_4294;
BgL_l2345z00_4294 = 
STRING_LENGTH(BgL_newz00_1244); 
if(
BOUND_CHECK(BgL_iz00_1246, BgL_l2345z00_4294))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_newz00_1244, BgL_iz00_1246, BgL_cz00_1249); }  else 
{ 
 obj_t BgL_auxz00_7730;
BgL_auxz00_7730 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_newz00_1244, 
(int)(BgL_l2345z00_4294), 
(int)(BgL_iz00_1246)); 
FAILURE(BgL_auxz00_7730,BFALSE,BFALSE);} } 
{ 
 long BgL_iz00_7736;
BgL_iz00_7736 = 
(BgL_iz00_1246+1L); 
BgL_iz00_1246 = BgL_iz00_7736; 
goto BgL_zc3z04anonymousza31444ze3z87_1247;} } } } } } } 

}



/* &string-replace */
obj_t BGl_z62stringzd2replacezb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4161, obj_t BgL_strz00_4162, obj_t BgL_c1z00_4163, obj_t BgL_c2z00_4164)
{
{ /* Ieee/string.scm 761 */
{ /* Ieee/string.scm 762 */
 unsigned char BgL_auxz00_7754; unsigned char BgL_auxz00_7745; obj_t BgL_auxz00_7738;
{ /* Ieee/string.scm 762 */
 obj_t BgL_tmpz00_7755;
if(
CHARP(BgL_c2z00_4164))
{ /* Ieee/string.scm 762 */
BgL_tmpz00_7755 = BgL_c2z00_4164
; }  else 
{ 
 obj_t BgL_auxz00_7758;
BgL_auxz00_7758 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(35035L), BGl_string3849z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_c2z00_4164); 
FAILURE(BgL_auxz00_7758,BFALSE,BFALSE);} 
BgL_auxz00_7754 = 
CCHAR(BgL_tmpz00_7755); } 
{ /* Ieee/string.scm 762 */
 obj_t BgL_tmpz00_7746;
if(
CHARP(BgL_c1z00_4163))
{ /* Ieee/string.scm 762 */
BgL_tmpz00_7746 = BgL_c1z00_4163
; }  else 
{ 
 obj_t BgL_auxz00_7749;
BgL_auxz00_7749 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(35035L), BGl_string3849z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_c1z00_4163); 
FAILURE(BgL_auxz00_7749,BFALSE,BFALSE);} 
BgL_auxz00_7745 = 
CCHAR(BgL_tmpz00_7746); } 
if(
STRINGP(BgL_strz00_4162))
{ /* Ieee/string.scm 762 */
BgL_auxz00_7738 = BgL_strz00_4162
; }  else 
{ 
 obj_t BgL_auxz00_7741;
BgL_auxz00_7741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(35035L), BGl_string3849z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_4162); 
FAILURE(BgL_auxz00_7741,BFALSE,BFALSE);} 
return 
BGl_stringzd2replacezd2zz__r4_strings_6_7z00(BgL_auxz00_7738, BgL_auxz00_7745, BgL_auxz00_7754);} } 

}



/* string-replace! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2replacez12zc0zz__r4_strings_6_7z00(obj_t BgL_strz00_113, unsigned char BgL_c1z00_114, unsigned char BgL_c2z00_115)
{
{ /* Ieee/string.scm 776 */
{ /* Ieee/string.scm 777 */
 long BgL_lenz00_1255;
BgL_lenz00_1255 = 
STRING_LENGTH(BgL_strz00_113); 
{ 
 long BgL_iz00_1257;
BgL_iz00_1257 = 0L; 
BgL_zc3z04anonymousza31448ze3z87_1258:
if(
(BgL_iz00_1257==BgL_lenz00_1255))
{ /* Ieee/string.scm 780 */
return BgL_strz00_113;}  else 
{ /* Ieee/string.scm 782 */
 bool_t BgL_test4477z00_7767;
{ /* Ieee/string.scm 782 */
 unsigned char BgL_char2z00_2945;
BgL_char2z00_2945 = 
(unsigned char)(BgL_c1z00_114); 
{ /* Ieee/string.scm 782 */
 unsigned char BgL_tmpz00_7769;
{ /* Ieee/string.scm 343 */
 long BgL_l2349z00_4298;
BgL_l2349z00_4298 = 
STRING_LENGTH(BgL_strz00_113); 
if(
BOUND_CHECK(BgL_iz00_1257, BgL_l2349z00_4298))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_7769 = 
STRING_REF(BgL_strz00_113, BgL_iz00_1257)
; }  else 
{ 
 obj_t BgL_auxz00_7774;
BgL_auxz00_7774 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_strz00_113, 
(int)(BgL_l2349z00_4298), 
(int)(BgL_iz00_1257)); 
FAILURE(BgL_auxz00_7774,BFALSE,BFALSE);} } 
BgL_test4477z00_7767 = 
(BgL_tmpz00_7769==BgL_char2z00_2945); } } 
if(BgL_test4477z00_7767)
{ /* Ieee/string.scm 782 */
{ /* Ieee/string.scm 783 */
 unsigned char BgL_charz00_2948;
BgL_charz00_2948 = 
(unsigned char)(BgL_c2z00_115); 
{ /* Ieee/string.scm 349 */
 long BgL_l2353z00_4302;
BgL_l2353z00_4302 = 
STRING_LENGTH(BgL_strz00_113); 
if(
BOUND_CHECK(BgL_iz00_1257, BgL_l2353z00_4302))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_strz00_113, BgL_iz00_1257, BgL_charz00_2948); }  else 
{ 
 obj_t BgL_auxz00_7786;
BgL_auxz00_7786 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_strz00_113, 
(int)(BgL_l2353z00_4302), 
(int)(BgL_iz00_1257)); 
FAILURE(BgL_auxz00_7786,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_7792;
BgL_iz00_7792 = 
(BgL_iz00_1257+1L); 
BgL_iz00_1257 = BgL_iz00_7792; 
goto BgL_zc3z04anonymousza31448ze3z87_1258;} }  else 
{ 
 long BgL_iz00_7794;
BgL_iz00_7794 = 
(BgL_iz00_1257+1L); 
BgL_iz00_1257 = BgL_iz00_7794; 
goto BgL_zc3z04anonymousza31448ze3z87_1258;} } } } } 

}



/* &string-replace! */
obj_t BGl_z62stringzd2replacez12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4165, obj_t BgL_strz00_4166, obj_t BgL_c1z00_4167, obj_t BgL_c2z00_4168)
{
{ /* Ieee/string.scm 776 */
{ /* Ieee/string.scm 777 */
 unsigned char BgL_auxz00_7812; unsigned char BgL_auxz00_7803; obj_t BgL_auxz00_7796;
{ /* Ieee/string.scm 777 */
 obj_t BgL_tmpz00_7813;
if(
CHARP(BgL_c2z00_4168))
{ /* Ieee/string.scm 777 */
BgL_tmpz00_7813 = BgL_c2z00_4168
; }  else 
{ 
 obj_t BgL_auxz00_7816;
BgL_auxz00_7816 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(35557L), BGl_string3850z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_c2z00_4168); 
FAILURE(BgL_auxz00_7816,BFALSE,BFALSE);} 
BgL_auxz00_7812 = 
CCHAR(BgL_tmpz00_7813); } 
{ /* Ieee/string.scm 777 */
 obj_t BgL_tmpz00_7804;
if(
CHARP(BgL_c1z00_4167))
{ /* Ieee/string.scm 777 */
BgL_tmpz00_7804 = BgL_c1z00_4167
; }  else 
{ 
 obj_t BgL_auxz00_7807;
BgL_auxz00_7807 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(35557L), BGl_string3850z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_c1z00_4167); 
FAILURE(BgL_auxz00_7807,BFALSE,BFALSE);} 
BgL_auxz00_7803 = 
CCHAR(BgL_tmpz00_7804); } 
if(
STRINGP(BgL_strz00_4166))
{ /* Ieee/string.scm 777 */
BgL_auxz00_7796 = BgL_strz00_4166
; }  else 
{ 
 obj_t BgL_auxz00_7799;
BgL_auxz00_7799 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(35557L), BGl_string3850z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_4166); 
FAILURE(BgL_auxz00_7799,BFALSE,BFALSE);} 
return 
BGl_stringzd2replacez12zc0zz__r4_strings_6_7z00(BgL_auxz00_7796, BgL_auxz00_7803, BgL_auxz00_7812);} } 

}



/* _string-delete */
obj_t BGl__stringzd2deletezd2zz__r4_strings_6_7z00(obj_t BgL_env1129z00_121, obj_t BgL_opt1128z00_120)
{
{ /* Ieee/string.scm 791 */
{ /* Ieee/string.scm 791 */
 obj_t BgL_stringz00_1266; obj_t BgL_g1130z00_1267;
{ 
 obj_t BgL_auxz00_7822;
if(
VECTORP(BgL_opt1128z00_120))
{ /* Ieee/string.scm 791 */
BgL_auxz00_7822 = BgL_opt1128z00_120
; }  else 
{ 
 obj_t BgL_auxz00_7825;
BgL_auxz00_7825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1128z00_120); 
FAILURE(BgL_auxz00_7825,BFALSE,BFALSE);} 
BgL_stringz00_1266 = 
VECTOR_REF(BgL_auxz00_7822,0L); } 
{ 
 obj_t BgL_auxz00_7830;
if(
VECTORP(BgL_opt1128z00_120))
{ /* Ieee/string.scm 791 */
BgL_auxz00_7830 = BgL_opt1128z00_120
; }  else 
{ 
 obj_t BgL_auxz00_7833;
BgL_auxz00_7833 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1128z00_120); 
FAILURE(BgL_auxz00_7833,BFALSE,BFALSE);} 
BgL_g1130z00_1267 = 
VECTOR_REF(BgL_auxz00_7830,1L); } 
{ 

{ /* Ieee/string.scm 791 */
 long BgL_aux1132z00_1269;
{ 
 obj_t BgL_auxz00_7838;
if(
VECTORP(BgL_opt1128z00_120))
{ /* Ieee/string.scm 791 */
BgL_auxz00_7838 = BgL_opt1128z00_120
; }  else 
{ 
 obj_t BgL_auxz00_7841;
BgL_auxz00_7841 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1128z00_120); 
FAILURE(BgL_auxz00_7841,BFALSE,BFALSE);} 
BgL_aux1132z00_1269 = 
VECTOR_LENGTH(BgL_auxz00_7838); } 
switch( BgL_aux1132z00_1269) { case 2L : 

{ /* Ieee/string.scm 791 */
 long BgL_endz00_1271;
{ /* Ieee/string.scm 791 */
 obj_t BgL_stringz00_2951;
if(
STRINGP(BgL_stringz00_1266))
{ /* Ieee/string.scm 791 */
BgL_stringz00_2951 = BgL_stringz00_1266; }  else 
{ 
 obj_t BgL_auxz00_7848;
BgL_auxz00_7848 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36080L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_1266); 
FAILURE(BgL_auxz00_7848,BFALSE,BFALSE);} 
BgL_endz00_1271 = 
STRING_LENGTH(BgL_stringz00_2951); } 
{ /* Ieee/string.scm 791 */

{ /* Ieee/string.scm 791 */
 obj_t BgL_auxz00_7853;
if(
STRINGP(BgL_stringz00_1266))
{ /* Ieee/string.scm 791 */
BgL_auxz00_7853 = BgL_stringz00_1266
; }  else 
{ 
 obj_t BgL_auxz00_7856;
BgL_auxz00_7856 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_1266); 
FAILURE(BgL_auxz00_7856,BFALSE,BFALSE);} 
return 
BGl_stringzd2deletezd2zz__r4_strings_6_7z00(BgL_auxz00_7853, BgL_g1130z00_1267, 
(int)(0L), BgL_endz00_1271);} } } break;case 3L : 

{ /* Ieee/string.scm 791 */
 obj_t BgL_startz00_1272;
{ 
 obj_t BgL_auxz00_7862;
if(
VECTORP(BgL_opt1128z00_120))
{ /* Ieee/string.scm 791 */
BgL_auxz00_7862 = BgL_opt1128z00_120
; }  else 
{ 
 obj_t BgL_auxz00_7865;
BgL_auxz00_7865 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1128z00_120); 
FAILURE(BgL_auxz00_7865,BFALSE,BFALSE);} 
BgL_startz00_1272 = 
VECTOR_REF(BgL_auxz00_7862,2L); } 
{ /* Ieee/string.scm 791 */
 long BgL_endz00_1273;
{ /* Ieee/string.scm 791 */
 obj_t BgL_stringz00_2952;
if(
STRINGP(BgL_stringz00_1266))
{ /* Ieee/string.scm 791 */
BgL_stringz00_2952 = BgL_stringz00_1266; }  else 
{ 
 obj_t BgL_auxz00_7872;
BgL_auxz00_7872 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36080L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_1266); 
FAILURE(BgL_auxz00_7872,BFALSE,BFALSE);} 
BgL_endz00_1273 = 
STRING_LENGTH(BgL_stringz00_2952); } 
{ /* Ieee/string.scm 791 */

{ /* Ieee/string.scm 791 */
 int BgL_auxz00_7884; obj_t BgL_auxz00_7877;
{ /* Ieee/string.scm 791 */
 obj_t BgL_tmpz00_7885;
if(
INTEGERP(BgL_startz00_1272))
{ /* Ieee/string.scm 791 */
BgL_tmpz00_7885 = BgL_startz00_1272
; }  else 
{ 
 obj_t BgL_auxz00_7888;
BgL_auxz00_7888 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_1272); 
FAILURE(BgL_auxz00_7888,BFALSE,BFALSE);} 
BgL_auxz00_7884 = 
CINT(BgL_tmpz00_7885); } 
if(
STRINGP(BgL_stringz00_1266))
{ /* Ieee/string.scm 791 */
BgL_auxz00_7877 = BgL_stringz00_1266
; }  else 
{ 
 obj_t BgL_auxz00_7880;
BgL_auxz00_7880 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_1266); 
FAILURE(BgL_auxz00_7880,BFALSE,BFALSE);} 
return 
BGl_stringzd2deletezd2zz__r4_strings_6_7z00(BgL_auxz00_7877, BgL_g1130z00_1267, BgL_auxz00_7884, BgL_endz00_1273);} } } } break;case 4L : 

{ /* Ieee/string.scm 791 */
 obj_t BgL_startz00_1274;
{ 
 obj_t BgL_auxz00_7894;
if(
VECTORP(BgL_opt1128z00_120))
{ /* Ieee/string.scm 791 */
BgL_auxz00_7894 = BgL_opt1128z00_120
; }  else 
{ 
 obj_t BgL_auxz00_7897;
BgL_auxz00_7897 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1128z00_120); 
FAILURE(BgL_auxz00_7897,BFALSE,BFALSE);} 
BgL_startz00_1274 = 
VECTOR_REF(BgL_auxz00_7894,2L); } 
{ /* Ieee/string.scm 791 */
 obj_t BgL_endz00_1275;
{ 
 obj_t BgL_auxz00_7902;
if(
VECTORP(BgL_opt1128z00_120))
{ /* Ieee/string.scm 791 */
BgL_auxz00_7902 = BgL_opt1128z00_120
; }  else 
{ 
 obj_t BgL_auxz00_7905;
BgL_auxz00_7905 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1128z00_120); 
FAILURE(BgL_auxz00_7905,BFALSE,BFALSE);} 
BgL_endz00_1275 = 
VECTOR_REF(BgL_auxz00_7902,3L); } 
{ /* Ieee/string.scm 791 */

{ /* Ieee/string.scm 791 */
 long BgL_auxz00_7926; int BgL_auxz00_7917; obj_t BgL_auxz00_7910;
{ /* Ieee/string.scm 791 */
 obj_t BgL_tmpz00_7927;
if(
INTEGERP(BgL_endz00_1275))
{ /* Ieee/string.scm 791 */
BgL_tmpz00_7927 = BgL_endz00_1275
; }  else 
{ 
 obj_t BgL_auxz00_7930;
BgL_auxz00_7930 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_endz00_1275); 
FAILURE(BgL_auxz00_7930,BFALSE,BFALSE);} 
BgL_auxz00_7926 = 
(long)CINT(BgL_tmpz00_7927); } 
{ /* Ieee/string.scm 791 */
 obj_t BgL_tmpz00_7918;
if(
INTEGERP(BgL_startz00_1274))
{ /* Ieee/string.scm 791 */
BgL_tmpz00_7918 = BgL_startz00_1274
; }  else 
{ 
 obj_t BgL_auxz00_7921;
BgL_auxz00_7921 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_1274); 
FAILURE(BgL_auxz00_7921,BFALSE,BFALSE);} 
BgL_auxz00_7917 = 
CINT(BgL_tmpz00_7918); } 
if(
STRINGP(BgL_stringz00_1266))
{ /* Ieee/string.scm 791 */
BgL_auxz00_7910 = BgL_stringz00_1266
; }  else 
{ 
 obj_t BgL_auxz00_7913;
BgL_auxz00_7913 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3851z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_1266); 
FAILURE(BgL_auxz00_7913,BFALSE,BFALSE);} 
return 
BGl_stringzd2deletezd2zz__r4_strings_6_7z00(BgL_auxz00_7910, BgL_g1130z00_1267, BgL_auxz00_7917, BgL_auxz00_7926);} } } } break;
default: 
{ /* Ieee/string.scm 791 */
 long BgL_arg1456z00_1276;
{ 
 obj_t BgL_auxz00_7936;
if(
VECTORP(BgL_opt1128z00_120))
{ /* Ieee/string.scm 791 */
BgL_auxz00_7936 = BgL_opt1128z00_120
; }  else 
{ 
 obj_t BgL_auxz00_7939;
BgL_auxz00_7939 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(36009L), BGl_string3852z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1128z00_120); 
FAILURE(BgL_auxz00_7939,BFALSE,BFALSE);} 
BgL_arg1456z00_1276 = 
VECTOR_LENGTH(BgL_auxz00_7936); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3853z00zz__r4_strings_6_7z00, BGl_string3855z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1456z00_1276));} } } } } } 

}



/* string-delete */
BGL_EXPORTED_DEF obj_t BGl_stringzd2deletezd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_116, obj_t BgL_objz00_117, int BgL_startz00_118, long BgL_endz00_119)
{
{ /* Ieee/string.scm 791 */
{ 
 obj_t BgL_newz00_1324; obj_t BgL_predz00_1325; int BgL_startz00_1326; long BgL_endz00_1327; obj_t BgL_newz00_1308; obj_t BgL_lz00_1309; int BgL_startz00_1310; long BgL_endz00_1311; obj_t BgL_newz00_1292; obj_t BgL_cz00_1293; int BgL_startz00_1294; long BgL_endz00_1295;
if(
(
(long)(BgL_startz00_118)<0L))
{ /* Ieee/string.scm 831 */
 obj_t BgL_aux2979z00_4929;
BgL_aux2979z00_4929 = 
BGl_errorz00zz__errorz00(BGl_string3854z00zz__r4_strings_6_7z00, BGl_string3864z00zz__r4_strings_6_7z00, 
BINT(BgL_startz00_118)); 
if(
STRINGP(BgL_aux2979z00_4929))
{ /* Ieee/string.scm 831 */
return BgL_aux2979z00_4929;}  else 
{ 
 obj_t BgL_auxz00_7954;
BgL_auxz00_7954 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(37074L), BGl_string3854z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_aux2979z00_4929); 
FAILURE(BgL_auxz00_7954,BFALSE,BFALSE);} }  else 
{ /* Ieee/string.scm 830 */
if(
(BgL_endz00_119>
STRING_LENGTH(BgL_stringz00_116)))
{ /* Ieee/string.scm 833 */
 obj_t BgL_aux2981z00_4931;
BgL_aux2981z00_4931 = 
BGl_errorz00zz__errorz00(BGl_string3854z00zz__r4_strings_6_7z00, BGl_string3865z00zz__r4_strings_6_7z00, 
BINT(BgL_endz00_119)); 
if(
STRINGP(BgL_aux2981z00_4931))
{ /* Ieee/string.scm 833 */
return BgL_aux2981z00_4931;}  else 
{ 
 obj_t BgL_auxz00_7965;
BgL_auxz00_7965 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(37179L), BGl_string3854z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_aux2981z00_4931); 
FAILURE(BgL_auxz00_7965,BFALSE,BFALSE);} }  else 
{ /* Ieee/string.scm 832 */
if(
(BgL_endz00_119<
(long)(BgL_startz00_118)))
{ /* Ieee/string.scm 835 */
 obj_t BgL_arg1461z00_1284;
BgL_arg1461z00_1284 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_118), 
BINT(BgL_endz00_119)); 
{ /* Ieee/string.scm 835 */
 obj_t BgL_aux2983z00_4933;
BgL_aux2983z00_4933 = 
BGl_errorz00zz__errorz00(BGl_string3854z00zz__r4_strings_6_7z00, BGl_string3866z00zz__r4_strings_6_7z00, BgL_arg1461z00_1284); 
if(
STRINGP(BgL_aux2983z00_4933))
{ /* Ieee/string.scm 835 */
return BgL_aux2983z00_4933;}  else 
{ 
 obj_t BgL_auxz00_7978;
BgL_auxz00_7978 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(37263L), BGl_string3854z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_aux2983z00_4933); 
FAILURE(BgL_auxz00_7978,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 837 */
 obj_t BgL_newz00_1286;
BgL_newz00_1286 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_stringz00_116); 
{ /* Ieee/string.scm 838 */

if(
CHARP(BgL_objz00_117))
{ /* Ieee/string.scm 840 */
BgL_newz00_1292 = BgL_newz00_1286; 
BgL_cz00_1293 = BgL_objz00_117; 
BgL_startz00_1294 = BgL_startz00_118; 
BgL_endz00_1295 = BgL_endz00_119; 
{ 
 int BgL_iz00_1298; long BgL_jz00_1299;
BgL_iz00_1298 = BgL_startz00_1294; 
BgL_jz00_1299 = 0L; 
BgL_zc3z04anonymousza31468ze3z87_1300:
if(
(
(long)(BgL_iz00_1298)==BgL_endz00_1295))
{ /* Ieee/string.scm 796 */
return 
bgl_string_shrink(BgL_newz00_1292, BgL_jz00_1299);}  else 
{ /* Ieee/string.scm 798 */
 unsigned char BgL_ccz00_1302;
{ /* Ieee/string.scm 798 */
 long BgL_kz00_2958;
BgL_kz00_2958 = 
(long)(BgL_iz00_1298); 
{ /* Ieee/string.scm 331 */
 long BgL_l2357z00_4306;
BgL_l2357z00_4306 = 
STRING_LENGTH(BgL_stringz00_116); 
if(
BOUND_CHECK(BgL_kz00_2958, BgL_l2357z00_4306))
{ /* Ieee/string.scm 331 */
BgL_ccz00_1302 = 
STRING_REF(BgL_stringz00_116, BgL_kz00_2958); }  else 
{ 
 obj_t BgL_auxz00_7994;
BgL_auxz00_7994 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_116, 
(int)(BgL_l2357z00_4306), 
(int)(BgL_kz00_2958)); 
FAILURE(BgL_auxz00_7994,BFALSE,BFALSE);} } } 
if(
(BgL_ccz00_1302==
CCHAR(BgL_cz00_1293)))
{ /* Ieee/string.scm 800 */
 long BgL_arg1471z00_1304;
BgL_arg1471z00_1304 = 
(
(long)(BgL_iz00_1298)+1L); 
{ 
 int BgL_iz00_8005;
BgL_iz00_8005 = 
(int)(BgL_arg1471z00_1304); 
BgL_iz00_1298 = BgL_iz00_8005; 
goto BgL_zc3z04anonymousza31468ze3z87_1300;} }  else 
{ /* Ieee/string.scm 799 */
{ /* Ieee/string.scm 337 */
 long BgL_l2361z00_4310;
BgL_l2361z00_4310 = 
STRING_LENGTH(BgL_newz00_1292); 
if(
BOUND_CHECK(BgL_jz00_1299, BgL_l2361z00_4310))
{ /* Ieee/string.scm 337 */
STRING_SET(BgL_newz00_1292, BgL_jz00_1299, BgL_ccz00_1302); }  else 
{ 
 obj_t BgL_auxz00_8011;
BgL_auxz00_8011 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16519L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_newz00_1292, 
(int)(BgL_l2361z00_4310), 
(int)(BgL_jz00_1299)); 
FAILURE(BgL_auxz00_8011,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 803 */
 long BgL_arg1472z00_1305; long BgL_arg1473z00_1306;
BgL_arg1472z00_1305 = 
(
(long)(BgL_iz00_1298)+1L); 
BgL_arg1473z00_1306 = 
(BgL_jz00_1299+1L); 
{ 
 long BgL_jz00_8022; int BgL_iz00_8020;
BgL_iz00_8020 = 
(int)(BgL_arg1472z00_1305); 
BgL_jz00_8022 = BgL_arg1473z00_1306; 
BgL_jz00_1299 = BgL_jz00_8022; 
BgL_iz00_1298 = BgL_iz00_8020; 
goto BgL_zc3z04anonymousza31468ze3z87_1300;} } } } } }  else 
{ /* Ieee/string.scm 840 */
if(
STRINGP(BgL_objz00_117))
{ /* Ieee/string.scm 842 */
BgL_newz00_1308 = BgL_newz00_1286; 
BgL_lz00_1309 = 
BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(BgL_objz00_117); 
BgL_startz00_1310 = BgL_startz00_118; 
BgL_endz00_1311 = BgL_endz00_119; 
{ 
 int BgL_iz00_1314; long BgL_jz00_1315;
BgL_iz00_1314 = BgL_startz00_1310; 
BgL_jz00_1315 = 0L; 
BgL_zc3z04anonymousza31475ze3z87_1316:
if(
(
(long)(BgL_iz00_1314)==BgL_endz00_1311))
{ /* Ieee/string.scm 808 */
return 
bgl_string_shrink(BgL_newz00_1308, BgL_jz00_1315);}  else 
{ /* Ieee/string.scm 810 */
 unsigned char BgL_ccz00_1318;
{ /* Ieee/string.scm 810 */
 long BgL_kz00_2972;
BgL_kz00_2972 = 
(long)(BgL_iz00_1314); 
{ /* Ieee/string.scm 331 */
 long BgL_l2365z00_4314;
BgL_l2365z00_4314 = 
STRING_LENGTH(BgL_stringz00_116); 
if(
BOUND_CHECK(BgL_kz00_2972, BgL_l2365z00_4314))
{ /* Ieee/string.scm 331 */
BgL_ccz00_1318 = 
STRING_REF(BgL_stringz00_116, BgL_kz00_2972); }  else 
{ 
 obj_t BgL_auxz00_8034;
BgL_auxz00_8034 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_116, 
(int)(BgL_l2365z00_4314), 
(int)(BgL_kz00_2972)); 
FAILURE(BgL_auxz00_8034,BFALSE,BFALSE);} } } 
if(
CBOOL(
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(
BCHAR(BgL_ccz00_1318), BgL_lz00_1309)))
{ /* Ieee/string.scm 812 */
 long BgL_arg1479z00_1320;
BgL_arg1479z00_1320 = 
(
(long)(BgL_iz00_1314)+1L); 
{ 
 int BgL_iz00_8046;
BgL_iz00_8046 = 
(int)(BgL_arg1479z00_1320); 
BgL_iz00_1314 = BgL_iz00_8046; 
goto BgL_zc3z04anonymousza31475ze3z87_1316;} }  else 
{ /* Ieee/string.scm 811 */
{ /* Ieee/string.scm 337 */
 long BgL_l2369z00_4318;
BgL_l2369z00_4318 = 
STRING_LENGTH(BgL_newz00_1308); 
if(
BOUND_CHECK(BgL_jz00_1315, BgL_l2369z00_4318))
{ /* Ieee/string.scm 337 */
STRING_SET(BgL_newz00_1308, BgL_jz00_1315, BgL_ccz00_1318); }  else 
{ 
 obj_t BgL_auxz00_8052;
BgL_auxz00_8052 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16519L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_newz00_1308, 
(int)(BgL_l2369z00_4318), 
(int)(BgL_jz00_1315)); 
FAILURE(BgL_auxz00_8052,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 815 */
 long BgL_arg1480z00_1321; long BgL_arg1481z00_1322;
BgL_arg1480z00_1321 = 
(
(long)(BgL_iz00_1314)+1L); 
BgL_arg1481z00_1322 = 
(BgL_jz00_1315+1L); 
{ 
 long BgL_jz00_8063; int BgL_iz00_8061;
BgL_iz00_8061 = 
(int)(BgL_arg1480z00_1321); 
BgL_jz00_8063 = BgL_arg1481z00_1322; 
BgL_jz00_1315 = BgL_jz00_8063; 
BgL_iz00_1314 = BgL_iz00_8061; 
goto BgL_zc3z04anonymousza31475ze3z87_1316;} } } } } }  else 
{ /* Ieee/string.scm 842 */
if(
PROCEDUREP(BgL_objz00_117))
{ /* Ieee/string.scm 844 */
BgL_newz00_1324 = BgL_newz00_1286; 
BgL_predz00_1325 = BgL_objz00_117; 
BgL_startz00_1326 = BgL_startz00_118; 
BgL_endz00_1327 = BgL_endz00_119; 
{ 
 int BgL_iz00_1330; long BgL_jz00_1331;
BgL_iz00_1330 = BgL_startz00_1326; 
BgL_jz00_1331 = 0L; 
BgL_zc3z04anonymousza31483ze3z87_1332:
if(
(
(long)(BgL_iz00_1330)==BgL_endz00_1327))
{ /* Ieee/string.scm 820 */
return 
bgl_string_shrink(BgL_newz00_1324, BgL_jz00_1331);}  else 
{ /* Ieee/string.scm 822 */
 unsigned char BgL_ccz00_1334;
{ /* Ieee/string.scm 822 */
 long BgL_kz00_2984;
BgL_kz00_2984 = 
(long)(BgL_iz00_1330); 
{ /* Ieee/string.scm 331 */
 long BgL_l2373z00_4322;
BgL_l2373z00_4322 = 
STRING_LENGTH(BgL_stringz00_116); 
if(
BOUND_CHECK(BgL_kz00_2984, BgL_l2373z00_4322))
{ /* Ieee/string.scm 331 */
BgL_ccz00_1334 = 
STRING_REF(BgL_stringz00_116, BgL_kz00_2984); }  else 
{ 
 obj_t BgL_auxz00_8076;
BgL_auxz00_8076 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_116, 
(int)(BgL_l2373z00_4322), 
(int)(BgL_kz00_2984)); 
FAILURE(BgL_auxz00_8076,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 823 */
 bool_t BgL_test4517z00_8082;
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_1325, 1))
{ /* Ieee/string.scm 823 */
BgL_test4517z00_8082 = 
CBOOL(
BGL_PROCEDURE_CALL1(BgL_predz00_1325, 
BCHAR(BgL_ccz00_1334)))
; }  else 
{ /* Ieee/string.scm 823 */
FAILURE(BGl_string3856z00zz__r4_strings_6_7z00,BGl_list3857z00zz__r4_strings_6_7z00,BgL_predz00_1325);} 
if(BgL_test4517z00_8082)
{ /* Ieee/string.scm 824 */
 long BgL_arg1486z00_1336;
BgL_arg1486z00_1336 = 
(
(long)(BgL_iz00_1330)+1L); 
{ 
 int BgL_iz00_8094;
BgL_iz00_8094 = 
(int)(BgL_arg1486z00_1336); 
BgL_iz00_1330 = BgL_iz00_8094; 
goto BgL_zc3z04anonymousza31483ze3z87_1332;} }  else 
{ /* Ieee/string.scm 823 */
{ /* Ieee/string.scm 337 */
 long BgL_l2377z00_4326;
BgL_l2377z00_4326 = 
STRING_LENGTH(BgL_newz00_1324); 
if(
BOUND_CHECK(BgL_jz00_1331, BgL_l2377z00_4326))
{ /* Ieee/string.scm 337 */
STRING_SET(BgL_newz00_1324, BgL_jz00_1331, BgL_ccz00_1334); }  else 
{ 
 obj_t BgL_auxz00_8100;
BgL_auxz00_8100 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16519L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_newz00_1324, 
(int)(BgL_l2377z00_4326), 
(int)(BgL_jz00_1331)); 
FAILURE(BgL_auxz00_8100,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 827 */
 long BgL_arg1487z00_1337; long BgL_arg1488z00_1338;
BgL_arg1487z00_1337 = 
(
(long)(BgL_iz00_1330)+1L); 
BgL_arg1488z00_1338 = 
(BgL_jz00_1331+1L); 
{ 
 long BgL_jz00_8111; int BgL_iz00_8109;
BgL_iz00_8109 = 
(int)(BgL_arg1487z00_1337); 
BgL_jz00_8111 = BgL_arg1488z00_1338; 
BgL_jz00_1331 = BgL_jz00_8111; 
BgL_iz00_1330 = BgL_iz00_8109; 
goto BgL_zc3z04anonymousza31483ze3z87_1332;} } } } } } }  else 
{ /* Ieee/string.scm 847 */
 obj_t BgL_aux2985z00_4935;
BgL_aux2985z00_4935 = 
BGl_errorz00zz__errorz00(BGl_string3854z00zz__r4_strings_6_7z00, BGl_string3867z00zz__r4_strings_6_7z00, BgL_objz00_117); 
if(
STRINGP(BgL_aux2985z00_4935))
{ /* Ieee/string.scm 847 */
return BgL_aux2985z00_4935;}  else 
{ 
 obj_t BgL_auxz00_8115;
BgL_auxz00_8115 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(37661L), BGl_string3854z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_aux2985z00_4935); 
FAILURE(BgL_auxz00_8115,BFALSE,BFALSE);} } } } } } } } } } 

}



/* delim? */
bool_t BGl_delimzf3zf3zz__r4_strings_6_7z00(obj_t BgL_delimsz00_122, unsigned char BgL_charz00_123)
{
{ /* Ieee/string.scm 852 */
{ /* Ieee/string.scm 853 */
 long BgL_lenz00_1343;
{ /* Ieee/string.scm 853 */
 obj_t BgL_stringz00_2999;
if(
STRINGP(BgL_delimsz00_122))
{ /* Ieee/string.scm 853 */
BgL_stringz00_2999 = BgL_delimsz00_122; }  else 
{ 
 obj_t BgL_auxz00_8121;
BgL_auxz00_8121 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(37994L), BGl_string3868z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_delimsz00_122); 
FAILURE(BgL_auxz00_8121,BFALSE,BFALSE);} 
BgL_lenz00_1343 = 
STRING_LENGTH(BgL_stringz00_2999); } 
{ 
 long BgL_iz00_1345;
BgL_iz00_1345 = 0L; 
BgL_zc3z04anonymousza31489ze3z87_1346:
if(
(BgL_iz00_1345==BgL_lenz00_1343))
{ /* Ieee/string.scm 856 */
return ((bool_t)0);}  else 
{ /* Ieee/string.scm 858 */
 bool_t BgL_test4523z00_8128;
{ /* Ieee/string.scm 858 */
 unsigned char BgL_tmpz00_8129;
{ /* Ieee/string.scm 858 */
 obj_t BgL_stringz00_3002;
if(
STRINGP(BgL_delimsz00_122))
{ /* Ieee/string.scm 858 */
BgL_stringz00_3002 = BgL_delimsz00_122; }  else 
{ 
 obj_t BgL_auxz00_8132;
BgL_auxz00_8132 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(38113L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_delimsz00_122); 
FAILURE(BgL_auxz00_8132,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 343 */
 long BgL_l2381z00_4330;
BgL_l2381z00_4330 = 
STRING_LENGTH(BgL_stringz00_3002); 
if(
BOUND_CHECK(BgL_iz00_1345, BgL_l2381z00_4330))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_8129 = 
STRING_REF(BgL_stringz00_3002, BgL_iz00_1345)
; }  else 
{ 
 obj_t BgL_auxz00_8140;
BgL_auxz00_8140 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_3002, 
(int)(BgL_l2381z00_4330), 
(int)(BgL_iz00_1345)); 
FAILURE(BgL_auxz00_8140,BFALSE,BFALSE);} } } 
BgL_test4523z00_8128 = 
(BgL_charz00_123==BgL_tmpz00_8129); } 
if(BgL_test4523z00_8128)
{ /* Ieee/string.scm 858 */
return ((bool_t)1);}  else 
{ 
 long BgL_iz00_8147;
BgL_iz00_8147 = 
(BgL_iz00_1345+1L); 
BgL_iz00_1345 = BgL_iz00_8147; 
goto BgL_zc3z04anonymousza31489ze3z87_1346;} } } } } 

}



/* string-split */
BGL_EXPORTED_DEF obj_t BGl_stringzd2splitzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_132, obj_t BgL_delimitersz00_133)
{
{ /* Ieee/string.scm 890 */
{ /* Ieee/string.scm 891 */
 obj_t BgL_dz00_1363;
if(
PAIRP(BgL_delimitersz00_133))
{ /* Ieee/string.scm 891 */
BgL_dz00_1363 = 
CAR(BgL_delimitersz00_133); }  else 
{ /* Ieee/string.scm 891 */
BgL_dz00_1363 = BGl_string3869z00zz__r4_strings_6_7z00; } 
{ /* Ieee/string.scm 891 */
 long BgL_lenz00_1364;
BgL_lenz00_1364 = 
STRING_LENGTH(BgL_stringz00_132); 
{ /* Ieee/string.scm 894 */
 long BgL_iz00_1365;
{ 
 long BgL_iz00_3046;
BgL_iz00_3046 = 0L; 
BgL_skipzd2separatorzd2_3045:
if(
(BgL_iz00_3046==BgL_lenz00_1364))
{ /* Ieee/string.scm 868 */
BgL_iz00_1365 = BgL_lenz00_1364; }  else 
{ /* Ieee/string.scm 870 */
 bool_t BgL_test4528z00_8155;
{ /* Ieee/string.scm 870 */
 unsigned char BgL_auxz00_8156;
{ /* Ieee/string.scm 343 */
 long BgL_l2385z00_4334;
BgL_l2385z00_4334 = 
STRING_LENGTH(BgL_stringz00_132); 
if(
BOUND_CHECK(BgL_iz00_3046, BgL_l2385z00_4334))
{ /* Ieee/string.scm 343 */
BgL_auxz00_8156 = 
STRING_REF(BgL_stringz00_132, BgL_iz00_3046)
; }  else 
{ 
 obj_t BgL_auxz00_8161;
BgL_auxz00_8161 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_132, 
(int)(BgL_l2385z00_4334), 
(int)(BgL_iz00_3046)); 
FAILURE(BgL_auxz00_8161,BFALSE,BFALSE);} } 
BgL_test4528z00_8155 = 
BGl_delimzf3zf3zz__r4_strings_6_7z00(BgL_dz00_1363, BgL_auxz00_8156); } 
if(BgL_test4528z00_8155)
{ 
 long BgL_iz00_8168;
BgL_iz00_8168 = 
(BgL_iz00_3046+1L); 
BgL_iz00_3046 = BgL_iz00_8168; 
goto BgL_skipzd2separatorzd2_3045;}  else 
{ /* Ieee/string.scm 870 */
BgL_iz00_1365 = BgL_iz00_3046; } } } 
{ /* Ieee/string.scm 895 */

{ 
 long BgL_iz00_1368; obj_t BgL_resz00_1369;
BgL_iz00_1368 = BgL_iz00_1365; 
BgL_resz00_1369 = BNIL; 
BgL_zc3z04anonymousza31507ze3z87_1370:
if(
(BgL_iz00_1368==BgL_lenz00_1364))
{ /* Ieee/string.scm 898 */
return 
bgl_reverse_bang(BgL_resz00_1369);}  else 
{ /* Ieee/string.scm 900 */
 long BgL_ez00_1372;
{ /* Ieee/string.scm 900 */
 long BgL_arg1513z00_1378;
BgL_arg1513z00_1378 = 
(BgL_iz00_1368+1L); 
{ 
 long BgL_iz00_3060;
BgL_iz00_3060 = BgL_arg1513z00_1378; 
BgL_skipzd2nonzd2separatorz00_3059:
if(
(BgL_iz00_3060==BgL_lenz00_1364))
{ /* Ieee/string.scm 880 */
BgL_ez00_1372 = BgL_lenz00_1364; }  else 
{ /* Ieee/string.scm 882 */
 bool_t BgL_test4532z00_8176;
{ /* Ieee/string.scm 882 */
 unsigned char BgL_auxz00_8177;
{ /* Ieee/string.scm 343 */
 long BgL_l2389z00_4338;
BgL_l2389z00_4338 = 
STRING_LENGTH(BgL_stringz00_132); 
if(
BOUND_CHECK(BgL_iz00_3060, BgL_l2389z00_4338))
{ /* Ieee/string.scm 343 */
BgL_auxz00_8177 = 
STRING_REF(BgL_stringz00_132, BgL_iz00_3060)
; }  else 
{ 
 obj_t BgL_auxz00_8182;
BgL_auxz00_8182 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_132, 
(int)(BgL_l2389z00_4338), 
(int)(BgL_iz00_3060)); 
FAILURE(BgL_auxz00_8182,BFALSE,BFALSE);} } 
BgL_test4532z00_8176 = 
BGl_delimzf3zf3zz__r4_strings_6_7z00(BgL_dz00_1363, BgL_auxz00_8177); } 
if(BgL_test4532z00_8176)
{ /* Ieee/string.scm 882 */
BgL_ez00_1372 = BgL_iz00_3060; }  else 
{ 
 long BgL_iz00_8189;
BgL_iz00_8189 = 
(BgL_iz00_3060+1L); 
BgL_iz00_3060 = BgL_iz00_8189; 
goto BgL_skipzd2nonzd2separatorz00_3059;} } } } 
{ /* Ieee/string.scm 900 */
 obj_t BgL_nresz00_1373;
BgL_nresz00_1373 = 
MAKE_YOUNG_PAIR(
BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_132, BgL_iz00_1368, BgL_ez00_1372), BgL_resz00_1369); 
{ /* Ieee/string.scm 901 */

if(
(BgL_ez00_1372==BgL_lenz00_1364))
{ /* Ieee/string.scm 902 */
return 
bgl_reverse_bang(BgL_nresz00_1373);}  else 
{ /* Ieee/string.scm 904 */
 long BgL_arg1510z00_1375;
{ /* Ieee/string.scm 904 */
 long BgL_arg1511z00_1376;
BgL_arg1511z00_1376 = 
(BgL_ez00_1372+1L); 
{ 
 long BgL_iz00_3074;
BgL_iz00_3074 = BgL_arg1511z00_1376; 
BgL_skipzd2separatorzd2_3073:
if(
(BgL_iz00_3074==BgL_lenz00_1364))
{ /* Ieee/string.scm 868 */
BgL_arg1510z00_1375 = BgL_lenz00_1364; }  else 
{ /* Ieee/string.scm 870 */
 bool_t BgL_test4536z00_8199;
{ /* Ieee/string.scm 870 */
 unsigned char BgL_auxz00_8200;
{ /* Ieee/string.scm 343 */
 long BgL_l2393z00_4342;
BgL_l2393z00_4342 = 
STRING_LENGTH(BgL_stringz00_132); 
if(
BOUND_CHECK(BgL_iz00_3074, BgL_l2393z00_4342))
{ /* Ieee/string.scm 343 */
BgL_auxz00_8200 = 
STRING_REF(BgL_stringz00_132, BgL_iz00_3074)
; }  else 
{ 
 obj_t BgL_auxz00_8205;
BgL_auxz00_8205 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_132, 
(int)(BgL_l2393z00_4342), 
(int)(BgL_iz00_3074)); 
FAILURE(BgL_auxz00_8205,BFALSE,BFALSE);} } 
BgL_test4536z00_8199 = 
BGl_delimzf3zf3zz__r4_strings_6_7z00(BgL_dz00_1363, BgL_auxz00_8200); } 
if(BgL_test4536z00_8199)
{ 
 long BgL_iz00_8212;
BgL_iz00_8212 = 
(BgL_iz00_3074+1L); 
BgL_iz00_3074 = BgL_iz00_8212; 
goto BgL_skipzd2separatorzd2_3073;}  else 
{ /* Ieee/string.scm 870 */
BgL_arg1510z00_1375 = BgL_iz00_3074; } } } } 
{ 
 obj_t BgL_resz00_8215; long BgL_iz00_8214;
BgL_iz00_8214 = BgL_arg1510z00_1375; 
BgL_resz00_8215 = BgL_nresz00_1373; 
BgL_resz00_1369 = BgL_resz00_8215; 
BgL_iz00_1368 = BgL_iz00_8214; 
goto BgL_zc3z04anonymousza31507ze3z87_1370;} } } } } } } } } } } 

}



/* &string-split */
obj_t BGl_z62stringzd2splitzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4169, obj_t BgL_stringz00_4170, obj_t BgL_delimitersz00_4171)
{
{ /* Ieee/string.scm 890 */
{ /* Ieee/string.scm 891 */
 obj_t BgL_auxz00_8216;
if(
STRINGP(BgL_stringz00_4170))
{ /* Ieee/string.scm 891 */
BgL_auxz00_8216 = BgL_stringz00_4170
; }  else 
{ 
 obj_t BgL_auxz00_8219;
BgL_auxz00_8219 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(39316L), BGl_string3870z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4170); 
FAILURE(BgL_auxz00_8219,BFALSE,BFALSE);} 
return 
BGl_stringzd2splitzd2zz__r4_strings_6_7z00(BgL_auxz00_8216, BgL_delimitersz00_4171);} } 

}



/* string-cut */
BGL_EXPORTED_DEF obj_t BGl_stringzd2cutzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_134, obj_t BgL_delimitersz00_135)
{
{ /* Ieee/string.scm 910 */
{ /* Ieee/string.scm 911 */
 obj_t BgL_dz00_1381;
if(
PAIRP(BgL_delimitersz00_135))
{ /* Ieee/string.scm 911 */
BgL_dz00_1381 = 
CAR(BgL_delimitersz00_135); }  else 
{ /* Ieee/string.scm 911 */
BgL_dz00_1381 = BGl_string3869z00zz__r4_strings_6_7z00; } 
{ /* Ieee/string.scm 911 */
 long BgL_lenz00_1382;
BgL_lenz00_1382 = 
STRING_LENGTH(BgL_stringz00_134); 
{ /* Ieee/string.scm 914 */

{ 
 long BgL_iz00_1385; obj_t BgL_resz00_1386;
BgL_iz00_1385 = 0L; 
BgL_resz00_1386 = BNIL; 
BgL_zc3z04anonymousza31515ze3z87_1387:
if(
(BgL_iz00_1385>=BgL_lenz00_1382))
{ /* Ieee/string.scm 918 */
 obj_t BgL_arg1517z00_1389;
BgL_arg1517z00_1389 = 
MAKE_YOUNG_PAIR(BGl_string3824z00zz__r4_strings_6_7z00, BgL_resz00_1386); 
return 
bgl_reverse_bang(BgL_arg1517z00_1389);}  else 
{ /* Ieee/string.scm 919 */
 long BgL_ez00_1390;
{ 
 long BgL_iz00_3089;
BgL_iz00_3089 = BgL_iz00_1385; 
BgL_skipzd2nonzd2separatorz00_3088:
if(
(BgL_iz00_3089==BgL_lenz00_1382))
{ /* Ieee/string.scm 880 */
BgL_ez00_1390 = BgL_lenz00_1382; }  else 
{ /* Ieee/string.scm 882 */
 bool_t BgL_test4542z00_8234;
{ /* Ieee/string.scm 882 */
 unsigned char BgL_auxz00_8235;
{ /* Ieee/string.scm 343 */
 long BgL_l2397z00_4346;
BgL_l2397z00_4346 = 
STRING_LENGTH(BgL_stringz00_134); 
if(
BOUND_CHECK(BgL_iz00_3089, BgL_l2397z00_4346))
{ /* Ieee/string.scm 343 */
BgL_auxz00_8235 = 
STRING_REF(BgL_stringz00_134, BgL_iz00_3089)
; }  else 
{ 
 obj_t BgL_auxz00_8240;
BgL_auxz00_8240 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_134, 
(int)(BgL_l2397z00_4346), 
(int)(BgL_iz00_3089)); 
FAILURE(BgL_auxz00_8240,BFALSE,BFALSE);} } 
BgL_test4542z00_8234 = 
BGl_delimzf3zf3zz__r4_strings_6_7z00(BgL_dz00_1381, BgL_auxz00_8235); } 
if(BgL_test4542z00_8234)
{ /* Ieee/string.scm 882 */
BgL_ez00_1390 = BgL_iz00_3089; }  else 
{ 
 long BgL_iz00_8247;
BgL_iz00_8247 = 
(BgL_iz00_3089+1L); 
BgL_iz00_3089 = BgL_iz00_8247; 
goto BgL_skipzd2nonzd2separatorz00_3088;} } } 
{ /* Ieee/string.scm 919 */
 obj_t BgL_sz00_1391;
BgL_sz00_1391 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_134, BgL_iz00_1385, BgL_ez00_1390); 
{ /* Ieee/string.scm 920 */
 obj_t BgL_nrz00_1392;
BgL_nrz00_1392 = 
MAKE_YOUNG_PAIR(BgL_sz00_1391, BgL_resz00_1386); 
{ /* Ieee/string.scm 921 */

if(
(BgL_ez00_1390==BgL_lenz00_1382))
{ /* Ieee/string.scm 922 */
return 
bgl_reverse_bang(BgL_nrz00_1392);}  else 
{ 
 obj_t BgL_resz00_8256; long BgL_iz00_8254;
BgL_iz00_8254 = 
(BgL_ez00_1390+1L); 
BgL_resz00_8256 = BgL_nrz00_1392; 
BgL_resz00_1386 = BgL_resz00_8256; 
BgL_iz00_1385 = BgL_iz00_8254; 
goto BgL_zc3z04anonymousza31515ze3z87_1387;} } } } } } } } } } 

}



/* &string-cut */
obj_t BGl_z62stringzd2cutzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4172, obj_t BgL_stringz00_4173, obj_t BgL_delimitersz00_4174)
{
{ /* Ieee/string.scm 910 */
{ /* Ieee/string.scm 911 */
 obj_t BgL_auxz00_8257;
if(
STRINGP(BgL_stringz00_4173))
{ /* Ieee/string.scm 911 */
BgL_auxz00_8257 = BgL_stringz00_4173
; }  else 
{ 
 obj_t BgL_auxz00_8260;
BgL_auxz00_8260 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(40015L), BGl_string3871z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4173); 
FAILURE(BgL_auxz00_8260,BFALSE,BFALSE);} 
return 
BGl_stringzd2cutzd2zz__r4_strings_6_7z00(BgL_auxz00_8257, BgL_delimitersz00_4174);} } 

}



/* string-char-index-ur */
BGL_EXPORTED_DEF obj_t BGl_stringzd2charzd2indexzd2urzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_136, unsigned char BgL_charz00_137, long BgL_startz00_138, long BgL_nz00_139)
{
{ /* Ieee/string.scm 929 */
{ /* Ieee/string.scm 932 */
 char * BgL_s0z00_3102;
BgL_s0z00_3102 = 
BSTRING_TO_STRING(BgL_stringz00_136); 
{ /* Ieee/string.scm 932 */
 char * BgL_s1z00_3103;
{ /* Ieee/string.scm 933 */
 int BgL_tmpz00_8266;
BgL_tmpz00_8266 = 
(int)(
(
(unsigned char)(BgL_charz00_137))); 
BgL_s1z00_3103 = 
BGL_MEMCHR(BgL_s0z00_3102, BgL_tmpz00_8266, BgL_nz00_139, BgL_startz00_138); } 
{ /* Ieee/string.scm 933 */

if(
BGL_MEMCHR_ZERO(BgL_s1z00_3103))
{ /* Ieee/string.scm 934 */
return BFALSE;}  else 
{ /* Ieee/string.scm 934 */
return 
BINT(
BGL_MEMCHR_DIFF(BgL_s1z00_3103, BgL_s0z00_3102));} } } } } 

}



/* &string-char-index-ur */
obj_t BGl_z62stringzd2charzd2indexzd2urzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4175, obj_t BgL_stringz00_4176, obj_t BgL_charz00_4177, obj_t BgL_startz00_4178, obj_t BgL_nz00_4179)
{
{ /* Ieee/string.scm 929 */
{ /* Ieee/string.scm 932 */
 long BgL_auxz00_8300; long BgL_auxz00_8291; unsigned char BgL_auxz00_8282; obj_t BgL_auxz00_8275;
{ /* Ieee/string.scm 932 */
 obj_t BgL_tmpz00_8301;
if(
INTEGERP(BgL_nz00_4179))
{ /* Ieee/string.scm 932 */
BgL_tmpz00_8301 = BgL_nz00_4179
; }  else 
{ 
 obj_t BgL_auxz00_8304;
BgL_auxz00_8304 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(40707L), BGl_string3872z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_nz00_4179); 
FAILURE(BgL_auxz00_8304,BFALSE,BFALSE);} 
BgL_auxz00_8300 = 
(long)CINT(BgL_tmpz00_8301); } 
{ /* Ieee/string.scm 932 */
 obj_t BgL_tmpz00_8292;
if(
INTEGERP(BgL_startz00_4178))
{ /* Ieee/string.scm 932 */
BgL_tmpz00_8292 = BgL_startz00_4178
; }  else 
{ 
 obj_t BgL_auxz00_8295;
BgL_auxz00_8295 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(40707L), BGl_string3872z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_4178); 
FAILURE(BgL_auxz00_8295,BFALSE,BFALSE);} 
BgL_auxz00_8291 = 
(long)CINT(BgL_tmpz00_8292); } 
{ /* Ieee/string.scm 932 */
 obj_t BgL_tmpz00_8283;
if(
CHARP(BgL_charz00_4177))
{ /* Ieee/string.scm 932 */
BgL_tmpz00_8283 = BgL_charz00_4177
; }  else 
{ 
 obj_t BgL_auxz00_8286;
BgL_auxz00_8286 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(40707L), BGl_string3872z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_charz00_4177); 
FAILURE(BgL_auxz00_8286,BFALSE,BFALSE);} 
BgL_auxz00_8282 = 
CCHAR(BgL_tmpz00_8283); } 
if(
STRINGP(BgL_stringz00_4176))
{ /* Ieee/string.scm 932 */
BgL_auxz00_8275 = BgL_stringz00_4176
; }  else 
{ 
 obj_t BgL_auxz00_8278;
BgL_auxz00_8278 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(40707L), BGl_string3872z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_stringz00_4176); 
FAILURE(BgL_auxz00_8278,BFALSE,BFALSE);} 
return 
BGl_stringzd2charzd2indexzd2urzd2zz__r4_strings_6_7z00(BgL_auxz00_8275, BgL_auxz00_8282, BgL_auxz00_8291, BgL_auxz00_8300);} } 

}



/* _string-char-index */
obj_t BGl__stringzd2charzd2indexz00zz__r4_strings_6_7z00(obj_t BgL_env1134z00_145, obj_t BgL_opt1133z00_144)
{
{ /* Ieee/string.scm 950 */
{ /* Ieee/string.scm 950 */
 obj_t BgL_g1135z00_1401; obj_t BgL_g1136z00_1402;
{ 
 obj_t BgL_auxz00_8310;
if(
VECTORP(BgL_opt1133z00_144))
{ /* Ieee/string.scm 950 */
BgL_auxz00_8310 = BgL_opt1133z00_144
; }  else 
{ 
 obj_t BgL_auxz00_8313;
BgL_auxz00_8313 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1133z00_144); 
FAILURE(BgL_auxz00_8313,BFALSE,BFALSE);} 
BgL_g1135z00_1401 = 
VECTOR_REF(BgL_auxz00_8310,0L); } 
{ 
 obj_t BgL_auxz00_8318;
if(
VECTORP(BgL_opt1133z00_144))
{ /* Ieee/string.scm 950 */
BgL_auxz00_8318 = BgL_opt1133z00_144
; }  else 
{ 
 obj_t BgL_auxz00_8321;
BgL_auxz00_8321 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1133z00_144); 
FAILURE(BgL_auxz00_8321,BFALSE,BFALSE);} 
BgL_g1136z00_1402 = 
VECTOR_REF(BgL_auxz00_8318,1L); } 
{ 

{ /* Ieee/string.scm 950 */
 long BgL_aux1138z00_1404;
{ 
 obj_t BgL_auxz00_8326;
if(
VECTORP(BgL_opt1133z00_144))
{ /* Ieee/string.scm 950 */
BgL_auxz00_8326 = BgL_opt1133z00_144
; }  else 
{ 
 obj_t BgL_auxz00_8329;
BgL_auxz00_8329 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1133z00_144); 
FAILURE(BgL_auxz00_8329,BFALSE,BFALSE);} 
BgL_aux1138z00_1404 = 
VECTOR_LENGTH(BgL_auxz00_8326); } 
switch( BgL_aux1138z00_1404) { case 2L : 

{ /* Ieee/string.scm 950 */

{ /* Ieee/string.scm 950 */
 unsigned char BgL_auxz00_8341; obj_t BgL_auxz00_8334;
{ /* Ieee/string.scm 950 */
 obj_t BgL_tmpz00_8342;
if(
CHARP(BgL_g1136z00_1402))
{ /* Ieee/string.scm 950 */
BgL_tmpz00_8342 = BgL_g1136z00_1402
; }  else 
{ 
 obj_t BgL_auxz00_8345;
BgL_auxz00_8345 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_g1136z00_1402); 
FAILURE(BgL_auxz00_8345,BFALSE,BFALSE);} 
BgL_auxz00_8341 = 
CCHAR(BgL_tmpz00_8342); } 
if(
STRINGP(BgL_g1135z00_1401))
{ /* Ieee/string.scm 950 */
BgL_auxz00_8334 = BgL_g1135z00_1401
; }  else 
{ 
 obj_t BgL_auxz00_8337;
BgL_auxz00_8337 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1135z00_1401); 
FAILURE(BgL_auxz00_8337,BFALSE,BFALSE);} 
return 
BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(BgL_auxz00_8334, BgL_auxz00_8341, 
BINT(0L), 
BINT((-1L)));} } break;case 3L : 

{ /* Ieee/string.scm 950 */
 obj_t BgL_startz00_1407;
{ 
 obj_t BgL_auxz00_8353;
if(
VECTORP(BgL_opt1133z00_144))
{ /* Ieee/string.scm 950 */
BgL_auxz00_8353 = BgL_opt1133z00_144
; }  else 
{ 
 obj_t BgL_auxz00_8356;
BgL_auxz00_8356 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1133z00_144); 
FAILURE(BgL_auxz00_8356,BFALSE,BFALSE);} 
BgL_startz00_1407 = 
VECTOR_REF(BgL_auxz00_8353,2L); } 
{ /* Ieee/string.scm 950 */

{ /* Ieee/string.scm 950 */
 unsigned char BgL_auxz00_8368; obj_t BgL_auxz00_8361;
{ /* Ieee/string.scm 950 */
 obj_t BgL_tmpz00_8369;
if(
CHARP(BgL_g1136z00_1402))
{ /* Ieee/string.scm 950 */
BgL_tmpz00_8369 = BgL_g1136z00_1402
; }  else 
{ 
 obj_t BgL_auxz00_8372;
BgL_auxz00_8372 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_g1136z00_1402); 
FAILURE(BgL_auxz00_8372,BFALSE,BFALSE);} 
BgL_auxz00_8368 = 
CCHAR(BgL_tmpz00_8369); } 
if(
STRINGP(BgL_g1135z00_1401))
{ /* Ieee/string.scm 950 */
BgL_auxz00_8361 = BgL_g1135z00_1401
; }  else 
{ 
 obj_t BgL_auxz00_8364;
BgL_auxz00_8364 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1135z00_1401); 
FAILURE(BgL_auxz00_8364,BFALSE,BFALSE);} 
return 
BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(BgL_auxz00_8361, BgL_auxz00_8368, BgL_startz00_1407, 
BINT((-1L)));} } } break;case 4L : 

{ /* Ieee/string.scm 950 */
 obj_t BgL_startz00_1409;
{ 
 obj_t BgL_auxz00_8379;
if(
VECTORP(BgL_opt1133z00_144))
{ /* Ieee/string.scm 950 */
BgL_auxz00_8379 = BgL_opt1133z00_144
; }  else 
{ 
 obj_t BgL_auxz00_8382;
BgL_auxz00_8382 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1133z00_144); 
FAILURE(BgL_auxz00_8382,BFALSE,BFALSE);} 
BgL_startz00_1409 = 
VECTOR_REF(BgL_auxz00_8379,2L); } 
{ /* Ieee/string.scm 950 */
 obj_t BgL_countz00_1410;
{ 
 obj_t BgL_auxz00_8387;
if(
VECTORP(BgL_opt1133z00_144))
{ /* Ieee/string.scm 950 */
BgL_auxz00_8387 = BgL_opt1133z00_144
; }  else 
{ 
 obj_t BgL_auxz00_8390;
BgL_auxz00_8390 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1133z00_144); 
FAILURE(BgL_auxz00_8390,BFALSE,BFALSE);} 
BgL_countz00_1410 = 
VECTOR_REF(BgL_auxz00_8387,3L); } 
{ /* Ieee/string.scm 950 */

{ /* Ieee/string.scm 950 */
 unsigned char BgL_auxz00_8402; obj_t BgL_auxz00_8395;
{ /* Ieee/string.scm 950 */
 obj_t BgL_tmpz00_8403;
if(
CHARP(BgL_g1136z00_1402))
{ /* Ieee/string.scm 950 */
BgL_tmpz00_8403 = BgL_g1136z00_1402
; }  else 
{ 
 obj_t BgL_auxz00_8406;
BgL_auxz00_8406 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3774z00zz__r4_strings_6_7z00, BgL_g1136z00_1402); 
FAILURE(BgL_auxz00_8406,BFALSE,BFALSE);} 
BgL_auxz00_8402 = 
CCHAR(BgL_tmpz00_8403); } 
if(
STRINGP(BgL_g1135z00_1401))
{ /* Ieee/string.scm 950 */
BgL_auxz00_8395 = BgL_g1135z00_1401
; }  else 
{ 
 obj_t BgL_auxz00_8398;
BgL_auxz00_8398 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3873z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1135z00_1401); 
FAILURE(BgL_auxz00_8398,BFALSE,BFALSE);} 
return 
BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(BgL_auxz00_8395, BgL_auxz00_8402, BgL_startz00_1409, BgL_countz00_1410);} } } } break;
default: 
{ /* Ieee/string.scm 950 */
 long BgL_arg1524z00_1411;
{ 
 obj_t BgL_auxz00_8412;
if(
VECTORP(BgL_opt1133z00_144))
{ /* Ieee/string.scm 950 */
BgL_auxz00_8412 = BgL_opt1133z00_144
; }  else 
{ 
 obj_t BgL_auxz00_8415;
BgL_auxz00_8415 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41269L), BGl_string3874z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1133z00_144); 
FAILURE(BgL_auxz00_8415,BFALSE,BFALSE);} 
BgL_arg1524z00_1411 = 
VECTOR_LENGTH(BgL_auxz00_8412); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3875z00zz__r4_strings_6_7z00, BGl_string3855z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1524z00_1411));} } } } } } 

}



/* string-char-index */
BGL_EXPORTED_DEF obj_t BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(obj_t BgL_stringz00_140, unsigned char BgL_charz00_141, obj_t BgL_startz00_142, obj_t BgL_countz00_143)
{
{ /* Ieee/string.scm 950 */
{ /* Ieee/string.scm 951 */
 long BgL_lenz00_1412;
BgL_lenz00_1412 = 
STRING_LENGTH(BgL_stringz00_140); 
{ /* Ieee/string.scm 952 */

{ /* Ieee/string.scm 956 */
 bool_t BgL_test4564z00_8424;
{ /* Ieee/string.scm 956 */
 long BgL_n2z00_3116;
{ /* Ieee/string.scm 956 */
 obj_t BgL_tmpz00_8425;
if(
INTEGERP(BgL_startz00_142))
{ /* Ieee/string.scm 956 */
BgL_tmpz00_8425 = BgL_startz00_142
; }  else 
{ 
 obj_t BgL_auxz00_8428;
BgL_auxz00_8428 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41517L), BGl_string3876z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_142); 
FAILURE(BgL_auxz00_8428,BFALSE,BFALSE);} 
BgL_n2z00_3116 = 
(long)CINT(BgL_tmpz00_8425); } 
BgL_test4564z00_8424 = 
(BgL_lenz00_1412>BgL_n2z00_3116); } 
if(BgL_test4564z00_8424)
{ /* Ieee/string.scm 957 */
 long BgL_startz00_3119; long BgL_nz00_3120;
{ /* Ieee/string.scm 957 */
 obj_t BgL_tmpz00_8434;
if(
INTEGERP(BgL_startz00_142))
{ /* Ieee/string.scm 957 */
BgL_tmpz00_8434 = BgL_startz00_142
; }  else 
{ 
 obj_t BgL_auxz00_8437;
BgL_auxz00_8437 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41560L), BGl_string3876z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_142); 
FAILURE(BgL_auxz00_8437,BFALSE,BFALSE);} 
BgL_startz00_3119 = 
(long)CINT(BgL_tmpz00_8434); } 
{ /* Ieee/string.scm 952 */
 bool_t BgL_test4567z00_8442;
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_countz00_143))
{ /* Ieee/string.scm 953 */
 bool_t BgL_test4569z00_8445;
{ /* Ieee/string.scm 953 */
 long BgL_n1z00_3108;
{ /* Ieee/string.scm 953 */
 obj_t BgL_tmpz00_8446;
if(
INTEGERP(BgL_countz00_143))
{ /* Ieee/string.scm 953 */
BgL_tmpz00_8446 = BgL_countz00_143
; }  else 
{ 
 obj_t BgL_auxz00_8449;
BgL_auxz00_8449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41426L), BGl_string3876z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_countz00_143); 
FAILURE(BgL_auxz00_8449,BFALSE,BFALSE);} 
BgL_n1z00_3108 = 
(long)CINT(BgL_tmpz00_8446); } 
BgL_test4569z00_8445 = 
(BgL_n1z00_3108>=0L); } 
if(BgL_test4569z00_8445)
{ /* Ieee/string.scm 953 */
 long BgL_n1z00_3111;
{ /* Ieee/string.scm 953 */
 obj_t BgL_tmpz00_8455;
if(
INTEGERP(BgL_countz00_143))
{ /* Ieee/string.scm 953 */
BgL_tmpz00_8455 = BgL_countz00_143
; }  else 
{ 
 obj_t BgL_auxz00_8458;
BgL_auxz00_8458 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41441L), BGl_string3876z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_countz00_143); 
FAILURE(BgL_auxz00_8458,BFALSE,BFALSE);} 
BgL_n1z00_3111 = 
(long)CINT(BgL_tmpz00_8455); } 
{ /* Ieee/string.scm 953 */
 long BgL_tmpz00_8463;
{ /* Ieee/string.scm 953 */
 long BgL_za72za7_3110;
{ /* Ieee/string.scm 953 */
 obj_t BgL_tmpz00_8464;
if(
INTEGERP(BgL_startz00_142))
{ /* Ieee/string.scm 953 */
BgL_tmpz00_8464 = BgL_startz00_142
; }  else 
{ 
 obj_t BgL_auxz00_8467;
BgL_auxz00_8467 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41456L), BGl_string3876z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_142); 
FAILURE(BgL_auxz00_8467,BFALSE,BFALSE);} 
BgL_za72za7_3110 = 
(long)CINT(BgL_tmpz00_8464); } 
BgL_tmpz00_8463 = 
(BgL_lenz00_1412-BgL_za72za7_3110); } 
BgL_test4567z00_8442 = 
(BgL_n1z00_3111<=BgL_tmpz00_8463); } }  else 
{ /* Ieee/string.scm 953 */
BgL_test4567z00_8442 = ((bool_t)0)
; } }  else 
{ /* Ieee/string.scm 952 */
BgL_test4567z00_8442 = ((bool_t)0)
; } 
if(BgL_test4567z00_8442)
{ /* Ieee/string.scm 954 */
 obj_t BgL_tmpz00_8474;
if(
INTEGERP(BgL_countz00_143))
{ /* Ieee/string.scm 954 */
BgL_tmpz00_8474 = BgL_countz00_143
; }  else 
{ 
 obj_t BgL_auxz00_8477;
BgL_auxz00_8477 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41468L), BGl_string3876z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_countz00_143); 
FAILURE(BgL_auxz00_8477,BFALSE,BFALSE);} 
BgL_nz00_3120 = 
(long)CINT(BgL_tmpz00_8474); }  else 
{ /* Ieee/string.scm 955 */
 long BgL_za72za7_3114;
{ /* Ieee/string.scm 955 */
 obj_t BgL_tmpz00_8482;
if(
INTEGERP(BgL_startz00_142))
{ /* Ieee/string.scm 955 */
BgL_tmpz00_8482 = BgL_startz00_142
; }  else 
{ 
 obj_t BgL_auxz00_8485;
BgL_auxz00_8485 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41486L), BGl_string3876z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_142); 
FAILURE(BgL_auxz00_8485,BFALSE,BFALSE);} 
BgL_za72za7_3114 = 
(long)CINT(BgL_tmpz00_8482); } 
BgL_nz00_3120 = 
(BgL_lenz00_1412-BgL_za72za7_3114); } } 
{ /* Ieee/string.scm 932 */
 char * BgL_s0z00_3121;
BgL_s0z00_3121 = 
BSTRING_TO_STRING(BgL_stringz00_140); 
{ /* Ieee/string.scm 932 */
 char * BgL_s1z00_3122;
{ /* Ieee/string.scm 933 */
 int BgL_tmpz00_8492;
BgL_tmpz00_8492 = 
(int)(
(
(unsigned char)(BgL_charz00_141))); 
BgL_s1z00_3122 = 
BGL_MEMCHR(BgL_s0z00_3121, BgL_tmpz00_8492, BgL_nz00_3120, BgL_startz00_3119); } 
{ /* Ieee/string.scm 933 */

if(
BGL_MEMCHR_ZERO(BgL_s1z00_3122))
{ /* Ieee/string.scm 934 */
return BFALSE;}  else 
{ /* Ieee/string.scm 934 */
return 
BINT(
BGL_MEMCHR_DIFF(BgL_s1z00_3122, BgL_s0z00_3121));} } } } }  else 
{ /* Ieee/string.scm 956 */
return BFALSE;} } } } } 

}



/* _string-index */
obj_t BGl__stringzd2indexzd2zz__r4_strings_6_7z00(obj_t BgL_env1140z00_150, obj_t BgL_opt1139z00_149)
{
{ /* Ieee/string.scm 962 */
{ /* Ieee/string.scm 962 */
 obj_t BgL_g1141z00_1422; obj_t BgL_g1142z00_1423;
{ 
 obj_t BgL_auxz00_8501;
if(
VECTORP(BgL_opt1139z00_149))
{ /* Ieee/string.scm 962 */
BgL_auxz00_8501 = BgL_opt1139z00_149
; }  else 
{ 
 obj_t BgL_auxz00_8504;
BgL_auxz00_8504 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41795L), BGl_string3877z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1139z00_149); 
FAILURE(BgL_auxz00_8504,BFALSE,BFALSE);} 
BgL_g1141z00_1422 = 
VECTOR_REF(BgL_auxz00_8501,0L); } 
{ 
 obj_t BgL_auxz00_8509;
if(
VECTORP(BgL_opt1139z00_149))
{ /* Ieee/string.scm 962 */
BgL_auxz00_8509 = BgL_opt1139z00_149
; }  else 
{ 
 obj_t BgL_auxz00_8512;
BgL_auxz00_8512 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41795L), BGl_string3877z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1139z00_149); 
FAILURE(BgL_auxz00_8512,BFALSE,BFALSE);} 
BgL_g1142z00_1423 = 
VECTOR_REF(BgL_auxz00_8509,1L); } 
{ 

{ /* Ieee/string.scm 962 */
 long BgL_aux1144z00_1425;
{ 
 obj_t BgL_auxz00_8517;
if(
VECTORP(BgL_opt1139z00_149))
{ /* Ieee/string.scm 962 */
BgL_auxz00_8517 = BgL_opt1139z00_149
; }  else 
{ 
 obj_t BgL_auxz00_8520;
BgL_auxz00_8520 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41795L), BGl_string3877z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1139z00_149); 
FAILURE(BgL_auxz00_8520,BFALSE,BFALSE);} 
BgL_aux1144z00_1425 = 
VECTOR_LENGTH(BgL_auxz00_8517); } 
switch( BgL_aux1144z00_1425) { case 2L : 

{ /* Ieee/string.scm 962 */

{ /* Ieee/string.scm 962 */
 obj_t BgL_auxz00_8525;
if(
STRINGP(BgL_g1141z00_1422))
{ /* Ieee/string.scm 962 */
BgL_auxz00_8525 = BgL_g1141z00_1422
; }  else 
{ 
 obj_t BgL_auxz00_8528;
BgL_auxz00_8528 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41795L), BGl_string3877z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1141z00_1422); 
FAILURE(BgL_auxz00_8528,BFALSE,BFALSE);} 
return 
BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_auxz00_8525, BgL_g1142z00_1423, 
BINT(0L));} } break;case 3L : 

{ /* Ieee/string.scm 962 */
 obj_t BgL_startz00_1427;
{ 
 obj_t BgL_auxz00_8534;
if(
VECTORP(BgL_opt1139z00_149))
{ /* Ieee/string.scm 962 */
BgL_auxz00_8534 = BgL_opt1139z00_149
; }  else 
{ 
 obj_t BgL_auxz00_8537;
BgL_auxz00_8537 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41795L), BGl_string3877z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1139z00_149); 
FAILURE(BgL_auxz00_8537,BFALSE,BFALSE);} 
BgL_startz00_1427 = 
VECTOR_REF(BgL_auxz00_8534,2L); } 
{ /* Ieee/string.scm 962 */

{ /* Ieee/string.scm 962 */
 obj_t BgL_auxz00_8542;
if(
STRINGP(BgL_g1141z00_1422))
{ /* Ieee/string.scm 962 */
BgL_auxz00_8542 = BgL_g1141z00_1422
; }  else 
{ 
 obj_t BgL_auxz00_8545;
BgL_auxz00_8545 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41795L), BGl_string3877z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1141z00_1422); 
FAILURE(BgL_auxz00_8545,BFALSE,BFALSE);} 
return 
BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_auxz00_8542, BgL_g1142z00_1423, BgL_startz00_1427);} } } break;
default: 
{ /* Ieee/string.scm 962 */
 long BgL_arg1533z00_1428;
{ 
 obj_t BgL_auxz00_8550;
if(
VECTORP(BgL_opt1139z00_149))
{ /* Ieee/string.scm 962 */
BgL_auxz00_8550 = BgL_opt1139z00_149
; }  else 
{ 
 obj_t BgL_auxz00_8553;
BgL_auxz00_8553 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(41795L), BGl_string3878z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1139z00_149); 
FAILURE(BgL_auxz00_8553,BFALSE,BFALSE);} 
BgL_arg1533z00_1428 = 
VECTOR_LENGTH(BgL_auxz00_8550); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3879z00zz__r4_strings_6_7z00, BGl_string3810z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1533z00_1428));} } } } } } 

}



/* string-index */
BGL_EXPORTED_DEF obj_t BGl_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_146, obj_t BgL_rsz00_147, obj_t BgL_startz00_148)
{
{ /* Ieee/string.scm 962 */
if(
CHARP(BgL_rsz00_147))
{ /* Ieee/string.scm 224 */

return 
BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(BgL_stringz00_146, 
CCHAR(BgL_rsz00_147), BgL_startz00_148, 
BINT((-1L)));}  else 
{ /* Ieee/string.scm 964 */
if(
STRINGP(BgL_rsz00_147))
{ /* Ieee/string.scm 966 */
if(
(
STRING_LENGTH(BgL_rsz00_147)==1L))
{ /* Ieee/string.scm 224 */

{ /* Ieee/string.scm 224 */
 unsigned char BgL_auxz00_8571;
{ /* Ieee/string.scm 331 */
 long BgL_l2401z00_4350;
BgL_l2401z00_4350 = 
STRING_LENGTH(BgL_rsz00_147); 
if(
BOUND_CHECK(0L, BgL_l2401z00_4350))
{ /* Ieee/string.scm 331 */
BgL_auxz00_8571 = 
(char)(
STRING_REF(BgL_rsz00_147, 0L))
; }  else 
{ 
 obj_t BgL_auxz00_8577;
BgL_auxz00_8577 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_rsz00_147, 
(int)(BgL_l2401z00_4350), 
(int)(0L)); 
FAILURE(BgL_auxz00_8577,BFALSE,BFALSE);} } 
return 
BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(BgL_stringz00_146, BgL_auxz00_8571, BgL_startz00_148, 
BINT((-1L)));} }  else 
{ /* Ieee/string.scm 968 */
if(
(
STRING_LENGTH(BgL_rsz00_147)<=10L))
{ /* Ieee/string.scm 971 */
 long BgL_lenz00_1444; long BgL_lenjz00_1445;
BgL_lenz00_1444 = 
STRING_LENGTH(BgL_stringz00_146); 
BgL_lenjz00_1445 = 
STRING_LENGTH(BgL_rsz00_147); 
{ 
 obj_t BgL_iz00_1447;
BgL_iz00_1447 = BgL_startz00_148; 
BgL_zc3z04anonymousza31543ze3z87_1448:
{ /* Ieee/string.scm 974 */
 bool_t BgL_test4588z00_8590;
{ /* Ieee/string.scm 974 */
 long BgL_n1z00_3133;
{ /* Ieee/string.scm 974 */
 obj_t BgL_tmpz00_8591;
if(
INTEGERP(BgL_iz00_1447))
{ /* Ieee/string.scm 974 */
BgL_tmpz00_8591 = BgL_iz00_1447
; }  else 
{ 
 obj_t BgL_auxz00_8594;
BgL_auxz00_8594 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(42242L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1447); 
FAILURE(BgL_auxz00_8594,BFALSE,BFALSE);} 
BgL_n1z00_3133 = 
(long)CINT(BgL_tmpz00_8591); } 
BgL_test4588z00_8590 = 
(BgL_n1z00_3133>=BgL_lenz00_1444); } 
if(BgL_test4588z00_8590)
{ /* Ieee/string.scm 974 */
return BFALSE;}  else 
{ /* Ieee/string.scm 976 */
 unsigned char BgL_cz00_1450;
{ /* Ieee/string.scm 976 */
 long BgL_kz00_3136;
{ /* Ieee/string.scm 976 */
 obj_t BgL_tmpz00_8600;
if(
INTEGERP(BgL_iz00_1447))
{ /* Ieee/string.scm 976 */
BgL_tmpz00_8600 = BgL_iz00_1447
; }  else 
{ 
 obj_t BgL_auxz00_8603;
BgL_auxz00_8603 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(42286L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1447); 
FAILURE(BgL_auxz00_8603,BFALSE,BFALSE);} 
BgL_kz00_3136 = 
(long)CINT(BgL_tmpz00_8600); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2405z00_4354;
BgL_l2405z00_4354 = 
STRING_LENGTH(BgL_stringz00_146); 
if(
BOUND_CHECK(BgL_kz00_3136, BgL_l2405z00_4354))
{ /* Ieee/string.scm 331 */
BgL_cz00_1450 = 
STRING_REF(BgL_stringz00_146, BgL_kz00_3136); }  else 
{ 
 obj_t BgL_auxz00_8612;
BgL_auxz00_8612 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_146, 
(int)(BgL_l2405z00_4354), 
(int)(BgL_kz00_3136)); 
FAILURE(BgL_auxz00_8612,BFALSE,BFALSE);} } } 
{ 
 long BgL_jz00_1452;
BgL_jz00_1452 = 0L; 
BgL_zc3z04anonymousza31545ze3z87_1453:
if(
(BgL_jz00_1452==BgL_lenjz00_1445))
{ 
 obj_t BgL_iz00_8620;
{ 
 obj_t BgL_tmpz00_8621;
if(
INTEGERP(BgL_iz00_1447))
{ /* Ieee/string.scm 979 */
BgL_tmpz00_8621 = BgL_iz00_1447
; }  else 
{ 
 obj_t BgL_auxz00_8624;
BgL_auxz00_8624 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(42358L), BGl_string3881z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1447); 
FAILURE(BgL_auxz00_8624,BFALSE,BFALSE);} 
BgL_iz00_8620 = 
ADDFX(BgL_tmpz00_8621, 
BINT(1L)); } 
BgL_iz00_1447 = BgL_iz00_8620; 
goto BgL_zc3z04anonymousza31543ze3z87_1448;}  else 
{ /* Ieee/string.scm 980 */
 bool_t BgL_test4594z00_8630;
{ /* Ieee/string.scm 980 */
 unsigned char BgL_tmpz00_8631;
{ /* Ieee/string.scm 343 */
 long BgL_l2409z00_4358;
BgL_l2409z00_4358 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_147)); 
if(
BOUND_CHECK(BgL_jz00_1452, BgL_l2409z00_4358))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_8631 = 
STRING_REF(
((obj_t)BgL_rsz00_147), BgL_jz00_1452)
; }  else 
{ 
 obj_t BgL_auxz00_8638;
BgL_auxz00_8638 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_147), 
(int)(BgL_l2409z00_4358), 
(int)(BgL_jz00_1452)); 
FAILURE(BgL_auxz00_8638,BFALSE,BFALSE);} } 
BgL_test4594z00_8630 = 
(BgL_cz00_1450==BgL_tmpz00_8631); } 
if(BgL_test4594z00_8630)
{ /* Ieee/string.scm 980 */
return BgL_iz00_1447;}  else 
{ 
 long BgL_jz00_8646;
BgL_jz00_8646 = 
(BgL_jz00_1452+1L); 
BgL_jz00_1452 = BgL_jz00_8646; 
goto BgL_zc3z04anonymousza31545ze3z87_1453;} } } } } } }  else 
{ /* Ieee/string.scm 984 */
 obj_t BgL_tz00_1462; long BgL_lenz00_1463;
BgL_tz00_1462 = 
make_string(256L, ((unsigned char)'n')); 
BgL_lenz00_1463 = 
STRING_LENGTH(BgL_stringz00_146); 
{ /* Ieee/string.scm 986 */
 long BgL_g1030z00_1464;
BgL_g1030z00_1464 = 
(
STRING_LENGTH(BgL_rsz00_147)-1L); 
{ 
 long BgL_iz00_1466;
BgL_iz00_1466 = BgL_g1030z00_1464; 
BgL_zc3z04anonymousza31553ze3z87_1467:
if(
(BgL_iz00_1466==(-1L)))
{ 
 obj_t BgL_iz00_1470;
BgL_iz00_1470 = BgL_startz00_148; 
BgL_zc3z04anonymousza31555ze3z87_1471:
{ /* Ieee/string.scm 990 */
 bool_t BgL_test4597z00_8654;
{ /* Ieee/string.scm 990 */
 long BgL_n1z00_3149;
{ /* Ieee/string.scm 990 */
 obj_t BgL_tmpz00_8655;
if(
INTEGERP(BgL_iz00_1470))
{ /* Ieee/string.scm 990 */
BgL_tmpz00_8655 = BgL_iz00_1470
; }  else 
{ 
 obj_t BgL_auxz00_8658;
BgL_auxz00_8658 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(42660L), BGl_string3881z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1470); 
FAILURE(BgL_auxz00_8658,BFALSE,BFALSE);} 
BgL_n1z00_3149 = 
(long)CINT(BgL_tmpz00_8655); } 
BgL_test4597z00_8654 = 
(BgL_n1z00_3149>=BgL_lenz00_1463); } 
if(BgL_test4597z00_8654)
{ /* Ieee/string.scm 990 */
return BFALSE;}  else 
{ /* Ieee/string.scm 992 */
 bool_t BgL_test4599z00_8664;
{ /* Ieee/string.scm 992 */
 unsigned char BgL_tmpz00_8665;
{ /* Ieee/string.scm 993 */
 long BgL_i2416z00_4365;
{ /* Ieee/string.scm 993 */
 unsigned char BgL_tmpz00_8666;
{ /* Ieee/string.scm 993 */
 long BgL_kz00_3152;
{ /* Ieee/string.scm 993 */
 obj_t BgL_tmpz00_8667;
if(
INTEGERP(BgL_iz00_1470))
{ /* Ieee/string.scm 993 */
BgL_tmpz00_8667 = BgL_iz00_1470
; }  else 
{ 
 obj_t BgL_auxz00_8670;
BgL_auxz00_8670 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(42750L), BGl_string3881z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1470); 
FAILURE(BgL_auxz00_8670,BFALSE,BFALSE);} 
BgL_kz00_3152 = 
(long)CINT(BgL_tmpz00_8667); } 
{ /* Ieee/string.scm 343 */
 long BgL_l2413z00_4362;
BgL_l2413z00_4362 = 
STRING_LENGTH(BgL_stringz00_146); 
if(
BOUND_CHECK(BgL_kz00_3152, BgL_l2413z00_4362))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_8666 = 
STRING_REF(BgL_stringz00_146, BgL_kz00_3152)
; }  else 
{ 
 obj_t BgL_auxz00_8679;
BgL_auxz00_8679 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_146, 
(int)(BgL_l2413z00_4362), 
(int)(BgL_kz00_3152)); 
FAILURE(BgL_auxz00_8679,BFALSE,BFALSE);} } } 
BgL_i2416z00_4365 = 
(BgL_tmpz00_8666); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2417z00_4366;
BgL_l2417z00_4366 = 
STRING_LENGTH(BgL_tz00_1462); 
if(
BOUND_CHECK(BgL_i2416z00_4365, BgL_l2417z00_4366))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_8665 = 
STRING_REF(BgL_tz00_1462, BgL_i2416z00_4365)
; }  else 
{ 
 obj_t BgL_auxz00_8690;
BgL_auxz00_8690 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_tz00_1462, 
(int)(BgL_l2417z00_4366), 
(int)(BgL_i2416z00_4365)); 
FAILURE(BgL_auxz00_8690,BFALSE,BFALSE);} } } 
BgL_test4599z00_8664 = 
(BgL_tmpz00_8665==((unsigned char)'y')); } 
if(BgL_test4599z00_8664)
{ /* Ieee/string.scm 992 */
return BgL_iz00_1470;}  else 
{ 
 obj_t BgL_iz00_8697;
{ 
 obj_t BgL_tmpz00_8698;
if(
INTEGERP(BgL_iz00_1470))
{ /* Ieee/string.scm 997 */
BgL_tmpz00_8698 = BgL_iz00_1470
; }  else 
{ 
 obj_t BgL_auxz00_8701;
BgL_auxz00_8701 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(42801L), BGl_string3881z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1470); 
FAILURE(BgL_auxz00_8701,BFALSE,BFALSE);} 
BgL_iz00_8697 = 
ADDFX(BgL_tmpz00_8698, 
BINT(1L)); } 
BgL_iz00_1470 = BgL_iz00_8697; 
goto BgL_zc3z04anonymousza31555ze3z87_1471;} } } }  else 
{ /* Ieee/string.scm 987 */
{ /* Ieee/string.scm 999 */
 long BgL_arg1573z00_1482;
{ /* Ieee/string.scm 999 */
 unsigned char BgL_tmpz00_8707;
{ /* Ieee/string.scm 343 */
 long BgL_l2421z00_4370;
BgL_l2421z00_4370 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_147)); 
if(
BOUND_CHECK(BgL_iz00_1466, BgL_l2421z00_4370))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_8707 = 
STRING_REF(
((obj_t)BgL_rsz00_147), BgL_iz00_1466)
; }  else 
{ 
 obj_t BgL_auxz00_8714;
BgL_auxz00_8714 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_147), 
(int)(BgL_l2421z00_4370), 
(int)(BgL_iz00_1466)); 
FAILURE(BgL_auxz00_8714,BFALSE,BFALSE);} } 
BgL_arg1573z00_1482 = 
(BgL_tmpz00_8707); } 
{ /* Ieee/string.scm 349 */
 long BgL_l2425z00_4374;
BgL_l2425z00_4374 = 
STRING_LENGTH(BgL_tz00_1462); 
if(
BOUND_CHECK(BgL_arg1573z00_1482, BgL_l2425z00_4374))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_tz00_1462, BgL_arg1573z00_1482, ((unsigned char)'y')); }  else 
{ 
 obj_t BgL_auxz00_8726;
BgL_auxz00_8726 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_tz00_1462, 
(int)(BgL_l2425z00_4374), 
(int)(BgL_arg1573z00_1482)); 
FAILURE(BgL_auxz00_8726,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_8732;
BgL_iz00_8732 = 
(BgL_iz00_1466-1L); 
BgL_iz00_1466 = BgL_iz00_8732; 
goto BgL_zc3z04anonymousza31553ze3z87_1467;} } } } } } }  else 
{ /* Ieee/string.scm 966 */
return 
BGl_errorz00zz__errorz00(BGl_string3880z00zz__r4_strings_6_7z00, BGl_string3882z00zz__r4_strings_6_7z00, BgL_rsz00_147);} } } 

}



/* _string-index-right */
obj_t BGl__stringzd2indexzd2rightz00zz__r4_strings_6_7z00(obj_t BgL_env1146z00_155, obj_t BgL_opt1145z00_154)
{
{ /* Ieee/string.scm 1005 */
{ /* Ieee/string.scm 1005 */
 obj_t BgL_sz00_1489; obj_t BgL_g1147z00_1490;
{ 
 obj_t BgL_auxz00_8735;
if(
VECTORP(BgL_opt1145z00_154))
{ /* Ieee/string.scm 1005 */
BgL_auxz00_8735 = BgL_opt1145z00_154
; }  else 
{ 
 obj_t BgL_auxz00_8738;
BgL_auxz00_8738 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(43139L), BGl_string3883z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1145z00_154); 
FAILURE(BgL_auxz00_8738,BFALSE,BFALSE);} 
BgL_sz00_1489 = 
VECTOR_REF(BgL_auxz00_8735,0L); } 
{ 
 obj_t BgL_auxz00_8743;
if(
VECTORP(BgL_opt1145z00_154))
{ /* Ieee/string.scm 1005 */
BgL_auxz00_8743 = BgL_opt1145z00_154
; }  else 
{ 
 obj_t BgL_auxz00_8746;
BgL_auxz00_8746 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(43139L), BGl_string3883z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1145z00_154); 
FAILURE(BgL_auxz00_8746,BFALSE,BFALSE);} 
BgL_g1147z00_1490 = 
VECTOR_REF(BgL_auxz00_8743,1L); } 
{ 

{ /* Ieee/string.scm 1005 */
 long BgL_aux1149z00_1492;
{ 
 obj_t BgL_auxz00_8751;
if(
VECTORP(BgL_opt1145z00_154))
{ /* Ieee/string.scm 1005 */
BgL_auxz00_8751 = BgL_opt1145z00_154
; }  else 
{ 
 obj_t BgL_auxz00_8754;
BgL_auxz00_8754 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(43139L), BGl_string3883z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1145z00_154); 
FAILURE(BgL_auxz00_8754,BFALSE,BFALSE);} 
BgL_aux1149z00_1492 = 
VECTOR_LENGTH(BgL_auxz00_8751); } 
switch( BgL_aux1149z00_1492) { case 2L : 

{ /* Ieee/string.scm 1005 */
 long BgL_startz00_1493;
{ /* Ieee/string.scm 1005 */
 obj_t BgL_stringz00_3166;
if(
STRINGP(BgL_sz00_1489))
{ /* Ieee/string.scm 1005 */
BgL_stringz00_3166 = BgL_sz00_1489; }  else 
{ 
 obj_t BgL_auxz00_8761;
BgL_auxz00_8761 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(43190L), BGl_string3883z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_sz00_1489); 
FAILURE(BgL_auxz00_8761,BFALSE,BFALSE);} 
BgL_startz00_1493 = 
STRING_LENGTH(BgL_stringz00_3166); } 
{ /* Ieee/string.scm 1005 */

{ /* Ieee/string.scm 1005 */
 obj_t BgL_auxz00_8766;
if(
STRINGP(BgL_sz00_1489))
{ /* Ieee/string.scm 1005 */
BgL_auxz00_8766 = BgL_sz00_1489
; }  else 
{ 
 obj_t BgL_auxz00_8769;
BgL_auxz00_8769 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(43139L), BGl_string3883z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_sz00_1489); 
FAILURE(BgL_auxz00_8769,BFALSE,BFALSE);} 
return 
BGl_stringzd2indexzd2rightz00zz__r4_strings_6_7z00(BgL_auxz00_8766, BgL_g1147z00_1490, 
BINT(BgL_startz00_1493));} } } break;case 3L : 

{ /* Ieee/string.scm 1005 */
 obj_t BgL_startz00_1494;
{ 
 obj_t BgL_auxz00_8775;
if(
VECTORP(BgL_opt1145z00_154))
{ /* Ieee/string.scm 1005 */
BgL_auxz00_8775 = BgL_opt1145z00_154
; }  else 
{ 
 obj_t BgL_auxz00_8778;
BgL_auxz00_8778 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(43139L), BGl_string3883z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1145z00_154); 
FAILURE(BgL_auxz00_8778,BFALSE,BFALSE);} 
BgL_startz00_1494 = 
VECTOR_REF(BgL_auxz00_8775,2L); } 
{ /* Ieee/string.scm 1005 */

{ /* Ieee/string.scm 1005 */
 obj_t BgL_auxz00_8783;
if(
STRINGP(BgL_sz00_1489))
{ /* Ieee/string.scm 1005 */
BgL_auxz00_8783 = BgL_sz00_1489
; }  else 
{ 
 obj_t BgL_auxz00_8786;
BgL_auxz00_8786 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(43139L), BGl_string3883z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_sz00_1489); 
FAILURE(BgL_auxz00_8786,BFALSE,BFALSE);} 
return 
BGl_stringzd2indexzd2rightz00zz__r4_strings_6_7z00(BgL_auxz00_8783, BgL_g1147z00_1490, BgL_startz00_1494);} } } break;
default: 
{ /* Ieee/string.scm 1005 */
 long BgL_arg1580z00_1495;
{ 
 obj_t BgL_auxz00_8791;
if(
VECTORP(BgL_opt1145z00_154))
{ /* Ieee/string.scm 1005 */
BgL_auxz00_8791 = BgL_opt1145z00_154
; }  else 
{ 
 obj_t BgL_auxz00_8794;
BgL_auxz00_8794 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(43139L), BGl_string3884z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1145z00_154); 
FAILURE(BgL_auxz00_8794,BFALSE,BFALSE);} 
BgL_arg1580z00_1495 = 
VECTOR_LENGTH(BgL_auxz00_8791); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3885z00zz__r4_strings_6_7z00, BGl_string3810z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1580z00_1495));} } } } } } 

}



/* string-index-right */
BGL_EXPORTED_DEF obj_t BGl_stringzd2indexzd2rightz00zz__r4_strings_6_7z00(obj_t BgL_sz00_151, obj_t BgL_rsz00_152, obj_t BgL_startz00_153)
{
{ /* Ieee/string.scm 1005 */
{ 
 obj_t BgL_sz00_1554; obj_t BgL_cz00_1555;
{ /* Ieee/string.scm 1016 */
 bool_t BgL_test4614z00_8802;
{ /* Ieee/string.scm 1016 */
 long BgL_n1z00_3175;
{ /* Ieee/string.scm 1016 */
 obj_t BgL_tmpz00_8803;
if(
INTEGERP(BgL_startz00_153))
{ /* Ieee/string.scm 1016 */
BgL_tmpz00_8803 = BgL_startz00_153
; }  else 
{ 
 obj_t BgL_auxz00_8806;
BgL_auxz00_8806 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(43420L), BGl_string3886z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_153); 
FAILURE(BgL_auxz00_8806,BFALSE,BFALSE);} 
BgL_n1z00_3175 = 
(long)CINT(BgL_tmpz00_8803); } 
BgL_test4614z00_8802 = 
(BgL_n1z00_3175>
STRING_LENGTH(BgL_sz00_151)); } 
if(BgL_test4614z00_8802)
{ /* Ieee/string.scm 1016 */
return 
BGl_errorz00zz__errorz00(BGl_string3886z00zz__r4_strings_6_7z00, BGl_string3887z00zz__r4_strings_6_7z00, BgL_startz00_153);}  else 
{ /* Ieee/string.scm 1016 */
if(
CHARP(BgL_rsz00_152))
{ /* Ieee/string.scm 1018 */
BgL_sz00_1554 = BgL_sz00_151; 
BgL_cz00_1555 = BgL_rsz00_152; 
BgL_zc3z04anonymousza31624ze3z87_1556:
{ 
 long BgL_iz00_1559;
{ /* Ieee/string.scm 1007 */
 long BgL_za71za7_3167;
{ /* Ieee/string.scm 1007 */
 obj_t BgL_tmpz00_8835;
if(
INTEGERP(BgL_startz00_153))
{ /* Ieee/string.scm 1007 */
BgL_tmpz00_8835 = BgL_startz00_153
; }  else 
{ 
 obj_t BgL_auxz00_8838;
BgL_auxz00_8838 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(43270L), BGl_string3876z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_153); 
FAILURE(BgL_auxz00_8838,BFALSE,BFALSE);} 
BgL_za71za7_3167 = 
(long)CINT(BgL_tmpz00_8835); } 
BgL_iz00_1559 = 
(BgL_za71za7_3167-1L); } 
BgL_zc3z04anonymousza31625ze3z87_1560:
if(
(BgL_iz00_1559<0L))
{ /* Ieee/string.scm 1009 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1011 */
 bool_t BgL_test4618z00_8818;
{ /* Ieee/string.scm 1011 */
 unsigned char BgL_char2z00_3172;
BgL_char2z00_3172 = 
CCHAR(BgL_cz00_1555); 
{ /* Ieee/string.scm 1011 */
 unsigned char BgL_tmpz00_8820;
{ /* Ieee/string.scm 343 */
 long BgL_l2429z00_4378;
BgL_l2429z00_4378 = 
STRING_LENGTH(BgL_sz00_1554); 
if(
BOUND_CHECK(BgL_iz00_1559, BgL_l2429z00_4378))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_8820 = 
STRING_REF(BgL_sz00_1554, BgL_iz00_1559)
; }  else 
{ 
 obj_t BgL_auxz00_8825;
BgL_auxz00_8825 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_sz00_1554, 
(int)(BgL_l2429z00_4378), 
(int)(BgL_iz00_1559)); 
FAILURE(BgL_auxz00_8825,BFALSE,BFALSE);} } 
BgL_test4618z00_8818 = 
(BgL_tmpz00_8820==BgL_char2z00_3172); } } 
if(BgL_test4618z00_8818)
{ /* Ieee/string.scm 1011 */
return 
BINT(BgL_iz00_1559);}  else 
{ 
 long BgL_iz00_8833;
BgL_iz00_8833 = 
(BgL_iz00_1559-1L); 
BgL_iz00_1559 = BgL_iz00_8833; 
goto BgL_zc3z04anonymousza31625ze3z87_1560;} } } }  else 
{ /* Ieee/string.scm 1018 */
if(
STRINGP(BgL_rsz00_152))
{ /* Ieee/string.scm 1020 */
if(
(
STRING_LENGTH(BgL_rsz00_152)==1L))
{ 
 obj_t BgL_cz00_8850; obj_t BgL_sz00_8849;
BgL_sz00_8849 = BgL_sz00_151; 
{ /* Ieee/string.scm 331 */
 long BgL_l2433z00_4382;
BgL_l2433z00_4382 = 
STRING_LENGTH(BgL_rsz00_152); 
if(
BOUND_CHECK(0L, BgL_l2433z00_4382))
{ /* Ieee/string.scm 331 */
BgL_cz00_8850 = 
BCHAR(
STRING_REF(BgL_rsz00_152, 0L)); }  else 
{ 
 obj_t BgL_auxz00_8856;
BgL_auxz00_8856 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_rsz00_152, 
(int)(BgL_l2433z00_4382), 
(int)(0L)); 
FAILURE(BgL_auxz00_8856,BFALSE,BFALSE);} } 
BgL_cz00_1555 = BgL_cz00_8850; 
BgL_sz00_1554 = BgL_sz00_8849; 
goto BgL_zc3z04anonymousza31624ze3z87_1556;}  else 
{ /* Ieee/string.scm 1022 */
if(
(
STRING_LENGTH(BgL_rsz00_152)<=10L))
{ /* Ieee/string.scm 1025 */
 long BgL_lenjz00_1507;
BgL_lenjz00_1507 = 
STRING_LENGTH(BgL_rsz00_152); 
{ 
 long BgL_iz00_1510;
{ /* Ieee/string.scm 1027 */
 long BgL_za71za7_3184;
{ /* Ieee/string.scm 1027 */
 obj_t BgL_tmpz00_8901;
if(
INTEGERP(BgL_startz00_153))
{ /* Ieee/string.scm 1027 */
BgL_tmpz00_8901 = BgL_startz00_153
; }  else 
{ 
 obj_t BgL_auxz00_8904;
BgL_auxz00_8904 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(43853L), BGl_string3886z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_153); 
FAILURE(BgL_auxz00_8904,BFALSE,BFALSE);} 
BgL_za71za7_3184 = 
(long)CINT(BgL_tmpz00_8901); } 
BgL_iz00_1510 = 
(BgL_za71za7_3184-1L); } 
BgL_zc3z04anonymousza31594ze3z87_1511:
if(
(BgL_iz00_1510<0L))
{ /* Ieee/string.scm 1028 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1030 */
 unsigned char BgL_cz00_1513;
{ /* Ieee/string.scm 331 */
 long BgL_l2437z00_4386;
BgL_l2437z00_4386 = 
STRING_LENGTH(BgL_sz00_151); 
if(
BOUND_CHECK(BgL_iz00_1510, BgL_l2437z00_4386))
{ /* Ieee/string.scm 331 */
BgL_cz00_1513 = 
STRING_REF(BgL_sz00_151, BgL_iz00_1510); }  else 
{ 
 obj_t BgL_auxz00_8872;
BgL_auxz00_8872 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_sz00_151, 
(int)(BgL_l2437z00_4386), 
(int)(BgL_iz00_1510)); 
FAILURE(BgL_auxz00_8872,BFALSE,BFALSE);} } 
{ 
 long BgL_jz00_1515;
BgL_jz00_1515 = 0L; 
BgL_zc3z04anonymousza31596ze3z87_1516:
if(
(BgL_jz00_1515==BgL_lenjz00_1507))
{ 
 long BgL_iz00_8880;
BgL_iz00_8880 = 
(BgL_iz00_1510-1L); 
BgL_iz00_1510 = BgL_iz00_8880; 
goto BgL_zc3z04anonymousza31594ze3z87_1511;}  else 
{ /* Ieee/string.scm 1034 */
 bool_t BgL_test4628z00_8882;
{ /* Ieee/string.scm 1034 */
 unsigned char BgL_tmpz00_8883;
{ /* Ieee/string.scm 343 */
 long BgL_l2441z00_4390;
BgL_l2441z00_4390 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_152)); 
if(
BOUND_CHECK(BgL_jz00_1515, BgL_l2441z00_4390))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_8883 = 
STRING_REF(
((obj_t)BgL_rsz00_152), BgL_jz00_1515)
; }  else 
{ 
 obj_t BgL_auxz00_8890;
BgL_auxz00_8890 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_152), 
(int)(BgL_l2441z00_4390), 
(int)(BgL_jz00_1515)); 
FAILURE(BgL_auxz00_8890,BFALSE,BFALSE);} } 
BgL_test4628z00_8882 = 
(BgL_cz00_1513==BgL_tmpz00_8883); } 
if(BgL_test4628z00_8882)
{ /* Ieee/string.scm 1034 */
return 
BINT(BgL_iz00_1510);}  else 
{ 
 long BgL_jz00_8899;
BgL_jz00_8899 = 
(BgL_jz00_1515+1L); 
BgL_jz00_1515 = BgL_jz00_8899; 
goto BgL_zc3z04anonymousza31596ze3z87_1516;} } } } } }  else 
{ /* Ieee/string.scm 1038 */
 obj_t BgL_tz00_1525;
BgL_tz00_1525 = 
make_string(256L, ((unsigned char)'n')); 
{ /* Ieee/string.scm 1040 */
 long BgL_g1034z00_1527;
BgL_g1034z00_1527 = 
(
STRING_LENGTH(BgL_rsz00_152)-1L); 
{ 
 long BgL_iz00_1529;
BgL_iz00_1529 = BgL_g1034z00_1527; 
BgL_zc3z04anonymousza31604ze3z87_1530:
if(
(BgL_iz00_1529==(-1L)))
{ 
 long BgL_iz00_1534;
{ /* Ieee/string.scm 1042 */
 long BgL_za71za7_3200;
{ /* Ieee/string.scm 1042 */
 obj_t BgL_tmpz00_8945;
if(
INTEGERP(BgL_startz00_153))
{ /* Ieee/string.scm 1042 */
BgL_tmpz00_8945 = BgL_startz00_153
; }  else 
{ 
 obj_t BgL_auxz00_8948;
BgL_auxz00_8948 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(44254L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_153); 
FAILURE(BgL_auxz00_8948,BFALSE,BFALSE);} 
BgL_za71za7_3200 = 
(long)CINT(BgL_tmpz00_8945); } 
BgL_iz00_1534 = 
(BgL_za71za7_3200-1L); } 
BgL_zc3z04anonymousza31606ze3z87_1535:
if(
(BgL_iz00_1534<0L))
{ /* Ieee/string.scm 1044 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1046 */
 bool_t BgL_test4633z00_8917;
{ /* Ieee/string.scm 1046 */
 unsigned char BgL_tmpz00_8918;
{ /* Ieee/string.scm 1047 */
 long BgL_i2448z00_4397;
{ /* Ieee/string.scm 1047 */
 unsigned char BgL_tmpz00_8919;
{ /* Ieee/string.scm 343 */
 long BgL_l2445z00_4394;
BgL_l2445z00_4394 = 
STRING_LENGTH(BgL_sz00_151); 
if(
BOUND_CHECK(BgL_iz00_1534, BgL_l2445z00_4394))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_8919 = 
STRING_REF(BgL_sz00_151, BgL_iz00_1534)
; }  else 
{ 
 obj_t BgL_auxz00_8924;
BgL_auxz00_8924 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_sz00_151, 
(int)(BgL_l2445z00_4394), 
(int)(BgL_iz00_1534)); 
FAILURE(BgL_auxz00_8924,BFALSE,BFALSE);} } 
BgL_i2448z00_4397 = 
(BgL_tmpz00_8919); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2449z00_4398;
BgL_l2449z00_4398 = 
STRING_LENGTH(BgL_tz00_1525); 
if(
BOUND_CHECK(BgL_i2448z00_4397, BgL_l2449z00_4398))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_8918 = 
STRING_REF(BgL_tz00_1525, BgL_i2448z00_4397)
; }  else 
{ 
 obj_t BgL_auxz00_8935;
BgL_auxz00_8935 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_tz00_1525, 
(int)(BgL_l2449z00_4398), 
(int)(BgL_i2448z00_4397)); 
FAILURE(BgL_auxz00_8935,BFALSE,BFALSE);} } } 
BgL_test4633z00_8917 = 
(BgL_tmpz00_8918==((unsigned char)'y')); } 
if(BgL_test4633z00_8917)
{ /* Ieee/string.scm 1046 */
return 
BINT(BgL_iz00_1534);}  else 
{ 
 long BgL_iz00_8943;
BgL_iz00_8943 = 
(BgL_iz00_1534-1L); 
BgL_iz00_1534 = BgL_iz00_8943; 
goto BgL_zc3z04anonymousza31606ze3z87_1535;} } }  else 
{ /* Ieee/string.scm 1041 */
{ /* Ieee/string.scm 1053 */
 long BgL_arg1616z00_1546;
{ /* Ieee/string.scm 1053 */
 unsigned char BgL_tmpz00_8954;
{ /* Ieee/string.scm 343 */
 long BgL_l2453z00_4402;
BgL_l2453z00_4402 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_152)); 
if(
BOUND_CHECK(BgL_iz00_1529, BgL_l2453z00_4402))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_8954 = 
STRING_REF(
((obj_t)BgL_rsz00_152), BgL_iz00_1529)
; }  else 
{ 
 obj_t BgL_auxz00_8961;
BgL_auxz00_8961 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_152), 
(int)(BgL_l2453z00_4402), 
(int)(BgL_iz00_1529)); 
FAILURE(BgL_auxz00_8961,BFALSE,BFALSE);} } 
BgL_arg1616z00_1546 = 
(BgL_tmpz00_8954); } 
{ /* Ieee/string.scm 349 */
 long BgL_l2457z00_4406;
BgL_l2457z00_4406 = 
STRING_LENGTH(BgL_tz00_1525); 
if(
BOUND_CHECK(BgL_arg1616z00_1546, BgL_l2457z00_4406))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_tz00_1525, BgL_arg1616z00_1546, ((unsigned char)'y')); }  else 
{ 
 obj_t BgL_auxz00_8973;
BgL_auxz00_8973 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_tz00_1525, 
(int)(BgL_l2457z00_4406), 
(int)(BgL_arg1616z00_1546)); 
FAILURE(BgL_auxz00_8973,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_8979;
BgL_iz00_8979 = 
(BgL_iz00_1529-1L); 
BgL_iz00_1529 = BgL_iz00_8979; 
goto BgL_zc3z04anonymousza31604ze3z87_1530;} } } } } } }  else 
{ /* Ieee/string.scm 1020 */
return 
BGl_errorz00zz__errorz00(BGl_string3886z00zz__r4_strings_6_7z00, BGl_string3882z00zz__r4_strings_6_7z00, BgL_rsz00_152);} } } } } } 

}



/* _string-skip */
obj_t BGl__stringzd2skipzd2zz__r4_strings_6_7z00(obj_t BgL_env1151z00_160, obj_t BgL_opt1150z00_159)
{
{ /* Ieee/string.scm 1059 */
{ /* Ieee/string.scm 1059 */
 obj_t BgL_g1152z00_1568; obj_t BgL_g1153z00_1569;
{ 
 obj_t BgL_auxz00_8982;
if(
VECTORP(BgL_opt1150z00_159))
{ /* Ieee/string.scm 1059 */
BgL_auxz00_8982 = BgL_opt1150z00_159
; }  else 
{ 
 obj_t BgL_auxz00_8985;
BgL_auxz00_8985 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(44760L), BGl_string3888z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1150z00_159); 
FAILURE(BgL_auxz00_8985,BFALSE,BFALSE);} 
BgL_g1152z00_1568 = 
VECTOR_REF(BgL_auxz00_8982,0L); } 
{ 
 obj_t BgL_auxz00_8990;
if(
VECTORP(BgL_opt1150z00_159))
{ /* Ieee/string.scm 1059 */
BgL_auxz00_8990 = BgL_opt1150z00_159
; }  else 
{ 
 obj_t BgL_auxz00_8993;
BgL_auxz00_8993 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(44760L), BGl_string3888z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1150z00_159); 
FAILURE(BgL_auxz00_8993,BFALSE,BFALSE);} 
BgL_g1153z00_1569 = 
VECTOR_REF(BgL_auxz00_8990,1L); } 
{ 

{ /* Ieee/string.scm 1059 */
 long BgL_aux1155z00_1571;
{ 
 obj_t BgL_auxz00_8998;
if(
VECTORP(BgL_opt1150z00_159))
{ /* Ieee/string.scm 1059 */
BgL_auxz00_8998 = BgL_opt1150z00_159
; }  else 
{ 
 obj_t BgL_auxz00_9001;
BgL_auxz00_9001 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(44760L), BGl_string3888z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1150z00_159); 
FAILURE(BgL_auxz00_9001,BFALSE,BFALSE);} 
BgL_aux1155z00_1571 = 
VECTOR_LENGTH(BgL_auxz00_8998); } 
switch( BgL_aux1155z00_1571) { case 2L : 

{ /* Ieee/string.scm 1059 */

{ /* Ieee/string.scm 1059 */
 obj_t BgL_auxz00_9006;
if(
STRINGP(BgL_g1152z00_1568))
{ /* Ieee/string.scm 1059 */
BgL_auxz00_9006 = BgL_g1152z00_1568
; }  else 
{ 
 obj_t BgL_auxz00_9009;
BgL_auxz00_9009 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(44760L), BGl_string3888z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1152z00_1568); 
FAILURE(BgL_auxz00_9009,BFALSE,BFALSE);} 
return 
BGl_stringzd2skipzd2zz__r4_strings_6_7z00(BgL_auxz00_9006, BgL_g1153z00_1569, 
BINT(0L));} } break;case 3L : 

{ /* Ieee/string.scm 1059 */
 obj_t BgL_startz00_1573;
{ 
 obj_t BgL_auxz00_9015;
if(
VECTORP(BgL_opt1150z00_159))
{ /* Ieee/string.scm 1059 */
BgL_auxz00_9015 = BgL_opt1150z00_159
; }  else 
{ 
 obj_t BgL_auxz00_9018;
BgL_auxz00_9018 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(44760L), BGl_string3888z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1150z00_159); 
FAILURE(BgL_auxz00_9018,BFALSE,BFALSE);} 
BgL_startz00_1573 = 
VECTOR_REF(BgL_auxz00_9015,2L); } 
{ /* Ieee/string.scm 1059 */

{ /* Ieee/string.scm 1059 */
 obj_t BgL_auxz00_9023;
if(
STRINGP(BgL_g1152z00_1568))
{ /* Ieee/string.scm 1059 */
BgL_auxz00_9023 = BgL_g1152z00_1568
; }  else 
{ 
 obj_t BgL_auxz00_9026;
BgL_auxz00_9026 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(44760L), BGl_string3888z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1152z00_1568); 
FAILURE(BgL_auxz00_9026,BFALSE,BFALSE);} 
return 
BGl_stringzd2skipzd2zz__r4_strings_6_7z00(BgL_auxz00_9023, BgL_g1153z00_1569, BgL_startz00_1573);} } } break;
default: 
{ /* Ieee/string.scm 1059 */
 long BgL_arg1631z00_1574;
{ 
 obj_t BgL_auxz00_9031;
if(
VECTORP(BgL_opt1150z00_159))
{ /* Ieee/string.scm 1059 */
BgL_auxz00_9031 = BgL_opt1150z00_159
; }  else 
{ 
 obj_t BgL_auxz00_9034;
BgL_auxz00_9034 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(44760L), BGl_string3889z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1150z00_159); 
FAILURE(BgL_auxz00_9034,BFALSE,BFALSE);} 
BgL_arg1631z00_1574 = 
VECTOR_LENGTH(BgL_auxz00_9031); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3890z00zz__r4_strings_6_7z00, BGl_string3810z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1631z00_1574));} } } } } } 

}



/* string-skip */
BGL_EXPORTED_DEF obj_t BGl_stringzd2skipzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_156, obj_t BgL_rsz00_157, obj_t BgL_startz00_158)
{
{ /* Ieee/string.scm 1059 */
{ 
 obj_t BgL_sz00_1643; obj_t BgL_predz00_1644; obj_t BgL_sz00_1630; obj_t BgL_cz00_1631;
if(
CHARP(BgL_rsz00_157))
{ /* Ieee/string.scm 1083 */
BgL_sz00_1630 = BgL_stringz00_156; 
BgL_cz00_1631 = BgL_rsz00_157; 
BgL_zc3z04anonymousza31676ze3z87_1632:
{ /* Ieee/string.scm 1062 */
 long BgL_lenz00_1633;
BgL_lenz00_1633 = 
STRING_LENGTH(BgL_sz00_1630); 
{ 
 obj_t BgL_iz00_1635;
BgL_iz00_1635 = BgL_startz00_158; 
BgL_zc3z04anonymousza31677ze3z87_1636:
{ /* Ieee/string.scm 1065 */
 bool_t BgL_test4647z00_9045;
{ /* Ieee/string.scm 1065 */
 long BgL_n1z00_3218;
{ /* Ieee/string.scm 1065 */
 obj_t BgL_tmpz00_9046;
if(
INTEGERP(BgL_iz00_1635))
{ /* Ieee/string.scm 1065 */
BgL_tmpz00_9046 = BgL_iz00_1635
; }  else 
{ 
 obj_t BgL_auxz00_9049;
BgL_auxz00_9049 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(44938L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1635); 
FAILURE(BgL_auxz00_9049,BFALSE,BFALSE);} 
BgL_n1z00_3218 = 
(long)CINT(BgL_tmpz00_9046); } 
BgL_test4647z00_9045 = 
(BgL_n1z00_3218>=BgL_lenz00_1633); } 
if(BgL_test4647z00_9045)
{ /* Ieee/string.scm 1065 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1067 */
 bool_t BgL_test4649z00_9055;
{ /* Ieee/string.scm 1067 */
 unsigned char BgL_char2z00_3223;
BgL_char2z00_3223 = 
CCHAR(BgL_cz00_1631); 
{ /* Ieee/string.scm 1067 */
 unsigned char BgL_tmpz00_9057;
{ /* Ieee/string.scm 1067 */
 long BgL_kz00_3221;
{ /* Ieee/string.scm 1067 */
 obj_t BgL_tmpz00_9058;
if(
INTEGERP(BgL_iz00_1635))
{ /* Ieee/string.scm 1067 */
BgL_tmpz00_9058 = BgL_iz00_1635
; }  else 
{ 
 obj_t BgL_auxz00_9061;
BgL_auxz00_9061 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(44985L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1635); 
FAILURE(BgL_auxz00_9061,BFALSE,BFALSE);} 
BgL_kz00_3221 = 
(long)CINT(BgL_tmpz00_9058); } 
{ /* Ieee/string.scm 343 */
 long BgL_l2461z00_4410;
BgL_l2461z00_4410 = 
STRING_LENGTH(BgL_sz00_1630); 
if(
BOUND_CHECK(BgL_kz00_3221, BgL_l2461z00_4410))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_9057 = 
STRING_REF(BgL_sz00_1630, BgL_kz00_3221)
; }  else 
{ 
 obj_t BgL_auxz00_9070;
BgL_auxz00_9070 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_sz00_1630, 
(int)(BgL_l2461z00_4410), 
(int)(BgL_kz00_3221)); 
FAILURE(BgL_auxz00_9070,BFALSE,BFALSE);} } } 
BgL_test4649z00_9055 = 
(BgL_tmpz00_9057==BgL_char2z00_3223); } } 
if(BgL_test4649z00_9055)
{ 
 obj_t BgL_iz00_9077;
{ 
 obj_t BgL_tmpz00_9078;
if(
INTEGERP(BgL_iz00_1635))
{ /* Ieee/string.scm 1068 */
BgL_tmpz00_9078 = BgL_iz00_1635
; }  else 
{ 
 obj_t BgL_auxz00_9081;
BgL_auxz00_9081 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(45004L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1635); 
FAILURE(BgL_auxz00_9081,BFALSE,BFALSE);} 
BgL_iz00_9077 = 
ADDFX(BgL_tmpz00_9078, 
BINT(1L)); } 
BgL_iz00_1635 = BgL_iz00_9077; 
goto BgL_zc3z04anonymousza31677ze3z87_1636;}  else 
{ /* Ieee/string.scm 1067 */
return BgL_iz00_1635;} } } } } }  else 
{ /* Ieee/string.scm 1083 */
if(
PROCEDUREP(BgL_rsz00_157))
{ /* Ieee/string.scm 1085 */
BgL_sz00_1643 = BgL_stringz00_156; 
BgL_predz00_1644 = BgL_rsz00_157; 
{ /* Ieee/string.scm 1072 */
 long BgL_lenz00_1646;
BgL_lenz00_1646 = 
STRING_LENGTH(BgL_sz00_1643); 
{ 
 obj_t BgL_iz00_1648;
BgL_iz00_1648 = BgL_startz00_158; 
BgL_zc3z04anonymousza31689ze3z87_1649:
{ /* Ieee/string.scm 1075 */
 bool_t BgL_test4654z00_9090;
{ /* Ieee/string.scm 1075 */
 long BgL_n1z00_3226;
{ /* Ieee/string.scm 1075 */
 obj_t BgL_tmpz00_9091;
if(
INTEGERP(BgL_iz00_1648))
{ /* Ieee/string.scm 1075 */
BgL_tmpz00_9091 = BgL_iz00_1648
; }  else 
{ 
 obj_t BgL_auxz00_9094;
BgL_auxz00_9094 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(45158L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1648); 
FAILURE(BgL_auxz00_9094,BFALSE,BFALSE);} 
BgL_n1z00_3226 = 
(long)CINT(BgL_tmpz00_9091); } 
BgL_test4654z00_9090 = 
(BgL_n1z00_3226>=BgL_lenz00_1646); } 
if(BgL_test4654z00_9090)
{ /* Ieee/string.scm 1075 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1077 */
 bool_t BgL_test4656z00_9100;
{ /* Ieee/string.scm 1077 */
 unsigned char BgL_arg1698z00_1654;
{ /* Ieee/string.scm 1077 */
 long BgL_kz00_3229;
{ /* Ieee/string.scm 1077 */
 obj_t BgL_tmpz00_9101;
if(
INTEGERP(BgL_iz00_1648))
{ /* Ieee/string.scm 1077 */
BgL_tmpz00_9101 = BgL_iz00_1648
; }  else 
{ 
 obj_t BgL_auxz00_9104;
BgL_auxz00_9104 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(45203L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1648); 
FAILURE(BgL_auxz00_9104,BFALSE,BFALSE);} 
BgL_kz00_3229 = 
(long)CINT(BgL_tmpz00_9101); } 
{ /* Ieee/string.scm 343 */
 long BgL_l2465z00_4414;
BgL_l2465z00_4414 = 
STRING_LENGTH(BgL_sz00_1643); 
if(
BOUND_CHECK(BgL_kz00_3229, BgL_l2465z00_4414))
{ /* Ieee/string.scm 343 */
BgL_arg1698z00_1654 = 
STRING_REF(BgL_sz00_1643, BgL_kz00_3229); }  else 
{ 
 obj_t BgL_auxz00_9113;
BgL_auxz00_9113 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_sz00_1643, 
(int)(BgL_l2465z00_4414), 
(int)(BgL_kz00_3229)); 
FAILURE(BgL_auxz00_9113,BFALSE,BFALSE);} } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_1644, 1))
{ /* Ieee/string.scm 1077 */
BgL_test4656z00_9100 = 
CBOOL(
BGL_PROCEDURE_CALL1(BgL_predz00_1644, 
BCHAR(BgL_arg1698z00_1654)))
; }  else 
{ /* Ieee/string.scm 1077 */
FAILURE(BGl_string3856z00zz__r4_strings_6_7z00,BGl_list3892z00zz__r4_strings_6_7z00,BgL_predz00_1644);} } 
if(BgL_test4656z00_9100)
{ /* Ieee/string.scm 1078 */
 long BgL_arg1697z00_1653;
{ /* Ieee/string.scm 1078 */
 long BgL_za71za7_3230;
{ /* Ieee/string.scm 1078 */
 obj_t BgL_tmpz00_9128;
if(
INTEGERP(BgL_iz00_1648))
{ /* Ieee/string.scm 1078 */
BgL_tmpz00_9128 = BgL_iz00_1648
; }  else 
{ 
 obj_t BgL_auxz00_9131;
BgL_auxz00_9131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(45220L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1648); 
FAILURE(BgL_auxz00_9131,BFALSE,BFALSE);} 
BgL_za71za7_3230 = 
(long)CINT(BgL_tmpz00_9128); } 
BgL_arg1697z00_1653 = 
(BgL_za71za7_3230+1L); } 
{ 
 obj_t BgL_iz00_9137;
BgL_iz00_9137 = 
BINT(BgL_arg1697z00_1653); 
BgL_iz00_1648 = BgL_iz00_9137; 
goto BgL_zc3z04anonymousza31689ze3z87_1649;} }  else 
{ /* Ieee/string.scm 1077 */
return BgL_iz00_1648;} } } } } }  else 
{ /* Ieee/string.scm 1085 */
if(
STRINGP(BgL_rsz00_157))
{ /* Ieee/string.scm 1087 */
if(
(
STRING_LENGTH(BgL_rsz00_157)==1L))
{ 
 obj_t BgL_cz00_9145; obj_t BgL_sz00_9144;
BgL_sz00_9144 = BgL_stringz00_156; 
{ /* Ieee/string.scm 331 */
 long BgL_l2469z00_4418;
BgL_l2469z00_4418 = 
STRING_LENGTH(BgL_rsz00_157); 
if(
BOUND_CHECK(0L, BgL_l2469z00_4418))
{ /* Ieee/string.scm 331 */
BgL_cz00_9145 = 
BCHAR(
STRING_REF(BgL_rsz00_157, 0L)); }  else 
{ 
 obj_t BgL_auxz00_9151;
BgL_auxz00_9151 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_rsz00_157, 
(int)(BgL_l2469z00_4418), 
(int)(0L)); 
FAILURE(BgL_auxz00_9151,BFALSE,BFALSE);} } 
BgL_cz00_1631 = BgL_cz00_9145; 
BgL_sz00_1630 = BgL_sz00_9144; 
goto BgL_zc3z04anonymousza31676ze3z87_1632;}  else 
{ /* Ieee/string.scm 1089 */
if(
(
STRING_LENGTH(BgL_rsz00_157)<=10L))
{ /* Ieee/string.scm 1092 */
 long BgL_lenz00_1585; long BgL_lenjz00_1586;
BgL_lenz00_1585 = 
STRING_LENGTH(BgL_stringz00_156); 
BgL_lenjz00_1586 = 
STRING_LENGTH(BgL_rsz00_157); 
{ 
 obj_t BgL_iz00_1588;
BgL_iz00_1588 = BgL_startz00_158; 
BgL_zc3z04anonymousza31641ze3z87_1589:
{ /* Ieee/string.scm 1095 */
 bool_t BgL_test4665z00_9162;
{ /* Ieee/string.scm 1095 */
 long BgL_n1z00_3238;
{ /* Ieee/string.scm 1095 */
 obj_t BgL_tmpz00_9163;
if(
INTEGERP(BgL_iz00_1588))
{ /* Ieee/string.scm 1095 */
BgL_tmpz00_9163 = BgL_iz00_1588
; }  else 
{ 
 obj_t BgL_auxz00_9166;
BgL_auxz00_9166 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(45692L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1588); 
FAILURE(BgL_auxz00_9166,BFALSE,BFALSE);} 
BgL_n1z00_3238 = 
(long)CINT(BgL_tmpz00_9163); } 
BgL_test4665z00_9162 = 
(BgL_n1z00_3238>=BgL_lenz00_1585); } 
if(BgL_test4665z00_9162)
{ /* Ieee/string.scm 1095 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1097 */
 unsigned char BgL_cz00_1591;
{ /* Ieee/string.scm 1097 */
 long BgL_kz00_3241;
{ /* Ieee/string.scm 1097 */
 obj_t BgL_tmpz00_9172;
if(
INTEGERP(BgL_iz00_1588))
{ /* Ieee/string.scm 1097 */
BgL_tmpz00_9172 = BgL_iz00_1588
; }  else 
{ 
 obj_t BgL_auxz00_9175;
BgL_auxz00_9175 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(45736L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1588); 
FAILURE(BgL_auxz00_9175,BFALSE,BFALSE);} 
BgL_kz00_3241 = 
(long)CINT(BgL_tmpz00_9172); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2473z00_4422;
BgL_l2473z00_4422 = 
STRING_LENGTH(BgL_stringz00_156); 
if(
BOUND_CHECK(BgL_kz00_3241, BgL_l2473z00_4422))
{ /* Ieee/string.scm 331 */
BgL_cz00_1591 = 
STRING_REF(BgL_stringz00_156, BgL_kz00_3241); }  else 
{ 
 obj_t BgL_auxz00_9184;
BgL_auxz00_9184 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_156, 
(int)(BgL_l2473z00_4422), 
(int)(BgL_kz00_3241)); 
FAILURE(BgL_auxz00_9184,BFALSE,BFALSE);} } } 
{ 
 long BgL_jz00_1593;
BgL_jz00_1593 = 0L; 
BgL_zc3z04anonymousza31643ze3z87_1594:
if(
(BgL_jz00_1593==BgL_lenjz00_1586))
{ /* Ieee/string.scm 1099 */
return BgL_iz00_1588;}  else 
{ /* Ieee/string.scm 1101 */
 bool_t BgL_test4671z00_9192;
{ /* Ieee/string.scm 1101 */
 unsigned char BgL_tmpz00_9193;
{ /* Ieee/string.scm 343 */
 long BgL_l2477z00_4426;
BgL_l2477z00_4426 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_157)); 
if(
BOUND_CHECK(BgL_jz00_1593, BgL_l2477z00_4426))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_9193 = 
STRING_REF(
((obj_t)BgL_rsz00_157), BgL_jz00_1593)
; }  else 
{ 
 obj_t BgL_auxz00_9200;
BgL_auxz00_9200 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_157), 
(int)(BgL_l2477z00_4426), 
(int)(BgL_jz00_1593)); 
FAILURE(BgL_auxz00_9200,BFALSE,BFALSE);} } 
BgL_test4671z00_9192 = 
(BgL_cz00_1591==BgL_tmpz00_9193); } 
if(BgL_test4671z00_9192)
{ 
 obj_t BgL_iz00_9208;
{ 
 obj_t BgL_tmpz00_9209;
if(
INTEGERP(BgL_iz00_1588))
{ /* Ieee/string.scm 1102 */
BgL_tmpz00_9209 = BgL_iz00_1588
; }  else 
{ 
 obj_t BgL_auxz00_9212;
BgL_auxz00_9212 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(45862L), BGl_string3881z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1588); 
FAILURE(BgL_auxz00_9212,BFALSE,BFALSE);} 
BgL_iz00_9208 = 
ADDFX(BgL_tmpz00_9209, 
BINT(1L)); } 
BgL_iz00_1588 = BgL_iz00_9208; 
goto BgL_zc3z04anonymousza31641ze3z87_1589;}  else 
{ 
 long BgL_jz00_9218;
BgL_jz00_9218 = 
(BgL_jz00_1593+1L); 
BgL_jz00_1593 = BgL_jz00_9218; 
goto BgL_zc3z04anonymousza31643ze3z87_1594;} } } } } } }  else 
{ /* Ieee/string.scm 1105 */
 obj_t BgL_tz00_1603; long BgL_lenz00_1604;
BgL_tz00_1603 = 
make_string(256L, ((unsigned char)'n')); 
BgL_lenz00_1604 = 
STRING_LENGTH(BgL_stringz00_156); 
{ /* Ieee/string.scm 1107 */
 long BgL_g1037z00_1605;
BgL_g1037z00_1605 = 
(
STRING_LENGTH(BgL_rsz00_157)-1L); 
{ 
 long BgL_iz00_1607;
BgL_iz00_1607 = BgL_g1037z00_1605; 
BgL_zc3z04anonymousza31652ze3z87_1608:
if(
(BgL_iz00_1607==(-1L)))
{ 
 obj_t BgL_iz00_1611;
BgL_iz00_1611 = BgL_startz00_158; 
BgL_zc3z04anonymousza31654ze3z87_1612:
{ /* Ieee/string.scm 1111 */
 bool_t BgL_test4675z00_9226;
{ /* Ieee/string.scm 1111 */
 long BgL_n1z00_3254;
{ /* Ieee/string.scm 1111 */
 obj_t BgL_tmpz00_9227;
if(
INTEGERP(BgL_iz00_1611))
{ /* Ieee/string.scm 1111 */
BgL_tmpz00_9227 = BgL_iz00_1611
; }  else 
{ 
 obj_t BgL_auxz00_9230;
BgL_auxz00_9230 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46110L), BGl_string3881z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1611); 
FAILURE(BgL_auxz00_9230,BFALSE,BFALSE);} 
BgL_n1z00_3254 = 
(long)CINT(BgL_tmpz00_9227); } 
BgL_test4675z00_9226 = 
(BgL_n1z00_3254>=BgL_lenz00_1604); } 
if(BgL_test4675z00_9226)
{ /* Ieee/string.scm 1111 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1113 */
 bool_t BgL_test4677z00_9236;
{ /* Ieee/string.scm 1113 */
 unsigned char BgL_tmpz00_9237;
{ /* Ieee/string.scm 1114 */
 long BgL_i2484z00_4433;
{ /* Ieee/string.scm 1114 */
 unsigned char BgL_tmpz00_9238;
{ /* Ieee/string.scm 1114 */
 long BgL_kz00_3257;
{ /* Ieee/string.scm 1114 */
 obj_t BgL_tmpz00_9239;
if(
INTEGERP(BgL_iz00_1611))
{ /* Ieee/string.scm 1114 */
BgL_tmpz00_9239 = BgL_iz00_1611
; }  else 
{ 
 obj_t BgL_auxz00_9242;
BgL_auxz00_9242 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46198L), BGl_string3881z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1611); 
FAILURE(BgL_auxz00_9242,BFALSE,BFALSE);} 
BgL_kz00_3257 = 
(long)CINT(BgL_tmpz00_9239); } 
{ /* Ieee/string.scm 343 */
 long BgL_l2481z00_4430;
BgL_l2481z00_4430 = 
STRING_LENGTH(BgL_stringz00_156); 
if(
BOUND_CHECK(BgL_kz00_3257, BgL_l2481z00_4430))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_9238 = 
STRING_REF(BgL_stringz00_156, BgL_kz00_3257)
; }  else 
{ 
 obj_t BgL_auxz00_9251;
BgL_auxz00_9251 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_stringz00_156, 
(int)(BgL_l2481z00_4430), 
(int)(BgL_kz00_3257)); 
FAILURE(BgL_auxz00_9251,BFALSE,BFALSE);} } } 
BgL_i2484z00_4433 = 
(BgL_tmpz00_9238); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2485z00_4434;
BgL_l2485z00_4434 = 
STRING_LENGTH(BgL_tz00_1603); 
if(
BOUND_CHECK(BgL_i2484z00_4433, BgL_l2485z00_4434))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_9237 = 
STRING_REF(BgL_tz00_1603, BgL_i2484z00_4433)
; }  else 
{ 
 obj_t BgL_auxz00_9262;
BgL_auxz00_9262 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_tz00_1603, 
(int)(BgL_l2485z00_4434), 
(int)(BgL_i2484z00_4433)); 
FAILURE(BgL_auxz00_9262,BFALSE,BFALSE);} } } 
BgL_test4677z00_9236 = 
(BgL_tmpz00_9237==((unsigned char)'y')); } 
if(BgL_test4677z00_9236)
{ 
 obj_t BgL_iz00_9269;
{ 
 obj_t BgL_tmpz00_9270;
if(
INTEGERP(BgL_iz00_1611))
{ /* Ieee/string.scm 1116 */
BgL_tmpz00_9270 = BgL_iz00_1611
; }  else 
{ 
 obj_t BgL_auxz00_9273;
BgL_auxz00_9273 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46226L), BGl_string3881z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_1611); 
FAILURE(BgL_auxz00_9273,BFALSE,BFALSE);} 
BgL_iz00_9269 = 
ADDFX(BgL_tmpz00_9270, 
BINT(1L)); } 
BgL_iz00_1611 = BgL_iz00_9269; 
goto BgL_zc3z04anonymousza31654ze3z87_1612;}  else 
{ /* Ieee/string.scm 1113 */
return BgL_iz00_1611;} } } }  else 
{ /* Ieee/string.scm 1108 */
{ /* Ieee/string.scm 1120 */
 long BgL_arg1667z00_1623;
{ /* Ieee/string.scm 1120 */
 unsigned char BgL_tmpz00_9279;
{ /* Ieee/string.scm 343 */
 long BgL_l2489z00_4438;
BgL_l2489z00_4438 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_157)); 
if(
BOUND_CHECK(BgL_iz00_1607, BgL_l2489z00_4438))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_9279 = 
STRING_REF(
((obj_t)BgL_rsz00_157), BgL_iz00_1607)
; }  else 
{ 
 obj_t BgL_auxz00_9286;
BgL_auxz00_9286 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_157), 
(int)(BgL_l2489z00_4438), 
(int)(BgL_iz00_1607)); 
FAILURE(BgL_auxz00_9286,BFALSE,BFALSE);} } 
BgL_arg1667z00_1623 = 
(BgL_tmpz00_9279); } 
{ /* Ieee/string.scm 349 */
 long BgL_l2493z00_4442;
BgL_l2493z00_4442 = 
STRING_LENGTH(BgL_tz00_1603); 
if(
BOUND_CHECK(BgL_arg1667z00_1623, BgL_l2493z00_4442))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_tz00_1603, BgL_arg1667z00_1623, ((unsigned char)'y')); }  else 
{ 
 obj_t BgL_auxz00_9298;
BgL_auxz00_9298 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_tz00_1603, 
(int)(BgL_l2493z00_4442), 
(int)(BgL_arg1667z00_1623)); 
FAILURE(BgL_auxz00_9298,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_9304;
BgL_iz00_9304 = 
(BgL_iz00_1607-1L); 
BgL_iz00_1607 = BgL_iz00_9304; 
goto BgL_zc3z04anonymousza31652ze3z87_1608;} } } } } } }  else 
{ /* Ieee/string.scm 1087 */
return 
BGl_errorz00zz__errorz00(BGl_string3891z00zz__r4_strings_6_7z00, BGl_string3882z00zz__r4_strings_6_7z00, BgL_rsz00_157);} } } } } 

}



/* _string-skip-right */
obj_t BGl__stringzd2skipzd2rightz00zz__r4_strings_6_7z00(obj_t BgL_env1157z00_165, obj_t BgL_opt1156z00_164)
{
{ /* Ieee/string.scm 1126 */
{ /* Ieee/string.scm 1126 */
 obj_t BgL_sz00_1658; obj_t BgL_g1158z00_1659;
{ 
 obj_t BgL_auxz00_9307;
if(
VECTORP(BgL_opt1156z00_164))
{ /* Ieee/string.scm 1126 */
BgL_auxz00_9307 = BgL_opt1156z00_164
; }  else 
{ 
 obj_t BgL_auxz00_9310;
BgL_auxz00_9310 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46585L), BGl_string3895z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1156z00_164); 
FAILURE(BgL_auxz00_9310,BFALSE,BFALSE);} 
BgL_sz00_1658 = 
VECTOR_REF(BgL_auxz00_9307,0L); } 
{ 
 obj_t BgL_auxz00_9315;
if(
VECTORP(BgL_opt1156z00_164))
{ /* Ieee/string.scm 1126 */
BgL_auxz00_9315 = BgL_opt1156z00_164
; }  else 
{ 
 obj_t BgL_auxz00_9318;
BgL_auxz00_9318 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46585L), BGl_string3895z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1156z00_164); 
FAILURE(BgL_auxz00_9318,BFALSE,BFALSE);} 
BgL_g1158z00_1659 = 
VECTOR_REF(BgL_auxz00_9315,1L); } 
{ 

{ /* Ieee/string.scm 1126 */
 long BgL_aux1160z00_1661;
{ 
 obj_t BgL_auxz00_9323;
if(
VECTORP(BgL_opt1156z00_164))
{ /* Ieee/string.scm 1126 */
BgL_auxz00_9323 = BgL_opt1156z00_164
; }  else 
{ 
 obj_t BgL_auxz00_9326;
BgL_auxz00_9326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46585L), BGl_string3895z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1156z00_164); 
FAILURE(BgL_auxz00_9326,BFALSE,BFALSE);} 
BgL_aux1160z00_1661 = 
VECTOR_LENGTH(BgL_auxz00_9323); } 
switch( BgL_aux1160z00_1661) { case 2L : 

{ /* Ieee/string.scm 1126 */
 long BgL_startz00_1662;
{ /* Ieee/string.scm 1126 */
 obj_t BgL_stringz00_3271;
if(
STRINGP(BgL_sz00_1658))
{ /* Ieee/string.scm 1126 */
BgL_stringz00_3271 = BgL_sz00_1658; }  else 
{ 
 obj_t BgL_auxz00_9333;
BgL_auxz00_9333 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46635L), BGl_string3895z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_sz00_1658); 
FAILURE(BgL_auxz00_9333,BFALSE,BFALSE);} 
BgL_startz00_1662 = 
STRING_LENGTH(BgL_stringz00_3271); } 
{ /* Ieee/string.scm 1126 */

{ /* Ieee/string.scm 1126 */
 obj_t BgL_auxz00_9338;
if(
STRINGP(BgL_sz00_1658))
{ /* Ieee/string.scm 1126 */
BgL_auxz00_9338 = BgL_sz00_1658
; }  else 
{ 
 obj_t BgL_auxz00_9341;
BgL_auxz00_9341 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46585L), BGl_string3895z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_sz00_1658); 
FAILURE(BgL_auxz00_9341,BFALSE,BFALSE);} 
return 
BGl_stringzd2skipzd2rightz00zz__r4_strings_6_7z00(BgL_auxz00_9338, BgL_g1158z00_1659, 
BINT(BgL_startz00_1662));} } } break;case 3L : 

{ /* Ieee/string.scm 1126 */
 obj_t BgL_startz00_1663;
{ 
 obj_t BgL_auxz00_9347;
if(
VECTORP(BgL_opt1156z00_164))
{ /* Ieee/string.scm 1126 */
BgL_auxz00_9347 = BgL_opt1156z00_164
; }  else 
{ 
 obj_t BgL_auxz00_9350;
BgL_auxz00_9350 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46585L), BGl_string3895z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1156z00_164); 
FAILURE(BgL_auxz00_9350,BFALSE,BFALSE);} 
BgL_startz00_1663 = 
VECTOR_REF(BgL_auxz00_9347,2L); } 
{ /* Ieee/string.scm 1126 */

{ /* Ieee/string.scm 1126 */
 obj_t BgL_auxz00_9355;
if(
STRINGP(BgL_sz00_1658))
{ /* Ieee/string.scm 1126 */
BgL_auxz00_9355 = BgL_sz00_1658
; }  else 
{ 
 obj_t BgL_auxz00_9358;
BgL_auxz00_9358 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46585L), BGl_string3895z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_sz00_1658); 
FAILURE(BgL_auxz00_9358,BFALSE,BFALSE);} 
return 
BGl_stringzd2skipzd2rightz00zz__r4_strings_6_7z00(BgL_auxz00_9355, BgL_g1158z00_1659, BgL_startz00_1663);} } } break;
default: 
{ /* Ieee/string.scm 1126 */
 long BgL_arg1702z00_1664;
{ 
 obj_t BgL_auxz00_9363;
if(
VECTORP(BgL_opt1156z00_164))
{ /* Ieee/string.scm 1126 */
BgL_auxz00_9363 = BgL_opt1156z00_164
; }  else 
{ 
 obj_t BgL_auxz00_9366;
BgL_auxz00_9366 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46585L), BGl_string3896z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1156z00_164); 
FAILURE(BgL_auxz00_9366,BFALSE,BFALSE);} 
BgL_arg1702z00_1664 = 
VECTOR_LENGTH(BgL_auxz00_9363); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3897z00zz__r4_strings_6_7z00, BGl_string3810z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1702z00_1664));} } } } } } 

}



/* string-skip-right */
BGL_EXPORTED_DEF obj_t BGl_stringzd2skipzd2rightz00zz__r4_strings_6_7z00(obj_t BgL_sz00_161, obj_t BgL_rsz00_162, obj_t BgL_startz00_163)
{
{ /* Ieee/string.scm 1126 */
{ 
 obj_t BgL_sz00_1738; obj_t BgL_predz00_1739; obj_t BgL_sz00_1725; obj_t BgL_cz00_1726;
{ /* Ieee/string.scm 1149 */
 bool_t BgL_test4692z00_9374;
{ /* Ieee/string.scm 1149 */
 long BgL_n1z00_3285;
{ /* Ieee/string.scm 1149 */
 obj_t BgL_tmpz00_9375;
if(
INTEGERP(BgL_startz00_163))
{ /* Ieee/string.scm 1149 */
BgL_tmpz00_9375 = BgL_startz00_163
; }  else 
{ 
 obj_t BgL_auxz00_9378;
BgL_auxz00_9378 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(47063L), BGl_string3898z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_163); 
FAILURE(BgL_auxz00_9378,BFALSE,BFALSE);} 
BgL_n1z00_3285 = 
(long)CINT(BgL_tmpz00_9375); } 
BgL_test4692z00_9374 = 
(BgL_n1z00_3285>
STRING_LENGTH(BgL_sz00_161)); } 
if(BgL_test4692z00_9374)
{ /* Ieee/string.scm 1149 */
return 
BGl_errorz00zz__errorz00(BGl_string3880z00zz__r4_strings_6_7z00, BGl_string3887z00zz__r4_strings_6_7z00, BgL_startz00_163);}  else 
{ /* Ieee/string.scm 1149 */
if(
CHARP(BgL_rsz00_162))
{ /* Ieee/string.scm 1151 */
BgL_sz00_1725 = BgL_sz00_161; 
BgL_cz00_1726 = BgL_rsz00_162; 
BgL_zc3z04anonymousza31745ze3z87_1727:
{ 
 long BgL_iz00_1730;
{ /* Ieee/string.scm 1129 */
 long BgL_za71za7_3272;
{ /* Ieee/string.scm 1129 */
 obj_t BgL_tmpz00_9407;
if(
INTEGERP(BgL_startz00_163))
{ /* Ieee/string.scm 1129 */
BgL_tmpz00_9407 = BgL_startz00_163
; }  else 
{ 
 obj_t BgL_auxz00_9410;
BgL_auxz00_9410 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46718L), BGl_string3899z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_163); 
FAILURE(BgL_auxz00_9410,BFALSE,BFALSE);} 
BgL_za71za7_3272 = 
(long)CINT(BgL_tmpz00_9407); } 
BgL_iz00_1730 = 
(BgL_za71za7_3272-1L); } 
BgL_zc3z04anonymousza31746ze3z87_1731:
if(
(BgL_iz00_1730<0L))
{ /* Ieee/string.scm 1131 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1133 */
 bool_t BgL_test4696z00_9390;
{ /* Ieee/string.scm 1133 */
 unsigned char BgL_char2z00_3277;
BgL_char2z00_3277 = 
CCHAR(BgL_cz00_1726); 
{ /* Ieee/string.scm 1133 */
 unsigned char BgL_tmpz00_9392;
{ /* Ieee/string.scm 343 */
 long BgL_l2497z00_4446;
BgL_l2497z00_4446 = 
STRING_LENGTH(BgL_sz00_1725); 
if(
BOUND_CHECK(BgL_iz00_1730, BgL_l2497z00_4446))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_9392 = 
STRING_REF(BgL_sz00_1725, BgL_iz00_1730)
; }  else 
{ 
 obj_t BgL_auxz00_9397;
BgL_auxz00_9397 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_sz00_1725, 
(int)(BgL_l2497z00_4446), 
(int)(BgL_iz00_1730)); 
FAILURE(BgL_auxz00_9397,BFALSE,BFALSE);} } 
BgL_test4696z00_9390 = 
(BgL_tmpz00_9392==BgL_char2z00_3277); } } 
if(BgL_test4696z00_9390)
{ 
 long BgL_iz00_9404;
BgL_iz00_9404 = 
(BgL_iz00_1730-1L); 
BgL_iz00_1730 = BgL_iz00_9404; 
goto BgL_zc3z04anonymousza31746ze3z87_1731;}  else 
{ /* Ieee/string.scm 1133 */
return 
BINT(BgL_iz00_1730);} } } }  else 
{ /* Ieee/string.scm 1151 */
if(
PROCEDUREP(BgL_rsz00_162))
{ /* Ieee/string.scm 1153 */
BgL_sz00_1738 = BgL_sz00_161; 
BgL_predz00_1739 = BgL_rsz00_162; 
{ /* Ieee/string.scm 1139 */
 long BgL_g1040z00_1741;
{ /* Ieee/string.scm 1139 */
 long BgL_za71za7_3279;
{ /* Ieee/string.scm 1139 */
 obj_t BgL_tmpz00_9418;
if(
INTEGERP(BgL_startz00_163))
{ /* Ieee/string.scm 1139 */
BgL_tmpz00_9418 = BgL_startz00_163
; }  else 
{ 
 obj_t BgL_auxz00_9421;
BgL_auxz00_9421 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(46913L), BGl_string3900z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_163); 
FAILURE(BgL_auxz00_9421,BFALSE,BFALSE);} 
BgL_za71za7_3279 = 
(long)CINT(BgL_tmpz00_9418); } 
BgL_g1040z00_1741 = 
(BgL_za71za7_3279-1L); } 
{ 
 long BgL_iz00_1743;
BgL_iz00_1743 = BgL_g1040z00_1741; 
BgL_zc3z04anonymousza31756ze3z87_1744:
if(
(BgL_iz00_1743<0L))
{ /* Ieee/string.scm 1141 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1143 */
 bool_t BgL_test4702z00_9429;
{ /* Ieee/string.scm 1143 */
 unsigned char BgL_arg1761z00_1749;
{ /* Ieee/string.scm 343 */
 long BgL_l2501z00_4450;
BgL_l2501z00_4450 = 
STRING_LENGTH(BgL_sz00_1738); 
if(
BOUND_CHECK(BgL_iz00_1743, BgL_l2501z00_4450))
{ /* Ieee/string.scm 343 */
BgL_arg1761z00_1749 = 
STRING_REF(BgL_sz00_1738, BgL_iz00_1743); }  else 
{ 
 obj_t BgL_auxz00_9434;
BgL_auxz00_9434 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_sz00_1738, 
(int)(BgL_l2501z00_4450), 
(int)(BgL_iz00_1743)); 
FAILURE(BgL_auxz00_9434,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_1739, 1))
{ /* Ieee/string.scm 1143 */
BgL_test4702z00_9429 = 
CBOOL(
BGL_PROCEDURE_CALL1(BgL_predz00_1739, 
BCHAR(BgL_arg1761z00_1749)))
; }  else 
{ /* Ieee/string.scm 1143 */
FAILURE(BGl_string3856z00zz__r4_strings_6_7z00,BGl_list3901z00zz__r4_strings_6_7z00,BgL_predz00_1739);} } 
if(BgL_test4702z00_9429)
{ 
 long BgL_iz00_9449;
BgL_iz00_9449 = 
(BgL_iz00_1743-1L); 
BgL_iz00_1743 = BgL_iz00_9449; 
goto BgL_zc3z04anonymousza31756ze3z87_1744;}  else 
{ /* Ieee/string.scm 1143 */
return 
BINT(BgL_iz00_1743);} } } } }  else 
{ /* Ieee/string.scm 1153 */
if(
STRINGP(BgL_rsz00_162))
{ /* Ieee/string.scm 1155 */
if(
(
STRING_LENGTH(BgL_rsz00_162)==1L))
{ 
 obj_t BgL_cz00_9458; obj_t BgL_sz00_9457;
BgL_sz00_9457 = BgL_sz00_161; 
{ /* Ieee/string.scm 331 */
 long BgL_l2505z00_4454;
BgL_l2505z00_4454 = 
STRING_LENGTH(BgL_rsz00_162); 
if(
BOUND_CHECK(0L, BgL_l2505z00_4454))
{ /* Ieee/string.scm 331 */
BgL_cz00_9458 = 
BCHAR(
STRING_REF(BgL_rsz00_162, 0L)); }  else 
{ 
 obj_t BgL_auxz00_9464;
BgL_auxz00_9464 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_rsz00_162, 
(int)(BgL_l2505z00_4454), 
(int)(0L)); 
FAILURE(BgL_auxz00_9464,BFALSE,BFALSE);} } 
BgL_cz00_1726 = BgL_cz00_9458; 
BgL_sz00_1725 = BgL_sz00_9457; 
goto BgL_zc3z04anonymousza31745ze3z87_1727;}  else 
{ /* Ieee/string.scm 1157 */
if(
(
STRING_LENGTH(BgL_rsz00_162)<=10L))
{ /* Ieee/string.scm 1160 */
 long BgL_lenjz00_1678;
BgL_lenjz00_1678 = 
STRING_LENGTH(BgL_rsz00_162); 
{ 
 long BgL_iz00_1681;
{ /* Ieee/string.scm 1162 */
 long BgL_za71za7_3294;
{ /* Ieee/string.scm 1162 */
 obj_t BgL_tmpz00_9509;
if(
INTEGERP(BgL_startz00_163))
{ /* Ieee/string.scm 1162 */
BgL_tmpz00_9509 = BgL_startz00_163
; }  else 
{ 
 obj_t BgL_auxz00_9512;
BgL_auxz00_9512 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(47543L), BGl_string3898z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_163); 
FAILURE(BgL_auxz00_9512,BFALSE,BFALSE);} 
BgL_za71za7_3294 = 
(long)CINT(BgL_tmpz00_9509); } 
BgL_iz00_1681 = 
(BgL_za71za7_3294-1L); } 
BgL_zc3z04anonymousza31713ze3z87_1682:
if(
(BgL_iz00_1681<0L))
{ /* Ieee/string.scm 1163 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1165 */
 unsigned char BgL_cz00_1684;
{ /* Ieee/string.scm 331 */
 long BgL_l2509z00_4458;
BgL_l2509z00_4458 = 
STRING_LENGTH(BgL_sz00_161); 
if(
BOUND_CHECK(BgL_iz00_1681, BgL_l2509z00_4458))
{ /* Ieee/string.scm 331 */
BgL_cz00_1684 = 
STRING_REF(BgL_sz00_161, BgL_iz00_1681); }  else 
{ 
 obj_t BgL_auxz00_9480;
BgL_auxz00_9480 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_sz00_161, 
(int)(BgL_l2509z00_4458), 
(int)(BgL_iz00_1681)); 
FAILURE(BgL_auxz00_9480,BFALSE,BFALSE);} } 
{ 
 long BgL_jz00_1686;
BgL_jz00_1686 = 0L; 
BgL_zc3z04anonymousza31715ze3z87_1687:
if(
(BgL_jz00_1686==BgL_lenjz00_1678))
{ /* Ieee/string.scm 1167 */
return 
BINT(BgL_iz00_1681);}  else 
{ /* Ieee/string.scm 1169 */
 bool_t BgL_test4712z00_9489;
{ /* Ieee/string.scm 1169 */
 unsigned char BgL_tmpz00_9490;
{ /* Ieee/string.scm 343 */
 long BgL_l2513z00_4462;
BgL_l2513z00_4462 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_162)); 
if(
BOUND_CHECK(BgL_jz00_1686, BgL_l2513z00_4462))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_9490 = 
STRING_REF(
((obj_t)BgL_rsz00_162), BgL_jz00_1686)
; }  else 
{ 
 obj_t BgL_auxz00_9497;
BgL_auxz00_9497 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_162), 
(int)(BgL_l2513z00_4462), 
(int)(BgL_jz00_1686)); 
FAILURE(BgL_auxz00_9497,BFALSE,BFALSE);} } 
BgL_test4712z00_9489 = 
(BgL_cz00_1684==BgL_tmpz00_9490); } 
if(BgL_test4712z00_9489)
{ 
 long BgL_iz00_9505;
BgL_iz00_9505 = 
(BgL_iz00_1681-1L); 
BgL_iz00_1681 = BgL_iz00_9505; 
goto BgL_zc3z04anonymousza31713ze3z87_1682;}  else 
{ 
 long BgL_jz00_9507;
BgL_jz00_9507 = 
(BgL_jz00_1686+1L); 
BgL_jz00_1686 = BgL_jz00_9507; 
goto BgL_zc3z04anonymousza31715ze3z87_1687;} } } } } }  else 
{ /* Ieee/string.scm 1173 */
 obj_t BgL_tz00_1696;
BgL_tz00_1696 = 
make_string(256L, ((unsigned char)'n')); 
{ /* Ieee/string.scm 1175 */
 long BgL_g1042z00_1698;
BgL_g1042z00_1698 = 
(
STRING_LENGTH(BgL_rsz00_162)-1L); 
{ 
 long BgL_iz00_1700;
BgL_iz00_1700 = BgL_g1042z00_1698; 
BgL_zc3z04anonymousza31723ze3z87_1701:
if(
(BgL_iz00_1700==(-1L)))
{ 
 long BgL_iz00_1705;
{ /* Ieee/string.scm 1177 */
 long BgL_za71za7_3310;
{ /* Ieee/string.scm 1177 */
 obj_t BgL_tmpz00_9553;
if(
INTEGERP(BgL_startz00_163))
{ /* Ieee/string.scm 1177 */
BgL_tmpz00_9553 = BgL_startz00_163
; }  else 
{ 
 obj_t BgL_auxz00_9556;
BgL_auxz00_9556 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(47944L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_163); 
FAILURE(BgL_auxz00_9556,BFALSE,BFALSE);} 
BgL_za71za7_3310 = 
(long)CINT(BgL_tmpz00_9553); } 
BgL_iz00_1705 = 
(BgL_za71za7_3310-1L); } 
BgL_zc3z04anonymousza31725ze3z87_1706:
if(
(BgL_iz00_1705<0L))
{ /* Ieee/string.scm 1179 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1181 */
 bool_t BgL_test4717z00_9525;
{ /* Ieee/string.scm 1181 */
 unsigned char BgL_tmpz00_9526;
{ /* Ieee/string.scm 1182 */
 long BgL_i2520z00_4469;
{ /* Ieee/string.scm 1182 */
 unsigned char BgL_tmpz00_9527;
{ /* Ieee/string.scm 343 */
 long BgL_l2517z00_4466;
BgL_l2517z00_4466 = 
STRING_LENGTH(BgL_sz00_161); 
if(
BOUND_CHECK(BgL_iz00_1705, BgL_l2517z00_4466))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_9527 = 
STRING_REF(BgL_sz00_161, BgL_iz00_1705)
; }  else 
{ 
 obj_t BgL_auxz00_9532;
BgL_auxz00_9532 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_sz00_161, 
(int)(BgL_l2517z00_4466), 
(int)(BgL_iz00_1705)); 
FAILURE(BgL_auxz00_9532,BFALSE,BFALSE);} } 
BgL_i2520z00_4469 = 
(BgL_tmpz00_9527); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2521z00_4470;
BgL_l2521z00_4470 = 
STRING_LENGTH(BgL_tz00_1696); 
if(
BOUND_CHECK(BgL_i2520z00_4469, BgL_l2521z00_4470))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_9526 = 
STRING_REF(BgL_tz00_1696, BgL_i2520z00_4469)
; }  else 
{ 
 obj_t BgL_auxz00_9543;
BgL_auxz00_9543 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_tz00_1696, 
(int)(BgL_l2521z00_4470), 
(int)(BgL_i2520z00_4469)); 
FAILURE(BgL_auxz00_9543,BFALSE,BFALSE);} } } 
BgL_test4717z00_9525 = 
(BgL_tmpz00_9526==((unsigned char)'y')); } 
if(BgL_test4717z00_9525)
{ 
 long BgL_iz00_9550;
BgL_iz00_9550 = 
(BgL_iz00_1705-1L); 
BgL_iz00_1705 = BgL_iz00_9550; 
goto BgL_zc3z04anonymousza31725ze3z87_1706;}  else 
{ /* Ieee/string.scm 1181 */
return 
BINT(BgL_iz00_1705);} } }  else 
{ /* Ieee/string.scm 1176 */
{ /* Ieee/string.scm 1188 */
 long BgL_arg1735z00_1717;
{ /* Ieee/string.scm 1188 */
 unsigned char BgL_tmpz00_9562;
{ /* Ieee/string.scm 343 */
 long BgL_l2525z00_4474;
BgL_l2525z00_4474 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_162)); 
if(
BOUND_CHECK(BgL_iz00_1700, BgL_l2525z00_4474))
{ /* Ieee/string.scm 343 */
BgL_tmpz00_9562 = 
STRING_REF(
((obj_t)BgL_rsz00_162), BgL_iz00_1700)
; }  else 
{ 
 obj_t BgL_auxz00_9569;
BgL_auxz00_9569 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_162), 
(int)(BgL_l2525z00_4474), 
(int)(BgL_iz00_1700)); 
FAILURE(BgL_auxz00_9569,BFALSE,BFALSE);} } 
BgL_arg1735z00_1717 = 
(BgL_tmpz00_9562); } 
{ /* Ieee/string.scm 349 */
 long BgL_l2529z00_4478;
BgL_l2529z00_4478 = 
STRING_LENGTH(BgL_tz00_1696); 
if(
BOUND_CHECK(BgL_arg1735z00_1717, BgL_l2529z00_4478))
{ /* Ieee/string.scm 349 */
STRING_SET(BgL_tz00_1696, BgL_arg1735z00_1717, ((unsigned char)'y')); }  else 
{ 
 obj_t BgL_auxz00_9581;
BgL_auxz00_9581 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(17112L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_tz00_1696, 
(int)(BgL_l2529z00_4478), 
(int)(BgL_arg1735z00_1717)); 
FAILURE(BgL_auxz00_9581,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_9587;
BgL_iz00_9587 = 
(BgL_iz00_1700-1L); 
BgL_iz00_1700 = BgL_iz00_9587; 
goto BgL_zc3z04anonymousza31723ze3z87_1701;} } } } } } }  else 
{ /* Ieee/string.scm 1155 */
return 
BGl_errorz00zz__errorz00(BGl_string3886z00zz__r4_strings_6_7z00, BGl_string3882z00zz__r4_strings_6_7z00, BgL_rsz00_162);} } } } } } } 

}



/* _string-prefix-length */
obj_t BGl__stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(obj_t BgL_env1162z00_183, obj_t BgL_opt1161z00_182)
{
{ /* Ieee/string.scm 1222 */
{ /* Ieee/string.scm 1222 */
 obj_t BgL_s1z00_1761; obj_t BgL_s2z00_1762;
{ 
 obj_t BgL_auxz00_9590;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9590 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9593;
BgL_auxz00_9593 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9593,BFALSE,BFALSE);} 
BgL_s1z00_1761 = 
VECTOR_REF(BgL_auxz00_9590,0L); } 
{ 
 obj_t BgL_auxz00_9598;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9598 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9601;
BgL_auxz00_9601 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9601,BFALSE,BFALSE);} 
BgL_s2z00_1762 = 
VECTOR_REF(BgL_auxz00_9598,1L); } 
{ 

{ /* Ieee/string.scm 1222 */
 long BgL_aux1164z00_1764;
{ 
 obj_t BgL_auxz00_9606;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9606 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9609;
BgL_auxz00_9609 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9609,BFALSE,BFALSE);} 
BgL_aux1164z00_1764 = 
VECTOR_LENGTH(BgL_auxz00_9606); } 
switch( BgL_aux1164z00_1764) { case 2L : 

{ /* Ieee/string.scm 1222 */

{ /* Ieee/string.scm 1222 */
 int BgL_tmpz00_9614;
{ /* Ieee/string.scm 1222 */
 obj_t BgL_auxz00_9622; obj_t BgL_auxz00_9615;
if(
STRINGP(BgL_s2z00_1762))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9622 = BgL_s2z00_1762
; }  else 
{ 
 obj_t BgL_auxz00_9625;
BgL_auxz00_9625 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1762); 
FAILURE(BgL_auxz00_9625,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1761))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9615 = BgL_s1z00_1761
; }  else 
{ 
 obj_t BgL_auxz00_9618;
BgL_auxz00_9618 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1761); 
FAILURE(BgL_auxz00_9618,BFALSE,BFALSE);} 
BgL_tmpz00_9614 = 
BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_9615, BgL_auxz00_9622, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9614);} } break;case 3L : 

{ /* Ieee/string.scm 1222 */
 obj_t BgL_start1z00_1769;
{ 
 obj_t BgL_auxz00_9631;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9631 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9634;
BgL_auxz00_9634 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9634,BFALSE,BFALSE);} 
BgL_start1z00_1769 = 
VECTOR_REF(BgL_auxz00_9631,2L); } 
{ /* Ieee/string.scm 1222 */

{ /* Ieee/string.scm 1222 */
 int BgL_tmpz00_9639;
{ /* Ieee/string.scm 1222 */
 obj_t BgL_auxz00_9647; obj_t BgL_auxz00_9640;
if(
STRINGP(BgL_s2z00_1762))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9647 = BgL_s2z00_1762
; }  else 
{ 
 obj_t BgL_auxz00_9650;
BgL_auxz00_9650 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1762); 
FAILURE(BgL_auxz00_9650,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1761))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9640 = BgL_s1z00_1761
; }  else 
{ 
 obj_t BgL_auxz00_9643;
BgL_auxz00_9643 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1761); 
FAILURE(BgL_auxz00_9643,BFALSE,BFALSE);} 
BgL_tmpz00_9639 = 
BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_9640, BgL_auxz00_9647, BgL_start1z00_1769, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9639);} } } break;case 4L : 

{ /* Ieee/string.scm 1222 */
 obj_t BgL_start1z00_1773;
{ 
 obj_t BgL_auxz00_9656;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9656 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9659;
BgL_auxz00_9659 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9659,BFALSE,BFALSE);} 
BgL_start1z00_1773 = 
VECTOR_REF(BgL_auxz00_9656,2L); } 
{ /* Ieee/string.scm 1222 */
 obj_t BgL_end1z00_1774;
{ 
 obj_t BgL_auxz00_9664;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9664 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9667;
BgL_auxz00_9667 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9667,BFALSE,BFALSE);} 
BgL_end1z00_1774 = 
VECTOR_REF(BgL_auxz00_9664,3L); } 
{ /* Ieee/string.scm 1222 */

{ /* Ieee/string.scm 1222 */
 int BgL_tmpz00_9672;
{ /* Ieee/string.scm 1222 */
 obj_t BgL_auxz00_9680; obj_t BgL_auxz00_9673;
if(
STRINGP(BgL_s2z00_1762))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9680 = BgL_s2z00_1762
; }  else 
{ 
 obj_t BgL_auxz00_9683;
BgL_auxz00_9683 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1762); 
FAILURE(BgL_auxz00_9683,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1761))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9673 = BgL_s1z00_1761
; }  else 
{ 
 obj_t BgL_auxz00_9676;
BgL_auxz00_9676 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1761); 
FAILURE(BgL_auxz00_9676,BFALSE,BFALSE);} 
BgL_tmpz00_9672 = 
BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_9673, BgL_auxz00_9680, BgL_start1z00_1773, BgL_end1z00_1774, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9672);} } } } break;case 5L : 

{ /* Ieee/string.scm 1222 */
 obj_t BgL_start1z00_1777;
{ 
 obj_t BgL_auxz00_9689;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9689 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9692;
BgL_auxz00_9692 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9692,BFALSE,BFALSE);} 
BgL_start1z00_1777 = 
VECTOR_REF(BgL_auxz00_9689,2L); } 
{ /* Ieee/string.scm 1222 */
 obj_t BgL_end1z00_1778;
{ 
 obj_t BgL_auxz00_9697;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9697 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9700;
BgL_auxz00_9700 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9700,BFALSE,BFALSE);} 
BgL_end1z00_1778 = 
VECTOR_REF(BgL_auxz00_9697,3L); } 
{ /* Ieee/string.scm 1222 */
 obj_t BgL_start2z00_1779;
{ 
 obj_t BgL_auxz00_9705;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9705 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9708;
BgL_auxz00_9708 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9708,BFALSE,BFALSE);} 
BgL_start2z00_1779 = 
VECTOR_REF(BgL_auxz00_9705,4L); } 
{ /* Ieee/string.scm 1222 */

{ /* Ieee/string.scm 1222 */
 int BgL_tmpz00_9713;
{ /* Ieee/string.scm 1222 */
 obj_t BgL_auxz00_9721; obj_t BgL_auxz00_9714;
if(
STRINGP(BgL_s2z00_1762))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9721 = BgL_s2z00_1762
; }  else 
{ 
 obj_t BgL_auxz00_9724;
BgL_auxz00_9724 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1762); 
FAILURE(BgL_auxz00_9724,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1761))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9714 = BgL_s1z00_1761
; }  else 
{ 
 obj_t BgL_auxz00_9717;
BgL_auxz00_9717 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1761); 
FAILURE(BgL_auxz00_9717,BFALSE,BFALSE);} 
BgL_tmpz00_9713 = 
BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_9714, BgL_auxz00_9721, BgL_start1z00_1777, BgL_end1z00_1778, BgL_start2z00_1779, BFALSE); } 
return 
BINT(BgL_tmpz00_9713);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1222 */
 obj_t BgL_start1z00_1781;
{ 
 obj_t BgL_auxz00_9730;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9730 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9733;
BgL_auxz00_9733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9733,BFALSE,BFALSE);} 
BgL_start1z00_1781 = 
VECTOR_REF(BgL_auxz00_9730,2L); } 
{ /* Ieee/string.scm 1222 */
 obj_t BgL_end1z00_1782;
{ 
 obj_t BgL_auxz00_9738;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9738 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9741;
BgL_auxz00_9741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9741,BFALSE,BFALSE);} 
BgL_end1z00_1782 = 
VECTOR_REF(BgL_auxz00_9738,3L); } 
{ /* Ieee/string.scm 1222 */
 obj_t BgL_start2z00_1783;
{ 
 obj_t BgL_auxz00_9746;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9746 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9749;
BgL_auxz00_9749 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9749,BFALSE,BFALSE);} 
BgL_start2z00_1783 = 
VECTOR_REF(BgL_auxz00_9746,4L); } 
{ /* Ieee/string.scm 1222 */
 obj_t BgL_end2z00_1784;
{ 
 obj_t BgL_auxz00_9754;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9754 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9757;
BgL_auxz00_9757 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9757,BFALSE,BFALSE);} 
BgL_end2z00_1784 = 
VECTOR_REF(BgL_auxz00_9754,5L); } 
{ /* Ieee/string.scm 1222 */

{ /* Ieee/string.scm 1222 */
 int BgL_tmpz00_9762;
{ /* Ieee/string.scm 1222 */
 obj_t BgL_auxz00_9770; obj_t BgL_auxz00_9763;
if(
STRINGP(BgL_s2z00_1762))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9770 = BgL_s2z00_1762
; }  else 
{ 
 obj_t BgL_auxz00_9773;
BgL_auxz00_9773 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1762); 
FAILURE(BgL_auxz00_9773,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1761))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9763 = BgL_s1z00_1761
; }  else 
{ 
 obj_t BgL_auxz00_9766;
BgL_auxz00_9766 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3904z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1761); 
FAILURE(BgL_auxz00_9766,BFALSE,BFALSE);} 
BgL_tmpz00_9762 = 
BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_9763, BgL_auxz00_9770, BgL_start1z00_1781, BgL_end1z00_1782, BgL_start2z00_1783, BgL_end2z00_1784); } 
return 
BINT(BgL_tmpz00_9762);} } } } } } break;
default: 
{ /* Ieee/string.scm 1222 */
 long BgL_arg1770z00_1785;
{ 
 obj_t BgL_auxz00_9779;
if(
VECTORP(BgL_opt1161z00_182))
{ /* Ieee/string.scm 1222 */
BgL_auxz00_9779 = BgL_opt1161z00_182
; }  else 
{ 
 obj_t BgL_auxz00_9782;
BgL_auxz00_9782 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49488L), BGl_string3905z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1161z00_182); 
FAILURE(BgL_auxz00_9782,BFALSE,BFALSE);} 
BgL_arg1770z00_1785 = 
VECTOR_LENGTH(BgL_auxz00_9779); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3906z00zz__r4_strings_6_7z00, BGl_string3908z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1770z00_1785));} } } } } } 

}



/* string-prefix-length */
BGL_EXPORTED_DEF int BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(obj_t BgL_s1z00_176, obj_t BgL_s2z00_177, obj_t BgL_start1z00_178, obj_t BgL_end1z00_179, obj_t BgL_start2z00_180, obj_t BgL_end2z00_181)
{
{ /* Ieee/string.scm 1222 */
{ /* Ieee/string.scm 1224 */
 long BgL_l1z00_1786;
BgL_l1z00_1786 = 
STRING_LENGTH(BgL_s1z00_176); 
{ /* Ieee/string.scm 1224 */
 long BgL_l2z00_1787;
BgL_l2z00_1787 = 
STRING_LENGTH(BgL_s2z00_177); 
{ /* Ieee/string.scm 1225 */
 obj_t BgL_e1z00_1788;
{ /* Ieee/string.scm 1226 */
 obj_t BgL_procz00_3343;
BgL_procz00_3343 = BGl_symbol3909z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_179))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test4748z00_9794;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3348;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_9795;
if(
INTEGERP(BgL_end1z00_179))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_9795 = BgL_end1z00_179
; }  else 
{ 
 obj_t BgL_auxz00_9798;
BgL_auxz00_9798 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3910z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_179); 
FAILURE(BgL_auxz00_9798,BFALSE,BFALSE);} 
BgL_n1z00_3348 = 
(long)CINT(BgL_tmpz00_9795); } 
BgL_test4748z00_9794 = 
(BgL_n1z00_3348<=0L); } 
if(BgL_test4748z00_9794)
{ /* Ieee/string.scm 1212 */
BgL_e1z00_1788 = 
BGl_errorz00zz__errorz00(BgL_procz00_3343, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_179); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test4750z00_9806;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3349;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_9807;
if(
INTEGERP(BgL_end1z00_179))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_9807 = BgL_end1z00_179
; }  else 
{ 
 obj_t BgL_auxz00_9810;
BgL_auxz00_9810 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3910z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_179); 
FAILURE(BgL_auxz00_9810,BFALSE,BFALSE);} 
BgL_n1z00_3349 = 
(long)CINT(BgL_tmpz00_9807); } 
BgL_test4750z00_9806 = 
(BgL_n1z00_3349>BgL_l1z00_1786); } 
if(BgL_test4750z00_9806)
{ /* Ieee/string.scm 1214 */
BgL_e1z00_1788 = 
BGl_errorz00zz__errorz00(BgL_procz00_3343, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_179); }  else 
{ /* Ieee/string.scm 1214 */
BgL_e1z00_1788 = BgL_end1z00_179; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_e1z00_1788 = 
BINT(BgL_l1z00_1786); } } 
{ /* Ieee/string.scm 1226 */
 obj_t BgL_e2z00_1789;
{ /* Ieee/string.scm 1227 */
 obj_t BgL_procz00_3351;
BgL_procz00_3351 = BGl_symbol3909z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_181))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test4753z00_9821;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3356;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_9822;
if(
INTEGERP(BgL_end2z00_181))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_9822 = BgL_end2z00_181
; }  else 
{ 
 obj_t BgL_auxz00_9825;
BgL_auxz00_9825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3910z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_181); 
FAILURE(BgL_auxz00_9825,BFALSE,BFALSE);} 
BgL_n1z00_3356 = 
(long)CINT(BgL_tmpz00_9822); } 
BgL_test4753z00_9821 = 
(BgL_n1z00_3356<=0L); } 
if(BgL_test4753z00_9821)
{ /* Ieee/string.scm 1212 */
BgL_e2z00_1789 = 
BGl_errorz00zz__errorz00(BgL_procz00_3351, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_181); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test4755z00_9833;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3357;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_9834;
if(
INTEGERP(BgL_end2z00_181))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_9834 = BgL_end2z00_181
; }  else 
{ 
 obj_t BgL_auxz00_9837;
BgL_auxz00_9837 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3910z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_181); 
FAILURE(BgL_auxz00_9837,BFALSE,BFALSE);} 
BgL_n1z00_3357 = 
(long)CINT(BgL_tmpz00_9834); } 
BgL_test4755z00_9833 = 
(BgL_n1z00_3357>BgL_l2z00_1787); } 
if(BgL_test4755z00_9833)
{ /* Ieee/string.scm 1214 */
BgL_e2z00_1789 = 
BGl_errorz00zz__errorz00(BgL_procz00_3351, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_181); }  else 
{ /* Ieee/string.scm 1214 */
BgL_e2z00_1789 = BgL_end2z00_181; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_e2z00_1789 = 
BINT(BgL_l2z00_1787); } } 
{ /* Ieee/string.scm 1227 */
 obj_t BgL_b1z00_1790;
{ /* Ieee/string.scm 1228 */
 obj_t BgL_procz00_3359;
BgL_procz00_3359 = BGl_symbol3909z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_178))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test4758z00_9848;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3364;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_9849;
if(
INTEGERP(BgL_start1z00_178))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_9849 = BgL_start1z00_178
; }  else 
{ 
 obj_t BgL_auxz00_9852;
BgL_auxz00_9852 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3910z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_178); 
FAILURE(BgL_auxz00_9852,BFALSE,BFALSE);} 
BgL_n1z00_3364 = 
(long)CINT(BgL_tmpz00_9849); } 
BgL_test4758z00_9848 = 
(BgL_n1z00_3364<0L); } 
if(BgL_test4758z00_9848)
{ /* Ieee/string.scm 1198 */
BgL_b1z00_1790 = 
BGl_errorz00zz__errorz00(BgL_procz00_3359, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_178); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test4760z00_9860;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3365;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_9861;
if(
INTEGERP(BgL_start1z00_178))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_9861 = BgL_start1z00_178
; }  else 
{ 
 obj_t BgL_auxz00_9864;
BgL_auxz00_9864 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3910z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_178); 
FAILURE(BgL_auxz00_9864,BFALSE,BFALSE);} 
BgL_n1z00_3365 = 
(long)CINT(BgL_tmpz00_9861); } 
BgL_test4760z00_9860 = 
(BgL_n1z00_3365>=BgL_l1z00_1786); } 
if(BgL_test4760z00_9860)
{ /* Ieee/string.scm 1200 */
BgL_b1z00_1790 = 
BGl_errorz00zz__errorz00(BgL_procz00_3359, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_178); }  else 
{ /* Ieee/string.scm 1200 */
BgL_b1z00_1790 = BgL_start1z00_178; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_b1z00_1790 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1228 */
 obj_t BgL_b2z00_1791;
{ /* Ieee/string.scm 1229 */
 obj_t BgL_procz00_3367;
BgL_procz00_3367 = BGl_symbol3909z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_180))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test4763z00_9875;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3372;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_9876;
if(
INTEGERP(BgL_start2z00_180))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_9876 = BgL_start2z00_180
; }  else 
{ 
 obj_t BgL_auxz00_9879;
BgL_auxz00_9879 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3910z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_180); 
FAILURE(BgL_auxz00_9879,BFALSE,BFALSE);} 
BgL_n1z00_3372 = 
(long)CINT(BgL_tmpz00_9876); } 
BgL_test4763z00_9875 = 
(BgL_n1z00_3372<0L); } 
if(BgL_test4763z00_9875)
{ /* Ieee/string.scm 1198 */
BgL_b2z00_1791 = 
BGl_errorz00zz__errorz00(BgL_procz00_3367, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_180); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test4765z00_9887;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3373;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_9888;
if(
INTEGERP(BgL_start2z00_180))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_9888 = BgL_start2z00_180
; }  else 
{ 
 obj_t BgL_auxz00_9891;
BgL_auxz00_9891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3910z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_180); 
FAILURE(BgL_auxz00_9891,BFALSE,BFALSE);} 
BgL_n1z00_3373 = 
(long)CINT(BgL_tmpz00_9888); } 
BgL_test4765z00_9887 = 
(BgL_n1z00_3373>=BgL_l2z00_1787); } 
if(BgL_test4765z00_9887)
{ /* Ieee/string.scm 1200 */
BgL_b2z00_1791 = 
BGl_errorz00zz__errorz00(BgL_procz00_3367, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_180); }  else 
{ /* Ieee/string.scm 1200 */
BgL_b2z00_1791 = BgL_start2z00_180; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_b2z00_1791 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1229 */

{ 
 obj_t BgL_i1z00_1793; obj_t BgL_i2z00_1794;
{ /* Ieee/string.scm 1230 */
 long BgL_tmpz00_9900;
BgL_i1z00_1793 = BgL_b1z00_1790; 
BgL_i2z00_1794 = BgL_b2z00_1791; 
BgL_zc3z04anonymousza31771ze3z87_1795:
{ /* Ieee/string.scm 1233 */
 bool_t BgL_test4767z00_9901;
{ /* Ieee/string.scm 1233 */
 bool_t BgL_test4768z00_9902;
{ /* Ieee/string.scm 1233 */
 long BgL_n1z00_3375; long BgL_n2z00_3376;
{ /* Ieee/string.scm 1233 */
 obj_t BgL_tmpz00_9903;
if(
INTEGERP(BgL_i1z00_1793))
{ /* Ieee/string.scm 1233 */
BgL_tmpz00_9903 = BgL_i1z00_1793
; }  else 
{ 
 obj_t BgL_auxz00_9906;
BgL_auxz00_9906 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49982L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1793); 
FAILURE(BgL_auxz00_9906,BFALSE,BFALSE);} 
BgL_n1z00_3375 = 
(long)CINT(BgL_tmpz00_9903); } 
{ /* Ieee/string.scm 1233 */
 obj_t BgL_tmpz00_9911;
if(
INTEGERP(BgL_e1z00_1788))
{ /* Ieee/string.scm 1233 */
BgL_tmpz00_9911 = BgL_e1z00_1788
; }  else 
{ 
 obj_t BgL_auxz00_9914;
BgL_auxz00_9914 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49985L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e1z00_1788); 
FAILURE(BgL_auxz00_9914,BFALSE,BFALSE);} 
BgL_n2z00_3376 = 
(long)CINT(BgL_tmpz00_9911); } 
BgL_test4768z00_9902 = 
(BgL_n1z00_3375==BgL_n2z00_3376); } 
if(BgL_test4768z00_9902)
{ /* Ieee/string.scm 1233 */
BgL_test4767z00_9901 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1233 */
 long BgL_n1z00_3377; long BgL_n2z00_3378;
{ /* Ieee/string.scm 1233 */
 obj_t BgL_tmpz00_9920;
if(
INTEGERP(BgL_i2z00_1794))
{ /* Ieee/string.scm 1233 */
BgL_tmpz00_9920 = BgL_i2z00_1794
; }  else 
{ 
 obj_t BgL_auxz00_9923;
BgL_auxz00_9923 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49994L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_1794); 
FAILURE(BgL_auxz00_9923,BFALSE,BFALSE);} 
BgL_n1z00_3377 = 
(long)CINT(BgL_tmpz00_9920); } 
{ /* Ieee/string.scm 1233 */
 obj_t BgL_tmpz00_9928;
if(
INTEGERP(BgL_e2z00_1789))
{ /* Ieee/string.scm 1233 */
BgL_tmpz00_9928 = BgL_e2z00_1789
; }  else 
{ 
 obj_t BgL_auxz00_9931;
BgL_auxz00_9931 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49997L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e2z00_1789); 
FAILURE(BgL_auxz00_9931,BFALSE,BFALSE);} 
BgL_n2z00_3378 = 
(long)CINT(BgL_tmpz00_9928); } 
BgL_test4767z00_9901 = 
(BgL_n1z00_3377==BgL_n2z00_3378); } } 
if(BgL_test4767z00_9901)
{ /* Ieee/string.scm 1234 */
 long BgL_za71za7_3379; long BgL_za72za7_3380;
{ /* Ieee/string.scm 1234 */
 obj_t BgL_tmpz00_9937;
if(
INTEGERP(BgL_i1z00_1793))
{ /* Ieee/string.scm 1234 */
BgL_tmpz00_9937 = BgL_i1z00_1793
; }  else 
{ 
 obj_t BgL_auxz00_9940;
BgL_auxz00_9940 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50013L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1793); 
FAILURE(BgL_auxz00_9940,BFALSE,BFALSE);} 
BgL_za71za7_3379 = 
(long)CINT(BgL_tmpz00_9937); } 
{ /* Ieee/string.scm 1234 */
 obj_t BgL_tmpz00_9945;
if(
INTEGERP(BgL_b1z00_1790))
{ /* Ieee/string.scm 1234 */
BgL_tmpz00_9945 = BgL_b1z00_1790
; }  else 
{ 
 obj_t BgL_auxz00_9948;
BgL_auxz00_9948 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50016L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_1790); 
FAILURE(BgL_auxz00_9948,BFALSE,BFALSE);} 
BgL_za72za7_3380 = 
(long)CINT(BgL_tmpz00_9945); } 
BgL_tmpz00_9900 = 
(BgL_za71za7_3379-BgL_za72za7_3380); }  else 
{ /* Ieee/string.scm 1235 */
 bool_t BgL_test4775z00_9954;
{ /* Ieee/string.scm 1235 */
 unsigned char BgL_auxz00_9974; unsigned char BgL_tmpz00_9955;
{ /* Ieee/string.scm 1235 */
 long BgL_kz00_3384;
{ /* Ieee/string.scm 1235 */
 obj_t BgL_tmpz00_9975;
if(
INTEGERP(BgL_i2z00_1794))
{ /* Ieee/string.scm 1235 */
BgL_tmpz00_9975 = BgL_i2z00_1794
; }  else 
{ 
 obj_t BgL_auxz00_9978;
BgL_auxz00_9978 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50069L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_1794); 
FAILURE(BgL_auxz00_9978,BFALSE,BFALSE);} 
BgL_kz00_3384 = 
(long)CINT(BgL_tmpz00_9975); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2537z00_4486;
BgL_l2537z00_4486 = 
STRING_LENGTH(BgL_s2z00_177); 
if(
BOUND_CHECK(BgL_kz00_3384, BgL_l2537z00_4486))
{ /* Ieee/string.scm 331 */
BgL_auxz00_9974 = 
STRING_REF(BgL_s2z00_177, BgL_kz00_3384)
; }  else 
{ 
 obj_t BgL_auxz00_9987;
BgL_auxz00_9987 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s2z00_177, 
(int)(BgL_l2537z00_4486), 
(int)(BgL_kz00_3384)); 
FAILURE(BgL_auxz00_9987,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1235 */
 long BgL_kz00_3382;
{ /* Ieee/string.scm 1235 */
 obj_t BgL_tmpz00_9956;
if(
INTEGERP(BgL_i1z00_1793))
{ /* Ieee/string.scm 1235 */
BgL_tmpz00_9956 = BgL_i1z00_1793
; }  else 
{ 
 obj_t BgL_auxz00_9959;
BgL_auxz00_9959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50050L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1793); 
FAILURE(BgL_auxz00_9959,BFALSE,BFALSE);} 
BgL_kz00_3382 = 
(long)CINT(BgL_tmpz00_9956); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2533z00_4482;
BgL_l2533z00_4482 = 
STRING_LENGTH(BgL_s1z00_176); 
if(
BOUND_CHECK(BgL_kz00_3382, BgL_l2533z00_4482))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_9955 = 
STRING_REF(BgL_s1z00_176, BgL_kz00_3382)
; }  else 
{ 
 obj_t BgL_auxz00_9968;
BgL_auxz00_9968 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s1z00_176, 
(int)(BgL_l2533z00_4482), 
(int)(BgL_kz00_3382)); 
FAILURE(BgL_auxz00_9968,BFALSE,BFALSE);} } } 
BgL_test4775z00_9954 = 
(BgL_tmpz00_9955==BgL_auxz00_9974); } 
if(BgL_test4775z00_9954)
{ 
 obj_t BgL_i2z00_10004; obj_t BgL_i1z00_9994;
{ 
 obj_t BgL_tmpz00_9995;
if(
INTEGERP(BgL_i1z00_1793))
{ /* Ieee/string.scm 1236 */
BgL_tmpz00_9995 = BgL_i1z00_1793
; }  else 
{ 
 obj_t BgL_auxz00_9998;
BgL_auxz00_9998 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50091L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1793); 
FAILURE(BgL_auxz00_9998,BFALSE,BFALSE);} 
BgL_i1z00_9994 = 
ADDFX(BgL_tmpz00_9995, 
BINT(1L)); } 
{ 
 obj_t BgL_tmpz00_10005;
if(
INTEGERP(BgL_i2z00_1794))
{ /* Ieee/string.scm 1236 */
BgL_tmpz00_10005 = BgL_i2z00_1794
; }  else 
{ 
 obj_t BgL_auxz00_10008;
BgL_auxz00_10008 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50102L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_1794); 
FAILURE(BgL_auxz00_10008,BFALSE,BFALSE);} 
BgL_i2z00_10004 = 
ADDFX(BgL_tmpz00_10005, 
BINT(1L)); } 
BgL_i2z00_1794 = BgL_i2z00_10004; 
BgL_i1z00_1793 = BgL_i1z00_9994; 
goto BgL_zc3z04anonymousza31771ze3z87_1795;}  else 
{ /* Ieee/string.scm 1238 */
 long BgL_za71za7_3389; long BgL_za72za7_3390;
{ /* Ieee/string.scm 1238 */
 obj_t BgL_tmpz00_10014;
if(
INTEGERP(BgL_i1z00_1793))
{ /* Ieee/string.scm 1238 */
BgL_tmpz00_10014 = BgL_i1z00_1793
; }  else 
{ 
 obj_t BgL_auxz00_10017;
BgL_auxz00_10017 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50132L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1793); 
FAILURE(BgL_auxz00_10017,BFALSE,BFALSE);} 
BgL_za71za7_3389 = 
(long)CINT(BgL_tmpz00_10014); } 
{ /* Ieee/string.scm 1238 */
 obj_t BgL_tmpz00_10022;
if(
INTEGERP(BgL_b1z00_1790))
{ /* Ieee/string.scm 1238 */
BgL_tmpz00_10022 = BgL_b1z00_1790
; }  else 
{ 
 obj_t BgL_auxz00_10025;
BgL_auxz00_10025 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50135L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_1790); 
FAILURE(BgL_auxz00_10025,BFALSE,BFALSE);} 
BgL_za72za7_3390 = 
(long)CINT(BgL_tmpz00_10022); } 
BgL_tmpz00_9900 = 
(BgL_za71za7_3389-BgL_za72za7_3390); } } } 
return 
(int)(BgL_tmpz00_9900);} } } } } } } } } } 

}



/* _string-prefix-length-ci */
obj_t BGl__stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t BgL_env1166z00_191, obj_t BgL_opt1165z00_190)
{
{ /* Ieee/string.scm 1243 */
{ /* Ieee/string.scm 1243 */
 obj_t BgL_s1z00_1807; obj_t BgL_s2z00_1808;
{ 
 obj_t BgL_auxz00_10032;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10032 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10035;
BgL_auxz00_10035 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10035,BFALSE,BFALSE);} 
BgL_s1z00_1807 = 
VECTOR_REF(BgL_auxz00_10032,0L); } 
{ 
 obj_t BgL_auxz00_10040;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10040 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10043;
BgL_auxz00_10043 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10043,BFALSE,BFALSE);} 
BgL_s2z00_1808 = 
VECTOR_REF(BgL_auxz00_10040,1L); } 
{ 

{ /* Ieee/string.scm 1243 */
 long BgL_aux1168z00_1810;
{ 
 obj_t BgL_auxz00_10048;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10048 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10051;
BgL_auxz00_10051 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10051,BFALSE,BFALSE);} 
BgL_aux1168z00_1810 = 
VECTOR_LENGTH(BgL_auxz00_10048); } 
switch( BgL_aux1168z00_1810) { case 2L : 

{ /* Ieee/string.scm 1243 */

{ /* Ieee/string.scm 1243 */
 int BgL_tmpz00_10056;
{ /* Ieee/string.scm 1243 */
 obj_t BgL_auxz00_10064; obj_t BgL_auxz00_10057;
if(
STRINGP(BgL_s2z00_1808))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10064 = BgL_s2z00_1808
; }  else 
{ 
 obj_t BgL_auxz00_10067;
BgL_auxz00_10067 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1808); 
FAILURE(BgL_auxz00_10067,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1807))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10057 = BgL_s1z00_1807
; }  else 
{ 
 obj_t BgL_auxz00_10060;
BgL_auxz00_10060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1807); 
FAILURE(BgL_auxz00_10060,BFALSE,BFALSE);} 
BgL_tmpz00_10056 = 
BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_10057, BgL_auxz00_10064, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_10056);} } break;case 3L : 

{ /* Ieee/string.scm 1243 */
 obj_t BgL_start1z00_1815;
{ 
 obj_t BgL_auxz00_10073;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10073 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10076;
BgL_auxz00_10076 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10076,BFALSE,BFALSE);} 
BgL_start1z00_1815 = 
VECTOR_REF(BgL_auxz00_10073,2L); } 
{ /* Ieee/string.scm 1243 */

{ /* Ieee/string.scm 1243 */
 int BgL_tmpz00_10081;
{ /* Ieee/string.scm 1243 */
 obj_t BgL_auxz00_10089; obj_t BgL_auxz00_10082;
if(
STRINGP(BgL_s2z00_1808))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10089 = BgL_s2z00_1808
; }  else 
{ 
 obj_t BgL_auxz00_10092;
BgL_auxz00_10092 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1808); 
FAILURE(BgL_auxz00_10092,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1807))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10082 = BgL_s1z00_1807
; }  else 
{ 
 obj_t BgL_auxz00_10085;
BgL_auxz00_10085 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1807); 
FAILURE(BgL_auxz00_10085,BFALSE,BFALSE);} 
BgL_tmpz00_10081 = 
BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_10082, BgL_auxz00_10089, BgL_start1z00_1815, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_10081);} } } break;case 4L : 

{ /* Ieee/string.scm 1243 */
 obj_t BgL_start1z00_1819;
{ 
 obj_t BgL_auxz00_10098;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10098 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10101;
BgL_auxz00_10101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10101,BFALSE,BFALSE);} 
BgL_start1z00_1819 = 
VECTOR_REF(BgL_auxz00_10098,2L); } 
{ /* Ieee/string.scm 1243 */
 obj_t BgL_end1z00_1820;
{ 
 obj_t BgL_auxz00_10106;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10106 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10109;
BgL_auxz00_10109 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10109,BFALSE,BFALSE);} 
BgL_end1z00_1820 = 
VECTOR_REF(BgL_auxz00_10106,3L); } 
{ /* Ieee/string.scm 1243 */

{ /* Ieee/string.scm 1243 */
 int BgL_tmpz00_10114;
{ /* Ieee/string.scm 1243 */
 obj_t BgL_auxz00_10122; obj_t BgL_auxz00_10115;
if(
STRINGP(BgL_s2z00_1808))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10122 = BgL_s2z00_1808
; }  else 
{ 
 obj_t BgL_auxz00_10125;
BgL_auxz00_10125 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1808); 
FAILURE(BgL_auxz00_10125,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1807))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10115 = BgL_s1z00_1807
; }  else 
{ 
 obj_t BgL_auxz00_10118;
BgL_auxz00_10118 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1807); 
FAILURE(BgL_auxz00_10118,BFALSE,BFALSE);} 
BgL_tmpz00_10114 = 
BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_10115, BgL_auxz00_10122, BgL_start1z00_1819, BgL_end1z00_1820, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_10114);} } } } break;case 5L : 

{ /* Ieee/string.scm 1243 */
 obj_t BgL_start1z00_1823;
{ 
 obj_t BgL_auxz00_10131;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10131 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10134;
BgL_auxz00_10134 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10134,BFALSE,BFALSE);} 
BgL_start1z00_1823 = 
VECTOR_REF(BgL_auxz00_10131,2L); } 
{ /* Ieee/string.scm 1243 */
 obj_t BgL_end1z00_1824;
{ 
 obj_t BgL_auxz00_10139;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10139 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10142;
BgL_auxz00_10142 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10142,BFALSE,BFALSE);} 
BgL_end1z00_1824 = 
VECTOR_REF(BgL_auxz00_10139,3L); } 
{ /* Ieee/string.scm 1243 */
 obj_t BgL_start2z00_1825;
{ 
 obj_t BgL_auxz00_10147;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10147 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10150;
BgL_auxz00_10150 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10150,BFALSE,BFALSE);} 
BgL_start2z00_1825 = 
VECTOR_REF(BgL_auxz00_10147,4L); } 
{ /* Ieee/string.scm 1243 */

{ /* Ieee/string.scm 1243 */
 int BgL_tmpz00_10155;
{ /* Ieee/string.scm 1243 */
 obj_t BgL_auxz00_10163; obj_t BgL_auxz00_10156;
if(
STRINGP(BgL_s2z00_1808))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10163 = BgL_s2z00_1808
; }  else 
{ 
 obj_t BgL_auxz00_10166;
BgL_auxz00_10166 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1808); 
FAILURE(BgL_auxz00_10166,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1807))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10156 = BgL_s1z00_1807
; }  else 
{ 
 obj_t BgL_auxz00_10159;
BgL_auxz00_10159 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1807); 
FAILURE(BgL_auxz00_10159,BFALSE,BFALSE);} 
BgL_tmpz00_10155 = 
BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_10156, BgL_auxz00_10163, BgL_start1z00_1823, BgL_end1z00_1824, BgL_start2z00_1825, BFALSE); } 
return 
BINT(BgL_tmpz00_10155);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1243 */
 obj_t BgL_start1z00_1827;
{ 
 obj_t BgL_auxz00_10172;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10172 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10175;
BgL_auxz00_10175 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10175,BFALSE,BFALSE);} 
BgL_start1z00_1827 = 
VECTOR_REF(BgL_auxz00_10172,2L); } 
{ /* Ieee/string.scm 1243 */
 obj_t BgL_end1z00_1828;
{ 
 obj_t BgL_auxz00_10180;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10180 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10183;
BgL_auxz00_10183 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10183,BFALSE,BFALSE);} 
BgL_end1z00_1828 = 
VECTOR_REF(BgL_auxz00_10180,3L); } 
{ /* Ieee/string.scm 1243 */
 obj_t BgL_start2z00_1829;
{ 
 obj_t BgL_auxz00_10188;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10188 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10191;
BgL_auxz00_10191 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10191,BFALSE,BFALSE);} 
BgL_start2z00_1829 = 
VECTOR_REF(BgL_auxz00_10188,4L); } 
{ /* Ieee/string.scm 1243 */
 obj_t BgL_end2z00_1830;
{ 
 obj_t BgL_auxz00_10196;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10196 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10199;
BgL_auxz00_10199 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10199,BFALSE,BFALSE);} 
BgL_end2z00_1830 = 
VECTOR_REF(BgL_auxz00_10196,5L); } 
{ /* Ieee/string.scm 1243 */

{ /* Ieee/string.scm 1243 */
 int BgL_tmpz00_10204;
{ /* Ieee/string.scm 1243 */
 obj_t BgL_auxz00_10212; obj_t BgL_auxz00_10205;
if(
STRINGP(BgL_s2z00_1808))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10212 = BgL_s2z00_1808
; }  else 
{ 
 obj_t BgL_auxz00_10215;
BgL_auxz00_10215 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1808); 
FAILURE(BgL_auxz00_10215,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1807))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10205 = BgL_s1z00_1807
; }  else 
{ 
 obj_t BgL_auxz00_10208;
BgL_auxz00_10208 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3920z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1807); 
FAILURE(BgL_auxz00_10208,BFALSE,BFALSE);} 
BgL_tmpz00_10204 = 
BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_10205, BgL_auxz00_10212, BgL_start1z00_1827, BgL_end1z00_1828, BgL_start2z00_1829, BgL_end2z00_1830); } 
return 
BINT(BgL_tmpz00_10204);} } } } } } break;
default: 
{ /* Ieee/string.scm 1243 */
 long BgL_arg1783z00_1831;
{ 
 obj_t BgL_auxz00_10221;
if(
VECTORP(BgL_opt1165z00_190))
{ /* Ieee/string.scm 1243 */
BgL_auxz00_10221 = BgL_opt1165z00_190
; }  else 
{ 
 obj_t BgL_auxz00_10224;
BgL_auxz00_10224 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50369L), BGl_string3921z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1165z00_190); 
FAILURE(BgL_auxz00_10224,BFALSE,BFALSE);} 
BgL_arg1783z00_1831 = 
VECTOR_LENGTH(BgL_auxz00_10221); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3922z00zz__r4_strings_6_7z00, BGl_string3908z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1783z00_1831));} } } } } } 

}



/* string-prefix-length-ci */
BGL_EXPORTED_DEF int BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t BgL_s1z00_184, obj_t BgL_s2z00_185, obj_t BgL_start1z00_186, obj_t BgL_end1z00_187, obj_t BgL_start2z00_188, obj_t BgL_end2z00_189)
{
{ /* Ieee/string.scm 1243 */
{ /* Ieee/string.scm 1245 */
 long BgL_l1z00_1832;
BgL_l1z00_1832 = 
STRING_LENGTH(BgL_s1z00_184); 
{ /* Ieee/string.scm 1245 */
 long BgL_l2z00_1833;
BgL_l2z00_1833 = 
STRING_LENGTH(BgL_s2z00_185); 
{ /* Ieee/string.scm 1246 */
 obj_t BgL_e1z00_1834;
{ /* Ieee/string.scm 1247 */
 obj_t BgL_procz00_3393;
BgL_procz00_3393 = BGl_symbol3924z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_187))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test4809z00_10236;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3398;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_10237;
if(
INTEGERP(BgL_end1z00_187))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_10237 = BgL_end1z00_187
; }  else 
{ 
 obj_t BgL_auxz00_10240;
BgL_auxz00_10240 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3925z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_187); 
FAILURE(BgL_auxz00_10240,BFALSE,BFALSE);} 
BgL_n1z00_3398 = 
(long)CINT(BgL_tmpz00_10237); } 
BgL_test4809z00_10236 = 
(BgL_n1z00_3398<=0L); } 
if(BgL_test4809z00_10236)
{ /* Ieee/string.scm 1212 */
BgL_e1z00_1834 = 
BGl_errorz00zz__errorz00(BgL_procz00_3393, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_187); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test4811z00_10248;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3399;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_10249;
if(
INTEGERP(BgL_end1z00_187))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_10249 = BgL_end1z00_187
; }  else 
{ 
 obj_t BgL_auxz00_10252;
BgL_auxz00_10252 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3925z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_187); 
FAILURE(BgL_auxz00_10252,BFALSE,BFALSE);} 
BgL_n1z00_3399 = 
(long)CINT(BgL_tmpz00_10249); } 
BgL_test4811z00_10248 = 
(BgL_n1z00_3399>BgL_l1z00_1832); } 
if(BgL_test4811z00_10248)
{ /* Ieee/string.scm 1214 */
BgL_e1z00_1834 = 
BGl_errorz00zz__errorz00(BgL_procz00_3393, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_187); }  else 
{ /* Ieee/string.scm 1214 */
BgL_e1z00_1834 = BgL_end1z00_187; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_e1z00_1834 = 
BINT(BgL_l1z00_1832); } } 
{ /* Ieee/string.scm 1247 */
 obj_t BgL_e2z00_1835;
{ /* Ieee/string.scm 1248 */
 obj_t BgL_procz00_3401;
BgL_procz00_3401 = BGl_symbol3924z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_189))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test4814z00_10263;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3406;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_10264;
if(
INTEGERP(BgL_end2z00_189))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_10264 = BgL_end2z00_189
; }  else 
{ 
 obj_t BgL_auxz00_10267;
BgL_auxz00_10267 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3925z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_189); 
FAILURE(BgL_auxz00_10267,BFALSE,BFALSE);} 
BgL_n1z00_3406 = 
(long)CINT(BgL_tmpz00_10264); } 
BgL_test4814z00_10263 = 
(BgL_n1z00_3406<=0L); } 
if(BgL_test4814z00_10263)
{ /* Ieee/string.scm 1212 */
BgL_e2z00_1835 = 
BGl_errorz00zz__errorz00(BgL_procz00_3401, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_189); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test4816z00_10275;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3407;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_10276;
if(
INTEGERP(BgL_end2z00_189))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_10276 = BgL_end2z00_189
; }  else 
{ 
 obj_t BgL_auxz00_10279;
BgL_auxz00_10279 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3925z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_189); 
FAILURE(BgL_auxz00_10279,BFALSE,BFALSE);} 
BgL_n1z00_3407 = 
(long)CINT(BgL_tmpz00_10276); } 
BgL_test4816z00_10275 = 
(BgL_n1z00_3407>BgL_l2z00_1833); } 
if(BgL_test4816z00_10275)
{ /* Ieee/string.scm 1214 */
BgL_e2z00_1835 = 
BGl_errorz00zz__errorz00(BgL_procz00_3401, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_189); }  else 
{ /* Ieee/string.scm 1214 */
BgL_e2z00_1835 = BgL_end2z00_189; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_e2z00_1835 = 
BINT(BgL_l2z00_1833); } } 
{ /* Ieee/string.scm 1248 */
 obj_t BgL_b1z00_1836;
{ /* Ieee/string.scm 1249 */
 obj_t BgL_procz00_3409;
BgL_procz00_3409 = BGl_symbol3924z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_186))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test4819z00_10290;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3414;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_10291;
if(
INTEGERP(BgL_start1z00_186))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_10291 = BgL_start1z00_186
; }  else 
{ 
 obj_t BgL_auxz00_10294;
BgL_auxz00_10294 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3925z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_186); 
FAILURE(BgL_auxz00_10294,BFALSE,BFALSE);} 
BgL_n1z00_3414 = 
(long)CINT(BgL_tmpz00_10291); } 
BgL_test4819z00_10290 = 
(BgL_n1z00_3414<0L); } 
if(BgL_test4819z00_10290)
{ /* Ieee/string.scm 1198 */
BgL_b1z00_1836 = 
BGl_errorz00zz__errorz00(BgL_procz00_3409, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_186); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test4821z00_10302;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3415;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_10303;
if(
INTEGERP(BgL_start1z00_186))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_10303 = BgL_start1z00_186
; }  else 
{ 
 obj_t BgL_auxz00_10306;
BgL_auxz00_10306 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3925z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_186); 
FAILURE(BgL_auxz00_10306,BFALSE,BFALSE);} 
BgL_n1z00_3415 = 
(long)CINT(BgL_tmpz00_10303); } 
BgL_test4821z00_10302 = 
(BgL_n1z00_3415>=BgL_l1z00_1832); } 
if(BgL_test4821z00_10302)
{ /* Ieee/string.scm 1200 */
BgL_b1z00_1836 = 
BGl_errorz00zz__errorz00(BgL_procz00_3409, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_186); }  else 
{ /* Ieee/string.scm 1200 */
BgL_b1z00_1836 = BgL_start1z00_186; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_b1z00_1836 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1249 */
 obj_t BgL_b2z00_1837;
{ /* Ieee/string.scm 1250 */
 obj_t BgL_procz00_3417;
BgL_procz00_3417 = BGl_symbol3924z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_188))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test4824z00_10317;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3422;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_10318;
if(
INTEGERP(BgL_start2z00_188))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_10318 = BgL_start2z00_188
; }  else 
{ 
 obj_t BgL_auxz00_10321;
BgL_auxz00_10321 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3925z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_188); 
FAILURE(BgL_auxz00_10321,BFALSE,BFALSE);} 
BgL_n1z00_3422 = 
(long)CINT(BgL_tmpz00_10318); } 
BgL_test4824z00_10317 = 
(BgL_n1z00_3422<0L); } 
if(BgL_test4824z00_10317)
{ /* Ieee/string.scm 1198 */
BgL_b2z00_1837 = 
BGl_errorz00zz__errorz00(BgL_procz00_3417, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_188); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test4826z00_10329;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3423;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_10330;
if(
INTEGERP(BgL_start2z00_188))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_10330 = BgL_start2z00_188
; }  else 
{ 
 obj_t BgL_auxz00_10333;
BgL_auxz00_10333 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3925z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_188); 
FAILURE(BgL_auxz00_10333,BFALSE,BFALSE);} 
BgL_n1z00_3423 = 
(long)CINT(BgL_tmpz00_10330); } 
BgL_test4826z00_10329 = 
(BgL_n1z00_3423>=BgL_l2z00_1833); } 
if(BgL_test4826z00_10329)
{ /* Ieee/string.scm 1200 */
BgL_b2z00_1837 = 
BGl_errorz00zz__errorz00(BgL_procz00_3417, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_188); }  else 
{ /* Ieee/string.scm 1200 */
BgL_b2z00_1837 = BgL_start2z00_188; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_b2z00_1837 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1250 */

{ 
 obj_t BgL_i1z00_1839; obj_t BgL_i2z00_1840;
{ /* Ieee/string.scm 1251 */
 long BgL_tmpz00_10342;
BgL_i1z00_1839 = BgL_b1z00_1836; 
BgL_i2z00_1840 = BgL_b2z00_1837; 
BgL_zc3z04anonymousza31784ze3z87_1841:
{ /* Ieee/string.scm 1254 */
 bool_t BgL_test4828z00_10343;
{ /* Ieee/string.scm 1254 */
 bool_t BgL_test4829z00_10344;
{ /* Ieee/string.scm 1254 */
 long BgL_n1z00_3425; long BgL_n2z00_3426;
{ /* Ieee/string.scm 1254 */
 obj_t BgL_tmpz00_10345;
if(
INTEGERP(BgL_i1z00_1839))
{ /* Ieee/string.scm 1254 */
BgL_tmpz00_10345 = BgL_i1z00_1839
; }  else 
{ 
 obj_t BgL_auxz00_10348;
BgL_auxz00_10348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50881L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1839); 
FAILURE(BgL_auxz00_10348,BFALSE,BFALSE);} 
BgL_n1z00_3425 = 
(long)CINT(BgL_tmpz00_10345); } 
{ /* Ieee/string.scm 1254 */
 obj_t BgL_tmpz00_10353;
if(
INTEGERP(BgL_e1z00_1834))
{ /* Ieee/string.scm 1254 */
BgL_tmpz00_10353 = BgL_e1z00_1834
; }  else 
{ 
 obj_t BgL_auxz00_10356;
BgL_auxz00_10356 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50884L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e1z00_1834); 
FAILURE(BgL_auxz00_10356,BFALSE,BFALSE);} 
BgL_n2z00_3426 = 
(long)CINT(BgL_tmpz00_10353); } 
BgL_test4829z00_10344 = 
(BgL_n1z00_3425==BgL_n2z00_3426); } 
if(BgL_test4829z00_10344)
{ /* Ieee/string.scm 1254 */
BgL_test4828z00_10343 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1254 */
 long BgL_n1z00_3427; long BgL_n2z00_3428;
{ /* Ieee/string.scm 1254 */
 obj_t BgL_tmpz00_10362;
if(
INTEGERP(BgL_i2z00_1840))
{ /* Ieee/string.scm 1254 */
BgL_tmpz00_10362 = BgL_i2z00_1840
; }  else 
{ 
 obj_t BgL_auxz00_10365;
BgL_auxz00_10365 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50893L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_1840); 
FAILURE(BgL_auxz00_10365,BFALSE,BFALSE);} 
BgL_n1z00_3427 = 
(long)CINT(BgL_tmpz00_10362); } 
{ /* Ieee/string.scm 1254 */
 obj_t BgL_tmpz00_10370;
if(
INTEGERP(BgL_e2z00_1835))
{ /* Ieee/string.scm 1254 */
BgL_tmpz00_10370 = BgL_e2z00_1835
; }  else 
{ 
 obj_t BgL_auxz00_10373;
BgL_auxz00_10373 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50896L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e2z00_1835); 
FAILURE(BgL_auxz00_10373,BFALSE,BFALSE);} 
BgL_n2z00_3428 = 
(long)CINT(BgL_tmpz00_10370); } 
BgL_test4828z00_10343 = 
(BgL_n1z00_3427==BgL_n2z00_3428); } } 
if(BgL_test4828z00_10343)
{ /* Ieee/string.scm 1255 */
 long BgL_za71za7_3429; long BgL_za72za7_3430;
{ /* Ieee/string.scm 1255 */
 obj_t BgL_tmpz00_10379;
if(
INTEGERP(BgL_i1z00_1839))
{ /* Ieee/string.scm 1255 */
BgL_tmpz00_10379 = BgL_i1z00_1839
; }  else 
{ 
 obj_t BgL_auxz00_10382;
BgL_auxz00_10382 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50912L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1839); 
FAILURE(BgL_auxz00_10382,BFALSE,BFALSE);} 
BgL_za71za7_3429 = 
(long)CINT(BgL_tmpz00_10379); } 
{ /* Ieee/string.scm 1255 */
 obj_t BgL_tmpz00_10387;
if(
INTEGERP(BgL_b1z00_1836))
{ /* Ieee/string.scm 1255 */
BgL_tmpz00_10387 = BgL_b1z00_1836
; }  else 
{ 
 obj_t BgL_auxz00_10390;
BgL_auxz00_10390 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50915L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_1836); 
FAILURE(BgL_auxz00_10390,BFALSE,BFALSE);} 
BgL_za72za7_3430 = 
(long)CINT(BgL_tmpz00_10387); } 
BgL_tmpz00_10342 = 
(BgL_za71za7_3429-BgL_za72za7_3430); }  else 
{ /* Ieee/string.scm 1256 */
 bool_t BgL_test4836z00_10396;
{ /* Ieee/string.scm 1256 */
 unsigned char BgL_auxz00_10418; unsigned char BgL_tmpz00_10397;
{ /* Ieee/string.scm 1256 */
 unsigned char BgL_tmpz00_10419;
{ /* Ieee/string.scm 1256 */
 long BgL_kz00_3434;
{ /* Ieee/string.scm 1256 */
 obj_t BgL_tmpz00_10420;
if(
INTEGERP(BgL_i2z00_1840))
{ /* Ieee/string.scm 1256 */
BgL_tmpz00_10420 = BgL_i2z00_1840
; }  else 
{ 
 obj_t BgL_auxz00_10423;
BgL_auxz00_10423 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50971L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_1840); 
FAILURE(BgL_auxz00_10423,BFALSE,BFALSE);} 
BgL_kz00_3434 = 
(long)CINT(BgL_tmpz00_10420); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2545z00_4494;
BgL_l2545z00_4494 = 
STRING_LENGTH(BgL_s2z00_185); 
if(
BOUND_CHECK(BgL_kz00_3434, BgL_l2545z00_4494))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_10419 = 
STRING_REF(BgL_s2z00_185, BgL_kz00_3434)
; }  else 
{ 
 obj_t BgL_auxz00_10432;
BgL_auxz00_10432 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s2z00_185, 
(int)(BgL_l2545z00_4494), 
(int)(BgL_kz00_3434)); 
FAILURE(BgL_auxz00_10432,BFALSE,BFALSE);} } } 
BgL_auxz00_10418 = 
toupper(BgL_tmpz00_10419); } 
{ /* Ieee/string.scm 1256 */
 unsigned char BgL_tmpz00_10398;
{ /* Ieee/string.scm 1256 */
 long BgL_kz00_3432;
{ /* Ieee/string.scm 1256 */
 obj_t BgL_tmpz00_10399;
if(
INTEGERP(BgL_i1z00_1839))
{ /* Ieee/string.scm 1256 */
BgL_tmpz00_10399 = BgL_i1z00_1839
; }  else 
{ 
 obj_t BgL_auxz00_10402;
BgL_auxz00_10402 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50952L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1839); 
FAILURE(BgL_auxz00_10402,BFALSE,BFALSE);} 
BgL_kz00_3432 = 
(long)CINT(BgL_tmpz00_10399); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2541z00_4490;
BgL_l2541z00_4490 = 
STRING_LENGTH(BgL_s1z00_184); 
if(
BOUND_CHECK(BgL_kz00_3432, BgL_l2541z00_4490))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_10398 = 
STRING_REF(BgL_s1z00_184, BgL_kz00_3432)
; }  else 
{ 
 obj_t BgL_auxz00_10411;
BgL_auxz00_10411 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s1z00_184, 
(int)(BgL_l2541z00_4490), 
(int)(BgL_kz00_3432)); 
FAILURE(BgL_auxz00_10411,BFALSE,BFALSE);} } } 
BgL_tmpz00_10397 = 
toupper(BgL_tmpz00_10398); } 
BgL_test4836z00_10396 = 
(BgL_tmpz00_10397==BgL_auxz00_10418); } 
if(BgL_test4836z00_10396)
{ 
 obj_t BgL_i2z00_10450; obj_t BgL_i1z00_10440;
{ 
 obj_t BgL_tmpz00_10441;
if(
INTEGERP(BgL_i1z00_1839))
{ /* Ieee/string.scm 1257 */
BgL_tmpz00_10441 = BgL_i1z00_1839
; }  else 
{ 
 obj_t BgL_auxz00_10444;
BgL_auxz00_10444 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(50993L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1839); 
FAILURE(BgL_auxz00_10444,BFALSE,BFALSE);} 
BgL_i1z00_10440 = 
ADDFX(BgL_tmpz00_10441, 
BINT(1L)); } 
{ 
 obj_t BgL_tmpz00_10451;
if(
INTEGERP(BgL_i2z00_1840))
{ /* Ieee/string.scm 1257 */
BgL_tmpz00_10451 = BgL_i2z00_1840
; }  else 
{ 
 obj_t BgL_auxz00_10454;
BgL_auxz00_10454 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51004L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_1840); 
FAILURE(BgL_auxz00_10454,BFALSE,BFALSE);} 
BgL_i2z00_10450 = 
ADDFX(BgL_tmpz00_10451, 
BINT(1L)); } 
BgL_i2z00_1840 = BgL_i2z00_10450; 
BgL_i1z00_1839 = BgL_i1z00_10440; 
goto BgL_zc3z04anonymousza31784ze3z87_1841;}  else 
{ /* Ieee/string.scm 1259 */
 long BgL_za71za7_3445; long BgL_za72za7_3446;
{ /* Ieee/string.scm 1259 */
 obj_t BgL_tmpz00_10460;
if(
INTEGERP(BgL_i1z00_1839))
{ /* Ieee/string.scm 1259 */
BgL_tmpz00_10460 = BgL_i1z00_1839
; }  else 
{ 
 obj_t BgL_auxz00_10463;
BgL_auxz00_10463 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51034L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1839); 
FAILURE(BgL_auxz00_10463,BFALSE,BFALSE);} 
BgL_za71za7_3445 = 
(long)CINT(BgL_tmpz00_10460); } 
{ /* Ieee/string.scm 1259 */
 obj_t BgL_tmpz00_10468;
if(
INTEGERP(BgL_b1z00_1836))
{ /* Ieee/string.scm 1259 */
BgL_tmpz00_10468 = BgL_b1z00_1836
; }  else 
{ 
 obj_t BgL_auxz00_10471;
BgL_auxz00_10471 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51037L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_1836); 
FAILURE(BgL_auxz00_10471,BFALSE,BFALSE);} 
BgL_za72za7_3446 = 
(long)CINT(BgL_tmpz00_10468); } 
BgL_tmpz00_10342 = 
(BgL_za71za7_3445-BgL_za72za7_3446); } } } 
return 
(int)(BgL_tmpz00_10342);} } } } } } } } } } 

}



/* _string-suffix-length */
obj_t BGl__stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(obj_t BgL_env1170z00_199, obj_t BgL_opt1169z00_198)
{
{ /* Ieee/string.scm 1264 */
{ /* Ieee/string.scm 1264 */
 obj_t BgL_s1z00_1853; obj_t BgL_s2z00_1854;
{ 
 obj_t BgL_auxz00_10478;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10478 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10481;
BgL_auxz00_10481 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10481,BFALSE,BFALSE);} 
BgL_s1z00_1853 = 
VECTOR_REF(BgL_auxz00_10478,0L); } 
{ 
 obj_t BgL_auxz00_10486;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10486 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10489;
BgL_auxz00_10489 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10489,BFALSE,BFALSE);} 
BgL_s2z00_1854 = 
VECTOR_REF(BgL_auxz00_10486,1L); } 
{ 

{ /* Ieee/string.scm 1264 */
 long BgL_aux1172z00_1856;
{ 
 obj_t BgL_auxz00_10494;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10494 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10497;
BgL_auxz00_10497 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10497,BFALSE,BFALSE);} 
BgL_aux1172z00_1856 = 
VECTOR_LENGTH(BgL_auxz00_10494); } 
switch( BgL_aux1172z00_1856) { case 2L : 

{ /* Ieee/string.scm 1264 */

{ /* Ieee/string.scm 1264 */
 int BgL_tmpz00_10502;
{ /* Ieee/string.scm 1264 */
 obj_t BgL_auxz00_10510; obj_t BgL_auxz00_10503;
if(
STRINGP(BgL_s2z00_1854))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10510 = BgL_s2z00_1854
; }  else 
{ 
 obj_t BgL_auxz00_10513;
BgL_auxz00_10513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1854); 
FAILURE(BgL_auxz00_10513,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1853))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10503 = BgL_s1z00_1853
; }  else 
{ 
 obj_t BgL_auxz00_10506;
BgL_auxz00_10506 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1853); 
FAILURE(BgL_auxz00_10506,BFALSE,BFALSE);} 
BgL_tmpz00_10502 = 
BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_10503, BgL_auxz00_10510, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_10502);} } break;case 3L : 

{ /* Ieee/string.scm 1264 */
 obj_t BgL_start1z00_1861;
{ 
 obj_t BgL_auxz00_10519;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10519 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10522;
BgL_auxz00_10522 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10522,BFALSE,BFALSE);} 
BgL_start1z00_1861 = 
VECTOR_REF(BgL_auxz00_10519,2L); } 
{ /* Ieee/string.scm 1264 */

{ /* Ieee/string.scm 1264 */
 int BgL_tmpz00_10527;
{ /* Ieee/string.scm 1264 */
 obj_t BgL_auxz00_10535; obj_t BgL_auxz00_10528;
if(
STRINGP(BgL_s2z00_1854))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10535 = BgL_s2z00_1854
; }  else 
{ 
 obj_t BgL_auxz00_10538;
BgL_auxz00_10538 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1854); 
FAILURE(BgL_auxz00_10538,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1853))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10528 = BgL_s1z00_1853
; }  else 
{ 
 obj_t BgL_auxz00_10531;
BgL_auxz00_10531 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1853); 
FAILURE(BgL_auxz00_10531,BFALSE,BFALSE);} 
BgL_tmpz00_10527 = 
BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_10528, BgL_auxz00_10535, BgL_start1z00_1861, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_10527);} } } break;case 4L : 

{ /* Ieee/string.scm 1264 */
 obj_t BgL_start1z00_1865;
{ 
 obj_t BgL_auxz00_10544;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10544 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10547;
BgL_auxz00_10547 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10547,BFALSE,BFALSE);} 
BgL_start1z00_1865 = 
VECTOR_REF(BgL_auxz00_10544,2L); } 
{ /* Ieee/string.scm 1264 */
 obj_t BgL_end1z00_1866;
{ 
 obj_t BgL_auxz00_10552;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10552 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10555;
BgL_auxz00_10555 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10555,BFALSE,BFALSE);} 
BgL_end1z00_1866 = 
VECTOR_REF(BgL_auxz00_10552,3L); } 
{ /* Ieee/string.scm 1264 */

{ /* Ieee/string.scm 1264 */
 int BgL_tmpz00_10560;
{ /* Ieee/string.scm 1264 */
 obj_t BgL_auxz00_10568; obj_t BgL_auxz00_10561;
if(
STRINGP(BgL_s2z00_1854))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10568 = BgL_s2z00_1854
; }  else 
{ 
 obj_t BgL_auxz00_10571;
BgL_auxz00_10571 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1854); 
FAILURE(BgL_auxz00_10571,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1853))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10561 = BgL_s1z00_1853
; }  else 
{ 
 obj_t BgL_auxz00_10564;
BgL_auxz00_10564 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1853); 
FAILURE(BgL_auxz00_10564,BFALSE,BFALSE);} 
BgL_tmpz00_10560 = 
BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_10561, BgL_auxz00_10568, BgL_start1z00_1865, BgL_end1z00_1866, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_10560);} } } } break;case 5L : 

{ /* Ieee/string.scm 1264 */
 obj_t BgL_start1z00_1869;
{ 
 obj_t BgL_auxz00_10577;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10577 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10580;
BgL_auxz00_10580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10580,BFALSE,BFALSE);} 
BgL_start1z00_1869 = 
VECTOR_REF(BgL_auxz00_10577,2L); } 
{ /* Ieee/string.scm 1264 */
 obj_t BgL_end1z00_1870;
{ 
 obj_t BgL_auxz00_10585;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10585 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10588;
BgL_auxz00_10588 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10588,BFALSE,BFALSE);} 
BgL_end1z00_1870 = 
VECTOR_REF(BgL_auxz00_10585,3L); } 
{ /* Ieee/string.scm 1264 */
 obj_t BgL_start2z00_1871;
{ 
 obj_t BgL_auxz00_10593;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10593 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10596;
BgL_auxz00_10596 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10596,BFALSE,BFALSE);} 
BgL_start2z00_1871 = 
VECTOR_REF(BgL_auxz00_10593,4L); } 
{ /* Ieee/string.scm 1264 */

{ /* Ieee/string.scm 1264 */
 int BgL_tmpz00_10601;
{ /* Ieee/string.scm 1264 */
 obj_t BgL_auxz00_10609; obj_t BgL_auxz00_10602;
if(
STRINGP(BgL_s2z00_1854))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10609 = BgL_s2z00_1854
; }  else 
{ 
 obj_t BgL_auxz00_10612;
BgL_auxz00_10612 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1854); 
FAILURE(BgL_auxz00_10612,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1853))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10602 = BgL_s1z00_1853
; }  else 
{ 
 obj_t BgL_auxz00_10605;
BgL_auxz00_10605 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1853); 
FAILURE(BgL_auxz00_10605,BFALSE,BFALSE);} 
BgL_tmpz00_10601 = 
BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_10602, BgL_auxz00_10609, BgL_start1z00_1869, BgL_end1z00_1870, BgL_start2z00_1871, BFALSE); } 
return 
BINT(BgL_tmpz00_10601);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1264 */
 obj_t BgL_start1z00_1873;
{ 
 obj_t BgL_auxz00_10618;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10618 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10621;
BgL_auxz00_10621 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10621,BFALSE,BFALSE);} 
BgL_start1z00_1873 = 
VECTOR_REF(BgL_auxz00_10618,2L); } 
{ /* Ieee/string.scm 1264 */
 obj_t BgL_end1z00_1874;
{ 
 obj_t BgL_auxz00_10626;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10626 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10629;
BgL_auxz00_10629 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10629,BFALSE,BFALSE);} 
BgL_end1z00_1874 = 
VECTOR_REF(BgL_auxz00_10626,3L); } 
{ /* Ieee/string.scm 1264 */
 obj_t BgL_start2z00_1875;
{ 
 obj_t BgL_auxz00_10634;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10634 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10637;
BgL_auxz00_10637 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10637,BFALSE,BFALSE);} 
BgL_start2z00_1875 = 
VECTOR_REF(BgL_auxz00_10634,4L); } 
{ /* Ieee/string.scm 1264 */
 obj_t BgL_end2z00_1876;
{ 
 obj_t BgL_auxz00_10642;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10642 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10645;
BgL_auxz00_10645 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10645,BFALSE,BFALSE);} 
BgL_end2z00_1876 = 
VECTOR_REF(BgL_auxz00_10642,5L); } 
{ /* Ieee/string.scm 1264 */

{ /* Ieee/string.scm 1264 */
 int BgL_tmpz00_10650;
{ /* Ieee/string.scm 1264 */
 obj_t BgL_auxz00_10658; obj_t BgL_auxz00_10651;
if(
STRINGP(BgL_s2z00_1854))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10658 = BgL_s2z00_1854
; }  else 
{ 
 obj_t BgL_auxz00_10661;
BgL_auxz00_10661 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1854); 
FAILURE(BgL_auxz00_10661,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1853))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10651 = BgL_s1z00_1853
; }  else 
{ 
 obj_t BgL_auxz00_10654;
BgL_auxz00_10654 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3926z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1853); 
FAILURE(BgL_auxz00_10654,BFALSE,BFALSE);} 
BgL_tmpz00_10650 = 
BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_10651, BgL_auxz00_10658, BgL_start1z00_1873, BgL_end1z00_1874, BgL_start2z00_1875, BgL_end2z00_1876); } 
return 
BINT(BgL_tmpz00_10650);} } } } } } break;
default: 
{ /* Ieee/string.scm 1264 */
 long BgL_arg1794z00_1877;
{ 
 obj_t BgL_auxz00_10667;
if(
VECTORP(BgL_opt1169z00_198))
{ /* Ieee/string.scm 1264 */
BgL_auxz00_10667 = BgL_opt1169z00_198
; }  else 
{ 
 obj_t BgL_auxz00_10670;
BgL_auxz00_10670 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51271L), BGl_string3927z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1169z00_198); 
FAILURE(BgL_auxz00_10670,BFALSE,BFALSE);} 
BgL_arg1794z00_1877 = 
VECTOR_LENGTH(BgL_auxz00_10667); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3928z00zz__r4_strings_6_7z00, BGl_string3908z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1794z00_1877));} } } } } } 

}



/* string-suffix-length */
BGL_EXPORTED_DEF int BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(obj_t BgL_s1z00_192, obj_t BgL_s2z00_193, obj_t BgL_start1z00_194, obj_t BgL_end1z00_195, obj_t BgL_start2z00_196, obj_t BgL_end2z00_197)
{
{ /* Ieee/string.scm 1264 */
{ /* Ieee/string.scm 1266 */
 long BgL_l1z00_1878;
BgL_l1z00_1878 = 
STRING_LENGTH(BgL_s1z00_192); 
{ /* Ieee/string.scm 1266 */
 long BgL_l2z00_1879;
BgL_l2z00_1879 = 
STRING_LENGTH(BgL_s2z00_193); 
{ /* Ieee/string.scm 1267 */
 obj_t BgL_b1z00_1880;
{ /* Ieee/string.scm 1268 */
 obj_t BgL_procz00_3449;
BgL_procz00_3449 = BGl_symbol3930z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_195))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test4870z00_10682;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3454;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_10683;
if(
INTEGERP(BgL_end1z00_195))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_10683 = BgL_end1z00_195
; }  else 
{ 
 obj_t BgL_auxz00_10686;
BgL_auxz00_10686 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3931z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_195); 
FAILURE(BgL_auxz00_10686,BFALSE,BFALSE);} 
BgL_n1z00_3454 = 
(long)CINT(BgL_tmpz00_10683); } 
BgL_test4870z00_10682 = 
(BgL_n1z00_3454<=0L); } 
if(BgL_test4870z00_10682)
{ /* Ieee/string.scm 1212 */
BgL_b1z00_1880 = 
BGl_errorz00zz__errorz00(BgL_procz00_3449, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_195); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test4872z00_10694;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3455;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_10695;
if(
INTEGERP(BgL_end1z00_195))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_10695 = BgL_end1z00_195
; }  else 
{ 
 obj_t BgL_auxz00_10698;
BgL_auxz00_10698 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3931z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_195); 
FAILURE(BgL_auxz00_10698,BFALSE,BFALSE);} 
BgL_n1z00_3455 = 
(long)CINT(BgL_tmpz00_10695); } 
BgL_test4872z00_10694 = 
(BgL_n1z00_3455>BgL_l1z00_1878); } 
if(BgL_test4872z00_10694)
{ /* Ieee/string.scm 1214 */
BgL_b1z00_1880 = 
BGl_errorz00zz__errorz00(BgL_procz00_3449, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_195); }  else 
{ /* Ieee/string.scm 1214 */
BgL_b1z00_1880 = BgL_end1z00_195; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_b1z00_1880 = 
BINT(BgL_l1z00_1878); } } 
{ /* Ieee/string.scm 1268 */
 obj_t BgL_b2z00_1881;
{ /* Ieee/string.scm 1269 */
 obj_t BgL_procz00_3457;
BgL_procz00_3457 = BGl_symbol3930z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_197))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test4875z00_10709;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3462;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_10710;
if(
INTEGERP(BgL_end2z00_197))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_10710 = BgL_end2z00_197
; }  else 
{ 
 obj_t BgL_auxz00_10713;
BgL_auxz00_10713 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3931z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_197); 
FAILURE(BgL_auxz00_10713,BFALSE,BFALSE);} 
BgL_n1z00_3462 = 
(long)CINT(BgL_tmpz00_10710); } 
BgL_test4875z00_10709 = 
(BgL_n1z00_3462<=0L); } 
if(BgL_test4875z00_10709)
{ /* Ieee/string.scm 1212 */
BgL_b2z00_1881 = 
BGl_errorz00zz__errorz00(BgL_procz00_3457, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_197); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test4877z00_10721;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3463;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_10722;
if(
INTEGERP(BgL_end2z00_197))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_10722 = BgL_end2z00_197
; }  else 
{ 
 obj_t BgL_auxz00_10725;
BgL_auxz00_10725 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3931z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_197); 
FAILURE(BgL_auxz00_10725,BFALSE,BFALSE);} 
BgL_n1z00_3463 = 
(long)CINT(BgL_tmpz00_10722); } 
BgL_test4877z00_10721 = 
(BgL_n1z00_3463>BgL_l2z00_1879); } 
if(BgL_test4877z00_10721)
{ /* Ieee/string.scm 1214 */
BgL_b2z00_1881 = 
BGl_errorz00zz__errorz00(BgL_procz00_3457, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_197); }  else 
{ /* Ieee/string.scm 1214 */
BgL_b2z00_1881 = BgL_end2z00_197; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_b2z00_1881 = 
BINT(BgL_l2z00_1879); } } 
{ /* Ieee/string.scm 1269 */
 obj_t BgL_e1z00_1882;
{ /* Ieee/string.scm 1270 */
 obj_t BgL_procz00_3465;
BgL_procz00_3465 = BGl_symbol3930z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_194))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test4880z00_10736;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3470;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_10737;
if(
INTEGERP(BgL_start1z00_194))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_10737 = BgL_start1z00_194
; }  else 
{ 
 obj_t BgL_auxz00_10740;
BgL_auxz00_10740 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3931z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_194); 
FAILURE(BgL_auxz00_10740,BFALSE,BFALSE);} 
BgL_n1z00_3470 = 
(long)CINT(BgL_tmpz00_10737); } 
BgL_test4880z00_10736 = 
(BgL_n1z00_3470<0L); } 
if(BgL_test4880z00_10736)
{ /* Ieee/string.scm 1198 */
BgL_e1z00_1882 = 
BGl_errorz00zz__errorz00(BgL_procz00_3465, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_194); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test4882z00_10748;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3471;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_10749;
if(
INTEGERP(BgL_start1z00_194))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_10749 = BgL_start1z00_194
; }  else 
{ 
 obj_t BgL_auxz00_10752;
BgL_auxz00_10752 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3931z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_194); 
FAILURE(BgL_auxz00_10752,BFALSE,BFALSE);} 
BgL_n1z00_3471 = 
(long)CINT(BgL_tmpz00_10749); } 
BgL_test4882z00_10748 = 
(BgL_n1z00_3471>=BgL_l1z00_1878); } 
if(BgL_test4882z00_10748)
{ /* Ieee/string.scm 1200 */
BgL_e1z00_1882 = 
BGl_errorz00zz__errorz00(BgL_procz00_3465, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_194); }  else 
{ /* Ieee/string.scm 1200 */
BgL_e1z00_1882 = BgL_start1z00_194; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_e1z00_1882 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1270 */
 obj_t BgL_e2z00_1883;
{ /* Ieee/string.scm 1271 */
 obj_t BgL_procz00_3473;
BgL_procz00_3473 = BGl_symbol3930z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_196))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test4885z00_10763;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3478;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_10764;
if(
INTEGERP(BgL_start2z00_196))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_10764 = BgL_start2z00_196
; }  else 
{ 
 obj_t BgL_auxz00_10767;
BgL_auxz00_10767 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3931z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_196); 
FAILURE(BgL_auxz00_10767,BFALSE,BFALSE);} 
BgL_n1z00_3478 = 
(long)CINT(BgL_tmpz00_10764); } 
BgL_test4885z00_10763 = 
(BgL_n1z00_3478<0L); } 
if(BgL_test4885z00_10763)
{ /* Ieee/string.scm 1198 */
BgL_e2z00_1883 = 
BGl_errorz00zz__errorz00(BgL_procz00_3473, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_196); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test4887z00_10775;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3479;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_10776;
if(
INTEGERP(BgL_start2z00_196))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_10776 = BgL_start2z00_196
; }  else 
{ 
 obj_t BgL_auxz00_10779;
BgL_auxz00_10779 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3931z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_196); 
FAILURE(BgL_auxz00_10779,BFALSE,BFALSE);} 
BgL_n1z00_3479 = 
(long)CINT(BgL_tmpz00_10776); } 
BgL_test4887z00_10775 = 
(BgL_n1z00_3479>=BgL_l2z00_1879); } 
if(BgL_test4887z00_10775)
{ /* Ieee/string.scm 1200 */
BgL_e2z00_1883 = 
BGl_errorz00zz__errorz00(BgL_procz00_3473, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_196); }  else 
{ /* Ieee/string.scm 1200 */
BgL_e2z00_1883 = BgL_start2z00_196; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_e2z00_1883 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1271 */

{ 
 long BgL_i1z00_1887; long BgL_i2z00_1888;
{ /* Ieee/string.scm 1272 */
 long BgL_tmpz00_10788;
{ /* Ieee/string.scm 1272 */
 long BgL_za71za7_3481;
{ /* Ieee/string.scm 1272 */
 obj_t BgL_tmpz00_10857;
if(
INTEGERP(BgL_b1z00_1880))
{ /* Ieee/string.scm 1272 */
BgL_tmpz00_10857 = BgL_b1z00_1880
; }  else 
{ 
 obj_t BgL_auxz00_10860;
BgL_auxz00_10860 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51731L), BGl_string3931z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_1880); 
FAILURE(BgL_auxz00_10860,BFALSE,BFALSE);} 
BgL_za71za7_3481 = 
(long)CINT(BgL_tmpz00_10857); } 
BgL_i1z00_1887 = 
(BgL_za71za7_3481-1L); } 
{ /* Ieee/string.scm 1273 */
 long BgL_za71za7_3482;
{ /* Ieee/string.scm 1273 */
 obj_t BgL_tmpz00_10866;
if(
INTEGERP(BgL_b2z00_1881))
{ /* Ieee/string.scm 1273 */
BgL_tmpz00_10866 = BgL_b2z00_1881
; }  else 
{ 
 obj_t BgL_auxz00_10869;
BgL_auxz00_10869 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51750L), BGl_string3931z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b2z00_1881); 
FAILURE(BgL_auxz00_10869,BFALSE,BFALSE);} 
BgL_za71za7_3482 = 
(long)CINT(BgL_tmpz00_10866); } 
BgL_i2z00_1888 = 
(BgL_za71za7_3482-1L); } 
BgL_zc3z04anonymousza31795ze3z87_1889:
{ /* Ieee/string.scm 1275 */
 bool_t BgL_test4889z00_10789;
{ /* Ieee/string.scm 1275 */
 bool_t BgL_test4890z00_10790;
{ /* Ieee/string.scm 1275 */
 long BgL_n2z00_3484;
{ /* Ieee/string.scm 1275 */
 obj_t BgL_tmpz00_10791;
if(
INTEGERP(BgL_e1z00_1882))
{ /* Ieee/string.scm 1275 */
BgL_tmpz00_10791 = BgL_e1z00_1882
; }  else 
{ 
 obj_t BgL_auxz00_10794;
BgL_auxz00_10794 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51784L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e1z00_1882); 
FAILURE(BgL_auxz00_10794,BFALSE,BFALSE);} 
BgL_n2z00_3484 = 
(long)CINT(BgL_tmpz00_10791); } 
BgL_test4890z00_10790 = 
(BgL_i1z00_1887<BgL_n2z00_3484); } 
if(BgL_test4890z00_10790)
{ /* Ieee/string.scm 1275 */
BgL_test4889z00_10789 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1275 */
 long BgL_n2z00_3486;
{ /* Ieee/string.scm 1275 */
 obj_t BgL_tmpz00_10800;
if(
INTEGERP(BgL_e2z00_1883))
{ /* Ieee/string.scm 1275 */
BgL_tmpz00_10800 = BgL_e2z00_1883
; }  else 
{ 
 obj_t BgL_auxz00_10803;
BgL_auxz00_10803 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51796L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e2z00_1883); 
FAILURE(BgL_auxz00_10803,BFALSE,BFALSE);} 
BgL_n2z00_3486 = 
(long)CINT(BgL_tmpz00_10800); } 
BgL_test4889z00_10789 = 
(BgL_i2z00_1888<BgL_n2z00_3486); } } 
if(BgL_test4889z00_10789)
{ /* Ieee/string.scm 1276 */
 long BgL_za71za7_3488;
{ /* Ieee/string.scm 1276 */
 obj_t BgL_tmpz00_10809;
if(
INTEGERP(BgL_b1z00_1880))
{ /* Ieee/string.scm 1276 */
BgL_tmpz00_10809 = BgL_b1z00_1880
; }  else 
{ 
 obj_t BgL_auxz00_10812;
BgL_auxz00_10812 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51812L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_1880); 
FAILURE(BgL_auxz00_10812,BFALSE,BFALSE);} 
BgL_za71za7_3488 = 
(long)CINT(BgL_tmpz00_10809); } 
BgL_tmpz00_10788 = 
(BgL_za71za7_3488-
(BgL_i1z00_1887+1L)); }  else 
{ /* Ieee/string.scm 1277 */
 bool_t BgL_test4894z00_10819;
{ /* Ieee/string.scm 1277 */
 unsigned char BgL_auxz00_10831; unsigned char BgL_tmpz00_10820;
{ /* Ieee/string.scm 331 */
 long BgL_l2553z00_4502;
BgL_l2553z00_4502 = 
STRING_LENGTH(BgL_s2z00_193); 
if(
BOUND_CHECK(BgL_i2z00_1888, BgL_l2553z00_4502))
{ /* Ieee/string.scm 331 */
BgL_auxz00_10831 = 
STRING_REF(BgL_s2z00_193, BgL_i2z00_1888)
; }  else 
{ 
 obj_t BgL_auxz00_10836;
BgL_auxz00_10836 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s2z00_193, 
(int)(BgL_l2553z00_4502), 
(int)(BgL_i2z00_1888)); 
FAILURE(BgL_auxz00_10836,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 331 */
 long BgL_l2549z00_4498;
BgL_l2549z00_4498 = 
STRING_LENGTH(BgL_s1z00_192); 
if(
BOUND_CHECK(BgL_i1z00_1887, BgL_l2549z00_4498))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_10820 = 
STRING_REF(BgL_s1z00_192, BgL_i1z00_1887)
; }  else 
{ 
 obj_t BgL_auxz00_10825;
BgL_auxz00_10825 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s1z00_192, 
(int)(BgL_l2549z00_4498), 
(int)(BgL_i1z00_1887)); 
FAILURE(BgL_auxz00_10825,BFALSE,BFALSE);} } 
BgL_test4894z00_10819 = 
(BgL_tmpz00_10820==BgL_auxz00_10831); } 
if(BgL_test4894z00_10819)
{ 
 long BgL_i2z00_10845; long BgL_i1z00_10843;
BgL_i1z00_10843 = 
(BgL_i1z00_1887-1L); 
BgL_i2z00_10845 = 
(BgL_i2z00_1888-1L); 
BgL_i2z00_1888 = BgL_i2z00_10845; 
BgL_i1z00_1887 = BgL_i1z00_10843; 
goto BgL_zc3z04anonymousza31795ze3z87_1889;}  else 
{ /* Ieee/string.scm 1280 */
 long BgL_za71za7_3499;
{ /* Ieee/string.scm 1280 */
 obj_t BgL_tmpz00_10847;
if(
INTEGERP(BgL_b1z00_1880))
{ /* Ieee/string.scm 1280 */
BgL_tmpz00_10847 = BgL_b1z00_1880
; }  else 
{ 
 obj_t BgL_auxz00_10850;
BgL_auxz00_10850 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(51939L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_1880); 
FAILURE(BgL_auxz00_10850,BFALSE,BFALSE);} 
BgL_za71za7_3499 = 
(long)CINT(BgL_tmpz00_10847); } 
BgL_tmpz00_10788 = 
(BgL_za71za7_3499-
(BgL_i1z00_1887+1L)); } } } 
return 
(int)(BgL_tmpz00_10788);} } } } } } } } } } 

}



/* _string-suffix-length-ci */
obj_t BGl__stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t BgL_env1174z00_207, obj_t BgL_opt1173z00_206)
{
{ /* Ieee/string.scm 1285 */
{ /* Ieee/string.scm 1285 */
 obj_t BgL_s1z00_1903; obj_t BgL_s2z00_1904;
{ 
 obj_t BgL_auxz00_10876;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10876 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_10879;
BgL_auxz00_10879 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_10879,BFALSE,BFALSE);} 
BgL_s1z00_1903 = 
VECTOR_REF(BgL_auxz00_10876,0L); } 
{ 
 obj_t BgL_auxz00_10884;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10884 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_10887;
BgL_auxz00_10887 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_10887,BFALSE,BFALSE);} 
BgL_s2z00_1904 = 
VECTOR_REF(BgL_auxz00_10884,1L); } 
{ 

{ /* Ieee/string.scm 1285 */
 long BgL_aux1176z00_1906;
{ 
 obj_t BgL_auxz00_10892;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10892 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_10895;
BgL_auxz00_10895 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_10895,BFALSE,BFALSE);} 
BgL_aux1176z00_1906 = 
VECTOR_LENGTH(BgL_auxz00_10892); } 
switch( BgL_aux1176z00_1906) { case 2L : 

{ /* Ieee/string.scm 1285 */

{ /* Ieee/string.scm 1285 */
 int BgL_tmpz00_10900;
{ /* Ieee/string.scm 1285 */
 obj_t BgL_auxz00_10908; obj_t BgL_auxz00_10901;
if(
STRINGP(BgL_s2z00_1904))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10908 = BgL_s2z00_1904
; }  else 
{ 
 obj_t BgL_auxz00_10911;
BgL_auxz00_10911 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1904); 
FAILURE(BgL_auxz00_10911,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1903))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10901 = BgL_s1z00_1903
; }  else 
{ 
 obj_t BgL_auxz00_10904;
BgL_auxz00_10904 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1903); 
FAILURE(BgL_auxz00_10904,BFALSE,BFALSE);} 
BgL_tmpz00_10900 = 
BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_10901, BgL_auxz00_10908, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_10900);} } break;case 3L : 

{ /* Ieee/string.scm 1285 */
 obj_t BgL_start1z00_1911;
{ 
 obj_t BgL_auxz00_10917;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10917 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_10920;
BgL_auxz00_10920 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_10920,BFALSE,BFALSE);} 
BgL_start1z00_1911 = 
VECTOR_REF(BgL_auxz00_10917,2L); } 
{ /* Ieee/string.scm 1285 */

{ /* Ieee/string.scm 1285 */
 int BgL_tmpz00_10925;
{ /* Ieee/string.scm 1285 */
 obj_t BgL_auxz00_10933; obj_t BgL_auxz00_10926;
if(
STRINGP(BgL_s2z00_1904))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10933 = BgL_s2z00_1904
; }  else 
{ 
 obj_t BgL_auxz00_10936;
BgL_auxz00_10936 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1904); 
FAILURE(BgL_auxz00_10936,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1903))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10926 = BgL_s1z00_1903
; }  else 
{ 
 obj_t BgL_auxz00_10929;
BgL_auxz00_10929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1903); 
FAILURE(BgL_auxz00_10929,BFALSE,BFALSE);} 
BgL_tmpz00_10925 = 
BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_10926, BgL_auxz00_10933, BgL_start1z00_1911, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_10925);} } } break;case 4L : 

{ /* Ieee/string.scm 1285 */
 obj_t BgL_start1z00_1915;
{ 
 obj_t BgL_auxz00_10942;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10942 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_10945;
BgL_auxz00_10945 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_10945,BFALSE,BFALSE);} 
BgL_start1z00_1915 = 
VECTOR_REF(BgL_auxz00_10942,2L); } 
{ /* Ieee/string.scm 1285 */
 obj_t BgL_end1z00_1916;
{ 
 obj_t BgL_auxz00_10950;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10950 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_10953;
BgL_auxz00_10953 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_10953,BFALSE,BFALSE);} 
BgL_end1z00_1916 = 
VECTOR_REF(BgL_auxz00_10950,3L); } 
{ /* Ieee/string.scm 1285 */

{ /* Ieee/string.scm 1285 */
 int BgL_tmpz00_10958;
{ /* Ieee/string.scm 1285 */
 obj_t BgL_auxz00_10966; obj_t BgL_auxz00_10959;
if(
STRINGP(BgL_s2z00_1904))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10966 = BgL_s2z00_1904
; }  else 
{ 
 obj_t BgL_auxz00_10969;
BgL_auxz00_10969 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1904); 
FAILURE(BgL_auxz00_10969,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1903))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10959 = BgL_s1z00_1903
; }  else 
{ 
 obj_t BgL_auxz00_10962;
BgL_auxz00_10962 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1903); 
FAILURE(BgL_auxz00_10962,BFALSE,BFALSE);} 
BgL_tmpz00_10958 = 
BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_10959, BgL_auxz00_10966, BgL_start1z00_1915, BgL_end1z00_1916, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_10958);} } } } break;case 5L : 

{ /* Ieee/string.scm 1285 */
 obj_t BgL_start1z00_1919;
{ 
 obj_t BgL_auxz00_10975;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10975 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_10978;
BgL_auxz00_10978 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_10978,BFALSE,BFALSE);} 
BgL_start1z00_1919 = 
VECTOR_REF(BgL_auxz00_10975,2L); } 
{ /* Ieee/string.scm 1285 */
 obj_t BgL_end1z00_1920;
{ 
 obj_t BgL_auxz00_10983;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10983 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_10986;
BgL_auxz00_10986 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_10986,BFALSE,BFALSE);} 
BgL_end1z00_1920 = 
VECTOR_REF(BgL_auxz00_10983,3L); } 
{ /* Ieee/string.scm 1285 */
 obj_t BgL_start2z00_1921;
{ 
 obj_t BgL_auxz00_10991;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_10991 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_10994;
BgL_auxz00_10994 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_10994,BFALSE,BFALSE);} 
BgL_start2z00_1921 = 
VECTOR_REF(BgL_auxz00_10991,4L); } 
{ /* Ieee/string.scm 1285 */

{ /* Ieee/string.scm 1285 */
 int BgL_tmpz00_10999;
{ /* Ieee/string.scm 1285 */
 obj_t BgL_auxz00_11007; obj_t BgL_auxz00_11000;
if(
STRINGP(BgL_s2z00_1904))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_11007 = BgL_s2z00_1904
; }  else 
{ 
 obj_t BgL_auxz00_11010;
BgL_auxz00_11010 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1904); 
FAILURE(BgL_auxz00_11010,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1903))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_11000 = BgL_s1z00_1903
; }  else 
{ 
 obj_t BgL_auxz00_11003;
BgL_auxz00_11003 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1903); 
FAILURE(BgL_auxz00_11003,BFALSE,BFALSE);} 
BgL_tmpz00_10999 = 
BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_11000, BgL_auxz00_11007, BgL_start1z00_1919, BgL_end1z00_1920, BgL_start2z00_1921, BFALSE); } 
return 
BINT(BgL_tmpz00_10999);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1285 */
 obj_t BgL_start1z00_1923;
{ 
 obj_t BgL_auxz00_11016;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_11016 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_11019;
BgL_auxz00_11019 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_11019,BFALSE,BFALSE);} 
BgL_start1z00_1923 = 
VECTOR_REF(BgL_auxz00_11016,2L); } 
{ /* Ieee/string.scm 1285 */
 obj_t BgL_end1z00_1924;
{ 
 obj_t BgL_auxz00_11024;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_11024 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_11027;
BgL_auxz00_11027 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_11027,BFALSE,BFALSE);} 
BgL_end1z00_1924 = 
VECTOR_REF(BgL_auxz00_11024,3L); } 
{ /* Ieee/string.scm 1285 */
 obj_t BgL_start2z00_1925;
{ 
 obj_t BgL_auxz00_11032;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_11032 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_11035;
BgL_auxz00_11035 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_11035,BFALSE,BFALSE);} 
BgL_start2z00_1925 = 
VECTOR_REF(BgL_auxz00_11032,4L); } 
{ /* Ieee/string.scm 1285 */
 obj_t BgL_end2z00_1926;
{ 
 obj_t BgL_auxz00_11040;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_11040 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_11043;
BgL_auxz00_11043 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_11043,BFALSE,BFALSE);} 
BgL_end2z00_1926 = 
VECTOR_REF(BgL_auxz00_11040,5L); } 
{ /* Ieee/string.scm 1285 */

{ /* Ieee/string.scm 1285 */
 int BgL_tmpz00_11048;
{ /* Ieee/string.scm 1285 */
 obj_t BgL_auxz00_11056; obj_t BgL_auxz00_11049;
if(
STRINGP(BgL_s2z00_1904))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_11056 = BgL_s2z00_1904
; }  else 
{ 
 obj_t BgL_auxz00_11059;
BgL_auxz00_11059 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1904); 
FAILURE(BgL_auxz00_11059,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1903))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_11049 = BgL_s1z00_1903
; }  else 
{ 
 obj_t BgL_auxz00_11052;
BgL_auxz00_11052 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3932z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1903); 
FAILURE(BgL_auxz00_11052,BFALSE,BFALSE);} 
BgL_tmpz00_11048 = 
BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_11049, BgL_auxz00_11056, BgL_start1z00_1923, BgL_end1z00_1924, BgL_start2z00_1925, BgL_end2z00_1926); } 
return 
BINT(BgL_tmpz00_11048);} } } } } } break;
default: 
{ /* Ieee/string.scm 1285 */
 long BgL_arg1809z00_1927;
{ 
 obj_t BgL_auxz00_11065;
if(
VECTORP(BgL_opt1173z00_206))
{ /* Ieee/string.scm 1285 */
BgL_auxz00_11065 = BgL_opt1173z00_206
; }  else 
{ 
 obj_t BgL_auxz00_11068;
BgL_auxz00_11068 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52182L), BGl_string3933z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1173z00_206); 
FAILURE(BgL_auxz00_11068,BFALSE,BFALSE);} 
BgL_arg1809z00_1927 = 
VECTOR_LENGTH(BgL_auxz00_11065); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3934z00zz__r4_strings_6_7z00, BGl_string3908z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1809z00_1927));} } } } } } 

}



/* string-suffix-length-ci */
BGL_EXPORTED_DEF int BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t BgL_s1z00_200, obj_t BgL_s2z00_201, obj_t BgL_start1z00_202, obj_t BgL_end1z00_203, obj_t BgL_start2z00_204, obj_t BgL_end2z00_205)
{
{ /* Ieee/string.scm 1285 */
{ /* Ieee/string.scm 1287 */
 long BgL_l1z00_1928;
BgL_l1z00_1928 = 
STRING_LENGTH(BgL_s1z00_200); 
{ /* Ieee/string.scm 1287 */
 long BgL_l2z00_1929;
BgL_l2z00_1929 = 
STRING_LENGTH(BgL_s2z00_201); 
{ /* Ieee/string.scm 1288 */
 obj_t BgL_b1z00_1930;
{ /* Ieee/string.scm 1289 */
 obj_t BgL_procz00_3503;
BgL_procz00_3503 = BGl_symbol3936z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_203))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test4925z00_11080;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3508;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_11081;
if(
INTEGERP(BgL_end1z00_203))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_11081 = BgL_end1z00_203
; }  else 
{ 
 obj_t BgL_auxz00_11084;
BgL_auxz00_11084 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3937z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_203); 
FAILURE(BgL_auxz00_11084,BFALSE,BFALSE);} 
BgL_n1z00_3508 = 
(long)CINT(BgL_tmpz00_11081); } 
BgL_test4925z00_11080 = 
(BgL_n1z00_3508<=0L); } 
if(BgL_test4925z00_11080)
{ /* Ieee/string.scm 1212 */
BgL_b1z00_1930 = 
BGl_errorz00zz__errorz00(BgL_procz00_3503, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_203); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test4927z00_11092;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3509;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_11093;
if(
INTEGERP(BgL_end1z00_203))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_11093 = BgL_end1z00_203
; }  else 
{ 
 obj_t BgL_auxz00_11096;
BgL_auxz00_11096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3937z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_203); 
FAILURE(BgL_auxz00_11096,BFALSE,BFALSE);} 
BgL_n1z00_3509 = 
(long)CINT(BgL_tmpz00_11093); } 
BgL_test4927z00_11092 = 
(BgL_n1z00_3509>BgL_l1z00_1928); } 
if(BgL_test4927z00_11092)
{ /* Ieee/string.scm 1214 */
BgL_b1z00_1930 = 
BGl_errorz00zz__errorz00(BgL_procz00_3503, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_203); }  else 
{ /* Ieee/string.scm 1214 */
BgL_b1z00_1930 = BgL_end1z00_203; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_b1z00_1930 = 
BINT(BgL_l1z00_1928); } } 
{ /* Ieee/string.scm 1289 */
 obj_t BgL_b2z00_1931;
{ /* Ieee/string.scm 1290 */
 obj_t BgL_procz00_3511;
BgL_procz00_3511 = BGl_symbol3936z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_205))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test4930z00_11107;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3516;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_11108;
if(
INTEGERP(BgL_end2z00_205))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_11108 = BgL_end2z00_205
; }  else 
{ 
 obj_t BgL_auxz00_11111;
BgL_auxz00_11111 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3937z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_205); 
FAILURE(BgL_auxz00_11111,BFALSE,BFALSE);} 
BgL_n1z00_3516 = 
(long)CINT(BgL_tmpz00_11108); } 
BgL_test4930z00_11107 = 
(BgL_n1z00_3516<=0L); } 
if(BgL_test4930z00_11107)
{ /* Ieee/string.scm 1212 */
BgL_b2z00_1931 = 
BGl_errorz00zz__errorz00(BgL_procz00_3511, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_205); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test4932z00_11119;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3517;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_11120;
if(
INTEGERP(BgL_end2z00_205))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_11120 = BgL_end2z00_205
; }  else 
{ 
 obj_t BgL_auxz00_11123;
BgL_auxz00_11123 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3937z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_205); 
FAILURE(BgL_auxz00_11123,BFALSE,BFALSE);} 
BgL_n1z00_3517 = 
(long)CINT(BgL_tmpz00_11120); } 
BgL_test4932z00_11119 = 
(BgL_n1z00_3517>BgL_l2z00_1929); } 
if(BgL_test4932z00_11119)
{ /* Ieee/string.scm 1214 */
BgL_b2z00_1931 = 
BGl_errorz00zz__errorz00(BgL_procz00_3511, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_205); }  else 
{ /* Ieee/string.scm 1214 */
BgL_b2z00_1931 = BgL_end2z00_205; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_b2z00_1931 = 
BINT(BgL_l2z00_1929); } } 
{ /* Ieee/string.scm 1290 */
 obj_t BgL_e1z00_1932;
{ /* Ieee/string.scm 1291 */
 obj_t BgL_procz00_3519;
BgL_procz00_3519 = BGl_symbol3936z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_202))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test4935z00_11134;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3524;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_11135;
if(
INTEGERP(BgL_start1z00_202))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_11135 = BgL_start1z00_202
; }  else 
{ 
 obj_t BgL_auxz00_11138;
BgL_auxz00_11138 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3937z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_202); 
FAILURE(BgL_auxz00_11138,BFALSE,BFALSE);} 
BgL_n1z00_3524 = 
(long)CINT(BgL_tmpz00_11135); } 
BgL_test4935z00_11134 = 
(BgL_n1z00_3524<0L); } 
if(BgL_test4935z00_11134)
{ /* Ieee/string.scm 1198 */
BgL_e1z00_1932 = 
BGl_errorz00zz__errorz00(BgL_procz00_3519, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_202); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test4937z00_11146;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3525;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_11147;
if(
INTEGERP(BgL_start1z00_202))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_11147 = BgL_start1z00_202
; }  else 
{ 
 obj_t BgL_auxz00_11150;
BgL_auxz00_11150 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3937z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_202); 
FAILURE(BgL_auxz00_11150,BFALSE,BFALSE);} 
BgL_n1z00_3525 = 
(long)CINT(BgL_tmpz00_11147); } 
BgL_test4937z00_11146 = 
(BgL_n1z00_3525>=BgL_l1z00_1928); } 
if(BgL_test4937z00_11146)
{ /* Ieee/string.scm 1200 */
BgL_e1z00_1932 = 
BGl_errorz00zz__errorz00(BgL_procz00_3519, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_202); }  else 
{ /* Ieee/string.scm 1200 */
BgL_e1z00_1932 = BgL_start1z00_202; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_e1z00_1932 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1291 */
 obj_t BgL_e2z00_1933;
{ /* Ieee/string.scm 1292 */
 obj_t BgL_procz00_3527;
BgL_procz00_3527 = BGl_symbol3936z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_204))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test4940z00_11161;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3532;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_11162;
if(
INTEGERP(BgL_start2z00_204))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_11162 = BgL_start2z00_204
; }  else 
{ 
 obj_t BgL_auxz00_11165;
BgL_auxz00_11165 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3937z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_204); 
FAILURE(BgL_auxz00_11165,BFALSE,BFALSE);} 
BgL_n1z00_3532 = 
(long)CINT(BgL_tmpz00_11162); } 
BgL_test4940z00_11161 = 
(BgL_n1z00_3532<0L); } 
if(BgL_test4940z00_11161)
{ /* Ieee/string.scm 1198 */
BgL_e2z00_1933 = 
BGl_errorz00zz__errorz00(BgL_procz00_3527, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_204); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test4942z00_11173;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3533;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_11174;
if(
INTEGERP(BgL_start2z00_204))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_11174 = BgL_start2z00_204
; }  else 
{ 
 obj_t BgL_auxz00_11177;
BgL_auxz00_11177 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3937z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_204); 
FAILURE(BgL_auxz00_11177,BFALSE,BFALSE);} 
BgL_n1z00_3533 = 
(long)CINT(BgL_tmpz00_11174); } 
BgL_test4942z00_11173 = 
(BgL_n1z00_3533>=BgL_l2z00_1929); } 
if(BgL_test4942z00_11173)
{ /* Ieee/string.scm 1200 */
BgL_e2z00_1933 = 
BGl_errorz00zz__errorz00(BgL_procz00_3527, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_204); }  else 
{ /* Ieee/string.scm 1200 */
BgL_e2z00_1933 = BgL_start2z00_204; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_e2z00_1933 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1292 */

{ 
 long BgL_i1z00_1937; long BgL_i2z00_1938;
{ /* Ieee/string.scm 1293 */
 long BgL_tmpz00_11186;
{ /* Ieee/string.scm 1293 */
 long BgL_za71za7_3535;
{ /* Ieee/string.scm 1293 */
 obj_t BgL_tmpz00_11259;
if(
INTEGERP(BgL_b1z00_1930))
{ /* Ieee/string.scm 1293 */
BgL_tmpz00_11259 = BgL_b1z00_1930
; }  else 
{ 
 obj_t BgL_auxz00_11262;
BgL_auxz00_11262 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52660L), BGl_string3937z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_1930); 
FAILURE(BgL_auxz00_11262,BFALSE,BFALSE);} 
BgL_za71za7_3535 = 
(long)CINT(BgL_tmpz00_11259); } 
BgL_i1z00_1937 = 
(BgL_za71za7_3535-1L); } 
{ /* Ieee/string.scm 1294 */
 long BgL_za71za7_3536;
{ /* Ieee/string.scm 1294 */
 obj_t BgL_tmpz00_11268;
if(
INTEGERP(BgL_b2z00_1931))
{ /* Ieee/string.scm 1294 */
BgL_tmpz00_11268 = BgL_b2z00_1931
; }  else 
{ 
 obj_t BgL_auxz00_11271;
BgL_auxz00_11271 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52679L), BGl_string3937z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b2z00_1931); 
FAILURE(BgL_auxz00_11271,BFALSE,BFALSE);} 
BgL_za71za7_3536 = 
(long)CINT(BgL_tmpz00_11268); } 
BgL_i2z00_1938 = 
(BgL_za71za7_3536-1L); } 
BgL_zc3z04anonymousza31810ze3z87_1939:
{ /* Ieee/string.scm 1296 */
 bool_t BgL_test4944z00_11187;
{ /* Ieee/string.scm 1296 */
 bool_t BgL_test4945z00_11188;
{ /* Ieee/string.scm 1296 */
 long BgL_n2z00_3538;
{ /* Ieee/string.scm 1296 */
 obj_t BgL_tmpz00_11189;
if(
INTEGERP(BgL_e1z00_1932))
{ /* Ieee/string.scm 1296 */
BgL_tmpz00_11189 = BgL_e1z00_1932
; }  else 
{ 
 obj_t BgL_auxz00_11192;
BgL_auxz00_11192 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52713L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e1z00_1932); 
FAILURE(BgL_auxz00_11192,BFALSE,BFALSE);} 
BgL_n2z00_3538 = 
(long)CINT(BgL_tmpz00_11189); } 
BgL_test4945z00_11188 = 
(BgL_i1z00_1937<BgL_n2z00_3538); } 
if(BgL_test4945z00_11188)
{ /* Ieee/string.scm 1296 */
BgL_test4944z00_11187 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1296 */
 long BgL_n2z00_3540;
{ /* Ieee/string.scm 1296 */
 obj_t BgL_tmpz00_11198;
if(
INTEGERP(BgL_e2z00_1933))
{ /* Ieee/string.scm 1296 */
BgL_tmpz00_11198 = BgL_e2z00_1933
; }  else 
{ 
 obj_t BgL_auxz00_11201;
BgL_auxz00_11201 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52725L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e2z00_1933); 
FAILURE(BgL_auxz00_11201,BFALSE,BFALSE);} 
BgL_n2z00_3540 = 
(long)CINT(BgL_tmpz00_11198); } 
BgL_test4944z00_11187 = 
(BgL_i2z00_1938<BgL_n2z00_3540); } } 
if(BgL_test4944z00_11187)
{ /* Ieee/string.scm 1297 */
 long BgL_za71za7_3542;
{ /* Ieee/string.scm 1297 */
 obj_t BgL_tmpz00_11207;
if(
INTEGERP(BgL_b1z00_1930))
{ /* Ieee/string.scm 1297 */
BgL_tmpz00_11207 = BgL_b1z00_1930
; }  else 
{ 
 obj_t BgL_auxz00_11210;
BgL_auxz00_11210 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52741L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_1930); 
FAILURE(BgL_auxz00_11210,BFALSE,BFALSE);} 
BgL_za71za7_3542 = 
(long)CINT(BgL_tmpz00_11207); } 
BgL_tmpz00_11186 = 
(BgL_za71za7_3542-
(BgL_i1z00_1937+1L)); }  else 
{ /* Ieee/string.scm 1298 */
 bool_t BgL_test4949z00_11217;
{ /* Ieee/string.scm 1298 */
 unsigned char BgL_auxz00_11231; unsigned char BgL_tmpz00_11218;
{ /* Ieee/string.scm 1298 */
 unsigned char BgL_tmpz00_11232;
{ /* Ieee/string.scm 331 */
 long BgL_l2561z00_4510;
BgL_l2561z00_4510 = 
STRING_LENGTH(BgL_s2z00_201); 
if(
BOUND_CHECK(BgL_i2z00_1938, BgL_l2561z00_4510))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_11232 = 
STRING_REF(BgL_s2z00_201, BgL_i2z00_1938)
; }  else 
{ 
 obj_t BgL_auxz00_11237;
BgL_auxz00_11237 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s2z00_201, 
(int)(BgL_l2561z00_4510), 
(int)(BgL_i2z00_1938)); 
FAILURE(BgL_auxz00_11237,BFALSE,BFALSE);} } 
BgL_auxz00_11231 = 
toupper(BgL_tmpz00_11232); } 
{ /* Ieee/string.scm 1298 */
 unsigned char BgL_tmpz00_11219;
{ /* Ieee/string.scm 331 */
 long BgL_l2557z00_4506;
BgL_l2557z00_4506 = 
STRING_LENGTH(BgL_s1z00_200); 
if(
BOUND_CHECK(BgL_i1z00_1937, BgL_l2557z00_4506))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_11219 = 
STRING_REF(BgL_s1z00_200, BgL_i1z00_1937)
; }  else 
{ 
 obj_t BgL_auxz00_11224;
BgL_auxz00_11224 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s1z00_200, 
(int)(BgL_l2557z00_4506), 
(int)(BgL_i1z00_1937)); 
FAILURE(BgL_auxz00_11224,BFALSE,BFALSE);} } 
BgL_tmpz00_11218 = 
toupper(BgL_tmpz00_11219); } 
BgL_test4949z00_11217 = 
(BgL_tmpz00_11218==BgL_auxz00_11231); } 
if(BgL_test4949z00_11217)
{ 
 long BgL_i2z00_11247; long BgL_i1z00_11245;
BgL_i1z00_11245 = 
(BgL_i1z00_1937-1L); 
BgL_i2z00_11247 = 
(BgL_i2z00_1938-1L); 
BgL_i2z00_1938 = BgL_i2z00_11247; 
BgL_i1z00_1937 = BgL_i1z00_11245; 
goto BgL_zc3z04anonymousza31810ze3z87_1939;}  else 
{ /* Ieee/string.scm 1301 */
 long BgL_za71za7_3559;
{ /* Ieee/string.scm 1301 */
 obj_t BgL_tmpz00_11249;
if(
INTEGERP(BgL_b1z00_1930))
{ /* Ieee/string.scm 1301 */
BgL_tmpz00_11249 = BgL_b1z00_1930
; }  else 
{ 
 obj_t BgL_auxz00_11252;
BgL_auxz00_11252 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(52871L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_1930); 
FAILURE(BgL_auxz00_11252,BFALSE,BFALSE);} 
BgL_za71za7_3559 = 
(long)CINT(BgL_tmpz00_11249); } 
BgL_tmpz00_11186 = 
(BgL_za71za7_3559-
(BgL_i1z00_1937+1L)); } } } 
return 
(int)(BgL_tmpz00_11186);} } } } } } } } } } 

}



/* _string-prefix? */
obj_t BGl__stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t BgL_env1178z00_215, obj_t BgL_opt1177z00_214)
{
{ /* Ieee/string.scm 1306 */
{ /* Ieee/string.scm 1306 */
 obj_t BgL_s1z00_1953; obj_t BgL_s2z00_1954;
{ 
 obj_t BgL_auxz00_11278;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11278 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11281;
BgL_auxz00_11281 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11281,BFALSE,BFALSE);} 
BgL_s1z00_1953 = 
VECTOR_REF(BgL_auxz00_11278,0L); } 
{ 
 obj_t BgL_auxz00_11286;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11286 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11289;
BgL_auxz00_11289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11289,BFALSE,BFALSE);} 
BgL_s2z00_1954 = 
VECTOR_REF(BgL_auxz00_11286,1L); } 
{ 

{ /* Ieee/string.scm 1306 */
 long BgL_aux1180z00_1956;
{ 
 obj_t BgL_auxz00_11294;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11294 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11297;
BgL_auxz00_11297 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11297,BFALSE,BFALSE);} 
BgL_aux1180z00_1956 = 
VECTOR_LENGTH(BgL_auxz00_11294); } 
switch( BgL_aux1180z00_1956) { case 2L : 

{ /* Ieee/string.scm 1306 */

{ /* Ieee/string.scm 1306 */
 bool_t BgL_tmpz00_11302;
{ /* Ieee/string.scm 1306 */
 obj_t BgL_auxz00_11310; obj_t BgL_auxz00_11303;
if(
STRINGP(BgL_s2z00_1954))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11310 = BgL_s2z00_1954
; }  else 
{ 
 obj_t BgL_auxz00_11313;
BgL_auxz00_11313 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1954); 
FAILURE(BgL_auxz00_11313,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1953))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11303 = BgL_s1z00_1953
; }  else 
{ 
 obj_t BgL_auxz00_11306;
BgL_auxz00_11306 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1953); 
FAILURE(BgL_auxz00_11306,BFALSE,BFALSE);} 
BgL_tmpz00_11302 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_11303, BgL_auxz00_11310, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_11302);} } break;case 3L : 

{ /* Ieee/string.scm 1306 */
 obj_t BgL_start1z00_1961;
{ 
 obj_t BgL_auxz00_11319;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11319 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11322;
BgL_auxz00_11322 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11322,BFALSE,BFALSE);} 
BgL_start1z00_1961 = 
VECTOR_REF(BgL_auxz00_11319,2L); } 
{ /* Ieee/string.scm 1306 */

{ /* Ieee/string.scm 1306 */
 bool_t BgL_tmpz00_11327;
{ /* Ieee/string.scm 1306 */
 obj_t BgL_auxz00_11335; obj_t BgL_auxz00_11328;
if(
STRINGP(BgL_s2z00_1954))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11335 = BgL_s2z00_1954
; }  else 
{ 
 obj_t BgL_auxz00_11338;
BgL_auxz00_11338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1954); 
FAILURE(BgL_auxz00_11338,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1953))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11328 = BgL_s1z00_1953
; }  else 
{ 
 obj_t BgL_auxz00_11331;
BgL_auxz00_11331 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1953); 
FAILURE(BgL_auxz00_11331,BFALSE,BFALSE);} 
BgL_tmpz00_11327 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_11328, BgL_auxz00_11335, BgL_start1z00_1961, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_11327);} } } break;case 4L : 

{ /* Ieee/string.scm 1306 */
 obj_t BgL_start1z00_1965;
{ 
 obj_t BgL_auxz00_11344;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11344 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11347;
BgL_auxz00_11347 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11347,BFALSE,BFALSE);} 
BgL_start1z00_1965 = 
VECTOR_REF(BgL_auxz00_11344,2L); } 
{ /* Ieee/string.scm 1306 */
 obj_t BgL_end1z00_1966;
{ 
 obj_t BgL_auxz00_11352;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11352 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11355;
BgL_auxz00_11355 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11355,BFALSE,BFALSE);} 
BgL_end1z00_1966 = 
VECTOR_REF(BgL_auxz00_11352,3L); } 
{ /* Ieee/string.scm 1306 */

{ /* Ieee/string.scm 1306 */
 bool_t BgL_tmpz00_11360;
{ /* Ieee/string.scm 1306 */
 obj_t BgL_auxz00_11368; obj_t BgL_auxz00_11361;
if(
STRINGP(BgL_s2z00_1954))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11368 = BgL_s2z00_1954
; }  else 
{ 
 obj_t BgL_auxz00_11371;
BgL_auxz00_11371 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1954); 
FAILURE(BgL_auxz00_11371,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1953))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11361 = BgL_s1z00_1953
; }  else 
{ 
 obj_t BgL_auxz00_11364;
BgL_auxz00_11364 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1953); 
FAILURE(BgL_auxz00_11364,BFALSE,BFALSE);} 
BgL_tmpz00_11360 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_11361, BgL_auxz00_11368, BgL_start1z00_1965, BgL_end1z00_1966, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_11360);} } } } break;case 5L : 

{ /* Ieee/string.scm 1306 */
 obj_t BgL_start1z00_1969;
{ 
 obj_t BgL_auxz00_11377;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11377 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11380;
BgL_auxz00_11380 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11380,BFALSE,BFALSE);} 
BgL_start1z00_1969 = 
VECTOR_REF(BgL_auxz00_11377,2L); } 
{ /* Ieee/string.scm 1306 */
 obj_t BgL_end1z00_1970;
{ 
 obj_t BgL_auxz00_11385;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11385 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11388;
BgL_auxz00_11388 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11388,BFALSE,BFALSE);} 
BgL_end1z00_1970 = 
VECTOR_REF(BgL_auxz00_11385,3L); } 
{ /* Ieee/string.scm 1306 */
 obj_t BgL_start2z00_1971;
{ 
 obj_t BgL_auxz00_11393;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11393 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11396;
BgL_auxz00_11396 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11396,BFALSE,BFALSE);} 
BgL_start2z00_1971 = 
VECTOR_REF(BgL_auxz00_11393,4L); } 
{ /* Ieee/string.scm 1306 */

{ /* Ieee/string.scm 1306 */
 bool_t BgL_tmpz00_11401;
{ /* Ieee/string.scm 1306 */
 obj_t BgL_auxz00_11409; obj_t BgL_auxz00_11402;
if(
STRINGP(BgL_s2z00_1954))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11409 = BgL_s2z00_1954
; }  else 
{ 
 obj_t BgL_auxz00_11412;
BgL_auxz00_11412 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1954); 
FAILURE(BgL_auxz00_11412,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1953))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11402 = BgL_s1z00_1953
; }  else 
{ 
 obj_t BgL_auxz00_11405;
BgL_auxz00_11405 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1953); 
FAILURE(BgL_auxz00_11405,BFALSE,BFALSE);} 
BgL_tmpz00_11401 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_11402, BgL_auxz00_11409, BgL_start1z00_1969, BgL_end1z00_1970, BgL_start2z00_1971, BFALSE); } 
return 
BBOOL(BgL_tmpz00_11401);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1306 */
 obj_t BgL_start1z00_1973;
{ 
 obj_t BgL_auxz00_11418;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11418 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11421;
BgL_auxz00_11421 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11421,BFALSE,BFALSE);} 
BgL_start1z00_1973 = 
VECTOR_REF(BgL_auxz00_11418,2L); } 
{ /* Ieee/string.scm 1306 */
 obj_t BgL_end1z00_1974;
{ 
 obj_t BgL_auxz00_11426;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11426 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11429;
BgL_auxz00_11429 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11429,BFALSE,BFALSE);} 
BgL_end1z00_1974 = 
VECTOR_REF(BgL_auxz00_11426,3L); } 
{ /* Ieee/string.scm 1306 */
 obj_t BgL_start2z00_1975;
{ 
 obj_t BgL_auxz00_11434;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11434 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11437;
BgL_auxz00_11437 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11437,BFALSE,BFALSE);} 
BgL_start2z00_1975 = 
VECTOR_REF(BgL_auxz00_11434,4L); } 
{ /* Ieee/string.scm 1306 */
 obj_t BgL_end2z00_1976;
{ 
 obj_t BgL_auxz00_11442;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11442 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11445;
BgL_auxz00_11445 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11445,BFALSE,BFALSE);} 
BgL_end2z00_1976 = 
VECTOR_REF(BgL_auxz00_11442,5L); } 
{ /* Ieee/string.scm 1306 */

{ /* Ieee/string.scm 1306 */
 bool_t BgL_tmpz00_11450;
{ /* Ieee/string.scm 1306 */
 obj_t BgL_auxz00_11458; obj_t BgL_auxz00_11451;
if(
STRINGP(BgL_s2z00_1954))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11458 = BgL_s2z00_1954
; }  else 
{ 
 obj_t BgL_auxz00_11461;
BgL_auxz00_11461 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1954); 
FAILURE(BgL_auxz00_11461,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1953))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11451 = BgL_s1z00_1953
; }  else 
{ 
 obj_t BgL_auxz00_11454;
BgL_auxz00_11454 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3938z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1953); 
FAILURE(BgL_auxz00_11454,BFALSE,BFALSE);} 
BgL_tmpz00_11450 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_11451, BgL_auxz00_11458, BgL_start1z00_1973, BgL_end1z00_1974, BgL_start2z00_1975, BgL_end2z00_1976); } 
return 
BBOOL(BgL_tmpz00_11450);} } } } } } break;
default: 
{ /* Ieee/string.scm 1306 */
 long BgL_arg1822z00_1977;
{ 
 obj_t BgL_auxz00_11467;
if(
VECTORP(BgL_opt1177z00_214))
{ /* Ieee/string.scm 1306 */
BgL_auxz00_11467 = BgL_opt1177z00_214
; }  else 
{ 
 obj_t BgL_auxz00_11470;
BgL_auxz00_11470 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53114L), BGl_string3939z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1177z00_214); 
FAILURE(BgL_auxz00_11470,BFALSE,BFALSE);} 
BgL_arg1822z00_1977 = 
VECTOR_LENGTH(BgL_auxz00_11467); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3940z00zz__r4_strings_6_7z00, BGl_string3908z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1822z00_1977));} } } } } } 

}



/* string-prefix? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t BgL_s1z00_208, obj_t BgL_s2z00_209, obj_t BgL_start1z00_210, obj_t BgL_end1z00_211, obj_t BgL_start2z00_212, obj_t BgL_end2z00_213)
{
{ /* Ieee/string.scm 1306 */
{ /* Ieee/string.scm 1308 */
 long BgL_l1z00_1978;
BgL_l1z00_1978 = 
STRING_LENGTH(BgL_s1z00_208); 
{ /* Ieee/string.scm 1308 */
 long BgL_l2z00_1979;
BgL_l2z00_1979 = 
STRING_LENGTH(BgL_s2z00_209); 
{ /* Ieee/string.scm 1309 */
 obj_t BgL_e1z00_1980;
{ /* Ieee/string.scm 1310 */
 obj_t BgL_procz00_3563;
BgL_procz00_3563 = BGl_symbol3942z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_211))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test4980z00_11482;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3568;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_11483;
if(
INTEGERP(BgL_end1z00_211))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_11483 = BgL_end1z00_211
; }  else 
{ 
 obj_t BgL_auxz00_11486;
BgL_auxz00_11486 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3943z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_211); 
FAILURE(BgL_auxz00_11486,BFALSE,BFALSE);} 
BgL_n1z00_3568 = 
(long)CINT(BgL_tmpz00_11483); } 
BgL_test4980z00_11482 = 
(BgL_n1z00_3568<=0L); } 
if(BgL_test4980z00_11482)
{ /* Ieee/string.scm 1212 */
BgL_e1z00_1980 = 
BGl_errorz00zz__errorz00(BgL_procz00_3563, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_211); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test4982z00_11494;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3569;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_11495;
if(
INTEGERP(BgL_end1z00_211))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_11495 = BgL_end1z00_211
; }  else 
{ 
 obj_t BgL_auxz00_11498;
BgL_auxz00_11498 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3943z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_211); 
FAILURE(BgL_auxz00_11498,BFALSE,BFALSE);} 
BgL_n1z00_3569 = 
(long)CINT(BgL_tmpz00_11495); } 
BgL_test4982z00_11494 = 
(BgL_n1z00_3569>BgL_l1z00_1978); } 
if(BgL_test4982z00_11494)
{ /* Ieee/string.scm 1214 */
BgL_e1z00_1980 = 
BGl_errorz00zz__errorz00(BgL_procz00_3563, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_211); }  else 
{ /* Ieee/string.scm 1214 */
BgL_e1z00_1980 = BgL_end1z00_211; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_e1z00_1980 = 
BINT(BgL_l1z00_1978); } } 
{ /* Ieee/string.scm 1310 */
 obj_t BgL_e2z00_1981;
{ /* Ieee/string.scm 1311 */
 obj_t BgL_procz00_3571;
BgL_procz00_3571 = BGl_symbol3942z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_213))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test4985z00_11509;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3576;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_11510;
if(
INTEGERP(BgL_end2z00_213))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_11510 = BgL_end2z00_213
; }  else 
{ 
 obj_t BgL_auxz00_11513;
BgL_auxz00_11513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3943z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_213); 
FAILURE(BgL_auxz00_11513,BFALSE,BFALSE);} 
BgL_n1z00_3576 = 
(long)CINT(BgL_tmpz00_11510); } 
BgL_test4985z00_11509 = 
(BgL_n1z00_3576<=0L); } 
if(BgL_test4985z00_11509)
{ /* Ieee/string.scm 1212 */
BgL_e2z00_1981 = 
BGl_errorz00zz__errorz00(BgL_procz00_3571, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_213); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test4987z00_11521;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3577;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_11522;
if(
INTEGERP(BgL_end2z00_213))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_11522 = BgL_end2z00_213
; }  else 
{ 
 obj_t BgL_auxz00_11525;
BgL_auxz00_11525 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3943z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_213); 
FAILURE(BgL_auxz00_11525,BFALSE,BFALSE);} 
BgL_n1z00_3577 = 
(long)CINT(BgL_tmpz00_11522); } 
BgL_test4987z00_11521 = 
(BgL_n1z00_3577>BgL_l2z00_1979); } 
if(BgL_test4987z00_11521)
{ /* Ieee/string.scm 1214 */
BgL_e2z00_1981 = 
BGl_errorz00zz__errorz00(BgL_procz00_3571, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_213); }  else 
{ /* Ieee/string.scm 1214 */
BgL_e2z00_1981 = BgL_end2z00_213; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_e2z00_1981 = 
BINT(BgL_l2z00_1979); } } 
{ /* Ieee/string.scm 1311 */
 obj_t BgL_b1z00_1982;
{ /* Ieee/string.scm 1312 */
 obj_t BgL_procz00_3579;
BgL_procz00_3579 = BGl_symbol3942z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_210))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test4990z00_11536;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3584;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_11537;
if(
INTEGERP(BgL_start1z00_210))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_11537 = BgL_start1z00_210
; }  else 
{ 
 obj_t BgL_auxz00_11540;
BgL_auxz00_11540 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3943z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_210); 
FAILURE(BgL_auxz00_11540,BFALSE,BFALSE);} 
BgL_n1z00_3584 = 
(long)CINT(BgL_tmpz00_11537); } 
BgL_test4990z00_11536 = 
(BgL_n1z00_3584<0L); } 
if(BgL_test4990z00_11536)
{ /* Ieee/string.scm 1198 */
BgL_b1z00_1982 = 
BGl_errorz00zz__errorz00(BgL_procz00_3579, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_210); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test4992z00_11548;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3585;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_11549;
if(
INTEGERP(BgL_start1z00_210))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_11549 = BgL_start1z00_210
; }  else 
{ 
 obj_t BgL_auxz00_11552;
BgL_auxz00_11552 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3943z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_210); 
FAILURE(BgL_auxz00_11552,BFALSE,BFALSE);} 
BgL_n1z00_3585 = 
(long)CINT(BgL_tmpz00_11549); } 
BgL_test4992z00_11548 = 
(BgL_n1z00_3585>=BgL_l1z00_1978); } 
if(BgL_test4992z00_11548)
{ /* Ieee/string.scm 1200 */
BgL_b1z00_1982 = 
BGl_errorz00zz__errorz00(BgL_procz00_3579, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_210); }  else 
{ /* Ieee/string.scm 1200 */
BgL_b1z00_1982 = BgL_start1z00_210; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_b1z00_1982 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1312 */
 obj_t BgL_b2z00_1983;
{ /* Ieee/string.scm 1313 */
 obj_t BgL_procz00_3587;
BgL_procz00_3587 = BGl_symbol3942z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_212))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test4997z00_11563;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3592;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_11564;
if(
INTEGERP(BgL_start2z00_212))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_11564 = BgL_start2z00_212
; }  else 
{ 
 obj_t BgL_auxz00_11567;
BgL_auxz00_11567 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3943z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_212); 
FAILURE(BgL_auxz00_11567,BFALSE,BFALSE);} 
BgL_n1z00_3592 = 
(long)CINT(BgL_tmpz00_11564); } 
BgL_test4997z00_11563 = 
(BgL_n1z00_3592<0L); } 
if(BgL_test4997z00_11563)
{ /* Ieee/string.scm 1198 */
BgL_b2z00_1983 = 
BGl_errorz00zz__errorz00(BgL_procz00_3587, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_212); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test5000z00_11575;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3593;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_11576;
if(
INTEGERP(BgL_start2z00_212))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_11576 = BgL_start2z00_212
; }  else 
{ 
 obj_t BgL_auxz00_11579;
BgL_auxz00_11579 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3943z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_212); 
FAILURE(BgL_auxz00_11579,BFALSE,BFALSE);} 
BgL_n1z00_3593 = 
(long)CINT(BgL_tmpz00_11576); } 
BgL_test5000z00_11575 = 
(BgL_n1z00_3593>=BgL_l2z00_1979); } 
if(BgL_test5000z00_11575)
{ /* Ieee/string.scm 1200 */
BgL_b2z00_1983 = 
BGl_errorz00zz__errorz00(BgL_procz00_3587, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_212); }  else 
{ /* Ieee/string.scm 1200 */
BgL_b2z00_1983 = BgL_start2z00_212; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_b2z00_1983 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1313 */

{ 
 obj_t BgL_i1z00_1985; obj_t BgL_i2z00_1986;
BgL_i1z00_1985 = BgL_b1z00_1982; 
BgL_i2z00_1986 = BgL_b2z00_1983; 
BgL_zc3z04anonymousza31823ze3z87_1987:
{ /* Ieee/string.scm 1317 */
 bool_t BgL_test5002z00_11588;
{ /* Ieee/string.scm 1317 */
 long BgL_n1z00_3595; long BgL_n2z00_3596;
{ /* Ieee/string.scm 1317 */
 obj_t BgL_tmpz00_11589;
if(
INTEGERP(BgL_i1z00_1985))
{ /* Ieee/string.scm 1317 */
BgL_tmpz00_11589 = BgL_i1z00_1985
; }  else 
{ 
 obj_t BgL_auxz00_11592;
BgL_auxz00_11592 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53577L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1985); 
FAILURE(BgL_auxz00_11592,BFALSE,BFALSE);} 
BgL_n1z00_3595 = 
(long)CINT(BgL_tmpz00_11589); } 
{ /* Ieee/string.scm 1317 */
 obj_t BgL_tmpz00_11597;
if(
INTEGERP(BgL_e1z00_1980))
{ /* Ieee/string.scm 1317 */
BgL_tmpz00_11597 = BgL_e1z00_1980
; }  else 
{ 
 obj_t BgL_auxz00_11600;
BgL_auxz00_11600 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53580L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e1z00_1980); 
FAILURE(BgL_auxz00_11600,BFALSE,BFALSE);} 
BgL_n2z00_3596 = 
(long)CINT(BgL_tmpz00_11597); } 
BgL_test5002z00_11588 = 
(BgL_n1z00_3595==BgL_n2z00_3596); } 
if(BgL_test5002z00_11588)
{ /* Ieee/string.scm 1317 */
return ((bool_t)1);}  else 
{ /* Ieee/string.scm 1319 */
 bool_t BgL_test5005z00_11606;
{ /* Ieee/string.scm 1319 */
 long BgL_n1z00_3597; long BgL_n2z00_3598;
{ /* Ieee/string.scm 1319 */
 obj_t BgL_tmpz00_11607;
if(
INTEGERP(BgL_i2z00_1986))
{ /* Ieee/string.scm 1319 */
BgL_tmpz00_11607 = BgL_i2z00_1986
; }  else 
{ 
 obj_t BgL_auxz00_11610;
BgL_auxz00_11610 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53605L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_1986); 
FAILURE(BgL_auxz00_11610,BFALSE,BFALSE);} 
BgL_n1z00_3597 = 
(long)CINT(BgL_tmpz00_11607); } 
{ /* Ieee/string.scm 1319 */
 obj_t BgL_tmpz00_11615;
if(
INTEGERP(BgL_e2z00_1981))
{ /* Ieee/string.scm 1319 */
BgL_tmpz00_11615 = BgL_e2z00_1981
; }  else 
{ 
 obj_t BgL_auxz00_11618;
BgL_auxz00_11618 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53608L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e2z00_1981); 
FAILURE(BgL_auxz00_11618,BFALSE,BFALSE);} 
BgL_n2z00_3598 = 
(long)CINT(BgL_tmpz00_11615); } 
BgL_test5005z00_11606 = 
(BgL_n1z00_3597==BgL_n2z00_3598); } 
if(BgL_test5005z00_11606)
{ /* Ieee/string.scm 1319 */
return ((bool_t)0);}  else 
{ /* Ieee/string.scm 1321 */
 bool_t BgL_test5008z00_11624;
{ /* Ieee/string.scm 1321 */
 unsigned char BgL_auxz00_11644; unsigned char BgL_tmpz00_11625;
{ /* Ieee/string.scm 1321 */
 long BgL_kz00_3602;
{ /* Ieee/string.scm 1321 */
 obj_t BgL_tmpz00_11645;
if(
INTEGERP(BgL_i2z00_1986))
{ /* Ieee/string.scm 1321 */
BgL_tmpz00_11645 = BgL_i2z00_1986
; }  else 
{ 
 obj_t BgL_auxz00_11648;
BgL_auxz00_11648 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53670L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_1986); 
FAILURE(BgL_auxz00_11648,BFALSE,BFALSE);} 
BgL_kz00_3602 = 
(long)CINT(BgL_tmpz00_11645); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2569z00_4518;
BgL_l2569z00_4518 = 
STRING_LENGTH(BgL_s2z00_209); 
if(
BOUND_CHECK(BgL_kz00_3602, BgL_l2569z00_4518))
{ /* Ieee/string.scm 331 */
BgL_auxz00_11644 = 
STRING_REF(BgL_s2z00_209, BgL_kz00_3602)
; }  else 
{ 
 obj_t BgL_auxz00_11657;
BgL_auxz00_11657 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s2z00_209, 
(int)(BgL_l2569z00_4518), 
(int)(BgL_kz00_3602)); 
FAILURE(BgL_auxz00_11657,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1321 */
 long BgL_kz00_3600;
{ /* Ieee/string.scm 1321 */
 obj_t BgL_tmpz00_11626;
if(
INTEGERP(BgL_i1z00_1985))
{ /* Ieee/string.scm 1321 */
BgL_tmpz00_11626 = BgL_i1z00_1985
; }  else 
{ 
 obj_t BgL_auxz00_11629;
BgL_auxz00_11629 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53651L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1985); 
FAILURE(BgL_auxz00_11629,BFALSE,BFALSE);} 
BgL_kz00_3600 = 
(long)CINT(BgL_tmpz00_11626); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2565z00_4514;
BgL_l2565z00_4514 = 
STRING_LENGTH(BgL_s1z00_208); 
if(
BOUND_CHECK(BgL_kz00_3600, BgL_l2565z00_4514))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_11625 = 
STRING_REF(BgL_s1z00_208, BgL_kz00_3600)
; }  else 
{ 
 obj_t BgL_auxz00_11638;
BgL_auxz00_11638 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s1z00_208, 
(int)(BgL_l2565z00_4514), 
(int)(BgL_kz00_3600)); 
FAILURE(BgL_auxz00_11638,BFALSE,BFALSE);} } } 
BgL_test5008z00_11624 = 
(BgL_tmpz00_11625==BgL_auxz00_11644); } 
if(BgL_test5008z00_11624)
{ 
 obj_t BgL_i2z00_11674; obj_t BgL_i1z00_11664;
{ 
 obj_t BgL_tmpz00_11665;
if(
INTEGERP(BgL_i1z00_1985))
{ /* Ieee/string.scm 1322 */
BgL_tmpz00_11665 = BgL_i1z00_1985
; }  else 
{ 
 obj_t BgL_auxz00_11668;
BgL_auxz00_11668 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53692L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_1985); 
FAILURE(BgL_auxz00_11668,BFALSE,BFALSE);} 
BgL_i1z00_11664 = 
ADDFX(BgL_tmpz00_11665, 
BINT(1L)); } 
{ 
 obj_t BgL_tmpz00_11675;
if(
INTEGERP(BgL_i2z00_1986))
{ /* Ieee/string.scm 1322 */
BgL_tmpz00_11675 = BgL_i2z00_1986
; }  else 
{ 
 obj_t BgL_auxz00_11678;
BgL_auxz00_11678 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53703L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_1986); 
FAILURE(BgL_auxz00_11678,BFALSE,BFALSE);} 
BgL_i2z00_11674 = 
ADDFX(BgL_tmpz00_11675, 
BINT(1L)); } 
BgL_i2z00_1986 = BgL_i2z00_11674; 
BgL_i1z00_1985 = BgL_i1z00_11664; 
goto BgL_zc3z04anonymousza31823ze3z87_1987;}  else 
{ /* Ieee/string.scm 1321 */
return ((bool_t)0);} } } } } } } } } } } } } 

}



/* _string-prefix-ci? */
obj_t BGl__stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t BgL_env1182z00_223, obj_t BgL_opt1181z00_222)
{
{ /* Ieee/string.scm 1329 */
{ /* Ieee/string.scm 1329 */
 obj_t BgL_s1z00_1998; obj_t BgL_s2z00_1999;
{ 
 obj_t BgL_auxz00_11684;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11684 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11687;
BgL_auxz00_11687 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11687,BFALSE,BFALSE);} 
BgL_s1z00_1998 = 
VECTOR_REF(BgL_auxz00_11684,0L); } 
{ 
 obj_t BgL_auxz00_11692;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11692 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11695;
BgL_auxz00_11695 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11695,BFALSE,BFALSE);} 
BgL_s2z00_1999 = 
VECTOR_REF(BgL_auxz00_11692,1L); } 
{ 

{ /* Ieee/string.scm 1329 */
 long BgL_aux1184z00_2001;
{ 
 obj_t BgL_auxz00_11700;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11700 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11703;
BgL_auxz00_11703 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11703,BFALSE,BFALSE);} 
BgL_aux1184z00_2001 = 
VECTOR_LENGTH(BgL_auxz00_11700); } 
switch( BgL_aux1184z00_2001) { case 2L : 

{ /* Ieee/string.scm 1329 */

{ /* Ieee/string.scm 1329 */
 bool_t BgL_tmpz00_11708;
{ /* Ieee/string.scm 1329 */
 obj_t BgL_auxz00_11716; obj_t BgL_auxz00_11709;
if(
STRINGP(BgL_s2z00_1999))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11716 = BgL_s2z00_1999
; }  else 
{ 
 obj_t BgL_auxz00_11719;
BgL_auxz00_11719 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1999); 
FAILURE(BgL_auxz00_11719,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1998))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11709 = BgL_s1z00_1998
; }  else 
{ 
 obj_t BgL_auxz00_11712;
BgL_auxz00_11712 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1998); 
FAILURE(BgL_auxz00_11712,BFALSE,BFALSE);} 
BgL_tmpz00_11708 = 
BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_11709, BgL_auxz00_11716, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_11708);} } break;case 3L : 

{ /* Ieee/string.scm 1329 */
 obj_t BgL_start1z00_2006;
{ 
 obj_t BgL_auxz00_11725;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11725 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11728;
BgL_auxz00_11728 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11728,BFALSE,BFALSE);} 
BgL_start1z00_2006 = 
VECTOR_REF(BgL_auxz00_11725,2L); } 
{ /* Ieee/string.scm 1329 */

{ /* Ieee/string.scm 1329 */
 bool_t BgL_tmpz00_11733;
{ /* Ieee/string.scm 1329 */
 obj_t BgL_auxz00_11741; obj_t BgL_auxz00_11734;
if(
STRINGP(BgL_s2z00_1999))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11741 = BgL_s2z00_1999
; }  else 
{ 
 obj_t BgL_auxz00_11744;
BgL_auxz00_11744 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1999); 
FAILURE(BgL_auxz00_11744,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1998))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11734 = BgL_s1z00_1998
; }  else 
{ 
 obj_t BgL_auxz00_11737;
BgL_auxz00_11737 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1998); 
FAILURE(BgL_auxz00_11737,BFALSE,BFALSE);} 
BgL_tmpz00_11733 = 
BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_11734, BgL_auxz00_11741, BgL_start1z00_2006, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_11733);} } } break;case 4L : 

{ /* Ieee/string.scm 1329 */
 obj_t BgL_start1z00_2010;
{ 
 obj_t BgL_auxz00_11750;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11750 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11753;
BgL_auxz00_11753 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11753,BFALSE,BFALSE);} 
BgL_start1z00_2010 = 
VECTOR_REF(BgL_auxz00_11750,2L); } 
{ /* Ieee/string.scm 1329 */
 obj_t BgL_end1z00_2011;
{ 
 obj_t BgL_auxz00_11758;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11758 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11761;
BgL_auxz00_11761 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11761,BFALSE,BFALSE);} 
BgL_end1z00_2011 = 
VECTOR_REF(BgL_auxz00_11758,3L); } 
{ /* Ieee/string.scm 1329 */

{ /* Ieee/string.scm 1329 */
 bool_t BgL_tmpz00_11766;
{ /* Ieee/string.scm 1329 */
 obj_t BgL_auxz00_11774; obj_t BgL_auxz00_11767;
if(
STRINGP(BgL_s2z00_1999))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11774 = BgL_s2z00_1999
; }  else 
{ 
 obj_t BgL_auxz00_11777;
BgL_auxz00_11777 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1999); 
FAILURE(BgL_auxz00_11777,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1998))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11767 = BgL_s1z00_1998
; }  else 
{ 
 obj_t BgL_auxz00_11770;
BgL_auxz00_11770 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1998); 
FAILURE(BgL_auxz00_11770,BFALSE,BFALSE);} 
BgL_tmpz00_11766 = 
BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_11767, BgL_auxz00_11774, BgL_start1z00_2010, BgL_end1z00_2011, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_11766);} } } } break;case 5L : 

{ /* Ieee/string.scm 1329 */
 obj_t BgL_start1z00_2014;
{ 
 obj_t BgL_auxz00_11783;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11783 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11786;
BgL_auxz00_11786 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11786,BFALSE,BFALSE);} 
BgL_start1z00_2014 = 
VECTOR_REF(BgL_auxz00_11783,2L); } 
{ /* Ieee/string.scm 1329 */
 obj_t BgL_end1z00_2015;
{ 
 obj_t BgL_auxz00_11791;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11791 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11794;
BgL_auxz00_11794 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11794,BFALSE,BFALSE);} 
BgL_end1z00_2015 = 
VECTOR_REF(BgL_auxz00_11791,3L); } 
{ /* Ieee/string.scm 1329 */
 obj_t BgL_start2z00_2016;
{ 
 obj_t BgL_auxz00_11799;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11799 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11802;
BgL_auxz00_11802 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11802,BFALSE,BFALSE);} 
BgL_start2z00_2016 = 
VECTOR_REF(BgL_auxz00_11799,4L); } 
{ /* Ieee/string.scm 1329 */

{ /* Ieee/string.scm 1329 */
 bool_t BgL_tmpz00_11807;
{ /* Ieee/string.scm 1329 */
 obj_t BgL_auxz00_11815; obj_t BgL_auxz00_11808;
if(
STRINGP(BgL_s2z00_1999))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11815 = BgL_s2z00_1999
; }  else 
{ 
 obj_t BgL_auxz00_11818;
BgL_auxz00_11818 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1999); 
FAILURE(BgL_auxz00_11818,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1998))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11808 = BgL_s1z00_1998
; }  else 
{ 
 obj_t BgL_auxz00_11811;
BgL_auxz00_11811 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1998); 
FAILURE(BgL_auxz00_11811,BFALSE,BFALSE);} 
BgL_tmpz00_11807 = 
BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_11808, BgL_auxz00_11815, BgL_start1z00_2014, BgL_end1z00_2015, BgL_start2z00_2016, BFALSE); } 
return 
BBOOL(BgL_tmpz00_11807);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1329 */
 obj_t BgL_start1z00_2018;
{ 
 obj_t BgL_auxz00_11824;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11824 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11827;
BgL_auxz00_11827 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11827,BFALSE,BFALSE);} 
BgL_start1z00_2018 = 
VECTOR_REF(BgL_auxz00_11824,2L); } 
{ /* Ieee/string.scm 1329 */
 obj_t BgL_end1z00_2019;
{ 
 obj_t BgL_auxz00_11832;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11832 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11835;
BgL_auxz00_11835 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11835,BFALSE,BFALSE);} 
BgL_end1z00_2019 = 
VECTOR_REF(BgL_auxz00_11832,3L); } 
{ /* Ieee/string.scm 1329 */
 obj_t BgL_start2z00_2020;
{ 
 obj_t BgL_auxz00_11840;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11840 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11843;
BgL_auxz00_11843 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11843,BFALSE,BFALSE);} 
BgL_start2z00_2020 = 
VECTOR_REF(BgL_auxz00_11840,4L); } 
{ /* Ieee/string.scm 1329 */
 obj_t BgL_end2z00_2021;
{ 
 obj_t BgL_auxz00_11848;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11848 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11851;
BgL_auxz00_11851 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11851,BFALSE,BFALSE);} 
BgL_end2z00_2021 = 
VECTOR_REF(BgL_auxz00_11848,5L); } 
{ /* Ieee/string.scm 1329 */

{ /* Ieee/string.scm 1329 */
 bool_t BgL_tmpz00_11856;
{ /* Ieee/string.scm 1329 */
 obj_t BgL_auxz00_11864; obj_t BgL_auxz00_11857;
if(
STRINGP(BgL_s2z00_1999))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11864 = BgL_s2z00_1999
; }  else 
{ 
 obj_t BgL_auxz00_11867;
BgL_auxz00_11867 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_1999); 
FAILURE(BgL_auxz00_11867,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1998))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11857 = BgL_s1z00_1998
; }  else 
{ 
 obj_t BgL_auxz00_11860;
BgL_auxz00_11860 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3944z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_1998); 
FAILURE(BgL_auxz00_11860,BFALSE,BFALSE);} 
BgL_tmpz00_11856 = 
BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_11857, BgL_auxz00_11864, BgL_start1z00_2018, BgL_end1z00_2019, BgL_start2z00_2020, BgL_end2z00_2021); } 
return 
BBOOL(BgL_tmpz00_11856);} } } } } } break;
default: 
{ /* Ieee/string.scm 1329 */
 long BgL_arg1835z00_2022;
{ 
 obj_t BgL_auxz00_11873;
if(
VECTORP(BgL_opt1181z00_222))
{ /* Ieee/string.scm 1329 */
BgL_auxz00_11873 = BgL_opt1181z00_222
; }  else 
{ 
 obj_t BgL_auxz00_11876;
BgL_auxz00_11876 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(53959L), BGl_string3945z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1181z00_222); 
FAILURE(BgL_auxz00_11876,BFALSE,BFALSE);} 
BgL_arg1835z00_2022 = 
VECTOR_LENGTH(BgL_auxz00_11873); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3946z00zz__r4_strings_6_7z00, BGl_string3908z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1835z00_2022));} } } } } } 

}



/* string-prefix-ci? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t BgL_s1z00_216, obj_t BgL_s2z00_217, obj_t BgL_start1z00_218, obj_t BgL_end1z00_219, obj_t BgL_start2z00_220, obj_t BgL_end2z00_221)
{
{ /* Ieee/string.scm 1329 */
{ /* Ieee/string.scm 1331 */
 long BgL_l1z00_2023;
BgL_l1z00_2023 = 
STRING_LENGTH(BgL_s1z00_216); 
{ /* Ieee/string.scm 1331 */
 long BgL_l2z00_2024;
BgL_l2z00_2024 = 
STRING_LENGTH(BgL_s2z00_217); 
{ /* Ieee/string.scm 1332 */
 obj_t BgL_e1z00_2025;
{ /* Ieee/string.scm 1333 */
 obj_t BgL_procz00_3609;
BgL_procz00_3609 = BGl_symbol3948z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_219))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test5040z00_11888;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3614;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_11889;
if(
INTEGERP(BgL_end1z00_219))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_11889 = BgL_end1z00_219
; }  else 
{ 
 obj_t BgL_auxz00_11892;
BgL_auxz00_11892 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3949z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_219); 
FAILURE(BgL_auxz00_11892,BFALSE,BFALSE);} 
BgL_n1z00_3614 = 
(long)CINT(BgL_tmpz00_11889); } 
BgL_test5040z00_11888 = 
(BgL_n1z00_3614<=0L); } 
if(BgL_test5040z00_11888)
{ /* Ieee/string.scm 1212 */
BgL_e1z00_2025 = 
BGl_errorz00zz__errorz00(BgL_procz00_3609, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_219); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test5042z00_11900;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3615;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_11901;
if(
INTEGERP(BgL_end1z00_219))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_11901 = BgL_end1z00_219
; }  else 
{ 
 obj_t BgL_auxz00_11904;
BgL_auxz00_11904 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3949z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_219); 
FAILURE(BgL_auxz00_11904,BFALSE,BFALSE);} 
BgL_n1z00_3615 = 
(long)CINT(BgL_tmpz00_11901); } 
BgL_test5042z00_11900 = 
(BgL_n1z00_3615>BgL_l1z00_2023); } 
if(BgL_test5042z00_11900)
{ /* Ieee/string.scm 1214 */
BgL_e1z00_2025 = 
BGl_errorz00zz__errorz00(BgL_procz00_3609, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_219); }  else 
{ /* Ieee/string.scm 1214 */
BgL_e1z00_2025 = BgL_end1z00_219; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_e1z00_2025 = 
BINT(BgL_l1z00_2023); } } 
{ /* Ieee/string.scm 1333 */
 obj_t BgL_e2z00_2026;
{ /* Ieee/string.scm 1334 */
 obj_t BgL_procz00_3617;
BgL_procz00_3617 = BGl_symbol3948z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_221))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test5045z00_11915;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3622;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_11916;
if(
INTEGERP(BgL_end2z00_221))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_11916 = BgL_end2z00_221
; }  else 
{ 
 obj_t BgL_auxz00_11919;
BgL_auxz00_11919 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3949z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_221); 
FAILURE(BgL_auxz00_11919,BFALSE,BFALSE);} 
BgL_n1z00_3622 = 
(long)CINT(BgL_tmpz00_11916); } 
BgL_test5045z00_11915 = 
(BgL_n1z00_3622<=0L); } 
if(BgL_test5045z00_11915)
{ /* Ieee/string.scm 1212 */
BgL_e2z00_2026 = 
BGl_errorz00zz__errorz00(BgL_procz00_3617, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_221); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test5047z00_11927;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3623;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_11928;
if(
INTEGERP(BgL_end2z00_221))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_11928 = BgL_end2z00_221
; }  else 
{ 
 obj_t BgL_auxz00_11931;
BgL_auxz00_11931 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3949z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_221); 
FAILURE(BgL_auxz00_11931,BFALSE,BFALSE);} 
BgL_n1z00_3623 = 
(long)CINT(BgL_tmpz00_11928); } 
BgL_test5047z00_11927 = 
(BgL_n1z00_3623>BgL_l2z00_2024); } 
if(BgL_test5047z00_11927)
{ /* Ieee/string.scm 1214 */
BgL_e2z00_2026 = 
BGl_errorz00zz__errorz00(BgL_procz00_3617, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_221); }  else 
{ /* Ieee/string.scm 1214 */
BgL_e2z00_2026 = BgL_end2z00_221; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_e2z00_2026 = 
BINT(BgL_l2z00_2024); } } 
{ /* Ieee/string.scm 1334 */
 obj_t BgL_b1z00_2027;
{ /* Ieee/string.scm 1335 */
 obj_t BgL_procz00_3625;
BgL_procz00_3625 = BGl_symbol3948z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_218))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test5050z00_11942;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3630;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_11943;
if(
INTEGERP(BgL_start1z00_218))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_11943 = BgL_start1z00_218
; }  else 
{ 
 obj_t BgL_auxz00_11946;
BgL_auxz00_11946 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3949z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_218); 
FAILURE(BgL_auxz00_11946,BFALSE,BFALSE);} 
BgL_n1z00_3630 = 
(long)CINT(BgL_tmpz00_11943); } 
BgL_test5050z00_11942 = 
(BgL_n1z00_3630<0L); } 
if(BgL_test5050z00_11942)
{ /* Ieee/string.scm 1198 */
BgL_b1z00_2027 = 
BGl_errorz00zz__errorz00(BgL_procz00_3625, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_218); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test5052z00_11954;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3631;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_11955;
if(
INTEGERP(BgL_start1z00_218))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_11955 = BgL_start1z00_218
; }  else 
{ 
 obj_t BgL_auxz00_11958;
BgL_auxz00_11958 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3949z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_218); 
FAILURE(BgL_auxz00_11958,BFALSE,BFALSE);} 
BgL_n1z00_3631 = 
(long)CINT(BgL_tmpz00_11955); } 
BgL_test5052z00_11954 = 
(BgL_n1z00_3631>=BgL_l1z00_2023); } 
if(BgL_test5052z00_11954)
{ /* Ieee/string.scm 1200 */
BgL_b1z00_2027 = 
BGl_errorz00zz__errorz00(BgL_procz00_3625, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_218); }  else 
{ /* Ieee/string.scm 1200 */
BgL_b1z00_2027 = BgL_start1z00_218; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_b1z00_2027 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1335 */
 obj_t BgL_b2z00_2028;
{ /* Ieee/string.scm 1336 */
 obj_t BgL_procz00_3633;
BgL_procz00_3633 = BGl_symbol3948z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_220))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test5055z00_11969;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3638;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_11970;
if(
INTEGERP(BgL_start2z00_220))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_11970 = BgL_start2z00_220
; }  else 
{ 
 obj_t BgL_auxz00_11973;
BgL_auxz00_11973 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3949z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_220); 
FAILURE(BgL_auxz00_11973,BFALSE,BFALSE);} 
BgL_n1z00_3638 = 
(long)CINT(BgL_tmpz00_11970); } 
BgL_test5055z00_11969 = 
(BgL_n1z00_3638<0L); } 
if(BgL_test5055z00_11969)
{ /* Ieee/string.scm 1198 */
BgL_b2z00_2028 = 
BGl_errorz00zz__errorz00(BgL_procz00_3633, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_220); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test5057z00_11981;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3639;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_11982;
if(
INTEGERP(BgL_start2z00_220))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_11982 = BgL_start2z00_220
; }  else 
{ 
 obj_t BgL_auxz00_11985;
BgL_auxz00_11985 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3949z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_220); 
FAILURE(BgL_auxz00_11985,BFALSE,BFALSE);} 
BgL_n1z00_3639 = 
(long)CINT(BgL_tmpz00_11982); } 
BgL_test5057z00_11981 = 
(BgL_n1z00_3639>=BgL_l2z00_2024); } 
if(BgL_test5057z00_11981)
{ /* Ieee/string.scm 1200 */
BgL_b2z00_2028 = 
BGl_errorz00zz__errorz00(BgL_procz00_3633, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_220); }  else 
{ /* Ieee/string.scm 1200 */
BgL_b2z00_2028 = BgL_start2z00_220; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_b2z00_2028 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1336 */

{ 
 obj_t BgL_i1z00_2030; obj_t BgL_i2z00_2031;
BgL_i1z00_2030 = BgL_b1z00_2027; 
BgL_i2z00_2031 = BgL_b2z00_2028; 
BgL_zc3z04anonymousza31836ze3z87_2032:
{ /* Ieee/string.scm 1340 */
 bool_t BgL_test5059z00_11994;
{ /* Ieee/string.scm 1340 */
 long BgL_n1z00_3641; long BgL_n2z00_3642;
{ /* Ieee/string.scm 1340 */
 obj_t BgL_tmpz00_11995;
if(
INTEGERP(BgL_i1z00_2030))
{ /* Ieee/string.scm 1340 */
BgL_tmpz00_11995 = BgL_i1z00_2030
; }  else 
{ 
 obj_t BgL_auxz00_11998;
BgL_auxz00_11998 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54433L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_2030); 
FAILURE(BgL_auxz00_11998,BFALSE,BFALSE);} 
BgL_n1z00_3641 = 
(long)CINT(BgL_tmpz00_11995); } 
{ /* Ieee/string.scm 1340 */
 obj_t BgL_tmpz00_12003;
if(
INTEGERP(BgL_e1z00_2025))
{ /* Ieee/string.scm 1340 */
BgL_tmpz00_12003 = BgL_e1z00_2025
; }  else 
{ 
 obj_t BgL_auxz00_12006;
BgL_auxz00_12006 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54436L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e1z00_2025); 
FAILURE(BgL_auxz00_12006,BFALSE,BFALSE);} 
BgL_n2z00_3642 = 
(long)CINT(BgL_tmpz00_12003); } 
BgL_test5059z00_11994 = 
(BgL_n1z00_3641==BgL_n2z00_3642); } 
if(BgL_test5059z00_11994)
{ /* Ieee/string.scm 1340 */
return ((bool_t)1);}  else 
{ /* Ieee/string.scm 1342 */
 bool_t BgL_test5062z00_12012;
{ /* Ieee/string.scm 1342 */
 long BgL_n1z00_3643; long BgL_n2z00_3644;
{ /* Ieee/string.scm 1342 */
 obj_t BgL_tmpz00_12013;
if(
INTEGERP(BgL_i2z00_2031))
{ /* Ieee/string.scm 1342 */
BgL_tmpz00_12013 = BgL_i2z00_2031
; }  else 
{ 
 obj_t BgL_auxz00_12016;
BgL_auxz00_12016 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54461L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_2031); 
FAILURE(BgL_auxz00_12016,BFALSE,BFALSE);} 
BgL_n1z00_3643 = 
(long)CINT(BgL_tmpz00_12013); } 
{ /* Ieee/string.scm 1342 */
 obj_t BgL_tmpz00_12021;
if(
INTEGERP(BgL_e2z00_2026))
{ /* Ieee/string.scm 1342 */
BgL_tmpz00_12021 = BgL_e2z00_2026
; }  else 
{ 
 obj_t BgL_auxz00_12024;
BgL_auxz00_12024 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54464L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e2z00_2026); 
FAILURE(BgL_auxz00_12024,BFALSE,BFALSE);} 
BgL_n2z00_3644 = 
(long)CINT(BgL_tmpz00_12021); } 
BgL_test5062z00_12012 = 
(BgL_n1z00_3643==BgL_n2z00_3644); } 
if(BgL_test5062z00_12012)
{ /* Ieee/string.scm 1342 */
return ((bool_t)0);}  else 
{ /* Ieee/string.scm 1344 */
 bool_t BgL_test5065z00_12030;
{ /* Ieee/string.scm 1344 */
 unsigned char BgL_auxz00_12052; unsigned char BgL_tmpz00_12031;
{ /* Ieee/string.scm 1344 */
 unsigned char BgL_tmpz00_12053;
{ /* Ieee/string.scm 1344 */
 long BgL_kz00_3648;
{ /* Ieee/string.scm 1344 */
 obj_t BgL_tmpz00_12054;
if(
INTEGERP(BgL_i2z00_2031))
{ /* Ieee/string.scm 1344 */
BgL_tmpz00_12054 = BgL_i2z00_2031
; }  else 
{ 
 obj_t BgL_auxz00_12057;
BgL_auxz00_12057 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54529L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_2031); 
FAILURE(BgL_auxz00_12057,BFALSE,BFALSE);} 
BgL_kz00_3648 = 
(long)CINT(BgL_tmpz00_12054); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2577z00_4526;
BgL_l2577z00_4526 = 
STRING_LENGTH(BgL_s2z00_217); 
if(
BOUND_CHECK(BgL_kz00_3648, BgL_l2577z00_4526))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_12053 = 
STRING_REF(BgL_s2z00_217, BgL_kz00_3648)
; }  else 
{ 
 obj_t BgL_auxz00_12066;
BgL_auxz00_12066 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s2z00_217, 
(int)(BgL_l2577z00_4526), 
(int)(BgL_kz00_3648)); 
FAILURE(BgL_auxz00_12066,BFALSE,BFALSE);} } } 
BgL_auxz00_12052 = 
toupper(BgL_tmpz00_12053); } 
{ /* Ieee/string.scm 1344 */
 unsigned char BgL_tmpz00_12032;
{ /* Ieee/string.scm 1344 */
 long BgL_kz00_3646;
{ /* Ieee/string.scm 1344 */
 obj_t BgL_tmpz00_12033;
if(
INTEGERP(BgL_i1z00_2030))
{ /* Ieee/string.scm 1344 */
BgL_tmpz00_12033 = BgL_i1z00_2030
; }  else 
{ 
 obj_t BgL_auxz00_12036;
BgL_auxz00_12036 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54510L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_2030); 
FAILURE(BgL_auxz00_12036,BFALSE,BFALSE);} 
BgL_kz00_3646 = 
(long)CINT(BgL_tmpz00_12033); } 
{ /* Ieee/string.scm 331 */
 long BgL_l2573z00_4522;
BgL_l2573z00_4522 = 
STRING_LENGTH(BgL_s1z00_216); 
if(
BOUND_CHECK(BgL_kz00_3646, BgL_l2573z00_4522))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_12032 = 
STRING_REF(BgL_s1z00_216, BgL_kz00_3646)
; }  else 
{ 
 obj_t BgL_auxz00_12045;
BgL_auxz00_12045 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s1z00_216, 
(int)(BgL_l2573z00_4522), 
(int)(BgL_kz00_3646)); 
FAILURE(BgL_auxz00_12045,BFALSE,BFALSE);} } } 
BgL_tmpz00_12031 = 
toupper(BgL_tmpz00_12032); } 
BgL_test5065z00_12030 = 
(BgL_tmpz00_12031==BgL_auxz00_12052); } 
if(BgL_test5065z00_12030)
{ 
 obj_t BgL_i2z00_12084; obj_t BgL_i1z00_12074;
{ 
 obj_t BgL_tmpz00_12075;
if(
INTEGERP(BgL_i1z00_2030))
{ /* Ieee/string.scm 1345 */
BgL_tmpz00_12075 = BgL_i1z00_2030
; }  else 
{ 
 obj_t BgL_auxz00_12078;
BgL_auxz00_12078 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54551L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i1z00_2030); 
FAILURE(BgL_auxz00_12078,BFALSE,BFALSE);} 
BgL_i1z00_12074 = 
ADDFX(BgL_tmpz00_12075, 
BINT(1L)); } 
{ 
 obj_t BgL_tmpz00_12085;
if(
INTEGERP(BgL_i2z00_2031))
{ /* Ieee/string.scm 1345 */
BgL_tmpz00_12085 = BgL_i2z00_2031
; }  else 
{ 
 obj_t BgL_auxz00_12088;
BgL_auxz00_12088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54562L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_i2z00_2031); 
FAILURE(BgL_auxz00_12088,BFALSE,BFALSE);} 
BgL_i2z00_12084 = 
ADDFX(BgL_tmpz00_12085, 
BINT(1L)); } 
BgL_i2z00_2031 = BgL_i2z00_12084; 
BgL_i1z00_2030 = BgL_i1z00_12074; 
goto BgL_zc3z04anonymousza31836ze3z87_2032;}  else 
{ /* Ieee/string.scm 1344 */
return ((bool_t)0);} } } } } } } } } } } } } 

}



/* _string-suffix? */
obj_t BGl__stringzd2suffixzf3z21zz__r4_strings_6_7z00(obj_t BgL_env1186z00_231, obj_t BgL_opt1185z00_230)
{
{ /* Ieee/string.scm 1352 */
{ /* Ieee/string.scm 1352 */
 obj_t BgL_s1z00_2043; obj_t BgL_s2z00_2044;
{ 
 obj_t BgL_auxz00_12094;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12094 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12097;
BgL_auxz00_12097 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12097,BFALSE,BFALSE);} 
BgL_s1z00_2043 = 
VECTOR_REF(BgL_auxz00_12094,0L); } 
{ 
 obj_t BgL_auxz00_12102;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12102 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12105;
BgL_auxz00_12105 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12105,BFALSE,BFALSE);} 
BgL_s2z00_2044 = 
VECTOR_REF(BgL_auxz00_12102,1L); } 
{ 

{ /* Ieee/string.scm 1352 */
 long BgL_aux1188z00_2046;
{ 
 obj_t BgL_auxz00_12110;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12110 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12113;
BgL_auxz00_12113 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12113,BFALSE,BFALSE);} 
BgL_aux1188z00_2046 = 
VECTOR_LENGTH(BgL_auxz00_12110); } 
switch( BgL_aux1188z00_2046) { case 2L : 

{ /* Ieee/string.scm 1352 */

{ /* Ieee/string.scm 1352 */
 bool_t BgL_tmpz00_12118;
{ /* Ieee/string.scm 1352 */
 obj_t BgL_auxz00_12126; obj_t BgL_auxz00_12119;
if(
STRINGP(BgL_s2z00_2044))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12126 = BgL_s2z00_2044
; }  else 
{ 
 obj_t BgL_auxz00_12129;
BgL_auxz00_12129 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_2044); 
FAILURE(BgL_auxz00_12129,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2043))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12119 = BgL_s1z00_2043
; }  else 
{ 
 obj_t BgL_auxz00_12122;
BgL_auxz00_12122 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_2043); 
FAILURE(BgL_auxz00_12122,BFALSE,BFALSE);} 
BgL_tmpz00_12118 = 
BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_12119, BgL_auxz00_12126, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_12118);} } break;case 3L : 

{ /* Ieee/string.scm 1352 */
 obj_t BgL_start1z00_2051;
{ 
 obj_t BgL_auxz00_12135;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12135 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12138;
BgL_auxz00_12138 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12138,BFALSE,BFALSE);} 
BgL_start1z00_2051 = 
VECTOR_REF(BgL_auxz00_12135,2L); } 
{ /* Ieee/string.scm 1352 */

{ /* Ieee/string.scm 1352 */
 bool_t BgL_tmpz00_12143;
{ /* Ieee/string.scm 1352 */
 obj_t BgL_auxz00_12151; obj_t BgL_auxz00_12144;
if(
STRINGP(BgL_s2z00_2044))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12151 = BgL_s2z00_2044
; }  else 
{ 
 obj_t BgL_auxz00_12154;
BgL_auxz00_12154 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_2044); 
FAILURE(BgL_auxz00_12154,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2043))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12144 = BgL_s1z00_2043
; }  else 
{ 
 obj_t BgL_auxz00_12147;
BgL_auxz00_12147 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_2043); 
FAILURE(BgL_auxz00_12147,BFALSE,BFALSE);} 
BgL_tmpz00_12143 = 
BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_12144, BgL_auxz00_12151, BgL_start1z00_2051, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_12143);} } } break;case 4L : 

{ /* Ieee/string.scm 1352 */
 obj_t BgL_start1z00_2055;
{ 
 obj_t BgL_auxz00_12160;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12160 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12163;
BgL_auxz00_12163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12163,BFALSE,BFALSE);} 
BgL_start1z00_2055 = 
VECTOR_REF(BgL_auxz00_12160,2L); } 
{ /* Ieee/string.scm 1352 */
 obj_t BgL_end1z00_2056;
{ 
 obj_t BgL_auxz00_12168;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12168 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12171;
BgL_auxz00_12171 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12171,BFALSE,BFALSE);} 
BgL_end1z00_2056 = 
VECTOR_REF(BgL_auxz00_12168,3L); } 
{ /* Ieee/string.scm 1352 */

{ /* Ieee/string.scm 1352 */
 bool_t BgL_tmpz00_12176;
{ /* Ieee/string.scm 1352 */
 obj_t BgL_auxz00_12184; obj_t BgL_auxz00_12177;
if(
STRINGP(BgL_s2z00_2044))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12184 = BgL_s2z00_2044
; }  else 
{ 
 obj_t BgL_auxz00_12187;
BgL_auxz00_12187 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_2044); 
FAILURE(BgL_auxz00_12187,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2043))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12177 = BgL_s1z00_2043
; }  else 
{ 
 obj_t BgL_auxz00_12180;
BgL_auxz00_12180 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_2043); 
FAILURE(BgL_auxz00_12180,BFALSE,BFALSE);} 
BgL_tmpz00_12176 = 
BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_12177, BgL_auxz00_12184, BgL_start1z00_2055, BgL_end1z00_2056, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_12176);} } } } break;case 5L : 

{ /* Ieee/string.scm 1352 */
 obj_t BgL_start1z00_2059;
{ 
 obj_t BgL_auxz00_12193;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12193 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12196;
BgL_auxz00_12196 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12196,BFALSE,BFALSE);} 
BgL_start1z00_2059 = 
VECTOR_REF(BgL_auxz00_12193,2L); } 
{ /* Ieee/string.scm 1352 */
 obj_t BgL_end1z00_2060;
{ 
 obj_t BgL_auxz00_12201;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12201 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12204;
BgL_auxz00_12204 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12204,BFALSE,BFALSE);} 
BgL_end1z00_2060 = 
VECTOR_REF(BgL_auxz00_12201,3L); } 
{ /* Ieee/string.scm 1352 */
 obj_t BgL_start2z00_2061;
{ 
 obj_t BgL_auxz00_12209;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12209 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12212;
BgL_auxz00_12212 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12212,BFALSE,BFALSE);} 
BgL_start2z00_2061 = 
VECTOR_REF(BgL_auxz00_12209,4L); } 
{ /* Ieee/string.scm 1352 */

{ /* Ieee/string.scm 1352 */
 bool_t BgL_tmpz00_12217;
{ /* Ieee/string.scm 1352 */
 obj_t BgL_auxz00_12225; obj_t BgL_auxz00_12218;
if(
STRINGP(BgL_s2z00_2044))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12225 = BgL_s2z00_2044
; }  else 
{ 
 obj_t BgL_auxz00_12228;
BgL_auxz00_12228 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_2044); 
FAILURE(BgL_auxz00_12228,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2043))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12218 = BgL_s1z00_2043
; }  else 
{ 
 obj_t BgL_auxz00_12221;
BgL_auxz00_12221 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_2043); 
FAILURE(BgL_auxz00_12221,BFALSE,BFALSE);} 
BgL_tmpz00_12217 = 
BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_12218, BgL_auxz00_12225, BgL_start1z00_2059, BgL_end1z00_2060, BgL_start2z00_2061, BFALSE); } 
return 
BBOOL(BgL_tmpz00_12217);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1352 */
 obj_t BgL_start1z00_2063;
{ 
 obj_t BgL_auxz00_12234;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12234 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12237;
BgL_auxz00_12237 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12237,BFALSE,BFALSE);} 
BgL_start1z00_2063 = 
VECTOR_REF(BgL_auxz00_12234,2L); } 
{ /* Ieee/string.scm 1352 */
 obj_t BgL_end1z00_2064;
{ 
 obj_t BgL_auxz00_12242;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12242 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12245;
BgL_auxz00_12245 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12245,BFALSE,BFALSE);} 
BgL_end1z00_2064 = 
VECTOR_REF(BgL_auxz00_12242,3L); } 
{ /* Ieee/string.scm 1352 */
 obj_t BgL_start2z00_2065;
{ 
 obj_t BgL_auxz00_12250;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12250 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12253;
BgL_auxz00_12253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12253,BFALSE,BFALSE);} 
BgL_start2z00_2065 = 
VECTOR_REF(BgL_auxz00_12250,4L); } 
{ /* Ieee/string.scm 1352 */
 obj_t BgL_end2z00_2066;
{ 
 obj_t BgL_auxz00_12258;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12258 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12261;
BgL_auxz00_12261 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12261,BFALSE,BFALSE);} 
BgL_end2z00_2066 = 
VECTOR_REF(BgL_auxz00_12258,5L); } 
{ /* Ieee/string.scm 1352 */

{ /* Ieee/string.scm 1352 */
 bool_t BgL_tmpz00_12266;
{ /* Ieee/string.scm 1352 */
 obj_t BgL_auxz00_12274; obj_t BgL_auxz00_12267;
if(
STRINGP(BgL_s2z00_2044))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12274 = BgL_s2z00_2044
; }  else 
{ 
 obj_t BgL_auxz00_12277;
BgL_auxz00_12277 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_2044); 
FAILURE(BgL_auxz00_12277,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2043))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12267 = BgL_s1z00_2043
; }  else 
{ 
 obj_t BgL_auxz00_12270;
BgL_auxz00_12270 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3950z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_2043); 
FAILURE(BgL_auxz00_12270,BFALSE,BFALSE);} 
BgL_tmpz00_12266 = 
BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_12267, BgL_auxz00_12274, BgL_start1z00_2063, BgL_end1z00_2064, BgL_start2z00_2065, BgL_end2z00_2066); } 
return 
BBOOL(BgL_tmpz00_12266);} } } } } } break;
default: 
{ /* Ieee/string.scm 1352 */
 long BgL_arg1848z00_2067;
{ 
 obj_t BgL_auxz00_12283;
if(
VECTORP(BgL_opt1185z00_230))
{ /* Ieee/string.scm 1352 */
BgL_auxz00_12283 = BgL_opt1185z00_230
; }  else 
{ 
 obj_t BgL_auxz00_12286;
BgL_auxz00_12286 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(54818L), BGl_string3951z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1185z00_230); 
FAILURE(BgL_auxz00_12286,BFALSE,BFALSE);} 
BgL_arg1848z00_2067 = 
VECTOR_LENGTH(BgL_auxz00_12283); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3952z00zz__r4_strings_6_7z00, BGl_string3908z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1848z00_2067));} } } } } } 

}



/* string-suffix? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(obj_t BgL_s1z00_224, obj_t BgL_s2z00_225, obj_t BgL_start1z00_226, obj_t BgL_end1z00_227, obj_t BgL_start2z00_228, obj_t BgL_end2z00_229)
{
{ /* Ieee/string.scm 1352 */
{ /* Ieee/string.scm 1354 */
 long BgL_l1z00_2068;
BgL_l1z00_2068 = 
STRING_LENGTH(BgL_s1z00_224); 
{ /* Ieee/string.scm 1354 */
 long BgL_l2z00_2069;
BgL_l2z00_2069 = 
STRING_LENGTH(BgL_s2z00_225); 
{ /* Ieee/string.scm 1355 */
 obj_t BgL_b1z00_2070;
{ /* Ieee/string.scm 1356 */
 obj_t BgL_procz00_3661;
BgL_procz00_3661 = BGl_symbol3954z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_227))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test5097z00_12298;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3666;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_12299;
if(
INTEGERP(BgL_end1z00_227))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_12299 = BgL_end1z00_227
; }  else 
{ 
 obj_t BgL_auxz00_12302;
BgL_auxz00_12302 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3955z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_227); 
FAILURE(BgL_auxz00_12302,BFALSE,BFALSE);} 
BgL_n1z00_3666 = 
(long)CINT(BgL_tmpz00_12299); } 
BgL_test5097z00_12298 = 
(BgL_n1z00_3666<=0L); } 
if(BgL_test5097z00_12298)
{ /* Ieee/string.scm 1212 */
BgL_b1z00_2070 = 
BGl_errorz00zz__errorz00(BgL_procz00_3661, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_227); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test5099z00_12310;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3667;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_12311;
if(
INTEGERP(BgL_end1z00_227))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_12311 = BgL_end1z00_227
; }  else 
{ 
 obj_t BgL_auxz00_12314;
BgL_auxz00_12314 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3955z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_227); 
FAILURE(BgL_auxz00_12314,BFALSE,BFALSE);} 
BgL_n1z00_3667 = 
(long)CINT(BgL_tmpz00_12311); } 
BgL_test5099z00_12310 = 
(BgL_n1z00_3667>BgL_l1z00_2068); } 
if(BgL_test5099z00_12310)
{ /* Ieee/string.scm 1214 */
BgL_b1z00_2070 = 
BGl_errorz00zz__errorz00(BgL_procz00_3661, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_227); }  else 
{ /* Ieee/string.scm 1214 */
BgL_b1z00_2070 = BgL_end1z00_227; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_b1z00_2070 = 
BINT(BgL_l1z00_2068); } } 
{ /* Ieee/string.scm 1356 */
 obj_t BgL_b2z00_2071;
{ /* Ieee/string.scm 1357 */
 obj_t BgL_procz00_3669;
BgL_procz00_3669 = BGl_symbol3954z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_229))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test5102z00_12325;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3674;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_12326;
if(
INTEGERP(BgL_end2z00_229))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_12326 = BgL_end2z00_229
; }  else 
{ 
 obj_t BgL_auxz00_12329;
BgL_auxz00_12329 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3955z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_229); 
FAILURE(BgL_auxz00_12329,BFALSE,BFALSE);} 
BgL_n1z00_3674 = 
(long)CINT(BgL_tmpz00_12326); } 
BgL_test5102z00_12325 = 
(BgL_n1z00_3674<=0L); } 
if(BgL_test5102z00_12325)
{ /* Ieee/string.scm 1212 */
BgL_b2z00_2071 = 
BGl_errorz00zz__errorz00(BgL_procz00_3669, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_229); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test5104z00_12337;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3675;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_12338;
if(
INTEGERP(BgL_end2z00_229))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_12338 = BgL_end2z00_229
; }  else 
{ 
 obj_t BgL_auxz00_12341;
BgL_auxz00_12341 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3955z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_229); 
FAILURE(BgL_auxz00_12341,BFALSE,BFALSE);} 
BgL_n1z00_3675 = 
(long)CINT(BgL_tmpz00_12338); } 
BgL_test5104z00_12337 = 
(BgL_n1z00_3675>BgL_l2z00_2069); } 
if(BgL_test5104z00_12337)
{ /* Ieee/string.scm 1214 */
BgL_b2z00_2071 = 
BGl_errorz00zz__errorz00(BgL_procz00_3669, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_229); }  else 
{ /* Ieee/string.scm 1214 */
BgL_b2z00_2071 = BgL_end2z00_229; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_b2z00_2071 = 
BINT(BgL_l2z00_2069); } } 
{ /* Ieee/string.scm 1357 */
 obj_t BgL_e1z00_2072;
{ /* Ieee/string.scm 1358 */
 obj_t BgL_procz00_3677;
BgL_procz00_3677 = BGl_symbol3954z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_226))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test5107z00_12352;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3682;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_12353;
if(
INTEGERP(BgL_start1z00_226))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_12353 = BgL_start1z00_226
; }  else 
{ 
 obj_t BgL_auxz00_12356;
BgL_auxz00_12356 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3955z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_226); 
FAILURE(BgL_auxz00_12356,BFALSE,BFALSE);} 
BgL_n1z00_3682 = 
(long)CINT(BgL_tmpz00_12353); } 
BgL_test5107z00_12352 = 
(BgL_n1z00_3682<0L); } 
if(BgL_test5107z00_12352)
{ /* Ieee/string.scm 1198 */
BgL_e1z00_2072 = 
BGl_errorz00zz__errorz00(BgL_procz00_3677, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_226); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test5109z00_12364;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3683;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_12365;
if(
INTEGERP(BgL_start1z00_226))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_12365 = BgL_start1z00_226
; }  else 
{ 
 obj_t BgL_auxz00_12368;
BgL_auxz00_12368 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3955z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_226); 
FAILURE(BgL_auxz00_12368,BFALSE,BFALSE);} 
BgL_n1z00_3683 = 
(long)CINT(BgL_tmpz00_12365); } 
BgL_test5109z00_12364 = 
(BgL_n1z00_3683>=BgL_l1z00_2068); } 
if(BgL_test5109z00_12364)
{ /* Ieee/string.scm 1200 */
BgL_e1z00_2072 = 
BGl_errorz00zz__errorz00(BgL_procz00_3677, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_226); }  else 
{ /* Ieee/string.scm 1200 */
BgL_e1z00_2072 = BgL_start1z00_226; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_e1z00_2072 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1358 */
 obj_t BgL_e2z00_2073;
{ /* Ieee/string.scm 1359 */
 obj_t BgL_procz00_3685;
BgL_procz00_3685 = BGl_symbol3954z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_228))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test5112z00_12379;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3690;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_12380;
if(
INTEGERP(BgL_start2z00_228))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_12380 = BgL_start2z00_228
; }  else 
{ 
 obj_t BgL_auxz00_12383;
BgL_auxz00_12383 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3955z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_228); 
FAILURE(BgL_auxz00_12383,BFALSE,BFALSE);} 
BgL_n1z00_3690 = 
(long)CINT(BgL_tmpz00_12380); } 
BgL_test5112z00_12379 = 
(BgL_n1z00_3690<0L); } 
if(BgL_test5112z00_12379)
{ /* Ieee/string.scm 1198 */
BgL_e2z00_2073 = 
BGl_errorz00zz__errorz00(BgL_procz00_3685, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_228); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test5114z00_12391;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3691;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_12392;
if(
INTEGERP(BgL_start2z00_228))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_12392 = BgL_start2z00_228
; }  else 
{ 
 obj_t BgL_auxz00_12395;
BgL_auxz00_12395 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3955z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_228); 
FAILURE(BgL_auxz00_12395,BFALSE,BFALSE);} 
BgL_n1z00_3691 = 
(long)CINT(BgL_tmpz00_12392); } 
BgL_test5114z00_12391 = 
(BgL_n1z00_3691>=BgL_l2z00_2069); } 
if(BgL_test5114z00_12391)
{ /* Ieee/string.scm 1200 */
BgL_e2z00_2073 = 
BGl_errorz00zz__errorz00(BgL_procz00_3685, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_228); }  else 
{ /* Ieee/string.scm 1200 */
BgL_e2z00_2073 = BgL_start2z00_228; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_e2z00_2073 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1359 */

{ 
 long BgL_i1z00_2077; long BgL_i2z00_2078;
{ /* Ieee/string.scm 1360 */
 long BgL_za71za7_3693;
{ /* Ieee/string.scm 1360 */
 obj_t BgL_tmpz00_12452;
if(
INTEGERP(BgL_b1z00_2070))
{ /* Ieee/string.scm 1360 */
BgL_tmpz00_12452 = BgL_b1z00_2070
; }  else 
{ 
 obj_t BgL_auxz00_12455;
BgL_auxz00_12455 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55251L), BGl_string3955z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_2070); 
FAILURE(BgL_auxz00_12455,BFALSE,BFALSE);} 
BgL_za71za7_3693 = 
(long)CINT(BgL_tmpz00_12452); } 
BgL_i1z00_2077 = 
(BgL_za71za7_3693-1L); } 
{ /* Ieee/string.scm 1361 */
 long BgL_za71za7_3694;
{ /* Ieee/string.scm 1361 */
 obj_t BgL_tmpz00_12461;
if(
INTEGERP(BgL_b2z00_2071))
{ /* Ieee/string.scm 1361 */
BgL_tmpz00_12461 = BgL_b2z00_2071
; }  else 
{ 
 obj_t BgL_auxz00_12464;
BgL_auxz00_12464 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55270L), BGl_string3955z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b2z00_2071); 
FAILURE(BgL_auxz00_12464,BFALSE,BFALSE);} 
BgL_za71za7_3694 = 
(long)CINT(BgL_tmpz00_12461); } 
BgL_i2z00_2078 = 
(BgL_za71za7_3694-1L); } 
BgL_zc3z04anonymousza31849ze3z87_2079:
{ /* Ieee/string.scm 1363 */
 bool_t BgL_test5116z00_12404;
{ /* Ieee/string.scm 1363 */
 long BgL_n2z00_3696;
{ /* Ieee/string.scm 1363 */
 obj_t BgL_tmpz00_12405;
if(
INTEGERP(BgL_e1z00_2072))
{ /* Ieee/string.scm 1363 */
BgL_tmpz00_12405 = BgL_e1z00_2072
; }  else 
{ 
 obj_t BgL_auxz00_12408;
BgL_auxz00_12408 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55300L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e1z00_2072); 
FAILURE(BgL_auxz00_12408,BFALSE,BFALSE);} 
BgL_n2z00_3696 = 
(long)CINT(BgL_tmpz00_12405); } 
BgL_test5116z00_12404 = 
(BgL_i1z00_2077<BgL_n2z00_3696); } 
if(BgL_test5116z00_12404)
{ /* Ieee/string.scm 1363 */
return ((bool_t)1);}  else 
{ /* Ieee/string.scm 1365 */
 bool_t BgL_test5118z00_12414;
{ /* Ieee/string.scm 1365 */
 long BgL_n2z00_3698;
{ /* Ieee/string.scm 1365 */
 obj_t BgL_tmpz00_12415;
if(
INTEGERP(BgL_e2z00_2073))
{ /* Ieee/string.scm 1365 */
BgL_tmpz00_12415 = BgL_e2z00_2073
; }  else 
{ 
 obj_t BgL_auxz00_12418;
BgL_auxz00_12418 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55328L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e2z00_2073); 
FAILURE(BgL_auxz00_12418,BFALSE,BFALSE);} 
BgL_n2z00_3698 = 
(long)CINT(BgL_tmpz00_12415); } 
BgL_test5118z00_12414 = 
(BgL_i2z00_2078<BgL_n2z00_3698); } 
if(BgL_test5118z00_12414)
{ /* Ieee/string.scm 1365 */
return ((bool_t)0);}  else 
{ /* Ieee/string.scm 1367 */
 bool_t BgL_test5120z00_12424;
{ /* Ieee/string.scm 1367 */
 unsigned char BgL_auxz00_12436; unsigned char BgL_tmpz00_12425;
{ /* Ieee/string.scm 331 */
 long BgL_l2585z00_4534;
BgL_l2585z00_4534 = 
STRING_LENGTH(BgL_s2z00_225); 
if(
BOUND_CHECK(BgL_i2z00_2078, BgL_l2585z00_4534))
{ /* Ieee/string.scm 331 */
BgL_auxz00_12436 = 
STRING_REF(BgL_s2z00_225, BgL_i2z00_2078)
; }  else 
{ 
 obj_t BgL_auxz00_12441;
BgL_auxz00_12441 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s2z00_225, 
(int)(BgL_l2585z00_4534), 
(int)(BgL_i2z00_2078)); 
FAILURE(BgL_auxz00_12441,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 331 */
 long BgL_l2581z00_4530;
BgL_l2581z00_4530 = 
STRING_LENGTH(BgL_s1z00_224); 
if(
BOUND_CHECK(BgL_i1z00_2077, BgL_l2581z00_4530))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_12425 = 
STRING_REF(BgL_s1z00_224, BgL_i1z00_2077)
; }  else 
{ 
 obj_t BgL_auxz00_12430;
BgL_auxz00_12430 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s1z00_224, 
(int)(BgL_l2581z00_4530), 
(int)(BgL_i1z00_2077)); 
FAILURE(BgL_auxz00_12430,BFALSE,BFALSE);} } 
BgL_test5120z00_12424 = 
(BgL_tmpz00_12425==BgL_auxz00_12436); } 
if(BgL_test5120z00_12424)
{ 
 long BgL_i2z00_12450; long BgL_i1z00_12448;
BgL_i1z00_12448 = 
(BgL_i1z00_2077-1L); 
BgL_i2z00_12450 = 
(BgL_i2z00_2078-1L); 
BgL_i2z00_2078 = BgL_i2z00_12450; 
BgL_i1z00_2077 = BgL_i1z00_12448; 
goto BgL_zc3z04anonymousza31849ze3z87_2079;}  else 
{ /* Ieee/string.scm 1367 */
return ((bool_t)0);} } } } } } } } } } } } } 

}



/* _string-suffix-ci? */
obj_t BGl__stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t BgL_env1190z00_239, obj_t BgL_opt1189z00_238)
{
{ /* Ieee/string.scm 1375 */
{ /* Ieee/string.scm 1375 */
 obj_t BgL_s1z00_2090; obj_t BgL_s2z00_2091;
{ 
 obj_t BgL_auxz00_12470;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12470 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12473;
BgL_auxz00_12473 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12473,BFALSE,BFALSE);} 
BgL_s1z00_2090 = 
VECTOR_REF(BgL_auxz00_12470,0L); } 
{ 
 obj_t BgL_auxz00_12478;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12478 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12481;
BgL_auxz00_12481 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12481,BFALSE,BFALSE);} 
BgL_s2z00_2091 = 
VECTOR_REF(BgL_auxz00_12478,1L); } 
{ 

{ /* Ieee/string.scm 1375 */
 long BgL_aux1192z00_2093;
{ 
 obj_t BgL_auxz00_12486;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12486 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12489;
BgL_auxz00_12489 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12489,BFALSE,BFALSE);} 
BgL_aux1192z00_2093 = 
VECTOR_LENGTH(BgL_auxz00_12486); } 
switch( BgL_aux1192z00_2093) { case 2L : 

{ /* Ieee/string.scm 1375 */

{ /* Ieee/string.scm 1375 */
 bool_t BgL_tmpz00_12494;
{ /* Ieee/string.scm 1375 */
 obj_t BgL_auxz00_12502; obj_t BgL_auxz00_12495;
if(
STRINGP(BgL_s2z00_2091))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12502 = BgL_s2z00_2091
; }  else 
{ 
 obj_t BgL_auxz00_12505;
BgL_auxz00_12505 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_2091); 
FAILURE(BgL_auxz00_12505,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2090))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12495 = BgL_s1z00_2090
; }  else 
{ 
 obj_t BgL_auxz00_12498;
BgL_auxz00_12498 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_2090); 
FAILURE(BgL_auxz00_12498,BFALSE,BFALSE);} 
BgL_tmpz00_12494 = 
BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_12495, BgL_auxz00_12502, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_12494);} } break;case 3L : 

{ /* Ieee/string.scm 1375 */
 obj_t BgL_start1z00_2098;
{ 
 obj_t BgL_auxz00_12511;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12511 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12514;
BgL_auxz00_12514 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12514,BFALSE,BFALSE);} 
BgL_start1z00_2098 = 
VECTOR_REF(BgL_auxz00_12511,2L); } 
{ /* Ieee/string.scm 1375 */

{ /* Ieee/string.scm 1375 */
 bool_t BgL_tmpz00_12519;
{ /* Ieee/string.scm 1375 */
 obj_t BgL_auxz00_12527; obj_t BgL_auxz00_12520;
if(
STRINGP(BgL_s2z00_2091))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12527 = BgL_s2z00_2091
; }  else 
{ 
 obj_t BgL_auxz00_12530;
BgL_auxz00_12530 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_2091); 
FAILURE(BgL_auxz00_12530,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2090))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12520 = BgL_s1z00_2090
; }  else 
{ 
 obj_t BgL_auxz00_12523;
BgL_auxz00_12523 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_2090); 
FAILURE(BgL_auxz00_12523,BFALSE,BFALSE);} 
BgL_tmpz00_12519 = 
BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_12520, BgL_auxz00_12527, BgL_start1z00_2098, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_12519);} } } break;case 4L : 

{ /* Ieee/string.scm 1375 */
 obj_t BgL_start1z00_2102;
{ 
 obj_t BgL_auxz00_12536;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12536 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12539;
BgL_auxz00_12539 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12539,BFALSE,BFALSE);} 
BgL_start1z00_2102 = 
VECTOR_REF(BgL_auxz00_12536,2L); } 
{ /* Ieee/string.scm 1375 */
 obj_t BgL_end1z00_2103;
{ 
 obj_t BgL_auxz00_12544;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12544 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12547;
BgL_auxz00_12547 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12547,BFALSE,BFALSE);} 
BgL_end1z00_2103 = 
VECTOR_REF(BgL_auxz00_12544,3L); } 
{ /* Ieee/string.scm 1375 */

{ /* Ieee/string.scm 1375 */
 bool_t BgL_tmpz00_12552;
{ /* Ieee/string.scm 1375 */
 obj_t BgL_auxz00_12560; obj_t BgL_auxz00_12553;
if(
STRINGP(BgL_s2z00_2091))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12560 = BgL_s2z00_2091
; }  else 
{ 
 obj_t BgL_auxz00_12563;
BgL_auxz00_12563 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_2091); 
FAILURE(BgL_auxz00_12563,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2090))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12553 = BgL_s1z00_2090
; }  else 
{ 
 obj_t BgL_auxz00_12556;
BgL_auxz00_12556 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_2090); 
FAILURE(BgL_auxz00_12556,BFALSE,BFALSE);} 
BgL_tmpz00_12552 = 
BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_12553, BgL_auxz00_12560, BgL_start1z00_2102, BgL_end1z00_2103, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_12552);} } } } break;case 5L : 

{ /* Ieee/string.scm 1375 */
 obj_t BgL_start1z00_2106;
{ 
 obj_t BgL_auxz00_12569;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12569 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12572;
BgL_auxz00_12572 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12572,BFALSE,BFALSE);} 
BgL_start1z00_2106 = 
VECTOR_REF(BgL_auxz00_12569,2L); } 
{ /* Ieee/string.scm 1375 */
 obj_t BgL_end1z00_2107;
{ 
 obj_t BgL_auxz00_12577;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12577 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12580;
BgL_auxz00_12580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12580,BFALSE,BFALSE);} 
BgL_end1z00_2107 = 
VECTOR_REF(BgL_auxz00_12577,3L); } 
{ /* Ieee/string.scm 1375 */
 obj_t BgL_start2z00_2108;
{ 
 obj_t BgL_auxz00_12585;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12585 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12588;
BgL_auxz00_12588 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12588,BFALSE,BFALSE);} 
BgL_start2z00_2108 = 
VECTOR_REF(BgL_auxz00_12585,4L); } 
{ /* Ieee/string.scm 1375 */

{ /* Ieee/string.scm 1375 */
 bool_t BgL_tmpz00_12593;
{ /* Ieee/string.scm 1375 */
 obj_t BgL_auxz00_12601; obj_t BgL_auxz00_12594;
if(
STRINGP(BgL_s2z00_2091))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12601 = BgL_s2z00_2091
; }  else 
{ 
 obj_t BgL_auxz00_12604;
BgL_auxz00_12604 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_2091); 
FAILURE(BgL_auxz00_12604,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2090))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12594 = BgL_s1z00_2090
; }  else 
{ 
 obj_t BgL_auxz00_12597;
BgL_auxz00_12597 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_2090); 
FAILURE(BgL_auxz00_12597,BFALSE,BFALSE);} 
BgL_tmpz00_12593 = 
BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_12594, BgL_auxz00_12601, BgL_start1z00_2106, BgL_end1z00_2107, BgL_start2z00_2108, BFALSE); } 
return 
BBOOL(BgL_tmpz00_12593);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1375 */
 obj_t BgL_start1z00_2110;
{ 
 obj_t BgL_auxz00_12610;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12610 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12613;
BgL_auxz00_12613 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12613,BFALSE,BFALSE);} 
BgL_start1z00_2110 = 
VECTOR_REF(BgL_auxz00_12610,2L); } 
{ /* Ieee/string.scm 1375 */
 obj_t BgL_end1z00_2111;
{ 
 obj_t BgL_auxz00_12618;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12618 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12621;
BgL_auxz00_12621 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12621,BFALSE,BFALSE);} 
BgL_end1z00_2111 = 
VECTOR_REF(BgL_auxz00_12618,3L); } 
{ /* Ieee/string.scm 1375 */
 obj_t BgL_start2z00_2112;
{ 
 obj_t BgL_auxz00_12626;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12626 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12629;
BgL_auxz00_12629 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12629,BFALSE,BFALSE);} 
BgL_start2z00_2112 = 
VECTOR_REF(BgL_auxz00_12626,4L); } 
{ /* Ieee/string.scm 1375 */
 obj_t BgL_end2z00_2113;
{ 
 obj_t BgL_auxz00_12634;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12634 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12637;
BgL_auxz00_12637 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12637,BFALSE,BFALSE);} 
BgL_end2z00_2113 = 
VECTOR_REF(BgL_auxz00_12634,5L); } 
{ /* Ieee/string.scm 1375 */

{ /* Ieee/string.scm 1375 */
 bool_t BgL_tmpz00_12642;
{ /* Ieee/string.scm 1375 */
 obj_t BgL_auxz00_12650; obj_t BgL_auxz00_12643;
if(
STRINGP(BgL_s2z00_2091))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12650 = BgL_s2z00_2091
; }  else 
{ 
 obj_t BgL_auxz00_12653;
BgL_auxz00_12653 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s2z00_2091); 
FAILURE(BgL_auxz00_12653,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2090))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12643 = BgL_s1z00_2090
; }  else 
{ 
 obj_t BgL_auxz00_12646;
BgL_auxz00_12646 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3956z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_s1z00_2090); 
FAILURE(BgL_auxz00_12646,BFALSE,BFALSE);} 
BgL_tmpz00_12642 = 
BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_12643, BgL_auxz00_12650, BgL_start1z00_2110, BgL_end1z00_2111, BgL_start2z00_2112, BgL_end2z00_2113); } 
return 
BBOOL(BgL_tmpz00_12642);} } } } } } break;
default: 
{ /* Ieee/string.scm 1375 */
 long BgL_arg1860z00_2114;
{ 
 obj_t BgL_auxz00_12659;
if(
VECTORP(BgL_opt1189z00_238))
{ /* Ieee/string.scm 1375 */
BgL_auxz00_12659 = BgL_opt1189z00_238
; }  else 
{ 
 obj_t BgL_auxz00_12662;
BgL_auxz00_12662 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(55679L), BGl_string3957z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1189z00_238); 
FAILURE(BgL_auxz00_12662,BFALSE,BFALSE);} 
BgL_arg1860z00_2114 = 
VECTOR_LENGTH(BgL_auxz00_12659); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3958z00zz__r4_strings_6_7z00, BGl_string3908z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1860z00_2114));} } } } } } 

}



/* string-suffix-ci? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t BgL_s1z00_232, obj_t BgL_s2z00_233, obj_t BgL_start1z00_234, obj_t BgL_end1z00_235, obj_t BgL_start2z00_236, obj_t BgL_end2z00_237)
{
{ /* Ieee/string.scm 1375 */
{ /* Ieee/string.scm 1377 */
 long BgL_l1z00_2115;
BgL_l1z00_2115 = 
STRING_LENGTH(BgL_s1z00_232); 
{ /* Ieee/string.scm 1377 */
 long BgL_l2z00_2116;
BgL_l2z00_2116 = 
STRING_LENGTH(BgL_s2z00_233); 
{ /* Ieee/string.scm 1378 */
 obj_t BgL_b1z00_2117;
{ /* Ieee/string.scm 1379 */
 obj_t BgL_procz00_3709;
BgL_procz00_3709 = BGl_symbol3909z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_235))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test5150z00_12674;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3714;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_12675;
if(
INTEGERP(BgL_end1z00_235))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_12675 = BgL_end1z00_235
; }  else 
{ 
 obj_t BgL_auxz00_12678;
BgL_auxz00_12678 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3960z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_235); 
FAILURE(BgL_auxz00_12678,BFALSE,BFALSE);} 
BgL_n1z00_3714 = 
(long)CINT(BgL_tmpz00_12675); } 
BgL_test5150z00_12674 = 
(BgL_n1z00_3714<=0L); } 
if(BgL_test5150z00_12674)
{ /* Ieee/string.scm 1212 */
BgL_b1z00_2117 = 
BGl_errorz00zz__errorz00(BgL_procz00_3709, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_235); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test5152z00_12686;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3715;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_12687;
if(
INTEGERP(BgL_end1z00_235))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_12687 = BgL_end1z00_235
; }  else 
{ 
 obj_t BgL_auxz00_12690;
BgL_auxz00_12690 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3960z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end1z00_235); 
FAILURE(BgL_auxz00_12690,BFALSE,BFALSE);} 
BgL_n1z00_3715 = 
(long)CINT(BgL_tmpz00_12687); } 
BgL_test5152z00_12686 = 
(BgL_n1z00_3715>BgL_l1z00_2115); } 
if(BgL_test5152z00_12686)
{ /* Ieee/string.scm 1214 */
BgL_b1z00_2117 = 
BGl_errorz00zz__errorz00(BgL_procz00_3709, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3912z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end1z00_235); }  else 
{ /* Ieee/string.scm 1214 */
BgL_b1z00_2117 = BgL_end1z00_235; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_b1z00_2117 = 
BINT(BgL_l1z00_2115); } } 
{ /* Ieee/string.scm 1379 */
 obj_t BgL_b2z00_2118;
{ /* Ieee/string.scm 1380 */
 obj_t BgL_procz00_3717;
BgL_procz00_3717 = BGl_symbol3909z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_237))
{ /* Ieee/string.scm 1212 */
 bool_t BgL_test5155z00_12701;
{ /* Ieee/string.scm 1212 */
 long BgL_n1z00_3722;
{ /* Ieee/string.scm 1212 */
 obj_t BgL_tmpz00_12702;
if(
INTEGERP(BgL_end2z00_237))
{ /* Ieee/string.scm 1212 */
BgL_tmpz00_12702 = BgL_end2z00_237
; }  else 
{ 
 obj_t BgL_auxz00_12705;
BgL_auxz00_12705 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49072L), BGl_string3960z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_237); 
FAILURE(BgL_auxz00_12705,BFALSE,BFALSE);} 
BgL_n1z00_3722 = 
(long)CINT(BgL_tmpz00_12702); } 
BgL_test5155z00_12701 = 
(BgL_n1z00_3722<=0L); } 
if(BgL_test5155z00_12701)
{ /* Ieee/string.scm 1212 */
BgL_b2z00_2118 = 
BGl_errorz00zz__errorz00(BgL_procz00_3717, 
string_append_3(BGl_string3911z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_237); }  else 
{ /* Ieee/string.scm 1214 */
 bool_t BgL_test5157z00_12713;
{ /* Ieee/string.scm 1214 */
 long BgL_n1z00_3723;
{ /* Ieee/string.scm 1214 */
 obj_t BgL_tmpz00_12714;
if(
INTEGERP(BgL_end2z00_237))
{ /* Ieee/string.scm 1214 */
BgL_tmpz00_12714 = BgL_end2z00_237
; }  else 
{ 
 obj_t BgL_auxz00_12717;
BgL_auxz00_12717 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(49164L), BGl_string3960z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_end2z00_237); 
FAILURE(BgL_auxz00_12717,BFALSE,BFALSE);} 
BgL_n1z00_3723 = 
(long)CINT(BgL_tmpz00_12714); } 
BgL_test5157z00_12713 = 
(BgL_n1z00_3723>BgL_l2z00_2116); } 
if(BgL_test5157z00_12713)
{ /* Ieee/string.scm 1214 */
BgL_b2z00_2118 = 
BGl_errorz00zz__errorz00(BgL_procz00_3717, 
string_append_3(BGl_string3914z00zz__r4_strings_6_7z00, BGl_string3915z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_end2z00_237); }  else 
{ /* Ieee/string.scm 1214 */
BgL_b2z00_2118 = BgL_end2z00_237; } } }  else 
{ /* Ieee/string.scm 1210 */
BgL_b2z00_2118 = 
BINT(BgL_l2z00_2116); } } 
{ /* Ieee/string.scm 1380 */
 obj_t BgL_e1z00_2119;
{ /* Ieee/string.scm 1381 */
 obj_t BgL_procz00_3725;
BgL_procz00_3725 = BGl_symbol3909z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_234))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test5160z00_12728;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3730;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_12729;
if(
INTEGERP(BgL_start1z00_234))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_12729 = BgL_start1z00_234
; }  else 
{ 
 obj_t BgL_auxz00_12732;
BgL_auxz00_12732 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3960z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_234); 
FAILURE(BgL_auxz00_12732,BFALSE,BFALSE);} 
BgL_n1z00_3730 = 
(long)CINT(BgL_tmpz00_12729); } 
BgL_test5160z00_12728 = 
(BgL_n1z00_3730<0L); } 
if(BgL_test5160z00_12728)
{ /* Ieee/string.scm 1198 */
BgL_e1z00_2119 = 
BGl_errorz00zz__errorz00(BgL_procz00_3725, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_234); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test5162z00_12740;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3731;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_12741;
if(
INTEGERP(BgL_start1z00_234))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_12741 = BgL_start1z00_234
; }  else 
{ 
 obj_t BgL_auxz00_12744;
BgL_auxz00_12744 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3960z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start1z00_234); 
FAILURE(BgL_auxz00_12744,BFALSE,BFALSE);} 
BgL_n1z00_3731 = 
(long)CINT(BgL_tmpz00_12741); } 
BgL_test5162z00_12740 = 
(BgL_n1z00_3731>=BgL_l1z00_2115); } 
if(BgL_test5162z00_12740)
{ /* Ieee/string.scm 1200 */
BgL_e1z00_2119 = 
BGl_errorz00zz__errorz00(BgL_procz00_3725, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3917z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start1z00_234); }  else 
{ /* Ieee/string.scm 1200 */
BgL_e1z00_2119 = BgL_start1z00_234; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_e1z00_2119 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1381 */
 obj_t BgL_e2z00_2120;
{ /* Ieee/string.scm 1382 */
 obj_t BgL_procz00_3733;
BgL_procz00_3733 = BGl_symbol3909z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_236))
{ /* Ieee/string.scm 1198 */
 bool_t BgL_test5165z00_12755;
{ /* Ieee/string.scm 1198 */
 long BgL_n1z00_3738;
{ /* Ieee/string.scm 1198 */
 obj_t BgL_tmpz00_12756;
if(
INTEGERP(BgL_start2z00_236))
{ /* Ieee/string.scm 1198 */
BgL_tmpz00_12756 = BgL_start2z00_236
; }  else 
{ 
 obj_t BgL_auxz00_12759;
BgL_auxz00_12759 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48551L), BGl_string3960z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_236); 
FAILURE(BgL_auxz00_12759,BFALSE,BFALSE);} 
BgL_n1z00_3738 = 
(long)CINT(BgL_tmpz00_12756); } 
BgL_test5165z00_12755 = 
(BgL_n1z00_3738<0L); } 
if(BgL_test5165z00_12755)
{ /* Ieee/string.scm 1198 */
BgL_e2z00_2120 = 
BGl_errorz00zz__errorz00(BgL_procz00_3733, 
string_append_3(BGl_string3916z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_236); }  else 
{ /* Ieee/string.scm 1200 */
 bool_t BgL_test5167z00_12767;
{ /* Ieee/string.scm 1200 */
 long BgL_n1z00_3739;
{ /* Ieee/string.scm 1200 */
 obj_t BgL_tmpz00_12768;
if(
INTEGERP(BgL_start2z00_236))
{ /* Ieee/string.scm 1200 */
BgL_tmpz00_12768 = BgL_start2z00_236
; }  else 
{ 
 obj_t BgL_auxz00_12771;
BgL_auxz00_12771 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(48646L), BGl_string3960z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_start2z00_236); 
FAILURE(BgL_auxz00_12771,BFALSE,BFALSE);} 
BgL_n1z00_3739 = 
(long)CINT(BgL_tmpz00_12768); } 
BgL_test5167z00_12767 = 
(BgL_n1z00_3739>=BgL_l2z00_2116); } 
if(BgL_test5167z00_12767)
{ /* Ieee/string.scm 1200 */
BgL_e2z00_2120 = 
BGl_errorz00zz__errorz00(BgL_procz00_3733, 
string_append_3(BGl_string3918z00zz__r4_strings_6_7z00, BGl_string3919z00zz__r4_strings_6_7z00, BGl_string3913z00zz__r4_strings_6_7z00), BgL_start2z00_236); }  else 
{ /* Ieee/string.scm 1200 */
BgL_e2z00_2120 = BgL_start2z00_236; } } }  else 
{ /* Ieee/string.scm 1196 */
BgL_e2z00_2120 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1382 */

{ 
 long BgL_i1z00_2124; long BgL_i2z00_2125;
{ /* Ieee/string.scm 1383 */
 long BgL_za71za7_3741;
{ /* Ieee/string.scm 1383 */
 obj_t BgL_tmpz00_12832;
if(
INTEGERP(BgL_b1z00_2117))
{ /* Ieee/string.scm 1383 */
BgL_tmpz00_12832 = BgL_b1z00_2117
; }  else 
{ 
 obj_t BgL_auxz00_12835;
BgL_auxz00_12835 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56135L), BGl_string3960z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b1z00_2117); 
FAILURE(BgL_auxz00_12835,BFALSE,BFALSE);} 
BgL_za71za7_3741 = 
(long)CINT(BgL_tmpz00_12832); } 
BgL_i1z00_2124 = 
(BgL_za71za7_3741-1L); } 
{ /* Ieee/string.scm 1384 */
 long BgL_za71za7_3742;
{ /* Ieee/string.scm 1384 */
 obj_t BgL_tmpz00_12841;
if(
INTEGERP(BgL_b2z00_2118))
{ /* Ieee/string.scm 1384 */
BgL_tmpz00_12841 = BgL_b2z00_2118
; }  else 
{ 
 obj_t BgL_auxz00_12844;
BgL_auxz00_12844 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56154L), BGl_string3960z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_b2z00_2118); 
FAILURE(BgL_auxz00_12844,BFALSE,BFALSE);} 
BgL_za71za7_3742 = 
(long)CINT(BgL_tmpz00_12841); } 
BgL_i2z00_2125 = 
(BgL_za71za7_3742-1L); } 
BgL_zc3z04anonymousza31861ze3z87_2126:
{ /* Ieee/string.scm 1386 */
 bool_t BgL_test5169z00_12780;
{ /* Ieee/string.scm 1386 */
 long BgL_n2z00_3744;
{ /* Ieee/string.scm 1386 */
 obj_t BgL_tmpz00_12781;
if(
INTEGERP(BgL_e1z00_2119))
{ /* Ieee/string.scm 1386 */
BgL_tmpz00_12781 = BgL_e1z00_2119
; }  else 
{ 
 obj_t BgL_auxz00_12784;
BgL_auxz00_12784 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56184L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e1z00_2119); 
FAILURE(BgL_auxz00_12784,BFALSE,BFALSE);} 
BgL_n2z00_3744 = 
(long)CINT(BgL_tmpz00_12781); } 
BgL_test5169z00_12780 = 
(BgL_i1z00_2124<BgL_n2z00_3744); } 
if(BgL_test5169z00_12780)
{ /* Ieee/string.scm 1386 */
return ((bool_t)1);}  else 
{ /* Ieee/string.scm 1388 */
 bool_t BgL_test5171z00_12790;
{ /* Ieee/string.scm 1388 */
 long BgL_n2z00_3746;
{ /* Ieee/string.scm 1388 */
 obj_t BgL_tmpz00_12791;
if(
INTEGERP(BgL_e2z00_2120))
{ /* Ieee/string.scm 1388 */
BgL_tmpz00_12791 = BgL_e2z00_2120
; }  else 
{ 
 obj_t BgL_auxz00_12794;
BgL_auxz00_12794 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56212L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_e2z00_2120); 
FAILURE(BgL_auxz00_12794,BFALSE,BFALSE);} 
BgL_n2z00_3746 = 
(long)CINT(BgL_tmpz00_12791); } 
BgL_test5171z00_12790 = 
(BgL_i2z00_2125<BgL_n2z00_3746); } 
if(BgL_test5171z00_12790)
{ /* Ieee/string.scm 1388 */
return ((bool_t)0);}  else 
{ /* Ieee/string.scm 1390 */
 bool_t BgL_test5173z00_12800;
{ /* Ieee/string.scm 1390 */
 unsigned char BgL_auxz00_12814; unsigned char BgL_tmpz00_12801;
{ /* Ieee/string.scm 1390 */
 unsigned char BgL_tmpz00_12815;
{ /* Ieee/string.scm 331 */
 long BgL_l2593z00_4542;
BgL_l2593z00_4542 = 
STRING_LENGTH(BgL_s2z00_233); 
if(
BOUND_CHECK(BgL_i2z00_2125, BgL_l2593z00_4542))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_12815 = 
STRING_REF(BgL_s2z00_233, BgL_i2z00_2125)
; }  else 
{ 
 obj_t BgL_auxz00_12820;
BgL_auxz00_12820 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s2z00_233, 
(int)(BgL_l2593z00_4542), 
(int)(BgL_i2z00_2125)); 
FAILURE(BgL_auxz00_12820,BFALSE,BFALSE);} } 
BgL_auxz00_12814 = 
toupper(BgL_tmpz00_12815); } 
{ /* Ieee/string.scm 1390 */
 unsigned char BgL_tmpz00_12802;
{ /* Ieee/string.scm 331 */
 long BgL_l2589z00_4538;
BgL_l2589z00_4538 = 
STRING_LENGTH(BgL_s1z00_232); 
if(
BOUND_CHECK(BgL_i1z00_2124, BgL_l2589z00_4538))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_12802 = 
STRING_REF(BgL_s1z00_232, BgL_i1z00_2124)
; }  else 
{ 
 obj_t BgL_auxz00_12807;
BgL_auxz00_12807 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_s1z00_232, 
(int)(BgL_l2589z00_4538), 
(int)(BgL_i1z00_2124)); 
FAILURE(BgL_auxz00_12807,BFALSE,BFALSE);} } 
BgL_tmpz00_12801 = 
toupper(BgL_tmpz00_12802); } 
BgL_test5173z00_12800 = 
(BgL_tmpz00_12801==BgL_auxz00_12814); } 
if(BgL_test5173z00_12800)
{ 
 long BgL_i2z00_12830; long BgL_i1z00_12828;
BgL_i1z00_12828 = 
(BgL_i1z00_2124-1L); 
BgL_i2z00_12830 = 
(BgL_i2z00_2125-1L); 
BgL_i2z00_2125 = BgL_i2z00_12830; 
BgL_i1z00_2124 = BgL_i1z00_12828; 
goto BgL_zc3z04anonymousza31861ze3z87_2126;}  else 
{ /* Ieee/string.scm 1390 */
return ((bool_t)0);} } } } } } } } } } } } } 

}



/* _string-natural-compare3 */
obj_t BGl__stringzd2naturalzd2compare3z00zz__r4_strings_6_7z00(obj_t BgL_env1194z00_245, obj_t BgL_opt1193z00_244)
{
{ /* Ieee/string.scm 1398 */
{ /* Ieee/string.scm 1398 */
 obj_t BgL_g1195z00_2137; obj_t BgL_g1196z00_2138;
{ 
 obj_t BgL_auxz00_12850;
if(
VECTORP(BgL_opt1193z00_244))
{ /* Ieee/string.scm 1398 */
BgL_auxz00_12850 = BgL_opt1193z00_244
; }  else 
{ 
 obj_t BgL_auxz00_12853;
BgL_auxz00_12853 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1193z00_244); 
FAILURE(BgL_auxz00_12853,BFALSE,BFALSE);} 
BgL_g1195z00_2137 = 
VECTOR_REF(BgL_auxz00_12850,0L); } 
{ 
 obj_t BgL_auxz00_12858;
if(
VECTORP(BgL_opt1193z00_244))
{ /* Ieee/string.scm 1398 */
BgL_auxz00_12858 = BgL_opt1193z00_244
; }  else 
{ 
 obj_t BgL_auxz00_12861;
BgL_auxz00_12861 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1193z00_244); 
FAILURE(BgL_auxz00_12861,BFALSE,BFALSE);} 
BgL_g1196z00_2138 = 
VECTOR_REF(BgL_auxz00_12858,1L); } 
{ 

{ /* Ieee/string.scm 1398 */
 long BgL_aux1198z00_2140;
{ 
 obj_t BgL_auxz00_12866;
if(
VECTORP(BgL_opt1193z00_244))
{ /* Ieee/string.scm 1398 */
BgL_auxz00_12866 = BgL_opt1193z00_244
; }  else 
{ 
 obj_t BgL_auxz00_12869;
BgL_auxz00_12869 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1193z00_244); 
FAILURE(BgL_auxz00_12869,BFALSE,BFALSE);} 
BgL_aux1198z00_2140 = 
VECTOR_LENGTH(BgL_auxz00_12866); } 
switch( BgL_aux1198z00_2140) { case 2L : 

{ /* Ieee/string.scm 1398 */

{ /* Ieee/string.scm 1398 */
 int BgL_res2227z00_3763;
{ /* Ieee/string.scm 1398 */
 obj_t BgL_az00_3761; obj_t BgL_bz00_3762;
if(
STRINGP(BgL_g1195z00_2137))
{ /* Ieee/string.scm 1398 */
BgL_az00_3761 = BgL_g1195z00_2137; }  else 
{ 
 obj_t BgL_auxz00_12876;
BgL_auxz00_12876 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1195z00_2137); 
FAILURE(BgL_auxz00_12876,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1196z00_2138))
{ /* Ieee/string.scm 1398 */
BgL_bz00_3762 = BgL_g1196z00_2138; }  else 
{ 
 obj_t BgL_auxz00_12882;
BgL_auxz00_12882 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1196z00_2138); 
FAILURE(BgL_auxz00_12882,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1399 */
 obj_t BgL_tmpz00_12886;
{ /* Ieee/string.scm 1399 */
 obj_t BgL_aux3659z00_5611;
BgL_aux3659z00_5611 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3761, BgL_bz00_3762, ((bool_t)0), 
BINT(0L), 
BINT(0L)); 
if(
INTEGERP(BgL_aux3659z00_5611))
{ /* Ieee/string.scm 1399 */
BgL_tmpz00_12886 = BgL_aux3659z00_5611
; }  else 
{ 
 obj_t BgL_auxz00_12892;
BgL_auxz00_12892 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56640L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3659z00_5611); 
FAILURE(BgL_auxz00_12892,BFALSE,BFALSE);} } 
BgL_res2227z00_3763 = 
CINT(BgL_tmpz00_12886); } } 
return 
BINT(BgL_res2227z00_3763);} } break;case 3L : 

{ /* Ieee/string.scm 1398 */
 obj_t BgL_start1z00_2143;
{ 
 obj_t BgL_auxz00_12898;
if(
VECTORP(BgL_opt1193z00_244))
{ /* Ieee/string.scm 1398 */
BgL_auxz00_12898 = BgL_opt1193z00_244
; }  else 
{ 
 obj_t BgL_auxz00_12901;
BgL_auxz00_12901 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1193z00_244); 
FAILURE(BgL_auxz00_12901,BFALSE,BFALSE);} 
BgL_start1z00_2143 = 
VECTOR_REF(BgL_auxz00_12898,2L); } 
{ /* Ieee/string.scm 1398 */

{ /* Ieee/string.scm 1398 */
 int BgL_res2228z00_3766;
{ /* Ieee/string.scm 1398 */
 obj_t BgL_az00_3764; obj_t BgL_bz00_3765;
if(
STRINGP(BgL_g1195z00_2137))
{ /* Ieee/string.scm 1398 */
BgL_az00_3764 = BgL_g1195z00_2137; }  else 
{ 
 obj_t BgL_auxz00_12908;
BgL_auxz00_12908 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1195z00_2137); 
FAILURE(BgL_auxz00_12908,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1196z00_2138))
{ /* Ieee/string.scm 1398 */
BgL_bz00_3765 = BgL_g1196z00_2138; }  else 
{ 
 obj_t BgL_auxz00_12914;
BgL_auxz00_12914 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1196z00_2138); 
FAILURE(BgL_auxz00_12914,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1399 */
 obj_t BgL_tmpz00_12918;
{ /* Ieee/string.scm 1399 */
 obj_t BgL_aux3666z00_5618;
BgL_aux3666z00_5618 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3764, BgL_bz00_3765, ((bool_t)0), BgL_start1z00_2143, 
BINT(0L)); 
if(
INTEGERP(BgL_aux3666z00_5618))
{ /* Ieee/string.scm 1399 */
BgL_tmpz00_12918 = BgL_aux3666z00_5618
; }  else 
{ 
 obj_t BgL_auxz00_12923;
BgL_auxz00_12923 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56640L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3666z00_5618); 
FAILURE(BgL_auxz00_12923,BFALSE,BFALSE);} } 
BgL_res2228z00_3766 = 
CINT(BgL_tmpz00_12918); } } 
return 
BINT(BgL_res2228z00_3766);} } } break;case 4L : 

{ /* Ieee/string.scm 1398 */
 obj_t BgL_start1z00_2145;
{ 
 obj_t BgL_auxz00_12929;
if(
VECTORP(BgL_opt1193z00_244))
{ /* Ieee/string.scm 1398 */
BgL_auxz00_12929 = BgL_opt1193z00_244
; }  else 
{ 
 obj_t BgL_auxz00_12932;
BgL_auxz00_12932 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1193z00_244); 
FAILURE(BgL_auxz00_12932,BFALSE,BFALSE);} 
BgL_start1z00_2145 = 
VECTOR_REF(BgL_auxz00_12929,2L); } 
{ /* Ieee/string.scm 1398 */
 obj_t BgL_start2z00_2146;
{ 
 obj_t BgL_auxz00_12937;
if(
VECTORP(BgL_opt1193z00_244))
{ /* Ieee/string.scm 1398 */
BgL_auxz00_12937 = BgL_opt1193z00_244
; }  else 
{ 
 obj_t BgL_auxz00_12940;
BgL_auxz00_12940 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1193z00_244); 
FAILURE(BgL_auxz00_12940,BFALSE,BFALSE);} 
BgL_start2z00_2146 = 
VECTOR_REF(BgL_auxz00_12937,3L); } 
{ /* Ieee/string.scm 1398 */

{ /* Ieee/string.scm 1398 */
 int BgL_res2229z00_3769;
{ /* Ieee/string.scm 1398 */
 obj_t BgL_az00_3767; obj_t BgL_bz00_3768;
if(
STRINGP(BgL_g1195z00_2137))
{ /* Ieee/string.scm 1398 */
BgL_az00_3767 = BgL_g1195z00_2137; }  else 
{ 
 obj_t BgL_auxz00_12947;
BgL_auxz00_12947 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1195z00_2137); 
FAILURE(BgL_auxz00_12947,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1196z00_2138))
{ /* Ieee/string.scm 1398 */
BgL_bz00_3768 = BgL_g1196z00_2138; }  else 
{ 
 obj_t BgL_auxz00_12953;
BgL_auxz00_12953 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1196z00_2138); 
FAILURE(BgL_auxz00_12953,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1399 */
 obj_t BgL_tmpz00_12957;
{ /* Ieee/string.scm 1399 */
 obj_t BgL_aux3675z00_5627;
BgL_aux3675z00_5627 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3767, BgL_bz00_3768, ((bool_t)0), BgL_start1z00_2145, BgL_start2z00_2146); 
if(
INTEGERP(BgL_aux3675z00_5627))
{ /* Ieee/string.scm 1399 */
BgL_tmpz00_12957 = BgL_aux3675z00_5627
; }  else 
{ 
 obj_t BgL_auxz00_12961;
BgL_auxz00_12961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56640L), BGl_string3961z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3675z00_5627); 
FAILURE(BgL_auxz00_12961,BFALSE,BFALSE);} } 
BgL_res2229z00_3769 = 
CINT(BgL_tmpz00_12957); } } 
return 
BINT(BgL_res2229z00_3769);} } } } break;
default: 
{ /* Ieee/string.scm 1398 */
 long BgL_arg1873z00_2147;
{ 
 obj_t BgL_auxz00_12967;
if(
VECTORP(BgL_opt1193z00_244))
{ /* Ieee/string.scm 1398 */
BgL_auxz00_12967 = BgL_opt1193z00_244
; }  else 
{ 
 obj_t BgL_auxz00_12970;
BgL_auxz00_12970 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56566L), BGl_string3962z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1193z00_244); 
FAILURE(BgL_auxz00_12970,BFALSE,BFALSE);} 
BgL_arg1873z00_2147 = 
VECTOR_LENGTH(BgL_auxz00_12967); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3963z00zz__r4_strings_6_7z00, BGl_string3855z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1873z00_2147));} } } } } } 

}



/* string-natural-compare3 */
BGL_EXPORTED_DEF int BGl_stringzd2naturalzd2compare3z00zz__r4_strings_6_7z00(obj_t BgL_az00_240, obj_t BgL_bz00_241, obj_t BgL_start1z00_242, obj_t BgL_start2z00_243)
{
{ /* Ieee/string.scm 1398 */
{ /* Ieee/string.scm 1399 */
 obj_t BgL_tmpz00_12978;
{ /* Ieee/string.scm 1399 */
 obj_t BgL_aux3676z00_5628;
BgL_aux3676z00_5628 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_240, BgL_bz00_241, ((bool_t)0), BgL_start1z00_242, BgL_start2z00_243); 
if(
INTEGERP(BgL_aux3676z00_5628))
{ /* Ieee/string.scm 1399 */
BgL_tmpz00_12978 = BgL_aux3676z00_5628
; }  else 
{ 
 obj_t BgL_auxz00_12982;
BgL_auxz00_12982 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56640L), BGl_string3964z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3676z00_5628); 
FAILURE(BgL_auxz00_12982,BFALSE,BFALSE);} } 
return 
CINT(BgL_tmpz00_12978);} } 

}



/* _string-natural-compare3-ci */
obj_t BGl__stringzd2naturalzd2compare3zd2cizd2zz__r4_strings_6_7z00(obj_t BgL_env1200z00_251, obj_t BgL_opt1199z00_250)
{
{ /* Ieee/string.scm 1404 */
{ /* Ieee/string.scm 1404 */
 obj_t BgL_g1201z00_2148; obj_t BgL_g1202z00_2149;
{ 
 obj_t BgL_auxz00_12987;
if(
VECTORP(BgL_opt1199z00_250))
{ /* Ieee/string.scm 1404 */
BgL_auxz00_12987 = BgL_opt1199z00_250
; }  else 
{ 
 obj_t BgL_auxz00_12990;
BgL_auxz00_12990 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1199z00_250); 
FAILURE(BgL_auxz00_12990,BFALSE,BFALSE);} 
BgL_g1201z00_2148 = 
VECTOR_REF(BgL_auxz00_12987,0L); } 
{ 
 obj_t BgL_auxz00_12995;
if(
VECTORP(BgL_opt1199z00_250))
{ /* Ieee/string.scm 1404 */
BgL_auxz00_12995 = BgL_opt1199z00_250
; }  else 
{ 
 obj_t BgL_auxz00_12998;
BgL_auxz00_12998 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1199z00_250); 
FAILURE(BgL_auxz00_12998,BFALSE,BFALSE);} 
BgL_g1202z00_2149 = 
VECTOR_REF(BgL_auxz00_12995,1L); } 
{ 

{ /* Ieee/string.scm 1404 */
 long BgL_aux1204z00_2151;
{ 
 obj_t BgL_auxz00_13003;
if(
VECTORP(BgL_opt1199z00_250))
{ /* Ieee/string.scm 1404 */
BgL_auxz00_13003 = BgL_opt1199z00_250
; }  else 
{ 
 obj_t BgL_auxz00_13006;
BgL_auxz00_13006 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1199z00_250); 
FAILURE(BgL_auxz00_13006,BFALSE,BFALSE);} 
BgL_aux1204z00_2151 = 
VECTOR_LENGTH(BgL_auxz00_13003); } 
switch( BgL_aux1204z00_2151) { case 2L : 

{ /* Ieee/string.scm 1404 */

{ /* Ieee/string.scm 1404 */
 int BgL_res2230z00_3772;
{ /* Ieee/string.scm 1404 */
 obj_t BgL_az00_3770; obj_t BgL_bz00_3771;
if(
STRINGP(BgL_g1201z00_2148))
{ /* Ieee/string.scm 1404 */
BgL_az00_3770 = BgL_g1201z00_2148; }  else 
{ 
 obj_t BgL_auxz00_13013;
BgL_auxz00_13013 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1201z00_2148); 
FAILURE(BgL_auxz00_13013,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1202z00_2149))
{ /* Ieee/string.scm 1404 */
BgL_bz00_3771 = BgL_g1202z00_2149; }  else 
{ 
 obj_t BgL_auxz00_13019;
BgL_auxz00_13019 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1202z00_2149); 
FAILURE(BgL_auxz00_13019,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1405 */
 obj_t BgL_tmpz00_13023;
{ /* Ieee/string.scm 1405 */
 obj_t BgL_aux3689z00_5641;
BgL_aux3689z00_5641 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3770, BgL_bz00_3771, ((bool_t)1), 
BINT(0L), 
BINT(0L)); 
if(
INTEGERP(BgL_aux3689z00_5641))
{ /* Ieee/string.scm 1405 */
BgL_tmpz00_13023 = BgL_aux3689z00_5641
; }  else 
{ 
 obj_t BgL_auxz00_13029;
BgL_auxz00_13029 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56974L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3689z00_5641); 
FAILURE(BgL_auxz00_13029,BFALSE,BFALSE);} } 
BgL_res2230z00_3772 = 
CINT(BgL_tmpz00_13023); } } 
return 
BINT(BgL_res2230z00_3772);} } break;case 3L : 

{ /* Ieee/string.scm 1404 */
 obj_t BgL_start1z00_2154;
{ 
 obj_t BgL_auxz00_13035;
if(
VECTORP(BgL_opt1199z00_250))
{ /* Ieee/string.scm 1404 */
BgL_auxz00_13035 = BgL_opt1199z00_250
; }  else 
{ 
 obj_t BgL_auxz00_13038;
BgL_auxz00_13038 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1199z00_250); 
FAILURE(BgL_auxz00_13038,BFALSE,BFALSE);} 
BgL_start1z00_2154 = 
VECTOR_REF(BgL_auxz00_13035,2L); } 
{ /* Ieee/string.scm 1404 */

{ /* Ieee/string.scm 1404 */
 int BgL_res2231z00_3775;
{ /* Ieee/string.scm 1404 */
 obj_t BgL_az00_3773; obj_t BgL_bz00_3774;
if(
STRINGP(BgL_g1201z00_2148))
{ /* Ieee/string.scm 1404 */
BgL_az00_3773 = BgL_g1201z00_2148; }  else 
{ 
 obj_t BgL_auxz00_13045;
BgL_auxz00_13045 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1201z00_2148); 
FAILURE(BgL_auxz00_13045,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1202z00_2149))
{ /* Ieee/string.scm 1404 */
BgL_bz00_3774 = BgL_g1202z00_2149; }  else 
{ 
 obj_t BgL_auxz00_13051;
BgL_auxz00_13051 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1202z00_2149); 
FAILURE(BgL_auxz00_13051,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1405 */
 obj_t BgL_tmpz00_13055;
{ /* Ieee/string.scm 1405 */
 obj_t BgL_aux3696z00_5648;
BgL_aux3696z00_5648 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3773, BgL_bz00_3774, ((bool_t)1), BgL_start1z00_2154, 
BINT(0L)); 
if(
INTEGERP(BgL_aux3696z00_5648))
{ /* Ieee/string.scm 1405 */
BgL_tmpz00_13055 = BgL_aux3696z00_5648
; }  else 
{ 
 obj_t BgL_auxz00_13060;
BgL_auxz00_13060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56974L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3696z00_5648); 
FAILURE(BgL_auxz00_13060,BFALSE,BFALSE);} } 
BgL_res2231z00_3775 = 
CINT(BgL_tmpz00_13055); } } 
return 
BINT(BgL_res2231z00_3775);} } } break;case 4L : 

{ /* Ieee/string.scm 1404 */
 obj_t BgL_start1z00_2156;
{ 
 obj_t BgL_auxz00_13066;
if(
VECTORP(BgL_opt1199z00_250))
{ /* Ieee/string.scm 1404 */
BgL_auxz00_13066 = BgL_opt1199z00_250
; }  else 
{ 
 obj_t BgL_auxz00_13069;
BgL_auxz00_13069 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1199z00_250); 
FAILURE(BgL_auxz00_13069,BFALSE,BFALSE);} 
BgL_start1z00_2156 = 
VECTOR_REF(BgL_auxz00_13066,2L); } 
{ /* Ieee/string.scm 1404 */
 obj_t BgL_start2z00_2157;
{ 
 obj_t BgL_auxz00_13074;
if(
VECTORP(BgL_opt1199z00_250))
{ /* Ieee/string.scm 1404 */
BgL_auxz00_13074 = BgL_opt1199z00_250
; }  else 
{ 
 obj_t BgL_auxz00_13077;
BgL_auxz00_13077 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1199z00_250); 
FAILURE(BgL_auxz00_13077,BFALSE,BFALSE);} 
BgL_start2z00_2157 = 
VECTOR_REF(BgL_auxz00_13074,3L); } 
{ /* Ieee/string.scm 1404 */

{ /* Ieee/string.scm 1404 */
 int BgL_res2232z00_3778;
{ /* Ieee/string.scm 1404 */
 obj_t BgL_az00_3776; obj_t BgL_bz00_3777;
if(
STRINGP(BgL_g1201z00_2148))
{ /* Ieee/string.scm 1404 */
BgL_az00_3776 = BgL_g1201z00_2148; }  else 
{ 
 obj_t BgL_auxz00_13084;
BgL_auxz00_13084 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1201z00_2148); 
FAILURE(BgL_auxz00_13084,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1202z00_2149))
{ /* Ieee/string.scm 1404 */
BgL_bz00_3777 = BgL_g1202z00_2149; }  else 
{ 
 obj_t BgL_auxz00_13090;
BgL_auxz00_13090 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_g1202z00_2149); 
FAILURE(BgL_auxz00_13090,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1405 */
 obj_t BgL_tmpz00_13094;
{ /* Ieee/string.scm 1405 */
 obj_t BgL_aux3705z00_5657;
BgL_aux3705z00_5657 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3776, BgL_bz00_3777, ((bool_t)1), BgL_start1z00_2156, BgL_start2z00_2157); 
if(
INTEGERP(BgL_aux3705z00_5657))
{ /* Ieee/string.scm 1405 */
BgL_tmpz00_13094 = BgL_aux3705z00_5657
; }  else 
{ 
 obj_t BgL_auxz00_13098;
BgL_auxz00_13098 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56974L), BGl_string3965z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3705z00_5657); 
FAILURE(BgL_auxz00_13098,BFALSE,BFALSE);} } 
BgL_res2232z00_3778 = 
CINT(BgL_tmpz00_13094); } } 
return 
BINT(BgL_res2232z00_3778);} } } } break;
default: 
{ /* Ieee/string.scm 1404 */
 long BgL_arg1876z00_2158;
{ 
 obj_t BgL_auxz00_13104;
if(
VECTORP(BgL_opt1199z00_250))
{ /* Ieee/string.scm 1404 */
BgL_auxz00_13104 = BgL_opt1199z00_250
; }  else 
{ 
 obj_t BgL_auxz00_13107;
BgL_auxz00_13107 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56897L), BGl_string3966z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1199z00_250); 
FAILURE(BgL_auxz00_13107,BFALSE,BFALSE);} 
BgL_arg1876z00_2158 = 
VECTOR_LENGTH(BgL_auxz00_13104); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3967z00zz__r4_strings_6_7z00, BGl_string3855z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1876z00_2158));} } } } } } 

}



/* string-natural-compare3-ci */
BGL_EXPORTED_DEF int BGl_stringzd2naturalzd2compare3zd2cizd2zz__r4_strings_6_7z00(obj_t BgL_az00_246, obj_t BgL_bz00_247, obj_t BgL_start1z00_248, obj_t BgL_start2z00_249)
{
{ /* Ieee/string.scm 1404 */
{ /* Ieee/string.scm 1405 */
 obj_t BgL_tmpz00_13115;
{ /* Ieee/string.scm 1405 */
 obj_t BgL_aux3706z00_5658;
BgL_aux3706z00_5658 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_246, BgL_bz00_247, ((bool_t)1), BgL_start1z00_248, BgL_start2z00_249); 
if(
INTEGERP(BgL_aux3706z00_5658))
{ /* Ieee/string.scm 1405 */
BgL_tmpz00_13115 = BgL_aux3706z00_5658
; }  else 
{ 
 obj_t BgL_auxz00_13119;
BgL_auxz00_13119 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(56974L), BGl_string3968z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3706z00_5658); 
FAILURE(BgL_auxz00_13119,BFALSE,BFALSE);} } 
return 
CINT(BgL_tmpz00_13115);} } 

}



/* strnatcmp */
obj_t BGl_strnatcmpz00zz__r4_strings_6_7z00(obj_t BgL_az00_252, obj_t BgL_bz00_253, bool_t BgL_foldcasez00_254, obj_t BgL_start1z00_255, obj_t BgL_start2z00_256)
{
{ /* Ieee/string.scm 1410 */
{ 
 obj_t BgL_iaz00_2160; obj_t BgL_ibz00_2161;
BgL_iaz00_2160 = BgL_start1z00_255; 
BgL_ibz00_2161 = BgL_start2z00_256; 
BgL_zc3z04anonymousza31877ze3z87_2162:
{ /* Ieee/string.scm 1413 */
 unsigned char BgL_caz00_2163; unsigned char BgL_cbz00_2164;
{ /* Ieee/string.scm 1413 */
 obj_t BgL_iz00_3779;
BgL_iz00_3779 = BgL_iaz00_2160; 
{ /* Ieee/string.scm 1500 */
 bool_t BgL_test5212z00_13124;
{ /* Ieee/string.scm 1500 */
 long BgL_n1z00_3783;
{ /* Ieee/string.scm 1500 */
 obj_t BgL_tmpz00_13125;
if(
INTEGERP(BgL_iz00_3779))
{ /* Ieee/string.scm 1500 */
BgL_tmpz00_13125 = BgL_iz00_3779
; }  else 
{ 
 obj_t BgL_auxz00_13128;
BgL_auxz00_13128 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(60044L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_3779); 
FAILURE(BgL_auxz00_13128,BFALSE,BFALSE);} 
BgL_n1z00_3783 = 
(long)CINT(BgL_tmpz00_13125); } 
BgL_test5212z00_13124 = 
(BgL_n1z00_3783>=
STRING_LENGTH(BgL_az00_252)); } 
if(BgL_test5212z00_13124)
{ /* Ieee/string.scm 1500 */
BgL_caz00_2163 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 1502 */
 long BgL_kz00_3786;
{ /* Ieee/string.scm 1502 */
 obj_t BgL_tmpz00_13135;
if(
INTEGERP(BgL_iz00_3779))
{ /* Ieee/string.scm 1502 */
BgL_tmpz00_13135 = BgL_iz00_3779
; }  else 
{ 
 obj_t BgL_auxz00_13138;
BgL_auxz00_13138 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(60102L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_3779); 
FAILURE(BgL_auxz00_13138,BFALSE,BFALSE);} 
BgL_kz00_3786 = 
(long)CINT(BgL_tmpz00_13135); } 
{ /* Ieee/string.scm 343 */
 long BgL_l2597z00_4546;
BgL_l2597z00_4546 = 
STRING_LENGTH(BgL_az00_252); 
if(
BOUND_CHECK(BgL_kz00_3786, BgL_l2597z00_4546))
{ /* Ieee/string.scm 343 */
BgL_caz00_2163 = 
STRING_REF(BgL_az00_252, BgL_kz00_3786); }  else 
{ 
 obj_t BgL_auxz00_13147;
BgL_auxz00_13147 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_az00_252, 
(int)(BgL_l2597z00_4546), 
(int)(BgL_kz00_3786)); 
FAILURE(BgL_auxz00_13147,BFALSE,BFALSE);} } } } } 
{ /* Ieee/string.scm 1414 */
 obj_t BgL_iz00_3787;
BgL_iz00_3787 = BgL_ibz00_2161; 
{ /* Ieee/string.scm 1500 */
 bool_t BgL_test5216z00_13153;
{ /* Ieee/string.scm 1500 */
 long BgL_n1z00_3791;
{ /* Ieee/string.scm 1500 */
 obj_t BgL_tmpz00_13154;
if(
INTEGERP(BgL_iz00_3787))
{ /* Ieee/string.scm 1500 */
BgL_tmpz00_13154 = BgL_iz00_3787
; }  else 
{ 
 obj_t BgL_auxz00_13157;
BgL_auxz00_13157 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(60044L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_3787); 
FAILURE(BgL_auxz00_13157,BFALSE,BFALSE);} 
BgL_n1z00_3791 = 
(long)CINT(BgL_tmpz00_13154); } 
BgL_test5216z00_13153 = 
(BgL_n1z00_3791>=
STRING_LENGTH(BgL_bz00_253)); } 
if(BgL_test5216z00_13153)
{ /* Ieee/string.scm 1500 */
BgL_cbz00_2164 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 1502 */
 long BgL_kz00_3794;
{ /* Ieee/string.scm 1502 */
 obj_t BgL_tmpz00_13164;
if(
INTEGERP(BgL_iz00_3787))
{ /* Ieee/string.scm 1502 */
BgL_tmpz00_13164 = BgL_iz00_3787
; }  else 
{ 
 obj_t BgL_auxz00_13167;
BgL_auxz00_13167 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(60102L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iz00_3787); 
FAILURE(BgL_auxz00_13167,BFALSE,BFALSE);} 
BgL_kz00_3794 = 
(long)CINT(BgL_tmpz00_13164); } 
{ /* Ieee/string.scm 343 */
 long BgL_l2601z00_4550;
BgL_l2601z00_4550 = 
STRING_LENGTH(BgL_bz00_253); 
if(
BOUND_CHECK(BgL_kz00_3794, BgL_l2601z00_4550))
{ /* Ieee/string.scm 343 */
BgL_cbz00_2164 = 
STRING_REF(BgL_bz00_253, BgL_kz00_3794); }  else 
{ 
 obj_t BgL_auxz00_13176;
BgL_auxz00_13176 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_bz00_253, 
(int)(BgL_l2601z00_4550), 
(int)(BgL_kz00_3794)); 
FAILURE(BgL_auxz00_13176,BFALSE,BFALSE);} } } } } 
{ 

if(
isspace(BgL_caz00_2163))
{ /* Ieee/string.scm 1416 */
{ 
 obj_t BgL_tmpz00_13184;
{ /* Ieee/string.scm 1417 */
 obj_t BgL_aux3711z00_5663;
BgL_aux3711z00_5663 = BgL_iaz00_2160; 
if(
INTEGERP(BgL_aux3711z00_5663))
{ /* Ieee/string.scm 1417 */
BgL_tmpz00_13184 = BgL_aux3711z00_5663
; }  else 
{ 
 obj_t BgL_auxz00_13187;
BgL_auxz00_13187 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(57453L), BGl_string3969z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3711z00_5663); 
FAILURE(BgL_auxz00_13187,BFALSE,BFALSE);} } 
BgL_iaz00_2160 = 
ADDFX(BgL_tmpz00_13184, 
BINT(1L)); } 
{ /* Ieee/string.scm 1418 */
 long BgL_iz00_3797;
BgL_iz00_3797 = 
(long)CINT(BgL_iaz00_2160); 
if(
(BgL_iz00_3797>=
STRING_LENGTH(BgL_az00_252)))
{ /* Ieee/string.scm 1500 */
BgL_caz00_2163 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 343 */
 long BgL_l2605z00_4554;
BgL_l2605z00_4554 = 
STRING_LENGTH(BgL_az00_252); 
if(
BOUND_CHECK(BgL_iz00_3797, BgL_l2605z00_4554))
{ /* Ieee/string.scm 343 */
BgL_caz00_2163 = 
STRING_REF(BgL_az00_252, BgL_iz00_3797); }  else 
{ 
 obj_t BgL_auxz00_13201;
BgL_auxz00_13201 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_az00_252, 
(int)(BgL_l2605z00_4554), 
(int)(BgL_iz00_3797)); 
FAILURE(BgL_auxz00_13201,BFALSE,BFALSE);} } } }  else 
{ /* Ieee/string.scm 1416 */BFALSE; } } 
{ 

if(
isspace(BgL_cbz00_2164))
{ /* Ieee/string.scm 1420 */
{ 
 obj_t BgL_tmpz00_13209;
{ /* Ieee/string.scm 1421 */
 obj_t BgL_aux3712z00_5664;
BgL_aux3712z00_5664 = BgL_ibz00_2161; 
if(
INTEGERP(BgL_aux3712z00_5664))
{ /* Ieee/string.scm 1421 */
BgL_tmpz00_13209 = BgL_aux3712z00_5664
; }  else 
{ 
 obj_t BgL_auxz00_13212;
BgL_auxz00_13212 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(57566L), BGl_string3969z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3712z00_5664); 
FAILURE(BgL_auxz00_13212,BFALSE,BFALSE);} } 
BgL_ibz00_2161 = 
ADDFX(BgL_tmpz00_13209, 
BINT(1L)); } 
{ /* Ieee/string.scm 1422 */
 long BgL_iz00_3807;
BgL_iz00_3807 = 
(long)CINT(BgL_ibz00_2161); 
if(
(BgL_iz00_3807>=
STRING_LENGTH(BgL_bz00_253)))
{ /* Ieee/string.scm 1500 */
BgL_cbz00_2164 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 343 */
 long BgL_l2609z00_4558;
BgL_l2609z00_4558 = 
STRING_LENGTH(BgL_bz00_253); 
if(
BOUND_CHECK(BgL_iz00_3807, BgL_l2609z00_4558))
{ /* Ieee/string.scm 343 */
BgL_cbz00_2164 = 
STRING_REF(BgL_bz00_253, BgL_iz00_3807); }  else 
{ 
 obj_t BgL_auxz00_13226;
BgL_auxz00_13226 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_bz00_253, 
(int)(BgL_l2609z00_4558), 
(int)(BgL_iz00_3807)); 
FAILURE(BgL_auxz00_13226,BFALSE,BFALSE);} } } }  else 
{ /* Ieee/string.scm 1420 */BFALSE; } } 
{ /* Ieee/string.scm 1424 */
 bool_t BgL_test5228z00_13232;
if(
isdigit(BgL_caz00_2163))
{ /* Ieee/string.scm 1424 */
BgL_test5228z00_13232 = 
isdigit(BgL_cbz00_2164)
; }  else 
{ /* Ieee/string.scm 1424 */
BgL_test5228z00_13232 = ((bool_t)0)
; } 
if(BgL_test5228z00_13232)
{ /* Ieee/string.scm 1425 */
 bool_t BgL_test5230z00_13236;
if(
(BgL_caz00_2163==((unsigned char)'0')))
{ /* Ieee/string.scm 1425 */
BgL_test5230z00_13236 = 
(BgL_cbz00_2164==((unsigned char)'0'))
; }  else 
{ /* Ieee/string.scm 1425 */
BgL_test5230z00_13236 = ((bool_t)0)
; } 
if(BgL_test5230z00_13236)
{ /* Ieee/string.scm 1426 */
 long BgL_arg1886z00_2177; long BgL_arg1887z00_2178;
{ /* Ieee/string.scm 1426 */
 long BgL_za71za7_3821;
{ /* Ieee/string.scm 1426 */
 obj_t BgL_tmpz00_13240;
{ /* Ieee/string.scm 1426 */
 obj_t BgL_aux3713z00_5665;
BgL_aux3713z00_5665 = BgL_iaz00_2160; 
if(
INTEGERP(BgL_aux3713z00_5665))
{ /* Ieee/string.scm 1426 */
BgL_tmpz00_13240 = BgL_aux3713z00_5665
; }  else 
{ 
 obj_t BgL_auxz00_13243;
BgL_auxz00_13243 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(57728L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3713z00_5665); 
FAILURE(BgL_auxz00_13243,BFALSE,BFALSE);} } 
BgL_za71za7_3821 = 
(long)CINT(BgL_tmpz00_13240); } 
BgL_arg1886z00_2177 = 
(BgL_za71za7_3821+1L); } 
{ /* Ieee/string.scm 1426 */
 long BgL_za71za7_3822;
{ /* Ieee/string.scm 1426 */
 obj_t BgL_tmpz00_13249;
{ /* Ieee/string.scm 1426 */
 obj_t BgL_aux3714z00_5666;
BgL_aux3714z00_5666 = BgL_ibz00_2161; 
if(
INTEGERP(BgL_aux3714z00_5666))
{ /* Ieee/string.scm 1426 */
BgL_tmpz00_13249 = BgL_aux3714z00_5666
; }  else 
{ 
 obj_t BgL_auxz00_13252;
BgL_auxz00_13252 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(57739L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3714z00_5666); 
FAILURE(BgL_auxz00_13252,BFALSE,BFALSE);} } 
BgL_za71za7_3822 = 
(long)CINT(BgL_tmpz00_13249); } 
BgL_arg1887z00_2178 = 
(BgL_za71za7_3822+1L); } 
{ 
 obj_t BgL_ibz00_13260; obj_t BgL_iaz00_13258;
BgL_iaz00_13258 = 
BINT(BgL_arg1886z00_2177); 
BgL_ibz00_13260 = 
BINT(BgL_arg1887z00_2178); 
BgL_ibz00_2161 = BgL_ibz00_13260; 
BgL_iaz00_2160 = BgL_iaz00_13258; 
goto BgL_zc3z04anonymousza31877ze3z87_2162;} }  else 
{ /* Ieee/string.scm 1427 */
 obj_t BgL_resultz00_2179;
{ /* Ieee/string.scm 1427 */
 bool_t BgL_test5234z00_13262;
if(
(BgL_caz00_2163==((unsigned char)'0')))
{ /* Ieee/string.scm 1427 */
BgL_test5234z00_13262 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1427 */
BgL_test5234z00_13262 = 
(BgL_cbz00_2164==((unsigned char)'0'))
; } 
if(BgL_test5234z00_13262)
{ /* Ieee/string.scm 1427 */
BgL_resultz00_2179 = 
BGl_comparezd2leftzd2zz__r4_strings_6_7z00(BgL_az00_252, BgL_iaz00_2160, BgL_bz00_253, BgL_ibz00_2161); }  else 
{ /* Ieee/string.scm 1427 */
BgL_resultz00_2179 = 
BGl_comparezd2rightzd2zz__r4_strings_6_7z00(BgL_az00_252, BgL_iaz00_2160, BgL_bz00_253, BgL_ibz00_2161); } } 
if(
INTEGERP(BgL_resultz00_2179))
{ /* Ieee/string.scm 1432 */
 long BgL_arg1889z00_2181; long BgL_arg1890z00_2182;
{ /* Ieee/string.scm 1432 */
 long BgL_za71za7_3827; long BgL_za72za7_3828;
{ /* Ieee/string.scm 1432 */
 obj_t BgL_tmpz00_13270;
{ /* Ieee/string.scm 1432 */
 obj_t BgL_aux3715z00_5667;
BgL_aux3715z00_5667 = BgL_iaz00_2160; 
if(
INTEGERP(BgL_aux3715z00_5667))
{ /* Ieee/string.scm 1432 */
BgL_tmpz00_13270 = BgL_aux3715z00_5667
; }  else 
{ 
 obj_t BgL_auxz00_13273;
BgL_auxz00_13273 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(57925L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3715z00_5667); 
FAILURE(BgL_auxz00_13273,BFALSE,BFALSE);} } 
BgL_za71za7_3827 = 
(long)CINT(BgL_tmpz00_13270); } 
BgL_za72za7_3828 = 
(long)CINT(BgL_resultz00_2179); 
BgL_arg1889z00_2181 = 
(BgL_za71za7_3827+BgL_za72za7_3828); } 
{ /* Ieee/string.scm 1432 */
 long BgL_za71za7_3829; long BgL_za72za7_3830;
{ /* Ieee/string.scm 1432 */
 obj_t BgL_tmpz00_13280;
{ /* Ieee/string.scm 1432 */
 obj_t BgL_aux3716z00_5668;
BgL_aux3716z00_5668 = BgL_ibz00_2161; 
if(
INTEGERP(BgL_aux3716z00_5668))
{ /* Ieee/string.scm 1432 */
BgL_tmpz00_13280 = BgL_aux3716z00_5668
; }  else 
{ 
 obj_t BgL_auxz00_13283;
BgL_auxz00_13283 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(57941L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3716z00_5668); 
FAILURE(BgL_auxz00_13283,BFALSE,BFALSE);} } 
BgL_za71za7_3829 = 
(long)CINT(BgL_tmpz00_13280); } 
BgL_za72za7_3830 = 
(long)CINT(BgL_resultz00_2179); 
BgL_arg1890z00_2182 = 
(BgL_za71za7_3829+BgL_za72za7_3830); } 
{ 
 obj_t BgL_ibz00_13292; obj_t BgL_iaz00_13290;
BgL_iaz00_13290 = 
BINT(BgL_arg1889z00_2181); 
BgL_ibz00_13292 = 
BINT(BgL_arg1890z00_2182); 
BgL_ibz00_2161 = BgL_ibz00_13292; 
BgL_iaz00_2160 = BgL_iaz00_13290; 
goto BgL_zc3z04anonymousza31877ze3z87_2162;} }  else 
{ /* Ieee/string.scm 1431 */
if(
CBOOL(BgL_resultz00_2179))
{ /* Ieee/string.scm 1433 */
return 
BINT(1L);}  else 
{ /* Ieee/string.scm 1433 */
return 
BINT((-1L));} } } }  else 
{ /* Ieee/string.scm 1437 */
 bool_t BgL_test5240z00_13298;
if(
(BgL_caz00_2163==((unsigned char)'\000')))
{ /* Ieee/string.scm 1437 */
BgL_test5240z00_13298 = 
(BgL_cbz00_2164==((unsigned char)'\000'))
; }  else 
{ /* Ieee/string.scm 1437 */
BgL_test5240z00_13298 = ((bool_t)0)
; } 
if(BgL_test5240z00_13298)
{ /* Ieee/string.scm 1437 */
return 
BINT(0L);}  else 
{ /* Ieee/string.scm 1439 */
 bool_t BgL_test5242z00_13303;
if(BgL_foldcasez00_254)
{ /* Ieee/string.scm 1439 */
BgL_caz00_2163 = 
toupper(BgL_caz00_2163); 
BgL_cbz00_2164 = 
toupper(BgL_cbz00_2164); 
BgL_test5242z00_13303 = ((bool_t)0); }  else 
{ /* Ieee/string.scm 1439 */
BgL_test5242z00_13303 = ((bool_t)0)
; } 
if(BgL_test5242z00_13303)
{ /* Ieee/string.scm 1439 */
return BGl_symbol3970z00zz__r4_strings_6_7z00;}  else 
{ /* Ieee/string.scm 1439 */
if(
(BgL_caz00_2163<BgL_cbz00_2164))
{ /* Ieee/string.scm 1444 */
return 
BINT((-1L));}  else 
{ /* Ieee/string.scm 1444 */
if(
(BgL_caz00_2163>BgL_cbz00_2164))
{ /* Ieee/string.scm 1446 */
return 
BINT(1L);}  else 
{ /* Ieee/string.scm 1449 */
 long BgL_arg1898z00_2192; long BgL_arg1899z00_2193;
{ /* Ieee/string.scm 1449 */
 long BgL_za71za7_3841;
{ /* Ieee/string.scm 1449 */
 obj_t BgL_tmpz00_13313;
{ /* Ieee/string.scm 1449 */
 obj_t BgL_aux3717z00_5669;
BgL_aux3717z00_5669 = BgL_iaz00_2160; 
if(
INTEGERP(BgL_aux3717z00_5669))
{ /* Ieee/string.scm 1449 */
BgL_tmpz00_13313 = BgL_aux3717z00_5669
; }  else 
{ 
 obj_t BgL_auxz00_13316;
BgL_auxz00_13316 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(58271L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3717z00_5669); 
FAILURE(BgL_auxz00_13316,BFALSE,BFALSE);} } 
BgL_za71za7_3841 = 
(long)CINT(BgL_tmpz00_13313); } 
BgL_arg1898z00_2192 = 
(BgL_za71za7_3841+1L); } 
{ /* Ieee/string.scm 1449 */
 long BgL_za71za7_3842;
{ /* Ieee/string.scm 1449 */
 obj_t BgL_tmpz00_13322;
{ /* Ieee/string.scm 1449 */
 obj_t BgL_aux3718z00_5670;
BgL_aux3718z00_5670 = BgL_ibz00_2161; 
if(
INTEGERP(BgL_aux3718z00_5670))
{ /* Ieee/string.scm 1449 */
BgL_tmpz00_13322 = BgL_aux3718z00_5670
; }  else 
{ 
 obj_t BgL_auxz00_13325;
BgL_auxz00_13325 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(58282L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_aux3718z00_5670); 
FAILURE(BgL_auxz00_13325,BFALSE,BFALSE);} } 
BgL_za71za7_3842 = 
(long)CINT(BgL_tmpz00_13322); } 
BgL_arg1899z00_2193 = 
(BgL_za71za7_3842+1L); } 
{ 
 obj_t BgL_ibz00_13333; obj_t BgL_iaz00_13331;
BgL_iaz00_13331 = 
BINT(BgL_arg1898z00_2192); 
BgL_ibz00_13333 = 
BINT(BgL_arg1899z00_2193); 
BgL_ibz00_2161 = BgL_ibz00_13333; 
BgL_iaz00_2160 = BgL_iaz00_13331; 
goto BgL_zc3z04anonymousza31877ze3z87_2162;} } } } } } } } } } 

}



/* compare-right */
obj_t BGl_comparezd2rightzd2zz__r4_strings_6_7z00(obj_t BgL_az00_257, obj_t BgL_iaz00_258, obj_t BgL_bz00_259, obj_t BgL_ibz00_260)
{
{ /* Ieee/string.scm 1454 */
{ 
 obj_t BgL_biasz00_2198; long BgL_iz00_2199;
BgL_biasz00_2198 = BUNSPEC; 
BgL_iz00_2199 = 0L; 
BgL_zc3z04anonymousza31900ze3z87_2200:
{ /* Ieee/string.scm 1457 */
 unsigned char BgL_caz00_2201; unsigned char BgL_cbz00_2202;
{ /* Ieee/string.scm 1457 */
 long BgL_arg1918z00_2220;
{ /* Ieee/string.scm 1457 */
 long BgL_za72za7_3844;
{ /* Ieee/string.scm 1457 */
 obj_t BgL_tmpz00_13335;
if(
INTEGERP(BgL_iaz00_258))
{ /* Ieee/string.scm 1457 */
BgL_tmpz00_13335 = BgL_iaz00_258
; }  else 
{ 
 obj_t BgL_auxz00_13338;
BgL_auxz00_13338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(58633L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iaz00_258); 
FAILURE(BgL_auxz00_13338,BFALSE,BFALSE);} 
BgL_za72za7_3844 = 
(long)CINT(BgL_tmpz00_13335); } 
BgL_arg1918z00_2220 = 
(BgL_iz00_2199+BgL_za72za7_3844); } 
if(
(BgL_arg1918z00_2220>=
STRING_LENGTH(BgL_az00_257)))
{ /* Ieee/string.scm 1500 */
BgL_caz00_2201 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 343 */
 long BgL_l2613z00_4562;
BgL_l2613z00_4562 = 
STRING_LENGTH(BgL_az00_257); 
if(
BOUND_CHECK(BgL_arg1918z00_2220, BgL_l2613z00_4562))
{ /* Ieee/string.scm 343 */
BgL_caz00_2201 = 
STRING_REF(BgL_az00_257, BgL_arg1918z00_2220); }  else 
{ 
 obj_t BgL_auxz00_13351;
BgL_auxz00_13351 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_az00_257, 
(int)(BgL_l2613z00_4562), 
(int)(BgL_arg1918z00_2220)); 
FAILURE(BgL_auxz00_13351,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1458 */
 long BgL_arg1919z00_2221;
{ /* Ieee/string.scm 1458 */
 long BgL_za72za7_3853;
{ /* Ieee/string.scm 1458 */
 obj_t BgL_tmpz00_13357;
if(
INTEGERP(BgL_ibz00_260))
{ /* Ieee/string.scm 1458 */
BgL_tmpz00_13357 = BgL_ibz00_260
; }  else 
{ 
 obj_t BgL_auxz00_13360;
BgL_auxz00_13360 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(58666L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_ibz00_260); 
FAILURE(BgL_auxz00_13360,BFALSE,BFALSE);} 
BgL_za72za7_3853 = 
(long)CINT(BgL_tmpz00_13357); } 
BgL_arg1919z00_2221 = 
(BgL_iz00_2199+BgL_za72za7_3853); } 
if(
(BgL_arg1919z00_2221>=
STRING_LENGTH(BgL_bz00_259)))
{ /* Ieee/string.scm 1500 */
BgL_cbz00_2202 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 343 */
 long BgL_l2617z00_4566;
BgL_l2617z00_4566 = 
STRING_LENGTH(BgL_bz00_259); 
if(
BOUND_CHECK(BgL_arg1919z00_2221, BgL_l2617z00_4566))
{ /* Ieee/string.scm 343 */
BgL_cbz00_2202 = 
STRING_REF(BgL_bz00_259, BgL_arg1919z00_2221); }  else 
{ 
 obj_t BgL_auxz00_13373;
BgL_auxz00_13373 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_bz00_259, 
(int)(BgL_l2617z00_4566), 
(int)(BgL_arg1919z00_2221)); 
FAILURE(BgL_auxz00_13373,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1460 */
 bool_t BgL_test5254z00_13379;
if(
isdigit(BgL_caz00_2201))
{ /* Ieee/string.scm 1460 */
BgL_test5254z00_13379 = ((bool_t)0)
; }  else 
{ /* Ieee/string.scm 1460 */
if(
isdigit(BgL_cbz00_2202))
{ /* Ieee/string.scm 1460 */
BgL_test5254z00_13379 = ((bool_t)0)
; }  else 
{ /* Ieee/string.scm 1460 */
BgL_test5254z00_13379 = ((bool_t)1)
; } } 
if(BgL_test5254z00_13379)
{ /* Ieee/string.scm 1460 */
if(
(BgL_biasz00_2198==BUNSPEC))
{ /* Ieee/string.scm 1461 */
return 
BINT(BgL_iz00_2199);}  else 
{ /* Ieee/string.scm 1461 */
return BgL_biasz00_2198;} }  else 
{ /* Ieee/string.scm 1460 */
if(
isdigit(BgL_caz00_2201))
{ /* Ieee/string.scm 1462 */
if(
isdigit(BgL_cbz00_2202))
{ /* Ieee/string.scm 1464 */
if(
(BgL_caz00_2201<BgL_cbz00_2202))
{ 
 long BgL_iz00_13396; obj_t BgL_biasz00_13393;
if(
(BgL_biasz00_2198==BUNSPEC))
{ /* Ieee/string.scm 1467 */
BgL_biasz00_13393 = BFALSE; }  else 
{ /* Ieee/string.scm 1467 */
BgL_biasz00_13393 = BgL_biasz00_2198; } 
BgL_iz00_13396 = 
(BgL_iz00_2199+1L); 
BgL_iz00_2199 = BgL_iz00_13396; 
BgL_biasz00_2198 = BgL_biasz00_13393; 
goto BgL_zc3z04anonymousza31900ze3z87_2200;}  else 
{ /* Ieee/string.scm 1466 */
if(
(BgL_caz00_2201>BgL_cbz00_2202))
{ 
 long BgL_iz00_13403; obj_t BgL_biasz00_13400;
if(
(BgL_biasz00_2198==BUNSPEC))
{ /* Ieee/string.scm 1469 */
BgL_biasz00_13400 = BTRUE; }  else 
{ /* Ieee/string.scm 1469 */
BgL_biasz00_13400 = BgL_biasz00_2198; } 
BgL_iz00_13403 = 
(BgL_iz00_2199+1L); 
BgL_iz00_2199 = BgL_iz00_13403; 
BgL_biasz00_2198 = BgL_biasz00_13400; 
goto BgL_zc3z04anonymousza31900ze3z87_2200;}  else 
{ /* Ieee/string.scm 1470 */
 bool_t BgL_test5264z00_13405;
if(
(BgL_caz00_2201==((unsigned char)'\000')))
{ /* Ieee/string.scm 1470 */
BgL_test5264z00_13405 = 
(BgL_cbz00_2202==((unsigned char)'\000'))
; }  else 
{ /* Ieee/string.scm 1470 */
BgL_test5264z00_13405 = ((bool_t)0)
; } 
if(BgL_test5264z00_13405)
{ /* Ieee/string.scm 1470 */
if(
(BgL_biasz00_2198==BUNSPEC))
{ /* Ieee/string.scm 1471 */
return 
BINT(BgL_iz00_2199);}  else 
{ /* Ieee/string.scm 1471 */
return BgL_biasz00_2198;} }  else 
{ 
 long BgL_iz00_13412;
BgL_iz00_13412 = 
(BgL_iz00_2199+1L); 
BgL_iz00_2199 = BgL_iz00_13412; 
goto BgL_zc3z04anonymousza31900ze3z87_2200;} } } }  else 
{ /* Ieee/string.scm 1464 */
return BTRUE;} }  else 
{ /* Ieee/string.scm 1462 */
return BFALSE;} } } } } } 

}



/* compare-left */
obj_t BGl_comparezd2leftzd2zz__r4_strings_6_7z00(obj_t BgL_az00_261, obj_t BgL_iaz00_262, obj_t BgL_bz00_263, obj_t BgL_ibz00_264)
{
{ /* Ieee/string.scm 1478 */
{ 
 long BgL_iz00_2224;
BgL_iz00_2224 = 0L; 
BgL_zc3z04anonymousza31920ze3z87_2225:
{ /* Ieee/string.scm 1480 */
 unsigned char BgL_caz00_2226; unsigned char BgL_cbz00_2227;
{ /* Ieee/string.scm 1480 */
 long BgL_arg1931z00_2238;
{ /* Ieee/string.scm 1480 */
 long BgL_za71za7_3876;
{ /* Ieee/string.scm 1480 */
 obj_t BgL_tmpz00_13414;
if(
INTEGERP(BgL_iaz00_262))
{ /* Ieee/string.scm 1480 */
BgL_tmpz00_13414 = BgL_iaz00_262
; }  else 
{ 
 obj_t BgL_auxz00_13417;
BgL_auxz00_13417 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(59476L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_iaz00_262); 
FAILURE(BgL_auxz00_13417,BFALSE,BFALSE);} 
BgL_za71za7_3876 = 
(long)CINT(BgL_tmpz00_13414); } 
BgL_arg1931z00_2238 = 
(BgL_za71za7_3876+BgL_iz00_2224); } 
if(
(BgL_arg1931z00_2238>=
STRING_LENGTH(BgL_az00_261)))
{ /* Ieee/string.scm 1500 */
BgL_caz00_2226 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 343 */
 long BgL_l2621z00_4570;
BgL_l2621z00_4570 = 
STRING_LENGTH(BgL_az00_261); 
if(
BOUND_CHECK(BgL_arg1931z00_2238, BgL_l2621z00_4570))
{ /* Ieee/string.scm 343 */
BgL_caz00_2226 = 
STRING_REF(BgL_az00_261, BgL_arg1931z00_2238); }  else 
{ 
 obj_t BgL_auxz00_13430;
BgL_auxz00_13430 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_az00_261, 
(int)(BgL_l2621z00_4570), 
(int)(BgL_arg1931z00_2238)); 
FAILURE(BgL_auxz00_13430,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1481 */
 long BgL_arg1932z00_2239;
{ /* Ieee/string.scm 1481 */
 long BgL_za71za7_3885;
{ /* Ieee/string.scm 1481 */
 obj_t BgL_tmpz00_13436;
if(
INTEGERP(BgL_ibz00_264))
{ /* Ieee/string.scm 1481 */
BgL_tmpz00_13436 = BgL_ibz00_264
; }  else 
{ 
 obj_t BgL_auxz00_13439;
BgL_auxz00_13439 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(59509L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_ibz00_264); 
FAILURE(BgL_auxz00_13439,BFALSE,BFALSE);} 
BgL_za71za7_3885 = 
(long)CINT(BgL_tmpz00_13436); } 
BgL_arg1932z00_2239 = 
(BgL_za71za7_3885+BgL_iz00_2224); } 
if(
(BgL_arg1932z00_2239>=
STRING_LENGTH(BgL_bz00_263)))
{ /* Ieee/string.scm 1500 */
BgL_cbz00_2227 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 343 */
 long BgL_l2625z00_4574;
BgL_l2625z00_4574 = 
STRING_LENGTH(BgL_bz00_263); 
if(
BOUND_CHECK(BgL_arg1932z00_2239, BgL_l2625z00_4574))
{ /* Ieee/string.scm 343 */
BgL_cbz00_2227 = 
STRING_REF(BgL_bz00_263, BgL_arg1932z00_2239); }  else 
{ 
 obj_t BgL_auxz00_13452;
BgL_auxz00_13452 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_bz00_263, 
(int)(BgL_l2625z00_4574), 
(int)(BgL_arg1932z00_2239)); 
FAILURE(BgL_auxz00_13452,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1483 */
 bool_t BgL_test5273z00_13458;
if(
isdigit(BgL_caz00_2226))
{ /* Ieee/string.scm 1483 */
BgL_test5273z00_13458 = ((bool_t)0)
; }  else 
{ /* Ieee/string.scm 1483 */
if(
isdigit(BgL_cbz00_2227))
{ /* Ieee/string.scm 1483 */
BgL_test5273z00_13458 = ((bool_t)0)
; }  else 
{ /* Ieee/string.scm 1483 */
BgL_test5273z00_13458 = ((bool_t)1)
; } } 
if(BgL_test5273z00_13458)
{ /* Ieee/string.scm 1483 */
return 
BINT(BgL_iz00_2224);}  else 
{ /* Ieee/string.scm 1483 */
if(
isdigit(BgL_caz00_2226))
{ /* Ieee/string.scm 1485 */
if(
isdigit(BgL_cbz00_2227))
{ /* Ieee/string.scm 1487 */
if(
(BgL_caz00_2226<BgL_cbz00_2227))
{ /* Ieee/string.scm 1489 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1489 */
if(
(BgL_caz00_2226>BgL_cbz00_2227))
{ /* Ieee/string.scm 1491 */
return BTRUE;}  else 
{ 
 long BgL_iz00_13472;
BgL_iz00_13472 = 
(BgL_iz00_2224+1L); 
BgL_iz00_2224 = BgL_iz00_13472; 
goto BgL_zc3z04anonymousza31920ze3z87_2225;} } }  else 
{ /* Ieee/string.scm 1487 */
return BTRUE;} }  else 
{ /* Ieee/string.scm 1485 */
return BFALSE;} } } } } } 

}



/* hex-string-ref */
obj_t BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(obj_t BgL_strz00_267, long BgL_iz00_268)
{
{ /* Ieee/string.scm 1507 */
{ /* Ieee/string.scm 1508 */
 unsigned char BgL_nz00_2244;
{ /* Ieee/string.scm 343 */
 long BgL_l2629z00_4578;
BgL_l2629z00_4578 = 
STRING_LENGTH(BgL_strz00_267); 
if(
BOUND_CHECK(BgL_iz00_268, BgL_l2629z00_4578))
{ /* Ieee/string.scm 343 */
BgL_nz00_2244 = 
STRING_REF(BgL_strz00_267, BgL_iz00_268); }  else 
{ 
 obj_t BgL_auxz00_13478;
BgL_auxz00_13478 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16815L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_strz00_267, 
(int)(BgL_l2629z00_4578), 
(int)(BgL_iz00_268)); 
FAILURE(BgL_auxz00_13478,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 1510 */
 bool_t BgL_test5281z00_13484;
if(
(BgL_nz00_2244>=((unsigned char)'0')))
{ /* Ieee/string.scm 1510 */
BgL_test5281z00_13484 = 
(BgL_nz00_2244<=((unsigned char)'9'))
; }  else 
{ /* Ieee/string.scm 1510 */
BgL_test5281z00_13484 = ((bool_t)0)
; } 
if(BgL_test5281z00_13484)
{ /* Ieee/string.scm 1510 */
return 
BINT(
(
(BgL_nz00_2244)-48L));}  else 
{ /* Ieee/string.scm 1512 */
 bool_t BgL_test5283z00_13491;
if(
(BgL_nz00_2244>=((unsigned char)'a')))
{ /* Ieee/string.scm 1512 */
BgL_test5283z00_13491 = 
(BgL_nz00_2244<=((unsigned char)'f'))
; }  else 
{ /* Ieee/string.scm 1512 */
BgL_test5283z00_13491 = ((bool_t)0)
; } 
if(BgL_test5283z00_13491)
{ /* Ieee/string.scm 1512 */
return 
BINT(
(10L+
(
(BgL_nz00_2244)-97L)));}  else 
{ /* Ieee/string.scm 1514 */
 bool_t BgL_test5285z00_13499;
if(
(BgL_nz00_2244>=((unsigned char)'A')))
{ /* Ieee/string.scm 1514 */
BgL_test5285z00_13499 = 
(BgL_nz00_2244<=((unsigned char)'F'))
; }  else 
{ /* Ieee/string.scm 1514 */
BgL_test5285z00_13499 = ((bool_t)0)
; } 
if(BgL_test5285z00_13499)
{ /* Ieee/string.scm 1514 */
return 
BINT(
(10L+
(
(BgL_nz00_2244)-65L)));}  else 
{ /* Ieee/string.scm 1514 */
return 
BGl_errorz00zz__errorz00(BGl_string3972z00zz__r4_strings_6_7z00, BGl_string3973z00zz__r4_strings_6_7z00, BgL_strz00_267);} } } } } } 

}



/* string-hex-intern */
BGL_EXPORTED_DEF obj_t BGl_stringzd2hexzd2internz00zz__r4_strings_6_7z00(obj_t BgL_strz00_269)
{
{ /* Ieee/string.scm 1524 */
{ /* Ieee/string.scm 1525 */
 long BgL_lenz00_2259;
BgL_lenz00_2259 = 
STRING_LENGTH(BgL_strz00_269); 
if(
ODDP_FX(BgL_lenz00_2259))
{ /* Ieee/string.scm 1527 */
 obj_t BgL_aux3723z00_5675;
BgL_aux3723z00_5675 = 
BGl_errorz00zz__errorz00(BGl_string3974z00zz__r4_strings_6_7z00, BGl_string3975z00zz__r4_strings_6_7z00, BgL_strz00_269); 
if(
STRINGP(BgL_aux3723z00_5675))
{ /* Ieee/string.scm 1527 */
return BgL_aux3723z00_5675;}  else 
{ 
 obj_t BgL_auxz00_13514;
BgL_auxz00_13514 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(61102L), BGl_string3974z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_aux3723z00_5675); 
FAILURE(BgL_auxz00_13514,BFALSE,BFALSE);} }  else 
{ /* Ieee/string.scm 1528 */
 obj_t BgL_resz00_2261;
{ /* Ieee/string.scm 1528 */
 long BgL_arg1957z00_2276;
BgL_arg1957z00_2276 = 
(BgL_lenz00_2259/2L); 
{ /* Ieee/string.scm 172 */

BgL_resz00_2261 = 
make_string(BgL_arg1957z00_2276, ((unsigned char)' ')); } } 
{ 
 long BgL_iz00_2263; long BgL_jz00_2264;
BgL_iz00_2263 = 0L; 
BgL_jz00_2264 = 0L; 
BgL_zc3z04anonymousza31948ze3z87_2265:
if(
(BgL_iz00_2263==BgL_lenz00_2259))
{ /* Ieee/string.scm 1531 */
return BgL_resz00_2261;}  else 
{ /* Ieee/string.scm 1533 */
 obj_t BgL_c1z00_2267;
BgL_c1z00_2267 = 
BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(BgL_strz00_269, BgL_iz00_2263); 
{ /* Ieee/string.scm 1533 */
 obj_t BgL_c2z00_2268;
BgL_c2z00_2268 = 
BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(BgL_strz00_269, 
(BgL_iz00_2263+1L)); 
{ /* Ieee/string.scm 1534 */
 long BgL_cz00_2269;
{ /* Ieee/string.scm 1535 */
 long BgL_za72za7_3941;
{ /* Ieee/string.scm 1535 */
 obj_t BgL_tmpz00_13525;
if(
INTEGERP(BgL_c2z00_2268))
{ /* Ieee/string.scm 1535 */
BgL_tmpz00_13525 = BgL_c2z00_2268
; }  else 
{ 
 obj_t BgL_auxz00_13528;
BgL_auxz00_13528 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(61379L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_c2z00_2268); 
FAILURE(BgL_auxz00_13528,BFALSE,BFALSE);} 
BgL_za72za7_3941 = 
(long)CINT(BgL_tmpz00_13525); } 
{ /* Ieee/string.scm 1535 */
 long BgL_tmpz00_13533;
{ /* Ieee/string.scm 1535 */
 long BgL_za71za7_3939;
{ /* Ieee/string.scm 1535 */
 obj_t BgL_tmpz00_13534;
if(
INTEGERP(BgL_c1z00_2267))
{ /* Ieee/string.scm 1535 */
BgL_tmpz00_13534 = BgL_c1z00_2267
; }  else 
{ 
 obj_t BgL_auxz00_13537;
BgL_auxz00_13537 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(61372L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_c1z00_2267); 
FAILURE(BgL_auxz00_13537,BFALSE,BFALSE);} 
BgL_za71za7_3939 = 
(long)CINT(BgL_tmpz00_13534); } 
BgL_tmpz00_13533 = 
(BgL_za71za7_3939*16L); } 
BgL_cz00_2269 = 
(BgL_tmpz00_13533+BgL_za72za7_3941); } } 
{ /* Ieee/string.scm 1535 */

{ /* Ieee/string.scm 1536 */
 unsigned char BgL_arg1950z00_2270;
BgL_arg1950z00_2270 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_cz00_2269); 
{ /* Ieee/string.scm 337 */
 long BgL_l2633z00_4582;
BgL_l2633z00_4582 = 
STRING_LENGTH(BgL_resz00_2261); 
if(
BOUND_CHECK(BgL_jz00_2264, BgL_l2633z00_4582))
{ /* Ieee/string.scm 337 */
STRING_SET(BgL_resz00_2261, BgL_jz00_2264, BgL_arg1950z00_2270); }  else 
{ 
 obj_t BgL_auxz00_13549;
BgL_auxz00_13549 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16519L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_resz00_2261, 
(int)(BgL_l2633z00_4582), 
(int)(BgL_jz00_2264)); 
FAILURE(BgL_auxz00_13549,BFALSE,BFALSE);} } } 
{ 
 long BgL_jz00_13557; long BgL_iz00_13555;
BgL_iz00_13555 = 
(BgL_iz00_2263+2L); 
BgL_jz00_13557 = 
(BgL_jz00_2264+1L); 
BgL_jz00_2264 = BgL_jz00_13557; 
BgL_iz00_2263 = BgL_iz00_13555; 
goto BgL_zc3z04anonymousza31948ze3z87_2265;} } } } } } } } } 

}



/* &string-hex-intern */
obj_t BGl_z62stringzd2hexzd2internz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4180, obj_t BgL_strz00_4181)
{
{ /* Ieee/string.scm 1524 */
{ /* Ieee/string.scm 1525 */
 obj_t BgL_auxz00_13559;
if(
STRINGP(BgL_strz00_4181))
{ /* Ieee/string.scm 1525 */
BgL_auxz00_13559 = BgL_strz00_4181
; }  else 
{ 
 obj_t BgL_auxz00_13562;
BgL_auxz00_13562 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(61043L), BGl_string3976z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_4181); 
FAILURE(BgL_auxz00_13562,BFALSE,BFALSE);} 
return 
BGl_stringzd2hexzd2internz00zz__r4_strings_6_7z00(BgL_auxz00_13559);} } 

}



/* string-hex-intern! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2hexzd2internz12z12zz__r4_strings_6_7z00(obj_t BgL_strz00_270)
{
{ /* Ieee/string.scm 1542 */
{ /* Ieee/string.scm 1543 */
 long BgL_lenz00_2279;
BgL_lenz00_2279 = 
STRING_LENGTH(BgL_strz00_270); 
if(
ODDP_FX(BgL_lenz00_2279))
{ /* Ieee/string.scm 1545 */
 obj_t BgL_aux3729z00_5681;
BgL_aux3729z00_5681 = 
BGl_errorz00zz__errorz00(BGl_string3977z00zz__r4_strings_6_7z00, BGl_string3975z00zz__r4_strings_6_7z00, BgL_strz00_270); 
if(
STRINGP(BgL_aux3729z00_5681))
{ /* Ieee/string.scm 1545 */
return BgL_aux3729z00_5681;}  else 
{ 
 obj_t BgL_auxz00_13573;
BgL_auxz00_13573 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(61793L), BGl_string3977z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_aux3729z00_5681); 
FAILURE(BgL_auxz00_13573,BFALSE,BFALSE);} }  else 
{ 
 long BgL_iz00_2282; long BgL_jz00_2283;
BgL_iz00_2282 = 0L; 
BgL_jz00_2283 = 0L; 
BgL_zc3z04anonymousza31959ze3z87_2284:
if(
(BgL_iz00_2282==BgL_lenz00_2279))
{ /* Ieee/string.scm 756 */
 long BgL_tmpz00_13579;
BgL_tmpz00_13579 = 
(BgL_lenz00_2279/2L); 
return 
bgl_string_shrink(BgL_strz00_270, BgL_tmpz00_13579);}  else 
{ /* Ieee/string.scm 1550 */
 obj_t BgL_c1z00_2287;
BgL_c1z00_2287 = 
BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(BgL_strz00_270, BgL_iz00_2282); 
{ /* Ieee/string.scm 1550 */
 obj_t BgL_c2z00_2288;
BgL_c2z00_2288 = 
BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(BgL_strz00_270, 
(BgL_iz00_2282+1L)); 
{ /* Ieee/string.scm 1551 */
 long BgL_cz00_2289;
{ /* Ieee/string.scm 1552 */
 long BgL_za72za7_3957;
{ /* Ieee/string.scm 1552 */
 obj_t BgL_tmpz00_13585;
if(
INTEGERP(BgL_c2z00_2288))
{ /* Ieee/string.scm 1552 */
BgL_tmpz00_13585 = BgL_c2z00_2288
; }  else 
{ 
 obj_t BgL_auxz00_13588;
BgL_auxz00_13588 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62051L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_c2z00_2288); 
FAILURE(BgL_auxz00_13588,BFALSE,BFALSE);} 
BgL_za72za7_3957 = 
(long)CINT(BgL_tmpz00_13585); } 
{ /* Ieee/string.scm 1552 */
 long BgL_tmpz00_13593;
{ /* Ieee/string.scm 1552 */
 long BgL_za71za7_3955;
{ /* Ieee/string.scm 1552 */
 obj_t BgL_tmpz00_13594;
if(
INTEGERP(BgL_c1z00_2287))
{ /* Ieee/string.scm 1552 */
BgL_tmpz00_13594 = BgL_c1z00_2287
; }  else 
{ 
 obj_t BgL_auxz00_13597;
BgL_auxz00_13597 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62044L), BGl_string3827z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_c1z00_2287); 
FAILURE(BgL_auxz00_13597,BFALSE,BFALSE);} 
BgL_za71za7_3955 = 
(long)CINT(BgL_tmpz00_13594); } 
BgL_tmpz00_13593 = 
(BgL_za71za7_3955*16L); } 
BgL_cz00_2289 = 
(BgL_tmpz00_13593+BgL_za72za7_3957); } } 
{ /* Ieee/string.scm 1552 */

{ /* Ieee/string.scm 1553 */
 unsigned char BgL_arg1962z00_2290;
BgL_arg1962z00_2290 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_cz00_2289); 
{ /* Ieee/string.scm 337 */
 long BgL_l2637z00_4586;
BgL_l2637z00_4586 = 
STRING_LENGTH(BgL_strz00_270); 
if(
BOUND_CHECK(BgL_jz00_2283, BgL_l2637z00_4586))
{ /* Ieee/string.scm 337 */
STRING_SET(BgL_strz00_270, BgL_jz00_2283, BgL_arg1962z00_2290); }  else 
{ 
 obj_t BgL_auxz00_13609;
BgL_auxz00_13609 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16519L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_strz00_270, 
(int)(BgL_l2637z00_4586), 
(int)(BgL_jz00_2283)); 
FAILURE(BgL_auxz00_13609,BFALSE,BFALSE);} } } 
{ 
 long BgL_jz00_13617; long BgL_iz00_13615;
BgL_iz00_13615 = 
(BgL_iz00_2282+2L); 
BgL_jz00_13617 = 
(BgL_jz00_2283+1L); 
BgL_jz00_2283 = BgL_jz00_13617; 
BgL_iz00_2282 = BgL_iz00_13615; 
goto BgL_zc3z04anonymousza31959ze3z87_2284;} } } } } } } } 

}



/* &string-hex-intern! */
obj_t BGl_z62stringzd2hexzd2internz12z70zz__r4_strings_6_7z00(obj_t BgL_envz00_4182, obj_t BgL_strz00_4183)
{
{ /* Ieee/string.scm 1542 */
{ /* Ieee/string.scm 1543 */
 obj_t BgL_auxz00_13619;
if(
STRINGP(BgL_strz00_4183))
{ /* Ieee/string.scm 1543 */
BgL_auxz00_13619 = BgL_strz00_4183
; }  else 
{ 
 obj_t BgL_auxz00_13622;
BgL_auxz00_13622 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(61734L), BGl_string3978z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_4183); 
FAILURE(BgL_auxz00_13622,BFALSE,BFALSE);} 
return 
BGl_stringzd2hexzd2internz12z12zz__r4_strings_6_7z00(BgL_auxz00_13619);} } 

}



/* _string-hex-extern */
obj_t BGl__stringzd2hexzd2externz00zz__r4_strings_6_7z00(obj_t BgL_env1206z00_275, obj_t BgL_opt1205z00_274)
{
{ /* Ieee/string.scm 1559 */
{ /* Ieee/string.scm 1559 */
 obj_t BgL_strz00_2296;
{ 
 obj_t BgL_auxz00_13627;
if(
VECTORP(BgL_opt1205z00_274))
{ /* Ieee/string.scm 1559 */
BgL_auxz00_13627 = BgL_opt1205z00_274
; }  else 
{ 
 obj_t BgL_auxz00_13630;
BgL_auxz00_13630 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1205z00_274); 
FAILURE(BgL_auxz00_13630,BFALSE,BFALSE);} 
BgL_strz00_2296 = 
VECTOR_REF(BgL_auxz00_13627,0L); } 
{ 

{ /* Ieee/string.scm 1559 */
 long BgL_aux1208z00_2298;
{ 
 obj_t BgL_auxz00_13635;
if(
VECTORP(BgL_opt1205z00_274))
{ /* Ieee/string.scm 1559 */
BgL_auxz00_13635 = BgL_opt1205z00_274
; }  else 
{ 
 obj_t BgL_auxz00_13638;
BgL_auxz00_13638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1205z00_274); 
FAILURE(BgL_auxz00_13638,BFALSE,BFALSE);} 
BgL_aux1208z00_2298 = 
VECTOR_LENGTH(BgL_auxz00_13635); } 
switch( BgL_aux1208z00_2298) { case 1L : 

{ /* Ieee/string.scm 1560 */
 long BgL_endz00_2300;
{ /* Ieee/string.scm 1560 */
 obj_t BgL_stringz00_3963;
if(
STRINGP(BgL_strz00_2296))
{ /* Ieee/string.scm 1560 */
BgL_stringz00_3963 = BgL_strz00_2296; }  else 
{ 
 obj_t BgL_auxz00_13645;
BgL_auxz00_13645 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62453L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_2296); 
FAILURE(BgL_auxz00_13645,BFALSE,BFALSE);} 
BgL_endz00_2300 = 
STRING_LENGTH(BgL_stringz00_3963); } 
{ /* Ieee/string.scm 1559 */

{ /* Ieee/string.scm 1559 */
 obj_t BgL_auxz00_13650;
if(
STRINGP(BgL_strz00_2296))
{ /* Ieee/string.scm 1559 */
BgL_auxz00_13650 = BgL_strz00_2296
; }  else 
{ 
 obj_t BgL_auxz00_13653;
BgL_auxz00_13653 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_2296); 
FAILURE(BgL_auxz00_13653,BFALSE,BFALSE);} 
return 
BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00(BgL_auxz00_13650, 
(int)(0L), BgL_endz00_2300);} } } break;case 2L : 

{ /* Ieee/string.scm 1559 */
 obj_t BgL_startz00_2301;
{ 
 obj_t BgL_auxz00_13659;
if(
VECTORP(BgL_opt1205z00_274))
{ /* Ieee/string.scm 1559 */
BgL_auxz00_13659 = BgL_opt1205z00_274
; }  else 
{ 
 obj_t BgL_auxz00_13662;
BgL_auxz00_13662 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1205z00_274); 
FAILURE(BgL_auxz00_13662,BFALSE,BFALSE);} 
BgL_startz00_2301 = 
VECTOR_REF(BgL_auxz00_13659,1L); } 
{ /* Ieee/string.scm 1560 */
 long BgL_endz00_2302;
{ /* Ieee/string.scm 1560 */
 obj_t BgL_stringz00_3964;
if(
STRINGP(BgL_strz00_2296))
{ /* Ieee/string.scm 1560 */
BgL_stringz00_3964 = BgL_strz00_2296; }  else 
{ 
 obj_t BgL_auxz00_13669;
BgL_auxz00_13669 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62453L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_2296); 
FAILURE(BgL_auxz00_13669,BFALSE,BFALSE);} 
BgL_endz00_2302 = 
STRING_LENGTH(BgL_stringz00_3964); } 
{ /* Ieee/string.scm 1559 */

{ /* Ieee/string.scm 1559 */
 int BgL_auxz00_13681; obj_t BgL_auxz00_13674;
{ /* Ieee/string.scm 1559 */
 obj_t BgL_tmpz00_13682;
if(
INTEGERP(BgL_startz00_2301))
{ /* Ieee/string.scm 1559 */
BgL_tmpz00_13682 = BgL_startz00_2301
; }  else 
{ 
 obj_t BgL_auxz00_13685;
BgL_auxz00_13685 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_2301); 
FAILURE(BgL_auxz00_13685,BFALSE,BFALSE);} 
BgL_auxz00_13681 = 
CINT(BgL_tmpz00_13682); } 
if(
STRINGP(BgL_strz00_2296))
{ /* Ieee/string.scm 1559 */
BgL_auxz00_13674 = BgL_strz00_2296
; }  else 
{ 
 obj_t BgL_auxz00_13677;
BgL_auxz00_13677 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_2296); 
FAILURE(BgL_auxz00_13677,BFALSE,BFALSE);} 
return 
BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00(BgL_auxz00_13674, BgL_auxz00_13681, BgL_endz00_2302);} } } } break;case 3L : 

{ /* Ieee/string.scm 1559 */
 obj_t BgL_startz00_2303;
{ 
 obj_t BgL_auxz00_13691;
if(
VECTORP(BgL_opt1205z00_274))
{ /* Ieee/string.scm 1559 */
BgL_auxz00_13691 = BgL_opt1205z00_274
; }  else 
{ 
 obj_t BgL_auxz00_13694;
BgL_auxz00_13694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1205z00_274); 
FAILURE(BgL_auxz00_13694,BFALSE,BFALSE);} 
BgL_startz00_2303 = 
VECTOR_REF(BgL_auxz00_13691,1L); } 
{ /* Ieee/string.scm 1559 */
 obj_t BgL_endz00_2304;
{ 
 obj_t BgL_auxz00_13699;
if(
VECTORP(BgL_opt1205z00_274))
{ /* Ieee/string.scm 1559 */
BgL_auxz00_13699 = BgL_opt1205z00_274
; }  else 
{ 
 obj_t BgL_auxz00_13702;
BgL_auxz00_13702 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1205z00_274); 
FAILURE(BgL_auxz00_13702,BFALSE,BFALSE);} 
BgL_endz00_2304 = 
VECTOR_REF(BgL_auxz00_13699,2L); } 
{ /* Ieee/string.scm 1559 */

{ /* Ieee/string.scm 1559 */
 long BgL_auxz00_13723; int BgL_auxz00_13714; obj_t BgL_auxz00_13707;
{ /* Ieee/string.scm 1559 */
 obj_t BgL_tmpz00_13724;
if(
INTEGERP(BgL_endz00_2304))
{ /* Ieee/string.scm 1559 */
BgL_tmpz00_13724 = BgL_endz00_2304
; }  else 
{ 
 obj_t BgL_auxz00_13727;
BgL_auxz00_13727 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_endz00_2304); 
FAILURE(BgL_auxz00_13727,BFALSE,BFALSE);} 
BgL_auxz00_13723 = 
(long)CINT(BgL_tmpz00_13724); } 
{ /* Ieee/string.scm 1559 */
 obj_t BgL_tmpz00_13715;
if(
INTEGERP(BgL_startz00_2303))
{ /* Ieee/string.scm 1559 */
BgL_tmpz00_13715 = BgL_startz00_2303
; }  else 
{ 
 obj_t BgL_auxz00_13718;
BgL_auxz00_13718 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3773z00zz__r4_strings_6_7z00, BgL_startz00_2303); 
FAILURE(BgL_auxz00_13718,BFALSE,BFALSE);} 
BgL_auxz00_13714 = 
CINT(BgL_tmpz00_13715); } 
if(
STRINGP(BgL_strz00_2296))
{ /* Ieee/string.scm 1559 */
BgL_auxz00_13707 = BgL_strz00_2296
; }  else 
{ 
 obj_t BgL_auxz00_13710;
BgL_auxz00_13710 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3979z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_strz00_2296); 
FAILURE(BgL_auxz00_13710,BFALSE,BFALSE);} 
return 
BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00(BgL_auxz00_13707, BgL_auxz00_13714, BgL_auxz00_13723);} } } } break;
default: 
{ /* Ieee/string.scm 1559 */
 long BgL_arg1967z00_2305;
{ 
 obj_t BgL_auxz00_13733;
if(
VECTORP(BgL_opt1205z00_274))
{ /* Ieee/string.scm 1559 */
BgL_auxz00_13733 = BgL_opt1205z00_274
; }  else 
{ 
 obj_t BgL_auxz00_13736;
BgL_auxz00_13736 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62363L), BGl_string3980z00zz__r4_strings_6_7z00, BGl_string3768z00zz__r4_strings_6_7z00, BgL_opt1205z00_274); 
FAILURE(BgL_auxz00_13736,BFALSE,BFALSE);} 
BgL_arg1967z00_2305 = 
VECTOR_LENGTH(BgL_auxz00_13733); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3981z00zz__r4_strings_6_7z00, BGl_string3983z00zz__r4_strings_6_7z00, 
BINT(BgL_arg1967z00_2305));} } } } } } 

}



/* string-hex-extern */
BGL_EXPORTED_DEF obj_t BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00(obj_t BgL_strz00_271, int BgL_startz00_272, long BgL_endz00_273)
{
{ /* Ieee/string.scm 1559 */
{ /* Ieee/string.scm 1564 */
 long BgL_lenz00_2307;
BgL_lenz00_2307 = 
STRING_LENGTH(BgL_strz00_271); 
{ /* Ieee/string.scm 1566 */
 bool_t BgL_test5315z00_13745;
if(
(
(long)(BgL_startz00_272)<0L))
{ /* Ieee/string.scm 1566 */
BgL_test5315z00_13745 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1566 */
BgL_test5315z00_13745 = 
(
(long)(BgL_startz00_272)>BgL_lenz00_2307)
; } 
if(BgL_test5315z00_13745)
{ /* Ieee/string.scm 1568 */
 obj_t BgL_arg1970z00_2310; obj_t BgL_arg1971z00_2311;
{ /* Ieee/string.scm 1568 */
 obj_t BgL_arg1972z00_2312;
{ /* Ieee/fixnum.scm 979 */

BgL_arg1972z00_2312 = 
BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_startz00_272), 10L); } 
BgL_arg1970z00_2310 = 
string_append(BGl_string3811z00zz__r4_strings_6_7z00, BgL_arg1972z00_2312); } 
{ /* Ieee/string.scm 1569 */
 obj_t BgL_list1976z00_2316;
{ /* Ieee/string.scm 1569 */
 obj_t BgL_arg1977z00_2317;
BgL_arg1977z00_2317 = 
MAKE_YOUNG_PAIR(BgL_strz00_271, BNIL); 
BgL_list1976z00_2316 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lenz00_2307), BgL_arg1977z00_2317); } 
BgL_arg1971z00_2311 = BgL_list1976z00_2316; } 
{ /* Ieee/string.scm 1567 */
 obj_t BgL_aux3760z00_5712;
BgL_aux3760z00_5712 = 
BGl_errorz00zz__errorz00(BGl_string3984z00zz__r4_strings_6_7z00, BgL_arg1970z00_2310, BgL_arg1971z00_2311); 
if(
STRINGP(BgL_aux3760z00_5712))
{ /* Ieee/string.scm 1567 */
return BgL_aux3760z00_5712;}  else 
{ 
 obj_t BgL_auxz00_13760;
BgL_auxz00_13760 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62635L), BGl_string3984z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_aux3760z00_5712); 
FAILURE(BgL_auxz00_13760,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 1570 */
 bool_t BgL_test5318z00_13764;
if(
(BgL_endz00_273<
(long)(BgL_startz00_272)))
{ /* Ieee/string.scm 1570 */
BgL_test5318z00_13764 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1570 */
BgL_test5318z00_13764 = 
(BgL_endz00_273>BgL_lenz00_2307)
; } 
if(BgL_test5318z00_13764)
{ /* Ieee/string.scm 1572 */
 obj_t BgL_arg1980z00_2320; obj_t BgL_arg1981z00_2321;
{ /* Ieee/string.scm 1572 */
 obj_t BgL_arg1982z00_2322;
{ /* Ieee/fixnum.scm 979 */

BgL_arg1982z00_2322 = 
BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_endz00_273, 10L); } 
BgL_arg1980z00_2320 = 
string_append(BGl_string3812z00zz__r4_strings_6_7z00, BgL_arg1982z00_2322); } 
{ /* Ieee/string.scm 1573 */
 obj_t BgL_list1984z00_2326;
{ /* Ieee/string.scm 1573 */
 obj_t BgL_arg1985z00_2327;
BgL_arg1985z00_2327 = 
MAKE_YOUNG_PAIR(BgL_strz00_271, BNIL); 
BgL_list1984z00_2326 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lenz00_2307), BgL_arg1985z00_2327); } 
BgL_arg1981z00_2321 = BgL_list1984z00_2326; } 
{ /* Ieee/string.scm 1571 */
 obj_t BgL_aux3762z00_5714;
BgL_aux3762z00_5714 = 
BGl_errorz00zz__errorz00(BGl_string3984z00zz__r4_strings_6_7z00, BgL_arg1980z00_2320, BgL_arg1981z00_2321); 
if(
STRINGP(BgL_aux3762z00_5714))
{ /* Ieee/string.scm 1571 */
return BgL_aux3762z00_5714;}  else 
{ 
 obj_t BgL_auxz00_13777;
BgL_auxz00_13777 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(62810L), BGl_string3984z00zz__r4_strings_6_7z00, BGl_string3766z00zz__r4_strings_6_7z00, BgL_aux3762z00_5714); 
FAILURE(BgL_auxz00_13777,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 1575 */
 obj_t BgL_resz00_2328;
{ /* Ieee/string.scm 1575 */
 long BgL_arg1994z00_2344;
BgL_arg1994z00_2344 = 
(2L*
(BgL_endz00_273-
(long)(BgL_startz00_272))); 
{ /* Ieee/string.scm 172 */

BgL_resz00_2328 = 
make_string(BgL_arg1994z00_2344, ((unsigned char)' ')); } } 
{ 
 int BgL_iz00_2330; long BgL_jz00_2331;
BgL_iz00_2330 = BgL_startz00_272; 
BgL_jz00_2331 = 0L; 
BgL_zc3z04anonymousza31986ze3z87_2332:
if(
(
(long)(BgL_iz00_2330)==BgL_endz00_273))
{ /* Ieee/string.scm 1578 */
return BgL_resz00_2328;}  else 
{ /* Ieee/string.scm 1580 */
 long BgL_nz00_2334;
{ /* Ieee/string.scm 1580 */
 unsigned char BgL_tmpz00_13788;
{ /* Ieee/string.scm 1580 */
 long BgL_kz00_3986;
BgL_kz00_3986 = 
(long)(BgL_iz00_2330); 
{ /* Ieee/string.scm 331 */
 long BgL_l2641z00_4590;
BgL_l2641z00_4590 = 
STRING_LENGTH(BgL_strz00_271); 
if(
BOUND_CHECK(BgL_kz00_3986, BgL_l2641z00_4590))
{ /* Ieee/string.scm 331 */
BgL_tmpz00_13788 = 
STRING_REF(BgL_strz00_271, BgL_kz00_3986)
; }  else 
{ 
 obj_t BgL_auxz00_13794;
BgL_auxz00_13794 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BgL_strz00_271, 
(int)(BgL_l2641z00_4590), 
(int)(BgL_kz00_3986)); 
FAILURE(BgL_auxz00_13794,BFALSE,BFALSE);} } } 
BgL_nz00_2334 = 
(BgL_tmpz00_13788); } 
{ /* Ieee/string.scm 1580 */
 long BgL_d0z00_2335;
{ /* Ieee/string.scm 1581 */
 long BgL_n1z00_3988; long BgL_n2z00_3989;
BgL_n1z00_3988 = BgL_nz00_2334; 
BgL_n2z00_3989 = 16L; 
{ /* Ieee/string.scm 1581 */
 bool_t BgL_test5323z00_13801;
{ /* Ieee/string.scm 1581 */
 long BgL_arg2111z00_3991;
BgL_arg2111z00_3991 = 
(((BgL_n1z00_3988) | (BgL_n2z00_3989)) & -2147483648); 
BgL_test5323z00_13801 = 
(BgL_arg2111z00_3991==0L); } 
if(BgL_test5323z00_13801)
{ /* Ieee/string.scm 1581 */
 int32_t BgL_arg2108z00_3992;
{ /* Ieee/string.scm 1581 */
 int32_t BgL_arg2109z00_3993; int32_t BgL_arg2110z00_3994;
BgL_arg2109z00_3993 = 
(int32_t)(BgL_n1z00_3988); 
BgL_arg2110z00_3994 = 
(int32_t)(BgL_n2z00_3989); 
BgL_arg2108z00_3992 = 
(BgL_arg2109z00_3993%BgL_arg2110z00_3994); } 
{ /* Ieee/string.scm 1581 */
 long BgL_arg2210z00_3999;
BgL_arg2210z00_3999 = 
(long)(BgL_arg2108z00_3992); 
BgL_d0z00_2335 = 
(long)(BgL_arg2210z00_3999); } }  else 
{ /* Ieee/string.scm 1581 */
BgL_d0z00_2335 = 
(BgL_n1z00_3988%BgL_n2z00_3989); } } } 
{ /* Ieee/string.scm 1581 */
 long BgL_d1z00_2336;
BgL_d1z00_2336 = 
(BgL_nz00_2334/16L); 
{ /* Ieee/string.scm 1582 */

{ /* Ieee/string.scm 1583 */
 unsigned char BgL_arg1988z00_2337;
if(
BOUND_CHECK(BgL_d1z00_2336, 16L))
{ /* Ieee/string.scm 331 */
BgL_arg1988z00_2337 = 
STRING_REF(BGl_string3985z00zz__r4_strings_6_7z00, BgL_d1z00_2336); }  else 
{ 
 obj_t BgL_auxz00_13814;
BgL_auxz00_13814 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BGl_string3985z00zz__r4_strings_6_7z00, 
(int)(16L), 
(int)(BgL_d1z00_2336)); 
FAILURE(BgL_auxz00_13814,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 337 */
 long BgL_l2649z00_4598;
BgL_l2649z00_4598 = 
STRING_LENGTH(BgL_resz00_2328); 
if(
BOUND_CHECK(BgL_jz00_2331, BgL_l2649z00_4598))
{ /* Ieee/string.scm 337 */
STRING_SET(BgL_resz00_2328, BgL_jz00_2331, BgL_arg1988z00_2337); }  else 
{ 
 obj_t BgL_auxz00_13824;
BgL_auxz00_13824 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16519L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_resz00_2328, 
(int)(BgL_l2649z00_4598), 
(int)(BgL_jz00_2331)); 
FAILURE(BgL_auxz00_13824,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1584 */
 long BgL_arg1989z00_2338; unsigned char BgL_arg1990z00_2339;
BgL_arg1989z00_2338 = 
(BgL_jz00_2331+1L); 
if(
BOUND_CHECK(BgL_d0z00_2335, 16L))
{ /* Ieee/string.scm 331 */
BgL_arg1990z00_2339 = 
STRING_REF(BGl_string3985z00zz__r4_strings_6_7z00, BgL_d0z00_2335); }  else 
{ 
 obj_t BgL_auxz00_13834;
BgL_auxz00_13834 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16225L), BGl_string3778z00zz__r4_strings_6_7z00, BGl_string3985z00zz__r4_strings_6_7z00, 
(int)(16L), 
(int)(BgL_d0z00_2335)); 
FAILURE(BgL_auxz00_13834,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 337 */
 long BgL_l2657z00_4606;
BgL_l2657z00_4606 = 
STRING_LENGTH(BgL_resz00_2328); 
if(
BOUND_CHECK(BgL_arg1989z00_2338, BgL_l2657z00_4606))
{ /* Ieee/string.scm 337 */
STRING_SET(BgL_resz00_2328, BgL_arg1989z00_2338, BgL_arg1990z00_2339); }  else 
{ 
 obj_t BgL_auxz00_13844;
BgL_auxz00_13844 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3764z00zz__r4_strings_6_7z00, 
BINT(16519L), BGl_string3780z00zz__r4_strings_6_7z00, BgL_resz00_2328, 
(int)(BgL_l2657z00_4606), 
(int)(BgL_arg1989z00_2338)); 
FAILURE(BgL_auxz00_13844,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1585 */
 long BgL_arg1991z00_2340; long BgL_arg1992z00_2341;
BgL_arg1991z00_2340 = 
(
(long)(BgL_iz00_2330)+1L); 
BgL_arg1992z00_2341 = 
(BgL_jz00_2331+2L); 
{ 
 long BgL_jz00_13855; int BgL_iz00_13853;
BgL_iz00_13853 = 
(int)(BgL_arg1991z00_2340); 
BgL_jz00_13855 = BgL_arg1992z00_2341; 
BgL_jz00_2331 = BgL_jz00_13855; 
BgL_iz00_2330 = BgL_iz00_13853; 
goto BgL_zc3z04anonymousza31986ze3z87_2332;} } } } } } } } } } } } 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_strings_6_7z00(void)
{
{ /* Ieee/string.scm 18 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string3986z00zz__r4_strings_6_7z00)); 
return 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string3986z00zz__r4_strings_6_7z00));} 

}

#ifdef __cplusplus
}
#endif
