/*===========================================================================*/
/*   (Ieee/string.scm)                                                       */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -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);
static obj_t BGl_symbol3450z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3371z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3455z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(obj_t, unsigned char, obj_t, obj_t);
static obj_t BGl_symbol3538z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3459z00zz__r4_strings_6_7z00 = BUNSPEC;
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);
static obj_t BGl_symbol3463z00zz__r4_strings_6_7z00 = BUNSPEC;
extern bool_t bigloo_string_cilt(obj_t, obj_t);
static obj_t BGl_list3431z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3465z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3384z00zz__r4_strings_6_7z00 = BUNSPEC;
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);
static obj_t BGl_symbol3471z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3391z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3473z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_stringzd2cizc3zd3zf3z31zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_symbol3394z00zz__r4_strings_6_7z00 = BUNSPEC;
extern bool_t bigloo_strcicmp(obj_t, obj_t);
static obj_t BGl_symbol3477z00zz__r4_strings_6_7z00 = BUNSPEC;
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 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);
static obj_t BGl_symbol3488z00zz__r4_strings_6_7z00 = BUNSPEC;
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_symbol3491z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3493z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_list3462z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3496z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_stringzd2cize3zf3zc2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_symbol3498z00zz__r4_strings_6_7z00 = BUNSPEC;
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_z62substringzd3zf3z42zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
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_list3470z00zz__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__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_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);
BGL_EXPORTED_DECL obj_t BGl_stringzd2indexzd2rightz00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
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);
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);
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);
extern obj_t bstring_to_symbol(obj_t);
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);
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);
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_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);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
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);
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);
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);
static obj_t BGl_symbol3501z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3503z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3506z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3426z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3508z00zz__r4_strings_6_7z00 = BUNSPEC;
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_symbol3349z00zz__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);
static obj_t BGl_symbol3511z00zz__r4_strings_6_7z00 = BUNSPEC;
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl_symbol3513z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3432z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3434z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3516z00zz__r4_strings_6_7z00 = BUNSPEC;
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_symbol3436z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl__stringzd2indexzd2rightz00zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_symbol3518z00zz__r4_strings_6_7z00 = BUNSPEC;
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);
static obj_t BGl_symbol3522z00zz__r4_strings_6_7z00 = BUNSPEC;
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);
static obj_t BGl_symbol3525z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3447z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3366z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3529z00zz__r4_strings_6_7z00 = BUNSPEC;
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_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_za762stringza7d2upca3545z00, BGl_z62stringzd2upcasez12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2capitaliza7ezd2envza7zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2capi3546z00, BGl_z62stringzd2capitaliza7ez17zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string3490z00zz__r4_strings_6_7z00, BgL_bgl_string3490za700za7za7_3547za7, "_string-prefix-length-ci", 24 );
DEFINE_STRING( BGl_string3492z00zz__r4_strings_6_7z00, BgL_bgl_string3492za700za7za7_3548za7, "string-prefix-length-ci", 23 );
DEFINE_STRING( BGl_string3494z00zz__r4_strings_6_7z00, BgL_bgl_string3494za700za7za7_3549za7, "string-suffix-length::int", 25 );
DEFINE_STRING( BGl_string3495z00zz__r4_strings_6_7z00, BgL_bgl_string3495za700za7za7_3550za7, "_string-suffix-length", 21 );
DEFINE_STRING( BGl_string3497z00zz__r4_strings_6_7z00, BgL_bgl_string3497za700za7za7_3551za7, "string-suffix-length", 20 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2suffixzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix3552za7, opt_generic_entry, BGl__stringzd2suffixzf3z21zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_STRING( BGl_string3499z00zz__r4_strings_6_7z00, BgL_bgl_string3499za700za7za7_3553za7, "string-suffix-length-ci::int", 28 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2compare3zd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2comp3554z00, BGl_z62stringzd2compare3zb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2copyzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2copy3555z00, BGl_z62stringzd2copyzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2upcasezd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2upca3556z00, BGl_z62stringzd2upcasezb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2setzd2urz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2setza73557za7, BGl_z62stringzd2setzd2urz12z70zz__r4_strings_6_7z00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2hexzd2internzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2hexza73558za7, BGl_z62stringzd2hexzd2internz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2hexzd2internz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2hexza73559za7, BGl_z62stringzd2hexzd2internz12z70zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2cizc3zd3zf3zd2envze3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7c3560za7, BGl_z62stringzd2cizc3zd3zf3z53zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2prefixzd2lengthzd2cizd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix3561za7, opt_generic_entry, BGl__stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2skipzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2skipza7d3562z00, opt_generic_entry, BGl__stringzd2skipzd2zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2ze3listzd2envze3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2za7e3l3563za7, BGl_z62stringzd2ze3listz53zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2suffixzd2lengthzd2cizd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix3564za7, opt_generic_entry, BGl__stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_makezd2stringzd2envz00zz__r4_strings_6_7z00, BgL_bgl__makeza7d2stringza7d3565z00, opt_generic_entry, BGl__makezd2stringzd2zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2suffixzd2lengthzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix3566za7, opt_generic_entry, BGl__stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7d3567za7, BGl_z62stringzd2cizd3zf3z90zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2compare3zd2cizd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2comp3568z00, BGl_z62stringzd2compare3zd2ciz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2appendzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2appe3569z00, va_generic_entry, BGl_z62stringzd2appendzb0zz__r4_strings_6_7z00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_substringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__substringza700za7za7_3570za7, opt_generic_entry, BGl__substringz00zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2containszd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2contai3571za7, opt_generic_entry, BGl__stringzd2containszd2zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2indexzd2rightzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2indexza73572z00, opt_generic_entry, BGl__stringzd2indexzd2rightz00zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd3zf3zd2envzf2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d3za7f3za73573z00, BGl_z62stringzd3zf3z42zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2naturalzd2compare3zd2cizd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2natura3574za7, opt_generic_entry, BGl__stringzd2naturalzd2compare3zd2cizd2zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2containszd2cizd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2contai3575za7, opt_generic_entry, BGl__stringzd2containszd2ciz00zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2capitaliza7ez12zd2envzb5zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2capi3576z00, BGl_z62stringzd2capitaliza7ez12z05zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2shrinkz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2shri3577z00, BGl_z62stringzd2shrinkz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl_za762stringza7f3za791za73578z00, BGl_z62stringzf3z91zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_substringzd2cizd2atzf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl__substringza7d2ciza73579z00, opt_generic_entry, BGl__substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2indexzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2indexza73580z00, opt_generic_entry, BGl__stringzd2indexzd2zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_blitzd2stringzd2urz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl_za762blitza7d2string3581z00, BGl_z62blitzd2stringzd2urz12z70zz__r4_strings_6_7z00, 0L, BUNSPEC, 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringze3zd3zf3zd2envz11zz__r4_strings_6_7z00, BgL_bgl_za762stringza7e3za7d3za73582z00, BGl_z62stringze3zd3zf3za1zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2naturalzd2compare3zd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2natura3583za7, opt_generic_entry, BGl__stringzd2naturalzd2compare3z00zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_substringzd2atzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl__substringza7d2atza73584z00, opt_generic_entry, BGl__substringzd2atzf3z21zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2prefixzd2cizf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix3585za7, opt_generic_entry, BGl__stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2setz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2setza73586za7, BGl_z62stringzd2setz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2charzd2indexzd2urzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2char3587z00, BGl_z62stringzd2charzd2indexzd2urzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2prefixzd2lengthzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix3588za7, opt_generic_entry, BGl__stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_STRING( BGl_string3400z00zz__r4_strings_6_7z00, BgL_bgl_string3400za700za7za7_3589za7, "string-append", 13 );
DEFINE_STRING( BGl_string3401z00zz__r4_strings_6_7z00, BgL_bgl_string3401za700za7za7_3590za7, "pair", 4 );
DEFINE_STRING( BGl_string3402z00zz__r4_strings_6_7z00, BgL_bgl_string3402za700za7za7_3591za7, "loop", 4 );
DEFINE_STRING( BGl_string3403z00zz__r4_strings_6_7z00, BgL_bgl_string3403za700za7za7_3592za7, "&list->string", 13 );
DEFINE_STRING( BGl_string3404z00zz__r4_strings_6_7z00, BgL_bgl_string3404za700za7za7_3593za7, "&string->list", 13 );
DEFINE_STRING( BGl_string3405z00zz__r4_strings_6_7z00, BgL_bgl_string3405za700za7za7_3594za7, "&string-copy", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2cize3zf3zd2envz10zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7e3595za7, BGl_z62stringzd2cize3zf3za0zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string3406z00zz__r4_strings_6_7z00, BgL_bgl_string3406za700za7za7_3596za7, "&string-fill!", 13 );
DEFINE_STRING( BGl_string3407z00zz__r4_strings_6_7z00, BgL_bgl_string3407za700za7za7_3597za7, "&string-upcase", 14 );
DEFINE_STRING( BGl_string3408z00zz__r4_strings_6_7z00, BgL_bgl_string3408za700za7za7_3598za7, "&string-downcase", 16 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2splitzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2spli3599z00, va_generic_entry, BGl_z62stringzd2splitzb0zz__r4_strings_6_7z00, BUNSPEC, -2 );
DEFINE_STRING( BGl_string3409z00zz__r4_strings_6_7z00, BgL_bgl_string3409za700za7za7_3600za7, "&string-upcase!", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_emptyzd2stringzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl_za762emptyza7d2strin3601z00, BGl_z62emptyzd2stringzf3z43zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2refzd2urzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2refza73602za7, BGl_z62stringzd2refzd2urz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string3410z00zz__r4_strings_6_7z00, BgL_bgl_string3410za700za7za7_3603za7, "&string-downcase!", 17 );
DEFINE_STRING( BGl_string3411z00zz__r4_strings_6_7z00, BgL_bgl_string3411za700za7za7_3604za7, "&string-capitalize!", 19 );
DEFINE_STRING( BGl_string3412z00zz__r4_strings_6_7z00, BgL_bgl_string3412za700za7za7_3605za7, "&string-capitalize", 18 );
DEFINE_STRING( BGl_string3413z00zz__r4_strings_6_7z00, BgL_bgl_string3413za700za7za7_3606za7, "&string-for-read", 16 );
DEFINE_STRING( BGl_string3414z00zz__r4_strings_6_7z00, BgL_bgl_string3414za700za7za7_3607za7, "&escape-C-string", 16 );
DEFINE_STRING( BGl_string3415z00zz__r4_strings_6_7z00, BgL_bgl_string3415za700za7za7_3608za7, "&escape-scheme-string", 21 );
DEFINE_STRING( BGl_string3416z00zz__r4_strings_6_7z00, BgL_bgl_string3416za700za7za7_3609za7, "&string-as-read", 15 );
DEFINE_STRING( BGl_string3417z00zz__r4_strings_6_7z00, BgL_bgl_string3417za700za7za7_3610za7, "&blit-string-ur!", 16 );
DEFINE_STRING( BGl_string3418z00zz__r4_strings_6_7z00, BgL_bgl_string3418za700za7za7_3611za7, "]", 1 );
DEFINE_STRING( BGl_string3419z00zz__r4_strings_6_7z00, BgL_bgl_string3419za700za7za7_3612za7, "] [dest:", 8 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringze3zf3zd2envzc2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7e3za7f3za73613z00, BGl_z62stringze3zf3z72zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string3500z00zz__r4_strings_6_7z00, BgL_bgl_string3500za700za7za7_3614za7, "_string-suffix-length-ci", 24 );
DEFINE_STRING( BGl_string3420z00zz__r4_strings_6_7z00, BgL_bgl_string3420za700za7za7_3615za7, "[src:", 5 );
DEFINE_STRING( BGl_string3502z00zz__r4_strings_6_7z00, BgL_bgl_string3502za700za7za7_3616za7, "string-suffix-length-ci", 23 );
DEFINE_STRING( BGl_string3421z00zz__r4_strings_6_7z00, BgL_bgl_string3421za700za7za7_3617za7, "blit-string!:Index and length out of range", 42 );
DEFINE_STRING( BGl_string3422z00zz__r4_strings_6_7z00, BgL_bgl_string3422za700za7za7_3618za7, "&blit-string!", 13 );
DEFINE_STRING( BGl_string3504z00zz__r4_strings_6_7z00, BgL_bgl_string3504za700za7za7_3619za7, "string-prefix?::bool", 20 );
DEFINE_STRING( BGl_string3423z00zz__r4_strings_6_7z00, BgL_bgl_string3423za700za7za7_3620za7, "&string-shrink!", 15 );
DEFINE_STRING( BGl_string3505z00zz__r4_strings_6_7z00, BgL_bgl_string3505za700za7za7_3621za7, "_string-prefix?", 15 );
DEFINE_STRING( BGl_string3424z00zz__r4_strings_6_7z00, BgL_bgl_string3424za700za7za7_3622za7, "&string-replace", 15 );
DEFINE_STRING( BGl_string3425z00zz__r4_strings_6_7z00, BgL_bgl_string3425za700za7za7_3623za7, "&string-replace!", 16 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzc3zd3zf3zd2envz31zz__r4_strings_6_7z00, BgL_bgl_za762stringza7c3za7d3za73624z00, BGl_z62stringzc3zd3zf3z81zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string3507z00zz__r4_strings_6_7z00, BgL_bgl_string3507za700za7za7_3625za7, "string-prefix?", 14 );
DEFINE_STRING( BGl_string3427z00zz__r4_strings_6_7z00, BgL_bgl_string3427za700za7za7_3626za7, "string-delete", 13 );
DEFINE_STRING( BGl_string3346z00zz__r4_strings_6_7z00, BgL_bgl_string3346za700za7za7_3627za7, "/tmp/bigloo/runtime/Ieee/string.scm", 35 );
DEFINE_STRING( BGl_string3509z00zz__r4_strings_6_7z00, BgL_bgl_string3509za700za7za7_3628za7, "string-prefix-ci?::bool", 23 );
DEFINE_STRING( BGl_string3428z00zz__r4_strings_6_7z00, BgL_bgl_string3428za700za7za7_3629za7, "wrong number of arguments: [2..4] expected, provided", 52 );
DEFINE_STRING( BGl_string3347z00zz__r4_strings_6_7z00, BgL_bgl_string3347za700za7za7_3630za7, "&string-null?", 13 );
DEFINE_STRING( BGl_string3429z00zz__r4_strings_6_7z00, BgL_bgl_string3429za700za7za7_3631za7, "_string-delete", 14 );
DEFINE_STRING( BGl_string3348z00zz__r4_strings_6_7z00, BgL_bgl_string3348za700za7za7_3632za7, "bstring", 7 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2replacez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2repl3633z00, BGl_z62stringzd2replacez12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2skipzd2rightzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2skipza7d3634z00, opt_generic_entry, BGl__stringzd2skipzd2rightz00zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2lengthzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2leng3635z00, BGl_z62stringzd2lengthzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string3510z00zz__r4_strings_6_7z00, BgL_bgl_string3510za700za7za7_3636za7, "_string-prefix-ci?", 18 );
DEFINE_STRING( BGl_string3430z00zz__r4_strings_6_7z00, BgL_bgl_string3430za700za7za7_3637za7, "loop:Wrong number of arguments", 30 );
DEFINE_STRING( BGl_string3512z00zz__r4_strings_6_7z00, BgL_bgl_string3512za700za7za7_3638za7, "string-prefix-ci?", 17 );
DEFINE_STRING( BGl_string3350z00zz__r4_strings_6_7z00, BgL_bgl_string3350za700za7za7_3639za7, "make-string", 11 );
DEFINE_STRING( BGl_string3351z00zz__r4_strings_6_7z00, BgL_bgl_string3351za700za7za7_3640za7, "wrong number of arguments: [1..2] expected, provided", 52 );
DEFINE_STRING( BGl_string3514z00zz__r4_strings_6_7z00, BgL_bgl_string3514za700za7za7_3641za7, "string-suffix?::bool", 20 );
DEFINE_STRING( BGl_string3433z00zz__r4_strings_6_7z00, BgL_bgl_string3433za700za7za7_3642za7, "funcall", 7 );
DEFINE_STRING( BGl_string3352z00zz__r4_strings_6_7z00, BgL_bgl_string3352za700za7za7_3643za7, "_make-string", 12 );
DEFINE_STRING( BGl_string3515z00zz__r4_strings_6_7z00, BgL_bgl_string3515za700za7za7_3644za7, "_string-suffix?", 15 );
DEFINE_STRING( BGl_string3353z00zz__r4_strings_6_7z00, BgL_bgl_string3353za700za7za7_3645za7, "bint", 4 );
DEFINE_STRING( BGl_string3435z00zz__r4_strings_6_7z00, BgL_bgl_string3435za700za7za7_3646za7, "pred", 4 );
DEFINE_STRING( BGl_string3354z00zz__r4_strings_6_7z00, BgL_bgl_string3354za700za7za7_3647za7, "bchar", 5 );
DEFINE_STRING( BGl_string3517z00zz__r4_strings_6_7z00, BgL_bgl_string3517za700za7za7_3648za7, "string-suffix?", 14 );
DEFINE_STRING( BGl_string3355z00zz__r4_strings_6_7z00, BgL_bgl_string3355za700za7za7_3649za7, "string", 6 );
DEFINE_STRING( BGl_string3437z00zz__r4_strings_6_7z00, BgL_bgl_string3437za700za7za7_3650za7, "cc", 2 );
DEFINE_STRING( BGl_string3356z00zz__r4_strings_6_7z00, BgL_bgl_string3356za700za7za7_3651za7, "pair-nil", 8 );
DEFINE_STRING( BGl_string3519z00zz__r4_strings_6_7z00, BgL_bgl_string3519za700za7za7_3652za7, "string-suffix-ci?::bool", 23 );
DEFINE_STRING( BGl_string3438z00zz__r4_strings_6_7z00, BgL_bgl_string3438za700za7za7_3653za7, "start index out of range", 24 );
DEFINE_STRING( BGl_string3357z00zz__r4_strings_6_7z00, BgL_bgl_string3357za700za7za7_3654za7, "&string-length", 14 );
DEFINE_STRING( BGl_string3439z00zz__r4_strings_6_7z00, BgL_bgl_string3439za700za7za7_3655za7, "end index out of range", 22 );
DEFINE_STRING( BGl_string3358z00zz__r4_strings_6_7z00, BgL_bgl_string3358za700za7za7_3656za7, "string-ref", 10 );
DEFINE_STRING( BGl_string3359z00zz__r4_strings_6_7z00, BgL_bgl_string3359za700za7za7_3657za7, "&string-ref", 11 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza762za7za7__3658z00, va_generic_entry, BGl_z62stringz62zz__r4_strings_6_7z00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2charzd2indexzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2charza7d3659z00, opt_generic_entry, BGl__stringzd2charzd2indexz00zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_STRING( BGl_string3520z00zz__r4_strings_6_7z00, BgL_bgl_string3520za700za7za7_3660za7, "_string-suffix-ci?", 18 );
DEFINE_STRING( BGl_string3521z00zz__r4_strings_6_7z00, BgL_bgl_string3521za700za7za7_3661za7, "string-suffix-ci?", 17 );
DEFINE_STRING( BGl_string3440z00zz__r4_strings_6_7z00, BgL_bgl_string3440za700za7za7_3662za7, "Illegal indices", 15 );
DEFINE_STRING( BGl_string3441z00zz__r4_strings_6_7z00, BgL_bgl_string3441za700za7za7_3663za7, "Illegal char/charset/predicate", 30 );
DEFINE_STRING( BGl_string3360z00zz__r4_strings_6_7z00, BgL_bgl_string3360za700za7za7_3664za7, "string-set!", 11 );
DEFINE_STRING( BGl_string3523z00zz__r4_strings_6_7z00, BgL_bgl_string3523za700za7za7_3665za7, "string-natural-compare3", 23 );
DEFINE_STRING( BGl_string3442z00zz__r4_strings_6_7z00, BgL_bgl_string3442za700za7za7_3666za7, "delim?", 6 );
DEFINE_STRING( BGl_string3361z00zz__r4_strings_6_7z00, BgL_bgl_string3361za700za7za7_3667za7, "&string-set!", 12 );
DEFINE_STRING( BGl_string3524z00zz__r4_strings_6_7z00, BgL_bgl_string3524za700za7za7_3668za7, "_string-natural-compare3", 24 );
DEFINE_STRING( BGl_string3443z00zz__r4_strings_6_7z00, BgL_bgl_string3443za700za7za7_3669za7, " \t\n", 3 );
DEFINE_STRING( BGl_string3362z00zz__r4_strings_6_7z00, BgL_bgl_string3362za700za7za7_3670za7, "&string-ref-ur", 14 );
DEFINE_STRING( BGl_string3444z00zz__r4_strings_6_7z00, BgL_bgl_string3444za700za7za7_3671za7, "&string-split", 13 );
DEFINE_STRING( BGl_string3363z00zz__r4_strings_6_7z00, BgL_bgl_string3363za700za7za7_3672za7, "&string-set-ur!", 15 );
DEFINE_STRING( BGl_string3526z00zz__r4_strings_6_7z00, BgL_bgl_string3526za700za7za7_3673za7, "string-natural-compare3-ci", 26 );
DEFINE_STRING( BGl_string3445z00zz__r4_strings_6_7z00, BgL_bgl_string3445za700za7za7_3674za7, "&string-cut", 11 );
DEFINE_STRING( BGl_string3364z00zz__r4_strings_6_7z00, BgL_bgl_string3364za700za7za7_3675za7, "&string=?", 9 );
DEFINE_STRING( BGl_string3527z00zz__r4_strings_6_7z00, BgL_bgl_string3527za700za7za7_3676za7, "_string-natural-compare3-ci", 27 );
DEFINE_STRING( BGl_string3446z00zz__r4_strings_6_7z00, BgL_bgl_string3446za700za7za7_3677za7, "&string-char-index-ur", 21 );
DEFINE_STRING( BGl_string3365z00zz__r4_strings_6_7z00, BgL_bgl_string3365za700za7za7_3678za7, "&substring=?", 12 );
DEFINE_STRING( BGl_string3528z00zz__r4_strings_6_7z00, BgL_bgl_string3528za700za7za7_3679za7, "while", 5 );
DEFINE_STRING( BGl_string3448z00zz__r4_strings_6_7z00, BgL_bgl_string3448za700za7za7_3680za7, "string-char-index", 17 );
DEFINE_STRING( BGl_string3367z00zz__r4_strings_6_7z00, BgL_bgl_string3367za700za7za7_3681za7, "substring-at?", 13 );
DEFINE_STRING( BGl_string3449z00zz__r4_strings_6_7z00, BgL_bgl_string3449za700za7za7_3682za7, "_string-char-index", 18 );
DEFINE_STRING( BGl_string3368z00zz__r4_strings_6_7z00, BgL_bgl_string3368za700za7za7_3683za7, "wrong number of arguments: [3..4] expected, provided", 52 );
DEFINE_STRING( BGl_string3369z00zz__r4_strings_6_7z00, BgL_bgl_string3369za700za7za7_3684za7, "_substring-at?", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2deletezd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2delete3685za7, opt_generic_entry, BGl__stringzd2deletezd2zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2nullzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2null3686z00, BGl_z62stringzd2nullzf3z43zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_escapezd2Czd2stringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762escapeza7d2cza7d23687za7, BGl_z62escapezd2Czd2stringz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string3530z00zz__r4_strings_6_7z00, BgL_bgl_string3530za700za7za7_3688za7, "an-awful-hack", 13 );
DEFINE_STRING( BGl_string3531z00zz__r4_strings_6_7z00, BgL_bgl_string3531za700za7za7_3689za7, "hex-string->string", 18 );
DEFINE_STRING( BGl_string3532z00zz__r4_strings_6_7z00, BgL_bgl_string3532za700za7za7_3690za7, "Illegal string (illegal character)", 34 );
DEFINE_STRING( BGl_string3451z00zz__r4_strings_6_7z00, BgL_bgl_string3451za700za7za7_3691za7, "string-index", 12 );
DEFINE_STRING( BGl_string3370z00zz__r4_strings_6_7z00, BgL_bgl_string3370za700za7za7_3692za7, "&substring-ci=?", 15 );
DEFINE_STRING( BGl_string3533z00zz__r4_strings_6_7z00, BgL_bgl_string3533za700za7za7_3693za7, "string-hex-intern", 17 );
DEFINE_STRING( BGl_string3452z00zz__r4_strings_6_7z00, BgL_bgl_string3452za700za7za7_3694za7, "_string-index", 13 );
DEFINE_STRING( BGl_string3534z00zz__r4_strings_6_7z00, BgL_bgl_string3534za700za7za7_3695za7, "Illegal string (length is odd)", 30 );
DEFINE_STRING( BGl_string3453z00zz__r4_strings_6_7z00, BgL_bgl_string3453za700za7za7_3696za7, "liip", 4 );
DEFINE_STRING( BGl_string3372z00zz__r4_strings_6_7z00, BgL_bgl_string3372za700za7za7_3697za7, "substring-ci-at?", 16 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2cutzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2cutza73698za7, va_generic_entry, BGl_z62stringzd2cutzb0zz__r4_strings_6_7z00, BUNSPEC, -2 );
DEFINE_STRING( BGl_string3535z00zz__r4_strings_6_7z00, BgL_bgl_string3535za700za7za7_3699za7, "&string-hex-intern", 18 );
DEFINE_STRING( BGl_string3454z00zz__r4_strings_6_7z00, BgL_bgl_string3454za700za7za7_3700za7, "Illegal regset", 14 );
DEFINE_STRING( BGl_string3373z00zz__r4_strings_6_7z00, BgL_bgl_string3373za700za7za7_3701za7, "_substring-ci-at?", 17 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2suffixzd2cizf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl__stringza7d2suffix3702za7, opt_generic_entry, BGl__stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_STRING( BGl_string3536z00zz__r4_strings_6_7z00, BgL_bgl_string3536za700za7za7_3703za7, "string-hex-intern!", 18 );
DEFINE_STRING( BGl_string3374z00zz__r4_strings_6_7z00, BgL_bgl_string3374za700za7za7_3704za7, "&empty-string?", 14 );
DEFINE_STRING( BGl_string3537z00zz__r4_strings_6_7z00, BgL_bgl_string3537za700za7za7_3705za7, "&string-hex-intern!", 19 );
DEFINE_STRING( BGl_string3456z00zz__r4_strings_6_7z00, BgL_bgl_string3456za700za7za7_3706za7, "string-index-right", 18 );
DEFINE_STRING( BGl_string3375z00zz__r4_strings_6_7z00, BgL_bgl_string3375za700za7za7_3707za7, "&string-ci=?", 12 );
DEFINE_STRING( BGl_string3457z00zz__r4_strings_6_7z00, BgL_bgl_string3457za700za7za7_3708za7, "_string-index-right", 19 );
DEFINE_STRING( BGl_string3376z00zz__r4_strings_6_7z00, BgL_bgl_string3376za700za7za7_3709za7, "&string<?", 9 );
DEFINE_STRING( BGl_string3539z00zz__r4_strings_6_7z00, BgL_bgl_string3539za700za7za7_3710za7, "string-hex-extern::bstring", 26 );
DEFINE_STRING( BGl_string3458z00zz__r4_strings_6_7z00, BgL_bgl_string3458za700za7za7_3711za7, "index out of bound", 18 );
DEFINE_STRING( BGl_string3377z00zz__r4_strings_6_7z00, BgL_bgl_string3377za700za7za7_3712za7, "&string>?", 9 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_substringzd2urzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762substringza7d2u3713z00, BGl_z62substringzd2urzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 3 );
DEFINE_STRING( BGl_string3378z00zz__r4_strings_6_7z00, BgL_bgl_string3378za700za7za7_3714za7, "&string<=?", 10 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_substringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00, BgL_bgl_za762substringza7d2c3715z00, BGl_z62substringzd2cizd3zf3z90zz__r4_strings_6_7z00, 0L, BUNSPEC, 3 );
DEFINE_STRING( BGl_string3379z00zz__r4_strings_6_7z00, BgL_bgl_string3379za700za7za7_3716za7, "&string>=?", 10 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_escapezd2schemezd2stringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762escapeza7d2sche3717z00, BGl_z62escapezd2schemezd2stringz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2cize3zd3zf3zd2envzc3zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7e3718za7, BGl_z62stringzd2cize3zd3zf3z73zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2cizc3zf3zd2envz30zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2ciza7c3719za7, BGl_z62stringzd2cizc3zf3z80zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2hexzd2externzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2hexza7d23720z00, opt_generic_entry, BGl__stringzd2hexzd2externz00zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_STRING( BGl_string3540z00zz__r4_strings_6_7z00, BgL_bgl_string3540za700za7za7_3721za7, "wrong number of arguments: [1..3] expected, provided", 52 );
DEFINE_STRING( BGl_string3541z00zz__r4_strings_6_7z00, BgL_bgl_string3541za700za7za7_3722za7, "_string-hex-extern", 18 );
DEFINE_STRING( BGl_string3460z00zz__r4_strings_6_7z00, BgL_bgl_string3460za700za7za7_3723za7, "string-skip", 11 );
DEFINE_STRING( BGl_string3542z00zz__r4_strings_6_7z00, BgL_bgl_string3542za700za7za7_3724za7, "string-hex-extern", 17 );
DEFINE_STRING( BGl_string3461z00zz__r4_strings_6_7z00, BgL_bgl_string3461za700za7za7_3725za7, "_string-skip", 12 );
DEFINE_STRING( BGl_string3380z00zz__r4_strings_6_7z00, BgL_bgl_string3380za700za7za7_3726za7, "&string-ci<?", 12 );
DEFINE_STRING( BGl_string3543z00zz__r4_strings_6_7z00, BgL_bgl_string3543za700za7za7_3727za7, "0123456789abcdef", 16 );
DEFINE_STRING( BGl_string3381z00zz__r4_strings_6_7z00, BgL_bgl_string3381za700za7za7_3728za7, "&string-ci>?", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_blitzd2stringz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762blitza7d2string3729z00, BGl_z62blitzd2stringz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 5 );
DEFINE_STRING( BGl_string3544z00zz__r4_strings_6_7z00, BgL_bgl_string3544za700za7za7_3730za7, "__r4_strings_6_7", 16 );
DEFINE_STRING( BGl_string3382z00zz__r4_strings_6_7z00, BgL_bgl_string3382za700za7za7_3731za7, "&string-ci<=?", 13 );
DEFINE_STRING( BGl_string3464z00zz__r4_strings_6_7z00, BgL_bgl_string3464za700za7za7_3732za7, "arg1681", 7 );
DEFINE_STRING( BGl_string3383z00zz__r4_strings_6_7z00, BgL_bgl_string3383za700za7za7_3733za7, "&string-ci>=?", 13 );
DEFINE_STRING( BGl_string3466z00zz__r4_strings_6_7z00, BgL_bgl_string3466za700za7za7_3734za7, "string-skip-right", 17 );
DEFINE_STRING( BGl_string3385z00zz__r4_strings_6_7z00, BgL_bgl_string3385za700za7za7_3735za7, "substring", 9 );
DEFINE_STRING( BGl_string3467z00zz__r4_strings_6_7z00, BgL_bgl_string3467za700za7za7_3736za7, "_string-skip-right", 18 );
DEFINE_STRING( BGl_string3386z00zz__r4_strings_6_7z00, BgL_bgl_string3386za700za7za7_3737za7, "wrong number of arguments: [2..3] expected, provided", 52 );
DEFINE_STRING( BGl_string3468z00zz__r4_strings_6_7z00, BgL_bgl_string3468za700za7za7_3738za7, "string-char-skip", 16 );
DEFINE_STRING( BGl_string3387z00zz__r4_strings_6_7z00, BgL_bgl_string3387za700za7za7_3739za7, "_substring", 10 );
DEFINE_STRING( BGl_string3469z00zz__r4_strings_6_7z00, BgL_bgl_string3469za700za7za7_3740za7, "string-pred-skip", 16 );
DEFINE_STRING( BGl_string3388z00zz__r4_strings_6_7z00, BgL_bgl_string3388za700za7za7_3741za7, "Illegal start index ", 20 );
DEFINE_STRING( BGl_string3389z00zz__r4_strings_6_7z00, BgL_bgl_string3389za700za7za7_3742za7, "Illegal end index ", 18 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2downcasezd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2down3743z00, BGl_z62stringzd2downcasezb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_listzd2ze3stringzd2envze3zz__r4_strings_6_7z00, BgL_bgl_za762listza7d2za7e3str3744za7, BGl_z62listzd2ze3stringz53zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2aszd2readzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2asza7d3745za7, BGl_z62stringzd2aszd2readz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2refzd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2refza73746za7, BGl_z62stringzd2refzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2fillz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2fill3747z00, BGl_z62stringzd2fillz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string3390z00zz__r4_strings_6_7z00, BgL_bgl_string3390za700za7za7_3748za7, "&substring-ur", 13 );
DEFINE_STRING( BGl_string3472z00zz__r4_strings_6_7z00, BgL_bgl_string3472za700za7za7_3749za7, "arg1744", 7 );
DEFINE_STRING( BGl_string3392z00zz__r4_strings_6_7z00, BgL_bgl_string3392za700za7za7_3750za7, "string-contains", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzc3zf3zd2envze2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7c3za7f3za73751z00, BGl_z62stringzc3zf3z52zz__r4_strings_6_7z00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string3474z00zz__r4_strings_6_7z00, BgL_bgl_string3474za700za7za7_3752za7, "string-prefix-length::int", 25 );
DEFINE_STRING( BGl_string3393z00zz__r4_strings_6_7z00, BgL_bgl_string3393za700za7za7_3753za7, "_string-contains", 16 );
DEFINE_STRING( BGl_string3475z00zz__r4_strings_6_7z00, BgL_bgl_string3475za700za7za7_3754za7, "wrong number of arguments: [2..6] expected, provided", 52 );
DEFINE_STRING( BGl_string3476z00zz__r4_strings_6_7z00, BgL_bgl_string3476za700za7za7_3755za7, "_string-prefix-length", 21 );
DEFINE_STRING( BGl_string3395z00zz__r4_strings_6_7z00, BgL_bgl_string3395za700za7za7_3756za7, "string-contains-ci", 18 );
DEFINE_STRING( BGl_string3396z00zz__r4_strings_6_7z00, BgL_bgl_string3396za700za7za7_3757za7, "_string-contains-ci", 19 );
DEFINE_STRING( BGl_string3478z00zz__r4_strings_6_7z00, BgL_bgl_string3478za700za7za7_3758za7, "string-prefix-length", 20 );
DEFINE_STRING( BGl_string3397z00zz__r4_strings_6_7z00, BgL_bgl_string3397za700za7za7_3759za7, "&string-compare3", 16 );
DEFINE_STRING( BGl_string3479z00zz__r4_strings_6_7z00, BgL_bgl_string3479za700za7za7_3760za7, "Index negative end index `", 26 );
DEFINE_STRING( BGl_string3398z00zz__r4_strings_6_7z00, BgL_bgl_string3398za700za7za7_3761za7, "&string-compare3-ci", 19 );
DEFINE_STRING( BGl_string3399z00zz__r4_strings_6_7z00, BgL_bgl_string3399za700za7za7_3762za7, "", 0 );
DEFINE_STRING( BGl_string3480z00zz__r4_strings_6_7z00, BgL_bgl_string3480za700za7za7_3763za7, "end1", 4 );
DEFINE_STRING( BGl_string3481z00zz__r4_strings_6_7z00, BgL_bgl_string3481za700za7za7_3764za7, "'", 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2prefixzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2prefix3765za7, opt_generic_entry, BGl__stringzd2prefixzf3z21zz__r4_strings_6_7z00, BFALSE, -1 );
DEFINE_STRING( BGl_string3482z00zz__r4_strings_6_7z00, BgL_bgl_string3482za700za7za7_3766za7, "Too large end index `", 21 );
DEFINE_STRING( BGl_string3483z00zz__r4_strings_6_7z00, BgL_bgl_string3483za700za7za7_3767za7, "end2", 4 );
DEFINE_STRING( BGl_string3484z00zz__r4_strings_6_7z00, BgL_bgl_string3484za700za7za7_3768za7, "Index negative start index `", 28 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2forzd2readzd2envzd2zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2forza73769za7, BGl_z62stringzd2forzd2readz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string3485z00zz__r4_strings_6_7z00, BgL_bgl_string3485za700za7za7_3770za7, "start1", 6 );
DEFINE_STRING( BGl_string3486z00zz__r4_strings_6_7z00, BgL_bgl_string3486za700za7za7_3771za7, "Too large start index `", 23 );
DEFINE_STRING( BGl_string3487z00zz__r4_strings_6_7z00, BgL_bgl_string3487za700za7za7_3772za7, "start2", 6 );
DEFINE_STRING( BGl_string3489z00zz__r4_strings_6_7z00, BgL_bgl_string3489za700za7za7_3773za7, "string-prefix-length-ci::int", 28 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2downcasez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2down3774z00, BGl_z62stringzd2downcasez12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_substringzd3zf3zd2envzf2zz__r4_strings_6_7z00, BgL_bgl_za762substringza7d3za73775za7, BGl_z62substringzd3zf3z42zz__r4_strings_6_7z00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2replacezd2envz00zz__r4_strings_6_7z00, BgL_bgl_za762stringza7d2repl3776z00, BGl_z62stringzd2replacezb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 3 );

/* 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_symbol3450z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3371z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3455z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3538z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3459z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3463z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_list3431z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3465z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3384z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3471z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3391z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3473z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3394z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3477z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3488z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3491z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3493z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_list3462z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3496z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3498z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_list3470z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3501z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3503z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3506z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3426z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3508z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3349z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3511z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3513z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3432z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3434z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3516z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3436z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3518z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3522z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3525z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3447z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3366z00zz__r4_strings_6_7z00) );
ADD_ROOT( (void *)(&BGl_symbol3529z00zz__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_5355, char * BgL_fromz00_5356)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00 = 
BBOOL(((bool_t)0)); 
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_symbol3349z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3350z00zz__r4_strings_6_7z00); 
BGl_symbol3366z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3367z00zz__r4_strings_6_7z00); 
BGl_symbol3371z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3372z00zz__r4_strings_6_7z00); 
BGl_symbol3384z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3385z00zz__r4_strings_6_7z00); 
BGl_symbol3391z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3392z00zz__r4_strings_6_7z00); 
BGl_symbol3394z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3395z00zz__r4_strings_6_7z00); 
BGl_symbol3426z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3427z00zz__r4_strings_6_7z00); 
BGl_symbol3432z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3433z00zz__r4_strings_6_7z00); 
BGl_symbol3434z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3435z00zz__r4_strings_6_7z00); 
BGl_symbol3436z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3437z00zz__r4_strings_6_7z00); 
BGl_list3431z00zz__r4_strings_6_7z00 = 
MAKE_YOUNG_PAIR(BGl_symbol3432z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3434z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3434z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3436z00zz__r4_strings_6_7z00, BNIL)))); 
BGl_symbol3447z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3448z00zz__r4_strings_6_7z00); 
BGl_symbol3450z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3451z00zz__r4_strings_6_7z00); 
BGl_symbol3455z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3456z00zz__r4_strings_6_7z00); 
BGl_symbol3459z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3460z00zz__r4_strings_6_7z00); 
BGl_symbol3463z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3464z00zz__r4_strings_6_7z00); 
BGl_list3462z00zz__r4_strings_6_7z00 = 
MAKE_YOUNG_PAIR(BGl_symbol3432z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3434z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3434z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3463z00zz__r4_strings_6_7z00, BNIL)))); 
BGl_symbol3465z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3466z00zz__r4_strings_6_7z00); 
BGl_symbol3471z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3472z00zz__r4_strings_6_7z00); 
BGl_list3470z00zz__r4_strings_6_7z00 = 
MAKE_YOUNG_PAIR(BGl_symbol3432z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3434z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3434z00zz__r4_strings_6_7z00, 
MAKE_YOUNG_PAIR(BGl_symbol3471z00zz__r4_strings_6_7z00, BNIL)))); 
BGl_symbol3473z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3474z00zz__r4_strings_6_7z00); 
BGl_symbol3477z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3478z00zz__r4_strings_6_7z00); 
BGl_symbol3488z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3489z00zz__r4_strings_6_7z00); 
BGl_symbol3491z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3492z00zz__r4_strings_6_7z00); 
BGl_symbol3493z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3494z00zz__r4_strings_6_7z00); 
BGl_symbol3496z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3497z00zz__r4_strings_6_7z00); 
BGl_symbol3498z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3499z00zz__r4_strings_6_7z00); 
BGl_symbol3501z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3502z00zz__r4_strings_6_7z00); 
BGl_symbol3503z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3504z00zz__r4_strings_6_7z00); 
BGl_symbol3506z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3507z00zz__r4_strings_6_7z00); 
BGl_symbol3508z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3509z00zz__r4_strings_6_7z00); 
BGl_symbol3511z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3512z00zz__r4_strings_6_7z00); 
BGl_symbol3513z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3514z00zz__r4_strings_6_7z00); 
BGl_symbol3516z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3517z00zz__r4_strings_6_7z00); 
BGl_symbol3518z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3519z00zz__r4_strings_6_7z00); 
BGl_symbol3522z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3523z00zz__r4_strings_6_7z00); 
BGl_symbol3525z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3526z00zz__r4_strings_6_7z00); 
BGl_symbol3529z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3530z00zz__r4_strings_6_7z00); 
return ( 
BGl_symbol3538z00zz__r4_strings_6_7z00 = 
bstring_to_symbol(BGl_string3539z00zz__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 296 */
return 
STRINGP(BgL_objz00_3);} 

}



/* &string? */
obj_t BGl_z62stringzf3z91zz__r4_strings_6_7z00(obj_t BgL_envz00_4036, obj_t BgL_objz00_4037)
{
{ /* Ieee/string.scm 296 */
return 
BBOOL(
BGl_stringzf3zf3zz__r4_strings_6_7z00(BgL_objz00_4037));} 

}



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

}



/* &string-null? */
obj_t BGl_z62stringzd2nullzf3z43zz__r4_strings_6_7z00(obj_t BgL_envz00_4038, obj_t BgL_strz00_4039)
{
{ /* Ieee/string.scm 302 */
{ /* Ieee/string.scm 303 */
 bool_t BgL_tmpz00_5417;
{ /* Ieee/string.scm 303 */
 obj_t BgL_auxz00_5418;
if(
STRINGP(BgL_strz00_4039))
{ /* Ieee/string.scm 303 */
BgL_auxz00_5418 = BgL_strz00_4039
; }  else 
{ 
 obj_t BgL_auxz00_5421;
BgL_auxz00_5421 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(14952L), BGl_string3347z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_4039); 
FAILURE(BgL_auxz00_5421,BFALSE,BFALSE);} 
BgL_tmpz00_5417 = 
BGl_stringzd2nullzf3z21zz__r4_strings_6_7z00(BgL_auxz00_5418); } 
return 
BBOOL(BgL_tmpz00_5417);} } 

}



/* _make-string */
obj_t BGl__makezd2stringzd2zz__r4_strings_6_7z00(obj_t BgL_env1093z00_8, obj_t BgL_opt1092z00_7)
{
{ /* Ieee/string.scm 308 */
{ /* Ieee/string.scm 308 */
 obj_t BgL_g1094z00_5315;
BgL_g1094z00_5315 = 
VECTOR_REF(BgL_opt1092z00_7,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1092z00_7)) { case 1L : 

{ /* Ieee/string.scm 308 */

{ /* Ieee/string.scm 308 */
 long BgL_kz00_5317;
{ /* Ieee/string.scm 308 */
 obj_t BgL_tmpz00_5428;
if(
INTEGERP(BgL_g1094z00_5315))
{ /* Ieee/string.scm 308 */
BgL_tmpz00_5428 = BgL_g1094z00_5315
; }  else 
{ 
 obj_t BgL_auxz00_5431;
BgL_auxz00_5431 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(15199L), BGl_string3352z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_g1094z00_5315); 
FAILURE(BgL_auxz00_5431,BFALSE,BFALSE);} 
BgL_kz00_5317 = 
(long)CINT(BgL_tmpz00_5428); } 
return 
make_string(BgL_kz00_5317, ((unsigned char)' '));} } break;case 2L : 

{ /* Ieee/string.scm 308 */
 obj_t BgL_charz00_5318;
BgL_charz00_5318 = 
VECTOR_REF(BgL_opt1092z00_7,1L); 
{ /* Ieee/string.scm 308 */

{ /* Ieee/string.scm 308 */
 long BgL_kz00_5319;
{ /* Ieee/string.scm 308 */
 obj_t BgL_tmpz00_5438;
if(
INTEGERP(BgL_g1094z00_5315))
{ /* Ieee/string.scm 308 */
BgL_tmpz00_5438 = BgL_g1094z00_5315
; }  else 
{ 
 obj_t BgL_auxz00_5441;
BgL_auxz00_5441 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(15199L), BGl_string3352z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_g1094z00_5315); 
FAILURE(BgL_auxz00_5441,BFALSE,BFALSE);} 
BgL_kz00_5319 = 
(long)CINT(BgL_tmpz00_5438); } 
{ /* Ieee/string.scm 309 */
 unsigned char BgL_tmpz00_5446;
{ /* Ieee/string.scm 309 */
 obj_t BgL_tmpz00_5447;
if(
CHARP(BgL_charz00_5318))
{ /* Ieee/string.scm 309 */
BgL_tmpz00_5447 = BgL_charz00_5318
; }  else 
{ 
 obj_t BgL_auxz00_5450;
BgL_auxz00_5450 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(15275L), BGl_string3352z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_charz00_5318); 
FAILURE(BgL_auxz00_5450,BFALSE,BFALSE);} 
BgL_tmpz00_5446 = 
CCHAR(BgL_tmpz00_5447); } 
return 
make_string(BgL_kz00_5319, BgL_tmpz00_5446);} } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3349z00zz__r4_strings_6_7z00, BGl_string3351z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1092z00_7)));} } } } 

}



/* 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 308 */
{ /* Ieee/string.scm 309 */
 unsigned char BgL_tmpz00_5461;
{ /* Ieee/string.scm 309 */
 obj_t BgL_tmpz00_5462;
if(
CHARP(BgL_charz00_6))
{ /* Ieee/string.scm 309 */
BgL_tmpz00_5462 = BgL_charz00_6
; }  else 
{ 
 obj_t BgL_auxz00_5465;
BgL_auxz00_5465 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(15275L), BGl_string3350z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_charz00_6); 
FAILURE(BgL_auxz00_5465,BFALSE,BFALSE);} 
BgL_tmpz00_5461 = 
CCHAR(BgL_tmpz00_5462); } 
return 
make_string(BgL_kz00_5, BgL_tmpz00_5461);} } 

}



/* string */
BGL_EXPORTED_DEF obj_t BGl_stringz00zz__r4_strings_6_7z00(obj_t BgL_charsz00_9)
{
{ /* Ieee/string.scm 314 */
{ /* Ieee/string.scm 315 */
 obj_t BgL_auxz00_5471;
{ /* Ieee/string.scm 315 */
 bool_t BgL_test3783z00_5472;
if(
PAIRP(BgL_charsz00_9))
{ /* Ieee/string.scm 315 */
BgL_test3783z00_5472 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 315 */
BgL_test3783z00_5472 = 
NULLP(BgL_charsz00_9)
; } 
if(BgL_test3783z00_5472)
{ /* Ieee/string.scm 315 */
BgL_auxz00_5471 = BgL_charsz00_9
; }  else 
{ 
 obj_t BgL_auxz00_5476;
BgL_auxz00_5476 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(15555L), BGl_string3355z00zz__r4_strings_6_7z00, BGl_string3356z00zz__r4_strings_6_7z00, BgL_charsz00_9); 
FAILURE(BgL_auxz00_5476,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_auxz00_5471);} } 

}



/* &string */
obj_t BGl_z62stringz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4040, obj_t BgL_charsz00_4041)
{
{ /* Ieee/string.scm 314 */
return 
BGl_stringz00zz__r4_strings_6_7z00(BgL_charsz00_4041);} 

}



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

}



/* &string-length */
obj_t BGl_z62stringzd2lengthzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4042, obj_t BgL_stringz00_4043)
{
{ /* Ieee/string.scm 320 */
{ /* Ieee/string.scm 321 */
 long BgL_tmpz00_5483;
{ /* Ieee/string.scm 321 */
 obj_t BgL_auxz00_5484;
if(
STRINGP(BgL_stringz00_4043))
{ /* Ieee/string.scm 321 */
BgL_auxz00_5484 = BgL_stringz00_4043
; }  else 
{ 
 obj_t BgL_auxz00_5487;
BgL_auxz00_5487 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(15827L), BGl_string3357z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4043); 
FAILURE(BgL_auxz00_5487,BFALSE,BFALSE);} 
BgL_tmpz00_5483 = 
BGl_stringzd2lengthzd2zz__r4_strings_6_7z00(BgL_auxz00_5484); } 
return 
BINT(BgL_tmpz00_5483);} } 

}



/* 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 326 */
{ /* Ieee/string.scm 327 */
 long BgL_l2213z00_5321;
BgL_l2213z00_5321 = 
STRING_LENGTH(BgL_stringz00_11); 
if(
BOUND_CHECK(BgL_kz00_12, BgL_l2213z00_5321))
{ /* Ieee/string.scm 327 */
return 
STRING_REF(BgL_stringz00_11, BgL_kz00_12);}  else 
{ 
 obj_t BgL_auxz00_5497;
BgL_auxz00_5497 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_11, 
(int)(BgL_l2213z00_5321), 
(int)(BgL_kz00_12)); 
FAILURE(BgL_auxz00_5497,BFALSE,BFALSE);} } } 

}



/* &string-ref */
obj_t BGl_z62stringzd2refzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4044, obj_t BgL_stringz00_4045, obj_t BgL_kz00_4046)
{
{ /* Ieee/string.scm 326 */
{ /* Ieee/string.scm 327 */
 unsigned char BgL_tmpz00_5503;
{ /* Ieee/string.scm 327 */
 long BgL_auxz00_5511; obj_t BgL_auxz00_5504;
{ /* Ieee/string.scm 327 */
 obj_t BgL_tmpz00_5512;
if(
INTEGERP(BgL_kz00_4046))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_5512 = BgL_kz00_4046
; }  else 
{ 
 obj_t BgL_auxz00_5515;
BgL_auxz00_5515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3359z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_kz00_4046); 
FAILURE(BgL_auxz00_5515,BFALSE,BFALSE);} 
BgL_auxz00_5511 = 
(long)CINT(BgL_tmpz00_5512); } 
if(
STRINGP(BgL_stringz00_4045))
{ /* Ieee/string.scm 327 */
BgL_auxz00_5504 = BgL_stringz00_4045
; }  else 
{ 
 obj_t BgL_auxz00_5507;
BgL_auxz00_5507 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3359z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4045); 
FAILURE(BgL_auxz00_5507,BFALSE,BFALSE);} 
BgL_tmpz00_5503 = 
BGl_stringzd2refzd2zz__r4_strings_6_7z00(BgL_auxz00_5504, BgL_auxz00_5511); } 
return 
BCHAR(BgL_tmpz00_5503);} } 

}



/* 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 332 */
{ /* Ieee/string.scm 333 */
 long BgL_l2217z00_5322;
BgL_l2217z00_5322 = 
STRING_LENGTH(BgL_stringz00_13); 
if(
BOUND_CHECK(BgL_kz00_14, BgL_l2217z00_5322))
{ /* Ieee/string.scm 333 */
return 
STRING_SET(BgL_stringz00_13, BgL_kz00_14, BgL_charz00_15);}  else 
{ 
 obj_t BgL_auxz00_5526;
BgL_auxz00_5526 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16409L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_stringz00_13, 
(int)(BgL_l2217z00_5322), 
(int)(BgL_kz00_14)); 
FAILURE(BgL_auxz00_5526,BFALSE,BFALSE);} } } 

}



/* &string-set! */
obj_t BGl_z62stringzd2setz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4047, obj_t BgL_stringz00_4048, obj_t BgL_kz00_4049, obj_t BgL_charz00_4050)
{
{ /* Ieee/string.scm 332 */
{ /* Ieee/string.scm 333 */
 unsigned char BgL_auxz00_5548; long BgL_auxz00_5539; obj_t BgL_auxz00_5532;
{ /* Ieee/string.scm 333 */
 obj_t BgL_tmpz00_5549;
if(
CHARP(BgL_charz00_4050))
{ /* Ieee/string.scm 333 */
BgL_tmpz00_5549 = BgL_charz00_4050
; }  else 
{ 
 obj_t BgL_auxz00_5552;
BgL_auxz00_5552 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16409L), BGl_string3361z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_charz00_4050); 
FAILURE(BgL_auxz00_5552,BFALSE,BFALSE);} 
BgL_auxz00_5548 = 
CCHAR(BgL_tmpz00_5549); } 
{ /* Ieee/string.scm 333 */
 obj_t BgL_tmpz00_5540;
if(
INTEGERP(BgL_kz00_4049))
{ /* Ieee/string.scm 333 */
BgL_tmpz00_5540 = BgL_kz00_4049
; }  else 
{ 
 obj_t BgL_auxz00_5543;
BgL_auxz00_5543 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16409L), BGl_string3361z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_kz00_4049); 
FAILURE(BgL_auxz00_5543,BFALSE,BFALSE);} 
BgL_auxz00_5539 = 
(long)CINT(BgL_tmpz00_5540); } 
if(
STRINGP(BgL_stringz00_4048))
{ /* Ieee/string.scm 333 */
BgL_auxz00_5532 = BgL_stringz00_4048
; }  else 
{ 
 obj_t BgL_auxz00_5535;
BgL_auxz00_5535 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16409L), BGl_string3361z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4048); 
FAILURE(BgL_auxz00_5535,BFALSE,BFALSE);} 
return 
BGl_stringzd2setz12zc0zz__r4_strings_6_7z00(BgL_auxz00_5532, BgL_auxz00_5539, BgL_auxz00_5548);} } 

}



/* 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 338 */
{ /* Ieee/string.scm 339 */
 long BgL_l2221z00_5323;
BgL_l2221z00_5323 = 
STRING_LENGTH(BgL_stringz00_16); 
if(
BOUND_CHECK(BgL_kz00_17, BgL_l2221z00_5323))
{ /* Ieee/string.scm 339 */
return 
STRING_REF(BgL_stringz00_16, BgL_kz00_17);}  else 
{ 
 obj_t BgL_auxz00_5562;
BgL_auxz00_5562 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_16, 
(int)(BgL_l2221z00_5323), 
(int)(BgL_kz00_17)); 
FAILURE(BgL_auxz00_5562,BFALSE,BFALSE);} } } 

}



/* &string-ref-ur */
obj_t BGl_z62stringzd2refzd2urz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4051, obj_t BgL_stringz00_4052, obj_t BgL_kz00_4053)
{
{ /* Ieee/string.scm 338 */
{ /* Ieee/string.scm 339 */
 unsigned char BgL_tmpz00_5568;
{ /* Ieee/string.scm 339 */
 long BgL_auxz00_5576; obj_t BgL_auxz00_5569;
{ /* Ieee/string.scm 339 */
 obj_t BgL_tmpz00_5577;
if(
INTEGERP(BgL_kz00_4053))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_5577 = BgL_kz00_4053
; }  else 
{ 
 obj_t BgL_auxz00_5580;
BgL_auxz00_5580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3362z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_kz00_4053); 
FAILURE(BgL_auxz00_5580,BFALSE,BFALSE);} 
BgL_auxz00_5576 = 
(long)CINT(BgL_tmpz00_5577); } 
if(
STRINGP(BgL_stringz00_4052))
{ /* Ieee/string.scm 339 */
BgL_auxz00_5569 = BgL_stringz00_4052
; }  else 
{ 
 obj_t BgL_auxz00_5572;
BgL_auxz00_5572 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3362z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4052); 
FAILURE(BgL_auxz00_5572,BFALSE,BFALSE);} 
BgL_tmpz00_5568 = 
BGl_stringzd2refzd2urz00zz__r4_strings_6_7z00(BgL_auxz00_5569, BgL_auxz00_5576); } 
return 
BCHAR(BgL_tmpz00_5568);} } 

}



/* 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 344 */
{ /* Ieee/string.scm 345 */
 long BgL_l2225z00_5324;
BgL_l2225z00_5324 = 
STRING_LENGTH(BgL_stringz00_18); 
if(
BOUND_CHECK(BgL_kz00_19, BgL_l2225z00_5324))
{ /* Ieee/string.scm 345 */
return 
STRING_SET(BgL_stringz00_18, BgL_kz00_19, BgL_charz00_20);}  else 
{ 
 obj_t BgL_auxz00_5591;
BgL_auxz00_5591 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_stringz00_18, 
(int)(BgL_l2225z00_5324), 
(int)(BgL_kz00_19)); 
FAILURE(BgL_auxz00_5591,BFALSE,BFALSE);} } } 

}



/* &string-set-ur! */
obj_t BGl_z62stringzd2setzd2urz12z70zz__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 344 */
{ /* Ieee/string.scm 345 */
 unsigned char BgL_auxz00_5613; long BgL_auxz00_5604; obj_t BgL_auxz00_5597;
{ /* Ieee/string.scm 345 */
 obj_t BgL_tmpz00_5614;
if(
CHARP(BgL_charz00_4057))
{ /* Ieee/string.scm 345 */
BgL_tmpz00_5614 = BgL_charz00_4057
; }  else 
{ 
 obj_t BgL_auxz00_5617;
BgL_auxz00_5617 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3363z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_charz00_4057); 
FAILURE(BgL_auxz00_5617,BFALSE,BFALSE);} 
BgL_auxz00_5613 = 
CCHAR(BgL_tmpz00_5614); } 
{ /* Ieee/string.scm 345 */
 obj_t BgL_tmpz00_5605;
if(
INTEGERP(BgL_kz00_4056))
{ /* Ieee/string.scm 345 */
BgL_tmpz00_5605 = BgL_kz00_4056
; }  else 
{ 
 obj_t BgL_auxz00_5608;
BgL_auxz00_5608 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3363z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_kz00_4056); 
FAILURE(BgL_auxz00_5608,BFALSE,BFALSE);} 
BgL_auxz00_5604 = 
(long)CINT(BgL_tmpz00_5605); } 
if(
STRINGP(BgL_stringz00_4055))
{ /* Ieee/string.scm 345 */
BgL_auxz00_5597 = BgL_stringz00_4055
; }  else 
{ 
 obj_t BgL_auxz00_5600;
BgL_auxz00_5600 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3363z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4055); 
FAILURE(BgL_auxz00_5600,BFALSE,BFALSE);} 
return 
BGl_stringzd2setzd2urz12z12zz__r4_strings_6_7z00(BgL_auxz00_5597, BgL_auxz00_5604, BgL_auxz00_5613);} } 

}



/* 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 350 */
{ /* Ieee/string.scm 353 */
 long BgL_l1z00_5325;
BgL_l1z00_5325 = 
STRING_LENGTH(BgL_string1z00_21); 
if(
(BgL_l1z00_5325==
STRING_LENGTH(BgL_string2z00_22)))
{ /* Ieee/string.scm 355 */
 int BgL_arg1223z00_5326;
{ /* Ieee/string.scm 355 */
 char * BgL_auxz00_5629; char * BgL_tmpz00_5627;
BgL_auxz00_5629 = 
BSTRING_TO_STRING(BgL_string2z00_22); 
BgL_tmpz00_5627 = 
BSTRING_TO_STRING(BgL_string1z00_21); 
BgL_arg1223z00_5326 = 
memcmp(BgL_tmpz00_5627, BgL_auxz00_5629, BgL_l1z00_5325); } 
return 
(
(long)(BgL_arg1223z00_5326)==0L);}  else 
{ /* Ieee/string.scm 354 */
return ((bool_t)0);} } } 

}



/* &string=? */
obj_t BGl_z62stringzd3zf3z42zz__r4_strings_6_7z00(obj_t BgL_envz00_4058, obj_t BgL_string1z00_4059, obj_t BgL_string2z00_4060)
{
{ /* Ieee/string.scm 350 */
{ /* Ieee/string.scm 353 */
 bool_t BgL_tmpz00_5634;
{ /* Ieee/string.scm 353 */
 obj_t BgL_auxz00_5642; obj_t BgL_auxz00_5635;
if(
STRINGP(BgL_string2z00_4060))
{ /* Ieee/string.scm 353 */
BgL_auxz00_5642 = BgL_string2z00_4060
; }  else 
{ 
 obj_t BgL_auxz00_5645;
BgL_auxz00_5645 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17336L), BGl_string3364z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4060); 
FAILURE(BgL_auxz00_5645,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4059))
{ /* Ieee/string.scm 353 */
BgL_auxz00_5635 = BgL_string1z00_4059
; }  else 
{ 
 obj_t BgL_auxz00_5638;
BgL_auxz00_5638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17336L), BGl_string3364z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4059); 
FAILURE(BgL_auxz00_5638,BFALSE,BFALSE);} 
BgL_tmpz00_5634 = 
BGl_stringzd3zf3z20zz__r4_strings_6_7z00(BgL_auxz00_5635, BgL_auxz00_5642); } 
return 
BBOOL(BgL_tmpz00_5634);} } 

}



/* 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 362 */
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_4061, obj_t BgL_string1z00_4062, obj_t BgL_string2z00_4063, obj_t BgL_lenz00_4064)
{
{ /* Ieee/string.scm 362 */
{ /* Ieee/string.scm 363 */
 bool_t BgL_tmpz00_5652;
{ /* Ieee/string.scm 363 */
 long BgL_auxz00_5667; obj_t BgL_auxz00_5660; obj_t BgL_auxz00_5653;
{ /* Ieee/string.scm 363 */
 obj_t BgL_tmpz00_5668;
if(
INTEGERP(BgL_lenz00_4064))
{ /* Ieee/string.scm 363 */
BgL_tmpz00_5668 = BgL_lenz00_4064
; }  else 
{ 
 obj_t BgL_auxz00_5671;
BgL_auxz00_5671 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17785L), BGl_string3365z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lenz00_4064); 
FAILURE(BgL_auxz00_5671,BFALSE,BFALSE);} 
BgL_auxz00_5667 = 
(long)CINT(BgL_tmpz00_5668); } 
if(
STRINGP(BgL_string2z00_4063))
{ /* Ieee/string.scm 363 */
BgL_auxz00_5660 = BgL_string2z00_4063
; }  else 
{ 
 obj_t BgL_auxz00_5663;
BgL_auxz00_5663 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17785L), BGl_string3365z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4063); 
FAILURE(BgL_auxz00_5663,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4062))
{ /* Ieee/string.scm 363 */
BgL_auxz00_5653 = BgL_string1z00_4062
; }  else 
{ 
 obj_t BgL_auxz00_5656;
BgL_auxz00_5656 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17785L), BGl_string3365z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4062); 
FAILURE(BgL_auxz00_5656,BFALSE,BFALSE);} 
BgL_tmpz00_5652 = 
BGl_substringzd3zf3z20zz__r4_strings_6_7z00(BgL_auxz00_5653, BgL_auxz00_5660, BgL_auxz00_5667); } 
return 
BBOOL(BgL_tmpz00_5652);} } 

}



/* _substring-at? */
obj_t BGl__substringzd2atzf3z21zz__r4_strings_6_7z00(obj_t BgL_env1098z00_31, obj_t BgL_opt1097z00_30)
{
{ /* Ieee/string.scm 368 */
{ /* Ieee/string.scm 368 */
 obj_t BgL_g1099z00_5327; obj_t BgL_g1100z00_5328; obj_t BgL_g1101z00_5329;
BgL_g1099z00_5327 = 
VECTOR_REF(BgL_opt1097z00_30,0L); 
BgL_g1100z00_5328 = 
VECTOR_REF(BgL_opt1097z00_30,1L); 
BgL_g1101z00_5329 = 
VECTOR_REF(BgL_opt1097z00_30,2L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1097z00_30)) { case 3L : 

{ /* Ieee/string.scm 368 */

{ /* Ieee/string.scm 368 */
 obj_t BgL_string1z00_5331; obj_t BgL_string2z00_5332; long BgL_offz00_5333;
if(
STRINGP(BgL_g1099z00_5327))
{ /* Ieee/string.scm 368 */
BgL_string1z00_5331 = BgL_g1099z00_5327; }  else 
{ 
 obj_t BgL_auxz00_5683;
BgL_auxz00_5683 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18044L), BGl_string3369z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1099z00_5327); 
FAILURE(BgL_auxz00_5683,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1100z00_5328))
{ /* Ieee/string.scm 368 */
BgL_string2z00_5332 = BgL_g1100z00_5328; }  else 
{ 
 obj_t BgL_auxz00_5689;
BgL_auxz00_5689 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18044L), BGl_string3369z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1100z00_5328); 
FAILURE(BgL_auxz00_5689,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 368 */
 obj_t BgL_tmpz00_5693;
if(
INTEGERP(BgL_g1101z00_5329))
{ /* Ieee/string.scm 368 */
BgL_tmpz00_5693 = BgL_g1101z00_5329
; }  else 
{ 
 obj_t BgL_auxz00_5696;
BgL_auxz00_5696 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18044L), BGl_string3369z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_g1101z00_5329); 
FAILURE(BgL_auxz00_5696,BFALSE,BFALSE);} 
BgL_offz00_5333 = 
(long)CINT(BgL_tmpz00_5693); } 
return 
BBOOL(
bigloo_strcmp_at(BgL_string1z00_5331, BgL_string2z00_5332, BgL_offz00_5333));} } break;case 4L : 

{ /* Ieee/string.scm 368 */
 obj_t BgL_lenz00_5334;
BgL_lenz00_5334 = 
VECTOR_REF(BgL_opt1097z00_30,3L); 
{ /* Ieee/string.scm 368 */

{ /* Ieee/string.scm 368 */
 obj_t BgL_string1z00_5335; obj_t BgL_string2z00_5336; long BgL_offz00_5337;
if(
STRINGP(BgL_g1099z00_5327))
{ /* Ieee/string.scm 368 */
BgL_string1z00_5335 = BgL_g1099z00_5327; }  else 
{ 
 obj_t BgL_auxz00_5706;
BgL_auxz00_5706 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18044L), BGl_string3369z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1099z00_5327); 
FAILURE(BgL_auxz00_5706,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1100z00_5328))
{ /* Ieee/string.scm 368 */
BgL_string2z00_5336 = BgL_g1100z00_5328; }  else 
{ 
 obj_t BgL_auxz00_5712;
BgL_auxz00_5712 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18044L), BGl_string3369z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1100z00_5328); 
FAILURE(BgL_auxz00_5712,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 368 */
 obj_t BgL_tmpz00_5716;
if(
INTEGERP(BgL_g1101z00_5329))
{ /* Ieee/string.scm 368 */
BgL_tmpz00_5716 = BgL_g1101z00_5329
; }  else 
{ 
 obj_t BgL_auxz00_5719;
BgL_auxz00_5719 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18044L), BGl_string3369z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_g1101z00_5329); 
FAILURE(BgL_auxz00_5719,BFALSE,BFALSE);} 
BgL_offz00_5337 = 
(long)CINT(BgL_tmpz00_5716); } 
{ /* Ieee/string.scm 369 */
 bool_t BgL_test3812z00_5724;
{ /* Ieee/string.scm 369 */
 long BgL_n1z00_5338;
{ /* Ieee/string.scm 369 */
 obj_t BgL_tmpz00_5725;
if(
INTEGERP(BgL_lenz00_5334))
{ /* Ieee/string.scm 369 */
BgL_tmpz00_5725 = BgL_lenz00_5334
; }  else 
{ 
 obj_t BgL_auxz00_5728;
BgL_auxz00_5728 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18127L), BGl_string3369z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lenz00_5334); 
FAILURE(BgL_auxz00_5728,BFALSE,BFALSE);} 
BgL_n1z00_5338 = 
(long)CINT(BgL_tmpz00_5725); } 
BgL_test3812z00_5724 = 
(BgL_n1z00_5338==-1L); } 
if(BgL_test3812z00_5724)
{ /* Ieee/string.scm 369 */
return 
BBOOL(
bigloo_strcmp_at(BgL_string1z00_5335, BgL_string2z00_5336, BgL_offz00_5337));}  else 
{ /* Ieee/string.scm 371 */
 bool_t BgL_tmpz00_5736;
{ /* Ieee/string.scm 371 */
 long BgL_tmpz00_5737;
{ /* Ieee/string.scm 371 */
 obj_t BgL_tmpz00_5738;
if(
INTEGERP(BgL_lenz00_5334))
{ /* Ieee/string.scm 371 */
BgL_tmpz00_5738 = BgL_lenz00_5334
; }  else 
{ 
 obj_t BgL_auxz00_5741;
BgL_auxz00_5741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18219L), BGl_string3369z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lenz00_5334); 
FAILURE(BgL_auxz00_5741,BFALSE,BFALSE);} 
BgL_tmpz00_5737 = 
(long)CINT(BgL_tmpz00_5738); } 
BgL_tmpz00_5736 = 
bigloo_strncmp_at(BgL_string1z00_5335, BgL_string2z00_5336, BgL_offz00_5337, BgL_tmpz00_5737); } 
return 
BBOOL(BgL_tmpz00_5736);} } } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3366z00zz__r4_strings_6_7z00, BGl_string3368z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1097z00_30)));} } } } 

}



/* 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 368 */
{ /* Ieee/string.scm 369 */
 bool_t BgL_test3815z00_5753;
{ /* Ieee/string.scm 369 */
 long BgL_n1z00_5339;
{ /* Ieee/string.scm 369 */
 obj_t BgL_tmpz00_5754;
if(
INTEGERP(BgL_lenz00_29))
{ /* Ieee/string.scm 369 */
BgL_tmpz00_5754 = BgL_lenz00_29
; }  else 
{ 
 obj_t BgL_auxz00_5757;
BgL_auxz00_5757 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18127L), BGl_string3367z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lenz00_29); 
FAILURE(BgL_auxz00_5757,BFALSE,BFALSE);} 
BgL_n1z00_5339 = 
(long)CINT(BgL_tmpz00_5754); } 
BgL_test3815z00_5753 = 
(BgL_n1z00_5339==-1L); } 
if(BgL_test3815z00_5753)
{ /* Ieee/string.scm 369 */
return 
bigloo_strcmp_at(BgL_string1z00_26, BgL_string2z00_27, BgL_offz00_28);}  else 
{ /* Ieee/string.scm 371 */
 long BgL_tmpz00_5764;
{ /* Ieee/string.scm 371 */
 obj_t BgL_tmpz00_5765;
if(
INTEGERP(BgL_lenz00_29))
{ /* Ieee/string.scm 371 */
BgL_tmpz00_5765 = BgL_lenz00_29
; }  else 
{ 
 obj_t BgL_auxz00_5768;
BgL_auxz00_5768 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18219L), BGl_string3367z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lenz00_29); 
FAILURE(BgL_auxz00_5768,BFALSE,BFALSE);} 
BgL_tmpz00_5764 = 
(long)CINT(BgL_tmpz00_5765); } 
return 
bigloo_strncmp_at(BgL_string1z00_26, BgL_string2z00_27, BgL_offz00_28, BgL_tmpz00_5764);} } } 

}



/* 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 376 */
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_4065, obj_t BgL_string1z00_4066, obj_t BgL_string2z00_4067, obj_t BgL_lenz00_4068)
{
{ /* Ieee/string.scm 376 */
{ /* Ieee/string.scm 377 */
 bool_t BgL_tmpz00_5775;
{ /* Ieee/string.scm 377 */
 long BgL_auxz00_5790; obj_t BgL_auxz00_5783; obj_t BgL_auxz00_5776;
{ /* Ieee/string.scm 377 */
 obj_t BgL_tmpz00_5791;
if(
INTEGERP(BgL_lenz00_4068))
{ /* Ieee/string.scm 377 */
BgL_tmpz00_5791 = BgL_lenz00_4068
; }  else 
{ 
 obj_t BgL_auxz00_5794;
BgL_auxz00_5794 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18504L), BGl_string3370z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lenz00_4068); 
FAILURE(BgL_auxz00_5794,BFALSE,BFALSE);} 
BgL_auxz00_5790 = 
(long)CINT(BgL_tmpz00_5791); } 
if(
STRINGP(BgL_string2z00_4067))
{ /* Ieee/string.scm 377 */
BgL_auxz00_5783 = BgL_string2z00_4067
; }  else 
{ 
 obj_t BgL_auxz00_5786;
BgL_auxz00_5786 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18504L), BGl_string3370z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4067); 
FAILURE(BgL_auxz00_5786,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4066))
{ /* Ieee/string.scm 377 */
BgL_auxz00_5776 = BgL_string1z00_4066
; }  else 
{ 
 obj_t BgL_auxz00_5779;
BgL_auxz00_5779 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18504L), BGl_string3370z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4066); 
FAILURE(BgL_auxz00_5779,BFALSE,BFALSE);} 
BgL_tmpz00_5775 = 
BGl_substringzd2cizd3zf3zf2zz__r4_strings_6_7z00(BgL_auxz00_5776, BgL_auxz00_5783, BgL_auxz00_5790); } 
return 
BBOOL(BgL_tmpz00_5775);} } 

}



/* _substring-ci-at? */
obj_t BGl__substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00(obj_t BgL_env1105z00_40, obj_t BgL_opt1104z00_39)
{
{ /* Ieee/string.scm 382 */
{ /* Ieee/string.scm 382 */
 obj_t BgL_g1106z00_5340; obj_t BgL_g1107z00_5341; obj_t BgL_g1108z00_5342;
BgL_g1106z00_5340 = 
VECTOR_REF(BgL_opt1104z00_39,0L); 
BgL_g1107z00_5341 = 
VECTOR_REF(BgL_opt1104z00_39,1L); 
BgL_g1108z00_5342 = 
VECTOR_REF(BgL_opt1104z00_39,2L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1104z00_39)) { case 3L : 

{ /* Ieee/string.scm 382 */

{ /* Ieee/string.scm 382 */
 obj_t BgL_string1z00_5344; obj_t BgL_string2z00_5345; long BgL_offz00_5346;
if(
STRINGP(BgL_g1106z00_5340))
{ /* Ieee/string.scm 382 */
BgL_string1z00_5344 = BgL_g1106z00_5340; }  else 
{ 
 obj_t BgL_auxz00_5806;
BgL_auxz00_5806 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18766L), BGl_string3373z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1106z00_5340); 
FAILURE(BgL_auxz00_5806,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1107z00_5341))
{ /* Ieee/string.scm 382 */
BgL_string2z00_5345 = BgL_g1107z00_5341; }  else 
{ 
 obj_t BgL_auxz00_5812;
BgL_auxz00_5812 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18766L), BGl_string3373z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1107z00_5341); 
FAILURE(BgL_auxz00_5812,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 382 */
 obj_t BgL_tmpz00_5816;
if(
INTEGERP(BgL_g1108z00_5342))
{ /* Ieee/string.scm 382 */
BgL_tmpz00_5816 = BgL_g1108z00_5342
; }  else 
{ 
 obj_t BgL_auxz00_5819;
BgL_auxz00_5819 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18766L), BGl_string3373z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_g1108z00_5342); 
FAILURE(BgL_auxz00_5819,BFALSE,BFALSE);} 
BgL_offz00_5346 = 
(long)CINT(BgL_tmpz00_5816); } 
return 
BBOOL(
bigloo_strcmp_ci_at(BgL_string1z00_5344, BgL_string2z00_5345, BgL_offz00_5346));} } break;case 4L : 

{ /* Ieee/string.scm 382 */
 obj_t BgL_lenz00_5347;
BgL_lenz00_5347 = 
VECTOR_REF(BgL_opt1104z00_39,3L); 
{ /* Ieee/string.scm 382 */

{ /* Ieee/string.scm 382 */
 obj_t BgL_string1z00_5348; obj_t BgL_string2z00_5349; long BgL_offz00_5350;
if(
STRINGP(BgL_g1106z00_5340))
{ /* Ieee/string.scm 382 */
BgL_string1z00_5348 = BgL_g1106z00_5340; }  else 
{ 
 obj_t BgL_auxz00_5829;
BgL_auxz00_5829 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18766L), BGl_string3373z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1106z00_5340); 
FAILURE(BgL_auxz00_5829,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1107z00_5341))
{ /* Ieee/string.scm 382 */
BgL_string2z00_5349 = BgL_g1107z00_5341; }  else 
{ 
 obj_t BgL_auxz00_5835;
BgL_auxz00_5835 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18766L), BGl_string3373z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1107z00_5341); 
FAILURE(BgL_auxz00_5835,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 382 */
 obj_t BgL_tmpz00_5839;
if(
INTEGERP(BgL_g1108z00_5342))
{ /* Ieee/string.scm 382 */
BgL_tmpz00_5839 = BgL_g1108z00_5342
; }  else 
{ 
 obj_t BgL_auxz00_5842;
BgL_auxz00_5842 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18766L), BGl_string3373z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_g1108z00_5342); 
FAILURE(BgL_auxz00_5842,BFALSE,BFALSE);} 
BgL_offz00_5350 = 
(long)CINT(BgL_tmpz00_5839); } 
{ /* Ieee/string.scm 383 */
 bool_t BgL_test3827z00_5847;
{ /* Ieee/string.scm 383 */
 long BgL_n1z00_5351;
{ /* Ieee/string.scm 383 */
 obj_t BgL_tmpz00_5848;
if(
INTEGERP(BgL_lenz00_5347))
{ /* Ieee/string.scm 383 */
BgL_tmpz00_5848 = BgL_lenz00_5347
; }  else 
{ 
 obj_t BgL_auxz00_5851;
BgL_auxz00_5851 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18852L), BGl_string3373z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lenz00_5347); 
FAILURE(BgL_auxz00_5851,BFALSE,BFALSE);} 
BgL_n1z00_5351 = 
(long)CINT(BgL_tmpz00_5848); } 
BgL_test3827z00_5847 = 
(BgL_n1z00_5351==-1L); } 
if(BgL_test3827z00_5847)
{ /* Ieee/string.scm 383 */
return 
BBOOL(
bigloo_strcmp_ci_at(BgL_string1z00_5348, BgL_string2z00_5349, BgL_offz00_5350));}  else 
{ /* Ieee/string.scm 385 */
 bool_t BgL_tmpz00_5859;
{ /* Ieee/string.scm 385 */
 long BgL_tmpz00_5860;
{ /* Ieee/string.scm 385 */
 obj_t BgL_tmpz00_5861;
if(
INTEGERP(BgL_lenz00_5347))
{ /* Ieee/string.scm 385 */
BgL_tmpz00_5861 = BgL_lenz00_5347
; }  else 
{ 
 obj_t BgL_auxz00_5864;
BgL_auxz00_5864 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18950L), BGl_string3373z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lenz00_5347); 
FAILURE(BgL_auxz00_5864,BFALSE,BFALSE);} 
BgL_tmpz00_5860 = 
(long)CINT(BgL_tmpz00_5861); } 
BgL_tmpz00_5859 = 
bigloo_strncmp_ci_at(BgL_string1z00_5348, BgL_string2z00_5349, BgL_offz00_5350, BgL_tmpz00_5860); } 
return 
BBOOL(BgL_tmpz00_5859);} } } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3371z00zz__r4_strings_6_7z00, BGl_string3368z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1104z00_39)));} } } } 

}



/* 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 382 */
{ /* Ieee/string.scm 383 */
 bool_t BgL_test3830z00_5876;
{ /* Ieee/string.scm 383 */
 long BgL_n1z00_5352;
{ /* Ieee/string.scm 383 */
 obj_t BgL_tmpz00_5877;
if(
INTEGERP(BgL_lenz00_38))
{ /* Ieee/string.scm 383 */
BgL_tmpz00_5877 = BgL_lenz00_38
; }  else 
{ 
 obj_t BgL_auxz00_5880;
BgL_auxz00_5880 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18852L), BGl_string3372z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lenz00_38); 
FAILURE(BgL_auxz00_5880,BFALSE,BFALSE);} 
BgL_n1z00_5352 = 
(long)CINT(BgL_tmpz00_5877); } 
BgL_test3830z00_5876 = 
(BgL_n1z00_5352==-1L); } 
if(BgL_test3830z00_5876)
{ /* Ieee/string.scm 383 */
return 
bigloo_strcmp_ci_at(BgL_string1z00_35, BgL_string2z00_36, BgL_offz00_37);}  else 
{ /* Ieee/string.scm 385 */
 long BgL_tmpz00_5887;
{ /* Ieee/string.scm 385 */
 obj_t BgL_tmpz00_5888;
if(
INTEGERP(BgL_lenz00_38))
{ /* Ieee/string.scm 385 */
BgL_tmpz00_5888 = BgL_lenz00_38
; }  else 
{ 
 obj_t BgL_auxz00_5891;
BgL_auxz00_5891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(18950L), BGl_string3372z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lenz00_38); 
FAILURE(BgL_auxz00_5891,BFALSE,BFALSE);} 
BgL_tmpz00_5887 = 
(long)CINT(BgL_tmpz00_5888); } 
return 
bigloo_strncmp_ci_at(BgL_string1z00_35, BgL_string2z00_36, BgL_offz00_37, BgL_tmpz00_5887);} } } 

}



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

}



/* &empty-string? */
obj_t BGl_z62emptyzd2stringzf3z43zz__r4_strings_6_7z00(obj_t BgL_envz00_4069, obj_t BgL_stringz00_4070)
{
{ /* Ieee/string.scm 390 */
{ /* Ieee/string.scm 391 */
 bool_t BgL_tmpz00_5899;
{ /* Ieee/string.scm 391 */
 obj_t BgL_auxz00_5900;
if(
STRINGP(BgL_stringz00_4070))
{ /* Ieee/string.scm 391 */
BgL_auxz00_5900 = BgL_stringz00_4070
; }  else 
{ 
 obj_t BgL_auxz00_5903;
BgL_auxz00_5903 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(19226L), BGl_string3374z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4070); 
FAILURE(BgL_auxz00_5903,BFALSE,BFALSE);} 
BgL_tmpz00_5899 = 
BGl_emptyzd2stringzf3z21zz__r4_strings_6_7z00(BgL_auxz00_5900); } 
return 
BBOOL(BgL_tmpz00_5899);} } 

}



/* 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 396 */
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_4071, obj_t BgL_string1z00_4072, obj_t BgL_string2z00_4073)
{
{ /* Ieee/string.scm 396 */
{ /* Ieee/string.scm 397 */
 bool_t BgL_tmpz00_5910;
{ /* Ieee/string.scm 397 */
 obj_t BgL_auxz00_5918; obj_t BgL_auxz00_5911;
if(
STRINGP(BgL_string2z00_4073))
{ /* Ieee/string.scm 397 */
BgL_auxz00_5918 = BgL_string2z00_4073
; }  else 
{ 
 obj_t BgL_auxz00_5921;
BgL_auxz00_5921 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(19524L), BGl_string3375z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4073); 
FAILURE(BgL_auxz00_5921,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4072))
{ /* Ieee/string.scm 397 */
BgL_auxz00_5911 = BgL_string1z00_4072
; }  else 
{ 
 obj_t BgL_auxz00_5914;
BgL_auxz00_5914 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(19524L), BGl_string3375z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4072); 
FAILURE(BgL_auxz00_5914,BFALSE,BFALSE);} 
BgL_tmpz00_5910 = 
BGl_stringzd2cizd3zf3zf2zz__r4_strings_6_7z00(BgL_auxz00_5911, BgL_auxz00_5918); } 
return 
BBOOL(BgL_tmpz00_5910);} } 

}



/* 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 402 */
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_4074, obj_t BgL_string1z00_4075, obj_t BgL_string2z00_4076)
{
{ /* Ieee/string.scm 402 */
{ /* Ieee/string.scm 403 */
 bool_t BgL_tmpz00_5928;
{ /* Ieee/string.scm 403 */
 obj_t BgL_auxz00_5936; obj_t BgL_auxz00_5929;
if(
STRINGP(BgL_string2z00_4076))
{ /* Ieee/string.scm 403 */
BgL_auxz00_5936 = BgL_string2z00_4076
; }  else 
{ 
 obj_t BgL_auxz00_5939;
BgL_auxz00_5939 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(19821L), BGl_string3376z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4076); 
FAILURE(BgL_auxz00_5939,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4075))
{ /* Ieee/string.scm 403 */
BgL_auxz00_5929 = BgL_string1z00_4075
; }  else 
{ 
 obj_t BgL_auxz00_5932;
BgL_auxz00_5932 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(19821L), BGl_string3376z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4075); 
FAILURE(BgL_auxz00_5932,BFALSE,BFALSE);} 
BgL_tmpz00_5928 = 
BGl_stringzc3zf3z30zz__r4_strings_6_7z00(BgL_auxz00_5929, BgL_auxz00_5936); } 
return 
BBOOL(BgL_tmpz00_5928);} } 

}



/* 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 408 */
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_4077, obj_t BgL_string1z00_4078, obj_t BgL_string2z00_4079)
{
{ /* Ieee/string.scm 408 */
{ /* Ieee/string.scm 409 */
 bool_t BgL_tmpz00_5946;
{ /* Ieee/string.scm 409 */
 obj_t BgL_auxz00_5954; obj_t BgL_auxz00_5947;
if(
STRINGP(BgL_string2z00_4079))
{ /* Ieee/string.scm 409 */
BgL_auxz00_5954 = BgL_string2z00_4079
; }  else 
{ 
 obj_t BgL_auxz00_5957;
BgL_auxz00_5957 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(20119L), BGl_string3377z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4079); 
FAILURE(BgL_auxz00_5957,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4078))
{ /* Ieee/string.scm 409 */
BgL_auxz00_5947 = BgL_string1z00_4078
; }  else 
{ 
 obj_t BgL_auxz00_5950;
BgL_auxz00_5950 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(20119L), BGl_string3377z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4078); 
FAILURE(BgL_auxz00_5950,BFALSE,BFALSE);} 
BgL_tmpz00_5946 = 
BGl_stringze3zf3z10zz__r4_strings_6_7z00(BgL_auxz00_5947, BgL_auxz00_5954); } 
return 
BBOOL(BgL_tmpz00_5946);} } 

}



/* 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 414 */
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_4080, obj_t BgL_string1z00_4081, obj_t BgL_string2z00_4082)
{
{ /* Ieee/string.scm 414 */
{ /* Ieee/string.scm 415 */
 bool_t BgL_tmpz00_5964;
{ /* Ieee/string.scm 415 */
 obj_t BgL_auxz00_5972; obj_t BgL_auxz00_5965;
if(
STRINGP(BgL_string2z00_4082))
{ /* Ieee/string.scm 415 */
BgL_auxz00_5972 = BgL_string2z00_4082
; }  else 
{ 
 obj_t BgL_auxz00_5975;
BgL_auxz00_5975 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(20418L), BGl_string3378z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4082); 
FAILURE(BgL_auxz00_5975,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4081))
{ /* Ieee/string.scm 415 */
BgL_auxz00_5965 = BgL_string1z00_4081
; }  else 
{ 
 obj_t BgL_auxz00_5968;
BgL_auxz00_5968 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(20418L), BGl_string3378z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4081); 
FAILURE(BgL_auxz00_5968,BFALSE,BFALSE);} 
BgL_tmpz00_5964 = 
BGl_stringzc3zd3zf3ze3zz__r4_strings_6_7z00(BgL_auxz00_5965, BgL_auxz00_5972); } 
return 
BBOOL(BgL_tmpz00_5964);} } 

}



/* 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 420 */
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_4083, obj_t BgL_string1z00_4084, obj_t BgL_string2z00_4085)
{
{ /* Ieee/string.scm 420 */
{ /* Ieee/string.scm 421 */
 bool_t BgL_tmpz00_5982;
{ /* Ieee/string.scm 421 */
 obj_t BgL_auxz00_5990; obj_t BgL_auxz00_5983;
if(
STRINGP(BgL_string2z00_4085))
{ /* Ieee/string.scm 421 */
BgL_auxz00_5990 = BgL_string2z00_4085
; }  else 
{ 
 obj_t BgL_auxz00_5993;
BgL_auxz00_5993 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(20717L), BGl_string3379z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4085); 
FAILURE(BgL_auxz00_5993,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4084))
{ /* Ieee/string.scm 421 */
BgL_auxz00_5983 = BgL_string1z00_4084
; }  else 
{ 
 obj_t BgL_auxz00_5986;
BgL_auxz00_5986 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(20717L), BGl_string3379z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4084); 
FAILURE(BgL_auxz00_5986,BFALSE,BFALSE);} 
BgL_tmpz00_5982 = 
BGl_stringze3zd3zf3zc3zz__r4_strings_6_7z00(BgL_auxz00_5983, BgL_auxz00_5990); } 
return 
BBOOL(BgL_tmpz00_5982);} } 

}



/* 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 426 */
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_4086, obj_t BgL_string1z00_4087, obj_t BgL_string2z00_4088)
{
{ /* Ieee/string.scm 426 */
{ /* Ieee/string.scm 427 */
 bool_t BgL_tmpz00_6000;
{ /* Ieee/string.scm 427 */
 obj_t BgL_auxz00_6008; obj_t BgL_auxz00_6001;
if(
STRINGP(BgL_string2z00_4088))
{ /* Ieee/string.scm 427 */
BgL_auxz00_6008 = BgL_string2z00_4088
; }  else 
{ 
 obj_t BgL_auxz00_6011;
BgL_auxz00_6011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(21018L), BGl_string3380z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4088); 
FAILURE(BgL_auxz00_6011,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4087))
{ /* Ieee/string.scm 427 */
BgL_auxz00_6001 = BgL_string1z00_4087
; }  else 
{ 
 obj_t BgL_auxz00_6004;
BgL_auxz00_6004 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(21018L), BGl_string3380z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4087); 
FAILURE(BgL_auxz00_6004,BFALSE,BFALSE);} 
BgL_tmpz00_6000 = 
BGl_stringzd2cizc3zf3ze2zz__r4_strings_6_7z00(BgL_auxz00_6001, BgL_auxz00_6008); } 
return 
BBOOL(BgL_tmpz00_6000);} } 

}



/* 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 432 */
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_4089, obj_t BgL_string1z00_4090, obj_t BgL_string2z00_4091)
{
{ /* Ieee/string.scm 432 */
{ /* Ieee/string.scm 433 */
 bool_t BgL_tmpz00_6018;
{ /* Ieee/string.scm 433 */
 obj_t BgL_auxz00_6026; obj_t BgL_auxz00_6019;
if(
STRINGP(BgL_string2z00_4091))
{ /* Ieee/string.scm 433 */
BgL_auxz00_6026 = BgL_string2z00_4091
; }  else 
{ 
 obj_t BgL_auxz00_6029;
BgL_auxz00_6029 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(21321L), BGl_string3381z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4091); 
FAILURE(BgL_auxz00_6029,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4090))
{ /* Ieee/string.scm 433 */
BgL_auxz00_6019 = BgL_string1z00_4090
; }  else 
{ 
 obj_t BgL_auxz00_6022;
BgL_auxz00_6022 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(21321L), BGl_string3381z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4090); 
FAILURE(BgL_auxz00_6022,BFALSE,BFALSE);} 
BgL_tmpz00_6018 = 
BGl_stringzd2cize3zf3zc2zz__r4_strings_6_7z00(BgL_auxz00_6019, BgL_auxz00_6026); } 
return 
BBOOL(BgL_tmpz00_6018);} } 

}



/* 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 438 */
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_4092, obj_t BgL_string1z00_4093, obj_t BgL_string2z00_4094)
{
{ /* Ieee/string.scm 438 */
{ /* Ieee/string.scm 439 */
 bool_t BgL_tmpz00_6036;
{ /* Ieee/string.scm 439 */
 obj_t BgL_auxz00_6044; obj_t BgL_auxz00_6037;
if(
STRINGP(BgL_string2z00_4094))
{ /* Ieee/string.scm 439 */
BgL_auxz00_6044 = BgL_string2z00_4094
; }  else 
{ 
 obj_t BgL_auxz00_6047;
BgL_auxz00_6047 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(21625L), BGl_string3382z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4094); 
FAILURE(BgL_auxz00_6047,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4093))
{ /* Ieee/string.scm 439 */
BgL_auxz00_6037 = BgL_string1z00_4093
; }  else 
{ 
 obj_t BgL_auxz00_6040;
BgL_auxz00_6040 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(21625L), BGl_string3382z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4093); 
FAILURE(BgL_auxz00_6040,BFALSE,BFALSE);} 
BgL_tmpz00_6036 = 
BGl_stringzd2cizc3zd3zf3z31zz__r4_strings_6_7z00(BgL_auxz00_6037, BgL_auxz00_6044); } 
return 
BBOOL(BgL_tmpz00_6036);} } 

}



/* 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 444 */
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_4095, obj_t BgL_string1z00_4096, obj_t BgL_string2z00_4097)
{
{ /* Ieee/string.scm 444 */
{ /* Ieee/string.scm 445 */
 bool_t BgL_tmpz00_6054;
{ /* Ieee/string.scm 445 */
 obj_t BgL_auxz00_6062; obj_t BgL_auxz00_6055;
if(
STRINGP(BgL_string2z00_4097))
{ /* Ieee/string.scm 445 */
BgL_auxz00_6062 = BgL_string2z00_4097
; }  else 
{ 
 obj_t BgL_auxz00_6065;
BgL_auxz00_6065 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(21929L), BGl_string3383z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string2z00_4097); 
FAILURE(BgL_auxz00_6065,BFALSE,BFALSE);} 
if(
STRINGP(BgL_string1z00_4096))
{ /* Ieee/string.scm 445 */
BgL_auxz00_6055 = BgL_string1z00_4096
; }  else 
{ 
 obj_t BgL_auxz00_6058;
BgL_auxz00_6058 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(21929L), BGl_string3383z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_string1z00_4096); 
FAILURE(BgL_auxz00_6058,BFALSE,BFALSE);} 
BgL_tmpz00_6054 = 
BGl_stringzd2cize3zd3zf3z11zz__r4_strings_6_7z00(BgL_auxz00_6055, BgL_auxz00_6062); } 
return 
BBOOL(BgL_tmpz00_6054);} } 

}



/* _substring */
obj_t BGl__substringz00zz__r4_strings_6_7z00(obj_t BgL_env1112z00_64, obj_t BgL_opt1111z00_63)
{
{ /* Ieee/string.scm 450 */
{ /* Ieee/string.scm 450 */
 obj_t BgL_stringz00_969; obj_t BgL_g1113z00_970;
BgL_stringz00_969 = 
VECTOR_REF(BgL_opt1111z00_63,0L); 
BgL_g1113z00_970 = 
VECTOR_REF(BgL_opt1111z00_63,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1111z00_63)) { case 2L : 

{ /* Ieee/string.scm 450 */
 long BgL_endz00_973;
{ /* Ieee/string.scm 450 */
 obj_t BgL_stringz00_2640;
if(
STRINGP(BgL_stringz00_969))
{ /* Ieee/string.scm 450 */
BgL_stringz00_2640 = BgL_stringz00_969; }  else 
{ 
 obj_t BgL_auxz00_6075;
BgL_auxz00_6075 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(22238L), BGl_string3387z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_969); 
FAILURE(BgL_auxz00_6075,BFALSE,BFALSE);} 
BgL_endz00_973 = 
STRING_LENGTH(BgL_stringz00_2640); } 
{ /* Ieee/string.scm 450 */

{ /* Ieee/string.scm 450 */
 long BgL_auxz00_6087; obj_t BgL_auxz00_6080;
{ /* Ieee/string.scm 450 */
 obj_t BgL_tmpz00_6088;
if(
INTEGERP(BgL_g1113z00_970))
{ /* Ieee/string.scm 450 */
BgL_tmpz00_6088 = BgL_g1113z00_970
; }  else 
{ 
 obj_t BgL_auxz00_6091;
BgL_auxz00_6091 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(22184L), BGl_string3387z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_g1113z00_970); 
FAILURE(BgL_auxz00_6091,BFALSE,BFALSE);} 
BgL_auxz00_6087 = 
(long)CINT(BgL_tmpz00_6088); } 
if(
STRINGP(BgL_stringz00_969))
{ /* Ieee/string.scm 450 */
BgL_auxz00_6080 = BgL_stringz00_969
; }  else 
{ 
 obj_t BgL_auxz00_6083;
BgL_auxz00_6083 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(22184L), BGl_string3387z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_969); 
FAILURE(BgL_auxz00_6083,BFALSE,BFALSE);} 
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_auxz00_6080, BgL_auxz00_6087, BgL_endz00_973);} } } break;case 3L : 

{ /* Ieee/string.scm 450 */
 obj_t BgL_endz00_974;
BgL_endz00_974 = 
VECTOR_REF(BgL_opt1111z00_63,2L); 
{ /* Ieee/string.scm 450 */

{ /* Ieee/string.scm 450 */
 long BgL_auxz00_6114; long BgL_auxz00_6105; obj_t BgL_auxz00_6098;
{ /* Ieee/string.scm 450 */
 obj_t BgL_tmpz00_6115;
if(
INTEGERP(BgL_endz00_974))
{ /* Ieee/string.scm 450 */
BgL_tmpz00_6115 = BgL_endz00_974
; }  else 
{ 
 obj_t BgL_auxz00_6118;
BgL_auxz00_6118 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(22184L), BGl_string3387z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_endz00_974); 
FAILURE(BgL_auxz00_6118,BFALSE,BFALSE);} 
BgL_auxz00_6114 = 
(long)CINT(BgL_tmpz00_6115); } 
{ /* Ieee/string.scm 450 */
 obj_t BgL_tmpz00_6106;
if(
INTEGERP(BgL_g1113z00_970))
{ /* Ieee/string.scm 450 */
BgL_tmpz00_6106 = BgL_g1113z00_970
; }  else 
{ 
 obj_t BgL_auxz00_6109;
BgL_auxz00_6109 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(22184L), BGl_string3387z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_g1113z00_970); 
FAILURE(BgL_auxz00_6109,BFALSE,BFALSE);} 
BgL_auxz00_6105 = 
(long)CINT(BgL_tmpz00_6106); } 
if(
STRINGP(BgL_stringz00_969))
{ /* Ieee/string.scm 450 */
BgL_auxz00_6098 = BgL_stringz00_969
; }  else 
{ 
 obj_t BgL_auxz00_6101;
BgL_auxz00_6101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(22184L), BGl_string3387z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_969); 
FAILURE(BgL_auxz00_6101,BFALSE,BFALSE);} 
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_auxz00_6098, BgL_auxz00_6105, BgL_auxz00_6114);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3384z00zz__r4_strings_6_7z00, BGl_string3386z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1111z00_63)));} } } } 

}



/* 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 450 */
{ /* Ieee/string.scm 451 */
 long BgL_lenz00_976;
BgL_lenz00_976 = 
STRING_LENGTH(BgL_stringz00_60); 
{ /* Ieee/string.scm 453 */
 bool_t BgL_test3858z00_6130;
if(
(BgL_startz00_61<0L))
{ /* Ieee/string.scm 453 */
BgL_test3858z00_6130 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 453 */
BgL_test3858z00_6130 = 
(BgL_startz00_61>BgL_lenz00_976)
; } 
if(BgL_test3858z00_6130)
{ /* Ieee/string.scm 455 */
 obj_t BgL_arg1237z00_979; obj_t BgL_arg1240z00_980;
{ /* Ieee/string.scm 455 */
 obj_t BgL_arg1241z00_981;
{ /* Ieee/fixnum.scm 1001 */

BgL_arg1241z00_981 = 
BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_startz00_61, 10L); } 
BgL_arg1237z00_979 = 
string_append(BGl_string3388z00zz__r4_strings_6_7z00, BgL_arg1241z00_981); } 
{ /* Ieee/string.scm 456 */
 obj_t BgL_list1245z00_985;
{ /* Ieee/string.scm 456 */
 obj_t BgL_arg1246z00_986;
BgL_arg1246z00_986 = 
MAKE_YOUNG_PAIR(BgL_stringz00_60, BNIL); 
BgL_list1245z00_985 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lenz00_976), BgL_arg1246z00_986); } 
BgL_arg1240z00_980 = BgL_list1245z00_985; } 
{ /* Ieee/string.scm 454 */
 obj_t BgL_aux2752z00_4718;
BgL_aux2752z00_4718 = 
BGl_errorz00zz__errorz00(BGl_string3385z00zz__r4_strings_6_7z00, BgL_arg1237z00_979, BgL_arg1240z00_980); 
if(
STRINGP(BgL_aux2752z00_4718))
{ /* Ieee/string.scm 454 */
return BgL_aux2752z00_4718;}  else 
{ 
 obj_t BgL_auxz00_6142;
BgL_auxz00_6142 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(22355L), BGl_string3385z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_aux2752z00_4718); 
FAILURE(BgL_auxz00_6142,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 457 */
 bool_t BgL_test3861z00_6146;
if(
(BgL_endz00_62<BgL_startz00_61))
{ /* Ieee/string.scm 457 */
BgL_test3861z00_6146 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 457 */
BgL_test3861z00_6146 = 
(BgL_endz00_62>BgL_lenz00_976)
; } 
if(BgL_test3861z00_6146)
{ /* Ieee/string.scm 459 */
 obj_t BgL_arg1249z00_989; obj_t BgL_arg1250z00_990;
{ /* Ieee/string.scm 459 */
 obj_t BgL_arg1252z00_991;
{ /* Ieee/fixnum.scm 1001 */

BgL_arg1252z00_991 = 
BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_endz00_62, 10L); } 
BgL_arg1249z00_989 = 
string_append(BGl_string3389z00zz__r4_strings_6_7z00, BgL_arg1252z00_991); } 
{ /* Ieee/string.scm 460 */
 obj_t BgL_list1254z00_995;
{ /* Ieee/string.scm 460 */
 obj_t BgL_arg1256z00_996;
BgL_arg1256z00_996 = 
MAKE_YOUNG_PAIR(BgL_stringz00_60, BNIL); 
BgL_list1254z00_995 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lenz00_976), BgL_arg1256z00_996); } 
BgL_arg1250z00_990 = BgL_list1254z00_995; } 
{ /* Ieee/string.scm 458 */
 obj_t BgL_aux2754z00_4720;
BgL_aux2754z00_4720 = 
BGl_errorz00zz__errorz00(BGl_string3385z00zz__r4_strings_6_7z00, BgL_arg1249z00_989, BgL_arg1250z00_990); 
if(
STRINGP(BgL_aux2754z00_4720))
{ /* Ieee/string.scm 458 */
return BgL_aux2754z00_4720;}  else 
{ 
 obj_t BgL_auxz00_6158;
BgL_auxz00_6158 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(22522L), BGl_string3385z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_aux2754z00_4720); 
FAILURE(BgL_auxz00_6158,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 457 */
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 467 */
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_4098, obj_t BgL_stringz00_4099, obj_t BgL_startz00_4100, obj_t BgL_endz00_4101)
{
{ /* Ieee/string.scm 467 */
{ /* Ieee/string.scm 468 */
 long BgL_auxz00_6180; long BgL_auxz00_6171; obj_t BgL_auxz00_6164;
{ /* Ieee/string.scm 468 */
 obj_t BgL_tmpz00_6181;
if(
INTEGERP(BgL_endz00_4101))
{ /* Ieee/string.scm 468 */
BgL_tmpz00_6181 = BgL_endz00_4101
; }  else 
{ 
 obj_t BgL_auxz00_6184;
BgL_auxz00_6184 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(22962L), BGl_string3390z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_endz00_4101); 
FAILURE(BgL_auxz00_6184,BFALSE,BFALSE);} 
BgL_auxz00_6180 = 
(long)CINT(BgL_tmpz00_6181); } 
{ /* Ieee/string.scm 468 */
 obj_t BgL_tmpz00_6172;
if(
INTEGERP(BgL_startz00_4100))
{ /* Ieee/string.scm 468 */
BgL_tmpz00_6172 = BgL_startz00_4100
; }  else 
{ 
 obj_t BgL_auxz00_6175;
BgL_auxz00_6175 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(22962L), BGl_string3390z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_4100); 
FAILURE(BgL_auxz00_6175,BFALSE,BFALSE);} 
BgL_auxz00_6171 = 
(long)CINT(BgL_tmpz00_6172); } 
if(
STRINGP(BgL_stringz00_4099))
{ /* Ieee/string.scm 468 */
BgL_auxz00_6164 = BgL_stringz00_4099
; }  else 
{ 
 obj_t BgL_auxz00_6167;
BgL_auxz00_6167 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(22962L), BGl_string3390z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4099); 
FAILURE(BgL_auxz00_6167,BFALSE,BFALSE);} 
return 
BGl_substringzd2urzd2zz__r4_strings_6_7z00(BgL_auxz00_6164, BgL_auxz00_6171, BgL_auxz00_6180);} } 

}



/* _string-contains */
obj_t BGl__stringzd2containszd2zz__r4_strings_6_7z00(obj_t BgL_env1117z00_72, obj_t BgL_opt1116z00_71)
{
{ /* Ieee/string.scm 473 */
{ /* Ieee/string.scm 473 */
 obj_t BgL_g1118z00_999; obj_t BgL_g1119z00_1000;
BgL_g1118z00_999 = 
VECTOR_REF(BgL_opt1116z00_71,0L); 
BgL_g1119z00_1000 = 
VECTOR_REF(BgL_opt1116z00_71,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1116z00_71)) { case 2L : 

{ /* Ieee/string.scm 473 */

{ /* Ieee/string.scm 473 */
 obj_t BgL_auxz00_6199; obj_t BgL_auxz00_6192;
if(
STRINGP(BgL_g1119z00_1000))
{ /* Ieee/string.scm 473 */
BgL_auxz00_6199 = BgL_g1119z00_1000
; }  else 
{ 
 obj_t BgL_auxz00_6202;
BgL_auxz00_6202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(23216L), BGl_string3393z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1119z00_1000); 
FAILURE(BgL_auxz00_6202,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1118z00_999))
{ /* Ieee/string.scm 473 */
BgL_auxz00_6192 = BgL_g1118z00_999
; }  else 
{ 
 obj_t BgL_auxz00_6195;
BgL_auxz00_6195 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(23216L), BGl_string3393z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1118z00_999); 
FAILURE(BgL_auxz00_6195,BFALSE,BFALSE);} 
return 
BGl_stringzd2containszd2zz__r4_strings_6_7z00(BgL_auxz00_6192, BgL_auxz00_6199, 
(int)(0L));} } break;case 3L : 

{ /* Ieee/string.scm 473 */
 obj_t BgL_startz00_1004;
BgL_startz00_1004 = 
VECTOR_REF(BgL_opt1116z00_71,2L); 
{ /* Ieee/string.scm 473 */

{ /* Ieee/string.scm 473 */
 int BgL_auxz00_6223; obj_t BgL_auxz00_6216; obj_t BgL_auxz00_6209;
{ /* Ieee/string.scm 473 */
 obj_t BgL_tmpz00_6224;
if(
INTEGERP(BgL_startz00_1004))
{ /* Ieee/string.scm 473 */
BgL_tmpz00_6224 = BgL_startz00_1004
; }  else 
{ 
 obj_t BgL_auxz00_6227;
BgL_auxz00_6227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(23216L), BGl_string3393z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_1004); 
FAILURE(BgL_auxz00_6227,BFALSE,BFALSE);} 
BgL_auxz00_6223 = 
CINT(BgL_tmpz00_6224); } 
if(
STRINGP(BgL_g1119z00_1000))
{ /* Ieee/string.scm 473 */
BgL_auxz00_6216 = BgL_g1119z00_1000
; }  else 
{ 
 obj_t BgL_auxz00_6219;
BgL_auxz00_6219 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(23216L), BGl_string3393z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1119z00_1000); 
FAILURE(BgL_auxz00_6219,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1118z00_999))
{ /* Ieee/string.scm 473 */
BgL_auxz00_6209 = BgL_g1118z00_999
; }  else 
{ 
 obj_t BgL_auxz00_6212;
BgL_auxz00_6212 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(23216L), BGl_string3393z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1118z00_999); 
FAILURE(BgL_auxz00_6212,BFALSE,BFALSE);} 
return 
BGl_stringzd2containszd2zz__r4_strings_6_7z00(BgL_auxz00_6209, BgL_auxz00_6216, BgL_auxz00_6223);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3391z00zz__r4_strings_6_7z00, BGl_string3386z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1116z00_71)));} } } } 

}



/* 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 473 */
{ /* Ieee/string.scm 474 */
 long BgL_l2z00_1006;
BgL_l2z00_1006 = 
STRING_LENGTH(BgL_s2z00_69); 
if(
(BgL_l2z00_1006==1L))
{ /* Ieee/string.scm 476 */
 unsigned char BgL_arg1259z00_1008;
if(
BOUND_CHECK(0L, BgL_l2z00_1006))
{ /* Ieee/string.scm 327 */
BgL_arg1259z00_1008 = 
STRING_REF(BgL_s2z00_69, 0L); }  else 
{ 
 obj_t BgL_auxz00_6244;
BgL_auxz00_6244 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s2z00_69, 
(int)(BgL_l2z00_1006), 
(int)(0L)); 
FAILURE(BgL_auxz00_6244,BFALSE,BFALSE);} 
return 
BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_s1z00_68, 
BCHAR(BgL_arg1259z00_1008), 
BINT(BgL_startz00_70));}  else 
{ /* Ieee/string.scm 477 */
 long BgL_l1z00_1009; long BgL_i0z00_1010;
BgL_l1z00_1009 = 
STRING_LENGTH(BgL_s1z00_68); 
if(
(
(long)(BgL_startz00_70)<0L))
{ /* Ieee/string.scm 478 */
BgL_i0z00_1010 = 0L; }  else 
{ /* Ieee/string.scm 478 */
BgL_i0z00_1010 = 
(long)(BgL_startz00_70); } 
if(
(BgL_l1z00_1009<
(BgL_i0z00_1010+BgL_l2z00_1006)))
{ /* Ieee/string.scm 479 */
return BFALSE;}  else 
{ /* Ieee/string.scm 481 */
 long BgL_stopz00_1013;
BgL_stopz00_1013 = 
(BgL_l1z00_1009-BgL_l2z00_1006); 
{ 
 long BgL_iz00_1015;
BgL_iz00_1015 = BgL_i0z00_1010; 
BgL_zc3z04anonymousza31262ze3z87_1016:
if(
bigloo_strcmp_at(BgL_s1z00_68, BgL_s2z00_69, BgL_iz00_1015))
{ /* Ieee/string.scm 484 */
return 
BINT(BgL_iz00_1015);}  else 
{ /* Ieee/string.scm 484 */
if(
(BgL_iz00_1015==BgL_stopz00_1013))
{ /* Ieee/string.scm 486 */
return BFALSE;}  else 
{ 
 long BgL_iz00_6267;
BgL_iz00_6267 = 
(BgL_iz00_1015+1L); 
BgL_iz00_1015 = BgL_iz00_6267; 
goto BgL_zc3z04anonymousza31262ze3z87_1016;} } } } } } } 

}



/* _string-contains-ci */
obj_t BGl__stringzd2containszd2ciz00zz__r4_strings_6_7z00(obj_t BgL_env1123z00_77, obj_t BgL_opt1122z00_76)
{
{ /* Ieee/string.scm 494 */
{ /* Ieee/string.scm 494 */
 obj_t BgL_g1124z00_1023; obj_t BgL_g1125z00_1024;
BgL_g1124z00_1023 = 
VECTOR_REF(BgL_opt1122z00_76,0L); 
BgL_g1125z00_1024 = 
VECTOR_REF(BgL_opt1122z00_76,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1122z00_76)) { case 2L : 

{ /* Ieee/string.scm 494 */

{ /* Ieee/string.scm 494 */
 obj_t BgL_auxz00_6278; obj_t BgL_auxz00_6271;
if(
STRINGP(BgL_g1125z00_1024))
{ /* Ieee/string.scm 494 */
BgL_auxz00_6278 = BgL_g1125z00_1024
; }  else 
{ 
 obj_t BgL_auxz00_6281;
BgL_auxz00_6281 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(23882L), BGl_string3396z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1125z00_1024); 
FAILURE(BgL_auxz00_6281,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1124z00_1023))
{ /* Ieee/string.scm 494 */
BgL_auxz00_6271 = BgL_g1124z00_1023
; }  else 
{ 
 obj_t BgL_auxz00_6274;
BgL_auxz00_6274 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(23882L), BGl_string3396z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1124z00_1023); 
FAILURE(BgL_auxz00_6274,BFALSE,BFALSE);} 
return 
BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00(BgL_auxz00_6271, BgL_auxz00_6278, 
(int)(0L));} } break;case 3L : 

{ /* Ieee/string.scm 494 */
 obj_t BgL_startz00_1028;
BgL_startz00_1028 = 
VECTOR_REF(BgL_opt1122z00_76,2L); 
{ /* Ieee/string.scm 494 */

{ /* Ieee/string.scm 494 */
 int BgL_auxz00_6302; obj_t BgL_auxz00_6295; obj_t BgL_auxz00_6288;
{ /* Ieee/string.scm 494 */
 obj_t BgL_tmpz00_6303;
if(
INTEGERP(BgL_startz00_1028))
{ /* Ieee/string.scm 494 */
BgL_tmpz00_6303 = BgL_startz00_1028
; }  else 
{ 
 obj_t BgL_auxz00_6306;
BgL_auxz00_6306 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(23882L), BGl_string3396z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_1028); 
FAILURE(BgL_auxz00_6306,BFALSE,BFALSE);} 
BgL_auxz00_6302 = 
CINT(BgL_tmpz00_6303); } 
if(
STRINGP(BgL_g1125z00_1024))
{ /* Ieee/string.scm 494 */
BgL_auxz00_6295 = BgL_g1125z00_1024
; }  else 
{ 
 obj_t BgL_auxz00_6298;
BgL_auxz00_6298 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(23882L), BGl_string3396z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1125z00_1024); 
FAILURE(BgL_auxz00_6298,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1124z00_1023))
{ /* Ieee/string.scm 494 */
BgL_auxz00_6288 = BgL_g1124z00_1023
; }  else 
{ 
 obj_t BgL_auxz00_6291;
BgL_auxz00_6291 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(23882L), BGl_string3396z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1124z00_1023); 
FAILURE(BgL_auxz00_6291,BFALSE,BFALSE);} 
return 
BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00(BgL_auxz00_6288, BgL_auxz00_6295, BgL_auxz00_6302);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3394z00zz__r4_strings_6_7z00, BGl_string3386z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1122z00_76)));} } } } 

}



/* 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 494 */
{ /* Ieee/string.scm 495 */
 long BgL_l1z00_1030; long BgL_l2z00_1031; long BgL_i0z00_1032;
BgL_l1z00_1030 = 
STRING_LENGTH(BgL_s1z00_73); 
BgL_l2z00_1031 = 
STRING_LENGTH(BgL_s2z00_74); 
if(
(
(long)(BgL_startz00_75)<0L))
{ /* Ieee/string.scm 497 */
BgL_i0z00_1032 = 0L; }  else 
{ /* Ieee/string.scm 497 */
BgL_i0z00_1032 = 
(long)(BgL_startz00_75); } 
if(
(BgL_l1z00_1030<
(BgL_i0z00_1032+BgL_l2z00_1031)))
{ /* Ieee/string.scm 498 */
return BFALSE;}  else 
{ /* Ieee/string.scm 500 */
 long BgL_stopz00_1035;
BgL_stopz00_1035 = 
(BgL_l1z00_1030-BgL_l2z00_1031); 
{ 
 long BgL_iz00_1037;
BgL_iz00_1037 = BgL_i0z00_1032; 
BgL_zc3z04anonymousza31281ze3z87_1038:
if(
bigloo_strcmp_ci_at(BgL_s1z00_73, BgL_s2z00_74, BgL_iz00_1037))
{ /* Ieee/string.scm 503 */
return 
BINT(BgL_iz00_1037);}  else 
{ /* Ieee/string.scm 503 */
if(
(BgL_iz00_1037==BgL_stopz00_1035))
{ /* Ieee/string.scm 505 */
return BFALSE;}  else 
{ 
 long BgL_iz00_6332;
BgL_iz00_6332 = 
(BgL_iz00_1037+1L); 
BgL_iz00_1037 = BgL_iz00_6332; 
goto BgL_zc3z04anonymousza31281ze3z87_1038;} } } } } } 

}



/* 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 517 */
{ /* Ieee/string.scm 518 */
 long BgL_alz00_1045;
BgL_alz00_1045 = 
STRING_LENGTH(BgL_az00_78); 
{ /* Ieee/string.scm 518 */
 long BgL_blz00_1046;
BgL_blz00_1046 = 
STRING_LENGTH(BgL_bz00_79); 
{ /* Ieee/string.scm 519 */
 long BgL_lz00_1047;
if(
(BgL_alz00_1045<BgL_blz00_1046))
{ /* Ieee/string.scm 520 */
BgL_lz00_1047 = BgL_alz00_1045; }  else 
{ /* Ieee/string.scm 520 */
BgL_lz00_1047 = BgL_blz00_1046; } 
{ /* Ieee/string.scm 520 */

{ 
 long BgL_rz00_1049;
BgL_rz00_1049 = 0L; 
BgL_zc3z04anonymousza31287ze3z87_1050:
if(
(BgL_rz00_1049==BgL_lz00_1047))
{ /* Ieee/string.scm 522 */
return 
(BgL_alz00_1045-BgL_blz00_1046);}  else 
{ /* Ieee/string.scm 524 */
 long BgL_cz00_1052;
{ /* Ieee/string.scm 524 */
 long BgL_auxz00_6354; long BgL_tmpz00_6341;
{ /* Ieee/string.scm 525 */
 unsigned char BgL_tmpz00_6355;
{ /* Ieee/string.scm 339 */
 long BgL_l2237z00_4203;
BgL_l2237z00_4203 = 
STRING_LENGTH(BgL_bz00_79); 
if(
BOUND_CHECK(BgL_rz00_1049, BgL_l2237z00_4203))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_6355 = 
STRING_REF(BgL_bz00_79, BgL_rz00_1049)
; }  else 
{ 
 obj_t BgL_auxz00_6360;
BgL_auxz00_6360 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_bz00_79, 
(int)(BgL_l2237z00_4203), 
(int)(BgL_rz00_1049)); 
FAILURE(BgL_auxz00_6360,BFALSE,BFALSE);} } 
BgL_auxz00_6354 = 
(BgL_tmpz00_6355); } 
{ /* Ieee/string.scm 524 */
 unsigned char BgL_tmpz00_6342;
{ /* Ieee/string.scm 339 */
 long BgL_l2233z00_4199;
BgL_l2233z00_4199 = 
STRING_LENGTH(BgL_az00_78); 
if(
BOUND_CHECK(BgL_rz00_1049, BgL_l2233z00_4199))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_6342 = 
STRING_REF(BgL_az00_78, BgL_rz00_1049)
; }  else 
{ 
 obj_t BgL_auxz00_6347;
BgL_auxz00_6347 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_az00_78, 
(int)(BgL_l2233z00_4199), 
(int)(BgL_rz00_1049)); 
FAILURE(BgL_auxz00_6347,BFALSE,BFALSE);} } 
BgL_tmpz00_6341 = 
(BgL_tmpz00_6342); } 
BgL_cz00_1052 = 
(BgL_tmpz00_6341-BgL_auxz00_6354); } 
if(
(BgL_cz00_1052==0L))
{ 
 long BgL_rz00_6370;
BgL_rz00_6370 = 
(BgL_rz00_1049+1L); 
BgL_rz00_1049 = BgL_rz00_6370; 
goto BgL_zc3z04anonymousza31287ze3z87_1050;}  else 
{ /* Ieee/string.scm 526 */
return BgL_cz00_1052;} } } } } } } } 

}



/* &string-compare3 */
obj_t BGl_z62stringzd2compare3zb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4102, obj_t BgL_az00_4103, obj_t BgL_bz00_4104)
{
{ /* Ieee/string.scm 517 */
{ /* Ieee/string.scm 518 */
 long BgL_tmpz00_6372;
{ /* Ieee/string.scm 518 */
 obj_t BgL_auxz00_6380; obj_t BgL_auxz00_6373;
if(
STRINGP(BgL_bz00_4104))
{ /* Ieee/string.scm 518 */
BgL_auxz00_6380 = BgL_bz00_4104
; }  else 
{ 
 obj_t BgL_auxz00_6383;
BgL_auxz00_6383 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(24823L), BGl_string3397z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_bz00_4104); 
FAILURE(BgL_auxz00_6383,BFALSE,BFALSE);} 
if(
STRINGP(BgL_az00_4103))
{ /* Ieee/string.scm 518 */
BgL_auxz00_6373 = BgL_az00_4103
; }  else 
{ 
 obj_t BgL_auxz00_6376;
BgL_auxz00_6376 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(24823L), BGl_string3397z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_az00_4103); 
FAILURE(BgL_auxz00_6376,BFALSE,BFALSE);} 
BgL_tmpz00_6372 = 
BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(BgL_auxz00_6373, BgL_auxz00_6380); } 
return 
BINT(BgL_tmpz00_6372);} } 

}



/* 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 533 */
{ /* Ieee/string.scm 534 */
 long BgL_alz00_1063;
BgL_alz00_1063 = 
STRING_LENGTH(BgL_az00_80); 
{ /* Ieee/string.scm 534 */
 long BgL_blz00_1064;
BgL_blz00_1064 = 
STRING_LENGTH(BgL_bz00_81); 
{ /* Ieee/string.scm 535 */
 long BgL_lz00_1065;
if(
(BgL_alz00_1063<BgL_blz00_1064))
{ /* Ieee/string.scm 536 */
BgL_lz00_1065 = BgL_alz00_1063; }  else 
{ /* Ieee/string.scm 536 */
BgL_lz00_1065 = BgL_blz00_1064; } 
{ /* Ieee/string.scm 536 */

{ 
 long BgL_rz00_1067;
BgL_rz00_1067 = 0L; 
BgL_zc3z04anonymousza31325ze3z87_1068:
if(
(BgL_rz00_1067==BgL_lz00_1065))
{ /* Ieee/string.scm 538 */
return 
(BgL_alz00_1063-BgL_blz00_1064);}  else 
{ /* Ieee/string.scm 540 */
 long BgL_cz00_1070;
{ /* Ieee/string.scm 540 */
 long BgL_auxz00_6411; long BgL_tmpz00_6396;
{ /* Ieee/string.scm 541 */
 unsigned char BgL_tmpz00_6412;
{ /* Ieee/string.scm 541 */
 unsigned char BgL_tmpz00_6413;
{ /* Ieee/string.scm 339 */
 long BgL_l2245z00_4211;
BgL_l2245z00_4211 = 
STRING_LENGTH(BgL_bz00_81); 
if(
BOUND_CHECK(BgL_rz00_1067, BgL_l2245z00_4211))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_6413 = 
STRING_REF(BgL_bz00_81, BgL_rz00_1067)
; }  else 
{ 
 obj_t BgL_auxz00_6418;
BgL_auxz00_6418 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_bz00_81, 
(int)(BgL_l2245z00_4211), 
(int)(BgL_rz00_1067)); 
FAILURE(BgL_auxz00_6418,BFALSE,BFALSE);} } 
BgL_tmpz00_6412 = 
tolower(BgL_tmpz00_6413); } 
BgL_auxz00_6411 = 
(BgL_tmpz00_6412); } 
{ /* Ieee/string.scm 540 */
 unsigned char BgL_tmpz00_6397;
{ /* Ieee/string.scm 540 */
 unsigned char BgL_tmpz00_6398;
{ /* Ieee/string.scm 339 */
 long BgL_l2241z00_4207;
BgL_l2241z00_4207 = 
STRING_LENGTH(BgL_az00_80); 
if(
BOUND_CHECK(BgL_rz00_1067, BgL_l2241z00_4207))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_6398 = 
STRING_REF(BgL_az00_80, BgL_rz00_1067)
; }  else 
{ 
 obj_t BgL_auxz00_6403;
BgL_auxz00_6403 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_az00_80, 
(int)(BgL_l2241z00_4207), 
(int)(BgL_rz00_1067)); 
FAILURE(BgL_auxz00_6403,BFALSE,BFALSE);} } 
BgL_tmpz00_6397 = 
tolower(BgL_tmpz00_6398); } 
BgL_tmpz00_6396 = 
(BgL_tmpz00_6397); } 
BgL_cz00_1070 = 
(BgL_tmpz00_6396-BgL_auxz00_6411); } 
if(
(BgL_cz00_1070==0L))
{ 
 long BgL_rz00_6429;
BgL_rz00_6429 = 
(BgL_rz00_1067+1L); 
BgL_rz00_1067 = BgL_rz00_6429; 
goto BgL_zc3z04anonymousza31325ze3z87_1068;}  else 
{ /* Ieee/string.scm 542 */
return BgL_cz00_1070;} } } } } } } } 

}



/* &string-compare3-ci */
obj_t BGl_z62stringzd2compare3zd2ciz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4105, obj_t BgL_az00_4106, obj_t BgL_bz00_4107)
{
{ /* Ieee/string.scm 533 */
{ /* Ieee/string.scm 534 */
 long BgL_tmpz00_6431;
{ /* Ieee/string.scm 534 */
 obj_t BgL_auxz00_6439; obj_t BgL_auxz00_6432;
if(
STRINGP(BgL_bz00_4107))
{ /* Ieee/string.scm 534 */
BgL_auxz00_6439 = BgL_bz00_4107
; }  else 
{ 
 obj_t BgL_auxz00_6442;
BgL_auxz00_6442 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(25475L), BGl_string3398z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_bz00_4107); 
FAILURE(BgL_auxz00_6442,BFALSE,BFALSE);} 
if(
STRINGP(BgL_az00_4106))
{ /* Ieee/string.scm 534 */
BgL_auxz00_6432 = BgL_az00_4106
; }  else 
{ 
 obj_t BgL_auxz00_6435;
BgL_auxz00_6435 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(25475L), BGl_string3398z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_az00_4106); 
FAILURE(BgL_auxz00_6435,BFALSE,BFALSE);} 
BgL_tmpz00_6431 = 
BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(BgL_auxz00_6432, BgL_auxz00_6439); } 
return 
BINT(BgL_tmpz00_6431);} } 

}



/* string-append */
BGL_EXPORTED_DEF obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t BgL_listz00_82)
{
{ /* Ieee/string.scm 553 */
if(
NULLP(BgL_listz00_82))
{ /* Ieee/string.scm 554 */
return BGl_string3399z00zz__r4_strings_6_7z00;}  else 
{ /* Ieee/string.scm 556 */
 long BgL_lenz00_1084;
{ 
 obj_t BgL_listz00_2738; long BgL_resz00_2739;
BgL_listz00_2738 = BgL_listz00_82; 
BgL_resz00_2739 = 0L; 
BgL_stringzd2appendzd2_2737:
if(
NULLP(BgL_listz00_2738))
{ /* Ieee/string.scm 558 */
BgL_lenz00_1084 = BgL_resz00_2739; }  else 
{ 
 long BgL_resz00_6460; obj_t BgL_listz00_6452;
{ /* Ieee/string.scm 560 */
 obj_t BgL_pairz00_2750;
if(
PAIRP(BgL_listz00_2738))
{ /* Ieee/string.scm 560 */
BgL_pairz00_2750 = BgL_listz00_2738; }  else 
{ 
 obj_t BgL_auxz00_6455;
BgL_auxz00_6455 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(26588L), BGl_string3400z00zz__r4_strings_6_7z00, BGl_string3401z00zz__r4_strings_6_7z00, BgL_listz00_2738); 
FAILURE(BgL_auxz00_6455,BFALSE,BFALSE);} 
BgL_listz00_6452 = 
CDR(BgL_pairz00_2750); } 
{ /* Ieee/string.scm 561 */
 long BgL_tmpz00_6461;
{ /* Ieee/string.scm 562 */
 obj_t BgL_stringz00_2752;
{ /* Ieee/string.scm 562 */
 obj_t BgL_pairz00_2751;
if(
PAIRP(BgL_listz00_2738))
{ /* Ieee/string.scm 562 */
BgL_pairz00_2751 = BgL_listz00_2738; }  else 
{ 
 obj_t BgL_auxz00_6464;
BgL_auxz00_6464 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(26635L), BGl_string3400z00zz__r4_strings_6_7z00, BGl_string3401z00zz__r4_strings_6_7z00, BgL_listz00_2738); 
FAILURE(BgL_auxz00_6464,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 562 */
 obj_t BgL_aux2790z00_4756;
BgL_aux2790z00_4756 = 
CAR(BgL_pairz00_2751); 
if(
STRINGP(BgL_aux2790z00_4756))
{ /* Ieee/string.scm 562 */
BgL_stringz00_2752 = BgL_aux2790z00_4756; }  else 
{ 
 obj_t BgL_auxz00_6471;
BgL_auxz00_6471 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(26630L), BGl_string3400z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_aux2790z00_4756); 
FAILURE(BgL_auxz00_6471,BFALSE,BFALSE);} } } 
BgL_tmpz00_6461 = 
STRING_LENGTH(BgL_stringz00_2752); } 
BgL_resz00_6460 = 
(BgL_resz00_2739+BgL_tmpz00_6461); } 
BgL_resz00_2739 = BgL_resz00_6460; 
BgL_listz00_2738 = BgL_listz00_6452; 
goto BgL_stringzd2appendzd2_2737;} } 
{ /* Ieee/string.scm 556 */
 obj_t BgL_resz00_1085;
BgL_resz00_1085 = 
make_string_sans_fill(BgL_lenz00_1084); 
{ /* Ieee/string.scm 563 */

{ 
 obj_t BgL_listz00_2765; long BgL_wz00_2766;
BgL_listz00_2765 = BgL_listz00_82; 
BgL_wz00_2766 = 0L; 
BgL_stringzd2appendzd2_2764:
if(
NULLP(BgL_listz00_2765))
{ /* Ieee/string.scm 566 */
return BgL_resz00_1085;}  else 
{ /* Ieee/string.scm 568 */
 obj_t BgL_sz00_2768;
{ /* Ieee/string.scm 568 */
 obj_t BgL_pairz00_2769;
if(
PAIRP(BgL_listz00_2765))
{ /* Ieee/string.scm 568 */
BgL_pairz00_2769 = BgL_listz00_2765; }  else 
{ 
 obj_t BgL_auxz00_6482;
BgL_auxz00_6482 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(26787L), BGl_string3400z00zz__r4_strings_6_7z00, BGl_string3401z00zz__r4_strings_6_7z00, BgL_listz00_2765); 
FAILURE(BgL_auxz00_6482,BFALSE,BFALSE);} 
BgL_sz00_2768 = 
CAR(BgL_pairz00_2769); } 
{ /* Ieee/string.scm 568 */
 long BgL_lz00_2770;
{ /* Ieee/string.scm 569 */
 obj_t BgL_stringz00_2771;
if(
STRINGP(BgL_sz00_2768))
{ /* Ieee/string.scm 569 */
BgL_stringz00_2771 = BgL_sz00_2768; }  else 
{ 
 obj_t BgL_auxz00_6489;
BgL_auxz00_6489 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(26800L), BGl_string3400z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_sz00_2768); 
FAILURE(BgL_auxz00_6489,BFALSE,BFALSE);} 
BgL_lz00_2770 = 
STRING_LENGTH(BgL_stringz00_2771); } 
{ /* Ieee/string.scm 569 */

{ /* Ieee/string.scm 570 */
 obj_t BgL_s1z00_2772;
if(
STRINGP(BgL_sz00_2768))
{ /* Ieee/string.scm 570 */
BgL_s1z00_2772 = BgL_sz00_2768; }  else 
{ 
 obj_t BgL_auxz00_6496;
BgL_auxz00_6496 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(26843L), BGl_string3400z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_sz00_2768); 
FAILURE(BgL_auxz00_6496,BFALSE,BFALSE);} 
blit_string(BgL_s1z00_2772, 0L, BgL_resz00_1085, BgL_wz00_2766, BgL_lz00_2770); } 
{ /* Ieee/string.scm 571 */
 obj_t BgL_arg1341z00_2776; long BgL_arg1342z00_2777;
{ /* Ieee/string.scm 571 */
 obj_t BgL_pairz00_2778;
if(
PAIRP(BgL_listz00_2765))
{ /* Ieee/string.scm 571 */
BgL_pairz00_2778 = BgL_listz00_2765; }  else 
{ 
 obj_t BgL_auxz00_6503;
BgL_auxz00_6503 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(26882L), BGl_string3400z00zz__r4_strings_6_7z00, BGl_string3401z00zz__r4_strings_6_7z00, BgL_listz00_2765); 
FAILURE(BgL_auxz00_6503,BFALSE,BFALSE);} 
BgL_arg1341z00_2776 = 
CDR(BgL_pairz00_2778); } 
BgL_arg1342z00_2777 = 
(BgL_wz00_2766+BgL_lz00_2770); 
{ 
 long BgL_wz00_6510; obj_t BgL_listz00_6509;
BgL_listz00_6509 = BgL_arg1341z00_2776; 
BgL_wz00_6510 = BgL_arg1342z00_2777; 
BgL_wz00_2766 = BgL_wz00_6510; 
BgL_listz00_2765 = BgL_listz00_6509; 
goto BgL_stringzd2appendzd2_2764;} } } } } } } } } } 

}



/* &string-append */
obj_t BGl_z62stringzd2appendzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4108, obj_t BgL_listz00_4109)
{
{ /* Ieee/string.scm 553 */
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_listz00_4109);} 

}



/* list->string */
BGL_EXPORTED_DEF obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t BgL_listz00_83)
{
{ /* Ieee/string.scm 576 */
{ /* Ieee/string.scm 577 */
 long BgL_lenz00_1106;
BgL_lenz00_1106 = 
bgl_list_length(BgL_listz00_83); 
{ /* Ieee/string.scm 577 */
 obj_t BgL_stringz00_1107;
BgL_stringz00_1107 = 
make_string_sans_fill(BgL_lenz00_1106); 
{ /* Ieee/string.scm 578 */

{ 
 long BgL_iz00_2790; obj_t BgL_lz00_2791;
BgL_iz00_2790 = 0L; 
BgL_lz00_2791 = BgL_listz00_83; 
BgL_loopz00_2789:
if(
(BgL_iz00_2790==BgL_lenz00_1106))
{ /* Ieee/string.scm 581 */
return BgL_stringz00_1107;}  else 
{ /* Ieee/string.scm 581 */
{ /* Ieee/string.scm 584 */
 obj_t BgL_arg1352z00_2795;
{ /* Ieee/string.scm 584 */
 obj_t BgL_pairz00_2796;
if(
PAIRP(BgL_lz00_2791))
{ /* Ieee/string.scm 584 */
BgL_pairz00_2796 = BgL_lz00_2791; }  else 
{ 
 obj_t BgL_auxz00_6518;
BgL_auxz00_6518 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(27342L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3401z00zz__r4_strings_6_7z00, BgL_lz00_2791); 
FAILURE(BgL_auxz00_6518,BFALSE,BFALSE);} 
BgL_arg1352z00_2795 = 
CAR(BgL_pairz00_2796); } 
{ /* Ieee/string.scm 584 */
 unsigned char BgL_charz00_2799;
{ /* Ieee/string.scm 584 */
 obj_t BgL_tmpz00_6523;
if(
CHARP(BgL_arg1352z00_2795))
{ /* Ieee/string.scm 584 */
BgL_tmpz00_6523 = BgL_arg1352z00_2795
; }  else 
{ 
 obj_t BgL_auxz00_6526;
BgL_auxz00_6526 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(27343L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_arg1352z00_2795); 
FAILURE(BgL_auxz00_6526,BFALSE,BFALSE);} 
BgL_charz00_2799 = 
CCHAR(BgL_tmpz00_6523); } 
{ /* Ieee/string.scm 345 */
 long BgL_l2249z00_4215;
BgL_l2249z00_4215 = 
STRING_LENGTH(BgL_stringz00_1107); 
if(
BOUND_CHECK(BgL_iz00_2790, BgL_l2249z00_4215))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_stringz00_1107, BgL_iz00_2790, BgL_charz00_2799); }  else 
{ 
 obj_t BgL_auxz00_6535;
BgL_auxz00_6535 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_stringz00_1107, 
(int)(BgL_l2249z00_4215), 
(int)(BgL_iz00_2790)); 
FAILURE(BgL_auxz00_6535,BFALSE,BFALSE);} } } } 
{ /* Ieee/string.scm 585 */
 long BgL_arg1353z00_2800; obj_t BgL_arg1354z00_2801;
BgL_arg1353z00_2800 = 
(BgL_iz00_2790+1L); 
{ /* Ieee/string.scm 585 */
 obj_t BgL_pairz00_2803;
if(
PAIRP(BgL_lz00_2791))
{ /* Ieee/string.scm 585 */
BgL_pairz00_2803 = BgL_lz00_2791; }  else 
{ 
 obj_t BgL_auxz00_6544;
BgL_auxz00_6544 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(27369L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3401z00zz__r4_strings_6_7z00, BgL_lz00_2791); 
FAILURE(BgL_auxz00_6544,BFALSE,BFALSE);} 
BgL_arg1354z00_2801 = 
CDR(BgL_pairz00_2803); } 
{ 
 obj_t BgL_lz00_6550; long BgL_iz00_6549;
BgL_iz00_6549 = BgL_arg1353z00_2800; 
BgL_lz00_6550 = BgL_arg1354z00_2801; 
BgL_lz00_2791 = BgL_lz00_6550; 
BgL_iz00_2790 = BgL_iz00_6549; 
goto BgL_loopz00_2789;} } } } } } } } 

}



/* &list->string */
obj_t BGl_z62listzd2ze3stringz53zz__r4_strings_6_7z00(obj_t BgL_envz00_4110, obj_t BgL_listz00_4111)
{
{ /* Ieee/string.scm 576 */
{ /* Ieee/string.scm 577 */
 obj_t BgL_auxz00_6551;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_4111))
{ /* Ieee/string.scm 577 */
BgL_auxz00_6551 = BgL_listz00_4111
; }  else 
{ 
 obj_t BgL_auxz00_6554;
BgL_auxz00_6554 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(27160L), BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3356z00zz__r4_strings_6_7z00, BgL_listz00_4111); 
FAILURE(BgL_auxz00_6554,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_auxz00_6551);} } 

}



/* string->list */
BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(obj_t BgL_stringz00_84)
{
{ /* Ieee/string.scm 590 */
{ /* Ieee/string.scm 591 */
 long BgL_lenz00_1117;
BgL_lenz00_1117 = 
STRING_LENGTH(BgL_stringz00_84); 
{ /* Ieee/string.scm 592 */
 long BgL_g1021z00_1118;
BgL_g1021z00_1118 = 
(BgL_lenz00_1117-1L); 
{ 
 long BgL_iz00_1121; obj_t BgL_resz00_1122;
BgL_iz00_1121 = BgL_g1021z00_1118; 
BgL_resz00_1122 = BNIL; 
BgL_zc3z04anonymousza31355ze3z87_1123:
if(
(BgL_iz00_1121==-1L))
{ /* Ieee/string.scm 594 */
return BgL_resz00_1122;}  else 
{ /* Ieee/string.scm 596 */
 long BgL_arg1357z00_1125; obj_t BgL_arg1358z00_1126;
BgL_arg1357z00_1125 = 
(BgL_iz00_1121-1L); 
{ /* Ieee/string.scm 597 */
 unsigned char BgL_arg1359z00_1127;
{ /* Ieee/string.scm 339 */
 long BgL_l2253z00_4219;
BgL_l2253z00_4219 = 
STRING_LENGTH(BgL_stringz00_84); 
if(
BOUND_CHECK(BgL_iz00_1121, BgL_l2253z00_4219))
{ /* Ieee/string.scm 339 */
BgL_arg1359z00_1127 = 
STRING_REF(BgL_stringz00_84, BgL_iz00_1121); }  else 
{ 
 obj_t BgL_auxz00_6568;
BgL_auxz00_6568 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_84, 
(int)(BgL_l2253z00_4219), 
(int)(BgL_iz00_1121)); 
FAILURE(BgL_auxz00_6568,BFALSE,BFALSE);} } 
BgL_arg1358z00_1126 = 
MAKE_YOUNG_PAIR(
BCHAR(BgL_arg1359z00_1127), BgL_resz00_1122); } 
{ 
 obj_t BgL_resz00_6577; long BgL_iz00_6576;
BgL_iz00_6576 = BgL_arg1357z00_1125; 
BgL_resz00_6577 = BgL_arg1358z00_1126; 
BgL_resz00_1122 = BgL_resz00_6577; 
BgL_iz00_1121 = BgL_iz00_6576; 
goto BgL_zc3z04anonymousza31355ze3z87_1123;} } } } } } 

}



/* &string->list */
obj_t BGl_z62stringzd2ze3listz53zz__r4_strings_6_7z00(obj_t BgL_envz00_4112, obj_t BgL_stringz00_4113)
{
{ /* Ieee/string.scm 590 */
{ /* Ieee/string.scm 591 */
 obj_t BgL_auxz00_6578;
if(
STRINGP(BgL_stringz00_4113))
{ /* Ieee/string.scm 591 */
BgL_auxz00_6578 = BgL_stringz00_4113
; }  else 
{ 
 obj_t BgL_auxz00_6581;
BgL_auxz00_6581 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(27634L), BGl_string3404z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4113); 
FAILURE(BgL_auxz00_6581,BFALSE,BFALSE);} 
return 
BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(BgL_auxz00_6578);} } 

}



/* string-copy */
BGL_EXPORTED_DEF obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_85)
{
{ /* Ieee/string.scm 602 */
{ /* Ieee/string.scm 603 */
 long BgL_lenz00_1129;
BgL_lenz00_1129 = 
STRING_LENGTH(BgL_stringz00_85); 
{ /* Ieee/string.scm 603 */
 obj_t BgL_newz00_1130;
BgL_newz00_1130 = 
make_string_sans_fill(BgL_lenz00_1129); 
{ /* Ieee/string.scm 604 */

{ /* Ieee/string.scm 605 */
 long BgL_g1023z00_1131;
BgL_g1023z00_1131 = 
(BgL_lenz00_1129-1L); 
{ 
 long BgL_iz00_1133;
BgL_iz00_1133 = BgL_g1023z00_1131; 
BgL_zc3z04anonymousza31360ze3z87_1134:
if(
(BgL_iz00_1133==-1L))
{ /* Ieee/string.scm 606 */
return BgL_newz00_1130;}  else 
{ /* Ieee/string.scm 606 */
{ /* Ieee/string.scm 609 */
 unsigned char BgL_arg1362z00_1136;
{ /* Ieee/string.scm 339 */
 long BgL_l2257z00_4223;
BgL_l2257z00_4223 = 
STRING_LENGTH(BgL_stringz00_85); 
if(
BOUND_CHECK(BgL_iz00_1133, BgL_l2257z00_4223))
{ /* Ieee/string.scm 339 */
BgL_arg1362z00_1136 = 
STRING_REF(BgL_stringz00_85, BgL_iz00_1133); }  else 
{ 
 obj_t BgL_auxz00_6595;
BgL_auxz00_6595 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_85, 
(int)(BgL_l2257z00_4223), 
(int)(BgL_iz00_1133)); 
FAILURE(BgL_auxz00_6595,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 345 */
 long BgL_l2261z00_4227;
BgL_l2261z00_4227 = 
STRING_LENGTH(BgL_newz00_1130); 
if(
BOUND_CHECK(BgL_iz00_1133, BgL_l2261z00_4227))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_newz00_1130, BgL_iz00_1133, BgL_arg1362z00_1136); }  else 
{ 
 obj_t BgL_auxz00_6605;
BgL_auxz00_6605 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_newz00_1130, 
(int)(BgL_l2261z00_4227), 
(int)(BgL_iz00_1133)); 
FAILURE(BgL_auxz00_6605,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_6611;
BgL_iz00_6611 = 
(BgL_iz00_1133-1L); 
BgL_iz00_1133 = BgL_iz00_6611; 
goto BgL_zc3z04anonymousza31360ze3z87_1134;} } } } } } } } 

}



/* &string-copy */
obj_t BGl_z62stringzd2copyzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4114, obj_t BgL_stringz00_4115)
{
{ /* Ieee/string.scm 602 */
{ /* Ieee/string.scm 603 */
 obj_t BgL_auxz00_6613;
if(
STRINGP(BgL_stringz00_4115))
{ /* Ieee/string.scm 603 */
BgL_auxz00_6613 = BgL_stringz00_4115
; }  else 
{ 
 obj_t BgL_auxz00_6616;
BgL_auxz00_6616 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(28069L), BGl_string3405z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4115); 
FAILURE(BgL_auxz00_6616,BFALSE,BFALSE);} 
return 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_auxz00_6613);} } 

}



/* 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 615 */
{ /* Ieee/string.scm 616 */
 long BgL_lenz00_1139;
BgL_lenz00_1139 = 
STRING_LENGTH(BgL_stringz00_86); 
{ 
 long BgL_iz00_2827;
BgL_iz00_2827 = 0L; 
BgL_loopz00_2826:
if(
(BgL_iz00_2827==BgL_lenz00_1139))
{ /* Ieee/string.scm 618 */
return BUNSPEC;}  else 
{ /* Ieee/string.scm 618 */
{ /* Ieee/string.scm 345 */
 long BgL_l2265z00_4231;
BgL_l2265z00_4231 = 
STRING_LENGTH(BgL_stringz00_86); 
if(
BOUND_CHECK(BgL_iz00_2827, BgL_l2265z00_4231))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_stringz00_86, BgL_iz00_2827, BgL_charz00_87); }  else 
{ 
 obj_t BgL_auxz00_6628;
BgL_auxz00_6628 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_stringz00_86, 
(int)(BgL_l2265z00_4231), 
(int)(BgL_iz00_2827)); 
FAILURE(BgL_auxz00_6628,BFALSE,BFALSE);} } 
{ 
 long BgL_iz00_6634;
BgL_iz00_6634 = 
(BgL_iz00_2827+1L); 
BgL_iz00_2827 = BgL_iz00_6634; 
goto BgL_loopz00_2826;} } } } } 

}



/* &string-fill! */
obj_t BGl_z62stringzd2fillz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4116, obj_t BgL_stringz00_4117, obj_t BgL_charz00_4118)
{
{ /* Ieee/string.scm 615 */
{ /* Ieee/string.scm 616 */
 unsigned char BgL_auxz00_6643; obj_t BgL_auxz00_6636;
{ /* Ieee/string.scm 616 */
 obj_t BgL_tmpz00_6644;
if(
CHARP(BgL_charz00_4118))
{ /* Ieee/string.scm 616 */
BgL_tmpz00_6644 = BgL_charz00_4118
; }  else 
{ 
 obj_t BgL_auxz00_6647;
BgL_auxz00_6647 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(28551L), BGl_string3406z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_charz00_4118); 
FAILURE(BgL_auxz00_6647,BFALSE,BFALSE);} 
BgL_auxz00_6643 = 
CCHAR(BgL_tmpz00_6644); } 
if(
STRINGP(BgL_stringz00_4117))
{ /* Ieee/string.scm 616 */
BgL_auxz00_6636 = BgL_stringz00_4117
; }  else 
{ 
 obj_t BgL_auxz00_6639;
BgL_auxz00_6639 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(28551L), BGl_string3406z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4117); 
FAILURE(BgL_auxz00_6639,BFALSE,BFALSE);} 
return 
BGl_stringzd2fillz12zc0zz__r4_strings_6_7z00(BgL_auxz00_6636, BgL_auxz00_6643);} } 

}



/* string-upcase */
BGL_EXPORTED_DEF obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_88)
{
{ /* Ieee/string.scm 627 */
{ /* Ieee/string.scm 628 */
 long BgL_lenz00_1146;
BgL_lenz00_1146 = 
STRING_LENGTH(BgL_stringz00_88); 
{ /* Ieee/string.scm 628 */
 obj_t BgL_resz00_1147;
BgL_resz00_1147 = 
make_string_sans_fill(BgL_lenz00_1146); 
{ /* Ieee/string.scm 629 */

{ 
 long BgL_iz00_1149;
BgL_iz00_1149 = 0L; 
BgL_zc3z04anonymousza31367ze3z87_1150:
if(
(BgL_iz00_1149==BgL_lenz00_1146))
{ /* Ieee/string.scm 631 */
return BgL_resz00_1147;}  else 
{ /* Ieee/string.scm 631 */
{ /* Ieee/string.scm 634 */
 unsigned char BgL_arg1369z00_1152;
{ /* Ieee/string.scm 634 */
 unsigned char BgL_tmpz00_6657;
{ /* Ieee/string.scm 339 */
 long BgL_l2269z00_4235;
BgL_l2269z00_4235 = 
STRING_LENGTH(BgL_stringz00_88); 
if(
BOUND_CHECK(BgL_iz00_1149, BgL_l2269z00_4235))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_6657 = 
STRING_REF(BgL_stringz00_88, BgL_iz00_1149)
; }  else 
{ 
 obj_t BgL_auxz00_6662;
BgL_auxz00_6662 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_88, 
(int)(BgL_l2269z00_4235), 
(int)(BgL_iz00_1149)); 
FAILURE(BgL_auxz00_6662,BFALSE,BFALSE);} } 
BgL_arg1369z00_1152 = 
toupper(BgL_tmpz00_6657); } 
{ /* Ieee/string.scm 345 */
 long BgL_l2273z00_4239;
BgL_l2273z00_4239 = 
STRING_LENGTH(BgL_resz00_1147); 
if(
BOUND_CHECK(BgL_iz00_1149, BgL_l2273z00_4239))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_resz00_1147, BgL_iz00_1149, BgL_arg1369z00_1152); }  else 
{ 
 obj_t BgL_auxz00_6673;
BgL_auxz00_6673 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_resz00_1147, 
(int)(BgL_l2273z00_4239), 
(int)(BgL_iz00_1149)); 
FAILURE(BgL_auxz00_6673,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_6679;
BgL_iz00_6679 = 
(BgL_iz00_1149+1L); 
BgL_iz00_1149 = BgL_iz00_6679; 
goto BgL_zc3z04anonymousza31367ze3z87_1150;} } } } } } } 

}



/* &string-upcase */
obj_t BGl_z62stringzd2upcasezb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4119, obj_t BgL_stringz00_4120)
{
{ /* Ieee/string.scm 627 */
{ /* Ieee/string.scm 628 */
 obj_t BgL_auxz00_6681;
if(
STRINGP(BgL_stringz00_4120))
{ /* Ieee/string.scm 628 */
BgL_auxz00_6681 = BgL_stringz00_4120
; }  else 
{ 
 obj_t BgL_auxz00_6684;
BgL_auxz00_6684 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(28975L), BGl_string3407z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4120); 
FAILURE(BgL_auxz00_6684,BFALSE,BFALSE);} 
return 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_auxz00_6681);} } 

}



/* string-downcase */
BGL_EXPORTED_DEF obj_t BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_89)
{
{ /* Ieee/string.scm 640 */
{ /* Ieee/string.scm 641 */
 long BgL_lenz00_1156;
BgL_lenz00_1156 = 
STRING_LENGTH(BgL_stringz00_89); 
{ /* Ieee/string.scm 641 */
 obj_t BgL_resz00_1157;
BgL_resz00_1157 = 
make_string_sans_fill(BgL_lenz00_1156); 
{ /* Ieee/string.scm 642 */

{ 
 long BgL_iz00_1159;
BgL_iz00_1159 = 0L; 
BgL_zc3z04anonymousza31372ze3z87_1160:
if(
(BgL_iz00_1159==BgL_lenz00_1156))
{ /* Ieee/string.scm 644 */
return BgL_resz00_1157;}  else 
{ /* Ieee/string.scm 644 */
{ /* Ieee/string.scm 647 */
 unsigned char BgL_arg1374z00_1162;
{ /* Ieee/string.scm 647 */
 unsigned char BgL_tmpz00_6693;
{ /* Ieee/string.scm 339 */
 long BgL_l2277z00_4243;
BgL_l2277z00_4243 = 
STRING_LENGTH(BgL_stringz00_89); 
if(
BOUND_CHECK(BgL_iz00_1159, BgL_l2277z00_4243))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_6693 = 
STRING_REF(BgL_stringz00_89, BgL_iz00_1159)
; }  else 
{ 
 obj_t BgL_auxz00_6698;
BgL_auxz00_6698 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_89, 
(int)(BgL_l2277z00_4243), 
(int)(BgL_iz00_1159)); 
FAILURE(BgL_auxz00_6698,BFALSE,BFALSE);} } 
BgL_arg1374z00_1162 = 
tolower(BgL_tmpz00_6693); } 
{ /* Ieee/string.scm 345 */
 long BgL_l2281z00_4247;
BgL_l2281z00_4247 = 
STRING_LENGTH(BgL_resz00_1157); 
if(
BOUND_CHECK(BgL_iz00_1159, BgL_l2281z00_4247))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_resz00_1157, BgL_iz00_1159, BgL_arg1374z00_1162); }  else 
{ 
 obj_t BgL_auxz00_6709;
BgL_auxz00_6709 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_resz00_1157, 
(int)(BgL_l2281z00_4247), 
(int)(BgL_iz00_1159)); 
FAILURE(BgL_auxz00_6709,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_6715;
BgL_iz00_6715 = 
(BgL_iz00_1159+1L); 
BgL_iz00_1159 = BgL_iz00_6715; 
goto BgL_zc3z04anonymousza31372ze3z87_1160;} } } } } } } 

}



/* &string-downcase */
obj_t BGl_z62stringzd2downcasezb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4121, obj_t BgL_stringz00_4122)
{
{ /* Ieee/string.scm 640 */
{ /* Ieee/string.scm 641 */
 obj_t BgL_auxz00_6717;
if(
STRINGP(BgL_stringz00_4122))
{ /* Ieee/string.scm 641 */
BgL_auxz00_6717 = BgL_stringz00_4122
; }  else 
{ 
 obj_t BgL_auxz00_6720;
BgL_auxz00_6720 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(29460L), BGl_string3408z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4122); 
FAILURE(BgL_auxz00_6720,BFALSE,BFALSE);} 
return 
BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(BgL_auxz00_6717);} } 

}



/* string-upcase! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(obj_t BgL_stringz00_90)
{
{ /* Ieee/string.scm 653 */
{ /* Ieee/string.scm 654 */
 long BgL_lenz00_1166;
BgL_lenz00_1166 = 
STRING_LENGTH(BgL_stringz00_90); 
{ 
 long BgL_iz00_1168;
BgL_iz00_1168 = 0L; 
BgL_zc3z04anonymousza31377ze3z87_1169:
if(
(BgL_iz00_1168==BgL_lenz00_1166))
{ /* Ieee/string.scm 656 */
return BgL_stringz00_90;}  else 
{ /* Ieee/string.scm 656 */
{ /* Ieee/string.scm 659 */
 unsigned char BgL_arg1379z00_1171;
{ /* Ieee/string.scm 659 */
 unsigned char BgL_tmpz00_6728;
{ /* Ieee/string.scm 339 */
 long BgL_l2285z00_4251;
BgL_l2285z00_4251 = 
STRING_LENGTH(BgL_stringz00_90); 
if(
BOUND_CHECK(BgL_iz00_1168, BgL_l2285z00_4251))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_6728 = 
STRING_REF(BgL_stringz00_90, BgL_iz00_1168)
; }  else 
{ 
 obj_t BgL_auxz00_6733;
BgL_auxz00_6733 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_90, 
(int)(BgL_l2285z00_4251), 
(int)(BgL_iz00_1168)); 
FAILURE(BgL_auxz00_6733,BFALSE,BFALSE);} } 
BgL_arg1379z00_1171 = 
toupper(BgL_tmpz00_6728); } 
{ /* Ieee/string.scm 345 */
 long BgL_l2289z00_4255;
BgL_l2289z00_4255 = 
STRING_LENGTH(BgL_stringz00_90); 
if(
BOUND_CHECK(BgL_iz00_1168, BgL_l2289z00_4255))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_stringz00_90, BgL_iz00_1168, BgL_arg1379z00_1171); }  else 
{ 
 obj_t BgL_auxz00_6744;
BgL_auxz00_6744 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_stringz00_90, 
(int)(BgL_l2289z00_4255), 
(int)(BgL_iz00_1168)); 
FAILURE(BgL_auxz00_6744,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_6750;
BgL_iz00_6750 = 
(BgL_iz00_1168+1L); 
BgL_iz00_1168 = BgL_iz00_6750; 
goto BgL_zc3z04anonymousza31377ze3z87_1169;} } } } } 

}



/* &string-upcase! */
obj_t BGl_z62stringzd2upcasez12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4123, obj_t BgL_stringz00_4124)
{
{ /* Ieee/string.scm 653 */
{ /* Ieee/string.scm 654 */
 obj_t BgL_auxz00_6752;
if(
STRINGP(BgL_stringz00_4124))
{ /* Ieee/string.scm 654 */
BgL_auxz00_6752 = BgL_stringz00_4124
; }  else 
{ 
 obj_t BgL_auxz00_6755;
BgL_auxz00_6755 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(29946L), BGl_string3409z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4124); 
FAILURE(BgL_auxz00_6755,BFALSE,BFALSE);} 
return 
BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(BgL_auxz00_6752);} } 

}



/* string-downcase! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(obj_t BgL_stringz00_91)
{
{ /* Ieee/string.scm 665 */
{ /* Ieee/string.scm 666 */
 long BgL_lenz00_1175;
BgL_lenz00_1175 = 
STRING_LENGTH(BgL_stringz00_91); 
{ 
 long BgL_iz00_1177;
BgL_iz00_1177 = 0L; 
BgL_zc3z04anonymousza31384ze3z87_1178:
if(
(BgL_iz00_1177==BgL_lenz00_1175))
{ /* Ieee/string.scm 668 */
return BgL_stringz00_91;}  else 
{ /* Ieee/string.scm 668 */
{ /* Ieee/string.scm 671 */
 unsigned char BgL_arg1386z00_1180;
{ /* Ieee/string.scm 671 */
 unsigned char BgL_tmpz00_6763;
{ /* Ieee/string.scm 339 */
 long BgL_l2293z00_4259;
BgL_l2293z00_4259 = 
STRING_LENGTH(BgL_stringz00_91); 
if(
BOUND_CHECK(BgL_iz00_1177, BgL_l2293z00_4259))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_6763 = 
STRING_REF(BgL_stringz00_91, BgL_iz00_1177)
; }  else 
{ 
 obj_t BgL_auxz00_6768;
BgL_auxz00_6768 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_91, 
(int)(BgL_l2293z00_4259), 
(int)(BgL_iz00_1177)); 
FAILURE(BgL_auxz00_6768,BFALSE,BFALSE);} } 
BgL_arg1386z00_1180 = 
tolower(BgL_tmpz00_6763); } 
{ /* Ieee/string.scm 345 */
 long BgL_l2297z00_4263;
BgL_l2297z00_4263 = 
STRING_LENGTH(BgL_stringz00_91); 
if(
BOUND_CHECK(BgL_iz00_1177, BgL_l2297z00_4263))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_stringz00_91, BgL_iz00_1177, BgL_arg1386z00_1180); }  else 
{ 
 obj_t BgL_auxz00_6779;
BgL_auxz00_6779 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_stringz00_91, 
(int)(BgL_l2297z00_4263), 
(int)(BgL_iz00_1177)); 
FAILURE(BgL_auxz00_6779,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_6785;
BgL_iz00_6785 = 
(BgL_iz00_1177+1L); 
BgL_iz00_1177 = BgL_iz00_6785; 
goto BgL_zc3z04anonymousza31384ze3z87_1178;} } } } } 

}



/* &string-downcase! */
obj_t BGl_z62stringzd2downcasez12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4125, obj_t BgL_stringz00_4126)
{
{ /* Ieee/string.scm 665 */
{ /* Ieee/string.scm 666 */
 obj_t BgL_auxz00_6787;
if(
STRINGP(BgL_stringz00_4126))
{ /* Ieee/string.scm 666 */
BgL_auxz00_6787 = BgL_stringz00_4126
; }  else 
{ 
 obj_t BgL_auxz00_6790;
BgL_auxz00_6790 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(30401L), BGl_string3410z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4126); 
FAILURE(BgL_auxz00_6790,BFALSE,BFALSE);} 
return 
BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(BgL_auxz00_6787);} } 

}



/* string-capitalize! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(obj_t BgL_stringz00_92)
{
{ /* Ieee/string.scm 681 */
{ /* Ieee/string.scm 682 */
 bool_t BgL_nonzd2firstzd2alphaz00_1184; long BgL_stringzd2lenzd2_1185;
BgL_nonzd2firstzd2alphaz00_1184 = ((bool_t)0); 
BgL_stringzd2lenzd2_1185 = 
STRING_LENGTH(BgL_stringz00_92); 
{ 
 long BgL_iz00_1187;
BgL_iz00_1187 = 0L; 
BgL_zc3z04anonymousza31389ze3z87_1188:
if(
(BgL_iz00_1187==BgL_stringzd2lenzd2_1185))
{ /* Ieee/string.scm 684 */
return BgL_stringz00_92;}  else 
{ /* Ieee/string.scm 684 */
{ /* Ieee/string.scm 686 */
 unsigned char BgL_cz00_1190;
{ /* Ieee/string.scm 339 */
 long BgL_l2301z00_4267;
BgL_l2301z00_4267 = 
STRING_LENGTH(BgL_stringz00_92); 
if(
BOUND_CHECK(BgL_iz00_1187, BgL_l2301z00_4267))
{ /* Ieee/string.scm 339 */
BgL_cz00_1190 = 
STRING_REF(BgL_stringz00_92, BgL_iz00_1187); }  else 
{ 
 obj_t BgL_auxz00_6802;
BgL_auxz00_6802 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_92, 
(int)(BgL_l2301z00_4267), 
(int)(BgL_iz00_1187)); 
FAILURE(BgL_auxz00_6802,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 687 */
 bool_t BgL_test3946z00_6808;
if(
isalpha(BgL_cz00_1190))
{ /* Ieee/string.scm 687 */
BgL_test3946z00_6808 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 687 */
BgL_test3946z00_6808 = 
(
(BgL_cz00_1190)>127L)
; } 
if(BgL_test3946z00_6808)
{ /* Ieee/string.scm 687 */
if(BgL_nonzd2firstzd2alphaz00_1184)
{ /* Ieee/string.scm 689 */
 unsigned char BgL_arg1394z00_1194;
BgL_arg1394z00_1194 = 
tolower(BgL_cz00_1190); 
{ /* Ieee/string.scm 345 */
 long BgL_l2305z00_4271;
BgL_l2305z00_4271 = 
STRING_LENGTH(BgL_stringz00_92); 
if(
BOUND_CHECK(BgL_iz00_1187, BgL_l2305z00_4271))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_stringz00_92, BgL_iz00_1187, BgL_arg1394z00_1194); }  else 
{ 
 obj_t BgL_auxz00_6819;
BgL_auxz00_6819 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_stringz00_92, 
(int)(BgL_l2305z00_4271), 
(int)(BgL_iz00_1187)); 
FAILURE(BgL_auxz00_6819,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 688 */
BgL_nonzd2firstzd2alphaz00_1184 = ((bool_t)1); 
{ /* Ieee/string.scm 692 */
 unsigned char BgL_arg1395z00_1195;
BgL_arg1395z00_1195 = 
toupper(BgL_cz00_1190); 
{ /* Ieee/string.scm 345 */
 long BgL_l2309z00_4275;
BgL_l2309z00_4275 = 
STRING_LENGTH(BgL_stringz00_92); 
if(
BOUND_CHECK(BgL_iz00_1187, BgL_l2309z00_4275))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_stringz00_92, BgL_iz00_1187, BgL_arg1395z00_1195); }  else 
{ 
 obj_t BgL_auxz00_6830;
BgL_auxz00_6830 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_stringz00_92, 
(int)(BgL_l2309z00_4275), 
(int)(BgL_iz00_1187)); 
FAILURE(BgL_auxz00_6830,BFALSE,BFALSE);} } } } }  else 
{ /* Ieee/string.scm 687 */
BgL_nonzd2firstzd2alphaz00_1184 = ((bool_t)0); } } } 
{ 
 long BgL_iz00_6836;
BgL_iz00_6836 = 
(BgL_iz00_1187+1L); 
BgL_iz00_1187 = BgL_iz00_6836; 
goto BgL_zc3z04anonymousza31389ze3z87_1188;} } } } } 

}



/* &string-capitalize! */
obj_t BGl_z62stringzd2capitaliza7ez12z05zz__r4_strings_6_7z00(obj_t BgL_envz00_4127, obj_t BgL_stringz00_4128)
{
{ /* Ieee/string.scm 681 */
{ /* Ieee/string.scm 682 */
 obj_t BgL_auxz00_6838;
if(
STRINGP(BgL_stringz00_4128))
{ /* Ieee/string.scm 682 */
BgL_auxz00_6838 = BgL_stringz00_4128
; }  else 
{ 
 obj_t BgL_auxz00_6841;
BgL_auxz00_6841 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(31156L), BGl_string3411z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4128); 
FAILURE(BgL_auxz00_6841,BFALSE,BFALSE);} 
return 
BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(BgL_auxz00_6838);} } 

}



/* string-capitalize */
BGL_EXPORTED_DEF obj_t BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(obj_t BgL_stringz00_93)
{
{ /* Ieee/string.scm 698 */
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_4129, obj_t BgL_stringz00_4130)
{
{ /* Ieee/string.scm 698 */
{ /* Ieee/string.scm 699 */
 obj_t BgL_auxz00_6848;
if(
STRINGP(BgL_stringz00_4130))
{ /* Ieee/string.scm 699 */
BgL_auxz00_6848 = BgL_stringz00_4130
; }  else 
{ 
 obj_t BgL_auxz00_6851;
BgL_auxz00_6851 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(31880L), BGl_string3412z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4130); 
FAILURE(BgL_auxz00_6851,BFALSE,BFALSE);} 
return 
BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(BgL_auxz00_6848);} } 

}



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

}



/* &string-for-read */
obj_t BGl_z62stringzd2forzd2readz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4131, obj_t BgL_stringz00_4132)
{
{ /* Ieee/string.scm 704 */
{ /* Ieee/string.scm 705 */
 obj_t BgL_auxz00_6857;
if(
STRINGP(BgL_stringz00_4132))
{ /* Ieee/string.scm 705 */
BgL_auxz00_6857 = BgL_stringz00_4132
; }  else 
{ 
 obj_t BgL_auxz00_6860;
BgL_auxz00_6860 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(32169L), BGl_string3413z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4132); 
FAILURE(BgL_auxz00_6860,BFALSE,BFALSE);} 
return 
BGl_stringzd2forzd2readz00zz__r4_strings_6_7z00(BgL_auxz00_6857);} } 

}



/* escape-C-string */
BGL_EXPORTED_DEF obj_t BGl_escapezd2Czd2stringz00zz__r4_strings_6_7z00(obj_t BgL_strz00_95)
{
{ /* Ieee/string.scm 712 */
{ /* Ieee/string.scm 713 */
 obj_t BgL_arg1399z00_5353;
{ /* Ieee/string.scm 190 */
 long BgL_endz00_5354;
BgL_endz00_5354 = 
STRING_LENGTH(BgL_strz00_95); 
{ /* Ieee/string.scm 190 */

BgL_arg1399z00_5353 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_95, 1L, BgL_endz00_5354); } } 
return 
bgl_escape_C_string(
BSTRING_TO_STRING(BgL_arg1399z00_5353), 0L, 
STRING_LENGTH(BgL_arg1399z00_5353));} } 

}



/* &escape-C-string */
obj_t BGl_z62escapezd2Czd2stringz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4133, obj_t BgL_strz00_4134)
{
{ /* Ieee/string.scm 712 */
{ /* Ieee/string.scm 713 */
 obj_t BgL_auxz00_6870;
if(
STRINGP(BgL_strz00_4134))
{ /* Ieee/string.scm 713 */
BgL_auxz00_6870 = BgL_strz00_4134
; }  else 
{ 
 obj_t BgL_auxz00_6873;
BgL_auxz00_6873 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(32623L), BGl_string3414z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_4134); 
FAILURE(BgL_auxz00_6873,BFALSE,BFALSE);} 
return 
BGl_escapezd2Czd2stringz00zz__r4_strings_6_7z00(BgL_auxz00_6870);} } 

}



/* escape-scheme-string */
BGL_EXPORTED_DEF obj_t BGl_escapezd2schemezd2stringz00zz__r4_strings_6_7z00(obj_t BgL_strz00_96)
{
{ /* Ieee/string.scm 720 */
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_4135, obj_t BgL_strz00_4136)
{
{ /* Ieee/string.scm 720 */
{ /* Ieee/string.scm 721 */
 obj_t BgL_auxz00_6881;
if(
STRINGP(BgL_strz00_4136))
{ /* Ieee/string.scm 721 */
BgL_auxz00_6881 = BgL_strz00_4136
; }  else 
{ 
 obj_t BgL_auxz00_6884;
BgL_auxz00_6884 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33088L), BGl_string3415z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_4136); 
FAILURE(BgL_auxz00_6884,BFALSE,BFALSE);} 
return 
BGl_escapezd2schemezd2stringz00zz__r4_strings_6_7z00(BgL_auxz00_6881);} } 

}



/* string-as-read */
BGL_EXPORTED_DEF obj_t BGl_stringzd2aszd2readz00zz__r4_strings_6_7z00(obj_t BgL_strz00_97)
{
{ /* Ieee/string.scm 726 */
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_4137, obj_t BgL_strz00_4138)
{
{ /* Ieee/string.scm 726 */
{ /* Ieee/string.scm 727 */
 obj_t BgL_auxz00_6892;
if(
STRINGP(BgL_strz00_4138))
{ /* Ieee/string.scm 727 */
BgL_auxz00_6892 = BgL_strz00_4138
; }  else 
{ 
 obj_t BgL_auxz00_6895;
BgL_auxz00_6895 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33396L), BGl_string3416z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_4138); 
FAILURE(BgL_auxz00_6895,BFALSE,BFALSE);} 
return 
BGl_stringzd2aszd2readz00zz__r4_strings_6_7z00(BgL_auxz00_6892);} } 

}



/* 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 732 */
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_4139, obj_t BgL_s1z00_4140, obj_t BgL_o1z00_4141, obj_t BgL_s2z00_4142, obj_t BgL_o2z00_4143, obj_t BgL_lz00_4144)
{
{ /* Ieee/string.scm 732 */
{ /* Ieee/string.scm 733 */
 long BgL_auxz00_6933; long BgL_auxz00_6924; obj_t BgL_auxz00_6917; long BgL_auxz00_6908; obj_t BgL_auxz00_6901;
{ /* Ieee/string.scm 733 */
 obj_t BgL_tmpz00_6934;
if(
INTEGERP(BgL_lz00_4144))
{ /* Ieee/string.scm 733 */
BgL_tmpz00_6934 = BgL_lz00_4144
; }  else 
{ 
 obj_t BgL_auxz00_6937;
BgL_auxz00_6937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33691L), BGl_string3417z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lz00_4144); 
FAILURE(BgL_auxz00_6937,BFALSE,BFALSE);} 
BgL_auxz00_6933 = 
(long)CINT(BgL_tmpz00_6934); } 
{ /* Ieee/string.scm 733 */
 obj_t BgL_tmpz00_6925;
if(
INTEGERP(BgL_o2z00_4143))
{ /* Ieee/string.scm 733 */
BgL_tmpz00_6925 = BgL_o2z00_4143
; }  else 
{ 
 obj_t BgL_auxz00_6928;
BgL_auxz00_6928 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33691L), BGl_string3417z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_o2z00_4143); 
FAILURE(BgL_auxz00_6928,BFALSE,BFALSE);} 
BgL_auxz00_6924 = 
(long)CINT(BgL_tmpz00_6925); } 
if(
STRINGP(BgL_s2z00_4142))
{ /* Ieee/string.scm 733 */
BgL_auxz00_6917 = BgL_s2z00_4142
; }  else 
{ 
 obj_t BgL_auxz00_6920;
BgL_auxz00_6920 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33691L), BGl_string3417z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_4142); 
FAILURE(BgL_auxz00_6920,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 733 */
 obj_t BgL_tmpz00_6909;
if(
INTEGERP(BgL_o1z00_4141))
{ /* Ieee/string.scm 733 */
BgL_tmpz00_6909 = BgL_o1z00_4141
; }  else 
{ 
 obj_t BgL_auxz00_6912;
BgL_auxz00_6912 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33691L), BGl_string3417z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_o1z00_4141); 
FAILURE(BgL_auxz00_6912,BFALSE,BFALSE);} 
BgL_auxz00_6908 = 
(long)CINT(BgL_tmpz00_6909); } 
if(
STRINGP(BgL_s1z00_4140))
{ /* Ieee/string.scm 733 */
BgL_auxz00_6901 = BgL_s1z00_4140
; }  else 
{ 
 obj_t BgL_auxz00_6904;
BgL_auxz00_6904 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33691L), BGl_string3417z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_4140); 
FAILURE(BgL_auxz00_6904,BFALSE,BFALSE);} 
return 
BGl_blitzd2stringzd2urz12z12zz__r4_strings_6_7z00(BgL_auxz00_6901, BgL_auxz00_6908, BgL_auxz00_6917, BgL_auxz00_6924, BgL_auxz00_6933);} } 

}



/* 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 738 */
{ /* Ieee/string.scm 739 */
 bool_t BgL_test3962z00_6943;
{ /* Ieee/string.scm 739 */
 bool_t BgL_test3963z00_6944;
{ /* Ieee/string.scm 739 */
 long BgL_auxz00_6947; long BgL_tmpz00_6945;
BgL_auxz00_6947 = 
(
STRING_LENGTH(BgL_s1z00_103)+1L); 
BgL_tmpz00_6945 = 
(BgL_lz00_107+BgL_o1z00_104); 
BgL_test3963z00_6944 = 
BOUND_CHECK(BgL_tmpz00_6945, BgL_auxz00_6947); } 
if(BgL_test3963z00_6944)
{ /* Ieee/string.scm 740 */
 long BgL_auxz00_6953; long BgL_tmpz00_6951;
BgL_auxz00_6953 = 
(
STRING_LENGTH(BgL_s2z00_105)+1L); 
BgL_tmpz00_6951 = 
(BgL_lz00_107+BgL_o2z00_106); 
BgL_test3962z00_6943 = 
BOUND_CHECK(BgL_tmpz00_6951, BgL_auxz00_6953); }  else 
{ /* Ieee/string.scm 739 */
BgL_test3962z00_6943 = ((bool_t)0)
; } } 
if(BgL_test3962z00_6943)
{ /* Ieee/string.scm 739 */
BGL_TAIL return 
blit_string(BgL_s1z00_103, BgL_o1z00_104, BgL_s2z00_105, BgL_o2z00_106, BgL_lz00_107);}  else 
{ /* Ieee/string.scm 743 */
 obj_t BgL_arg1414z00_1218; obj_t BgL_arg1415z00_1219;
{ /* Ieee/string.scm 743 */
 obj_t BgL_list1416z00_1220;
{ /* Ieee/string.scm 743 */
 obj_t BgL_arg1417z00_1221;
{ /* Ieee/string.scm 743 */
 obj_t BgL_arg1418z00_1222;
{ /* Ieee/string.scm 743 */
 obj_t BgL_arg1419z00_1223;
{ /* Ieee/string.scm 743 */
 obj_t BgL_arg1420z00_1224;
BgL_arg1420z00_1224 = 
MAKE_YOUNG_PAIR(BGl_string3418z00zz__r4_strings_6_7z00, BNIL); 
BgL_arg1419z00_1223 = 
MAKE_YOUNG_PAIR(BgL_s2z00_105, BgL_arg1420z00_1224); } 
BgL_arg1418z00_1222 = 
MAKE_YOUNG_PAIR(BGl_string3419z00zz__r4_strings_6_7z00, BgL_arg1419z00_1223); } 
BgL_arg1417z00_1221 = 
MAKE_YOUNG_PAIR(BgL_s1z00_103, BgL_arg1418z00_1222); } 
BgL_list1416z00_1220 = 
MAKE_YOUNG_PAIR(BGl_string3420z00zz__r4_strings_6_7z00, BgL_arg1417z00_1221); } 
BgL_arg1414z00_1218 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1416z00_1220); } 
{ /* Ieee/string.scm 744 */
 long BgL_arg1421z00_1225; long BgL_arg1422z00_1226;
BgL_arg1421z00_1225 = 
STRING_LENGTH(BgL_s1z00_103); 
BgL_arg1422z00_1226 = 
STRING_LENGTH(BgL_s2z00_105); 
{ /* Ieee/string.scm 744 */
 obj_t BgL_list1423z00_1227;
{ /* Ieee/string.scm 744 */
 obj_t BgL_arg1424z00_1228;
{ /* Ieee/string.scm 744 */
 obj_t BgL_arg1425z00_1229;
{ /* Ieee/string.scm 744 */
 obj_t BgL_arg1426z00_1230;
{ /* Ieee/string.scm 744 */
 obj_t BgL_arg1427z00_1231;
BgL_arg1427z00_1231 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lz00_107), BNIL); 
BgL_arg1426z00_1230 = 
MAKE_YOUNG_PAIR(
BINT(BgL_o2z00_106), BgL_arg1427z00_1231); } 
BgL_arg1425z00_1229 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1422z00_1226), BgL_arg1426z00_1230); } 
BgL_arg1424z00_1228 = 
MAKE_YOUNG_PAIR(
BINT(BgL_o1z00_104), BgL_arg1425z00_1229); } 
BgL_list1423z00_1227 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1421z00_1225), BgL_arg1424z00_1228); } 
BgL_arg1415z00_1219 = BgL_list1423z00_1227; } } 
return 
BGl_errorz00zz__errorz00(BGl_string3421z00zz__r4_strings_6_7z00, BgL_arg1414z00_1218, BgL_arg1415z00_1219);} } } 

}



/* &blit-string! */
obj_t BGl_z62blitzd2stringz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4145, obj_t BgL_s1z00_4146, obj_t BgL_o1z00_4147, obj_t BgL_s2z00_4148, obj_t BgL_o2z00_4149, obj_t BgL_lz00_4150)
{
{ /* Ieee/string.scm 738 */
{ /* Ieee/string.scm 739 */
 long BgL_auxz00_7009; long BgL_auxz00_7000; obj_t BgL_auxz00_6993; long BgL_auxz00_6984; obj_t BgL_auxz00_6977;
{ /* Ieee/string.scm 739 */
 obj_t BgL_tmpz00_7010;
if(
INTEGERP(BgL_lz00_4150))
{ /* Ieee/string.scm 739 */
BgL_tmpz00_7010 = BgL_lz00_4150
; }  else 
{ 
 obj_t BgL_auxz00_7013;
BgL_auxz00_7013 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33984L), BGl_string3422z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lz00_4150); 
FAILURE(BgL_auxz00_7013,BFALSE,BFALSE);} 
BgL_auxz00_7009 = 
(long)CINT(BgL_tmpz00_7010); } 
{ /* Ieee/string.scm 739 */
 obj_t BgL_tmpz00_7001;
if(
INTEGERP(BgL_o2z00_4149))
{ /* Ieee/string.scm 739 */
BgL_tmpz00_7001 = BgL_o2z00_4149
; }  else 
{ 
 obj_t BgL_auxz00_7004;
BgL_auxz00_7004 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33984L), BGl_string3422z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_o2z00_4149); 
FAILURE(BgL_auxz00_7004,BFALSE,BFALSE);} 
BgL_auxz00_7000 = 
(long)CINT(BgL_tmpz00_7001); } 
if(
STRINGP(BgL_s2z00_4148))
{ /* Ieee/string.scm 739 */
BgL_auxz00_6993 = BgL_s2z00_4148
; }  else 
{ 
 obj_t BgL_auxz00_6996;
BgL_auxz00_6996 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33984L), BGl_string3422z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_4148); 
FAILURE(BgL_auxz00_6996,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 739 */
 obj_t BgL_tmpz00_6985;
if(
INTEGERP(BgL_o1z00_4147))
{ /* Ieee/string.scm 739 */
BgL_tmpz00_6985 = BgL_o1z00_4147
; }  else 
{ 
 obj_t BgL_auxz00_6988;
BgL_auxz00_6988 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33984L), BGl_string3422z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_o1z00_4147); 
FAILURE(BgL_auxz00_6988,BFALSE,BFALSE);} 
BgL_auxz00_6984 = 
(long)CINT(BgL_tmpz00_6985); } 
if(
STRINGP(BgL_s1z00_4146))
{ /* Ieee/string.scm 739 */
BgL_auxz00_6977 = BgL_s1z00_4146
; }  else 
{ 
 obj_t BgL_auxz00_6980;
BgL_auxz00_6980 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(33984L), BGl_string3422z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_4146); 
FAILURE(BgL_auxz00_6980,BFALSE,BFALSE);} 
return 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_auxz00_6977, BgL_auxz00_6984, BgL_auxz00_6993, BgL_auxz00_7000, BgL_auxz00_7009);} } 

}



/* 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 749 */
return 
bgl_string_shrink(BgL_sz00_108, BgL_lz00_109);} 

}



/* &string-shrink! */
obj_t BGl_z62stringzd2shrinkz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4151, obj_t BgL_sz00_4152, obj_t BgL_lz00_4153)
{
{ /* Ieee/string.scm 749 */
{ /* Ieee/string.scm 750 */
 long BgL_auxz00_7027; obj_t BgL_auxz00_7020;
{ /* Ieee/string.scm 750 */
 obj_t BgL_tmpz00_7028;
if(
INTEGERP(BgL_lz00_4153))
{ /* Ieee/string.scm 750 */
BgL_tmpz00_7028 = BgL_lz00_4153
; }  else 
{ 
 obj_t BgL_auxz00_7031;
BgL_auxz00_7031 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(34593L), BGl_string3423z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_lz00_4153); 
FAILURE(BgL_auxz00_7031,BFALSE,BFALSE);} 
BgL_auxz00_7027 = 
(long)CINT(BgL_tmpz00_7028); } 
if(
STRINGP(BgL_sz00_4152))
{ /* Ieee/string.scm 750 */
BgL_auxz00_7020 = BgL_sz00_4152
; }  else 
{ 
 obj_t BgL_auxz00_7023;
BgL_auxz00_7023 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(34593L), BGl_string3423z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_sz00_4152); 
FAILURE(BgL_auxz00_7023,BFALSE,BFALSE);} 
return 
BGl_stringzd2shrinkz12zc0zz__r4_strings_6_7z00(BgL_auxz00_7020, BgL_auxz00_7027);} } 

}



/* 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 755 */
{ /* Ieee/string.scm 756 */
 long BgL_lenz00_1239;
BgL_lenz00_1239 = 
STRING_LENGTH(BgL_strz00_110); 
{ /* Ieee/string.scm 756 */
 obj_t BgL_newz00_1240;
{ /* Ieee/string.scm 168 */

BgL_newz00_1240 = 
make_string(BgL_lenz00_1239, ((unsigned char)' ')); } 
{ /* Ieee/string.scm 757 */

{ 
 long BgL_iz00_1242;
BgL_iz00_1242 = 0L; 
BgL_zc3z04anonymousza31436ze3z87_1243:
if(
(BgL_iz00_1242==BgL_lenz00_1239))
{ /* Ieee/string.scm 759 */
return BgL_newz00_1240;}  else 
{ /* Ieee/string.scm 761 */
 unsigned char BgL_cz00_1245;
{ /* Ieee/string.scm 339 */
 long BgL_l2313z00_4279;
BgL_l2313z00_4279 = 
STRING_LENGTH(BgL_strz00_110); 
if(
BOUND_CHECK(BgL_iz00_1242, BgL_l2313z00_4279))
{ /* Ieee/string.scm 339 */
BgL_cz00_1245 = 
STRING_REF(BgL_strz00_110, BgL_iz00_1242); }  else 
{ 
 obj_t BgL_auxz00_7045;
BgL_auxz00_7045 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_strz00_110, 
(int)(BgL_l2313z00_4279), 
(int)(BgL_iz00_1242)); 
FAILURE(BgL_auxz00_7045,BFALSE,BFALSE);} } 
if(
(BgL_cz00_1245==
(unsigned char)(BgL_c1z00_111)))
{ /* Ieee/string.scm 763 */
 unsigned char BgL_charz00_2927;
BgL_charz00_2927 = 
(unsigned char)(BgL_c2z00_112); 
{ /* Ieee/string.scm 345 */
 long BgL_l2317z00_4283;
BgL_l2317z00_4283 = 
STRING_LENGTH(BgL_newz00_1240); 
if(
BOUND_CHECK(BgL_iz00_1242, BgL_l2317z00_4283))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_newz00_1240, BgL_iz00_1242, BgL_charz00_2927); }  else 
{ 
 obj_t BgL_auxz00_7059;
BgL_auxz00_7059 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_newz00_1240, 
(int)(BgL_l2317z00_4283), 
(int)(BgL_iz00_1242)); 
FAILURE(BgL_auxz00_7059,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 345 */
 long BgL_l2321z00_4287;
BgL_l2321z00_4287 = 
STRING_LENGTH(BgL_newz00_1240); 
if(
BOUND_CHECK(BgL_iz00_1242, BgL_l2321z00_4287))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_newz00_1240, BgL_iz00_1242, BgL_cz00_1245); }  else 
{ 
 obj_t BgL_auxz00_7069;
BgL_auxz00_7069 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_newz00_1240, 
(int)(BgL_l2321z00_4287), 
(int)(BgL_iz00_1242)); 
FAILURE(BgL_auxz00_7069,BFALSE,BFALSE);} } 
{ 
 long BgL_iz00_7075;
BgL_iz00_7075 = 
(BgL_iz00_1242+1L); 
BgL_iz00_1242 = BgL_iz00_7075; 
goto BgL_zc3z04anonymousza31436ze3z87_1243;} } } } } } } 

}



/* &string-replace */
obj_t BGl_z62stringzd2replacezb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4154, obj_t BgL_strz00_4155, obj_t BgL_c1z00_4156, obj_t BgL_c2z00_4157)
{
{ /* Ieee/string.scm 755 */
{ /* Ieee/string.scm 756 */
 unsigned char BgL_auxz00_7093; unsigned char BgL_auxz00_7084; obj_t BgL_auxz00_7077;
{ /* Ieee/string.scm 756 */
 obj_t BgL_tmpz00_7094;
if(
CHARP(BgL_c2z00_4157))
{ /* Ieee/string.scm 756 */
BgL_tmpz00_7094 = BgL_c2z00_4157
; }  else 
{ 
 obj_t BgL_auxz00_7097;
BgL_auxz00_7097 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(34877L), BGl_string3424z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_c2z00_4157); 
FAILURE(BgL_auxz00_7097,BFALSE,BFALSE);} 
BgL_auxz00_7093 = 
CCHAR(BgL_tmpz00_7094); } 
{ /* Ieee/string.scm 756 */
 obj_t BgL_tmpz00_7085;
if(
CHARP(BgL_c1z00_4156))
{ /* Ieee/string.scm 756 */
BgL_tmpz00_7085 = BgL_c1z00_4156
; }  else 
{ 
 obj_t BgL_auxz00_7088;
BgL_auxz00_7088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(34877L), BGl_string3424z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_c1z00_4156); 
FAILURE(BgL_auxz00_7088,BFALSE,BFALSE);} 
BgL_auxz00_7084 = 
CCHAR(BgL_tmpz00_7085); } 
if(
STRINGP(BgL_strz00_4155))
{ /* Ieee/string.scm 756 */
BgL_auxz00_7077 = BgL_strz00_4155
; }  else 
{ 
 obj_t BgL_auxz00_7080;
BgL_auxz00_7080 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(34877L), BGl_string3424z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_4155); 
FAILURE(BgL_auxz00_7080,BFALSE,BFALSE);} 
return 
BGl_stringzd2replacezd2zz__r4_strings_6_7z00(BgL_auxz00_7077, BgL_auxz00_7084, BgL_auxz00_7093);} } 

}



/* 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 770 */
{ /* Ieee/string.scm 771 */
 long BgL_lenz00_1251;
BgL_lenz00_1251 = 
STRING_LENGTH(BgL_strz00_113); 
{ 
 long BgL_iz00_1253;
BgL_iz00_1253 = 0L; 
BgL_zc3z04anonymousza31440ze3z87_1254:
if(
(BgL_iz00_1253==BgL_lenz00_1251))
{ /* Ieee/string.scm 774 */
return BgL_strz00_113;}  else 
{ /* Ieee/string.scm 776 */
 bool_t BgL_test3980z00_7106;
{ /* Ieee/string.scm 776 */
 unsigned char BgL_char2z00_2938;
BgL_char2z00_2938 = 
(unsigned char)(BgL_c1z00_114); 
{ /* Ieee/string.scm 776 */
 unsigned char BgL_tmpz00_7108;
{ /* Ieee/string.scm 339 */
 long BgL_l2325z00_4291;
BgL_l2325z00_4291 = 
STRING_LENGTH(BgL_strz00_113); 
if(
BOUND_CHECK(BgL_iz00_1253, BgL_l2325z00_4291))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_7108 = 
STRING_REF(BgL_strz00_113, BgL_iz00_1253)
; }  else 
{ 
 obj_t BgL_auxz00_7113;
BgL_auxz00_7113 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_strz00_113, 
(int)(BgL_l2325z00_4291), 
(int)(BgL_iz00_1253)); 
FAILURE(BgL_auxz00_7113,BFALSE,BFALSE);} } 
BgL_test3980z00_7106 = 
(BgL_tmpz00_7108==BgL_char2z00_2938); } } 
if(BgL_test3980z00_7106)
{ /* Ieee/string.scm 776 */
{ /* Ieee/string.scm 777 */
 unsigned char BgL_charz00_2941;
BgL_charz00_2941 = 
(unsigned char)(BgL_c2z00_115); 
{ /* Ieee/string.scm 345 */
 long BgL_l2329z00_4295;
BgL_l2329z00_4295 = 
STRING_LENGTH(BgL_strz00_113); 
if(
BOUND_CHECK(BgL_iz00_1253, BgL_l2329z00_4295))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_strz00_113, BgL_iz00_1253, BgL_charz00_2941); }  else 
{ 
 obj_t BgL_auxz00_7125;
BgL_auxz00_7125 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_strz00_113, 
(int)(BgL_l2329z00_4295), 
(int)(BgL_iz00_1253)); 
FAILURE(BgL_auxz00_7125,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_7131;
BgL_iz00_7131 = 
(BgL_iz00_1253+1L); 
BgL_iz00_1253 = BgL_iz00_7131; 
goto BgL_zc3z04anonymousza31440ze3z87_1254;} }  else 
{ 
 long BgL_iz00_7133;
BgL_iz00_7133 = 
(BgL_iz00_1253+1L); 
BgL_iz00_1253 = BgL_iz00_7133; 
goto BgL_zc3z04anonymousza31440ze3z87_1254;} } } } } 

}



/* &string-replace! */
obj_t BGl_z62stringzd2replacez12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4158, obj_t BgL_strz00_4159, obj_t BgL_c1z00_4160, obj_t BgL_c2z00_4161)
{
{ /* Ieee/string.scm 770 */
{ /* Ieee/string.scm 771 */
 unsigned char BgL_auxz00_7151; unsigned char BgL_auxz00_7142; obj_t BgL_auxz00_7135;
{ /* Ieee/string.scm 771 */
 obj_t BgL_tmpz00_7152;
if(
CHARP(BgL_c2z00_4161))
{ /* Ieee/string.scm 771 */
BgL_tmpz00_7152 = BgL_c2z00_4161
; }  else 
{ 
 obj_t BgL_auxz00_7155;
BgL_auxz00_7155 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(35399L), BGl_string3425z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_c2z00_4161); 
FAILURE(BgL_auxz00_7155,BFALSE,BFALSE);} 
BgL_auxz00_7151 = 
CCHAR(BgL_tmpz00_7152); } 
{ /* Ieee/string.scm 771 */
 obj_t BgL_tmpz00_7143;
if(
CHARP(BgL_c1z00_4160))
{ /* Ieee/string.scm 771 */
BgL_tmpz00_7143 = BgL_c1z00_4160
; }  else 
{ 
 obj_t BgL_auxz00_7146;
BgL_auxz00_7146 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(35399L), BGl_string3425z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_c1z00_4160); 
FAILURE(BgL_auxz00_7146,BFALSE,BFALSE);} 
BgL_auxz00_7142 = 
CCHAR(BgL_tmpz00_7143); } 
if(
STRINGP(BgL_strz00_4159))
{ /* Ieee/string.scm 771 */
BgL_auxz00_7135 = BgL_strz00_4159
; }  else 
{ 
 obj_t BgL_auxz00_7138;
BgL_auxz00_7138 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(35399L), BGl_string3425z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_4159); 
FAILURE(BgL_auxz00_7138,BFALSE,BFALSE);} 
return 
BGl_stringzd2replacez12zc0zz__r4_strings_6_7z00(BgL_auxz00_7135, BgL_auxz00_7142, BgL_auxz00_7151);} } 

}



/* _string-delete */
obj_t BGl__stringzd2deletezd2zz__r4_strings_6_7z00(obj_t BgL_env1129z00_121, obj_t BgL_opt1128z00_120)
{
{ /* Ieee/string.scm 785 */
{ /* Ieee/string.scm 785 */
 obj_t BgL_stringz00_1262; obj_t BgL_g1130z00_1263;
BgL_stringz00_1262 = 
VECTOR_REF(BgL_opt1128z00_120,0L); 
BgL_g1130z00_1263 = 
VECTOR_REF(BgL_opt1128z00_120,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1128z00_120)) { case 2L : 

{ /* Ieee/string.scm 785 */
 long BgL_endz00_1267;
{ /* Ieee/string.scm 785 */
 obj_t BgL_stringz00_2944;
if(
STRINGP(BgL_stringz00_1262))
{ /* Ieee/string.scm 785 */
BgL_stringz00_2944 = BgL_stringz00_1262; }  else 
{ 
 obj_t BgL_auxz00_7165;
BgL_auxz00_7165 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(35922L), BGl_string3429z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_1262); 
FAILURE(BgL_auxz00_7165,BFALSE,BFALSE);} 
BgL_endz00_1267 = 
STRING_LENGTH(BgL_stringz00_2944); } 
{ /* Ieee/string.scm 785 */

{ /* Ieee/string.scm 785 */
 obj_t BgL_auxz00_7170;
if(
STRINGP(BgL_stringz00_1262))
{ /* Ieee/string.scm 785 */
BgL_auxz00_7170 = BgL_stringz00_1262
; }  else 
{ 
 obj_t BgL_auxz00_7173;
BgL_auxz00_7173 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(35851L), BGl_string3429z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_1262); 
FAILURE(BgL_auxz00_7173,BFALSE,BFALSE);} 
return 
BGl_stringzd2deletezd2zz__r4_strings_6_7z00(BgL_auxz00_7170, BgL_g1130z00_1263, 
(int)(0L), BgL_endz00_1267);} } } break;case 3L : 

{ /* Ieee/string.scm 785 */
 obj_t BgL_startz00_1268;
BgL_startz00_1268 = 
VECTOR_REF(BgL_opt1128z00_120,2L); 
{ /* Ieee/string.scm 785 */
 long BgL_endz00_1269;
{ /* Ieee/string.scm 785 */
 obj_t BgL_stringz00_2945;
if(
STRINGP(BgL_stringz00_1262))
{ /* Ieee/string.scm 785 */
BgL_stringz00_2945 = BgL_stringz00_1262; }  else 
{ 
 obj_t BgL_auxz00_7182;
BgL_auxz00_7182 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(35922L), BGl_string3429z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_1262); 
FAILURE(BgL_auxz00_7182,BFALSE,BFALSE);} 
BgL_endz00_1269 = 
STRING_LENGTH(BgL_stringz00_2945); } 
{ /* Ieee/string.scm 785 */

{ /* Ieee/string.scm 785 */
 int BgL_auxz00_7194; obj_t BgL_auxz00_7187;
{ /* Ieee/string.scm 785 */
 obj_t BgL_tmpz00_7195;
if(
INTEGERP(BgL_startz00_1268))
{ /* Ieee/string.scm 785 */
BgL_tmpz00_7195 = BgL_startz00_1268
; }  else 
{ 
 obj_t BgL_auxz00_7198;
BgL_auxz00_7198 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(35851L), BGl_string3429z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_1268); 
FAILURE(BgL_auxz00_7198,BFALSE,BFALSE);} 
BgL_auxz00_7194 = 
CINT(BgL_tmpz00_7195); } 
if(
STRINGP(BgL_stringz00_1262))
{ /* Ieee/string.scm 785 */
BgL_auxz00_7187 = BgL_stringz00_1262
; }  else 
{ 
 obj_t BgL_auxz00_7190;
BgL_auxz00_7190 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(35851L), BGl_string3429z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_1262); 
FAILURE(BgL_auxz00_7190,BFALSE,BFALSE);} 
return 
BGl_stringzd2deletezd2zz__r4_strings_6_7z00(BgL_auxz00_7187, BgL_g1130z00_1263, BgL_auxz00_7194, BgL_endz00_1269);} } } } break;case 4L : 

{ /* Ieee/string.scm 785 */
 obj_t BgL_startz00_1270;
BgL_startz00_1270 = 
VECTOR_REF(BgL_opt1128z00_120,2L); 
{ /* Ieee/string.scm 785 */
 obj_t BgL_endz00_1271;
BgL_endz00_1271 = 
VECTOR_REF(BgL_opt1128z00_120,3L); 
{ /* Ieee/string.scm 785 */

{ /* Ieee/string.scm 785 */
 long BgL_auxz00_7222; int BgL_auxz00_7213; obj_t BgL_auxz00_7206;
{ /* Ieee/string.scm 785 */
 obj_t BgL_tmpz00_7223;
if(
INTEGERP(BgL_endz00_1271))
{ /* Ieee/string.scm 785 */
BgL_tmpz00_7223 = BgL_endz00_1271
; }  else 
{ 
 obj_t BgL_auxz00_7226;
BgL_auxz00_7226 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(35851L), BGl_string3429z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_endz00_1271); 
FAILURE(BgL_auxz00_7226,BFALSE,BFALSE);} 
BgL_auxz00_7222 = 
(long)CINT(BgL_tmpz00_7223); } 
{ /* Ieee/string.scm 785 */
 obj_t BgL_tmpz00_7214;
if(
INTEGERP(BgL_startz00_1270))
{ /* Ieee/string.scm 785 */
BgL_tmpz00_7214 = BgL_startz00_1270
; }  else 
{ 
 obj_t BgL_auxz00_7217;
BgL_auxz00_7217 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(35851L), BGl_string3429z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_1270); 
FAILURE(BgL_auxz00_7217,BFALSE,BFALSE);} 
BgL_auxz00_7213 = 
CINT(BgL_tmpz00_7214); } 
if(
STRINGP(BgL_stringz00_1262))
{ /* Ieee/string.scm 785 */
BgL_auxz00_7206 = BgL_stringz00_1262
; }  else 
{ 
 obj_t BgL_auxz00_7209;
BgL_auxz00_7209 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(35851L), BGl_string3429z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_1262); 
FAILURE(BgL_auxz00_7209,BFALSE,BFALSE);} 
return 
BGl_stringzd2deletezd2zz__r4_strings_6_7z00(BgL_auxz00_7206, BgL_g1130z00_1263, BgL_auxz00_7213, BgL_auxz00_7222);} } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3426z00zz__r4_strings_6_7z00, BGl_string3428z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1128z00_120)));} } } } 

}



/* 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 785 */
{ 
 obj_t BgL_newz00_1320; obj_t BgL_predz00_1321; int BgL_startz00_1322; long BgL_endz00_1323; obj_t BgL_newz00_1304; obj_t BgL_lz00_1305; int BgL_startz00_1306; long BgL_endz00_1307; obj_t BgL_newz00_1288; obj_t BgL_cz00_1289; int BgL_startz00_1290; long BgL_endz00_1291;
if(
(
(long)(BgL_startz00_118)<0L))
{ /* Ieee/string.scm 825 */
 obj_t BgL_aux2879z00_4846;
BgL_aux2879z00_4846 = 
BGl_errorz00zz__errorz00(BGl_string3427z00zz__r4_strings_6_7z00, BGl_string3438z00zz__r4_strings_6_7z00, 
BINT(BgL_startz00_118)); 
if(
STRINGP(BgL_aux2879z00_4846))
{ /* Ieee/string.scm 825 */
return BgL_aux2879z00_4846;}  else 
{ 
 obj_t BgL_auxz00_7244;
BgL_auxz00_7244 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(36916L), BGl_string3427z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_aux2879z00_4846); 
FAILURE(BgL_auxz00_7244,BFALSE,BFALSE);} }  else 
{ /* Ieee/string.scm 824 */
if(
(BgL_endz00_119>
STRING_LENGTH(BgL_stringz00_116)))
{ /* Ieee/string.scm 827 */
 obj_t BgL_aux2881z00_4848;
BgL_aux2881z00_4848 = 
BGl_errorz00zz__errorz00(BGl_string3427z00zz__r4_strings_6_7z00, BGl_string3439z00zz__r4_strings_6_7z00, 
BINT(BgL_endz00_119)); 
if(
STRINGP(BgL_aux2881z00_4848))
{ /* Ieee/string.scm 827 */
return BgL_aux2881z00_4848;}  else 
{ 
 obj_t BgL_auxz00_7255;
BgL_auxz00_7255 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(37021L), BGl_string3427z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_aux2881z00_4848); 
FAILURE(BgL_auxz00_7255,BFALSE,BFALSE);} }  else 
{ /* Ieee/string.scm 826 */
if(
(BgL_endz00_119<
(long)(BgL_startz00_118)))
{ /* Ieee/string.scm 829 */
 obj_t BgL_arg1452z00_1280;
BgL_arg1452z00_1280 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_118), 
BINT(BgL_endz00_119)); 
{ /* Ieee/string.scm 829 */
 obj_t BgL_aux2883z00_4850;
BgL_aux2883z00_4850 = 
BGl_errorz00zz__errorz00(BGl_string3427z00zz__r4_strings_6_7z00, BGl_string3440z00zz__r4_strings_6_7z00, BgL_arg1452z00_1280); 
if(
STRINGP(BgL_aux2883z00_4850))
{ /* Ieee/string.scm 829 */
return BgL_aux2883z00_4850;}  else 
{ 
 obj_t BgL_auxz00_7268;
BgL_auxz00_7268 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(37105L), BGl_string3427z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_aux2883z00_4850); 
FAILURE(BgL_auxz00_7268,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 831 */
 obj_t BgL_newz00_1282;
BgL_newz00_1282 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_stringz00_116); 
{ /* Ieee/string.scm 832 */

if(
CHARP(BgL_objz00_117))
{ /* Ieee/string.scm 834 */
BgL_newz00_1288 = BgL_newz00_1282; 
BgL_cz00_1289 = BgL_objz00_117; 
BgL_startz00_1290 = BgL_startz00_118; 
BgL_endz00_1291 = BgL_endz00_119; 
{ 
 int BgL_iz00_1294; long BgL_jz00_1295;
BgL_iz00_1294 = BgL_startz00_1290; 
BgL_jz00_1295 = 0L; 
BgL_zc3z04anonymousza31459ze3z87_1296:
if(
(
(long)(BgL_iz00_1294)==BgL_endz00_1291))
{ /* Ieee/string.scm 790 */
return 
bgl_string_shrink(BgL_newz00_1288, BgL_jz00_1295);}  else 
{ /* Ieee/string.scm 792 */
 unsigned char BgL_ccz00_1298;
{ /* Ieee/string.scm 792 */
 long BgL_kz00_2951;
BgL_kz00_2951 = 
(long)(BgL_iz00_1294); 
{ /* Ieee/string.scm 327 */
 long BgL_l2333z00_4299;
BgL_l2333z00_4299 = 
STRING_LENGTH(BgL_stringz00_116); 
if(
BOUND_CHECK(BgL_kz00_2951, BgL_l2333z00_4299))
{ /* Ieee/string.scm 327 */
BgL_ccz00_1298 = 
STRING_REF(BgL_stringz00_116, BgL_kz00_2951); }  else 
{ 
 obj_t BgL_auxz00_7284;
BgL_auxz00_7284 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_116, 
(int)(BgL_l2333z00_4299), 
(int)(BgL_kz00_2951)); 
FAILURE(BgL_auxz00_7284,BFALSE,BFALSE);} } } 
if(
(BgL_ccz00_1298==
CCHAR(BgL_cz00_1289)))
{ /* Ieee/string.scm 794 */
 long BgL_arg1462z00_1300;
BgL_arg1462z00_1300 = 
(
(long)(BgL_iz00_1294)+1L); 
{ 
 int BgL_iz00_7295;
BgL_iz00_7295 = 
(int)(BgL_arg1462z00_1300); 
BgL_iz00_1294 = BgL_iz00_7295; 
goto BgL_zc3z04anonymousza31459ze3z87_1296;} }  else 
{ /* Ieee/string.scm 793 */
{ /* Ieee/string.scm 333 */
 long BgL_l2337z00_4303;
BgL_l2337z00_4303 = 
STRING_LENGTH(BgL_newz00_1288); 
if(
BOUND_CHECK(BgL_jz00_1295, BgL_l2337z00_4303))
{ /* Ieee/string.scm 333 */
STRING_SET(BgL_newz00_1288, BgL_jz00_1295, BgL_ccz00_1298); }  else 
{ 
 obj_t BgL_auxz00_7301;
BgL_auxz00_7301 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16409L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_newz00_1288, 
(int)(BgL_l2337z00_4303), 
(int)(BgL_jz00_1295)); 
FAILURE(BgL_auxz00_7301,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 797 */
 long BgL_arg1463z00_1301; long BgL_arg1464z00_1302;
BgL_arg1463z00_1301 = 
(
(long)(BgL_iz00_1294)+1L); 
BgL_arg1464z00_1302 = 
(BgL_jz00_1295+1L); 
{ 
 long BgL_jz00_7312; int BgL_iz00_7310;
BgL_iz00_7310 = 
(int)(BgL_arg1463z00_1301); 
BgL_jz00_7312 = BgL_arg1464z00_1302; 
BgL_jz00_1295 = BgL_jz00_7312; 
BgL_iz00_1294 = BgL_iz00_7310; 
goto BgL_zc3z04anonymousza31459ze3z87_1296;} } } } } }  else 
{ /* Ieee/string.scm 834 */
if(
STRINGP(BgL_objz00_117))
{ /* Ieee/string.scm 836 */
BgL_newz00_1304 = BgL_newz00_1282; 
BgL_lz00_1305 = 
BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(BgL_objz00_117); 
BgL_startz00_1306 = BgL_startz00_118; 
BgL_endz00_1307 = BgL_endz00_119; 
{ 
 int BgL_iz00_1310; long BgL_jz00_1311;
BgL_iz00_1310 = BgL_startz00_1306; 
BgL_jz00_1311 = 0L; 
BgL_zc3z04anonymousza31466ze3z87_1312:
if(
(
(long)(BgL_iz00_1310)==BgL_endz00_1307))
{ /* Ieee/string.scm 802 */
return 
bgl_string_shrink(BgL_newz00_1304, BgL_jz00_1311);}  else 
{ /* Ieee/string.scm 804 */
 unsigned char BgL_ccz00_1314;
{ /* Ieee/string.scm 804 */
 long BgL_kz00_2965;
BgL_kz00_2965 = 
(long)(BgL_iz00_1310); 
{ /* Ieee/string.scm 327 */
 long BgL_l2341z00_4307;
BgL_l2341z00_4307 = 
STRING_LENGTH(BgL_stringz00_116); 
if(
BOUND_CHECK(BgL_kz00_2965, BgL_l2341z00_4307))
{ /* Ieee/string.scm 327 */
BgL_ccz00_1314 = 
STRING_REF(BgL_stringz00_116, BgL_kz00_2965); }  else 
{ 
 obj_t BgL_auxz00_7324;
BgL_auxz00_7324 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_116, 
(int)(BgL_l2341z00_4307), 
(int)(BgL_kz00_2965)); 
FAILURE(BgL_auxz00_7324,BFALSE,BFALSE);} } } 
if(
CBOOL(
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(
BCHAR(BgL_ccz00_1314), BgL_lz00_1305)))
{ /* Ieee/string.scm 806 */
 long BgL_arg1469z00_1316;
BgL_arg1469z00_1316 = 
(
(long)(BgL_iz00_1310)+1L); 
{ 
 int BgL_iz00_7336;
BgL_iz00_7336 = 
(int)(BgL_arg1469z00_1316); 
BgL_iz00_1310 = BgL_iz00_7336; 
goto BgL_zc3z04anonymousza31466ze3z87_1312;} }  else 
{ /* Ieee/string.scm 805 */
{ /* Ieee/string.scm 333 */
 long BgL_l2345z00_4311;
BgL_l2345z00_4311 = 
STRING_LENGTH(BgL_newz00_1304); 
if(
BOUND_CHECK(BgL_jz00_1311, BgL_l2345z00_4311))
{ /* Ieee/string.scm 333 */
STRING_SET(BgL_newz00_1304, BgL_jz00_1311, BgL_ccz00_1314); }  else 
{ 
 obj_t BgL_auxz00_7342;
BgL_auxz00_7342 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16409L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_newz00_1304, 
(int)(BgL_l2345z00_4311), 
(int)(BgL_jz00_1311)); 
FAILURE(BgL_auxz00_7342,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 809 */
 long BgL_arg1471z00_1317; long BgL_arg1472z00_1318;
BgL_arg1471z00_1317 = 
(
(long)(BgL_iz00_1310)+1L); 
BgL_arg1472z00_1318 = 
(BgL_jz00_1311+1L); 
{ 
 long BgL_jz00_7353; int BgL_iz00_7351;
BgL_iz00_7351 = 
(int)(BgL_arg1471z00_1317); 
BgL_jz00_7353 = BgL_arg1472z00_1318; 
BgL_jz00_1311 = BgL_jz00_7353; 
BgL_iz00_1310 = BgL_iz00_7351; 
goto BgL_zc3z04anonymousza31466ze3z87_1312;} } } } } }  else 
{ /* Ieee/string.scm 836 */
if(
PROCEDUREP(BgL_objz00_117))
{ /* Ieee/string.scm 838 */
BgL_newz00_1320 = BgL_newz00_1282; 
BgL_predz00_1321 = BgL_objz00_117; 
BgL_startz00_1322 = BgL_startz00_118; 
BgL_endz00_1323 = BgL_endz00_119; 
{ 
 int BgL_iz00_1326; long BgL_jz00_1327;
BgL_iz00_1326 = BgL_startz00_1322; 
BgL_jz00_1327 = 0L; 
BgL_zc3z04anonymousza31474ze3z87_1328:
if(
(
(long)(BgL_iz00_1326)==BgL_endz00_1323))
{ /* Ieee/string.scm 814 */
return 
bgl_string_shrink(BgL_newz00_1320, BgL_jz00_1327);}  else 
{ /* Ieee/string.scm 816 */
 unsigned char BgL_ccz00_1330;
{ /* Ieee/string.scm 816 */
 long BgL_kz00_2977;
BgL_kz00_2977 = 
(long)(BgL_iz00_1326); 
{ /* Ieee/string.scm 327 */
 long BgL_l2349z00_4315;
BgL_l2349z00_4315 = 
STRING_LENGTH(BgL_stringz00_116); 
if(
BOUND_CHECK(BgL_kz00_2977, BgL_l2349z00_4315))
{ /* Ieee/string.scm 327 */
BgL_ccz00_1330 = 
STRING_REF(BgL_stringz00_116, BgL_kz00_2977); }  else 
{ 
 obj_t BgL_auxz00_7366;
BgL_auxz00_7366 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_116, 
(int)(BgL_l2349z00_4315), 
(int)(BgL_kz00_2977)); 
FAILURE(BgL_auxz00_7366,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 817 */
 bool_t BgL_test4013z00_7372;
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_1321, 1L))
{ /* Ieee/string.scm 817 */
BgL_test4013z00_7372 = 
CBOOL(
(VA_PROCEDUREP( BgL_predz00_1321 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_predz00_1321))(BgL_predz00_1321, 
BCHAR(BgL_ccz00_1330), BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_predz00_1321))(BgL_predz00_1321, 
BCHAR(BgL_ccz00_1330)) ))
; }  else 
{ /* Ieee/string.scm 817 */
FAILURE(BGl_string3430z00zz__r4_strings_6_7z00,BGl_list3431z00zz__r4_strings_6_7z00,BgL_predz00_1321);} 
if(BgL_test4013z00_7372)
{ /* Ieee/string.scm 818 */
 long BgL_arg1477z00_1332;
BgL_arg1477z00_1332 = 
(
(long)(BgL_iz00_1326)+1L); 
{ 
 int BgL_iz00_7384;
BgL_iz00_7384 = 
(int)(BgL_arg1477z00_1332); 
BgL_iz00_1326 = BgL_iz00_7384; 
goto BgL_zc3z04anonymousza31474ze3z87_1328;} }  else 
{ /* Ieee/string.scm 817 */
{ /* Ieee/string.scm 333 */
 long BgL_l2353z00_4319;
BgL_l2353z00_4319 = 
STRING_LENGTH(BgL_newz00_1320); 
if(
BOUND_CHECK(BgL_jz00_1327, BgL_l2353z00_4319))
{ /* Ieee/string.scm 333 */
STRING_SET(BgL_newz00_1320, BgL_jz00_1327, BgL_ccz00_1330); }  else 
{ 
 obj_t BgL_auxz00_7390;
BgL_auxz00_7390 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16409L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_newz00_1320, 
(int)(BgL_l2353z00_4319), 
(int)(BgL_jz00_1327)); 
FAILURE(BgL_auxz00_7390,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 821 */
 long BgL_arg1478z00_1333; long BgL_arg1479z00_1334;
BgL_arg1478z00_1333 = 
(
(long)(BgL_iz00_1326)+1L); 
BgL_arg1479z00_1334 = 
(BgL_jz00_1327+1L); 
{ 
 long BgL_jz00_7401; int BgL_iz00_7399;
BgL_iz00_7399 = 
(int)(BgL_arg1478z00_1333); 
BgL_jz00_7401 = BgL_arg1479z00_1334; 
BgL_jz00_1327 = BgL_jz00_7401; 
BgL_iz00_1326 = BgL_iz00_7399; 
goto BgL_zc3z04anonymousza31474ze3z87_1328;} } } } } } }  else 
{ /* Ieee/string.scm 841 */
 obj_t BgL_aux2885z00_4852;
BgL_aux2885z00_4852 = 
BGl_errorz00zz__errorz00(BGl_string3427z00zz__r4_strings_6_7z00, BGl_string3441z00zz__r4_strings_6_7z00, BgL_objz00_117); 
if(
STRINGP(BgL_aux2885z00_4852))
{ /* Ieee/string.scm 841 */
return BgL_aux2885z00_4852;}  else 
{ 
 obj_t BgL_auxz00_7405;
BgL_auxz00_7405 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(37503L), BGl_string3427z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_aux2885z00_4852); 
FAILURE(BgL_auxz00_7405,BFALSE,BFALSE);} } } } } } } } } } 

}



/* delim? */
bool_t BGl_delimzf3zf3zz__r4_strings_6_7z00(obj_t BgL_delimsz00_122, unsigned char BgL_charz00_123)
{
{ /* Ieee/string.scm 846 */
{ /* Ieee/string.scm 847 */
 long BgL_lenz00_1339;
{ /* Ieee/string.scm 847 */
 obj_t BgL_stringz00_2992;
if(
STRINGP(BgL_delimsz00_122))
{ /* Ieee/string.scm 847 */
BgL_stringz00_2992 = BgL_delimsz00_122; }  else 
{ 
 obj_t BgL_auxz00_7411;
BgL_auxz00_7411 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(37836L), BGl_string3442z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_delimsz00_122); 
FAILURE(BgL_auxz00_7411,BFALSE,BFALSE);} 
BgL_lenz00_1339 = 
STRING_LENGTH(BgL_stringz00_2992); } 
{ 
 long BgL_iz00_1341;
BgL_iz00_1341 = 0L; 
BgL_zc3z04anonymousza31480ze3z87_1342:
if(
(BgL_iz00_1341==BgL_lenz00_1339))
{ /* Ieee/string.scm 850 */
return ((bool_t)0);}  else 
{ /* Ieee/string.scm 852 */
 bool_t BgL_test4019z00_7418;
{ /* Ieee/string.scm 852 */
 unsigned char BgL_tmpz00_7419;
{ /* Ieee/string.scm 852 */
 obj_t BgL_stringz00_2995;
if(
STRINGP(BgL_delimsz00_122))
{ /* Ieee/string.scm 852 */
BgL_stringz00_2995 = BgL_delimsz00_122; }  else 
{ 
 obj_t BgL_auxz00_7422;
BgL_auxz00_7422 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(37955L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_delimsz00_122); 
FAILURE(BgL_auxz00_7422,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 339 */
 long BgL_l2357z00_4323;
BgL_l2357z00_4323 = 
STRING_LENGTH(BgL_stringz00_2995); 
if(
BOUND_CHECK(BgL_iz00_1341, BgL_l2357z00_4323))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_7419 = 
STRING_REF(BgL_stringz00_2995, BgL_iz00_1341)
; }  else 
{ 
 obj_t BgL_auxz00_7430;
BgL_auxz00_7430 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_2995, 
(int)(BgL_l2357z00_4323), 
(int)(BgL_iz00_1341)); 
FAILURE(BgL_auxz00_7430,BFALSE,BFALSE);} } } 
BgL_test4019z00_7418 = 
(BgL_charz00_123==BgL_tmpz00_7419); } 
if(BgL_test4019z00_7418)
{ /* Ieee/string.scm 852 */
return ((bool_t)1);}  else 
{ 
 long BgL_iz00_7437;
BgL_iz00_7437 = 
(BgL_iz00_1341+1L); 
BgL_iz00_1341 = BgL_iz00_7437; 
goto BgL_zc3z04anonymousza31480ze3z87_1342;} } } } } 

}



/* 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 884 */
{ /* Ieee/string.scm 885 */
 obj_t BgL_dz00_1359;
if(
PAIRP(BgL_delimitersz00_133))
{ /* Ieee/string.scm 885 */
BgL_dz00_1359 = 
CAR(BgL_delimitersz00_133); }  else 
{ /* Ieee/string.scm 885 */
BgL_dz00_1359 = BGl_string3443z00zz__r4_strings_6_7z00; } 
{ /* Ieee/string.scm 885 */
 long BgL_lenz00_1360;
BgL_lenz00_1360 = 
STRING_LENGTH(BgL_stringz00_132); 
{ /* Ieee/string.scm 888 */
 long BgL_iz00_1361;
{ 
 long BgL_iz00_3039;
BgL_iz00_3039 = 0L; 
BgL_skipzd2separatorzd2_3038:
if(
(BgL_iz00_3039==BgL_lenz00_1360))
{ /* Ieee/string.scm 862 */
BgL_iz00_1361 = BgL_lenz00_1360; }  else 
{ /* Ieee/string.scm 864 */
 bool_t BgL_test4024z00_7445;
{ /* Ieee/string.scm 864 */
 unsigned char BgL_auxz00_7446;
{ /* Ieee/string.scm 339 */
 long BgL_l2361z00_4327;
BgL_l2361z00_4327 = 
STRING_LENGTH(BgL_stringz00_132); 
if(
BOUND_CHECK(BgL_iz00_3039, BgL_l2361z00_4327))
{ /* Ieee/string.scm 339 */
BgL_auxz00_7446 = 
STRING_REF(BgL_stringz00_132, BgL_iz00_3039)
; }  else 
{ 
 obj_t BgL_auxz00_7451;
BgL_auxz00_7451 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_132, 
(int)(BgL_l2361z00_4327), 
(int)(BgL_iz00_3039)); 
FAILURE(BgL_auxz00_7451,BFALSE,BFALSE);} } 
BgL_test4024z00_7445 = 
BGl_delimzf3zf3zz__r4_strings_6_7z00(BgL_dz00_1359, BgL_auxz00_7446); } 
if(BgL_test4024z00_7445)
{ 
 long BgL_iz00_7458;
BgL_iz00_7458 = 
(BgL_iz00_3039+1L); 
BgL_iz00_3039 = BgL_iz00_7458; 
goto BgL_skipzd2separatorzd2_3038;}  else 
{ /* Ieee/string.scm 864 */
BgL_iz00_1361 = BgL_iz00_3039; } } } 
{ /* Ieee/string.scm 889 */

{ 
 long BgL_iz00_1364; obj_t BgL_resz00_1365;
BgL_iz00_1364 = BgL_iz00_1361; 
BgL_resz00_1365 = BNIL; 
BgL_zc3z04anonymousza31498ze3z87_1366:
if(
(BgL_iz00_1364==BgL_lenz00_1360))
{ /* Ieee/string.scm 892 */
return 
bgl_reverse_bang(BgL_resz00_1365);}  else 
{ /* Ieee/string.scm 894 */
 long BgL_ez00_1368;
{ /* Ieee/string.scm 894 */
 long BgL_arg1504z00_1374;
BgL_arg1504z00_1374 = 
(BgL_iz00_1364+1L); 
{ 
 long BgL_iz00_3053;
BgL_iz00_3053 = BgL_arg1504z00_1374; 
BgL_skipzd2nonzd2separatorz00_3052:
if(
(BgL_iz00_3053==BgL_lenz00_1360))
{ /* Ieee/string.scm 874 */
BgL_ez00_1368 = BgL_lenz00_1360; }  else 
{ /* Ieee/string.scm 876 */
 bool_t BgL_test4028z00_7466;
{ /* Ieee/string.scm 876 */
 unsigned char BgL_auxz00_7467;
{ /* Ieee/string.scm 339 */
 long BgL_l2365z00_4331;
BgL_l2365z00_4331 = 
STRING_LENGTH(BgL_stringz00_132); 
if(
BOUND_CHECK(BgL_iz00_3053, BgL_l2365z00_4331))
{ /* Ieee/string.scm 339 */
BgL_auxz00_7467 = 
STRING_REF(BgL_stringz00_132, BgL_iz00_3053)
; }  else 
{ 
 obj_t BgL_auxz00_7472;
BgL_auxz00_7472 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_132, 
(int)(BgL_l2365z00_4331), 
(int)(BgL_iz00_3053)); 
FAILURE(BgL_auxz00_7472,BFALSE,BFALSE);} } 
BgL_test4028z00_7466 = 
BGl_delimzf3zf3zz__r4_strings_6_7z00(BgL_dz00_1359, BgL_auxz00_7467); } 
if(BgL_test4028z00_7466)
{ /* Ieee/string.scm 876 */
BgL_ez00_1368 = BgL_iz00_3053; }  else 
{ 
 long BgL_iz00_7479;
BgL_iz00_7479 = 
(BgL_iz00_3053+1L); 
BgL_iz00_3053 = BgL_iz00_7479; 
goto BgL_skipzd2nonzd2separatorz00_3052;} } } } 
{ /* Ieee/string.scm 894 */
 obj_t BgL_nresz00_1369;
BgL_nresz00_1369 = 
MAKE_YOUNG_PAIR(
BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_132, BgL_iz00_1364, BgL_ez00_1368), BgL_resz00_1365); 
{ /* Ieee/string.scm 895 */

if(
(BgL_ez00_1368==BgL_lenz00_1360))
{ /* Ieee/string.scm 896 */
return 
bgl_reverse_bang(BgL_nresz00_1369);}  else 
{ /* Ieee/string.scm 898 */
 long BgL_arg1501z00_1371;
{ /* Ieee/string.scm 898 */
 long BgL_arg1502z00_1372;
BgL_arg1502z00_1372 = 
(BgL_ez00_1368+1L); 
{ 
 long BgL_iz00_3067;
BgL_iz00_3067 = BgL_arg1502z00_1372; 
BgL_skipzd2separatorzd2_3066:
if(
(BgL_iz00_3067==BgL_lenz00_1360))
{ /* Ieee/string.scm 862 */
BgL_arg1501z00_1371 = BgL_lenz00_1360; }  else 
{ /* Ieee/string.scm 864 */
 bool_t BgL_test4032z00_7489;
{ /* Ieee/string.scm 864 */
 unsigned char BgL_auxz00_7490;
{ /* Ieee/string.scm 339 */
 long BgL_l2369z00_4335;
BgL_l2369z00_4335 = 
STRING_LENGTH(BgL_stringz00_132); 
if(
BOUND_CHECK(BgL_iz00_3067, BgL_l2369z00_4335))
{ /* Ieee/string.scm 339 */
BgL_auxz00_7490 = 
STRING_REF(BgL_stringz00_132, BgL_iz00_3067)
; }  else 
{ 
 obj_t BgL_auxz00_7495;
BgL_auxz00_7495 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_132, 
(int)(BgL_l2369z00_4335), 
(int)(BgL_iz00_3067)); 
FAILURE(BgL_auxz00_7495,BFALSE,BFALSE);} } 
BgL_test4032z00_7489 = 
BGl_delimzf3zf3zz__r4_strings_6_7z00(BgL_dz00_1359, BgL_auxz00_7490); } 
if(BgL_test4032z00_7489)
{ 
 long BgL_iz00_7502;
BgL_iz00_7502 = 
(BgL_iz00_3067+1L); 
BgL_iz00_3067 = BgL_iz00_7502; 
goto BgL_skipzd2separatorzd2_3066;}  else 
{ /* Ieee/string.scm 864 */
BgL_arg1501z00_1371 = BgL_iz00_3067; } } } } 
{ 
 obj_t BgL_resz00_7505; long BgL_iz00_7504;
BgL_iz00_7504 = BgL_arg1501z00_1371; 
BgL_resz00_7505 = BgL_nresz00_1369; 
BgL_resz00_1365 = BgL_resz00_7505; 
BgL_iz00_1364 = BgL_iz00_7504; 
goto BgL_zc3z04anonymousza31498ze3z87_1366;} } } } } } } } } } } 

}



/* &string-split */
obj_t BGl_z62stringzd2splitzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4162, obj_t BgL_stringz00_4163, obj_t BgL_delimitersz00_4164)
{
{ /* Ieee/string.scm 884 */
{ /* Ieee/string.scm 885 */
 obj_t BgL_auxz00_7506;
if(
STRINGP(BgL_stringz00_4163))
{ /* Ieee/string.scm 885 */
BgL_auxz00_7506 = BgL_stringz00_4163
; }  else 
{ 
 obj_t BgL_auxz00_7509;
BgL_auxz00_7509 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(39158L), BGl_string3444z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4163); 
FAILURE(BgL_auxz00_7509,BFALSE,BFALSE);} 
return 
BGl_stringzd2splitzd2zz__r4_strings_6_7z00(BgL_auxz00_7506, BgL_delimitersz00_4164);} } 

}



/* 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 904 */
{ /* Ieee/string.scm 905 */
 obj_t BgL_dz00_1377;
if(
PAIRP(BgL_delimitersz00_135))
{ /* Ieee/string.scm 905 */
BgL_dz00_1377 = 
CAR(BgL_delimitersz00_135); }  else 
{ /* Ieee/string.scm 905 */
BgL_dz00_1377 = BGl_string3443z00zz__r4_strings_6_7z00; } 
{ /* Ieee/string.scm 905 */
 long BgL_lenz00_1378;
BgL_lenz00_1378 = 
STRING_LENGTH(BgL_stringz00_134); 
{ /* Ieee/string.scm 908 */

{ 
 long BgL_iz00_1381; obj_t BgL_resz00_1382;
BgL_iz00_1381 = 0L; 
BgL_resz00_1382 = BNIL; 
BgL_zc3z04anonymousza31506ze3z87_1383:
if(
(BgL_iz00_1381>=BgL_lenz00_1378))
{ /* Ieee/string.scm 912 */
 obj_t BgL_arg1508z00_1385;
BgL_arg1508z00_1385 = 
MAKE_YOUNG_PAIR(BGl_string3399z00zz__r4_strings_6_7z00, BgL_resz00_1382); 
return 
bgl_reverse_bang(BgL_arg1508z00_1385);}  else 
{ /* Ieee/string.scm 913 */
 long BgL_ez00_1386;
{ 
 long BgL_iz00_3082;
BgL_iz00_3082 = BgL_iz00_1381; 
BgL_skipzd2nonzd2separatorz00_3081:
if(
(BgL_iz00_3082==BgL_lenz00_1378))
{ /* Ieee/string.scm 874 */
BgL_ez00_1386 = BgL_lenz00_1378; }  else 
{ /* Ieee/string.scm 876 */
 bool_t BgL_test4038z00_7524;
{ /* Ieee/string.scm 876 */
 unsigned char BgL_auxz00_7525;
{ /* Ieee/string.scm 339 */
 long BgL_l2373z00_4339;
BgL_l2373z00_4339 = 
STRING_LENGTH(BgL_stringz00_134); 
if(
BOUND_CHECK(BgL_iz00_3082, BgL_l2373z00_4339))
{ /* Ieee/string.scm 339 */
BgL_auxz00_7525 = 
STRING_REF(BgL_stringz00_134, BgL_iz00_3082)
; }  else 
{ 
 obj_t BgL_auxz00_7530;
BgL_auxz00_7530 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_134, 
(int)(BgL_l2373z00_4339), 
(int)(BgL_iz00_3082)); 
FAILURE(BgL_auxz00_7530,BFALSE,BFALSE);} } 
BgL_test4038z00_7524 = 
BGl_delimzf3zf3zz__r4_strings_6_7z00(BgL_dz00_1377, BgL_auxz00_7525); } 
if(BgL_test4038z00_7524)
{ /* Ieee/string.scm 876 */
BgL_ez00_1386 = BgL_iz00_3082; }  else 
{ 
 long BgL_iz00_7537;
BgL_iz00_7537 = 
(BgL_iz00_3082+1L); 
BgL_iz00_3082 = BgL_iz00_7537; 
goto BgL_skipzd2nonzd2separatorz00_3081;} } } 
{ /* Ieee/string.scm 913 */
 obj_t BgL_sz00_1387;
BgL_sz00_1387 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_134, BgL_iz00_1381, BgL_ez00_1386); 
{ /* Ieee/string.scm 914 */
 obj_t BgL_nrz00_1388;
BgL_nrz00_1388 = 
MAKE_YOUNG_PAIR(BgL_sz00_1387, BgL_resz00_1382); 
{ /* Ieee/string.scm 915 */

if(
(BgL_ez00_1386==BgL_lenz00_1378))
{ /* Ieee/string.scm 916 */
return 
bgl_reverse_bang(BgL_nrz00_1388);}  else 
{ 
 obj_t BgL_resz00_7546; long BgL_iz00_7544;
BgL_iz00_7544 = 
(BgL_ez00_1386+1L); 
BgL_resz00_7546 = BgL_nrz00_1388; 
BgL_resz00_1382 = BgL_resz00_7546; 
BgL_iz00_1381 = BgL_iz00_7544; 
goto BgL_zc3z04anonymousza31506ze3z87_1383;} } } } } } } } } } 

}



/* &string-cut */
obj_t BGl_z62stringzd2cutzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4165, obj_t BgL_stringz00_4166, obj_t BgL_delimitersz00_4167)
{
{ /* Ieee/string.scm 904 */
{ /* Ieee/string.scm 905 */
 obj_t BgL_auxz00_7547;
if(
STRINGP(BgL_stringz00_4166))
{ /* Ieee/string.scm 905 */
BgL_auxz00_7547 = BgL_stringz00_4166
; }  else 
{ 
 obj_t BgL_auxz00_7550;
BgL_auxz00_7550 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(39857L), BGl_string3445z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4166); 
FAILURE(BgL_auxz00_7550,BFALSE,BFALSE);} 
return 
BGl_stringzd2cutzd2zz__r4_strings_6_7z00(BgL_auxz00_7547, BgL_delimitersz00_4167);} } 

}



/* 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 923 */
{ /* Ieee/string.scm 926 */
 char * BgL_s0z00_3095;
BgL_s0z00_3095 = 
BSTRING_TO_STRING(BgL_stringz00_136); 
{ /* Ieee/string.scm 926 */
 char * BgL_s1z00_3096;
{ /* Ieee/string.scm 927 */
 int BgL_tmpz00_7556;
BgL_tmpz00_7556 = 
(int)(
(
(unsigned char)(BgL_charz00_137))); 
BgL_s1z00_3096 = 
BGL_MEMCHR(BgL_s0z00_3095, BgL_tmpz00_7556, BgL_nz00_139, BgL_startz00_138); } 
{ /* Ieee/string.scm 927 */

if(
BGL_MEMCHR_ZERO(BgL_s1z00_3096))
{ /* Ieee/string.scm 928 */
return BFALSE;}  else 
{ /* Ieee/string.scm 928 */
return 
BINT(
BGL_MEMCHR_DIFF(BgL_s1z00_3096, BgL_s0z00_3095));} } } } } 

}



/* &string-char-index-ur */
obj_t BGl_z62stringzd2charzd2indexzd2urzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4168, obj_t BgL_stringz00_4169, obj_t BgL_charz00_4170, obj_t BgL_startz00_4171, obj_t BgL_nz00_4172)
{
{ /* Ieee/string.scm 923 */
{ /* Ieee/string.scm 926 */
 long BgL_auxz00_7590; long BgL_auxz00_7581; unsigned char BgL_auxz00_7572; obj_t BgL_auxz00_7565;
{ /* Ieee/string.scm 926 */
 obj_t BgL_tmpz00_7591;
if(
INTEGERP(BgL_nz00_4172))
{ /* Ieee/string.scm 926 */
BgL_tmpz00_7591 = BgL_nz00_4172
; }  else 
{ 
 obj_t BgL_auxz00_7594;
BgL_auxz00_7594 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(40549L), BGl_string3446z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_nz00_4172); 
FAILURE(BgL_auxz00_7594,BFALSE,BFALSE);} 
BgL_auxz00_7590 = 
(long)CINT(BgL_tmpz00_7591); } 
{ /* Ieee/string.scm 926 */
 obj_t BgL_tmpz00_7582;
if(
INTEGERP(BgL_startz00_4171))
{ /* Ieee/string.scm 926 */
BgL_tmpz00_7582 = BgL_startz00_4171
; }  else 
{ 
 obj_t BgL_auxz00_7585;
BgL_auxz00_7585 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(40549L), BGl_string3446z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_4171); 
FAILURE(BgL_auxz00_7585,BFALSE,BFALSE);} 
BgL_auxz00_7581 = 
(long)CINT(BgL_tmpz00_7582); } 
{ /* Ieee/string.scm 926 */
 obj_t BgL_tmpz00_7573;
if(
CHARP(BgL_charz00_4170))
{ /* Ieee/string.scm 926 */
BgL_tmpz00_7573 = BgL_charz00_4170
; }  else 
{ 
 obj_t BgL_auxz00_7576;
BgL_auxz00_7576 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(40549L), BGl_string3446z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_charz00_4170); 
FAILURE(BgL_auxz00_7576,BFALSE,BFALSE);} 
BgL_auxz00_7572 = 
CCHAR(BgL_tmpz00_7573); } 
if(
STRINGP(BgL_stringz00_4169))
{ /* Ieee/string.scm 926 */
BgL_auxz00_7565 = BgL_stringz00_4169
; }  else 
{ 
 obj_t BgL_auxz00_7568;
BgL_auxz00_7568 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(40549L), BGl_string3446z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_stringz00_4169); 
FAILURE(BgL_auxz00_7568,BFALSE,BFALSE);} 
return 
BGl_stringzd2charzd2indexzd2urzd2zz__r4_strings_6_7z00(BgL_auxz00_7565, BgL_auxz00_7572, BgL_auxz00_7581, BgL_auxz00_7590);} } 

}



/* _string-char-index */
obj_t BGl__stringzd2charzd2indexz00zz__r4_strings_6_7z00(obj_t BgL_env1134z00_145, obj_t BgL_opt1133z00_144)
{
{ /* Ieee/string.scm 944 */
{ /* Ieee/string.scm 944 */
 obj_t BgL_g1135z00_1397; obj_t BgL_g1136z00_1398;
BgL_g1135z00_1397 = 
VECTOR_REF(BgL_opt1133z00_144,0L); 
BgL_g1136z00_1398 = 
VECTOR_REF(BgL_opt1133z00_144,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1133z00_144)) { case 2L : 

{ /* Ieee/string.scm 944 */

{ /* Ieee/string.scm 944 */
 unsigned char BgL_auxz00_7609; obj_t BgL_auxz00_7602;
{ /* Ieee/string.scm 944 */
 obj_t BgL_tmpz00_7610;
if(
CHARP(BgL_g1136z00_1398))
{ /* Ieee/string.scm 944 */
BgL_tmpz00_7610 = BgL_g1136z00_1398
; }  else 
{ 
 obj_t BgL_auxz00_7613;
BgL_auxz00_7613 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41111L), BGl_string3449z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_g1136z00_1398); 
FAILURE(BgL_auxz00_7613,BFALSE,BFALSE);} 
BgL_auxz00_7609 = 
CCHAR(BgL_tmpz00_7610); } 
if(
STRINGP(BgL_g1135z00_1397))
{ /* Ieee/string.scm 944 */
BgL_auxz00_7602 = BgL_g1135z00_1397
; }  else 
{ 
 obj_t BgL_auxz00_7605;
BgL_auxz00_7605 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41111L), BGl_string3449z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1135z00_1397); 
FAILURE(BgL_auxz00_7605,BFALSE,BFALSE);} 
return 
BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(BgL_auxz00_7602, BgL_auxz00_7609, 
BINT(0L), 
BINT(-1L));} } break;case 3L : 

{ /* Ieee/string.scm 944 */
 obj_t BgL_startz00_1403;
BgL_startz00_1403 = 
VECTOR_REF(BgL_opt1133z00_144,2L); 
{ /* Ieee/string.scm 944 */

{ /* Ieee/string.scm 944 */
 unsigned char BgL_auxz00_7629; obj_t BgL_auxz00_7622;
{ /* Ieee/string.scm 944 */
 obj_t BgL_tmpz00_7630;
if(
CHARP(BgL_g1136z00_1398))
{ /* Ieee/string.scm 944 */
BgL_tmpz00_7630 = BgL_g1136z00_1398
; }  else 
{ 
 obj_t BgL_auxz00_7633;
BgL_auxz00_7633 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41111L), BGl_string3449z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_g1136z00_1398); 
FAILURE(BgL_auxz00_7633,BFALSE,BFALSE);} 
BgL_auxz00_7629 = 
CCHAR(BgL_tmpz00_7630); } 
if(
STRINGP(BgL_g1135z00_1397))
{ /* Ieee/string.scm 944 */
BgL_auxz00_7622 = BgL_g1135z00_1397
; }  else 
{ 
 obj_t BgL_auxz00_7625;
BgL_auxz00_7625 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41111L), BGl_string3449z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1135z00_1397); 
FAILURE(BgL_auxz00_7625,BFALSE,BFALSE);} 
return 
BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(BgL_auxz00_7622, BgL_auxz00_7629, BgL_startz00_1403, 
BINT(-1L));} } } break;case 4L : 

{ /* Ieee/string.scm 944 */
 obj_t BgL_startz00_1405;
BgL_startz00_1405 = 
VECTOR_REF(BgL_opt1133z00_144,2L); 
{ /* Ieee/string.scm 944 */
 obj_t BgL_countz00_1406;
BgL_countz00_1406 = 
VECTOR_REF(BgL_opt1133z00_144,3L); 
{ /* Ieee/string.scm 944 */

{ /* Ieee/string.scm 944 */
 unsigned char BgL_auxz00_7649; obj_t BgL_auxz00_7642;
{ /* Ieee/string.scm 944 */
 obj_t BgL_tmpz00_7650;
if(
CHARP(BgL_g1136z00_1398))
{ /* Ieee/string.scm 944 */
BgL_tmpz00_7650 = BgL_g1136z00_1398
; }  else 
{ 
 obj_t BgL_auxz00_7653;
BgL_auxz00_7653 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41111L), BGl_string3449z00zz__r4_strings_6_7z00, BGl_string3354z00zz__r4_strings_6_7z00, BgL_g1136z00_1398); 
FAILURE(BgL_auxz00_7653,BFALSE,BFALSE);} 
BgL_auxz00_7649 = 
CCHAR(BgL_tmpz00_7650); } 
if(
STRINGP(BgL_g1135z00_1397))
{ /* Ieee/string.scm 944 */
BgL_auxz00_7642 = BgL_g1135z00_1397
; }  else 
{ 
 obj_t BgL_auxz00_7645;
BgL_auxz00_7645 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41111L), BGl_string3449z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1135z00_1397); 
FAILURE(BgL_auxz00_7645,BFALSE,BFALSE);} 
return 
BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(BgL_auxz00_7642, BgL_auxz00_7649, BgL_startz00_1405, BgL_countz00_1406);} } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3447z00zz__r4_strings_6_7z00, BGl_string3428z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1133z00_144)));} } } } 

}



/* 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 944 */
{ /* Ieee/string.scm 945 */
 long BgL_lenz00_1408;
BgL_lenz00_1408 = 
STRING_LENGTH(BgL_stringz00_140); 
{ /* Ieee/string.scm 946 */

{ /* Ieee/string.scm 950 */
 bool_t BgL_test4053z00_7665;
{ /* Ieee/string.scm 950 */
 long BgL_n2z00_3109;
{ /* Ieee/string.scm 950 */
 obj_t BgL_tmpz00_7666;
if(
INTEGERP(BgL_startz00_142))
{ /* Ieee/string.scm 950 */
BgL_tmpz00_7666 = BgL_startz00_142
; }  else 
{ 
 obj_t BgL_auxz00_7669;
BgL_auxz00_7669 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41359L), BGl_string3448z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_142); 
FAILURE(BgL_auxz00_7669,BFALSE,BFALSE);} 
BgL_n2z00_3109 = 
(long)CINT(BgL_tmpz00_7666); } 
BgL_test4053z00_7665 = 
(BgL_lenz00_1408>BgL_n2z00_3109); } 
if(BgL_test4053z00_7665)
{ /* Ieee/string.scm 951 */
 long BgL_startz00_3112; long BgL_nz00_3113;
{ /* Ieee/string.scm 951 */
 obj_t BgL_tmpz00_7675;
if(
INTEGERP(BgL_startz00_142))
{ /* Ieee/string.scm 951 */
BgL_tmpz00_7675 = BgL_startz00_142
; }  else 
{ 
 obj_t BgL_auxz00_7678;
BgL_auxz00_7678 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41402L), BGl_string3448z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_142); 
FAILURE(BgL_auxz00_7678,BFALSE,BFALSE);} 
BgL_startz00_3112 = 
(long)CINT(BgL_tmpz00_7675); } 
{ /* Ieee/string.scm 946 */
 bool_t BgL_test4056z00_7683;
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_countz00_143))
{ /* Ieee/string.scm 947 */
 bool_t BgL_test4058z00_7686;
{ /* Ieee/string.scm 947 */
 long BgL_n1z00_3101;
{ /* Ieee/string.scm 947 */
 obj_t BgL_tmpz00_7687;
if(
INTEGERP(BgL_countz00_143))
{ /* Ieee/string.scm 947 */
BgL_tmpz00_7687 = BgL_countz00_143
; }  else 
{ 
 obj_t BgL_auxz00_7690;
BgL_auxz00_7690 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41268L), BGl_string3448z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_countz00_143); 
FAILURE(BgL_auxz00_7690,BFALSE,BFALSE);} 
BgL_n1z00_3101 = 
(long)CINT(BgL_tmpz00_7687); } 
BgL_test4058z00_7686 = 
(BgL_n1z00_3101>=0L); } 
if(BgL_test4058z00_7686)
{ /* Ieee/string.scm 947 */
 long BgL_n1z00_3104;
{ /* Ieee/string.scm 947 */
 obj_t BgL_tmpz00_7696;
if(
INTEGERP(BgL_countz00_143))
{ /* Ieee/string.scm 947 */
BgL_tmpz00_7696 = BgL_countz00_143
; }  else 
{ 
 obj_t BgL_auxz00_7699;
BgL_auxz00_7699 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41283L), BGl_string3448z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_countz00_143); 
FAILURE(BgL_auxz00_7699,BFALSE,BFALSE);} 
BgL_n1z00_3104 = 
(long)CINT(BgL_tmpz00_7696); } 
{ /* Ieee/string.scm 947 */
 long BgL_tmpz00_7704;
{ /* Ieee/string.scm 947 */
 long BgL_za72za7_3103;
{ /* Ieee/string.scm 947 */
 obj_t BgL_tmpz00_7705;
if(
INTEGERP(BgL_startz00_142))
{ /* Ieee/string.scm 947 */
BgL_tmpz00_7705 = BgL_startz00_142
; }  else 
{ 
 obj_t BgL_auxz00_7708;
BgL_auxz00_7708 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41298L), BGl_string3448z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_142); 
FAILURE(BgL_auxz00_7708,BFALSE,BFALSE);} 
BgL_za72za7_3103 = 
(long)CINT(BgL_tmpz00_7705); } 
BgL_tmpz00_7704 = 
(BgL_lenz00_1408-BgL_za72za7_3103); } 
BgL_test4056z00_7683 = 
(BgL_n1z00_3104<=BgL_tmpz00_7704); } }  else 
{ /* Ieee/string.scm 947 */
BgL_test4056z00_7683 = ((bool_t)0)
; } }  else 
{ /* Ieee/string.scm 946 */
BgL_test4056z00_7683 = ((bool_t)0)
; } 
if(BgL_test4056z00_7683)
{ /* Ieee/string.scm 948 */
 obj_t BgL_tmpz00_7715;
if(
INTEGERP(BgL_countz00_143))
{ /* Ieee/string.scm 948 */
BgL_tmpz00_7715 = BgL_countz00_143
; }  else 
{ 
 obj_t BgL_auxz00_7718;
BgL_auxz00_7718 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41310L), BGl_string3448z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_countz00_143); 
FAILURE(BgL_auxz00_7718,BFALSE,BFALSE);} 
BgL_nz00_3113 = 
(long)CINT(BgL_tmpz00_7715); }  else 
{ /* Ieee/string.scm 949 */
 long BgL_za72za7_3107;
{ /* Ieee/string.scm 949 */
 obj_t BgL_tmpz00_7723;
if(
INTEGERP(BgL_startz00_142))
{ /* Ieee/string.scm 949 */
BgL_tmpz00_7723 = BgL_startz00_142
; }  else 
{ 
 obj_t BgL_auxz00_7726;
BgL_auxz00_7726 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41328L), BGl_string3448z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_142); 
FAILURE(BgL_auxz00_7726,BFALSE,BFALSE);} 
BgL_za72za7_3107 = 
(long)CINT(BgL_tmpz00_7723); } 
BgL_nz00_3113 = 
(BgL_lenz00_1408-BgL_za72za7_3107); } } 
{ /* Ieee/string.scm 926 */
 char * BgL_s0z00_3114;
BgL_s0z00_3114 = 
BSTRING_TO_STRING(BgL_stringz00_140); 
{ /* Ieee/string.scm 926 */
 char * BgL_s1z00_3115;
{ /* Ieee/string.scm 927 */
 int BgL_tmpz00_7733;
BgL_tmpz00_7733 = 
(int)(
(
(unsigned char)(BgL_charz00_141))); 
BgL_s1z00_3115 = 
BGL_MEMCHR(BgL_s0z00_3114, BgL_tmpz00_7733, BgL_nz00_3113, BgL_startz00_3112); } 
{ /* Ieee/string.scm 927 */

if(
BGL_MEMCHR_ZERO(BgL_s1z00_3115))
{ /* Ieee/string.scm 928 */
return BFALSE;}  else 
{ /* Ieee/string.scm 928 */
return 
BINT(
BGL_MEMCHR_DIFF(BgL_s1z00_3115, BgL_s0z00_3114));} } } } }  else 
{ /* Ieee/string.scm 950 */
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 956 */
{ /* Ieee/string.scm 956 */
 obj_t BgL_g1141z00_1418; obj_t BgL_g1142z00_1419;
BgL_g1141z00_1418 = 
VECTOR_REF(BgL_opt1139z00_149,0L); 
BgL_g1142z00_1419 = 
VECTOR_REF(BgL_opt1139z00_149,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1139z00_149)) { case 2L : 

{ /* Ieee/string.scm 956 */

{ /* Ieee/string.scm 956 */
 obj_t BgL_auxz00_7744;
if(
STRINGP(BgL_g1141z00_1418))
{ /* Ieee/string.scm 956 */
BgL_auxz00_7744 = BgL_g1141z00_1418
; }  else 
{ 
 obj_t BgL_auxz00_7747;
BgL_auxz00_7747 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41637L), BGl_string3452z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1141z00_1418); 
FAILURE(BgL_auxz00_7747,BFALSE,BFALSE);} 
return 
BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_auxz00_7744, BgL_g1142z00_1419, 
BINT(0L));} } break;case 3L : 

{ /* Ieee/string.scm 956 */
 obj_t BgL_startz00_1423;
BgL_startz00_1423 = 
VECTOR_REF(BgL_opt1139z00_149,2L); 
{ /* Ieee/string.scm 956 */

{ /* Ieee/string.scm 956 */
 obj_t BgL_auxz00_7754;
if(
STRINGP(BgL_g1141z00_1418))
{ /* Ieee/string.scm 956 */
BgL_auxz00_7754 = BgL_g1141z00_1418
; }  else 
{ 
 obj_t BgL_auxz00_7757;
BgL_auxz00_7757 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(41637L), BGl_string3452z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1141z00_1418); 
FAILURE(BgL_auxz00_7757,BFALSE,BFALSE);} 
return 
BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_auxz00_7754, BgL_g1142z00_1419, BgL_startz00_1423);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3450z00zz__r4_strings_6_7z00, BGl_string3386z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1139z00_149)));} } } } 

}



/* 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 956 */
if(
CHARP(BgL_rsz00_147))
{ /* Ieee/string.scm 220 */

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

{ /* Ieee/string.scm 220 */
 unsigned char BgL_auxz00_7777;
{ /* Ieee/string.scm 327 */
 long BgL_l2377z00_4343;
BgL_l2377z00_4343 = 
STRING_LENGTH(BgL_rsz00_147); 
if(
BOUND_CHECK(0L, BgL_l2377z00_4343))
{ /* Ieee/string.scm 327 */
BgL_auxz00_7777 = 
(char)(
STRING_REF(BgL_rsz00_147, 0L))
; }  else 
{ 
 obj_t BgL_auxz00_7783;
BgL_auxz00_7783 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_rsz00_147, 
(int)(BgL_l2377z00_4343), 
(int)(0L)); 
FAILURE(BgL_auxz00_7783,BFALSE,BFALSE);} } 
return 
BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(BgL_stringz00_146, BgL_auxz00_7777, BgL_startz00_148, 
BINT(-1L));} }  else 
{ /* Ieee/string.scm 962 */
if(
(
STRING_LENGTH(BgL_rsz00_147)<=10L))
{ /* Ieee/string.scm 965 */
 long BgL_lenz00_1440; long BgL_lenjz00_1441;
BgL_lenz00_1440 = 
STRING_LENGTH(BgL_stringz00_146); 
BgL_lenjz00_1441 = 
STRING_LENGTH(BgL_rsz00_147); 
{ 
 obj_t BgL_iz00_1443;
BgL_iz00_1443 = BgL_startz00_148; 
BgL_zc3z04anonymousza31533ze3z87_1444:
{ /* Ieee/string.scm 968 */
 bool_t BgL_test4072z00_7796;
{ /* Ieee/string.scm 968 */
 long BgL_n1z00_3126;
{ /* Ieee/string.scm 968 */
 obj_t BgL_tmpz00_7797;
if(
INTEGERP(BgL_iz00_1443))
{ /* Ieee/string.scm 968 */
BgL_tmpz00_7797 = BgL_iz00_1443
; }  else 
{ 
 obj_t BgL_auxz00_7800;
BgL_auxz00_7800 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(42084L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1443); 
FAILURE(BgL_auxz00_7800,BFALSE,BFALSE);} 
BgL_n1z00_3126 = 
(long)CINT(BgL_tmpz00_7797); } 
BgL_test4072z00_7796 = 
(BgL_n1z00_3126>=BgL_lenz00_1440); } 
if(BgL_test4072z00_7796)
{ /* Ieee/string.scm 968 */
return BFALSE;}  else 
{ /* Ieee/string.scm 970 */
 unsigned char BgL_cz00_1446;
{ /* Ieee/string.scm 970 */
 long BgL_kz00_3129;
{ /* Ieee/string.scm 970 */
 obj_t BgL_tmpz00_7806;
if(
INTEGERP(BgL_iz00_1443))
{ /* Ieee/string.scm 970 */
BgL_tmpz00_7806 = BgL_iz00_1443
; }  else 
{ 
 obj_t BgL_auxz00_7809;
BgL_auxz00_7809 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(42128L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1443); 
FAILURE(BgL_auxz00_7809,BFALSE,BFALSE);} 
BgL_kz00_3129 = 
(long)CINT(BgL_tmpz00_7806); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2381z00_4347;
BgL_l2381z00_4347 = 
STRING_LENGTH(BgL_stringz00_146); 
if(
BOUND_CHECK(BgL_kz00_3129, BgL_l2381z00_4347))
{ /* Ieee/string.scm 327 */
BgL_cz00_1446 = 
STRING_REF(BgL_stringz00_146, BgL_kz00_3129); }  else 
{ 
 obj_t BgL_auxz00_7818;
BgL_auxz00_7818 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_146, 
(int)(BgL_l2381z00_4347), 
(int)(BgL_kz00_3129)); 
FAILURE(BgL_auxz00_7818,BFALSE,BFALSE);} } } 
{ 
 long BgL_jz00_1448;
BgL_jz00_1448 = 0L; 
BgL_zc3z04anonymousza31535ze3z87_1449:
if(
(BgL_jz00_1448==BgL_lenjz00_1441))
{ 
 obj_t BgL_iz00_7826;
{ 
 obj_t BgL_tmpz00_7827;
if(
INTEGERP(BgL_iz00_1443))
{ /* Ieee/string.scm 973 */
BgL_tmpz00_7827 = BgL_iz00_1443
; }  else 
{ 
 obj_t BgL_auxz00_7830;
BgL_auxz00_7830 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(42200L), BGl_string3453z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1443); 
FAILURE(BgL_auxz00_7830,BFALSE,BFALSE);} 
BgL_iz00_7826 = 
ADDFX(BgL_tmpz00_7827, 
BINT(1L)); } 
BgL_iz00_1443 = BgL_iz00_7826; 
goto BgL_zc3z04anonymousza31533ze3z87_1444;}  else 
{ /* Ieee/string.scm 974 */
 bool_t BgL_test4078z00_7836;
{ /* Ieee/string.scm 974 */
 unsigned char BgL_tmpz00_7837;
{ /* Ieee/string.scm 339 */
 long BgL_l2385z00_4351;
BgL_l2385z00_4351 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_147)); 
if(
BOUND_CHECK(BgL_jz00_1448, BgL_l2385z00_4351))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_7837 = 
STRING_REF(
((obj_t)BgL_rsz00_147), BgL_jz00_1448)
; }  else 
{ 
 obj_t BgL_auxz00_7844;
BgL_auxz00_7844 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_147), 
(int)(BgL_l2385z00_4351), 
(int)(BgL_jz00_1448)); 
FAILURE(BgL_auxz00_7844,BFALSE,BFALSE);} } 
BgL_test4078z00_7836 = 
(BgL_cz00_1446==BgL_tmpz00_7837); } 
if(BgL_test4078z00_7836)
{ /* Ieee/string.scm 974 */
return BgL_iz00_1443;}  else 
{ 
 long BgL_jz00_7852;
BgL_jz00_7852 = 
(BgL_jz00_1448+1L); 
BgL_jz00_1448 = BgL_jz00_7852; 
goto BgL_zc3z04anonymousza31535ze3z87_1449;} } } } } } }  else 
{ /* Ieee/string.scm 978 */
 obj_t BgL_tz00_1458; long BgL_lenz00_1459;
BgL_tz00_1458 = 
make_string(256L, ((unsigned char)'n')); 
BgL_lenz00_1459 = 
STRING_LENGTH(BgL_stringz00_146); 
{ /* Ieee/string.scm 980 */
 long BgL_g1030z00_1460;
BgL_g1030z00_1460 = 
(
STRING_LENGTH(BgL_rsz00_147)-1L); 
{ 
 long BgL_iz00_1462;
BgL_iz00_1462 = BgL_g1030z00_1460; 
BgL_zc3z04anonymousza31546ze3z87_1463:
if(
(BgL_iz00_1462==-1L))
{ 
 obj_t BgL_iz00_1466;
BgL_iz00_1466 = BgL_startz00_148; 
BgL_zc3z04anonymousza31548ze3z87_1467:
{ /* Ieee/string.scm 984 */
 bool_t BgL_test4081z00_7860;
{ /* Ieee/string.scm 984 */
 long BgL_n1z00_3142;
{ /* Ieee/string.scm 984 */
 obj_t BgL_tmpz00_7861;
if(
INTEGERP(BgL_iz00_1466))
{ /* Ieee/string.scm 984 */
BgL_tmpz00_7861 = BgL_iz00_1466
; }  else 
{ 
 obj_t BgL_auxz00_7864;
BgL_auxz00_7864 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(42502L), BGl_string3453z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1466); 
FAILURE(BgL_auxz00_7864,BFALSE,BFALSE);} 
BgL_n1z00_3142 = 
(long)CINT(BgL_tmpz00_7861); } 
BgL_test4081z00_7860 = 
(BgL_n1z00_3142>=BgL_lenz00_1459); } 
if(BgL_test4081z00_7860)
{ /* Ieee/string.scm 984 */
return BFALSE;}  else 
{ /* Ieee/string.scm 986 */
 bool_t BgL_test4083z00_7870;
{ /* Ieee/string.scm 986 */
 unsigned char BgL_tmpz00_7871;
{ /* Ieee/string.scm 987 */
 long BgL_i2392z00_4358;
{ /* Ieee/string.scm 987 */
 unsigned char BgL_tmpz00_7872;
{ /* Ieee/string.scm 987 */
 long BgL_kz00_3145;
{ /* Ieee/string.scm 987 */
 obj_t BgL_tmpz00_7873;
if(
INTEGERP(BgL_iz00_1466))
{ /* Ieee/string.scm 987 */
BgL_tmpz00_7873 = BgL_iz00_1466
; }  else 
{ 
 obj_t BgL_auxz00_7876;
BgL_auxz00_7876 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(42592L), BGl_string3453z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1466); 
FAILURE(BgL_auxz00_7876,BFALSE,BFALSE);} 
BgL_kz00_3145 = 
(long)CINT(BgL_tmpz00_7873); } 
{ /* Ieee/string.scm 339 */
 long BgL_l2389z00_4355;
BgL_l2389z00_4355 = 
STRING_LENGTH(BgL_stringz00_146); 
if(
BOUND_CHECK(BgL_kz00_3145, BgL_l2389z00_4355))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_7872 = 
STRING_REF(BgL_stringz00_146, BgL_kz00_3145)
; }  else 
{ 
 obj_t BgL_auxz00_7885;
BgL_auxz00_7885 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_146, 
(int)(BgL_l2389z00_4355), 
(int)(BgL_kz00_3145)); 
FAILURE(BgL_auxz00_7885,BFALSE,BFALSE);} } } 
BgL_i2392z00_4358 = 
(BgL_tmpz00_7872); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2393z00_4359;
BgL_l2393z00_4359 = 
STRING_LENGTH(BgL_tz00_1458); 
if(
BOUND_CHECK(BgL_i2392z00_4358, BgL_l2393z00_4359))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_7871 = 
STRING_REF(BgL_tz00_1458, BgL_i2392z00_4358)
; }  else 
{ 
 obj_t BgL_auxz00_7896;
BgL_auxz00_7896 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_tz00_1458, 
(int)(BgL_l2393z00_4359), 
(int)(BgL_i2392z00_4358)); 
FAILURE(BgL_auxz00_7896,BFALSE,BFALSE);} } } 
BgL_test4083z00_7870 = 
(BgL_tmpz00_7871==((unsigned char)'y')); } 
if(BgL_test4083z00_7870)
{ /* Ieee/string.scm 986 */
return BgL_iz00_1466;}  else 
{ 
 obj_t BgL_iz00_7903;
{ 
 obj_t BgL_tmpz00_7904;
if(
INTEGERP(BgL_iz00_1466))
{ /* Ieee/string.scm 991 */
BgL_tmpz00_7904 = BgL_iz00_1466
; }  else 
{ 
 obj_t BgL_auxz00_7907;
BgL_auxz00_7907 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(42643L), BGl_string3453z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1466); 
FAILURE(BgL_auxz00_7907,BFALSE,BFALSE);} 
BgL_iz00_7903 = 
ADDFX(BgL_tmpz00_7904, 
BINT(1L)); } 
BgL_iz00_1466 = BgL_iz00_7903; 
goto BgL_zc3z04anonymousza31548ze3z87_1467;} } } }  else 
{ /* Ieee/string.scm 981 */
{ /* Ieee/string.scm 993 */
 long BgL_arg1559z00_1478;
{ /* Ieee/string.scm 993 */
 unsigned char BgL_tmpz00_7913;
{ /* Ieee/string.scm 339 */
 long BgL_l2397z00_4363;
BgL_l2397z00_4363 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_147)); 
if(
BOUND_CHECK(BgL_iz00_1462, BgL_l2397z00_4363))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_7913 = 
STRING_REF(
((obj_t)BgL_rsz00_147), BgL_iz00_1462)
; }  else 
{ 
 obj_t BgL_auxz00_7920;
BgL_auxz00_7920 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_147), 
(int)(BgL_l2397z00_4363), 
(int)(BgL_iz00_1462)); 
FAILURE(BgL_auxz00_7920,BFALSE,BFALSE);} } 
BgL_arg1559z00_1478 = 
(BgL_tmpz00_7913); } 
{ /* Ieee/string.scm 345 */
 long BgL_l2401z00_4367;
BgL_l2401z00_4367 = 
STRING_LENGTH(BgL_tz00_1458); 
if(
BOUND_CHECK(BgL_arg1559z00_1478, BgL_l2401z00_4367))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_tz00_1458, BgL_arg1559z00_1478, ((unsigned char)'y')); }  else 
{ 
 obj_t BgL_auxz00_7932;
BgL_auxz00_7932 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_tz00_1458, 
(int)(BgL_l2401z00_4367), 
(int)(BgL_arg1559z00_1478)); 
FAILURE(BgL_auxz00_7932,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_7938;
BgL_iz00_7938 = 
(BgL_iz00_1462-1L); 
BgL_iz00_1462 = BgL_iz00_7938; 
goto BgL_zc3z04anonymousza31546ze3z87_1463;} } } } } } }  else 
{ /* Ieee/string.scm 960 */
return 
BGl_errorz00zz__errorz00(BGl_string3451z00zz__r4_strings_6_7z00, BGl_string3454z00zz__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 999 */
{ /* Ieee/string.scm 999 */
 obj_t BgL_sz00_1485; obj_t BgL_g1147z00_1486;
BgL_sz00_1485 = 
VECTOR_REF(BgL_opt1145z00_154,0L); 
BgL_g1147z00_1486 = 
VECTOR_REF(BgL_opt1145z00_154,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1145z00_154)) { case 2L : 

{ /* Ieee/string.scm 999 */
 long BgL_startz00_1489;
{ /* Ieee/string.scm 999 */
 obj_t BgL_stringz00_3159;
if(
STRINGP(BgL_sz00_1485))
{ /* Ieee/string.scm 999 */
BgL_stringz00_3159 = BgL_sz00_1485; }  else 
{ 
 obj_t BgL_auxz00_7945;
BgL_auxz00_7945 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(43032L), BGl_string3457z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_sz00_1485); 
FAILURE(BgL_auxz00_7945,BFALSE,BFALSE);} 
BgL_startz00_1489 = 
STRING_LENGTH(BgL_stringz00_3159); } 
{ /* Ieee/string.scm 999 */

{ /* Ieee/string.scm 999 */
 obj_t BgL_auxz00_7950;
if(
STRINGP(BgL_sz00_1485))
{ /* Ieee/string.scm 999 */
BgL_auxz00_7950 = BgL_sz00_1485
; }  else 
{ 
 obj_t BgL_auxz00_7953;
BgL_auxz00_7953 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(42981L), BGl_string3457z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_sz00_1485); 
FAILURE(BgL_auxz00_7953,BFALSE,BFALSE);} 
return 
BGl_stringzd2indexzd2rightz00zz__r4_strings_6_7z00(BgL_auxz00_7950, BgL_g1147z00_1486, 
BINT(BgL_startz00_1489));} } } break;case 3L : 

{ /* Ieee/string.scm 999 */
 obj_t BgL_startz00_1490;
BgL_startz00_1490 = 
VECTOR_REF(BgL_opt1145z00_154,2L); 
{ /* Ieee/string.scm 999 */

{ /* Ieee/string.scm 999 */
 obj_t BgL_auxz00_7960;
if(
STRINGP(BgL_sz00_1485))
{ /* Ieee/string.scm 999 */
BgL_auxz00_7960 = BgL_sz00_1485
; }  else 
{ 
 obj_t BgL_auxz00_7963;
BgL_auxz00_7963 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(42981L), BGl_string3457z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_sz00_1485); 
FAILURE(BgL_auxz00_7963,BFALSE,BFALSE);} 
return 
BGl_stringzd2indexzd2rightz00zz__r4_strings_6_7z00(BgL_auxz00_7960, BgL_g1147z00_1486, BgL_startz00_1490);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3455z00zz__r4_strings_6_7z00, BGl_string3386z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1145z00_154)));} } } } 

}



/* 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 999 */
{ 
 obj_t BgL_sz00_1550; obj_t BgL_cz00_1551;
{ /* Ieee/string.scm 1010 */
 bool_t BgL_test4093z00_7973;
{ /* Ieee/string.scm 1010 */
 long BgL_n1z00_3168;
{ /* Ieee/string.scm 1010 */
 obj_t BgL_tmpz00_7974;
if(
INTEGERP(BgL_startz00_153))
{ /* Ieee/string.scm 1010 */
BgL_tmpz00_7974 = BgL_startz00_153
; }  else 
{ 
 obj_t BgL_auxz00_7977;
BgL_auxz00_7977 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(43262L), BGl_string3456z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_153); 
FAILURE(BgL_auxz00_7977,BFALSE,BFALSE);} 
BgL_n1z00_3168 = 
(long)CINT(BgL_tmpz00_7974); } 
BgL_test4093z00_7973 = 
(BgL_n1z00_3168>
STRING_LENGTH(BgL_sz00_151)); } 
if(BgL_test4093z00_7973)
{ /* Ieee/string.scm 1010 */
return 
BGl_errorz00zz__errorz00(BGl_string3456z00zz__r4_strings_6_7z00, BGl_string3458z00zz__r4_strings_6_7z00, BgL_startz00_153);}  else 
{ /* Ieee/string.scm 1010 */
if(
CHARP(BgL_rsz00_152))
{ /* Ieee/string.scm 1012 */
BgL_sz00_1550 = BgL_sz00_151; 
BgL_cz00_1551 = BgL_rsz00_152; 
BgL_zc3z04anonymousza31614ze3z87_1552:
{ 
 long BgL_iz00_1555;
{ /* Ieee/string.scm 1001 */
 long BgL_za71za7_3160;
{ /* Ieee/string.scm 1001 */
 obj_t BgL_tmpz00_8006;
if(
INTEGERP(BgL_startz00_153))
{ /* Ieee/string.scm 1001 */
BgL_tmpz00_8006 = BgL_startz00_153
; }  else 
{ 
 obj_t BgL_auxz00_8009;
BgL_auxz00_8009 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(43112L), BGl_string3448z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_153); 
FAILURE(BgL_auxz00_8009,BFALSE,BFALSE);} 
BgL_za71za7_3160 = 
(long)CINT(BgL_tmpz00_8006); } 
BgL_iz00_1555 = 
(BgL_za71za7_3160-1L); } 
BgL_zc3z04anonymousza31615ze3z87_1556:
if(
(BgL_iz00_1555<0L))
{ /* Ieee/string.scm 1003 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1005 */
 bool_t BgL_test4097z00_7989;
{ /* Ieee/string.scm 1005 */
 unsigned char BgL_char2z00_3165;
BgL_char2z00_3165 = 
CCHAR(BgL_cz00_1551); 
{ /* Ieee/string.scm 1005 */
 unsigned char BgL_tmpz00_7991;
{ /* Ieee/string.scm 339 */
 long BgL_l2405z00_4371;
BgL_l2405z00_4371 = 
STRING_LENGTH(BgL_sz00_1550); 
if(
BOUND_CHECK(BgL_iz00_1555, BgL_l2405z00_4371))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_7991 = 
STRING_REF(BgL_sz00_1550, BgL_iz00_1555)
; }  else 
{ 
 obj_t BgL_auxz00_7996;
BgL_auxz00_7996 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_sz00_1550, 
(int)(BgL_l2405z00_4371), 
(int)(BgL_iz00_1555)); 
FAILURE(BgL_auxz00_7996,BFALSE,BFALSE);} } 
BgL_test4097z00_7989 = 
(BgL_tmpz00_7991==BgL_char2z00_3165); } } 
if(BgL_test4097z00_7989)
{ /* Ieee/string.scm 1005 */
return 
BINT(BgL_iz00_1555);}  else 
{ 
 long BgL_iz00_8004;
BgL_iz00_8004 = 
(BgL_iz00_1555-1L); 
BgL_iz00_1555 = BgL_iz00_8004; 
goto BgL_zc3z04anonymousza31615ze3z87_1556;} } } }  else 
{ /* Ieee/string.scm 1012 */
if(
STRINGP(BgL_rsz00_152))
{ /* Ieee/string.scm 1014 */
if(
(
STRING_LENGTH(BgL_rsz00_152)==1L))
{ 
 obj_t BgL_cz00_8021; obj_t BgL_sz00_8020;
BgL_sz00_8020 = BgL_sz00_151; 
{ /* Ieee/string.scm 327 */
 long BgL_l2409z00_4375;
BgL_l2409z00_4375 = 
STRING_LENGTH(BgL_rsz00_152); 
if(
BOUND_CHECK(0L, BgL_l2409z00_4375))
{ /* Ieee/string.scm 327 */
BgL_cz00_8021 = 
BCHAR(
STRING_REF(BgL_rsz00_152, 0L)); }  else 
{ 
 obj_t BgL_auxz00_8027;
BgL_auxz00_8027 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_rsz00_152, 
(int)(BgL_l2409z00_4375), 
(int)(0L)); 
FAILURE(BgL_auxz00_8027,BFALSE,BFALSE);} } 
BgL_cz00_1551 = BgL_cz00_8021; 
BgL_sz00_1550 = BgL_sz00_8020; 
goto BgL_zc3z04anonymousza31614ze3z87_1552;}  else 
{ /* Ieee/string.scm 1016 */
if(
(
STRING_LENGTH(BgL_rsz00_152)<=10L))
{ /* Ieee/string.scm 1019 */
 long BgL_lenjz00_1503;
BgL_lenjz00_1503 = 
STRING_LENGTH(BgL_rsz00_152); 
{ 
 long BgL_iz00_1506;
{ /* Ieee/string.scm 1021 */
 long BgL_za71za7_3177;
{ /* Ieee/string.scm 1021 */
 obj_t BgL_tmpz00_8072;
if(
INTEGERP(BgL_startz00_153))
{ /* Ieee/string.scm 1021 */
BgL_tmpz00_8072 = BgL_startz00_153
; }  else 
{ 
 obj_t BgL_auxz00_8075;
BgL_auxz00_8075 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(43695L), BGl_string3456z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_153); 
FAILURE(BgL_auxz00_8075,BFALSE,BFALSE);} 
BgL_za71za7_3177 = 
(long)CINT(BgL_tmpz00_8072); } 
BgL_iz00_1506 = 
(BgL_za71za7_3177-1L); } 
BgL_zc3z04anonymousza31580ze3z87_1507:
if(
(BgL_iz00_1506<0L))
{ /* Ieee/string.scm 1022 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1024 */
 unsigned char BgL_cz00_1509;
{ /* Ieee/string.scm 327 */
 long BgL_l2413z00_4379;
BgL_l2413z00_4379 = 
STRING_LENGTH(BgL_sz00_151); 
if(
BOUND_CHECK(BgL_iz00_1506, BgL_l2413z00_4379))
{ /* Ieee/string.scm 327 */
BgL_cz00_1509 = 
STRING_REF(BgL_sz00_151, BgL_iz00_1506); }  else 
{ 
 obj_t BgL_auxz00_8043;
BgL_auxz00_8043 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_sz00_151, 
(int)(BgL_l2413z00_4379), 
(int)(BgL_iz00_1506)); 
FAILURE(BgL_auxz00_8043,BFALSE,BFALSE);} } 
{ 
 long BgL_jz00_1511;
BgL_jz00_1511 = 0L; 
BgL_zc3z04anonymousza31582ze3z87_1512:
if(
(BgL_jz00_1511==BgL_lenjz00_1503))
{ 
 long BgL_iz00_8051;
BgL_iz00_8051 = 
(BgL_iz00_1506-1L); 
BgL_iz00_1506 = BgL_iz00_8051; 
goto BgL_zc3z04anonymousza31580ze3z87_1507;}  else 
{ /* Ieee/string.scm 1028 */
 bool_t BgL_test4107z00_8053;
{ /* Ieee/string.scm 1028 */
 unsigned char BgL_tmpz00_8054;
{ /* Ieee/string.scm 339 */
 long BgL_l2417z00_4383;
BgL_l2417z00_4383 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_152)); 
if(
BOUND_CHECK(BgL_jz00_1511, BgL_l2417z00_4383))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_8054 = 
STRING_REF(
((obj_t)BgL_rsz00_152), BgL_jz00_1511)
; }  else 
{ 
 obj_t BgL_auxz00_8061;
BgL_auxz00_8061 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_152), 
(int)(BgL_l2417z00_4383), 
(int)(BgL_jz00_1511)); 
FAILURE(BgL_auxz00_8061,BFALSE,BFALSE);} } 
BgL_test4107z00_8053 = 
(BgL_cz00_1509==BgL_tmpz00_8054); } 
if(BgL_test4107z00_8053)
{ /* Ieee/string.scm 1028 */
return 
BINT(BgL_iz00_1506);}  else 
{ 
 long BgL_jz00_8070;
BgL_jz00_8070 = 
(BgL_jz00_1511+1L); 
BgL_jz00_1511 = BgL_jz00_8070; 
goto BgL_zc3z04anonymousza31582ze3z87_1512;} } } } } }  else 
{ /* Ieee/string.scm 1032 */
 obj_t BgL_tz00_1521;
BgL_tz00_1521 = 
make_string(256L, ((unsigned char)'n')); 
{ /* Ieee/string.scm 1034 */
 long BgL_g1034z00_1523;
BgL_g1034z00_1523 = 
(
STRING_LENGTH(BgL_rsz00_152)-1L); 
{ 
 long BgL_iz00_1525;
BgL_iz00_1525 = BgL_g1034z00_1523; 
BgL_zc3z04anonymousza31591ze3z87_1526:
if(
(BgL_iz00_1525==-1L))
{ 
 long BgL_iz00_1530;
{ /* Ieee/string.scm 1036 */
 long BgL_za71za7_3193;
{ /* Ieee/string.scm 1036 */
 obj_t BgL_tmpz00_8116;
if(
INTEGERP(BgL_startz00_153))
{ /* Ieee/string.scm 1036 */
BgL_tmpz00_8116 = BgL_startz00_153
; }  else 
{ 
 obj_t BgL_auxz00_8119;
BgL_auxz00_8119 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(44096L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_153); 
FAILURE(BgL_auxz00_8119,BFALSE,BFALSE);} 
BgL_za71za7_3193 = 
(long)CINT(BgL_tmpz00_8116); } 
BgL_iz00_1530 = 
(BgL_za71za7_3193-1L); } 
BgL_zc3z04anonymousza31594ze3z87_1531:
if(
(BgL_iz00_1530<0L))
{ /* Ieee/string.scm 1038 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1040 */
 bool_t BgL_test4112z00_8088;
{ /* Ieee/string.scm 1040 */
 unsigned char BgL_tmpz00_8089;
{ /* Ieee/string.scm 1041 */
 long BgL_i2424z00_4390;
{ /* Ieee/string.scm 1041 */
 unsigned char BgL_tmpz00_8090;
{ /* Ieee/string.scm 339 */
 long BgL_l2421z00_4387;
BgL_l2421z00_4387 = 
STRING_LENGTH(BgL_sz00_151); 
if(
BOUND_CHECK(BgL_iz00_1530, BgL_l2421z00_4387))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_8090 = 
STRING_REF(BgL_sz00_151, BgL_iz00_1530)
; }  else 
{ 
 obj_t BgL_auxz00_8095;
BgL_auxz00_8095 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_sz00_151, 
(int)(BgL_l2421z00_4387), 
(int)(BgL_iz00_1530)); 
FAILURE(BgL_auxz00_8095,BFALSE,BFALSE);} } 
BgL_i2424z00_4390 = 
(BgL_tmpz00_8090); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2425z00_4391;
BgL_l2425z00_4391 = 
STRING_LENGTH(BgL_tz00_1521); 
if(
BOUND_CHECK(BgL_i2424z00_4390, BgL_l2425z00_4391))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_8089 = 
STRING_REF(BgL_tz00_1521, BgL_i2424z00_4390)
; }  else 
{ 
 obj_t BgL_auxz00_8106;
BgL_auxz00_8106 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_tz00_1521, 
(int)(BgL_l2425z00_4391), 
(int)(BgL_i2424z00_4390)); 
FAILURE(BgL_auxz00_8106,BFALSE,BFALSE);} } } 
BgL_test4112z00_8088 = 
(BgL_tmpz00_8089==((unsigned char)'y')); } 
if(BgL_test4112z00_8088)
{ /* Ieee/string.scm 1040 */
return 
BINT(BgL_iz00_1530);}  else 
{ 
 long BgL_iz00_8114;
BgL_iz00_8114 = 
(BgL_iz00_1530-1L); 
BgL_iz00_1530 = BgL_iz00_8114; 
goto BgL_zc3z04anonymousza31594ze3z87_1531;} } }  else 
{ /* Ieee/string.scm 1035 */
{ /* Ieee/string.scm 1047 */
 long BgL_arg1606z00_1542;
{ /* Ieee/string.scm 1047 */
 unsigned char BgL_tmpz00_8125;
{ /* Ieee/string.scm 339 */
 long BgL_l2429z00_4395;
BgL_l2429z00_4395 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_152)); 
if(
BOUND_CHECK(BgL_iz00_1525, BgL_l2429z00_4395))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_8125 = 
STRING_REF(
((obj_t)BgL_rsz00_152), BgL_iz00_1525)
; }  else 
{ 
 obj_t BgL_auxz00_8132;
BgL_auxz00_8132 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_152), 
(int)(BgL_l2429z00_4395), 
(int)(BgL_iz00_1525)); 
FAILURE(BgL_auxz00_8132,BFALSE,BFALSE);} } 
BgL_arg1606z00_1542 = 
(BgL_tmpz00_8125); } 
{ /* Ieee/string.scm 345 */
 long BgL_l2433z00_4399;
BgL_l2433z00_4399 = 
STRING_LENGTH(BgL_tz00_1521); 
if(
BOUND_CHECK(BgL_arg1606z00_1542, BgL_l2433z00_4399))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_tz00_1521, BgL_arg1606z00_1542, ((unsigned char)'y')); }  else 
{ 
 obj_t BgL_auxz00_8144;
BgL_auxz00_8144 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_tz00_1521, 
(int)(BgL_l2433z00_4399), 
(int)(BgL_arg1606z00_1542)); 
FAILURE(BgL_auxz00_8144,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_8150;
BgL_iz00_8150 = 
(BgL_iz00_1525-1L); 
BgL_iz00_1525 = BgL_iz00_8150; 
goto BgL_zc3z04anonymousza31591ze3z87_1526;} } } } } } }  else 
{ /* Ieee/string.scm 1014 */
return 
BGl_errorz00zz__errorz00(BGl_string3456z00zz__r4_strings_6_7z00, BGl_string3454z00zz__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 1053 */
{ /* Ieee/string.scm 1053 */
 obj_t BgL_g1152z00_1564; obj_t BgL_g1153z00_1565;
BgL_g1152z00_1564 = 
VECTOR_REF(BgL_opt1150z00_159,0L); 
BgL_g1153z00_1565 = 
VECTOR_REF(BgL_opt1150z00_159,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1150z00_159)) { case 2L : 

{ /* Ieee/string.scm 1053 */

{ /* Ieee/string.scm 1053 */
 obj_t BgL_auxz00_8155;
if(
STRINGP(BgL_g1152z00_1564))
{ /* Ieee/string.scm 1053 */
BgL_auxz00_8155 = BgL_g1152z00_1564
; }  else 
{ 
 obj_t BgL_auxz00_8158;
BgL_auxz00_8158 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(44602L), BGl_string3461z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1152z00_1564); 
FAILURE(BgL_auxz00_8158,BFALSE,BFALSE);} 
return 
BGl_stringzd2skipzd2zz__r4_strings_6_7z00(BgL_auxz00_8155, BgL_g1153z00_1565, 
BINT(0L));} } break;case 3L : 

{ /* Ieee/string.scm 1053 */
 obj_t BgL_startz00_1569;
BgL_startz00_1569 = 
VECTOR_REF(BgL_opt1150z00_159,2L); 
{ /* Ieee/string.scm 1053 */

{ /* Ieee/string.scm 1053 */
 obj_t BgL_auxz00_8165;
if(
STRINGP(BgL_g1152z00_1564))
{ /* Ieee/string.scm 1053 */
BgL_auxz00_8165 = BgL_g1152z00_1564
; }  else 
{ 
 obj_t BgL_auxz00_8168;
BgL_auxz00_8168 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(44602L), BGl_string3461z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1152z00_1564); 
FAILURE(BgL_auxz00_8168,BFALSE,BFALSE);} 
return 
BGl_stringzd2skipzd2zz__r4_strings_6_7z00(BgL_auxz00_8165, BgL_g1153z00_1565, BgL_startz00_1569);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3459z00zz__r4_strings_6_7z00, BGl_string3386z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1150z00_159)));} } } } 

}



/* 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 1053 */
{ 
 obj_t BgL_sz00_1639; obj_t BgL_predz00_1640; obj_t BgL_sz00_1626; obj_t BgL_cz00_1627;
if(
CHARP(BgL_rsz00_157))
{ /* Ieee/string.scm 1077 */
BgL_sz00_1626 = BgL_stringz00_156; 
BgL_cz00_1627 = BgL_rsz00_157; 
BgL_zc3z04anonymousza31664ze3z87_1628:
{ /* Ieee/string.scm 1056 */
 long BgL_lenz00_1629;
BgL_lenz00_1629 = 
STRING_LENGTH(BgL_sz00_1626); 
{ 
 obj_t BgL_iz00_1631;
BgL_iz00_1631 = BgL_startz00_158; 
BgL_zc3z04anonymousza31665ze3z87_1632:
{ /* Ieee/string.scm 1059 */
 bool_t BgL_test4121z00_8181;
{ /* Ieee/string.scm 1059 */
 long BgL_n1z00_3211;
{ /* Ieee/string.scm 1059 */
 obj_t BgL_tmpz00_8182;
if(
INTEGERP(BgL_iz00_1631))
{ /* Ieee/string.scm 1059 */
BgL_tmpz00_8182 = BgL_iz00_1631
; }  else 
{ 
 obj_t BgL_auxz00_8185;
BgL_auxz00_8185 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(44780L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1631); 
FAILURE(BgL_auxz00_8185,BFALSE,BFALSE);} 
BgL_n1z00_3211 = 
(long)CINT(BgL_tmpz00_8182); } 
BgL_test4121z00_8181 = 
(BgL_n1z00_3211>=BgL_lenz00_1629); } 
if(BgL_test4121z00_8181)
{ /* Ieee/string.scm 1059 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1061 */
 bool_t BgL_test4123z00_8191;
{ /* Ieee/string.scm 1061 */
 unsigned char BgL_char2z00_3216;
BgL_char2z00_3216 = 
CCHAR(BgL_cz00_1627); 
{ /* Ieee/string.scm 1061 */
 unsigned char BgL_tmpz00_8193;
{ /* Ieee/string.scm 1061 */
 long BgL_kz00_3214;
{ /* Ieee/string.scm 1061 */
 obj_t BgL_tmpz00_8194;
if(
INTEGERP(BgL_iz00_1631))
{ /* Ieee/string.scm 1061 */
BgL_tmpz00_8194 = BgL_iz00_1631
; }  else 
{ 
 obj_t BgL_auxz00_8197;
BgL_auxz00_8197 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(44827L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1631); 
FAILURE(BgL_auxz00_8197,BFALSE,BFALSE);} 
BgL_kz00_3214 = 
(long)CINT(BgL_tmpz00_8194); } 
{ /* Ieee/string.scm 339 */
 long BgL_l2437z00_4403;
BgL_l2437z00_4403 = 
STRING_LENGTH(BgL_sz00_1626); 
if(
BOUND_CHECK(BgL_kz00_3214, BgL_l2437z00_4403))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_8193 = 
STRING_REF(BgL_sz00_1626, BgL_kz00_3214)
; }  else 
{ 
 obj_t BgL_auxz00_8206;
BgL_auxz00_8206 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_sz00_1626, 
(int)(BgL_l2437z00_4403), 
(int)(BgL_kz00_3214)); 
FAILURE(BgL_auxz00_8206,BFALSE,BFALSE);} } } 
BgL_test4123z00_8191 = 
(BgL_tmpz00_8193==BgL_char2z00_3216); } } 
if(BgL_test4123z00_8191)
{ 
 obj_t BgL_iz00_8213;
{ 
 obj_t BgL_tmpz00_8214;
if(
INTEGERP(BgL_iz00_1631))
{ /* Ieee/string.scm 1062 */
BgL_tmpz00_8214 = BgL_iz00_1631
; }  else 
{ 
 obj_t BgL_auxz00_8217;
BgL_auxz00_8217 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(44846L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1631); 
FAILURE(BgL_auxz00_8217,BFALSE,BFALSE);} 
BgL_iz00_8213 = 
ADDFX(BgL_tmpz00_8214, 
BINT(1L)); } 
BgL_iz00_1631 = BgL_iz00_8213; 
goto BgL_zc3z04anonymousza31665ze3z87_1632;}  else 
{ /* Ieee/string.scm 1061 */
return BgL_iz00_1631;} } } } } }  else 
{ /* Ieee/string.scm 1077 */
if(
PROCEDUREP(BgL_rsz00_157))
{ /* Ieee/string.scm 1079 */
BgL_sz00_1639 = BgL_stringz00_156; 
BgL_predz00_1640 = BgL_rsz00_157; 
{ /* Ieee/string.scm 1066 */
 long BgL_lenz00_1642;
BgL_lenz00_1642 = 
STRING_LENGTH(BgL_sz00_1639); 
{ 
 obj_t BgL_iz00_1644;
BgL_iz00_1644 = BgL_startz00_158; 
BgL_zc3z04anonymousza31673ze3z87_1645:
{ /* Ieee/string.scm 1069 */
 bool_t BgL_test4128z00_8226;
{ /* Ieee/string.scm 1069 */
 long BgL_n1z00_3219;
{ /* Ieee/string.scm 1069 */
 obj_t BgL_tmpz00_8227;
if(
INTEGERP(BgL_iz00_1644))
{ /* Ieee/string.scm 1069 */
BgL_tmpz00_8227 = BgL_iz00_1644
; }  else 
{ 
 obj_t BgL_auxz00_8230;
BgL_auxz00_8230 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(45000L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1644); 
FAILURE(BgL_auxz00_8230,BFALSE,BFALSE);} 
BgL_n1z00_3219 = 
(long)CINT(BgL_tmpz00_8227); } 
BgL_test4128z00_8226 = 
(BgL_n1z00_3219>=BgL_lenz00_1642); } 
if(BgL_test4128z00_8226)
{ /* Ieee/string.scm 1069 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1071 */
 bool_t BgL_test4130z00_8236;
{ /* Ieee/string.scm 1071 */
 unsigned char BgL_arg1681z00_1650;
{ /* Ieee/string.scm 1071 */
 long BgL_kz00_3222;
{ /* Ieee/string.scm 1071 */
 obj_t BgL_tmpz00_8237;
if(
INTEGERP(BgL_iz00_1644))
{ /* Ieee/string.scm 1071 */
BgL_tmpz00_8237 = BgL_iz00_1644
; }  else 
{ 
 obj_t BgL_auxz00_8240;
BgL_auxz00_8240 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(45045L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1644); 
FAILURE(BgL_auxz00_8240,BFALSE,BFALSE);} 
BgL_kz00_3222 = 
(long)CINT(BgL_tmpz00_8237); } 
{ /* Ieee/string.scm 339 */
 long BgL_l2441z00_4407;
BgL_l2441z00_4407 = 
STRING_LENGTH(BgL_sz00_1639); 
if(
BOUND_CHECK(BgL_kz00_3222, BgL_l2441z00_4407))
{ /* Ieee/string.scm 339 */
BgL_arg1681z00_1650 = 
STRING_REF(BgL_sz00_1639, BgL_kz00_3222); }  else 
{ 
 obj_t BgL_auxz00_8249;
BgL_auxz00_8249 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_sz00_1639, 
(int)(BgL_l2441z00_4407), 
(int)(BgL_kz00_3222)); 
FAILURE(BgL_auxz00_8249,BFALSE,BFALSE);} } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_1640, 1L))
{ /* Ieee/string.scm 1071 */
BgL_test4130z00_8236 = 
CBOOL(
(VA_PROCEDUREP( BgL_predz00_1640 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_predz00_1640))(BgL_predz00_1640, 
BCHAR(BgL_arg1681z00_1650), BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_predz00_1640))(BgL_predz00_1640, 
BCHAR(BgL_arg1681z00_1650)) ))
; }  else 
{ /* Ieee/string.scm 1071 */
FAILURE(BGl_string3430z00zz__r4_strings_6_7z00,BGl_list3462z00zz__r4_strings_6_7z00,BgL_predz00_1640);} } 
if(BgL_test4130z00_8236)
{ /* Ieee/string.scm 1072 */
 long BgL_arg1678z00_1649;
{ /* Ieee/string.scm 1072 */
 long BgL_za71za7_3223;
{ /* Ieee/string.scm 1072 */
 obj_t BgL_tmpz00_8264;
if(
INTEGERP(BgL_iz00_1644))
{ /* Ieee/string.scm 1072 */
BgL_tmpz00_8264 = BgL_iz00_1644
; }  else 
{ 
 obj_t BgL_auxz00_8267;
BgL_auxz00_8267 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(45062L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1644); 
FAILURE(BgL_auxz00_8267,BFALSE,BFALSE);} 
BgL_za71za7_3223 = 
(long)CINT(BgL_tmpz00_8264); } 
BgL_arg1678z00_1649 = 
(BgL_za71za7_3223+1L); } 
{ 
 obj_t BgL_iz00_8273;
BgL_iz00_8273 = 
BINT(BgL_arg1678z00_1649); 
BgL_iz00_1644 = BgL_iz00_8273; 
goto BgL_zc3z04anonymousza31673ze3z87_1645;} }  else 
{ /* Ieee/string.scm 1071 */
return BgL_iz00_1644;} } } } } }  else 
{ /* Ieee/string.scm 1079 */
if(
STRINGP(BgL_rsz00_157))
{ /* Ieee/string.scm 1081 */
if(
(
STRING_LENGTH(BgL_rsz00_157)==1L))
{ 
 obj_t BgL_cz00_8281; obj_t BgL_sz00_8280;
BgL_sz00_8280 = BgL_stringz00_156; 
{ /* Ieee/string.scm 327 */
 long BgL_l2445z00_4411;
BgL_l2445z00_4411 = 
STRING_LENGTH(BgL_rsz00_157); 
if(
BOUND_CHECK(0L, BgL_l2445z00_4411))
{ /* Ieee/string.scm 327 */
BgL_cz00_8281 = 
BCHAR(
STRING_REF(BgL_rsz00_157, 0L)); }  else 
{ 
 obj_t BgL_auxz00_8287;
BgL_auxz00_8287 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_rsz00_157, 
(int)(BgL_l2445z00_4411), 
(int)(0L)); 
FAILURE(BgL_auxz00_8287,BFALSE,BFALSE);} } 
BgL_cz00_1627 = BgL_cz00_8281; 
BgL_sz00_1626 = BgL_sz00_8280; 
goto BgL_zc3z04anonymousza31664ze3z87_1628;}  else 
{ /* Ieee/string.scm 1083 */
if(
(
STRING_LENGTH(BgL_rsz00_157)<=10L))
{ /* Ieee/string.scm 1086 */
 long BgL_lenz00_1581; long BgL_lenjz00_1582;
BgL_lenz00_1581 = 
STRING_LENGTH(BgL_stringz00_156); 
BgL_lenjz00_1582 = 
STRING_LENGTH(BgL_rsz00_157); 
{ 
 obj_t BgL_iz00_1584;
BgL_iz00_1584 = BgL_startz00_158; 
BgL_zc3z04anonymousza31630ze3z87_1585:
{ /* Ieee/string.scm 1089 */
 bool_t BgL_test4139z00_8298;
{ /* Ieee/string.scm 1089 */
 long BgL_n1z00_3231;
{ /* Ieee/string.scm 1089 */
 obj_t BgL_tmpz00_8299;
if(
INTEGERP(BgL_iz00_1584))
{ /* Ieee/string.scm 1089 */
BgL_tmpz00_8299 = BgL_iz00_1584
; }  else 
{ 
 obj_t BgL_auxz00_8302;
BgL_auxz00_8302 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(45534L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1584); 
FAILURE(BgL_auxz00_8302,BFALSE,BFALSE);} 
BgL_n1z00_3231 = 
(long)CINT(BgL_tmpz00_8299); } 
BgL_test4139z00_8298 = 
(BgL_n1z00_3231>=BgL_lenz00_1581); } 
if(BgL_test4139z00_8298)
{ /* Ieee/string.scm 1089 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1091 */
 unsigned char BgL_cz00_1587;
{ /* Ieee/string.scm 1091 */
 long BgL_kz00_3234;
{ /* Ieee/string.scm 1091 */
 obj_t BgL_tmpz00_8308;
if(
INTEGERP(BgL_iz00_1584))
{ /* Ieee/string.scm 1091 */
BgL_tmpz00_8308 = BgL_iz00_1584
; }  else 
{ 
 obj_t BgL_auxz00_8311;
BgL_auxz00_8311 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(45578L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1584); 
FAILURE(BgL_auxz00_8311,BFALSE,BFALSE);} 
BgL_kz00_3234 = 
(long)CINT(BgL_tmpz00_8308); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2449z00_4415;
BgL_l2449z00_4415 = 
STRING_LENGTH(BgL_stringz00_156); 
if(
BOUND_CHECK(BgL_kz00_3234, BgL_l2449z00_4415))
{ /* Ieee/string.scm 327 */
BgL_cz00_1587 = 
STRING_REF(BgL_stringz00_156, BgL_kz00_3234); }  else 
{ 
 obj_t BgL_auxz00_8320;
BgL_auxz00_8320 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_156, 
(int)(BgL_l2449z00_4415), 
(int)(BgL_kz00_3234)); 
FAILURE(BgL_auxz00_8320,BFALSE,BFALSE);} } } 
{ 
 long BgL_jz00_1589;
BgL_jz00_1589 = 0L; 
BgL_zc3z04anonymousza31632ze3z87_1590:
if(
(BgL_jz00_1589==BgL_lenjz00_1582))
{ /* Ieee/string.scm 1093 */
return BgL_iz00_1584;}  else 
{ /* Ieee/string.scm 1095 */
 bool_t BgL_test4144z00_8328;
{ /* Ieee/string.scm 1095 */
 unsigned char BgL_tmpz00_8329;
{ /* Ieee/string.scm 339 */
 long BgL_l2453z00_4419;
BgL_l2453z00_4419 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_157)); 
if(
BOUND_CHECK(BgL_jz00_1589, BgL_l2453z00_4419))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_8329 = 
STRING_REF(
((obj_t)BgL_rsz00_157), BgL_jz00_1589)
; }  else 
{ 
 obj_t BgL_auxz00_8336;
BgL_auxz00_8336 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_157), 
(int)(BgL_l2453z00_4419), 
(int)(BgL_jz00_1589)); 
FAILURE(BgL_auxz00_8336,BFALSE,BFALSE);} } 
BgL_test4144z00_8328 = 
(BgL_cz00_1587==BgL_tmpz00_8329); } 
if(BgL_test4144z00_8328)
{ 
 obj_t BgL_iz00_8344;
{ 
 obj_t BgL_tmpz00_8345;
if(
INTEGERP(BgL_iz00_1584))
{ /* Ieee/string.scm 1096 */
BgL_tmpz00_8345 = BgL_iz00_1584
; }  else 
{ 
 obj_t BgL_auxz00_8348;
BgL_auxz00_8348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(45704L), BGl_string3453z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1584); 
FAILURE(BgL_auxz00_8348,BFALSE,BFALSE);} 
BgL_iz00_8344 = 
ADDFX(BgL_tmpz00_8345, 
BINT(1L)); } 
BgL_iz00_1584 = BgL_iz00_8344; 
goto BgL_zc3z04anonymousza31630ze3z87_1585;}  else 
{ 
 long BgL_jz00_8354;
BgL_jz00_8354 = 
(BgL_jz00_1589+1L); 
BgL_jz00_1589 = BgL_jz00_8354; 
goto BgL_zc3z04anonymousza31632ze3z87_1590;} } } } } } }  else 
{ /* Ieee/string.scm 1099 */
 obj_t BgL_tz00_1599; long BgL_lenz00_1600;
BgL_tz00_1599 = 
make_string(256L, ((unsigned char)'n')); 
BgL_lenz00_1600 = 
STRING_LENGTH(BgL_stringz00_156); 
{ /* Ieee/string.scm 1101 */
 long BgL_g1037z00_1601;
BgL_g1037z00_1601 = 
(
STRING_LENGTH(BgL_rsz00_157)-1L); 
{ 
 long BgL_iz00_1603;
BgL_iz00_1603 = BgL_g1037z00_1601; 
BgL_zc3z04anonymousza31639ze3z87_1604:
if(
(BgL_iz00_1603==-1L))
{ 
 obj_t BgL_iz00_1607;
BgL_iz00_1607 = BgL_startz00_158; 
BgL_zc3z04anonymousza31641ze3z87_1608:
{ /* Ieee/string.scm 1105 */
 bool_t BgL_test4148z00_8362;
{ /* Ieee/string.scm 1105 */
 long BgL_n1z00_3247;
{ /* Ieee/string.scm 1105 */
 obj_t BgL_tmpz00_8363;
if(
INTEGERP(BgL_iz00_1607))
{ /* Ieee/string.scm 1105 */
BgL_tmpz00_8363 = BgL_iz00_1607
; }  else 
{ 
 obj_t BgL_auxz00_8366;
BgL_auxz00_8366 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(45952L), BGl_string3453z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1607); 
FAILURE(BgL_auxz00_8366,BFALSE,BFALSE);} 
BgL_n1z00_3247 = 
(long)CINT(BgL_tmpz00_8363); } 
BgL_test4148z00_8362 = 
(BgL_n1z00_3247>=BgL_lenz00_1600); } 
if(BgL_test4148z00_8362)
{ /* Ieee/string.scm 1105 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1107 */
 bool_t BgL_test4150z00_8372;
{ /* Ieee/string.scm 1107 */
 unsigned char BgL_tmpz00_8373;
{ /* Ieee/string.scm 1108 */
 long BgL_i2460z00_4426;
{ /* Ieee/string.scm 1108 */
 unsigned char BgL_tmpz00_8374;
{ /* Ieee/string.scm 1108 */
 long BgL_kz00_3250;
{ /* Ieee/string.scm 1108 */
 obj_t BgL_tmpz00_8375;
if(
INTEGERP(BgL_iz00_1607))
{ /* Ieee/string.scm 1108 */
BgL_tmpz00_8375 = BgL_iz00_1607
; }  else 
{ 
 obj_t BgL_auxz00_8378;
BgL_auxz00_8378 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(46040L), BGl_string3453z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1607); 
FAILURE(BgL_auxz00_8378,BFALSE,BFALSE);} 
BgL_kz00_3250 = 
(long)CINT(BgL_tmpz00_8375); } 
{ /* Ieee/string.scm 339 */
 long BgL_l2457z00_4423;
BgL_l2457z00_4423 = 
STRING_LENGTH(BgL_stringz00_156); 
if(
BOUND_CHECK(BgL_kz00_3250, BgL_l2457z00_4423))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_8374 = 
STRING_REF(BgL_stringz00_156, BgL_kz00_3250)
; }  else 
{ 
 obj_t BgL_auxz00_8387;
BgL_auxz00_8387 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_stringz00_156, 
(int)(BgL_l2457z00_4423), 
(int)(BgL_kz00_3250)); 
FAILURE(BgL_auxz00_8387,BFALSE,BFALSE);} } } 
BgL_i2460z00_4426 = 
(BgL_tmpz00_8374); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2461z00_4427;
BgL_l2461z00_4427 = 
STRING_LENGTH(BgL_tz00_1599); 
if(
BOUND_CHECK(BgL_i2460z00_4426, BgL_l2461z00_4427))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_8373 = 
STRING_REF(BgL_tz00_1599, BgL_i2460z00_4426)
; }  else 
{ 
 obj_t BgL_auxz00_8398;
BgL_auxz00_8398 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_tz00_1599, 
(int)(BgL_l2461z00_4427), 
(int)(BgL_i2460z00_4426)); 
FAILURE(BgL_auxz00_8398,BFALSE,BFALSE);} } } 
BgL_test4150z00_8372 = 
(BgL_tmpz00_8373==((unsigned char)'y')); } 
if(BgL_test4150z00_8372)
{ 
 obj_t BgL_iz00_8405;
{ 
 obj_t BgL_tmpz00_8406;
if(
INTEGERP(BgL_iz00_1607))
{ /* Ieee/string.scm 1110 */
BgL_tmpz00_8406 = BgL_iz00_1607
; }  else 
{ 
 obj_t BgL_auxz00_8409;
BgL_auxz00_8409 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(46068L), BGl_string3453z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_1607); 
FAILURE(BgL_auxz00_8409,BFALSE,BFALSE);} 
BgL_iz00_8405 = 
ADDFX(BgL_tmpz00_8406, 
BINT(1L)); } 
BgL_iz00_1607 = BgL_iz00_8405; 
goto BgL_zc3z04anonymousza31641ze3z87_1608;}  else 
{ /* Ieee/string.scm 1107 */
return BgL_iz00_1607;} } } }  else 
{ /* Ieee/string.scm 1102 */
{ /* Ieee/string.scm 1114 */
 long BgL_arg1656z00_1619;
{ /* Ieee/string.scm 1114 */
 unsigned char BgL_tmpz00_8415;
{ /* Ieee/string.scm 339 */
 long BgL_l2465z00_4431;
BgL_l2465z00_4431 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_157)); 
if(
BOUND_CHECK(BgL_iz00_1603, BgL_l2465z00_4431))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_8415 = 
STRING_REF(
((obj_t)BgL_rsz00_157), BgL_iz00_1603)
; }  else 
{ 
 obj_t BgL_auxz00_8422;
BgL_auxz00_8422 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_157), 
(int)(BgL_l2465z00_4431), 
(int)(BgL_iz00_1603)); 
FAILURE(BgL_auxz00_8422,BFALSE,BFALSE);} } 
BgL_arg1656z00_1619 = 
(BgL_tmpz00_8415); } 
{ /* Ieee/string.scm 345 */
 long BgL_l2469z00_4435;
BgL_l2469z00_4435 = 
STRING_LENGTH(BgL_tz00_1599); 
if(
BOUND_CHECK(BgL_arg1656z00_1619, BgL_l2469z00_4435))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_tz00_1599, BgL_arg1656z00_1619, ((unsigned char)'y')); }  else 
{ 
 obj_t BgL_auxz00_8434;
BgL_auxz00_8434 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_tz00_1599, 
(int)(BgL_l2469z00_4435), 
(int)(BgL_arg1656z00_1619)); 
FAILURE(BgL_auxz00_8434,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_8440;
BgL_iz00_8440 = 
(BgL_iz00_1603-1L); 
BgL_iz00_1603 = BgL_iz00_8440; 
goto BgL_zc3z04anonymousza31639ze3z87_1604;} } } } } } }  else 
{ /* Ieee/string.scm 1081 */
return 
BGl_errorz00zz__errorz00(BGl_string3460z00zz__r4_strings_6_7z00, BGl_string3454z00zz__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 1120 */
{ /* Ieee/string.scm 1120 */
 obj_t BgL_sz00_1654; obj_t BgL_g1158z00_1655;
BgL_sz00_1654 = 
VECTOR_REF(BgL_opt1156z00_164,0L); 
BgL_g1158z00_1655 = 
VECTOR_REF(BgL_opt1156z00_164,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1156z00_164)) { case 2L : 

{ /* Ieee/string.scm 1120 */
 long BgL_startz00_1658;
{ /* Ieee/string.scm 1120 */
 obj_t BgL_stringz00_3264;
if(
STRINGP(BgL_sz00_1654))
{ /* Ieee/string.scm 1120 */
BgL_stringz00_3264 = BgL_sz00_1654; }  else 
{ 
 obj_t BgL_auxz00_8447;
BgL_auxz00_8447 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(46477L), BGl_string3467z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_sz00_1654); 
FAILURE(BgL_auxz00_8447,BFALSE,BFALSE);} 
BgL_startz00_1658 = 
STRING_LENGTH(BgL_stringz00_3264); } 
{ /* Ieee/string.scm 1120 */

{ /* Ieee/string.scm 1120 */
 obj_t BgL_auxz00_8452;
if(
STRINGP(BgL_sz00_1654))
{ /* Ieee/string.scm 1120 */
BgL_auxz00_8452 = BgL_sz00_1654
; }  else 
{ 
 obj_t BgL_auxz00_8455;
BgL_auxz00_8455 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(46427L), BGl_string3467z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_sz00_1654); 
FAILURE(BgL_auxz00_8455,BFALSE,BFALSE);} 
return 
BGl_stringzd2skipzd2rightz00zz__r4_strings_6_7z00(BgL_auxz00_8452, BgL_g1158z00_1655, 
BINT(BgL_startz00_1658));} } } break;case 3L : 

{ /* Ieee/string.scm 1120 */
 obj_t BgL_startz00_1659;
BgL_startz00_1659 = 
VECTOR_REF(BgL_opt1156z00_164,2L); 
{ /* Ieee/string.scm 1120 */

{ /* Ieee/string.scm 1120 */
 obj_t BgL_auxz00_8462;
if(
STRINGP(BgL_sz00_1654))
{ /* Ieee/string.scm 1120 */
BgL_auxz00_8462 = BgL_sz00_1654
; }  else 
{ 
 obj_t BgL_auxz00_8465;
BgL_auxz00_8465 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(46427L), BGl_string3467z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_sz00_1654); 
FAILURE(BgL_auxz00_8465,BFALSE,BFALSE);} 
return 
BGl_stringzd2skipzd2rightz00zz__r4_strings_6_7z00(BgL_auxz00_8462, BgL_g1158z00_1655, BgL_startz00_1659);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3465z00zz__r4_strings_6_7z00, BGl_string3386z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1156z00_164)));} } } } 

}



/* 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 1120 */
{ 
 obj_t BgL_sz00_1734; obj_t BgL_predz00_1735; obj_t BgL_sz00_1721; obj_t BgL_cz00_1722;
{ /* Ieee/string.scm 1143 */
 bool_t BgL_test4160z00_8475;
{ /* Ieee/string.scm 1143 */
 long BgL_n1z00_3278;
{ /* Ieee/string.scm 1143 */
 obj_t BgL_tmpz00_8476;
if(
INTEGERP(BgL_startz00_163))
{ /* Ieee/string.scm 1143 */
BgL_tmpz00_8476 = BgL_startz00_163
; }  else 
{ 
 obj_t BgL_auxz00_8479;
BgL_auxz00_8479 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(46905L), BGl_string3466z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_163); 
FAILURE(BgL_auxz00_8479,BFALSE,BFALSE);} 
BgL_n1z00_3278 = 
(long)CINT(BgL_tmpz00_8476); } 
BgL_test4160z00_8475 = 
(BgL_n1z00_3278>
STRING_LENGTH(BgL_sz00_161)); } 
if(BgL_test4160z00_8475)
{ /* Ieee/string.scm 1143 */
return 
BGl_errorz00zz__errorz00(BGl_string3451z00zz__r4_strings_6_7z00, BGl_string3458z00zz__r4_strings_6_7z00, BgL_startz00_163);}  else 
{ /* Ieee/string.scm 1143 */
if(
CHARP(BgL_rsz00_162))
{ /* Ieee/string.scm 1145 */
BgL_sz00_1721 = BgL_sz00_161; 
BgL_cz00_1722 = BgL_rsz00_162; 
BgL_zc3z04anonymousza31730ze3z87_1723:
{ 
 long BgL_iz00_1726;
{ /* Ieee/string.scm 1123 */
 long BgL_za71za7_3265;
{ /* Ieee/string.scm 1123 */
 obj_t BgL_tmpz00_8508;
if(
INTEGERP(BgL_startz00_163))
{ /* Ieee/string.scm 1123 */
BgL_tmpz00_8508 = BgL_startz00_163
; }  else 
{ 
 obj_t BgL_auxz00_8511;
BgL_auxz00_8511 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(46560L), BGl_string3468z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_163); 
FAILURE(BgL_auxz00_8511,BFALSE,BFALSE);} 
BgL_za71za7_3265 = 
(long)CINT(BgL_tmpz00_8508); } 
BgL_iz00_1726 = 
(BgL_za71za7_3265-1L); } 
BgL_zc3z04anonymousza31731ze3z87_1727:
if(
(BgL_iz00_1726<0L))
{ /* Ieee/string.scm 1125 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1127 */
 bool_t BgL_test4164z00_8491;
{ /* Ieee/string.scm 1127 */
 unsigned char BgL_char2z00_3270;
BgL_char2z00_3270 = 
CCHAR(BgL_cz00_1722); 
{ /* Ieee/string.scm 1127 */
 unsigned char BgL_tmpz00_8493;
{ /* Ieee/string.scm 339 */
 long BgL_l2473z00_4439;
BgL_l2473z00_4439 = 
STRING_LENGTH(BgL_sz00_1721); 
if(
BOUND_CHECK(BgL_iz00_1726, BgL_l2473z00_4439))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_8493 = 
STRING_REF(BgL_sz00_1721, BgL_iz00_1726)
; }  else 
{ 
 obj_t BgL_auxz00_8498;
BgL_auxz00_8498 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_sz00_1721, 
(int)(BgL_l2473z00_4439), 
(int)(BgL_iz00_1726)); 
FAILURE(BgL_auxz00_8498,BFALSE,BFALSE);} } 
BgL_test4164z00_8491 = 
(BgL_tmpz00_8493==BgL_char2z00_3270); } } 
if(BgL_test4164z00_8491)
{ 
 long BgL_iz00_8505;
BgL_iz00_8505 = 
(BgL_iz00_1726-1L); 
BgL_iz00_1726 = BgL_iz00_8505; 
goto BgL_zc3z04anonymousza31731ze3z87_1727;}  else 
{ /* Ieee/string.scm 1127 */
return 
BINT(BgL_iz00_1726);} } } }  else 
{ /* Ieee/string.scm 1145 */
if(
PROCEDUREP(BgL_rsz00_162))
{ /* Ieee/string.scm 1147 */
BgL_sz00_1734 = BgL_sz00_161; 
BgL_predz00_1735 = BgL_rsz00_162; 
{ /* Ieee/string.scm 1133 */
 long BgL_g1040z00_1737;
{ /* Ieee/string.scm 1133 */
 long BgL_za71za7_3272;
{ /* Ieee/string.scm 1133 */
 obj_t BgL_tmpz00_8519;
if(
INTEGERP(BgL_startz00_163))
{ /* Ieee/string.scm 1133 */
BgL_tmpz00_8519 = BgL_startz00_163
; }  else 
{ 
 obj_t BgL_auxz00_8522;
BgL_auxz00_8522 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(46755L), BGl_string3469z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_163); 
FAILURE(BgL_auxz00_8522,BFALSE,BFALSE);} 
BgL_za71za7_3272 = 
(long)CINT(BgL_tmpz00_8519); } 
BgL_g1040z00_1737 = 
(BgL_za71za7_3272-1L); } 
{ 
 long BgL_iz00_1739;
BgL_iz00_1739 = BgL_g1040z00_1737; 
BgL_zc3z04anonymousza31738ze3z87_1740:
if(
(BgL_iz00_1739<0L))
{ /* Ieee/string.scm 1135 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1137 */
 bool_t BgL_test4170z00_8530;
{ /* Ieee/string.scm 1137 */
 unsigned char BgL_arg1744z00_1745;
{ /* Ieee/string.scm 339 */
 long BgL_l2477z00_4443;
BgL_l2477z00_4443 = 
STRING_LENGTH(BgL_sz00_1734); 
if(
BOUND_CHECK(BgL_iz00_1739, BgL_l2477z00_4443))
{ /* Ieee/string.scm 339 */
BgL_arg1744z00_1745 = 
STRING_REF(BgL_sz00_1734, BgL_iz00_1739); }  else 
{ 
 obj_t BgL_auxz00_8535;
BgL_auxz00_8535 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_sz00_1734, 
(int)(BgL_l2477z00_4443), 
(int)(BgL_iz00_1739)); 
FAILURE(BgL_auxz00_8535,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_1735, 1L))
{ /* Ieee/string.scm 1137 */
BgL_test4170z00_8530 = 
CBOOL(
(VA_PROCEDUREP( BgL_predz00_1735 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_predz00_1735))(BgL_predz00_1735, 
BCHAR(BgL_arg1744z00_1745), BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_predz00_1735))(BgL_predz00_1735, 
BCHAR(BgL_arg1744z00_1745)) ))
; }  else 
{ /* Ieee/string.scm 1137 */
FAILURE(BGl_string3430z00zz__r4_strings_6_7z00,BGl_list3470z00zz__r4_strings_6_7z00,BgL_predz00_1735);} } 
if(BgL_test4170z00_8530)
{ 
 long BgL_iz00_8550;
BgL_iz00_8550 = 
(BgL_iz00_1739-1L); 
BgL_iz00_1739 = BgL_iz00_8550; 
goto BgL_zc3z04anonymousza31738ze3z87_1740;}  else 
{ /* Ieee/string.scm 1137 */
return 
BINT(BgL_iz00_1739);} } } } }  else 
{ /* Ieee/string.scm 1147 */
if(
STRINGP(BgL_rsz00_162))
{ /* Ieee/string.scm 1149 */
if(
(
STRING_LENGTH(BgL_rsz00_162)==1L))
{ 
 obj_t BgL_cz00_8559; obj_t BgL_sz00_8558;
BgL_sz00_8558 = BgL_sz00_161; 
{ /* Ieee/string.scm 327 */
 long BgL_l2481z00_4447;
BgL_l2481z00_4447 = 
STRING_LENGTH(BgL_rsz00_162); 
if(
BOUND_CHECK(0L, BgL_l2481z00_4447))
{ /* Ieee/string.scm 327 */
BgL_cz00_8559 = 
BCHAR(
STRING_REF(BgL_rsz00_162, 0L)); }  else 
{ 
 obj_t BgL_auxz00_8565;
BgL_auxz00_8565 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_rsz00_162, 
(int)(BgL_l2481z00_4447), 
(int)(0L)); 
FAILURE(BgL_auxz00_8565,BFALSE,BFALSE);} } 
BgL_cz00_1722 = BgL_cz00_8559; 
BgL_sz00_1721 = BgL_sz00_8558; 
goto BgL_zc3z04anonymousza31730ze3z87_1723;}  else 
{ /* Ieee/string.scm 1151 */
if(
(
STRING_LENGTH(BgL_rsz00_162)<=10L))
{ /* Ieee/string.scm 1154 */
 long BgL_lenjz00_1674;
BgL_lenjz00_1674 = 
STRING_LENGTH(BgL_rsz00_162); 
{ 
 long BgL_iz00_1677;
{ /* Ieee/string.scm 1156 */
 long BgL_za71za7_3287;
{ /* Ieee/string.scm 1156 */
 obj_t BgL_tmpz00_8610;
if(
INTEGERP(BgL_startz00_163))
{ /* Ieee/string.scm 1156 */
BgL_tmpz00_8610 = BgL_startz00_163
; }  else 
{ 
 obj_t BgL_auxz00_8613;
BgL_auxz00_8613 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(47385L), BGl_string3466z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_163); 
FAILURE(BgL_auxz00_8613,BFALSE,BFALSE);} 
BgL_za71za7_3287 = 
(long)CINT(BgL_tmpz00_8610); } 
BgL_iz00_1677 = 
(BgL_za71za7_3287-1L); } 
BgL_zc3z04anonymousza31697ze3z87_1678:
if(
(BgL_iz00_1677<0L))
{ /* Ieee/string.scm 1157 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1159 */
 unsigned char BgL_cz00_1680;
{ /* Ieee/string.scm 327 */
 long BgL_l2485z00_4451;
BgL_l2485z00_4451 = 
STRING_LENGTH(BgL_sz00_161); 
if(
BOUND_CHECK(BgL_iz00_1677, BgL_l2485z00_4451))
{ /* Ieee/string.scm 327 */
BgL_cz00_1680 = 
STRING_REF(BgL_sz00_161, BgL_iz00_1677); }  else 
{ 
 obj_t BgL_auxz00_8581;
BgL_auxz00_8581 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_sz00_161, 
(int)(BgL_l2485z00_4451), 
(int)(BgL_iz00_1677)); 
FAILURE(BgL_auxz00_8581,BFALSE,BFALSE);} } 
{ 
 long BgL_jz00_1682;
BgL_jz00_1682 = 0L; 
BgL_zc3z04anonymousza31699ze3z87_1683:
if(
(BgL_jz00_1682==BgL_lenjz00_1674))
{ /* Ieee/string.scm 1161 */
return 
BINT(BgL_iz00_1677);}  else 
{ /* Ieee/string.scm 1163 */
 bool_t BgL_test4180z00_8590;
{ /* Ieee/string.scm 1163 */
 unsigned char BgL_tmpz00_8591;
{ /* Ieee/string.scm 339 */
 long BgL_l2489z00_4455;
BgL_l2489z00_4455 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_162)); 
if(
BOUND_CHECK(BgL_jz00_1682, BgL_l2489z00_4455))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_8591 = 
STRING_REF(
((obj_t)BgL_rsz00_162), BgL_jz00_1682)
; }  else 
{ 
 obj_t BgL_auxz00_8598;
BgL_auxz00_8598 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_162), 
(int)(BgL_l2489z00_4455), 
(int)(BgL_jz00_1682)); 
FAILURE(BgL_auxz00_8598,BFALSE,BFALSE);} } 
BgL_test4180z00_8590 = 
(BgL_cz00_1680==BgL_tmpz00_8591); } 
if(BgL_test4180z00_8590)
{ 
 long BgL_iz00_8606;
BgL_iz00_8606 = 
(BgL_iz00_1677-1L); 
BgL_iz00_1677 = BgL_iz00_8606; 
goto BgL_zc3z04anonymousza31697ze3z87_1678;}  else 
{ 
 long BgL_jz00_8608;
BgL_jz00_8608 = 
(BgL_jz00_1682+1L); 
BgL_jz00_1682 = BgL_jz00_8608; 
goto BgL_zc3z04anonymousza31699ze3z87_1683;} } } } } }  else 
{ /* Ieee/string.scm 1167 */
 obj_t BgL_tz00_1692;
BgL_tz00_1692 = 
make_string(256L, ((unsigned char)'n')); 
{ /* Ieee/string.scm 1169 */
 long BgL_g1042z00_1694;
BgL_g1042z00_1694 = 
(
STRING_LENGTH(BgL_rsz00_162)-1L); 
{ 
 long BgL_iz00_1696;
BgL_iz00_1696 = BgL_g1042z00_1694; 
BgL_zc3z04anonymousza31709ze3z87_1697:
if(
(BgL_iz00_1696==-1L))
{ 
 long BgL_iz00_1701;
{ /* Ieee/string.scm 1171 */
 long BgL_za71za7_3303;
{ /* Ieee/string.scm 1171 */
 obj_t BgL_tmpz00_8654;
if(
INTEGERP(BgL_startz00_163))
{ /* Ieee/string.scm 1171 */
BgL_tmpz00_8654 = BgL_startz00_163
; }  else 
{ 
 obj_t BgL_auxz00_8657;
BgL_auxz00_8657 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(47786L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_163); 
FAILURE(BgL_auxz00_8657,BFALSE,BFALSE);} 
BgL_za71za7_3303 = 
(long)CINT(BgL_tmpz00_8654); } 
BgL_iz00_1701 = 
(BgL_za71za7_3303-1L); } 
BgL_zc3z04anonymousza31711ze3z87_1702:
if(
(BgL_iz00_1701<0L))
{ /* Ieee/string.scm 1173 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1175 */
 bool_t BgL_test4185z00_8626;
{ /* Ieee/string.scm 1175 */
 unsigned char BgL_tmpz00_8627;
{ /* Ieee/string.scm 1176 */
 long BgL_i2496z00_4462;
{ /* Ieee/string.scm 1176 */
 unsigned char BgL_tmpz00_8628;
{ /* Ieee/string.scm 339 */
 long BgL_l2493z00_4459;
BgL_l2493z00_4459 = 
STRING_LENGTH(BgL_sz00_161); 
if(
BOUND_CHECK(BgL_iz00_1701, BgL_l2493z00_4459))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_8628 = 
STRING_REF(BgL_sz00_161, BgL_iz00_1701)
; }  else 
{ 
 obj_t BgL_auxz00_8633;
BgL_auxz00_8633 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_sz00_161, 
(int)(BgL_l2493z00_4459), 
(int)(BgL_iz00_1701)); 
FAILURE(BgL_auxz00_8633,BFALSE,BFALSE);} } 
BgL_i2496z00_4462 = 
(BgL_tmpz00_8628); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2497z00_4463;
BgL_l2497z00_4463 = 
STRING_LENGTH(BgL_tz00_1692); 
if(
BOUND_CHECK(BgL_i2496z00_4462, BgL_l2497z00_4463))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_8627 = 
STRING_REF(BgL_tz00_1692, BgL_i2496z00_4462)
; }  else 
{ 
 obj_t BgL_auxz00_8644;
BgL_auxz00_8644 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_tz00_1692, 
(int)(BgL_l2497z00_4463), 
(int)(BgL_i2496z00_4462)); 
FAILURE(BgL_auxz00_8644,BFALSE,BFALSE);} } } 
BgL_test4185z00_8626 = 
(BgL_tmpz00_8627==((unsigned char)'y')); } 
if(BgL_test4185z00_8626)
{ 
 long BgL_iz00_8651;
BgL_iz00_8651 = 
(BgL_iz00_1701-1L); 
BgL_iz00_1701 = BgL_iz00_8651; 
goto BgL_zc3z04anonymousza31711ze3z87_1702;}  else 
{ /* Ieee/string.scm 1175 */
return 
BINT(BgL_iz00_1701);} } }  else 
{ /* Ieee/string.scm 1170 */
{ /* Ieee/string.scm 1182 */
 long BgL_arg1722z00_1713;
{ /* Ieee/string.scm 1182 */
 unsigned char BgL_tmpz00_8663;
{ /* Ieee/string.scm 339 */
 long BgL_l2501z00_4467;
BgL_l2501z00_4467 = 
STRING_LENGTH(
((obj_t)BgL_rsz00_162)); 
if(
BOUND_CHECK(BgL_iz00_1696, BgL_l2501z00_4467))
{ /* Ieee/string.scm 339 */
BgL_tmpz00_8663 = 
STRING_REF(
((obj_t)BgL_rsz00_162), BgL_iz00_1696)
; }  else 
{ 
 obj_t BgL_auxz00_8670;
BgL_auxz00_8670 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, 
((obj_t)BgL_rsz00_162), 
(int)(BgL_l2501z00_4467), 
(int)(BgL_iz00_1696)); 
FAILURE(BgL_auxz00_8670,BFALSE,BFALSE);} } 
BgL_arg1722z00_1713 = 
(BgL_tmpz00_8663); } 
{ /* Ieee/string.scm 345 */
 long BgL_l2505z00_4471;
BgL_l2505z00_4471 = 
STRING_LENGTH(BgL_tz00_1692); 
if(
BOUND_CHECK(BgL_arg1722z00_1713, BgL_l2505z00_4471))
{ /* Ieee/string.scm 345 */
STRING_SET(BgL_tz00_1692, BgL_arg1722z00_1713, ((unsigned char)'y')); }  else 
{ 
 obj_t BgL_auxz00_8682;
BgL_auxz00_8682 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(17002L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_tz00_1692, 
(int)(BgL_l2505z00_4471), 
(int)(BgL_arg1722z00_1713)); 
FAILURE(BgL_auxz00_8682,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_8688;
BgL_iz00_8688 = 
(BgL_iz00_1696-1L); 
BgL_iz00_1696 = BgL_iz00_8688; 
goto BgL_zc3z04anonymousza31709ze3z87_1697;} } } } } } }  else 
{ /* Ieee/string.scm 1149 */
return 
BGl_errorz00zz__errorz00(BGl_string3456z00zz__r4_strings_6_7z00, BGl_string3454z00zz__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 1216 */
{ /* Ieee/string.scm 1216 */
 obj_t BgL_s1z00_1757; obj_t BgL_s2z00_1758;
BgL_s1z00_1757 = 
VECTOR_REF(BgL_opt1161z00_182,0L); 
BgL_s2z00_1758 = 
VECTOR_REF(BgL_opt1161z00_182,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1161z00_182)) { case 2L : 

{ /* Ieee/string.scm 1216 */

{ /* Ieee/string.scm 1216 */
 int BgL_tmpz00_8693;
{ /* Ieee/string.scm 1216 */
 obj_t BgL_auxz00_8701; obj_t BgL_auxz00_8694;
if(
STRINGP(BgL_s2z00_1758))
{ /* Ieee/string.scm 1216 */
BgL_auxz00_8701 = BgL_s2z00_1758
; }  else 
{ 
 obj_t BgL_auxz00_8704;
BgL_auxz00_8704 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49330L), BGl_string3476z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1758); 
FAILURE(BgL_auxz00_8704,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1757))
{ /* Ieee/string.scm 1216 */
BgL_auxz00_8694 = BgL_s1z00_1757
; }  else 
{ 
 obj_t BgL_auxz00_8697;
BgL_auxz00_8697 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49330L), BGl_string3476z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1757); 
FAILURE(BgL_auxz00_8697,BFALSE,BFALSE);} 
BgL_tmpz00_8693 = 
BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_8694, BgL_auxz00_8701, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_8693);} } break;case 3L : 

{ /* Ieee/string.scm 1216 */
 obj_t BgL_start1z00_1765;
BgL_start1z00_1765 = 
VECTOR_REF(BgL_opt1161z00_182,2L); 
{ /* Ieee/string.scm 1216 */

{ /* Ieee/string.scm 1216 */
 int BgL_tmpz00_8711;
{ /* Ieee/string.scm 1216 */
 obj_t BgL_auxz00_8719; obj_t BgL_auxz00_8712;
if(
STRINGP(BgL_s2z00_1758))
{ /* Ieee/string.scm 1216 */
BgL_auxz00_8719 = BgL_s2z00_1758
; }  else 
{ 
 obj_t BgL_auxz00_8722;
BgL_auxz00_8722 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49330L), BGl_string3476z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1758); 
FAILURE(BgL_auxz00_8722,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1757))
{ /* Ieee/string.scm 1216 */
BgL_auxz00_8712 = BgL_s1z00_1757
; }  else 
{ 
 obj_t BgL_auxz00_8715;
BgL_auxz00_8715 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49330L), BGl_string3476z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1757); 
FAILURE(BgL_auxz00_8715,BFALSE,BFALSE);} 
BgL_tmpz00_8711 = 
BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_8712, BgL_auxz00_8719, BgL_start1z00_1765, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_8711);} } } break;case 4L : 

{ /* Ieee/string.scm 1216 */
 obj_t BgL_start1z00_1769;
BgL_start1z00_1769 = 
VECTOR_REF(BgL_opt1161z00_182,2L); 
{ /* Ieee/string.scm 1216 */
 obj_t BgL_end1z00_1770;
BgL_end1z00_1770 = 
VECTOR_REF(BgL_opt1161z00_182,3L); 
{ /* Ieee/string.scm 1216 */

{ /* Ieee/string.scm 1216 */
 int BgL_tmpz00_8730;
{ /* Ieee/string.scm 1216 */
 obj_t BgL_auxz00_8738; obj_t BgL_auxz00_8731;
if(
STRINGP(BgL_s2z00_1758))
{ /* Ieee/string.scm 1216 */
BgL_auxz00_8738 = BgL_s2z00_1758
; }  else 
{ 
 obj_t BgL_auxz00_8741;
BgL_auxz00_8741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49330L), BGl_string3476z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1758); 
FAILURE(BgL_auxz00_8741,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1757))
{ /* Ieee/string.scm 1216 */
BgL_auxz00_8731 = BgL_s1z00_1757
; }  else 
{ 
 obj_t BgL_auxz00_8734;
BgL_auxz00_8734 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49330L), BGl_string3476z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1757); 
FAILURE(BgL_auxz00_8734,BFALSE,BFALSE);} 
BgL_tmpz00_8730 = 
BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_8731, BgL_auxz00_8738, BgL_start1z00_1769, BgL_end1z00_1770, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_8730);} } } } break;case 5L : 

{ /* Ieee/string.scm 1216 */
 obj_t BgL_start1z00_1773;
BgL_start1z00_1773 = 
VECTOR_REF(BgL_opt1161z00_182,2L); 
{ /* Ieee/string.scm 1216 */
 obj_t BgL_end1z00_1774;
BgL_end1z00_1774 = 
VECTOR_REF(BgL_opt1161z00_182,3L); 
{ /* Ieee/string.scm 1216 */
 obj_t BgL_start2z00_1775;
BgL_start2z00_1775 = 
VECTOR_REF(BgL_opt1161z00_182,4L); 
{ /* Ieee/string.scm 1216 */

{ /* Ieee/string.scm 1216 */
 int BgL_tmpz00_8750;
{ /* Ieee/string.scm 1216 */
 obj_t BgL_auxz00_8758; obj_t BgL_auxz00_8751;
if(
STRINGP(BgL_s2z00_1758))
{ /* Ieee/string.scm 1216 */
BgL_auxz00_8758 = BgL_s2z00_1758
; }  else 
{ 
 obj_t BgL_auxz00_8761;
BgL_auxz00_8761 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49330L), BGl_string3476z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1758); 
FAILURE(BgL_auxz00_8761,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1757))
{ /* Ieee/string.scm 1216 */
BgL_auxz00_8751 = BgL_s1z00_1757
; }  else 
{ 
 obj_t BgL_auxz00_8754;
BgL_auxz00_8754 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49330L), BGl_string3476z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1757); 
FAILURE(BgL_auxz00_8754,BFALSE,BFALSE);} 
BgL_tmpz00_8750 = 
BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_8751, BgL_auxz00_8758, BgL_start1z00_1773, BgL_end1z00_1774, BgL_start2z00_1775, BFALSE); } 
return 
BINT(BgL_tmpz00_8750);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1216 */
 obj_t BgL_start1z00_1777;
BgL_start1z00_1777 = 
VECTOR_REF(BgL_opt1161z00_182,2L); 
{ /* Ieee/string.scm 1216 */
 obj_t BgL_end1z00_1778;
BgL_end1z00_1778 = 
VECTOR_REF(BgL_opt1161z00_182,3L); 
{ /* Ieee/string.scm 1216 */
 obj_t BgL_start2z00_1779;
BgL_start2z00_1779 = 
VECTOR_REF(BgL_opt1161z00_182,4L); 
{ /* Ieee/string.scm 1216 */
 obj_t BgL_end2z00_1780;
BgL_end2z00_1780 = 
VECTOR_REF(BgL_opt1161z00_182,5L); 
{ /* Ieee/string.scm 1216 */

{ /* Ieee/string.scm 1216 */
 int BgL_tmpz00_8771;
{ /* Ieee/string.scm 1216 */
 obj_t BgL_auxz00_8779; obj_t BgL_auxz00_8772;
if(
STRINGP(BgL_s2z00_1758))
{ /* Ieee/string.scm 1216 */
BgL_auxz00_8779 = BgL_s2z00_1758
; }  else 
{ 
 obj_t BgL_auxz00_8782;
BgL_auxz00_8782 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49330L), BGl_string3476z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1758); 
FAILURE(BgL_auxz00_8782,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1757))
{ /* Ieee/string.scm 1216 */
BgL_auxz00_8772 = BgL_s1z00_1757
; }  else 
{ 
 obj_t BgL_auxz00_8775;
BgL_auxz00_8775 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49330L), BGl_string3476z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1757); 
FAILURE(BgL_auxz00_8775,BFALSE,BFALSE);} 
BgL_tmpz00_8771 = 
BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_8772, BgL_auxz00_8779, BgL_start1z00_1777, BgL_end1z00_1778, BgL_start2z00_1779, BgL_end2z00_1780); } 
return 
BINT(BgL_tmpz00_8771);} } } } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3473z00zz__r4_strings_6_7z00, BGl_string3475z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1161z00_182)));} } } } 

}



/* 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 1216 */
{ /* Ieee/string.scm 1218 */
 long BgL_l1z00_1782;
BgL_l1z00_1782 = 
STRING_LENGTH(BgL_s1z00_176); 
{ /* Ieee/string.scm 1218 */
 long BgL_l2z00_1783;
BgL_l2z00_1783 = 
STRING_LENGTH(BgL_s2z00_177); 
{ /* Ieee/string.scm 1219 */
 obj_t BgL_e1z00_1784;
{ /* Ieee/string.scm 1220 */
 obj_t BgL_procz00_3336;
BgL_procz00_3336 = BGl_symbol3477z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_179))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4202z00_8797;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3341;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_8798;
if(
INTEGERP(BgL_end1z00_179))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_8798 = BgL_end1z00_179
; }  else 
{ 
 obj_t BgL_auxz00_8801;
BgL_auxz00_8801 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3478z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_179); 
FAILURE(BgL_auxz00_8801,BFALSE,BFALSE);} 
BgL_n1z00_3341 = 
(long)CINT(BgL_tmpz00_8798); } 
BgL_test4202z00_8797 = 
(BgL_n1z00_3341<=0L); } 
if(BgL_test4202z00_8797)
{ /* Ieee/string.scm 1206 */
BgL_e1z00_1784 = 
BGl_errorz00zz__errorz00(BgL_procz00_3336, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_179); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4204z00_8809;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3342;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_8810;
if(
INTEGERP(BgL_end1z00_179))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_8810 = BgL_end1z00_179
; }  else 
{ 
 obj_t BgL_auxz00_8813;
BgL_auxz00_8813 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3478z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_179); 
FAILURE(BgL_auxz00_8813,BFALSE,BFALSE);} 
BgL_n1z00_3342 = 
(long)CINT(BgL_tmpz00_8810); } 
BgL_test4204z00_8809 = 
(BgL_n1z00_3342>BgL_l1z00_1782); } 
if(BgL_test4204z00_8809)
{ /* Ieee/string.scm 1208 */
BgL_e1z00_1784 = 
BGl_errorz00zz__errorz00(BgL_procz00_3336, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_179); }  else 
{ /* Ieee/string.scm 1208 */
BgL_e1z00_1784 = BgL_end1z00_179; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_e1z00_1784 = 
BINT(BgL_l1z00_1782); } } 
{ /* Ieee/string.scm 1220 */
 obj_t BgL_e2z00_1785;
{ /* Ieee/string.scm 1221 */
 obj_t BgL_procz00_3344;
BgL_procz00_3344 = BGl_symbol3477z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_181))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4207z00_8824;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3349;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_8825;
if(
INTEGERP(BgL_end2z00_181))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_8825 = BgL_end2z00_181
; }  else 
{ 
 obj_t BgL_auxz00_8828;
BgL_auxz00_8828 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3478z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_181); 
FAILURE(BgL_auxz00_8828,BFALSE,BFALSE);} 
BgL_n1z00_3349 = 
(long)CINT(BgL_tmpz00_8825); } 
BgL_test4207z00_8824 = 
(BgL_n1z00_3349<=0L); } 
if(BgL_test4207z00_8824)
{ /* Ieee/string.scm 1206 */
BgL_e2z00_1785 = 
BGl_errorz00zz__errorz00(BgL_procz00_3344, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_181); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4209z00_8836;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3350;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_8837;
if(
INTEGERP(BgL_end2z00_181))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_8837 = BgL_end2z00_181
; }  else 
{ 
 obj_t BgL_auxz00_8840;
BgL_auxz00_8840 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3478z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_181); 
FAILURE(BgL_auxz00_8840,BFALSE,BFALSE);} 
BgL_n1z00_3350 = 
(long)CINT(BgL_tmpz00_8837); } 
BgL_test4209z00_8836 = 
(BgL_n1z00_3350>BgL_l2z00_1783); } 
if(BgL_test4209z00_8836)
{ /* Ieee/string.scm 1208 */
BgL_e2z00_1785 = 
BGl_errorz00zz__errorz00(BgL_procz00_3344, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_181); }  else 
{ /* Ieee/string.scm 1208 */
BgL_e2z00_1785 = BgL_end2z00_181; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_e2z00_1785 = 
BINT(BgL_l2z00_1783); } } 
{ /* Ieee/string.scm 1221 */
 obj_t BgL_b1z00_1786;
{ /* Ieee/string.scm 1222 */
 obj_t BgL_procz00_3352;
BgL_procz00_3352 = BGl_symbol3477z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_178))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4212z00_8851;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3357;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_8852;
if(
INTEGERP(BgL_start1z00_178))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_8852 = BgL_start1z00_178
; }  else 
{ 
 obj_t BgL_auxz00_8855;
BgL_auxz00_8855 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3478z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_178); 
FAILURE(BgL_auxz00_8855,BFALSE,BFALSE);} 
BgL_n1z00_3357 = 
(long)CINT(BgL_tmpz00_8852); } 
BgL_test4212z00_8851 = 
(BgL_n1z00_3357<0L); } 
if(BgL_test4212z00_8851)
{ /* Ieee/string.scm 1192 */
BgL_b1z00_1786 = 
BGl_errorz00zz__errorz00(BgL_procz00_3352, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_178); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4214z00_8863;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3358;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_8864;
if(
INTEGERP(BgL_start1z00_178))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_8864 = BgL_start1z00_178
; }  else 
{ 
 obj_t BgL_auxz00_8867;
BgL_auxz00_8867 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3478z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_178); 
FAILURE(BgL_auxz00_8867,BFALSE,BFALSE);} 
BgL_n1z00_3358 = 
(long)CINT(BgL_tmpz00_8864); } 
BgL_test4214z00_8863 = 
(BgL_n1z00_3358>=BgL_l1z00_1782); } 
if(BgL_test4214z00_8863)
{ /* Ieee/string.scm 1194 */
BgL_b1z00_1786 = 
BGl_errorz00zz__errorz00(BgL_procz00_3352, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_178); }  else 
{ /* Ieee/string.scm 1194 */
BgL_b1z00_1786 = BgL_start1z00_178; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_b1z00_1786 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1222 */
 obj_t BgL_b2z00_1787;
{ /* Ieee/string.scm 1223 */
 obj_t BgL_procz00_3360;
BgL_procz00_3360 = BGl_symbol3477z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_180))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4217z00_8878;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3365;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_8879;
if(
INTEGERP(BgL_start2z00_180))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_8879 = BgL_start2z00_180
; }  else 
{ 
 obj_t BgL_auxz00_8882;
BgL_auxz00_8882 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3478z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_180); 
FAILURE(BgL_auxz00_8882,BFALSE,BFALSE);} 
BgL_n1z00_3365 = 
(long)CINT(BgL_tmpz00_8879); } 
BgL_test4217z00_8878 = 
(BgL_n1z00_3365<0L); } 
if(BgL_test4217z00_8878)
{ /* Ieee/string.scm 1192 */
BgL_b2z00_1787 = 
BGl_errorz00zz__errorz00(BgL_procz00_3360, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_180); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4219z00_8890;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3366;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_8891;
if(
INTEGERP(BgL_start2z00_180))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_8891 = BgL_start2z00_180
; }  else 
{ 
 obj_t BgL_auxz00_8894;
BgL_auxz00_8894 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3478z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_180); 
FAILURE(BgL_auxz00_8894,BFALSE,BFALSE);} 
BgL_n1z00_3366 = 
(long)CINT(BgL_tmpz00_8891); } 
BgL_test4219z00_8890 = 
(BgL_n1z00_3366>=BgL_l2z00_1783); } 
if(BgL_test4219z00_8890)
{ /* Ieee/string.scm 1194 */
BgL_b2z00_1787 = 
BGl_errorz00zz__errorz00(BgL_procz00_3360, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_180); }  else 
{ /* Ieee/string.scm 1194 */
BgL_b2z00_1787 = BgL_start2z00_180; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_b2z00_1787 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1223 */

{ 
 obj_t BgL_i1z00_1789; obj_t BgL_i2z00_1790;
{ /* Ieee/string.scm 1224 */
 long BgL_tmpz00_8903;
BgL_i1z00_1789 = BgL_b1z00_1786; 
BgL_i2z00_1790 = BgL_b2z00_1787; 
BgL_zc3z04anonymousza31754ze3z87_1791:
{ /* Ieee/string.scm 1227 */
 bool_t BgL_test4221z00_8904;
{ /* Ieee/string.scm 1227 */
 bool_t BgL_test4222z00_8905;
{ /* Ieee/string.scm 1227 */
 long BgL_n1z00_3368; long BgL_n2z00_3369;
{ /* Ieee/string.scm 1227 */
 obj_t BgL_tmpz00_8906;
if(
INTEGERP(BgL_i1z00_1789))
{ /* Ieee/string.scm 1227 */
BgL_tmpz00_8906 = BgL_i1z00_1789
; }  else 
{ 
 obj_t BgL_auxz00_8909;
BgL_auxz00_8909 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49824L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1789); 
FAILURE(BgL_auxz00_8909,BFALSE,BFALSE);} 
BgL_n1z00_3368 = 
(long)CINT(BgL_tmpz00_8906); } 
{ /* Ieee/string.scm 1227 */
 obj_t BgL_tmpz00_8914;
if(
INTEGERP(BgL_e1z00_1784))
{ /* Ieee/string.scm 1227 */
BgL_tmpz00_8914 = BgL_e1z00_1784
; }  else 
{ 
 obj_t BgL_auxz00_8917;
BgL_auxz00_8917 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49827L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e1z00_1784); 
FAILURE(BgL_auxz00_8917,BFALSE,BFALSE);} 
BgL_n2z00_3369 = 
(long)CINT(BgL_tmpz00_8914); } 
BgL_test4222z00_8905 = 
(BgL_n1z00_3368==BgL_n2z00_3369); } 
if(BgL_test4222z00_8905)
{ /* Ieee/string.scm 1227 */
BgL_test4221z00_8904 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1227 */
 long BgL_n1z00_3370; long BgL_n2z00_3371;
{ /* Ieee/string.scm 1227 */
 obj_t BgL_tmpz00_8923;
if(
INTEGERP(BgL_i2z00_1790))
{ /* Ieee/string.scm 1227 */
BgL_tmpz00_8923 = BgL_i2z00_1790
; }  else 
{ 
 obj_t BgL_auxz00_8926;
BgL_auxz00_8926 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49836L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_1790); 
FAILURE(BgL_auxz00_8926,BFALSE,BFALSE);} 
BgL_n1z00_3370 = 
(long)CINT(BgL_tmpz00_8923); } 
{ /* Ieee/string.scm 1227 */
 obj_t BgL_tmpz00_8931;
if(
INTEGERP(BgL_e2z00_1785))
{ /* Ieee/string.scm 1227 */
BgL_tmpz00_8931 = BgL_e2z00_1785
; }  else 
{ 
 obj_t BgL_auxz00_8934;
BgL_auxz00_8934 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49839L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e2z00_1785); 
FAILURE(BgL_auxz00_8934,BFALSE,BFALSE);} 
BgL_n2z00_3371 = 
(long)CINT(BgL_tmpz00_8931); } 
BgL_test4221z00_8904 = 
(BgL_n1z00_3370==BgL_n2z00_3371); } } 
if(BgL_test4221z00_8904)
{ /* Ieee/string.scm 1228 */
 long BgL_za71za7_3372; long BgL_za72za7_3373;
{ /* Ieee/string.scm 1228 */
 obj_t BgL_tmpz00_8940;
if(
INTEGERP(BgL_i1z00_1789))
{ /* Ieee/string.scm 1228 */
BgL_tmpz00_8940 = BgL_i1z00_1789
; }  else 
{ 
 obj_t BgL_auxz00_8943;
BgL_auxz00_8943 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49855L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1789); 
FAILURE(BgL_auxz00_8943,BFALSE,BFALSE);} 
BgL_za71za7_3372 = 
(long)CINT(BgL_tmpz00_8940); } 
{ /* Ieee/string.scm 1228 */
 obj_t BgL_tmpz00_8948;
if(
INTEGERP(BgL_b1z00_1786))
{ /* Ieee/string.scm 1228 */
BgL_tmpz00_8948 = BgL_b1z00_1786
; }  else 
{ 
 obj_t BgL_auxz00_8951;
BgL_auxz00_8951 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49858L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_1786); 
FAILURE(BgL_auxz00_8951,BFALSE,BFALSE);} 
BgL_za72za7_3373 = 
(long)CINT(BgL_tmpz00_8948); } 
BgL_tmpz00_8903 = 
(BgL_za71za7_3372-BgL_za72za7_3373); }  else 
{ /* Ieee/string.scm 1229 */
 bool_t BgL_test4229z00_8957;
{ /* Ieee/string.scm 1229 */
 unsigned char BgL_auxz00_8977; unsigned char BgL_tmpz00_8958;
{ /* Ieee/string.scm 1229 */
 long BgL_kz00_3377;
{ /* Ieee/string.scm 1229 */
 obj_t BgL_tmpz00_8978;
if(
INTEGERP(BgL_i2z00_1790))
{ /* Ieee/string.scm 1229 */
BgL_tmpz00_8978 = BgL_i2z00_1790
; }  else 
{ 
 obj_t BgL_auxz00_8981;
BgL_auxz00_8981 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49911L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_1790); 
FAILURE(BgL_auxz00_8981,BFALSE,BFALSE);} 
BgL_kz00_3377 = 
(long)CINT(BgL_tmpz00_8978); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2513z00_4479;
BgL_l2513z00_4479 = 
STRING_LENGTH(BgL_s2z00_177); 
if(
BOUND_CHECK(BgL_kz00_3377, BgL_l2513z00_4479))
{ /* Ieee/string.scm 327 */
BgL_auxz00_8977 = 
STRING_REF(BgL_s2z00_177, BgL_kz00_3377)
; }  else 
{ 
 obj_t BgL_auxz00_8990;
BgL_auxz00_8990 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s2z00_177, 
(int)(BgL_l2513z00_4479), 
(int)(BgL_kz00_3377)); 
FAILURE(BgL_auxz00_8990,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1229 */
 long BgL_kz00_3375;
{ /* Ieee/string.scm 1229 */
 obj_t BgL_tmpz00_8959;
if(
INTEGERP(BgL_i1z00_1789))
{ /* Ieee/string.scm 1229 */
BgL_tmpz00_8959 = BgL_i1z00_1789
; }  else 
{ 
 obj_t BgL_auxz00_8962;
BgL_auxz00_8962 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49892L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1789); 
FAILURE(BgL_auxz00_8962,BFALSE,BFALSE);} 
BgL_kz00_3375 = 
(long)CINT(BgL_tmpz00_8959); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2509z00_4475;
BgL_l2509z00_4475 = 
STRING_LENGTH(BgL_s1z00_176); 
if(
BOUND_CHECK(BgL_kz00_3375, BgL_l2509z00_4475))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_8958 = 
STRING_REF(BgL_s1z00_176, BgL_kz00_3375)
; }  else 
{ 
 obj_t BgL_auxz00_8971;
BgL_auxz00_8971 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s1z00_176, 
(int)(BgL_l2509z00_4475), 
(int)(BgL_kz00_3375)); 
FAILURE(BgL_auxz00_8971,BFALSE,BFALSE);} } } 
BgL_test4229z00_8957 = 
(BgL_tmpz00_8958==BgL_auxz00_8977); } 
if(BgL_test4229z00_8957)
{ 
 obj_t BgL_i2z00_9007; obj_t BgL_i1z00_8997;
{ 
 obj_t BgL_tmpz00_8998;
if(
INTEGERP(BgL_i1z00_1789))
{ /* Ieee/string.scm 1230 */
BgL_tmpz00_8998 = BgL_i1z00_1789
; }  else 
{ 
 obj_t BgL_auxz00_9001;
BgL_auxz00_9001 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49933L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1789); 
FAILURE(BgL_auxz00_9001,BFALSE,BFALSE);} 
BgL_i1z00_8997 = 
ADDFX(BgL_tmpz00_8998, 
BINT(1L)); } 
{ 
 obj_t BgL_tmpz00_9008;
if(
INTEGERP(BgL_i2z00_1790))
{ /* Ieee/string.scm 1230 */
BgL_tmpz00_9008 = BgL_i2z00_1790
; }  else 
{ 
 obj_t BgL_auxz00_9011;
BgL_auxz00_9011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49944L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_1790); 
FAILURE(BgL_auxz00_9011,BFALSE,BFALSE);} 
BgL_i2z00_9007 = 
ADDFX(BgL_tmpz00_9008, 
BINT(1L)); } 
BgL_i2z00_1790 = BgL_i2z00_9007; 
BgL_i1z00_1789 = BgL_i1z00_8997; 
goto BgL_zc3z04anonymousza31754ze3z87_1791;}  else 
{ /* Ieee/string.scm 1232 */
 long BgL_za71za7_3382; long BgL_za72za7_3383;
{ /* Ieee/string.scm 1232 */
 obj_t BgL_tmpz00_9017;
if(
INTEGERP(BgL_i1z00_1789))
{ /* Ieee/string.scm 1232 */
BgL_tmpz00_9017 = BgL_i1z00_1789
; }  else 
{ 
 obj_t BgL_auxz00_9020;
BgL_auxz00_9020 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49974L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1789); 
FAILURE(BgL_auxz00_9020,BFALSE,BFALSE);} 
BgL_za71za7_3382 = 
(long)CINT(BgL_tmpz00_9017); } 
{ /* Ieee/string.scm 1232 */
 obj_t BgL_tmpz00_9025;
if(
INTEGERP(BgL_b1z00_1786))
{ /* Ieee/string.scm 1232 */
BgL_tmpz00_9025 = BgL_b1z00_1786
; }  else 
{ 
 obj_t BgL_auxz00_9028;
BgL_auxz00_9028 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49977L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_1786); 
FAILURE(BgL_auxz00_9028,BFALSE,BFALSE);} 
BgL_za72za7_3383 = 
(long)CINT(BgL_tmpz00_9025); } 
BgL_tmpz00_8903 = 
(BgL_za71za7_3382-BgL_za72za7_3383); } } } 
return 
(int)(BgL_tmpz00_8903);} } } } } } } } } } 

}



/* _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 1237 */
{ /* Ieee/string.scm 1237 */
 obj_t BgL_s1z00_1803; obj_t BgL_s2z00_1804;
BgL_s1z00_1803 = 
VECTOR_REF(BgL_opt1165z00_190,0L); 
BgL_s2z00_1804 = 
VECTOR_REF(BgL_opt1165z00_190,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1165z00_190)) { case 2L : 

{ /* Ieee/string.scm 1237 */

{ /* Ieee/string.scm 1237 */
 int BgL_tmpz00_9037;
{ /* Ieee/string.scm 1237 */
 obj_t BgL_auxz00_9045; obj_t BgL_auxz00_9038;
if(
STRINGP(BgL_s2z00_1804))
{ /* Ieee/string.scm 1237 */
BgL_auxz00_9045 = BgL_s2z00_1804
; }  else 
{ 
 obj_t BgL_auxz00_9048;
BgL_auxz00_9048 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50211L), BGl_string3490z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1804); 
FAILURE(BgL_auxz00_9048,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1803))
{ /* Ieee/string.scm 1237 */
BgL_auxz00_9038 = BgL_s1z00_1803
; }  else 
{ 
 obj_t BgL_auxz00_9041;
BgL_auxz00_9041 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50211L), BGl_string3490z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1803); 
FAILURE(BgL_auxz00_9041,BFALSE,BFALSE);} 
BgL_tmpz00_9037 = 
BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_9038, BgL_auxz00_9045, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9037);} } break;case 3L : 

{ /* Ieee/string.scm 1237 */
 obj_t BgL_start1z00_1811;
BgL_start1z00_1811 = 
VECTOR_REF(BgL_opt1165z00_190,2L); 
{ /* Ieee/string.scm 1237 */

{ /* Ieee/string.scm 1237 */
 int BgL_tmpz00_9055;
{ /* Ieee/string.scm 1237 */
 obj_t BgL_auxz00_9063; obj_t BgL_auxz00_9056;
if(
STRINGP(BgL_s2z00_1804))
{ /* Ieee/string.scm 1237 */
BgL_auxz00_9063 = BgL_s2z00_1804
; }  else 
{ 
 obj_t BgL_auxz00_9066;
BgL_auxz00_9066 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50211L), BGl_string3490z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1804); 
FAILURE(BgL_auxz00_9066,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1803))
{ /* Ieee/string.scm 1237 */
BgL_auxz00_9056 = BgL_s1z00_1803
; }  else 
{ 
 obj_t BgL_auxz00_9059;
BgL_auxz00_9059 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50211L), BGl_string3490z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1803); 
FAILURE(BgL_auxz00_9059,BFALSE,BFALSE);} 
BgL_tmpz00_9055 = 
BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_9056, BgL_auxz00_9063, BgL_start1z00_1811, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9055);} } } break;case 4L : 

{ /* Ieee/string.scm 1237 */
 obj_t BgL_start1z00_1815;
BgL_start1z00_1815 = 
VECTOR_REF(BgL_opt1165z00_190,2L); 
{ /* Ieee/string.scm 1237 */
 obj_t BgL_end1z00_1816;
BgL_end1z00_1816 = 
VECTOR_REF(BgL_opt1165z00_190,3L); 
{ /* Ieee/string.scm 1237 */

{ /* Ieee/string.scm 1237 */
 int BgL_tmpz00_9074;
{ /* Ieee/string.scm 1237 */
 obj_t BgL_auxz00_9082; obj_t BgL_auxz00_9075;
if(
STRINGP(BgL_s2z00_1804))
{ /* Ieee/string.scm 1237 */
BgL_auxz00_9082 = BgL_s2z00_1804
; }  else 
{ 
 obj_t BgL_auxz00_9085;
BgL_auxz00_9085 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50211L), BGl_string3490z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1804); 
FAILURE(BgL_auxz00_9085,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1803))
{ /* Ieee/string.scm 1237 */
BgL_auxz00_9075 = BgL_s1z00_1803
; }  else 
{ 
 obj_t BgL_auxz00_9078;
BgL_auxz00_9078 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50211L), BGl_string3490z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1803); 
FAILURE(BgL_auxz00_9078,BFALSE,BFALSE);} 
BgL_tmpz00_9074 = 
BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_9075, BgL_auxz00_9082, BgL_start1z00_1815, BgL_end1z00_1816, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9074);} } } } break;case 5L : 

{ /* Ieee/string.scm 1237 */
 obj_t BgL_start1z00_1819;
BgL_start1z00_1819 = 
VECTOR_REF(BgL_opt1165z00_190,2L); 
{ /* Ieee/string.scm 1237 */
 obj_t BgL_end1z00_1820;
BgL_end1z00_1820 = 
VECTOR_REF(BgL_opt1165z00_190,3L); 
{ /* Ieee/string.scm 1237 */
 obj_t BgL_start2z00_1821;
BgL_start2z00_1821 = 
VECTOR_REF(BgL_opt1165z00_190,4L); 
{ /* Ieee/string.scm 1237 */

{ /* Ieee/string.scm 1237 */
 int BgL_tmpz00_9094;
{ /* Ieee/string.scm 1237 */
 obj_t BgL_auxz00_9102; obj_t BgL_auxz00_9095;
if(
STRINGP(BgL_s2z00_1804))
{ /* Ieee/string.scm 1237 */
BgL_auxz00_9102 = BgL_s2z00_1804
; }  else 
{ 
 obj_t BgL_auxz00_9105;
BgL_auxz00_9105 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50211L), BGl_string3490z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1804); 
FAILURE(BgL_auxz00_9105,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1803))
{ /* Ieee/string.scm 1237 */
BgL_auxz00_9095 = BgL_s1z00_1803
; }  else 
{ 
 obj_t BgL_auxz00_9098;
BgL_auxz00_9098 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50211L), BGl_string3490z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1803); 
FAILURE(BgL_auxz00_9098,BFALSE,BFALSE);} 
BgL_tmpz00_9094 = 
BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_9095, BgL_auxz00_9102, BgL_start1z00_1819, BgL_end1z00_1820, BgL_start2z00_1821, BFALSE); } 
return 
BINT(BgL_tmpz00_9094);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1237 */
 obj_t BgL_start1z00_1823;
BgL_start1z00_1823 = 
VECTOR_REF(BgL_opt1165z00_190,2L); 
{ /* Ieee/string.scm 1237 */
 obj_t BgL_end1z00_1824;
BgL_end1z00_1824 = 
VECTOR_REF(BgL_opt1165z00_190,3L); 
{ /* Ieee/string.scm 1237 */
 obj_t BgL_start2z00_1825;
BgL_start2z00_1825 = 
VECTOR_REF(BgL_opt1165z00_190,4L); 
{ /* Ieee/string.scm 1237 */
 obj_t BgL_end2z00_1826;
BgL_end2z00_1826 = 
VECTOR_REF(BgL_opt1165z00_190,5L); 
{ /* Ieee/string.scm 1237 */

{ /* Ieee/string.scm 1237 */
 int BgL_tmpz00_9115;
{ /* Ieee/string.scm 1237 */
 obj_t BgL_auxz00_9123; obj_t BgL_auxz00_9116;
if(
STRINGP(BgL_s2z00_1804))
{ /* Ieee/string.scm 1237 */
BgL_auxz00_9123 = BgL_s2z00_1804
; }  else 
{ 
 obj_t BgL_auxz00_9126;
BgL_auxz00_9126 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50211L), BGl_string3490z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1804); 
FAILURE(BgL_auxz00_9126,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1803))
{ /* Ieee/string.scm 1237 */
BgL_auxz00_9116 = BgL_s1z00_1803
; }  else 
{ 
 obj_t BgL_auxz00_9119;
BgL_auxz00_9119 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50211L), BGl_string3490z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1803); 
FAILURE(BgL_auxz00_9119,BFALSE,BFALSE);} 
BgL_tmpz00_9115 = 
BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_9116, BgL_auxz00_9123, BgL_start1z00_1823, BgL_end1z00_1824, BgL_start2z00_1825, BgL_end2z00_1826); } 
return 
BINT(BgL_tmpz00_9115);} } } } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3488z00zz__r4_strings_6_7z00, BGl_string3475z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1165z00_190)));} } } } 

}



/* 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 1237 */
{ /* Ieee/string.scm 1239 */
 long BgL_l1z00_1828;
BgL_l1z00_1828 = 
STRING_LENGTH(BgL_s1z00_184); 
{ /* Ieee/string.scm 1239 */
 long BgL_l2z00_1829;
BgL_l2z00_1829 = 
STRING_LENGTH(BgL_s2z00_185); 
{ /* Ieee/string.scm 1240 */
 obj_t BgL_e1z00_1830;
{ /* Ieee/string.scm 1241 */
 obj_t BgL_procz00_3386;
BgL_procz00_3386 = BGl_symbol3491z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_187))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4249z00_9141;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3391;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_9142;
if(
INTEGERP(BgL_end1z00_187))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_9142 = BgL_end1z00_187
; }  else 
{ 
 obj_t BgL_auxz00_9145;
BgL_auxz00_9145 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3492z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_187); 
FAILURE(BgL_auxz00_9145,BFALSE,BFALSE);} 
BgL_n1z00_3391 = 
(long)CINT(BgL_tmpz00_9142); } 
BgL_test4249z00_9141 = 
(BgL_n1z00_3391<=0L); } 
if(BgL_test4249z00_9141)
{ /* Ieee/string.scm 1206 */
BgL_e1z00_1830 = 
BGl_errorz00zz__errorz00(BgL_procz00_3386, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_187); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4251z00_9153;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3392;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_9154;
if(
INTEGERP(BgL_end1z00_187))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_9154 = BgL_end1z00_187
; }  else 
{ 
 obj_t BgL_auxz00_9157;
BgL_auxz00_9157 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3492z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_187); 
FAILURE(BgL_auxz00_9157,BFALSE,BFALSE);} 
BgL_n1z00_3392 = 
(long)CINT(BgL_tmpz00_9154); } 
BgL_test4251z00_9153 = 
(BgL_n1z00_3392>BgL_l1z00_1828); } 
if(BgL_test4251z00_9153)
{ /* Ieee/string.scm 1208 */
BgL_e1z00_1830 = 
BGl_errorz00zz__errorz00(BgL_procz00_3386, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_187); }  else 
{ /* Ieee/string.scm 1208 */
BgL_e1z00_1830 = BgL_end1z00_187; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_e1z00_1830 = 
BINT(BgL_l1z00_1828); } } 
{ /* Ieee/string.scm 1241 */
 obj_t BgL_e2z00_1831;
{ /* Ieee/string.scm 1242 */
 obj_t BgL_procz00_3394;
BgL_procz00_3394 = BGl_symbol3491z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_189))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4254z00_9168;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3399;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_9169;
if(
INTEGERP(BgL_end2z00_189))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_9169 = BgL_end2z00_189
; }  else 
{ 
 obj_t BgL_auxz00_9172;
BgL_auxz00_9172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3492z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_189); 
FAILURE(BgL_auxz00_9172,BFALSE,BFALSE);} 
BgL_n1z00_3399 = 
(long)CINT(BgL_tmpz00_9169); } 
BgL_test4254z00_9168 = 
(BgL_n1z00_3399<=0L); } 
if(BgL_test4254z00_9168)
{ /* Ieee/string.scm 1206 */
BgL_e2z00_1831 = 
BGl_errorz00zz__errorz00(BgL_procz00_3394, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_189); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4256z00_9180;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3400;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_9181;
if(
INTEGERP(BgL_end2z00_189))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_9181 = BgL_end2z00_189
; }  else 
{ 
 obj_t BgL_auxz00_9184;
BgL_auxz00_9184 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3492z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_189); 
FAILURE(BgL_auxz00_9184,BFALSE,BFALSE);} 
BgL_n1z00_3400 = 
(long)CINT(BgL_tmpz00_9181); } 
BgL_test4256z00_9180 = 
(BgL_n1z00_3400>BgL_l2z00_1829); } 
if(BgL_test4256z00_9180)
{ /* Ieee/string.scm 1208 */
BgL_e2z00_1831 = 
BGl_errorz00zz__errorz00(BgL_procz00_3394, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_189); }  else 
{ /* Ieee/string.scm 1208 */
BgL_e2z00_1831 = BgL_end2z00_189; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_e2z00_1831 = 
BINT(BgL_l2z00_1829); } } 
{ /* Ieee/string.scm 1242 */
 obj_t BgL_b1z00_1832;
{ /* Ieee/string.scm 1243 */
 obj_t BgL_procz00_3402;
BgL_procz00_3402 = BGl_symbol3491z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_186))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4259z00_9195;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3407;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_9196;
if(
INTEGERP(BgL_start1z00_186))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_9196 = BgL_start1z00_186
; }  else 
{ 
 obj_t BgL_auxz00_9199;
BgL_auxz00_9199 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3492z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_186); 
FAILURE(BgL_auxz00_9199,BFALSE,BFALSE);} 
BgL_n1z00_3407 = 
(long)CINT(BgL_tmpz00_9196); } 
BgL_test4259z00_9195 = 
(BgL_n1z00_3407<0L); } 
if(BgL_test4259z00_9195)
{ /* Ieee/string.scm 1192 */
BgL_b1z00_1832 = 
BGl_errorz00zz__errorz00(BgL_procz00_3402, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_186); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4261z00_9207;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3408;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_9208;
if(
INTEGERP(BgL_start1z00_186))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_9208 = BgL_start1z00_186
; }  else 
{ 
 obj_t BgL_auxz00_9211;
BgL_auxz00_9211 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3492z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_186); 
FAILURE(BgL_auxz00_9211,BFALSE,BFALSE);} 
BgL_n1z00_3408 = 
(long)CINT(BgL_tmpz00_9208); } 
BgL_test4261z00_9207 = 
(BgL_n1z00_3408>=BgL_l1z00_1828); } 
if(BgL_test4261z00_9207)
{ /* Ieee/string.scm 1194 */
BgL_b1z00_1832 = 
BGl_errorz00zz__errorz00(BgL_procz00_3402, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_186); }  else 
{ /* Ieee/string.scm 1194 */
BgL_b1z00_1832 = BgL_start1z00_186; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_b1z00_1832 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1243 */
 obj_t BgL_b2z00_1833;
{ /* Ieee/string.scm 1244 */
 obj_t BgL_procz00_3410;
BgL_procz00_3410 = BGl_symbol3491z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_188))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4264z00_9222;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3415;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_9223;
if(
INTEGERP(BgL_start2z00_188))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_9223 = BgL_start2z00_188
; }  else 
{ 
 obj_t BgL_auxz00_9226;
BgL_auxz00_9226 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3492z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_188); 
FAILURE(BgL_auxz00_9226,BFALSE,BFALSE);} 
BgL_n1z00_3415 = 
(long)CINT(BgL_tmpz00_9223); } 
BgL_test4264z00_9222 = 
(BgL_n1z00_3415<0L); } 
if(BgL_test4264z00_9222)
{ /* Ieee/string.scm 1192 */
BgL_b2z00_1833 = 
BGl_errorz00zz__errorz00(BgL_procz00_3410, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_188); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4266z00_9234;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3416;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_9235;
if(
INTEGERP(BgL_start2z00_188))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_9235 = BgL_start2z00_188
; }  else 
{ 
 obj_t BgL_auxz00_9238;
BgL_auxz00_9238 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3492z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_188); 
FAILURE(BgL_auxz00_9238,BFALSE,BFALSE);} 
BgL_n1z00_3416 = 
(long)CINT(BgL_tmpz00_9235); } 
BgL_test4266z00_9234 = 
(BgL_n1z00_3416>=BgL_l2z00_1829); } 
if(BgL_test4266z00_9234)
{ /* Ieee/string.scm 1194 */
BgL_b2z00_1833 = 
BGl_errorz00zz__errorz00(BgL_procz00_3410, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_188); }  else 
{ /* Ieee/string.scm 1194 */
BgL_b2z00_1833 = BgL_start2z00_188; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_b2z00_1833 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1244 */

{ 
 obj_t BgL_i1z00_1835; obj_t BgL_i2z00_1836;
{ /* Ieee/string.scm 1245 */
 long BgL_tmpz00_9247;
BgL_i1z00_1835 = BgL_b1z00_1832; 
BgL_i2z00_1836 = BgL_b2z00_1833; 
BgL_zc3z04anonymousza31766ze3z87_1837:
{ /* Ieee/string.scm 1248 */
 bool_t BgL_test4268z00_9248;
{ /* Ieee/string.scm 1248 */
 bool_t BgL_test4269z00_9249;
{ /* Ieee/string.scm 1248 */
 long BgL_n1z00_3418; long BgL_n2z00_3419;
{ /* Ieee/string.scm 1248 */
 obj_t BgL_tmpz00_9250;
if(
INTEGERP(BgL_i1z00_1835))
{ /* Ieee/string.scm 1248 */
BgL_tmpz00_9250 = BgL_i1z00_1835
; }  else 
{ 
 obj_t BgL_auxz00_9253;
BgL_auxz00_9253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50723L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1835); 
FAILURE(BgL_auxz00_9253,BFALSE,BFALSE);} 
BgL_n1z00_3418 = 
(long)CINT(BgL_tmpz00_9250); } 
{ /* Ieee/string.scm 1248 */
 obj_t BgL_tmpz00_9258;
if(
INTEGERP(BgL_e1z00_1830))
{ /* Ieee/string.scm 1248 */
BgL_tmpz00_9258 = BgL_e1z00_1830
; }  else 
{ 
 obj_t BgL_auxz00_9261;
BgL_auxz00_9261 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50726L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e1z00_1830); 
FAILURE(BgL_auxz00_9261,BFALSE,BFALSE);} 
BgL_n2z00_3419 = 
(long)CINT(BgL_tmpz00_9258); } 
BgL_test4269z00_9249 = 
(BgL_n1z00_3418==BgL_n2z00_3419); } 
if(BgL_test4269z00_9249)
{ /* Ieee/string.scm 1248 */
BgL_test4268z00_9248 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1248 */
 long BgL_n1z00_3420; long BgL_n2z00_3421;
{ /* Ieee/string.scm 1248 */
 obj_t BgL_tmpz00_9267;
if(
INTEGERP(BgL_i2z00_1836))
{ /* Ieee/string.scm 1248 */
BgL_tmpz00_9267 = BgL_i2z00_1836
; }  else 
{ 
 obj_t BgL_auxz00_9270;
BgL_auxz00_9270 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50735L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_1836); 
FAILURE(BgL_auxz00_9270,BFALSE,BFALSE);} 
BgL_n1z00_3420 = 
(long)CINT(BgL_tmpz00_9267); } 
{ /* Ieee/string.scm 1248 */
 obj_t BgL_tmpz00_9275;
if(
INTEGERP(BgL_e2z00_1831))
{ /* Ieee/string.scm 1248 */
BgL_tmpz00_9275 = BgL_e2z00_1831
; }  else 
{ 
 obj_t BgL_auxz00_9278;
BgL_auxz00_9278 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50738L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e2z00_1831); 
FAILURE(BgL_auxz00_9278,BFALSE,BFALSE);} 
BgL_n2z00_3421 = 
(long)CINT(BgL_tmpz00_9275); } 
BgL_test4268z00_9248 = 
(BgL_n1z00_3420==BgL_n2z00_3421); } } 
if(BgL_test4268z00_9248)
{ /* Ieee/string.scm 1249 */
 long BgL_za71za7_3422; long BgL_za72za7_3423;
{ /* Ieee/string.scm 1249 */
 obj_t BgL_tmpz00_9284;
if(
INTEGERP(BgL_i1z00_1835))
{ /* Ieee/string.scm 1249 */
BgL_tmpz00_9284 = BgL_i1z00_1835
; }  else 
{ 
 obj_t BgL_auxz00_9287;
BgL_auxz00_9287 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50754L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1835); 
FAILURE(BgL_auxz00_9287,BFALSE,BFALSE);} 
BgL_za71za7_3422 = 
(long)CINT(BgL_tmpz00_9284); } 
{ /* Ieee/string.scm 1249 */
 obj_t BgL_tmpz00_9292;
if(
INTEGERP(BgL_b1z00_1832))
{ /* Ieee/string.scm 1249 */
BgL_tmpz00_9292 = BgL_b1z00_1832
; }  else 
{ 
 obj_t BgL_auxz00_9295;
BgL_auxz00_9295 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50757L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_1832); 
FAILURE(BgL_auxz00_9295,BFALSE,BFALSE);} 
BgL_za72za7_3423 = 
(long)CINT(BgL_tmpz00_9292); } 
BgL_tmpz00_9247 = 
(BgL_za71za7_3422-BgL_za72za7_3423); }  else 
{ /* Ieee/string.scm 1250 */
 bool_t BgL_test4276z00_9301;
{ /* Ieee/string.scm 1250 */
 unsigned char BgL_auxz00_9323; unsigned char BgL_tmpz00_9302;
{ /* Ieee/string.scm 1250 */
 unsigned char BgL_tmpz00_9324;
{ /* Ieee/string.scm 1250 */
 long BgL_kz00_3427;
{ /* Ieee/string.scm 1250 */
 obj_t BgL_tmpz00_9325;
if(
INTEGERP(BgL_i2z00_1836))
{ /* Ieee/string.scm 1250 */
BgL_tmpz00_9325 = BgL_i2z00_1836
; }  else 
{ 
 obj_t BgL_auxz00_9328;
BgL_auxz00_9328 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50813L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_1836); 
FAILURE(BgL_auxz00_9328,BFALSE,BFALSE);} 
BgL_kz00_3427 = 
(long)CINT(BgL_tmpz00_9325); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2521z00_4487;
BgL_l2521z00_4487 = 
STRING_LENGTH(BgL_s2z00_185); 
if(
BOUND_CHECK(BgL_kz00_3427, BgL_l2521z00_4487))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_9324 = 
STRING_REF(BgL_s2z00_185, BgL_kz00_3427)
; }  else 
{ 
 obj_t BgL_auxz00_9337;
BgL_auxz00_9337 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s2z00_185, 
(int)(BgL_l2521z00_4487), 
(int)(BgL_kz00_3427)); 
FAILURE(BgL_auxz00_9337,BFALSE,BFALSE);} } } 
BgL_auxz00_9323 = 
toupper(BgL_tmpz00_9324); } 
{ /* Ieee/string.scm 1250 */
 unsigned char BgL_tmpz00_9303;
{ /* Ieee/string.scm 1250 */
 long BgL_kz00_3425;
{ /* Ieee/string.scm 1250 */
 obj_t BgL_tmpz00_9304;
if(
INTEGERP(BgL_i1z00_1835))
{ /* Ieee/string.scm 1250 */
BgL_tmpz00_9304 = BgL_i1z00_1835
; }  else 
{ 
 obj_t BgL_auxz00_9307;
BgL_auxz00_9307 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50794L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1835); 
FAILURE(BgL_auxz00_9307,BFALSE,BFALSE);} 
BgL_kz00_3425 = 
(long)CINT(BgL_tmpz00_9304); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2517z00_4483;
BgL_l2517z00_4483 = 
STRING_LENGTH(BgL_s1z00_184); 
if(
BOUND_CHECK(BgL_kz00_3425, BgL_l2517z00_4483))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_9303 = 
STRING_REF(BgL_s1z00_184, BgL_kz00_3425)
; }  else 
{ 
 obj_t BgL_auxz00_9316;
BgL_auxz00_9316 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s1z00_184, 
(int)(BgL_l2517z00_4483), 
(int)(BgL_kz00_3425)); 
FAILURE(BgL_auxz00_9316,BFALSE,BFALSE);} } } 
BgL_tmpz00_9302 = 
toupper(BgL_tmpz00_9303); } 
BgL_test4276z00_9301 = 
(BgL_tmpz00_9302==BgL_auxz00_9323); } 
if(BgL_test4276z00_9301)
{ 
 obj_t BgL_i2z00_9355; obj_t BgL_i1z00_9345;
{ 
 obj_t BgL_tmpz00_9346;
if(
INTEGERP(BgL_i1z00_1835))
{ /* Ieee/string.scm 1251 */
BgL_tmpz00_9346 = BgL_i1z00_1835
; }  else 
{ 
 obj_t BgL_auxz00_9349;
BgL_auxz00_9349 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50835L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1835); 
FAILURE(BgL_auxz00_9349,BFALSE,BFALSE);} 
BgL_i1z00_9345 = 
ADDFX(BgL_tmpz00_9346, 
BINT(1L)); } 
{ 
 obj_t BgL_tmpz00_9356;
if(
INTEGERP(BgL_i2z00_1836))
{ /* Ieee/string.scm 1251 */
BgL_tmpz00_9356 = BgL_i2z00_1836
; }  else 
{ 
 obj_t BgL_auxz00_9359;
BgL_auxz00_9359 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50846L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_1836); 
FAILURE(BgL_auxz00_9359,BFALSE,BFALSE);} 
BgL_i2z00_9355 = 
ADDFX(BgL_tmpz00_9356, 
BINT(1L)); } 
BgL_i2z00_1836 = BgL_i2z00_9355; 
BgL_i1z00_1835 = BgL_i1z00_9345; 
goto BgL_zc3z04anonymousza31766ze3z87_1837;}  else 
{ /* Ieee/string.scm 1253 */
 long BgL_za71za7_3438; long BgL_za72za7_3439;
{ /* Ieee/string.scm 1253 */
 obj_t BgL_tmpz00_9365;
if(
INTEGERP(BgL_i1z00_1835))
{ /* Ieee/string.scm 1253 */
BgL_tmpz00_9365 = BgL_i1z00_1835
; }  else 
{ 
 obj_t BgL_auxz00_9368;
BgL_auxz00_9368 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50876L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1835); 
FAILURE(BgL_auxz00_9368,BFALSE,BFALSE);} 
BgL_za71za7_3438 = 
(long)CINT(BgL_tmpz00_9365); } 
{ /* Ieee/string.scm 1253 */
 obj_t BgL_tmpz00_9373;
if(
INTEGERP(BgL_b1z00_1832))
{ /* Ieee/string.scm 1253 */
BgL_tmpz00_9373 = BgL_b1z00_1832
; }  else 
{ 
 obj_t BgL_auxz00_9376;
BgL_auxz00_9376 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(50879L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_1832); 
FAILURE(BgL_auxz00_9376,BFALSE,BFALSE);} 
BgL_za72za7_3439 = 
(long)CINT(BgL_tmpz00_9373); } 
BgL_tmpz00_9247 = 
(BgL_za71za7_3438-BgL_za72za7_3439); } } } 
return 
(int)(BgL_tmpz00_9247);} } } } } } } } } } 

}



/* _string-suffix-length */
obj_t BGl__stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(obj_t BgL_env1170z00_199, obj_t BgL_opt1169z00_198)
{
{ /* Ieee/string.scm 1258 */
{ /* Ieee/string.scm 1258 */
 obj_t BgL_s1z00_1849; obj_t BgL_s2z00_1850;
BgL_s1z00_1849 = 
VECTOR_REF(BgL_opt1169z00_198,0L); 
BgL_s2z00_1850 = 
VECTOR_REF(BgL_opt1169z00_198,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1169z00_198)) { case 2L : 

{ /* Ieee/string.scm 1258 */

{ /* Ieee/string.scm 1258 */
 int BgL_tmpz00_9385;
{ /* Ieee/string.scm 1258 */
 obj_t BgL_auxz00_9393; obj_t BgL_auxz00_9386;
if(
STRINGP(BgL_s2z00_1850))
{ /* Ieee/string.scm 1258 */
BgL_auxz00_9393 = BgL_s2z00_1850
; }  else 
{ 
 obj_t BgL_auxz00_9396;
BgL_auxz00_9396 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51113L), BGl_string3495z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1850); 
FAILURE(BgL_auxz00_9396,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1849))
{ /* Ieee/string.scm 1258 */
BgL_auxz00_9386 = BgL_s1z00_1849
; }  else 
{ 
 obj_t BgL_auxz00_9389;
BgL_auxz00_9389 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51113L), BGl_string3495z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1849); 
FAILURE(BgL_auxz00_9389,BFALSE,BFALSE);} 
BgL_tmpz00_9385 = 
BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_9386, BgL_auxz00_9393, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9385);} } break;case 3L : 

{ /* Ieee/string.scm 1258 */
 obj_t BgL_start1z00_1857;
BgL_start1z00_1857 = 
VECTOR_REF(BgL_opt1169z00_198,2L); 
{ /* Ieee/string.scm 1258 */

{ /* Ieee/string.scm 1258 */
 int BgL_tmpz00_9403;
{ /* Ieee/string.scm 1258 */
 obj_t BgL_auxz00_9411; obj_t BgL_auxz00_9404;
if(
STRINGP(BgL_s2z00_1850))
{ /* Ieee/string.scm 1258 */
BgL_auxz00_9411 = BgL_s2z00_1850
; }  else 
{ 
 obj_t BgL_auxz00_9414;
BgL_auxz00_9414 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51113L), BGl_string3495z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1850); 
FAILURE(BgL_auxz00_9414,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1849))
{ /* Ieee/string.scm 1258 */
BgL_auxz00_9404 = BgL_s1z00_1849
; }  else 
{ 
 obj_t BgL_auxz00_9407;
BgL_auxz00_9407 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51113L), BGl_string3495z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1849); 
FAILURE(BgL_auxz00_9407,BFALSE,BFALSE);} 
BgL_tmpz00_9403 = 
BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_9404, BgL_auxz00_9411, BgL_start1z00_1857, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9403);} } } break;case 4L : 

{ /* Ieee/string.scm 1258 */
 obj_t BgL_start1z00_1861;
BgL_start1z00_1861 = 
VECTOR_REF(BgL_opt1169z00_198,2L); 
{ /* Ieee/string.scm 1258 */
 obj_t BgL_end1z00_1862;
BgL_end1z00_1862 = 
VECTOR_REF(BgL_opt1169z00_198,3L); 
{ /* Ieee/string.scm 1258 */

{ /* Ieee/string.scm 1258 */
 int BgL_tmpz00_9422;
{ /* Ieee/string.scm 1258 */
 obj_t BgL_auxz00_9430; obj_t BgL_auxz00_9423;
if(
STRINGP(BgL_s2z00_1850))
{ /* Ieee/string.scm 1258 */
BgL_auxz00_9430 = BgL_s2z00_1850
; }  else 
{ 
 obj_t BgL_auxz00_9433;
BgL_auxz00_9433 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51113L), BGl_string3495z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1850); 
FAILURE(BgL_auxz00_9433,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1849))
{ /* Ieee/string.scm 1258 */
BgL_auxz00_9423 = BgL_s1z00_1849
; }  else 
{ 
 obj_t BgL_auxz00_9426;
BgL_auxz00_9426 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51113L), BGl_string3495z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1849); 
FAILURE(BgL_auxz00_9426,BFALSE,BFALSE);} 
BgL_tmpz00_9422 = 
BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_9423, BgL_auxz00_9430, BgL_start1z00_1861, BgL_end1z00_1862, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9422);} } } } break;case 5L : 

{ /* Ieee/string.scm 1258 */
 obj_t BgL_start1z00_1865;
BgL_start1z00_1865 = 
VECTOR_REF(BgL_opt1169z00_198,2L); 
{ /* Ieee/string.scm 1258 */
 obj_t BgL_end1z00_1866;
BgL_end1z00_1866 = 
VECTOR_REF(BgL_opt1169z00_198,3L); 
{ /* Ieee/string.scm 1258 */
 obj_t BgL_start2z00_1867;
BgL_start2z00_1867 = 
VECTOR_REF(BgL_opt1169z00_198,4L); 
{ /* Ieee/string.scm 1258 */

{ /* Ieee/string.scm 1258 */
 int BgL_tmpz00_9442;
{ /* Ieee/string.scm 1258 */
 obj_t BgL_auxz00_9450; obj_t BgL_auxz00_9443;
if(
STRINGP(BgL_s2z00_1850))
{ /* Ieee/string.scm 1258 */
BgL_auxz00_9450 = BgL_s2z00_1850
; }  else 
{ 
 obj_t BgL_auxz00_9453;
BgL_auxz00_9453 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51113L), BGl_string3495z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1850); 
FAILURE(BgL_auxz00_9453,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1849))
{ /* Ieee/string.scm 1258 */
BgL_auxz00_9443 = BgL_s1z00_1849
; }  else 
{ 
 obj_t BgL_auxz00_9446;
BgL_auxz00_9446 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51113L), BGl_string3495z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1849); 
FAILURE(BgL_auxz00_9446,BFALSE,BFALSE);} 
BgL_tmpz00_9442 = 
BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_9443, BgL_auxz00_9450, BgL_start1z00_1865, BgL_end1z00_1866, BgL_start2z00_1867, BFALSE); } 
return 
BINT(BgL_tmpz00_9442);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1258 */
 obj_t BgL_start1z00_1869;
BgL_start1z00_1869 = 
VECTOR_REF(BgL_opt1169z00_198,2L); 
{ /* Ieee/string.scm 1258 */
 obj_t BgL_end1z00_1870;
BgL_end1z00_1870 = 
VECTOR_REF(BgL_opt1169z00_198,3L); 
{ /* Ieee/string.scm 1258 */
 obj_t BgL_start2z00_1871;
BgL_start2z00_1871 = 
VECTOR_REF(BgL_opt1169z00_198,4L); 
{ /* Ieee/string.scm 1258 */
 obj_t BgL_end2z00_1872;
BgL_end2z00_1872 = 
VECTOR_REF(BgL_opt1169z00_198,5L); 
{ /* Ieee/string.scm 1258 */

{ /* Ieee/string.scm 1258 */
 int BgL_tmpz00_9463;
{ /* Ieee/string.scm 1258 */
 obj_t BgL_auxz00_9471; obj_t BgL_auxz00_9464;
if(
STRINGP(BgL_s2z00_1850))
{ /* Ieee/string.scm 1258 */
BgL_auxz00_9471 = BgL_s2z00_1850
; }  else 
{ 
 obj_t BgL_auxz00_9474;
BgL_auxz00_9474 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51113L), BGl_string3495z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1850); 
FAILURE(BgL_auxz00_9474,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1849))
{ /* Ieee/string.scm 1258 */
BgL_auxz00_9464 = BgL_s1z00_1849
; }  else 
{ 
 obj_t BgL_auxz00_9467;
BgL_auxz00_9467 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51113L), BGl_string3495z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1849); 
FAILURE(BgL_auxz00_9467,BFALSE,BFALSE);} 
BgL_tmpz00_9463 = 
BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(BgL_auxz00_9464, BgL_auxz00_9471, BgL_start1z00_1869, BgL_end1z00_1870, BgL_start2z00_1871, BgL_end2z00_1872); } 
return 
BINT(BgL_tmpz00_9463);} } } } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3493z00zz__r4_strings_6_7z00, BGl_string3475z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1169z00_198)));} } } } 

}



/* 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 1258 */
{ /* Ieee/string.scm 1260 */
 long BgL_l1z00_1874;
BgL_l1z00_1874 = 
STRING_LENGTH(BgL_s1z00_192); 
{ /* Ieee/string.scm 1260 */
 long BgL_l2z00_1875;
BgL_l2z00_1875 = 
STRING_LENGTH(BgL_s2z00_193); 
{ /* Ieee/string.scm 1261 */
 obj_t BgL_b1z00_1876;
{ /* Ieee/string.scm 1262 */
 obj_t BgL_procz00_3442;
BgL_procz00_3442 = BGl_symbol3496z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_195))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4296z00_9489;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3447;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_9490;
if(
INTEGERP(BgL_end1z00_195))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_9490 = BgL_end1z00_195
; }  else 
{ 
 obj_t BgL_auxz00_9493;
BgL_auxz00_9493 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3497z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_195); 
FAILURE(BgL_auxz00_9493,BFALSE,BFALSE);} 
BgL_n1z00_3447 = 
(long)CINT(BgL_tmpz00_9490); } 
BgL_test4296z00_9489 = 
(BgL_n1z00_3447<=0L); } 
if(BgL_test4296z00_9489)
{ /* Ieee/string.scm 1206 */
BgL_b1z00_1876 = 
BGl_errorz00zz__errorz00(BgL_procz00_3442, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_195); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4298z00_9501;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3448;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_9502;
if(
INTEGERP(BgL_end1z00_195))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_9502 = BgL_end1z00_195
; }  else 
{ 
 obj_t BgL_auxz00_9505;
BgL_auxz00_9505 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3497z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_195); 
FAILURE(BgL_auxz00_9505,BFALSE,BFALSE);} 
BgL_n1z00_3448 = 
(long)CINT(BgL_tmpz00_9502); } 
BgL_test4298z00_9501 = 
(BgL_n1z00_3448>BgL_l1z00_1874); } 
if(BgL_test4298z00_9501)
{ /* Ieee/string.scm 1208 */
BgL_b1z00_1876 = 
BGl_errorz00zz__errorz00(BgL_procz00_3442, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_195); }  else 
{ /* Ieee/string.scm 1208 */
BgL_b1z00_1876 = BgL_end1z00_195; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_b1z00_1876 = 
BINT(BgL_l1z00_1874); } } 
{ /* Ieee/string.scm 1262 */
 obj_t BgL_b2z00_1877;
{ /* Ieee/string.scm 1263 */
 obj_t BgL_procz00_3450;
BgL_procz00_3450 = BGl_symbol3496z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_197))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4301z00_9516;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3455;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_9517;
if(
INTEGERP(BgL_end2z00_197))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_9517 = BgL_end2z00_197
; }  else 
{ 
 obj_t BgL_auxz00_9520;
BgL_auxz00_9520 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3497z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_197); 
FAILURE(BgL_auxz00_9520,BFALSE,BFALSE);} 
BgL_n1z00_3455 = 
(long)CINT(BgL_tmpz00_9517); } 
BgL_test4301z00_9516 = 
(BgL_n1z00_3455<=0L); } 
if(BgL_test4301z00_9516)
{ /* Ieee/string.scm 1206 */
BgL_b2z00_1877 = 
BGl_errorz00zz__errorz00(BgL_procz00_3450, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_197); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4303z00_9528;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3456;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_9529;
if(
INTEGERP(BgL_end2z00_197))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_9529 = BgL_end2z00_197
; }  else 
{ 
 obj_t BgL_auxz00_9532;
BgL_auxz00_9532 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3497z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_197); 
FAILURE(BgL_auxz00_9532,BFALSE,BFALSE);} 
BgL_n1z00_3456 = 
(long)CINT(BgL_tmpz00_9529); } 
BgL_test4303z00_9528 = 
(BgL_n1z00_3456>BgL_l2z00_1875); } 
if(BgL_test4303z00_9528)
{ /* Ieee/string.scm 1208 */
BgL_b2z00_1877 = 
BGl_errorz00zz__errorz00(BgL_procz00_3450, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_197); }  else 
{ /* Ieee/string.scm 1208 */
BgL_b2z00_1877 = BgL_end2z00_197; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_b2z00_1877 = 
BINT(BgL_l2z00_1875); } } 
{ /* Ieee/string.scm 1263 */
 obj_t BgL_e1z00_1878;
{ /* Ieee/string.scm 1264 */
 obj_t BgL_procz00_3458;
BgL_procz00_3458 = BGl_symbol3496z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_194))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4306z00_9543;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3463;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_9544;
if(
INTEGERP(BgL_start1z00_194))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_9544 = BgL_start1z00_194
; }  else 
{ 
 obj_t BgL_auxz00_9547;
BgL_auxz00_9547 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3497z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_194); 
FAILURE(BgL_auxz00_9547,BFALSE,BFALSE);} 
BgL_n1z00_3463 = 
(long)CINT(BgL_tmpz00_9544); } 
BgL_test4306z00_9543 = 
(BgL_n1z00_3463<0L); } 
if(BgL_test4306z00_9543)
{ /* Ieee/string.scm 1192 */
BgL_e1z00_1878 = 
BGl_errorz00zz__errorz00(BgL_procz00_3458, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_194); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4308z00_9555;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3464;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_9556;
if(
INTEGERP(BgL_start1z00_194))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_9556 = BgL_start1z00_194
; }  else 
{ 
 obj_t BgL_auxz00_9559;
BgL_auxz00_9559 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3497z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_194); 
FAILURE(BgL_auxz00_9559,BFALSE,BFALSE);} 
BgL_n1z00_3464 = 
(long)CINT(BgL_tmpz00_9556); } 
BgL_test4308z00_9555 = 
(BgL_n1z00_3464>=BgL_l1z00_1874); } 
if(BgL_test4308z00_9555)
{ /* Ieee/string.scm 1194 */
BgL_e1z00_1878 = 
BGl_errorz00zz__errorz00(BgL_procz00_3458, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_194); }  else 
{ /* Ieee/string.scm 1194 */
BgL_e1z00_1878 = BgL_start1z00_194; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_e1z00_1878 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1264 */
 obj_t BgL_e2z00_1879;
{ /* Ieee/string.scm 1265 */
 obj_t BgL_procz00_3466;
BgL_procz00_3466 = BGl_symbol3496z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_196))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4311z00_9570;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3471;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_9571;
if(
INTEGERP(BgL_start2z00_196))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_9571 = BgL_start2z00_196
; }  else 
{ 
 obj_t BgL_auxz00_9574;
BgL_auxz00_9574 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3497z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_196); 
FAILURE(BgL_auxz00_9574,BFALSE,BFALSE);} 
BgL_n1z00_3471 = 
(long)CINT(BgL_tmpz00_9571); } 
BgL_test4311z00_9570 = 
(BgL_n1z00_3471<0L); } 
if(BgL_test4311z00_9570)
{ /* Ieee/string.scm 1192 */
BgL_e2z00_1879 = 
BGl_errorz00zz__errorz00(BgL_procz00_3466, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_196); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4313z00_9582;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3472;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_9583;
if(
INTEGERP(BgL_start2z00_196))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_9583 = BgL_start2z00_196
; }  else 
{ 
 obj_t BgL_auxz00_9586;
BgL_auxz00_9586 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3497z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_196); 
FAILURE(BgL_auxz00_9586,BFALSE,BFALSE);} 
BgL_n1z00_3472 = 
(long)CINT(BgL_tmpz00_9583); } 
BgL_test4313z00_9582 = 
(BgL_n1z00_3472>=BgL_l2z00_1875); } 
if(BgL_test4313z00_9582)
{ /* Ieee/string.scm 1194 */
BgL_e2z00_1879 = 
BGl_errorz00zz__errorz00(BgL_procz00_3466, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_196); }  else 
{ /* Ieee/string.scm 1194 */
BgL_e2z00_1879 = BgL_start2z00_196; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_e2z00_1879 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1265 */

{ 
 long BgL_i1z00_1883; long BgL_i2z00_1884;
{ /* Ieee/string.scm 1266 */
 long BgL_tmpz00_9595;
{ /* Ieee/string.scm 1266 */
 long BgL_za71za7_3474;
{ /* Ieee/string.scm 1266 */
 obj_t BgL_tmpz00_9664;
if(
INTEGERP(BgL_b1z00_1876))
{ /* Ieee/string.scm 1266 */
BgL_tmpz00_9664 = BgL_b1z00_1876
; }  else 
{ 
 obj_t BgL_auxz00_9667;
BgL_auxz00_9667 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51573L), BGl_string3497z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_1876); 
FAILURE(BgL_auxz00_9667,BFALSE,BFALSE);} 
BgL_za71za7_3474 = 
(long)CINT(BgL_tmpz00_9664); } 
BgL_i1z00_1883 = 
(BgL_za71za7_3474-1L); } 
{ /* Ieee/string.scm 1267 */
 long BgL_za71za7_3475;
{ /* Ieee/string.scm 1267 */
 obj_t BgL_tmpz00_9673;
if(
INTEGERP(BgL_b2z00_1877))
{ /* Ieee/string.scm 1267 */
BgL_tmpz00_9673 = BgL_b2z00_1877
; }  else 
{ 
 obj_t BgL_auxz00_9676;
BgL_auxz00_9676 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51592L), BGl_string3497z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b2z00_1877); 
FAILURE(BgL_auxz00_9676,BFALSE,BFALSE);} 
BgL_za71za7_3475 = 
(long)CINT(BgL_tmpz00_9673); } 
BgL_i2z00_1884 = 
(BgL_za71za7_3475-1L); } 
BgL_zc3z04anonymousza31778ze3z87_1885:
{ /* Ieee/string.scm 1269 */
 bool_t BgL_test4315z00_9596;
{ /* Ieee/string.scm 1269 */
 bool_t BgL_test4316z00_9597;
{ /* Ieee/string.scm 1269 */
 long BgL_n2z00_3477;
{ /* Ieee/string.scm 1269 */
 obj_t BgL_tmpz00_9598;
if(
INTEGERP(BgL_e1z00_1878))
{ /* Ieee/string.scm 1269 */
BgL_tmpz00_9598 = BgL_e1z00_1878
; }  else 
{ 
 obj_t BgL_auxz00_9601;
BgL_auxz00_9601 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51626L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e1z00_1878); 
FAILURE(BgL_auxz00_9601,BFALSE,BFALSE);} 
BgL_n2z00_3477 = 
(long)CINT(BgL_tmpz00_9598); } 
BgL_test4316z00_9597 = 
(BgL_i1z00_1883<BgL_n2z00_3477); } 
if(BgL_test4316z00_9597)
{ /* Ieee/string.scm 1269 */
BgL_test4315z00_9596 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1269 */
 long BgL_n2z00_3479;
{ /* Ieee/string.scm 1269 */
 obj_t BgL_tmpz00_9607;
if(
INTEGERP(BgL_e2z00_1879))
{ /* Ieee/string.scm 1269 */
BgL_tmpz00_9607 = BgL_e2z00_1879
; }  else 
{ 
 obj_t BgL_auxz00_9610;
BgL_auxz00_9610 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51638L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e2z00_1879); 
FAILURE(BgL_auxz00_9610,BFALSE,BFALSE);} 
BgL_n2z00_3479 = 
(long)CINT(BgL_tmpz00_9607); } 
BgL_test4315z00_9596 = 
(BgL_i2z00_1884<BgL_n2z00_3479); } } 
if(BgL_test4315z00_9596)
{ /* Ieee/string.scm 1270 */
 long BgL_za71za7_3481;
{ /* Ieee/string.scm 1270 */
 obj_t BgL_tmpz00_9616;
if(
INTEGERP(BgL_b1z00_1876))
{ /* Ieee/string.scm 1270 */
BgL_tmpz00_9616 = BgL_b1z00_1876
; }  else 
{ 
 obj_t BgL_auxz00_9619;
BgL_auxz00_9619 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51654L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_1876); 
FAILURE(BgL_auxz00_9619,BFALSE,BFALSE);} 
BgL_za71za7_3481 = 
(long)CINT(BgL_tmpz00_9616); } 
BgL_tmpz00_9595 = 
(BgL_za71za7_3481-
(BgL_i1z00_1883+1L)); }  else 
{ /* Ieee/string.scm 1271 */
 bool_t BgL_test4320z00_9626;
{ /* Ieee/string.scm 1271 */
 unsigned char BgL_auxz00_9638; unsigned char BgL_tmpz00_9627;
{ /* Ieee/string.scm 327 */
 long BgL_l2529z00_4495;
BgL_l2529z00_4495 = 
STRING_LENGTH(BgL_s2z00_193); 
if(
BOUND_CHECK(BgL_i2z00_1884, BgL_l2529z00_4495))
{ /* Ieee/string.scm 327 */
BgL_auxz00_9638 = 
STRING_REF(BgL_s2z00_193, BgL_i2z00_1884)
; }  else 
{ 
 obj_t BgL_auxz00_9643;
BgL_auxz00_9643 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s2z00_193, 
(int)(BgL_l2529z00_4495), 
(int)(BgL_i2z00_1884)); 
FAILURE(BgL_auxz00_9643,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 327 */
 long BgL_l2525z00_4491;
BgL_l2525z00_4491 = 
STRING_LENGTH(BgL_s1z00_192); 
if(
BOUND_CHECK(BgL_i1z00_1883, BgL_l2525z00_4491))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_9627 = 
STRING_REF(BgL_s1z00_192, BgL_i1z00_1883)
; }  else 
{ 
 obj_t BgL_auxz00_9632;
BgL_auxz00_9632 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s1z00_192, 
(int)(BgL_l2525z00_4491), 
(int)(BgL_i1z00_1883)); 
FAILURE(BgL_auxz00_9632,BFALSE,BFALSE);} } 
BgL_test4320z00_9626 = 
(BgL_tmpz00_9627==BgL_auxz00_9638); } 
if(BgL_test4320z00_9626)
{ 
 long BgL_i2z00_9652; long BgL_i1z00_9650;
BgL_i1z00_9650 = 
(BgL_i1z00_1883-1L); 
BgL_i2z00_9652 = 
(BgL_i2z00_1884-1L); 
BgL_i2z00_1884 = BgL_i2z00_9652; 
BgL_i1z00_1883 = BgL_i1z00_9650; 
goto BgL_zc3z04anonymousza31778ze3z87_1885;}  else 
{ /* Ieee/string.scm 1274 */
 long BgL_za71za7_3492;
{ /* Ieee/string.scm 1274 */
 obj_t BgL_tmpz00_9654;
if(
INTEGERP(BgL_b1z00_1876))
{ /* Ieee/string.scm 1274 */
BgL_tmpz00_9654 = BgL_b1z00_1876
; }  else 
{ 
 obj_t BgL_auxz00_9657;
BgL_auxz00_9657 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(51781L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_1876); 
FAILURE(BgL_auxz00_9657,BFALSE,BFALSE);} 
BgL_za71za7_3492 = 
(long)CINT(BgL_tmpz00_9654); } 
BgL_tmpz00_9595 = 
(BgL_za71za7_3492-
(BgL_i1z00_1883+1L)); } } } 
return 
(int)(BgL_tmpz00_9595);} } } } } } } } } } 

}



/* _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 1279 */
{ /* Ieee/string.scm 1279 */
 obj_t BgL_s1z00_1899; obj_t BgL_s2z00_1900;
BgL_s1z00_1899 = 
VECTOR_REF(BgL_opt1173z00_206,0L); 
BgL_s2z00_1900 = 
VECTOR_REF(BgL_opt1173z00_206,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1173z00_206)) { case 2L : 

{ /* Ieee/string.scm 1279 */

{ /* Ieee/string.scm 1279 */
 int BgL_tmpz00_9685;
{ /* Ieee/string.scm 1279 */
 obj_t BgL_auxz00_9693; obj_t BgL_auxz00_9686;
if(
STRINGP(BgL_s2z00_1900))
{ /* Ieee/string.scm 1279 */
BgL_auxz00_9693 = BgL_s2z00_1900
; }  else 
{ 
 obj_t BgL_auxz00_9696;
BgL_auxz00_9696 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52024L), BGl_string3500z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1900); 
FAILURE(BgL_auxz00_9696,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1899))
{ /* Ieee/string.scm 1279 */
BgL_auxz00_9686 = BgL_s1z00_1899
; }  else 
{ 
 obj_t BgL_auxz00_9689;
BgL_auxz00_9689 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52024L), BGl_string3500z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1899); 
FAILURE(BgL_auxz00_9689,BFALSE,BFALSE);} 
BgL_tmpz00_9685 = 
BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_9686, BgL_auxz00_9693, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9685);} } break;case 3L : 

{ /* Ieee/string.scm 1279 */
 obj_t BgL_start1z00_1907;
BgL_start1z00_1907 = 
VECTOR_REF(BgL_opt1173z00_206,2L); 
{ /* Ieee/string.scm 1279 */

{ /* Ieee/string.scm 1279 */
 int BgL_tmpz00_9703;
{ /* Ieee/string.scm 1279 */
 obj_t BgL_auxz00_9711; obj_t BgL_auxz00_9704;
if(
STRINGP(BgL_s2z00_1900))
{ /* Ieee/string.scm 1279 */
BgL_auxz00_9711 = BgL_s2z00_1900
; }  else 
{ 
 obj_t BgL_auxz00_9714;
BgL_auxz00_9714 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52024L), BGl_string3500z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1900); 
FAILURE(BgL_auxz00_9714,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1899))
{ /* Ieee/string.scm 1279 */
BgL_auxz00_9704 = BgL_s1z00_1899
; }  else 
{ 
 obj_t BgL_auxz00_9707;
BgL_auxz00_9707 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52024L), BGl_string3500z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1899); 
FAILURE(BgL_auxz00_9707,BFALSE,BFALSE);} 
BgL_tmpz00_9703 = 
BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_9704, BgL_auxz00_9711, BgL_start1z00_1907, BFALSE, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9703);} } } break;case 4L : 

{ /* Ieee/string.scm 1279 */
 obj_t BgL_start1z00_1911;
BgL_start1z00_1911 = 
VECTOR_REF(BgL_opt1173z00_206,2L); 
{ /* Ieee/string.scm 1279 */
 obj_t BgL_end1z00_1912;
BgL_end1z00_1912 = 
VECTOR_REF(BgL_opt1173z00_206,3L); 
{ /* Ieee/string.scm 1279 */

{ /* Ieee/string.scm 1279 */
 int BgL_tmpz00_9722;
{ /* Ieee/string.scm 1279 */
 obj_t BgL_auxz00_9730; obj_t BgL_auxz00_9723;
if(
STRINGP(BgL_s2z00_1900))
{ /* Ieee/string.scm 1279 */
BgL_auxz00_9730 = BgL_s2z00_1900
; }  else 
{ 
 obj_t BgL_auxz00_9733;
BgL_auxz00_9733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52024L), BGl_string3500z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1900); 
FAILURE(BgL_auxz00_9733,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1899))
{ /* Ieee/string.scm 1279 */
BgL_auxz00_9723 = BgL_s1z00_1899
; }  else 
{ 
 obj_t BgL_auxz00_9726;
BgL_auxz00_9726 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52024L), BGl_string3500z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1899); 
FAILURE(BgL_auxz00_9726,BFALSE,BFALSE);} 
BgL_tmpz00_9722 = 
BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_9723, BgL_auxz00_9730, BgL_start1z00_1911, BgL_end1z00_1912, BFALSE, BFALSE); } 
return 
BINT(BgL_tmpz00_9722);} } } } break;case 5L : 

{ /* Ieee/string.scm 1279 */
 obj_t BgL_start1z00_1915;
BgL_start1z00_1915 = 
VECTOR_REF(BgL_opt1173z00_206,2L); 
{ /* Ieee/string.scm 1279 */
 obj_t BgL_end1z00_1916;
BgL_end1z00_1916 = 
VECTOR_REF(BgL_opt1173z00_206,3L); 
{ /* Ieee/string.scm 1279 */
 obj_t BgL_start2z00_1917;
BgL_start2z00_1917 = 
VECTOR_REF(BgL_opt1173z00_206,4L); 
{ /* Ieee/string.scm 1279 */

{ /* Ieee/string.scm 1279 */
 int BgL_tmpz00_9742;
{ /* Ieee/string.scm 1279 */
 obj_t BgL_auxz00_9750; obj_t BgL_auxz00_9743;
if(
STRINGP(BgL_s2z00_1900))
{ /* Ieee/string.scm 1279 */
BgL_auxz00_9750 = BgL_s2z00_1900
; }  else 
{ 
 obj_t BgL_auxz00_9753;
BgL_auxz00_9753 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52024L), BGl_string3500z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1900); 
FAILURE(BgL_auxz00_9753,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1899))
{ /* Ieee/string.scm 1279 */
BgL_auxz00_9743 = BgL_s1z00_1899
; }  else 
{ 
 obj_t BgL_auxz00_9746;
BgL_auxz00_9746 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52024L), BGl_string3500z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1899); 
FAILURE(BgL_auxz00_9746,BFALSE,BFALSE);} 
BgL_tmpz00_9742 = 
BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_9743, BgL_auxz00_9750, BgL_start1z00_1915, BgL_end1z00_1916, BgL_start2z00_1917, BFALSE); } 
return 
BINT(BgL_tmpz00_9742);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1279 */
 obj_t BgL_start1z00_1919;
BgL_start1z00_1919 = 
VECTOR_REF(BgL_opt1173z00_206,2L); 
{ /* Ieee/string.scm 1279 */
 obj_t BgL_end1z00_1920;
BgL_end1z00_1920 = 
VECTOR_REF(BgL_opt1173z00_206,3L); 
{ /* Ieee/string.scm 1279 */
 obj_t BgL_start2z00_1921;
BgL_start2z00_1921 = 
VECTOR_REF(BgL_opt1173z00_206,4L); 
{ /* Ieee/string.scm 1279 */
 obj_t BgL_end2z00_1922;
BgL_end2z00_1922 = 
VECTOR_REF(BgL_opt1173z00_206,5L); 
{ /* Ieee/string.scm 1279 */

{ /* Ieee/string.scm 1279 */
 int BgL_tmpz00_9763;
{ /* Ieee/string.scm 1279 */
 obj_t BgL_auxz00_9771; obj_t BgL_auxz00_9764;
if(
STRINGP(BgL_s2z00_1900))
{ /* Ieee/string.scm 1279 */
BgL_auxz00_9771 = BgL_s2z00_1900
; }  else 
{ 
 obj_t BgL_auxz00_9774;
BgL_auxz00_9774 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52024L), BGl_string3500z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1900); 
FAILURE(BgL_auxz00_9774,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1899))
{ /* Ieee/string.scm 1279 */
BgL_auxz00_9764 = BgL_s1z00_1899
; }  else 
{ 
 obj_t BgL_auxz00_9767;
BgL_auxz00_9767 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52024L), BGl_string3500z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1899); 
FAILURE(BgL_auxz00_9767,BFALSE,BFALSE);} 
BgL_tmpz00_9763 = 
BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(BgL_auxz00_9764, BgL_auxz00_9771, BgL_start1z00_1919, BgL_end1z00_1920, BgL_start2z00_1921, BgL_end2z00_1922); } 
return 
BINT(BgL_tmpz00_9763);} } } } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3498z00zz__r4_strings_6_7z00, BGl_string3475z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1173z00_206)));} } } } 

}



/* 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 1279 */
{ /* Ieee/string.scm 1281 */
 long BgL_l1z00_1924;
BgL_l1z00_1924 = 
STRING_LENGTH(BgL_s1z00_200); 
{ /* Ieee/string.scm 1281 */
 long BgL_l2z00_1925;
BgL_l2z00_1925 = 
STRING_LENGTH(BgL_s2z00_201); 
{ /* Ieee/string.scm 1282 */
 obj_t BgL_b1z00_1926;
{ /* Ieee/string.scm 1283 */
 obj_t BgL_procz00_3496;
BgL_procz00_3496 = BGl_symbol3501z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_203))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4337z00_9789;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3501;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_9790;
if(
INTEGERP(BgL_end1z00_203))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_9790 = BgL_end1z00_203
; }  else 
{ 
 obj_t BgL_auxz00_9793;
BgL_auxz00_9793 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3502z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_203); 
FAILURE(BgL_auxz00_9793,BFALSE,BFALSE);} 
BgL_n1z00_3501 = 
(long)CINT(BgL_tmpz00_9790); } 
BgL_test4337z00_9789 = 
(BgL_n1z00_3501<=0L); } 
if(BgL_test4337z00_9789)
{ /* Ieee/string.scm 1206 */
BgL_b1z00_1926 = 
BGl_errorz00zz__errorz00(BgL_procz00_3496, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_203); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4339z00_9801;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3502;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_9802;
if(
INTEGERP(BgL_end1z00_203))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_9802 = BgL_end1z00_203
; }  else 
{ 
 obj_t BgL_auxz00_9805;
BgL_auxz00_9805 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3502z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_203); 
FAILURE(BgL_auxz00_9805,BFALSE,BFALSE);} 
BgL_n1z00_3502 = 
(long)CINT(BgL_tmpz00_9802); } 
BgL_test4339z00_9801 = 
(BgL_n1z00_3502>BgL_l1z00_1924); } 
if(BgL_test4339z00_9801)
{ /* Ieee/string.scm 1208 */
BgL_b1z00_1926 = 
BGl_errorz00zz__errorz00(BgL_procz00_3496, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_203); }  else 
{ /* Ieee/string.scm 1208 */
BgL_b1z00_1926 = BgL_end1z00_203; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_b1z00_1926 = 
BINT(BgL_l1z00_1924); } } 
{ /* Ieee/string.scm 1283 */
 obj_t BgL_b2z00_1927;
{ /* Ieee/string.scm 1284 */
 obj_t BgL_procz00_3504;
BgL_procz00_3504 = BGl_symbol3501z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_205))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4342z00_9816;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3509;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_9817;
if(
INTEGERP(BgL_end2z00_205))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_9817 = BgL_end2z00_205
; }  else 
{ 
 obj_t BgL_auxz00_9820;
BgL_auxz00_9820 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3502z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_205); 
FAILURE(BgL_auxz00_9820,BFALSE,BFALSE);} 
BgL_n1z00_3509 = 
(long)CINT(BgL_tmpz00_9817); } 
BgL_test4342z00_9816 = 
(BgL_n1z00_3509<=0L); } 
if(BgL_test4342z00_9816)
{ /* Ieee/string.scm 1206 */
BgL_b2z00_1927 = 
BGl_errorz00zz__errorz00(BgL_procz00_3504, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_205); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4344z00_9828;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3510;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_9829;
if(
INTEGERP(BgL_end2z00_205))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_9829 = BgL_end2z00_205
; }  else 
{ 
 obj_t BgL_auxz00_9832;
BgL_auxz00_9832 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3502z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_205); 
FAILURE(BgL_auxz00_9832,BFALSE,BFALSE);} 
BgL_n1z00_3510 = 
(long)CINT(BgL_tmpz00_9829); } 
BgL_test4344z00_9828 = 
(BgL_n1z00_3510>BgL_l2z00_1925); } 
if(BgL_test4344z00_9828)
{ /* Ieee/string.scm 1208 */
BgL_b2z00_1927 = 
BGl_errorz00zz__errorz00(BgL_procz00_3504, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_205); }  else 
{ /* Ieee/string.scm 1208 */
BgL_b2z00_1927 = BgL_end2z00_205; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_b2z00_1927 = 
BINT(BgL_l2z00_1925); } } 
{ /* Ieee/string.scm 1284 */
 obj_t BgL_e1z00_1928;
{ /* Ieee/string.scm 1285 */
 obj_t BgL_procz00_3512;
BgL_procz00_3512 = BGl_symbol3501z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_202))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4347z00_9843;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3517;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_9844;
if(
INTEGERP(BgL_start1z00_202))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_9844 = BgL_start1z00_202
; }  else 
{ 
 obj_t BgL_auxz00_9847;
BgL_auxz00_9847 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3502z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_202); 
FAILURE(BgL_auxz00_9847,BFALSE,BFALSE);} 
BgL_n1z00_3517 = 
(long)CINT(BgL_tmpz00_9844); } 
BgL_test4347z00_9843 = 
(BgL_n1z00_3517<0L); } 
if(BgL_test4347z00_9843)
{ /* Ieee/string.scm 1192 */
BgL_e1z00_1928 = 
BGl_errorz00zz__errorz00(BgL_procz00_3512, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_202); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4349z00_9855;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3518;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_9856;
if(
INTEGERP(BgL_start1z00_202))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_9856 = BgL_start1z00_202
; }  else 
{ 
 obj_t BgL_auxz00_9859;
BgL_auxz00_9859 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3502z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_202); 
FAILURE(BgL_auxz00_9859,BFALSE,BFALSE);} 
BgL_n1z00_3518 = 
(long)CINT(BgL_tmpz00_9856); } 
BgL_test4349z00_9855 = 
(BgL_n1z00_3518>=BgL_l1z00_1924); } 
if(BgL_test4349z00_9855)
{ /* Ieee/string.scm 1194 */
BgL_e1z00_1928 = 
BGl_errorz00zz__errorz00(BgL_procz00_3512, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_202); }  else 
{ /* Ieee/string.scm 1194 */
BgL_e1z00_1928 = BgL_start1z00_202; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_e1z00_1928 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1285 */
 obj_t BgL_e2z00_1929;
{ /* Ieee/string.scm 1286 */
 obj_t BgL_procz00_3520;
BgL_procz00_3520 = BGl_symbol3501z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_204))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4352z00_9870;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3525;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_9871;
if(
INTEGERP(BgL_start2z00_204))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_9871 = BgL_start2z00_204
; }  else 
{ 
 obj_t BgL_auxz00_9874;
BgL_auxz00_9874 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3502z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_204); 
FAILURE(BgL_auxz00_9874,BFALSE,BFALSE);} 
BgL_n1z00_3525 = 
(long)CINT(BgL_tmpz00_9871); } 
BgL_test4352z00_9870 = 
(BgL_n1z00_3525<0L); } 
if(BgL_test4352z00_9870)
{ /* Ieee/string.scm 1192 */
BgL_e2z00_1929 = 
BGl_errorz00zz__errorz00(BgL_procz00_3520, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_204); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4354z00_9882;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3526;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_9883;
if(
INTEGERP(BgL_start2z00_204))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_9883 = BgL_start2z00_204
; }  else 
{ 
 obj_t BgL_auxz00_9886;
BgL_auxz00_9886 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3502z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_204); 
FAILURE(BgL_auxz00_9886,BFALSE,BFALSE);} 
BgL_n1z00_3526 = 
(long)CINT(BgL_tmpz00_9883); } 
BgL_test4354z00_9882 = 
(BgL_n1z00_3526>=BgL_l2z00_1925); } 
if(BgL_test4354z00_9882)
{ /* Ieee/string.scm 1194 */
BgL_e2z00_1929 = 
BGl_errorz00zz__errorz00(BgL_procz00_3520, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_204); }  else 
{ /* Ieee/string.scm 1194 */
BgL_e2z00_1929 = BgL_start2z00_204; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_e2z00_1929 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1286 */

{ 
 long BgL_i1z00_1933; long BgL_i2z00_1934;
{ /* Ieee/string.scm 1287 */
 long BgL_tmpz00_9895;
{ /* Ieee/string.scm 1287 */
 long BgL_za71za7_3528;
{ /* Ieee/string.scm 1287 */
 obj_t BgL_tmpz00_9968;
if(
INTEGERP(BgL_b1z00_1926))
{ /* Ieee/string.scm 1287 */
BgL_tmpz00_9968 = BgL_b1z00_1926
; }  else 
{ 
 obj_t BgL_auxz00_9971;
BgL_auxz00_9971 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52502L), BGl_string3502z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_1926); 
FAILURE(BgL_auxz00_9971,BFALSE,BFALSE);} 
BgL_za71za7_3528 = 
(long)CINT(BgL_tmpz00_9968); } 
BgL_i1z00_1933 = 
(BgL_za71za7_3528-1L); } 
{ /* Ieee/string.scm 1288 */
 long BgL_za71za7_3529;
{ /* Ieee/string.scm 1288 */
 obj_t BgL_tmpz00_9977;
if(
INTEGERP(BgL_b2z00_1927))
{ /* Ieee/string.scm 1288 */
BgL_tmpz00_9977 = BgL_b2z00_1927
; }  else 
{ 
 obj_t BgL_auxz00_9980;
BgL_auxz00_9980 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52521L), BGl_string3502z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b2z00_1927); 
FAILURE(BgL_auxz00_9980,BFALSE,BFALSE);} 
BgL_za71za7_3529 = 
(long)CINT(BgL_tmpz00_9977); } 
BgL_i2z00_1934 = 
(BgL_za71za7_3529-1L); } 
BgL_zc3z04anonymousza31791ze3z87_1935:
{ /* Ieee/string.scm 1290 */
 bool_t BgL_test4356z00_9896;
{ /* Ieee/string.scm 1290 */
 bool_t BgL_test4357z00_9897;
{ /* Ieee/string.scm 1290 */
 long BgL_n2z00_3531;
{ /* Ieee/string.scm 1290 */
 obj_t BgL_tmpz00_9898;
if(
INTEGERP(BgL_e1z00_1928))
{ /* Ieee/string.scm 1290 */
BgL_tmpz00_9898 = BgL_e1z00_1928
; }  else 
{ 
 obj_t BgL_auxz00_9901;
BgL_auxz00_9901 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52555L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e1z00_1928); 
FAILURE(BgL_auxz00_9901,BFALSE,BFALSE);} 
BgL_n2z00_3531 = 
(long)CINT(BgL_tmpz00_9898); } 
BgL_test4357z00_9897 = 
(BgL_i1z00_1933<BgL_n2z00_3531); } 
if(BgL_test4357z00_9897)
{ /* Ieee/string.scm 1290 */
BgL_test4356z00_9896 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1290 */
 long BgL_n2z00_3533;
{ /* Ieee/string.scm 1290 */
 obj_t BgL_tmpz00_9907;
if(
INTEGERP(BgL_e2z00_1929))
{ /* Ieee/string.scm 1290 */
BgL_tmpz00_9907 = BgL_e2z00_1929
; }  else 
{ 
 obj_t BgL_auxz00_9910;
BgL_auxz00_9910 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52567L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e2z00_1929); 
FAILURE(BgL_auxz00_9910,BFALSE,BFALSE);} 
BgL_n2z00_3533 = 
(long)CINT(BgL_tmpz00_9907); } 
BgL_test4356z00_9896 = 
(BgL_i2z00_1934<BgL_n2z00_3533); } } 
if(BgL_test4356z00_9896)
{ /* Ieee/string.scm 1291 */
 long BgL_za71za7_3535;
{ /* Ieee/string.scm 1291 */
 obj_t BgL_tmpz00_9916;
if(
INTEGERP(BgL_b1z00_1926))
{ /* Ieee/string.scm 1291 */
BgL_tmpz00_9916 = BgL_b1z00_1926
; }  else 
{ 
 obj_t BgL_auxz00_9919;
BgL_auxz00_9919 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52583L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_1926); 
FAILURE(BgL_auxz00_9919,BFALSE,BFALSE);} 
BgL_za71za7_3535 = 
(long)CINT(BgL_tmpz00_9916); } 
BgL_tmpz00_9895 = 
(BgL_za71za7_3535-
(BgL_i1z00_1933+1L)); }  else 
{ /* Ieee/string.scm 1292 */
 bool_t BgL_test4361z00_9926;
{ /* Ieee/string.scm 1292 */
 unsigned char BgL_auxz00_9940; unsigned char BgL_tmpz00_9927;
{ /* Ieee/string.scm 1292 */
 unsigned char BgL_tmpz00_9941;
{ /* Ieee/string.scm 327 */
 long BgL_l2537z00_4503;
BgL_l2537z00_4503 = 
STRING_LENGTH(BgL_s2z00_201); 
if(
BOUND_CHECK(BgL_i2z00_1934, BgL_l2537z00_4503))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_9941 = 
STRING_REF(BgL_s2z00_201, BgL_i2z00_1934)
; }  else 
{ 
 obj_t BgL_auxz00_9946;
BgL_auxz00_9946 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s2z00_201, 
(int)(BgL_l2537z00_4503), 
(int)(BgL_i2z00_1934)); 
FAILURE(BgL_auxz00_9946,BFALSE,BFALSE);} } 
BgL_auxz00_9940 = 
toupper(BgL_tmpz00_9941); } 
{ /* Ieee/string.scm 1292 */
 unsigned char BgL_tmpz00_9928;
{ /* Ieee/string.scm 327 */
 long BgL_l2533z00_4499;
BgL_l2533z00_4499 = 
STRING_LENGTH(BgL_s1z00_200); 
if(
BOUND_CHECK(BgL_i1z00_1933, BgL_l2533z00_4499))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_9928 = 
STRING_REF(BgL_s1z00_200, BgL_i1z00_1933)
; }  else 
{ 
 obj_t BgL_auxz00_9933;
BgL_auxz00_9933 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s1z00_200, 
(int)(BgL_l2533z00_4499), 
(int)(BgL_i1z00_1933)); 
FAILURE(BgL_auxz00_9933,BFALSE,BFALSE);} } 
BgL_tmpz00_9927 = 
toupper(BgL_tmpz00_9928); } 
BgL_test4361z00_9926 = 
(BgL_tmpz00_9927==BgL_auxz00_9940); } 
if(BgL_test4361z00_9926)
{ 
 long BgL_i2z00_9956; long BgL_i1z00_9954;
BgL_i1z00_9954 = 
(BgL_i1z00_1933-1L); 
BgL_i2z00_9956 = 
(BgL_i2z00_1934-1L); 
BgL_i2z00_1934 = BgL_i2z00_9956; 
BgL_i1z00_1933 = BgL_i1z00_9954; 
goto BgL_zc3z04anonymousza31791ze3z87_1935;}  else 
{ /* Ieee/string.scm 1295 */
 long BgL_za71za7_3552;
{ /* Ieee/string.scm 1295 */
 obj_t BgL_tmpz00_9958;
if(
INTEGERP(BgL_b1z00_1926))
{ /* Ieee/string.scm 1295 */
BgL_tmpz00_9958 = BgL_b1z00_1926
; }  else 
{ 
 obj_t BgL_auxz00_9961;
BgL_auxz00_9961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52713L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_1926); 
FAILURE(BgL_auxz00_9961,BFALSE,BFALSE);} 
BgL_za71za7_3552 = 
(long)CINT(BgL_tmpz00_9958); } 
BgL_tmpz00_9895 = 
(BgL_za71za7_3552-
(BgL_i1z00_1933+1L)); } } } 
return 
(int)(BgL_tmpz00_9895);} } } } } } } } } } 

}



/* _string-prefix? */
obj_t BGl__stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t BgL_env1178z00_215, obj_t BgL_opt1177z00_214)
{
{ /* Ieee/string.scm 1300 */
{ /* Ieee/string.scm 1300 */
 obj_t BgL_s1z00_1949; obj_t BgL_s2z00_1950;
BgL_s1z00_1949 = 
VECTOR_REF(BgL_opt1177z00_214,0L); 
BgL_s2z00_1950 = 
VECTOR_REF(BgL_opt1177z00_214,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1177z00_214)) { case 2L : 

{ /* Ieee/string.scm 1300 */

{ /* Ieee/string.scm 1300 */
 bool_t BgL_tmpz00_9989;
{ /* Ieee/string.scm 1300 */
 obj_t BgL_auxz00_9997; obj_t BgL_auxz00_9990;
if(
STRINGP(BgL_s2z00_1950))
{ /* Ieee/string.scm 1300 */
BgL_auxz00_9997 = BgL_s2z00_1950
; }  else 
{ 
 obj_t BgL_auxz00_10000;
BgL_auxz00_10000 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52956L), BGl_string3505z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1950); 
FAILURE(BgL_auxz00_10000,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1949))
{ /* Ieee/string.scm 1300 */
BgL_auxz00_9990 = BgL_s1z00_1949
; }  else 
{ 
 obj_t BgL_auxz00_9993;
BgL_auxz00_9993 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52956L), BGl_string3505z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1949); 
FAILURE(BgL_auxz00_9993,BFALSE,BFALSE);} 
BgL_tmpz00_9989 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_9990, BgL_auxz00_9997, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_9989);} } break;case 3L : 

{ /* Ieee/string.scm 1300 */
 obj_t BgL_start1z00_1957;
BgL_start1z00_1957 = 
VECTOR_REF(BgL_opt1177z00_214,2L); 
{ /* Ieee/string.scm 1300 */

{ /* Ieee/string.scm 1300 */
 bool_t BgL_tmpz00_10007;
{ /* Ieee/string.scm 1300 */
 obj_t BgL_auxz00_10015; obj_t BgL_auxz00_10008;
if(
STRINGP(BgL_s2z00_1950))
{ /* Ieee/string.scm 1300 */
BgL_auxz00_10015 = BgL_s2z00_1950
; }  else 
{ 
 obj_t BgL_auxz00_10018;
BgL_auxz00_10018 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52956L), BGl_string3505z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1950); 
FAILURE(BgL_auxz00_10018,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1949))
{ /* Ieee/string.scm 1300 */
BgL_auxz00_10008 = BgL_s1z00_1949
; }  else 
{ 
 obj_t BgL_auxz00_10011;
BgL_auxz00_10011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52956L), BGl_string3505z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1949); 
FAILURE(BgL_auxz00_10011,BFALSE,BFALSE);} 
BgL_tmpz00_10007 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_10008, BgL_auxz00_10015, BgL_start1z00_1957, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10007);} } } break;case 4L : 

{ /* Ieee/string.scm 1300 */
 obj_t BgL_start1z00_1961;
BgL_start1z00_1961 = 
VECTOR_REF(BgL_opt1177z00_214,2L); 
{ /* Ieee/string.scm 1300 */
 obj_t BgL_end1z00_1962;
BgL_end1z00_1962 = 
VECTOR_REF(BgL_opt1177z00_214,3L); 
{ /* Ieee/string.scm 1300 */

{ /* Ieee/string.scm 1300 */
 bool_t BgL_tmpz00_10026;
{ /* Ieee/string.scm 1300 */
 obj_t BgL_auxz00_10034; obj_t BgL_auxz00_10027;
if(
STRINGP(BgL_s2z00_1950))
{ /* Ieee/string.scm 1300 */
BgL_auxz00_10034 = BgL_s2z00_1950
; }  else 
{ 
 obj_t BgL_auxz00_10037;
BgL_auxz00_10037 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52956L), BGl_string3505z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1950); 
FAILURE(BgL_auxz00_10037,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1949))
{ /* Ieee/string.scm 1300 */
BgL_auxz00_10027 = BgL_s1z00_1949
; }  else 
{ 
 obj_t BgL_auxz00_10030;
BgL_auxz00_10030 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52956L), BGl_string3505z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1949); 
FAILURE(BgL_auxz00_10030,BFALSE,BFALSE);} 
BgL_tmpz00_10026 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_10027, BgL_auxz00_10034, BgL_start1z00_1961, BgL_end1z00_1962, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10026);} } } } break;case 5L : 

{ /* Ieee/string.scm 1300 */
 obj_t BgL_start1z00_1965;
BgL_start1z00_1965 = 
VECTOR_REF(BgL_opt1177z00_214,2L); 
{ /* Ieee/string.scm 1300 */
 obj_t BgL_end1z00_1966;
BgL_end1z00_1966 = 
VECTOR_REF(BgL_opt1177z00_214,3L); 
{ /* Ieee/string.scm 1300 */
 obj_t BgL_start2z00_1967;
BgL_start2z00_1967 = 
VECTOR_REF(BgL_opt1177z00_214,4L); 
{ /* Ieee/string.scm 1300 */

{ /* Ieee/string.scm 1300 */
 bool_t BgL_tmpz00_10046;
{ /* Ieee/string.scm 1300 */
 obj_t BgL_auxz00_10054; obj_t BgL_auxz00_10047;
if(
STRINGP(BgL_s2z00_1950))
{ /* Ieee/string.scm 1300 */
BgL_auxz00_10054 = BgL_s2z00_1950
; }  else 
{ 
 obj_t BgL_auxz00_10057;
BgL_auxz00_10057 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52956L), BGl_string3505z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1950); 
FAILURE(BgL_auxz00_10057,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1949))
{ /* Ieee/string.scm 1300 */
BgL_auxz00_10047 = BgL_s1z00_1949
; }  else 
{ 
 obj_t BgL_auxz00_10050;
BgL_auxz00_10050 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52956L), BGl_string3505z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1949); 
FAILURE(BgL_auxz00_10050,BFALSE,BFALSE);} 
BgL_tmpz00_10046 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_10047, BgL_auxz00_10054, BgL_start1z00_1965, BgL_end1z00_1966, BgL_start2z00_1967, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10046);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1300 */
 obj_t BgL_start1z00_1969;
BgL_start1z00_1969 = 
VECTOR_REF(BgL_opt1177z00_214,2L); 
{ /* Ieee/string.scm 1300 */
 obj_t BgL_end1z00_1970;
BgL_end1z00_1970 = 
VECTOR_REF(BgL_opt1177z00_214,3L); 
{ /* Ieee/string.scm 1300 */
 obj_t BgL_start2z00_1971;
BgL_start2z00_1971 = 
VECTOR_REF(BgL_opt1177z00_214,4L); 
{ /* Ieee/string.scm 1300 */
 obj_t BgL_end2z00_1972;
BgL_end2z00_1972 = 
VECTOR_REF(BgL_opt1177z00_214,5L); 
{ /* Ieee/string.scm 1300 */

{ /* Ieee/string.scm 1300 */
 bool_t BgL_tmpz00_10067;
{ /* Ieee/string.scm 1300 */
 obj_t BgL_auxz00_10075; obj_t BgL_auxz00_10068;
if(
STRINGP(BgL_s2z00_1950))
{ /* Ieee/string.scm 1300 */
BgL_auxz00_10075 = BgL_s2z00_1950
; }  else 
{ 
 obj_t BgL_auxz00_10078;
BgL_auxz00_10078 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52956L), BGl_string3505z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1950); 
FAILURE(BgL_auxz00_10078,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1949))
{ /* Ieee/string.scm 1300 */
BgL_auxz00_10068 = BgL_s1z00_1949
; }  else 
{ 
 obj_t BgL_auxz00_10071;
BgL_auxz00_10071 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(52956L), BGl_string3505z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1949); 
FAILURE(BgL_auxz00_10071,BFALSE,BFALSE);} 
BgL_tmpz00_10067 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_10068, BgL_auxz00_10075, BgL_start1z00_1969, BgL_end1z00_1970, BgL_start2z00_1971, BgL_end2z00_1972); } 
return 
BBOOL(BgL_tmpz00_10067);} } } } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3503z00zz__r4_strings_6_7z00, BGl_string3475z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1177z00_214)));} } } } 

}



/* 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 1300 */
{ /* Ieee/string.scm 1302 */
 long BgL_l1z00_1974;
BgL_l1z00_1974 = 
STRING_LENGTH(BgL_s1z00_208); 
{ /* Ieee/string.scm 1302 */
 long BgL_l2z00_1975;
BgL_l2z00_1975 = 
STRING_LENGTH(BgL_s2z00_209); 
{ /* Ieee/string.scm 1303 */
 obj_t BgL_e1z00_1976;
{ /* Ieee/string.scm 1304 */
 obj_t BgL_procz00_3556;
BgL_procz00_3556 = BGl_symbol3506z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_211))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4378z00_10093;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3561;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_10094;
if(
INTEGERP(BgL_end1z00_211))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_10094 = BgL_end1z00_211
; }  else 
{ 
 obj_t BgL_auxz00_10097;
BgL_auxz00_10097 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3507z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_211); 
FAILURE(BgL_auxz00_10097,BFALSE,BFALSE);} 
BgL_n1z00_3561 = 
(long)CINT(BgL_tmpz00_10094); } 
BgL_test4378z00_10093 = 
(BgL_n1z00_3561<=0L); } 
if(BgL_test4378z00_10093)
{ /* Ieee/string.scm 1206 */
BgL_e1z00_1976 = 
BGl_errorz00zz__errorz00(BgL_procz00_3556, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_211); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4380z00_10105;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3562;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_10106;
if(
INTEGERP(BgL_end1z00_211))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_10106 = BgL_end1z00_211
; }  else 
{ 
 obj_t BgL_auxz00_10109;
BgL_auxz00_10109 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3507z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_211); 
FAILURE(BgL_auxz00_10109,BFALSE,BFALSE);} 
BgL_n1z00_3562 = 
(long)CINT(BgL_tmpz00_10106); } 
BgL_test4380z00_10105 = 
(BgL_n1z00_3562>BgL_l1z00_1974); } 
if(BgL_test4380z00_10105)
{ /* Ieee/string.scm 1208 */
BgL_e1z00_1976 = 
BGl_errorz00zz__errorz00(BgL_procz00_3556, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_211); }  else 
{ /* Ieee/string.scm 1208 */
BgL_e1z00_1976 = BgL_end1z00_211; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_e1z00_1976 = 
BINT(BgL_l1z00_1974); } } 
{ /* Ieee/string.scm 1304 */
 obj_t BgL_e2z00_1977;
{ /* Ieee/string.scm 1305 */
 obj_t BgL_procz00_3564;
BgL_procz00_3564 = BGl_symbol3506z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_213))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4383z00_10120;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3569;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_10121;
if(
INTEGERP(BgL_end2z00_213))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_10121 = BgL_end2z00_213
; }  else 
{ 
 obj_t BgL_auxz00_10124;
BgL_auxz00_10124 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3507z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_213); 
FAILURE(BgL_auxz00_10124,BFALSE,BFALSE);} 
BgL_n1z00_3569 = 
(long)CINT(BgL_tmpz00_10121); } 
BgL_test4383z00_10120 = 
(BgL_n1z00_3569<=0L); } 
if(BgL_test4383z00_10120)
{ /* Ieee/string.scm 1206 */
BgL_e2z00_1977 = 
BGl_errorz00zz__errorz00(BgL_procz00_3564, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_213); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4385z00_10132;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3570;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_10133;
if(
INTEGERP(BgL_end2z00_213))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_10133 = BgL_end2z00_213
; }  else 
{ 
 obj_t BgL_auxz00_10136;
BgL_auxz00_10136 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3507z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_213); 
FAILURE(BgL_auxz00_10136,BFALSE,BFALSE);} 
BgL_n1z00_3570 = 
(long)CINT(BgL_tmpz00_10133); } 
BgL_test4385z00_10132 = 
(BgL_n1z00_3570>BgL_l2z00_1975); } 
if(BgL_test4385z00_10132)
{ /* Ieee/string.scm 1208 */
BgL_e2z00_1977 = 
BGl_errorz00zz__errorz00(BgL_procz00_3564, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_213); }  else 
{ /* Ieee/string.scm 1208 */
BgL_e2z00_1977 = BgL_end2z00_213; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_e2z00_1977 = 
BINT(BgL_l2z00_1975); } } 
{ /* Ieee/string.scm 1305 */
 obj_t BgL_b1z00_1978;
{ /* Ieee/string.scm 1306 */
 obj_t BgL_procz00_3572;
BgL_procz00_3572 = BGl_symbol3506z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_210))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4388z00_10147;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3577;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_10148;
if(
INTEGERP(BgL_start1z00_210))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_10148 = BgL_start1z00_210
; }  else 
{ 
 obj_t BgL_auxz00_10151;
BgL_auxz00_10151 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3507z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_210); 
FAILURE(BgL_auxz00_10151,BFALSE,BFALSE);} 
BgL_n1z00_3577 = 
(long)CINT(BgL_tmpz00_10148); } 
BgL_test4388z00_10147 = 
(BgL_n1z00_3577<0L); } 
if(BgL_test4388z00_10147)
{ /* Ieee/string.scm 1192 */
BgL_b1z00_1978 = 
BGl_errorz00zz__errorz00(BgL_procz00_3572, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_210); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4390z00_10159;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3578;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_10160;
if(
INTEGERP(BgL_start1z00_210))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_10160 = BgL_start1z00_210
; }  else 
{ 
 obj_t BgL_auxz00_10163;
BgL_auxz00_10163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3507z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_210); 
FAILURE(BgL_auxz00_10163,BFALSE,BFALSE);} 
BgL_n1z00_3578 = 
(long)CINT(BgL_tmpz00_10160); } 
BgL_test4390z00_10159 = 
(BgL_n1z00_3578>=BgL_l1z00_1974); } 
if(BgL_test4390z00_10159)
{ /* Ieee/string.scm 1194 */
BgL_b1z00_1978 = 
BGl_errorz00zz__errorz00(BgL_procz00_3572, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_210); }  else 
{ /* Ieee/string.scm 1194 */
BgL_b1z00_1978 = BgL_start1z00_210; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_b1z00_1978 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1306 */
 obj_t BgL_b2z00_1979;
{ /* Ieee/string.scm 1307 */
 obj_t BgL_procz00_3580;
BgL_procz00_3580 = BGl_symbol3506z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_212))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4393z00_10174;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3585;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_10175;
if(
INTEGERP(BgL_start2z00_212))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_10175 = BgL_start2z00_212
; }  else 
{ 
 obj_t BgL_auxz00_10178;
BgL_auxz00_10178 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3507z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_212); 
FAILURE(BgL_auxz00_10178,BFALSE,BFALSE);} 
BgL_n1z00_3585 = 
(long)CINT(BgL_tmpz00_10175); } 
BgL_test4393z00_10174 = 
(BgL_n1z00_3585<0L); } 
if(BgL_test4393z00_10174)
{ /* Ieee/string.scm 1192 */
BgL_b2z00_1979 = 
BGl_errorz00zz__errorz00(BgL_procz00_3580, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_212); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4395z00_10186;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3586;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_10187;
if(
INTEGERP(BgL_start2z00_212))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_10187 = BgL_start2z00_212
; }  else 
{ 
 obj_t BgL_auxz00_10190;
BgL_auxz00_10190 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3507z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_212); 
FAILURE(BgL_auxz00_10190,BFALSE,BFALSE);} 
BgL_n1z00_3586 = 
(long)CINT(BgL_tmpz00_10187); } 
BgL_test4395z00_10186 = 
(BgL_n1z00_3586>=BgL_l2z00_1975); } 
if(BgL_test4395z00_10186)
{ /* Ieee/string.scm 1194 */
BgL_b2z00_1979 = 
BGl_errorz00zz__errorz00(BgL_procz00_3580, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_212); }  else 
{ /* Ieee/string.scm 1194 */
BgL_b2z00_1979 = BgL_start2z00_212; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_b2z00_1979 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1307 */

{ 
 obj_t BgL_i1z00_1981; obj_t BgL_i2z00_1982;
BgL_i1z00_1981 = BgL_b1z00_1978; 
BgL_i2z00_1982 = BgL_b2z00_1979; 
BgL_zc3z04anonymousza31804ze3z87_1983:
{ /* Ieee/string.scm 1311 */
 bool_t BgL_test4397z00_10199;
{ /* Ieee/string.scm 1311 */
 long BgL_n1z00_3588; long BgL_n2z00_3589;
{ /* Ieee/string.scm 1311 */
 obj_t BgL_tmpz00_10200;
if(
INTEGERP(BgL_i1z00_1981))
{ /* Ieee/string.scm 1311 */
BgL_tmpz00_10200 = BgL_i1z00_1981
; }  else 
{ 
 obj_t BgL_auxz00_10203;
BgL_auxz00_10203 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53419L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1981); 
FAILURE(BgL_auxz00_10203,BFALSE,BFALSE);} 
BgL_n1z00_3588 = 
(long)CINT(BgL_tmpz00_10200); } 
{ /* Ieee/string.scm 1311 */
 obj_t BgL_tmpz00_10208;
if(
INTEGERP(BgL_e1z00_1976))
{ /* Ieee/string.scm 1311 */
BgL_tmpz00_10208 = BgL_e1z00_1976
; }  else 
{ 
 obj_t BgL_auxz00_10211;
BgL_auxz00_10211 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53422L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e1z00_1976); 
FAILURE(BgL_auxz00_10211,BFALSE,BFALSE);} 
BgL_n2z00_3589 = 
(long)CINT(BgL_tmpz00_10208); } 
BgL_test4397z00_10199 = 
(BgL_n1z00_3588==BgL_n2z00_3589); } 
if(BgL_test4397z00_10199)
{ /* Ieee/string.scm 1311 */
return ((bool_t)1);}  else 
{ /* Ieee/string.scm 1313 */
 bool_t BgL_test4400z00_10217;
{ /* Ieee/string.scm 1313 */
 long BgL_n1z00_3590; long BgL_n2z00_3591;
{ /* Ieee/string.scm 1313 */
 obj_t BgL_tmpz00_10218;
if(
INTEGERP(BgL_i2z00_1982))
{ /* Ieee/string.scm 1313 */
BgL_tmpz00_10218 = BgL_i2z00_1982
; }  else 
{ 
 obj_t BgL_auxz00_10221;
BgL_auxz00_10221 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53447L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_1982); 
FAILURE(BgL_auxz00_10221,BFALSE,BFALSE);} 
BgL_n1z00_3590 = 
(long)CINT(BgL_tmpz00_10218); } 
{ /* Ieee/string.scm 1313 */
 obj_t BgL_tmpz00_10226;
if(
INTEGERP(BgL_e2z00_1977))
{ /* Ieee/string.scm 1313 */
BgL_tmpz00_10226 = BgL_e2z00_1977
; }  else 
{ 
 obj_t BgL_auxz00_10229;
BgL_auxz00_10229 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53450L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e2z00_1977); 
FAILURE(BgL_auxz00_10229,BFALSE,BFALSE);} 
BgL_n2z00_3591 = 
(long)CINT(BgL_tmpz00_10226); } 
BgL_test4400z00_10217 = 
(BgL_n1z00_3590==BgL_n2z00_3591); } 
if(BgL_test4400z00_10217)
{ /* Ieee/string.scm 1313 */
return ((bool_t)0);}  else 
{ /* Ieee/string.scm 1315 */
 bool_t BgL_test4403z00_10235;
{ /* Ieee/string.scm 1315 */
 unsigned char BgL_auxz00_10255; unsigned char BgL_tmpz00_10236;
{ /* Ieee/string.scm 1315 */
 long BgL_kz00_3595;
{ /* Ieee/string.scm 1315 */
 obj_t BgL_tmpz00_10256;
if(
INTEGERP(BgL_i2z00_1982))
{ /* Ieee/string.scm 1315 */
BgL_tmpz00_10256 = BgL_i2z00_1982
; }  else 
{ 
 obj_t BgL_auxz00_10259;
BgL_auxz00_10259 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53512L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_1982); 
FAILURE(BgL_auxz00_10259,BFALSE,BFALSE);} 
BgL_kz00_3595 = 
(long)CINT(BgL_tmpz00_10256); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2545z00_4511;
BgL_l2545z00_4511 = 
STRING_LENGTH(BgL_s2z00_209); 
if(
BOUND_CHECK(BgL_kz00_3595, BgL_l2545z00_4511))
{ /* Ieee/string.scm 327 */
BgL_auxz00_10255 = 
STRING_REF(BgL_s2z00_209, BgL_kz00_3595)
; }  else 
{ 
 obj_t BgL_auxz00_10268;
BgL_auxz00_10268 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s2z00_209, 
(int)(BgL_l2545z00_4511), 
(int)(BgL_kz00_3595)); 
FAILURE(BgL_auxz00_10268,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1315 */
 long BgL_kz00_3593;
{ /* Ieee/string.scm 1315 */
 obj_t BgL_tmpz00_10237;
if(
INTEGERP(BgL_i1z00_1981))
{ /* Ieee/string.scm 1315 */
BgL_tmpz00_10237 = BgL_i1z00_1981
; }  else 
{ 
 obj_t BgL_auxz00_10240;
BgL_auxz00_10240 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53493L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1981); 
FAILURE(BgL_auxz00_10240,BFALSE,BFALSE);} 
BgL_kz00_3593 = 
(long)CINT(BgL_tmpz00_10237); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2541z00_4507;
BgL_l2541z00_4507 = 
STRING_LENGTH(BgL_s1z00_208); 
if(
BOUND_CHECK(BgL_kz00_3593, BgL_l2541z00_4507))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_10236 = 
STRING_REF(BgL_s1z00_208, BgL_kz00_3593)
; }  else 
{ 
 obj_t BgL_auxz00_10249;
BgL_auxz00_10249 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s1z00_208, 
(int)(BgL_l2541z00_4507), 
(int)(BgL_kz00_3593)); 
FAILURE(BgL_auxz00_10249,BFALSE,BFALSE);} } } 
BgL_test4403z00_10235 = 
(BgL_tmpz00_10236==BgL_auxz00_10255); } 
if(BgL_test4403z00_10235)
{ 
 obj_t BgL_i2z00_10285; obj_t BgL_i1z00_10275;
{ 
 obj_t BgL_tmpz00_10276;
if(
INTEGERP(BgL_i1z00_1981))
{ /* Ieee/string.scm 1316 */
BgL_tmpz00_10276 = BgL_i1z00_1981
; }  else 
{ 
 obj_t BgL_auxz00_10279;
BgL_auxz00_10279 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53534L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_1981); 
FAILURE(BgL_auxz00_10279,BFALSE,BFALSE);} 
BgL_i1z00_10275 = 
ADDFX(BgL_tmpz00_10276, 
BINT(1L)); } 
{ 
 obj_t BgL_tmpz00_10286;
if(
INTEGERP(BgL_i2z00_1982))
{ /* Ieee/string.scm 1316 */
BgL_tmpz00_10286 = BgL_i2z00_1982
; }  else 
{ 
 obj_t BgL_auxz00_10289;
BgL_auxz00_10289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53545L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_1982); 
FAILURE(BgL_auxz00_10289,BFALSE,BFALSE);} 
BgL_i2z00_10285 = 
ADDFX(BgL_tmpz00_10286, 
BINT(1L)); } 
BgL_i2z00_1982 = BgL_i2z00_10285; 
BgL_i1z00_1981 = BgL_i1z00_10275; 
goto BgL_zc3z04anonymousza31804ze3z87_1983;}  else 
{ /* Ieee/string.scm 1315 */
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 1323 */
{ /* Ieee/string.scm 1323 */
 obj_t BgL_s1z00_1994; obj_t BgL_s2z00_1995;
BgL_s1z00_1994 = 
VECTOR_REF(BgL_opt1181z00_222,0L); 
BgL_s2z00_1995 = 
VECTOR_REF(BgL_opt1181z00_222,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1181z00_222)) { case 2L : 

{ /* Ieee/string.scm 1323 */

{ /* Ieee/string.scm 1323 */
 bool_t BgL_tmpz00_10297;
{ /* Ieee/string.scm 1323 */
 obj_t BgL_auxz00_10305; obj_t BgL_auxz00_10298;
if(
STRINGP(BgL_s2z00_1995))
{ /* Ieee/string.scm 1323 */
BgL_auxz00_10305 = BgL_s2z00_1995
; }  else 
{ 
 obj_t BgL_auxz00_10308;
BgL_auxz00_10308 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53801L), BGl_string3510z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1995); 
FAILURE(BgL_auxz00_10308,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1994))
{ /* Ieee/string.scm 1323 */
BgL_auxz00_10298 = BgL_s1z00_1994
; }  else 
{ 
 obj_t BgL_auxz00_10301;
BgL_auxz00_10301 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53801L), BGl_string3510z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1994); 
FAILURE(BgL_auxz00_10301,BFALSE,BFALSE);} 
BgL_tmpz00_10297 = 
BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_10298, BgL_auxz00_10305, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10297);} } break;case 3L : 

{ /* Ieee/string.scm 1323 */
 obj_t BgL_start1z00_2002;
BgL_start1z00_2002 = 
VECTOR_REF(BgL_opt1181z00_222,2L); 
{ /* Ieee/string.scm 1323 */

{ /* Ieee/string.scm 1323 */
 bool_t BgL_tmpz00_10315;
{ /* Ieee/string.scm 1323 */
 obj_t BgL_auxz00_10323; obj_t BgL_auxz00_10316;
if(
STRINGP(BgL_s2z00_1995))
{ /* Ieee/string.scm 1323 */
BgL_auxz00_10323 = BgL_s2z00_1995
; }  else 
{ 
 obj_t BgL_auxz00_10326;
BgL_auxz00_10326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53801L), BGl_string3510z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1995); 
FAILURE(BgL_auxz00_10326,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1994))
{ /* Ieee/string.scm 1323 */
BgL_auxz00_10316 = BgL_s1z00_1994
; }  else 
{ 
 obj_t BgL_auxz00_10319;
BgL_auxz00_10319 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53801L), BGl_string3510z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1994); 
FAILURE(BgL_auxz00_10319,BFALSE,BFALSE);} 
BgL_tmpz00_10315 = 
BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_10316, BgL_auxz00_10323, BgL_start1z00_2002, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10315);} } } break;case 4L : 

{ /* Ieee/string.scm 1323 */
 obj_t BgL_start1z00_2006;
BgL_start1z00_2006 = 
VECTOR_REF(BgL_opt1181z00_222,2L); 
{ /* Ieee/string.scm 1323 */
 obj_t BgL_end1z00_2007;
BgL_end1z00_2007 = 
VECTOR_REF(BgL_opt1181z00_222,3L); 
{ /* Ieee/string.scm 1323 */

{ /* Ieee/string.scm 1323 */
 bool_t BgL_tmpz00_10334;
{ /* Ieee/string.scm 1323 */
 obj_t BgL_auxz00_10342; obj_t BgL_auxz00_10335;
if(
STRINGP(BgL_s2z00_1995))
{ /* Ieee/string.scm 1323 */
BgL_auxz00_10342 = BgL_s2z00_1995
; }  else 
{ 
 obj_t BgL_auxz00_10345;
BgL_auxz00_10345 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53801L), BGl_string3510z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1995); 
FAILURE(BgL_auxz00_10345,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1994))
{ /* Ieee/string.scm 1323 */
BgL_auxz00_10335 = BgL_s1z00_1994
; }  else 
{ 
 obj_t BgL_auxz00_10338;
BgL_auxz00_10338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53801L), BGl_string3510z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1994); 
FAILURE(BgL_auxz00_10338,BFALSE,BFALSE);} 
BgL_tmpz00_10334 = 
BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_10335, BgL_auxz00_10342, BgL_start1z00_2006, BgL_end1z00_2007, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10334);} } } } break;case 5L : 

{ /* Ieee/string.scm 1323 */
 obj_t BgL_start1z00_2010;
BgL_start1z00_2010 = 
VECTOR_REF(BgL_opt1181z00_222,2L); 
{ /* Ieee/string.scm 1323 */
 obj_t BgL_end1z00_2011;
BgL_end1z00_2011 = 
VECTOR_REF(BgL_opt1181z00_222,3L); 
{ /* Ieee/string.scm 1323 */
 obj_t BgL_start2z00_2012;
BgL_start2z00_2012 = 
VECTOR_REF(BgL_opt1181z00_222,4L); 
{ /* Ieee/string.scm 1323 */

{ /* Ieee/string.scm 1323 */
 bool_t BgL_tmpz00_10354;
{ /* Ieee/string.scm 1323 */
 obj_t BgL_auxz00_10362; obj_t BgL_auxz00_10355;
if(
STRINGP(BgL_s2z00_1995))
{ /* Ieee/string.scm 1323 */
BgL_auxz00_10362 = BgL_s2z00_1995
; }  else 
{ 
 obj_t BgL_auxz00_10365;
BgL_auxz00_10365 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53801L), BGl_string3510z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1995); 
FAILURE(BgL_auxz00_10365,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1994))
{ /* Ieee/string.scm 1323 */
BgL_auxz00_10355 = BgL_s1z00_1994
; }  else 
{ 
 obj_t BgL_auxz00_10358;
BgL_auxz00_10358 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53801L), BGl_string3510z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1994); 
FAILURE(BgL_auxz00_10358,BFALSE,BFALSE);} 
BgL_tmpz00_10354 = 
BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_10355, BgL_auxz00_10362, BgL_start1z00_2010, BgL_end1z00_2011, BgL_start2z00_2012, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10354);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1323 */
 obj_t BgL_start1z00_2014;
BgL_start1z00_2014 = 
VECTOR_REF(BgL_opt1181z00_222,2L); 
{ /* Ieee/string.scm 1323 */
 obj_t BgL_end1z00_2015;
BgL_end1z00_2015 = 
VECTOR_REF(BgL_opt1181z00_222,3L); 
{ /* Ieee/string.scm 1323 */
 obj_t BgL_start2z00_2016;
BgL_start2z00_2016 = 
VECTOR_REF(BgL_opt1181z00_222,4L); 
{ /* Ieee/string.scm 1323 */
 obj_t BgL_end2z00_2017;
BgL_end2z00_2017 = 
VECTOR_REF(BgL_opt1181z00_222,5L); 
{ /* Ieee/string.scm 1323 */

{ /* Ieee/string.scm 1323 */
 bool_t BgL_tmpz00_10375;
{ /* Ieee/string.scm 1323 */
 obj_t BgL_auxz00_10383; obj_t BgL_auxz00_10376;
if(
STRINGP(BgL_s2z00_1995))
{ /* Ieee/string.scm 1323 */
BgL_auxz00_10383 = BgL_s2z00_1995
; }  else 
{ 
 obj_t BgL_auxz00_10386;
BgL_auxz00_10386 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53801L), BGl_string3510z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_1995); 
FAILURE(BgL_auxz00_10386,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_1994))
{ /* Ieee/string.scm 1323 */
BgL_auxz00_10376 = BgL_s1z00_1994
; }  else 
{ 
 obj_t BgL_auxz00_10379;
BgL_auxz00_10379 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(53801L), BGl_string3510z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_1994); 
FAILURE(BgL_auxz00_10379,BFALSE,BFALSE);} 
BgL_tmpz00_10375 = 
BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_10376, BgL_auxz00_10383, BgL_start1z00_2014, BgL_end1z00_2015, BgL_start2z00_2016, BgL_end2z00_2017); } 
return 
BBOOL(BgL_tmpz00_10375);} } } } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3508z00zz__r4_strings_6_7z00, BGl_string3475z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1181z00_222)));} } } } 

}



/* 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 1323 */
{ /* Ieee/string.scm 1325 */
 long BgL_l1z00_2019;
BgL_l1z00_2019 = 
STRING_LENGTH(BgL_s1z00_216); 
{ /* Ieee/string.scm 1325 */
 long BgL_l2z00_2020;
BgL_l2z00_2020 = 
STRING_LENGTH(BgL_s2z00_217); 
{ /* Ieee/string.scm 1326 */
 obj_t BgL_e1z00_2021;
{ /* Ieee/string.scm 1327 */
 obj_t BgL_procz00_3602;
BgL_procz00_3602 = BGl_symbol3511z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_219))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4421z00_10401;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3607;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_10402;
if(
INTEGERP(BgL_end1z00_219))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_10402 = BgL_end1z00_219
; }  else 
{ 
 obj_t BgL_auxz00_10405;
BgL_auxz00_10405 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3512z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_219); 
FAILURE(BgL_auxz00_10405,BFALSE,BFALSE);} 
BgL_n1z00_3607 = 
(long)CINT(BgL_tmpz00_10402); } 
BgL_test4421z00_10401 = 
(BgL_n1z00_3607<=0L); } 
if(BgL_test4421z00_10401)
{ /* Ieee/string.scm 1206 */
BgL_e1z00_2021 = 
BGl_errorz00zz__errorz00(BgL_procz00_3602, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_219); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4423z00_10413;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3608;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_10414;
if(
INTEGERP(BgL_end1z00_219))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_10414 = BgL_end1z00_219
; }  else 
{ 
 obj_t BgL_auxz00_10417;
BgL_auxz00_10417 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3512z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_219); 
FAILURE(BgL_auxz00_10417,BFALSE,BFALSE);} 
BgL_n1z00_3608 = 
(long)CINT(BgL_tmpz00_10414); } 
BgL_test4423z00_10413 = 
(BgL_n1z00_3608>BgL_l1z00_2019); } 
if(BgL_test4423z00_10413)
{ /* Ieee/string.scm 1208 */
BgL_e1z00_2021 = 
BGl_errorz00zz__errorz00(BgL_procz00_3602, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_219); }  else 
{ /* Ieee/string.scm 1208 */
BgL_e1z00_2021 = BgL_end1z00_219; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_e1z00_2021 = 
BINT(BgL_l1z00_2019); } } 
{ /* Ieee/string.scm 1327 */
 obj_t BgL_e2z00_2022;
{ /* Ieee/string.scm 1328 */
 obj_t BgL_procz00_3610;
BgL_procz00_3610 = BGl_symbol3511z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_221))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4426z00_10428;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3615;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_10429;
if(
INTEGERP(BgL_end2z00_221))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_10429 = BgL_end2z00_221
; }  else 
{ 
 obj_t BgL_auxz00_10432;
BgL_auxz00_10432 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3512z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_221); 
FAILURE(BgL_auxz00_10432,BFALSE,BFALSE);} 
BgL_n1z00_3615 = 
(long)CINT(BgL_tmpz00_10429); } 
BgL_test4426z00_10428 = 
(BgL_n1z00_3615<=0L); } 
if(BgL_test4426z00_10428)
{ /* Ieee/string.scm 1206 */
BgL_e2z00_2022 = 
BGl_errorz00zz__errorz00(BgL_procz00_3610, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_221); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4428z00_10440;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3616;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_10441;
if(
INTEGERP(BgL_end2z00_221))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_10441 = BgL_end2z00_221
; }  else 
{ 
 obj_t BgL_auxz00_10444;
BgL_auxz00_10444 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3512z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_221); 
FAILURE(BgL_auxz00_10444,BFALSE,BFALSE);} 
BgL_n1z00_3616 = 
(long)CINT(BgL_tmpz00_10441); } 
BgL_test4428z00_10440 = 
(BgL_n1z00_3616>BgL_l2z00_2020); } 
if(BgL_test4428z00_10440)
{ /* Ieee/string.scm 1208 */
BgL_e2z00_2022 = 
BGl_errorz00zz__errorz00(BgL_procz00_3610, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_221); }  else 
{ /* Ieee/string.scm 1208 */
BgL_e2z00_2022 = BgL_end2z00_221; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_e2z00_2022 = 
BINT(BgL_l2z00_2020); } } 
{ /* Ieee/string.scm 1328 */
 obj_t BgL_b1z00_2023;
{ /* Ieee/string.scm 1329 */
 obj_t BgL_procz00_3618;
BgL_procz00_3618 = BGl_symbol3511z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_218))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4431z00_10455;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3623;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_10456;
if(
INTEGERP(BgL_start1z00_218))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_10456 = BgL_start1z00_218
; }  else 
{ 
 obj_t BgL_auxz00_10459;
BgL_auxz00_10459 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3512z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_218); 
FAILURE(BgL_auxz00_10459,BFALSE,BFALSE);} 
BgL_n1z00_3623 = 
(long)CINT(BgL_tmpz00_10456); } 
BgL_test4431z00_10455 = 
(BgL_n1z00_3623<0L); } 
if(BgL_test4431z00_10455)
{ /* Ieee/string.scm 1192 */
BgL_b1z00_2023 = 
BGl_errorz00zz__errorz00(BgL_procz00_3618, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_218); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4433z00_10467;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3624;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_10468;
if(
INTEGERP(BgL_start1z00_218))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_10468 = BgL_start1z00_218
; }  else 
{ 
 obj_t BgL_auxz00_10471;
BgL_auxz00_10471 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3512z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_218); 
FAILURE(BgL_auxz00_10471,BFALSE,BFALSE);} 
BgL_n1z00_3624 = 
(long)CINT(BgL_tmpz00_10468); } 
BgL_test4433z00_10467 = 
(BgL_n1z00_3624>=BgL_l1z00_2019); } 
if(BgL_test4433z00_10467)
{ /* Ieee/string.scm 1194 */
BgL_b1z00_2023 = 
BGl_errorz00zz__errorz00(BgL_procz00_3618, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_218); }  else 
{ /* Ieee/string.scm 1194 */
BgL_b1z00_2023 = BgL_start1z00_218; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_b1z00_2023 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1329 */
 obj_t BgL_b2z00_2024;
{ /* Ieee/string.scm 1330 */
 obj_t BgL_procz00_3626;
BgL_procz00_3626 = BGl_symbol3511z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_220))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4436z00_10482;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3631;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_10483;
if(
INTEGERP(BgL_start2z00_220))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_10483 = BgL_start2z00_220
; }  else 
{ 
 obj_t BgL_auxz00_10486;
BgL_auxz00_10486 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3512z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_220); 
FAILURE(BgL_auxz00_10486,BFALSE,BFALSE);} 
BgL_n1z00_3631 = 
(long)CINT(BgL_tmpz00_10483); } 
BgL_test4436z00_10482 = 
(BgL_n1z00_3631<0L); } 
if(BgL_test4436z00_10482)
{ /* Ieee/string.scm 1192 */
BgL_b2z00_2024 = 
BGl_errorz00zz__errorz00(BgL_procz00_3626, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_220); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4438z00_10494;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3632;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_10495;
if(
INTEGERP(BgL_start2z00_220))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_10495 = BgL_start2z00_220
; }  else 
{ 
 obj_t BgL_auxz00_10498;
BgL_auxz00_10498 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3512z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_220); 
FAILURE(BgL_auxz00_10498,BFALSE,BFALSE);} 
BgL_n1z00_3632 = 
(long)CINT(BgL_tmpz00_10495); } 
BgL_test4438z00_10494 = 
(BgL_n1z00_3632>=BgL_l2z00_2020); } 
if(BgL_test4438z00_10494)
{ /* Ieee/string.scm 1194 */
BgL_b2z00_2024 = 
BGl_errorz00zz__errorz00(BgL_procz00_3626, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_220); }  else 
{ /* Ieee/string.scm 1194 */
BgL_b2z00_2024 = BgL_start2z00_220; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_b2z00_2024 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1330 */

{ 
 obj_t BgL_i1z00_2026; obj_t BgL_i2z00_2027;
BgL_i1z00_2026 = BgL_b1z00_2023; 
BgL_i2z00_2027 = BgL_b2z00_2024; 
BgL_zc3z04anonymousza31818ze3z87_2028:
{ /* Ieee/string.scm 1334 */
 bool_t BgL_test4440z00_10507;
{ /* Ieee/string.scm 1334 */
 long BgL_n1z00_3634; long BgL_n2z00_3635;
{ /* Ieee/string.scm 1334 */
 obj_t BgL_tmpz00_10508;
if(
INTEGERP(BgL_i1z00_2026))
{ /* Ieee/string.scm 1334 */
BgL_tmpz00_10508 = BgL_i1z00_2026
; }  else 
{ 
 obj_t BgL_auxz00_10511;
BgL_auxz00_10511 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54275L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_2026); 
FAILURE(BgL_auxz00_10511,BFALSE,BFALSE);} 
BgL_n1z00_3634 = 
(long)CINT(BgL_tmpz00_10508); } 
{ /* Ieee/string.scm 1334 */
 obj_t BgL_tmpz00_10516;
if(
INTEGERP(BgL_e1z00_2021))
{ /* Ieee/string.scm 1334 */
BgL_tmpz00_10516 = BgL_e1z00_2021
; }  else 
{ 
 obj_t BgL_auxz00_10519;
BgL_auxz00_10519 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54278L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e1z00_2021); 
FAILURE(BgL_auxz00_10519,BFALSE,BFALSE);} 
BgL_n2z00_3635 = 
(long)CINT(BgL_tmpz00_10516); } 
BgL_test4440z00_10507 = 
(BgL_n1z00_3634==BgL_n2z00_3635); } 
if(BgL_test4440z00_10507)
{ /* Ieee/string.scm 1334 */
return ((bool_t)1);}  else 
{ /* Ieee/string.scm 1336 */
 bool_t BgL_test4443z00_10525;
{ /* Ieee/string.scm 1336 */
 long BgL_n1z00_3636; long BgL_n2z00_3637;
{ /* Ieee/string.scm 1336 */
 obj_t BgL_tmpz00_10526;
if(
INTEGERP(BgL_i2z00_2027))
{ /* Ieee/string.scm 1336 */
BgL_tmpz00_10526 = BgL_i2z00_2027
; }  else 
{ 
 obj_t BgL_auxz00_10529;
BgL_auxz00_10529 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54303L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_2027); 
FAILURE(BgL_auxz00_10529,BFALSE,BFALSE);} 
BgL_n1z00_3636 = 
(long)CINT(BgL_tmpz00_10526); } 
{ /* Ieee/string.scm 1336 */
 obj_t BgL_tmpz00_10534;
if(
INTEGERP(BgL_e2z00_2022))
{ /* Ieee/string.scm 1336 */
BgL_tmpz00_10534 = BgL_e2z00_2022
; }  else 
{ 
 obj_t BgL_auxz00_10537;
BgL_auxz00_10537 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54306L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e2z00_2022); 
FAILURE(BgL_auxz00_10537,BFALSE,BFALSE);} 
BgL_n2z00_3637 = 
(long)CINT(BgL_tmpz00_10534); } 
BgL_test4443z00_10525 = 
(BgL_n1z00_3636==BgL_n2z00_3637); } 
if(BgL_test4443z00_10525)
{ /* Ieee/string.scm 1336 */
return ((bool_t)0);}  else 
{ /* Ieee/string.scm 1338 */
 bool_t BgL_test4446z00_10543;
{ /* Ieee/string.scm 1338 */
 unsigned char BgL_auxz00_10565; unsigned char BgL_tmpz00_10544;
{ /* Ieee/string.scm 1338 */
 unsigned char BgL_tmpz00_10566;
{ /* Ieee/string.scm 1338 */
 long BgL_kz00_3641;
{ /* Ieee/string.scm 1338 */
 obj_t BgL_tmpz00_10567;
if(
INTEGERP(BgL_i2z00_2027))
{ /* Ieee/string.scm 1338 */
BgL_tmpz00_10567 = BgL_i2z00_2027
; }  else 
{ 
 obj_t BgL_auxz00_10570;
BgL_auxz00_10570 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54371L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_2027); 
FAILURE(BgL_auxz00_10570,BFALSE,BFALSE);} 
BgL_kz00_3641 = 
(long)CINT(BgL_tmpz00_10567); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2553z00_4519;
BgL_l2553z00_4519 = 
STRING_LENGTH(BgL_s2z00_217); 
if(
BOUND_CHECK(BgL_kz00_3641, BgL_l2553z00_4519))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_10566 = 
STRING_REF(BgL_s2z00_217, BgL_kz00_3641)
; }  else 
{ 
 obj_t BgL_auxz00_10579;
BgL_auxz00_10579 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s2z00_217, 
(int)(BgL_l2553z00_4519), 
(int)(BgL_kz00_3641)); 
FAILURE(BgL_auxz00_10579,BFALSE,BFALSE);} } } 
BgL_auxz00_10565 = 
toupper(BgL_tmpz00_10566); } 
{ /* Ieee/string.scm 1338 */
 unsigned char BgL_tmpz00_10545;
{ /* Ieee/string.scm 1338 */
 long BgL_kz00_3639;
{ /* Ieee/string.scm 1338 */
 obj_t BgL_tmpz00_10546;
if(
INTEGERP(BgL_i1z00_2026))
{ /* Ieee/string.scm 1338 */
BgL_tmpz00_10546 = BgL_i1z00_2026
; }  else 
{ 
 obj_t BgL_auxz00_10549;
BgL_auxz00_10549 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54352L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_2026); 
FAILURE(BgL_auxz00_10549,BFALSE,BFALSE);} 
BgL_kz00_3639 = 
(long)CINT(BgL_tmpz00_10546); } 
{ /* Ieee/string.scm 327 */
 long BgL_l2549z00_4515;
BgL_l2549z00_4515 = 
STRING_LENGTH(BgL_s1z00_216); 
if(
BOUND_CHECK(BgL_kz00_3639, BgL_l2549z00_4515))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_10545 = 
STRING_REF(BgL_s1z00_216, BgL_kz00_3639)
; }  else 
{ 
 obj_t BgL_auxz00_10558;
BgL_auxz00_10558 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s1z00_216, 
(int)(BgL_l2549z00_4515), 
(int)(BgL_kz00_3639)); 
FAILURE(BgL_auxz00_10558,BFALSE,BFALSE);} } } 
BgL_tmpz00_10544 = 
toupper(BgL_tmpz00_10545); } 
BgL_test4446z00_10543 = 
(BgL_tmpz00_10544==BgL_auxz00_10565); } 
if(BgL_test4446z00_10543)
{ 
 obj_t BgL_i2z00_10597; obj_t BgL_i1z00_10587;
{ 
 obj_t BgL_tmpz00_10588;
if(
INTEGERP(BgL_i1z00_2026))
{ /* Ieee/string.scm 1339 */
BgL_tmpz00_10588 = BgL_i1z00_2026
; }  else 
{ 
 obj_t BgL_auxz00_10591;
BgL_auxz00_10591 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54393L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i1z00_2026); 
FAILURE(BgL_auxz00_10591,BFALSE,BFALSE);} 
BgL_i1z00_10587 = 
ADDFX(BgL_tmpz00_10588, 
BINT(1L)); } 
{ 
 obj_t BgL_tmpz00_10598;
if(
INTEGERP(BgL_i2z00_2027))
{ /* Ieee/string.scm 1339 */
BgL_tmpz00_10598 = BgL_i2z00_2027
; }  else 
{ 
 obj_t BgL_auxz00_10601;
BgL_auxz00_10601 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54404L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_i2z00_2027); 
FAILURE(BgL_auxz00_10601,BFALSE,BFALSE);} 
BgL_i2z00_10597 = 
ADDFX(BgL_tmpz00_10598, 
BINT(1L)); } 
BgL_i2z00_2027 = BgL_i2z00_10597; 
BgL_i1z00_2026 = BgL_i1z00_10587; 
goto BgL_zc3z04anonymousza31818ze3z87_2028;}  else 
{ /* Ieee/string.scm 1338 */
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 1346 */
{ /* Ieee/string.scm 1346 */
 obj_t BgL_s1z00_2039; obj_t BgL_s2z00_2040;
BgL_s1z00_2039 = 
VECTOR_REF(BgL_opt1185z00_230,0L); 
BgL_s2z00_2040 = 
VECTOR_REF(BgL_opt1185z00_230,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1185z00_230)) { case 2L : 

{ /* Ieee/string.scm 1346 */

{ /* Ieee/string.scm 1346 */
 bool_t BgL_tmpz00_10609;
{ /* Ieee/string.scm 1346 */
 obj_t BgL_auxz00_10617; obj_t BgL_auxz00_10610;
if(
STRINGP(BgL_s2z00_2040))
{ /* Ieee/string.scm 1346 */
BgL_auxz00_10617 = BgL_s2z00_2040
; }  else 
{ 
 obj_t BgL_auxz00_10620;
BgL_auxz00_10620 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54660L), BGl_string3515z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_2040); 
FAILURE(BgL_auxz00_10620,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2039))
{ /* Ieee/string.scm 1346 */
BgL_auxz00_10610 = BgL_s1z00_2039
; }  else 
{ 
 obj_t BgL_auxz00_10613;
BgL_auxz00_10613 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54660L), BGl_string3515z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_2039); 
FAILURE(BgL_auxz00_10613,BFALSE,BFALSE);} 
BgL_tmpz00_10609 = 
BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_10610, BgL_auxz00_10617, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10609);} } break;case 3L : 

{ /* Ieee/string.scm 1346 */
 obj_t BgL_start1z00_2047;
BgL_start1z00_2047 = 
VECTOR_REF(BgL_opt1185z00_230,2L); 
{ /* Ieee/string.scm 1346 */

{ /* Ieee/string.scm 1346 */
 bool_t BgL_tmpz00_10627;
{ /* Ieee/string.scm 1346 */
 obj_t BgL_auxz00_10635; obj_t BgL_auxz00_10628;
if(
STRINGP(BgL_s2z00_2040))
{ /* Ieee/string.scm 1346 */
BgL_auxz00_10635 = BgL_s2z00_2040
; }  else 
{ 
 obj_t BgL_auxz00_10638;
BgL_auxz00_10638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54660L), BGl_string3515z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_2040); 
FAILURE(BgL_auxz00_10638,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2039))
{ /* Ieee/string.scm 1346 */
BgL_auxz00_10628 = BgL_s1z00_2039
; }  else 
{ 
 obj_t BgL_auxz00_10631;
BgL_auxz00_10631 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54660L), BGl_string3515z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_2039); 
FAILURE(BgL_auxz00_10631,BFALSE,BFALSE);} 
BgL_tmpz00_10627 = 
BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_10628, BgL_auxz00_10635, BgL_start1z00_2047, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10627);} } } break;case 4L : 

{ /* Ieee/string.scm 1346 */
 obj_t BgL_start1z00_2051;
BgL_start1z00_2051 = 
VECTOR_REF(BgL_opt1185z00_230,2L); 
{ /* Ieee/string.scm 1346 */
 obj_t BgL_end1z00_2052;
BgL_end1z00_2052 = 
VECTOR_REF(BgL_opt1185z00_230,3L); 
{ /* Ieee/string.scm 1346 */

{ /* Ieee/string.scm 1346 */
 bool_t BgL_tmpz00_10646;
{ /* Ieee/string.scm 1346 */
 obj_t BgL_auxz00_10654; obj_t BgL_auxz00_10647;
if(
STRINGP(BgL_s2z00_2040))
{ /* Ieee/string.scm 1346 */
BgL_auxz00_10654 = BgL_s2z00_2040
; }  else 
{ 
 obj_t BgL_auxz00_10657;
BgL_auxz00_10657 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54660L), BGl_string3515z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_2040); 
FAILURE(BgL_auxz00_10657,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2039))
{ /* Ieee/string.scm 1346 */
BgL_auxz00_10647 = BgL_s1z00_2039
; }  else 
{ 
 obj_t BgL_auxz00_10650;
BgL_auxz00_10650 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54660L), BGl_string3515z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_2039); 
FAILURE(BgL_auxz00_10650,BFALSE,BFALSE);} 
BgL_tmpz00_10646 = 
BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_10647, BgL_auxz00_10654, BgL_start1z00_2051, BgL_end1z00_2052, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10646);} } } } break;case 5L : 

{ /* Ieee/string.scm 1346 */
 obj_t BgL_start1z00_2055;
BgL_start1z00_2055 = 
VECTOR_REF(BgL_opt1185z00_230,2L); 
{ /* Ieee/string.scm 1346 */
 obj_t BgL_end1z00_2056;
BgL_end1z00_2056 = 
VECTOR_REF(BgL_opt1185z00_230,3L); 
{ /* Ieee/string.scm 1346 */
 obj_t BgL_start2z00_2057;
BgL_start2z00_2057 = 
VECTOR_REF(BgL_opt1185z00_230,4L); 
{ /* Ieee/string.scm 1346 */

{ /* Ieee/string.scm 1346 */
 bool_t BgL_tmpz00_10666;
{ /* Ieee/string.scm 1346 */
 obj_t BgL_auxz00_10674; obj_t BgL_auxz00_10667;
if(
STRINGP(BgL_s2z00_2040))
{ /* Ieee/string.scm 1346 */
BgL_auxz00_10674 = BgL_s2z00_2040
; }  else 
{ 
 obj_t BgL_auxz00_10677;
BgL_auxz00_10677 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54660L), BGl_string3515z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_2040); 
FAILURE(BgL_auxz00_10677,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2039))
{ /* Ieee/string.scm 1346 */
BgL_auxz00_10667 = BgL_s1z00_2039
; }  else 
{ 
 obj_t BgL_auxz00_10670;
BgL_auxz00_10670 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54660L), BGl_string3515z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_2039); 
FAILURE(BgL_auxz00_10670,BFALSE,BFALSE);} 
BgL_tmpz00_10666 = 
BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_10667, BgL_auxz00_10674, BgL_start1z00_2055, BgL_end1z00_2056, BgL_start2z00_2057, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10666);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1346 */
 obj_t BgL_start1z00_2059;
BgL_start1z00_2059 = 
VECTOR_REF(BgL_opt1185z00_230,2L); 
{ /* Ieee/string.scm 1346 */
 obj_t BgL_end1z00_2060;
BgL_end1z00_2060 = 
VECTOR_REF(BgL_opt1185z00_230,3L); 
{ /* Ieee/string.scm 1346 */
 obj_t BgL_start2z00_2061;
BgL_start2z00_2061 = 
VECTOR_REF(BgL_opt1185z00_230,4L); 
{ /* Ieee/string.scm 1346 */
 obj_t BgL_end2z00_2062;
BgL_end2z00_2062 = 
VECTOR_REF(BgL_opt1185z00_230,5L); 
{ /* Ieee/string.scm 1346 */

{ /* Ieee/string.scm 1346 */
 bool_t BgL_tmpz00_10687;
{ /* Ieee/string.scm 1346 */
 obj_t BgL_auxz00_10695; obj_t BgL_auxz00_10688;
if(
STRINGP(BgL_s2z00_2040))
{ /* Ieee/string.scm 1346 */
BgL_auxz00_10695 = BgL_s2z00_2040
; }  else 
{ 
 obj_t BgL_auxz00_10698;
BgL_auxz00_10698 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54660L), BGl_string3515z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_2040); 
FAILURE(BgL_auxz00_10698,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2039))
{ /* Ieee/string.scm 1346 */
BgL_auxz00_10688 = BgL_s1z00_2039
; }  else 
{ 
 obj_t BgL_auxz00_10691;
BgL_auxz00_10691 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(54660L), BGl_string3515z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_2039); 
FAILURE(BgL_auxz00_10691,BFALSE,BFALSE);} 
BgL_tmpz00_10687 = 
BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(BgL_auxz00_10688, BgL_auxz00_10695, BgL_start1z00_2059, BgL_end1z00_2060, BgL_start2z00_2061, BgL_end2z00_2062); } 
return 
BBOOL(BgL_tmpz00_10687);} } } } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3513z00zz__r4_strings_6_7z00, BGl_string3475z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1185z00_230)));} } } } 

}



/* 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 1346 */
{ /* Ieee/string.scm 1348 */
 long BgL_l1z00_2064;
BgL_l1z00_2064 = 
STRING_LENGTH(BgL_s1z00_224); 
{ /* Ieee/string.scm 1348 */
 long BgL_l2z00_2065;
BgL_l2z00_2065 = 
STRING_LENGTH(BgL_s2z00_225); 
{ /* Ieee/string.scm 1349 */
 obj_t BgL_b1z00_2066;
{ /* Ieee/string.scm 1350 */
 obj_t BgL_procz00_3654;
BgL_procz00_3654 = BGl_symbol3516z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_227))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4464z00_10713;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3659;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_10714;
if(
INTEGERP(BgL_end1z00_227))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_10714 = BgL_end1z00_227
; }  else 
{ 
 obj_t BgL_auxz00_10717;
BgL_auxz00_10717 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3517z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_227); 
FAILURE(BgL_auxz00_10717,BFALSE,BFALSE);} 
BgL_n1z00_3659 = 
(long)CINT(BgL_tmpz00_10714); } 
BgL_test4464z00_10713 = 
(BgL_n1z00_3659<=0L); } 
if(BgL_test4464z00_10713)
{ /* Ieee/string.scm 1206 */
BgL_b1z00_2066 = 
BGl_errorz00zz__errorz00(BgL_procz00_3654, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_227); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4466z00_10725;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3660;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_10726;
if(
INTEGERP(BgL_end1z00_227))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_10726 = BgL_end1z00_227
; }  else 
{ 
 obj_t BgL_auxz00_10729;
BgL_auxz00_10729 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3517z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_227); 
FAILURE(BgL_auxz00_10729,BFALSE,BFALSE);} 
BgL_n1z00_3660 = 
(long)CINT(BgL_tmpz00_10726); } 
BgL_test4466z00_10725 = 
(BgL_n1z00_3660>BgL_l1z00_2064); } 
if(BgL_test4466z00_10725)
{ /* Ieee/string.scm 1208 */
BgL_b1z00_2066 = 
BGl_errorz00zz__errorz00(BgL_procz00_3654, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_227); }  else 
{ /* Ieee/string.scm 1208 */
BgL_b1z00_2066 = BgL_end1z00_227; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_b1z00_2066 = 
BINT(BgL_l1z00_2064); } } 
{ /* Ieee/string.scm 1350 */
 obj_t BgL_b2z00_2067;
{ /* Ieee/string.scm 1351 */
 obj_t BgL_procz00_3662;
BgL_procz00_3662 = BGl_symbol3516z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_229))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4469z00_10740;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3667;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_10741;
if(
INTEGERP(BgL_end2z00_229))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_10741 = BgL_end2z00_229
; }  else 
{ 
 obj_t BgL_auxz00_10744;
BgL_auxz00_10744 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3517z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_229); 
FAILURE(BgL_auxz00_10744,BFALSE,BFALSE);} 
BgL_n1z00_3667 = 
(long)CINT(BgL_tmpz00_10741); } 
BgL_test4469z00_10740 = 
(BgL_n1z00_3667<=0L); } 
if(BgL_test4469z00_10740)
{ /* Ieee/string.scm 1206 */
BgL_b2z00_2067 = 
BGl_errorz00zz__errorz00(BgL_procz00_3662, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_229); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4471z00_10752;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3668;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_10753;
if(
INTEGERP(BgL_end2z00_229))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_10753 = BgL_end2z00_229
; }  else 
{ 
 obj_t BgL_auxz00_10756;
BgL_auxz00_10756 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3517z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_229); 
FAILURE(BgL_auxz00_10756,BFALSE,BFALSE);} 
BgL_n1z00_3668 = 
(long)CINT(BgL_tmpz00_10753); } 
BgL_test4471z00_10752 = 
(BgL_n1z00_3668>BgL_l2z00_2065); } 
if(BgL_test4471z00_10752)
{ /* Ieee/string.scm 1208 */
BgL_b2z00_2067 = 
BGl_errorz00zz__errorz00(BgL_procz00_3662, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_229); }  else 
{ /* Ieee/string.scm 1208 */
BgL_b2z00_2067 = BgL_end2z00_229; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_b2z00_2067 = 
BINT(BgL_l2z00_2065); } } 
{ /* Ieee/string.scm 1351 */
 obj_t BgL_e1z00_2068;
{ /* Ieee/string.scm 1352 */
 obj_t BgL_procz00_3670;
BgL_procz00_3670 = BGl_symbol3516z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_226))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4474z00_10767;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3675;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_10768;
if(
INTEGERP(BgL_start1z00_226))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_10768 = BgL_start1z00_226
; }  else 
{ 
 obj_t BgL_auxz00_10771;
BgL_auxz00_10771 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3517z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_226); 
FAILURE(BgL_auxz00_10771,BFALSE,BFALSE);} 
BgL_n1z00_3675 = 
(long)CINT(BgL_tmpz00_10768); } 
BgL_test4474z00_10767 = 
(BgL_n1z00_3675<0L); } 
if(BgL_test4474z00_10767)
{ /* Ieee/string.scm 1192 */
BgL_e1z00_2068 = 
BGl_errorz00zz__errorz00(BgL_procz00_3670, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_226); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4476z00_10779;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3676;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_10780;
if(
INTEGERP(BgL_start1z00_226))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_10780 = BgL_start1z00_226
; }  else 
{ 
 obj_t BgL_auxz00_10783;
BgL_auxz00_10783 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3517z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_226); 
FAILURE(BgL_auxz00_10783,BFALSE,BFALSE);} 
BgL_n1z00_3676 = 
(long)CINT(BgL_tmpz00_10780); } 
BgL_test4476z00_10779 = 
(BgL_n1z00_3676>=BgL_l1z00_2064); } 
if(BgL_test4476z00_10779)
{ /* Ieee/string.scm 1194 */
BgL_e1z00_2068 = 
BGl_errorz00zz__errorz00(BgL_procz00_3670, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_226); }  else 
{ /* Ieee/string.scm 1194 */
BgL_e1z00_2068 = BgL_start1z00_226; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_e1z00_2068 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1352 */
 obj_t BgL_e2z00_2069;
{ /* Ieee/string.scm 1353 */
 obj_t BgL_procz00_3678;
BgL_procz00_3678 = BGl_symbol3516z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_228))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4479z00_10794;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3683;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_10795;
if(
INTEGERP(BgL_start2z00_228))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_10795 = BgL_start2z00_228
; }  else 
{ 
 obj_t BgL_auxz00_10798;
BgL_auxz00_10798 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3517z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_228); 
FAILURE(BgL_auxz00_10798,BFALSE,BFALSE);} 
BgL_n1z00_3683 = 
(long)CINT(BgL_tmpz00_10795); } 
BgL_test4479z00_10794 = 
(BgL_n1z00_3683<0L); } 
if(BgL_test4479z00_10794)
{ /* Ieee/string.scm 1192 */
BgL_e2z00_2069 = 
BGl_errorz00zz__errorz00(BgL_procz00_3678, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_228); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4481z00_10806;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3684;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_10807;
if(
INTEGERP(BgL_start2z00_228))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_10807 = BgL_start2z00_228
; }  else 
{ 
 obj_t BgL_auxz00_10810;
BgL_auxz00_10810 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3517z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_228); 
FAILURE(BgL_auxz00_10810,BFALSE,BFALSE);} 
BgL_n1z00_3684 = 
(long)CINT(BgL_tmpz00_10807); } 
BgL_test4481z00_10806 = 
(BgL_n1z00_3684>=BgL_l2z00_2065); } 
if(BgL_test4481z00_10806)
{ /* Ieee/string.scm 1194 */
BgL_e2z00_2069 = 
BGl_errorz00zz__errorz00(BgL_procz00_3678, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_228); }  else 
{ /* Ieee/string.scm 1194 */
BgL_e2z00_2069 = BgL_start2z00_228; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_e2z00_2069 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1353 */

{ 
 long BgL_i1z00_2073; long BgL_i2z00_2074;
{ /* Ieee/string.scm 1354 */
 long BgL_za71za7_3686;
{ /* Ieee/string.scm 1354 */
 obj_t BgL_tmpz00_10867;
if(
INTEGERP(BgL_b1z00_2066))
{ /* Ieee/string.scm 1354 */
BgL_tmpz00_10867 = BgL_b1z00_2066
; }  else 
{ 
 obj_t BgL_auxz00_10870;
BgL_auxz00_10870 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55093L), BGl_string3517z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_2066); 
FAILURE(BgL_auxz00_10870,BFALSE,BFALSE);} 
BgL_za71za7_3686 = 
(long)CINT(BgL_tmpz00_10867); } 
BgL_i1z00_2073 = 
(BgL_za71za7_3686-1L); } 
{ /* Ieee/string.scm 1355 */
 long BgL_za71za7_3687;
{ /* Ieee/string.scm 1355 */
 obj_t BgL_tmpz00_10876;
if(
INTEGERP(BgL_b2z00_2067))
{ /* Ieee/string.scm 1355 */
BgL_tmpz00_10876 = BgL_b2z00_2067
; }  else 
{ 
 obj_t BgL_auxz00_10879;
BgL_auxz00_10879 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55112L), BGl_string3517z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b2z00_2067); 
FAILURE(BgL_auxz00_10879,BFALSE,BFALSE);} 
BgL_za71za7_3687 = 
(long)CINT(BgL_tmpz00_10876); } 
BgL_i2z00_2074 = 
(BgL_za71za7_3687-1L); } 
BgL_zc3z04anonymousza31829ze3z87_2075:
{ /* Ieee/string.scm 1357 */
 bool_t BgL_test4483z00_10819;
{ /* Ieee/string.scm 1357 */
 long BgL_n2z00_3689;
{ /* Ieee/string.scm 1357 */
 obj_t BgL_tmpz00_10820;
if(
INTEGERP(BgL_e1z00_2068))
{ /* Ieee/string.scm 1357 */
BgL_tmpz00_10820 = BgL_e1z00_2068
; }  else 
{ 
 obj_t BgL_auxz00_10823;
BgL_auxz00_10823 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55142L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e1z00_2068); 
FAILURE(BgL_auxz00_10823,BFALSE,BFALSE);} 
BgL_n2z00_3689 = 
(long)CINT(BgL_tmpz00_10820); } 
BgL_test4483z00_10819 = 
(BgL_i1z00_2073<BgL_n2z00_3689); } 
if(BgL_test4483z00_10819)
{ /* Ieee/string.scm 1357 */
return ((bool_t)1);}  else 
{ /* Ieee/string.scm 1359 */
 bool_t BgL_test4485z00_10829;
{ /* Ieee/string.scm 1359 */
 long BgL_n2z00_3691;
{ /* Ieee/string.scm 1359 */
 obj_t BgL_tmpz00_10830;
if(
INTEGERP(BgL_e2z00_2069))
{ /* Ieee/string.scm 1359 */
BgL_tmpz00_10830 = BgL_e2z00_2069
; }  else 
{ 
 obj_t BgL_auxz00_10833;
BgL_auxz00_10833 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55170L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e2z00_2069); 
FAILURE(BgL_auxz00_10833,BFALSE,BFALSE);} 
BgL_n2z00_3691 = 
(long)CINT(BgL_tmpz00_10830); } 
BgL_test4485z00_10829 = 
(BgL_i2z00_2074<BgL_n2z00_3691); } 
if(BgL_test4485z00_10829)
{ /* Ieee/string.scm 1359 */
return ((bool_t)0);}  else 
{ /* Ieee/string.scm 1361 */
 bool_t BgL_test4487z00_10839;
{ /* Ieee/string.scm 1361 */
 unsigned char BgL_auxz00_10851; unsigned char BgL_tmpz00_10840;
{ /* Ieee/string.scm 327 */
 long BgL_l2561z00_4527;
BgL_l2561z00_4527 = 
STRING_LENGTH(BgL_s2z00_225); 
if(
BOUND_CHECK(BgL_i2z00_2074, BgL_l2561z00_4527))
{ /* Ieee/string.scm 327 */
BgL_auxz00_10851 = 
STRING_REF(BgL_s2z00_225, BgL_i2z00_2074)
; }  else 
{ 
 obj_t BgL_auxz00_10856;
BgL_auxz00_10856 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s2z00_225, 
(int)(BgL_l2561z00_4527), 
(int)(BgL_i2z00_2074)); 
FAILURE(BgL_auxz00_10856,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 327 */
 long BgL_l2557z00_4523;
BgL_l2557z00_4523 = 
STRING_LENGTH(BgL_s1z00_224); 
if(
BOUND_CHECK(BgL_i1z00_2073, BgL_l2557z00_4523))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_10840 = 
STRING_REF(BgL_s1z00_224, BgL_i1z00_2073)
; }  else 
{ 
 obj_t BgL_auxz00_10845;
BgL_auxz00_10845 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s1z00_224, 
(int)(BgL_l2557z00_4523), 
(int)(BgL_i1z00_2073)); 
FAILURE(BgL_auxz00_10845,BFALSE,BFALSE);} } 
BgL_test4487z00_10839 = 
(BgL_tmpz00_10840==BgL_auxz00_10851); } 
if(BgL_test4487z00_10839)
{ 
 long BgL_i2z00_10865; long BgL_i1z00_10863;
BgL_i1z00_10863 = 
(BgL_i1z00_2073-1L); 
BgL_i2z00_10865 = 
(BgL_i2z00_2074-1L); 
BgL_i2z00_2074 = BgL_i2z00_10865; 
BgL_i1z00_2073 = BgL_i1z00_10863; 
goto BgL_zc3z04anonymousza31829ze3z87_2075;}  else 
{ /* Ieee/string.scm 1361 */
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 1369 */
{ /* Ieee/string.scm 1369 */
 obj_t BgL_s1z00_2086; obj_t BgL_s2z00_2087;
BgL_s1z00_2086 = 
VECTOR_REF(BgL_opt1189z00_238,0L); 
BgL_s2z00_2087 = 
VECTOR_REF(BgL_opt1189z00_238,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1189z00_238)) { case 2L : 

{ /* Ieee/string.scm 1369 */

{ /* Ieee/string.scm 1369 */
 bool_t BgL_tmpz00_10887;
{ /* Ieee/string.scm 1369 */
 obj_t BgL_auxz00_10895; obj_t BgL_auxz00_10888;
if(
STRINGP(BgL_s2z00_2087))
{ /* Ieee/string.scm 1369 */
BgL_auxz00_10895 = BgL_s2z00_2087
; }  else 
{ 
 obj_t BgL_auxz00_10898;
BgL_auxz00_10898 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55521L), BGl_string3520z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_2087); 
FAILURE(BgL_auxz00_10898,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2086))
{ /* Ieee/string.scm 1369 */
BgL_auxz00_10888 = BgL_s1z00_2086
; }  else 
{ 
 obj_t BgL_auxz00_10891;
BgL_auxz00_10891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55521L), BGl_string3520z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_2086); 
FAILURE(BgL_auxz00_10891,BFALSE,BFALSE);} 
BgL_tmpz00_10887 = 
BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_10888, BgL_auxz00_10895, BFALSE, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10887);} } break;case 3L : 

{ /* Ieee/string.scm 1369 */
 obj_t BgL_start1z00_2094;
BgL_start1z00_2094 = 
VECTOR_REF(BgL_opt1189z00_238,2L); 
{ /* Ieee/string.scm 1369 */

{ /* Ieee/string.scm 1369 */
 bool_t BgL_tmpz00_10905;
{ /* Ieee/string.scm 1369 */
 obj_t BgL_auxz00_10913; obj_t BgL_auxz00_10906;
if(
STRINGP(BgL_s2z00_2087))
{ /* Ieee/string.scm 1369 */
BgL_auxz00_10913 = BgL_s2z00_2087
; }  else 
{ 
 obj_t BgL_auxz00_10916;
BgL_auxz00_10916 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55521L), BGl_string3520z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_2087); 
FAILURE(BgL_auxz00_10916,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2086))
{ /* Ieee/string.scm 1369 */
BgL_auxz00_10906 = BgL_s1z00_2086
; }  else 
{ 
 obj_t BgL_auxz00_10909;
BgL_auxz00_10909 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55521L), BGl_string3520z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_2086); 
FAILURE(BgL_auxz00_10909,BFALSE,BFALSE);} 
BgL_tmpz00_10905 = 
BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_10906, BgL_auxz00_10913, BgL_start1z00_2094, BFALSE, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10905);} } } break;case 4L : 

{ /* Ieee/string.scm 1369 */
 obj_t BgL_start1z00_2098;
BgL_start1z00_2098 = 
VECTOR_REF(BgL_opt1189z00_238,2L); 
{ /* Ieee/string.scm 1369 */
 obj_t BgL_end1z00_2099;
BgL_end1z00_2099 = 
VECTOR_REF(BgL_opt1189z00_238,3L); 
{ /* Ieee/string.scm 1369 */

{ /* Ieee/string.scm 1369 */
 bool_t BgL_tmpz00_10924;
{ /* Ieee/string.scm 1369 */
 obj_t BgL_auxz00_10932; obj_t BgL_auxz00_10925;
if(
STRINGP(BgL_s2z00_2087))
{ /* Ieee/string.scm 1369 */
BgL_auxz00_10932 = BgL_s2z00_2087
; }  else 
{ 
 obj_t BgL_auxz00_10935;
BgL_auxz00_10935 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55521L), BGl_string3520z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_2087); 
FAILURE(BgL_auxz00_10935,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2086))
{ /* Ieee/string.scm 1369 */
BgL_auxz00_10925 = BgL_s1z00_2086
; }  else 
{ 
 obj_t BgL_auxz00_10928;
BgL_auxz00_10928 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55521L), BGl_string3520z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_2086); 
FAILURE(BgL_auxz00_10928,BFALSE,BFALSE);} 
BgL_tmpz00_10924 = 
BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_10925, BgL_auxz00_10932, BgL_start1z00_2098, BgL_end1z00_2099, BFALSE, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10924);} } } } break;case 5L : 

{ /* Ieee/string.scm 1369 */
 obj_t BgL_start1z00_2102;
BgL_start1z00_2102 = 
VECTOR_REF(BgL_opt1189z00_238,2L); 
{ /* Ieee/string.scm 1369 */
 obj_t BgL_end1z00_2103;
BgL_end1z00_2103 = 
VECTOR_REF(BgL_opt1189z00_238,3L); 
{ /* Ieee/string.scm 1369 */
 obj_t BgL_start2z00_2104;
BgL_start2z00_2104 = 
VECTOR_REF(BgL_opt1189z00_238,4L); 
{ /* Ieee/string.scm 1369 */

{ /* Ieee/string.scm 1369 */
 bool_t BgL_tmpz00_10944;
{ /* Ieee/string.scm 1369 */
 obj_t BgL_auxz00_10952; obj_t BgL_auxz00_10945;
if(
STRINGP(BgL_s2z00_2087))
{ /* Ieee/string.scm 1369 */
BgL_auxz00_10952 = BgL_s2z00_2087
; }  else 
{ 
 obj_t BgL_auxz00_10955;
BgL_auxz00_10955 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55521L), BGl_string3520z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_2087); 
FAILURE(BgL_auxz00_10955,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2086))
{ /* Ieee/string.scm 1369 */
BgL_auxz00_10945 = BgL_s1z00_2086
; }  else 
{ 
 obj_t BgL_auxz00_10948;
BgL_auxz00_10948 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55521L), BGl_string3520z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_2086); 
FAILURE(BgL_auxz00_10948,BFALSE,BFALSE);} 
BgL_tmpz00_10944 = 
BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_10945, BgL_auxz00_10952, BgL_start1z00_2102, BgL_end1z00_2103, BgL_start2z00_2104, BFALSE); } 
return 
BBOOL(BgL_tmpz00_10944);} } } } } break;case 6L : 

{ /* Ieee/string.scm 1369 */
 obj_t BgL_start1z00_2106;
BgL_start1z00_2106 = 
VECTOR_REF(BgL_opt1189z00_238,2L); 
{ /* Ieee/string.scm 1369 */
 obj_t BgL_end1z00_2107;
BgL_end1z00_2107 = 
VECTOR_REF(BgL_opt1189z00_238,3L); 
{ /* Ieee/string.scm 1369 */
 obj_t BgL_start2z00_2108;
BgL_start2z00_2108 = 
VECTOR_REF(BgL_opt1189z00_238,4L); 
{ /* Ieee/string.scm 1369 */
 obj_t BgL_end2z00_2109;
BgL_end2z00_2109 = 
VECTOR_REF(BgL_opt1189z00_238,5L); 
{ /* Ieee/string.scm 1369 */

{ /* Ieee/string.scm 1369 */
 bool_t BgL_tmpz00_10965;
{ /* Ieee/string.scm 1369 */
 obj_t BgL_auxz00_10973; obj_t BgL_auxz00_10966;
if(
STRINGP(BgL_s2z00_2087))
{ /* Ieee/string.scm 1369 */
BgL_auxz00_10973 = BgL_s2z00_2087
; }  else 
{ 
 obj_t BgL_auxz00_10976;
BgL_auxz00_10976 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55521L), BGl_string3520z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s2z00_2087); 
FAILURE(BgL_auxz00_10976,BFALSE,BFALSE);} 
if(
STRINGP(BgL_s1z00_2086))
{ /* Ieee/string.scm 1369 */
BgL_auxz00_10966 = BgL_s1z00_2086
; }  else 
{ 
 obj_t BgL_auxz00_10969;
BgL_auxz00_10969 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55521L), BGl_string3520z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_s1z00_2086); 
FAILURE(BgL_auxz00_10969,BFALSE,BFALSE);} 
BgL_tmpz00_10965 = 
BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(BgL_auxz00_10966, BgL_auxz00_10973, BgL_start1z00_2106, BgL_end1z00_2107, BgL_start2z00_2108, BgL_end2z00_2109); } 
return 
BBOOL(BgL_tmpz00_10965);} } } } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3518z00zz__r4_strings_6_7z00, BGl_string3475z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1189z00_238)));} } } } 

}



/* 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 1369 */
{ /* Ieee/string.scm 1371 */
 long BgL_l1z00_2111;
BgL_l1z00_2111 = 
STRING_LENGTH(BgL_s1z00_232); 
{ /* Ieee/string.scm 1371 */
 long BgL_l2z00_2112;
BgL_l2z00_2112 = 
STRING_LENGTH(BgL_s2z00_233); 
{ /* Ieee/string.scm 1372 */
 obj_t BgL_b1z00_2113;
{ /* Ieee/string.scm 1373 */
 obj_t BgL_procz00_3702;
BgL_procz00_3702 = BGl_symbol3477z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end1z00_235))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4503z00_10991;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3707;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_10992;
if(
INTEGERP(BgL_end1z00_235))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_10992 = BgL_end1z00_235
; }  else 
{ 
 obj_t BgL_auxz00_10995;
BgL_auxz00_10995 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3521z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_235); 
FAILURE(BgL_auxz00_10995,BFALSE,BFALSE);} 
BgL_n1z00_3707 = 
(long)CINT(BgL_tmpz00_10992); } 
BgL_test4503z00_10991 = 
(BgL_n1z00_3707<=0L); } 
if(BgL_test4503z00_10991)
{ /* Ieee/string.scm 1206 */
BgL_b1z00_2113 = 
BGl_errorz00zz__errorz00(BgL_procz00_3702, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_235); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4505z00_11003;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3708;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_11004;
if(
INTEGERP(BgL_end1z00_235))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_11004 = BgL_end1z00_235
; }  else 
{ 
 obj_t BgL_auxz00_11007;
BgL_auxz00_11007 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3521z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end1z00_235); 
FAILURE(BgL_auxz00_11007,BFALSE,BFALSE);} 
BgL_n1z00_3708 = 
(long)CINT(BgL_tmpz00_11004); } 
BgL_test4505z00_11003 = 
(BgL_n1z00_3708>BgL_l1z00_2111); } 
if(BgL_test4505z00_11003)
{ /* Ieee/string.scm 1208 */
BgL_b1z00_2113 = 
BGl_errorz00zz__errorz00(BgL_procz00_3702, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3480z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end1z00_235); }  else 
{ /* Ieee/string.scm 1208 */
BgL_b1z00_2113 = BgL_end1z00_235; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_b1z00_2113 = 
BINT(BgL_l1z00_2111); } } 
{ /* Ieee/string.scm 1373 */
 obj_t BgL_b2z00_2114;
{ /* Ieee/string.scm 1374 */
 obj_t BgL_procz00_3710;
BgL_procz00_3710 = BGl_symbol3477z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_end2z00_237))
{ /* Ieee/string.scm 1206 */
 bool_t BgL_test4508z00_11018;
{ /* Ieee/string.scm 1206 */
 long BgL_n1z00_3715;
{ /* Ieee/string.scm 1206 */
 obj_t BgL_tmpz00_11019;
if(
INTEGERP(BgL_end2z00_237))
{ /* Ieee/string.scm 1206 */
BgL_tmpz00_11019 = BgL_end2z00_237
; }  else 
{ 
 obj_t BgL_auxz00_11022;
BgL_auxz00_11022 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48914L), BGl_string3521z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_237); 
FAILURE(BgL_auxz00_11022,BFALSE,BFALSE);} 
BgL_n1z00_3715 = 
(long)CINT(BgL_tmpz00_11019); } 
BgL_test4508z00_11018 = 
(BgL_n1z00_3715<=0L); } 
if(BgL_test4508z00_11018)
{ /* Ieee/string.scm 1206 */
BgL_b2z00_2114 = 
BGl_errorz00zz__errorz00(BgL_procz00_3710, 
string_append_3(BGl_string3479z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_237); }  else 
{ /* Ieee/string.scm 1208 */
 bool_t BgL_test4510z00_11030;
{ /* Ieee/string.scm 1208 */
 long BgL_n1z00_3716;
{ /* Ieee/string.scm 1208 */
 obj_t BgL_tmpz00_11031;
if(
INTEGERP(BgL_end2z00_237))
{ /* Ieee/string.scm 1208 */
BgL_tmpz00_11031 = BgL_end2z00_237
; }  else 
{ 
 obj_t BgL_auxz00_11034;
BgL_auxz00_11034 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(49006L), BGl_string3521z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_end2z00_237); 
FAILURE(BgL_auxz00_11034,BFALSE,BFALSE);} 
BgL_n1z00_3716 = 
(long)CINT(BgL_tmpz00_11031); } 
BgL_test4510z00_11030 = 
(BgL_n1z00_3716>BgL_l2z00_2112); } 
if(BgL_test4510z00_11030)
{ /* Ieee/string.scm 1208 */
BgL_b2z00_2114 = 
BGl_errorz00zz__errorz00(BgL_procz00_3710, 
string_append_3(BGl_string3482z00zz__r4_strings_6_7z00, BGl_string3483z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_end2z00_237); }  else 
{ /* Ieee/string.scm 1208 */
BgL_b2z00_2114 = BgL_end2z00_237; } } }  else 
{ /* Ieee/string.scm 1204 */
BgL_b2z00_2114 = 
BINT(BgL_l2z00_2112); } } 
{ /* Ieee/string.scm 1374 */
 obj_t BgL_e1z00_2115;
{ /* Ieee/string.scm 1375 */
 obj_t BgL_procz00_3718;
BgL_procz00_3718 = BGl_symbol3477z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start1z00_234))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4513z00_11045;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3723;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_11046;
if(
INTEGERP(BgL_start1z00_234))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_11046 = BgL_start1z00_234
; }  else 
{ 
 obj_t BgL_auxz00_11049;
BgL_auxz00_11049 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3521z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_234); 
FAILURE(BgL_auxz00_11049,BFALSE,BFALSE);} 
BgL_n1z00_3723 = 
(long)CINT(BgL_tmpz00_11046); } 
BgL_test4513z00_11045 = 
(BgL_n1z00_3723<0L); } 
if(BgL_test4513z00_11045)
{ /* Ieee/string.scm 1192 */
BgL_e1z00_2115 = 
BGl_errorz00zz__errorz00(BgL_procz00_3718, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_234); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4515z00_11057;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3724;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_11058;
if(
INTEGERP(BgL_start1z00_234))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_11058 = BgL_start1z00_234
; }  else 
{ 
 obj_t BgL_auxz00_11061;
BgL_auxz00_11061 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3521z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start1z00_234); 
FAILURE(BgL_auxz00_11061,BFALSE,BFALSE);} 
BgL_n1z00_3724 = 
(long)CINT(BgL_tmpz00_11058); } 
BgL_test4515z00_11057 = 
(BgL_n1z00_3724>=BgL_l1z00_2111); } 
if(BgL_test4515z00_11057)
{ /* Ieee/string.scm 1194 */
BgL_e1z00_2115 = 
BGl_errorz00zz__errorz00(BgL_procz00_3718, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3485z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start1z00_234); }  else 
{ /* Ieee/string.scm 1194 */
BgL_e1z00_2115 = BgL_start1z00_234; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_e1z00_2115 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1375 */
 obj_t BgL_e2z00_2116;
{ /* Ieee/string.scm 1376 */
 obj_t BgL_procz00_3726;
BgL_procz00_3726 = BGl_symbol3477z00zz__r4_strings_6_7z00; 
if(
CBOOL(BgL_start2z00_236))
{ /* Ieee/string.scm 1192 */
 bool_t BgL_test4518z00_11072;
{ /* Ieee/string.scm 1192 */
 long BgL_n1z00_3731;
{ /* Ieee/string.scm 1192 */
 obj_t BgL_tmpz00_11073;
if(
INTEGERP(BgL_start2z00_236))
{ /* Ieee/string.scm 1192 */
BgL_tmpz00_11073 = BgL_start2z00_236
; }  else 
{ 
 obj_t BgL_auxz00_11076;
BgL_auxz00_11076 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48393L), BGl_string3521z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_236); 
FAILURE(BgL_auxz00_11076,BFALSE,BFALSE);} 
BgL_n1z00_3731 = 
(long)CINT(BgL_tmpz00_11073); } 
BgL_test4518z00_11072 = 
(BgL_n1z00_3731<0L); } 
if(BgL_test4518z00_11072)
{ /* Ieee/string.scm 1192 */
BgL_e2z00_2116 = 
BGl_errorz00zz__errorz00(BgL_procz00_3726, 
string_append_3(BGl_string3484z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_236); }  else 
{ /* Ieee/string.scm 1194 */
 bool_t BgL_test4520z00_11084;
{ /* Ieee/string.scm 1194 */
 long BgL_n1z00_3732;
{ /* Ieee/string.scm 1194 */
 obj_t BgL_tmpz00_11085;
if(
INTEGERP(BgL_start2z00_236))
{ /* Ieee/string.scm 1194 */
BgL_tmpz00_11085 = BgL_start2z00_236
; }  else 
{ 
 obj_t BgL_auxz00_11088;
BgL_auxz00_11088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(48488L), BGl_string3521z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_start2z00_236); 
FAILURE(BgL_auxz00_11088,BFALSE,BFALSE);} 
BgL_n1z00_3732 = 
(long)CINT(BgL_tmpz00_11085); } 
BgL_test4520z00_11084 = 
(BgL_n1z00_3732>=BgL_l2z00_2112); } 
if(BgL_test4520z00_11084)
{ /* Ieee/string.scm 1194 */
BgL_e2z00_2116 = 
BGl_errorz00zz__errorz00(BgL_procz00_3726, 
string_append_3(BGl_string3486z00zz__r4_strings_6_7z00, BGl_string3487z00zz__r4_strings_6_7z00, BGl_string3481z00zz__r4_strings_6_7z00), BgL_start2z00_236); }  else 
{ /* Ieee/string.scm 1194 */
BgL_e2z00_2116 = BgL_start2z00_236; } } }  else 
{ /* Ieee/string.scm 1190 */
BgL_e2z00_2116 = 
BINT(0L); } } 
{ /* Ieee/string.scm 1376 */

{ 
 long BgL_i1z00_2120; long BgL_i2z00_2121;
{ /* Ieee/string.scm 1377 */
 long BgL_za71za7_3734;
{ /* Ieee/string.scm 1377 */
 obj_t BgL_tmpz00_11149;
if(
INTEGERP(BgL_b1z00_2113))
{ /* Ieee/string.scm 1377 */
BgL_tmpz00_11149 = BgL_b1z00_2113
; }  else 
{ 
 obj_t BgL_auxz00_11152;
BgL_auxz00_11152 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55977L), BGl_string3521z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b1z00_2113); 
FAILURE(BgL_auxz00_11152,BFALSE,BFALSE);} 
BgL_za71za7_3734 = 
(long)CINT(BgL_tmpz00_11149); } 
BgL_i1z00_2120 = 
(BgL_za71za7_3734-1L); } 
{ /* Ieee/string.scm 1378 */
 long BgL_za71za7_3735;
{ /* Ieee/string.scm 1378 */
 obj_t BgL_tmpz00_11158;
if(
INTEGERP(BgL_b2z00_2114))
{ /* Ieee/string.scm 1378 */
BgL_tmpz00_11158 = BgL_b2z00_2114
; }  else 
{ 
 obj_t BgL_auxz00_11161;
BgL_auxz00_11161 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(55996L), BGl_string3521z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_b2z00_2114); 
FAILURE(BgL_auxz00_11161,BFALSE,BFALSE);} 
BgL_za71za7_3735 = 
(long)CINT(BgL_tmpz00_11158); } 
BgL_i2z00_2121 = 
(BgL_za71za7_3735-1L); } 
BgL_zc3z04anonymousza31840ze3z87_2122:
{ /* Ieee/string.scm 1380 */
 bool_t BgL_test4522z00_11097;
{ /* Ieee/string.scm 1380 */
 long BgL_n2z00_3737;
{ /* Ieee/string.scm 1380 */
 obj_t BgL_tmpz00_11098;
if(
INTEGERP(BgL_e1z00_2115))
{ /* Ieee/string.scm 1380 */
BgL_tmpz00_11098 = BgL_e1z00_2115
; }  else 
{ 
 obj_t BgL_auxz00_11101;
BgL_auxz00_11101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56026L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e1z00_2115); 
FAILURE(BgL_auxz00_11101,BFALSE,BFALSE);} 
BgL_n2z00_3737 = 
(long)CINT(BgL_tmpz00_11098); } 
BgL_test4522z00_11097 = 
(BgL_i1z00_2120<BgL_n2z00_3737); } 
if(BgL_test4522z00_11097)
{ /* Ieee/string.scm 1380 */
return ((bool_t)1);}  else 
{ /* Ieee/string.scm 1382 */
 bool_t BgL_test4524z00_11107;
{ /* Ieee/string.scm 1382 */
 long BgL_n2z00_3739;
{ /* Ieee/string.scm 1382 */
 obj_t BgL_tmpz00_11108;
if(
INTEGERP(BgL_e2z00_2116))
{ /* Ieee/string.scm 1382 */
BgL_tmpz00_11108 = BgL_e2z00_2116
; }  else 
{ 
 obj_t BgL_auxz00_11111;
BgL_auxz00_11111 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56054L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_e2z00_2116); 
FAILURE(BgL_auxz00_11111,BFALSE,BFALSE);} 
BgL_n2z00_3739 = 
(long)CINT(BgL_tmpz00_11108); } 
BgL_test4524z00_11107 = 
(BgL_i2z00_2121<BgL_n2z00_3739); } 
if(BgL_test4524z00_11107)
{ /* Ieee/string.scm 1382 */
return ((bool_t)0);}  else 
{ /* Ieee/string.scm 1384 */
 bool_t BgL_test4526z00_11117;
{ /* Ieee/string.scm 1384 */
 unsigned char BgL_auxz00_11131; unsigned char BgL_tmpz00_11118;
{ /* Ieee/string.scm 1384 */
 unsigned char BgL_tmpz00_11132;
{ /* Ieee/string.scm 327 */
 long BgL_l2569z00_4535;
BgL_l2569z00_4535 = 
STRING_LENGTH(BgL_s2z00_233); 
if(
BOUND_CHECK(BgL_i2z00_2121, BgL_l2569z00_4535))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_11132 = 
STRING_REF(BgL_s2z00_233, BgL_i2z00_2121)
; }  else 
{ 
 obj_t BgL_auxz00_11137;
BgL_auxz00_11137 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s2z00_233, 
(int)(BgL_l2569z00_4535), 
(int)(BgL_i2z00_2121)); 
FAILURE(BgL_auxz00_11137,BFALSE,BFALSE);} } 
BgL_auxz00_11131 = 
toupper(BgL_tmpz00_11132); } 
{ /* Ieee/string.scm 1384 */
 unsigned char BgL_tmpz00_11119;
{ /* Ieee/string.scm 327 */
 long BgL_l2565z00_4531;
BgL_l2565z00_4531 = 
STRING_LENGTH(BgL_s1z00_232); 
if(
BOUND_CHECK(BgL_i1z00_2120, BgL_l2565z00_4531))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_11119 = 
STRING_REF(BgL_s1z00_232, BgL_i1z00_2120)
; }  else 
{ 
 obj_t BgL_auxz00_11124;
BgL_auxz00_11124 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_s1z00_232, 
(int)(BgL_l2565z00_4531), 
(int)(BgL_i1z00_2120)); 
FAILURE(BgL_auxz00_11124,BFALSE,BFALSE);} } 
BgL_tmpz00_11118 = 
toupper(BgL_tmpz00_11119); } 
BgL_test4526z00_11117 = 
(BgL_tmpz00_11118==BgL_auxz00_11131); } 
if(BgL_test4526z00_11117)
{ 
 long BgL_i2z00_11147; long BgL_i1z00_11145;
BgL_i1z00_11145 = 
(BgL_i1z00_2120-1L); 
BgL_i2z00_11147 = 
(BgL_i2z00_2121-1L); 
BgL_i2z00_2121 = BgL_i2z00_11147; 
BgL_i1z00_2120 = BgL_i1z00_11145; 
goto BgL_zc3z04anonymousza31840ze3z87_2122;}  else 
{ /* Ieee/string.scm 1384 */
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 1392 */
{ /* Ieee/string.scm 1392 */
 obj_t BgL_g1195z00_2133; obj_t BgL_g1196z00_2134;
BgL_g1195z00_2133 = 
VECTOR_REF(BgL_opt1193z00_244,0L); 
BgL_g1196z00_2134 = 
VECTOR_REF(BgL_opt1193z00_244,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1193z00_244)) { case 2L : 

{ /* Ieee/string.scm 1392 */

{ /* Ieee/string.scm 1392 */
 int BgL_res2203z00_3756;
{ /* Ieee/string.scm 1392 */
 obj_t BgL_az00_3754; obj_t BgL_bz00_3755;
if(
STRINGP(BgL_g1195z00_2133))
{ /* Ieee/string.scm 1392 */
BgL_az00_3754 = BgL_g1195z00_2133; }  else 
{ 
 obj_t BgL_auxz00_11171;
BgL_auxz00_11171 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56408L), BGl_string3524z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1195z00_2133); 
FAILURE(BgL_auxz00_11171,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1196z00_2134))
{ /* Ieee/string.scm 1392 */
BgL_bz00_3755 = BgL_g1196z00_2134; }  else 
{ 
 obj_t BgL_auxz00_11177;
BgL_auxz00_11177 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56408L), BGl_string3524z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1196z00_2134); 
FAILURE(BgL_auxz00_11177,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1393 */
 obj_t BgL_tmpz00_11181;
{ /* Ieee/string.scm 1393 */
 obj_t BgL_aux3273z00_5242;
BgL_aux3273z00_5242 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3754, BgL_bz00_3755, ((bool_t)0), 
BINT(0L), 
BINT(0L)); 
if(
INTEGERP(BgL_aux3273z00_5242))
{ /* Ieee/string.scm 1393 */
BgL_tmpz00_11181 = BgL_aux3273z00_5242
; }  else 
{ 
 obj_t BgL_auxz00_11187;
BgL_auxz00_11187 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56482L), BGl_string3524z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3273z00_5242); 
FAILURE(BgL_auxz00_11187,BFALSE,BFALSE);} } 
BgL_res2203z00_3756 = 
CINT(BgL_tmpz00_11181); } } 
return 
BINT(BgL_res2203z00_3756);} } break;case 3L : 

{ /* Ieee/string.scm 1392 */
 obj_t BgL_start1z00_2139;
BgL_start1z00_2139 = 
VECTOR_REF(BgL_opt1193z00_244,2L); 
{ /* Ieee/string.scm 1392 */

{ /* Ieee/string.scm 1392 */
 int BgL_res2204z00_3759;
{ /* Ieee/string.scm 1392 */
 obj_t BgL_az00_3757; obj_t BgL_bz00_3758;
if(
STRINGP(BgL_g1195z00_2133))
{ /* Ieee/string.scm 1392 */
BgL_az00_3757 = BgL_g1195z00_2133; }  else 
{ 
 obj_t BgL_auxz00_11196;
BgL_auxz00_11196 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56408L), BGl_string3524z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1195z00_2133); 
FAILURE(BgL_auxz00_11196,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1196z00_2134))
{ /* Ieee/string.scm 1392 */
BgL_bz00_3758 = BgL_g1196z00_2134; }  else 
{ 
 obj_t BgL_auxz00_11202;
BgL_auxz00_11202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56408L), BGl_string3524z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1196z00_2134); 
FAILURE(BgL_auxz00_11202,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1393 */
 obj_t BgL_tmpz00_11206;
{ /* Ieee/string.scm 1393 */
 obj_t BgL_aux3278z00_5247;
BgL_aux3278z00_5247 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3757, BgL_bz00_3758, ((bool_t)0), BgL_start1z00_2139, 
BINT(0L)); 
if(
INTEGERP(BgL_aux3278z00_5247))
{ /* Ieee/string.scm 1393 */
BgL_tmpz00_11206 = BgL_aux3278z00_5247
; }  else 
{ 
 obj_t BgL_auxz00_11211;
BgL_auxz00_11211 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56482L), BGl_string3524z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3278z00_5247); 
FAILURE(BgL_auxz00_11211,BFALSE,BFALSE);} } 
BgL_res2204z00_3759 = 
CINT(BgL_tmpz00_11206); } } 
return 
BINT(BgL_res2204z00_3759);} } } break;case 4L : 

{ /* Ieee/string.scm 1392 */
 obj_t BgL_start1z00_2141;
BgL_start1z00_2141 = 
VECTOR_REF(BgL_opt1193z00_244,2L); 
{ /* Ieee/string.scm 1392 */
 obj_t BgL_start2z00_2142;
BgL_start2z00_2142 = 
VECTOR_REF(BgL_opt1193z00_244,3L); 
{ /* Ieee/string.scm 1392 */

{ /* Ieee/string.scm 1392 */
 int BgL_res2205z00_3762;
{ /* Ieee/string.scm 1392 */
 obj_t BgL_az00_3760; obj_t BgL_bz00_3761;
if(
STRINGP(BgL_g1195z00_2133))
{ /* Ieee/string.scm 1392 */
BgL_az00_3760 = BgL_g1195z00_2133; }  else 
{ 
 obj_t BgL_auxz00_11221;
BgL_auxz00_11221 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56408L), BGl_string3524z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1195z00_2133); 
FAILURE(BgL_auxz00_11221,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1196z00_2134))
{ /* Ieee/string.scm 1392 */
BgL_bz00_3761 = BgL_g1196z00_2134; }  else 
{ 
 obj_t BgL_auxz00_11227;
BgL_auxz00_11227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56408L), BGl_string3524z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1196z00_2134); 
FAILURE(BgL_auxz00_11227,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1393 */
 obj_t BgL_tmpz00_11231;
{ /* Ieee/string.scm 1393 */
 obj_t BgL_aux3283z00_5252;
BgL_aux3283z00_5252 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3760, BgL_bz00_3761, ((bool_t)0), BgL_start1z00_2141, BgL_start2z00_2142); 
if(
INTEGERP(BgL_aux3283z00_5252))
{ /* Ieee/string.scm 1393 */
BgL_tmpz00_11231 = BgL_aux3283z00_5252
; }  else 
{ 
 obj_t BgL_auxz00_11235;
BgL_auxz00_11235 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56482L), BGl_string3524z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3283z00_5252); 
FAILURE(BgL_auxz00_11235,BFALSE,BFALSE);} } 
BgL_res2205z00_3762 = 
CINT(BgL_tmpz00_11231); } } 
return 
BINT(BgL_res2205z00_3762);} } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3522z00zz__r4_strings_6_7z00, BGl_string3428z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1193z00_244)));} } } } 

}



/* 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 1392 */
{ /* Ieee/string.scm 1393 */
 obj_t BgL_tmpz00_11246;
{ /* Ieee/string.scm 1393 */
 obj_t BgL_aux3284z00_5253;
BgL_aux3284z00_5253 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_240, BgL_bz00_241, ((bool_t)0), BgL_start1z00_242, BgL_start2z00_243); 
if(
INTEGERP(BgL_aux3284z00_5253))
{ /* Ieee/string.scm 1393 */
BgL_tmpz00_11246 = BgL_aux3284z00_5253
; }  else 
{ 
 obj_t BgL_auxz00_11250;
BgL_auxz00_11250 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56482L), BGl_string3523z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3284z00_5253); 
FAILURE(BgL_auxz00_11250,BFALSE,BFALSE);} } 
return 
CINT(BgL_tmpz00_11246);} } 

}



/* _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 1398 */
{ /* Ieee/string.scm 1398 */
 obj_t BgL_g1201z00_2144; obj_t BgL_g1202z00_2145;
BgL_g1201z00_2144 = 
VECTOR_REF(BgL_opt1199z00_250,0L); 
BgL_g1202z00_2145 = 
VECTOR_REF(BgL_opt1199z00_250,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1199z00_250)) { case 2L : 

{ /* Ieee/string.scm 1398 */

{ /* Ieee/string.scm 1398 */
 int BgL_res2206z00_3765;
{ /* Ieee/string.scm 1398 */
 obj_t BgL_az00_3763; obj_t BgL_bz00_3764;
if(
STRINGP(BgL_g1201z00_2144))
{ /* Ieee/string.scm 1398 */
BgL_az00_3763 = BgL_g1201z00_2144; }  else 
{ 
 obj_t BgL_auxz00_11259;
BgL_auxz00_11259 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56739L), BGl_string3527z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1201z00_2144); 
FAILURE(BgL_auxz00_11259,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1202z00_2145))
{ /* Ieee/string.scm 1398 */
BgL_bz00_3764 = BgL_g1202z00_2145; }  else 
{ 
 obj_t BgL_auxz00_11265;
BgL_auxz00_11265 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56739L), BGl_string3527z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1202z00_2145); 
FAILURE(BgL_auxz00_11265,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1399 */
 obj_t BgL_tmpz00_11269;
{ /* Ieee/string.scm 1399 */
 obj_t BgL_aux3289z00_5258;
BgL_aux3289z00_5258 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3763, BgL_bz00_3764, ((bool_t)1), 
BINT(0L), 
BINT(0L)); 
if(
INTEGERP(BgL_aux3289z00_5258))
{ /* Ieee/string.scm 1399 */
BgL_tmpz00_11269 = BgL_aux3289z00_5258
; }  else 
{ 
 obj_t BgL_auxz00_11275;
BgL_auxz00_11275 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56816L), BGl_string3527z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3289z00_5258); 
FAILURE(BgL_auxz00_11275,BFALSE,BFALSE);} } 
BgL_res2206z00_3765 = 
CINT(BgL_tmpz00_11269); } } 
return 
BINT(BgL_res2206z00_3765);} } break;case 3L : 

{ /* Ieee/string.scm 1398 */
 obj_t BgL_start1z00_2150;
BgL_start1z00_2150 = 
VECTOR_REF(BgL_opt1199z00_250,2L); 
{ /* Ieee/string.scm 1398 */

{ /* Ieee/string.scm 1398 */
 int BgL_res2207z00_3768;
{ /* Ieee/string.scm 1398 */
 obj_t BgL_az00_3766; obj_t BgL_bz00_3767;
if(
STRINGP(BgL_g1201z00_2144))
{ /* Ieee/string.scm 1398 */
BgL_az00_3766 = BgL_g1201z00_2144; }  else 
{ 
 obj_t BgL_auxz00_11284;
BgL_auxz00_11284 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56739L), BGl_string3527z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1201z00_2144); 
FAILURE(BgL_auxz00_11284,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1202z00_2145))
{ /* Ieee/string.scm 1398 */
BgL_bz00_3767 = BgL_g1202z00_2145; }  else 
{ 
 obj_t BgL_auxz00_11290;
BgL_auxz00_11290 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56739L), BGl_string3527z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1202z00_2145); 
FAILURE(BgL_auxz00_11290,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1399 */
 obj_t BgL_tmpz00_11294;
{ /* Ieee/string.scm 1399 */
 obj_t BgL_aux3294z00_5263;
BgL_aux3294z00_5263 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3766, BgL_bz00_3767, ((bool_t)1), BgL_start1z00_2150, 
BINT(0L)); 
if(
INTEGERP(BgL_aux3294z00_5263))
{ /* Ieee/string.scm 1399 */
BgL_tmpz00_11294 = BgL_aux3294z00_5263
; }  else 
{ 
 obj_t BgL_auxz00_11299;
BgL_auxz00_11299 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56816L), BGl_string3527z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3294z00_5263); 
FAILURE(BgL_auxz00_11299,BFALSE,BFALSE);} } 
BgL_res2207z00_3768 = 
CINT(BgL_tmpz00_11294); } } 
return 
BINT(BgL_res2207z00_3768);} } } break;case 4L : 

{ /* Ieee/string.scm 1398 */
 obj_t BgL_start1z00_2152;
BgL_start1z00_2152 = 
VECTOR_REF(BgL_opt1199z00_250,2L); 
{ /* Ieee/string.scm 1398 */
 obj_t BgL_start2z00_2153;
BgL_start2z00_2153 = 
VECTOR_REF(BgL_opt1199z00_250,3L); 
{ /* Ieee/string.scm 1398 */

{ /* Ieee/string.scm 1398 */
 int BgL_res2208z00_3771;
{ /* Ieee/string.scm 1398 */
 obj_t BgL_az00_3769; obj_t BgL_bz00_3770;
if(
STRINGP(BgL_g1201z00_2144))
{ /* Ieee/string.scm 1398 */
BgL_az00_3769 = BgL_g1201z00_2144; }  else 
{ 
 obj_t BgL_auxz00_11309;
BgL_auxz00_11309 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56739L), BGl_string3527z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1201z00_2144); 
FAILURE(BgL_auxz00_11309,BFALSE,BFALSE);} 
if(
STRINGP(BgL_g1202z00_2145))
{ /* Ieee/string.scm 1398 */
BgL_bz00_3770 = BgL_g1202z00_2145; }  else 
{ 
 obj_t BgL_auxz00_11315;
BgL_auxz00_11315 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56739L), BGl_string3527z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_g1202z00_2145); 
FAILURE(BgL_auxz00_11315,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 1399 */
 obj_t BgL_tmpz00_11319;
{ /* Ieee/string.scm 1399 */
 obj_t BgL_aux3299z00_5268;
BgL_aux3299z00_5268 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_3769, BgL_bz00_3770, ((bool_t)1), BgL_start1z00_2152, BgL_start2z00_2153); 
if(
INTEGERP(BgL_aux3299z00_5268))
{ /* Ieee/string.scm 1399 */
BgL_tmpz00_11319 = BgL_aux3299z00_5268
; }  else 
{ 
 obj_t BgL_auxz00_11323;
BgL_auxz00_11323 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56816L), BGl_string3527z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3299z00_5268); 
FAILURE(BgL_auxz00_11323,BFALSE,BFALSE);} } 
BgL_res2208z00_3771 = 
CINT(BgL_tmpz00_11319); } } 
return 
BINT(BgL_res2208z00_3771);} } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3525z00zz__r4_strings_6_7z00, BGl_string3428z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1199z00_250)));} } } } 

}



/* 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 1398 */
{ /* Ieee/string.scm 1399 */
 obj_t BgL_tmpz00_11334;
{ /* Ieee/string.scm 1399 */
 obj_t BgL_aux3300z00_5269;
BgL_aux3300z00_5269 = 
BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_246, BgL_bz00_247, ((bool_t)1), BgL_start1z00_248, BgL_start2z00_249); 
if(
INTEGERP(BgL_aux3300z00_5269))
{ /* Ieee/string.scm 1399 */
BgL_tmpz00_11334 = BgL_aux3300z00_5269
; }  else 
{ 
 obj_t BgL_auxz00_11338;
BgL_auxz00_11338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(56816L), BGl_string3526z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3300z00_5269); 
FAILURE(BgL_auxz00_11338,BFALSE,BFALSE);} } 
return 
CINT(BgL_tmpz00_11334);} } 

}



/* 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 1404 */
{ 
 obj_t BgL_iaz00_2156; obj_t BgL_ibz00_2157;
BgL_iaz00_2156 = BgL_start1z00_255; 
BgL_ibz00_2157 = BgL_start2z00_256; 
BgL_zc3z04anonymousza31854ze3z87_2158:
{ /* Ieee/string.scm 1407 */
 unsigned char BgL_caz00_2159; unsigned char BgL_cbz00_2160;
{ /* Ieee/string.scm 1407 */
 obj_t BgL_iz00_3772;
BgL_iz00_3772 = BgL_iaz00_2156; 
{ /* Ieee/string.scm 1494 */
 bool_t BgL_test4551z00_11343;
{ /* Ieee/string.scm 1494 */
 long BgL_n1z00_3776;
{ /* Ieee/string.scm 1494 */
 obj_t BgL_tmpz00_11344;
if(
INTEGERP(BgL_iz00_3772))
{ /* Ieee/string.scm 1494 */
BgL_tmpz00_11344 = BgL_iz00_3772
; }  else 
{ 
 obj_t BgL_auxz00_11347;
BgL_auxz00_11347 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(59886L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_3772); 
FAILURE(BgL_auxz00_11347,BFALSE,BFALSE);} 
BgL_n1z00_3776 = 
(long)CINT(BgL_tmpz00_11344); } 
BgL_test4551z00_11343 = 
(BgL_n1z00_3776>=
STRING_LENGTH(BgL_az00_252)); } 
if(BgL_test4551z00_11343)
{ /* Ieee/string.scm 1494 */
BgL_caz00_2159 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 1496 */
 long BgL_kz00_3779;
{ /* Ieee/string.scm 1496 */
 obj_t BgL_tmpz00_11354;
if(
INTEGERP(BgL_iz00_3772))
{ /* Ieee/string.scm 1496 */
BgL_tmpz00_11354 = BgL_iz00_3772
; }  else 
{ 
 obj_t BgL_auxz00_11357;
BgL_auxz00_11357 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(59944L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_3772); 
FAILURE(BgL_auxz00_11357,BFALSE,BFALSE);} 
BgL_kz00_3779 = 
(long)CINT(BgL_tmpz00_11354); } 
{ /* Ieee/string.scm 339 */
 long BgL_l2573z00_4539;
BgL_l2573z00_4539 = 
STRING_LENGTH(BgL_az00_252); 
if(
BOUND_CHECK(BgL_kz00_3779, BgL_l2573z00_4539))
{ /* Ieee/string.scm 339 */
BgL_caz00_2159 = 
STRING_REF(BgL_az00_252, BgL_kz00_3779); }  else 
{ 
 obj_t BgL_auxz00_11366;
BgL_auxz00_11366 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_az00_252, 
(int)(BgL_l2573z00_4539), 
(int)(BgL_kz00_3779)); 
FAILURE(BgL_auxz00_11366,BFALSE,BFALSE);} } } } } 
{ /* Ieee/string.scm 1408 */
 obj_t BgL_iz00_3780;
BgL_iz00_3780 = BgL_ibz00_2157; 
{ /* Ieee/string.scm 1494 */
 bool_t BgL_test4556z00_11372;
{ /* Ieee/string.scm 1494 */
 long BgL_n1z00_3784;
{ /* Ieee/string.scm 1494 */
 obj_t BgL_tmpz00_11373;
if(
INTEGERP(BgL_iz00_3780))
{ /* Ieee/string.scm 1494 */
BgL_tmpz00_11373 = BgL_iz00_3780
; }  else 
{ 
 obj_t BgL_auxz00_11376;
BgL_auxz00_11376 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(59886L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_3780); 
FAILURE(BgL_auxz00_11376,BFALSE,BFALSE);} 
BgL_n1z00_3784 = 
(long)CINT(BgL_tmpz00_11373); } 
BgL_test4556z00_11372 = 
(BgL_n1z00_3784>=
STRING_LENGTH(BgL_bz00_253)); } 
if(BgL_test4556z00_11372)
{ /* Ieee/string.scm 1494 */
BgL_cbz00_2160 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 1496 */
 long BgL_kz00_3787;
{ /* Ieee/string.scm 1496 */
 obj_t BgL_tmpz00_11383;
if(
INTEGERP(BgL_iz00_3780))
{ /* Ieee/string.scm 1496 */
BgL_tmpz00_11383 = BgL_iz00_3780
; }  else 
{ 
 obj_t BgL_auxz00_11386;
BgL_auxz00_11386 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(59944L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iz00_3780); 
FAILURE(BgL_auxz00_11386,BFALSE,BFALSE);} 
BgL_kz00_3787 = 
(long)CINT(BgL_tmpz00_11383); } 
{ /* Ieee/string.scm 339 */
 long BgL_l2577z00_4543;
BgL_l2577z00_4543 = 
STRING_LENGTH(BgL_bz00_253); 
if(
BOUND_CHECK(BgL_kz00_3787, BgL_l2577z00_4543))
{ /* Ieee/string.scm 339 */
BgL_cbz00_2160 = 
STRING_REF(BgL_bz00_253, BgL_kz00_3787); }  else 
{ 
 obj_t BgL_auxz00_11395;
BgL_auxz00_11395 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_bz00_253, 
(int)(BgL_l2577z00_4543), 
(int)(BgL_kz00_3787)); 
FAILURE(BgL_auxz00_11395,BFALSE,BFALSE);} } } } } 
{ 

if(
isspace(BgL_caz00_2159))
{ /* Ieee/string.scm 1410 */
{ 
 obj_t BgL_tmpz00_11403;
{ /* Ieee/string.scm 1411 */
 obj_t BgL_aux3305z00_5274;
BgL_aux3305z00_5274 = BgL_iaz00_2156; 
if(
INTEGERP(BgL_aux3305z00_5274))
{ /* Ieee/string.scm 1411 */
BgL_tmpz00_11403 = BgL_aux3305z00_5274
; }  else 
{ 
 obj_t BgL_auxz00_11406;
BgL_auxz00_11406 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(57295L), BGl_string3528z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3305z00_5274); 
FAILURE(BgL_auxz00_11406,BFALSE,BFALSE);} } 
BgL_iaz00_2156 = 
ADDFX(BgL_tmpz00_11403, 
BINT(1L)); } 
{ /* Ieee/string.scm 1412 */
 long BgL_iz00_3790;
BgL_iz00_3790 = 
(long)CINT(BgL_iaz00_2156); 
if(
(BgL_iz00_3790>=
STRING_LENGTH(BgL_az00_252)))
{ /* Ieee/string.scm 1494 */
BgL_caz00_2159 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 339 */
 long BgL_l2581z00_4547;
BgL_l2581z00_4547 = 
STRING_LENGTH(BgL_az00_252); 
if(
BOUND_CHECK(BgL_iz00_3790, BgL_l2581z00_4547))
{ /* Ieee/string.scm 339 */
BgL_caz00_2159 = 
STRING_REF(BgL_az00_252, BgL_iz00_3790); }  else 
{ 
 obj_t BgL_auxz00_11420;
BgL_auxz00_11420 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_az00_252, 
(int)(BgL_l2581z00_4547), 
(int)(BgL_iz00_3790)); 
FAILURE(BgL_auxz00_11420,BFALSE,BFALSE);} } } }  else 
{ /* Ieee/string.scm 1410 */BFALSE; } } 
{ 

if(
isspace(BgL_cbz00_2160))
{ /* Ieee/string.scm 1414 */
{ 
 obj_t BgL_tmpz00_11428;
{ /* Ieee/string.scm 1415 */
 obj_t BgL_aux3306z00_5275;
BgL_aux3306z00_5275 = BgL_ibz00_2157; 
if(
INTEGERP(BgL_aux3306z00_5275))
{ /* Ieee/string.scm 1415 */
BgL_tmpz00_11428 = BgL_aux3306z00_5275
; }  else 
{ 
 obj_t BgL_auxz00_11431;
BgL_auxz00_11431 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(57408L), BGl_string3528z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3306z00_5275); 
FAILURE(BgL_auxz00_11431,BFALSE,BFALSE);} } 
BgL_ibz00_2157 = 
ADDFX(BgL_tmpz00_11428, 
BINT(1L)); } 
{ /* Ieee/string.scm 1416 */
 long BgL_iz00_3800;
BgL_iz00_3800 = 
(long)CINT(BgL_ibz00_2157); 
if(
(BgL_iz00_3800>=
STRING_LENGTH(BgL_bz00_253)))
{ /* Ieee/string.scm 1494 */
BgL_cbz00_2160 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 339 */
 long BgL_l2585z00_4551;
BgL_l2585z00_4551 = 
STRING_LENGTH(BgL_bz00_253); 
if(
BOUND_CHECK(BgL_iz00_3800, BgL_l2585z00_4551))
{ /* Ieee/string.scm 339 */
BgL_cbz00_2160 = 
STRING_REF(BgL_bz00_253, BgL_iz00_3800); }  else 
{ 
 obj_t BgL_auxz00_11445;
BgL_auxz00_11445 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_bz00_253, 
(int)(BgL_l2585z00_4551), 
(int)(BgL_iz00_3800)); 
FAILURE(BgL_auxz00_11445,BFALSE,BFALSE);} } } }  else 
{ /* Ieee/string.scm 1414 */BFALSE; } } 
{ /* Ieee/string.scm 1418 */
 bool_t BgL_test4568z00_11451;
if(
isdigit(BgL_caz00_2159))
{ /* Ieee/string.scm 1418 */
BgL_test4568z00_11451 = 
isdigit(BgL_cbz00_2160)
; }  else 
{ /* Ieee/string.scm 1418 */
BgL_test4568z00_11451 = ((bool_t)0)
; } 
if(BgL_test4568z00_11451)
{ /* Ieee/string.scm 1419 */
 bool_t BgL_test4570z00_11455;
if(
(BgL_caz00_2159==((unsigned char)'0')))
{ /* Ieee/string.scm 1419 */
BgL_test4570z00_11455 = 
(BgL_cbz00_2160==((unsigned char)'0'))
; }  else 
{ /* Ieee/string.scm 1419 */
BgL_test4570z00_11455 = ((bool_t)0)
; } 
if(BgL_test4570z00_11455)
{ /* Ieee/string.scm 1420 */
 long BgL_arg1864z00_2173; long BgL_arg1866z00_2174;
{ /* Ieee/string.scm 1420 */
 long BgL_za71za7_3814;
{ /* Ieee/string.scm 1420 */
 obj_t BgL_tmpz00_11459;
{ /* Ieee/string.scm 1420 */
 obj_t BgL_aux3307z00_5276;
BgL_aux3307z00_5276 = BgL_iaz00_2156; 
if(
INTEGERP(BgL_aux3307z00_5276))
{ /* Ieee/string.scm 1420 */
BgL_tmpz00_11459 = BgL_aux3307z00_5276
; }  else 
{ 
 obj_t BgL_auxz00_11462;
BgL_auxz00_11462 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(57570L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3307z00_5276); 
FAILURE(BgL_auxz00_11462,BFALSE,BFALSE);} } 
BgL_za71za7_3814 = 
(long)CINT(BgL_tmpz00_11459); } 
BgL_arg1864z00_2173 = 
(BgL_za71za7_3814+1L); } 
{ /* Ieee/string.scm 1420 */
 long BgL_za71za7_3815;
{ /* Ieee/string.scm 1420 */
 obj_t BgL_tmpz00_11468;
{ /* Ieee/string.scm 1420 */
 obj_t BgL_aux3308z00_5277;
BgL_aux3308z00_5277 = BgL_ibz00_2157; 
if(
INTEGERP(BgL_aux3308z00_5277))
{ /* Ieee/string.scm 1420 */
BgL_tmpz00_11468 = BgL_aux3308z00_5277
; }  else 
{ 
 obj_t BgL_auxz00_11471;
BgL_auxz00_11471 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(57581L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3308z00_5277); 
FAILURE(BgL_auxz00_11471,BFALSE,BFALSE);} } 
BgL_za71za7_3815 = 
(long)CINT(BgL_tmpz00_11468); } 
BgL_arg1866z00_2174 = 
(BgL_za71za7_3815+1L); } 
{ 
 obj_t BgL_ibz00_11479; obj_t BgL_iaz00_11477;
BgL_iaz00_11477 = 
BINT(BgL_arg1864z00_2173); 
BgL_ibz00_11479 = 
BINT(BgL_arg1866z00_2174); 
BgL_ibz00_2157 = BgL_ibz00_11479; 
BgL_iaz00_2156 = BgL_iaz00_11477; 
goto BgL_zc3z04anonymousza31854ze3z87_2158;} }  else 
{ /* Ieee/string.scm 1421 */
 obj_t BgL_resultz00_2175;
{ /* Ieee/string.scm 1421 */
 bool_t BgL_test4574z00_11481;
if(
(BgL_caz00_2159==((unsigned char)'0')))
{ /* Ieee/string.scm 1421 */
BgL_test4574z00_11481 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1421 */
BgL_test4574z00_11481 = 
(BgL_cbz00_2160==((unsigned char)'0'))
; } 
if(BgL_test4574z00_11481)
{ /* Ieee/string.scm 1421 */
BgL_resultz00_2175 = 
BGl_comparezd2leftzd2zz__r4_strings_6_7z00(BgL_az00_252, BgL_iaz00_2156, BgL_bz00_253, BgL_ibz00_2157); }  else 
{ /* Ieee/string.scm 1421 */
BgL_resultz00_2175 = 
BGl_comparezd2rightzd2zz__r4_strings_6_7z00(BgL_az00_252, BgL_iaz00_2156, BgL_bz00_253, BgL_ibz00_2157); } } 
if(
INTEGERP(BgL_resultz00_2175))
{ /* Ieee/string.scm 1426 */
 long BgL_arg1868z00_2177; long BgL_arg1870z00_2178;
{ /* Ieee/string.scm 1426 */
 long BgL_za71za7_3820; long BgL_za72za7_3821;
{ /* Ieee/string.scm 1426 */
 obj_t BgL_tmpz00_11489;
{ /* Ieee/string.scm 1426 */
 obj_t BgL_aux3309z00_5278;
BgL_aux3309z00_5278 = BgL_iaz00_2156; 
if(
INTEGERP(BgL_aux3309z00_5278))
{ /* Ieee/string.scm 1426 */
BgL_tmpz00_11489 = BgL_aux3309z00_5278
; }  else 
{ 
 obj_t BgL_auxz00_11492;
BgL_auxz00_11492 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(57767L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3309z00_5278); 
FAILURE(BgL_auxz00_11492,BFALSE,BFALSE);} } 
BgL_za71za7_3820 = 
(long)CINT(BgL_tmpz00_11489); } 
BgL_za72za7_3821 = 
(long)CINT(BgL_resultz00_2175); 
BgL_arg1868z00_2177 = 
(BgL_za71za7_3820+BgL_za72za7_3821); } 
{ /* Ieee/string.scm 1426 */
 long BgL_za71za7_3822; long BgL_za72za7_3823;
{ /* Ieee/string.scm 1426 */
 obj_t BgL_tmpz00_11499;
{ /* Ieee/string.scm 1426 */
 obj_t BgL_aux3310z00_5279;
BgL_aux3310z00_5279 = BgL_ibz00_2157; 
if(
INTEGERP(BgL_aux3310z00_5279))
{ /* Ieee/string.scm 1426 */
BgL_tmpz00_11499 = BgL_aux3310z00_5279
; }  else 
{ 
 obj_t BgL_auxz00_11502;
BgL_auxz00_11502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(57783L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3310z00_5279); 
FAILURE(BgL_auxz00_11502,BFALSE,BFALSE);} } 
BgL_za71za7_3822 = 
(long)CINT(BgL_tmpz00_11499); } 
BgL_za72za7_3823 = 
(long)CINT(BgL_resultz00_2175); 
BgL_arg1870z00_2178 = 
(BgL_za71za7_3822+BgL_za72za7_3823); } 
{ 
 obj_t BgL_ibz00_11511; obj_t BgL_iaz00_11509;
BgL_iaz00_11509 = 
BINT(BgL_arg1868z00_2177); 
BgL_ibz00_11511 = 
BINT(BgL_arg1870z00_2178); 
BgL_ibz00_2157 = BgL_ibz00_11511; 
BgL_iaz00_2156 = BgL_iaz00_11509; 
goto BgL_zc3z04anonymousza31854ze3z87_2158;} }  else 
{ /* Ieee/string.scm 1425 */
if(
CBOOL(BgL_resultz00_2175))
{ /* Ieee/string.scm 1427 */
return 
BINT(1L);}  else 
{ /* Ieee/string.scm 1427 */
return 
BINT(-1L);} } } }  else 
{ /* Ieee/string.scm 1431 */
 bool_t BgL_test4580z00_11517;
if(
(BgL_caz00_2159==((unsigned char)'\000')))
{ /* Ieee/string.scm 1431 */
BgL_test4580z00_11517 = 
(BgL_cbz00_2160==((unsigned char)'\000'))
; }  else 
{ /* Ieee/string.scm 1431 */
BgL_test4580z00_11517 = ((bool_t)0)
; } 
if(BgL_test4580z00_11517)
{ /* Ieee/string.scm 1431 */
return 
BINT(0L);}  else 
{ /* Ieee/string.scm 1433 */
 bool_t BgL_test4582z00_11522;
if(BgL_foldcasez00_254)
{ /* Ieee/string.scm 1433 */
BgL_caz00_2159 = 
toupper(BgL_caz00_2159); 
BgL_cbz00_2160 = 
toupper(BgL_cbz00_2160); 
BgL_test4582z00_11522 = ((bool_t)0); }  else 
{ /* Ieee/string.scm 1433 */
BgL_test4582z00_11522 = ((bool_t)0)
; } 
if(BgL_test4582z00_11522)
{ /* Ieee/string.scm 1433 */
return BGl_symbol3529z00zz__r4_strings_6_7z00;}  else 
{ /* Ieee/string.scm 1433 */
if(
(BgL_caz00_2159<BgL_cbz00_2160))
{ /* Ieee/string.scm 1438 */
return 
BINT(-1L);}  else 
{ /* Ieee/string.scm 1438 */
if(
(BgL_caz00_2159>BgL_cbz00_2160))
{ /* Ieee/string.scm 1440 */
return 
BINT(1L);}  else 
{ /* Ieee/string.scm 1443 */
 long BgL_arg1879z00_2188; long BgL_arg1880z00_2189;
{ /* Ieee/string.scm 1443 */
 long BgL_za71za7_3834;
{ /* Ieee/string.scm 1443 */
 obj_t BgL_tmpz00_11532;
{ /* Ieee/string.scm 1443 */
 obj_t BgL_aux3311z00_5280;
BgL_aux3311z00_5280 = BgL_iaz00_2156; 
if(
INTEGERP(BgL_aux3311z00_5280))
{ /* Ieee/string.scm 1443 */
BgL_tmpz00_11532 = BgL_aux3311z00_5280
; }  else 
{ 
 obj_t BgL_auxz00_11535;
BgL_auxz00_11535 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(58113L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3311z00_5280); 
FAILURE(BgL_auxz00_11535,BFALSE,BFALSE);} } 
BgL_za71za7_3834 = 
(long)CINT(BgL_tmpz00_11532); } 
BgL_arg1879z00_2188 = 
(BgL_za71za7_3834+1L); } 
{ /* Ieee/string.scm 1443 */
 long BgL_za71za7_3835;
{ /* Ieee/string.scm 1443 */
 obj_t BgL_tmpz00_11541;
{ /* Ieee/string.scm 1443 */
 obj_t BgL_aux3312z00_5281;
BgL_aux3312z00_5281 = BgL_ibz00_2157; 
if(
INTEGERP(BgL_aux3312z00_5281))
{ /* Ieee/string.scm 1443 */
BgL_tmpz00_11541 = BgL_aux3312z00_5281
; }  else 
{ 
 obj_t BgL_auxz00_11544;
BgL_auxz00_11544 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(58124L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_aux3312z00_5281); 
FAILURE(BgL_auxz00_11544,BFALSE,BFALSE);} } 
BgL_za71za7_3835 = 
(long)CINT(BgL_tmpz00_11541); } 
BgL_arg1880z00_2189 = 
(BgL_za71za7_3835+1L); } 
{ 
 obj_t BgL_ibz00_11552; obj_t BgL_iaz00_11550;
BgL_iaz00_11550 = 
BINT(BgL_arg1879z00_2188); 
BgL_ibz00_11552 = 
BINT(BgL_arg1880z00_2189); 
BgL_ibz00_2157 = BgL_ibz00_11552; 
BgL_iaz00_2156 = BgL_iaz00_11550; 
goto BgL_zc3z04anonymousza31854ze3z87_2158;} } } } } } } } } } 

}



/* 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 1448 */
{ 
 obj_t BgL_biasz00_2194; long BgL_iz00_2195;
BgL_biasz00_2194 = BUNSPEC; 
BgL_iz00_2195 = 0L; 
BgL_zc3z04anonymousza31881ze3z87_2196:
{ /* Ieee/string.scm 1451 */
 unsigned char BgL_caz00_2197; unsigned char BgL_cbz00_2198;
{ /* Ieee/string.scm 1451 */
 long BgL_arg1897z00_2216;
{ /* Ieee/string.scm 1451 */
 long BgL_za72za7_3837;
{ /* Ieee/string.scm 1451 */
 obj_t BgL_tmpz00_11554;
if(
INTEGERP(BgL_iaz00_258))
{ /* Ieee/string.scm 1451 */
BgL_tmpz00_11554 = BgL_iaz00_258
; }  else 
{ 
 obj_t BgL_auxz00_11557;
BgL_auxz00_11557 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(58475L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iaz00_258); 
FAILURE(BgL_auxz00_11557,BFALSE,BFALSE);} 
BgL_za72za7_3837 = 
(long)CINT(BgL_tmpz00_11554); } 
BgL_arg1897z00_2216 = 
(BgL_iz00_2195+BgL_za72za7_3837); } 
if(
(BgL_arg1897z00_2216>=
STRING_LENGTH(BgL_az00_257)))
{ /* Ieee/string.scm 1494 */
BgL_caz00_2197 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 339 */
 long BgL_l2589z00_4555;
BgL_l2589z00_4555 = 
STRING_LENGTH(BgL_az00_257); 
if(
BOUND_CHECK(BgL_arg1897z00_2216, BgL_l2589z00_4555))
{ /* Ieee/string.scm 339 */
BgL_caz00_2197 = 
STRING_REF(BgL_az00_257, BgL_arg1897z00_2216); }  else 
{ 
 obj_t BgL_auxz00_11570;
BgL_auxz00_11570 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_az00_257, 
(int)(BgL_l2589z00_4555), 
(int)(BgL_arg1897z00_2216)); 
FAILURE(BgL_auxz00_11570,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1452 */
 long BgL_arg1898z00_2217;
{ /* Ieee/string.scm 1452 */
 long BgL_za72za7_3846;
{ /* Ieee/string.scm 1452 */
 obj_t BgL_tmpz00_11576;
if(
INTEGERP(BgL_ibz00_260))
{ /* Ieee/string.scm 1452 */
BgL_tmpz00_11576 = BgL_ibz00_260
; }  else 
{ 
 obj_t BgL_auxz00_11579;
BgL_auxz00_11579 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(58508L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_ibz00_260); 
FAILURE(BgL_auxz00_11579,BFALSE,BFALSE);} 
BgL_za72za7_3846 = 
(long)CINT(BgL_tmpz00_11576); } 
BgL_arg1898z00_2217 = 
(BgL_iz00_2195+BgL_za72za7_3846); } 
if(
(BgL_arg1898z00_2217>=
STRING_LENGTH(BgL_bz00_259)))
{ /* Ieee/string.scm 1494 */
BgL_cbz00_2198 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 339 */
 long BgL_l2593z00_4559;
BgL_l2593z00_4559 = 
STRING_LENGTH(BgL_bz00_259); 
if(
BOUND_CHECK(BgL_arg1898z00_2217, BgL_l2593z00_4559))
{ /* Ieee/string.scm 339 */
BgL_cbz00_2198 = 
STRING_REF(BgL_bz00_259, BgL_arg1898z00_2217); }  else 
{ 
 obj_t BgL_auxz00_11592;
BgL_auxz00_11592 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_bz00_259, 
(int)(BgL_l2593z00_4559), 
(int)(BgL_arg1898z00_2217)); 
FAILURE(BgL_auxz00_11592,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1454 */
 bool_t BgL_test4594z00_11598;
if(
isdigit(BgL_caz00_2197))
{ /* Ieee/string.scm 1454 */
BgL_test4594z00_11598 = ((bool_t)0)
; }  else 
{ /* Ieee/string.scm 1454 */
if(
isdigit(BgL_cbz00_2198))
{ /* Ieee/string.scm 1454 */
BgL_test4594z00_11598 = ((bool_t)0)
; }  else 
{ /* Ieee/string.scm 1454 */
BgL_test4594z00_11598 = ((bool_t)1)
; } } 
if(BgL_test4594z00_11598)
{ /* Ieee/string.scm 1454 */
if(
(BgL_biasz00_2194==BUNSPEC))
{ /* Ieee/string.scm 1455 */
return 
BINT(BgL_iz00_2195);}  else 
{ /* Ieee/string.scm 1455 */
return BgL_biasz00_2194;} }  else 
{ /* Ieee/string.scm 1454 */
if(
isdigit(BgL_caz00_2197))
{ /* Ieee/string.scm 1456 */
if(
isdigit(BgL_cbz00_2198))
{ /* Ieee/string.scm 1458 */
if(
(BgL_caz00_2197<BgL_cbz00_2198))
{ 
 long BgL_iz00_11615; obj_t BgL_biasz00_11612;
if(
(BgL_biasz00_2194==BUNSPEC))
{ /* Ieee/string.scm 1461 */
BgL_biasz00_11612 = BFALSE; }  else 
{ /* Ieee/string.scm 1461 */
BgL_biasz00_11612 = BgL_biasz00_2194; } 
BgL_iz00_11615 = 
(BgL_iz00_2195+1L); 
BgL_iz00_2195 = BgL_iz00_11615; 
BgL_biasz00_2194 = BgL_biasz00_11612; 
goto BgL_zc3z04anonymousza31881ze3z87_2196;}  else 
{ /* Ieee/string.scm 1460 */
if(
(BgL_caz00_2197>BgL_cbz00_2198))
{ 
 long BgL_iz00_11622; obj_t BgL_biasz00_11619;
if(
(BgL_biasz00_2194==BUNSPEC))
{ /* Ieee/string.scm 1463 */
BgL_biasz00_11619 = BTRUE; }  else 
{ /* Ieee/string.scm 1463 */
BgL_biasz00_11619 = BgL_biasz00_2194; } 
BgL_iz00_11622 = 
(BgL_iz00_2195+1L); 
BgL_iz00_2195 = BgL_iz00_11622; 
BgL_biasz00_2194 = BgL_biasz00_11619; 
goto BgL_zc3z04anonymousza31881ze3z87_2196;}  else 
{ /* Ieee/string.scm 1464 */
 bool_t BgL_test4604z00_11624;
if(
(BgL_caz00_2197==((unsigned char)'\000')))
{ /* Ieee/string.scm 1464 */
BgL_test4604z00_11624 = 
(BgL_cbz00_2198==((unsigned char)'\000'))
; }  else 
{ /* Ieee/string.scm 1464 */
BgL_test4604z00_11624 = ((bool_t)0)
; } 
if(BgL_test4604z00_11624)
{ /* Ieee/string.scm 1464 */
if(
(BgL_biasz00_2194==BUNSPEC))
{ /* Ieee/string.scm 1465 */
return 
BINT(BgL_iz00_2195);}  else 
{ /* Ieee/string.scm 1465 */
return BgL_biasz00_2194;} }  else 
{ 
 long BgL_iz00_11631;
BgL_iz00_11631 = 
(BgL_iz00_2195+1L); 
BgL_iz00_2195 = BgL_iz00_11631; 
goto BgL_zc3z04anonymousza31881ze3z87_2196;} } } }  else 
{ /* Ieee/string.scm 1458 */
return BTRUE;} }  else 
{ /* Ieee/string.scm 1456 */
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 1472 */
{ 
 long BgL_iz00_2220;
BgL_iz00_2220 = 0L; 
BgL_zc3z04anonymousza31899ze3z87_2221:
{ /* Ieee/string.scm 1474 */
 unsigned char BgL_caz00_2222; unsigned char BgL_cbz00_2223;
{ /* Ieee/string.scm 1474 */
 long BgL_arg1909z00_2234;
{ /* Ieee/string.scm 1474 */
 long BgL_za71za7_3869;
{ /* Ieee/string.scm 1474 */
 obj_t BgL_tmpz00_11633;
if(
INTEGERP(BgL_iaz00_262))
{ /* Ieee/string.scm 1474 */
BgL_tmpz00_11633 = BgL_iaz00_262
; }  else 
{ 
 obj_t BgL_auxz00_11636;
BgL_auxz00_11636 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(59318L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_iaz00_262); 
FAILURE(BgL_auxz00_11636,BFALSE,BFALSE);} 
BgL_za71za7_3869 = 
(long)CINT(BgL_tmpz00_11633); } 
BgL_arg1909z00_2234 = 
(BgL_za71za7_3869+BgL_iz00_2220); } 
if(
(BgL_arg1909z00_2234>=
STRING_LENGTH(BgL_az00_261)))
{ /* Ieee/string.scm 1494 */
BgL_caz00_2222 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 339 */
 long BgL_l2597z00_4563;
BgL_l2597z00_4563 = 
STRING_LENGTH(BgL_az00_261); 
if(
BOUND_CHECK(BgL_arg1909z00_2234, BgL_l2597z00_4563))
{ /* Ieee/string.scm 339 */
BgL_caz00_2222 = 
STRING_REF(BgL_az00_261, BgL_arg1909z00_2234); }  else 
{ 
 obj_t BgL_auxz00_11649;
BgL_auxz00_11649 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_az00_261, 
(int)(BgL_l2597z00_4563), 
(int)(BgL_arg1909z00_2234)); 
FAILURE(BgL_auxz00_11649,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1475 */
 long BgL_arg1911z00_2235;
{ /* Ieee/string.scm 1475 */
 long BgL_za71za7_3878;
{ /* Ieee/string.scm 1475 */
 obj_t BgL_tmpz00_11655;
if(
INTEGERP(BgL_ibz00_264))
{ /* Ieee/string.scm 1475 */
BgL_tmpz00_11655 = BgL_ibz00_264
; }  else 
{ 
 obj_t BgL_auxz00_11658;
BgL_auxz00_11658 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(59351L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_ibz00_264); 
FAILURE(BgL_auxz00_11658,BFALSE,BFALSE);} 
BgL_za71za7_3878 = 
(long)CINT(BgL_tmpz00_11655); } 
BgL_arg1911z00_2235 = 
(BgL_za71za7_3878+BgL_iz00_2220); } 
if(
(BgL_arg1911z00_2235>=
STRING_LENGTH(BgL_bz00_263)))
{ /* Ieee/string.scm 1494 */
BgL_cbz00_2223 = ((unsigned char)'\000'); }  else 
{ /* Ieee/string.scm 339 */
 long BgL_l2601z00_4567;
BgL_l2601z00_4567 = 
STRING_LENGTH(BgL_bz00_263); 
if(
BOUND_CHECK(BgL_arg1911z00_2235, BgL_l2601z00_4567))
{ /* Ieee/string.scm 339 */
BgL_cbz00_2223 = 
STRING_REF(BgL_bz00_263, BgL_arg1911z00_2235); }  else 
{ 
 obj_t BgL_auxz00_11671;
BgL_auxz00_11671 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_bz00_263, 
(int)(BgL_l2601z00_4567), 
(int)(BgL_arg1911z00_2235)); 
FAILURE(BgL_auxz00_11671,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1477 */
 bool_t BgL_test4613z00_11677;
if(
isdigit(BgL_caz00_2222))
{ /* Ieee/string.scm 1477 */
BgL_test4613z00_11677 = ((bool_t)0)
; }  else 
{ /* Ieee/string.scm 1477 */
if(
isdigit(BgL_cbz00_2223))
{ /* Ieee/string.scm 1477 */
BgL_test4613z00_11677 = ((bool_t)0)
; }  else 
{ /* Ieee/string.scm 1477 */
BgL_test4613z00_11677 = ((bool_t)1)
; } } 
if(BgL_test4613z00_11677)
{ /* Ieee/string.scm 1477 */
return 
BINT(BgL_iz00_2220);}  else 
{ /* Ieee/string.scm 1477 */
if(
isdigit(BgL_caz00_2222))
{ /* Ieee/string.scm 1479 */
if(
isdigit(BgL_cbz00_2223))
{ /* Ieee/string.scm 1481 */
if(
(BgL_caz00_2222<BgL_cbz00_2223))
{ /* Ieee/string.scm 1483 */
return BFALSE;}  else 
{ /* Ieee/string.scm 1483 */
if(
(BgL_caz00_2222>BgL_cbz00_2223))
{ /* Ieee/string.scm 1485 */
return BTRUE;}  else 
{ 
 long BgL_iz00_11691;
BgL_iz00_11691 = 
(BgL_iz00_2220+1L); 
BgL_iz00_2220 = BgL_iz00_11691; 
goto BgL_zc3z04anonymousza31899ze3z87_2221;} } }  else 
{ /* Ieee/string.scm 1481 */
return BTRUE;} }  else 
{ /* Ieee/string.scm 1479 */
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 1501 */
{ /* Ieee/string.scm 1502 */
 unsigned char BgL_nz00_2240;
{ /* Ieee/string.scm 339 */
 long BgL_l2605z00_4571;
BgL_l2605z00_4571 = 
STRING_LENGTH(BgL_strz00_267); 
if(
BOUND_CHECK(BgL_iz00_268, BgL_l2605z00_4571))
{ /* Ieee/string.scm 339 */
BgL_nz00_2240 = 
STRING_REF(BgL_strz00_267, BgL_iz00_268); }  else 
{ 
 obj_t BgL_auxz00_11697;
BgL_auxz00_11697 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16705L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_strz00_267, 
(int)(BgL_l2605z00_4571), 
(int)(BgL_iz00_268)); 
FAILURE(BgL_auxz00_11697,BFALSE,BFALSE);} } 
{ /* Ieee/string.scm 1504 */
 bool_t BgL_test4621z00_11703;
if(
(BgL_nz00_2240>=((unsigned char)'0')))
{ /* Ieee/string.scm 1504 */
BgL_test4621z00_11703 = 
(BgL_nz00_2240<=((unsigned char)'9'))
; }  else 
{ /* Ieee/string.scm 1504 */
BgL_test4621z00_11703 = ((bool_t)0)
; } 
if(BgL_test4621z00_11703)
{ /* Ieee/string.scm 1504 */
return 
BINT(
(
(BgL_nz00_2240)-48L));}  else 
{ /* Ieee/string.scm 1506 */
 bool_t BgL_test4623z00_11710;
if(
(BgL_nz00_2240>=((unsigned char)'a')))
{ /* Ieee/string.scm 1506 */
BgL_test4623z00_11710 = 
(BgL_nz00_2240<=((unsigned char)'f'))
; }  else 
{ /* Ieee/string.scm 1506 */
BgL_test4623z00_11710 = ((bool_t)0)
; } 
if(BgL_test4623z00_11710)
{ /* Ieee/string.scm 1506 */
return 
BINT(
(10L+
(
(BgL_nz00_2240)-97L)));}  else 
{ /* Ieee/string.scm 1508 */
 bool_t BgL_test4625z00_11718;
if(
(BgL_nz00_2240>=((unsigned char)'A')))
{ /* Ieee/string.scm 1508 */
BgL_test4625z00_11718 = 
(BgL_nz00_2240<=((unsigned char)'F'))
; }  else 
{ /* Ieee/string.scm 1508 */
BgL_test4625z00_11718 = ((bool_t)0)
; } 
if(BgL_test4625z00_11718)
{ /* Ieee/string.scm 1508 */
return 
BINT(
(10L+
(
(BgL_nz00_2240)-65L)));}  else 
{ /* Ieee/string.scm 1508 */
return 
BGl_errorz00zz__errorz00(BGl_string3531z00zz__r4_strings_6_7z00, BGl_string3532z00zz__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 1518 */
{ /* Ieee/string.scm 1519 */
 long BgL_lenz00_2255;
BgL_lenz00_2255 = 
STRING_LENGTH(BgL_strz00_269); 
if(
ODDP_FX(BgL_lenz00_2255))
{ /* Ieee/string.scm 1521 */
 obj_t BgL_aux3317z00_5286;
BgL_aux3317z00_5286 = 
BGl_errorz00zz__errorz00(BGl_string3533z00zz__r4_strings_6_7z00, BGl_string3534z00zz__r4_strings_6_7z00, BgL_strz00_269); 
if(
STRINGP(BgL_aux3317z00_5286))
{ /* Ieee/string.scm 1521 */
return BgL_aux3317z00_5286;}  else 
{ 
 obj_t BgL_auxz00_11733;
BgL_auxz00_11733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(60944L), BGl_string3533z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_aux3317z00_5286); 
FAILURE(BgL_auxz00_11733,BFALSE,BFALSE);} }  else 
{ /* Ieee/string.scm 1522 */
 obj_t BgL_resz00_2257;
{ /* Ieee/string.scm 1522 */
 long BgL_arg1938z00_2272;
BgL_arg1938z00_2272 = 
(BgL_lenz00_2255/2L); 
{ /* Ieee/string.scm 168 */

BgL_resz00_2257 = 
make_string(BgL_arg1938z00_2272, ((unsigned char)' ')); } } 
{ 
 long BgL_iz00_2259; long BgL_jz00_2260;
BgL_iz00_2259 = 0L; 
BgL_jz00_2260 = 0L; 
BgL_zc3z04anonymousza31930ze3z87_2261:
if(
(BgL_iz00_2259==BgL_lenz00_2255))
{ /* Ieee/string.scm 1525 */
return BgL_resz00_2257;}  else 
{ /* Ieee/string.scm 1527 */
 obj_t BgL_c1z00_2263;
BgL_c1z00_2263 = 
BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(BgL_strz00_269, BgL_iz00_2259); 
{ /* Ieee/string.scm 1527 */
 obj_t BgL_c2z00_2264;
BgL_c2z00_2264 = 
BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(BgL_strz00_269, 
(BgL_iz00_2259+1L)); 
{ /* Ieee/string.scm 1528 */
 long BgL_cz00_2265;
{ /* Ieee/string.scm 1529 */
 long BgL_za72za7_3934;
{ /* Ieee/string.scm 1529 */
 obj_t BgL_tmpz00_11744;
if(
INTEGERP(BgL_c2z00_2264))
{ /* Ieee/string.scm 1529 */
BgL_tmpz00_11744 = BgL_c2z00_2264
; }  else 
{ 
 obj_t BgL_auxz00_11747;
BgL_auxz00_11747 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(61221L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_c2z00_2264); 
FAILURE(BgL_auxz00_11747,BFALSE,BFALSE);} 
BgL_za72za7_3934 = 
(long)CINT(BgL_tmpz00_11744); } 
{ /* Ieee/string.scm 1529 */
 long BgL_tmpz00_11752;
{ /* Ieee/string.scm 1529 */
 long BgL_za71za7_3932;
{ /* Ieee/string.scm 1529 */
 obj_t BgL_tmpz00_11753;
if(
INTEGERP(BgL_c1z00_2263))
{ /* Ieee/string.scm 1529 */
BgL_tmpz00_11753 = BgL_c1z00_2263
; }  else 
{ 
 obj_t BgL_auxz00_11756;
BgL_auxz00_11756 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(61214L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_c1z00_2263); 
FAILURE(BgL_auxz00_11756,BFALSE,BFALSE);} 
BgL_za71za7_3932 = 
(long)CINT(BgL_tmpz00_11753); } 
BgL_tmpz00_11752 = 
(BgL_za71za7_3932*16L); } 
BgL_cz00_2265 = 
(BgL_tmpz00_11752+BgL_za72za7_3934); } } 
{ /* Ieee/string.scm 1529 */

{ /* Ieee/string.scm 1530 */
 unsigned char BgL_arg1933z00_2266;
BgL_arg1933z00_2266 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_cz00_2265); 
{ /* Ieee/string.scm 333 */
 long BgL_l2609z00_4575;
BgL_l2609z00_4575 = 
STRING_LENGTH(BgL_resz00_2257); 
if(
BOUND_CHECK(BgL_jz00_2260, BgL_l2609z00_4575))
{ /* Ieee/string.scm 333 */
STRING_SET(BgL_resz00_2257, BgL_jz00_2260, BgL_arg1933z00_2266); }  else 
{ 
 obj_t BgL_auxz00_11768;
BgL_auxz00_11768 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16409L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_resz00_2257, 
(int)(BgL_l2609z00_4575), 
(int)(BgL_jz00_2260)); 
FAILURE(BgL_auxz00_11768,BFALSE,BFALSE);} } } 
{ 
 long BgL_jz00_11776; long BgL_iz00_11774;
BgL_iz00_11774 = 
(BgL_iz00_2259+2L); 
BgL_jz00_11776 = 
(BgL_jz00_2260+1L); 
BgL_jz00_2260 = BgL_jz00_11776; 
BgL_iz00_2259 = BgL_iz00_11774; 
goto BgL_zc3z04anonymousza31930ze3z87_2261;} } } } } } } } } 

}



/* &string-hex-intern */
obj_t BGl_z62stringzd2hexzd2internz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4173, obj_t BgL_strz00_4174)
{
{ /* Ieee/string.scm 1518 */
{ /* Ieee/string.scm 1519 */
 obj_t BgL_auxz00_11778;
if(
STRINGP(BgL_strz00_4174))
{ /* Ieee/string.scm 1519 */
BgL_auxz00_11778 = BgL_strz00_4174
; }  else 
{ 
 obj_t BgL_auxz00_11781;
BgL_auxz00_11781 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(60885L), BGl_string3535z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_4174); 
FAILURE(BgL_auxz00_11781,BFALSE,BFALSE);} 
return 
BGl_stringzd2hexzd2internz00zz__r4_strings_6_7z00(BgL_auxz00_11778);} } 

}



/* string-hex-intern! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2hexzd2internz12z12zz__r4_strings_6_7z00(obj_t BgL_strz00_270)
{
{ /* Ieee/string.scm 1536 */
{ /* Ieee/string.scm 1537 */
 long BgL_lenz00_2275;
BgL_lenz00_2275 = 
STRING_LENGTH(BgL_strz00_270); 
if(
ODDP_FX(BgL_lenz00_2275))
{ /* Ieee/string.scm 1539 */
 obj_t BgL_aux3323z00_5292;
BgL_aux3323z00_5292 = 
BGl_errorz00zz__errorz00(BGl_string3536z00zz__r4_strings_6_7z00, BGl_string3534z00zz__r4_strings_6_7z00, BgL_strz00_270); 
if(
STRINGP(BgL_aux3323z00_5292))
{ /* Ieee/string.scm 1539 */
return BgL_aux3323z00_5292;}  else 
{ 
 obj_t BgL_auxz00_11792;
BgL_auxz00_11792 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(61635L), BGl_string3536z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_aux3323z00_5292); 
FAILURE(BgL_auxz00_11792,BFALSE,BFALSE);} }  else 
{ 
 long BgL_iz00_2278; long BgL_jz00_2279;
BgL_iz00_2278 = 0L; 
BgL_jz00_2279 = 0L; 
BgL_zc3z04anonymousza31940ze3z87_2280:
if(
(BgL_iz00_2278==BgL_lenz00_2275))
{ /* Ieee/string.scm 750 */
 long BgL_tmpz00_11798;
BgL_tmpz00_11798 = 
(BgL_lenz00_2275/2L); 
return 
bgl_string_shrink(BgL_strz00_270, BgL_tmpz00_11798);}  else 
{ /* Ieee/string.scm 1544 */
 obj_t BgL_c1z00_2283;
BgL_c1z00_2283 = 
BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(BgL_strz00_270, BgL_iz00_2278); 
{ /* Ieee/string.scm 1544 */
 obj_t BgL_c2z00_2284;
BgL_c2z00_2284 = 
BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(BgL_strz00_270, 
(BgL_iz00_2278+1L)); 
{ /* Ieee/string.scm 1545 */
 long BgL_cz00_2285;
{ /* Ieee/string.scm 1546 */
 long BgL_za72za7_3950;
{ /* Ieee/string.scm 1546 */
 obj_t BgL_tmpz00_11804;
if(
INTEGERP(BgL_c2z00_2284))
{ /* Ieee/string.scm 1546 */
BgL_tmpz00_11804 = BgL_c2z00_2284
; }  else 
{ 
 obj_t BgL_auxz00_11807;
BgL_auxz00_11807 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(61893L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_c2z00_2284); 
FAILURE(BgL_auxz00_11807,BFALSE,BFALSE);} 
BgL_za72za7_3950 = 
(long)CINT(BgL_tmpz00_11804); } 
{ /* Ieee/string.scm 1546 */
 long BgL_tmpz00_11812;
{ /* Ieee/string.scm 1546 */
 long BgL_za71za7_3948;
{ /* Ieee/string.scm 1546 */
 obj_t BgL_tmpz00_11813;
if(
INTEGERP(BgL_c1z00_2283))
{ /* Ieee/string.scm 1546 */
BgL_tmpz00_11813 = BgL_c1z00_2283
; }  else 
{ 
 obj_t BgL_auxz00_11816;
BgL_auxz00_11816 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(61886L), BGl_string3402z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_c1z00_2283); 
FAILURE(BgL_auxz00_11816,BFALSE,BFALSE);} 
BgL_za71za7_3948 = 
(long)CINT(BgL_tmpz00_11813); } 
BgL_tmpz00_11812 = 
(BgL_za71za7_3948*16L); } 
BgL_cz00_2285 = 
(BgL_tmpz00_11812+BgL_za72za7_3950); } } 
{ /* Ieee/string.scm 1546 */

{ /* Ieee/string.scm 1547 */
 unsigned char BgL_arg1943z00_2286;
BgL_arg1943z00_2286 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_cz00_2285); 
{ /* Ieee/string.scm 333 */
 long BgL_l2613z00_4579;
BgL_l2613z00_4579 = 
STRING_LENGTH(BgL_strz00_270); 
if(
BOUND_CHECK(BgL_jz00_2279, BgL_l2613z00_4579))
{ /* Ieee/string.scm 333 */
STRING_SET(BgL_strz00_270, BgL_jz00_2279, BgL_arg1943z00_2286); }  else 
{ 
 obj_t BgL_auxz00_11828;
BgL_auxz00_11828 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16409L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_strz00_270, 
(int)(BgL_l2613z00_4579), 
(int)(BgL_jz00_2279)); 
FAILURE(BgL_auxz00_11828,BFALSE,BFALSE);} } } 
{ 
 long BgL_jz00_11836; long BgL_iz00_11834;
BgL_iz00_11834 = 
(BgL_iz00_2278+2L); 
BgL_jz00_11836 = 
(BgL_jz00_2279+1L); 
BgL_jz00_2279 = BgL_jz00_11836; 
BgL_iz00_2278 = BgL_iz00_11834; 
goto BgL_zc3z04anonymousza31940ze3z87_2280;} } } } } } } } 

}



/* &string-hex-intern! */
obj_t BGl_z62stringzd2hexzd2internz12z70zz__r4_strings_6_7z00(obj_t BgL_envz00_4175, obj_t BgL_strz00_4176)
{
{ /* Ieee/string.scm 1536 */
{ /* Ieee/string.scm 1537 */
 obj_t BgL_auxz00_11838;
if(
STRINGP(BgL_strz00_4176))
{ /* Ieee/string.scm 1537 */
BgL_auxz00_11838 = BgL_strz00_4176
; }  else 
{ 
 obj_t BgL_auxz00_11841;
BgL_auxz00_11841 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(61576L), BGl_string3537z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_4176); 
FAILURE(BgL_auxz00_11841,BFALSE,BFALSE);} 
return 
BGl_stringzd2hexzd2internz12z12zz__r4_strings_6_7z00(BgL_auxz00_11838);} } 

}



/* _string-hex-extern */
obj_t BGl__stringzd2hexzd2externz00zz__r4_strings_6_7z00(obj_t BgL_env1206z00_275, obj_t BgL_opt1205z00_274)
{
{ /* Ieee/string.scm 1553 */
{ /* Ieee/string.scm 1553 */
 obj_t BgL_strz00_2292;
BgL_strz00_2292 = 
VECTOR_REF(BgL_opt1205z00_274,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1205z00_274)) { case 1L : 

{ /* Ieee/string.scm 1554 */
 long BgL_endz00_2296;
{ /* Ieee/string.scm 1554 */
 obj_t BgL_stringz00_3956;
if(
STRINGP(BgL_strz00_2292))
{ /* Ieee/string.scm 1554 */
BgL_stringz00_3956 = BgL_strz00_2292; }  else 
{ 
 obj_t BgL_auxz00_11849;
BgL_auxz00_11849 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(62295L), BGl_string3541z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_2292); 
FAILURE(BgL_auxz00_11849,BFALSE,BFALSE);} 
BgL_endz00_2296 = 
STRING_LENGTH(BgL_stringz00_3956); } 
{ /* Ieee/string.scm 1553 */

{ /* Ieee/string.scm 1553 */
 obj_t BgL_auxz00_11854;
if(
STRINGP(BgL_strz00_2292))
{ /* Ieee/string.scm 1553 */
BgL_auxz00_11854 = BgL_strz00_2292
; }  else 
{ 
 obj_t BgL_auxz00_11857;
BgL_auxz00_11857 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(62205L), BGl_string3541z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_2292); 
FAILURE(BgL_auxz00_11857,BFALSE,BFALSE);} 
return 
BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00(BgL_auxz00_11854, 
(int)(0L), BgL_endz00_2296);} } } break;case 2L : 

{ /* Ieee/string.scm 1553 */
 obj_t BgL_startz00_2297;
BgL_startz00_2297 = 
VECTOR_REF(BgL_opt1205z00_274,1L); 
{ /* Ieee/string.scm 1554 */
 long BgL_endz00_2298;
{ /* Ieee/string.scm 1554 */
 obj_t BgL_stringz00_3957;
if(
STRINGP(BgL_strz00_2292))
{ /* Ieee/string.scm 1554 */
BgL_stringz00_3957 = BgL_strz00_2292; }  else 
{ 
 obj_t BgL_auxz00_11866;
BgL_auxz00_11866 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(62295L), BGl_string3541z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_2292); 
FAILURE(BgL_auxz00_11866,BFALSE,BFALSE);} 
BgL_endz00_2298 = 
STRING_LENGTH(BgL_stringz00_3957); } 
{ /* Ieee/string.scm 1553 */

{ /* Ieee/string.scm 1553 */
 int BgL_auxz00_11878; obj_t BgL_auxz00_11871;
{ /* Ieee/string.scm 1553 */
 obj_t BgL_tmpz00_11879;
if(
INTEGERP(BgL_startz00_2297))
{ /* Ieee/string.scm 1553 */
BgL_tmpz00_11879 = BgL_startz00_2297
; }  else 
{ 
 obj_t BgL_auxz00_11882;
BgL_auxz00_11882 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(62205L), BGl_string3541z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_2297); 
FAILURE(BgL_auxz00_11882,BFALSE,BFALSE);} 
BgL_auxz00_11878 = 
CINT(BgL_tmpz00_11879); } 
if(
STRINGP(BgL_strz00_2292))
{ /* Ieee/string.scm 1553 */
BgL_auxz00_11871 = BgL_strz00_2292
; }  else 
{ 
 obj_t BgL_auxz00_11874;
BgL_auxz00_11874 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(62205L), BGl_string3541z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_2292); 
FAILURE(BgL_auxz00_11874,BFALSE,BFALSE);} 
return 
BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00(BgL_auxz00_11871, BgL_auxz00_11878, BgL_endz00_2298);} } } } break;case 3L : 

{ /* Ieee/string.scm 1553 */
 obj_t BgL_startz00_2299;
BgL_startz00_2299 = 
VECTOR_REF(BgL_opt1205z00_274,1L); 
{ /* Ieee/string.scm 1553 */
 obj_t BgL_endz00_2300;
BgL_endz00_2300 = 
VECTOR_REF(BgL_opt1205z00_274,2L); 
{ /* Ieee/string.scm 1553 */

{ /* Ieee/string.scm 1553 */
 long BgL_auxz00_11906; int BgL_auxz00_11897; obj_t BgL_auxz00_11890;
{ /* Ieee/string.scm 1553 */
 obj_t BgL_tmpz00_11907;
if(
INTEGERP(BgL_endz00_2300))
{ /* Ieee/string.scm 1553 */
BgL_tmpz00_11907 = BgL_endz00_2300
; }  else 
{ 
 obj_t BgL_auxz00_11910;
BgL_auxz00_11910 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(62205L), BGl_string3541z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_endz00_2300); 
FAILURE(BgL_auxz00_11910,BFALSE,BFALSE);} 
BgL_auxz00_11906 = 
(long)CINT(BgL_tmpz00_11907); } 
{ /* Ieee/string.scm 1553 */
 obj_t BgL_tmpz00_11898;
if(
INTEGERP(BgL_startz00_2299))
{ /* Ieee/string.scm 1553 */
BgL_tmpz00_11898 = BgL_startz00_2299
; }  else 
{ 
 obj_t BgL_auxz00_11901;
BgL_auxz00_11901 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(62205L), BGl_string3541z00zz__r4_strings_6_7z00, BGl_string3353z00zz__r4_strings_6_7z00, BgL_startz00_2299); 
FAILURE(BgL_auxz00_11901,BFALSE,BFALSE);} 
BgL_auxz00_11897 = 
CINT(BgL_tmpz00_11898); } 
if(
STRINGP(BgL_strz00_2292))
{ /* Ieee/string.scm 1553 */
BgL_auxz00_11890 = BgL_strz00_2292
; }  else 
{ 
 obj_t BgL_auxz00_11893;
BgL_auxz00_11893 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(62205L), BGl_string3541z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_strz00_2292); 
FAILURE(BgL_auxz00_11893,BFALSE,BFALSE);} 
return 
BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00(BgL_auxz00_11890, BgL_auxz00_11897, BgL_auxz00_11906);} } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol3538z00zz__r4_strings_6_7z00, BGl_string3540z00zz__r4_strings_6_7z00, 
BINT(
VECTOR_LENGTH(BgL_opt1205z00_274)));} } } } 

}



/* 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 1553 */
{ /* Ieee/string.scm 1558 */
 long BgL_lenz00_2303;
BgL_lenz00_2303 = 
STRING_LENGTH(BgL_strz00_271); 
{ /* Ieee/string.scm 1560 */
 bool_t BgL_test4649z00_11922;
if(
(
(long)(BgL_startz00_272)<0L))
{ /* Ieee/string.scm 1560 */
BgL_test4649z00_11922 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1560 */
BgL_test4649z00_11922 = 
(
(long)(BgL_startz00_272)>BgL_lenz00_2303)
; } 
if(BgL_test4649z00_11922)
{ /* Ieee/string.scm 1562 */
 obj_t BgL_arg1951z00_2306; obj_t BgL_arg1952z00_2307;
{ /* Ieee/string.scm 1562 */
 obj_t BgL_arg1953z00_2308;
{ /* Ieee/fixnum.scm 1001 */

BgL_arg1953z00_2308 = 
BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_startz00_272), 10L); } 
BgL_arg1951z00_2306 = 
string_append(BGl_string3388z00zz__r4_strings_6_7z00, BgL_arg1953z00_2308); } 
{ /* Ieee/string.scm 1563 */
 obj_t BgL_list1955z00_2312;
{ /* Ieee/string.scm 1563 */
 obj_t BgL_arg1956z00_2313;
BgL_arg1956z00_2313 = 
MAKE_YOUNG_PAIR(BgL_strz00_271, BNIL); 
BgL_list1955z00_2312 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lenz00_2303), BgL_arg1956z00_2313); } 
BgL_arg1952z00_2307 = BgL_list1955z00_2312; } 
{ /* Ieee/string.scm 1561 */
 obj_t BgL_aux3342z00_5311;
BgL_aux3342z00_5311 = 
BGl_errorz00zz__errorz00(BGl_string3542z00zz__r4_strings_6_7z00, BgL_arg1951z00_2306, BgL_arg1952z00_2307); 
if(
STRINGP(BgL_aux3342z00_5311))
{ /* Ieee/string.scm 1561 */
return BgL_aux3342z00_5311;}  else 
{ 
 obj_t BgL_auxz00_11937;
BgL_auxz00_11937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(62477L), BGl_string3542z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_aux3342z00_5311); 
FAILURE(BgL_auxz00_11937,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 1564 */
 bool_t BgL_test4652z00_11941;
if(
(BgL_endz00_273<
(long)(BgL_startz00_272)))
{ /* Ieee/string.scm 1564 */
BgL_test4652z00_11941 = ((bool_t)1)
; }  else 
{ /* Ieee/string.scm 1564 */
BgL_test4652z00_11941 = 
(BgL_endz00_273>BgL_lenz00_2303)
; } 
if(BgL_test4652z00_11941)
{ /* Ieee/string.scm 1566 */
 obj_t BgL_arg1959z00_2316; obj_t BgL_arg1960z00_2317;
{ /* Ieee/string.scm 1566 */
 obj_t BgL_arg1961z00_2318;
{ /* Ieee/fixnum.scm 1001 */

BgL_arg1961z00_2318 = 
BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_endz00_273, 10L); } 
BgL_arg1959z00_2316 = 
string_append(BGl_string3389z00zz__r4_strings_6_7z00, BgL_arg1961z00_2318); } 
{ /* Ieee/string.scm 1567 */
 obj_t BgL_list1963z00_2322;
{ /* Ieee/string.scm 1567 */
 obj_t BgL_arg1964z00_2323;
BgL_arg1964z00_2323 = 
MAKE_YOUNG_PAIR(BgL_strz00_271, BNIL); 
BgL_list1963z00_2322 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lenz00_2303), BgL_arg1964z00_2323); } 
BgL_arg1960z00_2317 = BgL_list1963z00_2322; } 
{ /* Ieee/string.scm 1565 */
 obj_t BgL_aux3344z00_5313;
BgL_aux3344z00_5313 = 
BGl_errorz00zz__errorz00(BGl_string3542z00zz__r4_strings_6_7z00, BgL_arg1959z00_2316, BgL_arg1960z00_2317); 
if(
STRINGP(BgL_aux3344z00_5313))
{ /* Ieee/string.scm 1565 */
return BgL_aux3344z00_5313;}  else 
{ 
 obj_t BgL_auxz00_11954;
BgL_auxz00_11954 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(62652L), BGl_string3542z00zz__r4_strings_6_7z00, BGl_string3348z00zz__r4_strings_6_7z00, BgL_aux3344z00_5313); 
FAILURE(BgL_auxz00_11954,BFALSE,BFALSE);} } }  else 
{ /* Ieee/string.scm 1569 */
 obj_t BgL_resz00_2324;
{ /* Ieee/string.scm 1569 */
 long BgL_arg1973z00_2340;
BgL_arg1973z00_2340 = 
(2L*
(BgL_endz00_273-
(long)(BgL_startz00_272))); 
{ /* Ieee/string.scm 168 */

BgL_resz00_2324 = 
make_string(BgL_arg1973z00_2340, ((unsigned char)' ')); } } 
{ 
 int BgL_iz00_2326; long BgL_jz00_2327;
BgL_iz00_2326 = BgL_startz00_272; 
BgL_jz00_2327 = 0L; 
BgL_zc3z04anonymousza31965ze3z87_2328:
if(
(
(long)(BgL_iz00_2326)==BgL_endz00_273))
{ /* Ieee/string.scm 1572 */
return BgL_resz00_2324;}  else 
{ /* Ieee/string.scm 1574 */
 long BgL_nz00_2330;
{ /* Ieee/string.scm 1574 */
 unsigned char BgL_tmpz00_11965;
{ /* Ieee/string.scm 1574 */
 long BgL_kz00_3979;
BgL_kz00_3979 = 
(long)(BgL_iz00_2326); 
{ /* Ieee/string.scm 327 */
 long BgL_l2617z00_4583;
BgL_l2617z00_4583 = 
STRING_LENGTH(BgL_strz00_271); 
if(
BOUND_CHECK(BgL_kz00_3979, BgL_l2617z00_4583))
{ /* Ieee/string.scm 327 */
BgL_tmpz00_11965 = 
STRING_REF(BgL_strz00_271, BgL_kz00_3979)
; }  else 
{ 
 obj_t BgL_auxz00_11971;
BgL_auxz00_11971 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BgL_strz00_271, 
(int)(BgL_l2617z00_4583), 
(int)(BgL_kz00_3979)); 
FAILURE(BgL_auxz00_11971,BFALSE,BFALSE);} } } 
BgL_nz00_2330 = 
(BgL_tmpz00_11965); } 
{ /* Ieee/string.scm 1574 */
 long BgL_d0z00_2331;
{ /* Ieee/string.scm 1575 */
 long BgL_n1z00_3981; long BgL_n2z00_3982;
BgL_n1z00_3981 = BgL_nz00_2330; 
BgL_n2z00_3982 = 16L; 
{ /* Ieee/string.scm 1575 */
 bool_t BgL_test4657z00_11978;
{ /* Ieee/string.scm 1575 */
 long BgL_arg2094z00_3984;
BgL_arg2094z00_3984 = 
(((BgL_n1z00_3981) | (BgL_n2z00_3982)) & -2147483648); 
BgL_test4657z00_11978 = 
(BgL_arg2094z00_3984==0L); } 
if(BgL_test4657z00_11978)
{ /* Ieee/string.scm 1575 */
 int32_t BgL_arg2090z00_3985;
{ /* Ieee/string.scm 1575 */
 int32_t BgL_arg2091z00_3986; int32_t BgL_arg2093z00_3987;
BgL_arg2091z00_3986 = 
(int32_t)(BgL_n1z00_3981); 
BgL_arg2093z00_3987 = 
(int32_t)(BgL_n2z00_3982); 
BgL_arg2090z00_3985 = 
(BgL_arg2091z00_3986%BgL_arg2093z00_3987); } 
{ /* Ieee/string.scm 1575 */
 long BgL_arg2195z00_3992;
BgL_arg2195z00_3992 = 
(long)(BgL_arg2090z00_3985); 
BgL_d0z00_2331 = 
(long)(BgL_arg2195z00_3992); } }  else 
{ /* Ieee/string.scm 1575 */
BgL_d0z00_2331 = 
(BgL_n1z00_3981%BgL_n2z00_3982); } } } 
{ /* Ieee/string.scm 1575 */
 long BgL_d1z00_2332;
BgL_d1z00_2332 = 
(BgL_nz00_2330/16L); 
{ /* Ieee/string.scm 1576 */

{ /* Ieee/string.scm 1577 */
 unsigned char BgL_arg1967z00_2333;
if(
BOUND_CHECK(BgL_d1z00_2332, 16L))
{ /* Ieee/string.scm 327 */
BgL_arg1967z00_2333 = 
STRING_REF(BGl_string3543z00zz__r4_strings_6_7z00, BgL_d1z00_2332); }  else 
{ 
 obj_t BgL_auxz00_11991;
BgL_auxz00_11991 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BGl_string3543z00zz__r4_strings_6_7z00, 
(int)(16L), 
(int)(BgL_d1z00_2332)); 
FAILURE(BgL_auxz00_11991,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 333 */
 long BgL_l2625z00_4591;
BgL_l2625z00_4591 = 
STRING_LENGTH(BgL_resz00_2324); 
if(
BOUND_CHECK(BgL_jz00_2327, BgL_l2625z00_4591))
{ /* Ieee/string.scm 333 */
STRING_SET(BgL_resz00_2324, BgL_jz00_2327, BgL_arg1967z00_2333); }  else 
{ 
 obj_t BgL_auxz00_12001;
BgL_auxz00_12001 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16409L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_resz00_2324, 
(int)(BgL_l2625z00_4591), 
(int)(BgL_jz00_2327)); 
FAILURE(BgL_auxz00_12001,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1578 */
 long BgL_arg1968z00_2334; unsigned char BgL_arg1969z00_2335;
BgL_arg1968z00_2334 = 
(BgL_jz00_2327+1L); 
if(
BOUND_CHECK(BgL_d0z00_2331, 16L))
{ /* Ieee/string.scm 327 */
BgL_arg1969z00_2335 = 
STRING_REF(BGl_string3543z00zz__r4_strings_6_7z00, BgL_d0z00_2331); }  else 
{ 
 obj_t BgL_auxz00_12011;
BgL_auxz00_12011 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16115L), BGl_string3358z00zz__r4_strings_6_7z00, BGl_string3543z00zz__r4_strings_6_7z00, 
(int)(16L), 
(int)(BgL_d0z00_2331)); 
FAILURE(BgL_auxz00_12011,BFALSE,BFALSE);} 
{ /* Ieee/string.scm 333 */
 long BgL_l2633z00_4599;
BgL_l2633z00_4599 = 
STRING_LENGTH(BgL_resz00_2324); 
if(
BOUND_CHECK(BgL_arg1968z00_2334, BgL_l2633z00_4599))
{ /* Ieee/string.scm 333 */
STRING_SET(BgL_resz00_2324, BgL_arg1968z00_2334, BgL_arg1969z00_2335); }  else 
{ 
 obj_t BgL_auxz00_12021;
BgL_auxz00_12021 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3346z00zz__r4_strings_6_7z00, 
BINT(16409L), BGl_string3360z00zz__r4_strings_6_7z00, BgL_resz00_2324, 
(int)(BgL_l2633z00_4599), 
(int)(BgL_arg1968z00_2334)); 
FAILURE(BgL_auxz00_12021,BFALSE,BFALSE);} } } 
{ /* Ieee/string.scm 1579 */
 long BgL_arg1970z00_2336; long BgL_arg1971z00_2337;
BgL_arg1970z00_2336 = 
(
(long)(BgL_iz00_2326)+1L); 
BgL_arg1971z00_2337 = 
(BgL_jz00_2327+2L); 
{ 
 long BgL_jz00_12032; int BgL_iz00_12030;
BgL_iz00_12030 = 
(int)(BgL_arg1970z00_2336); 
BgL_jz00_12032 = BgL_arg1971z00_2337; 
BgL_jz00_2327 = BgL_jz00_12032; 
BgL_iz00_2326 = BgL_iz00_12030; 
goto BgL_zc3z04anonymousza31965ze3z87_2328;} } } } } } } } } } } } 

}



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

}

#ifdef __cplusplus
}
#endif
