/*===========================================================================*/
/*   (Llib/unicode.scm)                                                      */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/unicode.scm -indent -o objs/obj_s/Llib/unicode.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___UNICODE_TYPE_DEFINITIONS
#define BGL___UNICODE_TYPE_DEFINITIONS
#endif // BGL___UNICODE_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2downcasez00zz__unicodez00(obj_t);
static obj_t BGl_symbol5072z00zz__unicodez00 = BUNSPEC;
static obj_t BGl__utf8zd2stringzf3z21zz__unicodez00(obj_t, obj_t);
static obj_t BGl_symbol4980z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list5049z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol4983z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(obj_t, long);
static obj_t BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2upcasez12z12zz__unicodez00(obj_t);
BGL_EXPORTED_DECL int BGl_ucs2zd2stringzd2lengthz00zz__unicodez00(obj_t);
static obj_t BGl_z62asciizd2stringzf3z43zz__unicodez00(obj_t, obj_t);
extern obj_t c_ucs2_string_copy(obj_t);
BGL_EXPORTED_DECL obj_t BGl_subucs2zd2stringzd2urz00zz__unicodez00(obj_t, int, int);
static obj_t BGl_z62utf8zd2stringzd2appendza2zc0zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_isozd2latinzd2ze3utf8ze3zz__unicodez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2stringzd2encodez00zz__unicodez00(obj_t, bool_t, long, long);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2appendz00zz__unicodez00(obj_t);
static obj_t BGl_z62isozd2latinzd2ze3utf8z81zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3ucs2zd2stringze3zz__unicodez00(obj_t);
static obj_t BGl__makezd2ucs2zd2stringz00zz__unicodez00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_utf8zd2stringzd2minimalzd2charsetzd2zz__unicodez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2ze3utf8zd2stringz31zz__unicodez00(obj_t);
static obj_t BGl_z62ucs2zd2stringzd2cizc3zd3zf3z81zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_utf8zd2stringzd2lengthz00zz__unicodez00(obj_t);
static obj_t BGl_z62ucs2zd2stringzd2cizc3zf3z52zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_8bitszd2invzd2latinzd215zd2zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_utf8zd2stringzd2leftzd2replacementzf3z21zz__unicodez00(obj_t, long, long);
BGL_EXPORTED_DECL ucs2_t BGl_ucs2zd2stringzd2refzd2urzd2zz__unicodez00(obj_t, int);
static obj_t BGl_makezd2tablezd2entryze70ze7zz__unicodez00(obj_t, long);
static obj_t BGl_z62ucs2zd2stringze3zd3zf3z73zz__unicodez00(obj_t, obj_t, obj_t);
static long BGl_8bitszd2ze3utf8zd2lengthze3zz__unicodez00(obj_t, long, obj_t);
static long BGl_utf8zd2ze38bitszd2lengthze3zz__unicodez00(obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2stringzd2appendz00zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd2lengthz62zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2fillz12z12zz__unicodez00(obj_t, ucs2_t);
extern obj_t ucs2_string_append(obj_t, obj_t);
extern obj_t string_for_read(obj_t);
extern bool_t ucs2_string_cige(obj_t, obj_t);
static obj_t BGl_list4898z00zz__unicodez00 = BUNSPEC;
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list4899z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__unicodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_z62ucs2zd2stringzd2cizd3zf3z42zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzc3zf3ze2zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62utf8zd2charzd2siza7ezc5zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd2setz12z70zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t ucs2_string_to_utf8_string(obj_t);
extern bool_t ucs2_string_cigt(obj_t, obj_t);
static obj_t BGl_utf8zd2collapsez12zc0zz__unicodez00(obj_t, long, obj_t, obj_t);
static obj_t BGl_z62utf8zd2ze3isozd2latinz12z93zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd2appendz62zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62subucs2zd2stringzb0zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2stringzd2ze3ucs2zd2stringz31zz__unicodez00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzc3zd3zf3z31zz__unicodez00(obj_t, obj_t);
extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_z62ucs2zd2stringzd2cize3zf3z72zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd3zf3zf2zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62utf8zd2stringzd2lengthz62zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z628bitszd2ze3utf8z53zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_z62utf8zd2ze38bitsz53zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd2refzd2urzb0zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_inversezd2utf8zd2tablez00zz__unicodez00(obj_t);
static obj_t BGl_vector4937z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_utf8zd2stringzf3z21zz__unicodez00(obj_t, bool_t);
static obj_t BGl_toplevelzd2initzd2zz__unicodez00(void);
extern obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL obj_t BGl_cp1252zd2ze3utf8z12z23zz__unicodez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2ze3cp1252z12z23zz__unicodez00(obj_t);
static obj_t BGl_z62utf8zd2stringzd2appendz62zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2ze3isozd2latinzd215z12z23zz__unicodez00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringze3zf3zc2zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2ze3isozd2latinze3zz__unicodez00(obj_t);
extern obj_t utf8_string_to_ucs2_string(obj_t);
static obj_t BGl_z62utf8zd2ze3isozd2latinz81zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2normaliza7ezd2utf16za7zz__unicodez00(obj_t, bool_t, long, long);
extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_addzd2tablezd2entryze70ze7zz__unicodez00(obj_t, obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2substringzd2zz__unicodez00(obj_t, int, int);
extern bool_t ucs2_strcmp(obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd2copyz62zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2setzd2urz12zc0zz__unicodez00(obj_t, int, ucs2_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd2cizc3zd3zf3ze3zz__unicodez00(obj_t, obj_t);
extern unsigned char BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(long);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__unicodez00(void);
static obj_t BGl_z62ucs2zd2stringzd2cize3zd3zf3za1zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_genericzd2initzd2zz__unicodez00(void);
extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
extern long bgl_list_length(obj_t);
static obj_t BGl_vector5048z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_z62utf8zd2stringzd2leftzd2replacementzf3z43zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62inversezd2utf8zd2tablez62zz__unicodez00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__unicodez00(void);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2minimalzd2charsetzd2zz__unicodez00(obj_t);
extern ucs2_t ucs2_tolower(ucs2_t);
static obj_t BGl_gczd2rootszd2initz00zz__unicodez00(void);
static obj_t BGl_objectzd2initzd2zz__unicodez00(void);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2zz__unicodez00(obj_t);
static obj_t BGl_z62ucs2zd2stringzc3zf3z80zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl__utf8zd2stringzd2encodez00zz__unicodez00(obj_t, obj_t);
extern bool_t ucs2_string_ge(obj_t, obj_t);
extern obj_t c_subucs2_string(obj_t, int, int);
extern bool_t ucs2_strcicmp(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_stringzd2indexzd2ze3utf8zd2stringzd2indexze3zz__unicodez00(obj_t, long);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringze3zd3zf3z11zz__unicodez00(obj_t, obj_t);
extern bool_t ucs2_string_gt(obj_t, obj_t);
static obj_t BGl_z62stringzd2indexzd2ze3utf8zd2stringzd2indexz81zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd2ze3utf8zd2stringz53zz__unicodez00(obj_t, obj_t);
extern obj_t bgl_reverse_bang(obj_t);
extern bool_t ucs2_string_cile(obj_t, obj_t);
extern obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd3zf3z90zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2downcasez12z12zz__unicodez00(obj_t);
static obj_t BGl__utf8zd2stringzd2appendzd2fillz12zc0zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_utf8zd2stringzd2appendzd2fillz12zc0zz__unicodez00(obj_t, long, obj_t, obj_t);
extern bool_t ucs2_string_cilt(obj_t, obj_t);
static obj_t BGl__utf8zd2substringzd2zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62cp1252zd2ze3utf8z12z41zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62utf8zd2ze3cp1252z12z41zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd2upcasez12z70zz__unicodez00(obj_t, obj_t);
static obj_t BGl_cp1252zd2invzd2zz__unicodez00 = BUNSPEC;
static obj_t BGl_z62utf8zd2stringzd2rightzd2replacementzf3z43zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2stringzd2appendza2za2zz__unicodez00(obj_t);
BGL_EXPORTED_DECL long BGl_utf8zd2charzd2siza7eza7zz__unicodez00(unsigned char);
BGL_EXPORTED_DECL obj_t BGl_isozd2latinzd2ze3utf8z12zf1zz__unicodez00(obj_t);
static obj_t BGl_z62ucs2zd2stringze3zf3za0zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_z62ucs2zd2substringzd2urz62zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__utf8zd2normaliza7ezd2utf16za7zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62stringzd2minimalzd2charsetz62zz__unicodez00(obj_t, obj_t);
static obj_t BGl_tablezd2ze38bitsze70zd6zz__unicodez00(obj_t, obj_t, obj_t, int, obj_t, obj_t, long, long);
BGL_EXPORTED_DECL obj_t BGl_subucs2zd2stringzd2zz__unicodez00(obj_t, int, int);
BGL_EXPORTED_DECL obj_t BGl_makezd2ucs2zd2stringz00zz__unicodez00(int, ucs2_t);
static obj_t BGl_8bitszd2ze3utf8zd2fillz12zf1zz__unicodez00(obj_t, obj_t, long, obj_t);
static obj_t BGl_utf8zd2ze38bitszd2fillz12zf1zz__unicodez00(obj_t, obj_t, int, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd2cize3zd3zf3zc3zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2ze3isozd2latinzd215z31zz__unicodez00(obj_t);
extern ucs2_t ucs2_toupper(ucs2_t);
static obj_t BGl_z62utf8zd2stringzd2minimalzd2charsetzb0zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62utf8zd2stringzd2ze3ucs2zd2stringz53zz__unicodez00(obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
BGL_EXPORTED_DECL ucs2_t BGl_ucs2zd2stringzd2refz00zz__unicodez00(obj_t, int);
static obj_t BGl_z62ucs2zd2stringzd2ze3listz81zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd2refz62zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_errorzd2toozd2shortze70ze7zz__unicodez00(int, obj_t, obj_t);
extern obj_t make_ucs2_string(int, ucs2_t);
static obj_t BGl_methodzd2initzd2zz__unicodez00(void);
static obj_t BGl_symbol5107z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_8bitszd2invzd2zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol5028z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4900z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4901z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4902z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4903z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4904z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4905z00zz__unicodez00 = BUNSPEC;
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
static obj_t BGl_list4906z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2upcasez00zz__unicodez00(obj_t);
static obj_t BGl_list4907z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4908z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4909z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd2cizc3zf3z30zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62utf8zd2ze3isozd2latinzd215z53zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_8bitszd2ze3utf8z31zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2ze38bitsz31zz__unicodez00(obj_t, obj_t);
static obj_t BGl_symbol5111z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol5113z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol5033z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_z628bitszd2ze3utf8z12z41zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_z62utf8zd2ze38bitsz12z41zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol5037z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_loopze70ze7zz__unicodez00(long, bool_t, long, obj_t, obj_t, long, long);
static obj_t BGl_loopze71ze7zz__unicodez00(long, long, obj_t, long);
static obj_t BGl_z62ucs2zd2stringzd2downcasez12z70zz__unicodez00(obj_t, obj_t);
static obj_t BGl_list4910z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_loopze72ze7zz__unicodez00(obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list4911z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_loopze73ze7zz__unicodez00(obj_t);
static obj_t BGl_list4912z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_asciizd2stringzf3z21zz__unicodez00(obj_t);
static obj_t BGl_list4913z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4914z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4915z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4916z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4917z00zz__unicodez00 = BUNSPEC;
extern bool_t ucs2_string_le(obj_t, obj_t);
static obj_t BGl_list4918z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4919z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd2cizd3zf3z20zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_utf8zd2stringzd2indexzd2ze3stringzd2indexze3zz__unicodez00(obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2setz12z12zz__unicodez00(obj_t, int, ucs2_t);
static obj_t BGl_z62utf8zd2ze3isozd2latinzd215z12z41zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62utf8zd2stringzd2indexzd2ze3stringzd2indexz81zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2substringzd2urz00zz__unicodez00(obj_t, int, int);
extern bool_t ucs2_string_lt(obj_t, obj_t);
static obj_t BGl_symbol5044z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_utf8zd2ze3isozd2latinz12zf1zz__unicodez00(obj_t);
static obj_t BGl_symbol5046z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_z62subucs2zd2stringzd2urz62zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzf3z43zz__unicodez00(obj_t, obj_t);
extern obj_t make_string(long, unsigned char);
static obj_t BGl_list4920z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4921z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4922z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4923z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_z62listzd2ze3ucs2zd2stringz81zz__unicodez00(obj_t, obj_t);
static obj_t BGl_list4924z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4925z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4926z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4927z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4928z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4929z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_z62cp1252zd2ze3utf8z53zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62utf8zd2ze3cp1252z53zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd2upcasez62zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd2setzd2urz12za2zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2stringzd2refz00zz__unicodez00(obj_t, long);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd2cize3zf3z10zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62utf8zd2stringzd2refz62zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_cp1252z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_8bitszd2ze3utf8z12z23zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2ze38bitsz12z23zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzc3zd3zf3z53zz__unicodez00(obj_t, obj_t, obj_t);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl_z62ucs2zd2stringzd2downcasez62zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2ze3listze3zz__unicodez00(obj_t);
static obj_t BGl_list4930z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4931z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4932z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4933z00zz__unicodez00 = BUNSPEC;
extern obj_t make_string_sans_fill(long);
static obj_t BGl_list4934z00zz__unicodez00 = BUNSPEC;
extern obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t, long, obj_t, long, long);
static obj_t BGl_list4935z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_list4936z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_z62ucs2zd2stringzd2minimalzd2charsetzb0zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_utf8zd2stringzd2rightzd2replacementzf3z21zz__unicodez00(obj_t, long, long);
static obj_t BGl_list4938z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_utf8zd2substringzd2zz__unicodez00(obj_t, long, long);
static obj_t BGl_z62ucs2zd2stringzd2fillz12z70zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzf3z21zz__unicodez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2minimalzd2charsetz00zz__unicodez00(obj_t);
static obj_t BGl_symbol5062z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_z62ucs2zd2stringzb0zz__unicodez00(obj_t, obj_t);
static obj_t BGl_z62isozd2latinzd2ze3utf8z12z93zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2copyz00zz__unicodez00(obj_t);
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4971z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cp1252zd2ze3utf8z31zz__unicodez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2ze3cp1252z31zz__unicodez00(obj_t);
static obj_t BGl_z62ucs2zd2substringzb0zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3ucs2zd2stringzd2envz31zz__unicodez00, BgL_bgl_za762listza7d2za7e3ucs5119za7, BGl_z62listzd2ze3ucs2zd2stringz81zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2substringzd2envz00zz__unicodez00, BgL_bgl_za762ucs2za7d2substr5120z00, BGl_z62ucs2zd2substringzb0zz__unicodez00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2setzd2urz12zd2envz12zz__unicodez00, BgL_bgl_za762ucs2za7d2string5121z00, BGl_z62ucs2zd2stringzd2setzd2urz12za2zz__unicodez00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzd2refzd2envzd2zz__unicodez00, BgL_bgl_za762utf8za7d2string5122z00, BGl_z62utf8zd2stringzd2refz62zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_8bitszd2ze3utf8z12zd2envzf1zz__unicodez00, BgL_bgl_za7628bitsza7d2za7e3ut5123za7, BGl_z628bitszd2ze3utf8z12z41zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2ze38bitsz12zd2envzf1zz__unicodez00, BgL_bgl_za762utf8za7d2za7e38bi5124za7, BGl_z62utf8zd2ze38bitsz12z41zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzd2appendzd2envzd2zz__unicodez00, BgL_bgl_za762utf8za7d2string5125z00, BGl_z62utf8zd2stringzd2appendz62zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2substringzd2envz00zz__unicodez00, BgL_bgl__utf8za7d2substrin5126za7, opt_generic_entry, BGl__utf8zd2substringzd2zz__unicodez00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzc3zf3zd2envz30zz__unicodez00, BgL_bgl_za762ucs2za7d2string5127z00, BGl_z62ucs2zd2stringzc3zf3z80zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2copyzd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5128z00, BGl_z62ucs2zd2stringzd2copyz62zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2indexzd2ze3utf8zd2stringzd2indexzd2envz31zz__unicodez00, BgL_bgl_za762stringza7d2inde5129z00, BGl_z62stringzd2indexzd2ze3utf8zd2stringzd2indexz81zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringze3zd3zf3zd2envzc3zz__unicodez00, BgL_bgl_za762ucs2za7d2string5130z00, BGl_z62ucs2zd2stringze3zd3zf3z73zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2downcasez12zd2envzc0zz__unicodez00, BgL_bgl_za762ucs2za7d2string5131z00, BGl_z62ucs2zd2stringzd2downcasez12z70zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cp1252zd2ze3utf8z12zd2envzf1zz__unicodez00, BgL_bgl_za762cp1252za7d2za7e3u5132za7, BGl_z62cp1252zd2ze3utf8z12z41zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2ze3cp1252z12zd2envzf1zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3cp15133za7, BGl_z62utf8zd2ze3cp1252z12z41zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2cizd3zf3zd2envzf2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5134z00, BGl_z62ucs2zd2stringzd2cizd3zf3z42zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_isozd2latinzd2ze3utf8z12zd2envz23zz__unicodez00, BgL_bgl_za762isoza7d2latinza7d5135za7, BGl_z62isozd2latinzd2ze3utf8z12z93zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2normaliza7ezd2utf16zd2envz75zz__unicodez00, BgL_bgl__utf8za7d2normaliza75136z00, opt_generic_entry, BGl__utf8zd2normaliza7ezd2utf16za7zz__unicodez00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_subucs2zd2stringzd2envz00zz__unicodez00, BgL_bgl_za762subucs2za7d2str5137z00, BGl_z62subucs2zd2stringzb0zz__unicodez00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string5000z00zz__unicodez00, BgL_bgl_string5000za700za7za7_5138za7, "&subucs2-string", 15 );
BGL_DEFINE_STRING(BGl_string5001z00zz__unicodez00, BgL_bgl_string5001za700za7za7_5139za7, "&subucs2-string-ur", 18 );
BGL_DEFINE_STRING(BGl_string5002z00zz__unicodez00, BgL_bgl_string5002za700za7za7_5140za7, "ucs2-substring", 14 );
BGL_DEFINE_STRING(BGl_string5003z00zz__unicodez00, BgL_bgl_string5003za700za7za7_5141za7, "&ucs2-substring", 15 );
BGL_DEFINE_STRING(BGl_string5004z00zz__unicodez00, BgL_bgl_string5004za700za7za7_5142za7, "&ucs2-substring-ur", 18 );
BGL_DEFINE_STRING(BGl_string5005z00zz__unicodez00, BgL_bgl_string5005za700za7za7_5143za7, "ucs2-string-append", 18 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2refzd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5144z00, BGl_z62ucs2zd2stringzd2refz62zz__unicodez00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string5006z00zz__unicodez00, BgL_bgl_string5006za700za7za7_5145za7, "loop~3", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2minimalzd2charsetzd2envz00zz__unicodez00, BgL_bgl_za762ucs2za7d2string5146z00, BGl_z62ucs2zd2stringzd2minimalzd2charsetzb0zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5007z00zz__unicodez00, BgL_bgl_string5007za700za7za7_5147za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string5008z00zz__unicodez00, BgL_bgl_string5008za700za7za7_5148za7, "list->ucs2-string", 17 );
BGL_DEFINE_STRING(BGl_string5009z00zz__unicodez00, BgL_bgl_string5009za700za7za7_5149za7, "pair-nil", 8 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzd2rightzd2replacementzf3zd2envzf3zz__unicodez00, BgL_bgl_za762utf8za7d2string5150z00, BGl_z62utf8zd2stringzd2rightzd2replacementzf3z43zz__unicodez00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2minimalzd2charsetzd2envzd2zz__unicodez00, BgL_bgl_za762stringza7d2mini5151z00, BGl_z62stringzd2minimalzd2charsetz62zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5010z00zz__unicodez00, BgL_bgl_string5010za700za7za7_5152za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string5011z00zz__unicodez00, BgL_bgl_string5011za700za7za7_5153za7, "&ucs2-string->list", 18 );
BGL_DEFINE_STRING(BGl_string5012z00zz__unicodez00, BgL_bgl_string5012za700za7za7_5154za7, "&ucs2-string-copy", 17 );
BGL_DEFINE_STRING(BGl_string5013z00zz__unicodez00, BgL_bgl_string5013za700za7za7_5155za7, "&ucs2-string-fill!", 18 );
BGL_DEFINE_STRING(BGl_string5014z00zz__unicodez00, BgL_bgl_string5014za700za7za7_5156za7, "&ucs2-string-upcase", 19 );
BGL_DEFINE_STRING(BGl_string5015z00zz__unicodez00, BgL_bgl_string5015za700za7za7_5157za7, "&ucs2-string-downcase", 21 );
BGL_DEFINE_STRING(BGl_string5016z00zz__unicodez00, BgL_bgl_string5016za700za7za7_5158za7, "&ucs2-string-upcase!", 20 );
BGL_DEFINE_STRING(BGl_string5017z00zz__unicodez00, BgL_bgl_string5017za700za7za7_5159za7, "&ucs2-string-downcase!", 22 );
BGL_DEFINE_STRING(BGl_string5018z00zz__unicodez00, BgL_bgl_string5018za700za7za7_5160za7, "&ucs2-string->utf8-string", 25 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2upcasezd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5161z00, BGl_z62ucs2zd2stringzd2upcasez62zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5019z00zz__unicodez00, BgL_bgl_string5019za700za7za7_5162za7, "vector-ref", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzc3zd3zf3zd2envze3zz__unicodez00, BgL_bgl_za762ucs2za7d2string5163z00, BGl_z62ucs2zd2stringzc3zd3zf3z53zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd3zf3zd2envz20zz__unicodez00, BgL_bgl_za762ucs2za7d2string5164z00, BGl_z62ucs2zd2stringzd3zf3z90zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2downcasezd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5165z00, BGl_z62ucs2zd2stringzd2downcasez62zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_inversezd2utf8zd2tablezd2envzd2zz__unicodez00, BgL_bgl_za762inverseza7d2utf5166z00, BGl_z62inversezd2utf8zd2tablez62zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5100z00zz__unicodez00, BgL_bgl_string5100za700za7za7_5167za7, "table-ref-len", 13 );
BGL_DEFINE_STRING(BGl_string5101z00zz__unicodez00, BgL_bgl_string5101za700za7za7_5168za7, "&8bits->utf8", 12 );
BGL_DEFINE_STRING(BGl_string5020z00zz__unicodez00, BgL_bgl_string5020za700za7za7_5169za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string5102z00zz__unicodez00, BgL_bgl_string5102za700za7za7_5170za7, "&8bits->utf8!", 13 );
BGL_DEFINE_STRING(BGl_string5021z00zz__unicodez00, BgL_bgl_string5021za700za7za7_5171za7, "loop~1", 6 );
BGL_DEFINE_STRING(BGl_string5103z00zz__unicodez00, BgL_bgl_string5103za700za7za7_5172za7, "&iso-latin->utf8", 16 );
BGL_DEFINE_STRING(BGl_string5022z00zz__unicodez00, BgL_bgl_string5022za700za7za7_5173za7, "string-ref", 10 );
BGL_DEFINE_STRING(BGl_string5104z00zz__unicodez00, BgL_bgl_string5104za700za7za7_5174za7, "&iso-latin->utf8!", 17 );
BGL_DEFINE_STRING(BGl_string5023z00zz__unicodez00, BgL_bgl_string5023za700za7za7_5175za7, "make-table-entry~0", 18 );
BGL_DEFINE_STRING(BGl_string5105z00zz__unicodez00, BgL_bgl_string5105za700za7za7_5176za7, "&cp1252->utf8", 13 );
BGL_DEFINE_STRING(BGl_string5024z00zz__unicodez00, BgL_bgl_string5024za700za7za7_5177za7, "loop~2", 6 );
BGL_DEFINE_STRING(BGl_string5106z00zz__unicodez00, BgL_bgl_string5106za700za7za7_5178za7, "&cp1252->utf8!", 14 );
BGL_DEFINE_STRING(BGl_string5025z00zz__unicodez00, BgL_bgl_string5025za700za7za7_5179za7, "add-table-entry~0", 17 );
BGL_DEFINE_STRING(BGl_string5026z00zz__unicodez00, BgL_bgl_string5026za700za7za7_5180za7, "&inverse-utf8-table", 19 );
BGL_DEFINE_STRING(BGl_string5108z00zz__unicodez00, BgL_bgl_string5108za700za7za7_5181za7, "latin1", 6 );
BGL_DEFINE_STRING(BGl_string5027z00zz__unicodez00, BgL_bgl_string5027za700za7za7_5182za7, "&utf8-string->ucs2-string", 25 );
BGL_DEFINE_STRING(BGl_string5109z00zz__unicodez00, BgL_bgl_string5109za700za7za7_5183za7, "&string-minimal-charset", 23 );
BGL_DEFINE_STRING(BGl_string5029z00zz__unicodez00, BgL_bgl_string5029za700za7za7_5184za7, "ascii", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzd2indexzd2ze3stringzd2indexzd2envz31zz__unicodez00, BgL_bgl_za762utf8za7d2string5185z00, BGl_z62utf8zd2stringzd2indexzd2ze3stringzd2indexz81zz__unicodez00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string4939z00zz__unicodez00, BgL_bgl_string4939za700za7za7_5186za7, "€", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2setz12zd2envzc0zz__unicodez00, BgL_bgl_za762ucs2za7d2string5187z00, BGl_z62ucs2zd2stringzd2setz12z70zz__unicodez00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2substringzd2urzd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2substr5188z00, BGl_z62ucs2zd2substringzd2urz62zz__unicodez00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_isozd2latinzd2ze3utf8zd2envz31zz__unicodez00, BgL_bgl_za762isoza7d2latinza7d5189za7, BGl_z62isozd2latinzd2ze3utf8z81zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2ze3isozd2latinz12zd2envz23zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3iso5190za7, BGl_z62utf8zd2ze3isozd2latinz12z93zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzd2encodezd2envzd2zz__unicodez00, BgL_bgl__utf8za7d2stringza7d5191z00, opt_generic_entry, BGl__utf8zd2stringzd2encodez00zz__unicodez00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2appendzd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5192z00, va_generic_entry, BGl_z62ucs2zd2stringzd2appendz62zz__unicodez00, BUNSPEC, -1);
BGL_DEFINE_STRING(BGl_string5110z00zz__unicodez00, BgL_bgl_string5110za700za7za7_5193za7, "&utf8-string-minimal-charset", 28 );
BGL_DEFINE_STRING(BGl_string5030z00zz__unicodez00, BgL_bgl_string5030za700za7za7_5194za7, "&ascii-string?", 14 );
BGL_DEFINE_STRING(BGl_string5112z00zz__unicodez00, BgL_bgl_string5112za700za7za7_5195za7, "ucs2", 4 );
BGL_DEFINE_STRING(BGl_string5031z00zz__unicodez00, BgL_bgl_string5031za700za7za7_5196za7, "_utf8-string?", 13 );
BGL_DEFINE_STRING(BGl_string5032z00zz__unicodez00, BgL_bgl_string5032za700za7za7_5197za7, "case_else1131", 13 );
BGL_DEFINE_STRING(BGl_string5114z00zz__unicodez00, BgL_bgl_string5114za700za7za7_5198za7, "utf16", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2ucs2zd2stringzd2envzd2zz__unicodez00, BgL_bgl__makeza7d2ucs2za7d2s5199z00, opt_generic_entry, BGl__makezd2ucs2zd2stringz00zz__unicodez00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string5115z00zz__unicodez00, BgL_bgl_string5115za700za7za7_5200za7, "ucs2-string-minimal-charset", 27 );
BGL_DEFINE_STRING(BGl_string5034z00zz__unicodez00, BgL_bgl_string5034za700za7za7_5201za7, "utf8-string?", 12 );
BGL_DEFINE_STRING(BGl_string5116z00zz__unicodez00, BgL_bgl_string5116za700za7za7_5202za7, "symbol", 6 );
BGL_DEFINE_STRING(BGl_string5035z00zz__unicodez00, BgL_bgl_string5035za700za7za7_5203za7, "_utf8-string-encode", 19 );
BGL_DEFINE_STRING(BGl_string5117z00zz__unicodez00, BgL_bgl_string5117za700za7za7_5204za7, "&ucs2-string-minimal-charset", 28 );
BGL_DEFINE_STRING(BGl_string5036z00zz__unicodez00, BgL_bgl_string5036za700za7za7_5205za7, "case_else1135", 13 );
BGL_DEFINE_STRING(BGl_string5118z00zz__unicodez00, BgL_bgl_string5118za700za7za7_5206za7, "__unicode", 9 );
BGL_DEFINE_STRING(BGl_string5038z00zz__unicodez00, BgL_bgl_string5038za700za7za7_5207za7, "utf8-string-encode", 18 );
BGL_DEFINE_STRING(BGl_string5039z00zz__unicodez00, BgL_bgl_string5039za700za7za7_5208za7, "wrong number of arguments: [1..4] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string4940z00zz__unicodez00, BgL_bgl_string4940za700za7za7_5209za7, "", 0 );
BGL_DEFINE_STRING(BGl_string4941z00zz__unicodez00, BgL_bgl_string4941za700za7za7_5210za7, "‚", 3 );
BGL_DEFINE_STRING(BGl_string4942z00zz__unicodez00, BgL_bgl_string4942za700za7za7_5211za7, "ƒ", 2 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2cize3zd3zf3zd2envz11zz__unicodez00, BgL_bgl_za762ucs2za7d2string5212z00, BGl_z62ucs2zd2stringzd2cize3zd3zf3za1zz__unicodez00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string4943z00zz__unicodez00, BgL_bgl_string4943za700za7za7_5213za7, "„", 3 );
BGL_DEFINE_STRING(BGl_string4944z00zz__unicodez00, BgL_bgl_string4944za700za7za7_5214za7, "…", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzd2minimalzd2charsetzd2envz00zz__unicodez00, BgL_bgl_za762utf8za7d2string5215z00, BGl_z62utf8zd2stringzd2minimalzd2charsetzb0zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string4945z00zz__unicodez00, BgL_bgl_string4945za700za7za7_5216za7, "†", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2cize3zf3zd2envzc2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5217z00, BGl_z62ucs2zd2stringzd2cize3zf3z72zz__unicodez00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string4946z00zz__unicodez00, BgL_bgl_string4946za700za7za7_5218za7, "‡", 3 );
BGL_DEFINE_STRING(BGl_string4947z00zz__unicodez00, BgL_bgl_string4947za700za7za7_5219za7, "ˆ", 2 );
BGL_DEFINE_STRING(BGl_string4948z00zz__unicodez00, BgL_bgl_string4948za700za7za7_5220za7, "‰", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzd2lengthzd2envzd2zz__unicodez00, BgL_bgl_za762utf8za7d2string5221z00, BGl_z62utf8zd2stringzd2lengthz62zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string4949z00zz__unicodez00, BgL_bgl_string4949za700za7za7_5222za7, "Š", 2 );
BGL_DEFINE_STRING(BGl_string5040z00zz__unicodez00, BgL_bgl_string5040za700za7za7_5223za7, "Illegal indexes", 15 );
BGL_DEFINE_STRING(BGl_string5041z00zz__unicodez00, BgL_bgl_string5041za700za7za7_5224za7, "string-set!", 11 );
BGL_DEFINE_STRING(BGl_string5042z00zz__unicodez00, BgL_bgl_string5042za700za7za7_5225za7, "_utf8-normalize-utf16", 21 );
BGL_DEFINE_STRING(BGl_string5043z00zz__unicodez00, BgL_bgl_string5043za700za7za7_5226za7, "case_else1139", 13 );
BGL_DEFINE_STRING(BGl_string5045z00zz__unicodez00, BgL_bgl_string5045za700za7za7_5227za7, "utf8-normalize-utf16", 20 );
BGL_DEFINE_STRING(BGl_string5047z00zz__unicodez00, BgL_bgl_string5047za700za7za7_5228za7, "utf8", 4 );
BGL_DEFINE_STRING(BGl_string4950z00zz__unicodez00, BgL_bgl_string4950za700za7za7_5229za7, "‹", 3 );
BGL_DEFINE_STRING(BGl_string4951z00zz__unicodez00, BgL_bgl_string4951za700za7za7_5230za7, "Œ", 2 );
BGL_DEFINE_STRING(BGl_string4952z00zz__unicodez00, BgL_bgl_string4952za700za7za7_5231za7, "Ž", 2 );
BGL_DEFINE_STRING(BGl_string4953z00zz__unicodez00, BgL_bgl_string4953za700za7za7_5232za7, "‘", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2fillz12zd2envzc0zz__unicodez00, BgL_bgl_za762ucs2za7d2string5233z00, BGl_z62ucs2zd2stringzd2fillz12z70zz__unicodez00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string4954z00zz__unicodez00, BgL_bgl_string4954za700za7za7_5234za7, "’", 3 );
BGL_DEFINE_STRING(BGl_string4955z00zz__unicodez00, BgL_bgl_string4955za700za7za7_5235za7, "“", 3 );
BGL_DEFINE_STRING(BGl_string4956z00zz__unicodez00, BgL_bgl_string4956za700za7za7_5236za7, "”", 3 );
BGL_DEFINE_STRING(BGl_string4957z00zz__unicodez00, BgL_bgl_string4957za700za7za7_5237za7, "•", 3 );
BGL_DEFINE_STRING(BGl_string4958z00zz__unicodez00, BgL_bgl_string4958za700za7za7_5238za7, "–", 3 );
BGL_DEFINE_STRING(BGl_string4959z00zz__unicodez00, BgL_bgl_string4959za700za7za7_5239za7, "—", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2envz00zz__unicodez00, BgL_bgl_za762ucs2za7d2string5240z00, va_generic_entry, BGl_z62ucs2zd2stringzb0zz__unicodez00, BUNSPEC, -1);
BGL_DEFINE_STRING(BGl_string5050z00zz__unicodez00, BgL_bgl_string5050za700za7za7_5241za7, "utf8-char-size", 14 );
BGL_DEFINE_STRING(BGl_string5051z00zz__unicodez00, BgL_bgl_string5051za700za7za7_5242za7, "&utf8-char-size", 15 );
BGL_DEFINE_STRING(BGl_string5052z00zz__unicodez00, BgL_bgl_string5052za700za7za7_5243za7, "bchar", 5 );
BGL_DEFINE_STRING(BGl_string5053z00zz__unicodez00, BgL_bgl_string5053za700za7za7_5244za7, "&utf8-string-length", 19 );
BGL_DEFINE_STRING(BGl_string5054z00zz__unicodez00, BgL_bgl_string5054za700za7za7_5245za7, "&utf8-string-ref", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cp1252zd2ze3utf8zd2envze3zz__unicodez00, BgL_bgl_za762cp1252za7d2za7e3u5246za7, BGl_z62cp1252zd2ze3utf8z53zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2ze3cp1252zd2envze3zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3cp15247za7, BGl_z62utf8zd2ze3cp1252z53zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5055z00zz__unicodez00, BgL_bgl_string5055za700za7za7_5248za7, "&utf8-string-index->string-index", 32 );
BGL_DEFINE_STRING(BGl_string5056z00zz__unicodez00, BgL_bgl_string5056za700za7za7_5249za7, "&string-index->utf8-string-index", 32 );
BGL_DEFINE_STRING(BGl_string5057z00zz__unicodez00, BgL_bgl_string5057za700za7za7_5250za7, "&utf8-string-left-replacement?", 30 );
BGL_DEFINE_STRING(BGl_string5058z00zz__unicodez00, BgL_bgl_string5058za700za7za7_5251za7, "&utf8-string-right-replacement?", 31 );
BGL_DEFINE_STRING(BGl_string5059z00zz__unicodez00, BgL_bgl_string5059za700za7za7_5252za7, "utf8-collapse!", 14 );
BGL_DEFINE_STRING(BGl_string4960z00zz__unicodez00, BgL_bgl_string4960za700za7za7_5253za7, "˜", 2 );
BGL_DEFINE_STRING(BGl_string4961z00zz__unicodez00, BgL_bgl_string4961za700za7za7_5254za7, "™", 3 );
BGL_DEFINE_STRING(BGl_string4962z00zz__unicodez00, BgL_bgl_string4962za700za7za7_5255za7, "š", 2 );
BGL_DEFINE_STRING(BGl_string4963z00zz__unicodez00, BgL_bgl_string4963za700za7za7_5256za7, "›", 3 );
BGL_DEFINE_STRING(BGl_string4964z00zz__unicodez00, BgL_bgl_string4964za700za7za7_5257za7, "œ", 2 );
BGL_DEFINE_STRING(BGl_string4965z00zz__unicodez00, BgL_bgl_string4965za700za7za7_5258za7, "ž", 2 );
BGL_DEFINE_STRING(BGl_string4966z00zz__unicodez00, BgL_bgl_string4966za700za7za7_5259za7, "Ÿ", 2 );
BGL_DEFINE_STRING(BGl_string4967z00zz__unicodez00, BgL_bgl_string4967za700za7za7_5260za7, "/tmp/bigloo/runtime/Llib/unicode.scm", 36 );
BGL_DEFINE_STRING(BGl_string4968z00zz__unicodez00, BgL_bgl_string4968za700za7za7_5261za7, "_make-ucs2-string", 17 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_8bitszd2ze3utf8zd2envze3zz__unicodez00, BgL_bgl_za7628bitsza7d2za7e3ut5262za7, BGl_z628bitszd2ze3utf8z53zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2ze38bitszd2envze3zz__unicodez00, BgL_bgl_za762utf8za7d2za7e38bi5263za7, BGl_z62utf8zd2ze38bitsz53zz__unicodez00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string4969z00zz__unicodez00, BgL_bgl_string4969za700za7za7_5264za7, "vector", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzd2appendzd2fillz12zd2envz12zz__unicodez00, BgL_bgl__utf8za7d2stringza7d5265z00, opt_generic_entry, BGl__utf8zd2stringzd2appendzd2fillz12zc0zz__unicodez00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzf3zd2envzf3zz__unicodez00, BgL_bgl__utf8za7d2stringza7f5266z00, opt_generic_entry, BGl__utf8zd2stringzf3z21zz__unicodez00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string5060z00zz__unicodez00, BgL_bgl_string5060za700za7za7_5267za7, "_utf8-string-append-fill!", 25 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_asciizd2stringzf3zd2envzf3zz__unicodez00, BgL_bgl_za762asciiza7d2strin5268z00, BGl_z62asciizd2stringzf3z43zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5061z00zz__unicodez00, BgL_bgl_string5061za700za7za7_5269za7, "case_else1146", 13 );
BGL_DEFINE_STRING(BGl_string5063z00zz__unicodez00, BgL_bgl_string5063za700za7za7_5270za7, "utf8-string-append-fill!", 24 );
BGL_DEFINE_STRING(BGl_string5064z00zz__unicodez00, BgL_bgl_string5064za700za7za7_5271za7, "wrong number of arguments: [3..4] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string5065z00zz__unicodez00, BgL_bgl_string5065za700za7za7_5272za7, "&utf8-string-append", 19 );
BGL_DEFINE_STRING(BGl_string5066z00zz__unicodez00, BgL_bgl_string5066za700za7za7_5273za7, "<@anonymous:2690>", 17 );
BGL_DEFINE_STRING(BGl_string5067z00zz__unicodez00, BgL_bgl_string5067za700za7za7_5274za7, "for-each", 8 );
BGL_DEFINE_STRING(BGl_string5068z00zz__unicodez00, BgL_bgl_string5068za700za7za7_5275za7, "list", 4 );
BGL_DEFINE_STRING(BGl_string5069z00zz__unicodez00, BgL_bgl_string5069za700za7za7_5276za7, "<@anonymous:2696>", 17 );
BGL_DEFINE_STRING(BGl_string4970z00zz__unicodez00, BgL_bgl_string4970za700za7za7_5277za7, "case_else1126", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2ze3isozd2latinzd215z12zd2envzf1zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3iso5278za7, BGl_z62utf8zd2ze3isozd2latinzd215z12z41zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string4972z00zz__unicodez00, BgL_bgl_string4972za700za7za7_5279za7, "make-ucs2-string", 16 );
BGL_DEFINE_STRING(BGl_string4973z00zz__unicodez00, BgL_bgl_string4973za700za7za7_5280za7, "wrong number of arguments: [1..2] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string4974z00zz__unicodez00, BgL_bgl_string4974za700za7za7_5281za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string4975z00zz__unicodez00, BgL_bgl_string4975za700za7za7_5282za7, "bucs2", 5 );
BGL_DEFINE_STRING(BGl_string4976z00zz__unicodez00, BgL_bgl_string4976za700za7za7_5283za7, "&ucs2-string-length", 19 );
BGL_DEFINE_STRING(BGl_string4977z00zz__unicodez00, BgL_bgl_string4977za700za7za7_5284za7, "ucs2string", 10 );
BGL_DEFINE_STRING(BGl_string4978z00zz__unicodez00, BgL_bgl_string4978za700za7za7_5285za7, "index out of range [0..", 23 );
BGL_DEFINE_STRING(BGl_string4979z00zz__unicodez00, BgL_bgl_string4979za700za7za7_5286za7, "]", 1 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringze3zf3zd2envz10zz__unicodez00, BgL_bgl_za762ucs2za7d2string5287z00, BGl_z62ucs2zd2stringze3zf3za0zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_subucs2zd2stringzd2urzd2envzd2zz__unicodez00, BgL_bgl_za762subucs2za7d2str5288z00, BGl_z62subucs2zd2stringzd2urz62zz__unicodez00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2ze3isozd2latinzd2envz31zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3iso5289za7, BGl_z62utf8zd2ze3isozd2latinz81zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5070z00zz__unicodez00, BgL_bgl_string5070za700za7za7_5290za7, "_utf8-substring", 15 );
BGL_DEFINE_STRING(BGl_string5071z00zz__unicodez00, BgL_bgl_string5071za700za7za7_5291za7, "case_else1151", 13 );
BGL_DEFINE_STRING(BGl_string5073z00zz__unicodez00, BgL_bgl_string5073za700za7za7_5292za7, "utf8-substring", 14 );
BGL_DEFINE_STRING(BGl_string5074z00zz__unicodez00, BgL_bgl_string5074za700za7za7_5293za7, "wrong number of arguments: [2..3] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string5075z00zz__unicodez00, BgL_bgl_string5075za700za7za7_5294za7, "Illegal start index \"", 21 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2cizc3zd3zf3zd2envz31zz__unicodez00, BgL_bgl_za762ucs2za7d2string5295z00, BGl_z62ucs2zd2stringzd2cizc3zd3zf3z81zz__unicodez00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string5076z00zz__unicodez00, BgL_bgl_string5076za700za7za7_5296za7, "\"", 1 );
BGL_DEFINE_STRING(BGl_string5077z00zz__unicodez00, BgL_bgl_string5077za700za7za7_5297za7, "Illegal end index \"", 19 );
BGL_DEFINE_STRING(BGl_string5078z00zz__unicodez00, BgL_bgl_string5078za700za7za7_5298za7, "error-ill", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2ze3isozd2latinzd215zd2envze3zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3iso5299za7, BGl_z62utf8zd2ze3isozd2latinzd215z53zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5079z00zz__unicodez00, BgL_bgl_string5079za700za7za7_5300za7, "Illegal character \"~x\" at index ~a", 34 );
BGL_DEFINE_STRING(BGl_string4981z00zz__unicodez00, BgL_bgl_string4981za700za7za7_5301za7, "ucs2-string-ref", 15 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2ze3utf8zd2stringzd2envze3zz__unicodez00, BgL_bgl_za762ucs2za7d2string5302z00, BGl_z62ucs2zd2stringzd2ze3utf8zd2stringz53zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string4982z00zz__unicodez00, BgL_bgl_string4982za700za7za7_5303za7, "&ucs2-string-ref", 16 );
BGL_DEFINE_STRING(BGl_string4984z00zz__unicodez00, BgL_bgl_string4984za700za7za7_5304za7, "ucs2-string-set!", 16 );
BGL_DEFINE_STRING(BGl_string4985z00zz__unicodez00, BgL_bgl_string4985za700za7za7_5305za7, "&ucs2-string-set!", 17 );
BGL_DEFINE_STRING(BGl_string4986z00zz__unicodez00, BgL_bgl_string4986za700za7za7_5306za7, "&ucs2-string-ref-ur", 19 );
BGL_DEFINE_STRING(BGl_string4987z00zz__unicodez00, BgL_bgl_string4987za700za7za7_5307za7, "&ucs2-string-set-ur!", 20 );
BGL_DEFINE_STRING(BGl_string4988z00zz__unicodez00, BgL_bgl_string4988za700za7za7_5308za7, "&ucs2-string=?", 14 );
BGL_DEFINE_STRING(BGl_string4989z00zz__unicodez00, BgL_bgl_string4989za700za7za7_5309za7, "&ucs2-string-ci=?", 17 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzd2leftzd2replacementzf3zd2envzf3zz__unicodez00, BgL_bgl_za762utf8za7d2string5310z00, BGl_z62utf8zd2stringzd2leftzd2replacementzf3z43zz__unicodez00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2refzd2urzd2envz00zz__unicodez00, BgL_bgl_za762ucs2za7d2string5311z00, BGl_z62ucs2zd2stringzd2refzd2urzb0zz__unicodez00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2ze3listzd2envz31zz__unicodez00, BgL_bgl_za762ucs2za7d2string5312z00, BGl_z62ucs2zd2stringzd2ze3listz81zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5080z00zz__unicodez00, BgL_bgl_string5080za700za7za7_5313za7, "utf8->8bits", 11 );
BGL_DEFINE_STRING(BGl_string5081z00zz__unicodez00, BgL_bgl_string5081za700za7za7_5314za7, "error-too-short~0", 17 );
BGL_DEFINE_STRING(BGl_string5082z00zz__unicodez00, BgL_bgl_string5082za700za7za7_5315za7, "String too short", 16 );
BGL_DEFINE_STRING(BGl_string5083z00zz__unicodez00, BgL_bgl_string5083za700za7za7_5316za7, "error-subtable", 14 );
BGL_DEFINE_STRING(BGl_string5084z00zz__unicodez00, BgL_bgl_string5084za700za7za7_5317za7, "Cannot encode at index ", 23 );
BGL_DEFINE_STRING(BGl_string5085z00zz__unicodez00, BgL_bgl_string5085za700za7za7_5318za7, "table->8bits~0", 14 );
BGL_DEFINE_STRING(BGl_string5086z00zz__unicodez00, BgL_bgl_string5086za700za7za7_5319za7, "liip", 4 );
BGL_DEFINE_STRING(BGl_string5087z00zz__unicodez00, BgL_bgl_string5087za700za7za7_5320za7, "&utf8->8bits", 12 );
BGL_DEFINE_STRING(BGl_string5088z00zz__unicodez00, BgL_bgl_string5088za700za7za7_5321za7, "utf8->8bits!", 12 );
BGL_DEFINE_STRING(BGl_string5089z00zz__unicodez00, BgL_bgl_string5089za700za7za7_5322za7, "&utf8->8bits!", 13 );
BGL_DEFINE_STRING(BGl_string4990z00zz__unicodez00, BgL_bgl_string4990za700za7za7_5323za7, "&ucs2-string<?", 14 );
BGL_DEFINE_STRING(BGl_string4991z00zz__unicodez00, BgL_bgl_string4991za700za7za7_5324za7, "&ucs2-string>?", 14 );
BGL_DEFINE_STRING(BGl_string4992z00zz__unicodez00, BgL_bgl_string4992za700za7za7_5325za7, "&ucs2-string<=?", 15 );
BGL_DEFINE_STRING(BGl_string4993z00zz__unicodez00, BgL_bgl_string4993za700za7za7_5326za7, "&ucs2-string>=?", 15 );
BGL_DEFINE_STRING(BGl_string4994z00zz__unicodez00, BgL_bgl_string4994za700za7za7_5327za7, "&ucs2-string-ci<?", 17 );
BGL_DEFINE_STRING(BGl_string4995z00zz__unicodez00, BgL_bgl_string4995za700za7za7_5328za7, "&ucs2-string-ci>?", 17 );
BGL_DEFINE_STRING(BGl_string4996z00zz__unicodez00, BgL_bgl_string4996za700za7za7_5329za7, "&ucs2-string-ci<=?", 18 );
BGL_DEFINE_STRING(BGl_string4997z00zz__unicodez00, BgL_bgl_string4997za700za7za7_5330za7, "&ucs2-string-ci>=?", 18 );
BGL_DEFINE_STRING(BGl_string4998z00zz__unicodez00, BgL_bgl_string4998za700za7za7_5331za7, "subucs2-string", 14 );
BGL_DEFINE_STRING(BGl_string4999z00zz__unicodez00, BgL_bgl_string4999za700za7za7_5332za7, "Illegal index", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzf3zd2envzf3zz__unicodez00, BgL_bgl_za762ucs2za7d2string5333z00, BGl_z62ucs2zd2stringzf3z43zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5090z00zz__unicodez00, BgL_bgl_string5090za700za7za7_5334za7, "utf8->iso-latin", 15 );
BGL_DEFINE_STRING(BGl_string5091z00zz__unicodez00, BgL_bgl_string5091za700za7za7_5335za7, "&utf8->iso-latin", 16 );
BGL_DEFINE_STRING(BGl_string5092z00zz__unicodez00, BgL_bgl_string5092za700za7za7_5336za7, "utf8->iso-latin!", 16 );
BGL_DEFINE_STRING(BGl_string5093z00zz__unicodez00, BgL_bgl_string5093za700za7za7_5337za7, "&utf8->iso-latin!", 17 );
BGL_DEFINE_STRING(BGl_string5094z00zz__unicodez00, BgL_bgl_string5094za700za7za7_5338za7, "utf8->iso-latin-15", 18 );
BGL_DEFINE_STRING(BGl_string5095z00zz__unicodez00, BgL_bgl_string5095za700za7za7_5339za7, "&utf8->iso-latin-15", 19 );
BGL_DEFINE_STRING(BGl_string5096z00zz__unicodez00, BgL_bgl_string5096za700za7za7_5340za7, "utf8->iso-latin-15!", 19 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2cizc3zf3zd2envze2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5341z00, BGl_z62ucs2zd2stringzd2cizc3zf3z52zz__unicodez00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string5097z00zz__unicodez00, BgL_bgl_string5097za700za7za7_5342za7, "&utf8->iso-latin-15!", 20 );
BGL_DEFINE_STRING(BGl_string5098z00zz__unicodez00, BgL_bgl_string5098za700za7za7_5343za7, "&utf8->cp1252", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzd2ze3ucs2zd2stringzd2envze3zz__unicodez00, BgL_bgl_za762utf8za7d2string5344z00, BGl_z62utf8zd2stringzd2ze3ucs2zd2stringz53zz__unicodez00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string5099z00zz__unicodez00, BgL_bgl_string5099za700za7za7_5345za7, "&utf8->cp1252!", 14 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2upcasez12zd2envzc0zz__unicodez00, BgL_bgl_za762ucs2za7d2string5346z00, BGl_z62ucs2zd2stringzd2upcasez12z70zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ucs2zd2stringzd2lengthzd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5347z00, BGl_z62ucs2zd2stringzd2lengthz62zz__unicodez00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2stringzd2appendza2zd2envz70zz__unicodez00, BgL_bgl_za762utf8za7d2string5348z00, va_generic_entry, BGl_z62utf8zd2stringzd2appendza2zc0zz__unicodez00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_utf8zd2charzd2siza7ezd2envz75zz__unicodez00, BgL_bgl_za762utf8za7d2charza7d5349za7, BGl_z62utf8zd2charzd2siza7ezc5zz__unicodez00, 0L, BUNSPEC, 1);

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_PROCEDURE(BGl_utf8zd2charzd2siza7ezd2envz75zz__unicodez00, BgL_bgl_za762utf8za7d2charza7d5349za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzd2appendza2zd2envz70zz__unicodez00, BgL_bgl_za762utf8za7d2string5348z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2lengthzd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5347z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2upcasez12zd2envzc0zz__unicodez00, BgL_bgl_za762ucs2za7d2string5346z00);
BGL_BIND_STRING(BGl_string5099z00zz__unicodez00, BgL_bgl_string5099za700za7za7_5345za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzd2ze3ucs2zd2stringzd2envze3zz__unicodez00, BgL_bgl_za762utf8za7d2string5344z00);
BGL_BIND_STRING(BGl_string5098z00zz__unicodez00, BgL_bgl_string5098za700za7za7_5343za7);
BGL_BIND_STRING(BGl_string5097z00zz__unicodez00, BgL_bgl_string5097za700za7za7_5342za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2cizc3zf3zd2envze2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5341z00);
BGL_BIND_STRING(BGl_string5096z00zz__unicodez00, BgL_bgl_string5096za700za7za7_5340za7);
BGL_BIND_STRING(BGl_string5095z00zz__unicodez00, BgL_bgl_string5095za700za7za7_5339za7);
BGL_BIND_STRING(BGl_string5094z00zz__unicodez00, BgL_bgl_string5094za700za7za7_5338za7);
BGL_BIND_STRING(BGl_string5093z00zz__unicodez00, BgL_bgl_string5093za700za7za7_5337za7);
BGL_BIND_STRING(BGl_string5092z00zz__unicodez00, BgL_bgl_string5092za700za7za7_5336za7);
BGL_BIND_STRING(BGl_string5091z00zz__unicodez00, BgL_bgl_string5091za700za7za7_5335za7);
BGL_BIND_STRING(BGl_string5090z00zz__unicodez00, BgL_bgl_string5090za700za7za7_5334za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzf3zd2envzf3zz__unicodez00, BgL_bgl_za762ucs2za7d2string5333z00);
BGL_BIND_STRING(BGl_string4999z00zz__unicodez00, BgL_bgl_string4999za700za7za7_5332za7);
BGL_BIND_STRING(BGl_string4998z00zz__unicodez00, BgL_bgl_string4998za700za7za7_5331za7);
BGL_BIND_STRING(BGl_string4997z00zz__unicodez00, BgL_bgl_string4997za700za7za7_5330za7);
BGL_BIND_STRING(BGl_string4996z00zz__unicodez00, BgL_bgl_string4996za700za7za7_5329za7);
BGL_BIND_STRING(BGl_string4995z00zz__unicodez00, BgL_bgl_string4995za700za7za7_5328za7);
BGL_BIND_STRING(BGl_string4994z00zz__unicodez00, BgL_bgl_string4994za700za7za7_5327za7);
BGL_BIND_STRING(BGl_string4993z00zz__unicodez00, BgL_bgl_string4993za700za7za7_5326za7);
BGL_BIND_STRING(BGl_string4992z00zz__unicodez00, BgL_bgl_string4992za700za7za7_5325za7);
BGL_BIND_STRING(BGl_string4991z00zz__unicodez00, BgL_bgl_string4991za700za7za7_5324za7);
BGL_BIND_STRING(BGl_string4990z00zz__unicodez00, BgL_bgl_string4990za700za7za7_5323za7);
BGL_BIND_STRING(BGl_string5089z00zz__unicodez00, BgL_bgl_string5089za700za7za7_5322za7);
BGL_BIND_STRING(BGl_string5088z00zz__unicodez00, BgL_bgl_string5088za700za7za7_5321za7);
BGL_BIND_STRING(BGl_string5087z00zz__unicodez00, BgL_bgl_string5087za700za7za7_5320za7);
BGL_BIND_STRING(BGl_string5086z00zz__unicodez00, BgL_bgl_string5086za700za7za7_5319za7);
BGL_BIND_STRING(BGl_string5085z00zz__unicodez00, BgL_bgl_string5085za700za7za7_5318za7);
BGL_BIND_STRING(BGl_string5084z00zz__unicodez00, BgL_bgl_string5084za700za7za7_5317za7);
BGL_BIND_STRING(BGl_string5083z00zz__unicodez00, BgL_bgl_string5083za700za7za7_5316za7);
BGL_BIND_STRING(BGl_string5082z00zz__unicodez00, BgL_bgl_string5082za700za7za7_5315za7);
BGL_BIND_STRING(BGl_string5081z00zz__unicodez00, BgL_bgl_string5081za700za7za7_5314za7);
BGL_BIND_STRING(BGl_string5080z00zz__unicodez00, BgL_bgl_string5080za700za7za7_5313za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2ze3listzd2envz31zz__unicodez00, BgL_bgl_za762ucs2za7d2string5312z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2refzd2urzd2envz00zz__unicodez00, BgL_bgl_za762ucs2za7d2string5311z00);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzd2leftzd2replacementzf3zd2envzf3zz__unicodez00, BgL_bgl_za762utf8za7d2string5310z00);
BGL_BIND_STRING(BGl_string4989z00zz__unicodez00, BgL_bgl_string4989za700za7za7_5309za7);
BGL_BIND_STRING(BGl_string4988z00zz__unicodez00, BgL_bgl_string4988za700za7za7_5308za7);
BGL_BIND_STRING(BGl_string4987z00zz__unicodez00, BgL_bgl_string4987za700za7za7_5307za7);
BGL_BIND_STRING(BGl_string4986z00zz__unicodez00, BgL_bgl_string4986za700za7za7_5306za7);
BGL_BIND_STRING(BGl_string4985z00zz__unicodez00, BgL_bgl_string4985za700za7za7_5305za7);
BGL_BIND_STRING(BGl_string4984z00zz__unicodez00, BgL_bgl_string4984za700za7za7_5304za7);
BGL_BIND_STRING(BGl_string4982z00zz__unicodez00, BgL_bgl_string4982za700za7za7_5303za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2ze3utf8zd2stringzd2envze3zz__unicodez00, BgL_bgl_za762ucs2za7d2string5302z00);
BGL_BIND_STRING(BGl_string4981z00zz__unicodez00, BgL_bgl_string4981za700za7za7_5301za7);
BGL_BIND_STRING(BGl_string5079z00zz__unicodez00, BgL_bgl_string5079za700za7za7_5300za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2ze3isozd2latinzd215zd2envze3zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3iso5299za7);
BGL_BIND_STRING(BGl_string5078z00zz__unicodez00, BgL_bgl_string5078za700za7za7_5298za7);
BGL_BIND_STRING(BGl_string5077z00zz__unicodez00, BgL_bgl_string5077za700za7za7_5297za7);
BGL_BIND_STRING(BGl_string5076z00zz__unicodez00, BgL_bgl_string5076za700za7za7_5296za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2cizc3zd3zf3zd2envz31zz__unicodez00, BgL_bgl_za762ucs2za7d2string5295z00);
BGL_BIND_STRING(BGl_string5075z00zz__unicodez00, BgL_bgl_string5075za700za7za7_5294za7);
BGL_BIND_STRING(BGl_string5074z00zz__unicodez00, BgL_bgl_string5074za700za7za7_5293za7);
BGL_BIND_STRING(BGl_string5073z00zz__unicodez00, BgL_bgl_string5073za700za7za7_5292za7);
BGL_BIND_STRING(BGl_string5071z00zz__unicodez00, BgL_bgl_string5071za700za7za7_5291za7);
BGL_BIND_STRING(BGl_string5070z00zz__unicodez00, BgL_bgl_string5070za700za7za7_5290za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2ze3isozd2latinzd2envz31zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3iso5289za7);
BGL_BIND_PROCEDURE(BGl_subucs2zd2stringzd2urzd2envzd2zz__unicodez00, BgL_bgl_za762subucs2za7d2str5288z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringze3zf3zd2envz10zz__unicodez00, BgL_bgl_za762ucs2za7d2string5287z00);
BGL_BIND_STRING(BGl_string4979z00zz__unicodez00, BgL_bgl_string4979za700za7za7_5286za7);
BGL_BIND_STRING(BGl_string4978z00zz__unicodez00, BgL_bgl_string4978za700za7za7_5285za7);
BGL_BIND_STRING(BGl_string4977z00zz__unicodez00, BgL_bgl_string4977za700za7za7_5284za7);
BGL_BIND_STRING(BGl_string4976z00zz__unicodez00, BgL_bgl_string4976za700za7za7_5283za7);
BGL_BIND_STRING(BGl_string4975z00zz__unicodez00, BgL_bgl_string4975za700za7za7_5282za7);
BGL_BIND_STRING(BGl_string4974z00zz__unicodez00, BgL_bgl_string4974za700za7za7_5281za7);
BGL_BIND_STRING(BGl_string4973z00zz__unicodez00, BgL_bgl_string4973za700za7za7_5280za7);
BGL_BIND_STRING(BGl_string4972z00zz__unicodez00, BgL_bgl_string4972za700za7za7_5279za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2ze3isozd2latinzd215z12zd2envzf1zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3iso5278za7);
BGL_BIND_STRING(BGl_string4970z00zz__unicodez00, BgL_bgl_string4970za700za7za7_5277za7);
BGL_BIND_STRING(BGl_string5069z00zz__unicodez00, BgL_bgl_string5069za700za7za7_5276za7);
BGL_BIND_STRING(BGl_string5068z00zz__unicodez00, BgL_bgl_string5068za700za7za7_5275za7);
BGL_BIND_STRING(BGl_string5067z00zz__unicodez00, BgL_bgl_string5067za700za7za7_5274za7);
BGL_BIND_STRING(BGl_string5066z00zz__unicodez00, BgL_bgl_string5066za700za7za7_5273za7);
BGL_BIND_STRING(BGl_string5065z00zz__unicodez00, BgL_bgl_string5065za700za7za7_5272za7);
BGL_BIND_STRING(BGl_string5064z00zz__unicodez00, BgL_bgl_string5064za700za7za7_5271za7);
BGL_BIND_STRING(BGl_string5063z00zz__unicodez00, BgL_bgl_string5063za700za7za7_5270za7);
BGL_BIND_STRING(BGl_string5061z00zz__unicodez00, BgL_bgl_string5061za700za7za7_5269za7);
BGL_BIND_PROCEDURE(BGl_asciizd2stringzf3zd2envzf3zz__unicodez00, BgL_bgl_za762asciiza7d2strin5268z00);
BGL_BIND_STRING(BGl_string5060z00zz__unicodez00, BgL_bgl_string5060za700za7za7_5267za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzf3zd2envzf3zz__unicodez00, BgL_bgl__utf8za7d2stringza7f5266z00);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzd2appendzd2fillz12zd2envz12zz__unicodez00, BgL_bgl__utf8za7d2stringza7d5265z00);
BGL_BIND_STRING(BGl_string4969z00zz__unicodez00, BgL_bgl_string4969za700za7za7_5264za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2ze38bitszd2envze3zz__unicodez00, BgL_bgl_za762utf8za7d2za7e38bi5263za7);
BGL_BIND_PROCEDURE(BGl_8bitszd2ze3utf8zd2envze3zz__unicodez00, BgL_bgl_za7628bitsza7d2za7e3ut5262za7);
BGL_BIND_STRING(BGl_string4968z00zz__unicodez00, BgL_bgl_string4968za700za7za7_5261za7);
BGL_BIND_STRING(BGl_string4967z00zz__unicodez00, BgL_bgl_string4967za700za7za7_5260za7);
BGL_BIND_STRING(BGl_string4966z00zz__unicodez00, BgL_bgl_string4966za700za7za7_5259za7);
BGL_BIND_STRING(BGl_string4965z00zz__unicodez00, BgL_bgl_string4965za700za7za7_5258za7);
BGL_BIND_STRING(BGl_string4964z00zz__unicodez00, BgL_bgl_string4964za700za7za7_5257za7);
BGL_BIND_STRING(BGl_string4963z00zz__unicodez00, BgL_bgl_string4963za700za7za7_5256za7);
BGL_BIND_STRING(BGl_string4962z00zz__unicodez00, BgL_bgl_string4962za700za7za7_5255za7);
BGL_BIND_STRING(BGl_string4961z00zz__unicodez00, BgL_bgl_string4961za700za7za7_5254za7);
BGL_BIND_STRING(BGl_string4960z00zz__unicodez00, BgL_bgl_string4960za700za7za7_5253za7);
BGL_BIND_STRING(BGl_string5059z00zz__unicodez00, BgL_bgl_string5059za700za7za7_5252za7);
BGL_BIND_STRING(BGl_string5058z00zz__unicodez00, BgL_bgl_string5058za700za7za7_5251za7);
BGL_BIND_STRING(BGl_string5057z00zz__unicodez00, BgL_bgl_string5057za700za7za7_5250za7);
BGL_BIND_STRING(BGl_string5056z00zz__unicodez00, BgL_bgl_string5056za700za7za7_5249za7);
BGL_BIND_STRING(BGl_string5055z00zz__unicodez00, BgL_bgl_string5055za700za7za7_5248za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2ze3cp1252zd2envze3zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3cp15247za7);
BGL_BIND_PROCEDURE(BGl_cp1252zd2ze3utf8zd2envze3zz__unicodez00, BgL_bgl_za762cp1252za7d2za7e3u5246za7);
BGL_BIND_STRING(BGl_string5054z00zz__unicodez00, BgL_bgl_string5054za700za7za7_5245za7);
BGL_BIND_STRING(BGl_string5053z00zz__unicodez00, BgL_bgl_string5053za700za7za7_5244za7);
BGL_BIND_STRING(BGl_string5052z00zz__unicodez00, BgL_bgl_string5052za700za7za7_5243za7);
BGL_BIND_STRING(BGl_string5051z00zz__unicodez00, BgL_bgl_string5051za700za7za7_5242za7);
BGL_BIND_STRING(BGl_string5050z00zz__unicodez00, BgL_bgl_string5050za700za7za7_5241za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2envz00zz__unicodez00, BgL_bgl_za762ucs2za7d2string5240z00);
BGL_BIND_STRING(BGl_string4959z00zz__unicodez00, BgL_bgl_string4959za700za7za7_5239za7);
BGL_BIND_STRING(BGl_string4958z00zz__unicodez00, BgL_bgl_string4958za700za7za7_5238za7);
BGL_BIND_STRING(BGl_string4957z00zz__unicodez00, BgL_bgl_string4957za700za7za7_5237za7);
BGL_BIND_STRING(BGl_string4956z00zz__unicodez00, BgL_bgl_string4956za700za7za7_5236za7);
BGL_BIND_STRING(BGl_string4955z00zz__unicodez00, BgL_bgl_string4955za700za7za7_5235za7);
BGL_BIND_STRING(BGl_string4954z00zz__unicodez00, BgL_bgl_string4954za700za7za7_5234za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2fillz12zd2envzc0zz__unicodez00, BgL_bgl_za762ucs2za7d2string5233z00);
BGL_BIND_STRING(BGl_string4953z00zz__unicodez00, BgL_bgl_string4953za700za7za7_5232za7);
BGL_BIND_STRING(BGl_string4952z00zz__unicodez00, BgL_bgl_string4952za700za7za7_5231za7);
BGL_BIND_STRING(BGl_string4951z00zz__unicodez00, BgL_bgl_string4951za700za7za7_5230za7);
BGL_BIND_STRING(BGl_string4950z00zz__unicodez00, BgL_bgl_string4950za700za7za7_5229za7);
BGL_BIND_STRING(BGl_string5047z00zz__unicodez00, BgL_bgl_string5047za700za7za7_5228za7);
BGL_BIND_STRING(BGl_string5045z00zz__unicodez00, BgL_bgl_string5045za700za7za7_5227za7);
BGL_BIND_STRING(BGl_string5043z00zz__unicodez00, BgL_bgl_string5043za700za7za7_5226za7);
BGL_BIND_STRING(BGl_string5042z00zz__unicodez00, BgL_bgl_string5042za700za7za7_5225za7);
BGL_BIND_STRING(BGl_string5041z00zz__unicodez00, BgL_bgl_string5041za700za7za7_5224za7);
BGL_BIND_STRING(BGl_string5040z00zz__unicodez00, BgL_bgl_string5040za700za7za7_5223za7);
BGL_BIND_STRING(BGl_string4949z00zz__unicodez00, BgL_bgl_string4949za700za7za7_5222za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzd2lengthzd2envzd2zz__unicodez00, BgL_bgl_za762utf8za7d2string5221z00);
BGL_BIND_STRING(BGl_string4948z00zz__unicodez00, BgL_bgl_string4948za700za7za7_5220za7);
BGL_BIND_STRING(BGl_string4947z00zz__unicodez00, BgL_bgl_string4947za700za7za7_5219za7);
BGL_BIND_STRING(BGl_string4946z00zz__unicodez00, BgL_bgl_string4946za700za7za7_5218za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2cize3zf3zd2envzc2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5217z00);
BGL_BIND_STRING(BGl_string4945z00zz__unicodez00, BgL_bgl_string4945za700za7za7_5216za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzd2minimalzd2charsetzd2envz00zz__unicodez00, BgL_bgl_za762utf8za7d2string5215z00);
BGL_BIND_STRING(BGl_string4944z00zz__unicodez00, BgL_bgl_string4944za700za7za7_5214za7);
BGL_BIND_STRING(BGl_string4943z00zz__unicodez00, BgL_bgl_string4943za700za7za7_5213za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2cize3zd3zf3zd2envz11zz__unicodez00, BgL_bgl_za762ucs2za7d2string5212z00);
BGL_BIND_STRING(BGl_string4942z00zz__unicodez00, BgL_bgl_string4942za700za7za7_5211za7);
BGL_BIND_STRING(BGl_string4941z00zz__unicodez00, BgL_bgl_string4941za700za7za7_5210za7);
BGL_BIND_STRING(BGl_string4940z00zz__unicodez00, BgL_bgl_string4940za700za7za7_5209za7);
BGL_BIND_STRING(BGl_string5039z00zz__unicodez00, BgL_bgl_string5039za700za7za7_5208za7);
BGL_BIND_STRING(BGl_string5038z00zz__unicodez00, BgL_bgl_string5038za700za7za7_5207za7);
BGL_BIND_STRING(BGl_string5118z00zz__unicodez00, BgL_bgl_string5118za700za7za7_5206za7);
BGL_BIND_STRING(BGl_string5036z00zz__unicodez00, BgL_bgl_string5036za700za7za7_5205za7);
BGL_BIND_STRING(BGl_string5117z00zz__unicodez00, BgL_bgl_string5117za700za7za7_5204za7);
BGL_BIND_STRING(BGl_string5035z00zz__unicodez00, BgL_bgl_string5035za700za7za7_5203za7);
BGL_BIND_STRING(BGl_string5116z00zz__unicodez00, BgL_bgl_string5116za700za7za7_5202za7);
BGL_BIND_STRING(BGl_string5034z00zz__unicodez00, BgL_bgl_string5034za700za7za7_5201za7);
BGL_BIND_STRING(BGl_string5115z00zz__unicodez00, BgL_bgl_string5115za700za7za7_5200za7);
BGL_BIND_PROCEDURE(BGl_makezd2ucs2zd2stringzd2envzd2zz__unicodez00, BgL_bgl__makeza7d2ucs2za7d2s5199z00);
BGL_BIND_STRING(BGl_string5114z00zz__unicodez00, BgL_bgl_string5114za700za7za7_5198za7);
BGL_BIND_STRING(BGl_string5032z00zz__unicodez00, BgL_bgl_string5032za700za7za7_5197za7);
BGL_BIND_STRING(BGl_string5031z00zz__unicodez00, BgL_bgl_string5031za700za7za7_5196za7);
BGL_BIND_STRING(BGl_string5112z00zz__unicodez00, BgL_bgl_string5112za700za7za7_5195za7);
BGL_BIND_STRING(BGl_string5030z00zz__unicodez00, BgL_bgl_string5030za700za7za7_5194za7);
BGL_BIND_STRING(BGl_string5110z00zz__unicodez00, BgL_bgl_string5110za700za7za7_5193za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2appendzd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5192z00);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzd2encodezd2envzd2zz__unicodez00, BgL_bgl__utf8za7d2stringza7d5191z00);
BGL_BIND_PROCEDURE(BGl_utf8zd2ze3isozd2latinz12zd2envz23zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3iso5190za7);
BGL_BIND_PROCEDURE(BGl_isozd2latinzd2ze3utf8zd2envz31zz__unicodez00, BgL_bgl_za762isoza7d2latinza7d5189za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2substringzd2urzd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2substr5188z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2setz12zd2envzc0zz__unicodez00, BgL_bgl_za762ucs2za7d2string5187z00);
BGL_BIND_STRING(BGl_string4939z00zz__unicodez00, BgL_bgl_string4939za700za7za7_5186za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzd2indexzd2ze3stringzd2indexzd2envz31zz__unicodez00, BgL_bgl_za762utf8za7d2string5185z00);
BGL_BIND_STRING(BGl_string5029z00zz__unicodez00, BgL_bgl_string5029za700za7za7_5184za7);
BGL_BIND_STRING(BGl_string5109z00zz__unicodez00, BgL_bgl_string5109za700za7za7_5183za7);
BGL_BIND_STRING(BGl_string5027z00zz__unicodez00, BgL_bgl_string5027za700za7za7_5182za7);
BGL_BIND_STRING(BGl_string5108z00zz__unicodez00, BgL_bgl_string5108za700za7za7_5181za7);
BGL_BIND_STRING(BGl_string5026z00zz__unicodez00, BgL_bgl_string5026za700za7za7_5180za7);
BGL_BIND_STRING(BGl_string5025z00zz__unicodez00, BgL_bgl_string5025za700za7za7_5179za7);
BGL_BIND_STRING(BGl_string5106z00zz__unicodez00, BgL_bgl_string5106za700za7za7_5178za7);
BGL_BIND_STRING(BGl_string5024z00zz__unicodez00, BgL_bgl_string5024za700za7za7_5177za7);
BGL_BIND_STRING(BGl_string5105z00zz__unicodez00, BgL_bgl_string5105za700za7za7_5176za7);
BGL_BIND_STRING(BGl_string5023z00zz__unicodez00, BgL_bgl_string5023za700za7za7_5175za7);
BGL_BIND_STRING(BGl_string5104z00zz__unicodez00, BgL_bgl_string5104za700za7za7_5174za7);
BGL_BIND_STRING(BGl_string5022z00zz__unicodez00, BgL_bgl_string5022za700za7za7_5173za7);
BGL_BIND_STRING(BGl_string5103z00zz__unicodez00, BgL_bgl_string5103za700za7za7_5172za7);
BGL_BIND_STRING(BGl_string5021z00zz__unicodez00, BgL_bgl_string5021za700za7za7_5171za7);
BGL_BIND_STRING(BGl_string5102z00zz__unicodez00, BgL_bgl_string5102za700za7za7_5170za7);
BGL_BIND_STRING(BGl_string5020z00zz__unicodez00, BgL_bgl_string5020za700za7za7_5169za7);
BGL_BIND_STRING(BGl_string5101z00zz__unicodez00, BgL_bgl_string5101za700za7za7_5168za7);
BGL_BIND_STRING(BGl_string5100z00zz__unicodez00, BgL_bgl_string5100za700za7za7_5167za7);
BGL_BIND_PROCEDURE(BGl_inversezd2utf8zd2tablezd2envzd2zz__unicodez00, BgL_bgl_za762inverseza7d2utf5166z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2downcasezd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5165z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd3zf3zd2envz20zz__unicodez00, BgL_bgl_za762ucs2za7d2string5164z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzc3zd3zf3zd2envze3zz__unicodez00, BgL_bgl_za762ucs2za7d2string5163z00);
BGL_BIND_STRING(BGl_string5019z00zz__unicodez00, BgL_bgl_string5019za700za7za7_5162za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2upcasezd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5161z00);
BGL_BIND_STRING(BGl_string5018z00zz__unicodez00, BgL_bgl_string5018za700za7za7_5160za7);
BGL_BIND_STRING(BGl_string5017z00zz__unicodez00, BgL_bgl_string5017za700za7za7_5159za7);
BGL_BIND_STRING(BGl_string5016z00zz__unicodez00, BgL_bgl_string5016za700za7za7_5158za7);
BGL_BIND_STRING(BGl_string5015z00zz__unicodez00, BgL_bgl_string5015za700za7za7_5157za7);
BGL_BIND_STRING(BGl_string5014z00zz__unicodez00, BgL_bgl_string5014za700za7za7_5156za7);
BGL_BIND_STRING(BGl_string5013z00zz__unicodez00, BgL_bgl_string5013za700za7za7_5155za7);
BGL_BIND_STRING(BGl_string5012z00zz__unicodez00, BgL_bgl_string5012za700za7za7_5154za7);
BGL_BIND_STRING(BGl_string5011z00zz__unicodez00, BgL_bgl_string5011za700za7za7_5153za7);
BGL_BIND_STRING(BGl_string5010z00zz__unicodez00, BgL_bgl_string5010za700za7za7_5152za7);
BGL_BIND_PROCEDURE(BGl_stringzd2minimalzd2charsetzd2envzd2zz__unicodez00, BgL_bgl_za762stringza7d2mini5151z00);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzd2rightzd2replacementzf3zd2envzf3zz__unicodez00, BgL_bgl_za762utf8za7d2string5150z00);
BGL_BIND_STRING(BGl_string5009z00zz__unicodez00, BgL_bgl_string5009za700za7za7_5149za7);
BGL_BIND_STRING(BGl_string5008z00zz__unicodez00, BgL_bgl_string5008za700za7za7_5148za7);
BGL_BIND_STRING(BGl_string5007z00zz__unicodez00, BgL_bgl_string5007za700za7za7_5147za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2minimalzd2charsetzd2envz00zz__unicodez00, BgL_bgl_za762ucs2za7d2string5146z00);
BGL_BIND_STRING(BGl_string5006z00zz__unicodez00, BgL_bgl_string5006za700za7za7_5145za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2refzd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5144z00);
BGL_BIND_STRING(BGl_string5005z00zz__unicodez00, BgL_bgl_string5005za700za7za7_5143za7);
BGL_BIND_STRING(BGl_string5004z00zz__unicodez00, BgL_bgl_string5004za700za7za7_5142za7);
BGL_BIND_STRING(BGl_string5003z00zz__unicodez00, BgL_bgl_string5003za700za7za7_5141za7);
BGL_BIND_STRING(BGl_string5002z00zz__unicodez00, BgL_bgl_string5002za700za7za7_5140za7);
BGL_BIND_STRING(BGl_string5001z00zz__unicodez00, BgL_bgl_string5001za700za7za7_5139za7);
BGL_BIND_STRING(BGl_string5000z00zz__unicodez00, BgL_bgl_string5000za700za7za7_5138za7);
BGL_BIND_PROCEDURE(BGl_subucs2zd2stringzd2envz00zz__unicodez00, BgL_bgl_za762subucs2za7d2str5137z00);
BGL_BIND_PROCEDURE(BGl_utf8zd2normaliza7ezd2utf16zd2envz75zz__unicodez00, BgL_bgl__utf8za7d2normaliza75136z00);
BGL_BIND_PROCEDURE(BGl_isozd2latinzd2ze3utf8z12zd2envz23zz__unicodez00, BgL_bgl_za762isoza7d2latinza7d5135za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2cizd3zf3zd2envzf2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5134z00);
BGL_BIND_PROCEDURE(BGl_utf8zd2ze3cp1252z12zd2envzf1zz__unicodez00, BgL_bgl_za762utf8za7d2za7e3cp15133za7);
BGL_BIND_PROCEDURE(BGl_cp1252zd2ze3utf8z12zd2envzf1zz__unicodez00, BgL_bgl_za762cp1252za7d2za7e3u5132za7);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2downcasez12zd2envzc0zz__unicodez00, BgL_bgl_za762ucs2za7d2string5131z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringze3zd3zf3zd2envzc3zz__unicodez00, BgL_bgl_za762ucs2za7d2string5130z00);
BGL_BIND_PROCEDURE(BGl_stringzd2indexzd2ze3utf8zd2stringzd2indexzd2envz31zz__unicodez00, BgL_bgl_za762stringza7d2inde5129z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2copyzd2envzd2zz__unicodez00, BgL_bgl_za762ucs2za7d2string5128z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzc3zf3zd2envz30zz__unicodez00, BgL_bgl_za762ucs2za7d2string5127z00);
BGL_BIND_PROCEDURE(BGl_utf8zd2substringzd2envz00zz__unicodez00, BgL_bgl__utf8za7d2substrin5126za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzd2appendzd2envzd2zz__unicodez00, BgL_bgl_za762utf8za7d2string5125z00);
BGL_BIND_PROCEDURE(BGl_utf8zd2ze38bitsz12zd2envzf1zz__unicodez00, BgL_bgl_za762utf8za7d2za7e38bi5124za7);
BGL_BIND_PROCEDURE(BGl_8bitszd2ze3utf8z12zd2envzf1zz__unicodez00, BgL_bgl_za7628bitsza7d2za7e3ut5123za7);
BGL_BIND_PROCEDURE(BGl_utf8zd2stringzd2refzd2envzd2zz__unicodez00, BgL_bgl_za762utf8za7d2string5122z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2stringzd2setzd2urz12zd2envz12zz__unicodez00, BgL_bgl_za762ucs2za7d2string5121z00);
BGL_BIND_PROCEDURE(BGl_ucs2zd2substringzd2envz00zz__unicodez00, BgL_bgl_za762ucs2za7d2substr5120z00);
BGL_BIND_PROCEDURE(BGl_listzd2ze3ucs2zd2stringzd2envz31zz__unicodez00, BgL_bgl_za762listza7d2za7e3ucs5119za7);
}

/* 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_symbol5072z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol4980z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list5049z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol4983z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_8bitszd2invzd2latinzd215zd2zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4898z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4899z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_vector4937z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_vector5048z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_cp1252zd2invzd2zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol5107z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_8bitszd2invzd2zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol5028z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4900z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4901z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4902z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4903z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4904z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4905z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4906z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4907z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4908z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4909z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol5111z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol5113z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol5033z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol5037z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4910z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4911z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4912z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4913z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4914z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4915z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4916z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4917z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4918z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4919z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol5044z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol5046z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4920z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4921z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4922z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4923z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4924z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4925z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4926z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4927z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4928z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4929z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_cp1252z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4930z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4931z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4932z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4933z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4934z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4935z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4936z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_list4938z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol5062z00zz__unicodez00) );
ADD_ROOT( (void *)(&BGl_symbol4971z00zz__unicodez00) );
#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__unicodez00(long BgL_checksumz00_7793, char * BgL_fromz00_7794)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__unicodez00))
{ 
BGl_requirezd2initializa7ationz75zz__unicodez00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__unicodez00(); 
BGl_cnstzd2initzd2zz__unicodez00(); 
BGl_importedzd2moduleszd2initz00zz__unicodez00(); 
return 
BGl_toplevelzd2initzd2zz__unicodez00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__unicodez00(void)
{
{ /* Llib/unicode.scm 14 */
BGl_list4901z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(144L), 
BCHAR(((unsigned char)'-'))); 
BGl_list4902z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(145L), 
BCHAR(((unsigned char)'-'))); 
BGl_list4903z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(146L), 
BCHAR(((unsigned char)'-'))); 
BGl_list4904z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(147L), 
BCHAR(((unsigned char)'-'))); 
BGl_list4905z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(148L), 
BCHAR(((unsigned char)'-'))); 
BGl_list4906z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(149L), 
BCHAR(((unsigned char)'-'))); 
BGl_list4907z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(152L), 
BCHAR(((unsigned char)'`'))); 
BGl_list4908z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(153L), 
BCHAR(((unsigned char)'\''))); 
BGl_list4909z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(154L), 
BCHAR(((unsigned char)','))); 
BGl_list4910z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(155L), 
BCHAR(((unsigned char)'`'))); 
BGl_list4911z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(164L), 
BCHAR(((unsigned char)'.'))); 
BGl_list4912z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(167L), 
BCHAR(((unsigned char)'.'))); 
BGl_list4913z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(178L), 
BCHAR(((unsigned char)'\''))); 
BGl_list4914z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(179L), 
BCHAR(((unsigned char)'"'))); 
BGl_list4915z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(181L), 
BCHAR(((unsigned char)'`'))); 
BGl_list4916z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(187L), 
BCHAR(((unsigned char)'"'))); 
BGl_list4917z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(184L), 
BCHAR(((unsigned char)'^'))); 
BGl_list4918z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(185L), 
BCHAR(((unsigned char)'<'))); 
BGl_list4919z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(186L), 
BCHAR(((unsigned char)'>'))); 
BGl_list4900z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(128L), 
MAKE_YOUNG_PAIR(BGl_list4901z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4902z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4903z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4904z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4905z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4906z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4907z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4908z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4909z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4910z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4911z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4912z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4913z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4914z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4915z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4916z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4917z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4918z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4919z00zz__unicodez00, BNIL)))))))))))))))))))); 
BGl_list4921z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(131L), 
BCHAR(((unsigned char)'*'))); 
BGl_list4920z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(129L), 
MAKE_YOUNG_PAIR(BGl_list4921z00zz__unicodez00, BNIL)); 
BGl_list4923z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(141L), 
BCHAR(((unsigned char)'('))); 
BGl_list4924z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(142L), 
BCHAR(((unsigned char)')'))); 
BGl_list4922z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(130L), 
MAKE_YOUNG_PAIR(BGl_list4923z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4924z00zz__unicodez00, BNIL))); 
BGl_list4899z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(226L), 
MAKE_YOUNG_PAIR(BGl_list4900z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4920z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4922z00zz__unicodez00, BNIL)))); 
BGl_list4898z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(BGl_list4899z00zz__unicodez00, BNIL); 
BGl_list4928z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(172L), 
BCHAR(((unsigned char)164))); 
BGl_list4927z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(130L), 
MAKE_YOUNG_PAIR(BGl_list4923z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4924z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4928z00zz__unicodez00, BNIL)))); 
BGl_list4926z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(226L), 
MAKE_YOUNG_PAIR(BGl_list4900z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4920z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4927z00zz__unicodez00, BNIL)))); 
BGl_list4930z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(147L), 
BCHAR(((unsigned char)189))); 
BGl_list4931z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(146L), 
BCHAR(((unsigned char)188))); 
BGl_list4932z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(184L), 
BCHAR(((unsigned char)190))); 
BGl_list4933z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(161L), 
BCHAR(((unsigned char)168))); 
BGl_list4934z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(160L), 
BCHAR(((unsigned char)166))); 
BGl_list4935z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(190L), 
BCHAR(((unsigned char)184))); 
BGl_list4936z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(189L), 
BCHAR(((unsigned char)180))); 
BGl_list4929z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(197L), 
MAKE_YOUNG_PAIR(BGl_list4930z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4931z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4932z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4933z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4934z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4935z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4936z00zz__unicodez00, BNIL)))))))); 
BGl_list4925z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(BGl_list4926z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_list4929z00zz__unicodez00, BNIL)); 
BGl_list4938z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(BGl_string4939z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4940z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4941z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4942z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4943z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4944z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4945z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4946z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4947z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4948z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4949z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4950z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4951z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4940z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4952z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4940z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4940z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4953z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4954z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4955z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4956z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4957z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4958z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4959z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4960z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4961z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4962z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4963z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4964z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4940z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4965z00zz__unicodez00, 
MAKE_YOUNG_PAIR(BGl_string4966z00zz__unicodez00, BNIL)))))))))))))))))))))))))))))))); 
BGl_vector4937z00zz__unicodez00 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BGl_list4938z00zz__unicodez00); 
BGl_symbol4971z00zz__unicodez00 = 
bstring_to_symbol(BGl_string4972z00zz__unicodez00); 
BGl_symbol4980z00zz__unicodez00 = 
bstring_to_symbol(BGl_string4981z00zz__unicodez00); 
BGl_symbol4983z00zz__unicodez00 = 
bstring_to_symbol(BGl_string4984z00zz__unicodez00); 
BGl_symbol5028z00zz__unicodez00 = 
bstring_to_symbol(BGl_string5029z00zz__unicodez00); 
BGl_symbol5033z00zz__unicodez00 = 
bstring_to_symbol(BGl_string5034z00zz__unicodez00); 
BGl_symbol5037z00zz__unicodez00 = 
bstring_to_symbol(BGl_string5038z00zz__unicodez00); 
BGl_symbol5044z00zz__unicodez00 = 
bstring_to_symbol(BGl_string5045z00zz__unicodez00); 
BGl_symbol5046z00zz__unicodez00 = 
bstring_to_symbol(BGl_string5047z00zz__unicodez00); 
BGl_list5049z00zz__unicodez00 = 
MAKE_YOUNG_PAIR(
BINT(1L), 
MAKE_YOUNG_PAIR(
BINT(1L), 
MAKE_YOUNG_PAIR(
BINT(1L), 
MAKE_YOUNG_PAIR(
BINT(1L), 
MAKE_YOUNG_PAIR(
BINT(1L), 
MAKE_YOUNG_PAIR(
BINT(1L), 
MAKE_YOUNG_PAIR(
BINT(1L), 
MAKE_YOUNG_PAIR(
BINT(1L), 
MAKE_YOUNG_PAIR(
BINT(2L), 
MAKE_YOUNG_PAIR(
BINT(2L), 
MAKE_YOUNG_PAIR(
BINT(2L), 
MAKE_YOUNG_PAIR(
BINT(2L), 
MAKE_YOUNG_PAIR(
BINT(2L), 
MAKE_YOUNG_PAIR(
BINT(2L), 
MAKE_YOUNG_PAIR(
BINT(3L), 
MAKE_YOUNG_PAIR(
BINT(4L), BNIL)))))))))))))))); 
BGl_vector5048z00zz__unicodez00 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BGl_list5049z00zz__unicodez00); 
BGl_symbol5062z00zz__unicodez00 = 
bstring_to_symbol(BGl_string5063z00zz__unicodez00); 
BGl_symbol5072z00zz__unicodez00 = 
bstring_to_symbol(BGl_string5073z00zz__unicodez00); 
BGl_symbol5107z00zz__unicodez00 = 
bstring_to_symbol(BGl_string5108z00zz__unicodez00); 
BGl_symbol5111z00zz__unicodez00 = 
bstring_to_symbol(BGl_string5112z00zz__unicodez00); 
return ( 
BGl_symbol5113z00zz__unicodez00 = 
bstring_to_symbol(BGl_string5114z00zz__unicodez00), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__unicodez00(void)
{
{ /* Llib/unicode.scm 14 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__unicodez00(void)
{
{ /* Llib/unicode.scm 14 */
BGl_8bitszd2invzd2zz__unicodez00 = BGl_list4898z00zz__unicodez00; 
BGl_8bitszd2invzd2latinzd215zd2zz__unicodez00 = BGl_list4925z00zz__unicodez00; 
BGl_cp1252z00zz__unicodez00 = BGl_vector4937z00zz__unicodez00; 
return ( 
BGl_cp1252zd2invzd2zz__unicodez00 = BFALSE, BUNSPEC) ;} 

}



/* ucs2-string? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzf3z21zz__unicodez00(obj_t BgL_objz00_3)
{
{ /* Llib/unicode.scm 225 */
return 
UCS2_STRINGP(BgL_objz00_3);} 

}



/* &ucs2-string? */
obj_t BGl_z62ucs2zd2stringzf3z43zz__unicodez00(obj_t BgL_envz00_6108, obj_t BgL_objz00_6109)
{
{ /* Llib/unicode.scm 225 */
return 
BBOOL(
BGl_ucs2zd2stringzf3z21zz__unicodez00(BgL_objz00_6109));} 

}



/* _make-ucs2-string */
obj_t BGl__makezd2ucs2zd2stringz00zz__unicodez00(obj_t BgL_env1124z00_7, obj_t BgL_opt1123z00_6)
{
{ /* Llib/unicode.scm 231 */
{ /* Llib/unicode.scm 231 */
 obj_t BgL_g1125z00_7765;
{ 
 obj_t BgL_auxz00_8031;
if(
VECTORP(BgL_opt1123z00_6))
{ /* Llib/unicode.scm 231 */
BgL_auxz00_8031 = BgL_opt1123z00_6
; }  else 
{ 
 obj_t BgL_auxz00_8034;
BgL_auxz00_8034 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(10346L), BGl_string4968z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1123z00_6); 
FAILURE(BgL_auxz00_8034,BFALSE,BFALSE);} 
BgL_g1125z00_7765 = 
VECTOR_REF(BgL_auxz00_8031,0L); } 
{ 

{ /* Llib/unicode.scm 231 */
 long BgL_aux1127z00_7768;
{ 
 obj_t BgL_auxz00_8039;
if(
VECTORP(BgL_opt1123z00_6))
{ /* Llib/unicode.scm 231 */
BgL_auxz00_8039 = BgL_opt1123z00_6
; }  else 
{ 
 obj_t BgL_auxz00_8042;
BgL_auxz00_8042 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(10346L), BGl_string4968z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1123z00_6); 
FAILURE(BgL_auxz00_8042,BFALSE,BFALSE);} 
BgL_aux1127z00_7768 = 
VECTOR_LENGTH(BgL_auxz00_8039); } 
switch( BgL_aux1127z00_7768) { case 1L : 

{ /* Llib/unicode.scm 232 */
 ucs2_t BgL_fillerz00_7769;
{ /* Llib/unicode.scm 232 */
 int BgL_tmpz00_8047;
BgL_tmpz00_8047 = 
(int)(
(
(unsigned char)(
(char)(((unsigned char)' '))))); 
BgL_fillerz00_7769 = 
BGL_INT_TO_UCS2(BgL_tmpz00_8047); } 
{ /* Llib/unicode.scm 231 */

{ /* Llib/unicode.scm 231 */
 int BgL_kz00_7770;
{ /* Llib/unicode.scm 231 */
 obj_t BgL_tmpz00_8053;
if(
INTEGERP(BgL_g1125z00_7765))
{ /* Llib/unicode.scm 231 */
BgL_tmpz00_8053 = BgL_g1125z00_7765
; }  else 
{ 
 obj_t BgL_auxz00_8056;
BgL_auxz00_8056 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(10346L), BGl_string4968z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_g1125z00_7765); 
FAILURE(BgL_auxz00_8056,BFALSE,BFALSE);} 
BgL_kz00_7770 = 
CINT(BgL_tmpz00_8053); } 
return 
make_ucs2_string(BgL_kz00_7770, BgL_fillerz00_7769);} } } break;case 2L : 

{ /* Llib/unicode.scm 231 */
 obj_t BgL_fillerz00_7771;
{ 
 obj_t BgL_auxz00_8062;
if(
VECTORP(BgL_opt1123z00_6))
{ /* Llib/unicode.scm 231 */
BgL_auxz00_8062 = BgL_opt1123z00_6
; }  else 
{ 
 obj_t BgL_auxz00_8065;
BgL_auxz00_8065 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(10346L), BGl_string4968z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1123z00_6); 
FAILURE(BgL_auxz00_8065,BFALSE,BFALSE);} 
BgL_fillerz00_7771 = 
VECTOR_REF(BgL_auxz00_8062,1L); } 
{ /* Llib/unicode.scm 231 */

{ /* Llib/unicode.scm 231 */
 int BgL_kz00_7772; ucs2_t BgL_fillerz00_7773;
{ /* Llib/unicode.scm 231 */
 obj_t BgL_tmpz00_8070;
if(
INTEGERP(BgL_g1125z00_7765))
{ /* Llib/unicode.scm 231 */
BgL_tmpz00_8070 = BgL_g1125z00_7765
; }  else 
{ 
 obj_t BgL_auxz00_8073;
BgL_auxz00_8073 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(10346L), BGl_string4968z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_g1125z00_7765); 
FAILURE(BgL_auxz00_8073,BFALSE,BFALSE);} 
BgL_kz00_7772 = 
CINT(BgL_tmpz00_8070); } 
{ /* Llib/unicode.scm 231 */
 obj_t BgL_tmpz00_8078;
if(
UCS2P(BgL_fillerz00_7771))
{ /* Llib/unicode.scm 231 */
BgL_tmpz00_8078 = BgL_fillerz00_7771
; }  else 
{ 
 obj_t BgL_auxz00_8081;
BgL_auxz00_8081 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(10346L), BGl_string4968z00zz__unicodez00, BGl_string4975z00zz__unicodez00, BgL_fillerz00_7771); 
FAILURE(BgL_auxz00_8081,BFALSE,BFALSE);} 
BgL_fillerz00_7773 = 
CUCS2(BgL_tmpz00_8078); } 
return 
make_ucs2_string(BgL_kz00_7772, BgL_fillerz00_7773);} } } break;
default: 
{ /* Llib/unicode.scm 231 */
 long BgL_arg1226z00_7767;
{ 
 obj_t BgL_auxz00_8087;
if(
VECTORP(BgL_opt1123z00_6))
{ /* Llib/unicode.scm 231 */
BgL_auxz00_8087 = BgL_opt1123z00_6
; }  else 
{ 
 obj_t BgL_auxz00_8090;
BgL_auxz00_8090 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(10346L), BGl_string4970z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1123z00_6); 
FAILURE(BgL_auxz00_8090,BFALSE,BFALSE);} 
BgL_arg1226z00_7767 = 
VECTOR_LENGTH(BgL_auxz00_8087); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4971z00zz__unicodez00, BGl_string4973z00zz__unicodez00, 
BINT(BgL_arg1226z00_7767));} } } } } } 

}



/* make-ucs2-string */
BGL_EXPORTED_DEF obj_t BGl_makezd2ucs2zd2stringz00zz__unicodez00(int BgL_kz00_4, ucs2_t BgL_fillerz00_5)
{
{ /* Llib/unicode.scm 231 */
BGL_TAIL return 
make_ucs2_string(BgL_kz00_4, BgL_fillerz00_5);} 

}



/* ucs2-string */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2zz__unicodez00(obj_t BgL_ucs2sz00_8)
{
{ /* Llib/unicode.scm 238 */
BGL_TAIL return 
BGl_listzd2ze3ucs2zd2stringze3zz__unicodez00(BgL_ucs2sz00_8);} 

}



/* &ucs2-string */
obj_t BGl_z62ucs2zd2stringzb0zz__unicodez00(obj_t BgL_envz00_6110, obj_t BgL_ucs2sz00_6111)
{
{ /* Llib/unicode.scm 238 */
return 
BGl_ucs2zd2stringzd2zz__unicodez00(BgL_ucs2sz00_6111);} 

}



/* ucs2-string-length */
BGL_EXPORTED_DEF int BGl_ucs2zd2stringzd2lengthz00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_9)
{
{ /* Llib/unicode.scm 244 */
return 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_9);} 

}



/* &ucs2-string-length */
obj_t BGl_z62ucs2zd2stringzd2lengthz62zz__unicodez00(obj_t BgL_envz00_6112, obj_t BgL_ucs2zd2stringzd2_6113)
{
{ /* Llib/unicode.scm 244 */
{ /* Llib/unicode.scm 245 */
 int BgL_tmpz00_8102;
{ /* Llib/unicode.scm 245 */
 obj_t BgL_auxz00_8103;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6113))
{ /* Llib/unicode.scm 245 */
BgL_auxz00_8103 = BgL_ucs2zd2stringzd2_6113
; }  else 
{ 
 obj_t BgL_auxz00_8106;
BgL_auxz00_8106 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11033L), BGl_string4976z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6113); 
FAILURE(BgL_auxz00_8106,BFALSE,BFALSE);} 
BgL_tmpz00_8102 = 
BGl_ucs2zd2stringzd2lengthz00zz__unicodez00(BgL_auxz00_8103); } 
return 
BINT(BgL_tmpz00_8102);} } 

}



/* ucs2-string-ref */
BGL_EXPORTED_DEF ucs2_t BGl_ucs2zd2stringzd2refz00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_10, int BgL_kz00_11)
{
{ /* Llib/unicode.scm 250 */
{ /* Llib/unicode.scm 251 */
 bool_t BgL_test5359z00_8112;
{ /* Llib/unicode.scm 251 */
 long BgL_auxz00_8115; long BgL_tmpz00_8113;
BgL_auxz00_8115 = 
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_10)); 
BgL_tmpz00_8113 = 
(long)(BgL_kz00_11); 
BgL_test5359z00_8112 = 
BOUND_CHECK(BgL_tmpz00_8113, BgL_auxz00_8115); } 
if(BgL_test5359z00_8112)
{ /* Llib/unicode.scm 251 */
return 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_10, BgL_kz00_11);}  else 
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1232z00_7774;
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1234z00_7775;
{ /* Llib/unicode.scm 256 */

BgL_arg1234z00_7775 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_10))-1L), 10L); } 
BgL_arg1232z00_7774 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1234z00_7775, BGl_string4979z00zz__unicodez00); } 
{ /* Llib/unicode.scm 253 */
 obj_t BgL_tmpz00_8125;
{ /* Llib/unicode.scm 253 */
 obj_t BgL_aux4477z00_7776;
BgL_aux4477z00_7776 = 
BGl_errorz00zz__errorz00(BGl_symbol4980z00zz__unicodez00, BgL_arg1232z00_7774, 
BINT(BgL_kz00_11)); 
if(
UCS2P(BgL_aux4477z00_7776))
{ /* Llib/unicode.scm 253 */
BgL_tmpz00_8125 = BgL_aux4477z00_7776
; }  else 
{ 
 obj_t BgL_auxz00_8130;
BgL_auxz00_8130 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11452L), BGl_string4981z00zz__unicodez00, BGl_string4975z00zz__unicodez00, BgL_aux4477z00_7776); 
FAILURE(BgL_auxz00_8130,BFALSE,BFALSE);} } 
return 
CUCS2(BgL_tmpz00_8125);} } } } 

}



/* &ucs2-string-ref */
obj_t BGl_z62ucs2zd2stringzd2refz62zz__unicodez00(obj_t BgL_envz00_6114, obj_t BgL_ucs2zd2stringzd2_6115, obj_t BgL_kz00_6116)
{
{ /* Llib/unicode.scm 250 */
{ /* Llib/unicode.scm 251 */
 ucs2_t BgL_tmpz00_8135;
{ /* Llib/unicode.scm 251 */
 int BgL_auxz00_8143; obj_t BgL_auxz00_8136;
{ /* Llib/unicode.scm 251 */
 obj_t BgL_tmpz00_8144;
if(
INTEGERP(BgL_kz00_6116))
{ /* Llib/unicode.scm 251 */
BgL_tmpz00_8144 = BgL_kz00_6116
; }  else 
{ 
 obj_t BgL_auxz00_8147;
BgL_auxz00_8147 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11342L), BGl_string4982z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_kz00_6116); 
FAILURE(BgL_auxz00_8147,BFALSE,BFALSE);} 
BgL_auxz00_8143 = 
CINT(BgL_tmpz00_8144); } 
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6115))
{ /* Llib/unicode.scm 251 */
BgL_auxz00_8136 = BgL_ucs2zd2stringzd2_6115
; }  else 
{ 
 obj_t BgL_auxz00_8139;
BgL_auxz00_8139 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11342L), BGl_string4982z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6115); 
FAILURE(BgL_auxz00_8139,BFALSE,BFALSE);} 
BgL_tmpz00_8135 = 
BGl_ucs2zd2stringzd2refz00zz__unicodez00(BgL_auxz00_8136, BgL_auxz00_8143); } 
return 
BUCS2(BgL_tmpz00_8135);} } 

}



/* ucs2-string-set! */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2setz12z12zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_12, int BgL_kz00_13, ucs2_t BgL_ucs2z00_14)
{
{ /* Llib/unicode.scm 263 */
{ /* Llib/unicode.scm 264 */
 bool_t BgL_test5363z00_8154;
{ /* Llib/unicode.scm 264 */
 long BgL_auxz00_8157; long BgL_tmpz00_8155;
BgL_auxz00_8157 = 
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_12)); 
BgL_tmpz00_8155 = 
(long)(BgL_kz00_13); 
BgL_test5363z00_8154 = 
BOUND_CHECK(BgL_tmpz00_8155, BgL_auxz00_8157); } 
if(BgL_test5363z00_8154)
{ /* Llib/unicode.scm 264 */
return 
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_12, BgL_kz00_13, BgL_ucs2z00_14);}  else 
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1248z00_7777;
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1249z00_7778;
{ /* Llib/unicode.scm 269 */

BgL_arg1249z00_7778 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_12))-1L), 10L); } 
BgL_arg1248z00_7777 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1249z00_7778, BGl_string4979z00zz__unicodez00); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol4983z00zz__unicodez00, BgL_arg1248z00_7777, 
BINT(BgL_kz00_13));} } } 

}



/* &ucs2-string-set! */
obj_t BGl_z62ucs2zd2stringzd2setz12z70zz__unicodez00(obj_t BgL_envz00_6117, obj_t BgL_ucs2zd2stringzd2_6118, obj_t BgL_kz00_6119, obj_t BgL_ucs2z00_6120)
{
{ /* Llib/unicode.scm 263 */
{ /* Llib/unicode.scm 264 */
 ucs2_t BgL_auxz00_8185; int BgL_auxz00_8176; obj_t BgL_auxz00_8169;
{ /* Llib/unicode.scm 264 */
 obj_t BgL_tmpz00_8186;
if(
UCS2P(BgL_ucs2z00_6120))
{ /* Llib/unicode.scm 264 */
BgL_tmpz00_8186 = BgL_ucs2z00_6120
; }  else 
{ 
 obj_t BgL_auxz00_8189;
BgL_auxz00_8189 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11905L), BGl_string4985z00zz__unicodez00, BGl_string4975z00zz__unicodez00, BgL_ucs2z00_6120); 
FAILURE(BgL_auxz00_8189,BFALSE,BFALSE);} 
BgL_auxz00_8185 = 
CUCS2(BgL_tmpz00_8186); } 
{ /* Llib/unicode.scm 264 */
 obj_t BgL_tmpz00_8177;
if(
INTEGERP(BgL_kz00_6119))
{ /* Llib/unicode.scm 264 */
BgL_tmpz00_8177 = BgL_kz00_6119
; }  else 
{ 
 obj_t BgL_auxz00_8180;
BgL_auxz00_8180 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11905L), BGl_string4985z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_kz00_6119); 
FAILURE(BgL_auxz00_8180,BFALSE,BFALSE);} 
BgL_auxz00_8176 = 
CINT(BgL_tmpz00_8177); } 
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6118))
{ /* Llib/unicode.scm 264 */
BgL_auxz00_8169 = BgL_ucs2zd2stringzd2_6118
; }  else 
{ 
 obj_t BgL_auxz00_8172;
BgL_auxz00_8172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11905L), BGl_string4985z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6118); 
FAILURE(BgL_auxz00_8172,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2stringzd2setz12z12zz__unicodez00(BgL_auxz00_8169, BgL_auxz00_8176, BgL_auxz00_8185);} } 

}



/* ucs2-string-ref-ur */
BGL_EXPORTED_DEF ucs2_t BGl_ucs2zd2stringzd2refzd2urzd2zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_15, int BgL_kz00_16)
{
{ /* Llib/unicode.scm 276 */
return 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_15, BgL_kz00_16);} 

}



/* &ucs2-string-ref-ur */
obj_t BGl_z62ucs2zd2stringzd2refzd2urzb0zz__unicodez00(obj_t BgL_envz00_6121, obj_t BgL_ucs2zd2stringzd2_6122, obj_t BgL_kz00_6123)
{
{ /* Llib/unicode.scm 276 */
{ /* Llib/unicode.scm 277 */
 ucs2_t BgL_tmpz00_8196;
{ /* Llib/unicode.scm 277 */
 int BgL_auxz00_8204; obj_t BgL_auxz00_8197;
{ /* Llib/unicode.scm 277 */
 obj_t BgL_tmpz00_8205;
if(
INTEGERP(BgL_kz00_6123))
{ /* Llib/unicode.scm 277 */
BgL_tmpz00_8205 = BgL_kz00_6123
; }  else 
{ 
 obj_t BgL_auxz00_8208;
BgL_auxz00_8208 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(12471L), BGl_string4986z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_kz00_6123); 
FAILURE(BgL_auxz00_8208,BFALSE,BFALSE);} 
BgL_auxz00_8204 = 
CINT(BgL_tmpz00_8205); } 
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6122))
{ /* Llib/unicode.scm 277 */
BgL_auxz00_8197 = BgL_ucs2zd2stringzd2_6122
; }  else 
{ 
 obj_t BgL_auxz00_8200;
BgL_auxz00_8200 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(12471L), BGl_string4986z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6122); 
FAILURE(BgL_auxz00_8200,BFALSE,BFALSE);} 
BgL_tmpz00_8196 = 
BGl_ucs2zd2stringzd2refzd2urzd2zz__unicodez00(BgL_auxz00_8197, BgL_auxz00_8204); } 
return 
BUCS2(BgL_tmpz00_8196);} } 

}



/* ucs2-string-set-ur! */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2setzd2urz12zc0zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_17, int BgL_kz00_18, ucs2_t BgL_ucs2z00_19)
{
{ /* Llib/unicode.scm 282 */
return 
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_17, BgL_kz00_18, BgL_ucs2z00_19);} 

}



/* &ucs2-string-set-ur! */
obj_t BGl_z62ucs2zd2stringzd2setzd2urz12za2zz__unicodez00(obj_t BgL_envz00_6124, obj_t BgL_ucs2zd2stringzd2_6125, obj_t BgL_kz00_6126, obj_t BgL_ucs2z00_6127)
{
{ /* Llib/unicode.scm 282 */
{ /* Llib/unicode.scm 283 */
 ucs2_t BgL_auxz00_8232; int BgL_auxz00_8223; obj_t BgL_auxz00_8216;
{ /* Llib/unicode.scm 283 */
 obj_t BgL_tmpz00_8233;
if(
UCS2P(BgL_ucs2z00_6127))
{ /* Llib/unicode.scm 283 */
BgL_tmpz00_8233 = BgL_ucs2z00_6127
; }  else 
{ 
 obj_t BgL_auxz00_8236;
BgL_auxz00_8236 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(12789L), BGl_string4987z00zz__unicodez00, BGl_string4975z00zz__unicodez00, BgL_ucs2z00_6127); 
FAILURE(BgL_auxz00_8236,BFALSE,BFALSE);} 
BgL_auxz00_8232 = 
CUCS2(BgL_tmpz00_8233); } 
{ /* Llib/unicode.scm 283 */
 obj_t BgL_tmpz00_8224;
if(
INTEGERP(BgL_kz00_6126))
{ /* Llib/unicode.scm 283 */
BgL_tmpz00_8224 = BgL_kz00_6126
; }  else 
{ 
 obj_t BgL_auxz00_8227;
BgL_auxz00_8227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(12789L), BGl_string4987z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_kz00_6126); 
FAILURE(BgL_auxz00_8227,BFALSE,BFALSE);} 
BgL_auxz00_8223 = 
CINT(BgL_tmpz00_8224); } 
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6125))
{ /* Llib/unicode.scm 283 */
BgL_auxz00_8216 = BgL_ucs2zd2stringzd2_6125
; }  else 
{ 
 obj_t BgL_auxz00_8219;
BgL_auxz00_8219 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(12789L), BGl_string4987z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6125); 
FAILURE(BgL_auxz00_8219,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2stringzd2setzd2urz12zc0zz__unicodez00(BgL_auxz00_8216, BgL_auxz00_8223, BgL_auxz00_8232);} } 

}



/* ucs2-string=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd3zf3zf2zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_20, obj_t BgL_ucs2zd2string2zd2_21)
{
{ /* Llib/unicode.scm 288 */
BGL_TAIL return 
ucs2_strcmp(BgL_ucs2zd2string1zd2_20, BgL_ucs2zd2string2zd2_21);} 

}



/* &ucs2-string=? */
obj_t BGl_z62ucs2zd2stringzd3zf3z90zz__unicodez00(obj_t BgL_envz00_6128, obj_t BgL_ucs2zd2string1zd2_6129, obj_t BgL_ucs2zd2string2zd2_6130)
{
{ /* Llib/unicode.scm 288 */
{ /* Llib/unicode.scm 289 */
 bool_t BgL_tmpz00_8243;
{ /* Llib/unicode.scm 289 */
 obj_t BgL_auxz00_8251; obj_t BgL_auxz00_8244;
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_6130))
{ /* Llib/unicode.scm 289 */
BgL_auxz00_8251 = BgL_ucs2zd2string2zd2_6130
; }  else 
{ 
 obj_t BgL_auxz00_8254;
BgL_auxz00_8254 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(13113L), BGl_string4988z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string2zd2_6130); 
FAILURE(BgL_auxz00_8254,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_6129))
{ /* Llib/unicode.scm 289 */
BgL_auxz00_8244 = BgL_ucs2zd2string1zd2_6129
; }  else 
{ 
 obj_t BgL_auxz00_8247;
BgL_auxz00_8247 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(13113L), BGl_string4988z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string1zd2_6129); 
FAILURE(BgL_auxz00_8247,BFALSE,BFALSE);} 
BgL_tmpz00_8243 = 
BGl_ucs2zd2stringzd3zf3zf2zz__unicodez00(BgL_auxz00_8244, BgL_auxz00_8251); } 
return 
BBOOL(BgL_tmpz00_8243);} } 

}



/* ucs2-string-ci=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd2cizd3zf3z20zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_22, obj_t BgL_ucs2zd2string2zd2_23)
{
{ /* Llib/unicode.scm 294 */
BGL_TAIL return 
ucs2_strcicmp(BgL_ucs2zd2string1zd2_22, BgL_ucs2zd2string2zd2_23);} 

}



/* &ucs2-string-ci=? */
obj_t BGl_z62ucs2zd2stringzd2cizd3zf3z42zz__unicodez00(obj_t BgL_envz00_6131, obj_t BgL_ucs2zd2string1zd2_6132, obj_t BgL_ucs2zd2string2zd2_6133)
{
{ /* Llib/unicode.scm 294 */
{ /* Llib/unicode.scm 295 */
 bool_t BgL_tmpz00_8261;
{ /* Llib/unicode.scm 295 */
 obj_t BgL_auxz00_8269; obj_t BgL_auxz00_8262;
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_6133))
{ /* Llib/unicode.scm 295 */
BgL_auxz00_8269 = BgL_ucs2zd2string2zd2_6133
; }  else 
{ 
 obj_t BgL_auxz00_8272;
BgL_auxz00_8272 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(13444L), BGl_string4989z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string2zd2_6133); 
FAILURE(BgL_auxz00_8272,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_6132))
{ /* Llib/unicode.scm 295 */
BgL_auxz00_8262 = BgL_ucs2zd2string1zd2_6132
; }  else 
{ 
 obj_t BgL_auxz00_8265;
BgL_auxz00_8265 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(13444L), BGl_string4989z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string1zd2_6132); 
FAILURE(BgL_auxz00_8265,BFALSE,BFALSE);} 
BgL_tmpz00_8261 = 
BGl_ucs2zd2stringzd2cizd3zf3z20zz__unicodez00(BgL_auxz00_8262, BgL_auxz00_8269); } 
return 
BBOOL(BgL_tmpz00_8261);} } 

}



/* ucs2-string<? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzc3zf3ze2zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_24, obj_t BgL_ucs2zd2string2zd2_25)
{
{ /* Llib/unicode.scm 300 */
BGL_TAIL return 
ucs2_string_lt(BgL_ucs2zd2string1zd2_24, BgL_ucs2zd2string2zd2_25);} 

}



/* &ucs2-string<? */
obj_t BGl_z62ucs2zd2stringzc3zf3z80zz__unicodez00(obj_t BgL_envz00_6134, obj_t BgL_ucs2zd2string1zd2_6135, obj_t BgL_ucs2zd2string2zd2_6136)
{
{ /* Llib/unicode.scm 300 */
{ /* Llib/unicode.scm 301 */
 bool_t BgL_tmpz00_8279;
{ /* Llib/unicode.scm 301 */
 obj_t BgL_auxz00_8287; obj_t BgL_auxz00_8280;
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_6136))
{ /* Llib/unicode.scm 301 */
BgL_auxz00_8287 = BgL_ucs2zd2string2zd2_6136
; }  else 
{ 
 obj_t BgL_auxz00_8290;
BgL_auxz00_8290 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(13770L), BGl_string4990z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string2zd2_6136); 
FAILURE(BgL_auxz00_8290,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_6135))
{ /* Llib/unicode.scm 301 */
BgL_auxz00_8280 = BgL_ucs2zd2string1zd2_6135
; }  else 
{ 
 obj_t BgL_auxz00_8283;
BgL_auxz00_8283 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(13770L), BGl_string4990z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string1zd2_6135); 
FAILURE(BgL_auxz00_8283,BFALSE,BFALSE);} 
BgL_tmpz00_8279 = 
BGl_ucs2zd2stringzc3zf3ze2zz__unicodez00(BgL_auxz00_8280, BgL_auxz00_8287); } 
return 
BBOOL(BgL_tmpz00_8279);} } 

}



/* ucs2-string>? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringze3zf3zc2zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_26, obj_t BgL_ucs2zd2string2zd2_27)
{
{ /* Llib/unicode.scm 306 */
BGL_TAIL return 
ucs2_string_gt(BgL_ucs2zd2string1zd2_26, BgL_ucs2zd2string2zd2_27);} 

}



/* &ucs2-string>? */
obj_t BGl_z62ucs2zd2stringze3zf3za0zz__unicodez00(obj_t BgL_envz00_6137, obj_t BgL_ucs2zd2string1zd2_6138, obj_t BgL_ucs2zd2string2zd2_6139)
{
{ /* Llib/unicode.scm 306 */
{ /* Llib/unicode.scm 307 */
 bool_t BgL_tmpz00_8297;
{ /* Llib/unicode.scm 307 */
 obj_t BgL_auxz00_8305; obj_t BgL_auxz00_8298;
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_6139))
{ /* Llib/unicode.scm 307 */
BgL_auxz00_8305 = BgL_ucs2zd2string2zd2_6139
; }  else 
{ 
 obj_t BgL_auxz00_8308;
BgL_auxz00_8308 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(14097L), BGl_string4991z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string2zd2_6139); 
FAILURE(BgL_auxz00_8308,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_6138))
{ /* Llib/unicode.scm 307 */
BgL_auxz00_8298 = BgL_ucs2zd2string1zd2_6138
; }  else 
{ 
 obj_t BgL_auxz00_8301;
BgL_auxz00_8301 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(14097L), BGl_string4991z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string1zd2_6138); 
FAILURE(BgL_auxz00_8301,BFALSE,BFALSE);} 
BgL_tmpz00_8297 = 
BGl_ucs2zd2stringze3zf3zc2zz__unicodez00(BgL_auxz00_8298, BgL_auxz00_8305); } 
return 
BBOOL(BgL_tmpz00_8297);} } 

}



/* ucs2-string<=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzc3zd3zf3z31zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_28, obj_t BgL_ucs2zd2string2zd2_29)
{
{ /* Llib/unicode.scm 312 */
BGL_TAIL return 
ucs2_string_le(BgL_ucs2zd2string1zd2_28, BgL_ucs2zd2string2zd2_29);} 

}



/* &ucs2-string<=? */
obj_t BGl_z62ucs2zd2stringzc3zd3zf3z53zz__unicodez00(obj_t BgL_envz00_6140, obj_t BgL_ucs2zd2string1zd2_6141, obj_t BgL_ucs2zd2string2zd2_6142)
{
{ /* Llib/unicode.scm 312 */
{ /* Llib/unicode.scm 313 */
 bool_t BgL_tmpz00_8315;
{ /* Llib/unicode.scm 313 */
 obj_t BgL_auxz00_8323; obj_t BgL_auxz00_8316;
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_6142))
{ /* Llib/unicode.scm 313 */
BgL_auxz00_8323 = BgL_ucs2zd2string2zd2_6142
; }  else 
{ 
 obj_t BgL_auxz00_8326;
BgL_auxz00_8326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(14425L), BGl_string4992z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string2zd2_6142); 
FAILURE(BgL_auxz00_8326,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_6141))
{ /* Llib/unicode.scm 313 */
BgL_auxz00_8316 = BgL_ucs2zd2string1zd2_6141
; }  else 
{ 
 obj_t BgL_auxz00_8319;
BgL_auxz00_8319 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(14425L), BGl_string4992z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string1zd2_6141); 
FAILURE(BgL_auxz00_8319,BFALSE,BFALSE);} 
BgL_tmpz00_8315 = 
BGl_ucs2zd2stringzc3zd3zf3z31zz__unicodez00(BgL_auxz00_8316, BgL_auxz00_8323); } 
return 
BBOOL(BgL_tmpz00_8315);} } 

}



/* ucs2-string>=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringze3zd3zf3z11zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_30, obj_t BgL_ucs2zd2string2zd2_31)
{
{ /* Llib/unicode.scm 318 */
BGL_TAIL return 
ucs2_string_ge(BgL_ucs2zd2string1zd2_30, BgL_ucs2zd2string2zd2_31);} 

}



/* &ucs2-string>=? */
obj_t BGl_z62ucs2zd2stringze3zd3zf3z73zz__unicodez00(obj_t BgL_envz00_6143, obj_t BgL_ucs2zd2string1zd2_6144, obj_t BgL_ucs2zd2string2zd2_6145)
{
{ /* Llib/unicode.scm 318 */
{ /* Llib/unicode.scm 319 */
 bool_t BgL_tmpz00_8333;
{ /* Llib/unicode.scm 319 */
 obj_t BgL_auxz00_8341; obj_t BgL_auxz00_8334;
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_6145))
{ /* Llib/unicode.scm 319 */
BgL_auxz00_8341 = BgL_ucs2zd2string2zd2_6145
; }  else 
{ 
 obj_t BgL_auxz00_8344;
BgL_auxz00_8344 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(14753L), BGl_string4993z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string2zd2_6145); 
FAILURE(BgL_auxz00_8344,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_6144))
{ /* Llib/unicode.scm 319 */
BgL_auxz00_8334 = BgL_ucs2zd2string1zd2_6144
; }  else 
{ 
 obj_t BgL_auxz00_8337;
BgL_auxz00_8337 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(14753L), BGl_string4993z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string1zd2_6144); 
FAILURE(BgL_auxz00_8337,BFALSE,BFALSE);} 
BgL_tmpz00_8333 = 
BGl_ucs2zd2stringze3zd3zf3z11zz__unicodez00(BgL_auxz00_8334, BgL_auxz00_8341); } 
return 
BBOOL(BgL_tmpz00_8333);} } 

}



/* ucs2-string-ci<? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd2cizc3zf3z30zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_32, obj_t BgL_ucs2zd2string2zd2_33)
{
{ /* Llib/unicode.scm 324 */
BGL_TAIL return 
ucs2_string_cilt(BgL_ucs2zd2string1zd2_32, BgL_ucs2zd2string2zd2_33);} 

}



/* &ucs2-string-ci<? */
obj_t BGl_z62ucs2zd2stringzd2cizc3zf3z52zz__unicodez00(obj_t BgL_envz00_6146, obj_t BgL_ucs2zd2string1zd2_6147, obj_t BgL_ucs2zd2string2zd2_6148)
{
{ /* Llib/unicode.scm 324 */
{ /* Llib/unicode.scm 325 */
 bool_t BgL_tmpz00_8351;
{ /* Llib/unicode.scm 325 */
 obj_t BgL_auxz00_8359; obj_t BgL_auxz00_8352;
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_6148))
{ /* Llib/unicode.scm 325 */
BgL_auxz00_8359 = BgL_ucs2zd2string2zd2_6148
; }  else 
{ 
 obj_t BgL_auxz00_8362;
BgL_auxz00_8362 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(15083L), BGl_string4994z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string2zd2_6148); 
FAILURE(BgL_auxz00_8362,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_6147))
{ /* Llib/unicode.scm 325 */
BgL_auxz00_8352 = BgL_ucs2zd2string1zd2_6147
; }  else 
{ 
 obj_t BgL_auxz00_8355;
BgL_auxz00_8355 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(15083L), BGl_string4994z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string1zd2_6147); 
FAILURE(BgL_auxz00_8355,BFALSE,BFALSE);} 
BgL_tmpz00_8351 = 
BGl_ucs2zd2stringzd2cizc3zf3z30zz__unicodez00(BgL_auxz00_8352, BgL_auxz00_8359); } 
return 
BBOOL(BgL_tmpz00_8351);} } 

}



/* ucs2-string-ci>? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd2cize3zf3z10zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_34, obj_t BgL_ucs2zd2string2zd2_35)
{
{ /* Llib/unicode.scm 330 */
BGL_TAIL return 
ucs2_string_cigt(BgL_ucs2zd2string1zd2_34, BgL_ucs2zd2string2zd2_35);} 

}



/* &ucs2-string-ci>? */
obj_t BGl_z62ucs2zd2stringzd2cize3zf3z72zz__unicodez00(obj_t BgL_envz00_6149, obj_t BgL_ucs2zd2string1zd2_6150, obj_t BgL_ucs2zd2string2zd2_6151)
{
{ /* Llib/unicode.scm 330 */
{ /* Llib/unicode.scm 331 */
 bool_t BgL_tmpz00_8369;
{ /* Llib/unicode.scm 331 */
 obj_t BgL_auxz00_8377; obj_t BgL_auxz00_8370;
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_6151))
{ /* Llib/unicode.scm 331 */
BgL_auxz00_8377 = BgL_ucs2zd2string2zd2_6151
; }  else 
{ 
 obj_t BgL_auxz00_8380;
BgL_auxz00_8380 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(15415L), BGl_string4995z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string2zd2_6151); 
FAILURE(BgL_auxz00_8380,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_6150))
{ /* Llib/unicode.scm 331 */
BgL_auxz00_8370 = BgL_ucs2zd2string1zd2_6150
; }  else 
{ 
 obj_t BgL_auxz00_8373;
BgL_auxz00_8373 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(15415L), BGl_string4995z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string1zd2_6150); 
FAILURE(BgL_auxz00_8373,BFALSE,BFALSE);} 
BgL_tmpz00_8369 = 
BGl_ucs2zd2stringzd2cize3zf3z10zz__unicodez00(BgL_auxz00_8370, BgL_auxz00_8377); } 
return 
BBOOL(BgL_tmpz00_8369);} } 

}



/* ucs2-string-ci<=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd2cizc3zd3zf3ze3zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_36, obj_t BgL_ucs2zd2string2zd2_37)
{
{ /* Llib/unicode.scm 336 */
BGL_TAIL return 
ucs2_string_cile(BgL_ucs2zd2string1zd2_36, BgL_ucs2zd2string2zd2_37);} 

}



/* &ucs2-string-ci<=? */
obj_t BGl_z62ucs2zd2stringzd2cizc3zd3zf3z81zz__unicodez00(obj_t BgL_envz00_6152, obj_t BgL_ucs2zd2string1zd2_6153, obj_t BgL_ucs2zd2string2zd2_6154)
{
{ /* Llib/unicode.scm 336 */
{ /* Llib/unicode.scm 337 */
 bool_t BgL_tmpz00_8387;
{ /* Llib/unicode.scm 337 */
 obj_t BgL_auxz00_8395; obj_t BgL_auxz00_8388;
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_6154))
{ /* Llib/unicode.scm 337 */
BgL_auxz00_8395 = BgL_ucs2zd2string2zd2_6154
; }  else 
{ 
 obj_t BgL_auxz00_8398;
BgL_auxz00_8398 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(15748L), BGl_string4996z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string2zd2_6154); 
FAILURE(BgL_auxz00_8398,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_6153))
{ /* Llib/unicode.scm 337 */
BgL_auxz00_8388 = BgL_ucs2zd2string1zd2_6153
; }  else 
{ 
 obj_t BgL_auxz00_8391;
BgL_auxz00_8391 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(15748L), BGl_string4996z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string1zd2_6153); 
FAILURE(BgL_auxz00_8391,BFALSE,BFALSE);} 
BgL_tmpz00_8387 = 
BGl_ucs2zd2stringzd2cizc3zd3zf3ze3zz__unicodez00(BgL_auxz00_8388, BgL_auxz00_8395); } 
return 
BBOOL(BgL_tmpz00_8387);} } 

}



/* ucs2-string-ci>=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd2cize3zd3zf3zc3zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_38, obj_t BgL_ucs2zd2string2zd2_39)
{
{ /* Llib/unicode.scm 342 */
BGL_TAIL return 
ucs2_string_cige(BgL_ucs2zd2string1zd2_38, BgL_ucs2zd2string2zd2_39);} 

}



/* &ucs2-string-ci>=? */
obj_t BGl_z62ucs2zd2stringzd2cize3zd3zf3za1zz__unicodez00(obj_t BgL_envz00_6155, obj_t BgL_ucs2zd2string1zd2_6156, obj_t BgL_ucs2zd2string2zd2_6157)
{
{ /* Llib/unicode.scm 342 */
{ /* Llib/unicode.scm 343 */
 bool_t BgL_tmpz00_8405;
{ /* Llib/unicode.scm 343 */
 obj_t BgL_auxz00_8413; obj_t BgL_auxz00_8406;
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_6157))
{ /* Llib/unicode.scm 343 */
BgL_auxz00_8413 = BgL_ucs2zd2string2zd2_6157
; }  else 
{ 
 obj_t BgL_auxz00_8416;
BgL_auxz00_8416 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(16081L), BGl_string4997z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string2zd2_6157); 
FAILURE(BgL_auxz00_8416,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_6156))
{ /* Llib/unicode.scm 343 */
BgL_auxz00_8406 = BgL_ucs2zd2string1zd2_6156
; }  else 
{ 
 obj_t BgL_auxz00_8409;
BgL_auxz00_8409 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(16081L), BGl_string4997z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2string1zd2_6156); 
FAILURE(BgL_auxz00_8409,BFALSE,BFALSE);} 
BgL_tmpz00_8405 = 
BGl_ucs2zd2stringzd2cize3zd3zf3zc3zz__unicodez00(BgL_auxz00_8406, BgL_auxz00_8413); } 
return 
BBOOL(BgL_tmpz00_8405);} } 

}



/* subucs2-string */
BGL_EXPORTED_DEF obj_t BGl_subucs2zd2stringzd2zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_40, int BgL_startz00_41, int BgL_endz00_42)
{
{ /* Llib/unicode.scm 348 */
{ /* Llib/unicode.scm 350 */
 bool_t BgL_test5392z00_8422;
if(
(
(long)(BgL_endz00_42)>=
(long)(BgL_startz00_41)))
{ /* Llib/unicode.scm 351 */
 bool_t BgL_test5394z00_8427;
{ /* Llib/unicode.scm 351 */
 long BgL_auxz00_8430; long BgL_tmpz00_8428;
BgL_auxz00_8430 = 
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_40))+1L); 
BgL_tmpz00_8428 = 
(long)(BgL_startz00_41); 
BgL_test5394z00_8427 = 
BOUND_CHECK(BgL_tmpz00_8428, BgL_auxz00_8430); } 
if(BgL_test5394z00_8427)
{ /* Llib/unicode.scm 353 */
 long BgL_auxz00_8437; long BgL_tmpz00_8435;
BgL_auxz00_8437 = 
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_40))+1L); 
BgL_tmpz00_8435 = 
(long)(BgL_endz00_42); 
BgL_test5392z00_8422 = 
BOUND_CHECK(BgL_tmpz00_8435, BgL_auxz00_8437); }  else 
{ /* Llib/unicode.scm 351 */
BgL_test5392z00_8422 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 350 */
BgL_test5392z00_8422 = ((bool_t)0)
; } 
if(BgL_test5392z00_8422)
{ /* Llib/unicode.scm 350 */
BGL_TAIL return 
c_subucs2_string(BgL_ucs2zd2stringzd2_40, BgL_startz00_41, BgL_endz00_42);}  else 
{ /* Llib/unicode.scm 358 */
 obj_t BgL_arg1267z00_7779;
BgL_arg1267z00_7779 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_41), 
BINT(BgL_endz00_42)); 
{ /* Llib/unicode.scm 358 */
 obj_t BgL_aux4535z00_7780;
BgL_aux4535z00_7780 = 
BGl_errorz00zz__errorz00(BGl_string4998z00zz__unicodez00, BGl_string4999z00zz__unicodez00, BgL_arg1267z00_7779); 
if(
UCS2_STRINGP(BgL_aux4535z00_7780))
{ /* Llib/unicode.scm 358 */
return BgL_aux4535z00_7780;}  else 
{ 
 obj_t BgL_auxz00_8449;
BgL_auxz00_8449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(16715L), BGl_string4998z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_aux4535z00_7780); 
FAILURE(BgL_auxz00_8449,BFALSE,BFALSE);} } } } } 

}



/* &subucs2-string */
obj_t BGl_z62subucs2zd2stringzb0zz__unicodez00(obj_t BgL_envz00_6158, obj_t BgL_ucs2zd2stringzd2_6159, obj_t BgL_startz00_6160, obj_t BgL_endz00_6161)
{
{ /* Llib/unicode.scm 348 */
{ /* Llib/unicode.scm 350 */
 int BgL_auxz00_8469; int BgL_auxz00_8460; obj_t BgL_auxz00_8453;
{ /* Llib/unicode.scm 350 */
 obj_t BgL_tmpz00_8470;
if(
INTEGERP(BgL_endz00_6161))
{ /* Llib/unicode.scm 350 */
BgL_tmpz00_8470 = BgL_endz00_6161
; }  else 
{ 
 obj_t BgL_auxz00_8473;
BgL_auxz00_8473 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(16454L), BGl_string5000z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_endz00_6161); 
FAILURE(BgL_auxz00_8473,BFALSE,BFALSE);} 
BgL_auxz00_8469 = 
CINT(BgL_tmpz00_8470); } 
{ /* Llib/unicode.scm 350 */
 obj_t BgL_tmpz00_8461;
if(
INTEGERP(BgL_startz00_6160))
{ /* Llib/unicode.scm 350 */
BgL_tmpz00_8461 = BgL_startz00_6160
; }  else 
{ 
 obj_t BgL_auxz00_8464;
BgL_auxz00_8464 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(16454L), BGl_string5000z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_startz00_6160); 
FAILURE(BgL_auxz00_8464,BFALSE,BFALSE);} 
BgL_auxz00_8460 = 
CINT(BgL_tmpz00_8461); } 
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6159))
{ /* Llib/unicode.scm 350 */
BgL_auxz00_8453 = BgL_ucs2zd2stringzd2_6159
; }  else 
{ 
 obj_t BgL_auxz00_8456;
BgL_auxz00_8456 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(16454L), BGl_string5000z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6159); 
FAILURE(BgL_auxz00_8456,BFALSE,BFALSE);} 
return 
BGl_subucs2zd2stringzd2zz__unicodez00(BgL_auxz00_8453, BgL_auxz00_8460, BgL_auxz00_8469);} } 

}



/* subucs2-string-ur */
BGL_EXPORTED_DEF obj_t BGl_subucs2zd2stringzd2urz00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_43, int BgL_startz00_44, int BgL_endz00_45)
{
{ /* Llib/unicode.scm 363 */
BGL_TAIL return 
c_subucs2_string(BgL_ucs2zd2stringzd2_43, BgL_startz00_44, BgL_endz00_45);} 

}



/* &subucs2-string-ur */
obj_t BGl_z62subucs2zd2stringzd2urz62zz__unicodez00(obj_t BgL_envz00_6162, obj_t BgL_ucs2zd2stringzd2_6163, obj_t BgL_startz00_6164, obj_t BgL_endz00_6165)
{
{ /* Llib/unicode.scm 363 */
{ /* Llib/unicode.scm 364 */
 int BgL_auxz00_8496; int BgL_auxz00_8487; obj_t BgL_auxz00_8480;
{ /* Llib/unicode.scm 364 */
 obj_t BgL_tmpz00_8497;
if(
INTEGERP(BgL_endz00_6165))
{ /* Llib/unicode.scm 364 */
BgL_tmpz00_8497 = BgL_endz00_6165
; }  else 
{ 
 obj_t BgL_auxz00_8500;
BgL_auxz00_8500 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(17058L), BGl_string5001z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_endz00_6165); 
FAILURE(BgL_auxz00_8500,BFALSE,BFALSE);} 
BgL_auxz00_8496 = 
CINT(BgL_tmpz00_8497); } 
{ /* Llib/unicode.scm 364 */
 obj_t BgL_tmpz00_8488;
if(
INTEGERP(BgL_startz00_6164))
{ /* Llib/unicode.scm 364 */
BgL_tmpz00_8488 = BgL_startz00_6164
; }  else 
{ 
 obj_t BgL_auxz00_8491;
BgL_auxz00_8491 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(17058L), BGl_string5001z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_startz00_6164); 
FAILURE(BgL_auxz00_8491,BFALSE,BFALSE);} 
BgL_auxz00_8487 = 
CINT(BgL_tmpz00_8488); } 
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6163))
{ /* Llib/unicode.scm 364 */
BgL_auxz00_8480 = BgL_ucs2zd2stringzd2_6163
; }  else 
{ 
 obj_t BgL_auxz00_8483;
BgL_auxz00_8483 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(17058L), BGl_string5001z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6163); 
FAILURE(BgL_auxz00_8483,BFALSE,BFALSE);} 
return 
BGl_subucs2zd2stringzd2urz00zz__unicodez00(BgL_auxz00_8480, BgL_auxz00_8487, BgL_auxz00_8496);} } 

}



/* ucs2-substring */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2substringzd2zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_46, int BgL_startz00_47, int BgL_endz00_48)
{
{ /* Llib/unicode.scm 369 */
{ /* Llib/unicode.scm 371 */
 bool_t BgL_test5402z00_8506;
if(
(
(long)(BgL_endz00_48)>=
(long)(BgL_startz00_47)))
{ /* Llib/unicode.scm 372 */
 bool_t BgL_test5404z00_8511;
{ /* Llib/unicode.scm 372 */
 long BgL_auxz00_8514; long BgL_tmpz00_8512;
BgL_auxz00_8514 = 
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_46))+1L); 
BgL_tmpz00_8512 = 
(long)(BgL_startz00_47); 
BgL_test5404z00_8511 = 
BOUND_CHECK(BgL_tmpz00_8512, BgL_auxz00_8514); } 
if(BgL_test5404z00_8511)
{ /* Llib/unicode.scm 374 */
 long BgL_auxz00_8521; long BgL_tmpz00_8519;
BgL_auxz00_8521 = 
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_46))+1L); 
BgL_tmpz00_8519 = 
(long)(BgL_endz00_48); 
BgL_test5402z00_8506 = 
BOUND_CHECK(BgL_tmpz00_8519, BgL_auxz00_8521); }  else 
{ /* Llib/unicode.scm 372 */
BgL_test5402z00_8506 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 371 */
BgL_test5402z00_8506 = ((bool_t)0)
; } 
if(BgL_test5402z00_8506)
{ /* Llib/unicode.scm 371 */
BGL_TAIL return 
c_subucs2_string(BgL_ucs2zd2stringzd2_46, BgL_startz00_47, BgL_endz00_48);}  else 
{ /* Llib/unicode.scm 379 */
 obj_t BgL_arg1287z00_7781;
BgL_arg1287z00_7781 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_47), 
BINT(BgL_endz00_48)); 
{ /* Llib/unicode.scm 379 */
 obj_t BgL_aux4545z00_7782;
BgL_aux4545z00_7782 = 
BGl_errorz00zz__errorz00(BGl_string4998z00zz__unicodez00, BGl_string4999z00zz__unicodez00, BgL_arg1287z00_7781); 
if(
UCS2_STRINGP(BgL_aux4545z00_7782))
{ /* Llib/unicode.scm 379 */
return BgL_aux4545z00_7782;}  else 
{ 
 obj_t BgL_auxz00_8533;
BgL_auxz00_8533 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(17687L), BGl_string5002z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_aux4545z00_7782); 
FAILURE(BgL_auxz00_8533,BFALSE,BFALSE);} } } } } 

}



/* &ucs2-substring */
obj_t BGl_z62ucs2zd2substringzb0zz__unicodez00(obj_t BgL_envz00_6166, obj_t BgL_ucs2zd2stringzd2_6167, obj_t BgL_startz00_6168, obj_t BgL_endz00_6169)
{
{ /* Llib/unicode.scm 369 */
{ /* Llib/unicode.scm 371 */
 int BgL_auxz00_8553; int BgL_auxz00_8544; obj_t BgL_auxz00_8537;
{ /* Llib/unicode.scm 371 */
 obj_t BgL_tmpz00_8554;
if(
INTEGERP(BgL_endz00_6169))
{ /* Llib/unicode.scm 371 */
BgL_tmpz00_8554 = BgL_endz00_6169
; }  else 
{ 
 obj_t BgL_auxz00_8557;
BgL_auxz00_8557 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(17426L), BGl_string5003z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_endz00_6169); 
FAILURE(BgL_auxz00_8557,BFALSE,BFALSE);} 
BgL_auxz00_8553 = 
CINT(BgL_tmpz00_8554); } 
{ /* Llib/unicode.scm 371 */
 obj_t BgL_tmpz00_8545;
if(
INTEGERP(BgL_startz00_6168))
{ /* Llib/unicode.scm 371 */
BgL_tmpz00_8545 = BgL_startz00_6168
; }  else 
{ 
 obj_t BgL_auxz00_8548;
BgL_auxz00_8548 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(17426L), BGl_string5003z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_startz00_6168); 
FAILURE(BgL_auxz00_8548,BFALSE,BFALSE);} 
BgL_auxz00_8544 = 
CINT(BgL_tmpz00_8545); } 
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6167))
{ /* Llib/unicode.scm 371 */
BgL_auxz00_8537 = BgL_ucs2zd2stringzd2_6167
; }  else 
{ 
 obj_t BgL_auxz00_8540;
BgL_auxz00_8540 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(17426L), BGl_string5003z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6167); 
FAILURE(BgL_auxz00_8540,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2substringzd2zz__unicodez00(BgL_auxz00_8537, BgL_auxz00_8544, BgL_auxz00_8553);} } 

}



/* ucs2-substring-ur */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2substringzd2urz00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_49, int BgL_startz00_50, int BgL_endz00_51)
{
{ /* Llib/unicode.scm 384 */
BGL_TAIL return 
c_subucs2_string(BgL_ucs2zd2stringzd2_49, BgL_startz00_50, BgL_endz00_51);} 

}



/* &ucs2-substring-ur */
obj_t BGl_z62ucs2zd2substringzd2urz62zz__unicodez00(obj_t BgL_envz00_6170, obj_t BgL_ucs2zd2stringzd2_6171, obj_t BgL_startz00_6172, obj_t BgL_endz00_6173)
{
{ /* Llib/unicode.scm 384 */
{ /* Llib/unicode.scm 385 */
 int BgL_auxz00_8580; int BgL_auxz00_8571; obj_t BgL_auxz00_8564;
{ /* Llib/unicode.scm 385 */
 obj_t BgL_tmpz00_8581;
if(
INTEGERP(BgL_endz00_6173))
{ /* Llib/unicode.scm 385 */
BgL_tmpz00_8581 = BgL_endz00_6173
; }  else 
{ 
 obj_t BgL_auxz00_8584;
BgL_auxz00_8584 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18030L), BGl_string5004z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_endz00_6173); 
FAILURE(BgL_auxz00_8584,BFALSE,BFALSE);} 
BgL_auxz00_8580 = 
CINT(BgL_tmpz00_8581); } 
{ /* Llib/unicode.scm 385 */
 obj_t BgL_tmpz00_8572;
if(
INTEGERP(BgL_startz00_6172))
{ /* Llib/unicode.scm 385 */
BgL_tmpz00_8572 = BgL_startz00_6172
; }  else 
{ 
 obj_t BgL_auxz00_8575;
BgL_auxz00_8575 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18030L), BGl_string5004z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_startz00_6172); 
FAILURE(BgL_auxz00_8575,BFALSE,BFALSE);} 
BgL_auxz00_8571 = 
CINT(BgL_tmpz00_8572); } 
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6171))
{ /* Llib/unicode.scm 385 */
BgL_auxz00_8564 = BgL_ucs2zd2stringzd2_6171
; }  else 
{ 
 obj_t BgL_auxz00_8567;
BgL_auxz00_8567 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18030L), BGl_string5004z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6171); 
FAILURE(BgL_auxz00_8567,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2substringzd2urz00zz__unicodez00(BgL_auxz00_8564, BgL_auxz00_8571, BgL_auxz00_8580);} } 

}



/* ucs2-string-append */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2appendz00zz__unicodez00(obj_t BgL_listz00_52)
{
{ /* Llib/unicode.scm 390 */
if(
NULLP(BgL_listz00_52))
{ /* Llib/unicode.scm 137 */
 ucs2_t BgL_fillerz00_1320;
{ /* Llib/unicode.scm 137 */
 int BgL_tmpz00_8592;
BgL_tmpz00_8592 = 
(int)(
(
(unsigned char)(
(char)(((unsigned char)' '))))); 
BgL_fillerz00_1320 = 
BGL_INT_TO_UCS2(BgL_tmpz00_8592); } 
{ /* Llib/unicode.scm 137 */

return 
make_ucs2_string(
(int)(0L), BgL_fillerz00_1320);} }  else 
{ /* Llib/unicode.scm 393 */
 obj_t BgL_aux4555z00_7407;
BgL_aux4555z00_7407 = 
BGl_loopze73ze7zz__unicodez00(BgL_listz00_52); 
if(
UCS2_STRINGP(BgL_aux4555z00_7407))
{ /* Llib/unicode.scm 393 */
return BgL_aux4555z00_7407;}  else 
{ 
 obj_t BgL_auxz00_8603;
BgL_auxz00_8603 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18385L), BGl_string5005z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_aux4555z00_7407); 
FAILURE(BgL_auxz00_8603,BFALSE,BFALSE);} } } 

}



/* loop~3 */
obj_t BGl_loopze73ze7zz__unicodez00(obj_t BgL_listz00_1322)
{
{ /* Llib/unicode.scm 393 */
{ /* Llib/unicode.scm 394 */
 bool_t BgL_test5414z00_8607;
{ /* Llib/unicode.scm 394 */
 obj_t BgL_tmpz00_8608;
{ /* Llib/unicode.scm 394 */
 obj_t BgL_pairz00_3592;
if(
PAIRP(BgL_listz00_1322))
{ /* Llib/unicode.scm 394 */
BgL_pairz00_3592 = BgL_listz00_1322; }  else 
{ 
 obj_t BgL_auxz00_8611;
BgL_auxz00_8611 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18428L), BGl_string5006z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_listz00_1322); 
FAILURE(BgL_auxz00_8611,BFALSE,BFALSE);} 
BgL_tmpz00_8608 = 
CDR(BgL_pairz00_3592); } 
BgL_test5414z00_8607 = 
NULLP(BgL_tmpz00_8608); } 
if(BgL_test5414z00_8607)
{ /* Llib/unicode.scm 395 */
 obj_t BgL_pairz00_3593;
if(
PAIRP(BgL_listz00_1322))
{ /* Llib/unicode.scm 395 */
BgL_pairz00_3593 = BgL_listz00_1322; }  else 
{ 
 obj_t BgL_auxz00_8619;
BgL_auxz00_8619 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18447L), BGl_string5006z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_listz00_1322); 
FAILURE(BgL_auxz00_8619,BFALSE,BFALSE);} 
return 
CAR(BgL_pairz00_3593);}  else 
{ /* Llib/unicode.scm 396 */
 obj_t BgL_arg1301z00_1326; obj_t BgL_arg1322z00_1327;
{ /* Llib/unicode.scm 396 */
 obj_t BgL_pairz00_3594;
if(
PAIRP(BgL_listz00_1322))
{ /* Llib/unicode.scm 396 */
BgL_pairz00_3594 = BgL_listz00_1322; }  else 
{ 
 obj_t BgL_auxz00_8626;
BgL_auxz00_8626 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18487L), BGl_string5006z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_listz00_1322); 
FAILURE(BgL_auxz00_8626,BFALSE,BFALSE);} 
BgL_arg1301z00_1326 = 
CAR(BgL_pairz00_3594); } 
{ /* Llib/unicode.scm 396 */
 obj_t BgL_arg1329z00_1328;
{ /* Llib/unicode.scm 396 */
 obj_t BgL_pairz00_3595;
if(
PAIRP(BgL_listz00_1322))
{ /* Llib/unicode.scm 396 */
BgL_pairz00_3595 = BgL_listz00_1322; }  else 
{ 
 obj_t BgL_auxz00_8633;
BgL_auxz00_8633 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18504L), BGl_string5006z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_listz00_1322); 
FAILURE(BgL_auxz00_8633,BFALSE,BFALSE);} 
BgL_arg1329z00_1328 = 
CDR(BgL_pairz00_3595); } 
BgL_arg1322z00_1327 = 
BGl_loopze73ze7zz__unicodez00(BgL_arg1329z00_1328); } 
{ /* Llib/unicode.scm 396 */
 obj_t BgL_auxz00_8646; obj_t BgL_tmpz00_8639;
if(
UCS2_STRINGP(BgL_arg1322z00_1327))
{ /* Llib/unicode.scm 396 */
BgL_auxz00_8646 = BgL_arg1322z00_1327
; }  else 
{ 
 obj_t BgL_auxz00_8649;
BgL_auxz00_8649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18509L), BGl_string5006z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_arg1322z00_1327); 
FAILURE(BgL_auxz00_8649,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_arg1301z00_1326))
{ /* Llib/unicode.scm 396 */
BgL_tmpz00_8639 = BgL_arg1301z00_1326
; }  else 
{ 
 obj_t BgL_auxz00_8642;
BgL_auxz00_8642 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18491L), BGl_string5006z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_arg1301z00_1326); 
FAILURE(BgL_auxz00_8642,BFALSE,BFALSE);} 
return 
ucs2_string_append(BgL_tmpz00_8639, BgL_auxz00_8646);} } } } 

}



/* &ucs2-string-append */
obj_t BGl_z62ucs2zd2stringzd2appendz62zz__unicodez00(obj_t BgL_envz00_6174, obj_t BgL_listz00_6175)
{
{ /* Llib/unicode.scm 390 */
return 
BGl_ucs2zd2stringzd2appendz00zz__unicodez00(BgL_listz00_6175);} 

}



/* list->ucs2-string */
BGL_EXPORTED_DEF obj_t BGl_listzd2ze3ucs2zd2stringze3zz__unicodez00(obj_t BgL_listz00_53)
{
{ /* Llib/unicode.scm 401 */
{ /* Llib/unicode.scm 402 */
 long BgL_lenz00_1331;
{ /* Llib/unicode.scm 402 */
 obj_t BgL_auxz00_8655;
{ /* Llib/unicode.scm 402 */
 bool_t BgL_test5421z00_8656;
if(
PAIRP(BgL_listz00_53))
{ /* Llib/unicode.scm 402 */
BgL_test5421z00_8656 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 402 */
BgL_test5421z00_8656 = 
NULLP(BgL_listz00_53)
; } 
if(BgL_test5421z00_8656)
{ /* Llib/unicode.scm 402 */
BgL_auxz00_8655 = BgL_listz00_53
; }  else 
{ 
 obj_t BgL_auxz00_8660;
BgL_auxz00_8660 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18798L), BGl_string5008z00zz__unicodez00, BGl_string5009z00zz__unicodez00, BgL_listz00_53); 
FAILURE(BgL_auxz00_8660,BFALSE,BFALSE);} } 
BgL_lenz00_1331 = 
bgl_list_length(BgL_auxz00_8655); } 
{ /* Llib/unicode.scm 402 */
 obj_t BgL_ucs2zd2stringzd2_1332;
{ /* Llib/unicode.scm 137 */
 ucs2_t BgL_fillerz00_1343;
{ /* Llib/unicode.scm 137 */
 int BgL_tmpz00_8665;
BgL_tmpz00_8665 = 
(int)(
(
(unsigned char)(
(char)(((unsigned char)' '))))); 
BgL_fillerz00_1343 = 
BGL_INT_TO_UCS2(BgL_tmpz00_8665); } 
{ /* Llib/unicode.scm 137 */

BgL_ucs2zd2stringzd2_1332 = 
make_ucs2_string(
(int)(BgL_lenz00_1331), BgL_fillerz00_1343); } } 
{ /* Llib/unicode.scm 403 */

{ 
 long BgL_iz00_3622; obj_t BgL_lz00_3623;
BgL_iz00_3622 = 0L; 
BgL_lz00_3623 = BgL_listz00_53; 
BgL_loopz00_3621:
if(
(BgL_iz00_3622==BgL_lenz00_1331))
{ /* Llib/unicode.scm 406 */
return BgL_ucs2zd2stringzd2_1332;}  else 
{ /* Llib/unicode.scm 406 */
{ /* Llib/unicode.scm 409 */
 obj_t BgL_arg1333z00_3627;
{ /* Llib/unicode.scm 409 */
 obj_t BgL_pairz00_3628;
if(
PAIRP(BgL_lz00_3623))
{ /* Llib/unicode.scm 409 */
BgL_pairz00_3628 = BgL_lz00_3623; }  else 
{ 
 obj_t BgL_auxz00_8677;
BgL_auxz00_8677 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18970L), BGl_string5010z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_lz00_3623); 
FAILURE(BgL_auxz00_8677,BFALSE,BFALSE);} 
BgL_arg1333z00_3627 = 
CAR(BgL_pairz00_3628); } 
{ /* Llib/unicode.scm 409 */
 int BgL_kz00_3630; ucs2_t BgL_ucs2z00_3631;
BgL_kz00_3630 = 
(int)(BgL_iz00_3622); 
{ /* Llib/unicode.scm 409 */
 obj_t BgL_tmpz00_8683;
if(
UCS2P(BgL_arg1333z00_3627))
{ /* Llib/unicode.scm 409 */
BgL_tmpz00_8683 = BgL_arg1333z00_3627
; }  else 
{ 
 obj_t BgL_auxz00_8686;
BgL_auxz00_8686 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18971L), BGl_string5010z00zz__unicodez00, BGl_string4975z00zz__unicodez00, BgL_arg1333z00_3627); 
FAILURE(BgL_auxz00_8686,BFALSE,BFALSE);} 
BgL_ucs2z00_3631 = 
CUCS2(BgL_tmpz00_8683); } 
{ /* Llib/unicode.scm 264 */
 bool_t BgL_test5426z00_8691;
{ /* Llib/unicode.scm 264 */
 long BgL_auxz00_8694; long BgL_tmpz00_8692;
BgL_auxz00_8694 = 
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_1332)); 
BgL_tmpz00_8692 = 
(long)(BgL_kz00_3630); 
BgL_test5426z00_8691 = 
BOUND_CHECK(BgL_tmpz00_8692, BgL_auxz00_8694); } 
if(BgL_test5426z00_8691)
{ /* Llib/unicode.scm 264 */
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_1332, BgL_kz00_3630, BgL_ucs2z00_3631); }  else 
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1248z00_3635;
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1249z00_3636;
{ /* Llib/unicode.scm 269 */

BgL_arg1249z00_3636 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_1332))-1L), 10L); } 
BgL_arg1248z00_3635 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1249z00_3636, BGl_string4979z00zz__unicodez00); } 
BGl_errorz00zz__errorz00(BGl_symbol4983z00zz__unicodez00, BgL_arg1248z00_3635, 
BINT(BgL_kz00_3630)); } } } } 
{ /* Llib/unicode.scm 410 */
 long BgL_arg1334z00_3643; obj_t BgL_arg1335z00_3644;
BgL_arg1334z00_3643 = 
(BgL_iz00_3622+1L); 
{ /* Llib/unicode.scm 410 */
 obj_t BgL_pairz00_3646;
if(
PAIRP(BgL_lz00_3623))
{ /* Llib/unicode.scm 410 */
BgL_pairz00_3646 = BgL_lz00_3623; }  else 
{ 
 obj_t BgL_auxz00_8709;
BgL_auxz00_8709 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(18997L), BGl_string5010z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_lz00_3623); 
FAILURE(BgL_auxz00_8709,BFALSE,BFALSE);} 
BgL_arg1335z00_3644 = 
CDR(BgL_pairz00_3646); } 
{ 
 obj_t BgL_lz00_8715; long BgL_iz00_8714;
BgL_iz00_8714 = BgL_arg1334z00_3643; 
BgL_lz00_8715 = BgL_arg1335z00_3644; 
BgL_lz00_3623 = BgL_lz00_8715; 
BgL_iz00_3622 = BgL_iz00_8714; 
goto BgL_loopz00_3621;} } } } } } } } 

}



/* &list->ucs2-string */
obj_t BGl_z62listzd2ze3ucs2zd2stringz81zz__unicodez00(obj_t BgL_envz00_6176, obj_t BgL_listz00_6177)
{
{ /* Llib/unicode.scm 401 */
return 
BGl_listzd2ze3ucs2zd2stringze3zz__unicodez00(BgL_listz00_6177);} 

}



/* ucs2-string->list */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2ze3listze3zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_54)
{
{ /* Llib/unicode.scm 415 */
{ /* Llib/unicode.scm 416 */
 int BgL_lenz00_1344;
BgL_lenz00_1344 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_54); 
{ 
 long BgL_iz00_3666; obj_t BgL_accz00_3667;
BgL_iz00_3666 = 0L; 
BgL_accz00_3667 = BNIL; 
BgL_loopz00_3665:
if(
(BgL_iz00_3666==
(long)(BgL_lenz00_1344)))
{ /* Llib/unicode.scm 419 */
return 
bgl_reverse_bang(BgL_accz00_3667);}  else 
{ /* Llib/unicode.scm 421 */
 long BgL_arg1338z00_3671; obj_t BgL_arg1339z00_3672;
BgL_arg1338z00_3671 = 
(BgL_iz00_3666+1L); 
{ /* Llib/unicode.scm 422 */
 ucs2_t BgL_arg1341z00_3674;
{ /* Llib/unicode.scm 422 */
 ucs2_t BgL_res3408z00_3675;
{ /* Llib/unicode.scm 422 */
 int BgL_kz00_3677;
BgL_kz00_3677 = 
(int)(BgL_iz00_3666); 
{ /* Llib/unicode.scm 251 */
 bool_t BgL_test5429z00_8724;
{ /* Llib/unicode.scm 251 */
 long BgL_auxz00_8727; long BgL_tmpz00_8725;
BgL_auxz00_8727 = 
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_54)); 
BgL_tmpz00_8725 = 
(long)(BgL_kz00_3677); 
BgL_test5429z00_8724 = 
BOUND_CHECK(BgL_tmpz00_8725, BgL_auxz00_8727); } 
if(BgL_test5429z00_8724)
{ /* Llib/unicode.scm 251 */
BgL_res3408z00_3675 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_54, BgL_kz00_3677); }  else 
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1232z00_3681;
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1234z00_3682;
{ /* Llib/unicode.scm 256 */

BgL_arg1234z00_3682 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_54))-1L), 10L); } 
BgL_arg1232z00_3681 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1234z00_3682, BGl_string4979z00zz__unicodez00); } 
{ /* Llib/unicode.scm 253 */
 obj_t BgL_tmpz00_8737;
{ /* Llib/unicode.scm 253 */
 obj_t BgL_aux4577z00_7429;
BgL_aux4577z00_7429 = 
BGl_errorz00zz__errorz00(BGl_symbol4980z00zz__unicodez00, BgL_arg1232z00_3681, 
BINT(BgL_kz00_3677)); 
if(
UCS2P(BgL_aux4577z00_7429))
{ /* Llib/unicode.scm 253 */
BgL_tmpz00_8737 = BgL_aux4577z00_7429
; }  else 
{ 
 obj_t BgL_auxz00_8742;
BgL_auxz00_8742 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11452L), BGl_string5010z00zz__unicodez00, BGl_string4975z00zz__unicodez00, BgL_aux4577z00_7429); 
FAILURE(BgL_auxz00_8742,BFALSE,BFALSE);} } 
BgL_res3408z00_3675 = 
CUCS2(BgL_tmpz00_8737); } } } } 
BgL_arg1341z00_3674 = BgL_res3408z00_3675; } 
BgL_arg1339z00_3672 = 
MAKE_YOUNG_PAIR(
BUCS2(BgL_arg1341z00_3674), BgL_accz00_3667); } 
{ 
 obj_t BgL_accz00_8750; long BgL_iz00_8749;
BgL_iz00_8749 = BgL_arg1338z00_3671; 
BgL_accz00_8750 = BgL_arg1339z00_3672; 
BgL_accz00_3667 = BgL_accz00_8750; 
BgL_iz00_3666 = BgL_iz00_8749; 
goto BgL_loopz00_3665;} } } } } 

}



/* &ucs2-string->list */
obj_t BGl_z62ucs2zd2stringzd2ze3listz81zz__unicodez00(obj_t BgL_envz00_6178, obj_t BgL_ucs2zd2stringzd2_6179)
{
{ /* Llib/unicode.scm 415 */
{ /* Llib/unicode.scm 416 */
 obj_t BgL_auxz00_8751;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6179))
{ /* Llib/unicode.scm 416 */
BgL_auxz00_8751 = BgL_ucs2zd2stringzd2_6179
; }  else 
{ 
 obj_t BgL_auxz00_8754;
BgL_auxz00_8754 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(19272L), BGl_string5011z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6179); 
FAILURE(BgL_auxz00_8754,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2stringzd2ze3listze3zz__unicodez00(BgL_auxz00_8751);} } 

}



/* ucs2-string-copy */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2copyz00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_55)
{
{ /* Llib/unicode.scm 428 */
BGL_TAIL return 
c_ucs2_string_copy(BgL_ucs2zd2stringzd2_55);} 

}



/* &ucs2-string-copy */
obj_t BGl_z62ucs2zd2stringzd2copyz62zz__unicodez00(obj_t BgL_envz00_6180, obj_t BgL_ucs2zd2stringzd2_6181)
{
{ /* Llib/unicode.scm 428 */
{ /* Llib/unicode.scm 429 */
 obj_t BgL_auxz00_8760;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6181))
{ /* Llib/unicode.scm 429 */
BgL_auxz00_8760 = BgL_ucs2zd2stringzd2_6181
; }  else 
{ 
 obj_t BgL_auxz00_8763;
BgL_auxz00_8763 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(19747L), BGl_string5012z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6181); 
FAILURE(BgL_auxz00_8763,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2stringzd2copyz00zz__unicodez00(BgL_auxz00_8760);} } 

}



/* ucs2-string-fill! */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2fillz12z12zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_56, ucs2_t BgL_ucs2z00_57)
{
{ /* Llib/unicode.scm 434 */
{ /* Llib/unicode.scm 435 */
 int BgL_lenz00_1355;
BgL_lenz00_1355 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_56); 
{ 
 long BgL_iz00_3708;
BgL_iz00_3708 = 0L; 
BgL_loopz00_3707:
if(
(BgL_iz00_3708==
(long)(BgL_lenz00_1355)))
{ /* Llib/unicode.scm 437 */
return BgL_ucs2zd2stringzd2_56;}  else 
{ /* Llib/unicode.scm 437 */
{ /* Llib/unicode.scm 440 */
 int BgL_kz00_3713;
BgL_kz00_3713 = 
(int)(BgL_iz00_3708); 
{ /* Llib/unicode.scm 264 */
 bool_t BgL_test5434z00_8773;
{ /* Llib/unicode.scm 264 */
 long BgL_auxz00_8776; long BgL_tmpz00_8774;
BgL_auxz00_8776 = 
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_56)); 
BgL_tmpz00_8774 = 
(long)(BgL_kz00_3713); 
BgL_test5434z00_8773 = 
BOUND_CHECK(BgL_tmpz00_8774, BgL_auxz00_8776); } 
if(BgL_test5434z00_8773)
{ /* Llib/unicode.scm 264 */
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_56, BgL_kz00_3713, BgL_ucs2z00_57); }  else 
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1248z00_3718;
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1249z00_3719;
{ /* Llib/unicode.scm 269 */

BgL_arg1249z00_3719 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_56))-1L), 10L); } 
BgL_arg1248z00_3718 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1249z00_3719, BGl_string4979z00zz__unicodez00); } 
BGl_errorz00zz__errorz00(BGl_symbol4983z00zz__unicodez00, BgL_arg1248z00_3718, 
BINT(BgL_kz00_3713)); } } } 
{ 
 long BgL_iz00_8788;
BgL_iz00_8788 = 
(BgL_iz00_3708+1L); 
BgL_iz00_3708 = BgL_iz00_8788; 
goto BgL_loopz00_3707;} } } } } 

}



/* &ucs2-string-fill! */
obj_t BGl_z62ucs2zd2stringzd2fillz12z70zz__unicodez00(obj_t BgL_envz00_6182, obj_t BgL_ucs2zd2stringzd2_6183, obj_t BgL_ucs2z00_6184)
{
{ /* Llib/unicode.scm 434 */
{ /* Llib/unicode.scm 435 */
 ucs2_t BgL_auxz00_8797; obj_t BgL_auxz00_8790;
{ /* Llib/unicode.scm 435 */
 obj_t BgL_tmpz00_8798;
if(
UCS2P(BgL_ucs2z00_6184))
{ /* Llib/unicode.scm 435 */
BgL_tmpz00_8798 = BgL_ucs2z00_6184
; }  else 
{ 
 obj_t BgL_auxz00_8801;
BgL_auxz00_8801 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(20052L), BGl_string5013z00zz__unicodez00, BGl_string4975z00zz__unicodez00, BgL_ucs2z00_6184); 
FAILURE(BgL_auxz00_8801,BFALSE,BFALSE);} 
BgL_auxz00_8797 = 
CUCS2(BgL_tmpz00_8798); } 
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6183))
{ /* Llib/unicode.scm 435 */
BgL_auxz00_8790 = BgL_ucs2zd2stringzd2_6183
; }  else 
{ 
 obj_t BgL_auxz00_8793;
BgL_auxz00_8793 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(20052L), BGl_string5013z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6183); 
FAILURE(BgL_auxz00_8793,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2stringzd2fillz12z12zz__unicodez00(BgL_auxz00_8790, BgL_auxz00_8797);} } 

}



/* ucs2-string-upcase */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2upcasez00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_58)
{
{ /* Llib/unicode.scm 446 */
{ /* Llib/unicode.scm 447 */
 int BgL_lenz00_1362;
BgL_lenz00_1362 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_58); 
{ /* Llib/unicode.scm 447 */
 obj_t BgL_resz00_1363;
{ /* Llib/unicode.scm 137 */
 ucs2_t BgL_fillerz00_1373;
{ /* Llib/unicode.scm 137 */
 int BgL_tmpz00_8808;
BgL_tmpz00_8808 = 
(int)(
(
(unsigned char)(
(char)(((unsigned char)' '))))); 
BgL_fillerz00_1373 = 
BGL_INT_TO_UCS2(BgL_tmpz00_8808); } 
{ /* Llib/unicode.scm 137 */

BgL_resz00_1363 = 
make_ucs2_string(BgL_lenz00_1362, BgL_fillerz00_1373); } } 
{ /* Llib/unicode.scm 448 */

{ 
 long BgL_iz00_1365;
BgL_iz00_1365 = 0L; 
BgL_zc3z04anonymousza31346ze3z87_1366:
if(
(BgL_iz00_1365==
(long)(BgL_lenz00_1362)))
{ /* Llib/unicode.scm 450 */
return BgL_resz00_1363;}  else 
{ /* Llib/unicode.scm 450 */
{ /* Llib/unicode.scm 454 */
 ucs2_t BgL_arg1349z00_1368;
{ /* Llib/unicode.scm 454 */
 ucs2_t BgL_arg1351z00_1369;
{ /* Llib/unicode.scm 454 */
 ucs2_t BgL_res3409z00_3750;
{ /* Llib/unicode.scm 454 */
 int BgL_kz00_3738;
BgL_kz00_3738 = 
(int)(BgL_iz00_1365); 
{ /* Llib/unicode.scm 251 */
 bool_t BgL_test5438z00_8819;
{ /* Llib/unicode.scm 251 */
 long BgL_auxz00_8822; long BgL_tmpz00_8820;
BgL_auxz00_8822 = 
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_58)); 
BgL_tmpz00_8820 = 
(long)(BgL_kz00_3738); 
BgL_test5438z00_8819 = 
BOUND_CHECK(BgL_tmpz00_8820, BgL_auxz00_8822); } 
if(BgL_test5438z00_8819)
{ /* Llib/unicode.scm 251 */
BgL_res3409z00_3750 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_58, BgL_kz00_3738); }  else 
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1232z00_3741;
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1234z00_3742;
{ /* Llib/unicode.scm 256 */

BgL_arg1234z00_3742 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_58))-1L), 10L); } 
BgL_arg1232z00_3741 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1234z00_3742, BGl_string4979z00zz__unicodez00); } 
{ /* Llib/unicode.scm 253 */
 obj_t BgL_tmpz00_8832;
{ /* Llib/unicode.scm 253 */
 obj_t BgL_aux4587z00_7439;
BgL_aux4587z00_7439 = 
BGl_errorz00zz__errorz00(BGl_symbol4980z00zz__unicodez00, BgL_arg1232z00_3741, 
BINT(BgL_kz00_3738)); 
if(
UCS2P(BgL_aux4587z00_7439))
{ /* Llib/unicode.scm 253 */
BgL_tmpz00_8832 = BgL_aux4587z00_7439
; }  else 
{ 
 obj_t BgL_auxz00_8837;
BgL_auxz00_8837 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11452L), BGl_string5010z00zz__unicodez00, BGl_string4975z00zz__unicodez00, BgL_aux4587z00_7439); 
FAILURE(BgL_auxz00_8837,BFALSE,BFALSE);} } 
BgL_res3409z00_3750 = 
CUCS2(BgL_tmpz00_8832); } } } } 
BgL_arg1351z00_1369 = BgL_res3409z00_3750; } 
BgL_arg1349z00_1368 = 
ucs2_toupper(BgL_arg1351z00_1369); } 
{ /* Llib/unicode.scm 453 */
 int BgL_kz00_3753;
BgL_kz00_3753 = 
(int)(BgL_iz00_1365); 
{ /* Llib/unicode.scm 264 */
 bool_t BgL_test5440z00_8844;
{ /* Llib/unicode.scm 264 */
 long BgL_auxz00_8847; long BgL_tmpz00_8845;
BgL_auxz00_8847 = 
(long)(
UCS2_STRING_LENGTH(BgL_resz00_1363)); 
BgL_tmpz00_8845 = 
(long)(BgL_kz00_3753); 
BgL_test5440z00_8844 = 
BOUND_CHECK(BgL_tmpz00_8845, BgL_auxz00_8847); } 
if(BgL_test5440z00_8844)
{ /* Llib/unicode.scm 264 */
UCS2_STRING_SET(BgL_resz00_1363, BgL_kz00_3753, BgL_arg1349z00_1368); }  else 
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1248z00_3757;
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1249z00_3758;
{ /* Llib/unicode.scm 269 */

BgL_arg1249z00_3758 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_resz00_1363))-1L), 10L); } 
BgL_arg1248z00_3757 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1249z00_3758, BGl_string4979z00zz__unicodez00); } 
BGl_errorz00zz__errorz00(BGl_symbol4983z00zz__unicodez00, BgL_arg1248z00_3757, 
BINT(BgL_kz00_3753)); } } } } 
{ 
 long BgL_iz00_8859;
BgL_iz00_8859 = 
(BgL_iz00_1365+1L); 
BgL_iz00_1365 = BgL_iz00_8859; 
goto BgL_zc3z04anonymousza31346ze3z87_1366;} } } } } } } 

}



/* &ucs2-string-upcase */
obj_t BGl_z62ucs2zd2stringzd2upcasez62zz__unicodez00(obj_t BgL_envz00_6185, obj_t BgL_ucs2zd2stringzd2_6186)
{
{ /* Llib/unicode.scm 446 */
{ /* Llib/unicode.scm 447 */
 obj_t BgL_auxz00_8861;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6186))
{ /* Llib/unicode.scm 447 */
BgL_auxz00_8861 = BgL_ucs2zd2stringzd2_6186
; }  else 
{ 
 obj_t BgL_auxz00_8864;
BgL_auxz00_8864 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(20502L), BGl_string5014z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6186); 
FAILURE(BgL_auxz00_8864,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2stringzd2upcasez00zz__unicodez00(BgL_auxz00_8861);} } 

}



/* ucs2-string-downcase */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2downcasez00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_59)
{
{ /* Llib/unicode.scm 460 */
{ /* Llib/unicode.scm 461 */
 int BgL_lenz00_1374;
BgL_lenz00_1374 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_59); 
{ /* Llib/unicode.scm 461 */
 obj_t BgL_resz00_1375;
{ /* Llib/unicode.scm 137 */
 ucs2_t BgL_fillerz00_1385;
{ /* Llib/unicode.scm 137 */
 int BgL_tmpz00_8870;
BgL_tmpz00_8870 = 
(int)(
(
(unsigned char)(
(char)(((unsigned char)' '))))); 
BgL_fillerz00_1385 = 
BGL_INT_TO_UCS2(BgL_tmpz00_8870); } 
{ /* Llib/unicode.scm 137 */

BgL_resz00_1375 = 
make_ucs2_string(BgL_lenz00_1374, BgL_fillerz00_1385); } } 
{ /* Llib/unicode.scm 462 */

{ 
 long BgL_iz00_1377;
BgL_iz00_1377 = 0L; 
BgL_zc3z04anonymousza31353ze3z87_1378:
if(
(BgL_iz00_1377==
(long)(BgL_lenz00_1374)))
{ /* Llib/unicode.scm 464 */
return BgL_resz00_1375;}  else 
{ /* Llib/unicode.scm 464 */
{ /* Llib/unicode.scm 468 */
 ucs2_t BgL_arg1355z00_1380;
{ /* Llib/unicode.scm 468 */
 ucs2_t BgL_arg1356z00_1381;
{ /* Llib/unicode.scm 468 */
 ucs2_t BgL_res3410z00_3789;
{ /* Llib/unicode.scm 468 */
 int BgL_kz00_3777;
BgL_kz00_3777 = 
(int)(BgL_iz00_1377); 
{ /* Llib/unicode.scm 251 */
 bool_t BgL_test5443z00_8881;
{ /* Llib/unicode.scm 251 */
 long BgL_auxz00_8884; long BgL_tmpz00_8882;
BgL_auxz00_8884 = 
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_59)); 
BgL_tmpz00_8882 = 
(long)(BgL_kz00_3777); 
BgL_test5443z00_8881 = 
BOUND_CHECK(BgL_tmpz00_8882, BgL_auxz00_8884); } 
if(BgL_test5443z00_8881)
{ /* Llib/unicode.scm 251 */
BgL_res3410z00_3789 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_59, BgL_kz00_3777); }  else 
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1232z00_3780;
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1234z00_3781;
{ /* Llib/unicode.scm 256 */

BgL_arg1234z00_3781 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_59))-1L), 10L); } 
BgL_arg1232z00_3780 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1234z00_3781, BGl_string4979z00zz__unicodez00); } 
{ /* Llib/unicode.scm 253 */
 obj_t BgL_tmpz00_8894;
{ /* Llib/unicode.scm 253 */
 obj_t BgL_aux4591z00_7443;
BgL_aux4591z00_7443 = 
BGl_errorz00zz__errorz00(BGl_symbol4980z00zz__unicodez00, BgL_arg1232z00_3780, 
BINT(BgL_kz00_3777)); 
if(
UCS2P(BgL_aux4591z00_7443))
{ /* Llib/unicode.scm 253 */
BgL_tmpz00_8894 = BgL_aux4591z00_7443
; }  else 
{ 
 obj_t BgL_auxz00_8899;
BgL_auxz00_8899 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11452L), BGl_string5010z00zz__unicodez00, BGl_string4975z00zz__unicodez00, BgL_aux4591z00_7443); 
FAILURE(BgL_auxz00_8899,BFALSE,BFALSE);} } 
BgL_res3410z00_3789 = 
CUCS2(BgL_tmpz00_8894); } } } } 
BgL_arg1356z00_1381 = BgL_res3410z00_3789; } 
BgL_arg1355z00_1380 = 
ucs2_tolower(BgL_arg1356z00_1381); } 
{ /* Llib/unicode.scm 467 */
 int BgL_kz00_3792;
BgL_kz00_3792 = 
(int)(BgL_iz00_1377); 
{ /* Llib/unicode.scm 264 */
 bool_t BgL_test5445z00_8906;
{ /* Llib/unicode.scm 264 */
 long BgL_auxz00_8909; long BgL_tmpz00_8907;
BgL_auxz00_8909 = 
(long)(
UCS2_STRING_LENGTH(BgL_resz00_1375)); 
BgL_tmpz00_8907 = 
(long)(BgL_kz00_3792); 
BgL_test5445z00_8906 = 
BOUND_CHECK(BgL_tmpz00_8907, BgL_auxz00_8909); } 
if(BgL_test5445z00_8906)
{ /* Llib/unicode.scm 264 */
UCS2_STRING_SET(BgL_resz00_1375, BgL_kz00_3792, BgL_arg1355z00_1380); }  else 
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1248z00_3796;
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1249z00_3797;
{ /* Llib/unicode.scm 269 */

BgL_arg1249z00_3797 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_resz00_1375))-1L), 10L); } 
BgL_arg1248z00_3796 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1249z00_3797, BGl_string4979z00zz__unicodez00); } 
BGl_errorz00zz__errorz00(BGl_symbol4983z00zz__unicodez00, BgL_arg1248z00_3796, 
BINT(BgL_kz00_3792)); } } } } 
{ 
 long BgL_iz00_8921;
BgL_iz00_8921 = 
(BgL_iz00_1377+1L); 
BgL_iz00_1377 = BgL_iz00_8921; 
goto BgL_zc3z04anonymousza31353ze3z87_1378;} } } } } } } 

}



/* &ucs2-string-downcase */
obj_t BGl_z62ucs2zd2stringzd2downcasez62zz__unicodez00(obj_t BgL_envz00_6187, obj_t BgL_ucs2zd2stringzd2_6188)
{
{ /* Llib/unicode.scm 460 */
{ /* Llib/unicode.scm 461 */
 obj_t BgL_auxz00_8923;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6188))
{ /* Llib/unicode.scm 461 */
BgL_auxz00_8923 = BgL_ucs2zd2stringzd2_6188
; }  else 
{ 
 obj_t BgL_auxz00_8926;
BgL_auxz00_8926 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(21017L), BGl_string5015z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6188); 
FAILURE(BgL_auxz00_8926,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2stringzd2downcasez00zz__unicodez00(BgL_auxz00_8923);} } 

}



/* ucs2-string-upcase! */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2upcasez12z12zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_60)
{
{ /* Llib/unicode.scm 474 */
{ /* Llib/unicode.scm 475 */
 int BgL_lenz00_1386;
BgL_lenz00_1386 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_60); 
{ /* Llib/unicode.scm 476 */

{ 
 long BgL_iz00_1389;
BgL_iz00_1389 = 0L; 
BgL_zc3z04anonymousza31358ze3z87_1390:
if(
(BgL_iz00_1389==
(long)(BgL_lenz00_1386)))
{ /* Llib/unicode.scm 478 */
return BgL_ucs2zd2stringzd2_60;}  else 
{ /* Llib/unicode.scm 478 */
{ /* Llib/unicode.scm 482 */
 ucs2_t BgL_arg1360z00_1392;
{ /* Llib/unicode.scm 482 */
 ucs2_t BgL_arg1361z00_1393;
{ /* Llib/unicode.scm 482 */
 ucs2_t BgL_res3411z00_3822;
{ /* Llib/unicode.scm 482 */
 int BgL_kz00_3810;
BgL_kz00_3810 = 
(int)(BgL_iz00_1389); 
{ /* Llib/unicode.scm 251 */
 bool_t BgL_test5448z00_8936;
{ /* Llib/unicode.scm 251 */
 long BgL_auxz00_8939; long BgL_tmpz00_8937;
BgL_auxz00_8939 = 
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_60)); 
BgL_tmpz00_8937 = 
(long)(BgL_kz00_3810); 
BgL_test5448z00_8936 = 
BOUND_CHECK(BgL_tmpz00_8937, BgL_auxz00_8939); } 
if(BgL_test5448z00_8936)
{ /* Llib/unicode.scm 251 */
BgL_res3411z00_3822 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_60, BgL_kz00_3810); }  else 
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1232z00_3813;
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1234z00_3814;
{ /* Llib/unicode.scm 256 */

BgL_arg1234z00_3814 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_60))-1L), 10L); } 
BgL_arg1232z00_3813 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1234z00_3814, BGl_string4979z00zz__unicodez00); } 
{ /* Llib/unicode.scm 253 */
 obj_t BgL_tmpz00_8949;
{ /* Llib/unicode.scm 253 */
 obj_t BgL_aux4595z00_7447;
BgL_aux4595z00_7447 = 
BGl_errorz00zz__errorz00(BGl_symbol4980z00zz__unicodez00, BgL_arg1232z00_3813, 
BINT(BgL_kz00_3810)); 
if(
UCS2P(BgL_aux4595z00_7447))
{ /* Llib/unicode.scm 253 */
BgL_tmpz00_8949 = BgL_aux4595z00_7447
; }  else 
{ 
 obj_t BgL_auxz00_8954;
BgL_auxz00_8954 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11452L), BGl_string5010z00zz__unicodez00, BGl_string4975z00zz__unicodez00, BgL_aux4595z00_7447); 
FAILURE(BgL_auxz00_8954,BFALSE,BFALSE);} } 
BgL_res3411z00_3822 = 
CUCS2(BgL_tmpz00_8949); } } } } 
BgL_arg1361z00_1393 = BgL_res3411z00_3822; } 
BgL_arg1360z00_1392 = 
ucs2_toupper(BgL_arg1361z00_1393); } 
{ /* Llib/unicode.scm 481 */
 int BgL_kz00_3825;
BgL_kz00_3825 = 
(int)(BgL_iz00_1389); 
{ /* Llib/unicode.scm 264 */
 bool_t BgL_test5450z00_8961;
{ /* Llib/unicode.scm 264 */
 long BgL_auxz00_8964; long BgL_tmpz00_8962;
BgL_auxz00_8964 = 
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_60)); 
BgL_tmpz00_8962 = 
(long)(BgL_kz00_3825); 
BgL_test5450z00_8961 = 
BOUND_CHECK(BgL_tmpz00_8962, BgL_auxz00_8964); } 
if(BgL_test5450z00_8961)
{ /* Llib/unicode.scm 264 */
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_60, BgL_kz00_3825, BgL_arg1360z00_1392); }  else 
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1248z00_3829;
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1249z00_3830;
{ /* Llib/unicode.scm 269 */

BgL_arg1249z00_3830 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_60))-1L), 10L); } 
BgL_arg1248z00_3829 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1249z00_3830, BGl_string4979z00zz__unicodez00); } 
BGl_errorz00zz__errorz00(BGl_symbol4983z00zz__unicodez00, BgL_arg1248z00_3829, 
BINT(BgL_kz00_3825)); } } } } 
{ 
 long BgL_iz00_8976;
BgL_iz00_8976 = 
(BgL_iz00_1389+1L); 
BgL_iz00_1389 = BgL_iz00_8976; 
goto BgL_zc3z04anonymousza31358ze3z87_1390;} } } } } } 

}



/* &ucs2-string-upcase! */
obj_t BGl_z62ucs2zd2stringzd2upcasez12z70zz__unicodez00(obj_t BgL_envz00_6189, obj_t BgL_ucs2zd2stringzd2_6190)
{
{ /* Llib/unicode.scm 474 */
{ /* Llib/unicode.scm 475 */
 obj_t BgL_auxz00_8978;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6190))
{ /* Llib/unicode.scm 475 */
BgL_auxz00_8978 = BgL_ucs2zd2stringzd2_6190
; }  else 
{ 
 obj_t BgL_auxz00_8981;
BgL_auxz00_8981 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(21533L), BGl_string5016z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6190); 
FAILURE(BgL_auxz00_8981,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2stringzd2upcasez12z12zz__unicodez00(BgL_auxz00_8978);} } 

}



/* ucs2-string-downcase! */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2downcasez12z12zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_61)
{
{ /* Llib/unicode.scm 488 */
{ /* Llib/unicode.scm 489 */
 int BgL_lenz00_1396;
BgL_lenz00_1396 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_61); 
{ /* Llib/unicode.scm 490 */

{ 
 long BgL_iz00_1399;
BgL_iz00_1399 = 0L; 
BgL_zc3z04anonymousza31363ze3z87_1400:
if(
(BgL_iz00_1399==
(long)(BgL_lenz00_1396)))
{ /* Llib/unicode.scm 492 */
return BgL_ucs2zd2stringzd2_61;}  else 
{ /* Llib/unicode.scm 492 */
{ /* Llib/unicode.scm 496 */
 ucs2_t BgL_arg1365z00_1402;
{ /* Llib/unicode.scm 496 */
 ucs2_t BgL_arg1366z00_1403;
{ /* Llib/unicode.scm 496 */
 ucs2_t BgL_res3412z00_3855;
{ /* Llib/unicode.scm 496 */
 int BgL_kz00_3843;
BgL_kz00_3843 = 
(int)(BgL_iz00_1399); 
{ /* Llib/unicode.scm 251 */
 bool_t BgL_test5453z00_8991;
{ /* Llib/unicode.scm 251 */
 long BgL_auxz00_8994; long BgL_tmpz00_8992;
BgL_auxz00_8994 = 
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_61)); 
BgL_tmpz00_8992 = 
(long)(BgL_kz00_3843); 
BgL_test5453z00_8991 = 
BOUND_CHECK(BgL_tmpz00_8992, BgL_auxz00_8994); } 
if(BgL_test5453z00_8991)
{ /* Llib/unicode.scm 251 */
BgL_res3412z00_3855 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_61, BgL_kz00_3843); }  else 
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1232z00_3846;
{ /* Llib/unicode.scm 256 */
 obj_t BgL_arg1234z00_3847;
{ /* Llib/unicode.scm 256 */

BgL_arg1234z00_3847 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_61))-1L), 10L); } 
BgL_arg1232z00_3846 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1234z00_3847, BGl_string4979z00zz__unicodez00); } 
{ /* Llib/unicode.scm 253 */
 obj_t BgL_tmpz00_9004;
{ /* Llib/unicode.scm 253 */
 obj_t BgL_aux4599z00_7451;
BgL_aux4599z00_7451 = 
BGl_errorz00zz__errorz00(BGl_symbol4980z00zz__unicodez00, BgL_arg1232z00_3846, 
BINT(BgL_kz00_3843)); 
if(
UCS2P(BgL_aux4599z00_7451))
{ /* Llib/unicode.scm 253 */
BgL_tmpz00_9004 = BgL_aux4599z00_7451
; }  else 
{ 
 obj_t BgL_auxz00_9009;
BgL_auxz00_9009 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(11452L), BGl_string5010z00zz__unicodez00, BGl_string4975z00zz__unicodez00, BgL_aux4599z00_7451); 
FAILURE(BgL_auxz00_9009,BFALSE,BFALSE);} } 
BgL_res3412z00_3855 = 
CUCS2(BgL_tmpz00_9004); } } } } 
BgL_arg1366z00_1403 = BgL_res3412z00_3855; } 
BgL_arg1365z00_1402 = 
ucs2_tolower(BgL_arg1366z00_1403); } 
{ /* Llib/unicode.scm 495 */
 int BgL_kz00_3858;
BgL_kz00_3858 = 
(int)(BgL_iz00_1399); 
{ /* Llib/unicode.scm 264 */
 bool_t BgL_test5455z00_9016;
{ /* Llib/unicode.scm 264 */
 long BgL_auxz00_9019; long BgL_tmpz00_9017;
BgL_auxz00_9019 = 
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_61)); 
BgL_tmpz00_9017 = 
(long)(BgL_kz00_3858); 
BgL_test5455z00_9016 = 
BOUND_CHECK(BgL_tmpz00_9017, BgL_auxz00_9019); } 
if(BgL_test5455z00_9016)
{ /* Llib/unicode.scm 264 */
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_61, BgL_kz00_3858, BgL_arg1365z00_1402); }  else 
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1248z00_3862;
{ /* Llib/unicode.scm 269 */
 obj_t BgL_arg1249z00_3863;
{ /* Llib/unicode.scm 269 */

BgL_arg1249z00_3863 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_61))-1L), 10L); } 
BgL_arg1248z00_3862 = 
string_append_3(BGl_string4978z00zz__unicodez00, BgL_arg1249z00_3863, BGl_string4979z00zz__unicodez00); } 
BGl_errorz00zz__errorz00(BGl_symbol4983z00zz__unicodez00, BgL_arg1248z00_3862, 
BINT(BgL_kz00_3858)); } } } } 
{ 
 long BgL_iz00_9031;
BgL_iz00_9031 = 
(BgL_iz00_1399+1L); 
BgL_iz00_1399 = BgL_iz00_9031; 
goto BgL_zc3z04anonymousza31363ze3z87_1400;} } } } } } 

}



/* &ucs2-string-downcase! */
obj_t BGl_z62ucs2zd2stringzd2downcasez12z70zz__unicodez00(obj_t BgL_envz00_6191, obj_t BgL_ucs2zd2stringzd2_6192)
{
{ /* Llib/unicode.scm 488 */
{ /* Llib/unicode.scm 489 */
 obj_t BgL_auxz00_9033;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_6192))
{ /* Llib/unicode.scm 489 */
BgL_auxz00_9033 = BgL_ucs2zd2stringzd2_6192
; }  else 
{ 
 obj_t BgL_auxz00_9036;
BgL_auxz00_9036 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(22038L), BGl_string5017z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2zd2stringzd2_6192); 
FAILURE(BgL_auxz00_9036,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2stringzd2downcasez12z12zz__unicodez00(BgL_auxz00_9033);} } 

}



/* ucs2-string->utf8-string */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2ze3utf8zd2stringz31zz__unicodez00(obj_t BgL_ucs2z00_62)
{
{ /* Llib/unicode.scm 502 */
BGL_TAIL return 
ucs2_string_to_utf8_string(BgL_ucs2z00_62);} 

}



/* &ucs2-string->utf8-string */
obj_t BGl_z62ucs2zd2stringzd2ze3utf8zd2stringz53zz__unicodez00(obj_t BgL_envz00_6193, obj_t BgL_ucs2z00_6194)
{
{ /* Llib/unicode.scm 502 */
{ /* Llib/unicode.scm 503 */
 obj_t BgL_auxz00_9042;
if(
UCS2_STRINGP(BgL_ucs2z00_6194))
{ /* Llib/unicode.scm 503 */
BgL_auxz00_9042 = BgL_ucs2z00_6194
; }  else 
{ 
 obj_t BgL_auxz00_9045;
BgL_auxz00_9045 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(22554L), BGl_string5018z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_ucs2z00_6194); 
FAILURE(BgL_auxz00_9045,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2stringzd2ze3utf8zd2stringz31zz__unicodez00(BgL_auxz00_9042);} } 

}



/* inverse-utf8-table */
BGL_EXPORTED_DEF obj_t BGl_inversezd2utf8zd2tablez00zz__unicodez00(obj_t BgL_tablez00_63)
{
{ /* Llib/unicode.scm 611 */
{ 
 long BgL_iz00_1411; obj_t BgL_resz00_1412;
BgL_iz00_1411 = 0L; 
BgL_resz00_1412 = BNIL; 
BgL_zc3z04anonymousza31368ze3z87_1413:
if(
(BgL_iz00_1411==
VECTOR_LENGTH(BgL_tablez00_63)))
{ /* Llib/unicode.scm 636 */
return BgL_resz00_1412;}  else 
{ /* Llib/unicode.scm 638 */
 obj_t BgL_sz00_1415;
{ /* Llib/unicode.scm 638 */
 bool_t BgL_test5459z00_9053;
{ /* Llib/unicode.scm 638 */
 long BgL_tmpz00_9054;
BgL_tmpz00_9054 = 
VECTOR_LENGTH(BgL_tablez00_63); 
BgL_test5459z00_9053 = 
BOUND_CHECK(BgL_iz00_1411, BgL_tmpz00_9054); } 
if(BgL_test5459z00_9053)
{ /* Llib/unicode.scm 638 */
BgL_sz00_1415 = 
VECTOR_REF(BgL_tablez00_63,BgL_iz00_1411); }  else 
{ 
 obj_t BgL_auxz00_9058;
BgL_auxz00_9058 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(26084L), BGl_string5019z00zz__unicodez00, BgL_tablez00_63, 
(int)(
VECTOR_LENGTH(BgL_tablez00_63)), 
(int)(BgL_iz00_1411)); 
FAILURE(BgL_auxz00_9058,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 639 */
 bool_t BgL_test5460z00_9065;
{ /* Llib/unicode.scm 639 */
 long BgL_tmpz00_9066;
{ /* Llib/unicode.scm 639 */
 obj_t BgL_stringz00_3893;
if(
STRINGP(BgL_sz00_1415))
{ /* Llib/unicode.scm 639 */
BgL_stringz00_3893 = BgL_sz00_1415; }  else 
{ 
 obj_t BgL_auxz00_9069;
BgL_auxz00_9069 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(26118L), BGl_string5010z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_sz00_1415); 
FAILURE(BgL_auxz00_9069,BFALSE,BFALSE);} 
BgL_tmpz00_9066 = 
STRING_LENGTH(BgL_stringz00_3893); } 
BgL_test5460z00_9065 = 
(BgL_tmpz00_9066>0L); } 
if(BgL_test5460z00_9065)
{ 
 obj_t BgL_resz00_9077; long BgL_iz00_9075;
BgL_iz00_9075 = 
(BgL_iz00_1411+1L); 
BgL_resz00_9077 = 
BGl_addzd2tablezd2entryze70ze7zz__unicodez00(BgL_resz00_1412, BgL_sz00_1415, 
(128L+BgL_iz00_1411)); 
BgL_resz00_1412 = BgL_resz00_9077; 
BgL_iz00_1411 = BgL_iz00_9075; 
goto BgL_zc3z04anonymousza31368ze3z87_1413;}  else 
{ 
 long BgL_iz00_9080;
BgL_iz00_9080 = 
(BgL_iz00_1411+1L); 
BgL_iz00_1411 = BgL_iz00_9080; 
goto BgL_zc3z04anonymousza31368ze3z87_1413;} } } } } 

}



/* loop~1 */
obj_t BGl_loopze71ze7zz__unicodez00(long BgL_lenz00_6278, long BgL_charz00_6277, obj_t BgL_sz00_6276, long BgL_iz00_1429)
{
{ /* Llib/unicode.scm 615 */
if(
(BgL_lenz00_6278==BgL_iz00_1429))
{ /* Llib/unicode.scm 616 */
return 
BCHAR(
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_charz00_6277));}  else 
{ /* Llib/unicode.scm 618 */
 obj_t BgL_arg1381z00_1432;
{ /* Llib/unicode.scm 618 */
 long BgL_arg1383z00_1434; obj_t BgL_arg1384z00_1435;
{ /* Llib/unicode.scm 618 */
 unsigned char BgL_tmpz00_9086;
{ /* Llib/unicode.scm 618 */
 obj_t BgL_stringz00_3875;
if(
STRINGP(BgL_sz00_6276))
{ /* Llib/unicode.scm 618 */
BgL_stringz00_3875 = BgL_sz00_6276; }  else 
{ 
 obj_t BgL_auxz00_9089;
BgL_auxz00_9089 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(25620L), BGl_string5021z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_sz00_6276); 
FAILURE(BgL_auxz00_9089,BFALSE,BFALSE);} 
{ /* Llib/unicode.scm 618 */
 long BgL_l3433z00_6285;
BgL_l3433z00_6285 = 
STRING_LENGTH(BgL_stringz00_3875); 
if(
BOUND_CHECK(BgL_iz00_1429, BgL_l3433z00_6285))
{ /* Llib/unicode.scm 618 */
BgL_tmpz00_9086 = 
STRING_REF(BgL_stringz00_3875, BgL_iz00_1429)
; }  else 
{ 
 obj_t BgL_auxz00_9097;
BgL_auxz00_9097 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(25608L), BGl_string5022z00zz__unicodez00, BgL_stringz00_3875, 
(int)(BgL_l3433z00_6285), 
(int)(BgL_iz00_1429)); 
FAILURE(BgL_auxz00_9097,BFALSE,BFALSE);} } } 
BgL_arg1383z00_1434 = 
(BgL_tmpz00_9086); } 
BgL_arg1384z00_1435 = 
BGl_loopze71ze7zz__unicodez00(BgL_lenz00_6278, BgL_charz00_6277, BgL_sz00_6276, 
(BgL_iz00_1429+1L)); 
BgL_arg1381z00_1432 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1383z00_1434), BgL_arg1384z00_1435); } 
{ /* Llib/unicode.scm 618 */
 obj_t BgL_list1382z00_1433;
BgL_list1382z00_1433 = 
MAKE_YOUNG_PAIR(BgL_arg1381z00_1432, BNIL); 
return BgL_list1382z00_1433;} } } 

}



/* make-table-entry~0 */
obj_t BGl_makezd2tablezd2entryze70ze7zz__unicodez00(obj_t BgL_sz00_1424, long BgL_charz00_1425)
{
{ /* Llib/unicode.scm 618 */
{ /* Llib/unicode.scm 614 */
 long BgL_lenz00_1427;
{ /* Llib/unicode.scm 614 */
 obj_t BgL_stringz00_3872;
if(
STRINGP(BgL_sz00_1424))
{ /* Llib/unicode.scm 614 */
BgL_stringz00_3872 = BgL_sz00_1424; }  else 
{ 
 obj_t BgL_auxz00_9111;
BgL_auxz00_9111 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(25495L), BGl_string5023z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_sz00_1424); 
FAILURE(BgL_auxz00_9111,BFALSE,BFALSE);} 
BgL_lenz00_1427 = 
STRING_LENGTH(BgL_stringz00_3872); } 
return 
BGl_loopze71ze7zz__unicodez00(BgL_lenz00_1427, BgL_charz00_1425, BgL_sz00_1424, 0L);} } 

}



/* loop~2 */
obj_t BGl_loopze72ze7zz__unicodez00(obj_t BgL_ez00_1445, obj_t BgL_tablez00_1446)
{
{ /* Llib/unicode.scm 621 */
if(
NULLP(BgL_ez00_1445))
{ /* Llib/unicode.scm 623 */
return BgL_tablez00_1446;}  else 
{ /* Llib/unicode.scm 625 */
 obj_t BgL_nz00_1449;
{ /* Llib/unicode.scm 625 */
 obj_t BgL_pairz00_3881;
if(
PAIRP(BgL_ez00_1445))
{ /* Llib/unicode.scm 625 */
BgL_pairz00_3881 = BgL_ez00_1445; }  else 
{ 
 obj_t BgL_auxz00_9121;
BgL_auxz00_9121 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(25815L), BGl_string5024z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_ez00_1445); 
FAILURE(BgL_auxz00_9121,BFALSE,BFALSE);} 
BgL_nz00_1449 = 
CAR(BgL_pairz00_3881); } 
{ /* Llib/unicode.scm 625 */
 obj_t BgL_oz00_1450;
{ /* Llib/unicode.scm 626 */
 obj_t BgL_auxz00_9126;
{ /* Llib/unicode.scm 626 */
 bool_t BgL_test5468z00_9127;
if(
PAIRP(BgL_tablez00_1446))
{ /* Llib/unicode.scm 626 */
BgL_test5468z00_9127 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 626 */
BgL_test5468z00_9127 = 
NULLP(BgL_tablez00_1446)
; } 
if(BgL_test5468z00_9127)
{ /* Llib/unicode.scm 626 */
BgL_auxz00_9126 = BgL_tablez00_1446
; }  else 
{ 
 obj_t BgL_auxz00_9131;
BgL_auxz00_9131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(25836L), BGl_string5024z00zz__unicodez00, BGl_string5009z00zz__unicodez00, BgL_tablez00_1446); 
FAILURE(BgL_auxz00_9131,BFALSE,BFALSE);} } 
BgL_oz00_1450 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_nz00_1449, BgL_auxz00_9126); } 
{ /* Llib/unicode.scm 626 */

if(
CBOOL(BgL_oz00_1450))
{ /* Llib/unicode.scm 628 */
 obj_t BgL_stz00_1451;
{ /* Llib/unicode.scm 628 */
 obj_t BgL_pairz00_3882;
if(
PAIRP(BgL_oz00_1450))
{ /* Llib/unicode.scm 628 */
BgL_pairz00_3882 = BgL_oz00_1450; }  else 
{ 
 obj_t BgL_auxz00_9140;
BgL_auxz00_9140 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(25874L), BGl_string5024z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_oz00_1450); 
FAILURE(BgL_auxz00_9140,BFALSE,BFALSE);} 
BgL_stz00_1451 = 
CDR(BgL_pairz00_3882); } 
{ /* Llib/unicode.scm 629 */
 obj_t BgL_arg1390z00_1452;
{ /* Llib/unicode.scm 629 */
 obj_t BgL_arg1391z00_1453;
{ /* Llib/unicode.scm 629 */
 obj_t BgL_pairz00_3883;
if(
PAIRP(BgL_ez00_1445))
{ /* Llib/unicode.scm 629 */
BgL_pairz00_3883 = BgL_ez00_1445; }  else 
{ 
 obj_t BgL_auxz00_9147;
BgL_auxz00_9147 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(25912L), BGl_string5024z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_ez00_1445); 
FAILURE(BgL_auxz00_9147,BFALSE,BFALSE);} 
{ /* Llib/unicode.scm 629 */
 obj_t BgL_pairz00_3886;
{ /* Llib/unicode.scm 629 */
 obj_t BgL_aux4619z00_7471;
BgL_aux4619z00_7471 = 
CDR(BgL_pairz00_3883); 
if(
PAIRP(BgL_aux4619z00_7471))
{ /* Llib/unicode.scm 629 */
BgL_pairz00_3886 = BgL_aux4619z00_7471; }  else 
{ 
 obj_t BgL_auxz00_9154;
BgL_auxz00_9154 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(25906L), BGl_string5024z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_aux4619z00_7471); 
FAILURE(BgL_auxz00_9154,BFALSE,BFALSE);} } 
BgL_arg1391z00_1453 = 
CAR(BgL_pairz00_3886); } } 
BgL_arg1390z00_1452 = 
BGl_loopze72ze7zz__unicodez00(BgL_arg1391z00_1453, BgL_stz00_1451); } 
{ /* Llib/unicode.scm 629 */
 obj_t BgL_pairz00_3887;
if(
PAIRP(BgL_oz00_1450))
{ /* Llib/unicode.scm 629 */
BgL_pairz00_3887 = BgL_oz00_1450; }  else 
{ 
 obj_t BgL_auxz00_9162;
BgL_auxz00_9162 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(25898L), BGl_string5024z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_oz00_1450); 
FAILURE(BgL_auxz00_9162,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_3887, BgL_arg1390z00_1452); } } 
return BgL_tablez00_1446;}  else 
{ /* Llib/unicode.scm 627 */
return 
MAKE_YOUNG_PAIR(BgL_ez00_1445, BgL_tablez00_1446);} } } } } 

}



/* add-table-entry~0 */
obj_t BGl_addzd2tablezd2entryze70ze7zz__unicodez00(obj_t BgL_tablez00_1439, obj_t BgL_sz00_1440, long BgL_charz00_1441)
{
{ /* Llib/unicode.scm 631 */
{ /* Llib/unicode.scm 621 */
 obj_t BgL_g1042z00_1443;
{ /* Llib/unicode.scm 621 */
 obj_t BgL_arg1392z00_1455;
BgL_arg1392z00_1455 = 
BGl_makezd2tablezd2entryze70ze7zz__unicodez00(BgL_sz00_1440, BgL_charz00_1441); 
{ /* Llib/unicode.scm 621 */
 obj_t BgL_pairz00_3880;
if(
PAIRP(BgL_arg1392z00_1455))
{ /* Llib/unicode.scm 621 */
BgL_pairz00_3880 = BgL_arg1392z00_1455; }  else 
{ 
 obj_t BgL_auxz00_9171;
BgL_auxz00_9171 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(25744L), BGl_string5025z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_arg1392z00_1455); 
FAILURE(BgL_auxz00_9171,BFALSE,BFALSE);} 
BgL_g1042z00_1443 = 
CAR(BgL_pairz00_3880); } } 
return 
BGl_loopze72ze7zz__unicodez00(BgL_g1042z00_1443, BgL_tablez00_1439);} } 

}



/* &inverse-utf8-table */
obj_t BGl_z62inversezd2utf8zd2tablez62zz__unicodez00(obj_t BgL_envz00_6195, obj_t BgL_tablez00_6196)
{
{ /* Llib/unicode.scm 611 */
{ /* Llib/unicode.scm 614 */
 obj_t BgL_auxz00_9177;
if(
VECTORP(BgL_tablez00_6196))
{ /* Llib/unicode.scm 614 */
BgL_auxz00_9177 = BgL_tablez00_6196
; }  else 
{ 
 obj_t BgL_auxz00_9180;
BgL_auxz00_9180 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(25484L), BGl_string5026z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_tablez00_6196); 
FAILURE(BgL_auxz00_9180,BFALSE,BFALSE);} 
return 
BGl_inversezd2utf8zd2tablez00zz__unicodez00(BgL_auxz00_9177);} } 

}



/* utf8-string->ucs2-string */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2stringzd2ze3ucs2zd2stringz31zz__unicodez00(obj_t BgL_utf8z00_64)
{
{ /* Llib/unicode.scm 646 */
BGL_TAIL return 
utf8_string_to_ucs2_string(BgL_utf8z00_64);} 

}



/* &utf8-string->ucs2-string */
obj_t BGl_z62utf8zd2stringzd2ze3ucs2zd2stringz53zz__unicodez00(obj_t BgL_envz00_6197, obj_t BgL_utf8z00_6198)
{
{ /* Llib/unicode.scm 646 */
{ /* Llib/unicode.scm 647 */
 obj_t BgL_auxz00_9186;
if(
STRINGP(BgL_utf8z00_6198))
{ /* Llib/unicode.scm 647 */
BgL_auxz00_9186 = BgL_utf8z00_6198
; }  else 
{ 
 obj_t BgL_auxz00_9189;
BgL_auxz00_9189 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(26505L), BGl_string5027z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_utf8z00_6198); 
FAILURE(BgL_auxz00_9189,BFALSE,BFALSE);} 
return 
BGl_utf8zd2stringzd2ze3ucs2zd2stringz31zz__unicodez00(BgL_auxz00_9186);} } 

}



/* utf8->8bits-length */
long BGl_utf8zd2ze38bitszd2lengthze3zz__unicodez00(obj_t BgL_strz00_65, long BgL_lenz00_66)
{
{ /* Llib/unicode.scm 652 */
{ 
 long BgL_siza7eza7_1459; long BgL_iz00_1460;
BgL_siza7eza7_1459 = 0L; 
BgL_iz00_1460 = 0L; 
BgL_zc3z04anonymousza31393ze3z87_1461:
if(
(BgL_iz00_1460>=BgL_lenz00_66))
{ /* Llib/unicode.scm 655 */
return BgL_siza7eza7_1459;}  else 
{ /* Llib/unicode.scm 657 */
 long BgL_cz00_1463;
{ /* Llib/unicode.scm 657 */
 unsigned char BgL_tmpz00_9196;
{ /* Llib/unicode.scm 657 */
 long BgL_l3437z00_6289;
BgL_l3437z00_6289 = 
STRING_LENGTH(BgL_strz00_65); 
if(
BOUND_CHECK(BgL_iz00_1460, BgL_l3437z00_6289))
{ /* Llib/unicode.scm 657 */
BgL_tmpz00_9196 = 
STRING_REF(BgL_strz00_65, BgL_iz00_1460)
; }  else 
{ 
 obj_t BgL_auxz00_9201;
BgL_auxz00_9201 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(26895L), BGl_string5022z00zz__unicodez00, BgL_strz00_65, 
(int)(BgL_l3437z00_6289), 
(int)(BgL_iz00_1460)); 
FAILURE(BgL_auxz00_9201,BFALSE,BFALSE);} } 
BgL_cz00_1463 = 
(BgL_tmpz00_9196); } 
if(
(BgL_cz00_1463<194L))
{ 
 long BgL_iz00_9212; long BgL_siza7eza7_9210;
BgL_siza7eza7_9210 = 
(BgL_siza7eza7_1459+1L); 
BgL_iz00_9212 = 
(BgL_iz00_1460+1L); 
BgL_iz00_1460 = BgL_iz00_9212; 
BgL_siza7eza7_1459 = BgL_siza7eza7_9210; 
goto BgL_zc3z04anonymousza31393ze3z87_1461;}  else 
{ /* Llib/unicode.scm 659 */
if(
(BgL_cz00_1463<=223L))
{ 
 long BgL_iz00_9218; long BgL_siza7eza7_9216;
BgL_siza7eza7_9216 = 
(BgL_siza7eza7_1459+1L); 
BgL_iz00_9218 = 
(BgL_iz00_1460+2L); 
BgL_iz00_1460 = BgL_iz00_9218; 
BgL_siza7eza7_1459 = BgL_siza7eza7_9216; 
goto BgL_zc3z04anonymousza31393ze3z87_1461;}  else 
{ /* Llib/unicode.scm 661 */
if(
(BgL_cz00_1463<=239L))
{ 
 long BgL_iz00_9224; long BgL_siza7eza7_9222;
BgL_siza7eza7_9222 = 
(BgL_siza7eza7_1459+1L); 
BgL_iz00_9224 = 
(BgL_iz00_1460+3L); 
BgL_iz00_1460 = BgL_iz00_9224; 
BgL_siza7eza7_1459 = BgL_siza7eza7_9222; 
goto BgL_zc3z04anonymousza31393ze3z87_1461;}  else 
{ /* Llib/unicode.scm 663 */
if(
(BgL_cz00_1463<=247L))
{ 
 long BgL_iz00_9230; long BgL_siza7eza7_9228;
BgL_siza7eza7_9228 = 
(BgL_siza7eza7_1459+1L); 
BgL_iz00_9230 = 
(BgL_iz00_1460+4L); 
BgL_iz00_1460 = BgL_iz00_9230; 
BgL_siza7eza7_1459 = BgL_siza7eza7_9228; 
goto BgL_zc3z04anonymousza31393ze3z87_1461;}  else 
{ /* Llib/unicode.scm 665 */
if(
(BgL_cz00_1463<=251L))
{ 
 long BgL_iz00_9236; long BgL_siza7eza7_9234;
BgL_siza7eza7_9234 = 
(BgL_siza7eza7_1459+1L); 
BgL_iz00_9236 = 
(BgL_iz00_1460+5L); 
BgL_iz00_1460 = BgL_iz00_9236; 
BgL_siza7eza7_1459 = BgL_siza7eza7_9234; 
goto BgL_zc3z04anonymousza31393ze3z87_1461;}  else 
{ 
 long BgL_iz00_9240; long BgL_siza7eza7_9238;
BgL_siza7eza7_9238 = 
(BgL_siza7eza7_1459+1L); 
BgL_iz00_9240 = 
(BgL_iz00_1460+6L); 
BgL_iz00_1460 = BgL_iz00_9240; 
BgL_siza7eza7_1459 = BgL_siza7eza7_9238; 
goto BgL_zc3z04anonymousza31393ze3z87_1461;} } } } } } } } 

}



/* ascii-string? */
BGL_EXPORTED_DEF bool_t BGl_asciizd2stringzf3z21zz__unicodez00(obj_t BgL_strz00_67)
{
{ /* Llib/unicode.scm 675 */
return 
(
BGl_stringzd2minimalzd2charsetz00zz__unicodez00(BgL_strz00_67)==BGl_symbol5028z00zz__unicodez00);} 

}



/* &ascii-string? */
obj_t BGl_z62asciizd2stringzf3z43zz__unicodez00(obj_t BgL_envz00_6199, obj_t BgL_strz00_6200)
{
{ /* Llib/unicode.scm 675 */
{ /* Llib/unicode.scm 676 */
 bool_t BgL_tmpz00_9244;
{ /* Llib/unicode.scm 676 */
 obj_t BgL_auxz00_9245;
if(
STRINGP(BgL_strz00_6200))
{ /* Llib/unicode.scm 676 */
BgL_auxz00_9245 = BgL_strz00_6200
; }  else 
{ 
 obj_t BgL_auxz00_9248;
BgL_auxz00_9248 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(27489L), BGl_string5030z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6200); 
FAILURE(BgL_auxz00_9248,BFALSE,BFALSE);} 
BgL_tmpz00_9244 = 
BGl_asciizd2stringzf3z21zz__unicodez00(BgL_auxz00_9245); } 
return 
BBOOL(BgL_tmpz00_9244);} } 

}



/* _utf8-string? */
obj_t BGl__utf8zd2stringzf3z21zz__unicodez00(obj_t BgL_env1129z00_71, obj_t BgL_opt1128z00_70)
{
{ /* Llib/unicode.scm 681 */
{ /* Llib/unicode.scm 681 */
 obj_t BgL_g1130z00_1484;
{ 
 obj_t BgL_auxz00_9254;
if(
VECTORP(BgL_opt1128z00_70))
{ /* Llib/unicode.scm 681 */
BgL_auxz00_9254 = BgL_opt1128z00_70
; }  else 
{ 
 obj_t BgL_auxz00_9257;
BgL_auxz00_9257 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(27750L), BGl_string5031z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1128z00_70); 
FAILURE(BgL_auxz00_9257,BFALSE,BFALSE);} 
BgL_g1130z00_1484 = 
VECTOR_REF(BgL_auxz00_9254,0L); } 
{ 

{ /* Llib/unicode.scm 681 */
 long BgL_aux1132z00_1486;
{ 
 obj_t BgL_auxz00_9262;
if(
VECTORP(BgL_opt1128z00_70))
{ /* Llib/unicode.scm 681 */
BgL_auxz00_9262 = BgL_opt1128z00_70
; }  else 
{ 
 obj_t BgL_auxz00_9265;
BgL_auxz00_9265 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(27750L), BGl_string5031z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1128z00_70); 
FAILURE(BgL_auxz00_9265,BFALSE,BFALSE);} 
BgL_aux1132z00_1486 = 
VECTOR_LENGTH(BgL_auxz00_9262); } 
switch( BgL_aux1132z00_1486) { case 1L : 

{ /* Llib/unicode.scm 681 */

{ /* Llib/unicode.scm 681 */
 bool_t BgL_tmpz00_9270;
{ /* Llib/unicode.scm 681 */
 obj_t BgL_auxz00_9271;
if(
STRINGP(BgL_g1130z00_1484))
{ /* Llib/unicode.scm 681 */
BgL_auxz00_9271 = BgL_g1130z00_1484
; }  else 
{ 
 obj_t BgL_auxz00_9274;
BgL_auxz00_9274 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(27750L), BGl_string5031z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_g1130z00_1484); 
FAILURE(BgL_auxz00_9274,BFALSE,BFALSE);} 
BgL_tmpz00_9270 = 
BGl_utf8zd2stringzf3z21zz__unicodez00(BgL_auxz00_9271, ((bool_t)0)); } 
return 
BBOOL(BgL_tmpz00_9270);} } break;case 2L : 

{ /* Llib/unicode.scm 681 */
 obj_t BgL_strictz00_1488;
{ 
 obj_t BgL_auxz00_9280;
if(
VECTORP(BgL_opt1128z00_70))
{ /* Llib/unicode.scm 681 */
BgL_auxz00_9280 = BgL_opt1128z00_70
; }  else 
{ 
 obj_t BgL_auxz00_9283;
BgL_auxz00_9283 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(27750L), BGl_string5031z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1128z00_70); 
FAILURE(BgL_auxz00_9283,BFALSE,BFALSE);} 
BgL_strictz00_1488 = 
VECTOR_REF(BgL_auxz00_9280,1L); } 
{ /* Llib/unicode.scm 681 */

{ /* Llib/unicode.scm 681 */
 bool_t BgL_tmpz00_9288;
{ /* Llib/unicode.scm 681 */
 obj_t BgL_auxz00_9289;
if(
STRINGP(BgL_g1130z00_1484))
{ /* Llib/unicode.scm 681 */
BgL_auxz00_9289 = BgL_g1130z00_1484
; }  else 
{ 
 obj_t BgL_auxz00_9292;
BgL_auxz00_9292 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(27750L), BGl_string5031z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_g1130z00_1484); 
FAILURE(BgL_auxz00_9292,BFALSE,BFALSE);} 
BgL_tmpz00_9288 = 
BGl_utf8zd2stringzf3z21zz__unicodez00(BgL_auxz00_9289, 
CBOOL(BgL_strictz00_1488)); } 
return 
BBOOL(BgL_tmpz00_9288);} } } break;
default: 
{ /* Llib/unicode.scm 681 */
 long BgL_arg1415z00_1489;
{ 
 obj_t BgL_auxz00_9299;
if(
VECTORP(BgL_opt1128z00_70))
{ /* Llib/unicode.scm 681 */
BgL_auxz00_9299 = BgL_opt1128z00_70
; }  else 
{ 
 obj_t BgL_auxz00_9302;
BgL_auxz00_9302 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(27750L), BGl_string5032z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1128z00_70); 
FAILURE(BgL_auxz00_9302,BFALSE,BFALSE);} 
BgL_arg1415z00_1489 = 
VECTOR_LENGTH(BgL_auxz00_9299); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol5033z00zz__unicodez00, BGl_string4973z00zz__unicodez00, 
BINT(BgL_arg1415z00_1489));} } } } } } 

}



/* utf8-string? */
BGL_EXPORTED_DEF bool_t BGl_utf8zd2stringzf3z21zz__unicodez00(obj_t BgL_strz00_68, bool_t BgL_strictz00_69)
{
{ /* Llib/unicode.scm 681 */
{ /* Llib/unicode.scm 687 */
 long BgL_lenz00_1491;
BgL_lenz00_1491 = 
STRING_LENGTH(BgL_strz00_68); 
{ 
 long BgL_rz00_1493;
BgL_rz00_1493 = 0L; 
BgL_zc3z04anonymousza31416ze3z87_1494:
if(
(BgL_rz00_1493==BgL_lenz00_1491))
{ /* Llib/unicode.scm 689 */
return ((bool_t)1);}  else 
{ /* Llib/unicode.scm 691 */
 long BgL_nz00_1497;
{ /* Llib/unicode.scm 692 */
 unsigned char BgL_tmpz00_9313;
{ /* Llib/unicode.scm 691 */
 long BgL_l3441z00_6293;
BgL_l3441z00_6293 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_rz00_1493, BgL_l3441z00_6293))
{ /* Llib/unicode.scm 691 */
BgL_tmpz00_9313 = 
STRING_REF(BgL_strz00_68, BgL_rz00_1493)
; }  else 
{ 
 obj_t BgL_auxz00_9318;
BgL_auxz00_9318 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(28020L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3441z00_6293), 
(int)(BgL_rz00_1493)); 
FAILURE(BgL_auxz00_9318,BFALSE,BFALSE);} } 
BgL_nz00_1497 = 
(BgL_tmpz00_9313); } 
{ /* Llib/unicode.scm 692 */

if(
(BgL_nz00_1497<=127L))
{ 
 long BgL_rz00_9327;
BgL_rz00_9327 = 
(BgL_rz00_1493+1L); 
BgL_rz00_1493 = BgL_rz00_9327; 
goto BgL_zc3z04anonymousza31416ze3z87_1494;}  else 
{ /* Llib/unicode.scm 694 */
if(
(BgL_nz00_1497<194L))
{ /* Llib/unicode.scm 697 */
return ((bool_t)0);}  else 
{ /* Llib/unicode.scm 697 */
if(
(BgL_nz00_1497<223L))
{ /* Llib/unicode.scm 702 */
 bool_t BgL_test5497z00_9333;
if(
(
(1L+BgL_rz00_1493)<BgL_lenz00_1491))
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_3944;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9337;
{ /* Llib/unicode.scm 703 */
 long BgL_i3444z00_6296;
BgL_i3444z00_6296 = 
(BgL_rz00_1493+1L); 
{ /* Llib/unicode.scm 703 */
 long BgL_l3445z00_6297;
BgL_l3445z00_6297 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3444z00_6296, BgL_l3445z00_6297))
{ /* Llib/unicode.scm 703 */
BgL_tmpz00_9337 = 
STRING_REF(BgL_strz00_68, BgL_i3444z00_6296)
; }  else 
{ 
 obj_t BgL_auxz00_9343;
BgL_auxz00_9343 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(28296L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3445z00_6297), 
(int)(BgL_i3444z00_6296)); 
FAILURE(BgL_auxz00_9343,BFALSE,BFALSE);} } } 
BgL_nz00_3944 = 
(BgL_tmpz00_9337); } 
if(
(BgL_nz00_3944>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5497z00_9333 = 
(BgL_nz00_3944<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5497z00_9333 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 702 */
BgL_test5497z00_9333 = ((bool_t)0)
; } 
if(BgL_test5497z00_9333)
{ 
 long BgL_rz00_9353;
BgL_rz00_9353 = 
(BgL_rz00_1493+2L); 
BgL_rz00_1493 = BgL_rz00_9353; 
goto BgL_zc3z04anonymousza31416ze3z87_1494;}  else 
{ /* Llib/unicode.scm 702 */
return ((bool_t)0);} }  else 
{ /* Llib/unicode.scm 705 */
 bool_t BgL_test5501z00_9355;
if(
(BgL_nz00_1497>=216L))
{ /* Llib/unicode.scm 705 */
BgL_test5501z00_9355 = 
(BgL_nz00_1497<=219L)
; }  else 
{ /* Llib/unicode.scm 705 */
BgL_test5501z00_9355 = ((bool_t)0)
; } 
if(BgL_test5501z00_9355)
{ /* Llib/unicode.scm 707 */
 bool_t BgL_test5503z00_9359;
if(
(BgL_rz00_1493<
(BgL_lenz00_1491-3L)))
{ /* Llib/unicode.scm 708 */
 bool_t BgL_test5505z00_9363;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_3958;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9364;
{ /* Llib/unicode.scm 708 */
 long BgL_i3448z00_6300;
BgL_i3448z00_6300 = 
(BgL_rz00_1493+1L); 
{ /* Llib/unicode.scm 708 */
 long BgL_l3449z00_6301;
BgL_l3449z00_6301 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3448z00_6300, BgL_l3449z00_6301))
{ /* Llib/unicode.scm 708 */
BgL_tmpz00_9364 = 
STRING_REF(BgL_strz00_68, BgL_i3448z00_6300)
; }  else 
{ 
 obj_t BgL_auxz00_9370;
BgL_auxz00_9370 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(28483L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3449z00_6301), 
(int)(BgL_i3448z00_6300)); 
FAILURE(BgL_auxz00_9370,BFALSE,BFALSE);} } } 
BgL_nz00_3958 = 
(BgL_tmpz00_9364); } 
if(
(BgL_nz00_3958>=220L))
{ /* Llib/unicode.scm 685 */
BgL_test5505z00_9363 = 
(BgL_nz00_3958<=223L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5505z00_9363 = ((bool_t)0)
; } } 
if(BgL_test5505z00_9363)
{ /* Llib/unicode.scm 709 */
 bool_t BgL_test5508z00_9380;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_3966;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9381;
{ /* Llib/unicode.scm 709 */
 long BgL_i3452z00_6304;
BgL_i3452z00_6304 = 
(BgL_rz00_1493+2L); 
{ /* Llib/unicode.scm 709 */
 long BgL_l3453z00_6305;
BgL_l3453z00_6305 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3452z00_6304, BgL_l3453z00_6305))
{ /* Llib/unicode.scm 709 */
BgL_tmpz00_9381 = 
STRING_REF(BgL_strz00_68, BgL_i3452z00_6304)
; }  else 
{ 
 obj_t BgL_auxz00_9387;
BgL_auxz00_9387 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(28542L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3453z00_6305), 
(int)(BgL_i3452z00_6304)); 
FAILURE(BgL_auxz00_9387,BFALSE,BFALSE);} } } 
BgL_nz00_3966 = 
(BgL_tmpz00_9381); } 
if(
(BgL_nz00_3966>=220L))
{ /* Llib/unicode.scm 685 */
BgL_test5508z00_9380 = 
(BgL_nz00_3966<=223L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5508z00_9380 = ((bool_t)0)
; } } 
if(BgL_test5508z00_9380)
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_3974;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9397;
{ /* Llib/unicode.scm 710 */
 long BgL_i3456z00_6308;
BgL_i3456z00_6308 = 
(BgL_rz00_1493+3L); 
{ /* Llib/unicode.scm 710 */
 long BgL_l3457z00_6309;
BgL_l3457z00_6309 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3456z00_6308, BgL_l3457z00_6309))
{ /* Llib/unicode.scm 710 */
BgL_tmpz00_9397 = 
STRING_REF(BgL_strz00_68, BgL_i3456z00_6308)
; }  else 
{ 
 obj_t BgL_auxz00_9403;
BgL_auxz00_9403 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(28601L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3457z00_6309), 
(int)(BgL_i3456z00_6308)); 
FAILURE(BgL_auxz00_9403,BFALSE,BFALSE);} } } 
BgL_nz00_3974 = 
(BgL_tmpz00_9397); } 
if(
(BgL_nz00_3974>=220L))
{ /* Llib/unicode.scm 685 */
BgL_test5503z00_9359 = 
(BgL_nz00_3974<=223L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5503z00_9359 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 709 */
BgL_test5503z00_9359 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 708 */
BgL_test5503z00_9359 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 707 */
BgL_test5503z00_9359 = ((bool_t)0)
; } 
if(BgL_test5503z00_9359)
{ 
 long BgL_rz00_9413;
BgL_rz00_9413 = 
(BgL_rz00_1493+4L); 
BgL_rz00_1493 = BgL_rz00_9413; 
goto BgL_zc3z04anonymousza31416ze3z87_1494;}  else 
{ /* Llib/unicode.scm 707 */
return ((bool_t)0);} }  else 
{ /* Llib/unicode.scm 705 */
if(
(BgL_nz00_1497<=223L))
{ /* Llib/unicode.scm 714 */
 bool_t BgL_test5514z00_9417;
if(
(
(1L+BgL_rz00_1493)<BgL_lenz00_1491))
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_3987;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9421;
{ /* Llib/unicode.scm 715 */
 long BgL_i3460z00_6312;
BgL_i3460z00_6312 = 
(BgL_rz00_1493+1L); 
{ /* Llib/unicode.scm 715 */
 long BgL_l3461z00_6313;
BgL_l3461z00_6313 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3460z00_6312, BgL_l3461z00_6313))
{ /* Llib/unicode.scm 715 */
BgL_tmpz00_9421 = 
STRING_REF(BgL_strz00_68, BgL_i3460z00_6312)
; }  else 
{ 
 obj_t BgL_auxz00_9427;
BgL_auxz00_9427 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(28767L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3461z00_6313), 
(int)(BgL_i3460z00_6312)); 
FAILURE(BgL_auxz00_9427,BFALSE,BFALSE);} } } 
BgL_nz00_3987 = 
(BgL_tmpz00_9421); } 
if(
(BgL_nz00_3987>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5514z00_9417 = 
(BgL_nz00_3987<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5514z00_9417 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 714 */
BgL_test5514z00_9417 = ((bool_t)0)
; } 
if(BgL_test5514z00_9417)
{ 
 long BgL_rz00_9437;
BgL_rz00_9437 = 
(BgL_rz00_1493+2L); 
BgL_rz00_1493 = BgL_rz00_9437; 
goto BgL_zc3z04anonymousza31416ze3z87_1494;}  else 
{ /* Llib/unicode.scm 714 */
return ((bool_t)0);} }  else 
{ /* Llib/unicode.scm 712 */
if(
(BgL_nz00_1497<=239L))
{ /* Llib/unicode.scm 719 */
 bool_t BgL_test5519z00_9441;
if(
(BgL_rz00_1493<
(BgL_lenz00_1491-2L)))
{ /* Llib/unicode.scm 720 */
 bool_t BgL_test5521z00_9445;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4000;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9446;
{ /* Llib/unicode.scm 720 */
 long BgL_i3464z00_6316;
BgL_i3464z00_6316 = 
(BgL_rz00_1493+1L); 
{ /* Llib/unicode.scm 720 */
 long BgL_l3465z00_6317;
BgL_l3465z00_6317 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3464z00_6316, BgL_l3465z00_6317))
{ /* Llib/unicode.scm 720 */
BgL_tmpz00_9446 = 
STRING_REF(BgL_strz00_68, BgL_i3464z00_6316)
; }  else 
{ 
 obj_t BgL_auxz00_9452;
BgL_auxz00_9452 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(28938L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3465z00_6317), 
(int)(BgL_i3464z00_6316)); 
FAILURE(BgL_auxz00_9452,BFALSE,BFALSE);} } } 
BgL_nz00_4000 = 
(BgL_tmpz00_9446); } 
if(
(BgL_nz00_4000>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5521z00_9445 = 
(BgL_nz00_4000<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5521z00_9445 = ((bool_t)0)
; } } 
if(BgL_test5521z00_9445)
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4008;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9462;
{ /* Llib/unicode.scm 721 */
 long BgL_i3468z00_6320;
BgL_i3468z00_6320 = 
(BgL_rz00_1493+2L); 
{ /* Llib/unicode.scm 721 */
 long BgL_l3469z00_6321;
BgL_l3469z00_6321 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3468z00_6320, BgL_l3469z00_6321))
{ /* Llib/unicode.scm 721 */
BgL_tmpz00_9462 = 
STRING_REF(BgL_strz00_68, BgL_i3468z00_6320)
; }  else 
{ 
 obj_t BgL_auxz00_9468;
BgL_auxz00_9468 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(28997L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3469z00_6321), 
(int)(BgL_i3468z00_6320)); 
FAILURE(BgL_auxz00_9468,BFALSE,BFALSE);} } } 
BgL_nz00_4008 = 
(BgL_tmpz00_9462); } 
if(
(BgL_nz00_4008>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5519z00_9441 = 
(BgL_nz00_4008<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5519z00_9441 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 720 */
BgL_test5519z00_9441 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 719 */
BgL_test5519z00_9441 = ((bool_t)0)
; } 
if(BgL_test5519z00_9441)
{ 
 long BgL_rz00_9478;
BgL_rz00_9478 = 
(BgL_rz00_1493+3L); 
BgL_rz00_1493 = BgL_rz00_9478; 
goto BgL_zc3z04anonymousza31416ze3z87_1494;}  else 
{ /* Llib/unicode.scm 719 */
return ((bool_t)0);} }  else 
{ /* Llib/unicode.scm 717 */
if(
(BgL_nz00_1497==240L))
{ /* Llib/unicode.scm 725 */
 bool_t BgL_test5527z00_9482;
if(
(BgL_rz00_1493<
(BgL_lenz00_1491-3L)))
{ /* Llib/unicode.scm 726 */
 bool_t BgL_test5529z00_9486;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4021;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9487;
{ /* Llib/unicode.scm 726 */
 long BgL_i3472z00_6324;
BgL_i3472z00_6324 = 
(BgL_rz00_1493+1L); 
{ /* Llib/unicode.scm 726 */
 long BgL_l3473z00_6325;
BgL_l3473z00_6325 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3472z00_6324, BgL_l3473z00_6325))
{ /* Llib/unicode.scm 726 */
BgL_tmpz00_9487 = 
STRING_REF(BgL_strz00_68, BgL_i3472z00_6324)
; }  else 
{ 
 obj_t BgL_auxz00_9493;
BgL_auxz00_9493 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(29176L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3473z00_6325), 
(int)(BgL_i3472z00_6324)); 
FAILURE(BgL_auxz00_9493,BFALSE,BFALSE);} } } 
BgL_nz00_4021 = 
(BgL_tmpz00_9487); } 
if(
(BgL_nz00_4021>=144L))
{ /* Llib/unicode.scm 685 */
BgL_test5529z00_9486 = 
(BgL_nz00_4021<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5529z00_9486 = ((bool_t)0)
; } } 
if(BgL_test5529z00_9486)
{ /* Llib/unicode.scm 727 */
 bool_t BgL_test5532z00_9503;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4029;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9504;
{ /* Llib/unicode.scm 727 */
 long BgL_i3476z00_6328;
BgL_i3476z00_6328 = 
(BgL_rz00_1493+2L); 
{ /* Llib/unicode.scm 727 */
 long BgL_l3477z00_6329;
BgL_l3477z00_6329 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3476z00_6328, BgL_l3477z00_6329))
{ /* Llib/unicode.scm 727 */
BgL_tmpz00_9504 = 
STRING_REF(BgL_strz00_68, BgL_i3476z00_6328)
; }  else 
{ 
 obj_t BgL_auxz00_9510;
BgL_auxz00_9510 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(29235L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3477z00_6329), 
(int)(BgL_i3476z00_6328)); 
FAILURE(BgL_auxz00_9510,BFALSE,BFALSE);} } } 
BgL_nz00_4029 = 
(BgL_tmpz00_9504); } 
if(
(BgL_nz00_4029>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5532z00_9503 = 
(BgL_nz00_4029<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5532z00_9503 = ((bool_t)0)
; } } 
if(BgL_test5532z00_9503)
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4037;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9520;
{ /* Llib/unicode.scm 728 */
 long BgL_i3480z00_6332;
BgL_i3480z00_6332 = 
(BgL_rz00_1493+3L); 
{ /* Llib/unicode.scm 728 */
 long BgL_l3481z00_6333;
BgL_l3481z00_6333 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3480z00_6332, BgL_l3481z00_6333))
{ /* Llib/unicode.scm 728 */
BgL_tmpz00_9520 = 
STRING_REF(BgL_strz00_68, BgL_i3480z00_6332)
; }  else 
{ 
 obj_t BgL_auxz00_9526;
BgL_auxz00_9526 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(29294L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3481z00_6333), 
(int)(BgL_i3480z00_6332)); 
FAILURE(BgL_auxz00_9526,BFALSE,BFALSE);} } } 
BgL_nz00_4037 = 
(BgL_tmpz00_9520); } 
if(
(BgL_nz00_4037>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5527z00_9482 = 
(BgL_nz00_4037<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5527z00_9482 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 727 */
BgL_test5527z00_9482 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 726 */
BgL_test5527z00_9482 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 725 */
BgL_test5527z00_9482 = ((bool_t)0)
; } 
if(BgL_test5527z00_9482)
{ 
 long BgL_rz00_9536;
BgL_rz00_9536 = 
(BgL_rz00_1493+4L); 
BgL_rz00_1493 = BgL_rz00_9536; 
goto BgL_zc3z04anonymousza31416ze3z87_1494;}  else 
{ /* Llib/unicode.scm 725 */
return ((bool_t)0);} }  else 
{ /* Llib/unicode.scm 730 */
 bool_t BgL_test5537z00_9538;
if(
(BgL_nz00_1497==244L))
{ /* Llib/unicode.scm 730 */
BgL_test5537z00_9538 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 731 */
 bool_t BgL_test5539z00_9541;
{ /* Llib/unicode.scm 731 */
 bool_t BgL__ortest_1047z00_1743;
BgL__ortest_1047z00_1743 = 
(BgL_nz00_1497==248L); 
if(BgL__ortest_1047z00_1743)
{ /* Llib/unicode.scm 731 */
BgL_test5539z00_9541 = BgL__ortest_1047z00_1743
; }  else 
{ /* Llib/unicode.scm 731 */
BgL_test5539z00_9541 = 
(BgL_nz00_1497==252L)
; } } 
if(BgL_test5539z00_9541)
{ /* Llib/unicode.scm 731 */
if(BgL_strictz00_69)
{ /* Llib/unicode.scm 731 */
BgL_test5537z00_9538 = ((bool_t)0)
; }  else 
{ /* Llib/unicode.scm 731 */
BgL_test5537z00_9538 = ((bool_t)1)
; } }  else 
{ /* Llib/unicode.scm 731 */
BgL_test5537z00_9538 = ((bool_t)0)
; } } 
if(BgL_test5537z00_9538)
{ /* Llib/unicode.scm 733 */
 bool_t BgL_test5542z00_9546;
if(
(BgL_rz00_1493<
(BgL_lenz00_1491-3L)))
{ /* Llib/unicode.scm 734 */
 bool_t BgL_test5544z00_9550;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4052;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9551;
{ /* Llib/unicode.scm 734 */
 long BgL_i3484z00_6336;
BgL_i3484z00_6336 = 
(BgL_rz00_1493+1L); 
{ /* Llib/unicode.scm 734 */
 long BgL_l3485z00_6337;
BgL_l3485z00_6337 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3484z00_6336, BgL_l3485z00_6337))
{ /* Llib/unicode.scm 734 */
BgL_tmpz00_9551 = 
STRING_REF(BgL_strz00_68, BgL_i3484z00_6336)
; }  else 
{ 
 obj_t BgL_auxz00_9557;
BgL_auxz00_9557 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(29531L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3485z00_6337), 
(int)(BgL_i3484z00_6336)); 
FAILURE(BgL_auxz00_9557,BFALSE,BFALSE);} } } 
BgL_nz00_4052 = 
(BgL_tmpz00_9551); } 
if(
(BgL_nz00_4052>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5544z00_9550 = 
(BgL_nz00_4052<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5544z00_9550 = ((bool_t)0)
; } } 
if(BgL_test5544z00_9550)
{ /* Llib/unicode.scm 735 */
 bool_t BgL_test5547z00_9567;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4060;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9568;
{ /* Llib/unicode.scm 735 */
 long BgL_i3488z00_6340;
BgL_i3488z00_6340 = 
(BgL_rz00_1493+2L); 
{ /* Llib/unicode.scm 735 */
 long BgL_l3489z00_6341;
BgL_l3489z00_6341 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3488z00_6340, BgL_l3489z00_6341))
{ /* Llib/unicode.scm 735 */
BgL_tmpz00_9568 = 
STRING_REF(BgL_strz00_68, BgL_i3488z00_6340)
; }  else 
{ 
 obj_t BgL_auxz00_9574;
BgL_auxz00_9574 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(29590L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3489z00_6341), 
(int)(BgL_i3488z00_6340)); 
FAILURE(BgL_auxz00_9574,BFALSE,BFALSE);} } } 
BgL_nz00_4060 = 
(BgL_tmpz00_9568); } 
if(
(BgL_nz00_4060>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5547z00_9567 = 
(BgL_nz00_4060<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5547z00_9567 = ((bool_t)0)
; } } 
if(BgL_test5547z00_9567)
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4068;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9584;
{ /* Llib/unicode.scm 736 */
 long BgL_i3492z00_6344;
BgL_i3492z00_6344 = 
(BgL_rz00_1493+3L); 
{ /* Llib/unicode.scm 736 */
 long BgL_l3493z00_6345;
BgL_l3493z00_6345 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3492z00_6344, BgL_l3493z00_6345))
{ /* Llib/unicode.scm 736 */
BgL_tmpz00_9584 = 
STRING_REF(BgL_strz00_68, BgL_i3492z00_6344)
; }  else 
{ 
 obj_t BgL_auxz00_9590;
BgL_auxz00_9590 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(29649L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3493z00_6345), 
(int)(BgL_i3492z00_6344)); 
FAILURE(BgL_auxz00_9590,BFALSE,BFALSE);} } } 
BgL_nz00_4068 = 
(BgL_tmpz00_9584); } 
if(
(BgL_nz00_4068>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5542z00_9546 = 
(BgL_nz00_4068<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5542z00_9546 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 735 */
BgL_test5542z00_9546 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 734 */
BgL_test5542z00_9546 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 733 */
BgL_test5542z00_9546 = ((bool_t)0)
; } 
if(BgL_test5542z00_9546)
{ 
 long BgL_rz00_9600;
BgL_rz00_9600 = 
(BgL_rz00_1493+4L); 
BgL_rz00_1493 = BgL_rz00_9600; 
goto BgL_zc3z04anonymousza31416ze3z87_1494;}  else 
{ /* Llib/unicode.scm 733 */
return ((bool_t)0);} }  else 
{ /* Llib/unicode.scm 730 */
if(
(BgL_nz00_1497<=247L))
{ /* Llib/unicode.scm 740 */
 bool_t BgL_test5553z00_9604;
if(
(BgL_rz00_1493<
(BgL_lenz00_1491-3L)))
{ /* Llib/unicode.scm 741 */
 bool_t BgL_test5555z00_9608;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4081;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9609;
{ /* Llib/unicode.scm 741 */
 long BgL_i3496z00_6348;
BgL_i3496z00_6348 = 
(BgL_rz00_1493+1L); 
{ /* Llib/unicode.scm 741 */
 long BgL_l3497z00_6349;
BgL_l3497z00_6349 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3496z00_6348, BgL_l3497z00_6349))
{ /* Llib/unicode.scm 741 */
BgL_tmpz00_9609 = 
STRING_REF(BgL_strz00_68, BgL_i3496z00_6348)
; }  else 
{ 
 obj_t BgL_auxz00_9615;
BgL_auxz00_9615 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(29820L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3497z00_6349), 
(int)(BgL_i3496z00_6348)); 
FAILURE(BgL_auxz00_9615,BFALSE,BFALSE);} } } 
BgL_nz00_4081 = 
(BgL_tmpz00_9609); } 
if(
(BgL_nz00_4081>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5555z00_9608 = 
(BgL_nz00_4081<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5555z00_9608 = ((bool_t)0)
; } } 
if(BgL_test5555z00_9608)
{ /* Llib/unicode.scm 742 */
 bool_t BgL_test5558z00_9625;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4089;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9626;
{ /* Llib/unicode.scm 742 */
 long BgL_i3500z00_6352;
BgL_i3500z00_6352 = 
(BgL_rz00_1493+2L); 
{ /* Llib/unicode.scm 742 */
 long BgL_l3501z00_6353;
BgL_l3501z00_6353 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3500z00_6352, BgL_l3501z00_6353))
{ /* Llib/unicode.scm 742 */
BgL_tmpz00_9626 = 
STRING_REF(BgL_strz00_68, BgL_i3500z00_6352)
; }  else 
{ 
 obj_t BgL_auxz00_9632;
BgL_auxz00_9632 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(29879L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3501z00_6353), 
(int)(BgL_i3500z00_6352)); 
FAILURE(BgL_auxz00_9632,BFALSE,BFALSE);} } } 
BgL_nz00_4089 = 
(BgL_tmpz00_9626); } 
if(
(BgL_nz00_4089>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5558z00_9625 = 
(BgL_nz00_4089<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5558z00_9625 = ((bool_t)0)
; } } 
if(BgL_test5558z00_9625)
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4097;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9642;
{ /* Llib/unicode.scm 743 */
 long BgL_i3504z00_6356;
BgL_i3504z00_6356 = 
(BgL_rz00_1493+3L); 
{ /* Llib/unicode.scm 743 */
 long BgL_l3505z00_6357;
BgL_l3505z00_6357 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3504z00_6356, BgL_l3505z00_6357))
{ /* Llib/unicode.scm 743 */
BgL_tmpz00_9642 = 
STRING_REF(BgL_strz00_68, BgL_i3504z00_6356)
; }  else 
{ 
 obj_t BgL_auxz00_9648;
BgL_auxz00_9648 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(29938L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3505z00_6357), 
(int)(BgL_i3504z00_6356)); 
FAILURE(BgL_auxz00_9648,BFALSE,BFALSE);} } } 
BgL_nz00_4097 = 
(BgL_tmpz00_9642); } 
if(
(BgL_nz00_4097>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5553z00_9604 = 
(BgL_nz00_4097<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5553z00_9604 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 742 */
BgL_test5553z00_9604 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 741 */
BgL_test5553z00_9604 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 740 */
BgL_test5553z00_9604 = ((bool_t)0)
; } 
if(BgL_test5553z00_9604)
{ 
 long BgL_rz00_9658;
BgL_rz00_9658 = 
(BgL_rz00_1493+4L); 
BgL_rz00_1493 = BgL_rz00_9658; 
goto BgL_zc3z04anonymousza31416ze3z87_1494;}  else 
{ /* Llib/unicode.scm 740 */
return ((bool_t)0);} }  else 
{ /* Llib/unicode.scm 738 */
if(
(BgL_nz00_1497<=251L))
{ /* Llib/unicode.scm 746 */
 bool_t BgL_test5564z00_9662;
if(
(BgL_rz00_1493<
(BgL_lenz00_1491-4L)))
{ /* Llib/unicode.scm 747 */
 bool_t BgL_test5566z00_9666;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4110;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9667;
{ /* Llib/unicode.scm 747 */
 long BgL_i3508z00_6360;
BgL_i3508z00_6360 = 
(BgL_rz00_1493+1L); 
{ /* Llib/unicode.scm 747 */
 long BgL_l3509z00_6361;
BgL_l3509z00_6361 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3508z00_6360, BgL_l3509z00_6361))
{ /* Llib/unicode.scm 747 */
BgL_tmpz00_9667 = 
STRING_REF(BgL_strz00_68, BgL_i3508z00_6360)
; }  else 
{ 
 obj_t BgL_auxz00_9673;
BgL_auxz00_9673 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(30083L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3509z00_6361), 
(int)(BgL_i3508z00_6360)); 
FAILURE(BgL_auxz00_9673,BFALSE,BFALSE);} } } 
BgL_nz00_4110 = 
(BgL_tmpz00_9667); } 
if(
(BgL_nz00_4110>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5566z00_9666 = 
(BgL_nz00_4110<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5566z00_9666 = ((bool_t)0)
; } } 
if(BgL_test5566z00_9666)
{ /* Llib/unicode.scm 748 */
 bool_t BgL_test5569z00_9683;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4118;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9684;
{ /* Llib/unicode.scm 748 */
 long BgL_i3512z00_6364;
BgL_i3512z00_6364 = 
(BgL_rz00_1493+2L); 
{ /* Llib/unicode.scm 748 */
 long BgL_l3513z00_6365;
BgL_l3513z00_6365 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3512z00_6364, BgL_l3513z00_6365))
{ /* Llib/unicode.scm 748 */
BgL_tmpz00_9684 = 
STRING_REF(BgL_strz00_68, BgL_i3512z00_6364)
; }  else 
{ 
 obj_t BgL_auxz00_9690;
BgL_auxz00_9690 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(30142L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3513z00_6365), 
(int)(BgL_i3512z00_6364)); 
FAILURE(BgL_auxz00_9690,BFALSE,BFALSE);} } } 
BgL_nz00_4118 = 
(BgL_tmpz00_9684); } 
if(
(BgL_nz00_4118>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5569z00_9683 = 
(BgL_nz00_4118<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5569z00_9683 = ((bool_t)0)
; } } 
if(BgL_test5569z00_9683)
{ /* Llib/unicode.scm 749 */
 bool_t BgL_test5572z00_9700;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4126;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9701;
{ /* Llib/unicode.scm 749 */
 long BgL_i3516z00_6368;
BgL_i3516z00_6368 = 
(BgL_rz00_1493+3L); 
{ /* Llib/unicode.scm 749 */
 long BgL_l3517z00_6369;
BgL_l3517z00_6369 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3516z00_6368, BgL_l3517z00_6369))
{ /* Llib/unicode.scm 749 */
BgL_tmpz00_9701 = 
STRING_REF(BgL_strz00_68, BgL_i3516z00_6368)
; }  else 
{ 
 obj_t BgL_auxz00_9707;
BgL_auxz00_9707 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(30201L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3517z00_6369), 
(int)(BgL_i3516z00_6368)); 
FAILURE(BgL_auxz00_9707,BFALSE,BFALSE);} } } 
BgL_nz00_4126 = 
(BgL_tmpz00_9701); } 
if(
(BgL_nz00_4126>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5572z00_9700 = 
(BgL_nz00_4126<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5572z00_9700 = ((bool_t)0)
; } } 
if(BgL_test5572z00_9700)
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4134;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9717;
{ /* Llib/unicode.scm 750 */
 long BgL_i3520z00_6372;
BgL_i3520z00_6372 = 
(BgL_rz00_1493+4L); 
{ /* Llib/unicode.scm 750 */
 long BgL_l3521z00_6373;
BgL_l3521z00_6373 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3520z00_6372, BgL_l3521z00_6373))
{ /* Llib/unicode.scm 750 */
BgL_tmpz00_9717 = 
STRING_REF(BgL_strz00_68, BgL_i3520z00_6372)
; }  else 
{ 
 obj_t BgL_auxz00_9723;
BgL_auxz00_9723 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(30260L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3521z00_6373), 
(int)(BgL_i3520z00_6372)); 
FAILURE(BgL_auxz00_9723,BFALSE,BFALSE);} } } 
BgL_nz00_4134 = 
(BgL_tmpz00_9717); } 
if(
(BgL_nz00_4134>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5564z00_9662 = 
(BgL_nz00_4134<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5564z00_9662 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 749 */
BgL_test5564z00_9662 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 748 */
BgL_test5564z00_9662 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 747 */
BgL_test5564z00_9662 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 746 */
BgL_test5564z00_9662 = ((bool_t)0)
; } 
if(BgL_test5564z00_9662)
{ 
 long BgL_rz00_9733;
BgL_rz00_9733 = 
(BgL_rz00_1493+5L); 
BgL_rz00_1493 = BgL_rz00_9733; 
goto BgL_zc3z04anonymousza31416ze3z87_1494;}  else 
{ /* Llib/unicode.scm 746 */
return ((bool_t)0);} }  else 
{ /* Llib/unicode.scm 745 */
if(
(BgL_nz00_1497<=253L))
{ /* Llib/unicode.scm 753 */
 bool_t BgL_test5578z00_9737;
if(
(BgL_rz00_1493<
(BgL_lenz00_1491-5L)))
{ /* Llib/unicode.scm 754 */
 bool_t BgL_test5580z00_9741;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4147;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9742;
{ /* Llib/unicode.scm 754 */
 long BgL_i3524z00_6376;
BgL_i3524z00_6376 = 
(BgL_rz00_1493+1L); 
{ /* Llib/unicode.scm 754 */
 long BgL_l3525z00_6377;
BgL_l3525z00_6377 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3524z00_6376, BgL_l3525z00_6377))
{ /* Llib/unicode.scm 754 */
BgL_tmpz00_9742 = 
STRING_REF(BgL_strz00_68, BgL_i3524z00_6376)
; }  else 
{ 
 obj_t BgL_auxz00_9748;
BgL_auxz00_9748 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(30405L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3525z00_6377), 
(int)(BgL_i3524z00_6376)); 
FAILURE(BgL_auxz00_9748,BFALSE,BFALSE);} } } 
BgL_nz00_4147 = 
(BgL_tmpz00_9742); } 
if(
(BgL_nz00_4147>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5580z00_9741 = 
(BgL_nz00_4147<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5580z00_9741 = ((bool_t)0)
; } } 
if(BgL_test5580z00_9741)
{ /* Llib/unicode.scm 755 */
 bool_t BgL_test5583z00_9758;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4155;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9759;
{ /* Llib/unicode.scm 755 */
 long BgL_i3528z00_6380;
BgL_i3528z00_6380 = 
(BgL_rz00_1493+2L); 
{ /* Llib/unicode.scm 755 */
 long BgL_l3529z00_6381;
BgL_l3529z00_6381 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3528z00_6380, BgL_l3529z00_6381))
{ /* Llib/unicode.scm 755 */
BgL_tmpz00_9759 = 
STRING_REF(BgL_strz00_68, BgL_i3528z00_6380)
; }  else 
{ 
 obj_t BgL_auxz00_9765;
BgL_auxz00_9765 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(30464L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3529z00_6381), 
(int)(BgL_i3528z00_6380)); 
FAILURE(BgL_auxz00_9765,BFALSE,BFALSE);} } } 
BgL_nz00_4155 = 
(BgL_tmpz00_9759); } 
if(
(BgL_nz00_4155>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5583z00_9758 = 
(BgL_nz00_4155<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5583z00_9758 = ((bool_t)0)
; } } 
if(BgL_test5583z00_9758)
{ /* Llib/unicode.scm 756 */
 bool_t BgL_test5586z00_9775;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4163;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9776;
{ /* Llib/unicode.scm 756 */
 long BgL_i3532z00_6384;
BgL_i3532z00_6384 = 
(BgL_rz00_1493+3L); 
{ /* Llib/unicode.scm 756 */
 long BgL_l3533z00_6385;
BgL_l3533z00_6385 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3532z00_6384, BgL_l3533z00_6385))
{ /* Llib/unicode.scm 756 */
BgL_tmpz00_9776 = 
STRING_REF(BgL_strz00_68, BgL_i3532z00_6384)
; }  else 
{ 
 obj_t BgL_auxz00_9782;
BgL_auxz00_9782 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(30523L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3533z00_6385), 
(int)(BgL_i3532z00_6384)); 
FAILURE(BgL_auxz00_9782,BFALSE,BFALSE);} } } 
BgL_nz00_4163 = 
(BgL_tmpz00_9776); } 
if(
(BgL_nz00_4163>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5586z00_9775 = 
(BgL_nz00_4163<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5586z00_9775 = ((bool_t)0)
; } } 
if(BgL_test5586z00_9775)
{ /* Llib/unicode.scm 757 */
 bool_t BgL_test5589z00_9792;
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4171;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9793;
{ /* Llib/unicode.scm 757 */
 long BgL_i3536z00_6388;
BgL_i3536z00_6388 = 
(BgL_rz00_1493+4L); 
{ /* Llib/unicode.scm 757 */
 long BgL_l3537z00_6389;
BgL_l3537z00_6389 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3536z00_6388, BgL_l3537z00_6389))
{ /* Llib/unicode.scm 757 */
BgL_tmpz00_9793 = 
STRING_REF(BgL_strz00_68, BgL_i3536z00_6388)
; }  else 
{ 
 obj_t BgL_auxz00_9799;
BgL_auxz00_9799 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(30582L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3537z00_6389), 
(int)(BgL_i3536z00_6388)); 
FAILURE(BgL_auxz00_9799,BFALSE,BFALSE);} } } 
BgL_nz00_4171 = 
(BgL_tmpz00_9793); } 
if(
(BgL_nz00_4171>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5589z00_9792 = 
(BgL_nz00_4171<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5589z00_9792 = ((bool_t)0)
; } } 
if(BgL_test5589z00_9792)
{ /* Llib/unicode.scm 684 */
 long BgL_nz00_4179;
{ /* Llib/unicode.scm 684 */
 unsigned char BgL_tmpz00_9809;
{ /* Llib/unicode.scm 758 */
 long BgL_i3540z00_6392;
BgL_i3540z00_6392 = 
(BgL_rz00_1493+5L); 
{ /* Llib/unicode.scm 758 */
 long BgL_l3541z00_6393;
BgL_l3541z00_6393 = 
STRING_LENGTH(BgL_strz00_68); 
if(
BOUND_CHECK(BgL_i3540z00_6392, BgL_l3541z00_6393))
{ /* Llib/unicode.scm 758 */
BgL_tmpz00_9809 = 
STRING_REF(BgL_strz00_68, BgL_i3540z00_6392)
; }  else 
{ 
 obj_t BgL_auxz00_9815;
BgL_auxz00_9815 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(30641L), BGl_string5022z00zz__unicodez00, BgL_strz00_68, 
(int)(BgL_l3541z00_6393), 
(int)(BgL_i3540z00_6392)); 
FAILURE(BgL_auxz00_9815,BFALSE,BFALSE);} } } 
BgL_nz00_4179 = 
(BgL_tmpz00_9809); } 
if(
(BgL_nz00_4179>=128L))
{ /* Llib/unicode.scm 685 */
BgL_test5578z00_9737 = 
(BgL_nz00_4179<=191L)
; }  else 
{ /* Llib/unicode.scm 685 */
BgL_test5578z00_9737 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 757 */
BgL_test5578z00_9737 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 756 */
BgL_test5578z00_9737 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 755 */
BgL_test5578z00_9737 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 754 */
BgL_test5578z00_9737 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 753 */
BgL_test5578z00_9737 = ((bool_t)0)
; } 
if(BgL_test5578z00_9737)
{ 
 long BgL_rz00_9825;
BgL_rz00_9825 = 
(BgL_rz00_1493+6L); 
BgL_rz00_1493 = BgL_rz00_9825; 
goto BgL_zc3z04anonymousza31416ze3z87_1494;}  else 
{ /* Llib/unicode.scm 753 */
return ((bool_t)0);} }  else 
{ /* Llib/unicode.scm 752 */
return ((bool_t)0);} } } } } } } } } } } } } } } } 

}



/* _utf8-string-encode */
obj_t BGl__utf8zd2stringzd2encodez00zz__unicodez00(obj_t BgL_env1134z00_77, obj_t BgL_opt1133z00_76)
{
{ /* Llib/unicode.scm 774 */
{ /* Llib/unicode.scm 774 */
 obj_t BgL_strz00_1753;
{ 
 obj_t BgL_auxz00_9827;
if(
VECTORP(BgL_opt1133z00_76))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9827 = BgL_opt1133z00_76
; }  else 
{ 
 obj_t BgL_auxz00_9830;
BgL_auxz00_9830 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1133z00_76); 
FAILURE(BgL_auxz00_9830,BFALSE,BFALSE);} 
BgL_strz00_1753 = 
VECTOR_REF(BgL_auxz00_9827,0L); } 
{ 

{ /* Llib/unicode.scm 774 */
 long BgL_aux1136z00_1755;
{ 
 obj_t BgL_auxz00_9835;
if(
VECTORP(BgL_opt1133z00_76))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9835 = BgL_opt1133z00_76
; }  else 
{ 
 obj_t BgL_auxz00_9838;
BgL_auxz00_9838 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1133z00_76); 
FAILURE(BgL_auxz00_9838,BFALSE,BFALSE);} 
BgL_aux1136z00_1755 = 
VECTOR_LENGTH(BgL_auxz00_9835); } 
switch( BgL_aux1136z00_1755) { case 1L : 

{ /* Llib/unicode.scm 774 */
 long BgL_endz00_1758;
{ /* Llib/unicode.scm 774 */
 obj_t BgL_stringz00_4185;
if(
STRINGP(BgL_strz00_1753))
{ /* Llib/unicode.scm 774 */
BgL_stringz00_4185 = BgL_strz00_1753; }  else 
{ 
 obj_t BgL_auxz00_9845;
BgL_auxz00_9845 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31642L), BGl_string5035z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_1753); 
FAILURE(BgL_auxz00_9845,BFALSE,BFALSE);} 
BgL_endz00_1758 = 
STRING_LENGTH(BgL_stringz00_4185); } 
{ /* Llib/unicode.scm 774 */

{ /* Llib/unicode.scm 774 */
 obj_t BgL_auxz00_9850;
if(
STRINGP(BgL_strz00_1753))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9850 = BgL_strz00_1753
; }  else 
{ 
 obj_t BgL_auxz00_9853;
BgL_auxz00_9853 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_1753); 
FAILURE(BgL_auxz00_9853,BFALSE,BFALSE);} 
return 
BGl_utf8zd2stringzd2encodez00zz__unicodez00(BgL_auxz00_9850, ((bool_t)0), 0L, BgL_endz00_1758);} } } break;case 2L : 

{ /* Llib/unicode.scm 774 */
 obj_t BgL_strictz00_1759;
{ 
 obj_t BgL_auxz00_9858;
if(
VECTORP(BgL_opt1133z00_76))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9858 = BgL_opt1133z00_76
; }  else 
{ 
 obj_t BgL_auxz00_9861;
BgL_auxz00_9861 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1133z00_76); 
FAILURE(BgL_auxz00_9861,BFALSE,BFALSE);} 
BgL_strictz00_1759 = 
VECTOR_REF(BgL_auxz00_9858,1L); } 
{ /* Llib/unicode.scm 774 */
 long BgL_endz00_1761;
{ /* Llib/unicode.scm 774 */
 obj_t BgL_stringz00_4186;
if(
STRINGP(BgL_strz00_1753))
{ /* Llib/unicode.scm 774 */
BgL_stringz00_4186 = BgL_strz00_1753; }  else 
{ 
 obj_t BgL_auxz00_9868;
BgL_auxz00_9868 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31642L), BGl_string5035z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_1753); 
FAILURE(BgL_auxz00_9868,BFALSE,BFALSE);} 
BgL_endz00_1761 = 
STRING_LENGTH(BgL_stringz00_4186); } 
{ /* Llib/unicode.scm 774 */

{ /* Llib/unicode.scm 774 */
 obj_t BgL_auxz00_9873;
if(
STRINGP(BgL_strz00_1753))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9873 = BgL_strz00_1753
; }  else 
{ 
 obj_t BgL_auxz00_9876;
BgL_auxz00_9876 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_1753); 
FAILURE(BgL_auxz00_9876,BFALSE,BFALSE);} 
return 
BGl_utf8zd2stringzd2encodez00zz__unicodez00(BgL_auxz00_9873, 
CBOOL(BgL_strictz00_1759), 0L, BgL_endz00_1761);} } } } break;case 3L : 

{ /* Llib/unicode.scm 774 */
 obj_t BgL_strictz00_1762;
{ 
 obj_t BgL_auxz00_9882;
if(
VECTORP(BgL_opt1133z00_76))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9882 = BgL_opt1133z00_76
; }  else 
{ 
 obj_t BgL_auxz00_9885;
BgL_auxz00_9885 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1133z00_76); 
FAILURE(BgL_auxz00_9885,BFALSE,BFALSE);} 
BgL_strictz00_1762 = 
VECTOR_REF(BgL_auxz00_9882,1L); } 
{ /* Llib/unicode.scm 774 */
 obj_t BgL_startz00_1763;
{ 
 obj_t BgL_auxz00_9890;
if(
VECTORP(BgL_opt1133z00_76))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9890 = BgL_opt1133z00_76
; }  else 
{ 
 obj_t BgL_auxz00_9893;
BgL_auxz00_9893 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1133z00_76); 
FAILURE(BgL_auxz00_9893,BFALSE,BFALSE);} 
BgL_startz00_1763 = 
VECTOR_REF(BgL_auxz00_9890,2L); } 
{ /* Llib/unicode.scm 774 */
 long BgL_endz00_1764;
{ /* Llib/unicode.scm 774 */
 obj_t BgL_stringz00_4187;
if(
STRINGP(BgL_strz00_1753))
{ /* Llib/unicode.scm 774 */
BgL_stringz00_4187 = BgL_strz00_1753; }  else 
{ 
 obj_t BgL_auxz00_9900;
BgL_auxz00_9900 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31642L), BGl_string5035z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_1753); 
FAILURE(BgL_auxz00_9900,BFALSE,BFALSE);} 
BgL_endz00_1764 = 
STRING_LENGTH(BgL_stringz00_4187); } 
{ /* Llib/unicode.scm 774 */

{ /* Llib/unicode.scm 774 */
 long BgL_auxz00_9912; obj_t BgL_auxz00_9905;
{ /* Llib/unicode.scm 774 */
 obj_t BgL_tmpz00_9914;
if(
INTEGERP(BgL_startz00_1763))
{ /* Llib/unicode.scm 774 */
BgL_tmpz00_9914 = BgL_startz00_1763
; }  else 
{ 
 obj_t BgL_auxz00_9917;
BgL_auxz00_9917 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_startz00_1763); 
FAILURE(BgL_auxz00_9917,BFALSE,BFALSE);} 
BgL_auxz00_9912 = 
(long)CINT(BgL_tmpz00_9914); } 
if(
STRINGP(BgL_strz00_1753))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9905 = BgL_strz00_1753
; }  else 
{ 
 obj_t BgL_auxz00_9908;
BgL_auxz00_9908 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_1753); 
FAILURE(BgL_auxz00_9908,BFALSE,BFALSE);} 
return 
BGl_utf8zd2stringzd2encodez00zz__unicodez00(BgL_auxz00_9905, 
CBOOL(BgL_strictz00_1762), BgL_auxz00_9912, BgL_endz00_1764);} } } } } break;case 4L : 

{ /* Llib/unicode.scm 774 */
 obj_t BgL_strictz00_1765;
{ 
 obj_t BgL_auxz00_9923;
if(
VECTORP(BgL_opt1133z00_76))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9923 = BgL_opt1133z00_76
; }  else 
{ 
 obj_t BgL_auxz00_9926;
BgL_auxz00_9926 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1133z00_76); 
FAILURE(BgL_auxz00_9926,BFALSE,BFALSE);} 
BgL_strictz00_1765 = 
VECTOR_REF(BgL_auxz00_9923,1L); } 
{ /* Llib/unicode.scm 774 */
 obj_t BgL_startz00_1766;
{ 
 obj_t BgL_auxz00_9931;
if(
VECTORP(BgL_opt1133z00_76))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9931 = BgL_opt1133z00_76
; }  else 
{ 
 obj_t BgL_auxz00_9934;
BgL_auxz00_9934 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1133z00_76); 
FAILURE(BgL_auxz00_9934,BFALSE,BFALSE);} 
BgL_startz00_1766 = 
VECTOR_REF(BgL_auxz00_9931,2L); } 
{ /* Llib/unicode.scm 774 */
 obj_t BgL_endz00_1767;
{ 
 obj_t BgL_auxz00_9939;
if(
VECTORP(BgL_opt1133z00_76))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9939 = BgL_opt1133z00_76
; }  else 
{ 
 obj_t BgL_auxz00_9942;
BgL_auxz00_9942 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1133z00_76); 
FAILURE(BgL_auxz00_9942,BFALSE,BFALSE);} 
BgL_endz00_1767 = 
VECTOR_REF(BgL_auxz00_9939,3L); } 
{ /* Llib/unicode.scm 774 */

{ /* Llib/unicode.scm 774 */
 long BgL_auxz00_9964; long BgL_auxz00_9954; obj_t BgL_auxz00_9947;
{ /* Llib/unicode.scm 774 */
 obj_t BgL_tmpz00_9965;
if(
INTEGERP(BgL_endz00_1767))
{ /* Llib/unicode.scm 774 */
BgL_tmpz00_9965 = BgL_endz00_1767
; }  else 
{ 
 obj_t BgL_auxz00_9968;
BgL_auxz00_9968 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_endz00_1767); 
FAILURE(BgL_auxz00_9968,BFALSE,BFALSE);} 
BgL_auxz00_9964 = 
(long)CINT(BgL_tmpz00_9965); } 
{ /* Llib/unicode.scm 774 */
 obj_t BgL_tmpz00_9956;
if(
INTEGERP(BgL_startz00_1766))
{ /* Llib/unicode.scm 774 */
BgL_tmpz00_9956 = BgL_startz00_1766
; }  else 
{ 
 obj_t BgL_auxz00_9959;
BgL_auxz00_9959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_startz00_1766); 
FAILURE(BgL_auxz00_9959,BFALSE,BFALSE);} 
BgL_auxz00_9954 = 
(long)CINT(BgL_tmpz00_9956); } 
if(
STRINGP(BgL_strz00_1753))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9947 = BgL_strz00_1753
; }  else 
{ 
 obj_t BgL_auxz00_9950;
BgL_auxz00_9950 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5035z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_1753); 
FAILURE(BgL_auxz00_9950,BFALSE,BFALSE);} 
return 
BGl_utf8zd2stringzd2encodez00zz__unicodez00(BgL_auxz00_9947, 
CBOOL(BgL_strictz00_1765), BgL_auxz00_9954, BgL_auxz00_9964);} } } } } break;
default: 
{ /* Llib/unicode.scm 774 */
 long BgL_arg1702z00_1768;
{ 
 obj_t BgL_auxz00_9974;
if(
VECTORP(BgL_opt1133z00_76))
{ /* Llib/unicode.scm 774 */
BgL_auxz00_9974 = BgL_opt1133z00_76
; }  else 
{ 
 obj_t BgL_auxz00_9977;
BgL_auxz00_9977 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31550L), BGl_string5036z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1133z00_76); 
FAILURE(BgL_auxz00_9977,BFALSE,BFALSE);} 
BgL_arg1702z00_1768 = 
VECTOR_LENGTH(BgL_auxz00_9974); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol5037z00zz__unicodez00, BGl_string5039z00zz__unicodez00, 
BINT(BgL_arg1702z00_1768));} } } } } } 

}



/* utf8-string-encode */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2stringzd2encodez00zz__unicodez00(obj_t BgL_strz00_72, bool_t BgL_strictz00_73, long BgL_startz00_74, long BgL_endz00_75)
{
{ /* Llib/unicode.scm 774 */
{ /* Llib/unicode.scm 786 */
 bool_t BgL_test5613z00_9985;
if(
(BgL_endz00_75>
STRING_LENGTH(BgL_strz00_72)))
{ /* Llib/unicode.scm 786 */
BgL_test5613z00_9985 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 786 */
if(
(BgL_startz00_74<0L))
{ /* Llib/unicode.scm 787 */
BgL_test5613z00_9985 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 787 */
BgL_test5613z00_9985 = 
(BgL_startz00_74>BgL_endz00_75)
; } } 
if(BgL_test5613z00_9985)
{ /* Llib/unicode.scm 789 */
 obj_t BgL_arg1708z00_1776;
BgL_arg1708z00_1776 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_74), 
BINT(BgL_endz00_75)); 
{ /* Llib/unicode.scm 789 */
 obj_t BgL_aux4678z00_7530;
BgL_aux4678z00_7530 = 
BGl_errorz00zz__errorz00(BGl_string5038z00zz__unicodez00, BGl_string5040z00zz__unicodez00, BgL_arg1708z00_1776); 
if(
STRINGP(BgL_aux4678z00_7530))
{ /* Llib/unicode.scm 789 */
return BgL_aux4678z00_7530;}  else 
{ 
 obj_t BgL_auxz00_9998;
BgL_auxz00_9998 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(32066L), BGl_string5038z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4678z00_7530); 
FAILURE(BgL_auxz00_9998,BFALSE,BFALSE);} } }  else 
{ /* Llib/unicode.scm 790 */
 long BgL_lenz00_1777;
BgL_lenz00_1777 = 
(BgL_endz00_75-BgL_startz00_74); 
{ /* Llib/unicode.scm 790 */
 obj_t BgL_resz00_1778;
{ /* Llib/unicode.scm 791 */
 long BgL_arg2080z00_2139;
BgL_arg2080z00_2139 = 
(3L*BgL_lenz00_1777); 
{ /* Ieee/string.scm 172 */

BgL_resz00_1778 = 
make_string(BgL_arg2080z00_2139, ((unsigned char)' ')); } } 
{ /* Llib/unicode.scm 791 */

{ /* Llib/unicode.scm 792 */
 obj_t BgL_aux4680z00_7532;
BgL_aux4680z00_7532 = 
BGl_loopze70ze7zz__unicodez00(BgL_endz00_75, BgL_strictz00_73, BgL_lenz00_1777, BgL_resz00_1778, BgL_strz00_72, BgL_startz00_74, 0L); 
if(
STRINGP(BgL_aux4680z00_7532))
{ /* Llib/unicode.scm 792 */
return BgL_aux4680z00_7532;}  else 
{ 
 obj_t BgL_auxz00_10008;
BgL_auxz00_10008 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(32209L), BGl_string5038z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4680z00_7532); 
FAILURE(BgL_auxz00_10008,BFALSE,BFALSE);} } } } } } } 

}



/* loop~0 */
obj_t BGl_loopze70ze7zz__unicodez00(long BgL_endz00_6275, bool_t BgL_strictz00_6274, long BgL_lenz00_6273, obj_t BgL_resz00_6272, obj_t BgL_strz00_6271, long BgL_rz00_1780, long BgL_wz00_1781)
{
{ /* Llib/unicode.scm 792 */
BGl_loopze70ze7zz__unicodez00:
if(
(BgL_rz00_1780==BgL_endz00_6275))
{ /* Llib/unicode.scm 794 */
return 
bgl_string_shrink(BgL_resz00_6272, BgL_wz00_1781);}  else 
{ /* Llib/unicode.scm 796 */
 unsigned char BgL_cz00_1784;
{ /* Llib/unicode.scm 796 */
 long BgL_l3545z00_6397;
BgL_l3545z00_6397 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_rz00_1780, BgL_l3545z00_6397))
{ /* Llib/unicode.scm 796 */
BgL_cz00_1784 = 
STRING_REF(BgL_strz00_6271, BgL_rz00_1780); }  else 
{ 
 obj_t BgL_auxz00_10019;
BgL_auxz00_10019 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(32305L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3545z00_6397), 
(int)(BgL_rz00_1780)); 
FAILURE(BgL_auxz00_10019,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 796 */
 long BgL_nz00_1785;
BgL_nz00_1785 = 
(BgL_cz00_1784); 
{ /* Llib/unicode.scm 797 */

if(
(BgL_nz00_1785<=127L))
{ /* Llib/unicode.scm 799 */
{ /* Llib/unicode.scm 801 */
 long BgL_l3549z00_6401;
BgL_l3549z00_6401 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_wz00_1781, BgL_l3549z00_6401))
{ /* Llib/unicode.scm 801 */
STRING_SET(BgL_resz00_6272, BgL_wz00_1781, BgL_cz00_1784); }  else 
{ 
 obj_t BgL_auxz00_10032;
BgL_auxz00_10032 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(32403L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3549z00_6401), 
(int)(BgL_wz00_1781)); 
FAILURE(BgL_auxz00_10032,BFALSE,BFALSE);} } 
{ 
 long BgL_wz00_10040; long BgL_rz00_10038;
BgL_rz00_10038 = 
(BgL_rz00_1780+1L); 
BgL_wz00_10040 = 
(BgL_wz00_1781+1L); 
BgL_wz00_1781 = BgL_wz00_10040; 
BgL_rz00_1780 = BgL_rz00_10038; 
goto BGl_loopze70ze7zz__unicodez00;} }  else 
{ /* Llib/unicode.scm 799 */
if(
(BgL_nz00_1785<194L))
{ /* Llib/unicode.scm 803 */
BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(BgL_resz00_6272, BgL_wz00_1781); 
{ 
 long BgL_wz00_10047; long BgL_rz00_10045;
BgL_rz00_10045 = 
(BgL_rz00_1780+1L); 
BgL_wz00_10047 = 
(BgL_wz00_1781+3L); 
BgL_wz00_1781 = BgL_wz00_10047; 
BgL_rz00_1780 = BgL_rz00_10045; 
goto BGl_loopze70ze7zz__unicodez00;} }  else 
{ /* Llib/unicode.scm 803 */
if(
(BgL_nz00_1785<223L))
{ /* Llib/unicode.scm 809 */
 bool_t BgL_test5624z00_10051;
if(
(
(1L+BgL_rz00_1780)<BgL_lenz00_6273))
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4239;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10055;
{ /* Llib/unicode.scm 810 */
 long BgL_i3552z00_6404;
BgL_i3552z00_6404 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 810 */
 long BgL_l3553z00_6405;
BgL_l3553z00_6405 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3552z00_6404, BgL_l3553z00_6405))
{ /* Llib/unicode.scm 810 */
BgL_tmpz00_10055 = 
STRING_REF(BgL_strz00_6271, BgL_i3552z00_6404)
; }  else 
{ 
 obj_t BgL_auxz00_10061;
BgL_auxz00_10061 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(32659L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3553z00_6405), 
(int)(BgL_i3552z00_6404)); 
FAILURE(BgL_auxz00_10061,BFALSE,BFALSE);} } } 
BgL_nz00_4239 = 
(BgL_tmpz00_10055); } 
if(
(BgL_nz00_4239>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5624z00_10051 = 
(BgL_nz00_4239<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5624z00_10051 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 809 */
BgL_test5624z00_10051 = ((bool_t)0)
; } 
if(BgL_test5624z00_10051)
{ /* Llib/unicode.scm 809 */
{ /* Llib/unicode.scm 812 */
 long BgL_l3557z00_6409;
BgL_l3557z00_6409 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_wz00_1781, BgL_l3557z00_6409))
{ /* Llib/unicode.scm 812 */
STRING_SET(BgL_resz00_6272, BgL_wz00_1781, BgL_cz00_1784); }  else 
{ 
 obj_t BgL_auxz00_10075;
BgL_auxz00_10075 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(32722L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3557z00_6409), 
(int)(BgL_wz00_1781)); 
FAILURE(BgL_auxz00_10075,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 813 */
 long BgL_arg1726z00_1799; unsigned char BgL_arg1727z00_1800;
BgL_arg1726z00_1799 = 
(BgL_wz00_1781+1L); 
{ /* Llib/unicode.scm 813 */
 long BgL_i3560z00_6412;
BgL_i3560z00_6412 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 813 */
 long BgL_l3561z00_6413;
BgL_l3561z00_6413 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3560z00_6412, BgL_l3561z00_6413))
{ /* Llib/unicode.scm 813 */
BgL_arg1727z00_1800 = 
STRING_REF(BgL_strz00_6271, BgL_i3560z00_6412); }  else 
{ 
 obj_t BgL_auxz00_10087;
BgL_auxz00_10087 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(32781L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3561z00_6413), 
(int)(BgL_i3560z00_6412)); 
FAILURE(BgL_auxz00_10087,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 813 */
 long BgL_l3565z00_6417;
BgL_l3565z00_6417 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1726z00_1799, BgL_l3565z00_6417))
{ /* Llib/unicode.scm 813 */
STRING_SET(BgL_resz00_6272, BgL_arg1726z00_1799, BgL_arg1727z00_1800); }  else 
{ 
 obj_t BgL_auxz00_10097;
BgL_auxz00_10097 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(32754L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3565z00_6417), 
(int)(BgL_arg1726z00_1799)); 
FAILURE(BgL_auxz00_10097,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_10105; long BgL_rz00_10103;
BgL_rz00_10103 = 
(BgL_rz00_1780+2L); 
BgL_wz00_10105 = 
(BgL_wz00_1781+2L); 
BgL_wz00_1781 = BgL_wz00_10105; 
BgL_rz00_1780 = BgL_rz00_10103; 
goto BGl_loopze70ze7zz__unicodez00;} }  else 
{ /* Llib/unicode.scm 809 */
BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(BgL_resz00_6272, BgL_wz00_1781); 
{ 
 long BgL_wz00_10110; long BgL_rz00_10108;
BgL_rz00_10108 = 
(BgL_rz00_1780+1L); 
BgL_wz00_10110 = 
(BgL_wz00_1781+3L); 
BgL_wz00_1781 = BgL_wz00_10110; 
BgL_rz00_1780 = BgL_rz00_10108; 
goto BGl_loopze70ze7zz__unicodez00;} } }  else 
{ /* Llib/unicode.scm 818 */
 bool_t BgL_test5631z00_10112;
if(
(BgL_nz00_1785>=216L))
{ /* Llib/unicode.scm 818 */
BgL_test5631z00_10112 = 
(BgL_nz00_1785<=219L)
; }  else 
{ /* Llib/unicode.scm 818 */
BgL_test5631z00_10112 = ((bool_t)0)
; } 
if(BgL_test5631z00_10112)
{ /* Llib/unicode.scm 820 */
 bool_t BgL_test5633z00_10116;
if(
(BgL_rz00_1780<
(BgL_lenz00_6273-3L)))
{ /* Llib/unicode.scm 821 */
 bool_t BgL_test5635z00_10120;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4266;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10121;
{ /* Llib/unicode.scm 821 */
 long BgL_i3568z00_6420;
BgL_i3568z00_6420 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 821 */
 long BgL_l3569z00_6421;
BgL_l3569z00_6421 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3568z00_6420, BgL_l3569z00_6421))
{ /* Llib/unicode.scm 821 */
BgL_tmpz00_10121 = 
STRING_REF(BgL_strz00_6271, BgL_i3568z00_6420)
; }  else 
{ 
 obj_t BgL_auxz00_10127;
BgL_auxz00_10127 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33054L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3569z00_6421), 
(int)(BgL_i3568z00_6420)); 
FAILURE(BgL_auxz00_10127,BFALSE,BFALSE);} } } 
BgL_nz00_4266 = 
(BgL_tmpz00_10121); } 
if(
(BgL_nz00_4266>=220L))
{ /* Llib/unicode.scm 778 */
BgL_test5635z00_10120 = 
(BgL_nz00_4266<=223L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5635z00_10120 = ((bool_t)0)
; } } 
if(BgL_test5635z00_10120)
{ /* Llib/unicode.scm 822 */
 bool_t BgL_test5638z00_10137;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4274;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10138;
{ /* Llib/unicode.scm 822 */
 long BgL_i3572z00_6424;
BgL_i3572z00_6424 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 822 */
 long BgL_l3573z00_6425;
BgL_l3573z00_6425 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3572z00_6424, BgL_l3573z00_6425))
{ /* Llib/unicode.scm 822 */
BgL_tmpz00_10138 = 
STRING_REF(BgL_strz00_6271, BgL_i3572z00_6424)
; }  else 
{ 
 obj_t BgL_auxz00_10144;
BgL_auxz00_10144 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33110L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3573z00_6425), 
(int)(BgL_i3572z00_6424)); 
FAILURE(BgL_auxz00_10144,BFALSE,BFALSE);} } } 
BgL_nz00_4274 = 
(BgL_tmpz00_10138); } 
if(
(BgL_nz00_4274>=220L))
{ /* Llib/unicode.scm 778 */
BgL_test5638z00_10137 = 
(BgL_nz00_4274<=223L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5638z00_10137 = ((bool_t)0)
; } } 
if(BgL_test5638z00_10137)
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4282;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10154;
{ /* Llib/unicode.scm 823 */
 long BgL_i3576z00_6428;
BgL_i3576z00_6428 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 823 */
 long BgL_l3577z00_6429;
BgL_l3577z00_6429 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3576z00_6428, BgL_l3577z00_6429))
{ /* Llib/unicode.scm 823 */
BgL_tmpz00_10154 = 
STRING_REF(BgL_strz00_6271, BgL_i3576z00_6428)
; }  else 
{ 
 obj_t BgL_auxz00_10160;
BgL_auxz00_10160 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33166L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3577z00_6429), 
(int)(BgL_i3576z00_6428)); 
FAILURE(BgL_auxz00_10160,BFALSE,BFALSE);} } } 
BgL_nz00_4282 = 
(BgL_tmpz00_10154); } 
if(
(BgL_nz00_4282>=220L))
{ /* Llib/unicode.scm 778 */
BgL_test5633z00_10116 = 
(BgL_nz00_4282<=223L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5633z00_10116 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 822 */
BgL_test5633z00_10116 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 821 */
BgL_test5633z00_10116 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 820 */
BgL_test5633z00_10116 = ((bool_t)0)
; } 
if(BgL_test5633z00_10116)
{ /* Llib/unicode.scm 820 */
{ /* Llib/unicode.scm 825 */
 long BgL_l3581z00_6433;
BgL_l3581z00_6433 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_wz00_1781, BgL_l3581z00_6433))
{ /* Llib/unicode.scm 825 */
STRING_SET(BgL_resz00_6272, BgL_wz00_1781, BgL_cz00_1784); }  else 
{ 
 obj_t BgL_auxz00_10174;
BgL_auxz00_10174 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33227L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3581z00_6433), 
(int)(BgL_wz00_1781)); 
FAILURE(BgL_auxz00_10174,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 826 */
 long BgL_arg1758z00_1828; unsigned char BgL_arg1759z00_1829;
BgL_arg1758z00_1828 = 
(BgL_wz00_1781+1L); 
{ /* Llib/unicode.scm 826 */
 long BgL_i3584z00_6436;
BgL_i3584z00_6436 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 826 */
 long BgL_l3585z00_6437;
BgL_l3585z00_6437 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3584z00_6436, BgL_l3585z00_6437))
{ /* Llib/unicode.scm 826 */
BgL_arg1759z00_1829 = 
STRING_REF(BgL_strz00_6271, BgL_i3584z00_6436); }  else 
{ 
 obj_t BgL_auxz00_10186;
BgL_auxz00_10186 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33285L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3585z00_6437), 
(int)(BgL_i3584z00_6436)); 
FAILURE(BgL_auxz00_10186,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 826 */
 long BgL_l3589z00_6441;
BgL_l3589z00_6441 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1758z00_1828, BgL_l3589z00_6441))
{ /* Llib/unicode.scm 826 */
STRING_SET(BgL_resz00_6272, BgL_arg1758z00_1828, BgL_arg1759z00_1829); }  else 
{ 
 obj_t BgL_auxz00_10196;
BgL_auxz00_10196 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33258L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3589z00_6441), 
(int)(BgL_arg1758z00_1828)); 
FAILURE(BgL_auxz00_10196,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 827 */
 long BgL_arg1761z00_1831; unsigned char BgL_arg1762z00_1832;
BgL_arg1761z00_1831 = 
(BgL_wz00_1781+2L); 
{ /* Llib/unicode.scm 827 */
 long BgL_i3592z00_6444;
BgL_i3592z00_6444 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 827 */
 long BgL_l3593z00_6445;
BgL_l3593z00_6445 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3592z00_6444, BgL_l3593z00_6445))
{ /* Llib/unicode.scm 827 */
BgL_arg1762z00_1832 = 
STRING_REF(BgL_strz00_6271, BgL_i3592z00_6444); }  else 
{ 
 obj_t BgL_auxz00_10208;
BgL_auxz00_10208 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33349L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3593z00_6445), 
(int)(BgL_i3592z00_6444)); 
FAILURE(BgL_auxz00_10208,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 827 */
 long BgL_l3597z00_6449;
BgL_l3597z00_6449 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1761z00_1831, BgL_l3597z00_6449))
{ /* Llib/unicode.scm 827 */
STRING_SET(BgL_resz00_6272, BgL_arg1761z00_1831, BgL_arg1762z00_1832); }  else 
{ 
 obj_t BgL_auxz00_10218;
BgL_auxz00_10218 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33322L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3597z00_6449), 
(int)(BgL_arg1761z00_1831)); 
FAILURE(BgL_auxz00_10218,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 828 */
 long BgL_arg1764z00_1834; unsigned char BgL_arg1765z00_1835;
BgL_arg1764z00_1834 = 
(BgL_wz00_1781+3L); 
{ /* Llib/unicode.scm 828 */
 long BgL_i3600z00_6452;
BgL_i3600z00_6452 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 828 */
 long BgL_l3601z00_6453;
BgL_l3601z00_6453 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3600z00_6452, BgL_l3601z00_6453))
{ /* Llib/unicode.scm 828 */
BgL_arg1765z00_1835 = 
STRING_REF(BgL_strz00_6271, BgL_i3600z00_6452); }  else 
{ 
 obj_t BgL_auxz00_10230;
BgL_auxz00_10230 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33413L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3601z00_6453), 
(int)(BgL_i3600z00_6452)); 
FAILURE(BgL_auxz00_10230,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 828 */
 long BgL_l3605z00_6457;
BgL_l3605z00_6457 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1764z00_1834, BgL_l3605z00_6457))
{ /* Llib/unicode.scm 828 */
STRING_SET(BgL_resz00_6272, BgL_arg1764z00_1834, BgL_arg1765z00_1835); }  else 
{ 
 obj_t BgL_auxz00_10240;
BgL_auxz00_10240 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33386L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3605z00_6457), 
(int)(BgL_arg1764z00_1834)); 
FAILURE(BgL_auxz00_10240,BFALSE,BFALSE);} } } 
BGl_loopze70ze7zz__unicodez00(BgL_endz00_6275, BgL_strictz00_6274, BgL_lenz00_6273, BgL_resz00_6272, BgL_strz00_6271, 
(BgL_rz00_1780+4L), 
(BgL_wz00_1781+4L)); 
BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(BgL_resz00_6272, BgL_wz00_1781); 
{ 
 long BgL_wz00_10252; long BgL_rz00_10250;
BgL_rz00_10250 = 
(BgL_rz00_1780+1L); 
BgL_wz00_10252 = 
(BgL_wz00_1781+3L); 
BgL_wz00_1781 = BgL_wz00_10252; 
BgL_rz00_1780 = BgL_rz00_10250; 
goto BGl_loopze70ze7zz__unicodez00;} }  else 
{ /* Llib/unicode.scm 820 */
return BFALSE;} }  else 
{ /* Llib/unicode.scm 818 */
if(
(BgL_nz00_1785<=223L))
{ /* Llib/unicode.scm 835 */
 bool_t BgL_test5651z00_10256;
if(
(
(1L+BgL_rz00_1780)<BgL_lenz00_6273))
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4322;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10260;
{ /* Llib/unicode.scm 836 */
 long BgL_i3608z00_6460;
BgL_i3608z00_6460 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 836 */
 long BgL_l3609z00_6461;
BgL_l3609z00_6461 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3608z00_6460, BgL_l3609z00_6461))
{ /* Llib/unicode.scm 836 */
BgL_tmpz00_10260 = 
STRING_REF(BgL_strz00_6271, BgL_i3608z00_6460)
; }  else 
{ 
 obj_t BgL_auxz00_10266;
BgL_auxz00_10266 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33657L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3609z00_6461), 
(int)(BgL_i3608z00_6460)); 
FAILURE(BgL_auxz00_10266,BFALSE,BFALSE);} } } 
BgL_nz00_4322 = 
(BgL_tmpz00_10260); } 
if(
(BgL_nz00_4322>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5651z00_10256 = 
(BgL_nz00_4322<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5651z00_10256 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 835 */
BgL_test5651z00_10256 = ((bool_t)0)
; } 
if(BgL_test5651z00_10256)
{ /* Llib/unicode.scm 835 */
{ /* Llib/unicode.scm 838 */
 long BgL_l3613z00_6465;
BgL_l3613z00_6465 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_wz00_1781, BgL_l3613z00_6465))
{ /* Llib/unicode.scm 838 */
STRING_SET(BgL_resz00_6272, BgL_wz00_1781, BgL_cz00_1784); }  else 
{ 
 obj_t BgL_auxz00_10280;
BgL_auxz00_10280 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33720L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3613z00_6465), 
(int)(BgL_wz00_1781)); 
FAILURE(BgL_auxz00_10280,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 839 */
 long BgL_arg1787z00_1858; unsigned char BgL_arg1788z00_1859;
BgL_arg1787z00_1858 = 
(BgL_wz00_1781+1L); 
{ /* Llib/unicode.scm 839 */
 long BgL_i3616z00_6468;
BgL_i3616z00_6468 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 839 */
 long BgL_l3617z00_6469;
BgL_l3617z00_6469 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3616z00_6468, BgL_l3617z00_6469))
{ /* Llib/unicode.scm 839 */
BgL_arg1788z00_1859 = 
STRING_REF(BgL_strz00_6271, BgL_i3616z00_6468); }  else 
{ 
 obj_t BgL_auxz00_10292;
BgL_auxz00_10292 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33779L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3617z00_6469), 
(int)(BgL_i3616z00_6468)); 
FAILURE(BgL_auxz00_10292,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 839 */
 long BgL_l3621z00_6473;
BgL_l3621z00_6473 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1787z00_1858, BgL_l3621z00_6473))
{ /* Llib/unicode.scm 839 */
STRING_SET(BgL_resz00_6272, BgL_arg1787z00_1858, BgL_arg1788z00_1859); }  else 
{ 
 obj_t BgL_auxz00_10302;
BgL_auxz00_10302 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(33752L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3621z00_6473), 
(int)(BgL_arg1787z00_1858)); 
FAILURE(BgL_auxz00_10302,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_10310; long BgL_rz00_10308;
BgL_rz00_10308 = 
(BgL_rz00_1780+2L); 
BgL_wz00_10310 = 
(BgL_wz00_1781+2L); 
BgL_wz00_1781 = BgL_wz00_10310; 
BgL_rz00_1780 = BgL_rz00_10308; 
goto BGl_loopze70ze7zz__unicodez00;} }  else 
{ /* Llib/unicode.scm 835 */
BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(BgL_resz00_6272, BgL_wz00_1781); 
{ 
 long BgL_wz00_10315; long BgL_rz00_10313;
BgL_rz00_10313 = 
(BgL_rz00_1780+1L); 
BgL_wz00_10315 = 
(BgL_wz00_1781+3L); 
BgL_wz00_1781 = BgL_wz00_10315; 
BgL_rz00_1780 = BgL_rz00_10313; 
goto BGl_loopze70ze7zz__unicodez00;} } }  else 
{ /* Llib/unicode.scm 833 */
if(
(BgL_nz00_1785<=239L))
{ /* Llib/unicode.scm 846 */
 bool_t BgL_test5659z00_10319;
if(
(BgL_rz00_1780<
(BgL_lenz00_6273-2L)))
{ /* Llib/unicode.scm 847 */
 bool_t BgL_test5661z00_10323;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4348;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10324;
{ /* Llib/unicode.scm 847 */
 long BgL_i3624z00_6476;
BgL_i3624z00_6476 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 847 */
 long BgL_l3625z00_6477;
BgL_l3625z00_6477 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3624z00_6476, BgL_l3625z00_6477))
{ /* Llib/unicode.scm 847 */
BgL_tmpz00_10324 = 
STRING_REF(BgL_strz00_6271, BgL_i3624z00_6476)
; }  else 
{ 
 obj_t BgL_auxz00_10330;
BgL_auxz00_10330 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34032L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3625z00_6477), 
(int)(BgL_i3624z00_6476)); 
FAILURE(BgL_auxz00_10330,BFALSE,BFALSE);} } } 
BgL_nz00_4348 = 
(BgL_tmpz00_10324); } 
if(
(BgL_nz00_4348>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5661z00_10323 = 
(BgL_nz00_4348<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5661z00_10323 = ((bool_t)0)
; } } 
if(BgL_test5661z00_10323)
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4356;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10340;
{ /* Llib/unicode.scm 848 */
 long BgL_i3628z00_6480;
BgL_i3628z00_6480 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 848 */
 long BgL_l3629z00_6481;
BgL_l3629z00_6481 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3628z00_6480, BgL_l3629z00_6481))
{ /* Llib/unicode.scm 848 */
BgL_tmpz00_10340 = 
STRING_REF(BgL_strz00_6271, BgL_i3628z00_6480)
; }  else 
{ 
 obj_t BgL_auxz00_10346;
BgL_auxz00_10346 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34086L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3629z00_6481), 
(int)(BgL_i3628z00_6480)); 
FAILURE(BgL_auxz00_10346,BFALSE,BFALSE);} } } 
BgL_nz00_4356 = 
(BgL_tmpz00_10340); } 
if(
(BgL_nz00_4356>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5659z00_10319 = 
(BgL_nz00_4356<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5659z00_10319 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 847 */
BgL_test5659z00_10319 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 846 */
BgL_test5659z00_10319 = ((bool_t)0)
; } 
if(BgL_test5659z00_10319)
{ /* Llib/unicode.scm 846 */
{ /* Llib/unicode.scm 850 */
 long BgL_l3633z00_6485;
BgL_l3633z00_6485 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_wz00_1781, BgL_l3633z00_6485))
{ /* Llib/unicode.scm 850 */
STRING_SET(BgL_resz00_6272, BgL_wz00_1781, BgL_cz00_1784); }  else 
{ 
 obj_t BgL_auxz00_10360;
BgL_auxz00_10360 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34149L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3633z00_6485), 
(int)(BgL_wz00_1781)); 
FAILURE(BgL_auxz00_10360,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 851 */
 long BgL_arg1811z00_1881; unsigned char BgL_arg1812z00_1882;
BgL_arg1811z00_1881 = 
(BgL_wz00_1781+1L); 
{ /* Llib/unicode.scm 851 */
 long BgL_i3636z00_6488;
BgL_i3636z00_6488 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 851 */
 long BgL_l3637z00_6489;
BgL_l3637z00_6489 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3636z00_6488, BgL_l3637z00_6489))
{ /* Llib/unicode.scm 851 */
BgL_arg1812z00_1882 = 
STRING_REF(BgL_strz00_6271, BgL_i3636z00_6488); }  else 
{ 
 obj_t BgL_auxz00_10372;
BgL_auxz00_10372 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34208L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3637z00_6489), 
(int)(BgL_i3636z00_6488)); 
FAILURE(BgL_auxz00_10372,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 851 */
 long BgL_l3641z00_6493;
BgL_l3641z00_6493 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1811z00_1881, BgL_l3641z00_6493))
{ /* Llib/unicode.scm 851 */
STRING_SET(BgL_resz00_6272, BgL_arg1811z00_1881, BgL_arg1812z00_1882); }  else 
{ 
 obj_t BgL_auxz00_10382;
BgL_auxz00_10382 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34181L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3641z00_6493), 
(int)(BgL_arg1811z00_1881)); 
FAILURE(BgL_auxz00_10382,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 852 */
 long BgL_arg1814z00_1884; unsigned char BgL_arg1815z00_1885;
BgL_arg1814z00_1884 = 
(BgL_wz00_1781+2L); 
{ /* Llib/unicode.scm 852 */
 long BgL_i3644z00_6496;
BgL_i3644z00_6496 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 852 */
 long BgL_l3645z00_6497;
BgL_l3645z00_6497 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3644z00_6496, BgL_l3645z00_6497))
{ /* Llib/unicode.scm 852 */
BgL_arg1815z00_1885 = 
STRING_REF(BgL_strz00_6271, BgL_i3644z00_6496); }  else 
{ 
 obj_t BgL_auxz00_10394;
BgL_auxz00_10394 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34273L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3645z00_6497), 
(int)(BgL_i3644z00_6496)); 
FAILURE(BgL_auxz00_10394,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 852 */
 long BgL_l3649z00_6501;
BgL_l3649z00_6501 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1814z00_1884, BgL_l3649z00_6501))
{ /* Llib/unicode.scm 852 */
STRING_SET(BgL_resz00_6272, BgL_arg1814z00_1884, BgL_arg1815z00_1885); }  else 
{ 
 obj_t BgL_auxz00_10404;
BgL_auxz00_10404 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34246L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3649z00_6501), 
(int)(BgL_arg1814z00_1884)); 
FAILURE(BgL_auxz00_10404,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_10412; long BgL_rz00_10410;
BgL_rz00_10410 = 
(BgL_rz00_1780+3L); 
BgL_wz00_10412 = 
(BgL_wz00_1781+3L); 
BgL_wz00_1781 = BgL_wz00_10412; 
BgL_rz00_1780 = BgL_rz00_10410; 
goto BGl_loopze70ze7zz__unicodez00;} }  else 
{ /* Llib/unicode.scm 846 */
BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(BgL_resz00_6272, BgL_wz00_1781); 
{ 
 long BgL_wz00_10417; long BgL_rz00_10415;
BgL_rz00_10415 = 
(BgL_rz00_1780+1L); 
BgL_wz00_10417 = 
(BgL_wz00_1781+3L); 
BgL_wz00_1781 = BgL_wz00_10417; 
BgL_rz00_1780 = BgL_rz00_10415; 
goto BGl_loopze70ze7zz__unicodez00;} } }  else 
{ /* Llib/unicode.scm 844 */
if(
(BgL_nz00_1785==240L))
{ /* Llib/unicode.scm 859 */
 bool_t BgL_test5673z00_10421;
if(
(BgL_rz00_1780<
(BgL_lenz00_6273-3L)))
{ /* Llib/unicode.scm 860 */
 bool_t BgL_test5675z00_10425;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4389;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10426;
{ /* Llib/unicode.scm 860 */
 long BgL_i3652z00_6504;
BgL_i3652z00_6504 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 860 */
 long BgL_l3653z00_6505;
BgL_l3653z00_6505 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3652z00_6504, BgL_l3653z00_6505))
{ /* Llib/unicode.scm 860 */
BgL_tmpz00_10426 = 
STRING_REF(BgL_strz00_6271, BgL_i3652z00_6504)
; }  else 
{ 
 obj_t BgL_auxz00_10432;
BgL_auxz00_10432 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34534L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3653z00_6505), 
(int)(BgL_i3652z00_6504)); 
FAILURE(BgL_auxz00_10432,BFALSE,BFALSE);} } } 
BgL_nz00_4389 = 
(BgL_tmpz00_10426); } 
if(
(BgL_nz00_4389>=144L))
{ /* Llib/unicode.scm 778 */
BgL_test5675z00_10425 = 
(BgL_nz00_4389<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5675z00_10425 = ((bool_t)0)
; } } 
if(BgL_test5675z00_10425)
{ /* Llib/unicode.scm 861 */
 bool_t BgL_test5678z00_10442;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4397;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10443;
{ /* Llib/unicode.scm 861 */
 long BgL_i3656z00_6508;
BgL_i3656z00_6508 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 861 */
 long BgL_l3657z00_6509;
BgL_l3657z00_6509 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3656z00_6508, BgL_l3657z00_6509))
{ /* Llib/unicode.scm 861 */
BgL_tmpz00_10443 = 
STRING_REF(BgL_strz00_6271, BgL_i3656z00_6508)
; }  else 
{ 
 obj_t BgL_auxz00_10449;
BgL_auxz00_10449 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34588L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3657z00_6509), 
(int)(BgL_i3656z00_6508)); 
FAILURE(BgL_auxz00_10449,BFALSE,BFALSE);} } } 
BgL_nz00_4397 = 
(BgL_tmpz00_10443); } 
if(
(BgL_nz00_4397>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5678z00_10442 = 
(BgL_nz00_4397<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5678z00_10442 = ((bool_t)0)
; } } 
if(BgL_test5678z00_10442)
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4405;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10459;
{ /* Llib/unicode.scm 862 */
 long BgL_i3660z00_6512;
BgL_i3660z00_6512 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 862 */
 long BgL_l3661z00_6513;
BgL_l3661z00_6513 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3660z00_6512, BgL_l3661z00_6513))
{ /* Llib/unicode.scm 862 */
BgL_tmpz00_10459 = 
STRING_REF(BgL_strz00_6271, BgL_i3660z00_6512)
; }  else 
{ 
 obj_t BgL_auxz00_10465;
BgL_auxz00_10465 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34642L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3661z00_6513), 
(int)(BgL_i3660z00_6512)); 
FAILURE(BgL_auxz00_10465,BFALSE,BFALSE);} } } 
BgL_nz00_4405 = 
(BgL_tmpz00_10459); } 
if(
(BgL_nz00_4405>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5673z00_10421 = 
(BgL_nz00_4405<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5673z00_10421 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 861 */
BgL_test5673z00_10421 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 860 */
BgL_test5673z00_10421 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 859 */
BgL_test5673z00_10421 = ((bool_t)0)
; } 
if(BgL_test5673z00_10421)
{ /* Llib/unicode.scm 859 */
{ /* Llib/unicode.scm 864 */
 long BgL_l3665z00_6517;
BgL_l3665z00_6517 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_wz00_1781, BgL_l3665z00_6517))
{ /* Llib/unicode.scm 864 */
STRING_SET(BgL_resz00_6272, BgL_wz00_1781, BgL_cz00_1784); }  else 
{ 
 obj_t BgL_auxz00_10479;
BgL_auxz00_10479 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34705L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3665z00_6517), 
(int)(BgL_wz00_1781)); 
FAILURE(BgL_auxz00_10479,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 865 */
 long BgL_arg1849z00_1915; unsigned char BgL_arg1851z00_1916;
BgL_arg1849z00_1915 = 
(BgL_wz00_1781+1L); 
{ /* Llib/unicode.scm 865 */
 long BgL_i3668z00_6520;
BgL_i3668z00_6520 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 865 */
 long BgL_l3669z00_6521;
BgL_l3669z00_6521 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3668z00_6520, BgL_l3669z00_6521))
{ /* Llib/unicode.scm 865 */
BgL_arg1851z00_1916 = 
STRING_REF(BgL_strz00_6271, BgL_i3668z00_6520); }  else 
{ 
 obj_t BgL_auxz00_10491;
BgL_auxz00_10491 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34764L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3669z00_6521), 
(int)(BgL_i3668z00_6520)); 
FAILURE(BgL_auxz00_10491,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 865 */
 long BgL_l3673z00_6525;
BgL_l3673z00_6525 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1849z00_1915, BgL_l3673z00_6525))
{ /* Llib/unicode.scm 865 */
STRING_SET(BgL_resz00_6272, BgL_arg1849z00_1915, BgL_arg1851z00_1916); }  else 
{ 
 obj_t BgL_auxz00_10501;
BgL_auxz00_10501 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34737L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3673z00_6525), 
(int)(BgL_arg1849z00_1915)); 
FAILURE(BgL_auxz00_10501,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 866 */
 long BgL_arg1853z00_1918; unsigned char BgL_arg1854z00_1919;
BgL_arg1853z00_1918 = 
(BgL_wz00_1781+2L); 
{ /* Llib/unicode.scm 866 */
 long BgL_i3676z00_6528;
BgL_i3676z00_6528 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 866 */
 long BgL_l3677z00_6529;
BgL_l3677z00_6529 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3676z00_6528, BgL_l3677z00_6529))
{ /* Llib/unicode.scm 866 */
BgL_arg1854z00_1919 = 
STRING_REF(BgL_strz00_6271, BgL_i3676z00_6528); }  else 
{ 
 obj_t BgL_auxz00_10513;
BgL_auxz00_10513 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34829L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3677z00_6529), 
(int)(BgL_i3676z00_6528)); 
FAILURE(BgL_auxz00_10513,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 866 */
 long BgL_l3681z00_6533;
BgL_l3681z00_6533 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1853z00_1918, BgL_l3681z00_6533))
{ /* Llib/unicode.scm 866 */
STRING_SET(BgL_resz00_6272, BgL_arg1853z00_1918, BgL_arg1854z00_1919); }  else 
{ 
 obj_t BgL_auxz00_10523;
BgL_auxz00_10523 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34802L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3681z00_6533), 
(int)(BgL_arg1853z00_1918)); 
FAILURE(BgL_auxz00_10523,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 867 */
 long BgL_arg1857z00_1921; unsigned char BgL_arg1858z00_1922;
BgL_arg1857z00_1921 = 
(BgL_wz00_1781+3L); 
{ /* Llib/unicode.scm 867 */
 long BgL_i3684z00_6536;
BgL_i3684z00_6536 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 867 */
 long BgL_l3685z00_6537;
BgL_l3685z00_6537 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3684z00_6536, BgL_l3685z00_6537))
{ /* Llib/unicode.scm 867 */
BgL_arg1858z00_1922 = 
STRING_REF(BgL_strz00_6271, BgL_i3684z00_6536); }  else 
{ 
 obj_t BgL_auxz00_10535;
BgL_auxz00_10535 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34894L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3685z00_6537), 
(int)(BgL_i3684z00_6536)); 
FAILURE(BgL_auxz00_10535,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 867 */
 long BgL_l3689z00_6541;
BgL_l3689z00_6541 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1857z00_1921, BgL_l3689z00_6541))
{ /* Llib/unicode.scm 867 */
STRING_SET(BgL_resz00_6272, BgL_arg1857z00_1921, BgL_arg1858z00_1922); }  else 
{ 
 obj_t BgL_auxz00_10545;
BgL_auxz00_10545 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(34867L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3689z00_6541), 
(int)(BgL_arg1857z00_1921)); 
FAILURE(BgL_auxz00_10545,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_10553; long BgL_rz00_10551;
BgL_rz00_10551 = 
(BgL_rz00_1780+4L); 
BgL_wz00_10553 = 
(BgL_wz00_1781+4L); 
BgL_wz00_1781 = BgL_wz00_10553; 
BgL_rz00_1780 = BgL_rz00_10551; 
goto BGl_loopze70ze7zz__unicodez00;} }  else 
{ /* Llib/unicode.scm 859 */
BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(BgL_resz00_6272, BgL_wz00_1781); 
{ 
 long BgL_wz00_10558; long BgL_rz00_10556;
BgL_rz00_10556 = 
(BgL_rz00_1780+1L); 
BgL_wz00_10558 = 
(BgL_wz00_1781+3L); 
BgL_wz00_1781 = BgL_wz00_10558; 
BgL_rz00_1780 = BgL_rz00_10556; 
goto BGl_loopze70ze7zz__unicodez00;} } }  else 
{ /* Llib/unicode.scm 872 */
 bool_t BgL_test5690z00_10560;
if(
(BgL_nz00_1785==244L))
{ /* Llib/unicode.scm 872 */
BgL_test5690z00_10560 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 873 */
 bool_t BgL_test5692z00_10563;
{ /* Llib/unicode.scm 873 */
 bool_t BgL__ortest_1051z00_2136;
BgL__ortest_1051z00_2136 = 
(BgL_nz00_1785==248L); 
if(BgL__ortest_1051z00_2136)
{ /* Llib/unicode.scm 873 */
BgL_test5692z00_10563 = BgL__ortest_1051z00_2136
; }  else 
{ /* Llib/unicode.scm 873 */
BgL_test5692z00_10563 = 
(BgL_nz00_1785==252L)
; } } 
if(BgL_test5692z00_10563)
{ /* Llib/unicode.scm 873 */
if(BgL_strictz00_6274)
{ /* Llib/unicode.scm 873 */
BgL_test5690z00_10560 = ((bool_t)0)
; }  else 
{ /* Llib/unicode.scm 873 */
BgL_test5690z00_10560 = ((bool_t)1)
; } }  else 
{ /* Llib/unicode.scm 873 */
BgL_test5690z00_10560 = ((bool_t)0)
; } } 
if(BgL_test5690z00_10560)
{ /* Llib/unicode.scm 875 */
 bool_t BgL_test5695z00_10568;
if(
(BgL_rz00_1780<
(BgL_lenz00_6273-3L)))
{ /* Llib/unicode.scm 876 */
 bool_t BgL_test5697z00_10572;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4447;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10573;
{ /* Llib/unicode.scm 876 */
 long BgL_i3692z00_6544;
BgL_i3692z00_6544 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 876 */
 long BgL_l3693z00_6545;
BgL_l3693z00_6545 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3692z00_6544, BgL_l3693z00_6545))
{ /* Llib/unicode.scm 876 */
BgL_tmpz00_10573 = 
STRING_REF(BgL_strz00_6271, BgL_i3692z00_6544)
; }  else 
{ 
 obj_t BgL_auxz00_10579;
BgL_auxz00_10579 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35217L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3693z00_6545), 
(int)(BgL_i3692z00_6544)); 
FAILURE(BgL_auxz00_10579,BFALSE,BFALSE);} } } 
BgL_nz00_4447 = 
(BgL_tmpz00_10573); } 
if(
(BgL_nz00_4447>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5697z00_10572 = 
(BgL_nz00_4447<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5697z00_10572 = ((bool_t)0)
; } } 
if(BgL_test5697z00_10572)
{ /* Llib/unicode.scm 877 */
 bool_t BgL_test5700z00_10589;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4455;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10590;
{ /* Llib/unicode.scm 877 */
 long BgL_i3696z00_6548;
BgL_i3696z00_6548 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 877 */
 long BgL_l3697z00_6549;
BgL_l3697z00_6549 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3696z00_6548, BgL_l3697z00_6549))
{ /* Llib/unicode.scm 877 */
BgL_tmpz00_10590 = 
STRING_REF(BgL_strz00_6271, BgL_i3696z00_6548)
; }  else 
{ 
 obj_t BgL_auxz00_10596;
BgL_auxz00_10596 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35271L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3697z00_6549), 
(int)(BgL_i3696z00_6548)); 
FAILURE(BgL_auxz00_10596,BFALSE,BFALSE);} } } 
BgL_nz00_4455 = 
(BgL_tmpz00_10590); } 
if(
(BgL_nz00_4455>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5700z00_10589 = 
(BgL_nz00_4455<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5700z00_10589 = ((bool_t)0)
; } } 
if(BgL_test5700z00_10589)
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4463;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10606;
{ /* Llib/unicode.scm 878 */
 long BgL_i3700z00_6552;
BgL_i3700z00_6552 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 878 */
 long BgL_l3701z00_6553;
BgL_l3701z00_6553 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3700z00_6552, BgL_l3701z00_6553))
{ /* Llib/unicode.scm 878 */
BgL_tmpz00_10606 = 
STRING_REF(BgL_strz00_6271, BgL_i3700z00_6552)
; }  else 
{ 
 obj_t BgL_auxz00_10612;
BgL_auxz00_10612 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35325L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3701z00_6553), 
(int)(BgL_i3700z00_6552)); 
FAILURE(BgL_auxz00_10612,BFALSE,BFALSE);} } } 
BgL_nz00_4463 = 
(BgL_tmpz00_10606); } 
if(
(BgL_nz00_4463>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5695z00_10568 = 
(BgL_nz00_4463<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5695z00_10568 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 877 */
BgL_test5695z00_10568 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 876 */
BgL_test5695z00_10568 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 875 */
BgL_test5695z00_10568 = ((bool_t)0)
; } 
if(BgL_test5695z00_10568)
{ /* Llib/unicode.scm 875 */
{ /* Llib/unicode.scm 880 */
 long BgL_l3705z00_6557;
BgL_l3705z00_6557 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_wz00_1781, BgL_l3705z00_6557))
{ /* Llib/unicode.scm 880 */
STRING_SET(BgL_resz00_6272, BgL_wz00_1781, BgL_cz00_1784); }  else 
{ 
 obj_t BgL_auxz00_10626;
BgL_auxz00_10626 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35388L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3705z00_6557), 
(int)(BgL_wz00_1781)); 
FAILURE(BgL_auxz00_10626,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 881 */
 long BgL_arg1892z00_1958; unsigned char BgL_arg1893z00_1959;
BgL_arg1892z00_1958 = 
(BgL_wz00_1781+1L); 
{ /* Llib/unicode.scm 881 */
 long BgL_i3708z00_6560;
BgL_i3708z00_6560 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 881 */
 long BgL_l3709z00_6561;
BgL_l3709z00_6561 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3708z00_6560, BgL_l3709z00_6561))
{ /* Llib/unicode.scm 881 */
BgL_arg1893z00_1959 = 
STRING_REF(BgL_strz00_6271, BgL_i3708z00_6560); }  else 
{ 
 obj_t BgL_auxz00_10638;
BgL_auxz00_10638 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35447L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3709z00_6561), 
(int)(BgL_i3708z00_6560)); 
FAILURE(BgL_auxz00_10638,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 881 */
 long BgL_l3713z00_6565;
BgL_l3713z00_6565 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1892z00_1958, BgL_l3713z00_6565))
{ /* Llib/unicode.scm 881 */
STRING_SET(BgL_resz00_6272, BgL_arg1892z00_1958, BgL_arg1893z00_1959); }  else 
{ 
 obj_t BgL_auxz00_10648;
BgL_auxz00_10648 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35420L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3713z00_6565), 
(int)(BgL_arg1892z00_1958)); 
FAILURE(BgL_auxz00_10648,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 882 */
 long BgL_arg1896z00_1961; unsigned char BgL_arg1897z00_1962;
BgL_arg1896z00_1961 = 
(BgL_wz00_1781+2L); 
{ /* Llib/unicode.scm 882 */
 long BgL_i3716z00_6568;
BgL_i3716z00_6568 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 882 */
 long BgL_l3717z00_6569;
BgL_l3717z00_6569 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3716z00_6568, BgL_l3717z00_6569))
{ /* Llib/unicode.scm 882 */
BgL_arg1897z00_1962 = 
STRING_REF(BgL_strz00_6271, BgL_i3716z00_6568); }  else 
{ 
 obj_t BgL_auxz00_10660;
BgL_auxz00_10660 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35512L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3717z00_6569), 
(int)(BgL_i3716z00_6568)); 
FAILURE(BgL_auxz00_10660,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 882 */
 long BgL_l3721z00_6573;
BgL_l3721z00_6573 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1896z00_1961, BgL_l3721z00_6573))
{ /* Llib/unicode.scm 882 */
STRING_SET(BgL_resz00_6272, BgL_arg1896z00_1961, BgL_arg1897z00_1962); }  else 
{ 
 obj_t BgL_auxz00_10670;
BgL_auxz00_10670 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35485L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3721z00_6573), 
(int)(BgL_arg1896z00_1961)); 
FAILURE(BgL_auxz00_10670,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 883 */
 long BgL_arg1899z00_1964; unsigned char BgL_arg1901z00_1965;
BgL_arg1899z00_1964 = 
(BgL_wz00_1781+3L); 
{ /* Llib/unicode.scm 883 */
 long BgL_i3724z00_6576;
BgL_i3724z00_6576 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 883 */
 long BgL_l3725z00_6577;
BgL_l3725z00_6577 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3724z00_6576, BgL_l3725z00_6577))
{ /* Llib/unicode.scm 883 */
BgL_arg1901z00_1965 = 
STRING_REF(BgL_strz00_6271, BgL_i3724z00_6576); }  else 
{ 
 obj_t BgL_auxz00_10682;
BgL_auxz00_10682 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35577L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3725z00_6577), 
(int)(BgL_i3724z00_6576)); 
FAILURE(BgL_auxz00_10682,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 883 */
 long BgL_l3729z00_6581;
BgL_l3729z00_6581 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1899z00_1964, BgL_l3729z00_6581))
{ /* Llib/unicode.scm 883 */
STRING_SET(BgL_resz00_6272, BgL_arg1899z00_1964, BgL_arg1901z00_1965); }  else 
{ 
 obj_t BgL_auxz00_10692;
BgL_auxz00_10692 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35550L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3729z00_6581), 
(int)(BgL_arg1899z00_1964)); 
FAILURE(BgL_auxz00_10692,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_10700; long BgL_rz00_10698;
BgL_rz00_10698 = 
(BgL_rz00_1780+4L); 
BgL_wz00_10700 = 
(BgL_wz00_1781+4L); 
BgL_wz00_1781 = BgL_wz00_10700; 
BgL_rz00_1780 = BgL_rz00_10698; 
goto BGl_loopze70ze7zz__unicodez00;} }  else 
{ /* Llib/unicode.scm 875 */
BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(BgL_resz00_6272, BgL_wz00_1781); 
{ 
 long BgL_wz00_10705; long BgL_rz00_10703;
BgL_rz00_10703 = 
(BgL_rz00_1780+1L); 
BgL_wz00_10705 = 
(BgL_wz00_1781+3L); 
BgL_wz00_1781 = BgL_wz00_10705; 
BgL_rz00_1780 = BgL_rz00_10703; 
goto BGl_loopze70ze7zz__unicodez00;} } }  else 
{ /* Llib/unicode.scm 872 */
if(
(BgL_nz00_1785<=247L))
{ /* Llib/unicode.scm 890 */
 bool_t BgL_test5713z00_10709;
if(
(BgL_rz00_1780<
(BgL_lenz00_6273-3L)))
{ /* Llib/unicode.scm 891 */
 bool_t BgL_test5715z00_10713;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4503;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10714;
{ /* Llib/unicode.scm 891 */
 long BgL_i3732z00_6584;
BgL_i3732z00_6584 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 891 */
 long BgL_l3733z00_6585;
BgL_l3733z00_6585 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3732z00_6584, BgL_l3733z00_6585))
{ /* Llib/unicode.scm 891 */
BgL_tmpz00_10714 = 
STRING_REF(BgL_strz00_6271, BgL_i3732z00_6584)
; }  else 
{ 
 obj_t BgL_auxz00_10720;
BgL_auxz00_10720 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35830L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3733z00_6585), 
(int)(BgL_i3732z00_6584)); 
FAILURE(BgL_auxz00_10720,BFALSE,BFALSE);} } } 
BgL_nz00_4503 = 
(BgL_tmpz00_10714); } 
if(
(BgL_nz00_4503>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5715z00_10713 = 
(BgL_nz00_4503<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5715z00_10713 = ((bool_t)0)
; } } 
if(BgL_test5715z00_10713)
{ /* Llib/unicode.scm 892 */
 bool_t BgL_test5718z00_10730;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4511;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10731;
{ /* Llib/unicode.scm 892 */
 long BgL_i3736z00_6588;
BgL_i3736z00_6588 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 892 */
 long BgL_l3737z00_6589;
BgL_l3737z00_6589 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3736z00_6588, BgL_l3737z00_6589))
{ /* Llib/unicode.scm 892 */
BgL_tmpz00_10731 = 
STRING_REF(BgL_strz00_6271, BgL_i3736z00_6588)
; }  else 
{ 
 obj_t BgL_auxz00_10737;
BgL_auxz00_10737 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35884L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3737z00_6589), 
(int)(BgL_i3736z00_6588)); 
FAILURE(BgL_auxz00_10737,BFALSE,BFALSE);} } } 
BgL_nz00_4511 = 
(BgL_tmpz00_10731); } 
if(
(BgL_nz00_4511>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5718z00_10730 = 
(BgL_nz00_4511<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5718z00_10730 = ((bool_t)0)
; } } 
if(BgL_test5718z00_10730)
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4519;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10747;
{ /* Llib/unicode.scm 893 */
 long BgL_i3740z00_6592;
BgL_i3740z00_6592 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 893 */
 long BgL_l3741z00_6593;
BgL_l3741z00_6593 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3740z00_6592, BgL_l3741z00_6593))
{ /* Llib/unicode.scm 893 */
BgL_tmpz00_10747 = 
STRING_REF(BgL_strz00_6271, BgL_i3740z00_6592)
; }  else 
{ 
 obj_t BgL_auxz00_10753;
BgL_auxz00_10753 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(35938L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3741z00_6593), 
(int)(BgL_i3740z00_6592)); 
FAILURE(BgL_auxz00_10753,BFALSE,BFALSE);} } } 
BgL_nz00_4519 = 
(BgL_tmpz00_10747); } 
if(
(BgL_nz00_4519>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5713z00_10709 = 
(BgL_nz00_4519<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5713z00_10709 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 892 */
BgL_test5713z00_10709 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 891 */
BgL_test5713z00_10709 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 890 */
BgL_test5713z00_10709 = ((bool_t)0)
; } 
if(BgL_test5713z00_10709)
{ /* Llib/unicode.scm 890 */
{ /* Llib/unicode.scm 895 */
 long BgL_l3745z00_6597;
BgL_l3745z00_6597 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_wz00_1781, BgL_l3745z00_6597))
{ /* Llib/unicode.scm 895 */
STRING_SET(BgL_resz00_6272, BgL_wz00_1781, BgL_cz00_1784); }  else 
{ 
 obj_t BgL_auxz00_10767;
BgL_auxz00_10767 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36001L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3745z00_6597), 
(int)(BgL_wz00_1781)); 
FAILURE(BgL_auxz00_10767,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 896 */
 long BgL_arg1939z00_1998; unsigned char BgL_arg1940z00_1999;
BgL_arg1939z00_1998 = 
(BgL_wz00_1781+1L); 
{ /* Llib/unicode.scm 896 */
 long BgL_i3748z00_6600;
BgL_i3748z00_6600 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 896 */
 long BgL_l3749z00_6601;
BgL_l3749z00_6601 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3748z00_6600, BgL_l3749z00_6601))
{ /* Llib/unicode.scm 896 */
BgL_arg1940z00_1999 = 
STRING_REF(BgL_strz00_6271, BgL_i3748z00_6600); }  else 
{ 
 obj_t BgL_auxz00_10779;
BgL_auxz00_10779 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36060L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3749z00_6601), 
(int)(BgL_i3748z00_6600)); 
FAILURE(BgL_auxz00_10779,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 896 */
 long BgL_l3753z00_6605;
BgL_l3753z00_6605 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1939z00_1998, BgL_l3753z00_6605))
{ /* Llib/unicode.scm 896 */
STRING_SET(BgL_resz00_6272, BgL_arg1939z00_1998, BgL_arg1940z00_1999); }  else 
{ 
 obj_t BgL_auxz00_10789;
BgL_auxz00_10789 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36033L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3753z00_6605), 
(int)(BgL_arg1939z00_1998)); 
FAILURE(BgL_auxz00_10789,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 897 */
 long BgL_arg1942z00_2001; unsigned char BgL_arg1943z00_2002;
BgL_arg1942z00_2001 = 
(BgL_wz00_1781+2L); 
{ /* Llib/unicode.scm 897 */
 long BgL_i3756z00_6608;
BgL_i3756z00_6608 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 897 */
 long BgL_l3757z00_6609;
BgL_l3757z00_6609 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3756z00_6608, BgL_l3757z00_6609))
{ /* Llib/unicode.scm 897 */
BgL_arg1943z00_2002 = 
STRING_REF(BgL_strz00_6271, BgL_i3756z00_6608); }  else 
{ 
 obj_t BgL_auxz00_10801;
BgL_auxz00_10801 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36125L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3757z00_6609), 
(int)(BgL_i3756z00_6608)); 
FAILURE(BgL_auxz00_10801,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 897 */
 long BgL_l3761z00_6613;
BgL_l3761z00_6613 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1942z00_2001, BgL_l3761z00_6613))
{ /* Llib/unicode.scm 897 */
STRING_SET(BgL_resz00_6272, BgL_arg1942z00_2001, BgL_arg1943z00_2002); }  else 
{ 
 obj_t BgL_auxz00_10811;
BgL_auxz00_10811 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36098L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3761z00_6613), 
(int)(BgL_arg1942z00_2001)); 
FAILURE(BgL_auxz00_10811,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 898 */
 long BgL_arg1945z00_2004; unsigned char BgL_arg1946z00_2005;
BgL_arg1945z00_2004 = 
(BgL_wz00_1781+3L); 
{ /* Llib/unicode.scm 898 */
 long BgL_i3764z00_6616;
BgL_i3764z00_6616 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 898 */
 long BgL_l3765z00_6617;
BgL_l3765z00_6617 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3764z00_6616, BgL_l3765z00_6617))
{ /* Llib/unicode.scm 898 */
BgL_arg1946z00_2005 = 
STRING_REF(BgL_strz00_6271, BgL_i3764z00_6616); }  else 
{ 
 obj_t BgL_auxz00_10823;
BgL_auxz00_10823 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36190L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3765z00_6617), 
(int)(BgL_i3764z00_6616)); 
FAILURE(BgL_auxz00_10823,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 898 */
 long BgL_l3769z00_6621;
BgL_l3769z00_6621 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1945z00_2004, BgL_l3769z00_6621))
{ /* Llib/unicode.scm 898 */
STRING_SET(BgL_resz00_6272, BgL_arg1945z00_2004, BgL_arg1946z00_2005); }  else 
{ 
 obj_t BgL_auxz00_10833;
BgL_auxz00_10833 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36163L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3769z00_6621), 
(int)(BgL_arg1945z00_2004)); 
FAILURE(BgL_auxz00_10833,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_10841; long BgL_rz00_10839;
BgL_rz00_10839 = 
(BgL_rz00_1780+4L); 
BgL_wz00_10841 = 
(BgL_wz00_1781+4L); 
BgL_wz00_1781 = BgL_wz00_10841; 
BgL_rz00_1780 = BgL_rz00_10839; 
goto BGl_loopze70ze7zz__unicodez00;} }  else 
{ /* Llib/unicode.scm 890 */
BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(BgL_resz00_6272, BgL_wz00_1781); 
{ 
 long BgL_wz00_10846; long BgL_rz00_10844;
BgL_rz00_10844 = 
(BgL_rz00_1780+1L); 
BgL_wz00_10846 = 
(BgL_wz00_1781+3L); 
BgL_wz00_1781 = BgL_wz00_10846; 
BgL_rz00_1780 = BgL_rz00_10844; 
goto BGl_loopze70ze7zz__unicodez00;} } }  else 
{ /* Llib/unicode.scm 888 */
if(
(BgL_nz00_1785<=251L))
{ /* Llib/unicode.scm 904 */
 bool_t BgL_test5731z00_10850;
if(
(BgL_rz00_1780<
(BgL_lenz00_6273-4L)))
{ /* Llib/unicode.scm 905 */
 bool_t BgL_test5733z00_10854;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4559;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10855;
{ /* Llib/unicode.scm 905 */
 long BgL_i3772z00_6624;
BgL_i3772z00_6624 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 905 */
 long BgL_l3773z00_6625;
BgL_l3773z00_6625 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3772z00_6624, BgL_l3773z00_6625))
{ /* Llib/unicode.scm 905 */
BgL_tmpz00_10855 = 
STRING_REF(BgL_strz00_6271, BgL_i3772z00_6624)
; }  else 
{ 
 obj_t BgL_auxz00_10861;
BgL_auxz00_10861 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36420L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3773z00_6625), 
(int)(BgL_i3772z00_6624)); 
FAILURE(BgL_auxz00_10861,BFALSE,BFALSE);} } } 
BgL_nz00_4559 = 
(BgL_tmpz00_10855); } 
if(
(BgL_nz00_4559>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5733z00_10854 = 
(BgL_nz00_4559<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5733z00_10854 = ((bool_t)0)
; } } 
if(BgL_test5733z00_10854)
{ /* Llib/unicode.scm 906 */
 bool_t BgL_test5736z00_10871;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4567;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10872;
{ /* Llib/unicode.scm 906 */
 long BgL_i3776z00_6628;
BgL_i3776z00_6628 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 906 */
 long BgL_l3777z00_6629;
BgL_l3777z00_6629 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3776z00_6628, BgL_l3777z00_6629))
{ /* Llib/unicode.scm 906 */
BgL_tmpz00_10872 = 
STRING_REF(BgL_strz00_6271, BgL_i3776z00_6628)
; }  else 
{ 
 obj_t BgL_auxz00_10878;
BgL_auxz00_10878 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36474L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3777z00_6629), 
(int)(BgL_i3776z00_6628)); 
FAILURE(BgL_auxz00_10878,BFALSE,BFALSE);} } } 
BgL_nz00_4567 = 
(BgL_tmpz00_10872); } 
if(
(BgL_nz00_4567>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5736z00_10871 = 
(BgL_nz00_4567<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5736z00_10871 = ((bool_t)0)
; } } 
if(BgL_test5736z00_10871)
{ /* Llib/unicode.scm 907 */
 bool_t BgL_test5739z00_10888;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4575;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10889;
{ /* Llib/unicode.scm 907 */
 long BgL_i3780z00_6632;
BgL_i3780z00_6632 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 907 */
 long BgL_l3781z00_6633;
BgL_l3781z00_6633 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3780z00_6632, BgL_l3781z00_6633))
{ /* Llib/unicode.scm 907 */
BgL_tmpz00_10889 = 
STRING_REF(BgL_strz00_6271, BgL_i3780z00_6632)
; }  else 
{ 
 obj_t BgL_auxz00_10895;
BgL_auxz00_10895 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36528L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3781z00_6633), 
(int)(BgL_i3780z00_6632)); 
FAILURE(BgL_auxz00_10895,BFALSE,BFALSE);} } } 
BgL_nz00_4575 = 
(BgL_tmpz00_10889); } 
if(
(BgL_nz00_4575>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5739z00_10888 = 
(BgL_nz00_4575<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5739z00_10888 = ((bool_t)0)
; } } 
if(BgL_test5739z00_10888)
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4583;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_10905;
{ /* Llib/unicode.scm 908 */
 long BgL_i3784z00_6636;
BgL_i3784z00_6636 = 
(BgL_rz00_1780+4L); 
{ /* Llib/unicode.scm 908 */
 long BgL_l3785z00_6637;
BgL_l3785z00_6637 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3784z00_6636, BgL_l3785z00_6637))
{ /* Llib/unicode.scm 908 */
BgL_tmpz00_10905 = 
STRING_REF(BgL_strz00_6271, BgL_i3784z00_6636)
; }  else 
{ 
 obj_t BgL_auxz00_10911;
BgL_auxz00_10911 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36582L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3785z00_6637), 
(int)(BgL_i3784z00_6636)); 
FAILURE(BgL_auxz00_10911,BFALSE,BFALSE);} } } 
BgL_nz00_4583 = 
(BgL_tmpz00_10905); } 
if(
(BgL_nz00_4583>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5731z00_10850 = 
(BgL_nz00_4583<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5731z00_10850 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 907 */
BgL_test5731z00_10850 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 906 */
BgL_test5731z00_10850 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 905 */
BgL_test5731z00_10850 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 904 */
BgL_test5731z00_10850 = ((bool_t)0)
; } 
if(BgL_test5731z00_10850)
{ /* Llib/unicode.scm 904 */
{ /* Llib/unicode.scm 910 */
 long BgL_l3789z00_6641;
BgL_l3789z00_6641 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_wz00_1781, BgL_l3789z00_6641))
{ /* Llib/unicode.scm 910 */
STRING_SET(BgL_resz00_6272, BgL_wz00_1781, BgL_cz00_1784); }  else 
{ 
 obj_t BgL_auxz00_10925;
BgL_auxz00_10925 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36645L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3789z00_6641), 
(int)(BgL_wz00_1781)); 
FAILURE(BgL_auxz00_10925,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 911 */
 long BgL_arg1987z00_2043; unsigned char BgL_arg1988z00_2044;
BgL_arg1987z00_2043 = 
(BgL_wz00_1781+1L); 
{ /* Llib/unicode.scm 911 */
 long BgL_i3792z00_6644;
BgL_i3792z00_6644 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 911 */
 long BgL_l3793z00_6645;
BgL_l3793z00_6645 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3792z00_6644, BgL_l3793z00_6645))
{ /* Llib/unicode.scm 911 */
BgL_arg1988z00_2044 = 
STRING_REF(BgL_strz00_6271, BgL_i3792z00_6644); }  else 
{ 
 obj_t BgL_auxz00_10937;
BgL_auxz00_10937 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36704L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3793z00_6645), 
(int)(BgL_i3792z00_6644)); 
FAILURE(BgL_auxz00_10937,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 911 */
 long BgL_l3797z00_6649;
BgL_l3797z00_6649 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1987z00_2043, BgL_l3797z00_6649))
{ /* Llib/unicode.scm 911 */
STRING_SET(BgL_resz00_6272, BgL_arg1987z00_2043, BgL_arg1988z00_2044); }  else 
{ 
 obj_t BgL_auxz00_10947;
BgL_auxz00_10947 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36677L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3797z00_6649), 
(int)(BgL_arg1987z00_2043)); 
FAILURE(BgL_auxz00_10947,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 912 */
 long BgL_arg1990z00_2046; unsigned char BgL_arg1991z00_2047;
BgL_arg1990z00_2046 = 
(BgL_wz00_1781+2L); 
{ /* Llib/unicode.scm 912 */
 long BgL_i3800z00_6652;
BgL_i3800z00_6652 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 912 */
 long BgL_l3801z00_6653;
BgL_l3801z00_6653 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3800z00_6652, BgL_l3801z00_6653))
{ /* Llib/unicode.scm 912 */
BgL_arg1991z00_2047 = 
STRING_REF(BgL_strz00_6271, BgL_i3800z00_6652); }  else 
{ 
 obj_t BgL_auxz00_10959;
BgL_auxz00_10959 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36769L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3801z00_6653), 
(int)(BgL_i3800z00_6652)); 
FAILURE(BgL_auxz00_10959,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 912 */
 long BgL_l3805z00_6657;
BgL_l3805z00_6657 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1990z00_2046, BgL_l3805z00_6657))
{ /* Llib/unicode.scm 912 */
STRING_SET(BgL_resz00_6272, BgL_arg1990z00_2046, BgL_arg1991z00_2047); }  else 
{ 
 obj_t BgL_auxz00_10969;
BgL_auxz00_10969 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36742L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3805z00_6657), 
(int)(BgL_arg1990z00_2046)); 
FAILURE(BgL_auxz00_10969,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 913 */
 long BgL_arg1993z00_2049; unsigned char BgL_arg1994z00_2050;
BgL_arg1993z00_2049 = 
(BgL_wz00_1781+3L); 
{ /* Llib/unicode.scm 913 */
 long BgL_i3808z00_6660;
BgL_i3808z00_6660 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 913 */
 long BgL_l3809z00_6661;
BgL_l3809z00_6661 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3808z00_6660, BgL_l3809z00_6661))
{ /* Llib/unicode.scm 913 */
BgL_arg1994z00_2050 = 
STRING_REF(BgL_strz00_6271, BgL_i3808z00_6660); }  else 
{ 
 obj_t BgL_auxz00_10981;
BgL_auxz00_10981 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36834L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3809z00_6661), 
(int)(BgL_i3808z00_6660)); 
FAILURE(BgL_auxz00_10981,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 913 */
 long BgL_l3813z00_6665;
BgL_l3813z00_6665 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1993z00_2049, BgL_l3813z00_6665))
{ /* Llib/unicode.scm 913 */
STRING_SET(BgL_resz00_6272, BgL_arg1993z00_2049, BgL_arg1994z00_2050); }  else 
{ 
 obj_t BgL_auxz00_10991;
BgL_auxz00_10991 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36807L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3813z00_6665), 
(int)(BgL_arg1993z00_2049)); 
FAILURE(BgL_auxz00_10991,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 914 */
 long BgL_arg1996z00_2052; unsigned char BgL_arg1998z00_2053;
BgL_arg1996z00_2052 = 
(BgL_wz00_1781+4L); 
{ /* Llib/unicode.scm 914 */
 long BgL_i3816z00_6668;
BgL_i3816z00_6668 = 
(BgL_rz00_1780+4L); 
{ /* Llib/unicode.scm 914 */
 long BgL_l3817z00_6669;
BgL_l3817z00_6669 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3816z00_6668, BgL_l3817z00_6669))
{ /* Llib/unicode.scm 914 */
BgL_arg1998z00_2053 = 
STRING_REF(BgL_strz00_6271, BgL_i3816z00_6668); }  else 
{ 
 obj_t BgL_auxz00_11003;
BgL_auxz00_11003 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36899L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3817z00_6669), 
(int)(BgL_i3816z00_6668)); 
FAILURE(BgL_auxz00_11003,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 914 */
 long BgL_l3821z00_6673;
BgL_l3821z00_6673 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg1996z00_2052, BgL_l3821z00_6673))
{ /* Llib/unicode.scm 914 */
STRING_SET(BgL_resz00_6272, BgL_arg1996z00_2052, BgL_arg1998z00_2053); }  else 
{ 
 obj_t BgL_auxz00_11013;
BgL_auxz00_11013 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(36872L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3821z00_6673), 
(int)(BgL_arg1996z00_2052)); 
FAILURE(BgL_auxz00_11013,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_11021; long BgL_rz00_11019;
BgL_rz00_11019 = 
(BgL_rz00_1780+5L); 
BgL_wz00_11021 = 
(BgL_wz00_1781+5L); 
BgL_wz00_1781 = BgL_wz00_11021; 
BgL_rz00_1780 = BgL_rz00_11019; 
goto BGl_loopze70ze7zz__unicodez00;} }  else 
{ /* Llib/unicode.scm 904 */
BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(BgL_resz00_6272, BgL_wz00_1781); 
{ 
 long BgL_wz00_11026; long BgL_rz00_11024;
BgL_rz00_11024 = 
(BgL_rz00_1780+1L); 
BgL_wz00_11026 = 
(BgL_wz00_1781+3L); 
BgL_wz00_1781 = BgL_wz00_11026; 
BgL_rz00_1780 = BgL_rz00_11024; 
goto BGl_loopze70ze7zz__unicodez00;} } }  else 
{ /* Llib/unicode.scm 903 */
if(
(BgL_nz00_1785<=253L))
{ /* Llib/unicode.scm 920 */
 bool_t BgL_test5754z00_11030;
if(
(BgL_rz00_1780<
(BgL_lenz00_6273-5L)))
{ /* Llib/unicode.scm 921 */
 bool_t BgL_test5756z00_11034;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4630;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_11035;
{ /* Llib/unicode.scm 921 */
 long BgL_i3824z00_6676;
BgL_i3824z00_6676 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 921 */
 long BgL_l3825z00_6677;
BgL_l3825z00_6677 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3824z00_6676, BgL_l3825z00_6677))
{ /* Llib/unicode.scm 921 */
BgL_tmpz00_11035 = 
STRING_REF(BgL_strz00_6271, BgL_i3824z00_6676)
; }  else 
{ 
 obj_t BgL_auxz00_11041;
BgL_auxz00_11041 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37129L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3825z00_6677), 
(int)(BgL_i3824z00_6676)); 
FAILURE(BgL_auxz00_11041,BFALSE,BFALSE);} } } 
BgL_nz00_4630 = 
(BgL_tmpz00_11035); } 
if(
(BgL_nz00_4630>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5756z00_11034 = 
(BgL_nz00_4630<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5756z00_11034 = ((bool_t)0)
; } } 
if(BgL_test5756z00_11034)
{ /* Llib/unicode.scm 922 */
 bool_t BgL_test5759z00_11051;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4638;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_11052;
{ /* Llib/unicode.scm 922 */
 long BgL_i3828z00_6680;
BgL_i3828z00_6680 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 922 */
 long BgL_l3829z00_6681;
BgL_l3829z00_6681 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3828z00_6680, BgL_l3829z00_6681))
{ /* Llib/unicode.scm 922 */
BgL_tmpz00_11052 = 
STRING_REF(BgL_strz00_6271, BgL_i3828z00_6680)
; }  else 
{ 
 obj_t BgL_auxz00_11058;
BgL_auxz00_11058 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37183L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3829z00_6681), 
(int)(BgL_i3828z00_6680)); 
FAILURE(BgL_auxz00_11058,BFALSE,BFALSE);} } } 
BgL_nz00_4638 = 
(BgL_tmpz00_11052); } 
if(
(BgL_nz00_4638>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5759z00_11051 = 
(BgL_nz00_4638<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5759z00_11051 = ((bool_t)0)
; } } 
if(BgL_test5759z00_11051)
{ /* Llib/unicode.scm 923 */
 bool_t BgL_test5762z00_11068;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4646;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_11069;
{ /* Llib/unicode.scm 923 */
 long BgL_i3832z00_6684;
BgL_i3832z00_6684 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 923 */
 long BgL_l3833z00_6685;
BgL_l3833z00_6685 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3832z00_6684, BgL_l3833z00_6685))
{ /* Llib/unicode.scm 923 */
BgL_tmpz00_11069 = 
STRING_REF(BgL_strz00_6271, BgL_i3832z00_6684)
; }  else 
{ 
 obj_t BgL_auxz00_11075;
BgL_auxz00_11075 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37237L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3833z00_6685), 
(int)(BgL_i3832z00_6684)); 
FAILURE(BgL_auxz00_11075,BFALSE,BFALSE);} } } 
BgL_nz00_4646 = 
(BgL_tmpz00_11069); } 
if(
(BgL_nz00_4646>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5762z00_11068 = 
(BgL_nz00_4646<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5762z00_11068 = ((bool_t)0)
; } } 
if(BgL_test5762z00_11068)
{ /* Llib/unicode.scm 924 */
 bool_t BgL_test5765z00_11085;
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4654;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_11086;
{ /* Llib/unicode.scm 924 */
 long BgL_i3836z00_6688;
BgL_i3836z00_6688 = 
(BgL_rz00_1780+4L); 
{ /* Llib/unicode.scm 924 */
 long BgL_l3837z00_6689;
BgL_l3837z00_6689 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3836z00_6688, BgL_l3837z00_6689))
{ /* Llib/unicode.scm 924 */
BgL_tmpz00_11086 = 
STRING_REF(BgL_strz00_6271, BgL_i3836z00_6688)
; }  else 
{ 
 obj_t BgL_auxz00_11092;
BgL_auxz00_11092 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37291L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3837z00_6689), 
(int)(BgL_i3836z00_6688)); 
FAILURE(BgL_auxz00_11092,BFALSE,BFALSE);} } } 
BgL_nz00_4654 = 
(BgL_tmpz00_11086); } 
if(
(BgL_nz00_4654>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5765z00_11085 = 
(BgL_nz00_4654<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5765z00_11085 = ((bool_t)0)
; } } 
if(BgL_test5765z00_11085)
{ /* Llib/unicode.scm 777 */
 long BgL_nz00_4662;
{ /* Llib/unicode.scm 777 */
 unsigned char BgL_tmpz00_11102;
{ /* Llib/unicode.scm 925 */
 long BgL_i3840z00_6692;
BgL_i3840z00_6692 = 
(BgL_rz00_1780+5L); 
{ /* Llib/unicode.scm 925 */
 long BgL_l3841z00_6693;
BgL_l3841z00_6693 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3840z00_6692, BgL_l3841z00_6693))
{ /* Llib/unicode.scm 925 */
BgL_tmpz00_11102 = 
STRING_REF(BgL_strz00_6271, BgL_i3840z00_6692)
; }  else 
{ 
 obj_t BgL_auxz00_11108;
BgL_auxz00_11108 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37345L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3841z00_6693), 
(int)(BgL_i3840z00_6692)); 
FAILURE(BgL_auxz00_11108,BFALSE,BFALSE);} } } 
BgL_nz00_4662 = 
(BgL_tmpz00_11102); } 
if(
(BgL_nz00_4662>=128L))
{ /* Llib/unicode.scm 778 */
BgL_test5754z00_11030 = 
(BgL_nz00_4662<=191L)
; }  else 
{ /* Llib/unicode.scm 778 */
BgL_test5754z00_11030 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 924 */
BgL_test5754z00_11030 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 923 */
BgL_test5754z00_11030 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 922 */
BgL_test5754z00_11030 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 921 */
BgL_test5754z00_11030 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 920 */
BgL_test5754z00_11030 = ((bool_t)0)
; } 
if(BgL_test5754z00_11030)
{ /* Llib/unicode.scm 920 */
{ /* Llib/unicode.scm 927 */
 long BgL_l3845z00_6697;
BgL_l3845z00_6697 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_wz00_1781, BgL_l3845z00_6697))
{ /* Llib/unicode.scm 927 */
STRING_SET(BgL_resz00_6272, BgL_wz00_1781, BgL_cz00_1784); }  else 
{ 
 obj_t BgL_auxz00_11122;
BgL_auxz00_11122 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37408L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3845z00_6697), 
(int)(BgL_wz00_1781)); 
FAILURE(BgL_auxz00_11122,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 928 */
 long BgL_arg2048z00_2099; unsigned char BgL_arg2049z00_2100;
BgL_arg2048z00_2099 = 
(BgL_wz00_1781+1L); 
{ /* Llib/unicode.scm 928 */
 long BgL_i3848z00_6700;
BgL_i3848z00_6700 = 
(BgL_rz00_1780+1L); 
{ /* Llib/unicode.scm 928 */
 long BgL_l3849z00_6701;
BgL_l3849z00_6701 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3848z00_6700, BgL_l3849z00_6701))
{ /* Llib/unicode.scm 928 */
BgL_arg2049z00_2100 = 
STRING_REF(BgL_strz00_6271, BgL_i3848z00_6700); }  else 
{ 
 obj_t BgL_auxz00_11134;
BgL_auxz00_11134 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37467L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3849z00_6701), 
(int)(BgL_i3848z00_6700)); 
FAILURE(BgL_auxz00_11134,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 928 */
 long BgL_l3853z00_6705;
BgL_l3853z00_6705 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg2048z00_2099, BgL_l3853z00_6705))
{ /* Llib/unicode.scm 928 */
STRING_SET(BgL_resz00_6272, BgL_arg2048z00_2099, BgL_arg2049z00_2100); }  else 
{ 
 obj_t BgL_auxz00_11144;
BgL_auxz00_11144 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37440L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3853z00_6705), 
(int)(BgL_arg2048z00_2099)); 
FAILURE(BgL_auxz00_11144,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 929 */
 long BgL_arg2051z00_2102; unsigned char BgL_arg2052z00_2103;
BgL_arg2051z00_2102 = 
(BgL_wz00_1781+2L); 
{ /* Llib/unicode.scm 929 */
 long BgL_i3856z00_6708;
BgL_i3856z00_6708 = 
(BgL_rz00_1780+2L); 
{ /* Llib/unicode.scm 929 */
 long BgL_l3857z00_6709;
BgL_l3857z00_6709 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3856z00_6708, BgL_l3857z00_6709))
{ /* Llib/unicode.scm 929 */
BgL_arg2052z00_2103 = 
STRING_REF(BgL_strz00_6271, BgL_i3856z00_6708); }  else 
{ 
 obj_t BgL_auxz00_11156;
BgL_auxz00_11156 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37532L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3857z00_6709), 
(int)(BgL_i3856z00_6708)); 
FAILURE(BgL_auxz00_11156,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 929 */
 long BgL_l3861z00_6713;
BgL_l3861z00_6713 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg2051z00_2102, BgL_l3861z00_6713))
{ /* Llib/unicode.scm 929 */
STRING_SET(BgL_resz00_6272, BgL_arg2051z00_2102, BgL_arg2052z00_2103); }  else 
{ 
 obj_t BgL_auxz00_11166;
BgL_auxz00_11166 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37505L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3861z00_6713), 
(int)(BgL_arg2051z00_2102)); 
FAILURE(BgL_auxz00_11166,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 930 */
 long BgL_arg2054z00_2105; unsigned char BgL_arg2055z00_2106;
BgL_arg2054z00_2105 = 
(BgL_wz00_1781+3L); 
{ /* Llib/unicode.scm 930 */
 long BgL_i3864z00_6716;
BgL_i3864z00_6716 = 
(BgL_rz00_1780+3L); 
{ /* Llib/unicode.scm 930 */
 long BgL_l3865z00_6717;
BgL_l3865z00_6717 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3864z00_6716, BgL_l3865z00_6717))
{ /* Llib/unicode.scm 930 */
BgL_arg2055z00_2106 = 
STRING_REF(BgL_strz00_6271, BgL_i3864z00_6716); }  else 
{ 
 obj_t BgL_auxz00_11178;
BgL_auxz00_11178 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37597L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3865z00_6717), 
(int)(BgL_i3864z00_6716)); 
FAILURE(BgL_auxz00_11178,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 930 */
 long BgL_l3869z00_6721;
BgL_l3869z00_6721 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg2054z00_2105, BgL_l3869z00_6721))
{ /* Llib/unicode.scm 930 */
STRING_SET(BgL_resz00_6272, BgL_arg2054z00_2105, BgL_arg2055z00_2106); }  else 
{ 
 obj_t BgL_auxz00_11188;
BgL_auxz00_11188 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37570L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3869z00_6721), 
(int)(BgL_arg2054z00_2105)); 
FAILURE(BgL_auxz00_11188,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 931 */
 long BgL_arg2058z00_2108; unsigned char BgL_arg2059z00_2109;
BgL_arg2058z00_2108 = 
(BgL_wz00_1781+4L); 
{ /* Llib/unicode.scm 931 */
 long BgL_i3872z00_6724;
BgL_i3872z00_6724 = 
(BgL_rz00_1780+4L); 
{ /* Llib/unicode.scm 931 */
 long BgL_l3873z00_6725;
BgL_l3873z00_6725 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3872z00_6724, BgL_l3873z00_6725))
{ /* Llib/unicode.scm 931 */
BgL_arg2059z00_2109 = 
STRING_REF(BgL_strz00_6271, BgL_i3872z00_6724); }  else 
{ 
 obj_t BgL_auxz00_11200;
BgL_auxz00_11200 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37662L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3873z00_6725), 
(int)(BgL_i3872z00_6724)); 
FAILURE(BgL_auxz00_11200,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 931 */
 long BgL_l3877z00_6729;
BgL_l3877z00_6729 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg2058z00_2108, BgL_l3877z00_6729))
{ /* Llib/unicode.scm 931 */
STRING_SET(BgL_resz00_6272, BgL_arg2058z00_2108, BgL_arg2059z00_2109); }  else 
{ 
 obj_t BgL_auxz00_11210;
BgL_auxz00_11210 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37635L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3877z00_6729), 
(int)(BgL_arg2058z00_2108)); 
FAILURE(BgL_auxz00_11210,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 932 */
 long BgL_arg2061z00_2111; unsigned char BgL_arg2062z00_2112;
BgL_arg2061z00_2111 = 
(BgL_wz00_1781+5L); 
{ /* Llib/unicode.scm 932 */
 long BgL_i3880z00_6732;
BgL_i3880z00_6732 = 
(BgL_rz00_1780+5L); 
{ /* Llib/unicode.scm 932 */
 long BgL_l3881z00_6733;
BgL_l3881z00_6733 = 
STRING_LENGTH(BgL_strz00_6271); 
if(
BOUND_CHECK(BgL_i3880z00_6732, BgL_l3881z00_6733))
{ /* Llib/unicode.scm 932 */
BgL_arg2062z00_2112 = 
STRING_REF(BgL_strz00_6271, BgL_i3880z00_6732); }  else 
{ 
 obj_t BgL_auxz00_11222;
BgL_auxz00_11222 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37727L), BGl_string5022z00zz__unicodez00, BgL_strz00_6271, 
(int)(BgL_l3881z00_6733), 
(int)(BgL_i3880z00_6732)); 
FAILURE(BgL_auxz00_11222,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 932 */
 long BgL_l3885z00_6737;
BgL_l3885z00_6737 = 
STRING_LENGTH(BgL_resz00_6272); 
if(
BOUND_CHECK(BgL_arg2061z00_2111, BgL_l3885z00_6737))
{ /* Llib/unicode.scm 932 */
STRING_SET(BgL_resz00_6272, BgL_arg2061z00_2111, BgL_arg2062z00_2112); }  else 
{ 
 obj_t BgL_auxz00_11232;
BgL_auxz00_11232 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(37700L), BGl_string5041z00zz__unicodez00, BgL_resz00_6272, 
(int)(BgL_l3885z00_6737), 
(int)(BgL_arg2061z00_2111)); 
FAILURE(BgL_auxz00_11232,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_11240; long BgL_rz00_11238;
BgL_rz00_11238 = 
(BgL_rz00_1780+6L); 
BgL_wz00_11240 = 
(BgL_wz00_1781+6L); 
BgL_wz00_1781 = BgL_wz00_11240; 
BgL_rz00_1780 = BgL_rz00_11238; 
goto BGl_loopze70ze7zz__unicodez00;} }  else 
{ /* Llib/unicode.scm 920 */
BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(BgL_resz00_6272, BgL_wz00_1781); 
{ 
 long BgL_wz00_11245; long BgL_rz00_11243;
BgL_rz00_11243 = 
(BgL_rz00_1780+1L); 
BgL_wz00_11245 = 
(BgL_wz00_1781+3L); 
BgL_wz00_1781 = BgL_wz00_11245; 
BgL_rz00_1780 = BgL_rz00_11243; 
goto BGl_loopze70ze7zz__unicodez00;} } }  else 
{ /* Llib/unicode.scm 919 */
return BFALSE;} } } } } } } } } } } } } } } 

}



/* string-unicode-fix!~1 */
obj_t BGl_stringzd2unicodezd2fixz12ze71zf5zz__unicodez00(obj_t BgL_sz00_2151, long BgL_jz00_2152)
{
{ /* Llib/unicode.scm 782 */
{ /* Llib/unicode.scm 782 */
 long BgL_l3889z00_6741;
BgL_l3889z00_6741 = 
STRING_LENGTH(BgL_sz00_2151); 
if(
BOUND_CHECK(BgL_jz00_2152, BgL_l3889z00_6741))
{ /* Llib/unicode.scm 782 */
STRING_SET(BgL_sz00_2151, BgL_jz00_2152, ((unsigned char)239)); }  else 
{ 
 obj_t BgL_auxz00_11251;
BgL_auxz00_11251 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31874L), BGl_string5041z00zz__unicodez00, BgL_sz00_2151, 
(int)(BgL_l3889z00_6741), 
(int)(BgL_jz00_2152)); 
FAILURE(BgL_auxz00_11251,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 783 */
 long BgL_arg2084z00_2154;
BgL_arg2084z00_2154 = 
(BgL_jz00_2152+1L); 
{ /* Llib/unicode.scm 783 */
 long BgL_l3893z00_6745;
BgL_l3893z00_6745 = 
STRING_LENGTH(BgL_sz00_2151); 
if(
BOUND_CHECK(BgL_arg2084z00_2154, BgL_l3893z00_6745))
{ /* Llib/unicode.scm 783 */
STRING_SET(BgL_sz00_2151, BgL_arg2084z00_2154, ((unsigned char)191)); }  else 
{ 
 obj_t BgL_auxz00_11262;
BgL_auxz00_11262 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31904L), BGl_string5041z00zz__unicodez00, BgL_sz00_2151, 
(int)(BgL_l3893z00_6745), 
(int)(BgL_arg2084z00_2154)); 
FAILURE(BgL_auxz00_11262,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 784 */
 long BgL_arg2085z00_2155;
BgL_arg2085z00_2155 = 
(BgL_jz00_2152+2L); 
{ /* Llib/unicode.scm 784 */
 long BgL_l3897z00_6749;
BgL_l3897z00_6749 = 
STRING_LENGTH(BgL_sz00_2151); 
if(
BOUND_CHECK(BgL_arg2085z00_2155, BgL_l3897z00_6749))
{ /* Llib/unicode.scm 784 */
return 
STRING_SET(BgL_sz00_2151, BgL_arg2085z00_2155, ((unsigned char)189));}  else 
{ 
 obj_t BgL_auxz00_11273;
BgL_auxz00_11273 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(31942L), BGl_string5041z00zz__unicodez00, BgL_sz00_2151, 
(int)(BgL_l3897z00_6749), 
(int)(BgL_arg2085z00_2155)); 
FAILURE(BgL_auxz00_11273,BFALSE,BFALSE);} } } } 

}



/* _utf8-normalize-utf16 */
obj_t BGl__utf8zd2normaliza7ezd2utf16za7zz__unicodez00(obj_t BgL_env1138z00_83, obj_t BgL_opt1137z00_82)
{
{ /* Llib/unicode.scm 947 */
{ /* Llib/unicode.scm 947 */
 obj_t BgL_strz00_2158;
{ 
 obj_t BgL_auxz00_11279;
if(
VECTORP(BgL_opt1137z00_82))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11279 = BgL_opt1137z00_82
; }  else 
{ 
 obj_t BgL_auxz00_11282;
BgL_auxz00_11282 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1137z00_82); 
FAILURE(BgL_auxz00_11282,BFALSE,BFALSE);} 
BgL_strz00_2158 = 
VECTOR_REF(BgL_auxz00_11279,0L); } 
{ 

{ /* Llib/unicode.scm 947 */
 long BgL_aux1140z00_2160;
{ 
 obj_t BgL_auxz00_11287;
if(
VECTORP(BgL_opt1137z00_82))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11287 = BgL_opt1137z00_82
; }  else 
{ 
 obj_t BgL_auxz00_11290;
BgL_auxz00_11290 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1137z00_82); 
FAILURE(BgL_auxz00_11290,BFALSE,BFALSE);} 
BgL_aux1140z00_2160 = 
VECTOR_LENGTH(BgL_auxz00_11287); } 
switch( BgL_aux1140z00_2160) { case 1L : 

{ /* Llib/unicode.scm 947 */
 long BgL_endz00_2163;
{ /* Llib/unicode.scm 947 */
 obj_t BgL_stringz00_4709;
if(
STRINGP(BgL_strz00_2158))
{ /* Llib/unicode.scm 947 */
BgL_stringz00_4709 = BgL_strz00_2158; }  else 
{ 
 obj_t BgL_auxz00_11297;
BgL_auxz00_11297 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38527L), BGl_string5042z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2158); 
FAILURE(BgL_auxz00_11297,BFALSE,BFALSE);} 
BgL_endz00_2163 = 
STRING_LENGTH(BgL_stringz00_4709); } 
{ /* Llib/unicode.scm 947 */

{ /* Llib/unicode.scm 947 */
 obj_t BgL_auxz00_11302;
if(
STRINGP(BgL_strz00_2158))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11302 = BgL_strz00_2158
; }  else 
{ 
 obj_t BgL_auxz00_11305;
BgL_auxz00_11305 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2158); 
FAILURE(BgL_auxz00_11305,BFALSE,BFALSE);} 
return 
BGl_utf8zd2normaliza7ezd2utf16za7zz__unicodez00(BgL_auxz00_11302, ((bool_t)0), 0L, BgL_endz00_2163);} } } break;case 2L : 

{ /* Llib/unicode.scm 947 */
 obj_t BgL_strictz00_2164;
{ 
 obj_t BgL_auxz00_11310;
if(
VECTORP(BgL_opt1137z00_82))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11310 = BgL_opt1137z00_82
; }  else 
{ 
 obj_t BgL_auxz00_11313;
BgL_auxz00_11313 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1137z00_82); 
FAILURE(BgL_auxz00_11313,BFALSE,BFALSE);} 
BgL_strictz00_2164 = 
VECTOR_REF(BgL_auxz00_11310,1L); } 
{ /* Llib/unicode.scm 947 */
 long BgL_endz00_2166;
{ /* Llib/unicode.scm 947 */
 obj_t BgL_stringz00_4710;
if(
STRINGP(BgL_strz00_2158))
{ /* Llib/unicode.scm 947 */
BgL_stringz00_4710 = BgL_strz00_2158; }  else 
{ 
 obj_t BgL_auxz00_11320;
BgL_auxz00_11320 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38527L), BGl_string5042z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2158); 
FAILURE(BgL_auxz00_11320,BFALSE,BFALSE);} 
BgL_endz00_2166 = 
STRING_LENGTH(BgL_stringz00_4710); } 
{ /* Llib/unicode.scm 947 */

{ /* Llib/unicode.scm 947 */
 obj_t BgL_auxz00_11325;
if(
STRINGP(BgL_strz00_2158))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11325 = BgL_strz00_2158
; }  else 
{ 
 obj_t BgL_auxz00_11328;
BgL_auxz00_11328 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2158); 
FAILURE(BgL_auxz00_11328,BFALSE,BFALSE);} 
return 
BGl_utf8zd2normaliza7ezd2utf16za7zz__unicodez00(BgL_auxz00_11325, 
CBOOL(BgL_strictz00_2164), 0L, BgL_endz00_2166);} } } } break;case 3L : 

{ /* Llib/unicode.scm 947 */
 obj_t BgL_strictz00_2167;
{ 
 obj_t BgL_auxz00_11334;
if(
VECTORP(BgL_opt1137z00_82))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11334 = BgL_opt1137z00_82
; }  else 
{ 
 obj_t BgL_auxz00_11337;
BgL_auxz00_11337 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1137z00_82); 
FAILURE(BgL_auxz00_11337,BFALSE,BFALSE);} 
BgL_strictz00_2167 = 
VECTOR_REF(BgL_auxz00_11334,1L); } 
{ /* Llib/unicode.scm 947 */
 obj_t BgL_startz00_2168;
{ 
 obj_t BgL_auxz00_11342;
if(
VECTORP(BgL_opt1137z00_82))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11342 = BgL_opt1137z00_82
; }  else 
{ 
 obj_t BgL_auxz00_11345;
BgL_auxz00_11345 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1137z00_82); 
FAILURE(BgL_auxz00_11345,BFALSE,BFALSE);} 
BgL_startz00_2168 = 
VECTOR_REF(BgL_auxz00_11342,2L); } 
{ /* Llib/unicode.scm 947 */
 long BgL_endz00_2169;
{ /* Llib/unicode.scm 947 */
 obj_t BgL_stringz00_4711;
if(
STRINGP(BgL_strz00_2158))
{ /* Llib/unicode.scm 947 */
BgL_stringz00_4711 = BgL_strz00_2158; }  else 
{ 
 obj_t BgL_auxz00_11352;
BgL_auxz00_11352 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38527L), BGl_string5042z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2158); 
FAILURE(BgL_auxz00_11352,BFALSE,BFALSE);} 
BgL_endz00_2169 = 
STRING_LENGTH(BgL_stringz00_4711); } 
{ /* Llib/unicode.scm 947 */

{ /* Llib/unicode.scm 947 */
 long BgL_auxz00_11364; obj_t BgL_auxz00_11357;
{ /* Llib/unicode.scm 947 */
 obj_t BgL_tmpz00_11366;
if(
INTEGERP(BgL_startz00_2168))
{ /* Llib/unicode.scm 947 */
BgL_tmpz00_11366 = BgL_startz00_2168
; }  else 
{ 
 obj_t BgL_auxz00_11369;
BgL_auxz00_11369 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_startz00_2168); 
FAILURE(BgL_auxz00_11369,BFALSE,BFALSE);} 
BgL_auxz00_11364 = 
(long)CINT(BgL_tmpz00_11366); } 
if(
STRINGP(BgL_strz00_2158))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11357 = BgL_strz00_2158
; }  else 
{ 
 obj_t BgL_auxz00_11360;
BgL_auxz00_11360 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2158); 
FAILURE(BgL_auxz00_11360,BFALSE,BFALSE);} 
return 
BGl_utf8zd2normaliza7ezd2utf16za7zz__unicodez00(BgL_auxz00_11357, 
CBOOL(BgL_strictz00_2167), BgL_auxz00_11364, BgL_endz00_2169);} } } } } break;case 4L : 

{ /* Llib/unicode.scm 947 */
 obj_t BgL_strictz00_2170;
{ 
 obj_t BgL_auxz00_11375;
if(
VECTORP(BgL_opt1137z00_82))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11375 = BgL_opt1137z00_82
; }  else 
{ 
 obj_t BgL_auxz00_11378;
BgL_auxz00_11378 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1137z00_82); 
FAILURE(BgL_auxz00_11378,BFALSE,BFALSE);} 
BgL_strictz00_2170 = 
VECTOR_REF(BgL_auxz00_11375,1L); } 
{ /* Llib/unicode.scm 947 */
 obj_t BgL_startz00_2171;
{ 
 obj_t BgL_auxz00_11383;
if(
VECTORP(BgL_opt1137z00_82))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11383 = BgL_opt1137z00_82
; }  else 
{ 
 obj_t BgL_auxz00_11386;
BgL_auxz00_11386 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1137z00_82); 
FAILURE(BgL_auxz00_11386,BFALSE,BFALSE);} 
BgL_startz00_2171 = 
VECTOR_REF(BgL_auxz00_11383,2L); } 
{ /* Llib/unicode.scm 947 */
 obj_t BgL_endz00_2172;
{ 
 obj_t BgL_auxz00_11391;
if(
VECTORP(BgL_opt1137z00_82))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11391 = BgL_opt1137z00_82
; }  else 
{ 
 obj_t BgL_auxz00_11394;
BgL_auxz00_11394 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1137z00_82); 
FAILURE(BgL_auxz00_11394,BFALSE,BFALSE);} 
BgL_endz00_2172 = 
VECTOR_REF(BgL_auxz00_11391,3L); } 
{ /* Llib/unicode.scm 947 */

{ /* Llib/unicode.scm 947 */
 long BgL_auxz00_11416; long BgL_auxz00_11406; obj_t BgL_auxz00_11399;
{ /* Llib/unicode.scm 947 */
 obj_t BgL_tmpz00_11417;
if(
INTEGERP(BgL_endz00_2172))
{ /* Llib/unicode.scm 947 */
BgL_tmpz00_11417 = BgL_endz00_2172
; }  else 
{ 
 obj_t BgL_auxz00_11420;
BgL_auxz00_11420 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_endz00_2172); 
FAILURE(BgL_auxz00_11420,BFALSE,BFALSE);} 
BgL_auxz00_11416 = 
(long)CINT(BgL_tmpz00_11417); } 
{ /* Llib/unicode.scm 947 */
 obj_t BgL_tmpz00_11408;
if(
INTEGERP(BgL_startz00_2171))
{ /* Llib/unicode.scm 947 */
BgL_tmpz00_11408 = BgL_startz00_2171
; }  else 
{ 
 obj_t BgL_auxz00_11411;
BgL_auxz00_11411 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_startz00_2171); 
FAILURE(BgL_auxz00_11411,BFALSE,BFALSE);} 
BgL_auxz00_11406 = 
(long)CINT(BgL_tmpz00_11408); } 
if(
STRINGP(BgL_strz00_2158))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11399 = BgL_strz00_2158
; }  else 
{ 
 obj_t BgL_auxz00_11402;
BgL_auxz00_11402 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5042z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2158); 
FAILURE(BgL_auxz00_11402,BFALSE,BFALSE);} 
return 
BGl_utf8zd2normaliza7ezd2utf16za7zz__unicodez00(BgL_auxz00_11399, 
CBOOL(BgL_strictz00_2170), BgL_auxz00_11406, BgL_auxz00_11416);} } } } } break;
default: 
{ /* Llib/unicode.scm 947 */
 long BgL_arg2086z00_2173;
{ 
 obj_t BgL_auxz00_11426;
if(
VECTORP(BgL_opt1137z00_82))
{ /* Llib/unicode.scm 947 */
BgL_auxz00_11426 = BgL_opt1137z00_82
; }  else 
{ 
 obj_t BgL_auxz00_11429;
BgL_auxz00_11429 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38433L), BGl_string5043z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1137z00_82); 
FAILURE(BgL_auxz00_11429,BFALSE,BFALSE);} 
BgL_arg2086z00_2173 = 
VECTOR_LENGTH(BgL_auxz00_11426); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol5044z00zz__unicodez00, BGl_string5039z00zz__unicodez00, 
BINT(BgL_arg2086z00_2173));} } } } } } 

}



/* utf8-normalize-utf16 */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2normaliza7ezd2utf16za7zz__unicodez00(obj_t BgL_strz00_78, bool_t BgL_strictz00_79, long BgL_startz00_80, long BgL_endz00_81)
{
{ /* Llib/unicode.scm 947 */
{ /* Llib/unicode.scm 960 */
 bool_t BgL_test5803z00_11437;
if(
(BgL_endz00_81>
STRING_LENGTH(BgL_strz00_78)))
{ /* Llib/unicode.scm 960 */
BgL_test5803z00_11437 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 960 */
if(
(BgL_startz00_80<0L))
{ /* Llib/unicode.scm 961 */
BgL_test5803z00_11437 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 961 */
BgL_test5803z00_11437 = 
(BgL_startz00_80>BgL_endz00_81)
; } } 
if(BgL_test5803z00_11437)
{ /* Llib/unicode.scm 963 */
 obj_t BgL_arg2092z00_2181;
BgL_arg2092z00_2181 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_80), 
BINT(BgL_endz00_81)); 
{ /* Llib/unicode.scm 963 */
 obj_t BgL_aux4717z00_7569;
BgL_aux4717z00_7569 = 
BGl_errorz00zz__errorz00(BGl_string5045z00zz__unicodez00, BGl_string5040z00zz__unicodez00, BgL_arg2092z00_2181); 
if(
STRINGP(BgL_aux4717z00_7569))
{ /* Llib/unicode.scm 963 */
return BgL_aux4717z00_7569;}  else 
{ 
 obj_t BgL_auxz00_11450;
BgL_auxz00_11450 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38957L), BGl_string5045z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4717z00_7569); 
FAILURE(BgL_auxz00_11450,BFALSE,BFALSE);} } }  else 
{ /* Llib/unicode.scm 965 */
 long BgL_lenz00_2182;
BgL_lenz00_2182 = 
(BgL_endz00_81-BgL_startz00_80); 
{ /* Llib/unicode.scm 965 */
 obj_t BgL_resz00_2183;
{ /* Llib/unicode.scm 966 */
 long BgL_arg2575z00_2650;
BgL_arg2575z00_2650 = 
(3L*BgL_lenz00_2182); 
{ /* Ieee/string.scm 172 */

BgL_resz00_2183 = 
make_string(BgL_arg2575z00_2650, ((unsigned char)' ')); } } 
{ /* Llib/unicode.scm 966 */

{ 
 long BgL_rz00_2185; long BgL_wz00_2186; bool_t BgL_asciiz00_2187;
BgL_rz00_2185 = BgL_startz00_80; 
BgL_wz00_2186 = 0L; 
BgL_asciiz00_2187 = ((bool_t)1); 
BgL_zc3z04anonymousza32093ze3z87_2188:
if(
(BgL_rz00_2185==BgL_endz00_81))
{ /* Llib/unicode.scm 971 */
 obj_t BgL_val0_1102z00_2190; obj_t BgL_val1_1103z00_2191;
BgL_val0_1102z00_2190 = 
bgl_string_shrink(BgL_resz00_2183, BgL_wz00_2186); 
if(BgL_asciiz00_2187)
{ /* Llib/unicode.scm 971 */
BgL_val1_1103z00_2191 = BGl_symbol5028z00zz__unicodez00; }  else 
{ /* Llib/unicode.scm 971 */
BgL_val1_1103z00_2191 = BGl_symbol5046z00zz__unicodez00; } 
{ /* Llib/unicode.scm 971 */
 int BgL_tmpz00_11461;
BgL_tmpz00_11461 = 
(int)(2L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_11461); } 
{ /* Llib/unicode.scm 971 */
 int BgL_tmpz00_11464;
BgL_tmpz00_11464 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_11464, BgL_val1_1103z00_2191); } 
return BgL_val0_1102z00_2190;}  else 
{ /* Llib/unicode.scm 972 */
 unsigned char BgL_cz00_2192;
{ /* Llib/unicode.scm 972 */
 long BgL_l3901z00_6753;
BgL_l3901z00_6753 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_rz00_2185, BgL_l3901z00_6753))
{ /* Llib/unicode.scm 972 */
BgL_cz00_2192 = 
STRING_REF(BgL_strz00_78, BgL_rz00_2185); }  else 
{ 
 obj_t BgL_auxz00_11471;
BgL_auxz00_11471 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(39262L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3901z00_6753), 
(int)(BgL_rz00_2185)); 
FAILURE(BgL_auxz00_11471,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 972 */
 long BgL_nz00_2193;
BgL_nz00_2193 = 
(BgL_cz00_2192); 
{ /* Llib/unicode.scm 973 */

if(
(BgL_nz00_2193<=127L))
{ /* Llib/unicode.scm 975 */
{ /* Llib/unicode.scm 977 */
 long BgL_l3905z00_6757;
BgL_l3905z00_6757 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l3905z00_6757))
{ /* Llib/unicode.scm 977 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, BgL_cz00_2192); }  else 
{ 
 obj_t BgL_auxz00_11484;
BgL_auxz00_11484 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(39360L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3905z00_6757), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_11484,BFALSE,BFALSE);} } 
{ 
 long BgL_wz00_11492; long BgL_rz00_11490;
BgL_rz00_11490 = 
(BgL_rz00_2185+1L); 
BgL_wz00_11492 = 
(BgL_wz00_2186+1L); 
BgL_wz00_2186 = BgL_wz00_11492; 
BgL_rz00_2185 = BgL_rz00_11490; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ /* Llib/unicode.scm 975 */
if(
(BgL_nz00_2193<194L))
{ /* Llib/unicode.scm 979 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_11501; long BgL_wz00_11499; long BgL_rz00_11497;
BgL_rz00_11497 = 
(BgL_rz00_2185+1L); 
BgL_wz00_11499 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_11501 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_11501; 
BgL_wz00_2186 = BgL_wz00_11499; 
BgL_rz00_2185 = BgL_rz00_11497; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ /* Llib/unicode.scm 979 */
if(
(BgL_nz00_2193<216L))
{ /* Llib/unicode.scm 985 */
 bool_t BgL_test5814z00_11504;
if(
(
(1L+BgL_rz00_2185)<BgL_endz00_81))
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_4763;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_11508;
{ /* Llib/unicode.scm 986 */
 long BgL_i3908z00_6760;
BgL_i3908z00_6760 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 986 */
 long BgL_l3909z00_6761;
BgL_l3909z00_6761 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i3908z00_6760, BgL_l3909z00_6761))
{ /* Llib/unicode.scm 986 */
BgL_tmpz00_11508 = 
STRING_REF(BgL_strz00_78, BgL_i3908z00_6760)
; }  else 
{ 
 obj_t BgL_auxz00_11514;
BgL_auxz00_11514 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(39625L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3909z00_6761), 
(int)(BgL_i3908z00_6760)); 
FAILURE(BgL_auxz00_11514,BFALSE,BFALSE);} } } 
BgL_nz00_4763 = 
(BgL_tmpz00_11508); } 
if(
(BgL_nz00_4763>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5814z00_11504 = 
(BgL_nz00_4763<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5814z00_11504 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 985 */
BgL_test5814z00_11504 = ((bool_t)0)
; } 
if(BgL_test5814z00_11504)
{ /* Llib/unicode.scm 985 */
{ /* Llib/unicode.scm 988 */
 long BgL_l3913z00_6765;
BgL_l3913z00_6765 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l3913z00_6765))
{ /* Llib/unicode.scm 988 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, BgL_cz00_2192); }  else 
{ 
 obj_t BgL_auxz00_11528;
BgL_auxz00_11528 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(39688L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3913z00_6765), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_11528,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 989 */
 long BgL_arg2109z00_2207; unsigned char BgL_arg2110z00_2208;
BgL_arg2109z00_2207 = 
(BgL_wz00_2186+1L); 
{ /* Llib/unicode.scm 989 */
 long BgL_i3916z00_6768;
BgL_i3916z00_6768 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 989 */
 long BgL_l3917z00_6769;
BgL_l3917z00_6769 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i3916z00_6768, BgL_l3917z00_6769))
{ /* Llib/unicode.scm 989 */
BgL_arg2110z00_2208 = 
STRING_REF(BgL_strz00_78, BgL_i3916z00_6768); }  else 
{ 
 obj_t BgL_auxz00_11540;
BgL_auxz00_11540 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(39747L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3917z00_6769), 
(int)(BgL_i3916z00_6768)); 
FAILURE(BgL_auxz00_11540,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 989 */
 long BgL_l3921z00_6773;
BgL_l3921z00_6773 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2109z00_2207, BgL_l3921z00_6773))
{ /* Llib/unicode.scm 989 */
STRING_SET(BgL_resz00_2183, BgL_arg2109z00_2207, BgL_arg2110z00_2208); }  else 
{ 
 obj_t BgL_auxz00_11550;
BgL_auxz00_11550 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(39720L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3921z00_6773), 
(int)(BgL_arg2109z00_2207)); 
FAILURE(BgL_auxz00_11550,BFALSE,BFALSE);} } } 
{ 
 bool_t BgL_asciiz00_11560; long BgL_wz00_11558; long BgL_rz00_11556;
BgL_rz00_11556 = 
(BgL_rz00_2185+2L); 
BgL_wz00_11558 = 
(BgL_wz00_2186+2L); 
BgL_asciiz00_11560 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_11560; 
BgL_wz00_2186 = BgL_wz00_11558; 
BgL_rz00_2185 = BgL_rz00_11556; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ /* Llib/unicode.scm 985 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_11566; long BgL_wz00_11564; long BgL_rz00_11562;
BgL_rz00_11562 = 
(BgL_rz00_2185+1L); 
BgL_wz00_11564 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_11566 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_11566; 
BgL_wz00_2186 = BgL_wz00_11564; 
BgL_rz00_2185 = BgL_rz00_11562; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } }  else 
{ /* Llib/unicode.scm 983 */
if(
(BgL_nz00_2193<=223L))
{ /* Llib/unicode.scm 995 */
 bool_t BgL_test5822z00_11569;
if(
(
(1L+BgL_rz00_2185)<BgL_endz00_81))
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_4789;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_11573;
{ /* Llib/unicode.scm 996 */
 long BgL_i3924z00_6776;
BgL_i3924z00_6776 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 996 */
 long BgL_l3925z00_6777;
BgL_l3925z00_6777 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i3924z00_6776, BgL_l3925z00_6777))
{ /* Llib/unicode.scm 996 */
BgL_tmpz00_11573 = 
STRING_REF(BgL_strz00_78, BgL_i3924z00_6776)
; }  else 
{ 
 obj_t BgL_auxz00_11579;
BgL_auxz00_11579 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(39983L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3925z00_6777), 
(int)(BgL_i3924z00_6776)); 
FAILURE(BgL_auxz00_11579,BFALSE,BFALSE);} } } 
BgL_nz00_4789 = 
(BgL_tmpz00_11573); } 
if(
(BgL_nz00_4789>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5822z00_11569 = 
(BgL_nz00_4789<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5822z00_11569 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 995 */
BgL_test5822z00_11569 = ((bool_t)0)
; } 
if(BgL_test5822z00_11569)
{ /* Llib/unicode.scm 995 */
{ /* Llib/unicode.scm 998 */
 long BgL_l3929z00_6781;
BgL_l3929z00_6781 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l3929z00_6781))
{ /* Llib/unicode.scm 998 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, BgL_cz00_2192); }  else 
{ 
 obj_t BgL_auxz00_11593;
BgL_auxz00_11593 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(40046L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3929z00_6781), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_11593,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 999 */
 long BgL_arg2126z00_2225; unsigned char BgL_arg2127z00_2226;
BgL_arg2126z00_2225 = 
(BgL_wz00_2186+1L); 
{ /* Llib/unicode.scm 999 */
 long BgL_i3932z00_6784;
BgL_i3932z00_6784 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 999 */
 long BgL_l3933z00_6785;
BgL_l3933z00_6785 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i3932z00_6784, BgL_l3933z00_6785))
{ /* Llib/unicode.scm 999 */
BgL_arg2127z00_2226 = 
STRING_REF(BgL_strz00_78, BgL_i3932z00_6784); }  else 
{ 
 obj_t BgL_auxz00_11605;
BgL_auxz00_11605 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(40105L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3933z00_6785), 
(int)(BgL_i3932z00_6784)); 
FAILURE(BgL_auxz00_11605,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 999 */
 long BgL_l3937z00_6789;
BgL_l3937z00_6789 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2126z00_2225, BgL_l3937z00_6789))
{ /* Llib/unicode.scm 999 */
STRING_SET(BgL_resz00_2183, BgL_arg2126z00_2225, BgL_arg2127z00_2226); }  else 
{ 
 obj_t BgL_auxz00_11615;
BgL_auxz00_11615 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(40078L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3937z00_6789), 
(int)(BgL_arg2126z00_2225)); 
FAILURE(BgL_auxz00_11615,BFALSE,BFALSE);} } } 
{ 
 bool_t BgL_asciiz00_11625; long BgL_wz00_11623; long BgL_rz00_11621;
BgL_rz00_11621 = 
(BgL_rz00_2185+2L); 
BgL_wz00_11623 = 
(BgL_wz00_2186+2L); 
BgL_asciiz00_11625 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_11625; 
BgL_wz00_2186 = BgL_wz00_11623; 
BgL_rz00_2185 = BgL_rz00_11621; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ /* Llib/unicode.scm 995 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_11631; long BgL_wz00_11629; long BgL_rz00_11627;
BgL_rz00_11627 = 
(BgL_rz00_2185+1L); 
BgL_wz00_11629 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_11631 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_11631; 
BgL_wz00_2186 = BgL_wz00_11629; 
BgL_rz00_2185 = BgL_rz00_11627; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } }  else 
{ /* Llib/unicode.scm 994 */
if(
(BgL_nz00_2193==237L))
{ /* Llib/unicode.scm 1007 */
 bool_t BgL_test5830z00_11634;
if(
(BgL_rz00_2185<
(BgL_endz00_81-2L)))
{ /* Llib/unicode.scm 1008 */
 bool_t BgL_test5832z00_11638;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_4815;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_11639;
{ /* Llib/unicode.scm 1008 */
 long BgL_i3940z00_6792;
BgL_i3940z00_6792 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1008 */
 long BgL_l3941z00_6793;
BgL_l3941z00_6793 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i3940z00_6792, BgL_l3941z00_6793))
{ /* Llib/unicode.scm 1008 */
BgL_tmpz00_11639 = 
STRING_REF(BgL_strz00_78, BgL_i3940z00_6792)
; }  else 
{ 
 obj_t BgL_auxz00_11645;
BgL_auxz00_11645 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(40423L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3941z00_6793), 
(int)(BgL_i3940z00_6792)); 
FAILURE(BgL_auxz00_11645,BFALSE,BFALSE);} } } 
BgL_nz00_4815 = 
(BgL_tmpz00_11639); } 
if(
(BgL_nz00_4815>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5832z00_11638 = 
(BgL_nz00_4815<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5832z00_11638 = ((bool_t)0)
; } } 
if(BgL_test5832z00_11638)
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_4823;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_11655;
{ /* Llib/unicode.scm 1009 */
 long BgL_i3944z00_6796;
BgL_i3944z00_6796 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1009 */
 long BgL_l3945z00_6797;
BgL_l3945z00_6797 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i3944z00_6796, BgL_l3945z00_6797))
{ /* Llib/unicode.scm 1009 */
BgL_tmpz00_11655 = 
STRING_REF(BgL_strz00_78, BgL_i3944z00_6796)
; }  else 
{ 
 obj_t BgL_auxz00_11661;
BgL_auxz00_11661 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(40477L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3945z00_6797), 
(int)(BgL_i3944z00_6796)); 
FAILURE(BgL_auxz00_11661,BFALSE,BFALSE);} } } 
BgL_nz00_4823 = 
(BgL_tmpz00_11655); } 
if(
(BgL_nz00_4823>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5830z00_11634 = 
(BgL_nz00_4823<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5830z00_11634 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1008 */
BgL_test5830z00_11634 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1007 */
BgL_test5830z00_11634 = ((bool_t)0)
; } 
if(BgL_test5830z00_11634)
{ /* Llib/unicode.scm 1015 */
 long BgL_n1z00_2248;
{ /* Llib/unicode.scm 1015 */
 unsigned char BgL_tmpz00_11671;
{ /* Llib/unicode.scm 1015 */
 long BgL_i3948z00_6800;
BgL_i3948z00_6800 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1015 */
 long BgL_l3949z00_6801;
BgL_l3949z00_6801 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i3948z00_6800, BgL_l3949z00_6801))
{ /* Llib/unicode.scm 1015 */
BgL_tmpz00_11671 = 
STRING_REF(BgL_strz00_78, BgL_i3948z00_6800)
; }  else 
{ 
 obj_t BgL_auxz00_11677;
BgL_auxz00_11677 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(40830L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3949z00_6801), 
(int)(BgL_i3948z00_6800)); 
FAILURE(BgL_auxz00_11677,BFALSE,BFALSE);} } } 
BgL_n1z00_2248 = 
(BgL_tmpz00_11671); } 
{ /* Llib/unicode.scm 1015 */
 long BgL_n2z00_2249;
{ /* Llib/unicode.scm 1016 */
 unsigned char BgL_tmpz00_11684;
{ /* Llib/unicode.scm 1016 */
 long BgL_i3952z00_6804;
BgL_i3952z00_6804 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1016 */
 long BgL_l3953z00_6805;
BgL_l3953z00_6805 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i3952z00_6804, BgL_l3953z00_6805))
{ /* Llib/unicode.scm 1016 */
BgL_tmpz00_11684 = 
STRING_REF(BgL_strz00_78, BgL_i3952z00_6804)
; }  else 
{ 
 obj_t BgL_auxz00_11690;
BgL_auxz00_11690 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(40885L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3953z00_6805), 
(int)(BgL_i3952z00_6804)); 
FAILURE(BgL_auxz00_11690,BFALSE,BFALSE);} } } 
BgL_n2z00_2249 = 
(BgL_tmpz00_11684); } 
{ /* Llib/unicode.scm 1016 */
 long BgL_ucs2z00_2250;
BgL_ucs2z00_2250 = 
(
(
(BgL_nz00_2193 & 15L) << 
(int)(12L))+
(
(
(BgL_n1z00_2248 & 63L) << 
(int)(6L))+
(BgL_n2z00_2249 & 63L))); 
{ /* Llib/unicode.scm 1017 */

if(
(BgL_ucs2z00_2250>57343L))
{ /* Llib/unicode.scm 1021 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_11713; long BgL_wz00_11711; long BgL_rz00_11709;
BgL_rz00_11709 = 
(BgL_rz00_2185+1L); 
BgL_wz00_11711 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_11713 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_11713; 
BgL_wz00_2186 = BgL_wz00_11711; 
BgL_rz00_2185 = BgL_rz00_11709; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ /* Llib/unicode.scm 1024 */
 bool_t BgL_test5840z00_11714;
if(
(BgL_rz00_2185<=
(BgL_endz00_81-4L)))
{ /* Llib/unicode.scm 1025 */
 long BgL_tmpz00_11718;
{ /* Llib/unicode.scm 1025 */
 unsigned char BgL_tmpz00_11719;
{ /* Llib/unicode.scm 1025 */
 long BgL_i3956z00_6808;
BgL_i3956z00_6808 = 
(BgL_rz00_2185+3L); 
{ /* Llib/unicode.scm 1025 */
 long BgL_l3957z00_6809;
BgL_l3957z00_6809 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i3956z00_6808, BgL_l3957z00_6809))
{ /* Llib/unicode.scm 1025 */
BgL_tmpz00_11719 = 
STRING_REF(BgL_strz00_78, BgL_i3956z00_6808)
; }  else 
{ 
 obj_t BgL_auxz00_11725;
BgL_auxz00_11725 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(41211L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3957z00_6809), 
(int)(BgL_i3956z00_6808)); 
FAILURE(BgL_auxz00_11725,BFALSE,BFALSE);} } } 
BgL_tmpz00_11718 = 
(BgL_tmpz00_11719); } 
BgL_test5840z00_11714 = 
(BgL_tmpz00_11718==237L); }  else 
{ /* Llib/unicode.scm 1024 */
BgL_test5840z00_11714 = ((bool_t)0)
; } 
if(BgL_test5840z00_11714)
{ /* Llib/unicode.scm 1027 */
 long BgL_m1z00_2262;
{ /* Llib/unicode.scm 1028 */
 unsigned char BgL_tmpz00_11733;
{ /* Llib/unicode.scm 1028 */
 long BgL_i3960z00_6812;
BgL_i3960z00_6812 = 
(BgL_rz00_2185+4L); 
{ /* Llib/unicode.scm 1028 */
 long BgL_l3961z00_6813;
BgL_l3961z00_6813 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i3960z00_6812, BgL_l3961z00_6813))
{ /* Llib/unicode.scm 1028 */
BgL_tmpz00_11733 = 
STRING_REF(BgL_strz00_78, BgL_i3960z00_6812)
; }  else 
{ 
 obj_t BgL_auxz00_11739;
BgL_auxz00_11739 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(41325L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3961z00_6813), 
(int)(BgL_i3960z00_6812)); 
FAILURE(BgL_auxz00_11739,BFALSE,BFALSE);} } } 
BgL_m1z00_2262 = 
(BgL_tmpz00_11733); } 
{ /* Llib/unicode.scm 1028 */
 long BgL_m2z00_2263;
{ /* Llib/unicode.scm 1029 */
 unsigned char BgL_tmpz00_11746;
{ /* Llib/unicode.scm 1029 */
 long BgL_i3964z00_6816;
BgL_i3964z00_6816 = 
(BgL_rz00_2185+5L); 
{ /* Llib/unicode.scm 1029 */
 long BgL_l3965z00_6817;
BgL_l3965z00_6817 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i3964z00_6816, BgL_l3965z00_6817))
{ /* Llib/unicode.scm 1029 */
BgL_tmpz00_11746 = 
STRING_REF(BgL_strz00_78, BgL_i3964z00_6816)
; }  else 
{ 
 obj_t BgL_auxz00_11752;
BgL_auxz00_11752 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(41380L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l3965z00_6817), 
(int)(BgL_i3964z00_6816)); 
FAILURE(BgL_auxz00_11752,BFALSE,BFALSE);} } } 
BgL_m2z00_2263 = 
(BgL_tmpz00_11746); } 
{ /* Llib/unicode.scm 1029 */
 long BgL_nuz00_2264;
BgL_nuz00_2264 = 
(
(
(237L & 15L) << 
(int)(12L))+
(
(
(BgL_m1z00_2262 & 63L) << 
(int)(6L))+
(BgL_m2z00_2263 & 63L))); 
{ /* Llib/unicode.scm 1030 */

if(
(BgL_nuz00_2264>=56320L))
{ /* Llib/unicode.scm 1034 */
 long BgL_za7za7za7za7za7za7z00_2266;
BgL_za7za7za7za7za7za7z00_2266 = 
(BgL_nuz00_2264 & 63L); 
{ /* Llib/unicode.scm 1034 */
 long BgL_yyyyz00_2267;
BgL_yyyyz00_2267 = 
(
(BgL_nuz00_2264 & 1023L) >> 
(int)(6L)); 
{ /* Llib/unicode.scm 1035 */
 long BgL_xxz00_2268;
BgL_xxz00_2268 = 
(BgL_ucs2z00_2250 & 3L); 
{ /* Llib/unicode.scm 1036 */
 long BgL_wwwwz00_2269;
BgL_wwwwz00_2269 = 
(
(BgL_ucs2z00_2250 >> 
(int)(2L)) & 15L); 
{ /* Llib/unicode.scm 1037 */
 long BgL_vvvvz00_2270;
BgL_vvvvz00_2270 = 
(
(BgL_ucs2z00_2250 >> 
(int)(6L)) & 15L); 
{ /* Llib/unicode.scm 1038 */
 long BgL_uuuuuz00_2271;
BgL_uuuuuz00_2271 = 
(BgL_vvvvz00_2270+1L); 
{ /* Llib/unicode.scm 1039 */

{ /* Llib/unicode.scm 1040 */
 long BgL_arg2160z00_2272; unsigned char BgL_arg2161z00_2273;
BgL_arg2160z00_2272 = 
(BgL_wz00_2186+3L); 
BgL_arg2161z00_2273 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(128L+BgL_za7za7za7za7za7za7z00_2266)); 
{ /* Llib/unicode.scm 1040 */
 long BgL_l3969z00_6821;
BgL_l3969z00_6821 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2160z00_2272, BgL_l3969z00_6821))
{ /* Llib/unicode.scm 1040 */
STRING_SET(BgL_resz00_2183, BgL_arg2160z00_2272, BgL_arg2161z00_2273); }  else 
{ 
 obj_t BgL_auxz00_11789;
BgL_auxz00_11789 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(41805L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3969z00_6821), 
(int)(BgL_arg2160z00_2272)); 
FAILURE(BgL_auxz00_11789,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1043 */
 long BgL_arg2163z00_2275; unsigned char BgL_arg2164z00_2276;
BgL_arg2163z00_2275 = 
(BgL_wz00_2186+2L); 
BgL_arg2164z00_2276 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(128L+
(
(BgL_xxz00_2268 << 
(int)(4L)) | BgL_yyyyz00_2267))); 
{ /* Llib/unicode.scm 1043 */
 long BgL_l3973z00_6825;
BgL_l3973z00_6825 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2163z00_2275, BgL_l3973z00_6825))
{ /* Llib/unicode.scm 1043 */
STRING_SET(BgL_resz00_2183, BgL_arg2163z00_2275, BgL_arg2164z00_2276); }  else 
{ 
 obj_t BgL_auxz00_11805;
BgL_auxz00_11805 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(41892L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3973z00_6825), 
(int)(BgL_arg2163z00_2275)); 
FAILURE(BgL_auxz00_11805,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1047 */
 long BgL_arg2168z00_2280; unsigned char BgL_arg2169z00_2281;
BgL_arg2168z00_2280 = 
(BgL_wz00_2186+1L); 
BgL_arg2169z00_2281 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(128L+
(BgL_wwwwz00_2269 | 
(
(BgL_uuuuuz00_2271 & 3L) << 
(int)(4L))))); 
{ /* Llib/unicode.scm 1047 */
 long BgL_l3977z00_6829;
BgL_l3977z00_6829 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2168z00_2280, BgL_l3977z00_6829))
{ /* Llib/unicode.scm 1047 */
STRING_SET(BgL_resz00_2183, BgL_arg2168z00_2280, BgL_arg2169z00_2281); }  else 
{ 
 obj_t BgL_auxz00_11822;
BgL_auxz00_11822 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(42013L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3977z00_6829), 
(int)(BgL_arg2168z00_2280)); 
FAILURE(BgL_auxz00_11822,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1054 */
 unsigned char BgL_arg2174z00_2286;
BgL_arg2174z00_2286 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(240L | 
(BgL_uuuuuz00_2271 >> 
(int)(2L)))); 
{ /* Llib/unicode.scm 1052 */
 long BgL_l3981z00_6833;
BgL_l3981z00_6833 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l3981z00_6833))
{ /* Llib/unicode.scm 1052 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, BgL_arg2174z00_2286); }  else 
{ 
 obj_t BgL_auxz00_11836;
BgL_auxz00_11836 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(42159L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3981z00_6833), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_11836,BFALSE,BFALSE);} } } 
{ 
 bool_t BgL_asciiz00_11846; long BgL_wz00_11844; long BgL_rz00_11842;
BgL_rz00_11842 = 
(BgL_rz00_2185+6L); 
BgL_wz00_11844 = 
(BgL_wz00_2186+4L); 
BgL_asciiz00_11846 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_11846; 
BgL_wz00_2186 = BgL_wz00_11844; 
BgL_rz00_2185 = BgL_rz00_11842; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } } } } } } }  else 
{ /* Llib/unicode.scm 1033 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_11852; long BgL_wz00_11850; long BgL_rz00_11848;
BgL_rz00_11848 = 
(BgL_rz00_2185+1L); 
BgL_wz00_11850 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_11852 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_11852; 
BgL_wz00_2186 = BgL_wz00_11850; 
BgL_rz00_2185 = BgL_rz00_11848; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } } } } }  else 
{ /* Llib/unicode.scm 1024 */
if(
(BgL_ucs2z00_2250<=56319L))
{ /* Llib/unicode.scm 1060 */
 long BgL_xxz00_2307;
BgL_xxz00_2307 = 
(BgL_ucs2z00_2250 & 3L); 
{ /* Llib/unicode.scm 1060 */
 long BgL_wwwwz00_2308;
BgL_wwwwz00_2308 = 
(
(BgL_ucs2z00_2250 >> 
(int)(2L)) & 15L); 
{ /* Llib/unicode.scm 1061 */
 long BgL_vvvvz00_2309;
BgL_vvvvz00_2309 = 
(
(BgL_ucs2z00_2250 >> 
(int)(6L)) & 15L); 
{ /* Llib/unicode.scm 1062 */
 long BgL_uuuuuz00_2310;
BgL_uuuuuz00_2310 = 
(BgL_vvvvz00_2309+1L); 
{ /* Llib/unicode.scm 1063 */

{ /* Llib/unicode.scm 1064 */
 long BgL_arg2196z00_2311; unsigned char BgL_arg2197z00_2312;
BgL_arg2196z00_2311 = 
(BgL_wz00_2186+3L); 
BgL_arg2197z00_2312 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(128L | 
(BgL_uuuuuz00_2310 >> 
(int)(2L)))); 
{ /* Llib/unicode.scm 1064 */
 long BgL_l3985z00_6837;
BgL_l3985z00_6837 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2196z00_2311, BgL_l3985z00_6837))
{ /* Llib/unicode.scm 1064 */
STRING_SET(BgL_resz00_2183, BgL_arg2196z00_2311, BgL_arg2197z00_2312); }  else 
{ 
 obj_t BgL_auxz00_11872;
BgL_auxz00_11872 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(42572L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3985z00_6837), 
(int)(BgL_arg2196z00_2311)); 
FAILURE(BgL_auxz00_11872,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1066 */
 long BgL_arg2200z00_2315; unsigned char BgL_arg2201z00_2316;
BgL_arg2200z00_2315 = 
(BgL_wz00_2186+2L); 
BgL_arg2201z00_2316 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(
(BgL_xxz00_2307 << 
(int)(4L))+128L)); 
{ /* Llib/unicode.scm 1066 */
 long BgL_l3989z00_6841;
BgL_l3989z00_6841 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2200z00_2315, BgL_l3989z00_6841))
{ /* Llib/unicode.scm 1066 */
STRING_SET(BgL_resz00_2183, BgL_arg2200z00_2315, BgL_arg2201z00_2316); }  else 
{ 
 obj_t BgL_auxz00_11887;
BgL_auxz00_11887 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(42664L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3989z00_6841), 
(int)(BgL_arg2200z00_2315)); 
FAILURE(BgL_auxz00_11887,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1068 */
 long BgL_arg2204z00_2319; unsigned char BgL_arg2205z00_2320;
BgL_arg2204z00_2319 = 
(BgL_wz00_2186+1L); 
BgL_arg2205z00_2320 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(128L+
(BgL_wwwwz00_2308 | 
(
(BgL_uuuuuz00_2310 & 3L) << 
(int)(4L))))); 
{ /* Llib/unicode.scm 1068 */
 long BgL_l3993z00_6845;
BgL_l3993z00_6845 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2204z00_2319, BgL_l3993z00_6845))
{ /* Llib/unicode.scm 1068 */
STRING_SET(BgL_resz00_2183, BgL_arg2204z00_2319, BgL_arg2205z00_2320); }  else 
{ 
 obj_t BgL_auxz00_11904;
BgL_auxz00_11904 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(42750L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3993z00_6845), 
(int)(BgL_arg2204z00_2319)); 
FAILURE(BgL_auxz00_11904,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1073 */
 long BgL_l3997z00_6849;
BgL_l3997z00_6849 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l3997z00_6849))
{ /* Llib/unicode.scm 1073 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, ((unsigned char)248)); }  else 
{ 
 obj_t BgL_auxz00_11914;
BgL_auxz00_11914 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(42894L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l3997z00_6849), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_11914,BFALSE,BFALSE);} } 
{ 
 bool_t BgL_asciiz00_11924; long BgL_wz00_11922; long BgL_rz00_11920;
BgL_rz00_11920 = 
(BgL_rz00_2185+3L); 
BgL_wz00_11922 = 
(BgL_wz00_2186+4L); 
BgL_asciiz00_11924 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_11924; 
BgL_wz00_2186 = BgL_wz00_11922; 
BgL_rz00_2185 = BgL_rz00_11920; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } } } } }  else 
{ /* Llib/unicode.scm 1076 */
 long BgL_za7za7za7za7za7za7z00_2329; long BgL_yyyyz00_2330;
BgL_za7za7za7za7za7za7z00_2329 = 
(BgL_nz00_2193 & 63L); 
BgL_yyyyz00_2330 = 
(
(BgL_nz00_2193 & 1023L) >> 
(int)(6L)); 
{ /* Llib/unicode.scm 1078 */
 long BgL_arg2214z00_2331; unsigned char BgL_arg2216z00_2332;
BgL_arg2214z00_2331 = 
(BgL_wz00_2186+3L); 
BgL_arg2216z00_2332 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(BgL_za7za7za7za7za7za7z00_2329+128L)); 
{ /* Llib/unicode.scm 1078 */
 long BgL_l4001z00_6853;
BgL_l4001z00_6853 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2214z00_2331, BgL_l4001z00_6853))
{ /* Llib/unicode.scm 1078 */
STRING_SET(BgL_resz00_2183, BgL_arg2214z00_2331, BgL_arg2216z00_2332); }  else 
{ 
 obj_t BgL_auxz00_11936;
BgL_auxz00_11936 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(43082L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4001z00_6853), 
(int)(BgL_arg2214z00_2331)); 
FAILURE(BgL_auxz00_11936,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1080 */
 long BgL_arg2218z00_2334; unsigned char BgL_arg2219z00_2335;
BgL_arg2218z00_2334 = 
(BgL_wz00_2186+2L); 
BgL_arg2219z00_2335 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(BgL_yyyyz00_2330+128L)); 
{ /* Llib/unicode.scm 1080 */
 long BgL_l4005z00_6857;
BgL_l4005z00_6857 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2218z00_2334, BgL_l4005z00_6857))
{ /* Llib/unicode.scm 1080 */
STRING_SET(BgL_resz00_2183, BgL_arg2218z00_2334, BgL_arg2219z00_2335); }  else 
{ 
 obj_t BgL_auxz00_11949;
BgL_auxz00_11949 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(43160L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4005z00_6857), 
(int)(BgL_arg2218z00_2334)); 
FAILURE(BgL_auxz00_11949,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1082 */
 long BgL_arg2221z00_2337;
BgL_arg2221z00_2337 = 
(BgL_wz00_2186+1L); 
{ /* Llib/unicode.scm 1082 */
 long BgL_l4009z00_6861;
BgL_l4009z00_6861 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2221z00_2337, BgL_l4009z00_6861))
{ /* Llib/unicode.scm 1082 */
STRING_SET(BgL_resz00_2183, BgL_arg2221z00_2337, ((unsigned char)128)); }  else 
{ 
 obj_t BgL_auxz00_11960;
BgL_auxz00_11960 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(43236L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4009z00_6861), 
(int)(BgL_arg2221z00_2337)); 
FAILURE(BgL_auxz00_11960,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1083 */
 long BgL_l4013z00_6865;
BgL_l4013z00_6865 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l4013z00_6865))
{ /* Llib/unicode.scm 1083 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, ((unsigned char)252)); }  else 
{ 
 obj_t BgL_auxz00_11970;
BgL_auxz00_11970 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(43295L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4013z00_6865), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_11970,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1088 */
 bool_t BgL_test5859z00_11976;
if(
(BgL_wz00_2186>=4L))
{ /* Llib/unicode.scm 1089 */
 bool_t BgL_test5861z00_11979;
{ /* Llib/unicode.scm 1089 */
 long BgL_indexz00_4972;
BgL_indexz00_4972 = 
(BgL_wz00_2186-4L); 
if(
(
(BgL_wz00_2186+4L)>=
(BgL_indexz00_4972+4L)))
{ /* Llib/unicode.scm 1286 */
 long BgL_tmpz00_11985;
{ /* Llib/unicode.scm 1286 */
 unsigned char BgL_tmpz00_11986;
{ /* Llib/unicode.scm 1286 */
 long BgL_l4017z00_6869;
BgL_l4017z00_6869 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_indexz00_4972, BgL_l4017z00_6869))
{ /* Llib/unicode.scm 1286 */
BgL_tmpz00_11986 = 
STRING_REF(BgL_resz00_2183, BgL_indexz00_4972)
; }  else 
{ 
 obj_t BgL_auxz00_11991;
BgL_auxz00_11991 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(51414L), BGl_string5022z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4017z00_6869), 
(int)(BgL_indexz00_4972)); 
FAILURE(BgL_auxz00_11991,BFALSE,BFALSE);} } 
BgL_tmpz00_11985 = 
(BgL_tmpz00_11986); } 
BgL_test5861z00_11979 = 
(BgL_tmpz00_11985==248L); }  else 
{ /* Llib/unicode.scm 1285 */
BgL_test5861z00_11979 = ((bool_t)0)
; } } 
if(BgL_test5861z00_11979)
{ /* Llib/unicode.scm 1089 */
if(
(
(BgL_wz00_2186+4L)>=
(BgL_wz00_2186+4L)))
{ /* Llib/unicode.scm 1296 */
 long BgL_tmpz00_12003;
{ /* Llib/unicode.scm 1296 */
 unsigned char BgL_tmpz00_12004;
{ /* Llib/unicode.scm 1296 */
 long BgL_l4021z00_6873;
BgL_l4021z00_6873 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l4021z00_6873))
{ /* Llib/unicode.scm 1296 */
BgL_tmpz00_12004 = 
STRING_REF(BgL_resz00_2183, BgL_wz00_2186)
; }  else 
{ 
 obj_t BgL_auxz00_12009;
BgL_auxz00_12009 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(52010L), BGl_string5022z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4021z00_6873), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_12009,BFALSE,BFALSE);} } 
BgL_tmpz00_12003 = 
(BgL_tmpz00_12004); } 
BgL_test5859z00_11976 = 
(BgL_tmpz00_12003==252L); }  else 
{ /* Llib/unicode.scm 1295 */
BgL_test5859z00_11976 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1089 */
BgL_test5859z00_11976 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1088 */
BgL_test5859z00_11976 = ((bool_t)0)
; } 
if(BgL_test5859z00_11976)
{ /* Llib/unicode.scm 1088 */
BGl_utf8zd2collapsez12zc0zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186, BgL_resz00_2183, 
BINT(BgL_wz00_2186)); 
{ 
 bool_t BgL_asciiz00_12021; long BgL_rz00_12019;
BgL_rz00_12019 = 
(BgL_rz00_2185+3L); 
BgL_asciiz00_12021 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12021; 
BgL_rz00_2185 = BgL_rz00_12019; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ 
 bool_t BgL_asciiz00_12026; long BgL_wz00_12024; long BgL_rz00_12022;
BgL_rz00_12022 = 
(BgL_rz00_2185+3L); 
BgL_wz00_12024 = 
(BgL_wz00_2186+4L); 
BgL_asciiz00_12026 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12026; 
BgL_wz00_2186 = BgL_wz00_12024; 
BgL_rz00_2185 = BgL_rz00_12022; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } } } } } } } }  else 
{ /* Llib/unicode.scm 1007 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_12032; long BgL_wz00_12030; long BgL_rz00_12028;
BgL_rz00_12028 = 
(BgL_rz00_2185+1L); 
BgL_wz00_12030 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_12032 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12032; 
BgL_wz00_2186 = BgL_wz00_12030; 
BgL_rz00_2185 = BgL_rz00_12028; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } }  else 
{ /* Llib/unicode.scm 1005 */
if(
(BgL_nz00_2193<=239L))
{ /* Llib/unicode.scm 1102 */
 bool_t BgL_test5867z00_12035;
if(
(BgL_rz00_2185<
(BgL_endz00_81-2L)))
{ /* Llib/unicode.scm 1103 */
 bool_t BgL_test5869z00_12039;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5011;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12040;
{ /* Llib/unicode.scm 1103 */
 long BgL_i4024z00_6876;
BgL_i4024z00_6876 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1103 */
 long BgL_l4025z00_6877;
BgL_l4025z00_6877 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4024z00_6876, BgL_l4025z00_6877))
{ /* Llib/unicode.scm 1103 */
BgL_tmpz00_12040 = 
STRING_REF(BgL_strz00_78, BgL_i4024z00_6876)
; }  else 
{ 
 obj_t BgL_auxz00_12046;
BgL_auxz00_12046 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44002L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4025z00_6877), 
(int)(BgL_i4024z00_6876)); 
FAILURE(BgL_auxz00_12046,BFALSE,BFALSE);} } } 
BgL_nz00_5011 = 
(BgL_tmpz00_12040); } 
if(
(BgL_nz00_5011>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5869z00_12039 = 
(BgL_nz00_5011<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5869z00_12039 = ((bool_t)0)
; } } 
if(BgL_test5869z00_12039)
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5019;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12056;
{ /* Llib/unicode.scm 1104 */
 long BgL_i4028z00_6880;
BgL_i4028z00_6880 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1104 */
 long BgL_l4029z00_6881;
BgL_l4029z00_6881 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4028z00_6880, BgL_l4029z00_6881))
{ /* Llib/unicode.scm 1104 */
BgL_tmpz00_12056 = 
STRING_REF(BgL_strz00_78, BgL_i4028z00_6880)
; }  else 
{ 
 obj_t BgL_auxz00_12062;
BgL_auxz00_12062 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44056L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4029z00_6881), 
(int)(BgL_i4028z00_6880)); 
FAILURE(BgL_auxz00_12062,BFALSE,BFALSE);} } } 
BgL_nz00_5019 = 
(BgL_tmpz00_12056); } 
if(
(BgL_nz00_5019>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5867z00_12035 = 
(BgL_nz00_5019<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5867z00_12035 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1103 */
BgL_test5867z00_12035 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1102 */
BgL_test5867z00_12035 = ((bool_t)0)
; } 
if(BgL_test5867z00_12035)
{ /* Llib/unicode.scm 1102 */
{ /* Llib/unicode.scm 1106 */
 long BgL_l4033z00_6885;
BgL_l4033z00_6885 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l4033z00_6885))
{ /* Llib/unicode.scm 1106 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, BgL_cz00_2192); }  else 
{ 
 obj_t BgL_auxz00_12076;
BgL_auxz00_12076 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44119L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4033z00_6885), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_12076,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1107 */
 long BgL_arg2272z00_2391; unsigned char BgL_arg2273z00_2392;
BgL_arg2272z00_2391 = 
(BgL_wz00_2186+1L); 
{ /* Llib/unicode.scm 1107 */
 long BgL_i4036z00_6888;
BgL_i4036z00_6888 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1107 */
 long BgL_l4037z00_6889;
BgL_l4037z00_6889 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4036z00_6888, BgL_l4037z00_6889))
{ /* Llib/unicode.scm 1107 */
BgL_arg2273z00_2392 = 
STRING_REF(BgL_strz00_78, BgL_i4036z00_6888); }  else 
{ 
 obj_t BgL_auxz00_12088;
BgL_auxz00_12088 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44178L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4037z00_6889), 
(int)(BgL_i4036z00_6888)); 
FAILURE(BgL_auxz00_12088,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1107 */
 long BgL_l4041z00_6893;
BgL_l4041z00_6893 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2272z00_2391, BgL_l4041z00_6893))
{ /* Llib/unicode.scm 1107 */
STRING_SET(BgL_resz00_2183, BgL_arg2272z00_2391, BgL_arg2273z00_2392); }  else 
{ 
 obj_t BgL_auxz00_12098;
BgL_auxz00_12098 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44151L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4041z00_6893), 
(int)(BgL_arg2272z00_2391)); 
FAILURE(BgL_auxz00_12098,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1108 */
 long BgL_arg2275z00_2394; unsigned char BgL_arg2276z00_2395;
BgL_arg2275z00_2394 = 
(BgL_wz00_2186+2L); 
{ /* Llib/unicode.scm 1108 */
 long BgL_i4044z00_6896;
BgL_i4044z00_6896 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1108 */
 long BgL_l4045z00_6897;
BgL_l4045z00_6897 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4044z00_6896, BgL_l4045z00_6897))
{ /* Llib/unicode.scm 1108 */
BgL_arg2276z00_2395 = 
STRING_REF(BgL_strz00_78, BgL_i4044z00_6896); }  else 
{ 
 obj_t BgL_auxz00_12110;
BgL_auxz00_12110 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44243L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4045z00_6897), 
(int)(BgL_i4044z00_6896)); 
FAILURE(BgL_auxz00_12110,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1108 */
 long BgL_l4049z00_6901;
BgL_l4049z00_6901 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2275z00_2394, BgL_l4049z00_6901))
{ /* Llib/unicode.scm 1108 */
STRING_SET(BgL_resz00_2183, BgL_arg2275z00_2394, BgL_arg2276z00_2395); }  else 
{ 
 obj_t BgL_auxz00_12120;
BgL_auxz00_12120 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44216L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4049z00_6901), 
(int)(BgL_arg2275z00_2394)); 
FAILURE(BgL_auxz00_12120,BFALSE,BFALSE);} } } 
{ 
 bool_t BgL_asciiz00_12130; long BgL_wz00_12128; long BgL_rz00_12126;
BgL_rz00_12126 = 
(BgL_rz00_2185+3L); 
BgL_wz00_12128 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_12130 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12130; 
BgL_wz00_2186 = BgL_wz00_12128; 
BgL_rz00_2185 = BgL_rz00_12126; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ /* Llib/unicode.scm 1102 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_12136; long BgL_wz00_12134; long BgL_rz00_12132;
BgL_rz00_12132 = 
(BgL_rz00_2185+1L); 
BgL_wz00_12134 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_12136 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12136; 
BgL_wz00_2186 = BgL_wz00_12134; 
BgL_rz00_2185 = BgL_rz00_12132; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } }  else 
{ /* Llib/unicode.scm 1100 */
if(
(BgL_nz00_2193==240L))
{ /* Llib/unicode.scm 1115 */
 bool_t BgL_test5880z00_12139;
if(
(BgL_rz00_2185<
(BgL_endz00_81-3L)))
{ /* Llib/unicode.scm 1116 */
 bool_t BgL_test5882z00_12143;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5052;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12144;
{ /* Llib/unicode.scm 1116 */
 long BgL_i4052z00_6904;
BgL_i4052z00_6904 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1116 */
 long BgL_l4053z00_6905;
BgL_l4053z00_6905 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4052z00_6904, BgL_l4053z00_6905))
{ /* Llib/unicode.scm 1116 */
BgL_tmpz00_12144 = 
STRING_REF(BgL_strz00_78, BgL_i4052z00_6904)
; }  else 
{ 
 obj_t BgL_auxz00_12150;
BgL_auxz00_12150 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44510L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4053z00_6905), 
(int)(BgL_i4052z00_6904)); 
FAILURE(BgL_auxz00_12150,BFALSE,BFALSE);} } } 
BgL_nz00_5052 = 
(BgL_tmpz00_12144); } 
if(
(BgL_nz00_5052>=144L))
{ /* Llib/unicode.scm 951 */
BgL_test5882z00_12143 = 
(BgL_nz00_5052<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5882z00_12143 = ((bool_t)0)
; } } 
if(BgL_test5882z00_12143)
{ /* Llib/unicode.scm 1117 */
 bool_t BgL_test5885z00_12160;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5060;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12161;
{ /* Llib/unicode.scm 1117 */
 long BgL_i4056z00_6908;
BgL_i4056z00_6908 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1117 */
 long BgL_l4057z00_6909;
BgL_l4057z00_6909 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4056z00_6908, BgL_l4057z00_6909))
{ /* Llib/unicode.scm 1117 */
BgL_tmpz00_12161 = 
STRING_REF(BgL_strz00_78, BgL_i4056z00_6908)
; }  else 
{ 
 obj_t BgL_auxz00_12167;
BgL_auxz00_12167 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44564L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4057z00_6909), 
(int)(BgL_i4056z00_6908)); 
FAILURE(BgL_auxz00_12167,BFALSE,BFALSE);} } } 
BgL_nz00_5060 = 
(BgL_tmpz00_12161); } 
if(
(BgL_nz00_5060>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5885z00_12160 = 
(BgL_nz00_5060<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5885z00_12160 = ((bool_t)0)
; } } 
if(BgL_test5885z00_12160)
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5068;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12177;
{ /* Llib/unicode.scm 1118 */
 long BgL_i4060z00_6912;
BgL_i4060z00_6912 = 
(BgL_rz00_2185+3L); 
{ /* Llib/unicode.scm 1118 */
 long BgL_l4061z00_6913;
BgL_l4061z00_6913 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4060z00_6912, BgL_l4061z00_6913))
{ /* Llib/unicode.scm 1118 */
BgL_tmpz00_12177 = 
STRING_REF(BgL_strz00_78, BgL_i4060z00_6912)
; }  else 
{ 
 obj_t BgL_auxz00_12183;
BgL_auxz00_12183 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44618L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4061z00_6913), 
(int)(BgL_i4060z00_6912)); 
FAILURE(BgL_auxz00_12183,BFALSE,BFALSE);} } } 
BgL_nz00_5068 = 
(BgL_tmpz00_12177); } 
if(
(BgL_nz00_5068>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5880z00_12139 = 
(BgL_nz00_5068<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5880z00_12139 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1117 */
BgL_test5880z00_12139 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1116 */
BgL_test5880z00_12139 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1115 */
BgL_test5880z00_12139 = ((bool_t)0)
; } 
if(BgL_test5880z00_12139)
{ /* Llib/unicode.scm 1115 */
{ /* Llib/unicode.scm 1120 */
 long BgL_l4065z00_6917;
BgL_l4065z00_6917 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l4065z00_6917))
{ /* Llib/unicode.scm 1120 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, BgL_cz00_2192); }  else 
{ 
 obj_t BgL_auxz00_12197;
BgL_auxz00_12197 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44681L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4065z00_6917), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_12197,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1121 */
 long BgL_arg2306z00_2425; unsigned char BgL_arg2307z00_2426;
BgL_arg2306z00_2425 = 
(BgL_wz00_2186+1L); 
{ /* Llib/unicode.scm 1121 */
 long BgL_i4068z00_6920;
BgL_i4068z00_6920 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1121 */
 long BgL_l4069z00_6921;
BgL_l4069z00_6921 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4068z00_6920, BgL_l4069z00_6921))
{ /* Llib/unicode.scm 1121 */
BgL_arg2307z00_2426 = 
STRING_REF(BgL_strz00_78, BgL_i4068z00_6920); }  else 
{ 
 obj_t BgL_auxz00_12209;
BgL_auxz00_12209 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44740L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4069z00_6921), 
(int)(BgL_i4068z00_6920)); 
FAILURE(BgL_auxz00_12209,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1121 */
 long BgL_l4073z00_6925;
BgL_l4073z00_6925 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2306z00_2425, BgL_l4073z00_6925))
{ /* Llib/unicode.scm 1121 */
STRING_SET(BgL_resz00_2183, BgL_arg2306z00_2425, BgL_arg2307z00_2426); }  else 
{ 
 obj_t BgL_auxz00_12219;
BgL_auxz00_12219 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44713L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4073z00_6925), 
(int)(BgL_arg2306z00_2425)); 
FAILURE(BgL_auxz00_12219,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1122 */
 long BgL_arg2310z00_2428; unsigned char BgL_arg2311z00_2429;
BgL_arg2310z00_2428 = 
(BgL_wz00_2186+2L); 
{ /* Llib/unicode.scm 1122 */
 long BgL_i4076z00_6928;
BgL_i4076z00_6928 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1122 */
 long BgL_l4077z00_6929;
BgL_l4077z00_6929 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4076z00_6928, BgL_l4077z00_6929))
{ /* Llib/unicode.scm 1122 */
BgL_arg2311z00_2429 = 
STRING_REF(BgL_strz00_78, BgL_i4076z00_6928); }  else 
{ 
 obj_t BgL_auxz00_12231;
BgL_auxz00_12231 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44805L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4077z00_6929), 
(int)(BgL_i4076z00_6928)); 
FAILURE(BgL_auxz00_12231,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1122 */
 long BgL_l4081z00_6933;
BgL_l4081z00_6933 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2310z00_2428, BgL_l4081z00_6933))
{ /* Llib/unicode.scm 1122 */
STRING_SET(BgL_resz00_2183, BgL_arg2310z00_2428, BgL_arg2311z00_2429); }  else 
{ 
 obj_t BgL_auxz00_12241;
BgL_auxz00_12241 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44778L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4081z00_6933), 
(int)(BgL_arg2310z00_2428)); 
FAILURE(BgL_auxz00_12241,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1123 */
 long BgL_arg2314z00_2431; unsigned char BgL_arg2316z00_2432;
BgL_arg2314z00_2431 = 
(BgL_wz00_2186+3L); 
{ /* Llib/unicode.scm 1123 */
 long BgL_i4084z00_6936;
BgL_i4084z00_6936 = 
(BgL_rz00_2185+3L); 
{ /* Llib/unicode.scm 1123 */
 long BgL_l4085z00_6937;
BgL_l4085z00_6937 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4084z00_6936, BgL_l4085z00_6937))
{ /* Llib/unicode.scm 1123 */
BgL_arg2316z00_2432 = 
STRING_REF(BgL_strz00_78, BgL_i4084z00_6936); }  else 
{ 
 obj_t BgL_auxz00_12253;
BgL_auxz00_12253 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44870L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4085z00_6937), 
(int)(BgL_i4084z00_6936)); 
FAILURE(BgL_auxz00_12253,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1123 */
 long BgL_l4089z00_6941;
BgL_l4089z00_6941 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2314z00_2431, BgL_l4089z00_6941))
{ /* Llib/unicode.scm 1123 */
STRING_SET(BgL_resz00_2183, BgL_arg2314z00_2431, BgL_arg2316z00_2432); }  else 
{ 
 obj_t BgL_auxz00_12263;
BgL_auxz00_12263 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(44843L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4089z00_6941), 
(int)(BgL_arg2314z00_2431)); 
FAILURE(BgL_auxz00_12263,BFALSE,BFALSE);} } } 
{ 
 bool_t BgL_asciiz00_12273; long BgL_wz00_12271; long BgL_rz00_12269;
BgL_rz00_12269 = 
(BgL_rz00_2185+4L); 
BgL_wz00_12271 = 
(BgL_wz00_2186+4L); 
BgL_asciiz00_12273 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12273; 
BgL_wz00_2186 = BgL_wz00_12271; 
BgL_rz00_2185 = BgL_rz00_12269; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ /* Llib/unicode.scm 1115 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_12279; long BgL_wz00_12277; long BgL_rz00_12275;
BgL_rz00_12275 = 
(BgL_rz00_2185+1L); 
BgL_wz00_12277 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_12279 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12279; 
BgL_wz00_2186 = BgL_wz00_12277; 
BgL_rz00_2185 = BgL_rz00_12275; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } }  else 
{ /* Llib/unicode.scm 1128 */
 bool_t BgL_test5897z00_12280;
if(
(BgL_nz00_2193==244L))
{ /* Llib/unicode.scm 1128 */
BgL_test5897z00_12280 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 1129 */
 bool_t BgL_test5899z00_12283;
{ /* Llib/unicode.scm 1129 */
 bool_t BgL__ortest_1055z00_2648;
BgL__ortest_1055z00_2648 = 
(BgL_nz00_2193==248L); 
if(BgL__ortest_1055z00_2648)
{ /* Llib/unicode.scm 1129 */
BgL_test5899z00_12283 = BgL__ortest_1055z00_2648
; }  else 
{ /* Llib/unicode.scm 1129 */
BgL_test5899z00_12283 = 
(BgL_nz00_2193==252L)
; } } 
if(BgL_test5899z00_12283)
{ /* Llib/unicode.scm 1129 */
if(BgL_strictz00_79)
{ /* Llib/unicode.scm 1129 */
BgL_test5897z00_12280 = ((bool_t)0)
; }  else 
{ /* Llib/unicode.scm 1129 */
BgL_test5897z00_12280 = ((bool_t)1)
; } }  else 
{ /* Llib/unicode.scm 1129 */
BgL_test5897z00_12280 = ((bool_t)0)
; } } 
if(BgL_test5897z00_12280)
{ /* Llib/unicode.scm 1131 */
 bool_t BgL_test5902z00_12288;
if(
(BgL_rz00_2185<
(BgL_endz00_81-3L)))
{ /* Llib/unicode.scm 1132 */
 bool_t BgL_test5904z00_12292;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5110;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12293;
{ /* Llib/unicode.scm 1132 */
 long BgL_i4092z00_6944;
BgL_i4092z00_6944 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1132 */
 long BgL_l4093z00_6945;
BgL_l4093z00_6945 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4092z00_6944, BgL_l4093z00_6945))
{ /* Llib/unicode.scm 1132 */
BgL_tmpz00_12293 = 
STRING_REF(BgL_strz00_78, BgL_i4092z00_6944)
; }  else 
{ 
 obj_t BgL_auxz00_12299;
BgL_auxz00_12299 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45199L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4093z00_6945), 
(int)(BgL_i4092z00_6944)); 
FAILURE(BgL_auxz00_12299,BFALSE,BFALSE);} } } 
BgL_nz00_5110 = 
(BgL_tmpz00_12293); } 
if(
(BgL_nz00_5110>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5904z00_12292 = 
(BgL_nz00_5110<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5904z00_12292 = ((bool_t)0)
; } } 
if(BgL_test5904z00_12292)
{ /* Llib/unicode.scm 1133 */
 bool_t BgL_test5907z00_12309;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5118;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12310;
{ /* Llib/unicode.scm 1133 */
 long BgL_i4096z00_6948;
BgL_i4096z00_6948 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1133 */
 long BgL_l4097z00_6949;
BgL_l4097z00_6949 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4096z00_6948, BgL_l4097z00_6949))
{ /* Llib/unicode.scm 1133 */
BgL_tmpz00_12310 = 
STRING_REF(BgL_strz00_78, BgL_i4096z00_6948)
; }  else 
{ 
 obj_t BgL_auxz00_12316;
BgL_auxz00_12316 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45253L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4097z00_6949), 
(int)(BgL_i4096z00_6948)); 
FAILURE(BgL_auxz00_12316,BFALSE,BFALSE);} } } 
BgL_nz00_5118 = 
(BgL_tmpz00_12310); } 
if(
(BgL_nz00_5118>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5907z00_12309 = 
(BgL_nz00_5118<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5907z00_12309 = ((bool_t)0)
; } } 
if(BgL_test5907z00_12309)
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5126;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12326;
{ /* Llib/unicode.scm 1134 */
 long BgL_i4100z00_6952;
BgL_i4100z00_6952 = 
(BgL_rz00_2185+3L); 
{ /* Llib/unicode.scm 1134 */
 long BgL_l4101z00_6953;
BgL_l4101z00_6953 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4100z00_6952, BgL_l4101z00_6953))
{ /* Llib/unicode.scm 1134 */
BgL_tmpz00_12326 = 
STRING_REF(BgL_strz00_78, BgL_i4100z00_6952)
; }  else 
{ 
 obj_t BgL_auxz00_12332;
BgL_auxz00_12332 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45307L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4101z00_6953), 
(int)(BgL_i4100z00_6952)); 
FAILURE(BgL_auxz00_12332,BFALSE,BFALSE);} } } 
BgL_nz00_5126 = 
(BgL_tmpz00_12326); } 
if(
(BgL_nz00_5126>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5902z00_12288 = 
(BgL_nz00_5126<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5902z00_12288 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1133 */
BgL_test5902z00_12288 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1132 */
BgL_test5902z00_12288 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1131 */
BgL_test5902z00_12288 = ((bool_t)0)
; } 
if(BgL_test5902z00_12288)
{ /* Llib/unicode.scm 1131 */
{ /* Llib/unicode.scm 1136 */
 long BgL_l4105z00_6957;
BgL_l4105z00_6957 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l4105z00_6957))
{ /* Llib/unicode.scm 1136 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, BgL_cz00_2192); }  else 
{ 
 obj_t BgL_auxz00_12346;
BgL_auxz00_12346 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45370L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4105z00_6957), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_12346,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1137 */
 long BgL_arg2356z00_2468; unsigned char BgL_arg2358z00_2469;
BgL_arg2356z00_2468 = 
(BgL_wz00_2186+1L); 
{ /* Llib/unicode.scm 1137 */
 long BgL_i4108z00_6960;
BgL_i4108z00_6960 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1137 */
 long BgL_l4109z00_6961;
BgL_l4109z00_6961 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4108z00_6960, BgL_l4109z00_6961))
{ /* Llib/unicode.scm 1137 */
BgL_arg2358z00_2469 = 
STRING_REF(BgL_strz00_78, BgL_i4108z00_6960); }  else 
{ 
 obj_t BgL_auxz00_12358;
BgL_auxz00_12358 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45429L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4109z00_6961), 
(int)(BgL_i4108z00_6960)); 
FAILURE(BgL_auxz00_12358,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1137 */
 long BgL_l4113z00_6965;
BgL_l4113z00_6965 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2356z00_2468, BgL_l4113z00_6965))
{ /* Llib/unicode.scm 1137 */
STRING_SET(BgL_resz00_2183, BgL_arg2356z00_2468, BgL_arg2358z00_2469); }  else 
{ 
 obj_t BgL_auxz00_12368;
BgL_auxz00_12368 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45402L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4113z00_6965), 
(int)(BgL_arg2356z00_2468)); 
FAILURE(BgL_auxz00_12368,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1138 */
 long BgL_arg2360z00_2471; unsigned char BgL_arg2362z00_2472;
BgL_arg2360z00_2471 = 
(BgL_wz00_2186+2L); 
{ /* Llib/unicode.scm 1138 */
 long BgL_i4116z00_6968;
BgL_i4116z00_6968 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1138 */
 long BgL_l4117z00_6969;
BgL_l4117z00_6969 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4116z00_6968, BgL_l4117z00_6969))
{ /* Llib/unicode.scm 1138 */
BgL_arg2362z00_2472 = 
STRING_REF(BgL_strz00_78, BgL_i4116z00_6968); }  else 
{ 
 obj_t BgL_auxz00_12380;
BgL_auxz00_12380 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45494L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4117z00_6969), 
(int)(BgL_i4116z00_6968)); 
FAILURE(BgL_auxz00_12380,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1138 */
 long BgL_l4121z00_6973;
BgL_l4121z00_6973 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2360z00_2471, BgL_l4121z00_6973))
{ /* Llib/unicode.scm 1138 */
STRING_SET(BgL_resz00_2183, BgL_arg2360z00_2471, BgL_arg2362z00_2472); }  else 
{ 
 obj_t BgL_auxz00_12390;
BgL_auxz00_12390 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45467L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4121z00_6973), 
(int)(BgL_arg2360z00_2471)); 
FAILURE(BgL_auxz00_12390,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1139 */
 long BgL_arg2364z00_2474; unsigned char BgL_arg2365z00_2475;
BgL_arg2364z00_2474 = 
(BgL_wz00_2186+3L); 
{ /* Llib/unicode.scm 1139 */
 long BgL_i4124z00_6976;
BgL_i4124z00_6976 = 
(BgL_rz00_2185+3L); 
{ /* Llib/unicode.scm 1139 */
 long BgL_l4125z00_6977;
BgL_l4125z00_6977 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4124z00_6976, BgL_l4125z00_6977))
{ /* Llib/unicode.scm 1139 */
BgL_arg2365z00_2475 = 
STRING_REF(BgL_strz00_78, BgL_i4124z00_6976); }  else 
{ 
 obj_t BgL_auxz00_12402;
BgL_auxz00_12402 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45559L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4125z00_6977), 
(int)(BgL_i4124z00_6976)); 
FAILURE(BgL_auxz00_12402,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1139 */
 long BgL_l4129z00_6981;
BgL_l4129z00_6981 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2364z00_2474, BgL_l4129z00_6981))
{ /* Llib/unicode.scm 1139 */
STRING_SET(BgL_resz00_2183, BgL_arg2364z00_2474, BgL_arg2365z00_2475); }  else 
{ 
 obj_t BgL_auxz00_12412;
BgL_auxz00_12412 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45532L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4129z00_6981), 
(int)(BgL_arg2364z00_2474)); 
FAILURE(BgL_auxz00_12412,BFALSE,BFALSE);} } } 
{ 
 bool_t BgL_asciiz00_12422; long BgL_wz00_12420; long BgL_rz00_12418;
BgL_rz00_12418 = 
(BgL_rz00_2185+4L); 
BgL_wz00_12420 = 
(BgL_wz00_2186+4L); 
BgL_asciiz00_12422 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12422; 
BgL_wz00_2186 = BgL_wz00_12420; 
BgL_rz00_2185 = BgL_rz00_12418; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ /* Llib/unicode.scm 1131 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_12428; long BgL_wz00_12426; long BgL_rz00_12424;
BgL_rz00_12424 = 
(BgL_rz00_2185+1L); 
BgL_wz00_12426 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_12428 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12428; 
BgL_wz00_2186 = BgL_wz00_12426; 
BgL_rz00_2185 = BgL_rz00_12424; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } }  else 
{ /* Llib/unicode.scm 1128 */
if(
(BgL_nz00_2193<=247L))
{ /* Llib/unicode.scm 1146 */
 bool_t BgL_test5920z00_12431;
if(
(BgL_rz00_2185<
(BgL_endz00_81-3L)))
{ /* Llib/unicode.scm 1147 */
 bool_t BgL_test5922z00_12435;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5166;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12436;
{ /* Llib/unicode.scm 1147 */
 long BgL_i4132z00_6984;
BgL_i4132z00_6984 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1147 */
 long BgL_l4133z00_6985;
BgL_l4133z00_6985 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4132z00_6984, BgL_l4133z00_6985))
{ /* Llib/unicode.scm 1147 */
BgL_tmpz00_12436 = 
STRING_REF(BgL_strz00_78, BgL_i4132z00_6984)
; }  else 
{ 
 obj_t BgL_auxz00_12442;
BgL_auxz00_12442 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45818L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4133z00_6985), 
(int)(BgL_i4132z00_6984)); 
FAILURE(BgL_auxz00_12442,BFALSE,BFALSE);} } } 
BgL_nz00_5166 = 
(BgL_tmpz00_12436); } 
if(
(BgL_nz00_5166>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5922z00_12435 = 
(BgL_nz00_5166<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5922z00_12435 = ((bool_t)0)
; } } 
if(BgL_test5922z00_12435)
{ /* Llib/unicode.scm 1148 */
 bool_t BgL_test5925z00_12452;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5174;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12453;
{ /* Llib/unicode.scm 1148 */
 long BgL_i4136z00_6988;
BgL_i4136z00_6988 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1148 */
 long BgL_l4137z00_6989;
BgL_l4137z00_6989 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4136z00_6988, BgL_l4137z00_6989))
{ /* Llib/unicode.scm 1148 */
BgL_tmpz00_12453 = 
STRING_REF(BgL_strz00_78, BgL_i4136z00_6988)
; }  else 
{ 
 obj_t BgL_auxz00_12459;
BgL_auxz00_12459 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45872L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4137z00_6989), 
(int)(BgL_i4136z00_6988)); 
FAILURE(BgL_auxz00_12459,BFALSE,BFALSE);} } } 
BgL_nz00_5174 = 
(BgL_tmpz00_12453); } 
if(
(BgL_nz00_5174>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5925z00_12452 = 
(BgL_nz00_5174<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5925z00_12452 = ((bool_t)0)
; } } 
if(BgL_test5925z00_12452)
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5182;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12469;
{ /* Llib/unicode.scm 1149 */
 long BgL_i4140z00_6992;
BgL_i4140z00_6992 = 
(BgL_rz00_2185+3L); 
{ /* Llib/unicode.scm 1149 */
 long BgL_l4141z00_6993;
BgL_l4141z00_6993 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4140z00_6992, BgL_l4141z00_6993))
{ /* Llib/unicode.scm 1149 */
BgL_tmpz00_12469 = 
STRING_REF(BgL_strz00_78, BgL_i4140z00_6992)
; }  else 
{ 
 obj_t BgL_auxz00_12475;
BgL_auxz00_12475 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45926L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4141z00_6993), 
(int)(BgL_i4140z00_6992)); 
FAILURE(BgL_auxz00_12475,BFALSE,BFALSE);} } } 
BgL_nz00_5182 = 
(BgL_tmpz00_12469); } 
if(
(BgL_nz00_5182>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5920z00_12431 = 
(BgL_nz00_5182<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5920z00_12431 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1148 */
BgL_test5920z00_12431 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1147 */
BgL_test5920z00_12431 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1146 */
BgL_test5920z00_12431 = ((bool_t)0)
; } 
if(BgL_test5920z00_12431)
{ /* Llib/unicode.scm 1146 */
{ /* Llib/unicode.scm 1151 */
 long BgL_l4145z00_6997;
BgL_l4145z00_6997 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l4145z00_6997))
{ /* Llib/unicode.scm 1151 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, BgL_cz00_2192); }  else 
{ 
 obj_t BgL_auxz00_12489;
BgL_auxz00_12489 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(45989L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4145z00_6997), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_12489,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1152 */
 long BgL_arg2400z00_2508; unsigned char BgL_arg2402z00_2509;
BgL_arg2400z00_2508 = 
(BgL_wz00_2186+1L); 
{ /* Llib/unicode.scm 1152 */
 long BgL_i4148z00_7000;
BgL_i4148z00_7000 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1152 */
 long BgL_l4149z00_7001;
BgL_l4149z00_7001 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4148z00_7000, BgL_l4149z00_7001))
{ /* Llib/unicode.scm 1152 */
BgL_arg2402z00_2509 = 
STRING_REF(BgL_strz00_78, BgL_i4148z00_7000); }  else 
{ 
 obj_t BgL_auxz00_12501;
BgL_auxz00_12501 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46048L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4149z00_7001), 
(int)(BgL_i4148z00_7000)); 
FAILURE(BgL_auxz00_12501,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1152 */
 long BgL_l4153z00_7005;
BgL_l4153z00_7005 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2400z00_2508, BgL_l4153z00_7005))
{ /* Llib/unicode.scm 1152 */
STRING_SET(BgL_resz00_2183, BgL_arg2400z00_2508, BgL_arg2402z00_2509); }  else 
{ 
 obj_t BgL_auxz00_12511;
BgL_auxz00_12511 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46021L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4153z00_7005), 
(int)(BgL_arg2400z00_2508)); 
FAILURE(BgL_auxz00_12511,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1153 */
 long BgL_arg2405z00_2511; unsigned char BgL_arg2406z00_2512;
BgL_arg2405z00_2511 = 
(BgL_wz00_2186+2L); 
{ /* Llib/unicode.scm 1153 */
 long BgL_i4156z00_7008;
BgL_i4156z00_7008 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1153 */
 long BgL_l4157z00_7009;
BgL_l4157z00_7009 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4156z00_7008, BgL_l4157z00_7009))
{ /* Llib/unicode.scm 1153 */
BgL_arg2406z00_2512 = 
STRING_REF(BgL_strz00_78, BgL_i4156z00_7008); }  else 
{ 
 obj_t BgL_auxz00_12523;
BgL_auxz00_12523 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46113L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4157z00_7009), 
(int)(BgL_i4156z00_7008)); 
FAILURE(BgL_auxz00_12523,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1153 */
 long BgL_l4161z00_7013;
BgL_l4161z00_7013 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2405z00_2511, BgL_l4161z00_7013))
{ /* Llib/unicode.scm 1153 */
STRING_SET(BgL_resz00_2183, BgL_arg2405z00_2511, BgL_arg2406z00_2512); }  else 
{ 
 obj_t BgL_auxz00_12533;
BgL_auxz00_12533 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46086L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4161z00_7013), 
(int)(BgL_arg2405z00_2511)); 
FAILURE(BgL_auxz00_12533,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1154 */
 long BgL_arg2409z00_2514; unsigned char BgL_arg2412z00_2515;
BgL_arg2409z00_2514 = 
(BgL_wz00_2186+3L); 
{ /* Llib/unicode.scm 1154 */
 long BgL_i4164z00_7016;
BgL_i4164z00_7016 = 
(BgL_rz00_2185+3L); 
{ /* Llib/unicode.scm 1154 */
 long BgL_l4165z00_7017;
BgL_l4165z00_7017 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4164z00_7016, BgL_l4165z00_7017))
{ /* Llib/unicode.scm 1154 */
BgL_arg2412z00_2515 = 
STRING_REF(BgL_strz00_78, BgL_i4164z00_7016); }  else 
{ 
 obj_t BgL_auxz00_12545;
BgL_auxz00_12545 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46178L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4165z00_7017), 
(int)(BgL_i4164z00_7016)); 
FAILURE(BgL_auxz00_12545,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1154 */
 long BgL_l4169z00_7021;
BgL_l4169z00_7021 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2409z00_2514, BgL_l4169z00_7021))
{ /* Llib/unicode.scm 1154 */
STRING_SET(BgL_resz00_2183, BgL_arg2409z00_2514, BgL_arg2412z00_2515); }  else 
{ 
 obj_t BgL_auxz00_12555;
BgL_auxz00_12555 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46151L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4169z00_7021), 
(int)(BgL_arg2409z00_2514)); 
FAILURE(BgL_auxz00_12555,BFALSE,BFALSE);} } } 
{ 
 bool_t BgL_asciiz00_12565; long BgL_wz00_12563; long BgL_rz00_12561;
BgL_rz00_12561 = 
(BgL_rz00_2185+4L); 
BgL_wz00_12563 = 
(BgL_wz00_2186+4L); 
BgL_asciiz00_12565 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12565; 
BgL_wz00_2186 = BgL_wz00_12563; 
BgL_rz00_2185 = BgL_rz00_12561; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ /* Llib/unicode.scm 1146 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_12571; long BgL_wz00_12569; long BgL_rz00_12567;
BgL_rz00_12567 = 
(BgL_rz00_2185+1L); 
BgL_wz00_12569 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_12571 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12571; 
BgL_wz00_2186 = BgL_wz00_12569; 
BgL_rz00_2185 = BgL_rz00_12567; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } }  else 
{ /* Llib/unicode.scm 1144 */
if(
(BgL_nz00_2193<=251L))
{ /* Llib/unicode.scm 1160 */
 bool_t BgL_test5938z00_12574;
if(
(BgL_rz00_2185<
(BgL_endz00_81-4L)))
{ /* Llib/unicode.scm 1161 */
 bool_t BgL_test5940z00_12578;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5222;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12579;
{ /* Llib/unicode.scm 1161 */
 long BgL_i4172z00_7024;
BgL_i4172z00_7024 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1161 */
 long BgL_l4173z00_7025;
BgL_l4173z00_7025 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4172z00_7024, BgL_l4173z00_7025))
{ /* Llib/unicode.scm 1161 */
BgL_tmpz00_12579 = 
STRING_REF(BgL_strz00_78, BgL_i4172z00_7024)
; }  else 
{ 
 obj_t BgL_auxz00_12585;
BgL_auxz00_12585 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46414L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4173z00_7025), 
(int)(BgL_i4172z00_7024)); 
FAILURE(BgL_auxz00_12585,BFALSE,BFALSE);} } } 
BgL_nz00_5222 = 
(BgL_tmpz00_12579); } 
if(
(BgL_nz00_5222>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5940z00_12578 = 
(BgL_nz00_5222<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5940z00_12578 = ((bool_t)0)
; } } 
if(BgL_test5940z00_12578)
{ /* Llib/unicode.scm 1162 */
 bool_t BgL_test5943z00_12595;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5230;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12596;
{ /* Llib/unicode.scm 1162 */
 long BgL_i4176z00_7028;
BgL_i4176z00_7028 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1162 */
 long BgL_l4177z00_7029;
BgL_l4177z00_7029 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4176z00_7028, BgL_l4177z00_7029))
{ /* Llib/unicode.scm 1162 */
BgL_tmpz00_12596 = 
STRING_REF(BgL_strz00_78, BgL_i4176z00_7028)
; }  else 
{ 
 obj_t BgL_auxz00_12602;
BgL_auxz00_12602 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46468L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4177z00_7029), 
(int)(BgL_i4176z00_7028)); 
FAILURE(BgL_auxz00_12602,BFALSE,BFALSE);} } } 
BgL_nz00_5230 = 
(BgL_tmpz00_12596); } 
if(
(BgL_nz00_5230>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5943z00_12595 = 
(BgL_nz00_5230<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5943z00_12595 = ((bool_t)0)
; } } 
if(BgL_test5943z00_12595)
{ /* Llib/unicode.scm 1163 */
 bool_t BgL_test5946z00_12612;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5238;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12613;
{ /* Llib/unicode.scm 1163 */
 long BgL_i4180z00_7032;
BgL_i4180z00_7032 = 
(BgL_rz00_2185+3L); 
{ /* Llib/unicode.scm 1163 */
 long BgL_l4181z00_7033;
BgL_l4181z00_7033 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4180z00_7032, BgL_l4181z00_7033))
{ /* Llib/unicode.scm 1163 */
BgL_tmpz00_12613 = 
STRING_REF(BgL_strz00_78, BgL_i4180z00_7032)
; }  else 
{ 
 obj_t BgL_auxz00_12619;
BgL_auxz00_12619 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46522L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4181z00_7033), 
(int)(BgL_i4180z00_7032)); 
FAILURE(BgL_auxz00_12619,BFALSE,BFALSE);} } } 
BgL_nz00_5238 = 
(BgL_tmpz00_12613); } 
if(
(BgL_nz00_5238>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5946z00_12612 = 
(BgL_nz00_5238<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5946z00_12612 = ((bool_t)0)
; } } 
if(BgL_test5946z00_12612)
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5246;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12629;
{ /* Llib/unicode.scm 1164 */
 long BgL_i4184z00_7036;
BgL_i4184z00_7036 = 
(BgL_rz00_2185+4L); 
{ /* Llib/unicode.scm 1164 */
 long BgL_l4185z00_7037;
BgL_l4185z00_7037 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4184z00_7036, BgL_l4185z00_7037))
{ /* Llib/unicode.scm 1164 */
BgL_tmpz00_12629 = 
STRING_REF(BgL_strz00_78, BgL_i4184z00_7036)
; }  else 
{ 
 obj_t BgL_auxz00_12635;
BgL_auxz00_12635 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46576L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4185z00_7037), 
(int)(BgL_i4184z00_7036)); 
FAILURE(BgL_auxz00_12635,BFALSE,BFALSE);} } } 
BgL_nz00_5246 = 
(BgL_tmpz00_12629); } 
if(
(BgL_nz00_5246>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5938z00_12574 = 
(BgL_nz00_5246<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5938z00_12574 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1163 */
BgL_test5938z00_12574 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1162 */
BgL_test5938z00_12574 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1161 */
BgL_test5938z00_12574 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1160 */
BgL_test5938z00_12574 = ((bool_t)0)
; } 
if(BgL_test5938z00_12574)
{ /* Llib/unicode.scm 1160 */
{ /* Llib/unicode.scm 1166 */
 long BgL_l4189z00_7041;
BgL_l4189z00_7041 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l4189z00_7041))
{ /* Llib/unicode.scm 1166 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, BgL_cz00_2192); }  else 
{ 
 obj_t BgL_auxz00_12649;
BgL_auxz00_12649 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46639L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4189z00_7041), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_12649,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1167 */
 long BgL_arg2462z00_2553; unsigned char BgL_arg2463z00_2554;
BgL_arg2462z00_2553 = 
(BgL_wz00_2186+1L); 
{ /* Llib/unicode.scm 1167 */
 long BgL_i4192z00_7044;
BgL_i4192z00_7044 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1167 */
 long BgL_l4193z00_7045;
BgL_l4193z00_7045 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4192z00_7044, BgL_l4193z00_7045))
{ /* Llib/unicode.scm 1167 */
BgL_arg2463z00_2554 = 
STRING_REF(BgL_strz00_78, BgL_i4192z00_7044); }  else 
{ 
 obj_t BgL_auxz00_12661;
BgL_auxz00_12661 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46698L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4193z00_7045), 
(int)(BgL_i4192z00_7044)); 
FAILURE(BgL_auxz00_12661,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1167 */
 long BgL_l4197z00_7049;
BgL_l4197z00_7049 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2462z00_2553, BgL_l4197z00_7049))
{ /* Llib/unicode.scm 1167 */
STRING_SET(BgL_resz00_2183, BgL_arg2462z00_2553, BgL_arg2463z00_2554); }  else 
{ 
 obj_t BgL_auxz00_12671;
BgL_auxz00_12671 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46671L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4197z00_7049), 
(int)(BgL_arg2462z00_2553)); 
FAILURE(BgL_auxz00_12671,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1168 */
 long BgL_arg2470z00_2556; unsigned char BgL_arg2472z00_2557;
BgL_arg2470z00_2556 = 
(BgL_wz00_2186+2L); 
{ /* Llib/unicode.scm 1168 */
 long BgL_i4200z00_7052;
BgL_i4200z00_7052 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1168 */
 long BgL_l4201z00_7053;
BgL_l4201z00_7053 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4200z00_7052, BgL_l4201z00_7053))
{ /* Llib/unicode.scm 1168 */
BgL_arg2472z00_2557 = 
STRING_REF(BgL_strz00_78, BgL_i4200z00_7052); }  else 
{ 
 obj_t BgL_auxz00_12683;
BgL_auxz00_12683 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46763L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4201z00_7053), 
(int)(BgL_i4200z00_7052)); 
FAILURE(BgL_auxz00_12683,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1168 */
 long BgL_l4205z00_7057;
BgL_l4205z00_7057 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2470z00_2556, BgL_l4205z00_7057))
{ /* Llib/unicode.scm 1168 */
STRING_SET(BgL_resz00_2183, BgL_arg2470z00_2556, BgL_arg2472z00_2557); }  else 
{ 
 obj_t BgL_auxz00_12693;
BgL_auxz00_12693 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46736L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4205z00_7057), 
(int)(BgL_arg2470z00_2556)); 
FAILURE(BgL_auxz00_12693,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1169 */
 long BgL_arg2474z00_2559; unsigned char BgL_arg2475z00_2560;
BgL_arg2474z00_2559 = 
(BgL_wz00_2186+3L); 
{ /* Llib/unicode.scm 1169 */
 long BgL_i4208z00_7060;
BgL_i4208z00_7060 = 
(BgL_rz00_2185+3L); 
{ /* Llib/unicode.scm 1169 */
 long BgL_l4209z00_7061;
BgL_l4209z00_7061 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4208z00_7060, BgL_l4209z00_7061))
{ /* Llib/unicode.scm 1169 */
BgL_arg2475z00_2560 = 
STRING_REF(BgL_strz00_78, BgL_i4208z00_7060); }  else 
{ 
 obj_t BgL_auxz00_12705;
BgL_auxz00_12705 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46828L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4209z00_7061), 
(int)(BgL_i4208z00_7060)); 
FAILURE(BgL_auxz00_12705,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1169 */
 long BgL_l4213z00_7065;
BgL_l4213z00_7065 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2474z00_2559, BgL_l4213z00_7065))
{ /* Llib/unicode.scm 1169 */
STRING_SET(BgL_resz00_2183, BgL_arg2474z00_2559, BgL_arg2475z00_2560); }  else 
{ 
 obj_t BgL_auxz00_12715;
BgL_auxz00_12715 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46801L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4213z00_7065), 
(int)(BgL_arg2474z00_2559)); 
FAILURE(BgL_auxz00_12715,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1170 */
 long BgL_arg2478z00_2562; unsigned char BgL_arg2479z00_2563;
BgL_arg2478z00_2562 = 
(BgL_wz00_2186+4L); 
{ /* Llib/unicode.scm 1170 */
 long BgL_i4216z00_7068;
BgL_i4216z00_7068 = 
(BgL_rz00_2185+4L); 
{ /* Llib/unicode.scm 1170 */
 long BgL_l4217z00_7069;
BgL_l4217z00_7069 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4216z00_7068, BgL_l4217z00_7069))
{ /* Llib/unicode.scm 1170 */
BgL_arg2479z00_2563 = 
STRING_REF(BgL_strz00_78, BgL_i4216z00_7068); }  else 
{ 
 obj_t BgL_auxz00_12727;
BgL_auxz00_12727 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46893L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4217z00_7069), 
(int)(BgL_i4216z00_7068)); 
FAILURE(BgL_auxz00_12727,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1170 */
 long BgL_l4221z00_7073;
BgL_l4221z00_7073 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2478z00_2562, BgL_l4221z00_7073))
{ /* Llib/unicode.scm 1170 */
STRING_SET(BgL_resz00_2183, BgL_arg2478z00_2562, BgL_arg2479z00_2563); }  else 
{ 
 obj_t BgL_auxz00_12737;
BgL_auxz00_12737 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(46866L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4221z00_7073), 
(int)(BgL_arg2478z00_2562)); 
FAILURE(BgL_auxz00_12737,BFALSE,BFALSE);} } } 
{ 
 bool_t BgL_asciiz00_12747; long BgL_wz00_12745; long BgL_rz00_12743;
BgL_rz00_12743 = 
(BgL_rz00_2185+5L); 
BgL_wz00_12745 = 
(BgL_wz00_2186+5L); 
BgL_asciiz00_12747 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12747; 
BgL_wz00_2186 = BgL_wz00_12745; 
BgL_rz00_2185 = BgL_rz00_12743; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ /* Llib/unicode.scm 1160 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_12753; long BgL_wz00_12751; long BgL_rz00_12749;
BgL_rz00_12749 = 
(BgL_rz00_2185+1L); 
BgL_wz00_12751 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_12753 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12753; 
BgL_wz00_2186 = BgL_wz00_12751; 
BgL_rz00_2185 = BgL_rz00_12749; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } }  else 
{ /* Llib/unicode.scm 1159 */
if(
(BgL_nz00_2193<=253L))
{ /* Llib/unicode.scm 1176 */
 bool_t BgL_test5961z00_12756;
if(
(BgL_rz00_2185<
(BgL_endz00_81-5L)))
{ /* Llib/unicode.scm 1177 */
 bool_t BgL_test5963z00_12760;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5293;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12761;
{ /* Llib/unicode.scm 1177 */
 long BgL_i4224z00_7076;
BgL_i4224z00_7076 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1177 */
 long BgL_l4225z00_7077;
BgL_l4225z00_7077 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4224z00_7076, BgL_l4225z00_7077))
{ /* Llib/unicode.scm 1177 */
BgL_tmpz00_12761 = 
STRING_REF(BgL_strz00_78, BgL_i4224z00_7076)
; }  else 
{ 
 obj_t BgL_auxz00_12767;
BgL_auxz00_12767 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47129L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4225z00_7077), 
(int)(BgL_i4224z00_7076)); 
FAILURE(BgL_auxz00_12767,BFALSE,BFALSE);} } } 
BgL_nz00_5293 = 
(BgL_tmpz00_12761); } 
if(
(BgL_nz00_5293>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5963z00_12760 = 
(BgL_nz00_5293<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5963z00_12760 = ((bool_t)0)
; } } 
if(BgL_test5963z00_12760)
{ /* Llib/unicode.scm 1178 */
 bool_t BgL_test5966z00_12777;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5301;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12778;
{ /* Llib/unicode.scm 1178 */
 long BgL_i4228z00_7080;
BgL_i4228z00_7080 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1178 */
 long BgL_l4229z00_7081;
BgL_l4229z00_7081 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4228z00_7080, BgL_l4229z00_7081))
{ /* Llib/unicode.scm 1178 */
BgL_tmpz00_12778 = 
STRING_REF(BgL_strz00_78, BgL_i4228z00_7080)
; }  else 
{ 
 obj_t BgL_auxz00_12784;
BgL_auxz00_12784 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47183L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4229z00_7081), 
(int)(BgL_i4228z00_7080)); 
FAILURE(BgL_auxz00_12784,BFALSE,BFALSE);} } } 
BgL_nz00_5301 = 
(BgL_tmpz00_12778); } 
if(
(BgL_nz00_5301>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5966z00_12777 = 
(BgL_nz00_5301<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5966z00_12777 = ((bool_t)0)
; } } 
if(BgL_test5966z00_12777)
{ /* Llib/unicode.scm 1179 */
 bool_t BgL_test5969z00_12794;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5309;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12795;
{ /* Llib/unicode.scm 1179 */
 long BgL_i4232z00_7084;
BgL_i4232z00_7084 = 
(BgL_rz00_2185+3L); 
{ /* Llib/unicode.scm 1179 */
 long BgL_l4233z00_7085;
BgL_l4233z00_7085 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4232z00_7084, BgL_l4233z00_7085))
{ /* Llib/unicode.scm 1179 */
BgL_tmpz00_12795 = 
STRING_REF(BgL_strz00_78, BgL_i4232z00_7084)
; }  else 
{ 
 obj_t BgL_auxz00_12801;
BgL_auxz00_12801 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47237L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4233z00_7085), 
(int)(BgL_i4232z00_7084)); 
FAILURE(BgL_auxz00_12801,BFALSE,BFALSE);} } } 
BgL_nz00_5309 = 
(BgL_tmpz00_12795); } 
if(
(BgL_nz00_5309>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5969z00_12794 = 
(BgL_nz00_5309<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5969z00_12794 = ((bool_t)0)
; } } 
if(BgL_test5969z00_12794)
{ /* Llib/unicode.scm 1180 */
 bool_t BgL_test5972z00_12811;
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5317;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12812;
{ /* Llib/unicode.scm 1180 */
 long BgL_i4236z00_7088;
BgL_i4236z00_7088 = 
(BgL_rz00_2185+4L); 
{ /* Llib/unicode.scm 1180 */
 long BgL_l4237z00_7089;
BgL_l4237z00_7089 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4236z00_7088, BgL_l4237z00_7089))
{ /* Llib/unicode.scm 1180 */
BgL_tmpz00_12812 = 
STRING_REF(BgL_strz00_78, BgL_i4236z00_7088)
; }  else 
{ 
 obj_t BgL_auxz00_12818;
BgL_auxz00_12818 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47291L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4237z00_7089), 
(int)(BgL_i4236z00_7088)); 
FAILURE(BgL_auxz00_12818,BFALSE,BFALSE);} } } 
BgL_nz00_5317 = 
(BgL_tmpz00_12812); } 
if(
(BgL_nz00_5317>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5972z00_12811 = 
(BgL_nz00_5317<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5972z00_12811 = ((bool_t)0)
; } } 
if(BgL_test5972z00_12811)
{ /* Llib/unicode.scm 950 */
 long BgL_nz00_5325;
{ /* Llib/unicode.scm 950 */
 unsigned char BgL_tmpz00_12828;
{ /* Llib/unicode.scm 1181 */
 long BgL_i4240z00_7092;
BgL_i4240z00_7092 = 
(BgL_rz00_2185+5L); 
{ /* Llib/unicode.scm 1181 */
 long BgL_l4241z00_7093;
BgL_l4241z00_7093 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4240z00_7092, BgL_l4241z00_7093))
{ /* Llib/unicode.scm 1181 */
BgL_tmpz00_12828 = 
STRING_REF(BgL_strz00_78, BgL_i4240z00_7092)
; }  else 
{ 
 obj_t BgL_auxz00_12834;
BgL_auxz00_12834 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47345L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4241z00_7093), 
(int)(BgL_i4240z00_7092)); 
FAILURE(BgL_auxz00_12834,BFALSE,BFALSE);} } } 
BgL_nz00_5325 = 
(BgL_tmpz00_12828); } 
if(
(BgL_nz00_5325>=128L))
{ /* Llib/unicode.scm 951 */
BgL_test5961z00_12756 = 
(BgL_nz00_5325<=191L)
; }  else 
{ /* Llib/unicode.scm 951 */
BgL_test5961z00_12756 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1180 */
BgL_test5961z00_12756 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1179 */
BgL_test5961z00_12756 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1178 */
BgL_test5961z00_12756 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1177 */
BgL_test5961z00_12756 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1176 */
BgL_test5961z00_12756 = ((bool_t)0)
; } 
if(BgL_test5961z00_12756)
{ /* Llib/unicode.scm 1176 */
{ /* Llib/unicode.scm 1183 */
 long BgL_l4245z00_7097;
BgL_l4245z00_7097 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_wz00_2186, BgL_l4245z00_7097))
{ /* Llib/unicode.scm 1183 */
STRING_SET(BgL_resz00_2183, BgL_wz00_2186, BgL_cz00_2192); }  else 
{ 
 obj_t BgL_auxz00_12848;
BgL_auxz00_12848 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47408L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4245z00_7097), 
(int)(BgL_wz00_2186)); 
FAILURE(BgL_auxz00_12848,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1184 */
 long BgL_arg2533z00_2609; unsigned char BgL_arg2534z00_2610;
BgL_arg2533z00_2609 = 
(BgL_wz00_2186+1L); 
{ /* Llib/unicode.scm 1184 */
 long BgL_i4248z00_7100;
BgL_i4248z00_7100 = 
(BgL_rz00_2185+1L); 
{ /* Llib/unicode.scm 1184 */
 long BgL_l4249z00_7101;
BgL_l4249z00_7101 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4248z00_7100, BgL_l4249z00_7101))
{ /* Llib/unicode.scm 1184 */
BgL_arg2534z00_2610 = 
STRING_REF(BgL_strz00_78, BgL_i4248z00_7100); }  else 
{ 
 obj_t BgL_auxz00_12860;
BgL_auxz00_12860 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47467L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4249z00_7101), 
(int)(BgL_i4248z00_7100)); 
FAILURE(BgL_auxz00_12860,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1184 */
 long BgL_l4253z00_7105;
BgL_l4253z00_7105 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2533z00_2609, BgL_l4253z00_7105))
{ /* Llib/unicode.scm 1184 */
STRING_SET(BgL_resz00_2183, BgL_arg2533z00_2609, BgL_arg2534z00_2610); }  else 
{ 
 obj_t BgL_auxz00_12870;
BgL_auxz00_12870 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47440L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4253z00_7105), 
(int)(BgL_arg2533z00_2609)); 
FAILURE(BgL_auxz00_12870,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1185 */
 long BgL_arg2537z00_2612; unsigned char BgL_arg2539z00_2613;
BgL_arg2537z00_2612 = 
(BgL_wz00_2186+2L); 
{ /* Llib/unicode.scm 1185 */
 long BgL_i4256z00_7108;
BgL_i4256z00_7108 = 
(BgL_rz00_2185+2L); 
{ /* Llib/unicode.scm 1185 */
 long BgL_l4257z00_7109;
BgL_l4257z00_7109 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4256z00_7108, BgL_l4257z00_7109))
{ /* Llib/unicode.scm 1185 */
BgL_arg2539z00_2613 = 
STRING_REF(BgL_strz00_78, BgL_i4256z00_7108); }  else 
{ 
 obj_t BgL_auxz00_12882;
BgL_auxz00_12882 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47532L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4257z00_7109), 
(int)(BgL_i4256z00_7108)); 
FAILURE(BgL_auxz00_12882,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1185 */
 long BgL_l4261z00_7113;
BgL_l4261z00_7113 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2537z00_2612, BgL_l4261z00_7113))
{ /* Llib/unicode.scm 1185 */
STRING_SET(BgL_resz00_2183, BgL_arg2537z00_2612, BgL_arg2539z00_2613); }  else 
{ 
 obj_t BgL_auxz00_12892;
BgL_auxz00_12892 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47505L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4261z00_7113), 
(int)(BgL_arg2537z00_2612)); 
FAILURE(BgL_auxz00_12892,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1186 */
 long BgL_arg2541z00_2615; unsigned char BgL_arg2542z00_2616;
BgL_arg2541z00_2615 = 
(BgL_wz00_2186+3L); 
{ /* Llib/unicode.scm 1186 */
 long BgL_i4264z00_7116;
BgL_i4264z00_7116 = 
(BgL_rz00_2185+3L); 
{ /* Llib/unicode.scm 1186 */
 long BgL_l4265z00_7117;
BgL_l4265z00_7117 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4264z00_7116, BgL_l4265z00_7117))
{ /* Llib/unicode.scm 1186 */
BgL_arg2542z00_2616 = 
STRING_REF(BgL_strz00_78, BgL_i4264z00_7116); }  else 
{ 
 obj_t BgL_auxz00_12904;
BgL_auxz00_12904 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47597L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4265z00_7117), 
(int)(BgL_i4264z00_7116)); 
FAILURE(BgL_auxz00_12904,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1186 */
 long BgL_l4269z00_7121;
BgL_l4269z00_7121 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2541z00_2615, BgL_l4269z00_7121))
{ /* Llib/unicode.scm 1186 */
STRING_SET(BgL_resz00_2183, BgL_arg2541z00_2615, BgL_arg2542z00_2616); }  else 
{ 
 obj_t BgL_auxz00_12914;
BgL_auxz00_12914 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47570L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4269z00_7121), 
(int)(BgL_arg2541z00_2615)); 
FAILURE(BgL_auxz00_12914,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1187 */
 long BgL_arg2545z00_2618; unsigned char BgL_arg2547z00_2619;
BgL_arg2545z00_2618 = 
(BgL_wz00_2186+4L); 
{ /* Llib/unicode.scm 1187 */
 long BgL_i4272z00_7124;
BgL_i4272z00_7124 = 
(BgL_rz00_2185+4L); 
{ /* Llib/unicode.scm 1187 */
 long BgL_l4273z00_7125;
BgL_l4273z00_7125 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4272z00_7124, BgL_l4273z00_7125))
{ /* Llib/unicode.scm 1187 */
BgL_arg2547z00_2619 = 
STRING_REF(BgL_strz00_78, BgL_i4272z00_7124); }  else 
{ 
 obj_t BgL_auxz00_12926;
BgL_auxz00_12926 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47662L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4273z00_7125), 
(int)(BgL_i4272z00_7124)); 
FAILURE(BgL_auxz00_12926,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1187 */
 long BgL_l4277z00_7129;
BgL_l4277z00_7129 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2545z00_2618, BgL_l4277z00_7129))
{ /* Llib/unicode.scm 1187 */
STRING_SET(BgL_resz00_2183, BgL_arg2545z00_2618, BgL_arg2547z00_2619); }  else 
{ 
 obj_t BgL_auxz00_12936;
BgL_auxz00_12936 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47635L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4277z00_7129), 
(int)(BgL_arg2545z00_2618)); 
FAILURE(BgL_auxz00_12936,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1188 */
 long BgL_arg2549z00_2621; unsigned char BgL_arg2550z00_2622;
BgL_arg2549z00_2621 = 
(BgL_wz00_2186+5L); 
{ /* Llib/unicode.scm 1188 */
 long BgL_i4280z00_7132;
BgL_i4280z00_7132 = 
(BgL_rz00_2185+5L); 
{ /* Llib/unicode.scm 1188 */
 long BgL_l4281z00_7133;
BgL_l4281z00_7133 = 
STRING_LENGTH(BgL_strz00_78); 
if(
BOUND_CHECK(BgL_i4280z00_7132, BgL_l4281z00_7133))
{ /* Llib/unicode.scm 1188 */
BgL_arg2550z00_2622 = 
STRING_REF(BgL_strz00_78, BgL_i4280z00_7132); }  else 
{ 
 obj_t BgL_auxz00_12948;
BgL_auxz00_12948 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47727L), BGl_string5022z00zz__unicodez00, BgL_strz00_78, 
(int)(BgL_l4281z00_7133), 
(int)(BgL_i4280z00_7132)); 
FAILURE(BgL_auxz00_12948,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1188 */
 long BgL_l4285z00_7137;
BgL_l4285z00_7137 = 
STRING_LENGTH(BgL_resz00_2183); 
if(
BOUND_CHECK(BgL_arg2549z00_2621, BgL_l4285z00_7137))
{ /* Llib/unicode.scm 1188 */
STRING_SET(BgL_resz00_2183, BgL_arg2549z00_2621, BgL_arg2550z00_2622); }  else 
{ 
 obj_t BgL_auxz00_12958;
BgL_auxz00_12958 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(47700L), BGl_string5041z00zz__unicodez00, BgL_resz00_2183, 
(int)(BgL_l4285z00_7137), 
(int)(BgL_arg2549z00_2621)); 
FAILURE(BgL_auxz00_12958,BFALSE,BFALSE);} } } 
{ 
 bool_t BgL_asciiz00_12968; long BgL_wz00_12966; long BgL_rz00_12964;
BgL_rz00_12964 = 
(BgL_rz00_2185+6L); 
BgL_wz00_12966 = 
(BgL_wz00_2186+6L); 
BgL_asciiz00_12968 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12968; 
BgL_wz00_2186 = BgL_wz00_12966; 
BgL_rz00_2185 = BgL_rz00_12964; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} }  else 
{ /* Llib/unicode.scm 1176 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_12974; long BgL_wz00_12972; long BgL_rz00_12970;
BgL_rz00_12970 = 
(BgL_rz00_2185+1L); 
BgL_wz00_12972 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_12974 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12974; 
BgL_wz00_2186 = BgL_wz00_12972; 
BgL_rz00_2185 = BgL_rz00_12970; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } }  else 
{ /* Llib/unicode.scm 1175 */
BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(BgL_resz00_2183, BgL_wz00_2186); 
{ 
 bool_t BgL_asciiz00_12980; long BgL_wz00_12978; long BgL_rz00_12976;
BgL_rz00_12976 = 
(BgL_rz00_2185+1L); 
BgL_wz00_12978 = 
(BgL_wz00_2186+3L); 
BgL_asciiz00_12980 = ((bool_t)0); 
BgL_asciiz00_2187 = BgL_asciiz00_12980; 
BgL_wz00_2186 = BgL_wz00_12978; 
BgL_rz00_2185 = BgL_rz00_12976; 
goto BgL_zc3z04anonymousza32093ze3z87_2188;} } } } } } } } } } } } } } } } } } } } } 

}



/* string-unicode-fix!~0 */
obj_t BGl_stringzd2unicodezd2fixz12ze70zf5zz__unicodez00(obj_t BgL_sz00_2662, long BgL_jz00_2663)
{
{ /* Llib/unicode.scm 955 */
{ /* Llib/unicode.scm 955 */
 long BgL_l4289z00_7141;
BgL_l4289z00_7141 = 
STRING_LENGTH(BgL_sz00_2662); 
if(
BOUND_CHECK(BgL_jz00_2663, BgL_l4289z00_7141))
{ /* Llib/unicode.scm 955 */
STRING_SET(BgL_sz00_2662, BgL_jz00_2663, ((unsigned char)239)); }  else 
{ 
 obj_t BgL_auxz00_12985;
BgL_auxz00_12985 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38759L), BGl_string5041z00zz__unicodez00, BgL_sz00_2662, 
(int)(BgL_l4289z00_7141), 
(int)(BgL_jz00_2663)); 
FAILURE(BgL_auxz00_12985,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 956 */
 long BgL_arg2580z00_2665;
BgL_arg2580z00_2665 = 
(BgL_jz00_2663+1L); 
{ /* Llib/unicode.scm 956 */
 long BgL_l4293z00_7145;
BgL_l4293z00_7145 = 
STRING_LENGTH(BgL_sz00_2662); 
if(
BOUND_CHECK(BgL_arg2580z00_2665, BgL_l4293z00_7145))
{ /* Llib/unicode.scm 956 */
STRING_SET(BgL_sz00_2662, BgL_arg2580z00_2665, ((unsigned char)191)); }  else 
{ 
 obj_t BgL_auxz00_12996;
BgL_auxz00_12996 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38789L), BGl_string5041z00zz__unicodez00, BgL_sz00_2662, 
(int)(BgL_l4293z00_7145), 
(int)(BgL_arg2580z00_2665)); 
FAILURE(BgL_auxz00_12996,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 957 */
 long BgL_arg2581z00_2666;
BgL_arg2581z00_2666 = 
(BgL_jz00_2663+2L); 
{ /* Llib/unicode.scm 957 */
 long BgL_l4297z00_7149;
BgL_l4297z00_7149 = 
STRING_LENGTH(BgL_sz00_2662); 
if(
BOUND_CHECK(BgL_arg2581z00_2666, BgL_l4297z00_7149))
{ /* Llib/unicode.scm 957 */
return 
STRING_SET(BgL_sz00_2662, BgL_arg2581z00_2666, ((unsigned char)189));}  else 
{ 
 obj_t BgL_auxz00_13007;
BgL_auxz00_13007 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(38827L), BGl_string5041z00zz__unicodez00, BgL_sz00_2662, 
(int)(BgL_l4297z00_7149), 
(int)(BgL_arg2581z00_2666)); 
FAILURE(BgL_auxz00_13007,BFALSE,BFALSE);} } } } 

}



/* utf8-char-size */
BGL_EXPORTED_DEF long BGl_utf8zd2charzd2siza7eza7zz__unicodez00(unsigned char BgL_cz00_84)
{
{ /* Llib/unicode.scm 1201 */
{ /* Llib/unicode.scm 1203 */
 long BgL_arg2582z00_7785;
BgL_arg2582z00_7785 = 
(
(
(unsigned char)(BgL_cz00_84)) >> 
(int)(4L)); 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_vectorz00_7786;
BgL_vectorz00_7786 = BGl_vector5048z00zz__unicodez00; 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_tmpz00_13017;
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_aux4719z00_7787;
BgL_aux4719z00_7787 = 
VECTOR_REF(BgL_vectorz00_7786,BgL_arg2582z00_7785); 
if(
INTEGERP(BgL_aux4719z00_7787))
{ /* Llib/unicode.scm 1202 */
BgL_tmpz00_13017 = BgL_aux4719z00_7787
; }  else 
{ 
 obj_t BgL_auxz00_13021;
BgL_auxz00_13021 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(48257L), BGl_string5050z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_aux4719z00_7787); 
FAILURE(BgL_auxz00_13021,BFALSE,BFALSE);} } 
return 
(long)CINT(BgL_tmpz00_13017);} } } } 

}



/* &utf8-char-size */
obj_t BGl_z62utf8zd2charzd2siza7ezc5zz__unicodez00(obj_t BgL_envz00_6201, obj_t BgL_cz00_6202)
{
{ /* Llib/unicode.scm 1201 */
{ /* Llib/unicode.scm 1203 */
 long BgL_tmpz00_13026;
{ /* Llib/unicode.scm 1203 */
 unsigned char BgL_auxz00_13027;
{ /* Llib/unicode.scm 1203 */
 obj_t BgL_tmpz00_13028;
if(
CHARP(BgL_cz00_6202))
{ /* Llib/unicode.scm 1203 */
BgL_tmpz00_13028 = BgL_cz00_6202
; }  else 
{ 
 obj_t BgL_auxz00_13031;
BgL_auxz00_13031 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(48323L), BGl_string5051z00zz__unicodez00, BGl_string5052z00zz__unicodez00, BgL_cz00_6202); 
FAILURE(BgL_auxz00_13031,BFALSE,BFALSE);} 
BgL_auxz00_13027 = 
CCHAR(BgL_tmpz00_13028); } 
BgL_tmpz00_13026 = 
BGl_utf8zd2charzd2siza7eza7zz__unicodez00(BgL_auxz00_13027); } 
return 
BINT(BgL_tmpz00_13026);} } 

}



/* utf8-string-length */
BGL_EXPORTED_DEF long BGl_utf8zd2stringzd2lengthz00zz__unicodez00(obj_t BgL_strz00_86)
{
{ /* Llib/unicode.scm 1217 */
{ /* Llib/unicode.scm 1218 */
 long BgL_lenz00_2673;
BgL_lenz00_2673 = 
STRING_LENGTH(BgL_strz00_86); 
{ 
 long BgL_rz00_5397; long BgL_lz00_5398;
BgL_rz00_5397 = 0L; 
BgL_lz00_5398 = 0L; 
BgL_loopz00_5396:
if(
(BgL_rz00_5397==BgL_lenz00_2673))
{ /* Llib/unicode.scm 1221 */
return BgL_lz00_5398;}  else 
{ /* Llib/unicode.scm 1223 */
 long BgL_arg2589z00_5402; long BgL_arg2590z00_5403;
{ /* Llib/unicode.scm 1223 */
 long BgL_arg2591z00_5404;
{ /* Llib/unicode.scm 1223 */
 unsigned char BgL_arg2592z00_5405;
{ /* Llib/unicode.scm 1223 */
 long BgL_l4301z00_7153;
BgL_l4301z00_7153 = 
STRING_LENGTH(BgL_strz00_86); 
if(
BOUND_CHECK(BgL_rz00_5397, BgL_l4301z00_7153))
{ /* Llib/unicode.scm 1223 */
BgL_arg2592z00_5405 = 
STRING_REF(BgL_strz00_86, BgL_rz00_5397); }  else 
{ 
 obj_t BgL_auxz00_13045;
BgL_auxz00_13045 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(49228L), BGl_string5022z00zz__unicodez00, BgL_strz00_86, 
(int)(BgL_l4301z00_7153), 
(int)(BgL_rz00_5397)); 
FAILURE(BgL_auxz00_13045,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1223 */
 long BgL_res3414z00_5408;
{ /* Llib/unicode.scm 1223 */
 unsigned char BgL_cz00_5409;
BgL_cz00_5409 = 
(char)(BgL_arg2592z00_5405); 
{ /* Llib/unicode.scm 1203 */
 long BgL_arg2582z00_5410;
BgL_arg2582z00_5410 = 
(
(
(unsigned char)(BgL_cz00_5409)) >> 
(int)(4L)); 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_vectorz00_5414;
BgL_vectorz00_5414 = BGl_vector5048z00zz__unicodez00; 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_tmpz00_13056;
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_aux4722z00_7574;
BgL_aux4722z00_7574 = 
VECTOR_REF(BgL_vectorz00_5414,BgL_arg2582z00_5410); 
if(
INTEGERP(BgL_aux4722z00_7574))
{ /* Llib/unicode.scm 1202 */
BgL_tmpz00_13056 = BgL_aux4722z00_7574
; }  else 
{ 
 obj_t BgL_auxz00_13060;
BgL_auxz00_13060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(48257L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_aux4722z00_7574); 
FAILURE(BgL_auxz00_13060,BFALSE,BFALSE);} } 
BgL_res3414z00_5408 = 
(long)CINT(BgL_tmpz00_13056); } } } } 
BgL_arg2591z00_5404 = BgL_res3414z00_5408; } } 
BgL_arg2589z00_5402 = 
(BgL_rz00_5397+BgL_arg2591z00_5404); } 
BgL_arg2590z00_5403 = 
(BgL_lz00_5398+1L); 
{ 
 long BgL_lz00_13068; long BgL_rz00_13067;
BgL_rz00_13067 = BgL_arg2589z00_5402; 
BgL_lz00_13068 = BgL_arg2590z00_5403; 
BgL_lz00_5398 = BgL_lz00_13068; 
BgL_rz00_5397 = BgL_rz00_13067; 
goto BgL_loopz00_5396;} } } } } 

}



/* &utf8-string-length */
obj_t BGl_z62utf8zd2stringzd2lengthz62zz__unicodez00(obj_t BgL_envz00_6203, obj_t BgL_strz00_6204)
{
{ /* Llib/unicode.scm 1217 */
{ /* Llib/unicode.scm 1218 */
 long BgL_tmpz00_13069;
{ /* Llib/unicode.scm 1218 */
 obj_t BgL_auxz00_13070;
if(
STRINGP(BgL_strz00_6204))
{ /* Llib/unicode.scm 1218 */
BgL_auxz00_13070 = BgL_strz00_6204
; }  else 
{ 
 obj_t BgL_auxz00_13073;
BgL_auxz00_13073 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(49101L), BGl_string5053z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6204); 
FAILURE(BgL_auxz00_13073,BFALSE,BFALSE);} 
BgL_tmpz00_13069 = 
BGl_utf8zd2stringzd2lengthz00zz__unicodez00(BgL_auxz00_13070); } 
return 
BINT(BgL_tmpz00_13069);} } 

}



/* utf8-string-ref */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2stringzd2refz00zz__unicodez00(obj_t BgL_strz00_87, long BgL_iz00_88)
{
{ /* Llib/unicode.scm 1228 */
{ 
 long BgL_rz00_2686; long BgL_iz00_2687;
BgL_rz00_2686 = 0L; 
BgL_iz00_2687 = BgL_iz00_88; 
BgL_zc3z04anonymousza32593ze3z87_2688:
{ /* Llib/unicode.scm 1231 */
 unsigned char BgL_cz00_2689;
{ /* Llib/unicode.scm 1231 */
 long BgL_l4305z00_7157;
BgL_l4305z00_7157 = 
STRING_LENGTH(BgL_strz00_87); 
if(
BOUND_CHECK(BgL_rz00_2686, BgL_l4305z00_7157))
{ /* Llib/unicode.scm 1231 */
BgL_cz00_2689 = 
STRING_REF(BgL_strz00_87, BgL_rz00_2686); }  else 
{ 
 obj_t BgL_auxz00_13083;
BgL_auxz00_13083 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(49597L), BGl_string5022z00zz__unicodez00, BgL_strz00_87, 
(int)(BgL_l4305z00_7157), 
(int)(BgL_rz00_2686)); 
FAILURE(BgL_auxz00_13083,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1231 */
 long BgL_sz00_2690;
{ /* Llib/unicode.scm 1232 */
 long BgL_res3415z00_5429;
{ /* Llib/unicode.scm 1232 */
 unsigned char BgL_cz00_5422;
BgL_cz00_5422 = 
(char)(BgL_cz00_2689); 
{ /* Llib/unicode.scm 1203 */
 long BgL_arg2582z00_5423;
BgL_arg2582z00_5423 = 
(
(
(unsigned char)(BgL_cz00_5422)) >> 
(int)(4L)); 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_vectorz00_5427;
BgL_vectorz00_5427 = BGl_vector5048z00zz__unicodez00; 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_tmpz00_13094;
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_aux4725z00_7577;
BgL_aux4725z00_7577 = 
VECTOR_REF(BgL_vectorz00_5427,BgL_arg2582z00_5423); 
if(
INTEGERP(BgL_aux4725z00_7577))
{ /* Llib/unicode.scm 1202 */
BgL_tmpz00_13094 = BgL_aux4725z00_7577
; }  else 
{ 
 obj_t BgL_auxz00_13098;
BgL_auxz00_13098 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(48257L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_aux4725z00_7577); 
FAILURE(BgL_auxz00_13098,BFALSE,BFALSE);} } 
BgL_res3415z00_5429 = 
(long)CINT(BgL_tmpz00_13094); } } } } 
BgL_sz00_2690 = BgL_res3415z00_5429; } 
{ /* Llib/unicode.scm 1232 */

if(
(BgL_iz00_2687==0L))
{ /* Llib/unicode.scm 1233 */
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_87, BgL_rz00_2686, 
(BgL_rz00_2686+BgL_sz00_2690));}  else 
{ 
 long BgL_iz00_13109; long BgL_rz00_13107;
BgL_rz00_13107 = 
(BgL_rz00_2686+BgL_sz00_2690); 
BgL_iz00_13109 = 
(BgL_iz00_2687-1L); 
BgL_iz00_2687 = BgL_iz00_13109; 
BgL_rz00_2686 = BgL_rz00_13107; 
goto BgL_zc3z04anonymousza32593ze3z87_2688;} } } } } } 

}



/* &utf8-string-ref */
obj_t BGl_z62utf8zd2stringzd2refz62zz__unicodez00(obj_t BgL_envz00_6205, obj_t BgL_strz00_6206, obj_t BgL_iz00_6207)
{
{ /* Llib/unicode.scm 1228 */
{ /* Llib/unicode.scm 1231 */
 long BgL_auxz00_13118; obj_t BgL_auxz00_13111;
{ /* Llib/unicode.scm 1231 */
 obj_t BgL_tmpz00_13119;
if(
INTEGERP(BgL_iz00_6207))
{ /* Llib/unicode.scm 1231 */
BgL_tmpz00_13119 = BgL_iz00_6207
; }  else 
{ 
 obj_t BgL_auxz00_13122;
BgL_auxz00_13122 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(49587L), BGl_string5054z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_iz00_6207); 
FAILURE(BgL_auxz00_13122,BFALSE,BFALSE);} 
BgL_auxz00_13118 = 
(long)CINT(BgL_tmpz00_13119); } 
if(
STRINGP(BgL_strz00_6206))
{ /* Llib/unicode.scm 1231 */
BgL_auxz00_13111 = BgL_strz00_6206
; }  else 
{ 
 obj_t BgL_auxz00_13114;
BgL_auxz00_13114 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(49587L), BGl_string5054z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6206); 
FAILURE(BgL_auxz00_13114,BFALSE,BFALSE);} 
return 
BGl_utf8zd2stringzd2refz00zz__unicodez00(BgL_auxz00_13111, BgL_auxz00_13118);} } 

}



/* utf8-string-index->string-index */
BGL_EXPORTED_DEF long BGl_utf8zd2stringzd2indexzd2ze3stringzd2indexze3zz__unicodez00(obj_t BgL_strz00_89, long BgL_iz00_90)
{
{ /* Llib/unicode.scm 1240 */
if(
(BgL_iz00_90<0L))
{ /* Llib/unicode.scm 1242 */
return (-1L);}  else 
{ /* Llib/unicode.scm 1245 */
 long BgL_lenz00_2697;
BgL_lenz00_2697 = 
STRING_LENGTH(BgL_strz00_89); 
{ 
 long BgL_rz00_2699; long BgL_iz00_2700;
BgL_rz00_2699 = 0L; 
BgL_iz00_2700 = BgL_iz00_90; 
BgL_zc3z04anonymousza32599ze3z87_2701:
if(
(BgL_iz00_2700==0L))
{ /* Llib/unicode.scm 1248 */
return BgL_rz00_2699;}  else 
{ /* Llib/unicode.scm 1248 */
if(
(BgL_rz00_2699<BgL_lenz00_2697))
{ /* Llib/unicode.scm 1252 */
 long BgL_arg2602z00_2705; long BgL_arg2603z00_2706;
{ /* Llib/unicode.scm 1252 */
 long BgL_arg2604z00_2707;
{ /* Llib/unicode.scm 1252 */
 long BgL_res3416z00_5450;
{ /* Llib/unicode.scm 1252 */
 unsigned char BgL_cz00_5443;
{ /* Llib/unicode.scm 1251 */
 long BgL_l4309z00_7161;
BgL_l4309z00_7161 = 
STRING_LENGTH(BgL_strz00_89); 
if(
BOUND_CHECK(BgL_rz00_2699, BgL_l4309z00_7161))
{ /* Llib/unicode.scm 1251 */
BgL_cz00_5443 = 
(char)(
STRING_REF(BgL_strz00_89, BgL_rz00_2699)); }  else 
{ 
 obj_t BgL_auxz00_13140;
BgL_auxz00_13140 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(50171L), BGl_string5022z00zz__unicodez00, BgL_strz00_89, 
(int)(BgL_l4309z00_7161), 
(int)(BgL_rz00_2699)); 
FAILURE(BgL_auxz00_13140,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1203 */
 long BgL_arg2582z00_5444;
BgL_arg2582z00_5444 = 
(
(
(unsigned char)(BgL_cz00_5443)) >> 
(int)(4L)); 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_vectorz00_5448;
BgL_vectorz00_5448 = BGl_vector5048z00zz__unicodez00; 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_tmpz00_13150;
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_aux4729z00_7581;
BgL_aux4729z00_7581 = 
VECTOR_REF(BgL_vectorz00_5448,BgL_arg2582z00_5444); 
if(
INTEGERP(BgL_aux4729z00_7581))
{ /* Llib/unicode.scm 1202 */
BgL_tmpz00_13150 = BgL_aux4729z00_7581
; }  else 
{ 
 obj_t BgL_auxz00_13154;
BgL_auxz00_13154 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(48257L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_aux4729z00_7581); 
FAILURE(BgL_auxz00_13154,BFALSE,BFALSE);} } 
BgL_res3416z00_5450 = 
(long)CINT(BgL_tmpz00_13150); } } } } 
BgL_arg2604z00_2707 = BgL_res3416z00_5450; } 
BgL_arg2602z00_2705 = 
(BgL_rz00_2699+BgL_arg2604z00_2707); } 
BgL_arg2603z00_2706 = 
(BgL_iz00_2700-1L); 
{ 
 long BgL_iz00_13162; long BgL_rz00_13161;
BgL_rz00_13161 = BgL_arg2602z00_2705; 
BgL_iz00_13162 = BgL_arg2603z00_2706; 
BgL_iz00_2700 = BgL_iz00_13162; 
BgL_rz00_2699 = BgL_rz00_13161; 
goto BgL_zc3z04anonymousza32599ze3z87_2701;} }  else 
{ /* Llib/unicode.scm 1250 */
return (-1L);} } } } } 

}



/* &utf8-string-index->string-index */
obj_t BGl_z62utf8zd2stringzd2indexzd2ze3stringzd2indexz81zz__unicodez00(obj_t BgL_envz00_6208, obj_t BgL_strz00_6209, obj_t BgL_iz00_6210)
{
{ /* Llib/unicode.scm 1240 */
{ /* Llib/unicode.scm 1242 */
 long BgL_tmpz00_13163;
{ /* Llib/unicode.scm 1242 */
 long BgL_auxz00_13171; obj_t BgL_auxz00_13164;
{ /* Llib/unicode.scm 1242 */
 obj_t BgL_tmpz00_13172;
if(
INTEGERP(BgL_iz00_6210))
{ /* Llib/unicode.scm 1242 */
BgL_tmpz00_13172 = BgL_iz00_6210
; }  else 
{ 
 obj_t BgL_auxz00_13175;
BgL_auxz00_13175 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(50012L), BGl_string5055z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_iz00_6210); 
FAILURE(BgL_auxz00_13175,BFALSE,BFALSE);} 
BgL_auxz00_13171 = 
(long)CINT(BgL_tmpz00_13172); } 
if(
STRINGP(BgL_strz00_6209))
{ /* Llib/unicode.scm 1242 */
BgL_auxz00_13164 = BgL_strz00_6209
; }  else 
{ 
 obj_t BgL_auxz00_13167;
BgL_auxz00_13167 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(50012L), BGl_string5055z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6209); 
FAILURE(BgL_auxz00_13167,BFALSE,BFALSE);} 
BgL_tmpz00_13163 = 
BGl_utf8zd2stringzd2indexzd2ze3stringzd2indexze3zz__unicodez00(BgL_auxz00_13164, BgL_auxz00_13171); } 
return 
BINT(BgL_tmpz00_13163);} } 

}



/* string-index->utf8-string-index */
BGL_EXPORTED_DEF long BGl_stringzd2indexzd2ze3utf8zd2stringzd2indexze3zz__unicodez00(obj_t BgL_strz00_91, long BgL_iz00_92)
{
{ /* Llib/unicode.scm 1259 */
if(
(BgL_iz00_92<0L))
{ /* Llib/unicode.scm 1261 */
return (-1L);}  else 
{ /* Llib/unicode.scm 1264 */
 long BgL_lenz00_2710;
BgL_lenz00_2710 = 
STRING_LENGTH(BgL_strz00_91); 
{ 
 long BgL_mz00_2712; long BgL_jz00_2713; long BgL_iz00_2714;
BgL_mz00_2712 = 0L; 
BgL_jz00_2713 = BgL_iz00_92; 
BgL_iz00_2714 = BgL_iz00_92; 
BgL_zc3z04anonymousza32606ze3z87_2715:
if(
(BgL_iz00_2714<=0L))
{ /* Llib/unicode.scm 1269 */
return BgL_jz00_2713;}  else 
{ /* Llib/unicode.scm 1269 */
if(
(BgL_mz00_2712>=BgL_lenz00_2710))
{ /* Llib/unicode.scm 1271 */
return (-1L);}  else 
{ /* Llib/unicode.scm 1274 */
 long BgL_sz00_2719;
{ /* Llib/unicode.scm 1275 */
 long BgL_res3417z00_5468;
{ /* Llib/unicode.scm 1275 */
 unsigned char BgL_cz00_5461;
{ /* Llib/unicode.scm 1274 */
 long BgL_l4313z00_7165;
BgL_l4313z00_7165 = 
STRING_LENGTH(BgL_strz00_91); 
if(
BOUND_CHECK(BgL_mz00_2712, BgL_l4313z00_7165))
{ /* Llib/unicode.scm 1274 */
BgL_cz00_5461 = 
(char)(
STRING_REF(BgL_strz00_91, BgL_mz00_2712)); }  else 
{ 
 obj_t BgL_auxz00_13194;
BgL_auxz00_13194 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(50748L), BGl_string5022z00zz__unicodez00, BgL_strz00_91, 
(int)(BgL_l4313z00_7165), 
(int)(BgL_mz00_2712)); 
FAILURE(BgL_auxz00_13194,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1203 */
 long BgL_arg2582z00_5462;
BgL_arg2582z00_5462 = 
(
(
(unsigned char)(BgL_cz00_5461)) >> 
(int)(4L)); 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_vectorz00_5466;
BgL_vectorz00_5466 = BGl_vector5048z00zz__unicodez00; 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_tmpz00_13204;
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_aux4733z00_7585;
BgL_aux4733z00_7585 = 
VECTOR_REF(BgL_vectorz00_5466,BgL_arg2582z00_5462); 
if(
INTEGERP(BgL_aux4733z00_7585))
{ /* Llib/unicode.scm 1202 */
BgL_tmpz00_13204 = BgL_aux4733z00_7585
; }  else 
{ 
 obj_t BgL_auxz00_13208;
BgL_auxz00_13208 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(48257L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_aux4733z00_7585); 
FAILURE(BgL_auxz00_13208,BFALSE,BFALSE);} } 
BgL_res3417z00_5468 = 
(long)CINT(BgL_tmpz00_13204); } } } } 
BgL_sz00_2719 = BgL_res3417z00_5468; } 
{ /* Llib/unicode.scm 1275 */

{ 
 long BgL_iz00_13218; long BgL_jz00_13215; long BgL_mz00_13213;
BgL_mz00_13213 = 
(BgL_mz00_2712+BgL_sz00_2719); 
BgL_jz00_13215 = 
(BgL_jz00_2713-
(BgL_sz00_2719-1L)); 
BgL_iz00_13218 = 
(BgL_iz00_2714-BgL_sz00_2719); 
BgL_iz00_2714 = BgL_iz00_13218; 
BgL_jz00_2713 = BgL_jz00_13215; 
BgL_mz00_2712 = BgL_mz00_13213; 
goto BgL_zc3z04anonymousza32606ze3z87_2715;} } } } } } } 

}



/* &string-index->utf8-string-index */
obj_t BGl_z62stringzd2indexzd2ze3utf8zd2stringzd2indexz81zz__unicodez00(obj_t BgL_envz00_6211, obj_t BgL_strz00_6212, obj_t BgL_iz00_6213)
{
{ /* Llib/unicode.scm 1259 */
{ /* Llib/unicode.scm 1261 */
 long BgL_tmpz00_13220;
{ /* Llib/unicode.scm 1261 */
 long BgL_auxz00_13228; obj_t BgL_auxz00_13221;
{ /* Llib/unicode.scm 1261 */
 obj_t BgL_tmpz00_13229;
if(
INTEGERP(BgL_iz00_6213))
{ /* Llib/unicode.scm 1261 */
BgL_tmpz00_13229 = BgL_iz00_6213
; }  else 
{ 
 obj_t BgL_auxz00_13232;
BgL_auxz00_13232 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(50551L), BGl_string5056z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_iz00_6213); 
FAILURE(BgL_auxz00_13232,BFALSE,BFALSE);} 
BgL_auxz00_13228 = 
(long)CINT(BgL_tmpz00_13229); } 
if(
STRINGP(BgL_strz00_6212))
{ /* Llib/unicode.scm 1261 */
BgL_auxz00_13221 = BgL_strz00_6212
; }  else 
{ 
 obj_t BgL_auxz00_13224;
BgL_auxz00_13224 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(50551L), BGl_string5056z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6212); 
FAILURE(BgL_auxz00_13224,BFALSE,BFALSE);} 
BgL_tmpz00_13220 = 
BGl_stringzd2indexzd2ze3utf8zd2stringzd2indexze3zz__unicodez00(BgL_auxz00_13221, BgL_auxz00_13228); } 
return 
BINT(BgL_tmpz00_13220);} } 

}



/* utf8-string-left-replacement? */
BGL_EXPORTED_DEF bool_t BGl_utf8zd2stringzd2leftzd2replacementzf3z21zz__unicodez00(obj_t BgL_strz00_93, long BgL_lenz00_94, long BgL_indexz00_95)
{
{ /* Llib/unicode.scm 1284 */
if(
(BgL_lenz00_94>=
(BgL_indexz00_95+4L)))
{ /* Llib/unicode.scm 1286 */
 long BgL_tmpz00_13242;
{ /* Llib/unicode.scm 1286 */
 unsigned char BgL_tmpz00_13243;
{ /* Llib/unicode.scm 1286 */
 long BgL_l4317z00_7788;
BgL_l4317z00_7788 = 
STRING_LENGTH(BgL_strz00_93); 
if(
BOUND_CHECK(BgL_indexz00_95, BgL_l4317z00_7788))
{ /* Llib/unicode.scm 1286 */
BgL_tmpz00_13243 = 
STRING_REF(BgL_strz00_93, BgL_indexz00_95)
; }  else 
{ 
 obj_t BgL_auxz00_13248;
BgL_auxz00_13248 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(51414L), BGl_string5022z00zz__unicodez00, BgL_strz00_93, 
(int)(BgL_l4317z00_7788), 
(int)(BgL_indexz00_95)); 
FAILURE(BgL_auxz00_13248,BFALSE,BFALSE);} } 
BgL_tmpz00_13242 = 
(BgL_tmpz00_13243); } 
return 
(BgL_tmpz00_13242==248L);}  else 
{ /* Llib/unicode.scm 1285 */
return ((bool_t)0);} } 

}



/* &utf8-string-left-replacement? */
obj_t BGl_z62utf8zd2stringzd2leftzd2replacementzf3z43zz__unicodez00(obj_t BgL_envz00_6214, obj_t BgL_strz00_6215, obj_t BgL_lenz00_6216, obj_t BgL_indexz00_6217)
{
{ /* Llib/unicode.scm 1284 */
{ /* Llib/unicode.scm 1285 */
 bool_t BgL_tmpz00_13256;
{ /* Llib/unicode.scm 1285 */
 long BgL_auxz00_13273; long BgL_auxz00_13264; obj_t BgL_auxz00_13257;
{ /* Llib/unicode.scm 1285 */
 obj_t BgL_tmpz00_13274;
if(
INTEGERP(BgL_indexz00_6217))
{ /* Llib/unicode.scm 1285 */
BgL_tmpz00_13274 = BgL_indexz00_6217
; }  else 
{ 
 obj_t BgL_auxz00_13277;
BgL_auxz00_13277 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(51368L), BGl_string5057z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_indexz00_6217); 
FAILURE(BgL_auxz00_13277,BFALSE,BFALSE);} 
BgL_auxz00_13273 = 
(long)CINT(BgL_tmpz00_13274); } 
{ /* Llib/unicode.scm 1285 */
 obj_t BgL_tmpz00_13265;
if(
INTEGERP(BgL_lenz00_6216))
{ /* Llib/unicode.scm 1285 */
BgL_tmpz00_13265 = BgL_lenz00_6216
; }  else 
{ 
 obj_t BgL_auxz00_13268;
BgL_auxz00_13268 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(51368L), BGl_string5057z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_lenz00_6216); 
FAILURE(BgL_auxz00_13268,BFALSE,BFALSE);} 
BgL_auxz00_13264 = 
(long)CINT(BgL_tmpz00_13265); } 
if(
STRINGP(BgL_strz00_6215))
{ /* Llib/unicode.scm 1285 */
BgL_auxz00_13257 = BgL_strz00_6215
; }  else 
{ 
 obj_t BgL_auxz00_13260;
BgL_auxz00_13260 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(51368L), BGl_string5057z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6215); 
FAILURE(BgL_auxz00_13260,BFALSE,BFALSE);} 
BgL_tmpz00_13256 = 
BGl_utf8zd2stringzd2leftzd2replacementzf3z21zz__unicodez00(BgL_auxz00_13257, BgL_auxz00_13264, BgL_auxz00_13273); } 
return 
BBOOL(BgL_tmpz00_13256);} } 

}



/* utf8-string-right-replacement? */
BGL_EXPORTED_DEF bool_t BGl_utf8zd2stringzd2rightzd2replacementzf3z21zz__unicodez00(obj_t BgL_strz00_96, long BgL_lenz00_97, long BgL_indexz00_98)
{
{ /* Llib/unicode.scm 1294 */
if(
(BgL_lenz00_97>=
(BgL_indexz00_98+4L)))
{ /* Llib/unicode.scm 1296 */
 long BgL_tmpz00_13287;
{ /* Llib/unicode.scm 1296 */
 unsigned char BgL_tmpz00_13288;
{ /* Llib/unicode.scm 1296 */
 long BgL_l4321z00_7789;
BgL_l4321z00_7789 = 
STRING_LENGTH(BgL_strz00_96); 
if(
BOUND_CHECK(BgL_indexz00_98, BgL_l4321z00_7789))
{ /* Llib/unicode.scm 1296 */
BgL_tmpz00_13288 = 
STRING_REF(BgL_strz00_96, BgL_indexz00_98)
; }  else 
{ 
 obj_t BgL_auxz00_13293;
BgL_auxz00_13293 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(52010L), BGl_string5022z00zz__unicodez00, BgL_strz00_96, 
(int)(BgL_l4321z00_7789), 
(int)(BgL_indexz00_98)); 
FAILURE(BgL_auxz00_13293,BFALSE,BFALSE);} } 
BgL_tmpz00_13287 = 
(BgL_tmpz00_13288); } 
return 
(BgL_tmpz00_13287==252L);}  else 
{ /* Llib/unicode.scm 1295 */
return ((bool_t)0);} } 

}



/* &utf8-string-right-replacement? */
obj_t BGl_z62utf8zd2stringzd2rightzd2replacementzf3z43zz__unicodez00(obj_t BgL_envz00_6218, obj_t BgL_strz00_6219, obj_t BgL_lenz00_6220, obj_t BgL_indexz00_6221)
{
{ /* Llib/unicode.scm 1294 */
{ /* Llib/unicode.scm 1295 */
 bool_t BgL_tmpz00_13301;
{ /* Llib/unicode.scm 1295 */
 long BgL_auxz00_13318; long BgL_auxz00_13309; obj_t BgL_auxz00_13302;
{ /* Llib/unicode.scm 1295 */
 obj_t BgL_tmpz00_13319;
if(
INTEGERP(BgL_indexz00_6221))
{ /* Llib/unicode.scm 1295 */
BgL_tmpz00_13319 = BgL_indexz00_6221
; }  else 
{ 
 obj_t BgL_auxz00_13322;
BgL_auxz00_13322 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(51964L), BGl_string5058z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_indexz00_6221); 
FAILURE(BgL_auxz00_13322,BFALSE,BFALSE);} 
BgL_auxz00_13318 = 
(long)CINT(BgL_tmpz00_13319); } 
{ /* Llib/unicode.scm 1295 */
 obj_t BgL_tmpz00_13310;
if(
INTEGERP(BgL_lenz00_6220))
{ /* Llib/unicode.scm 1295 */
BgL_tmpz00_13310 = BgL_lenz00_6220
; }  else 
{ 
 obj_t BgL_auxz00_13313;
BgL_auxz00_13313 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(51964L), BGl_string5058z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_lenz00_6220); 
FAILURE(BgL_auxz00_13313,BFALSE,BFALSE);} 
BgL_auxz00_13309 = 
(long)CINT(BgL_tmpz00_13310); } 
if(
STRINGP(BgL_strz00_6219))
{ /* Llib/unicode.scm 1295 */
BgL_auxz00_13302 = BgL_strz00_6219
; }  else 
{ 
 obj_t BgL_auxz00_13305;
BgL_auxz00_13305 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(51964L), BGl_string5058z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6219); 
FAILURE(BgL_auxz00_13305,BFALSE,BFALSE);} 
BgL_tmpz00_13301 = 
BGl_utf8zd2stringzd2rightzd2replacementzf3z21zz__unicodez00(BgL_auxz00_13302, BgL_auxz00_13309, BgL_auxz00_13318); } 
return 
BBOOL(BgL_tmpz00_13301);} } 

}



/* utf8-collapse! */
obj_t BGl_utf8zd2collapsez12zc0zz__unicodez00(obj_t BgL_bufferz00_99, long BgL_indexbz00_100, obj_t BgL_strz00_101, obj_t BgL_indexsz00_102)
{
{ /* Llib/unicode.scm 1301 */
{ /* Llib/unicode.scm 1303 */
 long BgL_cl1z00_2733;
{ /* Llib/unicode.scm 1303 */
 unsigned char BgL_tmpz00_13329;
{ /* Llib/unicode.scm 1303 */
 long BgL_i4324z00_7176;
BgL_i4324z00_7176 = 
(BgL_indexbz00_100-4L); 
{ /* Llib/unicode.scm 1303 */
 long BgL_l4325z00_7177;
BgL_l4325z00_7177 = 
STRING_LENGTH(BgL_bufferz00_99); 
if(
BOUND_CHECK(BgL_i4324z00_7176, BgL_l4325z00_7177))
{ /* Llib/unicode.scm 1303 */
BgL_tmpz00_13329 = 
STRING_REF(BgL_bufferz00_99, BgL_i4324z00_7176)
; }  else 
{ 
 obj_t BgL_auxz00_13335;
BgL_auxz00_13335 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(52377L), BGl_string5022z00zz__unicodez00, BgL_bufferz00_99, 
(int)(BgL_l4325z00_7177), 
(int)(BgL_i4324z00_7176)); 
FAILURE(BgL_auxz00_13335,BFALSE,BFALSE);} } } 
BgL_cl1z00_2733 = 
(BgL_tmpz00_13329); } 
{ /* Llib/unicode.scm 1303 */
 long BgL_cl2z00_2734;
{ /* Llib/unicode.scm 1304 */
 unsigned char BgL_tmpz00_13342;
{ /* Llib/unicode.scm 1304 */
 long BgL_i4328z00_7180;
BgL_i4328z00_7180 = 
(BgL_indexbz00_100-3L); 
{ /* Llib/unicode.scm 1304 */
 long BgL_l4329z00_7181;
BgL_l4329z00_7181 = 
STRING_LENGTH(BgL_bufferz00_99); 
if(
BOUND_CHECK(BgL_i4328z00_7180, BgL_l4329z00_7181))
{ /* Llib/unicode.scm 1304 */
BgL_tmpz00_13342 = 
STRING_REF(BgL_bufferz00_99, BgL_i4328z00_7180)
; }  else 
{ 
 obj_t BgL_auxz00_13348;
BgL_auxz00_13348 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(52440L), BGl_string5022z00zz__unicodez00, BgL_bufferz00_99, 
(int)(BgL_l4329z00_7181), 
(int)(BgL_i4328z00_7180)); 
FAILURE(BgL_auxz00_13348,BFALSE,BFALSE);} } } 
BgL_cl2z00_2734 = 
(BgL_tmpz00_13342); } 
{ /* Llib/unicode.scm 1304 */
 long BgL_cl3z00_2735;
{ /* Llib/unicode.scm 1305 */
 unsigned char BgL_tmpz00_13355;
{ /* Llib/unicode.scm 1305 */
 long BgL_i4332z00_7184;
BgL_i4332z00_7184 = 
(BgL_indexbz00_100-2L); 
{ /* Llib/unicode.scm 1305 */
 long BgL_l4333z00_7185;
BgL_l4333z00_7185 = 
STRING_LENGTH(BgL_bufferz00_99); 
if(
BOUND_CHECK(BgL_i4332z00_7184, BgL_l4333z00_7185))
{ /* Llib/unicode.scm 1305 */
BgL_tmpz00_13355 = 
STRING_REF(BgL_bufferz00_99, BgL_i4332z00_7184)
; }  else 
{ 
 obj_t BgL_auxz00_13361;
BgL_auxz00_13361 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(52503L), BGl_string5022z00zz__unicodez00, BgL_bufferz00_99, 
(int)(BgL_l4333z00_7185), 
(int)(BgL_i4332z00_7184)); 
FAILURE(BgL_auxz00_13361,BFALSE,BFALSE);} } } 
BgL_cl3z00_2735 = 
(BgL_tmpz00_13355); } 
{ /* Llib/unicode.scm 1305 */
 long BgL_cl4z00_2736;
{ /* Llib/unicode.scm 1306 */
 unsigned char BgL_tmpz00_13368;
{ /* Llib/unicode.scm 1306 */
 long BgL_i4336z00_7188;
BgL_i4336z00_7188 = 
(BgL_indexbz00_100-1L); 
{ /* Llib/unicode.scm 1306 */
 long BgL_l4337z00_7189;
BgL_l4337z00_7189 = 
STRING_LENGTH(BgL_bufferz00_99); 
if(
BOUND_CHECK(BgL_i4336z00_7188, BgL_l4337z00_7189))
{ /* Llib/unicode.scm 1306 */
BgL_tmpz00_13368 = 
STRING_REF(BgL_bufferz00_99, BgL_i4336z00_7188)
; }  else 
{ 
 obj_t BgL_auxz00_13374;
BgL_auxz00_13374 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(52566L), BGl_string5022z00zz__unicodez00, BgL_bufferz00_99, 
(int)(BgL_l4337z00_7189), 
(int)(BgL_i4336z00_7188)); 
FAILURE(BgL_auxz00_13374,BFALSE,BFALSE);} } } 
BgL_cl4z00_2736 = 
(BgL_tmpz00_13368); } 
{ /* Llib/unicode.scm 1307 */
 long BgL_cr3z00_2738;
{ /* Llib/unicode.scm 1308 */
 unsigned char BgL_tmpz00_13381;
{ /* Llib/unicode.scm 1308 */
 long BgL_i4340z00_7192;
{ /* Llib/unicode.scm 1308 */
 long BgL_za71za7_5518;
{ /* Llib/unicode.scm 1308 */
 obj_t BgL_tmpz00_13382;
if(
INTEGERP(BgL_indexsz00_102))
{ /* Llib/unicode.scm 1308 */
BgL_tmpz00_13382 = BgL_indexsz00_102
; }  else 
{ 
 obj_t BgL_auxz00_13385;
BgL_auxz00_13385 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(52713L), BGl_string5059z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_indexsz00_102); 
FAILURE(BgL_auxz00_13385,BFALSE,BFALSE);} 
BgL_za71za7_5518 = 
(long)CINT(BgL_tmpz00_13382); } 
BgL_i4340z00_7192 = 
(BgL_za71za7_5518+2L); } 
{ /* Llib/unicode.scm 1308 */
 long BgL_l4341z00_7193;
BgL_l4341z00_7193 = 
STRING_LENGTH(BgL_strz00_101); 
if(
BOUND_CHECK(BgL_i4340z00_7192, BgL_l4341z00_7193))
{ /* Llib/unicode.scm 1308 */
BgL_tmpz00_13381 = 
STRING_REF(BgL_strz00_101, BgL_i4340z00_7192)
; }  else 
{ 
 obj_t BgL_auxz00_13395;
BgL_auxz00_13395 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(52689L), BGl_string5022z00zz__unicodez00, BgL_strz00_101, 
(int)(BgL_l4341z00_7193), 
(int)(BgL_i4340z00_7192)); 
FAILURE(BgL_auxz00_13395,BFALSE,BFALSE);} } } 
BgL_cr3z00_2738 = 
(BgL_tmpz00_13381); } 
{ /* Llib/unicode.scm 1308 */
 long BgL_cr4z00_2739;
{ /* Llib/unicode.scm 1309 */
 unsigned char BgL_tmpz00_13402;
{ /* Llib/unicode.scm 1309 */
 long BgL_i4344z00_7196;
{ /* Llib/unicode.scm 1309 */
 long BgL_za71za7_5522;
{ /* Llib/unicode.scm 1309 */
 obj_t BgL_tmpz00_13403;
if(
INTEGERP(BgL_indexsz00_102))
{ /* Llib/unicode.scm 1309 */
BgL_tmpz00_13403 = BgL_indexsz00_102
; }  else 
{ 
 obj_t BgL_auxz00_13406;
BgL_auxz00_13406 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(52773L), BGl_string5059z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_indexsz00_102); 
FAILURE(BgL_auxz00_13406,BFALSE,BFALSE);} 
BgL_za71za7_5522 = 
(long)CINT(BgL_tmpz00_13403); } 
BgL_i4344z00_7196 = 
(BgL_za71za7_5522+3L); } 
{ /* Llib/unicode.scm 1309 */
 long BgL_l4345z00_7197;
BgL_l4345z00_7197 = 
STRING_LENGTH(BgL_strz00_101); 
if(
BOUND_CHECK(BgL_i4344z00_7196, BgL_l4345z00_7197))
{ /* Llib/unicode.scm 1309 */
BgL_tmpz00_13402 = 
STRING_REF(BgL_strz00_101, BgL_i4344z00_7196)
; }  else 
{ 
 obj_t BgL_auxz00_13416;
BgL_auxz00_13416 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(52749L), BGl_string5022z00zz__unicodez00, BgL_strz00_101, 
(int)(BgL_l4345z00_7197), 
(int)(BgL_i4344z00_7196)); 
FAILURE(BgL_auxz00_13416,BFALSE,BFALSE);} } } 
BgL_cr4z00_2739 = 
(BgL_tmpz00_13402); } 
{ /* Llib/unicode.scm 1310 */
 long BgL_yyyyz00_2741;
BgL_yyyyz00_2741 = 
(15L & BgL_cr3z00_2738); 
{ /* Llib/unicode.scm 1311 */
 long BgL_xxz00_2742;
BgL_xxz00_2742 = 
(
(BgL_cl3z00_2735 >> 
(int)(4L)) & 3L); 
{ /* Llib/unicode.scm 1313 */
 long BgL_uuuuuz00_2744;
BgL_uuuuuz00_2744 = 
(
(
(BgL_cl4z00_2736 & 7L) << 
(int)(2L)) | 
(
(BgL_cl2z00_2734 >> 
(int)(4L)) & 3L)); 
{ /* Llib/unicode.scm 1314 */

{ /* Llib/unicode.scm 1318 */
 long BgL_arg2621z00_2745; unsigned char BgL_arg2622z00_2746;
BgL_arg2621z00_2745 = 
(BgL_indexbz00_100-4L); 
BgL_arg2622z00_2746 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(
(BgL_cl1z00_2733 & 240L) | 
(BgL_uuuuuz00_2744 >> 
(int)(2L)))); 
{ /* Llib/unicode.scm 1318 */
 long BgL_l4349z00_7201;
BgL_l4349z00_7201 = 
STRING_LENGTH(BgL_bufferz00_99); 
if(
BOUND_CHECK(BgL_arg2621z00_2745, BgL_l4349z00_7201))
{ /* Llib/unicode.scm 1318 */
STRING_SET(BgL_bufferz00_99, BgL_arg2621z00_2745, BgL_arg2622z00_2746); }  else 
{ 
 obj_t BgL_auxz00_13444;
BgL_auxz00_13444 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(53040L), BGl_string5041z00zz__unicodez00, BgL_bufferz00_99, 
(int)(BgL_l4349z00_7201), 
(int)(BgL_arg2621z00_2745)); 
FAILURE(BgL_auxz00_13444,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1324 */
 long BgL_arg2626z00_2750; unsigned char BgL_arg2628z00_2751;
BgL_arg2626z00_2750 = 
(BgL_indexbz00_100-3L); 
BgL_arg2628z00_2751 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_cl2z00_2734); 
{ /* Llib/unicode.scm 1324 */
 long BgL_l4353z00_7205;
BgL_l4353z00_7205 = 
STRING_LENGTH(BgL_bufferz00_99); 
if(
BOUND_CHECK(BgL_arg2626z00_2750, BgL_l4353z00_7205))
{ /* Llib/unicode.scm 1324 */
STRING_SET(BgL_bufferz00_99, BgL_arg2626z00_2750, BgL_arg2628z00_2751); }  else 
{ 
 obj_t BgL_auxz00_13456;
BgL_auxz00_13456 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(53189L), BGl_string5041z00zz__unicodez00, BgL_bufferz00_99, 
(int)(BgL_l4353z00_7205), 
(int)(BgL_arg2626z00_2750)); 
FAILURE(BgL_auxz00_13456,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1327 */
 long BgL_arg2629z00_2752; unsigned char BgL_arg2630z00_2753;
BgL_arg2629z00_2752 = 
(BgL_indexbz00_100-2L); 
BgL_arg2630z00_2753 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(128L | 
(
(BgL_xxz00_2742 << 
(int)(4L)) | BgL_yyyyz00_2741))); 
{ /* Llib/unicode.scm 1327 */
 long BgL_l4357z00_7209;
BgL_l4357z00_7209 = 
STRING_LENGTH(BgL_bufferz00_99); 
if(
BOUND_CHECK(BgL_arg2629z00_2752, BgL_l4357z00_7209))
{ /* Llib/unicode.scm 1327 */
STRING_SET(BgL_bufferz00_99, BgL_arg2629z00_2752, BgL_arg2630z00_2753); }  else 
{ 
 obj_t BgL_auxz00_13472;
BgL_auxz00_13472 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(53269L), BGl_string5041z00zz__unicodez00, BgL_bufferz00_99, 
(int)(BgL_l4357z00_7209), 
(int)(BgL_arg2629z00_2752)); 
FAILURE(BgL_auxz00_13472,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1332 */
 long BgL_arg2636z00_2757; unsigned char BgL_arg2638z00_2758;
BgL_arg2636z00_2757 = 
(BgL_indexbz00_100-1L); 
BgL_arg2638z00_2758 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_cr4z00_2739); 
{ /* Llib/unicode.scm 1332 */
 long BgL_l4361z00_7213;
BgL_l4361z00_7213 = 
STRING_LENGTH(BgL_bufferz00_99); 
if(
BOUND_CHECK(BgL_arg2636z00_2757, BgL_l4361z00_7213))
{ /* Llib/unicode.scm 1332 */
return 
STRING_SET(BgL_bufferz00_99, BgL_arg2636z00_2757, BgL_arg2638z00_2758);}  else 
{ 
 obj_t BgL_auxz00_13484;
BgL_auxz00_13484 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(53401L), BGl_string5041z00zz__unicodez00, BgL_bufferz00_99, 
(int)(BgL_l4361z00_7213), 
(int)(BgL_arg2636z00_2757)); 
FAILURE(BgL_auxz00_13484,BFALSE,BFALSE);} } } } } } } } } } } } } } 

}



/* _utf8-string-append-fill! */
obj_t BGl__utf8zd2stringzd2appendzd2fillz12zc0zz__unicodez00(obj_t BgL_env1142z00_108, obj_t BgL_opt1141z00_107)
{
{ /* Llib/unicode.scm 1344 */
{ /* Llib/unicode.scm 1344 */
 obj_t BgL_g1143z00_2778; obj_t BgL_g1144z00_2779; obj_t BgL_g1145z00_2780;
{ 
 obj_t BgL_auxz00_13490;
if(
VECTORP(BgL_opt1141z00_107))
{ /* Llib/unicode.scm 1344 */
BgL_auxz00_13490 = BgL_opt1141z00_107
; }  else 
{ 
 obj_t BgL_auxz00_13493;
BgL_auxz00_13493 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5060z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1141z00_107); 
FAILURE(BgL_auxz00_13493,BFALSE,BFALSE);} 
BgL_g1143z00_2778 = 
VECTOR_REF(BgL_auxz00_13490,0L); } 
{ 
 obj_t BgL_auxz00_13498;
if(
VECTORP(BgL_opt1141z00_107))
{ /* Llib/unicode.scm 1344 */
BgL_auxz00_13498 = BgL_opt1141z00_107
; }  else 
{ 
 obj_t BgL_auxz00_13501;
BgL_auxz00_13501 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5060z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1141z00_107); 
FAILURE(BgL_auxz00_13501,BFALSE,BFALSE);} 
BgL_g1144z00_2779 = 
VECTOR_REF(BgL_auxz00_13498,1L); } 
{ 
 obj_t BgL_auxz00_13506;
if(
VECTORP(BgL_opt1141z00_107))
{ /* Llib/unicode.scm 1344 */
BgL_auxz00_13506 = BgL_opt1141z00_107
; }  else 
{ 
 obj_t BgL_auxz00_13509;
BgL_auxz00_13509 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5060z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1141z00_107); 
FAILURE(BgL_auxz00_13509,BFALSE,BFALSE);} 
BgL_g1145z00_2780 = 
VECTOR_REF(BgL_auxz00_13506,2L); } 
{ 

{ /* Llib/unicode.scm 1344 */
 long BgL_aux1147z00_2782;
{ 
 obj_t BgL_auxz00_13514;
if(
VECTORP(BgL_opt1141z00_107))
{ /* Llib/unicode.scm 1344 */
BgL_auxz00_13514 = BgL_opt1141z00_107
; }  else 
{ 
 obj_t BgL_auxz00_13517;
BgL_auxz00_13517 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5060z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1141z00_107); 
FAILURE(BgL_auxz00_13517,BFALSE,BFALSE);} 
BgL_aux1147z00_2782 = 
VECTOR_LENGTH(BgL_auxz00_13514); } 
switch( BgL_aux1147z00_2782) { case 3L : 

{ /* Llib/unicode.scm 1344 */

{ /* Llib/unicode.scm 1344 */
 long BgL_tmpz00_13522;
{ /* Llib/unicode.scm 1344 */
 obj_t BgL_auxz00_13539; long BgL_auxz00_13530; obj_t BgL_auxz00_13523;
if(
STRINGP(BgL_g1145z00_2780))
{ /* Llib/unicode.scm 1344 */
BgL_auxz00_13539 = BgL_g1145z00_2780
; }  else 
{ 
 obj_t BgL_auxz00_13542;
BgL_auxz00_13542 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5060z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_g1145z00_2780); 
FAILURE(BgL_auxz00_13542,BFALSE,BFALSE);} 
{ /* Llib/unicode.scm 1344 */
 obj_t BgL_tmpz00_13531;
if(
INTEGERP(BgL_g1144z00_2779))
{ /* Llib/unicode.scm 1344 */
BgL_tmpz00_13531 = BgL_g1144z00_2779
; }  else 
{ 
 obj_t BgL_auxz00_13534;
BgL_auxz00_13534 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5060z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_g1144z00_2779); 
FAILURE(BgL_auxz00_13534,BFALSE,BFALSE);} 
BgL_auxz00_13530 = 
(long)CINT(BgL_tmpz00_13531); } 
if(
STRINGP(BgL_g1143z00_2778))
{ /* Llib/unicode.scm 1344 */
BgL_auxz00_13523 = BgL_g1143z00_2778
; }  else 
{ 
 obj_t BgL_auxz00_13526;
BgL_auxz00_13526 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5060z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_g1143z00_2778); 
FAILURE(BgL_auxz00_13526,BFALSE,BFALSE);} 
BgL_tmpz00_13522 = 
BGl_utf8zd2stringzd2appendzd2fillz12zc0zz__unicodez00(BgL_auxz00_13523, BgL_auxz00_13530, BgL_auxz00_13539, 
BINT(0L)); } 
return 
BINT(BgL_tmpz00_13522);} } break;case 4L : 

{ /* Llib/unicode.scm 1344 */
 obj_t BgL_offsetz00_2784;
{ 
 obj_t BgL_auxz00_13549;
if(
VECTORP(BgL_opt1141z00_107))
{ /* Llib/unicode.scm 1344 */
BgL_auxz00_13549 = BgL_opt1141z00_107
; }  else 
{ 
 obj_t BgL_auxz00_13552;
BgL_auxz00_13552 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5060z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1141z00_107); 
FAILURE(BgL_auxz00_13552,BFALSE,BFALSE);} 
BgL_offsetz00_2784 = 
VECTOR_REF(BgL_auxz00_13549,3L); } 
{ /* Llib/unicode.scm 1344 */

{ /* Llib/unicode.scm 1344 */
 long BgL_tmpz00_13557;
{ /* Llib/unicode.scm 1344 */
 obj_t BgL_auxz00_13574; long BgL_auxz00_13565; obj_t BgL_auxz00_13558;
if(
STRINGP(BgL_g1145z00_2780))
{ /* Llib/unicode.scm 1344 */
BgL_auxz00_13574 = BgL_g1145z00_2780
; }  else 
{ 
 obj_t BgL_auxz00_13577;
BgL_auxz00_13577 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5060z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_g1145z00_2780); 
FAILURE(BgL_auxz00_13577,BFALSE,BFALSE);} 
{ /* Llib/unicode.scm 1344 */
 obj_t BgL_tmpz00_13566;
if(
INTEGERP(BgL_g1144z00_2779))
{ /* Llib/unicode.scm 1344 */
BgL_tmpz00_13566 = BgL_g1144z00_2779
; }  else 
{ 
 obj_t BgL_auxz00_13569;
BgL_auxz00_13569 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5060z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_g1144z00_2779); 
FAILURE(BgL_auxz00_13569,BFALSE,BFALSE);} 
BgL_auxz00_13565 = 
(long)CINT(BgL_tmpz00_13566); } 
if(
STRINGP(BgL_g1143z00_2778))
{ /* Llib/unicode.scm 1344 */
BgL_auxz00_13558 = BgL_g1143z00_2778
; }  else 
{ 
 obj_t BgL_auxz00_13561;
BgL_auxz00_13561 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5060z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_g1143z00_2778); 
FAILURE(BgL_auxz00_13561,BFALSE,BFALSE);} 
BgL_tmpz00_13557 = 
BGl_utf8zd2stringzd2appendzd2fillz12zc0zz__unicodez00(BgL_auxz00_13558, BgL_auxz00_13565, BgL_auxz00_13574, BgL_offsetz00_2784); } 
return 
BINT(BgL_tmpz00_13557);} } } break;
default: 
{ /* Llib/unicode.scm 1344 */
 long BgL_arg2676z00_2785;
{ 
 obj_t BgL_auxz00_13583;
if(
VECTORP(BgL_opt1141z00_107))
{ /* Llib/unicode.scm 1344 */
BgL_auxz00_13583 = BgL_opt1141z00_107
; }  else 
{ 
 obj_t BgL_auxz00_13586;
BgL_auxz00_13586 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54131L), BGl_string5061z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1141z00_107); 
FAILURE(BgL_auxz00_13586,BFALSE,BFALSE);} 
BgL_arg2676z00_2785 = 
VECTOR_LENGTH(BgL_auxz00_13583); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol5062z00zz__unicodez00, BGl_string5064z00zz__unicodez00, 
BINT(BgL_arg2676z00_2785));} } } } } } 

}



/* utf8-string-append-fill! */
BGL_EXPORTED_DEF long BGl_utf8zd2stringzd2appendzd2fillz12zc0zz__unicodez00(obj_t BgL_bufferz00_103, long BgL_indexz00_104, obj_t BgL_strz00_105, obj_t BgL_offsetz00_106)
{
{ /* Llib/unicode.scm 1344 */
{ /* Llib/unicode.scm 1345 */
 long BgL_lenz00_2786;
BgL_lenz00_2786 = 
STRING_LENGTH(BgL_strz00_105); 
{ /* Llib/unicode.scm 1347 */
 bool_t BgL_test6050z00_13595;
if(
(BgL_indexz00_104>=4L))
{ /* Llib/unicode.scm 1348 */
 bool_t BgL_test6052z00_13598;
{ /* Llib/unicode.scm 1348 */
 long BgL_indexz00_5565;
{ /* Llib/unicode.scm 1348 */
 obj_t BgL_tmpz00_13599;
if(
INTEGERP(BgL_offsetz00_106))
{ /* Llib/unicode.scm 1348 */
BgL_tmpz00_13599 = BgL_offsetz00_106
; }  else 
{ 
 obj_t BgL_auxz00_13602;
BgL_auxz00_13602 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54324L), BGl_string5063z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_offsetz00_106); 
FAILURE(BgL_auxz00_13602,BFALSE,BFALSE);} 
BgL_indexz00_5565 = 
(long)CINT(BgL_tmpz00_13599); } 
if(
(BgL_lenz00_2786>=
(BgL_indexz00_5565+4L)))
{ /* Llib/unicode.scm 1296 */
 long BgL_tmpz00_13610;
{ /* Llib/unicode.scm 1296 */
 unsigned char BgL_tmpz00_13611;
{ /* Llib/unicode.scm 1296 */
 long BgL_l4365z00_7217;
BgL_l4365z00_7217 = 
STRING_LENGTH(BgL_strz00_105); 
if(
BOUND_CHECK(BgL_indexz00_5565, BgL_l4365z00_7217))
{ /* Llib/unicode.scm 1296 */
BgL_tmpz00_13611 = 
STRING_REF(BgL_strz00_105, BgL_indexz00_5565)
; }  else 
{ 
 obj_t BgL_auxz00_13616;
BgL_auxz00_13616 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(52010L), BGl_string5022z00zz__unicodez00, BgL_strz00_105, 
(int)(BgL_l4365z00_7217), 
(int)(BgL_indexz00_5565)); 
FAILURE(BgL_auxz00_13616,BFALSE,BFALSE);} } 
BgL_tmpz00_13610 = 
(BgL_tmpz00_13611); } 
BgL_test6052z00_13598 = 
(BgL_tmpz00_13610==252L); }  else 
{ /* Llib/unicode.scm 1295 */
BgL_test6052z00_13598 = ((bool_t)0)
; } } 
if(BgL_test6052z00_13598)
{ /* Llib/unicode.scm 1349 */
 long BgL_indexz00_5580;
BgL_indexz00_5580 = 
(BgL_indexz00_104-4L); 
if(
(BgL_indexz00_104>=
(BgL_indexz00_5580+4L)))
{ /* Llib/unicode.scm 1286 */
 long BgL_tmpz00_13628;
{ /* Llib/unicode.scm 1286 */
 unsigned char BgL_tmpz00_13629;
{ /* Llib/unicode.scm 1286 */
 long BgL_l4369z00_7221;
BgL_l4369z00_7221 = 
STRING_LENGTH(BgL_bufferz00_103); 
if(
BOUND_CHECK(BgL_indexz00_5580, BgL_l4369z00_7221))
{ /* Llib/unicode.scm 1286 */
BgL_tmpz00_13629 = 
STRING_REF(BgL_bufferz00_103, BgL_indexz00_5580)
; }  else 
{ 
 obj_t BgL_auxz00_13634;
BgL_auxz00_13634 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(51414L), BGl_string5022z00zz__unicodez00, BgL_bufferz00_103, 
(int)(BgL_l4369z00_7221), 
(int)(BgL_indexz00_5580)); 
FAILURE(BgL_auxz00_13634,BFALSE,BFALSE);} } 
BgL_tmpz00_13628 = 
(BgL_tmpz00_13629); } 
BgL_test6050z00_13595 = 
(BgL_tmpz00_13628==248L); }  else 
{ /* Llib/unicode.scm 1285 */
BgL_test6050z00_13595 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1348 */
BgL_test6050z00_13595 = ((bool_t)0)
; } }  else 
{ /* Llib/unicode.scm 1347 */
BgL_test6050z00_13595 = ((bool_t)0)
; } 
if(BgL_test6050z00_13595)
{ /* Llib/unicode.scm 1347 */
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_strz00_105, 4L, BgL_bufferz00_103, BgL_indexz00_104, 
(BgL_lenz00_2786-4L)); 
BGl_utf8zd2collapsez12zc0zz__unicodez00(BgL_bufferz00_103, BgL_indexz00_104, BgL_strz00_105, BgL_offsetz00_106); 
return 
(BgL_indexz00_104+
(BgL_lenz00_2786-4L));}  else 
{ /* Llib/unicode.scm 1347 */
{ /* Llib/unicode.scm 1355 */
 long BgL_arg2684z00_2793;
{ /* Llib/unicode.scm 1355 */
 long BgL_za72za7_5597;
{ /* Llib/unicode.scm 1355 */
 obj_t BgL_tmpz00_13647;
if(
INTEGERP(BgL_offsetz00_106))
{ /* Llib/unicode.scm 1355 */
BgL_tmpz00_13647 = BgL_offsetz00_106
; }  else 
{ 
 obj_t BgL_auxz00_13650;
BgL_auxz00_13650 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54603L), BGl_string5063z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_offsetz00_106); 
FAILURE(BgL_auxz00_13650,BFALSE,BFALSE);} 
BgL_za72za7_5597 = 
(long)CINT(BgL_tmpz00_13647); } 
BgL_arg2684z00_2793 = 
(BgL_lenz00_2786-BgL_za72za7_5597); } 
{ /* Llib/unicode.scm 1355 */
 long BgL_auxz00_13656;
{ /* Llib/unicode.scm 1355 */
 obj_t BgL_tmpz00_13657;
if(
INTEGERP(BgL_offsetz00_106))
{ /* Llib/unicode.scm 1355 */
BgL_tmpz00_13657 = BgL_offsetz00_106
; }  else 
{ 
 obj_t BgL_auxz00_13660;
BgL_auxz00_13660 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54556L), BGl_string5063z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_offsetz00_106); 
FAILURE(BgL_auxz00_13660,BFALSE,BFALSE);} 
BgL_auxz00_13656 = 
(long)CINT(BgL_tmpz00_13657); } 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_strz00_105, BgL_auxz00_13656, BgL_bufferz00_103, BgL_indexz00_104, BgL_arg2684z00_2793); } } 
{ /* Llib/unicode.scm 1356 */
 long BgL_tmpz00_13666;
{ /* Llib/unicode.scm 1356 */
 long BgL_za72za7_5599;
{ /* Llib/unicode.scm 1356 */
 obj_t BgL_tmpz00_13667;
if(
INTEGERP(BgL_offsetz00_106))
{ /* Llib/unicode.scm 1356 */
BgL_tmpz00_13667 = BgL_offsetz00_106
; }  else 
{ 
 obj_t BgL_auxz00_13670;
BgL_auxz00_13670 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(54635L), BGl_string5063z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_offsetz00_106); 
FAILURE(BgL_auxz00_13670,BFALSE,BFALSE);} 
BgL_za72za7_5599 = 
(long)CINT(BgL_tmpz00_13667); } 
BgL_tmpz00_13666 = 
(BgL_lenz00_2786-BgL_za72za7_5599); } 
return 
(BgL_indexz00_104+BgL_tmpz00_13666);} } } } } 

}



/* utf8-string-append */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2stringzd2appendz00zz__unicodez00(obj_t BgL_leftz00_109, obj_t BgL_rightz00_110)
{
{ /* Llib/unicode.scm 1366 */
{ /* Llib/unicode.scm 1367 */
 long BgL_llenz00_2798;
BgL_llenz00_2798 = 
STRING_LENGTH(BgL_leftz00_109); 
{ /* Llib/unicode.scm 1367 */
 long BgL_rlenz00_2799;
BgL_rlenz00_2799 = 
STRING_LENGTH(BgL_rightz00_110); 
{ /* Llib/unicode.scm 1368 */
 obj_t BgL_bufferz00_2800;
BgL_bufferz00_2800 = 
make_string_sans_fill(
(BgL_llenz00_2798+BgL_rlenz00_2799)); 
{ /* Llib/unicode.scm 1369 */

BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_leftz00_109, 0L, BgL_bufferz00_2800, 0L, BgL_llenz00_2798); 
{ /* Llib/unicode.scm 1371 */
 long BgL_nindexz00_2801;
{ /* Llib/unicode.scm 181 */

BgL_nindexz00_2801 = 
BGl_utf8zd2stringzd2appendzd2fillz12zc0zz__unicodez00(BgL_bufferz00_2800, BgL_llenz00_2798, BgL_rightz00_110, 
BINT(0L)); } 
return 
bgl_string_shrink(BgL_bufferz00_2800, BgL_nindexz00_2801);} } } } } } 

}



/* &utf8-string-append */
obj_t BGl_z62utf8zd2stringzd2appendz62zz__unicodez00(obj_t BgL_envz00_6222, obj_t BgL_leftz00_6223, obj_t BgL_rightz00_6224)
{
{ /* Llib/unicode.scm 1366 */
{ /* Llib/unicode.scm 1367 */
 obj_t BgL_auxz00_13692; obj_t BgL_auxz00_13685;
if(
STRINGP(BgL_rightz00_6224))
{ /* Llib/unicode.scm 1367 */
BgL_auxz00_13692 = BgL_rightz00_6224
; }  else 
{ 
 obj_t BgL_auxz00_13695;
BgL_auxz00_13695 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(55284L), BGl_string5065z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_rightz00_6224); 
FAILURE(BgL_auxz00_13695,BFALSE,BFALSE);} 
if(
STRINGP(BgL_leftz00_6223))
{ /* Llib/unicode.scm 1367 */
BgL_auxz00_13685 = BgL_leftz00_6223
; }  else 
{ 
 obj_t BgL_auxz00_13688;
BgL_auxz00_13688 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(55284L), BGl_string5065z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_leftz00_6223); 
FAILURE(BgL_auxz00_13688,BFALSE,BFALSE);} 
return 
BGl_utf8zd2stringzd2appendz00zz__unicodez00(BgL_auxz00_13685, BgL_auxz00_13692);} } 

}



/* utf8-string-append* */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2stringzd2appendza2za2zz__unicodez00(obj_t BgL_stringsz00_111)
{
{ /* Llib/unicode.scm 1379 */
{ /* Llib/unicode.scm 1380 */
 long BgL_lenz00_2807;
BgL_lenz00_2807 = 0L; 
{ 
 obj_t BgL_l1105z00_2809;
BgL_l1105z00_2809 = BgL_stringsz00_111; 
BgL_zc3z04anonymousza32690ze3z87_2810:
if(
PAIRP(BgL_l1105z00_2809))
{ /* Llib/unicode.scm 1381 */
{ /* Llib/unicode.scm 1382 */
 obj_t BgL_strz00_2812;
BgL_strz00_2812 = 
CAR(BgL_l1105z00_2809); 
{ /* Llib/unicode.scm 1382 */
 long BgL_za71za7_5610;
BgL_za71za7_5610 = BgL_lenz00_2807; 
{ /* Llib/unicode.scm 1382 */
 long BgL_tmpz00_13703;
{ /* Llib/unicode.scm 1382 */
 obj_t BgL_stringz00_5609;
if(
STRINGP(BgL_strz00_2812))
{ /* Llib/unicode.scm 1382 */
BgL_stringz00_5609 = BgL_strz00_2812; }  else 
{ 
 obj_t BgL_auxz00_13706;
BgL_auxz00_13706 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56031L), BGl_string5066z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2812); 
FAILURE(BgL_auxz00_13706,BFALSE,BFALSE);} 
BgL_tmpz00_13703 = 
STRING_LENGTH(BgL_stringz00_5609); } 
BgL_lenz00_2807 = 
(BgL_za71za7_5610+BgL_tmpz00_13703); } } } 
{ 
 obj_t BgL_l1105z00_13712;
BgL_l1105z00_13712 = 
CDR(BgL_l1105z00_2809); 
BgL_l1105z00_2809 = BgL_l1105z00_13712; 
goto BgL_zc3z04anonymousza32690ze3z87_2810;} }  else 
{ /* Llib/unicode.scm 1381 */
if(
NULLP(BgL_l1105z00_2809))
{ /* Llib/unicode.scm 1381 */BTRUE; }  else 
{ /* Llib/unicode.scm 1381 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string5067z00zz__unicodez00, BGl_string5068z00zz__unicodez00, BgL_l1105z00_2809, BGl_string4967z00zz__unicodez00, 
BINT(55983L)); } } } 
{ /* Llib/unicode.scm 1384 */
 obj_t BgL_bufferz00_2817; long BgL_indexz00_2818;
BgL_bufferz00_2817 = 
make_string_sans_fill(BgL_lenz00_2807); 
BgL_indexz00_2818 = 0L; 
{ 
 obj_t BgL_l1107z00_2820;
BgL_l1107z00_2820 = BgL_stringsz00_111; 
BgL_zc3z04anonymousza32696ze3z87_2821:
if(
PAIRP(BgL_l1107z00_2820))
{ /* Llib/unicode.scm 1386 */
{ /* Llib/unicode.scm 1387 */
 obj_t BgL_strz00_2823;
BgL_strz00_2823 = 
CAR(BgL_l1107z00_2820); 
{ /* Llib/unicode.scm 1387 */
 long BgL_g1144z00_2825;
BgL_g1144z00_2825 = BgL_indexz00_2818; 
{ /* Llib/unicode.scm 181 */

{ /* Llib/unicode.scm 181 */
 obj_t BgL_auxz00_13722;
if(
STRINGP(BgL_strz00_2823))
{ /* Llib/unicode.scm 1387 */
BgL_auxz00_13722 = BgL_strz00_2823
; }  else 
{ 
 obj_t BgL_auxz00_13725;
BgL_auxz00_13725 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56214L), BGl_string5069z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2823); 
FAILURE(BgL_auxz00_13725,BFALSE,BFALSE);} 
BgL_indexz00_2818 = 
BGl_utf8zd2stringzd2appendzd2fillz12zc0zz__unicodez00(BgL_bufferz00_2817, BgL_g1144z00_2825, BgL_auxz00_13722, 
BINT(0L)); } } } } 
{ 
 obj_t BgL_l1107z00_13731;
BgL_l1107z00_13731 = 
CDR(BgL_l1107z00_2820); 
BgL_l1107z00_2820 = BgL_l1107z00_13731; 
goto BgL_zc3z04anonymousza32696ze3z87_2821;} }  else 
{ /* Llib/unicode.scm 1386 */
if(
NULLP(BgL_l1107z00_2820))
{ /* Llib/unicode.scm 1386 */BTRUE; }  else 
{ /* Llib/unicode.scm 1386 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string5067z00zz__unicodez00, BGl_string5068z00zz__unicodez00, BgL_l1107z00_2820, BGl_string4967z00zz__unicodez00, 
BINT(56131L)); } } } 
return 
bgl_string_shrink(BgL_bufferz00_2817, BgL_indexz00_2818);} } } 

}



/* &utf8-string-append* */
obj_t BGl_z62utf8zd2stringzd2appendza2zc0zz__unicodez00(obj_t BgL_envz00_6225, obj_t BgL_stringsz00_6226)
{
{ /* Llib/unicode.scm 1379 */
return 
BGl_utf8zd2stringzd2appendza2za2zz__unicodez00(BgL_stringsz00_6226);} 

}



/* _utf8-substring */
obj_t BGl__utf8zd2substringzd2zz__unicodez00(obj_t BgL_env1149z00_116, obj_t BgL_opt1148z00_115)
{
{ /* Llib/unicode.scm 1394 */
{ /* Llib/unicode.scm 1394 */
 obj_t BgL_strz00_2831; obj_t BgL_g1150z00_2832;
{ 
 obj_t BgL_auxz00_13739;
if(
VECTORP(BgL_opt1148z00_115))
{ /* Llib/unicode.scm 1394 */
BgL_auxz00_13739 = BgL_opt1148z00_115
; }  else 
{ 
 obj_t BgL_auxz00_13742;
BgL_auxz00_13742 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56493L), BGl_string5070z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1148z00_115); 
FAILURE(BgL_auxz00_13742,BFALSE,BFALSE);} 
BgL_strz00_2831 = 
VECTOR_REF(BgL_auxz00_13739,0L); } 
{ 
 obj_t BgL_auxz00_13747;
if(
VECTORP(BgL_opt1148z00_115))
{ /* Llib/unicode.scm 1394 */
BgL_auxz00_13747 = BgL_opt1148z00_115
; }  else 
{ 
 obj_t BgL_auxz00_13750;
BgL_auxz00_13750 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56493L), BGl_string5070z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1148z00_115); 
FAILURE(BgL_auxz00_13750,BFALSE,BFALSE);} 
BgL_g1150z00_2832 = 
VECTOR_REF(BgL_auxz00_13747,1L); } 
{ 

{ /* Llib/unicode.scm 1394 */
 long BgL_aux1152z00_2834;
{ 
 obj_t BgL_auxz00_13755;
if(
VECTORP(BgL_opt1148z00_115))
{ /* Llib/unicode.scm 1394 */
BgL_auxz00_13755 = BgL_opt1148z00_115
; }  else 
{ 
 obj_t BgL_auxz00_13758;
BgL_auxz00_13758 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56493L), BGl_string5070z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1148z00_115); 
FAILURE(BgL_auxz00_13758,BFALSE,BFALSE);} 
BgL_aux1152z00_2834 = 
VECTOR_LENGTH(BgL_auxz00_13755); } 
switch( BgL_aux1152z00_2834) { case 2L : 

{ /* Llib/unicode.scm 1395 */
 long BgL_endz00_2835;
{ /* Llib/unicode.scm 1395 */
 obj_t BgL_auxz00_13763;
if(
STRINGP(BgL_strz00_2831))
{ /* Llib/unicode.scm 1395 */
BgL_auxz00_13763 = BgL_strz00_2831
; }  else 
{ 
 obj_t BgL_auxz00_13766;
BgL_auxz00_13766 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56588L), BGl_string5070z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2831); 
FAILURE(BgL_auxz00_13766,BFALSE,BFALSE);} 
BgL_endz00_2835 = 
BGl_utf8zd2stringzd2lengthz00zz__unicodez00(BgL_auxz00_13763); } 
{ /* Llib/unicode.scm 1394 */

{ /* Llib/unicode.scm 1394 */
 long BgL_auxz00_13778; obj_t BgL_auxz00_13771;
{ /* Llib/unicode.scm 1394 */
 obj_t BgL_tmpz00_13779;
if(
INTEGERP(BgL_g1150z00_2832))
{ /* Llib/unicode.scm 1394 */
BgL_tmpz00_13779 = BgL_g1150z00_2832
; }  else 
{ 
 obj_t BgL_auxz00_13782;
BgL_auxz00_13782 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56493L), BGl_string5070z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_g1150z00_2832); 
FAILURE(BgL_auxz00_13782,BFALSE,BFALSE);} 
BgL_auxz00_13778 = 
(long)CINT(BgL_tmpz00_13779); } 
if(
STRINGP(BgL_strz00_2831))
{ /* Llib/unicode.scm 1394 */
BgL_auxz00_13771 = BgL_strz00_2831
; }  else 
{ 
 obj_t BgL_auxz00_13774;
BgL_auxz00_13774 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56493L), BGl_string5070z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2831); 
FAILURE(BgL_auxz00_13774,BFALSE,BFALSE);} 
return 
BGl_utf8zd2substringzd2zz__unicodez00(BgL_auxz00_13771, BgL_auxz00_13778, BgL_endz00_2835);} } } break;case 3L : 

{ /* Llib/unicode.scm 1394 */
 obj_t BgL_endz00_2836;
{ 
 obj_t BgL_auxz00_13788;
if(
VECTORP(BgL_opt1148z00_115))
{ /* Llib/unicode.scm 1394 */
BgL_auxz00_13788 = BgL_opt1148z00_115
; }  else 
{ 
 obj_t BgL_auxz00_13791;
BgL_auxz00_13791 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56493L), BGl_string5070z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1148z00_115); 
FAILURE(BgL_auxz00_13791,BFALSE,BFALSE);} 
BgL_endz00_2836 = 
VECTOR_REF(BgL_auxz00_13788,2L); } 
{ /* Llib/unicode.scm 1394 */

{ /* Llib/unicode.scm 1394 */
 long BgL_auxz00_13812; long BgL_auxz00_13803; obj_t BgL_auxz00_13796;
{ /* Llib/unicode.scm 1394 */
 obj_t BgL_tmpz00_13813;
if(
INTEGERP(BgL_endz00_2836))
{ /* Llib/unicode.scm 1394 */
BgL_tmpz00_13813 = BgL_endz00_2836
; }  else 
{ 
 obj_t BgL_auxz00_13816;
BgL_auxz00_13816 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56493L), BGl_string5070z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_endz00_2836); 
FAILURE(BgL_auxz00_13816,BFALSE,BFALSE);} 
BgL_auxz00_13812 = 
(long)CINT(BgL_tmpz00_13813); } 
{ /* Llib/unicode.scm 1394 */
 obj_t BgL_tmpz00_13804;
if(
INTEGERP(BgL_g1150z00_2832))
{ /* Llib/unicode.scm 1394 */
BgL_tmpz00_13804 = BgL_g1150z00_2832
; }  else 
{ 
 obj_t BgL_auxz00_13807;
BgL_auxz00_13807 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56493L), BGl_string5070z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_g1150z00_2832); 
FAILURE(BgL_auxz00_13807,BFALSE,BFALSE);} 
BgL_auxz00_13803 = 
(long)CINT(BgL_tmpz00_13804); } 
if(
STRINGP(BgL_strz00_2831))
{ /* Llib/unicode.scm 1394 */
BgL_auxz00_13796 = BgL_strz00_2831
; }  else 
{ 
 obj_t BgL_auxz00_13799;
BgL_auxz00_13799 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56493L), BGl_string5070z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_2831); 
FAILURE(BgL_auxz00_13799,BFALSE,BFALSE);} 
return 
BGl_utf8zd2substringzd2zz__unicodez00(BgL_auxz00_13796, BgL_auxz00_13803, BgL_auxz00_13812);} } } break;
default: 
{ /* Llib/unicode.scm 1394 */
 long BgL_arg2701z00_2837;
{ 
 obj_t BgL_auxz00_13822;
if(
VECTORP(BgL_opt1148z00_115))
{ /* Llib/unicode.scm 1394 */
BgL_auxz00_13822 = BgL_opt1148z00_115
; }  else 
{ 
 obj_t BgL_auxz00_13825;
BgL_auxz00_13825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56493L), BGl_string5071z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_opt1148z00_115); 
FAILURE(BgL_auxz00_13825,BFALSE,BFALSE);} 
BgL_arg2701z00_2837 = 
VECTOR_LENGTH(BgL_auxz00_13822); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol5072z00zz__unicodez00, BGl_string5074z00zz__unicodez00, 
BINT(BgL_arg2701z00_2837));} } } } } } 

}



/* utf8-substring */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2substringzd2zz__unicodez00(obj_t BgL_strz00_112, long BgL_startz00_113, long BgL_endz00_114)
{
{ /* Llib/unicode.scm 1394 */
{ /* Llib/unicode.scm 1396 */
 long BgL_lenz00_2838;
BgL_lenz00_2838 = 
STRING_LENGTH(BgL_strz00_112); 
{ /* Llib/unicode.scm 1398 */
 bool_t BgL_test6080z00_13834;
if(
(BgL_startz00_113<0L))
{ /* Llib/unicode.scm 1398 */
BgL_test6080z00_13834 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 1398 */
BgL_test6080z00_13834 = 
(BgL_startz00_113>BgL_lenz00_2838)
; } 
if(BgL_test6080z00_13834)
{ /* Llib/unicode.scm 1400 */
 obj_t BgL_arg2712z00_2841;
BgL_arg2712z00_2841 = 
string_append_3(BGl_string5075z00zz__unicodez00, BgL_strz00_112, BGl_string5076z00zz__unicodez00); 
{ /* Llib/unicode.scm 1399 */
 obj_t BgL_aux4800z00_7652;
BgL_aux4800z00_7652 = 
BGl_errorz00zz__errorz00(BGl_string5073z00zz__unicodez00, BgL_arg2712z00_2841, 
BINT(BgL_startz00_113)); 
if(
STRINGP(BgL_aux4800z00_7652))
{ /* Llib/unicode.scm 1399 */
return BgL_aux4800z00_7652;}  else 
{ 
 obj_t BgL_auxz00_13843;
BgL_auxz00_13843 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56684L), BGl_string5073z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4800z00_7652); 
FAILURE(BgL_auxz00_13843,BFALSE,BFALSE);} } }  else 
{ /* Llib/unicode.scm 1398 */
if(
(BgL_endz00_114<0L))
{ /* Llib/unicode.scm 1404 */
 obj_t BgL_arg2716z00_2843;
BgL_arg2716z00_2843 = 
string_append_3(BGl_string5077z00zz__unicodez00, BgL_strz00_112, BGl_string5076z00zz__unicodez00); 
{ /* Llib/unicode.scm 1403 */
 obj_t BgL_aux4802z00_7654;
BgL_aux4802z00_7654 = 
BGl_errorz00zz__errorz00(BGl_string5073z00zz__unicodez00, BgL_arg2716z00_2843, 
BINT(BgL_endz00_114)); 
if(
STRINGP(BgL_aux4802z00_7654))
{ /* Llib/unicode.scm 1403 */
return BgL_aux4802z00_7654;}  else 
{ 
 obj_t BgL_auxz00_13854;
BgL_auxz00_13854 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56796L), BGl_string5073z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4802z00_7654); 
FAILURE(BgL_auxz00_13854,BFALSE,BFALSE);} } }  else 
{ /* Llib/unicode.scm 1406 */
 bool_t BgL_test6085z00_13858;
if(
(BgL_endz00_114<BgL_startz00_113))
{ /* Llib/unicode.scm 1406 */
BgL_test6085z00_13858 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 1406 */
BgL_test6085z00_13858 = 
(BgL_endz00_114>BgL_lenz00_2838)
; } 
if(BgL_test6085z00_13858)
{ /* Llib/unicode.scm 1408 */
 obj_t BgL_arg2720z00_2846;
BgL_arg2720z00_2846 = 
string_append_3(BGl_string5077z00zz__unicodez00, BgL_strz00_112, BGl_string5076z00zz__unicodez00); 
{ /* Llib/unicode.scm 1407 */
 obj_t BgL_aux4804z00_7656;
BgL_aux4804z00_7656 = 
BGl_errorz00zz__errorz00(BGl_string5073z00zz__unicodez00, BgL_arg2720z00_2846, 
BINT(BgL_endz00_114)); 
if(
STRINGP(BgL_aux4804z00_7656))
{ /* Llib/unicode.scm 1407 */
return BgL_aux4804z00_7656;}  else 
{ 
 obj_t BgL_auxz00_13867;
BgL_auxz00_13867 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(56927L), BGl_string5073z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4804z00_7656); 
FAILURE(BgL_auxz00_13867,BFALSE,BFALSE);} } }  else 
{ /* Llib/unicode.scm 1406 */
if(
(BgL_startz00_113==BgL_endz00_114))
{ /* Llib/unicode.scm 1410 */
return BGl_string4940z00zz__unicodez00;}  else 
{ 
 long BgL_rz00_2849; long BgL_nz00_2850; long BgL_iz00_2851;
BgL_rz00_2849 = 0L; 
BgL_nz00_2850 = 0L; 
BgL_iz00_2851 = 0L; 
BgL_zc3z04anonymousza32722ze3z87_2852:
if(
(BgL_rz00_2849==BgL_lenz00_2838))
{ /* Llib/unicode.scm 1416 */
BGL_TAIL return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_112, BgL_iz00_2851, BgL_rz00_2849);}  else 
{ /* Llib/unicode.scm 1418 */
 unsigned char BgL_cz00_2854;
{ /* Llib/unicode.scm 1418 */
 long BgL_l4373z00_7225;
BgL_l4373z00_7225 = 
STRING_LENGTH(BgL_strz00_112); 
if(
BOUND_CHECK(BgL_rz00_2849, BgL_l4373z00_7225))
{ /* Llib/unicode.scm 1418 */
BgL_cz00_2854 = 
STRING_REF(BgL_strz00_112, BgL_rz00_2849); }  else 
{ 
 obj_t BgL_auxz00_13880;
BgL_auxz00_13880 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(57156L), BGl_string5022z00zz__unicodez00, BgL_strz00_112, 
(int)(BgL_l4373z00_7225), 
(int)(BgL_rz00_2849)); 
FAILURE(BgL_auxz00_13880,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1418 */
 long BgL_sz00_2855;
{ /* Llib/unicode.scm 1419 */
 long BgL_res3418z00_5639;
{ /* Llib/unicode.scm 1419 */
 unsigned char BgL_cz00_5632;
BgL_cz00_5632 = 
(char)(BgL_cz00_2854); 
{ /* Llib/unicode.scm 1203 */
 long BgL_arg2582z00_5633;
BgL_arg2582z00_5633 = 
(
(
(unsigned char)(BgL_cz00_5632)) >> 
(int)(4L)); 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_vectorz00_5637;
BgL_vectorz00_5637 = BGl_vector5048z00zz__unicodez00; 
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_tmpz00_13891;
{ /* Llib/unicode.scm 1202 */
 obj_t BgL_aux4806z00_7658;
BgL_aux4806z00_7658 = 
VECTOR_REF(BgL_vectorz00_5637,BgL_arg2582z00_5633); 
if(
INTEGERP(BgL_aux4806z00_7658))
{ /* Llib/unicode.scm 1202 */
BgL_tmpz00_13891 = BgL_aux4806z00_7658
; }  else 
{ 
 obj_t BgL_auxz00_13895;
BgL_auxz00_13895 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(48257L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_aux4806z00_7658); 
FAILURE(BgL_auxz00_13895,BFALSE,BFALSE);} } 
BgL_res3418z00_5639 = 
(long)CINT(BgL_tmpz00_13891); } } } } 
BgL_sz00_2855 = BgL_res3418z00_5639; } 
{ /* Llib/unicode.scm 1419 */

if(
(BgL_nz00_2850==BgL_startz00_113))
{ 
 long BgL_iz00_13906; long BgL_nz00_13904; long BgL_rz00_13902;
BgL_rz00_13902 = 
(BgL_rz00_2849+BgL_sz00_2855); 
BgL_nz00_13904 = 
(BgL_nz00_2850+1L); 
BgL_iz00_13906 = BgL_rz00_2849; 
BgL_iz00_2851 = BgL_iz00_13906; 
BgL_nz00_2850 = BgL_nz00_13904; 
BgL_rz00_2849 = BgL_rz00_13902; 
goto BgL_zc3z04anonymousza32722ze3z87_2852;}  else 
{ /* Llib/unicode.scm 1421 */
if(
(BgL_nz00_2850==BgL_endz00_114))
{ /* Llib/unicode.scm 1423 */
BGL_TAIL return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_112, BgL_iz00_2851, BgL_rz00_2849);}  else 
{ 
 long BgL_nz00_13912; long BgL_rz00_13910;
BgL_rz00_13910 = 
(BgL_rz00_2849+BgL_sz00_2855); 
BgL_nz00_13912 = 
(BgL_nz00_2850+1L); 
BgL_nz00_2850 = BgL_nz00_13912; 
BgL_rz00_2849 = BgL_rz00_13910; 
goto BgL_zc3z04anonymousza32722ze3z87_2852;} } } } } } } } } } } } 

}



/* utf8->8bits-fill! */
obj_t BGl_utf8zd2ze38bitszd2fillz12zf1zz__unicodez00(obj_t BgL_nstrz00_117, obj_t BgL_strz00_118, int BgL_lenz00_119, obj_t BgL_tablez00_120)
{
{ /* Llib/unicode.scm 1431 */
{ 
 obj_t BgL_rz00_2912;
{ 
 obj_t BgL_rz00_2870; long BgL_wz00_2871;
BgL_rz00_2870 = 
BINT(0L); 
BgL_wz00_2871 = 0L; 
BgL_zc3z04anonymousza32730ze3z87_2872:
{ /* Llib/unicode.scm 1467 */
 bool_t BgL_test6094z00_13914;
{ /* Llib/unicode.scm 1467 */
 long BgL_n1z00_5678; long BgL_n2z00_5679;
{ /* Llib/unicode.scm 1467 */
 obj_t BgL_tmpz00_13915;
if(
INTEGERP(BgL_rz00_2870))
{ /* Llib/unicode.scm 1467 */
BgL_tmpz00_13915 = BgL_rz00_2870
; }  else 
{ 
 obj_t BgL_auxz00_13918;
BgL_auxz00_13918 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58668L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2870); 
FAILURE(BgL_auxz00_13918,BFALSE,BFALSE);} 
BgL_n1z00_5678 = 
(long)CINT(BgL_tmpz00_13915); } 
BgL_n2z00_5679 = 
(long)(BgL_lenz00_119); 
BgL_test6094z00_13914 = 
(BgL_n1z00_5678==BgL_n2z00_5679); } 
if(BgL_test6094z00_13914)
{ /* Llib/unicode.scm 1467 */
return BgL_nstrz00_117;}  else 
{ /* Llib/unicode.scm 1469 */
 unsigned char BgL_cz00_2874;
{ /* Llib/unicode.scm 1469 */
 long BgL_kz00_5681;
{ /* Llib/unicode.scm 1469 */
 obj_t BgL_tmpz00_13925;
if(
INTEGERP(BgL_rz00_2870))
{ /* Llib/unicode.scm 1469 */
BgL_tmpz00_13925 = BgL_rz00_2870
; }  else 
{ 
 obj_t BgL_auxz00_13928;
BgL_auxz00_13928 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58712L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2870); 
FAILURE(BgL_auxz00_13928,BFALSE,BFALSE);} 
BgL_kz00_5681 = 
(long)CINT(BgL_tmpz00_13925); } 
{ /* Llib/unicode.scm 1469 */
 long BgL_l4381z00_7233;
BgL_l4381z00_7233 = 
STRING_LENGTH(BgL_strz00_118); 
if(
BOUND_CHECK(BgL_kz00_5681, BgL_l4381z00_7233))
{ /* Llib/unicode.scm 1469 */
BgL_cz00_2874 = 
STRING_REF(BgL_strz00_118, BgL_kz00_5681); }  else 
{ 
 obj_t BgL_auxz00_13937;
BgL_auxz00_13937 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58696L), BGl_string5022z00zz__unicodez00, BgL_strz00_118, 
(int)(BgL_l4381z00_7233), 
(int)(BgL_kz00_5681)); 
FAILURE(BgL_auxz00_13937,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1469 */
 long BgL_nz00_2875;
BgL_nz00_2875 = 
(BgL_cz00_2874); 
{ /* Llib/unicode.scm 1470 */

if(
(BgL_nz00_2875<=127L))
{ /* Llib/unicode.scm 1472 */
{ /* Llib/unicode.scm 1473 */
 long BgL_l4385z00_7237;
BgL_l4385z00_7237 = 
STRING_LENGTH(BgL_nstrz00_117); 
if(
BOUND_CHECK(BgL_wz00_2871, BgL_l4385z00_7237))
{ /* Llib/unicode.scm 1473 */
STRING_SET(BgL_nstrz00_117, BgL_wz00_2871, BgL_cz00_2874); }  else 
{ 
 obj_t BgL_auxz00_13950;
BgL_auxz00_13950 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58774L), BGl_string5041z00zz__unicodez00, BgL_nstrz00_117, 
(int)(BgL_l4385z00_7237), 
(int)(BgL_wz00_2871)); 
FAILURE(BgL_auxz00_13950,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1474 */
 long BgL_arg2733z00_2877; long BgL_arg2734z00_2878;
{ /* Llib/unicode.scm 1474 */
 long BgL_za71za7_5687;
{ /* Llib/unicode.scm 1474 */
 obj_t BgL_tmpz00_13956;
if(
INTEGERP(BgL_rz00_2870))
{ /* Llib/unicode.scm 1474 */
BgL_tmpz00_13956 = BgL_rz00_2870
; }  else 
{ 
 obj_t BgL_auxz00_13959;
BgL_auxz00_13959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58811L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2870); 
FAILURE(BgL_auxz00_13959,BFALSE,BFALSE);} 
BgL_za71za7_5687 = 
(long)CINT(BgL_tmpz00_13956); } 
BgL_arg2733z00_2877 = 
(BgL_za71za7_5687+1L); } 
BgL_arg2734z00_2878 = 
(BgL_wz00_2871+1L); 
{ 
 long BgL_wz00_13968; obj_t BgL_rz00_13966;
BgL_rz00_13966 = 
BINT(BgL_arg2733z00_2877); 
BgL_wz00_13968 = BgL_arg2734z00_2878; 
BgL_wz00_2871 = BgL_wz00_13968; 
BgL_rz00_2870 = BgL_rz00_13966; 
goto BgL_zc3z04anonymousza32730ze3z87_2872;} } }  else 
{ /* Llib/unicode.scm 1472 */
if(
(BgL_nz00_2875<194L))
{ /* Llib/unicode.scm 1475 */
BgL_rz00_2912 = BgL_rz00_2870; 
BgL_zc3z04anonymousza32766ze3z87_2913:
{ /* Llib/unicode.scm 1441 */
 obj_t BgL_arg2767z00_2914; obj_t BgL_arg2768z00_2915;
{ /* Llib/unicode.scm 1441 */
 long BgL_arg2772z00_2916;
{ /* Llib/unicode.scm 1441 */
 unsigned char BgL_tmpz00_13971;
{ /* Llib/unicode.scm 1441 */
 long BgL_kz00_5655;
{ /* Llib/unicode.scm 1441 */
 obj_t BgL_tmpz00_13972;
if(
INTEGERP(BgL_rz00_2912))
{ /* Llib/unicode.scm 1441 */
BgL_tmpz00_13972 = BgL_rz00_2912
; }  else 
{ 
 obj_t BgL_auxz00_13975;
BgL_auxz00_13975 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(57954L), BGl_string5078z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2912); 
FAILURE(BgL_auxz00_13975,BFALSE,BFALSE);} 
BgL_kz00_5655 = 
(long)CINT(BgL_tmpz00_13972); } 
{ /* Llib/unicode.scm 1441 */
 long BgL_l4377z00_7229;
BgL_l4377z00_7229 = 
STRING_LENGTH(BgL_strz00_118); 
if(
BOUND_CHECK(BgL_kz00_5655, BgL_l4377z00_7229))
{ /* Llib/unicode.scm 1441 */
BgL_tmpz00_13971 = 
STRING_REF(BgL_strz00_118, BgL_kz00_5655)
; }  else 
{ 
 obj_t BgL_auxz00_13984;
BgL_auxz00_13984 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(57938L), BGl_string5022z00zz__unicodez00, BgL_strz00_118, 
(int)(BgL_l4377z00_7229), 
(int)(BgL_kz00_5655)); 
FAILURE(BgL_auxz00_13984,BFALSE,BFALSE);} } } 
BgL_arg2772z00_2916 = 
(BgL_tmpz00_13971); } 
{ /* Llib/unicode.scm 1440 */
 obj_t BgL_list2773z00_2917;
{ /* Llib/unicode.scm 1440 */
 obj_t BgL_arg2774z00_2918;
BgL_arg2774z00_2918 = 
MAKE_YOUNG_PAIR(BgL_rz00_2912, BNIL); 
BgL_list2773z00_2917 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg2772z00_2916), BgL_arg2774z00_2918); } 
BgL_arg2767z00_2914 = 
BGl_formatz00zz__r4_output_6_10_3z00(BGl_string5079z00zz__unicodez00, BgL_list2773z00_2917); } } 
{ /* Llib/unicode.scm 1443 */
 obj_t BgL_arg2776z00_2920;
{ /* Llib/unicode.scm 1443 */
 int BgL_arg2777z00_2921;
{ /* Llib/unicode.scm 1443 */
 long BgL_bz00_2923;
{ /* Llib/unicode.scm 1443 */
 long BgL_za71za7_5657;
{ /* Llib/unicode.scm 1443 */
 obj_t BgL_tmpz00_13995;
if(
INTEGERP(BgL_rz00_2912))
{ /* Llib/unicode.scm 1443 */
BgL_tmpz00_13995 = BgL_rz00_2912
; }  else 
{ 
 obj_t BgL_auxz00_13998;
BgL_auxz00_13998 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58018L), BGl_string5078z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2912); 
FAILURE(BgL_auxz00_13998,BFALSE,BFALSE);} 
BgL_za71za7_5657 = 
(long)CINT(BgL_tmpz00_13995); } 
BgL_bz00_2923 = 
(BgL_za71za7_5657+10L); } 
if(
(
(long)(BgL_lenz00_119)<BgL_bz00_2923))
{ /* Llib/unicode.scm 1443 */
BgL_arg2777z00_2921 = BgL_lenz00_119; }  else 
{ /* Llib/unicode.scm 1443 */
BgL_arg2777z00_2921 = 
(int)(BgL_bz00_2923); } } 
{ /* Llib/unicode.scm 1443 */
 long BgL_auxz00_14008;
{ /* Llib/unicode.scm 1443 */
 obj_t BgL_tmpz00_14009;
if(
INTEGERP(BgL_rz00_2912))
{ /* Llib/unicode.scm 1443 */
BgL_tmpz00_14009 = BgL_rz00_2912
; }  else 
{ 
 obj_t BgL_auxz00_14012;
BgL_auxz00_14012 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(57985L), BGl_string5078z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2912); 
FAILURE(BgL_auxz00_14012,BFALSE,BFALSE);} 
BgL_auxz00_14008 = 
(long)CINT(BgL_tmpz00_14009); } 
BgL_arg2776z00_2920 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_118, BgL_auxz00_14008, 
(long)(BgL_arg2777z00_2921)); } } 
BgL_arg2768z00_2915 = 
string_for_read(BgL_arg2776z00_2920); } 
return 
BGl_errorz00zz__errorz00(BGl_string5080z00zz__unicodez00, BgL_arg2767z00_2914, BgL_arg2768z00_2915);} }  else 
{ /* Llib/unicode.scm 1477 */
 obj_t BgL_g1063z00_2880;
if(
CBOOL(BgL_tablez00_120))
{ /* Llib/unicode.scm 1477 */
 obj_t BgL_auxz00_14023;
{ /* Llib/unicode.scm 1477 */
 bool_t BgL_test6108z00_14025;
if(
PAIRP(BgL_tablez00_120))
{ /* Llib/unicode.scm 1477 */
BgL_test6108z00_14025 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 1477 */
BgL_test6108z00_14025 = 
NULLP(BgL_tablez00_120)
; } 
if(BgL_test6108z00_14025)
{ /* Llib/unicode.scm 1477 */
BgL_auxz00_14023 = BgL_tablez00_120
; }  else 
{ 
 obj_t BgL_auxz00_14029;
BgL_auxz00_14029 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58884L), BGl_string5010z00zz__unicodez00, BGl_string5009z00zz__unicodez00, BgL_tablez00_120); 
FAILURE(BgL_auxz00_14029,BFALSE,BFALSE);} } 
BgL_g1063z00_2880 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(
BINT(BgL_nz00_2875), BgL_auxz00_14023); }  else 
{ /* Llib/unicode.scm 1477 */
BgL_g1063z00_2880 = BFALSE; } 
if(
CBOOL(BgL_g1063z00_2880))
{ 
 long BgL_wz00_14038; obj_t BgL_rz00_14036;
BgL_rz00_14036 = 
BGl_tablezd2ze38bitsze70zd6zz__unicodez00(BgL_nstrz00_117, BgL_tablez00_120, BgL_strz00_118, BgL_lenz00_119, BgL_g1063z00_2880, BgL_rz00_2870, BgL_wz00_2871, BgL_nz00_2875); 
BgL_wz00_14038 = 
(BgL_wz00_2871+1L); 
BgL_wz00_2871 = BgL_wz00_14038; 
BgL_rz00_2870 = BgL_rz00_14036; 
goto BgL_zc3z04anonymousza32730ze3z87_2872;}  else 
{ /* Llib/unicode.scm 1477 */
if(
(BgL_nz00_2875<=223L))
{ /* Llib/unicode.scm 1482 */
 bool_t BgL_test6112z00_14042;
{ /* Llib/unicode.scm 1482 */
 long BgL_n1z00_5693;
{ /* Llib/unicode.scm 1482 */
 obj_t BgL_tmpz00_14043;
if(
INTEGERP(BgL_rz00_2870))
{ /* Llib/unicode.scm 1482 */
BgL_tmpz00_14043 = BgL_rz00_2870
; }  else 
{ 
 obj_t BgL_auxz00_14046;
BgL_auxz00_14046 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(59004L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2870); 
FAILURE(BgL_auxz00_14046,BFALSE,BFALSE);} 
BgL_n1z00_5693 = 
(long)CINT(BgL_tmpz00_14043); } 
BgL_test6112z00_14042 = 
(BgL_n1z00_5693==
(
(long)(BgL_lenz00_119)-1L)); } 
if(BgL_test6112z00_14042)
{ /* Llib/unicode.scm 1482 */
return 
BGl_errorzd2toozd2shortze70ze7zz__unicodez00(BgL_lenz00_119, BgL_strz00_118, BgL_rz00_2870);}  else 
{ /* Llib/unicode.scm 1484 */
 unsigned char BgL_ncz00_2888;
{ /* Llib/unicode.scm 1484 */
 long BgL_i4388z00_7240;
{ /* Llib/unicode.scm 1484 */
 long BgL_za71za7_5695;
{ /* Llib/unicode.scm 1484 */
 obj_t BgL_tmpz00_14055;
if(
INTEGERP(BgL_rz00_2870))
{ /* Llib/unicode.scm 1484 */
BgL_tmpz00_14055 = BgL_rz00_2870
; }  else 
{ 
 obj_t BgL_auxz00_14058;
BgL_auxz00_14058 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(59085L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2870); 
FAILURE(BgL_auxz00_14058,BFALSE,BFALSE);} 
BgL_za71za7_5695 = 
(long)CINT(BgL_tmpz00_14055); } 
BgL_i4388z00_7240 = 
(BgL_za71za7_5695+1L); } 
{ /* Llib/unicode.scm 1484 */
 long BgL_l4389z00_7241;
BgL_l4389z00_7241 = 
STRING_LENGTH(BgL_strz00_118); 
if(
BOUND_CHECK(BgL_i4388z00_7240, BgL_l4389z00_7241))
{ /* Llib/unicode.scm 1484 */
BgL_ncz00_2888 = 
STRING_REF(BgL_strz00_118, BgL_i4388z00_7240); }  else 
{ 
 obj_t BgL_auxz00_14068;
BgL_auxz00_14068 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(59064L), BGl_string5022z00zz__unicodez00, BgL_strz00_118, 
(int)(BgL_l4389z00_7241), 
(int)(BgL_i4388z00_7240)); 
FAILURE(BgL_auxz00_14068,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1484 */
 long BgL_nnz00_2889;
BgL_nnz00_2889 = 
(BgL_ncz00_2888); 
{ /* Llib/unicode.scm 1485 */

{ /* Llib/unicode.scm 1486 */
 long BgL_mz00_2890;
BgL_mz00_2890 = 
(
(
(BgL_nz00_2875 & 31L) << 
(int)(6L)) | 
(63L & BgL_nnz00_2889)); 
if(
(BgL_mz00_2890>255L))
{ /* Llib/unicode.scm 1488 */
{ /* Llib/unicode.scm 1493 */
 long BgL_l4393z00_7245;
BgL_l4393z00_7245 = 
STRING_LENGTH(BgL_nstrz00_117); 
if(
BOUND_CHECK(BgL_wz00_2871, BgL_l4393z00_7245))
{ /* Llib/unicode.scm 1493 */
STRING_SET(BgL_nstrz00_117, BgL_wz00_2871, ((unsigned char)'.')); }  else 
{ 
 obj_t BgL_auxz00_14086;
BgL_auxz00_14086 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(59379L), BGl_string5041z00zz__unicodez00, BgL_nstrz00_117, 
(int)(BgL_l4393z00_7245), 
(int)(BgL_wz00_2871)); 
FAILURE(BgL_auxz00_14086,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1494 */
 long BgL_arg2744z00_2892; long BgL_arg2749z00_2893;
{ /* Llib/unicode.scm 1494 */
 long BgL_za71za7_5708;
{ /* Llib/unicode.scm 1494 */
 obj_t BgL_tmpz00_14092;
if(
INTEGERP(BgL_rz00_2870))
{ /* Llib/unicode.scm 1494 */
BgL_tmpz00_14092 = BgL_rz00_2870
; }  else 
{ 
 obj_t BgL_auxz00_14095;
BgL_auxz00_14095 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(59421L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2870); 
FAILURE(BgL_auxz00_14095,BFALSE,BFALSE);} 
BgL_za71za7_5708 = 
(long)CINT(BgL_tmpz00_14092); } 
BgL_arg2744z00_2892 = 
(BgL_za71za7_5708+2L); } 
BgL_arg2749z00_2893 = 
(BgL_wz00_2871+1L); 
{ 
 long BgL_wz00_14104; obj_t BgL_rz00_14102;
BgL_rz00_14102 = 
BINT(BgL_arg2744z00_2892); 
BgL_wz00_14104 = BgL_arg2749z00_2893; 
BgL_wz00_2871 = BgL_wz00_14104; 
BgL_rz00_2870 = BgL_rz00_14102; 
goto BgL_zc3z04anonymousza32730ze3z87_2872;} } }  else 
{ /* Llib/unicode.scm 1488 */
{ /* Llib/unicode.scm 1496 */
 unsigned char BgL_arg2750z00_2894;
BgL_arg2750z00_2894 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_mz00_2890); 
{ /* Llib/unicode.scm 1496 */
 long BgL_l4397z00_7249;
BgL_l4397z00_7249 = 
STRING_LENGTH(BgL_nstrz00_117); 
if(
BOUND_CHECK(BgL_wz00_2871, BgL_l4397z00_7249))
{ /* Llib/unicode.scm 1496 */
STRING_SET(BgL_nstrz00_117, BgL_wz00_2871, BgL_arg2750z00_2894); }  else 
{ 
 obj_t BgL_auxz00_14110;
BgL_auxz00_14110 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(59461L), BGl_string5041z00zz__unicodez00, BgL_nstrz00_117, 
(int)(BgL_l4397z00_7249), 
(int)(BgL_wz00_2871)); 
FAILURE(BgL_auxz00_14110,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1497 */
 long BgL_arg2751z00_2895; long BgL_arg2752z00_2896;
{ /* Llib/unicode.scm 1497 */
 long BgL_za71za7_5713;
{ /* Llib/unicode.scm 1497 */
 obj_t BgL_tmpz00_14116;
if(
INTEGERP(BgL_rz00_2870))
{ /* Llib/unicode.scm 1497 */
BgL_tmpz00_14116 = BgL_rz00_2870
; }  else 
{ 
 obj_t BgL_auxz00_14119;
BgL_auxz00_14119 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(59517L), BGl_string5010z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2870); 
FAILURE(BgL_auxz00_14119,BFALSE,BFALSE);} 
BgL_za71za7_5713 = 
(long)CINT(BgL_tmpz00_14116); } 
BgL_arg2751z00_2895 = 
(BgL_za71za7_5713+2L); } 
BgL_arg2752z00_2896 = 
(BgL_wz00_2871+1L); 
{ 
 long BgL_wz00_14128; obj_t BgL_rz00_14126;
BgL_rz00_14126 = 
BINT(BgL_arg2751z00_2895); 
BgL_wz00_14128 = BgL_arg2752z00_2896; 
BgL_wz00_2871 = BgL_wz00_14128; 
BgL_rz00_2870 = BgL_rz00_14126; 
goto BgL_zc3z04anonymousza32730ze3z87_2872;} } } } } } } }  else 
{ 
 obj_t BgL_rz00_14129;
BgL_rz00_14129 = BgL_rz00_2870; 
BgL_rz00_2912 = BgL_rz00_14129; 
goto BgL_zc3z04anonymousza32766ze3z87_2913;} } } } } } } } } } } 

}



/* error-too-short~0 */
obj_t BGl_errorzd2toozd2shortze70ze7zz__unicodez00(int BgL_lenz00_6266, obj_t BgL_strz00_6265, obj_t BgL_rz00_2904)
{
{ /* Llib/unicode.scm 1436 */
{ /* Llib/unicode.scm 1436 */
 obj_t BgL_arg2762z00_2906;
{ /* Llib/unicode.scm 1436 */
 obj_t BgL_arg2763z00_2907;
{ /* Llib/unicode.scm 1436 */
 long BgL_arg2764z00_2908;
{ /* Llib/unicode.scm 1436 */
 long BgL_bz00_2910;
{ /* Llib/unicode.scm 1436 */
 long BgL_za71za7_5650;
{ /* Llib/unicode.scm 1436 */
 obj_t BgL_tmpz00_14131;
if(
INTEGERP(BgL_rz00_2904))
{ /* Llib/unicode.scm 1436 */
BgL_tmpz00_14131 = BgL_rz00_2904
; }  else 
{ 
 obj_t BgL_auxz00_14134;
BgL_auxz00_14134 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(57798L), BGl_string5081z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2904); 
FAILURE(BgL_auxz00_14134,BFALSE,BFALSE);} 
BgL_za71za7_5650 = 
(long)CINT(BgL_tmpz00_14131); } 
BgL_bz00_2910 = 
(BgL_za71za7_5650-10L); } 
if(
(0L>BgL_bz00_2910))
{ /* Llib/unicode.scm 1436 */
BgL_arg2764z00_2908 = 0L; }  else 
{ /* Llib/unicode.scm 1436 */
BgL_arg2764z00_2908 = BgL_bz00_2910; } } 
BgL_arg2763z00_2907 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_6265, BgL_arg2764z00_2908, 
(long)(BgL_lenz00_6266)); } 
BgL_arg2762z00_2906 = 
string_for_read(BgL_arg2763z00_2907); } 
return 
BGl_errorz00zz__errorz00(BGl_string5080z00zz__unicodez00, BGl_string5082z00zz__unicodez00, BgL_arg2762z00_2906);} } 

}



/* table->8bits~0 */
obj_t BGl_tablezd2ze38bitsze70zd6zz__unicodez00(obj_t BgL_nstrz00_6270, obj_t BgL_tablez00_6269, obj_t BgL_strz00_6268, int BgL_lenz00_6267, obj_t BgL_subtablez00_2937, obj_t BgL_rz00_2938, long BgL_wz00_2939, long BgL_nz00_2940)
{
{ /* Llib/unicode.scm 1463 */
{ 
 obj_t BgL_rz00_2925;
{ /* Llib/unicode.scm 1451 */
 obj_t BgL_g1060z00_2942; long BgL_g1061z00_2943;
{ /* Llib/unicode.scm 1451 */
 obj_t BgL_auxz00_14146;
{ /* Llib/unicode.scm 1451 */
 bool_t BgL_test6123z00_14148;
if(
PAIRP(BgL_tablez00_6269))
{ /* Llib/unicode.scm 1451 */
BgL_test6123z00_14148 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 1451 */
BgL_test6123z00_14148 = 
NULLP(BgL_tablez00_6269)
; } 
if(BgL_test6123z00_14148)
{ /* Llib/unicode.scm 1451 */
BgL_auxz00_14146 = BgL_tablez00_6269
; }  else 
{ 
 obj_t BgL_auxz00_14152;
BgL_auxz00_14152 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58294L), BGl_string5085z00zz__unicodez00, BGl_string5009z00zz__unicodez00, BgL_tablez00_6269); 
FAILURE(BgL_auxz00_14152,BFALSE,BFALSE);} } 
BgL_g1060z00_2942 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(
BINT(BgL_nz00_2940), BgL_auxz00_14146); } 
{ /* Llib/unicode.scm 1452 */
 long BgL_za71za7_5665;
{ /* Llib/unicode.scm 1452 */
 obj_t BgL_tmpz00_14157;
if(
INTEGERP(BgL_rz00_2938))
{ /* Llib/unicode.scm 1452 */
BgL_tmpz00_14157 = BgL_rz00_2938
; }  else 
{ 
 obj_t BgL_auxz00_14160;
BgL_auxz00_14160 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58314L), BGl_string5085z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2938); 
FAILURE(BgL_auxz00_14160,BFALSE,BFALSE);} 
BgL_za71za7_5665 = 
(long)CINT(BgL_tmpz00_14157); } 
BgL_g1061z00_2943 = 
(BgL_za71za7_5665+1L); } 
{ 
 obj_t BgL_subtablez00_2945; long BgL_nrz00_2946;
BgL_subtablez00_2945 = BgL_g1060z00_2942; 
BgL_nrz00_2946 = BgL_g1061z00_2943; 
BgL_zc3z04anonymousza32790ze3z87_2947:
if(
CBOOL(BgL_subtablez00_2945))
{ /* Llib/unicode.scm 1456 */
 bool_t BgL_test6127z00_14168;
{ /* Llib/unicode.scm 1456 */
 obj_t BgL_tmpz00_14169;
{ /* Llib/unicode.scm 1456 */
 obj_t BgL_pairz00_5666;
if(
PAIRP(BgL_subtablez00_2945))
{ /* Llib/unicode.scm 1456 */
BgL_pairz00_5666 = BgL_subtablez00_2945; }  else 
{ 
 obj_t BgL_auxz00_14172;
BgL_auxz00_14172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58394L), BGl_string5086z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_subtablez00_2945); 
FAILURE(BgL_auxz00_14172,BFALSE,BFALSE);} 
BgL_tmpz00_14169 = 
CDR(BgL_pairz00_5666); } 
BgL_test6127z00_14168 = 
CHARP(BgL_tmpz00_14169); } 
if(BgL_test6127z00_14168)
{ /* Llib/unicode.scm 1456 */
{ /* Llib/unicode.scm 1457 */
 obj_t BgL_arg2812z00_2950;
{ /* Llib/unicode.scm 1457 */
 obj_t BgL_pairz00_5667;
if(
PAIRP(BgL_subtablez00_2945))
{ /* Llib/unicode.scm 1457 */
BgL_pairz00_5667 = BgL_subtablez00_2945; }  else 
{ 
 obj_t BgL_auxz00_14180;
BgL_auxz00_14180 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58436L), BGl_string5086z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_subtablez00_2945); 
FAILURE(BgL_auxz00_14180,BFALSE,BFALSE);} 
BgL_arg2812z00_2950 = 
CDR(BgL_pairz00_5667); } 
{ /* Llib/unicode.scm 1457 */
 unsigned char BgL_charz00_5670;
{ /* Llib/unicode.scm 1457 */
 obj_t BgL_tmpz00_14185;
if(
CHARP(BgL_arg2812z00_2950))
{ /* Llib/unicode.scm 1457 */
BgL_tmpz00_14185 = BgL_arg2812z00_2950
; }  else 
{ 
 obj_t BgL_auxz00_14188;
BgL_auxz00_14188 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58444L), BGl_string5086z00zz__unicodez00, BGl_string5052z00zz__unicodez00, BgL_arg2812z00_2950); 
FAILURE(BgL_auxz00_14188,BFALSE,BFALSE);} 
BgL_charz00_5670 = 
CCHAR(BgL_tmpz00_14185); } 
{ /* Llib/unicode.scm 1457 */
 long BgL_l4401z00_7253;
BgL_l4401z00_7253 = 
STRING_LENGTH(BgL_nstrz00_6270); 
if(
BOUND_CHECK(BgL_wz00_2939, BgL_l4401z00_7253))
{ /* Llib/unicode.scm 1457 */
STRING_SET(BgL_nstrz00_6270, BgL_wz00_2939, BgL_charz00_5670); }  else 
{ 
 obj_t BgL_auxz00_14197;
BgL_auxz00_14197 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58411L), BGl_string5041z00zz__unicodez00, BgL_nstrz00_6270, 
(int)(BgL_l4401z00_7253), 
(int)(BgL_wz00_2939)); 
FAILURE(BgL_auxz00_14197,BFALSE,BFALSE);} } } } 
return 
BINT(BgL_nrz00_2946);}  else 
{ /* Llib/unicode.scm 1456 */
if(
(BgL_nrz00_2946==
(long)(BgL_lenz00_6267)))
{ /* Llib/unicode.scm 1459 */
return 
BGl_errorzd2toozd2shortze70ze7zz__unicodez00(BgL_lenz00_6267, BgL_strz00_6268, BgL_rz00_2938);}  else 
{ /* Llib/unicode.scm 1462 */
 long BgL_ncz00_2952;
{ /* Llib/unicode.scm 1462 */
 unsigned char BgL_tmpz00_14208;
{ /* Llib/unicode.scm 1462 */
 long BgL_l4405z00_7257;
BgL_l4405z00_7257 = 
STRING_LENGTH(BgL_strz00_6268); 
if(
BOUND_CHECK(BgL_nrz00_2946, BgL_l4405z00_7257))
{ /* Llib/unicode.scm 1462 */
BgL_tmpz00_14208 = 
STRING_REF(BgL_strz00_6268, BgL_nrz00_2946)
; }  else 
{ 
 obj_t BgL_auxz00_14213;
BgL_auxz00_14213 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58545L), BGl_string5022z00zz__unicodez00, BgL_strz00_6268, 
(int)(BgL_l4405z00_7257), 
(int)(BgL_nrz00_2946)); 
FAILURE(BgL_auxz00_14213,BFALSE,BFALSE);} } 
BgL_ncz00_2952 = 
(BgL_tmpz00_14208); } 
{ /* Llib/unicode.scm 1463 */
 obj_t BgL_arg2817z00_2953; long BgL_arg2818z00_2954;
{ /* Llib/unicode.scm 1463 */
 obj_t BgL_auxz00_14220;
{ /* Llib/unicode.scm 1463 */
 obj_t BgL_pairz00_5676;
if(
PAIRP(BgL_subtablez00_2945))
{ /* Llib/unicode.scm 1463 */
BgL_pairz00_5676 = BgL_subtablez00_2945; }  else 
{ 
 obj_t BgL_auxz00_14224;
BgL_auxz00_14224 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58590L), BGl_string5086z00zz__unicodez00, BGl_string5007z00zz__unicodez00, BgL_subtablez00_2945); 
FAILURE(BgL_auxz00_14224,BFALSE,BFALSE);} 
{ /* Llib/unicode.scm 1463 */
 obj_t BgL_aux4834z00_7686;
BgL_aux4834z00_7686 = 
CDR(BgL_pairz00_5676); 
{ /* Llib/unicode.scm 1463 */
 bool_t BgL_test6135z00_14229;
if(
PAIRP(BgL_aux4834z00_7686))
{ /* Llib/unicode.scm 1463 */
BgL_test6135z00_14229 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 1463 */
BgL_test6135z00_14229 = 
NULLP(BgL_aux4834z00_7686)
; } 
if(BgL_test6135z00_14229)
{ /* Llib/unicode.scm 1463 */
BgL_auxz00_14220 = BgL_aux4834z00_7686
; }  else 
{ 
 obj_t BgL_auxz00_14233;
BgL_auxz00_14233 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58585L), BGl_string5086z00zz__unicodez00, BGl_string5009z00zz__unicodez00, BgL_aux4834z00_7686); 
FAILURE(BgL_auxz00_14233,BFALSE,BFALSE);} } } } 
BgL_arg2817z00_2953 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(
BINT(BgL_ncz00_2952), BgL_auxz00_14220); } 
BgL_arg2818z00_2954 = 
(BgL_nrz00_2946+1L); 
{ 
 long BgL_nrz00_14240; obj_t BgL_subtablez00_14239;
BgL_subtablez00_14239 = BgL_arg2817z00_2953; 
BgL_nrz00_14240 = BgL_arg2818z00_2954; 
BgL_nrz00_2946 = BgL_nrz00_14240; 
BgL_subtablez00_2945 = BgL_subtablez00_14239; 
goto BgL_zc3z04anonymousza32790ze3z87_2947;} } } } }  else 
{ /* Llib/unicode.scm 1454 */
BgL_rz00_2925 = BgL_rz00_2938; 
{ /* Llib/unicode.scm 1447 */
 obj_t BgL_arg2783z00_2927; obj_t BgL_arg2784z00_2928;
{ /* Llib/unicode.scm 1447 */
 obj_t BgL_arg2785z00_2929;
{ /* Ieee/fixnum.scm 978 */

{ /* Ieee/fixnum.scm 978 */
 long BgL_auxz00_14241;
{ /* Llib/unicode.scm 1447 */
 obj_t BgL_tmpz00_14242;
if(
INTEGERP(BgL_rz00_2925))
{ /* Llib/unicode.scm 1447 */
BgL_tmpz00_14242 = BgL_rz00_2925
; }  else 
{ 
 obj_t BgL_auxz00_14245;
BgL_auxz00_14245 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58150L), BGl_string5083z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2925); 
FAILURE(BgL_auxz00_14245,BFALSE,BFALSE);} 
BgL_auxz00_14241 = 
(long)CINT(BgL_tmpz00_14242); } 
BgL_arg2785z00_2929 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14241, 10L); } } 
BgL_arg2783z00_2927 = 
string_append(BGl_string5084z00zz__unicodez00, BgL_arg2785z00_2929); } 
{ /* Llib/unicode.scm 1448 */
 obj_t BgL_arg2786z00_2932;
{ /* Llib/unicode.scm 1448 */
 int BgL_arg2787z00_2933;
{ /* Llib/unicode.scm 1448 */
 long BgL_bz00_2935;
{ /* Llib/unicode.scm 1448 */
 long BgL_za71za7_5661;
{ /* Llib/unicode.scm 1448 */
 obj_t BgL_tmpz00_14252;
if(
INTEGERP(BgL_rz00_2925))
{ /* Llib/unicode.scm 1448 */
BgL_tmpz00_14252 = BgL_rz00_2925
; }  else 
{ 
 obj_t BgL_auxz00_14255;
BgL_auxz00_14255 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58206L), BGl_string5083z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2925); 
FAILURE(BgL_auxz00_14255,BFALSE,BFALSE);} 
BgL_za71za7_5661 = 
(long)CINT(BgL_tmpz00_14252); } 
BgL_bz00_2935 = 
(BgL_za71za7_5661+10L); } 
if(
(
(long)(BgL_lenz00_6267)<BgL_bz00_2935))
{ /* Llib/unicode.scm 1448 */
BgL_arg2787z00_2933 = BgL_lenz00_6267; }  else 
{ /* Llib/unicode.scm 1448 */
BgL_arg2787z00_2933 = 
(int)(BgL_bz00_2935); } } 
{ /* Llib/unicode.scm 1448 */
 long BgL_auxz00_14265;
{ /* Llib/unicode.scm 1448 */
 obj_t BgL_tmpz00_14266;
if(
INTEGERP(BgL_rz00_2925))
{ /* Llib/unicode.scm 1448 */
BgL_tmpz00_14266 = BgL_rz00_2925
; }  else 
{ 
 obj_t BgL_auxz00_14269;
BgL_auxz00_14269 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(58173L), BGl_string5083z00zz__unicodez00, BGl_string4974z00zz__unicodez00, BgL_rz00_2925); 
FAILURE(BgL_auxz00_14269,BFALSE,BFALSE);} 
BgL_auxz00_14265 = 
(long)CINT(BgL_tmpz00_14266); } 
BgL_arg2786z00_2932 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_6268, BgL_auxz00_14265, 
(long)(BgL_arg2787z00_2933)); } } 
BgL_arg2784z00_2928 = 
string_for_read(BgL_arg2786z00_2932); } 
return 
BGl_errorz00zz__errorz00(BGl_string5080z00zz__unicodez00, BgL_arg2783z00_2927, BgL_arg2784z00_2928);} } } } } } 

}



/* utf8->8bits */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2ze38bitsz31zz__unicodez00(obj_t BgL_strz00_121, obj_t BgL_tablez00_122)
{
{ /* Llib/unicode.scm 1504 */
{ /* Llib/unicode.scm 1505 */
 long BgL_lenz00_2963;
BgL_lenz00_2963 = 
STRING_LENGTH(BgL_strz00_121); 
{ /* Llib/unicode.scm 1505 */
 long BgL_nlenz00_2964;
BgL_nlenz00_2964 = 
BGl_utf8zd2ze38bitszd2lengthze3zz__unicodez00(BgL_strz00_121, BgL_lenz00_2963); 
{ /* Llib/unicode.scm 1506 */

if(
(BgL_lenz00_2963==BgL_nlenz00_2964))
{ /* Llib/unicode.scm 1507 */
return 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_strz00_121);}  else 
{ /* Llib/unicode.scm 1509 */
 obj_t BgL_arg2823z00_2966;
BgL_arg2823z00_2966 = 
make_string_sans_fill(BgL_nlenz00_2964); 
{ /* Llib/unicode.scm 1509 */
 obj_t BgL_aux4836z00_7688;
BgL_aux4836z00_7688 = 
BGl_utf8zd2ze38bitszd2fillz12zf1zz__unicodez00(BgL_arg2823z00_2966, BgL_strz00_121, 
(int)(BgL_lenz00_2963), BgL_tablez00_122); 
if(
STRINGP(BgL_aux4836z00_7688))
{ /* Llib/unicode.scm 1509 */
return BgL_aux4836z00_7688;}  else 
{ 
 obj_t BgL_auxz00_14288;
BgL_auxz00_14288 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(59950L), BGl_string5080z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4836z00_7688); 
FAILURE(BgL_auxz00_14288,BFALSE,BFALSE);} } } } } } } 

}



/* &utf8->8bits */
obj_t BGl_z62utf8zd2ze38bitsz53zz__unicodez00(obj_t BgL_envz00_6227, obj_t BgL_strz00_6228, obj_t BgL_tablez00_6229)
{
{ /* Llib/unicode.scm 1504 */
{ /* Llib/unicode.scm 1505 */
 obj_t BgL_auxz00_14292;
if(
STRINGP(BgL_strz00_6228))
{ /* Llib/unicode.scm 1505 */
BgL_auxz00_14292 = BgL_strz00_6228
; }  else 
{ 
 obj_t BgL_auxz00_14295;
BgL_auxz00_14295 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(59828L), BGl_string5087z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6228); 
FAILURE(BgL_auxz00_14295,BFALSE,BFALSE);} 
return 
BGl_utf8zd2ze38bitsz31zz__unicodez00(BgL_auxz00_14292, BgL_tablez00_6229);} } 

}



/* utf8->8bits! */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2ze38bitsz12z23zz__unicodez00(obj_t BgL_strz00_123, obj_t BgL_tablez00_124)
{
{ /* Llib/unicode.scm 1514 */
{ /* Llib/unicode.scm 1515 */
 long BgL_lenz00_2967;
BgL_lenz00_2967 = 
STRING_LENGTH(BgL_strz00_123); 
{ /* Llib/unicode.scm 1515 */
 long BgL_nlenz00_2968;
BgL_nlenz00_2968 = 
BGl_utf8zd2ze38bitszd2lengthze3zz__unicodez00(BgL_strz00_123, BgL_lenz00_2967); 
{ /* Llib/unicode.scm 1516 */

if(
(BgL_lenz00_2967==BgL_nlenz00_2968))
{ /* Llib/unicode.scm 1517 */
return BgL_strz00_123;}  else 
{ /* Llib/unicode.scm 1519 */
 obj_t BgL_arg2825z00_2970;
BgL_arg2825z00_2970 = 
make_string_sans_fill(BgL_nlenz00_2968); 
{ /* Llib/unicode.scm 1519 */
 obj_t BgL_aux4840z00_7692;
BgL_aux4840z00_7692 = 
BGl_utf8zd2ze38bitszd2fillz12zf1zz__unicodez00(BgL_arg2825z00_2970, BgL_strz00_123, 
(int)(BgL_lenz00_2967), BgL_tablez00_124); 
if(
STRINGP(BgL_aux4840z00_7692))
{ /* Llib/unicode.scm 1519 */
return BgL_aux4840z00_7692;}  else 
{ 
 obj_t BgL_auxz00_14309;
BgL_auxz00_14309 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(60382L), BGl_string5088z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4840z00_7692); 
FAILURE(BgL_auxz00_14309,BFALSE,BFALSE);} } } } } } } 

}



/* &utf8->8bits! */
obj_t BGl_z62utf8zd2ze38bitsz12z41zz__unicodez00(obj_t BgL_envz00_6230, obj_t BgL_strz00_6231, obj_t BgL_tablez00_6232)
{
{ /* Llib/unicode.scm 1514 */
{ /* Llib/unicode.scm 1515 */
 obj_t BgL_auxz00_14313;
if(
STRINGP(BgL_strz00_6231))
{ /* Llib/unicode.scm 1515 */
BgL_auxz00_14313 = BgL_strz00_6231
; }  else 
{ 
 obj_t BgL_auxz00_14316;
BgL_auxz00_14316 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(60274L), BGl_string5089z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6231); 
FAILURE(BgL_auxz00_14316,BFALSE,BFALSE);} 
return 
BGl_utf8zd2ze38bitsz12z23zz__unicodez00(BgL_auxz00_14313, BgL_tablez00_6232);} } 

}



/* utf8->iso-latin */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2ze3isozd2latinze3zz__unicodez00(obj_t BgL_strz00_125)
{
{ /* Llib/unicode.scm 1524 */
{ /* Llib/unicode.scm 1525 */
 obj_t BgL_res3419z00_5730;
{ /* Llib/unicode.scm 1525 */
 obj_t BgL_tablez00_5722;
BgL_tablez00_5722 = BGl_list4898z00zz__unicodez00; 
{ /* Llib/unicode.scm 1505 */
 long BgL_lenz00_5723;
BgL_lenz00_5723 = 
STRING_LENGTH(BgL_strz00_125); 
{ /* Llib/unicode.scm 1505 */
 long BgL_nlenz00_5725;
BgL_nlenz00_5725 = 
BGl_utf8zd2ze38bitszd2lengthze3zz__unicodez00(BgL_strz00_125, BgL_lenz00_5723); 
{ /* Llib/unicode.scm 1506 */

if(
(BgL_lenz00_5723==BgL_nlenz00_5725))
{ /* Llib/unicode.scm 1507 */
BgL_res3419z00_5730 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_strz00_125); }  else 
{ /* Llib/unicode.scm 1509 */
 obj_t BgL_arg2823z00_5729;
BgL_arg2823z00_5729 = 
make_string_sans_fill(BgL_nlenz00_5725); 
{ /* Llib/unicode.scm 1509 */
 obj_t BgL_aux4844z00_7696;
BgL_aux4844z00_7696 = 
BGl_utf8zd2ze38bitszd2fillz12zf1zz__unicodez00(BgL_arg2823z00_5729, BgL_strz00_125, 
(int)(BgL_lenz00_5723), BgL_tablez00_5722); 
if(
STRINGP(BgL_aux4844z00_7696))
{ /* Llib/unicode.scm 1509 */
BgL_res3419z00_5730 = BgL_aux4844z00_7696; }  else 
{ 
 obj_t BgL_auxz00_14331;
BgL_auxz00_14331 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(59950L), BGl_string5090z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4844z00_7696); 
FAILURE(BgL_auxz00_14331,BFALSE,BFALSE);} } } } } } } 
return BgL_res3419z00_5730;} } 

}



/* &utf8->iso-latin */
obj_t BGl_z62utf8zd2ze3isozd2latinz81zz__unicodez00(obj_t BgL_envz00_6233, obj_t BgL_strz00_6234)
{
{ /* Llib/unicode.scm 1524 */
{ /* Llib/unicode.scm 1525 */
 obj_t BgL_auxz00_14335;
if(
STRINGP(BgL_strz00_6234))
{ /* Llib/unicode.scm 1525 */
BgL_auxz00_14335 = BgL_strz00_6234
; }  else 
{ 
 obj_t BgL_auxz00_14338;
BgL_auxz00_14338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(60703L), BGl_string5091z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6234); 
FAILURE(BgL_auxz00_14338,BFALSE,BFALSE);} 
return 
BGl_utf8zd2ze3isozd2latinze3zz__unicodez00(BgL_auxz00_14335);} } 

}



/* utf8->iso-latin! */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2ze3isozd2latinz12zf1zz__unicodez00(obj_t BgL_strz00_126)
{
{ /* Llib/unicode.scm 1530 */
{ /* Llib/unicode.scm 1531 */
 obj_t BgL_res3420z00_5740;
{ /* Llib/unicode.scm 1531 */
 obj_t BgL_tablez00_5732;
BgL_tablez00_5732 = BGl_list4898z00zz__unicodez00; 
{ /* Llib/unicode.scm 1515 */
 long BgL_lenz00_5733;
BgL_lenz00_5733 = 
STRING_LENGTH(BgL_strz00_126); 
{ /* Llib/unicode.scm 1515 */
 long BgL_nlenz00_5735;
BgL_nlenz00_5735 = 
BGl_utf8zd2ze38bitszd2lengthze3zz__unicodez00(BgL_strz00_126, BgL_lenz00_5733); 
{ /* Llib/unicode.scm 1516 */

if(
(BgL_lenz00_5733==BgL_nlenz00_5735))
{ /* Llib/unicode.scm 1517 */
BgL_res3420z00_5740 = BgL_strz00_126; }  else 
{ /* Llib/unicode.scm 1519 */
 obj_t BgL_arg2825z00_5739;
BgL_arg2825z00_5739 = 
make_string_sans_fill(BgL_nlenz00_5735); 
{ /* Llib/unicode.scm 1519 */
 obj_t BgL_aux4848z00_7700;
BgL_aux4848z00_7700 = 
BGl_utf8zd2ze38bitszd2fillz12zf1zz__unicodez00(BgL_arg2825z00_5739, BgL_strz00_126, 
(int)(BgL_lenz00_5733), BgL_tablez00_5732); 
if(
STRINGP(BgL_aux4848z00_7700))
{ /* Llib/unicode.scm 1519 */
BgL_res3420z00_5740 = BgL_aux4848z00_7700; }  else 
{ 
 obj_t BgL_auxz00_14352;
BgL_auxz00_14352 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(60382L), BGl_string5092z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4848z00_7700); 
FAILURE(BgL_auxz00_14352,BFALSE,BFALSE);} } } } } } } 
return BgL_res3420z00_5740;} } 

}



/* &utf8->iso-latin! */
obj_t BGl_z62utf8zd2ze3isozd2latinz12z93zz__unicodez00(obj_t BgL_envz00_6235, obj_t BgL_strz00_6236)
{
{ /* Llib/unicode.scm 1530 */
{ /* Llib/unicode.scm 1531 */
 obj_t BgL_auxz00_14356;
if(
STRINGP(BgL_strz00_6236))
{ /* Llib/unicode.scm 1531 */
BgL_auxz00_14356 = BgL_strz00_6236
; }  else 
{ 
 obj_t BgL_auxz00_14359;
BgL_auxz00_14359 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(60989L), BGl_string5093z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6236); 
FAILURE(BgL_auxz00_14359,BFALSE,BFALSE);} 
return 
BGl_utf8zd2ze3isozd2latinz12zf1zz__unicodez00(BgL_auxz00_14356);} } 

}



/* utf8->iso-latin-15 */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2ze3isozd2latinzd215z31zz__unicodez00(obj_t BgL_strz00_127)
{
{ /* Llib/unicode.scm 1536 */
{ /* Llib/unicode.scm 1537 */
 obj_t BgL_res3421z00_5750;
{ /* Llib/unicode.scm 1537 */
 obj_t BgL_tablez00_5742;
BgL_tablez00_5742 = BGl_list4925z00zz__unicodez00; 
{ /* Llib/unicode.scm 1505 */
 long BgL_lenz00_5743;
BgL_lenz00_5743 = 
STRING_LENGTH(BgL_strz00_127); 
{ /* Llib/unicode.scm 1505 */
 long BgL_nlenz00_5745;
BgL_nlenz00_5745 = 
BGl_utf8zd2ze38bitszd2lengthze3zz__unicodez00(BgL_strz00_127, BgL_lenz00_5743); 
{ /* Llib/unicode.scm 1506 */

if(
(BgL_lenz00_5743==BgL_nlenz00_5745))
{ /* Llib/unicode.scm 1507 */
BgL_res3421z00_5750 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_strz00_127); }  else 
{ /* Llib/unicode.scm 1509 */
 obj_t BgL_arg2823z00_5749;
BgL_arg2823z00_5749 = 
make_string_sans_fill(BgL_nlenz00_5745); 
{ /* Llib/unicode.scm 1509 */
 obj_t BgL_aux4852z00_7704;
BgL_aux4852z00_7704 = 
BGl_utf8zd2ze38bitszd2fillz12zf1zz__unicodez00(BgL_arg2823z00_5749, BgL_strz00_127, 
(int)(BgL_lenz00_5743), BgL_tablez00_5742); 
if(
STRINGP(BgL_aux4852z00_7704))
{ /* Llib/unicode.scm 1509 */
BgL_res3421z00_5750 = BgL_aux4852z00_7704; }  else 
{ 
 obj_t BgL_auxz00_14374;
BgL_auxz00_14374 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(59950L), BGl_string5094z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4852z00_7704); 
FAILURE(BgL_auxz00_14374,BFALSE,BFALSE);} } } } } } } 
return BgL_res3421z00_5750;} } 

}



/* &utf8->iso-latin-15 */
obj_t BGl_z62utf8zd2ze3isozd2latinzd215z53zz__unicodez00(obj_t BgL_envz00_6237, obj_t BgL_strz00_6238)
{
{ /* Llib/unicode.scm 1536 */
{ /* Llib/unicode.scm 1537 */
 obj_t BgL_auxz00_14378;
if(
STRINGP(BgL_strz00_6238))
{ /* Llib/unicode.scm 1537 */
BgL_auxz00_14378 = BgL_strz00_6238
; }  else 
{ 
 obj_t BgL_auxz00_14381;
BgL_auxz00_14381 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(61278L), BGl_string5095z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6238); 
FAILURE(BgL_auxz00_14381,BFALSE,BFALSE);} 
return 
BGl_utf8zd2ze3isozd2latinzd215z31zz__unicodez00(BgL_auxz00_14378);} } 

}



/* utf8->iso-latin-15! */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2ze3isozd2latinzd215z12z23zz__unicodez00(obj_t BgL_strz00_128)
{
{ /* Llib/unicode.scm 1542 */
{ /* Llib/unicode.scm 1543 */
 obj_t BgL_res3422z00_5760;
{ /* Llib/unicode.scm 1543 */
 obj_t BgL_tablez00_5752;
BgL_tablez00_5752 = BGl_list4925z00zz__unicodez00; 
{ /* Llib/unicode.scm 1515 */
 long BgL_lenz00_5753;
BgL_lenz00_5753 = 
STRING_LENGTH(BgL_strz00_128); 
{ /* Llib/unicode.scm 1515 */
 long BgL_nlenz00_5755;
BgL_nlenz00_5755 = 
BGl_utf8zd2ze38bitszd2lengthze3zz__unicodez00(BgL_strz00_128, BgL_lenz00_5753); 
{ /* Llib/unicode.scm 1516 */

if(
(BgL_lenz00_5753==BgL_nlenz00_5755))
{ /* Llib/unicode.scm 1517 */
BgL_res3422z00_5760 = BgL_strz00_128; }  else 
{ /* Llib/unicode.scm 1519 */
 obj_t BgL_arg2825z00_5759;
BgL_arg2825z00_5759 = 
make_string_sans_fill(BgL_nlenz00_5755); 
{ /* Llib/unicode.scm 1519 */
 obj_t BgL_aux4856z00_7708;
BgL_aux4856z00_7708 = 
BGl_utf8zd2ze38bitszd2fillz12zf1zz__unicodez00(BgL_arg2825z00_5759, BgL_strz00_128, 
(int)(BgL_lenz00_5753), BgL_tablez00_5752); 
if(
STRINGP(BgL_aux4856z00_7708))
{ /* Llib/unicode.scm 1519 */
BgL_res3422z00_5760 = BgL_aux4856z00_7708; }  else 
{ 
 obj_t BgL_auxz00_14395;
BgL_auxz00_14395 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(60382L), BGl_string5096z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_aux4856z00_7708); 
FAILURE(BgL_auxz00_14395,BFALSE,BFALSE);} } } } } } } 
return BgL_res3422z00_5760;} } 

}



/* &utf8->iso-latin-15! */
obj_t BGl_z62utf8zd2ze3isozd2latinzd215z12z41zz__unicodez00(obj_t BgL_envz00_6239, obj_t BgL_strz00_6240)
{
{ /* Llib/unicode.scm 1542 */
{ /* Llib/unicode.scm 1543 */
 obj_t BgL_auxz00_14399;
if(
STRINGP(BgL_strz00_6240))
{ /* Llib/unicode.scm 1543 */
BgL_auxz00_14399 = BgL_strz00_6240
; }  else 
{ 
 obj_t BgL_auxz00_14402;
BgL_auxz00_14402 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(61576L), BGl_string5097z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6240); 
FAILURE(BgL_auxz00_14402,BFALSE,BFALSE);} 
return 
BGl_utf8zd2ze3isozd2latinzd215z12z23zz__unicodez00(BgL_auxz00_14399);} } 

}



/* utf8->cp1252 */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2ze3cp1252z31zz__unicodez00(obj_t BgL_strz00_129)
{
{ /* Llib/unicode.scm 1548 */
if(
CBOOL(BGl_cp1252zd2invzd2zz__unicodez00))
{ /* Llib/unicode.scm 1549 */BFALSE; }  else 
{ /* Llib/unicode.scm 1549 */
BGl_cp1252zd2invzd2zz__unicodez00 = 
BGl_inversezd2utf8zd2tablez00zz__unicodez00(BGl_vector4937z00zz__unicodez00); } 
return 
BGl_utf8zd2ze38bitsz31zz__unicodez00(BgL_strz00_129, BGl_cp1252zd2invzd2zz__unicodez00);} 

}



/* &utf8->cp1252 */
obj_t BGl_z62utf8zd2ze3cp1252z53zz__unicodez00(obj_t BgL_envz00_6241, obj_t BgL_strz00_6242)
{
{ /* Llib/unicode.scm 1548 */
{ /* Llib/unicode.scm 1549 */
 obj_t BgL_auxz00_14411;
if(
STRINGP(BgL_strz00_6242))
{ /* Llib/unicode.scm 1549 */
BgL_auxz00_14411 = BgL_strz00_6242
; }  else 
{ 
 obj_t BgL_auxz00_14414;
BgL_auxz00_14414 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(61932L), BGl_string5098z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6242); 
FAILURE(BgL_auxz00_14414,BFALSE,BFALSE);} 
return 
BGl_utf8zd2ze3cp1252z31zz__unicodez00(BgL_auxz00_14411);} } 

}



/* utf8->cp1252! */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2ze3cp1252z12z23zz__unicodez00(obj_t BgL_strz00_130)
{
{ /* Llib/unicode.scm 1555 */
if(
CBOOL(BGl_cp1252zd2invzd2zz__unicodez00))
{ /* Llib/unicode.scm 1556 */BFALSE; }  else 
{ /* Llib/unicode.scm 1556 */
BGl_cp1252zd2invzd2zz__unicodez00 = 
BGl_inversezd2utf8zd2tablez00zz__unicodez00(BGl_vector4937z00zz__unicodez00); } 
return 
BGl_utf8zd2ze38bitsz12z23zz__unicodez00(BgL_strz00_130, BGl_cp1252zd2invzd2zz__unicodez00);} 

}



/* &utf8->cp1252! */
obj_t BGl_z62utf8zd2ze3cp1252z12z41zz__unicodez00(obj_t BgL_envz00_6243, obj_t BgL_strz00_6244)
{
{ /* Llib/unicode.scm 1555 */
{ /* Llib/unicode.scm 1556 */
 obj_t BgL_auxz00_14423;
if(
STRINGP(BgL_strz00_6244))
{ /* Llib/unicode.scm 1556 */
BgL_auxz00_14423 = BgL_strz00_6244
; }  else 
{ 
 obj_t BgL_auxz00_14426;
BgL_auxz00_14426 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(62285L), BGl_string5099z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6244); 
FAILURE(BgL_auxz00_14426,BFALSE,BFALSE);} 
return 
BGl_utf8zd2ze3cp1252z12z23zz__unicodez00(BgL_auxz00_14423);} } 

}



/* 8bits->utf8-length */
long BGl_8bitszd2ze3utf8zd2lengthze3zz__unicodez00(obj_t BgL_strz00_131, long BgL_lenz00_132, obj_t BgL_tablez00_133)
{
{ /* Llib/unicode.scm 1562 */
{ 
 long BgL_cz00_2988;
{ 
 long BgL_siza7eza7_2973; long BgL_iz00_2974;
BgL_siza7eza7_2973 = 0L; 
BgL_iz00_2974 = 0L; 
BgL_zc3z04anonymousza32826ze3z87_2975:
if(
(BgL_iz00_2974==BgL_lenz00_132))
{ /* Llib/unicode.scm 1572 */
return BgL_siza7eza7_2973;}  else 
{ /* Llib/unicode.scm 1574 */
 long BgL_cz00_2977;
{ /* Llib/unicode.scm 1574 */
 unsigned char BgL_tmpz00_14433;
{ /* Llib/unicode.scm 1574 */
 long BgL_l4413z00_7265;
BgL_l4413z00_7265 = 
STRING_LENGTH(BgL_strz00_131); 
if(
BOUND_CHECK(BgL_iz00_2974, BgL_l4413z00_7265))
{ /* Llib/unicode.scm 1574 */
BgL_tmpz00_14433 = 
STRING_REF(BgL_strz00_131, BgL_iz00_2974)
; }  else 
{ 
 obj_t BgL_auxz00_14438;
BgL_auxz00_14438 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(62838L), BGl_string5022z00zz__unicodez00, BgL_strz00_131, 
(int)(BgL_l4413z00_7265), 
(int)(BgL_iz00_2974)); 
FAILURE(BgL_auxz00_14438,BFALSE,BFALSE);} } 
BgL_cz00_2977 = 
(BgL_tmpz00_14433); } 
if(
(BgL_cz00_2977>=128L))
{ /* Llib/unicode.scm 1575 */
if(
CBOOL(BgL_tablez00_133))
{ 
 long BgL_iz00_14487; long BgL_siza7eza7_14449;
{ /* Llib/unicode.scm 1577 */
 long BgL_tmpz00_14450;
BgL_cz00_2988 = BgL_cz00_2977; 
{ /* Llib/unicode.scm 1565 */
 long BgL_vz00_2990;
BgL_vz00_2990 = 
(BgL_cz00_2988-128L); 
{ /* Llib/unicode.scm 1566 */
 bool_t BgL_test6167z00_14452;
{ /* Llib/unicode.scm 1566 */
 long BgL_arg2841z00_2994;
{ /* Llib/unicode.scm 1566 */
 obj_t BgL_vectorz00_5762;
if(
VECTORP(BgL_tablez00_133))
{ /* Llib/unicode.scm 1566 */
BgL_vectorz00_5762 = BgL_tablez00_133; }  else 
{ 
 obj_t BgL_auxz00_14455;
BgL_auxz00_14455 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(62678L), BGl_string5100z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_tablez00_133); 
FAILURE(BgL_auxz00_14455,BFALSE,BFALSE);} 
BgL_arg2841z00_2994 = 
VECTOR_LENGTH(BgL_vectorz00_5762); } 
BgL_test6167z00_14452 = 
(BgL_vz00_2990<BgL_arg2841z00_2994); } 
if(BgL_test6167z00_14452)
{ /* Llib/unicode.scm 1567 */
 obj_t BgL_arg2840z00_2993;
{ /* Llib/unicode.scm 1567 */
 obj_t BgL_vectorz00_5765;
if(
VECTORP(BgL_tablez00_133))
{ /* Llib/unicode.scm 1567 */
BgL_vectorz00_5765 = BgL_tablez00_133; }  else 
{ 
 obj_t BgL_auxz00_14463;
BgL_auxz00_14463 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(62719L), BGl_string5100z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_tablez00_133); 
FAILURE(BgL_auxz00_14463,BFALSE,BFALSE);} 
{ /* Llib/unicode.scm 1567 */
 bool_t BgL_test6170z00_14467;
{ /* Llib/unicode.scm 1567 */
 long BgL_tmpz00_14468;
BgL_tmpz00_14468 = 
VECTOR_LENGTH(BgL_vectorz00_5765); 
BgL_test6170z00_14467 = 
BOUND_CHECK(BgL_vz00_2990, BgL_tmpz00_14468); } 
if(BgL_test6170z00_14467)
{ /* Llib/unicode.scm 1567 */
BgL_arg2840z00_2993 = 
VECTOR_REF(BgL_vectorz00_5765,BgL_vz00_2990); }  else 
{ 
 obj_t BgL_auxz00_14472;
BgL_auxz00_14472 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(62707L), BGl_string5019z00zz__unicodez00, BgL_vectorz00_5765, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_5765)), 
(int)(BgL_vz00_2990)); 
FAILURE(BgL_auxz00_14472,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1567 */
 obj_t BgL_stringz00_5767;
if(
STRINGP(BgL_arg2840z00_2993))
{ /* Llib/unicode.scm 1567 */
BgL_stringz00_5767 = BgL_arg2840z00_2993; }  else 
{ 
 obj_t BgL_auxz00_14481;
BgL_auxz00_14481 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(62692L), BGl_string5100z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_arg2840z00_2993); 
FAILURE(BgL_auxz00_14481,BFALSE,BFALSE);} 
BgL_tmpz00_14450 = 
STRING_LENGTH(BgL_stringz00_5767); } }  else 
{ /* Llib/unicode.scm 1566 */
BgL_tmpz00_14450 = 2L
; } } } 
BgL_siza7eza7_14449 = 
(BgL_siza7eza7_2973+BgL_tmpz00_14450); } 
BgL_iz00_14487 = 
(BgL_iz00_2974+1L); 
BgL_iz00_2974 = BgL_iz00_14487; 
BgL_siza7eza7_2973 = BgL_siza7eza7_14449; 
goto BgL_zc3z04anonymousza32826ze3z87_2975;}  else 
{ 
 long BgL_iz00_14491; long BgL_siza7eza7_14489;
BgL_siza7eza7_14489 = 
(BgL_siza7eza7_2973+2L); 
BgL_iz00_14491 = 
(BgL_iz00_2974+1L); 
BgL_iz00_2974 = BgL_iz00_14491; 
BgL_siza7eza7_2973 = BgL_siza7eza7_14489; 
goto BgL_zc3z04anonymousza32826ze3z87_2975;} }  else 
{ 
 long BgL_iz00_14495; long BgL_siza7eza7_14493;
BgL_siza7eza7_14493 = 
(BgL_siza7eza7_2973+1L); 
BgL_iz00_14495 = 
(BgL_iz00_2974+1L); 
BgL_iz00_2974 = BgL_iz00_14495; 
BgL_siza7eza7_2973 = BgL_siza7eza7_14493; 
goto BgL_zc3z04anonymousza32826ze3z87_2975;} } } } } 

}



/* 8bits->utf8-fill! */
obj_t BGl_8bitszd2ze3utf8zd2fillz12zf1zz__unicodez00(obj_t BgL_nstrz00_134, obj_t BgL_strz00_135, long BgL_lenz00_136, obj_t BgL_tablez00_137)
{
{ /* Llib/unicode.scm 1584 */
{ 
 long BgL_rz00_2997; long BgL_wz00_2998;
BgL_rz00_2997 = 0L; 
BgL_wz00_2998 = 0L; 
BgL_zc3z04anonymousza32842ze3z87_2999:
if(
(BgL_rz00_2997==BgL_lenz00_136))
{ /* Llib/unicode.scm 1587 */
return BgL_nstrz00_134;}  else 
{ /* Llib/unicode.scm 1589 */
 long BgL_cz00_3001;
{ /* Llib/unicode.scm 1589 */
 unsigned char BgL_tmpz00_14499;
{ /* Llib/unicode.scm 1589 */
 long BgL_l4417z00_7269;
BgL_l4417z00_7269 = 
STRING_LENGTH(BgL_strz00_135); 
if(
BOUND_CHECK(BgL_rz00_2997, BgL_l4417z00_7269))
{ /* Llib/unicode.scm 1589 */
BgL_tmpz00_14499 = 
STRING_REF(BgL_strz00_135, BgL_rz00_2997)
; }  else 
{ 
 obj_t BgL_auxz00_14504;
BgL_auxz00_14504 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(63390L), BGl_string5022z00zz__unicodez00, BgL_strz00_135, 
(int)(BgL_l4417z00_7269), 
(int)(BgL_rz00_2997)); 
FAILURE(BgL_auxz00_14504,BFALSE,BFALSE);} } 
BgL_cz00_3001 = 
(BgL_tmpz00_14499); } 
if(
(BgL_cz00_3001>=192L))
{ /* Llib/unicode.scm 1591 */
{ /* Llib/unicode.scm 1592 */
 long BgL_l4421z00_7273;
BgL_l4421z00_7273 = 
STRING_LENGTH(BgL_nstrz00_134); 
if(
BOUND_CHECK(BgL_wz00_2998, BgL_l4421z00_7273))
{ /* Llib/unicode.scm 1592 */
STRING_SET(BgL_nstrz00_134, BgL_wz00_2998, ((unsigned char)195)); }  else 
{ 
 obj_t BgL_auxz00_14517;
BgL_auxz00_14517 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(63447L), BGl_string5041z00zz__unicodez00, BgL_nstrz00_134, 
(int)(BgL_l4421z00_7273), 
(int)(BgL_wz00_2998)); 
FAILURE(BgL_auxz00_14517,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1593 */
 long BgL_arg2845z00_3003; unsigned char BgL_arg2846z00_3004;
BgL_arg2845z00_3003 = 
(BgL_wz00_2998+1L); 
BgL_arg2846z00_3004 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(
(BgL_cz00_3001-64L)); 
{ /* Llib/unicode.scm 1593 */
 long BgL_l4425z00_7277;
BgL_l4425z00_7277 = 
STRING_LENGTH(BgL_nstrz00_134); 
if(
BOUND_CHECK(BgL_arg2845z00_3003, BgL_l4425z00_7277))
{ /* Llib/unicode.scm 1593 */
STRING_SET(BgL_nstrz00_134, BgL_arg2845z00_3003, BgL_arg2846z00_3004); }  else 
{ 
 obj_t BgL_auxz00_14530;
BgL_auxz00_14530 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(63495L), BGl_string5041z00zz__unicodez00, BgL_nstrz00_134, 
(int)(BgL_l4425z00_7277), 
(int)(BgL_arg2845z00_3003)); 
FAILURE(BgL_auxz00_14530,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_14538; long BgL_rz00_14536;
BgL_rz00_14536 = 
(BgL_rz00_2997+1L); 
BgL_wz00_14538 = 
(BgL_wz00_2998+2L); 
BgL_wz00_2998 = BgL_wz00_14538; 
BgL_rz00_2997 = BgL_rz00_14536; 
goto BgL_zc3z04anonymousza32842ze3z87_2999;} }  else 
{ /* Llib/unicode.scm 1591 */
if(
(BgL_cz00_3001>=128L))
{ /* Llib/unicode.scm 1595 */
if(
CBOOL(BgL_tablez00_137))
{ /* Llib/unicode.scm 1597 */
 long BgL_vz00_3009;
BgL_vz00_3009 = 
(BgL_cz00_3001-128L); 
{ /* Llib/unicode.scm 1598 */
 bool_t BgL_test6179z00_14545;
{ /* Llib/unicode.scm 1598 */
 long BgL_arg2861z00_3020;
{ /* Llib/unicode.scm 1598 */
 obj_t BgL_vectorz00_5799;
if(
VECTORP(BgL_tablez00_137))
{ /* Llib/unicode.scm 1598 */
BgL_vectorz00_5799 = BgL_tablez00_137; }  else 
{ 
 obj_t BgL_auxz00_14548;
BgL_auxz00_14548 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(63677L), BGl_string5010z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_tablez00_137); 
FAILURE(BgL_auxz00_14548,BFALSE,BFALSE);} 
BgL_arg2861z00_3020 = 
VECTOR_LENGTH(BgL_vectorz00_5799); } 
BgL_test6179z00_14545 = 
(BgL_vz00_3009<BgL_arg2861z00_3020); } 
if(BgL_test6179z00_14545)
{ /* Llib/unicode.scm 1599 */
 obj_t BgL_encz00_3012;
{ /* Llib/unicode.scm 1599 */
 obj_t BgL_vectorz00_5802;
if(
VECTORP(BgL_tablez00_137))
{ /* Llib/unicode.scm 1599 */
BgL_vectorz00_5802 = BgL_tablez00_137; }  else 
{ 
 obj_t BgL_auxz00_14556;
BgL_auxz00_14556 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(63716L), BGl_string5010z00zz__unicodez00, BGl_string4969z00zz__unicodez00, BgL_tablez00_137); 
FAILURE(BgL_auxz00_14556,BFALSE,BFALSE);} 
{ /* Llib/unicode.scm 1599 */
 bool_t BgL_test6182z00_14560;
{ /* Llib/unicode.scm 1599 */
 long BgL_tmpz00_14561;
BgL_tmpz00_14561 = 
VECTOR_LENGTH(BgL_vectorz00_5802); 
BgL_test6182z00_14560 = 
BOUND_CHECK(BgL_vz00_3009, BgL_tmpz00_14561); } 
if(BgL_test6182z00_14560)
{ /* Llib/unicode.scm 1599 */
BgL_encz00_3012 = 
VECTOR_REF(BgL_vectorz00_5802,BgL_vz00_3009); }  else 
{ 
 obj_t BgL_auxz00_14565;
BgL_auxz00_14565 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(63704L), BGl_string5019z00zz__unicodez00, BgL_vectorz00_5802, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_5802)), 
(int)(BgL_vz00_3009)); 
FAILURE(BgL_auxz00_14565,BFALSE,BFALSE);} } } 
{ /* Llib/unicode.scm 1599 */
 long BgL_lenz00_3013;
{ /* Llib/unicode.scm 1600 */
 obj_t BgL_stringz00_5804;
if(
STRINGP(BgL_encz00_3012))
{ /* Llib/unicode.scm 1600 */
BgL_stringz00_5804 = BgL_encz00_3012; }  else 
{ 
 obj_t BgL_auxz00_14574;
BgL_auxz00_14574 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(63738L), BGl_string5010z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_encz00_3012); 
FAILURE(BgL_auxz00_14574,BFALSE,BFALSE);} 
BgL_lenz00_3013 = 
STRING_LENGTH(BgL_stringz00_5804); } 
{ /* Llib/unicode.scm 1600 */

{ /* Llib/unicode.scm 1601 */
 obj_t BgL_auxz00_14579;
if(
STRINGP(BgL_encz00_3012))
{ /* Llib/unicode.scm 1601 */
BgL_auxz00_14579 = BgL_encz00_3012
; }  else 
{ 
 obj_t BgL_auxz00_14582;
BgL_auxz00_14582 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(63770L), BGl_string5010z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_encz00_3012); 
FAILURE(BgL_auxz00_14582,BFALSE,BFALSE);} 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_auxz00_14579, 0L, BgL_nstrz00_134, BgL_wz00_2998, BgL_lenz00_3013); } 
{ 
 long BgL_wz00_14589; long BgL_rz00_14587;
BgL_rz00_14587 = 
(BgL_rz00_2997+1L); 
BgL_wz00_14589 = 
(BgL_wz00_2998+BgL_lenz00_3013); 
BgL_wz00_2998 = BgL_wz00_14589; 
BgL_rz00_2997 = BgL_rz00_14587; 
goto BgL_zc3z04anonymousza32842ze3z87_2999;} } } }  else 
{ /* Llib/unicode.scm 1598 */
{ /* Llib/unicode.scm 1604 */
 long BgL_l4433z00_7285;
BgL_l4433z00_7285 = 
STRING_LENGTH(BgL_nstrz00_134); 
if(
BOUND_CHECK(BgL_wz00_2998, BgL_l4433z00_7285))
{ /* Llib/unicode.scm 1604 */
STRING_SET(BgL_nstrz00_134, BgL_wz00_2998, ((unsigned char)194)); }  else 
{ 
 obj_t BgL_auxz00_14595;
BgL_auxz00_14595 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(63866L), BGl_string5041z00zz__unicodez00, BgL_nstrz00_134, 
(int)(BgL_l4433z00_7285), 
(int)(BgL_wz00_2998)); 
FAILURE(BgL_auxz00_14595,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1605 */
 long BgL_arg2857z00_3016; unsigned char BgL_arg2858z00_3017;
BgL_arg2857z00_3016 = 
(BgL_wz00_2998+1L); 
BgL_arg2858z00_3017 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_cz00_3001); 
{ /* Llib/unicode.scm 1605 */
 long BgL_l4437z00_7289;
BgL_l4437z00_7289 = 
STRING_LENGTH(BgL_nstrz00_134); 
if(
BOUND_CHECK(BgL_arg2857z00_3016, BgL_l4437z00_7289))
{ /* Llib/unicode.scm 1605 */
STRING_SET(BgL_nstrz00_134, BgL_arg2857z00_3016, BgL_arg2858z00_3017); }  else 
{ 
 obj_t BgL_auxz00_14607;
BgL_auxz00_14607 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(63921L), BGl_string5041z00zz__unicodez00, BgL_nstrz00_134, 
(int)(BgL_l4437z00_7289), 
(int)(BgL_arg2857z00_3016)); 
FAILURE(BgL_auxz00_14607,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_14615; long BgL_rz00_14613;
BgL_rz00_14613 = 
(BgL_rz00_2997+1L); 
BgL_wz00_14615 = 
(BgL_wz00_2998+2L); 
BgL_wz00_2998 = BgL_wz00_14615; 
BgL_rz00_2997 = BgL_rz00_14613; 
goto BgL_zc3z04anonymousza32842ze3z87_2999;} } } }  else 
{ /* Llib/unicode.scm 1596 */
{ /* Llib/unicode.scm 1608 */
 long BgL_l4441z00_7293;
BgL_l4441z00_7293 = 
STRING_LENGTH(BgL_nstrz00_134); 
if(
BOUND_CHECK(BgL_wz00_2998, BgL_l4441z00_7293))
{ /* Llib/unicode.scm 1608 */
STRING_SET(BgL_nstrz00_134, BgL_wz00_2998, ((unsigned char)194)); }  else 
{ 
 obj_t BgL_auxz00_14621;
BgL_auxz00_14621 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(64028L), BGl_string5041z00zz__unicodez00, BgL_nstrz00_134, 
(int)(BgL_l4441z00_7293), 
(int)(BgL_wz00_2998)); 
FAILURE(BgL_auxz00_14621,BFALSE,BFALSE);} } 
{ /* Llib/unicode.scm 1609 */
 long BgL_arg2862z00_3021; unsigned char BgL_arg2865z00_3022;
BgL_arg2862z00_3021 = 
(BgL_wz00_2998+1L); 
BgL_arg2865z00_3022 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_cz00_3001); 
{ /* Llib/unicode.scm 1609 */
 long BgL_l4445z00_7297;
BgL_l4445z00_7297 = 
STRING_LENGTH(BgL_nstrz00_134); 
if(
BOUND_CHECK(BgL_arg2862z00_3021, BgL_l4445z00_7297))
{ /* Llib/unicode.scm 1609 */
STRING_SET(BgL_nstrz00_134, BgL_arg2862z00_3021, BgL_arg2865z00_3022); }  else 
{ 
 obj_t BgL_auxz00_14633;
BgL_auxz00_14633 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(64076L), BGl_string5041z00zz__unicodez00, BgL_nstrz00_134, 
(int)(BgL_l4445z00_7297), 
(int)(BgL_arg2862z00_3021)); 
FAILURE(BgL_auxz00_14633,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_14641; long BgL_rz00_14639;
BgL_rz00_14639 = 
(BgL_rz00_2997+1L); 
BgL_wz00_14641 = 
(BgL_wz00_2998+2L); 
BgL_wz00_2998 = BgL_wz00_14641; 
BgL_rz00_2997 = BgL_rz00_14639; 
goto BgL_zc3z04anonymousza32842ze3z87_2999;} } }  else 
{ /* Llib/unicode.scm 1595 */
{ /* Llib/unicode.scm 1612 */
 unsigned char BgL_arg2869z00_3025;
BgL_arg2869z00_3025 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_cz00_3001); 
{ /* Llib/unicode.scm 1612 */
 long BgL_l4449z00_7301;
BgL_l4449z00_7301 = 
STRING_LENGTH(BgL_nstrz00_134); 
if(
BOUND_CHECK(BgL_wz00_2998, BgL_l4449z00_7301))
{ /* Llib/unicode.scm 1612 */
STRING_SET(BgL_nstrz00_134, BgL_wz00_2998, BgL_arg2869z00_3025); }  else 
{ 
 obj_t BgL_auxz00_14648;
BgL_auxz00_14648 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(64170L), BGl_string5041z00zz__unicodez00, BgL_nstrz00_134, 
(int)(BgL_l4449z00_7301), 
(int)(BgL_wz00_2998)); 
FAILURE(BgL_auxz00_14648,BFALSE,BFALSE);} } } 
{ 
 long BgL_wz00_14656; long BgL_rz00_14654;
BgL_rz00_14654 = 
(BgL_rz00_2997+1L); 
BgL_wz00_14656 = 
(BgL_wz00_2998+1L); 
BgL_wz00_2998 = BgL_wz00_14656; 
BgL_rz00_2997 = BgL_rz00_14654; 
goto BgL_zc3z04anonymousza32842ze3z87_2999;} } } } } } 

}



/* 8bits->utf8 */
BGL_EXPORTED_DEF obj_t BGl_8bitszd2ze3utf8z31zz__unicodez00(obj_t BgL_strz00_138, obj_t BgL_tablez00_139)
{
{ /* Llib/unicode.scm 1618 */
{ /* Llib/unicode.scm 1619 */
 long BgL_lenz00_3030;
BgL_lenz00_3030 = 
STRING_LENGTH(BgL_strz00_138); 
{ /* Llib/unicode.scm 1619 */
 long BgL_nlenz00_3031;
BgL_nlenz00_3031 = 
BGl_8bitszd2ze3utf8zd2lengthze3zz__unicodez00(BgL_strz00_138, BgL_lenz00_3030, BgL_tablez00_139); 
{ /* Llib/unicode.scm 1620 */

if(
(BgL_lenz00_3030==BgL_nlenz00_3031))
{ /* Llib/unicode.scm 1621 */
return 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_strz00_138);}  else 
{ /* Llib/unicode.scm 1621 */
return 
BGl_8bitszd2ze3utf8zd2fillz12zf1zz__unicodez00(
make_string_sans_fill(BgL_nlenz00_3031), BgL_strz00_138, BgL_lenz00_3030, BgL_tablez00_139);} } } } } 

}



/* &8bits->utf8 */
obj_t BGl_z628bitszd2ze3utf8z53zz__unicodez00(obj_t BgL_envz00_6245, obj_t BgL_strz00_6246, obj_t BgL_tablez00_6247)
{
{ /* Llib/unicode.scm 1618 */
{ /* Llib/unicode.scm 1619 */
 obj_t BgL_auxz00_14665;
if(
STRINGP(BgL_strz00_6246))
{ /* Llib/unicode.scm 1619 */
BgL_auxz00_14665 = BgL_strz00_6246
; }  else 
{ 
 obj_t BgL_auxz00_14668;
BgL_auxz00_14668 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(64506L), BGl_string5101z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6246); 
FAILURE(BgL_auxz00_14668,BFALSE,BFALSE);} 
return 
BGl_8bitszd2ze3utf8z31zz__unicodez00(BgL_auxz00_14665, BgL_tablez00_6247);} } 

}



/* 8bits->utf8! */
BGL_EXPORTED_DEF obj_t BGl_8bitszd2ze3utf8z12z23zz__unicodez00(obj_t BgL_strz00_140, obj_t BgL_tablez00_141)
{
{ /* Llib/unicode.scm 1628 */
{ /* Llib/unicode.scm 1629 */
 long BgL_lenz00_3034;
BgL_lenz00_3034 = 
STRING_LENGTH(BgL_strz00_140); 
{ /* Llib/unicode.scm 1629 */
 long BgL_nlenz00_3035;
BgL_nlenz00_3035 = 
BGl_8bitszd2ze3utf8zd2lengthze3zz__unicodez00(BgL_strz00_140, BgL_lenz00_3034, BgL_tablez00_141); 
{ /* Llib/unicode.scm 1630 */

if(
(BgL_lenz00_3034==BgL_nlenz00_3035))
{ /* Llib/unicode.scm 1631 */
return BgL_strz00_140;}  else 
{ /* Llib/unicode.scm 1631 */
return 
BGl_8bitszd2ze3utf8zd2fillz12zf1zz__unicodez00(
make_string_sans_fill(BgL_nlenz00_3035), BgL_strz00_140, BgL_lenz00_3034, BgL_tablez00_141);} } } } } 

}



/* &8bits->utf8! */
obj_t BGl_z628bitszd2ze3utf8z12z41zz__unicodez00(obj_t BgL_envz00_6248, obj_t BgL_strz00_6249, obj_t BgL_tablez00_6250)
{
{ /* Llib/unicode.scm 1628 */
{ /* Llib/unicode.scm 1629 */
 obj_t BgL_auxz00_14679;
if(
STRINGP(BgL_strz00_6249))
{ /* Llib/unicode.scm 1629 */
BgL_auxz00_14679 = BgL_strz00_6249
; }  else 
{ 
 obj_t BgL_auxz00_14682;
BgL_auxz00_14682 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(64958L), BGl_string5102z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6249); 
FAILURE(BgL_auxz00_14682,BFALSE,BFALSE);} 
return 
BGl_8bitszd2ze3utf8z12z23zz__unicodez00(BgL_auxz00_14679, BgL_tablez00_6250);} } 

}



/* iso-latin->utf8 */
BGL_EXPORTED_DEF obj_t BGl_isozd2latinzd2ze3utf8ze3zz__unicodez00(obj_t BgL_strz00_142)
{
{ /* Llib/unicode.scm 1638 */
{ /* Llib/unicode.scm 1639 */
 obj_t BgL_res3423z00_5845;
{ /* Llib/unicode.scm 1619 */
 long BgL_lenz00_5838;
BgL_lenz00_5838 = 
STRING_LENGTH(BgL_strz00_142); 
{ /* Llib/unicode.scm 1619 */
 long BgL_nlenz00_5840;
BgL_nlenz00_5840 = 
BGl_8bitszd2ze3utf8zd2lengthze3zz__unicodez00(BgL_strz00_142, BgL_lenz00_5838, BFALSE); 
{ /* Llib/unicode.scm 1620 */

if(
(BgL_lenz00_5838==BgL_nlenz00_5840))
{ /* Llib/unicode.scm 1621 */
BgL_res3423z00_5845 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_strz00_142); }  else 
{ /* Llib/unicode.scm 1621 */
BgL_res3423z00_5845 = 
BGl_8bitszd2ze3utf8zd2fillz12zf1zz__unicodez00(
make_string_sans_fill(BgL_nlenz00_5840), BgL_strz00_142, BgL_lenz00_5838, BFALSE); } } } } 
return BgL_res3423z00_5845;} } 

}



/* &iso-latin->utf8 */
obj_t BGl_z62isozd2latinzd2ze3utf8z81zz__unicodez00(obj_t BgL_envz00_6251, obj_t BgL_strz00_6252)
{
{ /* Llib/unicode.scm 1638 */
{ /* Llib/unicode.scm 1639 */
 obj_t BgL_auxz00_14694;
if(
STRINGP(BgL_strz00_6252))
{ /* Llib/unicode.scm 1639 */
BgL_auxz00_14694 = BgL_strz00_6252
; }  else 
{ 
 obj_t BgL_auxz00_14697;
BgL_auxz00_14697 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(65393L), BGl_string5103z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6252); 
FAILURE(BgL_auxz00_14697,BFALSE,BFALSE);} 
return 
BGl_isozd2latinzd2ze3utf8ze3zz__unicodez00(BgL_auxz00_14694);} } 

}



/* iso-latin->utf8! */
BGL_EXPORTED_DEF obj_t BGl_isozd2latinzd2ze3utf8z12zf1zz__unicodez00(obj_t BgL_strz00_143)
{
{ /* Llib/unicode.scm 1644 */
{ /* Llib/unicode.scm 1645 */
 obj_t BgL_res3424z00_5854;
{ /* Llib/unicode.scm 1629 */
 long BgL_lenz00_5847;
BgL_lenz00_5847 = 
STRING_LENGTH(BgL_strz00_143); 
{ /* Llib/unicode.scm 1629 */
 long BgL_nlenz00_5849;
BgL_nlenz00_5849 = 
BGl_8bitszd2ze3utf8zd2lengthze3zz__unicodez00(BgL_strz00_143, BgL_lenz00_5847, BFALSE); 
{ /* Llib/unicode.scm 1630 */

if(
(BgL_lenz00_5847==BgL_nlenz00_5849))
{ /* Llib/unicode.scm 1631 */
BgL_res3424z00_5854 = BgL_strz00_143; }  else 
{ /* Llib/unicode.scm 1631 */
BgL_res3424z00_5854 = 
BGl_8bitszd2ze3utf8zd2fillz12zf1zz__unicodez00(
make_string_sans_fill(BgL_nlenz00_5849), BgL_strz00_143, BgL_lenz00_5847, BFALSE); } } } } 
return BgL_res3424z00_5854;} } 

}



/* &iso-latin->utf8! */
obj_t BGl_z62isozd2latinzd2ze3utf8z12z93zz__unicodez00(obj_t BgL_envz00_6253, obj_t BgL_strz00_6254)
{
{ /* Llib/unicode.scm 1644 */
{ /* Llib/unicode.scm 1645 */
 obj_t BgL_auxz00_14708;
if(
STRINGP(BgL_strz00_6254))
{ /* Llib/unicode.scm 1645 */
BgL_auxz00_14708 = BgL_strz00_6254
; }  else 
{ 
 obj_t BgL_auxz00_14711;
BgL_auxz00_14711 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(65675L), BGl_string5104z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6254); 
FAILURE(BgL_auxz00_14711,BFALSE,BFALSE);} 
return 
BGl_isozd2latinzd2ze3utf8z12zf1zz__unicodez00(BgL_auxz00_14708);} } 

}



/* cp1252->utf8 */
BGL_EXPORTED_DEF obj_t BGl_cp1252zd2ze3utf8z31zz__unicodez00(obj_t BgL_strz00_144)
{
{ /* Llib/unicode.scm 1650 */
{ /* Llib/unicode.scm 1651 */
 obj_t BgL_res3425z00_5864;
{ /* Llib/unicode.scm 1651 */
 obj_t BgL_tablez00_5856;
BgL_tablez00_5856 = BGl_vector4937z00zz__unicodez00; 
{ /* Llib/unicode.scm 1619 */
 long BgL_lenz00_5857;
BgL_lenz00_5857 = 
STRING_LENGTH(BgL_strz00_144); 
{ /* Llib/unicode.scm 1619 */
 long BgL_nlenz00_5859;
BgL_nlenz00_5859 = 
BGl_8bitszd2ze3utf8zd2lengthze3zz__unicodez00(BgL_strz00_144, BgL_lenz00_5857, BgL_tablez00_5856); 
{ /* Llib/unicode.scm 1620 */

if(
(BgL_lenz00_5857==BgL_nlenz00_5859))
{ /* Llib/unicode.scm 1621 */
BgL_res3425z00_5864 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_strz00_144); }  else 
{ /* Llib/unicode.scm 1621 */
BgL_res3425z00_5864 = 
BGl_8bitszd2ze3utf8zd2fillz12zf1zz__unicodez00(
make_string_sans_fill(BgL_nlenz00_5859), BgL_strz00_144, BgL_lenz00_5857, BgL_tablez00_5856); } } } } } 
return BgL_res3425z00_5864;} } 

}



/* &cp1252->utf8 */
obj_t BGl_z62cp1252zd2ze3utf8z53zz__unicodez00(obj_t BgL_envz00_6255, obj_t BgL_strz00_6256)
{
{ /* Llib/unicode.scm 1650 */
{ /* Llib/unicode.scm 1651 */
 obj_t BgL_auxz00_14723;
if(
STRINGP(BgL_strz00_6256))
{ /* Llib/unicode.scm 1651 */
BgL_auxz00_14723 = BgL_strz00_6256
; }  else 
{ 
 obj_t BgL_auxz00_14726;
BgL_auxz00_14726 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(65951L), BGl_string5105z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6256); 
FAILURE(BgL_auxz00_14726,BFALSE,BFALSE);} 
return 
BGl_cp1252zd2ze3utf8z31zz__unicodez00(BgL_auxz00_14723);} } 

}



/* cp1252->utf8! */
BGL_EXPORTED_DEF obj_t BGl_cp1252zd2ze3utf8z12z23zz__unicodez00(obj_t BgL_strz00_145)
{
{ /* Llib/unicode.scm 1656 */
{ /* Llib/unicode.scm 1657 */
 obj_t BgL_res3426z00_5874;
{ /* Llib/unicode.scm 1657 */
 obj_t BgL_tablez00_5866;
BgL_tablez00_5866 = BGl_vector4937z00zz__unicodez00; 
{ /* Llib/unicode.scm 1629 */
 long BgL_lenz00_5867;
BgL_lenz00_5867 = 
STRING_LENGTH(BgL_strz00_145); 
{ /* Llib/unicode.scm 1629 */
 long BgL_nlenz00_5869;
BgL_nlenz00_5869 = 
BGl_8bitszd2ze3utf8zd2lengthze3zz__unicodez00(BgL_strz00_145, BgL_lenz00_5867, BgL_tablez00_5866); 
{ /* Llib/unicode.scm 1630 */

if(
(BgL_lenz00_5867==BgL_nlenz00_5869))
{ /* Llib/unicode.scm 1631 */
BgL_res3426z00_5874 = BgL_strz00_145; }  else 
{ /* Llib/unicode.scm 1631 */
BgL_res3426z00_5874 = 
BGl_8bitszd2ze3utf8zd2fillz12zf1zz__unicodez00(
make_string_sans_fill(BgL_nlenz00_5869), BgL_strz00_145, BgL_lenz00_5867, BgL_tablez00_5866); } } } } } 
return BgL_res3426z00_5874;} } 

}



/* &cp1252->utf8! */
obj_t BGl_z62cp1252zd2ze3utf8z12z41zz__unicodez00(obj_t BgL_envz00_6257, obj_t BgL_strz00_6258)
{
{ /* Llib/unicode.scm 1656 */
{ /* Llib/unicode.scm 1657 */
 obj_t BgL_auxz00_14737;
if(
STRINGP(BgL_strz00_6258))
{ /* Llib/unicode.scm 1657 */
BgL_auxz00_14737 = BgL_strz00_6258
; }  else 
{ 
 obj_t BgL_auxz00_14740;
BgL_auxz00_14740 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(66234L), BGl_string5106z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6258); 
FAILURE(BgL_auxz00_14740,BFALSE,BFALSE);} 
return 
BGl_cp1252zd2ze3utf8z12z23zz__unicodez00(BgL_auxz00_14737);} } 

}



/* string-minimal-charset */
BGL_EXPORTED_DEF obj_t BGl_stringzd2minimalzd2charsetz00zz__unicodez00(obj_t BgL_strz00_146)
{
{ /* Llib/unicode.scm 1665 */
{ 
 long BgL_iz00_3040;
BgL_iz00_3040 = 
(
STRING_LENGTH(BgL_strz00_146)-1L); 
BgL_zc3z04anonymousza32880ze3z87_3041:
if(
(BgL_iz00_3040==(-1L)))
{ /* Llib/unicode.scm 1668 */
return BGl_symbol5028z00zz__unicodez00;}  else 
{ /* Llib/unicode.scm 1669 */
 bool_t BgL_test6203z00_14747;
{ /* Llib/unicode.scm 1669 */
 unsigned char BgL_tmpz00_14748;
{ /* Llib/unicode.scm 1669 */
 long BgL_l4453z00_7305;
BgL_l4453z00_7305 = 
STRING_LENGTH(BgL_strz00_146); 
if(
BOUND_CHECK(BgL_iz00_3040, BgL_l4453z00_7305))
{ /* Llib/unicode.scm 1669 */
BgL_tmpz00_14748 = 
STRING_REF(BgL_strz00_146, BgL_iz00_3040)
; }  else 
{ 
 obj_t BgL_auxz00_14753;
BgL_auxz00_14753 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(66836L), BGl_string5022z00zz__unicodez00, BgL_strz00_146, 
(int)(BgL_l4453z00_7305), 
(int)(BgL_iz00_3040)); 
FAILURE(BgL_auxz00_14753,BFALSE,BFALSE);} } 
BgL_test6203z00_14747 = 
(BgL_tmpz00_14748<=((unsigned char)'')); } 
if(BgL_test6203z00_14747)
{ 
 long BgL_iz00_14760;
BgL_iz00_14760 = 
(BgL_iz00_3040-1L); 
BgL_iz00_3040 = BgL_iz00_14760; 
goto BgL_zc3z04anonymousza32880ze3z87_3041;}  else 
{ /* Llib/unicode.scm 1669 */
return BGl_symbol5107z00zz__unicodez00;} } } } 

}



/* &string-minimal-charset */
obj_t BGl_z62stringzd2minimalzd2charsetz62zz__unicodez00(obj_t BgL_envz00_6259, obj_t BgL_strz00_6260)
{
{ /* Llib/unicode.scm 1665 */
{ /* Llib/unicode.scm 1666 */
 obj_t BgL_auxz00_14764;
if(
STRINGP(BgL_strz00_6260))
{ /* Llib/unicode.scm 1666 */
BgL_auxz00_14764 = BgL_strz00_6260
; }  else 
{ 
 obj_t BgL_auxz00_14767;
BgL_auxz00_14767 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(66746L), BGl_string5109z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6260); 
FAILURE(BgL_auxz00_14767,BFALSE,BFALSE);} 
return 
BGl_stringzd2minimalzd2charsetz00zz__unicodez00(BgL_auxz00_14764);} } 

}



/* utf8-string-minimal-charset */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2stringzd2minimalzd2charsetzd2zz__unicodez00(obj_t BgL_strz00_147)
{
{ /* Llib/unicode.scm 1678 */
{ /* Llib/unicode.scm 1680 */
 long BgL_lenz00_3049;
BgL_lenz00_3049 = 
(
STRING_LENGTH(BgL_strz00_147)-1L); 
{ 
 long BgL_iz00_3052; obj_t BgL_charsetz00_3053;
BgL_iz00_3052 = 0L; 
BgL_charsetz00_3053 = BGl_symbol5028z00zz__unicodez00; 
BgL_zc3z04anonymousza32900ze3z87_3054:
if(
(BgL_iz00_3052>=BgL_lenz00_3049))
{ /* Llib/unicode.scm 1683 */
return BgL_charsetz00_3053;}  else 
{ /* Llib/unicode.scm 1685 */
 long BgL_nz00_3056;
{ /* Llib/unicode.scm 1685 */
 unsigned char BgL_tmpz00_14776;
{ /* Llib/unicode.scm 1685 */
 long BgL_l4457z00_7309;
BgL_l4457z00_7309 = 
STRING_LENGTH(BgL_strz00_147); 
if(
BOUND_CHECK(BgL_iz00_3052, BgL_l4457z00_7309))
{ /* Llib/unicode.scm 1685 */
BgL_tmpz00_14776 = 
STRING_REF(BgL_strz00_147, BgL_iz00_3052)
; }  else 
{ 
 obj_t BgL_auxz00_14781;
BgL_auxz00_14781 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(67595L), BGl_string5022z00zz__unicodez00, BgL_strz00_147, 
(int)(BgL_l4457z00_7309), 
(int)(BgL_iz00_3052)); 
FAILURE(BgL_auxz00_14781,BFALSE,BFALSE);} } 
BgL_nz00_3056 = 
(BgL_tmpz00_14776); } 
if(
(BgL_nz00_3056<=127L))
{ 
 long BgL_iz00_14790;
BgL_iz00_14790 = 
(BgL_iz00_3052+1L); 
BgL_iz00_3052 = BgL_iz00_14790; 
goto BgL_zc3z04anonymousza32900ze3z87_3054;}  else 
{ /* Llib/unicode.scm 1689 */
 bool_t BgL_test6209z00_14792;
if(
(BgL_nz00_3056==194L))
{ /* Llib/unicode.scm 1689 */
BgL_test6209z00_14792 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 1689 */
BgL_test6209z00_14792 = 
(BgL_nz00_3056==195L)
; } 
if(BgL_test6209z00_14792)
{ /* Llib/unicode.scm 1690 */
 long BgL_mz00_3061;
{ /* Llib/unicode.scm 1690 */
 unsigned char BgL_tmpz00_14796;
{ /* Llib/unicode.scm 1690 */
 long BgL_i4460z00_7312;
BgL_i4460z00_7312 = 
(BgL_iz00_3052+1L); 
{ /* Llib/unicode.scm 1690 */
 long BgL_l4461z00_7313;
BgL_l4461z00_7313 = 
STRING_LENGTH(BgL_strz00_147); 
if(
BOUND_CHECK(BgL_i4460z00_7312, BgL_l4461z00_7313))
{ /* Llib/unicode.scm 1690 */
BgL_tmpz00_14796 = 
STRING_REF(BgL_strz00_147, BgL_i4460z00_7312)
; }  else 
{ 
 obj_t BgL_auxz00_14802;
BgL_auxz00_14802 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(67747L), BGl_string5022z00zz__unicodez00, BgL_strz00_147, 
(int)(BgL_l4461z00_7313), 
(int)(BgL_i4460z00_7312)); 
FAILURE(BgL_auxz00_14802,BFALSE,BFALSE);} } } 
BgL_mz00_3061 = 
(BgL_tmpz00_14796); } 
{ /* Llib/unicode.scm 1691 */
 bool_t BgL_test6212z00_14809;
if(
(BgL_mz00_3061>=128L))
{ /* Llib/unicode.scm 1691 */
BgL_test6212z00_14809 = 
(BgL_mz00_3061<=191L)
; }  else 
{ /* Llib/unicode.scm 1691 */
BgL_test6212z00_14809 = ((bool_t)0)
; } 
if(BgL_test6212z00_14809)
{ 
 obj_t BgL_charsetz00_14815; long BgL_iz00_14813;
BgL_iz00_14813 = 
(BgL_iz00_3052+2L); 
BgL_charsetz00_14815 = BGl_symbol5107z00zz__unicodez00; 
BgL_charsetz00_3053 = BgL_charsetz00_14815; 
BgL_iz00_3052 = BgL_iz00_14813; 
goto BgL_zc3z04anonymousza32900ze3z87_3054;}  else 
{ /* Llib/unicode.scm 1691 */
return BGl_symbol5046z00zz__unicodez00;} } }  else 
{ /* Llib/unicode.scm 1689 */
return BGl_symbol5046z00zz__unicodez00;} } } } } } 

}



/* &utf8-string-minimal-charset */
obj_t BGl_z62utf8zd2stringzd2minimalzd2charsetzb0zz__unicodez00(obj_t BgL_envz00_6261, obj_t BgL_strz00_6262)
{
{ /* Llib/unicode.scm 1678 */
{ /* Llib/unicode.scm 1680 */
 obj_t BgL_auxz00_14816;
if(
STRINGP(BgL_strz00_6262))
{ /* Llib/unicode.scm 1680 */
BgL_auxz00_14816 = BgL_strz00_6262
; }  else 
{ 
 obj_t BgL_auxz00_14819;
BgL_auxz00_14819 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(67447L), BGl_string5110z00zz__unicodez00, BGl_string5020z00zz__unicodez00, BgL_strz00_6262); 
FAILURE(BgL_auxz00_14819,BFALSE,BFALSE);} 
return 
BGl_utf8zd2stringzd2minimalzd2charsetzd2zz__unicodez00(BgL_auxz00_14816);} } 

}



/* ucs2-string-minimal-charset */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2minimalzd2charsetzd2zz__unicodez00(obj_t BgL_strz00_148)
{
{ /* Llib/unicode.scm 1703 */
{ /* Llib/unicode.scm 1705 */
 long BgL_lenz00_3072;
BgL_lenz00_3072 = 
(
(long)(
UCS2_STRING_LENGTH(BgL_strz00_148))-1L); 
{ 
 long BgL_iz00_3075; obj_t BgL_charsetz00_3076;
{ /* Llib/unicode.scm 1706 */
 obj_t BgL_aux4894z00_7746;
BgL_iz00_3075 = 0L; 
BgL_charsetz00_3076 = BGl_symbol5028z00zz__unicodez00; 
BgL_zc3z04anonymousza32920ze3z87_3077:
if(
(BgL_iz00_3075>=BgL_lenz00_3072))
{ /* Llib/unicode.scm 1708 */
BgL_aux4894z00_7746 = BgL_charsetz00_3076; }  else 
{ /* Llib/unicode.scm 1710 */
 int BgL_nz00_3079;
{ /* Llib/unicode.scm 1710 */
 ucs2_t BgL_arg2930z00_3089;
{ /* Llib/unicode.scm 277 */
 int BgL_tmpz00_14829;
BgL_tmpz00_14829 = 
(int)(BgL_iz00_3075); 
BgL_arg2930z00_3089 = 
UCS2_STRING_REF(BgL_strz00_148, BgL_tmpz00_14829); } 
{ /* Llib/unicode.scm 1710 */
 obj_t BgL_tmpz00_14832;
BgL_tmpz00_14832 = 
BUCS2(BgL_arg2930z00_3089); 
BgL_nz00_3079 = 
CUCS2(BgL_tmpz00_14832); } } 
if(
(
(long)(BgL_nz00_3079)<=127L))
{ 
 long BgL_iz00_14838;
BgL_iz00_14838 = 
(BgL_iz00_3075+1L); 
BgL_iz00_3075 = BgL_iz00_14838; 
goto BgL_zc3z04anonymousza32920ze3z87_3077;}  else 
{ /* Llib/unicode.scm 1712 */
if(
(
(long)(BgL_nz00_3079)<=255L))
{ 
 obj_t BgL_charsetz00_14845; long BgL_iz00_14843;
BgL_iz00_14843 = 
(BgL_iz00_3075+1L); 
if(
(BgL_charsetz00_3076==BGl_symbol5111z00zz__unicodez00))
{ /* Llib/unicode.scm 1715 */
BgL_charsetz00_14845 = BGl_symbol5111z00zz__unicodez00; }  else 
{ /* Llib/unicode.scm 1715 */
BgL_charsetz00_14845 = BGl_symbol5107z00zz__unicodez00; } 
BgL_charsetz00_3076 = BgL_charsetz00_14845; 
BgL_iz00_3075 = BgL_iz00_14843; 
goto BgL_zc3z04anonymousza32920ze3z87_3077;}  else 
{ /* Llib/unicode.scm 1716 */
 bool_t BgL_test6219z00_14848;
if(
(
(long)(BgL_nz00_3079)<56320L))
{ /* Llib/unicode.scm 1716 */
BgL_test6219z00_14848 = ((bool_t)1)
; }  else 
{ /* Llib/unicode.scm 1716 */
BgL_test6219z00_14848 = 
(
(long)(BgL_nz00_3079)>56319L)
; } 
if(BgL_test6219z00_14848)
{ 
 obj_t BgL_charsetz00_14856; long BgL_iz00_14854;
BgL_iz00_14854 = 
(BgL_iz00_3075+1L); 
BgL_charsetz00_14856 = BGl_symbol5111z00zz__unicodez00; 
BgL_charsetz00_3076 = BgL_charsetz00_14856; 
BgL_iz00_3075 = BgL_iz00_14854; 
goto BgL_zc3z04anonymousza32920ze3z87_3077;}  else 
{ /* Llib/unicode.scm 1716 */
BgL_aux4894z00_7746 = BGl_symbol5113z00zz__unicodez00; } } } } 
if(
SYMBOLP(BgL_aux4894z00_7746))
{ /* Llib/unicode.scm 1706 */
return BgL_aux4894z00_7746;}  else 
{ 
 obj_t BgL_auxz00_14859;
BgL_auxz00_14859 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(68501L), BGl_string5115z00zz__unicodez00, BGl_string5116z00zz__unicodez00, BgL_aux4894z00_7746); 
FAILURE(BgL_auxz00_14859,BFALSE,BFALSE);} } } } } 

}



/* &ucs2-string-minimal-charset */
obj_t BGl_z62ucs2zd2stringzd2minimalzd2charsetzb0zz__unicodez00(obj_t BgL_envz00_6263, obj_t BgL_strz00_6264)
{
{ /* Llib/unicode.scm 1703 */
{ /* Llib/unicode.scm 1705 */
 obj_t BgL_auxz00_14863;
if(
UCS2_STRINGP(BgL_strz00_6264))
{ /* Llib/unicode.scm 1705 */
BgL_auxz00_14863 = BgL_strz00_6264
; }  else 
{ 
 obj_t BgL_auxz00_14866;
BgL_auxz00_14866 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4967z00zz__unicodez00, 
BINT(68449L), BGl_string5117z00zz__unicodez00, BGl_string4977z00zz__unicodez00, BgL_strz00_6264); 
FAILURE(BgL_auxz00_14866,BFALSE,BFALSE);} 
return 
BGl_ucs2zd2stringzd2minimalzd2charsetzd2zz__unicodez00(BgL_auxz00_14863);} } 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__unicodez00(void)
{
{ /* Llib/unicode.scm 14 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__unicodez00(void)
{
{ /* Llib/unicode.scm 14 */
return BUNSPEC;} 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__unicodez00(void)
{
{ /* Llib/unicode.scm 14 */
return BUNSPEC;} 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__unicodez00(void)
{
{ /* Llib/unicode.scm 14 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string5118z00zz__unicodez00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string5118z00zz__unicodez00)); 
BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L, 
BSTRING_TO_STRING(BGl_string5118z00zz__unicodez00)); 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string5118z00zz__unicodez00)); 
return 
BGl_modulezd2initializa7ationz75zz__threadz00(149516032L, 
BSTRING_TO_STRING(BGl_string5118z00zz__unicodez00));} 

}

#ifdef __cplusplus
}
#endif
