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

/* traces mode */
#define BIGLOO_TRACE 0

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

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___R4_OUTPUT_6_10_3_TYPE_DEFINITIONS
#define BGL___R4_OUTPUT_6_10_3_TYPE_DEFINITIONS

/* object type definitions */

#endif // BGL___R4_OUTPUT_6_10_3_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

static obj_t BGl_symbol2723z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2726z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
extern obj_t bgl_write_utf8string(obj_t, obj_t);
static obj_t BGl_symbol2730z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2734z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2736z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2738z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_displayzd2pairzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t bgl_write_binary_port(obj_t, obj_t);
extern obj_t symbol_for_read(obj_t);
extern obj_t bgl_write_ucs2(obj_t, obj_t);
static obj_t BGl_symbol2741z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2744z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2749z00zz__r4_output_6_10_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t bgl_display_obj(obj_t, obj_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_displayzd2stringzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t bgl_display_ucs2string(obj_t, obj_t);
static obj_t BGl_z62illegalzd2charzd2repz62zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t bgl_write_output_port(obj_t, obj_t);
static obj_t BGl_symbol2751z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2754z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2594z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2757z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2676z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2678z00zz__r4_output_6_10_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_writezd2stringzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t bgl_write_cnst(obj_t, obj_t);
static obj_t BGl_z62displayzd2flonumzb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
extern obj_t bgl_write_procedure(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__r4_output_6_10_3z00(void);
extern obj_t bgl_write_char(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_objectzd2displayzd2zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_z62writeza2zc0zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_genericzd2initzd2zz__r4_output_6_10_3z00(void);
static obj_t BGl_objectzd2initzd2zz__r4_output_6_10_3z00(void);
extern obj_t BGl_stringzd2skipzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62displayzd2ucs2stringzb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
extern obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
static obj_t BGl__writezd2bytezd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t bgl_write_custom(obj_t, obj_t);
static obj_t BGl_z62printfz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
extern obj_t bgl_write_bignum(obj_t, obj_t);
extern obj_t string_append_3(obj_t, obj_t, obj_t);
extern obj_t bgl_weakptr_data(obj_t);
static obj_t BGl_z62displayzd2substringzb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t bgl_write_unknown(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_printz00zz__r4_output_6_10_3z00(obj_t);
extern obj_t BGl_tvectorzd2refzd2zz__tvectorz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_writezd2bytezd2zz__r4_output_6_10_3z00(unsigned char, obj_t);
BGL_EXPORTED_DECL obj_t BGl_writezd2ucs2stringzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_z62writezd2bytezd22z62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62writezd2symbolzb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_displayzd2flonumzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_z62newlinezd21zb0zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_fprintfz00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62displayzd2elongzb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
BGL_EXPORTED_DECL obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_z62writezd22zb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62writezd2charzd22z62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zz__r4_output_6_10_3z00(void);
static obj_t BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
extern obj_t BGl_objectzd2writezd2zz__objectz00(BgL_objectz00_bglt, obj_t);
extern obj_t bgl_write_input_port(obj_t, obj_t);
extern obj_t BGl_tvectorzd2idzd2zz__tvectorz00(obj_t);
extern obj_t bgl_display_llong(BGL_LONGLONG_T, obj_t);
static obj_t BGl_z62printz62zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_z62displayz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t make_string(long, unsigned char);
extern obj_t bgl_write_mmap(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_newlinezd21zd2zz__r4_output_6_10_3z00(obj_t);
extern obj_t BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t);
extern obj_t bgl_write_dynamic_env(obj_t, obj_t);
static obj_t BGl_z62writez62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_fprintz00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_datezd2ze3stringz31zz__datez00(obj_t);
extern obj_t bgl_ill_char_rep(unsigned char);
static obj_t BGl_z62displayza2zc0zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t bgl_display_bignum(obj_t, obj_t);
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
extern obj_t bgl_close_output_port(obj_t);
static obj_t BGl_z62formatz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62writezd2ucs2stringzb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_newlinez00zz__r4_output_6_10_3z00(obj_t);
extern obj_t bgl_write_llong(BGL_LONGLONG_T, obj_t);
extern obj_t bgl_display_elong(long, obj_t);
extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
extern bool_t BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00(void);
extern obj_t bgl_write_datagram_socket(obj_t, obj_t);
static obj_t BGl_list2701z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_z62writezd2stringzb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list2711z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_list2714z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_list2718z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t string_for_read(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__srfi4z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
static obj_t BGl_z62displayzd2fixnumzb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
extern obj_t bgl_display_ucs2(obj_t, obj_t);
extern obj_t bgl_write_socket(obj_t, obj_t);
extern obj_t ucs2_string_to_utf8_string(obj_t);
static obj_t BGl_list2722z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_list2725z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_list2729z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t bgl_write_elong(long, obj_t);
extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
extern bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_list2733z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl__writezd2charzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_displayzd2ucs2stringzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_writezf2displayzd2hvectorz20zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
extern obj_t bgl_write_process(obj_t, obj_t);
static obj_t BGl_z62displayzd2symbolzb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_tprintz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_list2740z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_list2743z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_list2748z00zz__r4_output_6_10_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_displayzd2elongzd2zz__r4_output_6_10_3z00(long, obj_t);
static obj_t BGl_cnstzd2initzd2zz__r4_output_6_10_3z00(void);
extern obj_t BGl_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_output_6_10_3z00(void);
static obj_t BGl_xprintfz00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list2753z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_gczd2rootszd2initz00zz__r4_output_6_10_3z00(void);
static obj_t BGl_list2756z00zz__r4_output_6_10_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_writezd2charzd2zz__r4_output_6_10_3z00(unsigned char, obj_t);
extern obj_t bgl_display_fixnum(obj_t, obj_t);
extern obj_t bgl_write_semaphore(obj_t, obj_t);
extern obj_t BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(obj_t);
extern obj_t bgl_write_foreign(obj_t, obj_t);
extern obj_t BGl_displayzd2circlezd2zz__pp_circlez00(obj_t, obj_t);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_writezd2pairzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_writezd2circlezd2zz__pp_circlez00(obj_t, obj_t);
static obj_t BGl_z62fprintz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_displayzd2fixnumzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t);
extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
extern obj_t bgl_write_regexp(obj_t, obj_t);
extern obj_t bgl_write_opaque(obj_t, obj_t);
extern obj_t bgl_write_string(obj_t, bool_t, obj_t);
static obj_t BGl_z62fprintfz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bgl_write_obj(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_displayzd2symbolzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_writezd2bytezd22z00zz__r4_output_6_10_3z00(unsigned char, obj_t);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
BGL_EXPORTED_DECL obj_t BGl_writezd2symbolzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_writeza2za2zz__r4_output_6_10_3z00(obj_t);
static obj_t BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2601z00zz__r4_output_6_10_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_displayzd2substringzd2zz__r4_output_6_10_3z00(obj_t, long, long, obj_t);
BGL_EXPORTED_DECL obj_t BGl_writezd2charzd22z00zz__r4_output_6_10_3z00(unsigned char, obj_t);
BGL_EXPORTED_DECL obj_t BGl_displayz00zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(unsigned char);
static obj_t BGl_z62displayzd2stringzb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_printfz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_symbol2702z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2704z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2706z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t bgl_real_to_string(double);
static obj_t BGl_symbol2708z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_writezd2mutexzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_z62displayzd22zb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2712z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2715z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_z62tprintz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2719z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_writezf2displayzd2vectorz20zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62newlinez62zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE(BGl_writezd22zd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d22za7b0za72760z00, BGl_z62writezd22zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_writezd2bytezd22zd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2byteza72761za7, BGl_z62writezd2bytezd22z62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2600z00zz__r4_output_6_10_3z00, BgL_bgl_string2600za700za7za7_2762za7, "case_else1165", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_formatzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762formatza762za7za7__2763z00, va_generic_entry, BGl_z62formatz62zz__r4_output_6_10_3z00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string2602z00zz__r4_output_6_10_3z00, BgL_bgl_string2602za700za7za7_2764za7, "write-byte", 10 );
BGL_DEFINE_STRING(BGl_string2603z00zz__r4_output_6_10_3z00, BgL_bgl_string2603za700za7za7_2765za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string2604z00zz__r4_output_6_10_3z00, BgL_bgl_string2604za700za7za7_2766za7, "&write-byte-2", 13 );
BGL_DEFINE_STRING(BGl_string2605z00zz__r4_output_6_10_3z00, BgL_bgl_string2605za700za7za7_2767za7, "#Newline", 8 );
BGL_DEFINE_STRING(BGl_string2606z00zz__r4_output_6_10_3z00, BgL_bgl_string2606za700za7za7_2768za7, "#Return", 7 );
BGL_DEFINE_STRING(BGl_string2607z00zz__r4_output_6_10_3z00, BgL_bgl_string2607za700za7za7_2769za7, "#Space", 6 );
BGL_DEFINE_STRING(BGl_string2608z00zz__r4_output_6_10_3z00, BgL_bgl_string2608za700za7za7_2770za7, "#Tab", 4 );
BGL_DEFINE_STRING(BGl_string2609z00zz__r4_output_6_10_3z00, BgL_bgl_string2609za700za7za7_2771za7, "&illegal-char-rep", 17 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_printfzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762printfza762za7za7__2772z00, va_generic_entry, BGl_z62printfz62zz__r4_output_6_10_3z00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string2610z00zz__r4_output_6_10_3z00, BgL_bgl_string2610za700za7za7_2773za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string2611z00zz__r4_output_6_10_3z00, BgL_bgl_string2611za700za7za7_2774za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string2612z00zz__r4_output_6_10_3z00, BgL_bgl_string2612za700za7za7_2775za7, "&tprint", 7 );
BGL_DEFINE_STRING(BGl_string2613z00zz__r4_output_6_10_3z00, BgL_bgl_string2613za700za7za7_2776za7, "&fprint", 7 );
BGL_DEFINE_STRING(BGl_string2614z00zz__r4_output_6_10_3z00, BgL_bgl_string2614za700za7za7_2777za7, "Insufficient number of arguments", 32 );
BGL_DEFINE_STRING(BGl_string2615z00zz__r4_output_6_10_3z00, BgL_bgl_string2615za700za7za7_2778za7, "case_else1047", 13 );
BGL_DEFINE_STRING(BGl_string2616z00zz__r4_output_6_10_3z00, BgL_bgl_string2616za700za7za7_2779za7, "Illegal tag \"", 13 );
BGL_DEFINE_STRING(BGl_string2617z00zz__r4_output_6_10_3z00, BgL_bgl_string2617za700za7za7_2780za7, "\"", 1 );
BGL_DEFINE_STRING(BGl_string2618z00zz__r4_output_6_10_3z00, BgL_bgl_string2618za700za7za7_2781za7, "handle-tag", 10 );
BGL_DEFINE_STRING(BGl_string2619z00zz__r4_output_6_10_3z00, BgL_bgl_string2619za700za7za7_2782za7, "Illegal char", 12 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2stringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2str2783z00, BGl_z62displayzd2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2700z00zz__r4_output_6_10_3z00, BgL_bgl_string2700za700za7za7_2784za7, "write/display-structure:Wrong number of arguments", 49 );
BGL_DEFINE_STRING(BGl_string2620z00zz__r4_output_6_10_3z00, BgL_bgl_string2620za700za7za7_2785za7, "number", 6 );
BGL_DEFINE_STRING(BGl_string2621z00zz__r4_output_6_10_3z00, BgL_bgl_string2621za700za7za7_2786za7, " ", 1 );
BGL_DEFINE_STRING(BGl_string2703z00zz__r4_output_6_10_3z00, BgL_bgl_string2703za700za7za7_2787za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string2622z00zz__r4_output_6_10_3z00, BgL_bgl_string2622za700za7za7_2788za7, "0123456789", 10 );
BGL_DEFINE_STRING(BGl_string2623z00zz__r4_output_6_10_3z00, BgL_bgl_string2623za700za7za7_2789za7, "print-formatted-number", 22 );
BGL_DEFINE_STRING(BGl_string2705z00zz__r4_output_6_10_3z00, BgL_bgl_string2705za700za7za7_2790za7, "disp", 4 );
BGL_DEFINE_STRING(BGl_string2624z00zz__r4_output_6_10_3z00, BgL_bgl_string2624za700za7za7_2791za7, "string-ref", 10 );
BGL_DEFINE_STRING(BGl_string2625z00zz__r4_output_6_10_3z00, BgL_bgl_string2625za700za7za7_2792za7, "Illegal tag", 11 );
BGL_DEFINE_STRING(BGl_string2707z00zz__r4_output_6_10_3z00, BgL_bgl_string2707za700za7za7_2793za7, "arg1658", 7 );
BGL_DEFINE_STRING(BGl_string2626z00zz__r4_output_6_10_3z00, BgL_bgl_string2626za700za7za7_2794za7, "print-padded-number", 19 );
BGL_DEFINE_STRING(BGl_string2627z00zz__r4_output_6_10_3z00, BgL_bgl_string2627za700za7za7_2795za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string2709z00zz__r4_output_6_10_3z00, BgL_bgl_string2709za700za7za7_2796za7, "port", 4 );
BGL_DEFINE_STRING(BGl_string2628z00zz__r4_output_6_10_3z00, BgL_bgl_string2628za700za7za7_2797za7, "print-list", 10 );
BGL_DEFINE_STRING(BGl_string2629z00zz__r4_output_6_10_3z00, BgL_bgl_string2629za700za7za7_2798za7, "Tag not allowed here", 20 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2substringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2sub2799z00, BGl_z62displayzd2substringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 4);
BGL_DEFINE_STRING(BGl_string2710z00zz__r4_output_6_10_3z00, BgL_bgl_string2710za700za7za7_2800za7, "loop:Wrong number of arguments", 30 );
BGL_DEFINE_STRING(BGl_string2630z00zz__r4_output_6_10_3z00, BgL_bgl_string2630za700za7za7_2801za7, " . ", 3 );
BGL_DEFINE_STRING(BGl_string2631z00zz__r4_output_6_10_3z00, BgL_bgl_string2631za700za7za7_2802za7, "format", 6 );
BGL_DEFINE_STRING(BGl_string2713z00zz__r4_output_6_10_3z00, BgL_bgl_string2713za700za7za7_2803za7, "arg1664", 7 );
BGL_DEFINE_STRING(BGl_string2632z00zz__r4_output_6_10_3z00, BgL_bgl_string2632za700za7za7_2804za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string2633z00zz__r4_output_6_10_3z00, BgL_bgl_string2633za700za7za7_2805za7, "&format", 7 );
BGL_DEFINE_STRING(BGl_string2634z00zz__r4_output_6_10_3z00, BgL_bgl_string2634za700za7za7_2806za7, "printf", 6 );
BGL_DEFINE_STRING(BGl_string2716z00zz__r4_output_6_10_3z00, BgL_bgl_string2716za700za7za7_2807za7, "arg1665", 7 );
BGL_DEFINE_STRING(BGl_string2635z00zz__r4_output_6_10_3z00, BgL_bgl_string2635za700za7za7_2808za7, "&printf", 7 );
BGL_DEFINE_STRING(BGl_string2717z00zz__r4_output_6_10_3z00, BgL_bgl_string2717za700za7za7_2809za7, "write/display-vector:Wrong number of arguments", 46 );
BGL_DEFINE_STRING(BGl_string2636z00zz__r4_output_6_10_3z00, BgL_bgl_string2636za700za7za7_2810za7, "fprintf", 7 );
BGL_DEFINE_STRING(BGl_string2637z00zz__r4_output_6_10_3z00, BgL_bgl_string2637za700za7za7_2811za7, "&fprintf", 8 );
BGL_DEFINE_STRING(BGl_string2638z00zz__r4_output_6_10_3z00, BgL_bgl_string2638za700za7za7_2812za7, "()", 2 );
BGL_DEFINE_STRING(BGl_string2639z00zz__r4_output_6_10_3z00, BgL_bgl_string2639za700za7za7_2813za7, "#f", 2 );
BGL_DEFINE_STRING(BGl_string2720z00zz__r4_output_6_10_3z00, BgL_bgl_string2720za700za7za7_2814za7, "tag", 3 );
BGL_DEFINE_STRING(BGl_string2721z00zz__r4_output_6_10_3z00, BgL_bgl_string2721za700za7za7_2815za7, "vector-ref", 10 );
BGL_DEFINE_STRING(BGl_string2640z00zz__r4_output_6_10_3z00, BgL_bgl_string2640za700za7za7_2816za7, "#t", 2 );
BGL_DEFINE_STRING(BGl_string2641z00zz__r4_output_6_10_3z00, BgL_bgl_string2641za700za7za7_2817za7, "#unspecified", 12 );
BGL_DEFINE_STRING(BGl_string2642z00zz__r4_output_6_10_3z00, BgL_bgl_string2642za700za7za7_2818za7, "#<class:", 8 );
BGL_DEFINE_STRING(BGl_string2724z00zz__r4_output_6_10_3z00, BgL_bgl_string2724za700za7za7_2819za7, "arg1681", 7 );
BGL_DEFINE_STRING(BGl_string2643z00zz__r4_output_6_10_3z00, BgL_bgl_string2643za700za7za7_2820za7, "display-2", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_newlinezd21zd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762newlineza7d21za7b2821za7, BGl_z62newlinezd21zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2644z00zz__r4_output_6_10_3z00, BgL_bgl_string2644za700za7za7_2822za7, "class", 5 );
BGL_DEFINE_STRING(BGl_string2645z00zz__r4_output_6_10_3z00, BgL_bgl_string2645za700za7za7_2823za7, ">", 1 );
BGL_DEFINE_STRING(BGl_string2727z00zz__r4_output_6_10_3z00, BgL_bgl_string2727za700za7za7_2824za7, "arg1683", 7 );
BGL_DEFINE_STRING(BGl_string2646z00zz__r4_output_6_10_3z00, BgL_bgl_string2646za700za7za7_2825za7, "#<condition-variable:", 21 );
BGL_DEFINE_STRING(BGl_string2728z00zz__r4_output_6_10_3z00, BgL_bgl_string2728za700za7za7_2826za7, "write/display-tvector:Wrong number of arguments", 47 );
BGL_DEFINE_STRING(BGl_string2647z00zz__r4_output_6_10_3z00, BgL_bgl_string2647za700za7za7_2827za7, "condvar", 7 );
BGL_DEFINE_STRING(BGl_string2648z00zz__r4_output_6_10_3z00, BgL_bgl_string2648za700za7za7_2828za7, "#<cell:", 7 );
BGL_DEFINE_STRING(BGl_string2649z00zz__r4_output_6_10_3z00, BgL_bgl_string2649za700za7za7_2829za7, "#eof-object", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_fprintfzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762fprintfza762za7za7_2830z00, va_generic_entry, BGl_z62fprintfz62zz__r4_output_6_10_3z00, BUNSPEC, -3);
BGL_DEFINE_STRING(BGl_string2731z00zz__r4_output_6_10_3z00, BgL_bgl_string2731za700za7za7_2831za7, "id", 2 );
BGL_DEFINE_STRING(BGl_string2650z00zz__r4_output_6_10_3z00, BgL_bgl_string2650za700za7za7_2832za7, "#!optional", 10 );
BGL_DEFINE_STRING(BGl_string2732z00zz__r4_output_6_10_3z00, BgL_bgl_string2732za700za7za7_2833za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string2651z00zz__r4_output_6_10_3z00, BgL_bgl_string2651za700za7za7_2834za7, "#!rest", 6 );
BGL_DEFINE_STRING(BGl_string2652z00zz__r4_output_6_10_3z00, BgL_bgl_string2652za700za7za7_2835za7, "#!key", 5 );
BGL_DEFINE_STRING(BGl_string2653z00zz__r4_output_6_10_3z00, BgL_bgl_string2653za700za7za7_2836za7, "#<output_string_port>", 21 );
BGL_DEFINE_STRING(BGl_string2735z00zz__r4_output_6_10_3z00, BgL_bgl_string2735za700za7za7_2837za7, "tvector-ref", 11 );
BGL_DEFINE_STRING(BGl_string2654z00zz__r4_output_6_10_3z00, BgL_bgl_string2654za700za7za7_2838za7, "#<output_procedure_port>", 24 );
BGL_DEFINE_STRING(BGl_string2655z00zz__r4_output_6_10_3z00, BgL_bgl_string2655za700za7za7_2839za7, "#<weakptr:", 10 );
BGL_DEFINE_STRING(BGl_string2737z00zz__r4_output_6_10_3z00, BgL_bgl_string2737za700za7za7_2840za7, "tvec", 4 );
BGL_DEFINE_STRING(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_bgl_string2656za700za7za7_2841za7, "process", 7 );
BGL_DEFINE_STRING(BGl_string2657z00zz__r4_output_6_10_3z00, BgL_bgl_string2657za700za7za7_2842za7, "socket", 6 );
BGL_DEFINE_STRING(BGl_string2739z00zz__r4_output_6_10_3z00, BgL_bgl_string2739za700za7za7_2843za7, "i", 1 );
BGL_DEFINE_STRING(BGl_string2658z00zz__r4_output_6_10_3z00, BgL_bgl_string2658za700za7za7_2844za7, "datagram-socket", 15 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_writezd2charzd2envz00zz__r4_output_6_10_3z00, BgL_bgl__writeza7d2charza7d22845z00, opt_generic_entry, BGl__writezd2charzd2zz__r4_output_6_10_3z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string2659z00zz__r4_output_6_10_3z00, BgL_bgl_string2659za700za7za7_2846za7, "regexp", 6 );
BGL_DEFINE_STRING(BGl_string2660z00zz__r4_output_6_10_3z00, BgL_bgl_string2660za700za7za7_2847za7, "mmap", 4 );
BGL_DEFINE_STRING(BGl_string2742z00zz__r4_output_6_10_3z00, BgL_bgl_string2742za700za7za7_2848za7, "arg1697", 7 );
BGL_DEFINE_STRING(BGl_string2661z00zz__r4_output_6_10_3z00, BgL_bgl_string2661za700za7za7_2849za7, "semaphore", 9 );
BGL_DEFINE_STRING(BGl_string2662z00zz__r4_output_6_10_3z00, BgL_bgl_string2662za700za7za7_2850za7, "&display-2", 10 );
BGL_DEFINE_STRING(BGl_string2663z00zz__r4_output_6_10_3z00, BgL_bgl_string2663za700za7za7_2851za7, "write-2", 7 );
BGL_DEFINE_STRING(BGl_string2745z00zz__r4_output_6_10_3z00, BgL_bgl_string2745za700za7za7_2852za7, "arg1698", 7 );
BGL_DEFINE_STRING(BGl_string2664z00zz__r4_output_6_10_3z00, BgL_bgl_string2664za700za7za7_2853za7, "#<date:", 7 );
BGL_DEFINE_STRING(BGl_string2583z00zz__r4_output_6_10_3z00, BgL_bgl_string2583za700za7za7_2854za7, "tprint", 6 );
BGL_DEFINE_STRING(BGl_string2746z00zz__r4_output_6_10_3z00, BgL_bgl_string2746za700za7za7_2855za7, "...)", 4 );
BGL_DEFINE_STRING(BGl_string2665z00zz__r4_output_6_10_3z00, BgL_bgl_string2665za700za7za7_2856za7, "#s8:", 4 );
BGL_DEFINE_STRING(BGl_string2584z00zz__r4_output_6_10_3z00, BgL_bgl_string2584za700za7za7_2857za7, "newline", 7 );
BGL_DEFINE_STRING(BGl_string2747z00zz__r4_output_6_10_3z00, BgL_bgl_string2747za700za7za7_2858za7, "write/display-hvector", 21 );
BGL_DEFINE_STRING(BGl_string2666z00zz__r4_output_6_10_3z00, BgL_bgl_string2666za700za7za7_2859za7, "#u8:", 4 );
BGL_DEFINE_STRING(BGl_string2585z00zz__r4_output_6_10_3z00, BgL_bgl_string2585za700za7za7_2860za7, "wrong number of optional arguments", 34 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_writeza2zd2envz70zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7a2za7c0za7za72861za7, va_generic_entry, BGl_z62writeza2zc0zz__r4_output_6_10_3z00, BUNSPEC, -1);
BGL_DEFINE_STRING(BGl_string2667z00zz__r4_output_6_10_3z00, BgL_bgl_string2667za700za7za7_2862za7, "#s16:", 5 );
BGL_DEFINE_STRING(BGl_string2586z00zz__r4_output_6_10_3z00, BgL_bgl_string2586za700za7za7_2863za7, "/tmp/bigloo/runtime/Ieee/output.scm", 35 );
BGL_DEFINE_STRING(BGl_string2668z00zz__r4_output_6_10_3z00, BgL_bgl_string2668za700za7za7_2864za7, "#u16:", 5 );
BGL_DEFINE_STRING(BGl_string2587z00zz__r4_output_6_10_3z00, BgL_bgl_string2587za700za7za7_2865za7, "output-port", 11 );
BGL_DEFINE_STRING(BGl_string2669z00zz__r4_output_6_10_3z00, BgL_bgl_string2669za700za7za7_2866za7, "#s32:", 5 );
BGL_DEFINE_STRING(BGl_string2588z00zz__r4_output_6_10_3z00, BgL_bgl_string2588za700za7za7_2867za7, "&newline-1", 10 );
BGL_DEFINE_STRING(BGl_string2589z00zz__r4_output_6_10_3z00, BgL_bgl_string2589za700za7za7_2868za7, "display", 7 );
BGL_DEFINE_STRING(BGl_string2750z00zz__r4_output_6_10_3z00, BgL_bgl_string2750za700za7za7_2869za7, "vref", 4 );
BGL_DEFINE_STRING(BGl_string2670z00zz__r4_output_6_10_3z00, BgL_bgl_string2670za700za7za7_2870za7, "#u32:", 5 );
BGL_DEFINE_STRING(BGl_string2752z00zz__r4_output_6_10_3z00, BgL_bgl_string2752za700za7za7_2871za7, "svec", 4 );
BGL_DEFINE_STRING(BGl_string2671z00zz__r4_output_6_10_3z00, BgL_bgl_string2671za700za7za7_2872za7, "#s64:", 5 );
BGL_DEFINE_STRING(BGl_string2590z00zz__r4_output_6_10_3z00, BgL_bgl_string2590za700za7za7_2873za7, "write", 5 );
BGL_DEFINE_STRING(BGl_string2672z00zz__r4_output_6_10_3z00, BgL_bgl_string2672za700za7za7_2874za7, "#u64:", 5 );
BGL_DEFINE_STRING(BGl_string2591z00zz__r4_output_6_10_3z00, BgL_bgl_string2591za700za7za7_2875za7, "_write-char", 11 );
BGL_DEFINE_STRING(BGl_string2673z00zz__r4_output_6_10_3z00, BgL_bgl_string2673za700za7za7_2876za7, "&write-2", 8 );
BGL_DEFINE_STRING(BGl_string2592z00zz__r4_output_6_10_3z00, BgL_bgl_string2592za700za7za7_2877za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string2755z00zz__r4_output_6_10_3z00, BgL_bgl_string2755za700za7za7_2878za7, "arg1710", 7 );
BGL_DEFINE_STRING(BGl_string2674z00zz__r4_output_6_10_3z00, BgL_bgl_string2674za700za7za7_2879za7, "&display-symbol", 15 );
BGL_DEFINE_STRING(BGl_string2593z00zz__r4_output_6_10_3z00, BgL_bgl_string2593za700za7za7_2880za7, "case_else1160", 13 );
BGL_DEFINE_STRING(BGl_string2675z00zz__r4_output_6_10_3z00, BgL_bgl_string2675za700za7za7_2881za7, "symbol", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_writezd2charzd22zd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2charza72882za7, BGl_z62writezd2charzd22z62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2595z00zz__r4_output_6_10_3z00, BgL_bgl_string2595za700za7za7_2883za7, "write-char", 10 );
BGL_DEFINE_STRING(BGl_string2758z00zz__r4_output_6_10_3z00, BgL_bgl_string2758za700za7za7_2884za7, "arg1711", 7 );
BGL_DEFINE_STRING(BGl_string2677z00zz__r4_output_6_10_3z00, BgL_bgl_string2677za700za7za7_2885za7, "+", 1 );
BGL_DEFINE_STRING(BGl_string2596z00zz__r4_output_6_10_3z00, BgL_bgl_string2596za700za7za7_2886za7, "wrong number of arguments: [1..2] expected, provided", 52 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2ucs2stringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2ucs2887z00, BGl_z62displayzd2ucs2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2759z00zz__r4_output_6_10_3z00, BgL_bgl_string2759za700za7za7_2888za7, "__r4_output_6_10_3", 18 );
BGL_DEFINE_STRING(BGl_string2597z00zz__r4_output_6_10_3z00, BgL_bgl_string2597za700za7za7_2889za7, "bchar", 5 );
BGL_DEFINE_STRING(BGl_string2679z00zz__r4_output_6_10_3z00, BgL_bgl_string2679za700za7za7_2890za7, "-", 1 );
BGL_DEFINE_STRING(BGl_string2598z00zz__r4_output_6_10_3z00, BgL_bgl_string2598za700za7za7_2891za7, "&write-char-2", 13 );
BGL_DEFINE_STRING(BGl_string2599z00zz__r4_output_6_10_3z00, BgL_bgl_string2599za700za7za7_2892za7, "_write-byte", 11 );
BGL_DEFINE_STRING(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_bgl_string2680za700za7za7_2893za7, "|", 1 );
BGL_DEFINE_STRING(BGl_string2681z00zz__r4_output_6_10_3z00, BgL_bgl_string2681za700za7za7_2894za7, "&write-symbol", 13 );
BGL_DEFINE_STRING(BGl_string2682z00zz__r4_output_6_10_3z00, BgL_bgl_string2682za700za7za7_2895za7, "&display-string", 15 );
BGL_DEFINE_STRING(BGl_string2683z00zz__r4_output_6_10_3z00, BgL_bgl_string2683za700za7za7_2896za7, "Illegal index, start=~a end=~a", 30 );
BGL_DEFINE_STRING(BGl_string2684z00zz__r4_output_6_10_3z00, BgL_bgl_string2684za700za7za7_2897za7, "display-substring", 17 );
BGL_DEFINE_STRING(BGl_string2685z00zz__r4_output_6_10_3z00, BgL_bgl_string2685za700za7za7_2898za7, "&display-substring", 18 );
BGL_DEFINE_STRING(BGl_string2686z00zz__r4_output_6_10_3z00, BgL_bgl_string2686za700za7za7_2899za7, "&write-string", 13 );
BGL_DEFINE_STRING(BGl_string2687z00zz__r4_output_6_10_3z00, BgL_bgl_string2687za700za7za7_2900za7, "&display-fixnum", 15 );
BGL_DEFINE_STRING(BGl_string2688z00zz__r4_output_6_10_3z00, BgL_bgl_string2688za700za7za7_2901za7, "&display-elong", 14 );
BGL_DEFINE_STRING(BGl_string2689z00zz__r4_output_6_10_3z00, BgL_bgl_string2689za700za7za7_2902za7, "belong", 6 );
BGL_DEFINE_STRING(BGl_string2690z00zz__r4_output_6_10_3z00, BgL_bgl_string2690za700za7za7_2903za7, "&display-flonum", 15 );
BGL_DEFINE_STRING(BGl_string2691z00zz__r4_output_6_10_3z00, BgL_bgl_string2691za700za7za7_2904za7, "real", 4 );
BGL_DEFINE_STRING(BGl_string2692z00zz__r4_output_6_10_3z00, BgL_bgl_string2692za700za7za7_2905za7, "&display-ucs2string", 19 );
BGL_DEFINE_STRING(BGl_string2693z00zz__r4_output_6_10_3z00, BgL_bgl_string2693za700za7za7_2906za7, "ucs2string", 10 );
BGL_DEFINE_STRING(BGl_string2694z00zz__r4_output_6_10_3z00, BgL_bgl_string2694za700za7za7_2907za7, "&write-ucs2string", 17 );
BGL_DEFINE_STRING(BGl_string2695z00zz__r4_output_6_10_3z00, BgL_bgl_string2695za700za7za7_2908za7, "#<mutex:", 8 );
BGL_DEFINE_STRING(BGl_string2696z00zz__r4_output_6_10_3z00, BgL_bgl_string2696za700za7za7_2909za7, "write-mutex", 11 );
BGL_DEFINE_STRING(BGl_string2697z00zz__r4_output_6_10_3z00, BgL_bgl_string2697za700za7za7_2910za7, "mutex", 5 );
BGL_DEFINE_STRING(BGl_string2698z00zz__r4_output_6_10_3z00, BgL_bgl_string2698za700za7za7_2911za7, ":", 1 );
BGL_DEFINE_STRING(BGl_string2699z00zz__r4_output_6_10_3z00, BgL_bgl_string2699za700za7za7_2912za7, "write/display-structure", 23 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_writezd2symbolzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2symbo2913z00, BGl_z62writezd2symbolzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762displayza762za7za7_2914z00, bgl_va_stack_entry, BGl_z62displayz62zz__r4_output_6_10_3z00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2elongzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2elo2915z00, BGl_z62displayzd2elongzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_writezd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762writeza762za7za7__r2916z00, bgl_va_stack_entry, BGl_z62writez62zz__r4_output_6_10_3z00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d22za7b2917za7, BGl_z62displayzd22zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_newlinezd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762newlineza762za7za7_2918z00, va_generic_entry, BGl_z62newlinez62zz__r4_output_6_10_3z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayza2zd2envz70zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7a2za7c02919za7, va_generic_entry, BGl_z62displayza2zc0zz__r4_output_6_10_3z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tprintzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762tprintza762za7za7__2920z00, va_generic_entry, BGl_z62tprintz62zz__r4_output_6_10_3z00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_writezd2ucs2stringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2ucs2s2921z00, BGl_z62writezd2ucs2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_writezd2bytezd2envz00zz__r4_output_6_10_3z00, BgL_bgl__writeza7d2byteza7d22922z00, opt_generic_entry, BGl__writezd2bytezd2zz__r4_output_6_10_3z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2flonumzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2flo2923z00, BGl_z62displayzd2flonumzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_fprintzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762fprintza762za7za7__2924z00, va_generic_entry, BGl_z62fprintz62zz__r4_output_6_10_3z00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_printzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762printza762za7za7__r2925z00, bgl_va_stack_entry, BGl_z62printz62zz__r4_output_6_10_3z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2symbolzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2sym2926z00, BGl_z62displayzd2symbolzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_writezd2stringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2strin2927z00, BGl_z62writezd2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_illegalzd2charzd2repzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762illegalza7d2cha2928z00, BGl_z62illegalzd2charzd2repz62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2fixnumzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2fix2929z00, BGl_z62displayzd2fixnumzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_PROCEDURE(BGl_displayzd2fixnumzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2fix2929z00);
BGL_BIND_PROCEDURE(BGl_illegalzd2charzd2repzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762illegalza7d2cha2928z00);
BGL_BIND_PROCEDURE(BGl_writezd2stringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2strin2927z00);
BGL_BIND_PROCEDURE(BGl_displayzd2symbolzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2sym2926z00);
BGL_BIND_PROCEDURE(BGl_printzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762printza762za7za7__r2925z00);
BGL_BIND_PROCEDURE(BGl_fprintzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762fprintza762za7za7__2924z00);
BGL_BIND_PROCEDURE(BGl_displayzd2flonumzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2flo2923z00);
BGL_BIND_PROCEDURE(BGl_writezd2bytezd2envz00zz__r4_output_6_10_3z00, BgL_bgl__writeza7d2byteza7d22922z00);
BGL_BIND_PROCEDURE(BGl_writezd2ucs2stringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2ucs2s2921z00);
BGL_BIND_PROCEDURE(BGl_tprintzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762tprintza762za7za7__2920z00);
BGL_BIND_PROCEDURE(BGl_displayza2zd2envz70zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7a2za7c02919za7);
BGL_BIND_PROCEDURE(BGl_newlinezd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762newlineza762za7za7_2918z00);
BGL_BIND_PROCEDURE(BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d22za7b2917za7);
BGL_BIND_PROCEDURE(BGl_writezd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762writeza762za7za7__r2916z00);
BGL_BIND_PROCEDURE(BGl_displayzd2elongzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2elo2915z00);
BGL_BIND_PROCEDURE(BGl_displayzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762displayza762za7za7_2914z00);
BGL_BIND_PROCEDURE(BGl_writezd2symbolzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2symbo2913z00);
BGL_BIND_STRING(BGl_string2699z00zz__r4_output_6_10_3z00, BgL_bgl_string2699za700za7za7_2912za7);
BGL_BIND_STRING(BGl_string2698z00zz__r4_output_6_10_3z00, BgL_bgl_string2698za700za7za7_2911za7);
BGL_BIND_STRING(BGl_string2697z00zz__r4_output_6_10_3z00, BgL_bgl_string2697za700za7za7_2910za7);
BGL_BIND_STRING(BGl_string2696z00zz__r4_output_6_10_3z00, BgL_bgl_string2696za700za7za7_2909za7);
BGL_BIND_STRING(BGl_string2695z00zz__r4_output_6_10_3z00, BgL_bgl_string2695za700za7za7_2908za7);
BGL_BIND_STRING(BGl_string2694z00zz__r4_output_6_10_3z00, BgL_bgl_string2694za700za7za7_2907za7);
BGL_BIND_STRING(BGl_string2693z00zz__r4_output_6_10_3z00, BgL_bgl_string2693za700za7za7_2906za7);
BGL_BIND_STRING(BGl_string2692z00zz__r4_output_6_10_3z00, BgL_bgl_string2692za700za7za7_2905za7);
BGL_BIND_STRING(BGl_string2691z00zz__r4_output_6_10_3z00, BgL_bgl_string2691za700za7za7_2904za7);
BGL_BIND_STRING(BGl_string2690z00zz__r4_output_6_10_3z00, BgL_bgl_string2690za700za7za7_2903za7);
BGL_BIND_STRING(BGl_string2689z00zz__r4_output_6_10_3z00, BgL_bgl_string2689za700za7za7_2902za7);
BGL_BIND_STRING(BGl_string2688z00zz__r4_output_6_10_3z00, BgL_bgl_string2688za700za7za7_2901za7);
BGL_BIND_STRING(BGl_string2687z00zz__r4_output_6_10_3z00, BgL_bgl_string2687za700za7za7_2900za7);
BGL_BIND_STRING(BGl_string2686z00zz__r4_output_6_10_3z00, BgL_bgl_string2686za700za7za7_2899za7);
BGL_BIND_STRING(BGl_string2685z00zz__r4_output_6_10_3z00, BgL_bgl_string2685za700za7za7_2898za7);
BGL_BIND_STRING(BGl_string2684z00zz__r4_output_6_10_3z00, BgL_bgl_string2684za700za7za7_2897za7);
BGL_BIND_STRING(BGl_string2683z00zz__r4_output_6_10_3z00, BgL_bgl_string2683za700za7za7_2896za7);
BGL_BIND_STRING(BGl_string2682z00zz__r4_output_6_10_3z00, BgL_bgl_string2682za700za7za7_2895za7);
BGL_BIND_STRING(BGl_string2681z00zz__r4_output_6_10_3z00, BgL_bgl_string2681za700za7za7_2894za7);
BGL_BIND_STRING(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_bgl_string2680za700za7za7_2893za7);
BGL_BIND_STRING(BGl_string2599z00zz__r4_output_6_10_3z00, BgL_bgl_string2599za700za7za7_2892za7);
BGL_BIND_STRING(BGl_string2598z00zz__r4_output_6_10_3z00, BgL_bgl_string2598za700za7za7_2891za7);
BGL_BIND_STRING(BGl_string2679z00zz__r4_output_6_10_3z00, BgL_bgl_string2679za700za7za7_2890za7);
BGL_BIND_STRING(BGl_string2597z00zz__r4_output_6_10_3z00, BgL_bgl_string2597za700za7za7_2889za7);
BGL_BIND_STRING(BGl_string2759z00zz__r4_output_6_10_3z00, BgL_bgl_string2759za700za7za7_2888za7);
BGL_BIND_PROCEDURE(BGl_displayzd2ucs2stringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2ucs2887z00);
BGL_BIND_STRING(BGl_string2596z00zz__r4_output_6_10_3z00, BgL_bgl_string2596za700za7za7_2886za7);
BGL_BIND_STRING(BGl_string2677z00zz__r4_output_6_10_3z00, BgL_bgl_string2677za700za7za7_2885za7);
BGL_BIND_STRING(BGl_string2758z00zz__r4_output_6_10_3z00, BgL_bgl_string2758za700za7za7_2884za7);
BGL_BIND_STRING(BGl_string2595z00zz__r4_output_6_10_3z00, BgL_bgl_string2595za700za7za7_2883za7);
BGL_BIND_PROCEDURE(BGl_writezd2charzd22zd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2charza72882za7);
BGL_BIND_STRING(BGl_string2675z00zz__r4_output_6_10_3z00, BgL_bgl_string2675za700za7za7_2881za7);
BGL_BIND_STRING(BGl_string2593z00zz__r4_output_6_10_3z00, BgL_bgl_string2593za700za7za7_2880za7);
BGL_BIND_STRING(BGl_string2674z00zz__r4_output_6_10_3z00, BgL_bgl_string2674za700za7za7_2879za7);
BGL_BIND_STRING(BGl_string2755z00zz__r4_output_6_10_3z00, BgL_bgl_string2755za700za7za7_2878za7);
BGL_BIND_STRING(BGl_string2592z00zz__r4_output_6_10_3z00, BgL_bgl_string2592za700za7za7_2877za7);
BGL_BIND_STRING(BGl_string2673z00zz__r4_output_6_10_3z00, BgL_bgl_string2673za700za7za7_2876za7);
BGL_BIND_STRING(BGl_string2591z00zz__r4_output_6_10_3z00, BgL_bgl_string2591za700za7za7_2875za7);
BGL_BIND_STRING(BGl_string2672z00zz__r4_output_6_10_3z00, BgL_bgl_string2672za700za7za7_2874za7);
BGL_BIND_STRING(BGl_string2590z00zz__r4_output_6_10_3z00, BgL_bgl_string2590za700za7za7_2873za7);
BGL_BIND_STRING(BGl_string2671z00zz__r4_output_6_10_3z00, BgL_bgl_string2671za700za7za7_2872za7);
BGL_BIND_STRING(BGl_string2752z00zz__r4_output_6_10_3z00, BgL_bgl_string2752za700za7za7_2871za7);
BGL_BIND_STRING(BGl_string2670z00zz__r4_output_6_10_3z00, BgL_bgl_string2670za700za7za7_2870za7);
BGL_BIND_STRING(BGl_string2750z00zz__r4_output_6_10_3z00, BgL_bgl_string2750za700za7za7_2869za7);
BGL_BIND_STRING(BGl_string2589z00zz__r4_output_6_10_3z00, BgL_bgl_string2589za700za7za7_2868za7);
BGL_BIND_STRING(BGl_string2588z00zz__r4_output_6_10_3z00, BgL_bgl_string2588za700za7za7_2867za7);
BGL_BIND_STRING(BGl_string2669z00zz__r4_output_6_10_3z00, BgL_bgl_string2669za700za7za7_2866za7);
BGL_BIND_STRING(BGl_string2587z00zz__r4_output_6_10_3z00, BgL_bgl_string2587za700za7za7_2865za7);
BGL_BIND_STRING(BGl_string2668z00zz__r4_output_6_10_3z00, BgL_bgl_string2668za700za7za7_2864za7);
BGL_BIND_STRING(BGl_string2586z00zz__r4_output_6_10_3z00, BgL_bgl_string2586za700za7za7_2863za7);
BGL_BIND_STRING(BGl_string2667z00zz__r4_output_6_10_3z00, BgL_bgl_string2667za700za7za7_2862za7);
BGL_BIND_PROCEDURE(BGl_writeza2zd2envz70zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7a2za7c0za7za72861za7);
BGL_BIND_STRING(BGl_string2585z00zz__r4_output_6_10_3z00, BgL_bgl_string2585za700za7za7_2860za7);
BGL_BIND_STRING(BGl_string2666z00zz__r4_output_6_10_3z00, BgL_bgl_string2666za700za7za7_2859za7);
BGL_BIND_STRING(BGl_string2747z00zz__r4_output_6_10_3z00, BgL_bgl_string2747za700za7za7_2858za7);
BGL_BIND_STRING(BGl_string2584z00zz__r4_output_6_10_3z00, BgL_bgl_string2584za700za7za7_2857za7);
BGL_BIND_STRING(BGl_string2665z00zz__r4_output_6_10_3z00, BgL_bgl_string2665za700za7za7_2856za7);
BGL_BIND_STRING(BGl_string2746z00zz__r4_output_6_10_3z00, BgL_bgl_string2746za700za7za7_2855za7);
BGL_BIND_STRING(BGl_string2583z00zz__r4_output_6_10_3z00, BgL_bgl_string2583za700za7za7_2854za7);
BGL_BIND_STRING(BGl_string2664z00zz__r4_output_6_10_3z00, BgL_bgl_string2664za700za7za7_2853za7);
BGL_BIND_STRING(BGl_string2745z00zz__r4_output_6_10_3z00, BgL_bgl_string2745za700za7za7_2852za7);
BGL_BIND_STRING(BGl_string2663z00zz__r4_output_6_10_3z00, BgL_bgl_string2663za700za7za7_2851za7);
BGL_BIND_STRING(BGl_string2662z00zz__r4_output_6_10_3z00, BgL_bgl_string2662za700za7za7_2850za7);
BGL_BIND_STRING(BGl_string2661z00zz__r4_output_6_10_3z00, BgL_bgl_string2661za700za7za7_2849za7);
BGL_BIND_STRING(BGl_string2742z00zz__r4_output_6_10_3z00, BgL_bgl_string2742za700za7za7_2848za7);
BGL_BIND_STRING(BGl_string2660z00zz__r4_output_6_10_3z00, BgL_bgl_string2660za700za7za7_2847za7);
BGL_BIND_STRING(BGl_string2659z00zz__r4_output_6_10_3z00, BgL_bgl_string2659za700za7za7_2846za7);
BGL_BIND_PROCEDURE(BGl_writezd2charzd2envz00zz__r4_output_6_10_3z00, BgL_bgl__writeza7d2charza7d22845z00);
BGL_BIND_STRING(BGl_string2658z00zz__r4_output_6_10_3z00, BgL_bgl_string2658za700za7za7_2844za7);
BGL_BIND_STRING(BGl_string2739z00zz__r4_output_6_10_3z00, BgL_bgl_string2739za700za7za7_2843za7);
BGL_BIND_STRING(BGl_string2657z00zz__r4_output_6_10_3z00, BgL_bgl_string2657za700za7za7_2842za7);
BGL_BIND_STRING(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_bgl_string2656za700za7za7_2841za7);
BGL_BIND_STRING(BGl_string2737z00zz__r4_output_6_10_3z00, BgL_bgl_string2737za700za7za7_2840za7);
BGL_BIND_STRING(BGl_string2655z00zz__r4_output_6_10_3z00, BgL_bgl_string2655za700za7za7_2839za7);
BGL_BIND_STRING(BGl_string2654z00zz__r4_output_6_10_3z00, BgL_bgl_string2654za700za7za7_2838za7);
BGL_BIND_STRING(BGl_string2735z00zz__r4_output_6_10_3z00, BgL_bgl_string2735za700za7za7_2837za7);
BGL_BIND_STRING(BGl_string2653z00zz__r4_output_6_10_3z00, BgL_bgl_string2653za700za7za7_2836za7);
BGL_BIND_STRING(BGl_string2652z00zz__r4_output_6_10_3z00, BgL_bgl_string2652za700za7za7_2835za7);
BGL_BIND_STRING(BGl_string2651z00zz__r4_output_6_10_3z00, BgL_bgl_string2651za700za7za7_2834za7);
BGL_BIND_STRING(BGl_string2732z00zz__r4_output_6_10_3z00, BgL_bgl_string2732za700za7za7_2833za7);
BGL_BIND_STRING(BGl_string2650z00zz__r4_output_6_10_3z00, BgL_bgl_string2650za700za7za7_2832za7);
BGL_BIND_STRING(BGl_string2731z00zz__r4_output_6_10_3z00, BgL_bgl_string2731za700za7za7_2831za7);
BGL_BIND_PROCEDURE(BGl_fprintfzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762fprintfza762za7za7_2830z00);
BGL_BIND_STRING(BGl_string2649z00zz__r4_output_6_10_3z00, BgL_bgl_string2649za700za7za7_2829za7);
BGL_BIND_STRING(BGl_string2648z00zz__r4_output_6_10_3z00, BgL_bgl_string2648za700za7za7_2828za7);
BGL_BIND_STRING(BGl_string2647z00zz__r4_output_6_10_3z00, BgL_bgl_string2647za700za7za7_2827za7);
BGL_BIND_STRING(BGl_string2728z00zz__r4_output_6_10_3z00, BgL_bgl_string2728za700za7za7_2826za7);
BGL_BIND_STRING(BGl_string2646z00zz__r4_output_6_10_3z00, BgL_bgl_string2646za700za7za7_2825za7);
BGL_BIND_STRING(BGl_string2727z00zz__r4_output_6_10_3z00, BgL_bgl_string2727za700za7za7_2824za7);
BGL_BIND_STRING(BGl_string2645z00zz__r4_output_6_10_3z00, BgL_bgl_string2645za700za7za7_2823za7);
BGL_BIND_STRING(BGl_string2644z00zz__r4_output_6_10_3z00, BgL_bgl_string2644za700za7za7_2822za7);
BGL_BIND_PROCEDURE(BGl_newlinezd21zd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762newlineza7d21za7b2821za7);
BGL_BIND_STRING(BGl_string2643z00zz__r4_output_6_10_3z00, BgL_bgl_string2643za700za7za7_2820za7);
BGL_BIND_STRING(BGl_string2724z00zz__r4_output_6_10_3z00, BgL_bgl_string2724za700za7za7_2819za7);
BGL_BIND_STRING(BGl_string2642z00zz__r4_output_6_10_3z00, BgL_bgl_string2642za700za7za7_2818za7);
BGL_BIND_STRING(BGl_string2641z00zz__r4_output_6_10_3z00, BgL_bgl_string2641za700za7za7_2817za7);
BGL_BIND_STRING(BGl_string2640z00zz__r4_output_6_10_3z00, BgL_bgl_string2640za700za7za7_2816za7);
BGL_BIND_STRING(BGl_string2721z00zz__r4_output_6_10_3z00, BgL_bgl_string2721za700za7za7_2815za7);
BGL_BIND_STRING(BGl_string2720z00zz__r4_output_6_10_3z00, BgL_bgl_string2720za700za7za7_2814za7);
BGL_BIND_STRING(BGl_string2639z00zz__r4_output_6_10_3z00, BgL_bgl_string2639za700za7za7_2813za7);
BGL_BIND_STRING(BGl_string2638z00zz__r4_output_6_10_3z00, BgL_bgl_string2638za700za7za7_2812za7);
BGL_BIND_STRING(BGl_string2637z00zz__r4_output_6_10_3z00, BgL_bgl_string2637za700za7za7_2811za7);
BGL_BIND_STRING(BGl_string2636z00zz__r4_output_6_10_3z00, BgL_bgl_string2636za700za7za7_2810za7);
BGL_BIND_STRING(BGl_string2717z00zz__r4_output_6_10_3z00, BgL_bgl_string2717za700za7za7_2809za7);
BGL_BIND_STRING(BGl_string2635z00zz__r4_output_6_10_3z00, BgL_bgl_string2635za700za7za7_2808za7);
BGL_BIND_STRING(BGl_string2716z00zz__r4_output_6_10_3z00, BgL_bgl_string2716za700za7za7_2807za7);
BGL_BIND_STRING(BGl_string2634z00zz__r4_output_6_10_3z00, BgL_bgl_string2634za700za7za7_2806za7);
BGL_BIND_STRING(BGl_string2633z00zz__r4_output_6_10_3z00, BgL_bgl_string2633za700za7za7_2805za7);
BGL_BIND_STRING(BGl_string2632z00zz__r4_output_6_10_3z00, BgL_bgl_string2632za700za7za7_2804za7);
BGL_BIND_STRING(BGl_string2713z00zz__r4_output_6_10_3z00, BgL_bgl_string2713za700za7za7_2803za7);
BGL_BIND_STRING(BGl_string2631z00zz__r4_output_6_10_3z00, BgL_bgl_string2631za700za7za7_2802za7);
BGL_BIND_STRING(BGl_string2630z00zz__r4_output_6_10_3z00, BgL_bgl_string2630za700za7za7_2801za7);
BGL_BIND_STRING(BGl_string2710z00zz__r4_output_6_10_3z00, BgL_bgl_string2710za700za7za7_2800za7);
BGL_BIND_PROCEDURE(BGl_displayzd2substringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2sub2799z00);
BGL_BIND_STRING(BGl_string2629z00zz__r4_output_6_10_3z00, BgL_bgl_string2629za700za7za7_2798za7);
BGL_BIND_STRING(BGl_string2628z00zz__r4_output_6_10_3z00, BgL_bgl_string2628za700za7za7_2797za7);
BGL_BIND_STRING(BGl_string2709z00zz__r4_output_6_10_3z00, BgL_bgl_string2709za700za7za7_2796za7);
BGL_BIND_STRING(BGl_string2627z00zz__r4_output_6_10_3z00, BgL_bgl_string2627za700za7za7_2795za7);
BGL_BIND_STRING(BGl_string2626z00zz__r4_output_6_10_3z00, BgL_bgl_string2626za700za7za7_2794za7);
BGL_BIND_STRING(BGl_string2707z00zz__r4_output_6_10_3z00, BgL_bgl_string2707za700za7za7_2793za7);
BGL_BIND_STRING(BGl_string2625z00zz__r4_output_6_10_3z00, BgL_bgl_string2625za700za7za7_2792za7);
BGL_BIND_STRING(BGl_string2624z00zz__r4_output_6_10_3z00, BgL_bgl_string2624za700za7za7_2791za7);
BGL_BIND_STRING(BGl_string2705z00zz__r4_output_6_10_3z00, BgL_bgl_string2705za700za7za7_2790za7);
BGL_BIND_STRING(BGl_string2623z00zz__r4_output_6_10_3z00, BgL_bgl_string2623za700za7za7_2789za7);
BGL_BIND_STRING(BGl_string2622z00zz__r4_output_6_10_3z00, BgL_bgl_string2622za700za7za7_2788za7);
BGL_BIND_STRING(BGl_string2703z00zz__r4_output_6_10_3z00, BgL_bgl_string2703za700za7za7_2787za7);
BGL_BIND_STRING(BGl_string2621z00zz__r4_output_6_10_3z00, BgL_bgl_string2621za700za7za7_2786za7);
BGL_BIND_STRING(BGl_string2620z00zz__r4_output_6_10_3z00, BgL_bgl_string2620za700za7za7_2785za7);
BGL_BIND_STRING(BGl_string2700z00zz__r4_output_6_10_3z00, BgL_bgl_string2700za700za7za7_2784za7);
BGL_BIND_PROCEDURE(BGl_displayzd2stringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2str2783z00);
BGL_BIND_STRING(BGl_string2619z00zz__r4_output_6_10_3z00, BgL_bgl_string2619za700za7za7_2782za7);
BGL_BIND_STRING(BGl_string2618z00zz__r4_output_6_10_3z00, BgL_bgl_string2618za700za7za7_2781za7);
BGL_BIND_STRING(BGl_string2617z00zz__r4_output_6_10_3z00, BgL_bgl_string2617za700za7za7_2780za7);
BGL_BIND_STRING(BGl_string2616z00zz__r4_output_6_10_3z00, BgL_bgl_string2616za700za7za7_2779za7);
BGL_BIND_STRING(BGl_string2615z00zz__r4_output_6_10_3z00, BgL_bgl_string2615za700za7za7_2778za7);
BGL_BIND_STRING(BGl_string2614z00zz__r4_output_6_10_3z00, BgL_bgl_string2614za700za7za7_2777za7);
BGL_BIND_STRING(BGl_string2613z00zz__r4_output_6_10_3z00, BgL_bgl_string2613za700za7za7_2776za7);
BGL_BIND_STRING(BGl_string2612z00zz__r4_output_6_10_3z00, BgL_bgl_string2612za700za7za7_2775za7);
BGL_BIND_STRING(BGl_string2611z00zz__r4_output_6_10_3z00, BgL_bgl_string2611za700za7za7_2774za7);
BGL_BIND_STRING(BGl_string2610z00zz__r4_output_6_10_3z00, BgL_bgl_string2610za700za7za7_2773za7);
BGL_BIND_PROCEDURE(BGl_printfzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762printfza762za7za7__2772z00);
BGL_BIND_STRING(BGl_string2609z00zz__r4_output_6_10_3z00, BgL_bgl_string2609za700za7za7_2771za7);
BGL_BIND_STRING(BGl_string2608z00zz__r4_output_6_10_3z00, BgL_bgl_string2608za700za7za7_2770za7);
BGL_BIND_STRING(BGl_string2607z00zz__r4_output_6_10_3z00, BgL_bgl_string2607za700za7za7_2769za7);
BGL_BIND_STRING(BGl_string2606z00zz__r4_output_6_10_3z00, BgL_bgl_string2606za700za7za7_2768za7);
BGL_BIND_STRING(BGl_string2605z00zz__r4_output_6_10_3z00, BgL_bgl_string2605za700za7za7_2767za7);
BGL_BIND_STRING(BGl_string2604z00zz__r4_output_6_10_3z00, BgL_bgl_string2604za700za7za7_2766za7);
BGL_BIND_STRING(BGl_string2603z00zz__r4_output_6_10_3z00, BgL_bgl_string2603za700za7za7_2765za7);
BGL_BIND_STRING(BGl_string2602z00zz__r4_output_6_10_3z00, BgL_bgl_string2602za700za7za7_2764za7);
BGL_BIND_PROCEDURE(BGl_formatzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762formatza762za7za7__2763z00);
BGL_BIND_STRING(BGl_string2600z00zz__r4_output_6_10_3z00, BgL_bgl_string2600za700za7za7_2762za7);
BGL_BIND_PROCEDURE(BGl_writezd2bytezd22zd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2byteza72761za7);
BGL_BIND_PROCEDURE(BGl_writezd22zd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d22za7b0za72760z00);
}

/* 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_symbol2723z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2726z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2730z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2734z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2736z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2738z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2741z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2744z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2749z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2751z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2754z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2594z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2757z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2676z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2678z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2701z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2711z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2714z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2718z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2722z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2725z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2729z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2733z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2740z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2743z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2748z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2753z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2756z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2601z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2702z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2704z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2706z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2708z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2712z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2715z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2719z00zz__r4_output_6_10_3z00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long BgL_checksumz00_4335, char * BgL_fromz00_4336)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__r4_output_6_10_3z00(); 
BGl_cnstzd2initzd2zz__r4_output_6_10_3z00(); 
BGl_importedzd2moduleszd2initz00zz__r4_output_6_10_3z00(); 
return 
BGl_toplevelzd2initzd2zz__r4_output_6_10_3z00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_output_6_10_3z00(void)
{
{ /* Ieee/output.scm 24 */
BGl_symbol2594z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2595z00zz__r4_output_6_10_3z00); 
BGl_symbol2601z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2602z00zz__r4_output_6_10_3z00); 
BGl_symbol2676z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2677z00zz__r4_output_6_10_3z00); 
BGl_symbol2678z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2679z00zz__r4_output_6_10_3z00); 
BGl_symbol2702z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2703z00zz__r4_output_6_10_3z00); 
BGl_symbol2704z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2705z00zz__r4_output_6_10_3z00); 
BGl_symbol2706z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2707z00zz__r4_output_6_10_3z00); 
BGl_symbol2708z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2709z00zz__r4_output_6_10_3z00); 
BGl_list2701z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2706z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2708z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2712z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2713z00zz__r4_output_6_10_3z00); 
BGl_list2711z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2712z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2708z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2715z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2716z00zz__r4_output_6_10_3z00); 
BGl_list2714z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2715z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2708z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2719z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2720z00zz__r4_output_6_10_3z00); 
BGl_list2718z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2708z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2723z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2724z00zz__r4_output_6_10_3z00); 
BGl_list2722z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2723z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2708z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2726z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2727z00zz__r4_output_6_10_3z00); 
BGl_list2725z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2726z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2708z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2730z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2731z00zz__r4_output_6_10_3z00); 
BGl_list2729z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2730z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2708z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2734z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2735z00zz__r4_output_6_10_3z00); 
BGl_symbol2736z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2737z00zz__r4_output_6_10_3z00); 
BGl_symbol2738z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2739z00zz__r4_output_6_10_3z00); 
BGl_list2733z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2734z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2734z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2736z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2738z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2741z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2742z00zz__r4_output_6_10_3z00); 
BGl_list2740z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2741z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2708z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2744z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2745z00zz__r4_output_6_10_3z00); 
BGl_list2743z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2744z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2708z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2749z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2750z00zz__r4_output_6_10_3z00); 
BGl_symbol2751z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2752z00zz__r4_output_6_10_3z00); 
BGl_list2748z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2749z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2749z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2751z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2738z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2754z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2755z00zz__r4_output_6_10_3z00); 
BGl_list2753z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2754z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2708z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2757z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2758z00zz__r4_output_6_10_3z00); 
return ( 
BGl_list2756z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2702z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2757z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2708z00zz__r4_output_6_10_3z00, BNIL))))), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__r4_output_6_10_3z00(void)
{
{ /* Ieee/output.scm 24 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__r4_output_6_10_3z00(void)
{
{ /* Ieee/output.scm 24 */
return ( 
BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00 = 
bgl_make_mutex(BGl_string2583z00zz__r4_output_6_10_3z00), BUNSPEC) ;} 

}



/* newline */
BGL_EXPORTED_DEF obj_t BGl_newlinez00zz__r4_output_6_10_3z00(obj_t BgL_portz00_3)
{
{ /* Ieee/output.scm 268 */
{ /* Ieee/output.scm 269 */
 obj_t BgL_portz00_1609;
if(
NULLP(BgL_portz00_3))
{ /* Ieee/output.scm 271 */
 obj_t BgL_tmpz00_4437;
BgL_tmpz00_4437 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1609 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4437); }  else 
{ /* Ieee/output.scm 269 */
if(
PAIRP(BgL_portz00_3))
{ /* Ieee/output.scm 269 */
if(
NULLP(
CDR(
((obj_t)BgL_portz00_3))))
{ /* Ieee/output.scm 269 */
BgL_portz00_1609 = 
CAR(BgL_portz00_3); }  else 
{ /* Ieee/output.scm 269 */
BgL_portz00_1609 = 
BGl_errorz00zz__errorz00(BGl_string2584z00zz__r4_output_6_10_3z00, BGl_string2585z00zz__r4_output_6_10_3z00, BgL_portz00_3); } }  else 
{ /* Ieee/output.scm 269 */
BgL_portz00_1609 = 
BGl_errorz00zz__errorz00(BGl_string2584z00zz__r4_output_6_10_3z00, BGl_string2585z00zz__r4_output_6_10_3z00, BgL_portz00_3); } } 
{ /* Ieee/output.scm 278 */
 obj_t BgL_portz00_2796;
if(
OUTPUT_PORTP(BgL_portz00_1609))
{ /* Ieee/output.scm 278 */
BgL_portz00_2796 = BgL_portz00_1609; }  else 
{ 
 obj_t BgL_auxz00_4451;
BgL_auxz00_4451 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(10501L), BGl_string2584z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_1609); 
FAILURE(BgL_auxz00_4451,BFALSE,BFALSE);} 
return 
bgl_display_char(((unsigned char)10), BgL_portz00_2796);} } } 

}



/* &newline */
obj_t BGl_z62newlinez62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3847, obj_t BgL_portz00_3848)
{
{ /* Ieee/output.scm 268 */
return 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_portz00_3848);} 

}



/* newline-1 */
BGL_EXPORTED_DEF obj_t BGl_newlinezd21zd2zz__r4_output_6_10_3z00(obj_t BgL_portz00_4)
{
{ /* Ieee/output.scm 283 */
return 
bgl_display_char(((unsigned char)10), BgL_portz00_4);} 

}



/* &newline-1 */
obj_t BGl_z62newlinezd21zb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3849, obj_t BgL_portz00_3850)
{
{ /* Ieee/output.scm 283 */
{ /* Ieee/output.scm 284 */
 obj_t BgL_auxz00_4458;
if(
OUTPUT_PORTP(BgL_portz00_3850))
{ /* Ieee/output.scm 284 */
BgL_auxz00_4458 = BgL_portz00_3850
; }  else 
{ 
 obj_t BgL_auxz00_4461;
BgL_auxz00_4461 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(10780L), BGl_string2588z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3850); 
FAILURE(BgL_auxz00_4461,BFALSE,BFALSE);} 
return 
BGl_newlinezd21zd2zz__r4_output_6_10_3z00(BgL_auxz00_4458);} } 

}



/* display */
BGL_EXPORTED_DEF obj_t BGl_displayz00zz__r4_output_6_10_3z00(obj_t BgL_objz00_5, obj_t BgL_portz00_6)
{
{ /* Ieee/output.scm 289 */
{ /* Ieee/output.scm 290 */
 obj_t BgL_portz00_1619;
if(
NULLP(BgL_portz00_6))
{ /* Ieee/output.scm 292 */
 obj_t BgL_tmpz00_4468;
BgL_tmpz00_4468 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1619 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4468); }  else 
{ /* Ieee/output.scm 290 */
if(
PAIRP(BgL_portz00_6))
{ /* Ieee/output.scm 290 */
if(
NULLP(
CDR(
((obj_t)BgL_portz00_6))))
{ /* Ieee/output.scm 290 */
BgL_portz00_1619 = 
CAR(BgL_portz00_6); }  else 
{ /* Ieee/output.scm 290 */
BgL_portz00_1619 = 
BGl_errorz00zz__errorz00(BGl_string2589z00zz__r4_output_6_10_3z00, BGl_string2585z00zz__r4_output_6_10_3z00, BgL_portz00_6); } }  else 
{ /* Ieee/output.scm 290 */
BgL_portz00_1619 = 
BGl_errorz00zz__errorz00(BGl_string2589z00zz__r4_output_6_10_3z00, BGl_string2585z00zz__r4_output_6_10_3z00, BgL_portz00_6); } } 
{ /* Ieee/output.scm 299 */
 obj_t BgL_auxz00_4480;
if(
OUTPUT_PORTP(BgL_portz00_1619))
{ /* Ieee/output.scm 299 */
BgL_auxz00_4480 = BgL_portz00_1619
; }  else 
{ 
 obj_t BgL_auxz00_4483;
BgL_auxz00_4483 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(11269L), BGl_string2589z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_1619); 
FAILURE(BgL_auxz00_4483,BFALSE,BFALSE);} 
return 
bgl_display_obj(BgL_objz00_5, BgL_auxz00_4480);} } } 

}



/* &display */
obj_t BGl_z62displayz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3851, obj_t BgL_objz00_3852, obj_t BgL_portz00_3853)
{
{ /* Ieee/output.scm 289 */
return 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_objz00_3852, BgL_portz00_3853);} 

}



/* write */
BGL_EXPORTED_DEF obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t BgL_objz00_7, obj_t BgL_portz00_8)
{
{ /* Ieee/output.scm 304 */
{ /* Ieee/output.scm 305 */
 obj_t BgL_portz00_1629;
if(
NULLP(BgL_portz00_8))
{ /* Ieee/output.scm 307 */
 obj_t BgL_tmpz00_4491;
BgL_tmpz00_4491 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1629 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4491); }  else 
{ /* Ieee/output.scm 305 */
if(
PAIRP(BgL_portz00_8))
{ /* Ieee/output.scm 305 */
if(
NULLP(
CDR(
((obj_t)BgL_portz00_8))))
{ /* Ieee/output.scm 305 */
BgL_portz00_1629 = 
CAR(BgL_portz00_8); }  else 
{ /* Ieee/output.scm 305 */
BgL_portz00_1629 = 
BGl_errorz00zz__errorz00(BGl_string2590z00zz__r4_output_6_10_3z00, BGl_string2585z00zz__r4_output_6_10_3z00, BgL_portz00_8); } }  else 
{ /* Ieee/output.scm 305 */
BgL_portz00_1629 = 
BGl_errorz00zz__errorz00(BGl_string2590z00zz__r4_output_6_10_3z00, BGl_string2585z00zz__r4_output_6_10_3z00, BgL_portz00_8); } } 
{ /* Ieee/output.scm 314 */
 obj_t BgL_auxz00_4503;
if(
OUTPUT_PORTP(BgL_portz00_1629))
{ /* Ieee/output.scm 314 */
BgL_auxz00_4503 = BgL_portz00_1629
; }  else 
{ 
 obj_t BgL_auxz00_4506;
BgL_auxz00_4506 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(11728L), BGl_string2590z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_1629); 
FAILURE(BgL_auxz00_4506,BFALSE,BFALSE);} 
return 
bgl_write_obj(BgL_objz00_7, BgL_auxz00_4503);} } } 

}



/* &write */
obj_t BGl_z62writez62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3854, obj_t BgL_objz00_3855, obj_t BgL_portz00_3856)
{
{ /* Ieee/output.scm 304 */
return 
BGl_writez00zz__r4_output_6_10_3z00(BgL_objz00_3855, BgL_portz00_3856);} 

}



/* _write-char */
obj_t BGl__writezd2charzd2zz__r4_output_6_10_3z00(obj_t BgL_env1158z00_12, obj_t BgL_opt1157z00_11)
{
{ /* Ieee/output.scm 319 */
{ /* Ieee/output.scm 319 */
 obj_t BgL_g1159z00_1639;
{ 
 obj_t BgL_auxz00_4512;
if(
VECTORP(BgL_opt1157z00_11))
{ /* Ieee/output.scm 319 */
BgL_auxz00_4512 = BgL_opt1157z00_11
; }  else 
{ 
 obj_t BgL_auxz00_4515;
BgL_auxz00_4515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(11959L), BGl_string2591z00zz__r4_output_6_10_3z00, BGl_string2592z00zz__r4_output_6_10_3z00, BgL_opt1157z00_11); 
FAILURE(BgL_auxz00_4515,BFALSE,BFALSE);} 
BgL_g1159z00_1639 = 
VECTOR_REF(BgL_auxz00_4512,0L); } 
{ 

{ /* Ieee/output.scm 319 */
 long BgL_aux1161z00_1641;
{ 
 obj_t BgL_auxz00_4520;
if(
VECTORP(BgL_opt1157z00_11))
{ /* Ieee/output.scm 319 */
BgL_auxz00_4520 = BgL_opt1157z00_11
; }  else 
{ 
 obj_t BgL_auxz00_4523;
BgL_auxz00_4523 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(11959L), BGl_string2591z00zz__r4_output_6_10_3z00, BGl_string2592z00zz__r4_output_6_10_3z00, BgL_opt1157z00_11); 
FAILURE(BgL_auxz00_4523,BFALSE,BFALSE);} 
BgL_aux1161z00_1641 = 
VECTOR_LENGTH(BgL_auxz00_4520); } 
switch( BgL_aux1161z00_1641) { case 1L : 

{ /* Ieee/output.scm 319 */
 obj_t BgL_portz00_1642;
{ /* Ieee/output.scm 319 */
 obj_t BgL_tmpz00_4528;
BgL_tmpz00_4528 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1642 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4528); } 
{ /* Ieee/output.scm 319 */

{ /* Ieee/output.scm 319 */
 unsigned char BgL_charz00_2808;
{ /* Ieee/output.scm 319 */
 obj_t BgL_tmpz00_4531;
if(
CHARP(BgL_g1159z00_1639))
{ /* Ieee/output.scm 319 */
BgL_tmpz00_4531 = BgL_g1159z00_1639
; }  else 
{ 
 obj_t BgL_auxz00_4534;
BgL_auxz00_4534 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(11959L), BGl_string2591z00zz__r4_output_6_10_3z00, BGl_string2597z00zz__r4_output_6_10_3z00, BgL_g1159z00_1639); 
FAILURE(BgL_auxz00_4534,BFALSE,BFALSE);} 
BgL_charz00_2808 = 
CCHAR(BgL_tmpz00_4531); } 
return 
bgl_display_char(BgL_charz00_2808, BgL_portz00_1642);} } } break;case 2L : 

{ /* Ieee/output.scm 319 */
 obj_t BgL_portz00_1643;
{ 
 obj_t BgL_auxz00_4540;
if(
VECTORP(BgL_opt1157z00_11))
{ /* Ieee/output.scm 319 */
BgL_auxz00_4540 = BgL_opt1157z00_11
; }  else 
{ 
 obj_t BgL_auxz00_4543;
BgL_auxz00_4543 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(11959L), BGl_string2591z00zz__r4_output_6_10_3z00, BGl_string2592z00zz__r4_output_6_10_3z00, BgL_opt1157z00_11); 
FAILURE(BgL_auxz00_4543,BFALSE,BFALSE);} 
BgL_portz00_1643 = 
VECTOR_REF(BgL_auxz00_4540,1L); } 
{ /* Ieee/output.scm 319 */

{ /* Ieee/output.scm 319 */
 unsigned char BgL_charz00_2811;
{ /* Ieee/output.scm 319 */
 obj_t BgL_tmpz00_4548;
if(
CHARP(BgL_g1159z00_1639))
{ /* Ieee/output.scm 319 */
BgL_tmpz00_4548 = BgL_g1159z00_1639
; }  else 
{ 
 obj_t BgL_auxz00_4551;
BgL_auxz00_4551 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(11959L), BGl_string2591z00zz__r4_output_6_10_3z00, BGl_string2597z00zz__r4_output_6_10_3z00, BgL_g1159z00_1639); 
FAILURE(BgL_auxz00_4551,BFALSE,BFALSE);} 
BgL_charz00_2811 = 
CCHAR(BgL_tmpz00_4548); } 
{ /* Ieee/output.scm 320 */
 obj_t BgL_portz00_2813;
if(
OUTPUT_PORTP(BgL_portz00_1643))
{ /* Ieee/output.scm 320 */
BgL_portz00_2813 = BgL_portz00_1643; }  else 
{ 
 obj_t BgL_auxz00_4558;
BgL_auxz00_4558 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12047L), BGl_string2591z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_1643); 
FAILURE(BgL_auxz00_4558,BFALSE,BFALSE);} 
return 
bgl_display_char(BgL_charz00_2811, BgL_portz00_2813);} } } } break;
default: 
{ /* Ieee/output.scm 319 */
 long BgL_arg1295z00_1644;
{ 
 obj_t BgL_auxz00_4563;
if(
VECTORP(BgL_opt1157z00_11))
{ /* Ieee/output.scm 319 */
BgL_auxz00_4563 = BgL_opt1157z00_11
; }  else 
{ 
 obj_t BgL_auxz00_4566;
BgL_auxz00_4566 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(11959L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2592z00zz__r4_output_6_10_3z00, BgL_opt1157z00_11); 
FAILURE(BgL_auxz00_4566,BFALSE,BFALSE);} 
BgL_arg1295z00_1644 = 
VECTOR_LENGTH(BgL_auxz00_4563); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2594z00zz__r4_output_6_10_3z00, BGl_string2596z00zz__r4_output_6_10_3z00, 
BINT(BgL_arg1295z00_1644));} } } } } } 

}



/* write-char */
BGL_EXPORTED_DEF obj_t BGl_writezd2charzd2zz__r4_output_6_10_3z00(unsigned char BgL_charz00_9, obj_t BgL_portz00_10)
{
{ /* Ieee/output.scm 319 */
{ /* Ieee/output.scm 320 */
 obj_t BgL_portz00_2815;
if(
OUTPUT_PORTP(BgL_portz00_10))
{ /* Ieee/output.scm 320 */
BgL_portz00_2815 = BgL_portz00_10; }  else 
{ 
 obj_t BgL_auxz00_4576;
BgL_auxz00_4576 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12047L), BGl_string2595z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_10); 
FAILURE(BgL_auxz00_4576,BFALSE,BFALSE);} 
return 
bgl_display_char(BgL_charz00_9, BgL_portz00_2815);} } 

}



/* write-char-2 */
BGL_EXPORTED_DEF obj_t BGl_writezd2charzd22z00zz__r4_output_6_10_3z00(unsigned char BgL_charz00_13, obj_t BgL_portz00_14)
{
{ /* Ieee/output.scm 325 */
return 
bgl_display_char(BgL_charz00_13, BgL_portz00_14);} 

}



/* &write-char-2 */
obj_t BGl_z62writezd2charzd22z62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3857, obj_t BgL_charz00_3858, obj_t BgL_portz00_3859)
{
{ /* Ieee/output.scm 325 */
{ /* Ieee/output.scm 326 */
 obj_t BgL_auxz00_4591; unsigned char BgL_auxz00_4582;
if(
OUTPUT_PORTP(BgL_portz00_3859))
{ /* Ieee/output.scm 326 */
BgL_auxz00_4591 = BgL_portz00_3859
; }  else 
{ 
 obj_t BgL_auxz00_4594;
BgL_auxz00_4594 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12340L), BGl_string2598z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3859); 
FAILURE(BgL_auxz00_4594,BFALSE,BFALSE);} 
{ /* Ieee/output.scm 326 */
 obj_t BgL_tmpz00_4583;
if(
CHARP(BgL_charz00_3858))
{ /* Ieee/output.scm 326 */
BgL_tmpz00_4583 = BgL_charz00_3858
; }  else 
{ 
 obj_t BgL_auxz00_4586;
BgL_auxz00_4586 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12340L), BGl_string2598z00zz__r4_output_6_10_3z00, BGl_string2597z00zz__r4_output_6_10_3z00, BgL_charz00_3858); 
FAILURE(BgL_auxz00_4586,BFALSE,BFALSE);} 
BgL_auxz00_4582 = 
CCHAR(BgL_tmpz00_4583); } 
return 
BGl_writezd2charzd22z00zz__r4_output_6_10_3z00(BgL_auxz00_4582, BgL_auxz00_4591);} } 

}



/* _write-byte */
obj_t BGl__writezd2bytezd2zz__r4_output_6_10_3z00(obj_t BgL_env1163z00_18, obj_t BgL_opt1162z00_17)
{
{ /* Ieee/output.scm 331 */
{ /* Ieee/output.scm 331 */
 obj_t BgL_g1164z00_1645;
{ 
 obj_t BgL_auxz00_4599;
if(
VECTORP(BgL_opt1162z00_17))
{ /* Ieee/output.scm 331 */
BgL_auxz00_4599 = BgL_opt1162z00_17
; }  else 
{ 
 obj_t BgL_auxz00_4602;
BgL_auxz00_4602 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12591L), BGl_string2599z00zz__r4_output_6_10_3z00, BGl_string2592z00zz__r4_output_6_10_3z00, BgL_opt1162z00_17); 
FAILURE(BgL_auxz00_4602,BFALSE,BFALSE);} 
BgL_g1164z00_1645 = 
VECTOR_REF(BgL_auxz00_4599,0L); } 
{ 

{ /* Ieee/output.scm 331 */
 long BgL_aux1166z00_1647;
{ 
 obj_t BgL_auxz00_4607;
if(
VECTORP(BgL_opt1162z00_17))
{ /* Ieee/output.scm 331 */
BgL_auxz00_4607 = BgL_opt1162z00_17
; }  else 
{ 
 obj_t BgL_auxz00_4610;
BgL_auxz00_4610 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12591L), BGl_string2599z00zz__r4_output_6_10_3z00, BGl_string2592z00zz__r4_output_6_10_3z00, BgL_opt1162z00_17); 
FAILURE(BgL_auxz00_4610,BFALSE,BFALSE);} 
BgL_aux1166z00_1647 = 
VECTOR_LENGTH(BgL_auxz00_4607); } 
switch( BgL_aux1166z00_1647) { case 1L : 

{ /* Ieee/output.scm 331 */
 obj_t BgL_portz00_1648;
{ /* Ieee/output.scm 331 */
 obj_t BgL_tmpz00_4615;
BgL_tmpz00_4615 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1648 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4615); } 
{ /* Ieee/output.scm 331 */

{ /* Ieee/output.scm 331 */
 unsigned char BgL_bytez00_2817;
{ /* Ieee/output.scm 331 */
 obj_t BgL_tmpz00_4618;
if(
INTEGERP(BgL_g1164z00_1645))
{ /* Ieee/output.scm 331 */
BgL_tmpz00_4618 = BgL_g1164z00_1645
; }  else 
{ 
 obj_t BgL_auxz00_4621;
BgL_auxz00_4621 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12591L), BGl_string2599z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_g1164z00_1645); 
FAILURE(BgL_auxz00_4621,BFALSE,BFALSE);} 
BgL_bytez00_2817 = 
(unsigned char)CINT(BgL_tmpz00_4618); } 
return 
bgl_display_char(BgL_bytez00_2817, BgL_portz00_1648);} } } break;case 2L : 

{ /* Ieee/output.scm 331 */
 obj_t BgL_portz00_1649;
{ 
 obj_t BgL_auxz00_4627;
if(
VECTORP(BgL_opt1162z00_17))
{ /* Ieee/output.scm 331 */
BgL_auxz00_4627 = BgL_opt1162z00_17
; }  else 
{ 
 obj_t BgL_auxz00_4630;
BgL_auxz00_4630 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12591L), BGl_string2599z00zz__r4_output_6_10_3z00, BGl_string2592z00zz__r4_output_6_10_3z00, BgL_opt1162z00_17); 
FAILURE(BgL_auxz00_4630,BFALSE,BFALSE);} 
BgL_portz00_1649 = 
VECTOR_REF(BgL_auxz00_4627,1L); } 
{ /* Ieee/output.scm 331 */

{ /* Ieee/output.scm 331 */
 unsigned char BgL_bytez00_2820;
{ /* Ieee/output.scm 331 */
 obj_t BgL_tmpz00_4635;
if(
INTEGERP(BgL_g1164z00_1645))
{ /* Ieee/output.scm 331 */
BgL_tmpz00_4635 = BgL_g1164z00_1645
; }  else 
{ 
 obj_t BgL_auxz00_4638;
BgL_auxz00_4638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12591L), BGl_string2599z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_g1164z00_1645); 
FAILURE(BgL_auxz00_4638,BFALSE,BFALSE);} 
BgL_bytez00_2820 = 
(unsigned char)CINT(BgL_tmpz00_4635); } 
{ /* Ieee/output.scm 332 */
 obj_t BgL_portz00_2822;
if(
OUTPUT_PORTP(BgL_portz00_1649))
{ /* Ieee/output.scm 332 */
BgL_portz00_2822 = BgL_portz00_1649; }  else 
{ 
 obj_t BgL_auxz00_4645;
BgL_auxz00_4645 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12679L), BGl_string2599z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_1649); 
FAILURE(BgL_auxz00_4645,BFALSE,BFALSE);} 
return 
bgl_display_char(BgL_bytez00_2820, BgL_portz00_2822);} } } } break;
default: 
{ /* Ieee/output.scm 331 */
 long BgL_arg1296z00_1650;
{ 
 obj_t BgL_auxz00_4650;
if(
VECTORP(BgL_opt1162z00_17))
{ /* Ieee/output.scm 331 */
BgL_auxz00_4650 = BgL_opt1162z00_17
; }  else 
{ 
 obj_t BgL_auxz00_4653;
BgL_auxz00_4653 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12591L), BGl_string2600z00zz__r4_output_6_10_3z00, BGl_string2592z00zz__r4_output_6_10_3z00, BgL_opt1162z00_17); 
FAILURE(BgL_auxz00_4653,BFALSE,BFALSE);} 
BgL_arg1296z00_1650 = 
VECTOR_LENGTH(BgL_auxz00_4650); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2601z00zz__r4_output_6_10_3z00, BGl_string2596z00zz__r4_output_6_10_3z00, 
BINT(BgL_arg1296z00_1650));} } } } } } 

}



/* write-byte */
BGL_EXPORTED_DEF obj_t BGl_writezd2bytezd2zz__r4_output_6_10_3z00(unsigned char BgL_bytez00_15, obj_t BgL_portz00_16)
{
{ /* Ieee/output.scm 331 */
{ /* Ieee/output.scm 332 */
 obj_t BgL_portz00_2824;
if(
OUTPUT_PORTP(BgL_portz00_16))
{ /* Ieee/output.scm 332 */
BgL_portz00_2824 = BgL_portz00_16; }  else 
{ 
 obj_t BgL_auxz00_4663;
BgL_auxz00_4663 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12679L), BGl_string2602z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_16); 
FAILURE(BgL_auxz00_4663,BFALSE,BFALSE);} 
return 
bgl_display_char(BgL_bytez00_15, BgL_portz00_2824);} } 

}



/* write-byte-2 */
BGL_EXPORTED_DEF obj_t BGl_writezd2bytezd22z00zz__r4_output_6_10_3z00(unsigned char BgL_bytez00_19, obj_t BgL_portz00_20)
{
{ /* Ieee/output.scm 337 */
return 
bgl_display_char(BgL_bytez00_19, BgL_portz00_20);} 

}



/* &write-byte-2 */
obj_t BGl_z62writezd2bytezd22z62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3860, obj_t BgL_bytez00_3861, obj_t BgL_portz00_3862)
{
{ /* Ieee/output.scm 337 */
{ /* Ieee/output.scm 338 */
 obj_t BgL_auxz00_4678; unsigned char BgL_auxz00_4669;
if(
OUTPUT_PORTP(BgL_portz00_3862))
{ /* Ieee/output.scm 338 */
BgL_auxz00_4678 = BgL_portz00_3862
; }  else 
{ 
 obj_t BgL_auxz00_4681;
BgL_auxz00_4681 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12972L), BGl_string2604z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3862); 
FAILURE(BgL_auxz00_4681,BFALSE,BFALSE);} 
{ /* Ieee/output.scm 338 */
 obj_t BgL_tmpz00_4670;
if(
INTEGERP(BgL_bytez00_3861))
{ /* Ieee/output.scm 338 */
BgL_tmpz00_4670 = BgL_bytez00_3861
; }  else 
{ 
 obj_t BgL_auxz00_4673;
BgL_auxz00_4673 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(12972L), BGl_string2604z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_bytez00_3861); 
FAILURE(BgL_auxz00_4673,BFALSE,BFALSE);} 
BgL_auxz00_4669 = 
(unsigned char)CINT(BgL_tmpz00_4670); } 
return 
BGl_writezd2bytezd22z00zz__r4_output_6_10_3z00(BgL_auxz00_4669, BgL_auxz00_4678);} } 

}



/* illegal-char-rep */
BGL_EXPORTED_DEF obj_t BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(unsigned char BgL_charz00_21)
{
{ /* Ieee/output.scm 343 */
{ /* Ieee/output.scm 344 */
 bool_t BgL_test2964z00_4686;
if(
isalpha(BgL_charz00_21))
{ /* Ieee/output.scm 344 */
BgL_test2964z00_4686 = ((bool_t)1)
; }  else 
{ /* Ieee/output.scm 344 */
BgL_test2964z00_4686 = 
isdigit(BgL_charz00_21)
; } 
if(BgL_test2964z00_4686)
{ /* Ieee/output.scm 344 */
return 
BCHAR(BgL_charz00_21);}  else 
{ 

switch( BgL_charz00_21) { case ((unsigned char)10) : 

return BGl_string2605z00zz__r4_output_6_10_3z00;break;case ((unsigned char)13) : 

return BGl_string2606z00zz__r4_output_6_10_3z00;break;case ((unsigned char)' ') : 

return BGl_string2607z00zz__r4_output_6_10_3z00;break;case ((unsigned char)9) : 

return BGl_string2608z00zz__r4_output_6_10_3z00;break;
default: 
{ /* Ieee/output.scm 356 */
 long BgL_iz00_1656;
BgL_iz00_1656 = 
(BgL_charz00_21); 
if(
(BgL_iz00_1656<33L))
{ /* Ieee/output.scm 357 */
BGL_TAIL return 
bgl_ill_char_rep(BgL_charz00_21);}  else 
{ /* Ieee/output.scm 357 */
return 
BCHAR(BgL_charz00_21);} } } } } } 

}



/* &illegal-char-rep */
obj_t BGl_z62illegalzd2charzd2repz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3863, obj_t BgL_charz00_3864)
{
{ /* Ieee/output.scm 343 */
{ /* Ieee/output.scm 344 */
 unsigned char BgL_auxz00_4697;
{ /* Ieee/output.scm 344 */
 obj_t BgL_tmpz00_4698;
if(
CHARP(BgL_charz00_3864))
{ /* Ieee/output.scm 344 */
BgL_tmpz00_4698 = BgL_charz00_3864
; }  else 
{ 
 obj_t BgL_auxz00_4701;
BgL_auxz00_4701 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(13257L), BGl_string2609z00zz__r4_output_6_10_3z00, BGl_string2597z00zz__r4_output_6_10_3z00, BgL_charz00_3864); 
FAILURE(BgL_auxz00_4701,BFALSE,BFALSE);} 
BgL_auxz00_4697 = 
CCHAR(BgL_tmpz00_4698); } 
return 
BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(BgL_auxz00_4697);} } 

}



/* print */
BGL_EXPORTED_DEF obj_t BGl_printz00zz__r4_output_6_10_3z00(obj_t BgL_objz00_22)
{
{ /* Ieee/output.scm 364 */
{ /* Ieee/output.scm 365 */
 obj_t BgL_portz00_1659;
{ /* Ieee/output.scm 365 */
 obj_t BgL_tmpz00_4707;
BgL_tmpz00_4707 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1659 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4707); } 
{ 
 obj_t BgL_lz00_1662; obj_t BgL_resz00_1663;
BgL_lz00_1662 = BgL_objz00_22; 
BgL_resz00_1663 = BNIL; 
BgL_zc3z04anonymousza31301ze3z87_1664:
if(
NULLP(BgL_lz00_1662))
{ /* Ieee/output.scm 368 */
bgl_display_char(((unsigned char)10), BgL_portz00_1659); 
return BgL_resz00_1663;}  else 
{ /* Ieee/output.scm 372 */
 obj_t BgL_vz00_1666;
{ /* Ieee/output.scm 372 */
 obj_t BgL_pairz00_2830;
if(
PAIRP(BgL_lz00_1662))
{ /* Ieee/output.scm 372 */
BgL_pairz00_2830 = BgL_lz00_1662; }  else 
{ 
 obj_t BgL_auxz00_4715;
BgL_auxz00_4715 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(13997L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1662); 
FAILURE(BgL_auxz00_4715,BFALSE,BFALSE);} 
BgL_vz00_1666 = 
CAR(BgL_pairz00_2830); } 
bgl_display_obj(BgL_vz00_1666, BgL_portz00_1659); 
{ /* Ieee/output.scm 374 */
 obj_t BgL_arg1322z00_1667;
{ /* Ieee/output.scm 374 */
 obj_t BgL_pairz00_2831;
if(
PAIRP(BgL_lz00_1662))
{ /* Ieee/output.scm 374 */
BgL_pairz00_2831 = BgL_lz00_1662; }  else 
{ 
 obj_t BgL_auxz00_4723;
BgL_auxz00_4723 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(14036L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1662); 
FAILURE(BgL_auxz00_4723,BFALSE,BFALSE);} 
BgL_arg1322z00_1667 = 
CDR(BgL_pairz00_2831); } 
{ 
 obj_t BgL_resz00_4729; obj_t BgL_lz00_4728;
BgL_lz00_4728 = BgL_arg1322z00_1667; 
BgL_resz00_4729 = BgL_vz00_1666; 
BgL_resz00_1663 = BgL_resz00_4729; 
BgL_lz00_1662 = BgL_lz00_4728; 
goto BgL_zc3z04anonymousza31301ze3z87_1664;} } } } } } 

}



/* &print */
obj_t BGl_z62printz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3865, obj_t BgL_objz00_3866)
{
{ /* Ieee/output.scm 364 */
return 
BGl_printz00zz__r4_output_6_10_3z00(BgL_objz00_3866);} 

}



/* display* */
BGL_EXPORTED_DEF obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t BgL_objz00_23)
{
{ /* Ieee/output.scm 379 */
{ /* Ieee/output.scm 380 */
 obj_t BgL_portz00_1669;
{ /* Ieee/output.scm 380 */
 obj_t BgL_tmpz00_4731;
BgL_tmpz00_4731 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1669 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4731); } 
{ 
 obj_t BgL_lz00_1671;
BgL_lz00_1671 = BgL_objz00_23; 
BgL_zc3z04anonymousza31323ze3z87_1672:
if(
NULLP(BgL_lz00_1671))
{ /* Ieee/output.scm 382 */
return BUNSPEC;}  else 
{ /* Ieee/output.scm 382 */
{ /* Ieee/output.scm 385 */
 obj_t BgL_arg1329z00_1675;
{ /* Ieee/output.scm 385 */
 obj_t BgL_pairz00_2834;
if(
PAIRP(BgL_lz00_1671))
{ /* Ieee/output.scm 385 */
BgL_pairz00_2834 = BgL_lz00_1671; }  else 
{ 
 obj_t BgL_auxz00_4738;
BgL_auxz00_4738 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(14436L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1671); 
FAILURE(BgL_auxz00_4738,BFALSE,BFALSE);} 
BgL_arg1329z00_1675 = 
CAR(BgL_pairz00_2834); } 
bgl_display_obj(BgL_arg1329z00_1675, BgL_portz00_1669); } 
{ /* Ieee/output.scm 386 */
 obj_t BgL_arg1330z00_1676;
{ /* Ieee/output.scm 386 */
 obj_t BgL_pairz00_2835;
if(
PAIRP(BgL_lz00_1671))
{ /* Ieee/output.scm 386 */
BgL_pairz00_2835 = BgL_lz00_1671; }  else 
{ 
 obj_t BgL_auxz00_4746;
BgL_auxz00_4746 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(14458L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1671); 
FAILURE(BgL_auxz00_4746,BFALSE,BFALSE);} 
BgL_arg1330z00_1676 = 
CDR(BgL_pairz00_2835); } 
{ 
 obj_t BgL_lz00_4751;
BgL_lz00_4751 = BgL_arg1330z00_1676; 
BgL_lz00_1671 = BgL_lz00_4751; 
goto BgL_zc3z04anonymousza31323ze3z87_1672;} } } } } } 

}



/* &display* */
obj_t BGl_z62displayza2zc0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3867, obj_t BgL_objz00_3868)
{
{ /* Ieee/output.scm 379 */
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_objz00_3868);} 

}



/* write* */
BGL_EXPORTED_DEF obj_t BGl_writeza2za2zz__r4_output_6_10_3z00(obj_t BgL_objz00_24)
{
{ /* Ieee/output.scm 391 */
{ /* Ieee/output.scm 392 */
 obj_t BgL_portz00_1678;
{ /* Ieee/output.scm 392 */
 obj_t BgL_tmpz00_4753;
BgL_tmpz00_4753 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1678 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4753); } 
{ 
 obj_t BgL_lz00_1680;
BgL_lz00_1680 = BgL_objz00_24; 
BgL_zc3z04anonymousza31331ze3z87_1681:
if(
NULLP(BgL_lz00_1680))
{ /* Ieee/output.scm 394 */
return BUNSPEC;}  else 
{ /* Ieee/output.scm 394 */
{ /* Ieee/output.scm 397 */
 obj_t BgL_arg1333z00_1684;
{ /* Ieee/output.scm 397 */
 obj_t BgL_pairz00_2838;
if(
PAIRP(BgL_lz00_1680))
{ /* Ieee/output.scm 397 */
BgL_pairz00_2838 = BgL_lz00_1680; }  else 
{ 
 obj_t BgL_auxz00_4760;
BgL_auxz00_4760 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(14854L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1680); 
FAILURE(BgL_auxz00_4760,BFALSE,BFALSE);} 
BgL_arg1333z00_1684 = 
CAR(BgL_pairz00_2838); } 
bgl_write_obj(BgL_arg1333z00_1684, BgL_portz00_1678); } 
{ /* Ieee/output.scm 398 */
 obj_t BgL_arg1334z00_1685;
{ /* Ieee/output.scm 398 */
 obj_t BgL_pairz00_2839;
if(
PAIRP(BgL_lz00_1680))
{ /* Ieee/output.scm 398 */
BgL_pairz00_2839 = BgL_lz00_1680; }  else 
{ 
 obj_t BgL_auxz00_4768;
BgL_auxz00_4768 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(14876L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1680); 
FAILURE(BgL_auxz00_4768,BFALSE,BFALSE);} 
BgL_arg1334z00_1685 = 
CDR(BgL_pairz00_2839); } 
{ 
 obj_t BgL_lz00_4773;
BgL_lz00_4773 = BgL_arg1334z00_1685; 
BgL_lz00_1680 = BgL_lz00_4773; 
goto BgL_zc3z04anonymousza31331ze3z87_1681;} } } } } } 

}



/* &write* */
obj_t BGl_z62writeza2zc0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3869, obj_t BgL_objz00_3870)
{
{ /* Ieee/output.scm 391 */
return 
BGl_writeza2za2zz__r4_output_6_10_3z00(BgL_objz00_3870);} 

}



/* tprint */
BGL_EXPORTED_DEF obj_t BGl_tprintz00zz__r4_output_6_10_3z00(obj_t BgL_portz00_25, obj_t BgL_objz00_26)
{
{ /* Ieee/output.scm 408 */
{ /* Ieee/output.scm 409 */
 obj_t BgL_top2978z00_4776;
BgL_top2978z00_4776 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00); 
BGL_EXITD_PUSH_PROTECT(BgL_top2978z00_4776, BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00); BUNSPEC; 
{ /* Ieee/output.scm 409 */
 obj_t BgL_tmp2977z00_4775;
{ /* Ieee/output.scm 410 */
 obj_t BgL_runner1337z00_1689;
{ /* Ieee/output.scm 410 */
 obj_t BgL_list1335z00_1687;
BgL_list1335z00_1687 = 
MAKE_YOUNG_PAIR(BgL_objz00_26, BNIL); 
BgL_runner1337z00_1689 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_portz00_25, BgL_list1335z00_1687); } 
{ /* Ieee/output.scm 410 */
 obj_t BgL_aux1336z00_1688;
{ /* Ieee/output.scm 410 */
 obj_t BgL_pairz00_2840;
{ /* Ieee/output.scm 410 */
 obj_t BgL_aux2328z00_4034;
BgL_aux2328z00_4034 = BgL_runner1337z00_1689; 
if(
PAIRP(BgL_aux2328z00_4034))
{ /* Ieee/output.scm 410 */
BgL_pairz00_2840 = BgL_aux2328z00_4034; }  else 
{ 
 obj_t BgL_auxz00_4784;
BgL_auxz00_4784 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(15438L), BGl_string2583z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_aux2328z00_4034); 
FAILURE(BgL_auxz00_4784,BFALSE,BFALSE);} } 
{ /* Ieee/output.scm 410 */
 obj_t BgL_aux2330z00_4036;
BgL_aux2330z00_4036 = 
CAR(BgL_pairz00_2840); 
if(
OUTPUT_PORTP(BgL_aux2330z00_4036))
{ /* Ieee/output.scm 410 */
BgL_aux1336z00_1688 = BgL_aux2330z00_4036; }  else 
{ 
 obj_t BgL_auxz00_4791;
BgL_auxz00_4791 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(15438L), BGl_string2583z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_aux2330z00_4036); 
FAILURE(BgL_auxz00_4791,BFALSE,BFALSE);} } } 
{ /* Ieee/output.scm 410 */
 obj_t BgL_pairz00_2841;
{ /* Ieee/output.scm 410 */
 obj_t BgL_aux2332z00_4038;
BgL_aux2332z00_4038 = BgL_runner1337z00_1689; 
if(
PAIRP(BgL_aux2332z00_4038))
{ /* Ieee/output.scm 410 */
BgL_pairz00_2841 = BgL_aux2332z00_4038; }  else 
{ 
 obj_t BgL_auxz00_4797;
BgL_auxz00_4797 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(15438L), BGl_string2583z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_aux2332z00_4038); 
FAILURE(BgL_auxz00_4797,BFALSE,BFALSE);} } 
BgL_runner1337z00_1689 = 
CDR(BgL_pairz00_2841); } 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_aux1336z00_1688, BgL_runner1337z00_1689); } } 
BgL_tmp2977z00_4775 = 
bgl_flush_output_port(BgL_portz00_25); 
BGL_EXITD_POP_PROTECT(BgL_top2978z00_4776); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00); 
return BgL_tmp2977z00_4775;} } } 

}



/* &tprint */
obj_t BGl_z62tprintz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3871, obj_t BgL_portz00_3872, obj_t BgL_objz00_3873)
{
{ /* Ieee/output.scm 408 */
{ /* Ieee/output.scm 409 */
 obj_t BgL_auxz00_4806;
if(
OUTPUT_PORTP(BgL_portz00_3872))
{ /* Ieee/output.scm 409 */
BgL_auxz00_4806 = BgL_portz00_3872
; }  else 
{ 
 obj_t BgL_auxz00_4809;
BgL_auxz00_4809 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(15406L), BGl_string2612z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3872); 
FAILURE(BgL_auxz00_4809,BFALSE,BFALSE);} 
return 
BGl_tprintz00zz__r4_output_6_10_3z00(BgL_auxz00_4806, BgL_objz00_3873);} } 

}



/* fprint */
BGL_EXPORTED_DEF obj_t BGl_fprintz00zz__r4_output_6_10_3z00(obj_t BgL_portz00_27, obj_t BgL_objz00_28)
{
{ /* Ieee/output.scm 416 */
{ 
 obj_t BgL_lz00_1692; obj_t BgL_resz00_1693;
BgL_lz00_1692 = BgL_objz00_28; 
BgL_resz00_1693 = BNIL; 
BgL_zc3z04anonymousza31338ze3z87_1694:
if(
NULLP(BgL_lz00_1692))
{ /* Ieee/output.scm 419 */
bgl_display_char(((unsigned char)10), BgL_portz00_27); 
return BgL_resz00_1693;}  else 
{ /* Ieee/output.scm 423 */
 obj_t BgL_vz00_1696;
{ /* Ieee/output.scm 423 */
 obj_t BgL_pairz00_2843;
if(
PAIRP(BgL_lz00_1692))
{ /* Ieee/output.scm 423 */
BgL_pairz00_2843 = BgL_lz00_1692; }  else 
{ 
 obj_t BgL_auxz00_4819;
BgL_auxz00_4819 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(15881L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1692); 
FAILURE(BgL_auxz00_4819,BFALSE,BFALSE);} 
BgL_vz00_1696 = 
CAR(BgL_pairz00_2843); } 
{ /* Ieee/output.scm 424 */
 obj_t BgL_arg1341z00_1697;
{ /* Ieee/output.scm 424 */
 obj_t BgL_pairz00_2844;
if(
PAIRP(BgL_lz00_1692))
{ /* Ieee/output.scm 424 */
BgL_pairz00_2844 = BgL_lz00_1692; }  else 
{ 
 obj_t BgL_auxz00_4826;
BgL_auxz00_4826 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(15908L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1692); 
FAILURE(BgL_auxz00_4826,BFALSE,BFALSE);} 
BgL_arg1341z00_1697 = 
CAR(BgL_pairz00_2844); } 
bgl_display_obj(BgL_arg1341z00_1697, BgL_portz00_27); } 
{ /* Ieee/output.scm 425 */
 obj_t BgL_arg1342z00_1698;
{ /* Ieee/output.scm 425 */
 obj_t BgL_pairz00_2845;
if(
PAIRP(BgL_lz00_1692))
{ /* Ieee/output.scm 425 */
BgL_pairz00_2845 = BgL_lz00_1692; }  else 
{ 
 obj_t BgL_auxz00_4834;
BgL_auxz00_4834 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(15934L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1692); 
FAILURE(BgL_auxz00_4834,BFALSE,BFALSE);} 
BgL_arg1342z00_1698 = 
CDR(BgL_pairz00_2845); } 
{ 
 obj_t BgL_resz00_4840; obj_t BgL_lz00_4839;
BgL_lz00_4839 = BgL_arg1342z00_1698; 
BgL_resz00_4840 = BgL_vz00_1696; 
BgL_resz00_1693 = BgL_resz00_4840; 
BgL_lz00_1692 = BgL_lz00_4839; 
goto BgL_zc3z04anonymousza31338ze3z87_1694;} } } } } 

}



/* &fprint */
obj_t BGl_z62fprintz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3874, obj_t BgL_portz00_3875, obj_t BgL_objz00_3876)
{
{ /* Ieee/output.scm 416 */
{ /* Ieee/output.scm 419 */
 obj_t BgL_auxz00_4841;
if(
OUTPUT_PORTP(BgL_portz00_3875))
{ /* Ieee/output.scm 419 */
BgL_auxz00_4841 = BgL_portz00_3875
; }  else 
{ 
 obj_t BgL_auxz00_4844;
BgL_auxz00_4844 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(15792L), BGl_string2613z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3875); 
FAILURE(BgL_auxz00_4844,BFALSE,BFALSE);} 
return 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_auxz00_4841, BgL_objz00_3876);} } 

}



/* xprintf */
obj_t BGl_xprintfz00zz__r4_output_6_10_3z00(obj_t BgL_procnamez00_29, obj_t BgL_pz00_30, obj_t BgL__fmtz00_31, obj_t BgL_objsz00_32)
{
{ /* Ieee/output.scm 430 */
{ /* Ieee/output.scm 431 */
 long BgL_lenz00_1700;
BgL_lenz00_1700 = 
STRING_LENGTH(BgL__fmtz00_31); 
{ 
 obj_t BgL_iz00_1702; obj_t BgL_osz00_1703;
BgL_iz00_1702 = 
BINT(0L); 
BgL_osz00_1703 = BgL_objsz00_32; 
BgL_zc3z04anonymousza31343ze3z87_1704:
{ 
 long BgL_iz00_1763; obj_t BgL_lz00_1764; obj_t BgL_pz00_1765; obj_t BgL_iz00_1770; obj_t BgL_numz00_1771; long BgL_mincolz00_1772; unsigned char BgL_paddingz00_1773; long BgL_iz00_1784; obj_t BgL_numz00_1785; obj_t BgL_pz00_1786; unsigned char BgL_fz00_1803; long BgL_iz00_1804; bool_t BgL_altzf3zf3_1805;
{ /* Ieee/output.scm 568 */
 bool_t BgL_test2988z00_4850;
{ /* Ieee/output.scm 568 */
 long BgL_n1z00_2950;
{ /* Ieee/output.scm 568 */
 obj_t BgL_tmpz00_4851;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 568 */
BgL_tmpz00_4851 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_4854;
BgL_auxz00_4854 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(19889L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_4854,BFALSE,BFALSE);} 
BgL_n1z00_2950 = 
(long)CINT(BgL_tmpz00_4851); } 
BgL_test2988z00_4850 = 
(BgL_n1z00_2950<BgL_lenz00_1700); } 
if(BgL_test2988z00_4850)
{ /* Ieee/output.scm 569 */
 unsigned char BgL_cz00_1713;
{ /* Ieee/output.scm 569 */
 long BgL_kz00_2953;
{ /* Ieee/output.scm 569 */
 obj_t BgL_tmpz00_4860;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 569 */
BgL_tmpz00_4860 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_4863;
BgL_auxz00_4863 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(19928L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_4863,BFALSE,BFALSE);} 
BgL_kz00_2953 = 
(long)CINT(BgL_tmpz00_4860); } 
{ /* Ieee/output.scm 569 */
 long BgL_l2233z00_3939;
BgL_l2233z00_3939 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_kz00_2953, BgL_l2233z00_3939))
{ /* Ieee/output.scm 569 */
BgL_cz00_1713 = 
STRING_REF(BgL__fmtz00_31, BgL_kz00_2953); }  else 
{ 
 obj_t BgL_auxz00_4872;
BgL_auxz00_4872 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(19911L), BGl_string2624z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2233z00_3939), 
(int)(BgL_kz00_2953)); 
FAILURE(BgL_auxz00_4872,BFALSE,BFALSE);} } } 
if(
(BgL_cz00_1713==((unsigned char)'~')))
{ /* Ieee/output.scm 572 */
 bool_t BgL_test2993z00_4880;
{ /* Ieee/output.scm 572 */
 long BgL_n1z00_2957;
{ /* Ieee/output.scm 572 */
 obj_t BgL_tmpz00_4881;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 572 */
BgL_tmpz00_4881 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_4884;
BgL_auxz00_4884 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(19981L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_4884,BFALSE,BFALSE);} 
BgL_n1z00_2957 = 
(long)CINT(BgL_tmpz00_4881); } 
BgL_test2993z00_4880 = 
(BgL_n1z00_2957==
(BgL_lenz00_1700-1L)); } 
if(BgL_test2993z00_4880)
{ /* Ieee/output.scm 575 */
 obj_t BgL_arg1349z00_1717;
{ /* Ieee/output.scm 575 */
 long BgL_auxz00_4891;
{ /* Ieee/output.scm 575 */
 obj_t BgL_tmpz00_4892;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 575 */
BgL_tmpz00_4892 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_4895;
BgL_auxz00_4895 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20050L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_4895,BFALSE,BFALSE);} 
BgL_auxz00_4891 = 
(long)CINT(BgL_tmpz00_4892); } 
BgL_arg1349z00_1717 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL__fmtz00_31, BgL_auxz00_4891, BgL_lenz00_1700); } 
return 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2629z00zz__r4_output_6_10_3z00, BgL_arg1349z00_1717);}  else 
{ /* Ieee/output.scm 576 */
 bool_t BgL_test2996z00_4902;
{ /* Ieee/output.scm 576 */
 unsigned char BgL_tmpz00_4903;
{ /* Ieee/output.scm 576 */
 long BgL_i2236z00_3942;
{ /* Ieee/output.scm 576 */
 long BgL_za71za7_2959;
{ /* Ieee/output.scm 576 */
 obj_t BgL_tmpz00_4904;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 576 */
BgL_tmpz00_4904 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_4907;
BgL_auxz00_4907 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20119L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_4907,BFALSE,BFALSE);} 
BgL_za71za7_2959 = 
(long)CINT(BgL_tmpz00_4904); } 
BgL_i2236z00_3942 = 
(BgL_za71za7_2959+1L); } 
{ /* Ieee/output.scm 576 */
 long BgL_l2237z00_3943;
BgL_l2237z00_3943 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_i2236z00_3942, BgL_l2237z00_3943))
{ /* Ieee/output.scm 576 */
BgL_tmpz00_4903 = 
STRING_REF(BgL__fmtz00_31, BgL_i2236z00_3942)
; }  else 
{ 
 obj_t BgL_auxz00_4917;
BgL_auxz00_4917 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20097L), BGl_string2624z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2237z00_3943), 
(int)(BgL_i2236z00_3942)); 
FAILURE(BgL_auxz00_4917,BFALSE,BFALSE);} } } 
BgL_test2996z00_4902 = 
(((unsigned char)':')==BgL_tmpz00_4903); } 
if(BgL_test2996z00_4902)
{ /* Ieee/output.scm 577 */
 bool_t BgL_test2999z00_4924;
{ /* Ieee/output.scm 577 */
 long BgL_n1z00_2965;
{ /* Ieee/output.scm 577 */
 obj_t BgL_tmpz00_4925;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 577 */
BgL_tmpz00_4925 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_4928;
BgL_auxz00_4928 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20138L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_4928,BFALSE,BFALSE);} 
BgL_n1z00_2965 = 
(long)CINT(BgL_tmpz00_4925); } 
BgL_test2999z00_4924 = 
(BgL_n1z00_2965==
(BgL_lenz00_1700-2L)); } 
if(BgL_test2999z00_4924)
{ /* Ieee/output.scm 580 */
 obj_t BgL_arg1357z00_1723;
{ /* Ieee/output.scm 580 */
 long BgL_auxz00_4935;
{ /* Ieee/output.scm 580 */
 obj_t BgL_tmpz00_4936;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 580 */
BgL_tmpz00_4936 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_4939;
BgL_auxz00_4939 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20219L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_4939,BFALSE,BFALSE);} 
BgL_auxz00_4935 = 
(long)CINT(BgL_tmpz00_4936); } 
BgL_arg1357z00_1723 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL__fmtz00_31, BgL_auxz00_4935, BgL_lenz00_1700); } 
return 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2629z00zz__r4_output_6_10_3z00, BgL_arg1357z00_1723);}  else 
{ /* Ieee/output.scm 581 */
 unsigned char BgL_arg1358z00_1724; long BgL_arg1359z00_1725;
{ /* Ieee/output.scm 581 */
 long BgL_i2240z00_3946;
{ /* Ieee/output.scm 581 */
 long BgL_za71za7_2967;
{ /* Ieee/output.scm 581 */
 obj_t BgL_tmpz00_4946;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 581 */
BgL_tmpz00_4946 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_4949;
BgL_auxz00_4949 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20284L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_4949,BFALSE,BFALSE);} 
BgL_za71za7_2967 = 
(long)CINT(BgL_tmpz00_4946); } 
BgL_i2240z00_3946 = 
(BgL_za71za7_2967+2L); } 
{ /* Ieee/output.scm 581 */
 long BgL_l2241z00_3947;
BgL_l2241z00_3947 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_i2240z00_3946, BgL_l2241z00_3947))
{ /* Ieee/output.scm 581 */
BgL_arg1358z00_1724 = 
STRING_REF(BgL__fmtz00_31, BgL_i2240z00_3946); }  else 
{ 
 obj_t BgL_auxz00_4959;
BgL_auxz00_4959 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20262L), BGl_string2624z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2241z00_3947), 
(int)(BgL_i2240z00_3946)); 
FAILURE(BgL_auxz00_4959,BFALSE,BFALSE);} } } 
{ /* Ieee/output.scm 582 */
 long BgL_za71za7_2970;
{ /* Ieee/output.scm 582 */
 obj_t BgL_tmpz00_4965;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 582 */
BgL_tmpz00_4965 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_4968;
BgL_auxz00_4968 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20305L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_4968,BFALSE,BFALSE);} 
BgL_za71za7_2970 = 
(long)CINT(BgL_tmpz00_4965); } 
BgL_arg1359z00_1725 = 
(BgL_za71za7_2970+2L); } 
BgL_fz00_1803 = BgL_arg1358z00_1724; 
BgL_iz00_1804 = BgL_arg1359z00_1725; 
BgL_altzf3zf3_1805 = ((bool_t)1); 
BgL_zc3z04anonymousza31413ze3z87_1806:
{ 

switch( BgL_fz00_1803) { case ((unsigned char)'a') : 
case ((unsigned char)'A') : 

if(BgL_altzf3zf3_1805)
{ /* Ieee/output.scm 512 */
 obj_t BgL_arg1415z00_1810;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1415z00_1810 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2887;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2887 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_4981;
BgL_auxz00_4981 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_4981,BFALSE,BFALSE);} 
BgL_arg1415z00_1810 = 
CAR(BgL_pairz00_2887); } 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1415z00_1810, BgL_pz00_30); }  else 
{ /* Ieee/output.scm 513 */
 obj_t BgL_arg1416z00_1811;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1416z00_1811 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2889;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2889 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_4993;
BgL_auxz00_4993 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_4993,BFALSE,BFALSE);} 
BgL_arg1416z00_1811 = 
CAR(BgL_pairz00_2889); } 
bgl_display_obj(BgL_arg1416z00_1811, BgL_pz00_30); } 
{ /* Ieee/output.scm 514 */
 long BgL_arg1417z00_1812; obj_t BgL_arg1419z00_1813;
BgL_arg1417z00_1812 = 
(BgL_iz00_1804+1L); 
{ /* Ieee/output.scm 514 */
 obj_t BgL_pairz00_2891;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 514 */
BgL_pairz00_2891 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5002;
BgL_auxz00_5002 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18538L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5002,BFALSE,BFALSE);} 
BgL_arg1419z00_1813 = 
CDR(BgL_pairz00_2891); } 
{ 
 obj_t BgL_osz00_5009; obj_t BgL_iz00_5007;
BgL_iz00_5007 = 
BINT(BgL_arg1417z00_1812); 
BgL_osz00_5009 = BgL_arg1419z00_1813; 
BgL_osz00_1703 = BgL_osz00_5009; 
BgL_iz00_1702 = BgL_iz00_5007; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } break;case ((unsigned char)'s') : 
case ((unsigned char)'S') : 

if(BgL_altzf3zf3_1805)
{ /* Ieee/output.scm 517 */
 obj_t BgL_arg1420z00_1814;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1420z00_1814 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2893;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2893 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5017;
BgL_auxz00_5017 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5017,BFALSE,BFALSE);} 
BgL_arg1420z00_1814 = 
CAR(BgL_pairz00_2893); } 
BGl_writezd2circlezd2zz__pp_circlez00(BgL_arg1420z00_1814, BgL_pz00_30); }  else 
{ /* Ieee/output.scm 518 */
 obj_t BgL_arg1421z00_1815;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1421z00_1815 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2895;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2895 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5029;
BgL_auxz00_5029 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5029,BFALSE,BFALSE);} 
BgL_arg1421z00_1815 = 
CAR(BgL_pairz00_2895); } 
{ /* Ieee/output.scm 518 */
 obj_t BgL_list1422z00_1816;
BgL_list1422z00_1816 = 
MAKE_YOUNG_PAIR(BgL_pz00_30, BNIL); 
BGl_writez00zz__r4_output_6_10_3z00(BgL_arg1421z00_1815, BgL_list1422z00_1816); } } 
{ /* Ieee/output.scm 519 */
 long BgL_arg1423z00_1817; obj_t BgL_arg1424z00_1818;
BgL_arg1423z00_1817 = 
(BgL_iz00_1804+1L); 
{ /* Ieee/output.scm 519 */
 obj_t BgL_pairz00_2897;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 519 */
BgL_pairz00_2897 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5039;
BgL_auxz00_5039 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18661L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5039,BFALSE,BFALSE);} 
BgL_arg1424z00_1818 = 
CDR(BgL_pairz00_2897); } 
{ 
 obj_t BgL_osz00_5046; obj_t BgL_iz00_5044;
BgL_iz00_5044 = 
BINT(BgL_arg1423z00_1817); 
BgL_osz00_5046 = BgL_arg1424z00_1818; 
BgL_osz00_1703 = BgL_osz00_5046; 
BgL_iz00_1702 = BgL_iz00_5044; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } break;case ((unsigned char)'v') : 
case ((unsigned char)'V') : 

if(BgL_altzf3zf3_1805)
{ /* Ieee/output.scm 522 */
 obj_t BgL_arg1425z00_1819;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1425z00_1819 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2899;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2899 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5054;
BgL_auxz00_5054 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5054,BFALSE,BFALSE);} 
BgL_arg1425z00_1819 = 
CAR(BgL_pairz00_2899); } 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1425z00_1819, BgL_pz00_30); }  else 
{ /* Ieee/output.scm 523 */
 obj_t BgL_arg1426z00_1820;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1426z00_1820 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2901;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2901 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5066;
BgL_auxz00_5066 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5066,BFALSE,BFALSE);} 
BgL_arg1426z00_1820 = 
CAR(BgL_pairz00_2901); } 
bgl_display_obj(BgL_arg1426z00_1820, BgL_pz00_30); } 
bgl_display_char(((unsigned char)10), BgL_pz00_30); 
{ /* Ieee/output.scm 525 */
 long BgL_arg1427z00_1821; obj_t BgL_arg1428z00_1822;
BgL_arg1427z00_1821 = 
(BgL_iz00_1804+1L); 
{ /* Ieee/output.scm 525 */
 obj_t BgL_pairz00_2904;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 525 */
BgL_pairz00_2904 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5076;
BgL_auxz00_5076 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18802L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5076,BFALSE,BFALSE);} 
BgL_arg1428z00_1822 = 
CDR(BgL_pairz00_2904); } 
{ 
 obj_t BgL_osz00_5083; obj_t BgL_iz00_5081;
BgL_iz00_5081 = 
BINT(BgL_arg1427z00_1821); 
BgL_osz00_5083 = BgL_arg1428z00_1822; 
BgL_osz00_1703 = BgL_osz00_5083; 
BgL_iz00_1702 = BgL_iz00_5081; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } break;case ((unsigned char)'c') : 
case ((unsigned char)'C') : 

{ /* Ieee/output.scm 527 */
 obj_t BgL_oz00_1823;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_oz00_1823 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2906;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2906 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5090;
BgL_auxz00_5090 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5090,BFALSE,BFALSE);} 
BgL_oz00_1823 = 
CAR(BgL_pairz00_2906); } 
if(
CHARP(BgL_oz00_1823))
{ /* Ieee/output.scm 528 */
{ /* Ieee/output.scm 326 */
 unsigned char BgL_tmpz00_5097;
BgL_tmpz00_5097 = 
CCHAR(BgL_oz00_1823); 
bgl_display_char(BgL_tmpz00_5097, BgL_pz00_30); } 
{ /* Ieee/output.scm 532 */
 long BgL_arg1430z00_1825; obj_t BgL_arg1431z00_1826;
BgL_arg1430z00_1825 = 
(BgL_iz00_1804+1L); 
{ /* Ieee/output.scm 532 */
 obj_t BgL_pairz00_2910;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 532 */
BgL_pairz00_2910 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5103;
BgL_auxz00_5103 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18984L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5103,BFALSE,BFALSE);} 
BgL_arg1431z00_1826 = 
CDR(BgL_pairz00_2910); } 
{ 
 obj_t BgL_osz00_5110; obj_t BgL_iz00_5108;
BgL_iz00_5108 = 
BINT(BgL_arg1430z00_1825); 
BgL_osz00_5110 = BgL_arg1431z00_1826; 
BgL_osz00_1703 = BgL_osz00_5110; 
BgL_iz00_1702 = BgL_iz00_5108; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } }  else 
{ /* Ieee/output.scm 528 */
return 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2619z00zz__r4_output_6_10_3z00, BgL_oz00_1823);} } break;case ((unsigned char)'d') : 
case ((unsigned char)'D') : 

{ /* Ieee/output.scm 534 */
 obj_t BgL_arg1432z00_1827;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1432z00_1827 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2912;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2912 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5118;
BgL_auxz00_5118 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5118,BFALSE,BFALSE);} 
BgL_arg1432z00_1827 = 
CAR(BgL_pairz00_2912); } 
if(
BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1432z00_1827))
{ /* Ieee/output.scm 441 */
bgl_display_obj(
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1432z00_1827, 
BINT(10L)), BgL_pz00_30); }  else 
{ /* Ieee/output.scm 441 */
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2620z00zz__r4_output_6_10_3z00, BgL_arg1432z00_1827); } } 
{ /* Ieee/output.scm 535 */
 long BgL_arg1433z00_1828; obj_t BgL_arg1434z00_1829;
BgL_arg1433z00_1828 = 
(BgL_iz00_1804+1L); 
{ /* Ieee/output.scm 535 */
 obj_t BgL_pairz00_2916;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 535 */
BgL_pairz00_2916 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5132;
BgL_auxz00_5132 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(19066L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5132,BFALSE,BFALSE);} 
BgL_arg1434z00_1829 = 
CDR(BgL_pairz00_2916); } 
{ 
 obj_t BgL_osz00_5139; obj_t BgL_iz00_5137;
BgL_iz00_5137 = 
BINT(BgL_arg1433z00_1828); 
BgL_osz00_5139 = BgL_arg1434z00_1829; 
BgL_osz00_1703 = BgL_osz00_5139; 
BgL_iz00_1702 = BgL_iz00_5137; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } break;case ((unsigned char)'x') : 
case ((unsigned char)'X') : 

{ /* Ieee/output.scm 537 */
 obj_t BgL_arg1435z00_1830;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1435z00_1830 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2918;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2918 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5146;
BgL_auxz00_5146 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5146,BFALSE,BFALSE);} 
BgL_arg1435z00_1830 = 
CAR(BgL_pairz00_2918); } 
if(
BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1435z00_1830))
{ /* Ieee/output.scm 441 */
bgl_display_obj(
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1435z00_1830, 
BINT(16L)), BgL_pz00_30); }  else 
{ /* Ieee/output.scm 441 */
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2620z00zz__r4_output_6_10_3z00, BgL_arg1435z00_1830); } } 
{ /* Ieee/output.scm 538 */
 long BgL_arg1436z00_1831; obj_t BgL_arg1437z00_1832;
BgL_arg1436z00_1831 = 
(BgL_iz00_1804+1L); 
{ /* Ieee/output.scm 538 */
 obj_t BgL_pairz00_2922;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 538 */
BgL_pairz00_2922 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5160;
BgL_auxz00_5160 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(19145L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5160,BFALSE,BFALSE);} 
BgL_arg1437z00_1832 = 
CDR(BgL_pairz00_2922); } 
{ 
 obj_t BgL_osz00_5167; obj_t BgL_iz00_5165;
BgL_iz00_5165 = 
BINT(BgL_arg1436z00_1831); 
BgL_osz00_5167 = BgL_arg1437z00_1832; 
BgL_osz00_1703 = BgL_osz00_5167; 
BgL_iz00_1702 = BgL_iz00_5165; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } break;case ((unsigned char)'o') : 
case ((unsigned char)'O') : 

{ /* Ieee/output.scm 540 */
 obj_t BgL_arg1438z00_1833;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1438z00_1833 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2924;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2924 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5174;
BgL_auxz00_5174 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5174,BFALSE,BFALSE);} 
BgL_arg1438z00_1833 = 
CAR(BgL_pairz00_2924); } 
if(
BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1438z00_1833))
{ /* Ieee/output.scm 441 */
bgl_display_obj(
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1438z00_1833, 
BINT(8L)), BgL_pz00_30); }  else 
{ /* Ieee/output.scm 441 */
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2620z00zz__r4_output_6_10_3z00, BgL_arg1438z00_1833); } } 
{ /* Ieee/output.scm 541 */
 long BgL_arg1439z00_1834; obj_t BgL_arg1442z00_1835;
BgL_arg1439z00_1834 = 
(BgL_iz00_1804+1L); 
{ /* Ieee/output.scm 541 */
 obj_t BgL_pairz00_2928;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 541 */
BgL_pairz00_2928 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5188;
BgL_auxz00_5188 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(19223L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5188,BFALSE,BFALSE);} 
BgL_arg1442z00_1835 = 
CDR(BgL_pairz00_2928); } 
{ 
 obj_t BgL_osz00_5195; obj_t BgL_iz00_5193;
BgL_iz00_5193 = 
BINT(BgL_arg1439z00_1834); 
BgL_osz00_5195 = BgL_arg1442z00_1835; 
BgL_osz00_1703 = BgL_osz00_5195; 
BgL_iz00_1702 = BgL_iz00_5193; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } break;case ((unsigned char)'b') : 
case ((unsigned char)'B') : 

{ /* Ieee/output.scm 543 */
 obj_t BgL_arg1443z00_1836;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1443z00_1836 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2930;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2930 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5202;
BgL_auxz00_5202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5202,BFALSE,BFALSE);} 
BgL_arg1443z00_1836 = 
CAR(BgL_pairz00_2930); } 
if(
BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1443z00_1836))
{ /* Ieee/output.scm 441 */
bgl_display_obj(
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1443z00_1836, 
BINT(2L)), BgL_pz00_30); }  else 
{ /* Ieee/output.scm 441 */
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2620z00zz__r4_output_6_10_3z00, BgL_arg1443z00_1836); } } 
{ /* Ieee/output.scm 544 */
 long BgL_arg1444z00_1837; obj_t BgL_arg1445z00_1838;
BgL_arg1444z00_1837 = 
(BgL_iz00_1804+1L); 
{ /* Ieee/output.scm 544 */
 obj_t BgL_pairz00_2934;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 544 */
BgL_pairz00_2934 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5216;
BgL_auxz00_5216 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(19301L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5216,BFALSE,BFALSE);} 
BgL_arg1445z00_1838 = 
CDR(BgL_pairz00_2934); } 
{ 
 obj_t BgL_osz00_5223; obj_t BgL_iz00_5221;
BgL_iz00_5221 = 
BINT(BgL_arg1444z00_1837); 
BgL_osz00_5223 = BgL_arg1445z00_1838; 
BgL_osz00_1703 = BgL_osz00_5223; 
BgL_iz00_1702 = BgL_iz00_5221; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } break;case ((unsigned char)'%') : 
case ((unsigned char)'n') : 

bgl_display_char(((unsigned char)10), BgL_pz00_30); 
{ /* Ieee/output.scm 547 */
 long BgL_arg1446z00_1839;
BgL_arg1446z00_1839 = 
(BgL_iz00_1804+1L); 
{ 
 obj_t BgL_iz00_5226;
BgL_iz00_5226 = 
BINT(BgL_arg1446z00_1839); 
BgL_iz00_1702 = BgL_iz00_5226; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } break;case ((unsigned char)'r') : 

bgl_display_char(((unsigned char)13), BgL_pz00_30); 
{ /* Ieee/output.scm 550 */
 long BgL_arg1447z00_1840;
BgL_arg1447z00_1840 = 
(BgL_iz00_1804+1L); 
{ 
 obj_t BgL_iz00_5230;
BgL_iz00_5230 = 
BINT(BgL_arg1447z00_1840); 
BgL_iz00_1702 = BgL_iz00_5230; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } break;case ((unsigned char)'l') : 
case ((unsigned char)'L') : 

{ /* Ieee/output.scm 552 */
 obj_t BgL_arg1448z00_1841;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1448z00_1841 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2941;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2941 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5238;
BgL_auxz00_5238 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5238,BFALSE,BFALSE);} 
BgL_arg1448z00_1841 = 
CAR(BgL_pairz00_2941); } 
BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00(BgL_arg1448z00_1841, BgL_pz00_30, BGl_string2621z00zz__r4_output_6_10_3z00); } 
{ /* Ieee/output.scm 553 */
 long BgL_arg1450z00_1842; obj_t BgL_arg1451z00_1843;
BgL_arg1450z00_1842 = 
(BgL_iz00_1804+1L); 
{ /* Ieee/output.scm 553 */
 obj_t BgL_pairz00_2943;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 553 */
BgL_pairz00_2943 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5247;
BgL_auxz00_5247 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(19507L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5247,BFALSE,BFALSE);} 
BgL_arg1451z00_1843 = 
CDR(BgL_pairz00_2943); } 
{ 
 obj_t BgL_osz00_5254; obj_t BgL_iz00_5252;
BgL_iz00_5252 = 
BINT(BgL_arg1450z00_1842); 
BgL_osz00_5254 = BgL_arg1451z00_1843; 
BgL_osz00_1703 = BgL_osz00_5254; 
BgL_iz00_1702 = BgL_iz00_5252; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } break;case ((unsigned char)'(') : 

{ /* Ieee/output.scm 555 */
 obj_t BgL_niz00_1844;
{ /* Ieee/output.scm 555 */
 obj_t BgL_arg1453z00_1846;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1453z00_1846 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2945;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2945 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5261;
BgL_auxz00_5261 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5261,BFALSE,BFALSE);} 
BgL_arg1453z00_1846 = 
CAR(BgL_pairz00_2945); } 
BgL_iz00_1763 = BgL_iz00_1804; 
BgL_lz00_1764 = BgL_arg1453z00_1846; 
BgL_pz00_1765 = BgL_pz00_30; 
{ /* Ieee/output.scm 461 */
 obj_t BgL_jz00_1767;
BgL_jz00_1767 = 
BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL__fmtz00_31, 
BCHAR(((unsigned char)')')), 
BINT(BgL_iz00_1763)); 
if(
CBOOL(BgL_jz00_1767))
{ /* Ieee/output.scm 464 */
 obj_t BgL_sepz00_1768;
{ /* Ieee/output.scm 464 */
 long BgL_arg1388z00_1769;
BgL_arg1388z00_1769 = 
(BgL_iz00_1763+1L); 
{ /* Ieee/output.scm 464 */
 long BgL_auxz00_5272;
{ /* Ieee/output.scm 464 */
 obj_t BgL_tmpz00_5273;
if(
INTEGERP(BgL_jz00_1767))
{ /* Ieee/output.scm 464 */
BgL_tmpz00_5273 = BgL_jz00_1767
; }  else 
{ 
 obj_t BgL_auxz00_5276;
BgL_auxz00_5276 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(17093L), BGl_string2628z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_jz00_1767); 
FAILURE(BgL_auxz00_5276,BFALSE,BFALSE);} 
BgL_auxz00_5272 = 
(long)CINT(BgL_tmpz00_5273); } 
BgL_sepz00_1768 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL__fmtz00_31, BgL_arg1388z00_1769, BgL_auxz00_5272); } } 
BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00(BgL_lz00_1764, BgL_pz00_1765, BgL_sepz00_1768); 
{ 
 obj_t BgL_tmpz00_5283;
if(
INTEGERP(BgL_jz00_1767))
{ /* Ieee/output.scm 466 */
BgL_tmpz00_5283 = BgL_jz00_1767
; }  else 
{ 
 obj_t BgL_auxz00_5286;
BgL_auxz00_5286 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(17171L), BGl_string2628z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_jz00_1767); 
FAILURE(BgL_auxz00_5286,BFALSE,BFALSE);} 
BgL_niz00_1844 = 
ADDFX(BgL_tmpz00_5283, 
BINT(1L)); } }  else 
{ /* Ieee/output.scm 462 */
BgL_niz00_1844 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2625z00zz__r4_output_6_10_3z00, BgL__fmtz00_31); } } } 
{ /* Ieee/output.scm 556 */
 obj_t BgL_arg1452z00_1845;
{ /* Ieee/output.scm 556 */
 obj_t BgL_pairz00_2946;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 556 */
BgL_pairz00_2946 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5295;
BgL_auxz00_5295 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(19590L), BGl_string2618z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5295,BFALSE,BFALSE);} 
BgL_arg1452z00_1845 = 
CDR(BgL_pairz00_2946); } 
{ 
 obj_t BgL_osz00_5301; obj_t BgL_iz00_5300;
BgL_iz00_5300 = BgL_niz00_1844; 
BgL_osz00_5301 = BgL_arg1452z00_1845; 
BgL_osz00_1703 = BgL_osz00_5301; 
BgL_iz00_1702 = BgL_iz00_5300; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } } break;case ((unsigned char)'~') : 

bgl_display_char(((unsigned char)'~'), BgL_pz00_30); 
{ /* Ieee/output.scm 559 */
 long BgL_arg1455z00_1847;
BgL_arg1455z00_1847 = 
(BgL_iz00_1804+1L); 
{ 
 obj_t BgL_iz00_5304;
BgL_iz00_5304 = 
BINT(BgL_arg1455z00_1847); 
BgL_iz00_1702 = BgL_iz00_5304; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } break;
default: 
if(
isdigit(BgL_fz00_1803))
{ /* Ieee/output.scm 562 */
 obj_t BgL_niz00_1849;
{ /* Ieee/output.scm 562 */
 obj_t BgL_arg1458z00_1851;
if(
NULLP(BgL_osz00_1703))
{ /* Ieee/output.scm 436 */
BgL_arg1458z00_1851 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2614z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1803)); }  else 
{ /* Ieee/output.scm 438 */
 obj_t BgL_pairz00_2884;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 438 */
BgL_pairz00_2884 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5314;
BgL_auxz00_5314 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16424L), BGl_string2615z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5314,BFALSE,BFALSE);} 
BgL_arg1458z00_1851 = 
CAR(BgL_pairz00_2884); } 
BgL_iz00_1784 = BgL_iz00_1804; 
BgL_numz00_1785 = BgL_arg1458z00_1851; 
BgL_pz00_1786 = BgL_pz00_30; 
if(
BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_numz00_1785))
{ /* Ieee/output.scm 491 */
 obj_t BgL_jz00_1789;
BgL_jz00_1789 = 
BGl_stringzd2skipzd2zz__r4_strings_6_7z00(BgL__fmtz00_31, BGl_string2622z00zz__r4_output_6_10_3z00, 
BINT(BgL_iz00_1784)); 
if(
CBOOL(BgL_jz00_1789))
{ /* Ieee/output.scm 495 */
 bool_t BgL_test3057z00_5325;
{ /* Ieee/output.scm 495 */
 unsigned char BgL_tmpz00_5326;
{ /* Ieee/output.scm 495 */
 long BgL_kz00_2872;
{ /* Ieee/output.scm 495 */
 obj_t BgL_tmpz00_5327;
if(
INTEGERP(BgL_jz00_1789))
{ /* Ieee/output.scm 495 */
BgL_tmpz00_5327 = BgL_jz00_1789
; }  else 
{ 
 obj_t BgL_auxz00_5330;
BgL_auxz00_5330 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18032L), BGl_string2623z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_jz00_1789); 
FAILURE(BgL_auxz00_5330,BFALSE,BFALSE);} 
BgL_kz00_2872 = 
(long)CINT(BgL_tmpz00_5327); } 
{ /* Ieee/output.scm 495 */
 long BgL_l2221z00_3927;
BgL_l2221z00_3927 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_kz00_2872, BgL_l2221z00_3927))
{ /* Ieee/output.scm 495 */
BgL_tmpz00_5326 = 
STRING_REF(BgL__fmtz00_31, BgL_kz00_2872)
; }  else 
{ 
 obj_t BgL_auxz00_5339;
BgL_auxz00_5339 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18015L), BGl_string2624z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2221z00_3927), 
(int)(BgL_kz00_2872)); 
FAILURE(BgL_auxz00_5339,BFALSE,BFALSE);} } } 
BgL_test3057z00_5325 = 
(BgL_tmpz00_5326==((unsigned char)',')); } 
if(BgL_test3057z00_5325)
{ /* Ieee/output.scm 496 */
 bool_t BgL_test3060z00_5346;
{ /* Ieee/output.scm 496 */
 long BgL_n1z00_2876;
{ /* Ieee/output.scm 496 */
 obj_t BgL_tmpz00_5347;
if(
INTEGERP(BgL_jz00_1789))
{ /* Ieee/output.scm 496 */
BgL_tmpz00_5347 = BgL_jz00_1789
; }  else 
{ 
 obj_t BgL_auxz00_5350;
BgL_auxz00_5350 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18058L), BGl_string2623z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_jz00_1789); 
FAILURE(BgL_auxz00_5350,BFALSE,BFALSE);} 
BgL_n1z00_2876 = 
(long)CINT(BgL_tmpz00_5347); } 
BgL_test3060z00_5346 = 
(BgL_n1z00_2876==
(BgL_lenz00_1700-1L)); } 
if(BgL_test3060z00_5346)
{ /* Ieee/output.scm 496 */
BgL_niz00_1849 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2625z00zz__r4_output_6_10_3z00, BgL__fmtz00_31); }  else 
{ /* Ieee/output.scm 498 */
 long BgL_arg1403z00_1794; long BgL_arg1404z00_1795; unsigned char BgL_arg1405z00_1796;
{ /* Ieee/output.scm 498 */
 long BgL_za71za7_2878;
{ /* Ieee/output.scm 498 */
 obj_t BgL_tmpz00_5358;
if(
INTEGERP(BgL_jz00_1789))
{ /* Ieee/output.scm 498 */
BgL_tmpz00_5358 = BgL_jz00_1789
; }  else 
{ 
 obj_t BgL_auxz00_5361;
BgL_auxz00_5361 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18147L), BGl_string2623z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_jz00_1789); 
FAILURE(BgL_auxz00_5361,BFALSE,BFALSE);} 
BgL_za71za7_2878 = 
(long)CINT(BgL_tmpz00_5358); } 
BgL_arg1403z00_1794 = 
(BgL_za71za7_2878+2L); } 
{ /* Ieee/output.scm 500 */
 obj_t BgL_arg1407z00_1797;
{ /* Ieee/output.scm 500 */
 long BgL_auxz00_5367;
{ /* Ieee/output.scm 500 */
 obj_t BgL_tmpz00_5368;
if(
INTEGERP(BgL_jz00_1789))
{ /* Ieee/output.scm 500 */
BgL_tmpz00_5368 = BgL_jz00_1789
; }  else 
{ 
 obj_t BgL_auxz00_5371;
BgL_auxz00_5371 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18191L), BGl_string2623z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_jz00_1789); 
FAILURE(BgL_auxz00_5371,BFALSE,BFALSE);} 
BgL_auxz00_5367 = 
(long)CINT(BgL_tmpz00_5368); } 
BgL_arg1407z00_1797 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL__fmtz00_31, BgL_iz00_1784, BgL_auxz00_5367); } 
{ /* Ieee/output.scm 500 */
 char * BgL_tmpz00_5377;
BgL_tmpz00_5377 = 
BSTRING_TO_STRING(BgL_arg1407z00_1797); 
BgL_arg1404z00_1795 = 
BGL_STRTOL(BgL_tmpz00_5377, 0L, 10L); } } 
{ /* Ieee/output.scm 501 */
 long BgL_i2224z00_3930;
{ /* Ieee/output.scm 501 */
 long BgL_za71za7_2879;
{ /* Ieee/output.scm 501 */
 obj_t BgL_tmpz00_5380;
if(
INTEGERP(BgL_jz00_1789))
{ /* Ieee/output.scm 501 */
BgL_tmpz00_5380 = BgL_jz00_1789
; }  else 
{ 
 obj_t BgL_auxz00_5383;
BgL_auxz00_5383 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18244L), BGl_string2623z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_jz00_1789); 
FAILURE(BgL_auxz00_5383,BFALSE,BFALSE);} 
BgL_za71za7_2879 = 
(long)CINT(BgL_tmpz00_5380); } 
BgL_i2224z00_3930 = 
(BgL_za71za7_2879+1L); } 
{ /* Ieee/output.scm 501 */
 long BgL_l2225z00_3931;
BgL_l2225z00_3931 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_i2224z00_3930, BgL_l2225z00_3931))
{ /* Ieee/output.scm 501 */
BgL_arg1405z00_1796 = 
STRING_REF(BgL__fmtz00_31, BgL_i2224z00_3930); }  else 
{ 
 obj_t BgL_auxz00_5393;
BgL_auxz00_5393 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18222L), BGl_string2624z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2225z00_3931), 
(int)(BgL_i2224z00_3930)); 
FAILURE(BgL_auxz00_5393,BFALSE,BFALSE);} } } 
BgL_iz00_1770 = 
BINT(BgL_arg1403z00_1794); 
BgL_numz00_1771 = BgL_numz00_1785; 
BgL_mincolz00_1772 = BgL_arg1404z00_1795; 
BgL_paddingz00_1773 = BgL_arg1405z00_1796; 
BgL_zc3z04anonymousza31389ze3z87_1774:
{ /* Ieee/output.scm 469 */
 bool_t BgL_test3066z00_5399;
{ /* Ieee/output.scm 469 */
 long BgL_n1z00_2860;
{ /* Ieee/output.scm 469 */
 obj_t BgL_tmpz00_5400;
if(
INTEGERP(BgL_iz00_1770))
{ /* Ieee/output.scm 469 */
BgL_tmpz00_5400 = BgL_iz00_1770
; }  else 
{ 
 obj_t BgL_auxz00_5403;
BgL_auxz00_5403 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(17250L), BGl_string2626z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1770); 
FAILURE(BgL_auxz00_5403,BFALSE,BFALSE);} 
BgL_n1z00_2860 = 
(long)CINT(BgL_tmpz00_5400); } 
BgL_test3066z00_5399 = 
(BgL_n1z00_2860==BgL_lenz00_1700); } 
if(BgL_test3066z00_5399)
{ /* Ieee/output.scm 469 */
BgL_niz00_1849 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2625z00zz__r4_output_6_10_3z00, BgL__fmtz00_31); }  else 
{ /* Ieee/output.scm 471 */
 obj_t BgL_sz00_1776;
{ /* Ieee/output.scm 471 */
 unsigned char BgL_aux1046z00_1782;
{ /* Ieee/output.scm 471 */
 long BgL_kz00_2863;
{ /* Ieee/output.scm 471 */
 obj_t BgL_tmpz00_5410;
if(
INTEGERP(BgL_iz00_1770))
{ /* Ieee/output.scm 471 */
BgL_tmpz00_5410 = BgL_iz00_1770
; }  else 
{ 
 obj_t BgL_auxz00_5413;
BgL_auxz00_5413 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(17330L), BGl_string2626z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1770); 
FAILURE(BgL_auxz00_5413,BFALSE,BFALSE);} 
BgL_kz00_2863 = 
(long)CINT(BgL_tmpz00_5410); } 
{ /* Ieee/output.scm 471 */
 long BgL_l2229z00_3935;
BgL_l2229z00_3935 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_kz00_2863, BgL_l2229z00_3935))
{ /* Ieee/output.scm 471 */
BgL_aux1046z00_1782 = 
STRING_REF(BgL__fmtz00_31, BgL_kz00_2863); }  else 
{ 
 obj_t BgL_auxz00_5422;
BgL_auxz00_5422 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(17313L), BGl_string2624z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2229z00_3935), 
(int)(BgL_kz00_2863)); 
FAILURE(BgL_auxz00_5422,BFALSE,BFALSE);} } } 
switch( BgL_aux1046z00_1782) { case ((unsigned char)'d') : 
case ((unsigned char)'D') : 

BgL_sz00_1776 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_numz00_1771, 
BINT(10L)); break;case ((unsigned char)'x') : 
case ((unsigned char)'X') : 

BgL_sz00_1776 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_numz00_1771, 
BINT(16L)); break;case ((unsigned char)'o') : 
case ((unsigned char)'O') : 

BgL_sz00_1776 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_numz00_1771, 
BINT(8L)); break;case ((unsigned char)'b') : 
case ((unsigned char)'B') : 

BgL_sz00_1776 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_numz00_1771, 
BINT(2L)); break;
default: 
BgL_sz00_1776 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2625z00zz__r4_output_6_10_3z00, BgL__fmtz00_31); } } 
{ /* Ieee/output.scm 471 */
 long BgL_lz00_1777;
{ /* Ieee/output.scm 482 */
 obj_t BgL_stringz00_2864;
if(
STRINGP(BgL_sz00_1776))
{ /* Ieee/output.scm 482 */
BgL_stringz00_2864 = BgL_sz00_1776; }  else 
{ 
 obj_t BgL_auxz00_5440;
BgL_auxz00_5440 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(17617L), BGl_string2626z00zz__r4_output_6_10_3z00, BGl_string2627z00zz__r4_output_6_10_3z00, BgL_sz00_1776); 
FAILURE(BgL_auxz00_5440,BFALSE,BFALSE);} 
BgL_lz00_1777 = 
STRING_LENGTH(BgL_stringz00_2864); } 
{ /* Ieee/output.scm 482 */

if(
(BgL_lz00_1777<BgL_mincolz00_1772))
{ /* Ieee/output.scm 483 */
bgl_display_obj(
make_string(
(BgL_mincolz00_1772-BgL_lz00_1777), BgL_paddingz00_1773), BgL_pz00_30); }  else 
{ /* Ieee/output.scm 483 */BFALSE; } 
bgl_display_obj(BgL_sz00_1776, BgL_pz00_30); 
{ 
 obj_t BgL_tmpz00_5451;
if(
INTEGERP(BgL_iz00_1770))
{ /* Ieee/output.scm 486 */
BgL_tmpz00_5451 = BgL_iz00_1770
; }  else 
{ 
 obj_t BgL_auxz00_5454;
BgL_auxz00_5454 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(17750L), BGl_string2626z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1770); 
FAILURE(BgL_auxz00_5454,BFALSE,BFALSE);} 
BgL_niz00_1849 = 
ADDFX(BgL_tmpz00_5451, 
BINT(1L)); } } } } } } }  else 
{ /* Ieee/output.scm 505 */
 long BgL_arg1410z00_1800;
{ /* Ieee/output.scm 505 */
 obj_t BgL_arg1411z00_1801;
{ /* Ieee/output.scm 505 */
 long BgL_auxz00_5461;
{ /* Ieee/output.scm 505 */
 obj_t BgL_tmpz00_5462;
if(
INTEGERP(BgL_jz00_1789))
{ /* Ieee/output.scm 505 */
BgL_tmpz00_5462 = BgL_jz00_1789
; }  else 
{ 
 obj_t BgL_auxz00_5465;
BgL_auxz00_5465 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(18330L), BGl_string2623z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_jz00_1789); 
FAILURE(BgL_auxz00_5465,BFALSE,BFALSE);} 
BgL_auxz00_5461 = 
(long)CINT(BgL_tmpz00_5462); } 
BgL_arg1411z00_1801 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL__fmtz00_31, BgL_iz00_1784, BgL_auxz00_5461); } 
{ /* Ieee/output.scm 505 */
 char * BgL_tmpz00_5471;
BgL_tmpz00_5471 = 
BSTRING_TO_STRING(BgL_arg1411z00_1801); 
BgL_arg1410z00_1800 = 
BGL_STRTOL(BgL_tmpz00_5471, 0L, 10L); } } 
{ 
 unsigned char BgL_paddingz00_5477; long BgL_mincolz00_5476; obj_t BgL_numz00_5475; obj_t BgL_iz00_5474;
BgL_iz00_5474 = BgL_jz00_1789; 
BgL_numz00_5475 = BgL_numz00_1785; 
BgL_mincolz00_5476 = BgL_arg1410z00_1800; 
BgL_paddingz00_5477 = ((unsigned char)' '); 
BgL_paddingz00_1773 = BgL_paddingz00_5477; 
BgL_mincolz00_1772 = BgL_mincolz00_5476; 
BgL_numz00_1771 = BgL_numz00_5475; 
BgL_iz00_1770 = BgL_iz00_5474; 
goto BgL_zc3z04anonymousza31389ze3z87_1774;} } }  else 
{ /* Ieee/output.scm 493 */
BgL_niz00_1849 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2625z00zz__r4_output_6_10_3z00, BgL__fmtz00_31); } }  else 
{ /* Ieee/output.scm 489 */
BgL_niz00_1849 = 
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2620z00zz__r4_output_6_10_3z00, BgL_numz00_1785); } } 
{ /* Ieee/output.scm 563 */
 obj_t BgL_arg1457z00_1850;
{ /* Ieee/output.scm 563 */
 obj_t BgL_pairz00_2885;
if(
PAIRP(BgL_osz00_1703))
{ /* Ieee/output.scm 563 */
BgL_pairz00_2885 = BgL_osz00_1703; }  else 
{ 
 obj_t BgL_auxz00_5482;
BgL_auxz00_5482 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(19776L), BGl_string2615z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_osz00_1703); 
FAILURE(BgL_auxz00_5482,BFALSE,BFALSE);} 
BgL_arg1457z00_1850 = 
CDR(BgL_pairz00_2885); } 
{ 
 obj_t BgL_osz00_5488; obj_t BgL_iz00_5487;
BgL_iz00_5487 = BgL_niz00_1849; 
BgL_osz00_5488 = BgL_arg1457z00_1850; 
BgL_osz00_1703 = BgL_osz00_5488; 
BgL_iz00_1702 = BgL_iz00_5487; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } }  else 
{ /* Ieee/output.scm 566 */
 obj_t BgL_arg1459z00_1852;
{ /* Ieee/output.scm 566 */
 obj_t BgL_arg1460z00_1853;
{ /* Ieee/output.scm 566 */
 obj_t BgL_list1461z00_1854;
BgL_list1461z00_1854 = 
MAKE_YOUNG_PAIR(
BCHAR(BgL_fz00_1803), BNIL); 
BgL_arg1460z00_1853 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_list1461z00_1854); } 
BgL_arg1459z00_1852 = 
string_append_3(BGl_string2616z00zz__r4_output_6_10_3z00, BgL_arg1460z00_1853, BGl_string2617z00zz__r4_output_6_10_3z00); } 
return 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BgL_arg1459z00_1852, BgL__fmtz00_31);} } } } }  else 
{ /* Ieee/output.scm 585 */
 unsigned char BgL_arg1362z00_1728; long BgL_arg1363z00_1729;
{ /* Ieee/output.scm 585 */
 long BgL_i2244z00_3950;
{ /* Ieee/output.scm 585 */
 long BgL_za71za7_2971;
{ /* Ieee/output.scm 585 */
 obj_t BgL_tmpz00_5495;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 585 */
BgL_tmpz00_5495 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_5498;
BgL_auxz00_5498 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20378L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_5498,BFALSE,BFALSE);} 
BgL_za71za7_2971 = 
(long)CINT(BgL_tmpz00_5495); } 
BgL_i2244z00_3950 = 
(BgL_za71za7_2971+1L); } 
{ /* Ieee/output.scm 585 */
 long BgL_l2245z00_3951;
BgL_l2245z00_3951 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_i2244z00_3950, BgL_l2245z00_3951))
{ /* Ieee/output.scm 585 */
BgL_arg1362z00_1728 = 
STRING_REF(BgL__fmtz00_31, BgL_i2244z00_3950); }  else 
{ 
 obj_t BgL_auxz00_5508;
BgL_auxz00_5508 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20356L), BGl_string2624z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2245z00_3951), 
(int)(BgL_i2244z00_3950)); 
FAILURE(BgL_auxz00_5508,BFALSE,BFALSE);} } } 
{ /* Ieee/output.scm 586 */
 long BgL_za71za7_2974;
{ /* Ieee/output.scm 586 */
 obj_t BgL_tmpz00_5514;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 586 */
BgL_tmpz00_5514 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_5517;
BgL_auxz00_5517 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20395L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_5517,BFALSE,BFALSE);} 
BgL_za71za7_2974 = 
(long)CINT(BgL_tmpz00_5514); } 
BgL_arg1363z00_1729 = 
(BgL_za71za7_2974+1L); } 
{ 
 bool_t BgL_altzf3zf3_5525; long BgL_iz00_5524; unsigned char BgL_fz00_5523;
BgL_fz00_5523 = BgL_arg1362z00_1728; 
BgL_iz00_5524 = BgL_arg1363z00_1729; 
BgL_altzf3zf3_5525 = ((bool_t)0); 
BgL_altzf3zf3_1805 = BgL_altzf3zf3_5525; 
BgL_iz00_1804 = BgL_iz00_5524; 
BgL_fz00_1803 = BgL_fz00_5523; 
goto BgL_zc3z04anonymousza31413ze3z87_1806;} } } }  else 
{ /* Ieee/output.scm 570 */
bgl_display_char(BgL_cz00_1713, BgL_pz00_30); 
{ /* Ieee/output.scm 590 */
 long BgL_arg1368z00_1734;
{ /* Ieee/output.scm 590 */
 long BgL_za71za7_2977;
{ /* Ieee/output.scm 590 */
 obj_t BgL_tmpz00_5527;
if(
INTEGERP(BgL_iz00_1702))
{ /* Ieee/output.scm 590 */
BgL_tmpz00_5527 = BgL_iz00_1702
; }  else 
{ 
 obj_t BgL_auxz00_5530;
BgL_auxz00_5530 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20471L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_iz00_1702); 
FAILURE(BgL_auxz00_5530,BFALSE,BFALSE);} 
BgL_za71za7_2977 = 
(long)CINT(BgL_tmpz00_5527); } 
BgL_arg1368z00_1734 = 
(BgL_za71za7_2977+1L); } 
{ 
 obj_t BgL_iz00_5536;
BgL_iz00_5536 = 
BINT(BgL_arg1368z00_1734); 
BgL_iz00_1702 = BgL_iz00_5536; 
goto BgL_zc3z04anonymousza31343ze3z87_1704;} } } }  else 
{ /* Ieee/output.scm 568 */
return BFALSE;} } } } } } 

}



/* print-flat-list~0 */
obj_t BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00(obj_t BgL_lz00_1744, obj_t BgL_pz00_1745, obj_t BgL_sepz00_1746)
{
{ /* Ieee/output.scm 458 */
BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00:
if(
PAIRP(BgL_lz00_1744))
{ 
 obj_t BgL_lz00_1750;
BgL_lz00_1750 = BgL_lz00_1744; 
BgL_zc3z04anonymousza31376ze3z87_1751:
{ /* Ieee/output.scm 449 */
 obj_t BgL_arg1377z00_1752;
{ /* Ieee/output.scm 449 */
 obj_t BgL_pairz00_2851;
if(
PAIRP(BgL_lz00_1750))
{ /* Ieee/output.scm 449 */
BgL_pairz00_2851 = BgL_lz00_1750; }  else 
{ 
 obj_t BgL_auxz00_5543;
BgL_auxz00_5543 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16699L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1750); 
FAILURE(BgL_auxz00_5543,BFALSE,BFALSE);} 
BgL_arg1377z00_1752 = 
CAR(BgL_pairz00_2851); } 
BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00(BgL_arg1377z00_1752, BgL_pz00_1745, BgL_sepz00_1746); } 
{ /* Ieee/output.scm 451 */
 bool_t BgL_test3081z00_5549;
{ /* Ieee/output.scm 451 */
 obj_t BgL_tmpz00_5550;
{ /* Ieee/output.scm 451 */
 obj_t BgL_pairz00_2852;
if(
PAIRP(BgL_lz00_1750))
{ /* Ieee/output.scm 451 */
BgL_pairz00_2852 = BgL_lz00_1750; }  else 
{ 
 obj_t BgL_auxz00_5553;
BgL_auxz00_5553 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16741L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1750); 
FAILURE(BgL_auxz00_5553,BFALSE,BFALSE);} 
BgL_tmpz00_5550 = 
CDR(BgL_pairz00_2852); } 
BgL_test3081z00_5549 = 
PAIRP(BgL_tmpz00_5550); } 
if(BgL_test3081z00_5549)
{ /* Ieee/output.scm 451 */
bgl_display_obj(BgL_sepz00_1746, BgL_pz00_1745); 
{ /* Ieee/output.scm 453 */
 obj_t BgL_arg1380z00_1755;
{ /* Ieee/output.scm 453 */
 obj_t BgL_pairz00_2853;
if(
PAIRP(BgL_lz00_1750))
{ /* Ieee/output.scm 453 */
BgL_pairz00_2853 = BgL_lz00_1750; }  else 
{ 
 obj_t BgL_auxz00_5562;
BgL_auxz00_5562 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16790L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1750); 
FAILURE(BgL_auxz00_5562,BFALSE,BFALSE);} 
BgL_arg1380z00_1755 = 
CDR(BgL_pairz00_2853); } 
{ 
 obj_t BgL_lz00_5567;
BgL_lz00_5567 = BgL_arg1380z00_1755; 
BgL_lz00_1750 = BgL_lz00_5567; 
goto BgL_zc3z04anonymousza31376ze3z87_1751;} } }  else 
{ /* Ieee/output.scm 454 */
 bool_t BgL_test3084z00_5568;
{ /* Ieee/output.scm 454 */
 obj_t BgL_tmpz00_5569;
{ /* Ieee/output.scm 454 */
 obj_t BgL_pairz00_2854;
if(
PAIRP(BgL_lz00_1750))
{ /* Ieee/output.scm 454 */
BgL_pairz00_2854 = BgL_lz00_1750; }  else 
{ 
 obj_t BgL_auxz00_5572;
BgL_auxz00_5572 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16821L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1750); 
FAILURE(BgL_auxz00_5572,BFALSE,BFALSE);} 
BgL_tmpz00_5569 = 
CDR(BgL_pairz00_2854); } 
BgL_test3084z00_5568 = 
NULLP(BgL_tmpz00_5569); } 
if(BgL_test3084z00_5568)
{ /* Ieee/output.scm 454 */
return BFALSE;}  else 
{ /* Ieee/output.scm 454 */
bgl_display_string(BGl_string2630z00zz__r4_output_6_10_3z00, BgL_pz00_1745); 
{ /* Ieee/output.scm 456 */
 obj_t BgL_arg1383z00_1758;
{ /* Ieee/output.scm 456 */
 obj_t BgL_pairz00_2857;
if(
PAIRP(BgL_lz00_1750))
{ /* Ieee/output.scm 456 */
BgL_pairz00_2857 = BgL_lz00_1750; }  else 
{ 
 obj_t BgL_auxz00_5581;
BgL_auxz00_5581 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(16884L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_1750); 
FAILURE(BgL_auxz00_5581,BFALSE,BFALSE);} 
BgL_arg1383z00_1758 = 
CDR(BgL_pairz00_2857); } 
{ 
 obj_t BgL_lz00_5586;
BgL_lz00_5586 = BgL_arg1383z00_1758; 
BgL_lz00_1744 = BgL_lz00_5586; 
goto BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00;} } } } } }  else 
{ /* Ieee/output.scm 447 */
if(
NULLP(BgL_lz00_1744))
{ /* Ieee/output.scm 457 */
return BFALSE;}  else 
{ /* Ieee/output.scm 457 */
return 
bgl_display_obj(BgL_lz00_1744, BgL_pz00_1745);} } } 

}



/* format */
BGL_EXPORTED_DEF obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t BgL_fmtz00_33, obj_t BgL_objz00_34)
{
{ /* Ieee/output.scm 595 */
{ /* Ieee/output.scm 596 */
 obj_t BgL_pz00_2978;
{ /* Ieee/output.scm 596 */

{ /* Ieee/output.scm 596 */

BgL_pz00_2978 = 
BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(BTRUE); } } 
{ /* Ieee/output.scm 597 */
 obj_t BgL_auxz00_5591;
{ /* Ieee/output.scm 597 */
 bool_t BgL_test3088z00_5592;
if(
PAIRP(BgL_objz00_34))
{ /* Ieee/output.scm 597 */
BgL_test3088z00_5592 = ((bool_t)1)
; }  else 
{ /* Ieee/output.scm 597 */
BgL_test3088z00_5592 = 
NULLP(BgL_objz00_34)
; } 
if(BgL_test3088z00_5592)
{ /* Ieee/output.scm 597 */
BgL_auxz00_5591 = BgL_objz00_34
; }  else 
{ 
 obj_t BgL_auxz00_5596;
BgL_auxz00_5596 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20806L), BGl_string2631z00zz__r4_output_6_10_3z00, BGl_string2632z00zz__r4_output_6_10_3z00, BgL_objz00_34); 
FAILURE(BgL_auxz00_5596,BFALSE,BFALSE);} } 
BGl_xprintfz00zz__r4_output_6_10_3z00(BGl_string2631z00zz__r4_output_6_10_3z00, BgL_pz00_2978, BgL_fmtz00_33, BgL_auxz00_5591); } 
{ /* Ieee/output.scm 598 */
 obj_t BgL_aux2431z00_4137;
BgL_aux2431z00_4137 = 
bgl_close_output_port(BgL_pz00_2978); 
if(
STRINGP(BgL_aux2431z00_4137))
{ /* Ieee/output.scm 598 */
return BgL_aux2431z00_4137;}  else 
{ 
 obj_t BgL_auxz00_5604;
BgL_auxz00_5604 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20817L), BGl_string2631z00zz__r4_output_6_10_3z00, BGl_string2627z00zz__r4_output_6_10_3z00, BgL_aux2431z00_4137); 
FAILURE(BgL_auxz00_5604,BFALSE,BFALSE);} } } } 

}



/* &format */
obj_t BGl_z62formatz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3877, obj_t BgL_fmtz00_3878, obj_t BgL_objz00_3879)
{
{ /* Ieee/output.scm 595 */
{ /* Ieee/output.scm 596 */
 obj_t BgL_auxz00_5608;
if(
STRINGP(BgL_fmtz00_3878))
{ /* Ieee/output.scm 596 */
BgL_auxz00_5608 = BgL_fmtz00_3878
; }  else 
{ 
 obj_t BgL_auxz00_5611;
BgL_auxz00_5611 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(20744L), BGl_string2633z00zz__r4_output_6_10_3z00, BGl_string2627z00zz__r4_output_6_10_3z00, BgL_fmtz00_3878); 
FAILURE(BgL_auxz00_5611,BFALSE,BFALSE);} 
return 
BGl_formatz00zz__r4_output_6_10_3z00(BgL_auxz00_5608, BgL_objz00_3879);} } 

}



/* printf */
BGL_EXPORTED_DEF obj_t BGl_printfz00zz__r4_output_6_10_3z00(obj_t BgL_fmtz00_35, obj_t BgL_objz00_36)
{
{ /* Ieee/output.scm 603 */
{ /* Ieee/output.scm 604 */
 obj_t BgL_arg1462z00_2981;
{ /* Ieee/output.scm 604 */
 obj_t BgL_tmpz00_5616;
BgL_tmpz00_5616 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1462z00_2981 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_5616); } 
{ /* Ieee/output.scm 604 */
 obj_t BgL_auxz00_5619;
{ /* Ieee/output.scm 604 */
 bool_t BgL_test3092z00_5620;
if(
PAIRP(BgL_objz00_36))
{ /* Ieee/output.scm 604 */
BgL_test3092z00_5620 = ((bool_t)1)
; }  else 
{ /* Ieee/output.scm 604 */
BgL_test3092z00_5620 = 
NULLP(BgL_objz00_36)
; } 
if(BgL_test3092z00_5620)
{ /* Ieee/output.scm 604 */
BgL_auxz00_5619 = BgL_objz00_36
; }  else 
{ 
 obj_t BgL_auxz00_5624;
BgL_auxz00_5624 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(21138L), BGl_string2634z00zz__r4_output_6_10_3z00, BGl_string2632z00zz__r4_output_6_10_3z00, BgL_objz00_36); 
FAILURE(BgL_auxz00_5624,BFALSE,BFALSE);} } 
return 
BGl_xprintfz00zz__r4_output_6_10_3z00(BGl_string2634z00zz__r4_output_6_10_3z00, BgL_arg1462z00_2981, BgL_fmtz00_35, BgL_auxz00_5619);} } } 

}



/* &printf */
obj_t BGl_z62printfz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3880, obj_t BgL_fmtz00_3881, obj_t BgL_objz00_3882)
{
{ /* Ieee/output.scm 603 */
{ /* Ieee/output.scm 604 */
 obj_t BgL_auxz00_5629;
if(
STRINGP(BgL_fmtz00_3881))
{ /* Ieee/output.scm 604 */
BgL_auxz00_5629 = BgL_fmtz00_3881
; }  else 
{ 
 obj_t BgL_auxz00_5632;
BgL_auxz00_5632 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(21112L), BGl_string2635z00zz__r4_output_6_10_3z00, BGl_string2627z00zz__r4_output_6_10_3z00, BgL_fmtz00_3881); 
FAILURE(BgL_auxz00_5632,BFALSE,BFALSE);} 
return 
BGl_printfz00zz__r4_output_6_10_3z00(BgL_auxz00_5629, BgL_objz00_3882);} } 

}



/* fprintf */
BGL_EXPORTED_DEF obj_t BGl_fprintfz00zz__r4_output_6_10_3z00(obj_t BgL_portz00_37, obj_t BgL_fmtz00_38, obj_t BgL_objz00_39)
{
{ /* Ieee/output.scm 609 */
{ /* Ieee/output.scm 610 */
 obj_t BgL_auxz00_5637;
{ /* Ieee/output.scm 610 */
 bool_t BgL_test3095z00_5638;
if(
PAIRP(BgL_objz00_39))
{ /* Ieee/output.scm 610 */
BgL_test3095z00_5638 = ((bool_t)1)
; }  else 
{ /* Ieee/output.scm 610 */
BgL_test3095z00_5638 = 
NULLP(BgL_objz00_39)
; } 
if(BgL_test3095z00_5638)
{ /* Ieee/output.scm 610 */
BgL_auxz00_5637 = BgL_objz00_39
; }  else 
{ 
 obj_t BgL_auxz00_5642;
BgL_auxz00_5642 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(21431L), BGl_string2636z00zz__r4_output_6_10_3z00, BGl_string2632z00zz__r4_output_6_10_3z00, BgL_objz00_39); 
FAILURE(BgL_auxz00_5642,BFALSE,BFALSE);} } 
return 
BGl_xprintfz00zz__r4_output_6_10_3z00(BGl_string2636z00zz__r4_output_6_10_3z00, BgL_portz00_37, BgL_fmtz00_38, BgL_auxz00_5637);} } 

}



/* &fprintf */
obj_t BGl_z62fprintfz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3883, obj_t BgL_portz00_3884, obj_t BgL_fmtz00_3885, obj_t BgL_objz00_3886)
{
{ /* Ieee/output.scm 609 */
{ /* Ieee/output.scm 610 */
 obj_t BgL_auxz00_5654; obj_t BgL_auxz00_5647;
if(
STRINGP(BgL_fmtz00_3885))
{ /* Ieee/output.scm 610 */
BgL_auxz00_5654 = BgL_fmtz00_3885
; }  else 
{ 
 obj_t BgL_auxz00_5657;
BgL_auxz00_5657 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(21403L), BGl_string2637z00zz__r4_output_6_10_3z00, BGl_string2627z00zz__r4_output_6_10_3z00, BgL_fmtz00_3885); 
FAILURE(BgL_auxz00_5657,BFALSE,BFALSE);} 
if(
OUTPUT_PORTP(BgL_portz00_3884))
{ /* Ieee/output.scm 610 */
BgL_auxz00_5647 = BgL_portz00_3884
; }  else 
{ 
 obj_t BgL_auxz00_5650;
BgL_auxz00_5650 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(21403L), BGl_string2637z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3884); 
FAILURE(BgL_auxz00_5650,BFALSE,BFALSE);} 
return 
BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_auxz00_5647, BgL_auxz00_5654, BgL_objz00_3886);} } 

}



/* display-2 */
BGL_EXPORTED_DEF obj_t bgl_display_obj(obj_t BgL_objz00_40, obj_t BgL_portz00_41)
{
{ /* Ieee/output.scm 769 */
bgl_display_obj:
if(
STRINGP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_display_string(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
SYMBOLP(BgL_objz00_40))
{ /* Ieee/output.scm 782 */
 obj_t BgL_arg1599z00_2987;
BgL_arg1599z00_2987 = 
SYMBOL_TO_STRING(BgL_objz00_40); 
return 
bgl_display_string(BgL_arg1599z00_2987, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
INTEGERP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_display_fixnum(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
CHARP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 unsigned char BgL_tmpz00_5674;
BgL_tmpz00_5674 = 
CCHAR(BgL_objz00_40); 
return 
bgl_display_char(BgL_tmpz00_5674, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
PAIRP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
BGl_displayzd2pairzd2zz__r4_output_6_10_3z00(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
NULLP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_display_string(BGl_string2638z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
(BgL_objz00_40==BFALSE))
{ /* Ieee/output.scm 770 */
return 
bgl_display_string(BGl_string2639z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
(BgL_objz00_40==BTRUE))
{ /* Ieee/output.scm 770 */
return 
bgl_display_string(BGl_string2640z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
(BgL_objz00_40==BUNSPEC))
{ /* Ieee/output.scm 770 */
return 
bgl_display_string(BGl_string2641z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
ELONGP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_display_elong(
BELONG_TO_LONG(BgL_objz00_40), BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
REALP(BgL_objz00_40))
{ /* Ieee/output.scm 893 */
 obj_t BgL_arg1643z00_3001;
BgL_arg1643z00_3001 = 
bgl_real_to_string(
REAL_TO_DOUBLE(BgL_objz00_40)); 
return 
bgl_display_string(BgL_arg1643z00_3001, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
KEYWORDP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
bgl_display_char(((unsigned char)':'), BgL_portz00_41); 
{ /* Ieee/output.scm 875 */
 obj_t BgL_arg1642z00_3004;
BgL_arg1642z00_3004 = 
KEYWORD_TO_STRING(BgL_objz00_40); 
return 
bgl_display_string(BgL_arg1642z00_3004, BgL_portz00_41);} }  else 
{ /* Ieee/output.scm 770 */
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
bgl_display_string(BGl_string2642z00zz__r4_output_6_10_3z00, BgL_portz00_41); 
{ /* Ieee/output.scm 945 */
 obj_t BgL_arg1653z00_3008;
{ /* Ieee/output.scm 945 */
 obj_t BgL_auxz00_5709;
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_40))
{ /* Ieee/output.scm 945 */
BgL_auxz00_5709 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5712;
BgL_auxz00_5712 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(34148L), BGl_string2643z00zz__r4_output_6_10_3z00, BGl_string2644z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5712,BFALSE,BFALSE);} 
BgL_arg1653z00_3008 = 
BGl_classzd2namezd2zz__objectz00(BgL_auxz00_5709); } 
{ /* Ieee/output.scm 782 */
 obj_t BgL_arg1599z00_3013;
BgL_arg1599z00_3013 = 
SYMBOL_TO_STRING(BgL_arg1653z00_3008); 
bgl_display_string(BgL_arg1599z00_3013, BgL_portz00_41); } } 
return 
bgl_display_string(BGl_string2645z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
VECTORP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
BGl_writezf2displayzd2vectorz20zz__r4_output_6_10_3z00(BgL_objz00_40, BgL_portz00_41, BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00);}  else 
{ /* Ieee/output.scm 770 */
if(
LLONGP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_display_llong(
BLLONG_TO_LLONG(BgL_objz00_40), BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
UCS2_STRINGP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_display_ucs2string(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
STRUCTP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00(BgL_objz00_40, BgL_portz00_41, BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_OBJECTP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 obj_t BgL_list1478z00_1881;
BgL_list1478z00_1881 = 
MAKE_YOUNG_PAIR(BgL_portz00_41, BNIL); 
return 
BGl_objectzd2displayzd2zz__objectz00(
((BgL_objectz00_bglt)BgL_objz00_40), BgL_list1478z00_1881);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_DATEP(BgL_objz00_40))
{ /* Ieee/output.scm 842 */
 obj_t BgL_tmpz00_5740;
BgL_tmpz00_5740 = 
BGl_datezd2ze3stringz31zz__datez00(BgL_objz00_40); 
return 
bgl_display_string(BgL_tmpz00_5740, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_MUTEXP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
BGL_TAIL return 
BGl_writezd2mutexzd2zz__r4_output_6_10_3z00(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_CONDVARP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
bgl_display_string(BGl_string2646z00zz__r4_output_6_10_3z00, BgL_portz00_41); 
{ /* Ieee/output.scm 937 */
 obj_t BgL_arg1652z00_3024;
{ /* Ieee/output.scm 937 */
 obj_t BgL_objz00_3027;
if(
BGL_CONDVARP(BgL_objz00_40))
{ /* Ieee/output.scm 937 */
BgL_objz00_3027 = BgL_objz00_40; }  else 
{ 
 obj_t BgL_auxz00_5751;
BgL_auxz00_5751 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(33785L), BGl_string2643z00zz__r4_output_6_10_3z00, BGl_string2647z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5751,BFALSE,BFALSE);} 
BgL_arg1652z00_3024 = 
BGL_CONDVAR_NAME(BgL_objz00_3027); } 
bgl_display_obj(BgL_arg1652z00_3024, BgL_portz00_41); } 
return 
bgl_display_string(BGl_string2645z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
UCS2P(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_display_ucs2(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
CELLP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
bgl_display_string(BGl_string2648z00zz__r4_output_6_10_3z00, BgL_portz00_41); 
bgl_display_obj(
CELL_REF(BgL_objz00_40), BgL_portz00_41); 
return 
bgl_display_string(BGl_string2645z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
EOF_OBJECTP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_display_string(BGl_string2649z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
(BgL_objz00_40==(BOPTIONAL)))
{ /* Ieee/output.scm 770 */
return 
bgl_display_string(BGl_string2650z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
(BgL_objz00_40==(BREST)))
{ /* Ieee/output.scm 770 */
return 
bgl_display_string(BGl_string2651z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
(BgL_objz00_40==(BKEY)))
{ /* Ieee/output.scm 770 */
return 
bgl_display_string(BGl_string2652z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
PROCEDUREP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_write_procedure(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
OUTPUT_PORTP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
if(
BGL_OUTPUT_STRING_PORTP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_display_string(BGl_string2653z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_OUTPUT_PROCEDURE_PORTP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_display_string(BGl_string2654z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
return 
bgl_write_output_port(BgL_objz00_40, BgL_portz00_41);} } }  else 
{ /* Ieee/output.scm 770 */
if(
INPUT_PORTP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_write_input_port(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BIGNUMP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_display_bignum(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_HVECTORP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
BGl_writezf2displayzd2hvectorz20zz__r4_output_6_10_3z00(BgL_objz00_40, BgL_portz00_41, BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00);}  else 
{ /* Ieee/output.scm 770 */
if(
TVECTORP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00(BgL_objz00_40, BgL_portz00_41, BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_WEAKPTRP(BgL_objz00_40))
{ /* Ieee/output.scm 1061 */
 obj_t BgL_dataz00_3048;
BgL_dataz00_3048 = 
bgl_weakptr_data(BgL_objz00_40); 
bgl_display_string(BGl_string2655z00zz__r4_output_6_10_3z00, BgL_portz00_41); 
bgl_display_obj(BgL_dataz00_3048, BgL_portz00_41); 
return 
bgl_display_char(((unsigned char)'>'), BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
FOREIGNP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_write_foreign(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
PROCESSP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 obj_t BgL_tmpz00_5814;
if(
PROCESSP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
BgL_tmpz00_5814 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5817;
BgL_auxz00_5817 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(26986L), BGl_string2643z00zz__r4_output_6_10_3z00, BGl_string2656z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5817,BFALSE,BFALSE);} 
return 
bgl_write_process(BgL_tmpz00_5814, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
SOCKETP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 obj_t BgL_tmpz00_5824;
if(
SOCKETP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
BgL_tmpz00_5824 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5827;
BgL_auxz00_5827 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(26986L), BGl_string2643z00zz__r4_output_6_10_3z00, BGl_string2657z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5827,BFALSE,BFALSE);} 
return 
bgl_write_socket(BgL_tmpz00_5824, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_DATAGRAM_SOCKETP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 obj_t BgL_tmpz00_5834;
if(
BGL_DATAGRAM_SOCKETP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
BgL_tmpz00_5834 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5837;
BgL_auxz00_5837 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(26986L), BGl_string2643z00zz__r4_output_6_10_3z00, BGl_string2658z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5837,BFALSE,BFALSE);} 
return 
bgl_write_datagram_socket(BgL_tmpz00_5834, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_REGEXPP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 obj_t BgL_tmpz00_5844;
if(
BGL_REGEXPP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
BgL_tmpz00_5844 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5847;
BgL_auxz00_5847 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(26986L), BGl_string2643z00zz__r4_output_6_10_3z00, BGl_string2659z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5847,BFALSE,BFALSE);} 
return 
bgl_write_regexp(BgL_tmpz00_5844, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_MMAPP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 obj_t BgL_tmpz00_5854;
if(
BGL_MMAPP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
BgL_tmpz00_5854 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5857;
BgL_auxz00_5857 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(26986L), BGl_string2643z00zz__r4_output_6_10_3z00, BGl_string2660z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5857,BFALSE,BFALSE);} 
return 
bgl_write_mmap(BgL_tmpz00_5854, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_SEMAPHOREP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 obj_t BgL_tmpz00_5864;
if(
BGL_SEMAPHOREP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
BgL_tmpz00_5864 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5867;
BgL_auxz00_5867 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(26986L), BGl_string2643z00zz__r4_output_6_10_3z00, BGl_string2661z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5867,BFALSE,BFALSE);} 
return 
bgl_write_semaphore(BgL_tmpz00_5864, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
OPAQUEP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
BGL_TAIL return 
bgl_write_opaque(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
CUSTOMP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
BGL_TAIL return 
bgl_write_custom(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BINARY_PORTP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_write_binary_port(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_DYNAMIC_ENVP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
return 
bgl_write_dynamic_env(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
if(
BGL_INT8P(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 long BgL_arg1506z00_1909;
{ /* Ieee/output.scm 770 */
 int8_t BgL_xz00_3050;
BgL_xz00_3050 = 
BGL_BINT8_TO_INT8(BgL_objz00_40); 
{ /* Ieee/output.scm 770 */
 long BgL_arg1996z00_3051;
BgL_arg1996z00_3051 = 
(long)(BgL_xz00_3050); 
BgL_arg1506z00_1909 = 
(long)(BgL_arg1996z00_3051); } } 
{ 
 obj_t BgL_objz00_5889;
BgL_objz00_5889 = 
BINT(BgL_arg1506z00_1909); 
BgL_objz00_40 = BgL_objz00_5889; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 770 */
if(
BGL_UINT8P(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 long BgL_arg1508z00_1911;
{ /* Ieee/output.scm 770 */
 uint8_t BgL_xz00_3053;
BgL_xz00_3053 = 
BGL_BUINT8_TO_UINT8(BgL_objz00_40); 
{ /* Ieee/output.scm 770 */
 long BgL_arg1995z00_3054;
BgL_arg1995z00_3054 = 
(long)(BgL_xz00_3053); 
BgL_arg1508z00_1911 = 
(long)(BgL_arg1995z00_3054); } } 
{ 
 obj_t BgL_objz00_5896;
BgL_objz00_5896 = 
BINT(BgL_arg1508z00_1911); 
BgL_objz00_40 = BgL_objz00_5896; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 770 */
if(
BGL_INT16P(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 long BgL_arg1510z00_1913;
{ /* Ieee/output.scm 770 */
 int16_t BgL_xz00_3056;
BgL_xz00_3056 = 
BGL_BINT16_TO_INT16(BgL_objz00_40); 
{ /* Ieee/output.scm 770 */
 long BgL_arg1994z00_3057;
BgL_arg1994z00_3057 = 
(long)(BgL_xz00_3056); 
BgL_arg1510z00_1913 = 
(long)(BgL_arg1994z00_3057); } } 
{ 
 obj_t BgL_objz00_5903;
BgL_objz00_5903 = 
BINT(BgL_arg1510z00_1913); 
BgL_objz00_40 = BgL_objz00_5903; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 770 */
if(
BGL_UINT16P(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 long BgL_arg1512z00_1915;
{ /* Ieee/output.scm 770 */
 uint16_t BgL_xz00_3059;
BgL_xz00_3059 = 
BGL_BUINT16_TO_UINT16(BgL_objz00_40); 
{ /* Ieee/output.scm 770 */
 long BgL_arg1993z00_3060;
BgL_arg1993z00_3060 = 
(long)(BgL_xz00_3059); 
BgL_arg1512z00_1915 = 
(long)(BgL_arg1993z00_3060); } } 
{ 
 obj_t BgL_objz00_5910;
BgL_objz00_5910 = 
BINT(BgL_arg1512z00_1915); 
BgL_objz00_40 = BgL_objz00_5910; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 770 */
if(
BGL_INT32P(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 long BgL_arg1514z00_1917;
{ /* Ieee/output.scm 770 */
 int32_t BgL_nz00_3062;
BgL_nz00_3062 = 
BGL_BINT32_TO_INT32(BgL_objz00_40); 
BgL_arg1514z00_1917 = 
(long)(BgL_nz00_3062); } 
{ 
 obj_t BgL_objz00_5916;
BgL_objz00_5916 = 
make_belong(BgL_arg1514z00_1917); 
BgL_objz00_40 = BgL_objz00_5916; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 770 */
if(
BGL_UINT32P(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 BGL_LONGLONG_T BgL_arg1516z00_1919;
{ /* Ieee/output.scm 770 */
 uint32_t BgL_nz00_3063;
BgL_nz00_3063 = 
BGL_BUINT32_TO_UINT32(BgL_objz00_40); 
BgL_arg1516z00_1919 = 
(BGL_LONGLONG_T)(BgL_nz00_3063); } 
{ 
 obj_t BgL_objz00_5922;
BgL_objz00_5922 = 
make_bllong(BgL_arg1516z00_1919); 
BgL_objz00_40 = BgL_objz00_5922; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 770 */
if(
BGL_INT64P(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
 BGL_LONGLONG_T BgL_arg1520z00_1921;
{ /* Ieee/output.scm 770 */
 int64_t BgL_nz00_3064;
BgL_nz00_3064 = 
BGL_BINT64_TO_INT64(BgL_objz00_40); 
BgL_arg1520z00_1921 = 
(BGL_LONGLONG_T)(BgL_nz00_3064); } 
{ 
 obj_t BgL_objz00_5928;
BgL_objz00_5928 = 
make_bllong(BgL_arg1520z00_1921); 
BgL_objz00_40 = BgL_objz00_5928; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 770 */
if(
BGL_UINT64P(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
{ /* Ieee/output.scm 770 */
 uint64_t BgL_vz00_1923;
{ /* Ieee/output.scm 770 */
 uint64_t BgL_arg1524z00_1926;
BgL_arg1524z00_1926 = 
(uint64_t)(10L); 
{ /* Ieee/output.scm 770 */
 uint64_t BgL_za71za7_3065;
BgL_za71za7_3065 = 
BGL_BINT64_TO_INT64(BgL_objz00_40); 
BgL_vz00_1923 = 
(BgL_za71za7_3065/BgL_arg1524z00_1926); } } 
if(
(BgL_vz00_1923>(uint64_t)(0)))
{ /* Ieee/output.scm 770 */
 BGL_LONGLONG_T BgL_arg1523z00_1925;
BgL_arg1523z00_1925 = 
(BGL_LONGLONG_T)(BgL_vz00_1923); 
bgl_display_obj(
make_bllong(BgL_arg1523z00_1925), BgL_portz00_41); }  else 
{ /* Ieee/output.scm 770 */BFALSE; } } 
{ /* Ieee/output.scm 770 */
 long BgL_arg1525z00_1927;
{ /* Ieee/output.scm 770 */
 uint64_t BgL_arg1526z00_1928;
{ /* Ieee/output.scm 770 */
 uint64_t BgL_arg1527z00_1929;
BgL_arg1527z00_1929 = 
(uint64_t)(10L); 
{ /* Ieee/output.scm 770 */
 uint64_t BgL_n1z00_3070;
BgL_n1z00_3070 = 
BGL_BINT64_TO_INT64(BgL_objz00_40); 
{ /* Ieee/output.scm 770 */
 int64_t BgL_tmpz00_5942;
BgL_tmpz00_5942 = 
(int64_t)(BgL_arg1527z00_1929); 
BgL_arg1526z00_1928 = 
(BgL_n1z00_3070%BgL_tmpz00_5942); } } } 
{ /* Ieee/output.scm 770 */
 long BgL_arg1990z00_3073;
BgL_arg1990z00_3073 = 
(long)(BgL_arg1526z00_1928); 
BgL_arg1525z00_1927 = 
(long)(BgL_arg1990z00_3073); } } 
{ 
 obj_t BgL_objz00_5947;
BgL_objz00_5947 = 
BINT(BgL_arg1525z00_1927); 
BgL_objz00_40 = BgL_objz00_5947; 
goto bgl_display_obj;} } }  else 
{ /* Ieee/output.scm 770 */
if(
CNSTP(BgL_objz00_40))
{ /* Ieee/output.scm 770 */
BGL_TAIL return 
bgl_write_cnst(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 770 */
BGL_TAIL return 
bgl_write_unknown(BgL_objz00_40, BgL_portz00_41);} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } 

}



/* &display-2 */
obj_t BGl_z62displayzd22zb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3887, obj_t BgL_objz00_3888, obj_t BgL_portz00_3889)
{
{ /* Ieee/output.scm 769 */
{ /* Ieee/output.scm 770 */
 obj_t BgL_auxz00_5953;
if(
OUTPUT_PORTP(BgL_portz00_3889))
{ /* Ieee/output.scm 770 */
BgL_auxz00_5953 = BgL_portz00_3889
; }  else 
{ 
 obj_t BgL_auxz00_5956;
BgL_auxz00_5956 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(26986L), BGl_string2662z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3889); 
FAILURE(BgL_auxz00_5956,BFALSE,BFALSE);} 
return 
bgl_display_obj(BgL_objz00_3888, BgL_auxz00_5953);} } 

}



/* write-2 */
BGL_EXPORTED_DEF obj_t bgl_write_obj(obj_t BgL_objz00_42, obj_t BgL_portz00_43)
{
{ /* Ieee/output.scm 775 */
if(
STRINGP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
if(
BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00())
{ /* Ieee/output.scm 863 */
 obj_t BgL_strz00_3078;
BgL_strz00_3078 = 
string_for_read(BgL_objz00_42); 
{ /* Ieee/output.scm 864 */
 obj_t BgL_escz00_3079;
{ /* Ieee/output.scm 865 */
 obj_t BgL_tmpz00_3082;
{ /* Ieee/output.scm 865 */
 int BgL_tmpz00_5966;
BgL_tmpz00_5966 = 
(int)(1L); 
BgL_tmpz00_3082 = 
BGL_MVALUES_VAL(BgL_tmpz00_5966); } 
{ /* Ieee/output.scm 865 */
 int BgL_tmpz00_5969;
BgL_tmpz00_5969 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_5969, BUNSPEC); } 
BgL_escz00_3079 = BgL_tmpz00_3082; } 
return 
bgl_write_string(BgL_strz00_3078, 
CBOOL(BgL_escz00_3079), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 860 */
return 
bgl_write_string(
string_for_read(BgL_objz00_42), ((bool_t)0), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 776 */
if(
SYMBOLP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
BGl_writezd2symbolzd2zz__r4_output_6_10_3z00(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
INTEGERP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_display_fixnum(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
CHARP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_write_char(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
PAIRP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
BGl_writezd2pairzd2zz__r4_output_6_10_3z00(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
NULLP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_display_string(BGl_string2638z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
(BgL_objz00_42==BFALSE))
{ /* Ieee/output.scm 776 */
return 
bgl_display_string(BGl_string2639z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
(BgL_objz00_42==BTRUE))
{ /* Ieee/output.scm 776 */
return 
bgl_display_string(BGl_string2640z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
(BgL_objz00_42==BUNSPEC))
{ /* Ieee/output.scm 776 */
return 
bgl_display_string(BGl_string2641z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
ELONGP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_write_elong(
BELONG_TO_LONG(BgL_objz00_42), BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
REALP(BgL_objz00_42))
{ /* Ieee/output.scm 893 */
 obj_t BgL_arg1643z00_3094;
BgL_arg1643z00_3094 = 
bgl_real_to_string(
REAL_TO_DOUBLE(BgL_objz00_42)); 
return 
bgl_display_string(BgL_arg1643z00_3094, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
KEYWORDP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_char(((unsigned char)':'), BgL_portz00_43); 
{ /* Ieee/output.scm 875 */
 obj_t BgL_arg1642z00_3097;
BgL_arg1642z00_3097 = 
KEYWORD_TO_STRING(BgL_objz00_42); 
return 
bgl_display_string(BgL_arg1642z00_3097, BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 776 */
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2642z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 945 */
 obj_t BgL_arg1653z00_3101;
{ /* Ieee/output.scm 945 */
 obj_t BgL_auxz00_6017;
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_42))
{ /* Ieee/output.scm 945 */
BgL_auxz00_6017 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6020;
BgL_auxz00_6020 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(34148L), BGl_string2663z00zz__r4_output_6_10_3z00, BGl_string2644z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6020,BFALSE,BFALSE);} 
BgL_arg1653z00_3101 = 
BGl_classzd2namezd2zz__objectz00(BgL_auxz00_6017); } 
{ /* Ieee/output.scm 782 */
 obj_t BgL_arg1599z00_3106;
BgL_arg1599z00_3106 = 
SYMBOL_TO_STRING(BgL_arg1653z00_3101); 
bgl_display_string(BgL_arg1599z00_3106, BgL_portz00_43); } } 
return 
bgl_display_string(BGl_string2645z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
VECTORP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
BGl_writezf2displayzd2vectorz20zz__r4_output_6_10_3z00(BgL_objz00_42, BgL_portz00_43, BGl_writezd22zd2envz00zz__r4_output_6_10_3z00);}  else 
{ /* Ieee/output.scm 776 */
if(
LLONGP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_write_llong(
BLLONG_TO_LLONG(BgL_objz00_42), BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
UCS2_STRINGP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_write_utf8string(
string_for_read(
ucs2_string_to_utf8_string(BgL_objz00_42)), BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
STRUCTP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00(BgL_objz00_42, BgL_portz00_43, BGl_writezd22zd2envz00zz__r4_output_6_10_3z00);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_OBJECTP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
 obj_t BgL_list1544z00_1946;
BgL_list1544z00_1946 = 
MAKE_YOUNG_PAIR(BgL_portz00_43, BNIL); 
return 
BGl_objectzd2writezd2zz__objectz00(
((BgL_objectz00_bglt)BgL_objz00_42), BgL_list1544z00_1946);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_DATEP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2664z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 842 */
 obj_t BgL_tmpz00_6051;
BgL_tmpz00_6051 = 
BGl_datezd2ze3stringz31zz__datez00(BgL_objz00_42); 
bgl_display_string(BgL_tmpz00_6051, BgL_portz00_43); } 
return 
bgl_display_string(BGl_string2645z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_MUTEXP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
BGL_TAIL return 
BGl_writezd2mutexzd2zz__r4_output_6_10_3z00(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_CONDVARP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2646z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 937 */
 obj_t BgL_arg1652z00_3125;
{ /* Ieee/output.scm 937 */
 obj_t BgL_objz00_3128;
if(
BGL_CONDVARP(BgL_objz00_42))
{ /* Ieee/output.scm 937 */
BgL_objz00_3128 = BgL_objz00_42; }  else 
{ 
 obj_t BgL_auxz00_6063;
BgL_auxz00_6063 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(33785L), BGl_string2663z00zz__r4_output_6_10_3z00, BGl_string2647z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6063,BFALSE,BFALSE);} 
BgL_arg1652z00_3125 = 
BGL_CONDVAR_NAME(BgL_objz00_3128); } 
bgl_display_obj(BgL_arg1652z00_3125, BgL_portz00_43); } 
return 
bgl_display_string(BGl_string2645z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
UCS2P(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_write_ucs2(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
CELLP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2648z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
bgl_write_obj(
CELL_REF(BgL_objz00_42), BgL_portz00_43); 
return 
bgl_display_string(BGl_string2645z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
EOF_OBJECTP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_display_string(BGl_string2649z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
(BgL_objz00_42==(BOPTIONAL)))
{ /* Ieee/output.scm 776 */
return 
bgl_display_string(BGl_string2650z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
(BgL_objz00_42==(BREST)))
{ /* Ieee/output.scm 776 */
return 
bgl_display_string(BGl_string2651z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
(BgL_objz00_42==(BKEY)))
{ /* Ieee/output.scm 776 */
return 
bgl_display_string(BGl_string2652z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
PROCEDUREP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_write_procedure(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
OUTPUT_PORTP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
if(
BGL_OUTPUT_STRING_PORTP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_display_string(BGl_string2653z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_OUTPUT_PROCEDURE_PORTP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_display_string(BGl_string2654z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
return 
bgl_write_output_port(BgL_objz00_42, BgL_portz00_43);} } }  else 
{ /* Ieee/output.scm 776 */
if(
INPUT_PORTP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_write_input_port(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BIGNUMP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_write_bignum(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_HVECTORP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
BGl_writezf2displayzd2hvectorz20zz__r4_output_6_10_3z00(BgL_objz00_42, BgL_portz00_43, BGl_writezd22zd2envz00zz__r4_output_6_10_3z00);}  else 
{ /* Ieee/output.scm 776 */
if(
TVECTORP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00(BgL_objz00_42, BgL_portz00_43, BGl_writezd22zd2envz00zz__r4_output_6_10_3z00);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_WEAKPTRP(BgL_objz00_42))
{ /* Ieee/output.scm 1061 */
 obj_t BgL_dataz00_3149;
BgL_dataz00_3149 = 
bgl_weakptr_data(BgL_objz00_42); 
bgl_display_string(BGl_string2655z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
bgl_write_obj(BgL_dataz00_3149, BgL_portz00_43); 
return 
bgl_display_char(((unsigned char)'>'), BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
FOREIGNP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_write_foreign(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
PROCESSP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
 obj_t BgL_tmpz00_6126;
if(
PROCESSP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
BgL_tmpz00_6126 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6129;
BgL_auxz00_6129 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(27289L), BGl_string2663z00zz__r4_output_6_10_3z00, BGl_string2656z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6129,BFALSE,BFALSE);} 
return 
bgl_write_process(BgL_tmpz00_6126, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
SOCKETP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
 obj_t BgL_tmpz00_6136;
if(
SOCKETP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
BgL_tmpz00_6136 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6139;
BgL_auxz00_6139 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(27289L), BGl_string2663z00zz__r4_output_6_10_3z00, BGl_string2657z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6139,BFALSE,BFALSE);} 
return 
bgl_write_socket(BgL_tmpz00_6136, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_DATAGRAM_SOCKETP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
 obj_t BgL_tmpz00_6146;
if(
BGL_DATAGRAM_SOCKETP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
BgL_tmpz00_6146 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6149;
BgL_auxz00_6149 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(27289L), BGl_string2663z00zz__r4_output_6_10_3z00, BGl_string2658z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6149,BFALSE,BFALSE);} 
return 
bgl_write_datagram_socket(BgL_tmpz00_6146, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_REGEXPP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
 obj_t BgL_tmpz00_6156;
if(
BGL_REGEXPP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
BgL_tmpz00_6156 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6159;
BgL_auxz00_6159 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(27289L), BGl_string2663z00zz__r4_output_6_10_3z00, BGl_string2659z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6159,BFALSE,BFALSE);} 
return 
bgl_write_regexp(BgL_tmpz00_6156, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_MMAPP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
 obj_t BgL_tmpz00_6166;
if(
BGL_MMAPP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
BgL_tmpz00_6166 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6169;
BgL_auxz00_6169 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(27289L), BGl_string2663z00zz__r4_output_6_10_3z00, BGl_string2660z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6169,BFALSE,BFALSE);} 
return 
bgl_write_mmap(BgL_tmpz00_6166, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_SEMAPHOREP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
 obj_t BgL_tmpz00_6176;
if(
BGL_SEMAPHOREP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
BgL_tmpz00_6176 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6179;
BgL_auxz00_6179 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(27289L), BGl_string2663z00zz__r4_output_6_10_3z00, BGl_string2661z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6179,BFALSE,BFALSE);} 
return 
bgl_write_semaphore(BgL_tmpz00_6176, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
OPAQUEP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
BGL_TAIL return 
bgl_write_opaque(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
CUSTOMP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
BGL_TAIL return 
bgl_write_custom(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BINARY_PORTP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_write_binary_port(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_DYNAMIC_ENVP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
return 
bgl_write_dynamic_env(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
if(
BGL_INT8P(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2665z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 776 */
 long BgL_arg1573z00_1974;
{ /* Ieee/output.scm 776 */
 int8_t BgL_xz00_3153;
BgL_xz00_3153 = 
BGL_BINT8_TO_INT8(BgL_objz00_42); 
{ /* Ieee/output.scm 776 */
 long BgL_arg1996z00_3154;
BgL_arg1996z00_3154 = 
(long)(BgL_xz00_3153); 
BgL_arg1573z00_1974 = 
(long)(BgL_arg1996z00_3154); } } 
BGL_TAIL return 
bgl_display_obj(
BINT(BgL_arg1573z00_1974), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 776 */
if(
BGL_UINT8P(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2666z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 776 */
 long BgL_arg1575z00_1976;
{ /* Ieee/output.scm 776 */
 uint8_t BgL_xz00_3158;
BgL_xz00_3158 = 
BGL_BUINT8_TO_UINT8(BgL_objz00_42); 
{ /* Ieee/output.scm 776 */
 long BgL_arg1995z00_3159;
BgL_arg1995z00_3159 = 
(long)(BgL_xz00_3158); 
BgL_arg1575z00_1976 = 
(long)(BgL_arg1995z00_3159); } } 
BGL_TAIL return 
bgl_display_obj(
BINT(BgL_arg1575z00_1976), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 776 */
if(
BGL_INT16P(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2667z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 776 */
 long BgL_arg1577z00_1978;
{ /* Ieee/output.scm 776 */
 int16_t BgL_xz00_3163;
BgL_xz00_3163 = 
BGL_BINT16_TO_INT16(BgL_objz00_42); 
{ /* Ieee/output.scm 776 */
 long BgL_arg1994z00_3164;
BgL_arg1994z00_3164 = 
(long)(BgL_xz00_3163); 
BgL_arg1577z00_1978 = 
(long)(BgL_arg1994z00_3164); } } 
BGL_TAIL return 
bgl_display_obj(
BINT(BgL_arg1577z00_1978), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 776 */
if(
BGL_UINT16P(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2668z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 776 */
 long BgL_arg1580z00_1980;
{ /* Ieee/output.scm 776 */
 uint16_t BgL_xz00_3168;
BgL_xz00_3168 = 
BGL_BUINT16_TO_UINT16(BgL_objz00_42); 
{ /* Ieee/output.scm 776 */
 long BgL_arg1993z00_3169;
BgL_arg1993z00_3169 = 
(long)(BgL_xz00_3168); 
BgL_arg1580z00_1980 = 
(long)(BgL_arg1993z00_3169); } } 
BGL_TAIL return 
bgl_display_obj(
BINT(BgL_arg1580z00_1980), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 776 */
if(
BGL_INT32P(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2669z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 776 */
 long BgL_arg1582z00_1982;
{ /* Ieee/output.scm 776 */
 int32_t BgL_nz00_3173;
BgL_nz00_3173 = 
BGL_BINT32_TO_INT32(BgL_objz00_42); 
BgL_arg1582z00_1982 = 
(long)(BgL_nz00_3173); } 
BGL_TAIL return 
bgl_display_obj(
make_belong(BgL_arg1582z00_1982), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 776 */
if(
BGL_UINT32P(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2670z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 776 */
 BGL_LONGLONG_T BgL_arg1584z00_1984;
{ /* Ieee/output.scm 776 */
 uint32_t BgL_nz00_3176;
BgL_nz00_3176 = 
BGL_BUINT32_TO_UINT32(BgL_objz00_42); 
BgL_arg1584z00_1984 = 
(BGL_LONGLONG_T)(BgL_nz00_3176); } 
BGL_TAIL return 
bgl_display_obj(
make_bllong(BgL_arg1584z00_1984), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 776 */
if(
BGL_INT64P(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2671z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 776 */
 BGL_LONGLONG_T BgL_arg1586z00_1986;
{ /* Ieee/output.scm 776 */
 int64_t BgL_nz00_3179;
BgL_nz00_3179 = 
BGL_BINT64_TO_INT64(BgL_objz00_42); 
BgL_arg1586z00_1986 = 
(BGL_LONGLONG_T)(BgL_nz00_3179); } 
BGL_TAIL return 
bgl_display_obj(
make_bllong(BgL_arg1586z00_1986), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 776 */
if(
BGL_UINT64P(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
bgl_display_string(BGl_string2672z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 776 */
 uint64_t BgL_vz00_1988;
{ /* Ieee/output.scm 776 */
 uint64_t BgL_arg1593z00_1991;
BgL_arg1593z00_1991 = 
(uint64_t)(10L); 
{ /* Ieee/output.scm 776 */
 uint64_t BgL_za71za7_3182;
BgL_za71za7_3182 = 
BGL_BINT64_TO_INT64(BgL_objz00_42); 
BgL_vz00_1988 = 
(BgL_za71za7_3182/BgL_arg1593z00_1991); } } 
if(
(BgL_vz00_1988>(uint64_t)(0)))
{ /* Ieee/output.scm 776 */
 BGL_LONGLONG_T BgL_arg1592z00_1990;
BgL_arg1592z00_1990 = 
(BGL_LONGLONG_T)(BgL_vz00_1988); 
bgl_display_obj(
make_bllong(BgL_arg1592z00_1990), BgL_portz00_43); }  else 
{ /* Ieee/output.scm 776 */BFALSE; } } 
{ /* Ieee/output.scm 776 */
 long BgL_arg1595z00_1992;
{ /* Ieee/output.scm 776 */
 uint64_t BgL_arg1596z00_1993;
{ /* Ieee/output.scm 776 */
 uint64_t BgL_arg1597z00_1994;
BgL_arg1597z00_1994 = 
(uint64_t)(10L); 
{ /* Ieee/output.scm 776 */
 uint64_t BgL_n1z00_3187;
BgL_n1z00_3187 = 
BGL_BINT64_TO_INT64(BgL_objz00_42); 
{ /* Ieee/output.scm 776 */
 int64_t BgL_tmpz00_6262;
BgL_tmpz00_6262 = 
(int64_t)(BgL_arg1597z00_1994); 
BgL_arg1596z00_1993 = 
(BgL_n1z00_3187%BgL_tmpz00_6262); } } } 
{ /* Ieee/output.scm 776 */
 long BgL_arg1990z00_3190;
BgL_arg1990z00_3190 = 
(long)(BgL_arg1596z00_1993); 
BgL_arg1595z00_1992 = 
(long)(BgL_arg1990z00_3190); } } 
BGL_TAIL return 
bgl_display_obj(
BINT(BgL_arg1595z00_1992), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 776 */
if(
CNSTP(BgL_objz00_42))
{ /* Ieee/output.scm 776 */
BGL_TAIL return 
bgl_write_cnst(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 776 */
BGL_TAIL return 
bgl_write_unknown(BgL_objz00_42, BgL_portz00_43);} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } 

}



/* &write-2 */
obj_t BGl_z62writezd22zb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3890, obj_t BgL_objz00_3891, obj_t BgL_portz00_3892)
{
{ /* Ieee/output.scm 775 */
{ /* Ieee/output.scm 776 */
 obj_t BgL_auxz00_6273;
if(
OUTPUT_PORTP(BgL_portz00_3892))
{ /* Ieee/output.scm 776 */
BgL_auxz00_6273 = BgL_portz00_3892
; }  else 
{ 
 obj_t BgL_auxz00_6276;
BgL_auxz00_6276 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(27289L), BGl_string2673z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3892); 
FAILURE(BgL_auxz00_6276,BFALSE,BFALSE);} 
return 
bgl_write_obj(BgL_objz00_3891, BgL_auxz00_6273);} } 

}



/* display-symbol */
BGL_EXPORTED_DEF obj_t BGl_displayzd2symbolzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_44, obj_t BgL_portz00_45)
{
{ /* Ieee/output.scm 781 */
{ /* Ieee/output.scm 782 */
 obj_t BgL_arg1599z00_3192;
BgL_arg1599z00_3192 = 
SYMBOL_TO_STRING(BgL_objz00_44); 
return 
bgl_display_string(BgL_arg1599z00_3192, BgL_portz00_45);} } 

}



/* &display-symbol */
obj_t BGl_z62displayzd2symbolzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3893, obj_t BgL_objz00_3894, obj_t BgL_portz00_3895)
{
{ /* Ieee/output.scm 781 */
{ /* Ieee/output.scm 782 */
 obj_t BgL_auxz00_6290; obj_t BgL_auxz00_6283;
if(
OUTPUT_PORTP(BgL_portz00_3895))
{ /* Ieee/output.scm 782 */
BgL_auxz00_6290 = BgL_portz00_3895
; }  else 
{ 
 obj_t BgL_auxz00_6293;
BgL_auxz00_6293 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(27600L), BGl_string2674z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3895); 
FAILURE(BgL_auxz00_6293,BFALSE,BFALSE);} 
if(
SYMBOLP(BgL_objz00_3894))
{ /* Ieee/output.scm 782 */
BgL_auxz00_6283 = BgL_objz00_3894
; }  else 
{ 
 obj_t BgL_auxz00_6286;
BgL_auxz00_6286 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(27600L), BGl_string2674z00zz__r4_output_6_10_3z00, BGl_string2675z00zz__r4_output_6_10_3z00, BgL_objz00_3894); 
FAILURE(BgL_auxz00_6286,BFALSE,BFALSE);} 
return 
BGl_displayzd2symbolzd2zz__r4_output_6_10_3z00(BgL_auxz00_6283, BgL_auxz00_6290);} } 

}



/* write-symbol */
BGL_EXPORTED_DEF obj_t BGl_writezd2symbolzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_46, obj_t BgL_portz00_47)
{
{ /* Ieee/output.scm 787 */
{ /* Ieee/output.scm 794 */
 obj_t BgL_strz00_1998;
BgL_strz00_1998 = 
SYMBOL_TO_STRING(BgL_objz00_46); 
{ /* Ieee/output.scm 794 */
 long BgL_lenz00_1999;
BgL_lenz00_1999 = 
STRING_LENGTH(BgL_strz00_1998); 
{ /* Ieee/output.scm 795 */
 long BgL_lenzd21zd2_2000;
BgL_lenzd21zd2_2000 = 
(BgL_lenz00_1999-1L); 
{ /* Ieee/output.scm 796 */

{ 
 long BgL_iz00_2002; bool_t BgL_az00_2003;
BgL_iz00_2002 = 0L; 
BgL_az00_2003 = ((bool_t)0); 
BgL_zc3z04anonymousza31600ze3z87_2004:
if(
(BgL_iz00_2002==BgL_lenz00_1999))
{ /* Ieee/output.scm 799 */
if(BgL_az00_2003)
{ /* Ieee/output.scm 801 */
return 
bgl_display_string(BgL_strz00_1998, BgL_portz00_47);}  else 
{ /* Ieee/output.scm 802 */
 bool_t BgL_test3236z00_6305;
if(
(BgL_objz00_46==BGl_symbol2676z00zz__r4_output_6_10_3z00))
{ /* Ieee/output.scm 802 */
BgL_test3236z00_6305 = ((bool_t)1)
; }  else 
{ /* Ieee/output.scm 802 */
BgL_test3236z00_6305 = 
(BgL_objz00_46==BGl_symbol2678z00zz__r4_output_6_10_3z00)
; } 
if(BgL_test3236z00_6305)
{ /* Ieee/output.scm 802 */
return 
bgl_display_string(BgL_strz00_1998, BgL_portz00_47);}  else 
{ /* Ieee/output.scm 802 */
bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 842 */
 obj_t BgL_tmpz00_6311;
BgL_tmpz00_6311 = 
symbol_for_read(BgL_strz00_1998); 
bgl_display_string(BgL_tmpz00_6311, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47);} } }  else 
{ /* Ieee/output.scm 804 */
 unsigned char BgL_cz00_2007;
{ /* Ieee/output.scm 804 */
 long BgL_l2249z00_3955;
BgL_l2249z00_3955 = 
STRING_LENGTH(BgL_strz00_1998); 
if(
BOUND_CHECK(BgL_iz00_2002, BgL_l2249z00_3955))
{ /* Ieee/output.scm 804 */
BgL_cz00_2007 = 
STRING_REF(BgL_strz00_1998, BgL_iz00_2002); }  else 
{ 
 obj_t BgL_auxz00_6319;
BgL_auxz00_6319 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(28312L), BGl_string2624z00zz__r4_output_6_10_3z00, BgL_strz00_1998, 
(int)(BgL_l2249z00_3955), 
(int)(BgL_iz00_2002)); 
FAILURE(BgL_auxz00_6319,BFALSE,BFALSE);} } 
{ 

switch( BgL_cz00_2007) { case ((unsigned char)10) : 
case ((unsigned char)9) : 
case ((unsigned char)13) : 
case ((unsigned char)'`') : 
case ((unsigned char)'\'') : 
case ((unsigned char)'"') : 
case ((unsigned char)'#') : 
case ((unsigned char)'\\') : 
case ((unsigned char)';') : 
case ((unsigned char)'(') : 
case ((unsigned char)')') : 
case ((unsigned char)'[') : 
case ((unsigned char)']') : 
case ((unsigned char)'{') : 
case ((unsigned char)'}') : 
case ((unsigned char)',') : 
case ((unsigned char)'|') : 

bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 842 */
 obj_t BgL_tmpz00_6326;
BgL_tmpz00_6326 = 
symbol_for_read(BgL_strz00_1998); 
bgl_display_string(BgL_tmpz00_6326, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47);break;case ((unsigned char)':') : 

if(
(BgL_iz00_2002==0L))
{ /* Ieee/output.scm 812 */
 bool_t BgL_test3240z00_6332;
if(
(BgL_lenzd21zd2_2000>2L))
{ /* Ieee/output.scm 813 */
 unsigned char BgL_tmpz00_6335;
{ /* Ieee/output.scm 813 */
 long BgL_i2252z00_3958;
BgL_i2252z00_3958 = 
(BgL_iz00_2002+1L); 
{ /* Ieee/output.scm 813 */
 long BgL_l2253z00_3959;
BgL_l2253z00_3959 = 
STRING_LENGTH(BgL_strz00_1998); 
if(
BOUND_CHECK(BgL_i2252z00_3958, BgL_l2253z00_3959))
{ /* Ieee/output.scm 813 */
BgL_tmpz00_6335 = 
STRING_REF(BgL_strz00_1998, BgL_i2252z00_3958)
; }  else 
{ 
 obj_t BgL_auxz00_6341;
BgL_auxz00_6341 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(28541L), BGl_string2624z00zz__r4_output_6_10_3z00, BgL_strz00_1998, 
(int)(BgL_l2253z00_3959), 
(int)(BgL_i2252z00_3958)); 
FAILURE(BgL_auxz00_6341,BFALSE,BFALSE);} } } 
BgL_test3240z00_6332 = 
(BgL_tmpz00_6335==((unsigned char)':')); }  else 
{ /* Ieee/output.scm 812 */
BgL_test3240z00_6332 = ((bool_t)0)
; } 
if(BgL_test3240z00_6332)
{ 
 long BgL_iz00_6348;
BgL_iz00_6348 = 
(BgL_iz00_2002+2L); 
BgL_iz00_2002 = BgL_iz00_6348; 
goto BgL_zc3z04anonymousza31600ze3z87_2004;}  else 
{ /* Ieee/output.scm 812 */
bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 842 */
 obj_t BgL_tmpz00_6351;
BgL_tmpz00_6351 = 
symbol_for_read(BgL_strz00_1998); 
bgl_display_string(BgL_tmpz00_6351, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47);} }  else 
{ /* Ieee/output.scm 811 */
if(
(BgL_iz00_2002==BgL_lenzd21zd2_2000))
{ /* Ieee/output.scm 816 */
bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 842 */
 obj_t BgL_tmpz00_6358;
BgL_tmpz00_6358 = 
symbol_for_read(BgL_strz00_1998); 
bgl_display_string(BgL_tmpz00_6358, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47);}  else 
{ 
 long BgL_iz00_6362;
BgL_iz00_6362 = 
(BgL_iz00_2002+1L); 
BgL_iz00_2002 = BgL_iz00_6362; 
goto BgL_zc3z04anonymousza31600ze3z87_2004;} } break;case ((unsigned char)'.') : 

if(
(BgL_lenz00_1999==1L))
{ /* Ieee/output.scm 821 */
bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 842 */
 obj_t BgL_tmpz00_6367;
BgL_tmpz00_6367 = 
symbol_for_read(BgL_strz00_1998); 
bgl_display_string(BgL_tmpz00_6367, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47);}  else 
{ 
 long BgL_iz00_6371;
BgL_iz00_6371 = 
(BgL_iz00_2002+1L); 
BgL_iz00_2002 = BgL_iz00_6371; 
goto BgL_zc3z04anonymousza31600ze3z87_2004;} break;
default: 
{ /* Ieee/output.scm 825 */
 bool_t BgL_test3245z00_6373;
if(
(BgL_cz00_2007<=((unsigned char)' ')))
{ /* Ieee/output.scm 825 */
BgL_test3245z00_6373 = ((bool_t)1)
; }  else 
{ /* Ieee/output.scm 825 */
BgL_test3245z00_6373 = 
(BgL_cz00_2007>=((unsigned char)''))
; } 
if(BgL_test3245z00_6373)
{ /* Ieee/output.scm 825 */
bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 842 */
 obj_t BgL_tmpz00_6378;
BgL_tmpz00_6378 = 
symbol_for_read(BgL_strz00_1998); 
bgl_display_string(BgL_tmpz00_6378, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2680z00zz__r4_output_6_10_3z00, BgL_portz00_47);}  else 
{ /* Ieee/output.scm 827 */
 long BgL_arg1622z00_2026; bool_t BgL_arg1623z00_2027;
BgL_arg1622z00_2026 = 
(BgL_iz00_2002+1L); 
if(BgL_az00_2003)
{ /* Ieee/output.scm 828 */
BgL_arg1623z00_2027 = BgL_az00_2003; }  else 
{ /* Ieee/output.scm 829 */
 bool_t BgL__ortest_1053z00_2029;
if(
isdigit(BgL_cz00_2007))
{ /* Ieee/output.scm 829 */
BgL__ortest_1053z00_2029 = ((bool_t)0); }  else 
{ /* Ieee/output.scm 829 */
if(
(BgL_cz00_2007==((unsigned char)'e')))
{ /* Ieee/output.scm 830 */
BgL__ortest_1053z00_2029 = ((bool_t)0); }  else 
{ /* Ieee/output.scm 830 */
if(
(BgL_cz00_2007==((unsigned char)'E')))
{ /* Ieee/output.scm 831 */
BgL__ortest_1053z00_2029 = ((bool_t)0); }  else 
{ /* Ieee/output.scm 831 */
if(
(BgL_cz00_2007==((unsigned char)'-')))
{ /* Ieee/output.scm 832 */
BgL__ortest_1053z00_2029 = ((bool_t)0); }  else 
{ /* Ieee/output.scm 832 */
if(
(BgL_cz00_2007==((unsigned char)'+')))
{ /* Ieee/output.scm 833 */
BgL__ortest_1053z00_2029 = ((bool_t)0); }  else 
{ /* Ieee/output.scm 833 */
BgL__ortest_1053z00_2029 = ((bool_t)1); } } } } } 
if(BgL__ortest_1053z00_2029)
{ /* Ieee/output.scm 829 */
BgL_arg1623z00_2027 = BgL__ortest_1053z00_2029; }  else 
{ /* Ieee/output.scm 829 */
if(
(BgL_iz00_2002==0L))
{ /* Ieee/output.scm 835 */
 bool_t BgL__ortest_1059z00_2031;
BgL__ortest_1059z00_2031 = 
(BgL_cz00_2007==((unsigned char)'e')); 
if(BgL__ortest_1059z00_2031)
{ /* Ieee/output.scm 835 */
BgL_arg1623z00_2027 = BgL__ortest_1059z00_2031; }  else 
{ /* Ieee/output.scm 835 */
BgL_arg1623z00_2027 = 
(BgL_cz00_2007==((unsigned char)'E')); } }  else 
{ /* Ieee/output.scm 834 */
BgL_arg1623z00_2027 = ((bool_t)0); } } } 
{ 
 bool_t BgL_az00_6401; long BgL_iz00_6400;
BgL_iz00_6400 = BgL_arg1622z00_2026; 
BgL_az00_6401 = BgL_arg1623z00_2027; 
BgL_az00_2003 = BgL_az00_6401; 
BgL_iz00_2002 = BgL_iz00_6400; 
goto BgL_zc3z04anonymousza31600ze3z87_2004;} } } } } } } } } } } } 

}



/* &write-symbol */
obj_t BGl_z62writezd2symbolzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3896, obj_t BgL_objz00_3897, obj_t BgL_portz00_3898)
{
{ /* Ieee/output.scm 787 */
{ /* Ieee/output.scm 794 */
 obj_t BgL_auxz00_6410; obj_t BgL_auxz00_6403;
if(
OUTPUT_PORTP(BgL_portz00_3898))
{ /* Ieee/output.scm 794 */
BgL_auxz00_6410 = BgL_portz00_3898
; }  else 
{ 
 obj_t BgL_auxz00_6413;
BgL_auxz00_6413 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(28032L), BGl_string2681z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3898); 
FAILURE(BgL_auxz00_6413,BFALSE,BFALSE);} 
if(
SYMBOLP(BgL_objz00_3897))
{ /* Ieee/output.scm 794 */
BgL_auxz00_6403 = BgL_objz00_3897
; }  else 
{ 
 obj_t BgL_auxz00_6406;
BgL_auxz00_6406 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(28032L), BGl_string2681z00zz__r4_output_6_10_3z00, BGl_string2675z00zz__r4_output_6_10_3z00, BgL_objz00_3897); 
FAILURE(BgL_auxz00_6406,BFALSE,BFALSE);} 
return 
BGl_writezd2symbolzd2zz__r4_output_6_10_3z00(BgL_auxz00_6403, BgL_auxz00_6410);} } 

}



/* display-string */
BGL_EXPORTED_DEF obj_t BGl_displayzd2stringzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_48, obj_t BgL_portz00_49)
{
{ /* Ieee/output.scm 841 */
return 
bgl_display_string(BgL_objz00_48, BgL_portz00_49);} 

}



/* &display-string */
obj_t BGl_z62displayzd2stringzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3899, obj_t BgL_objz00_3900, obj_t BgL_portz00_3901)
{
{ /* Ieee/output.scm 841 */
{ /* Ieee/output.scm 842 */
 obj_t BgL_auxz00_6426; obj_t BgL_auxz00_6419;
if(
OUTPUT_PORTP(BgL_portz00_3901))
{ /* Ieee/output.scm 842 */
BgL_auxz00_6426 = BgL_portz00_3901
; }  else 
{ 
 obj_t BgL_auxz00_6429;
BgL_auxz00_6429 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(29374L), BGl_string2682z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3901); 
FAILURE(BgL_auxz00_6429,BFALSE,BFALSE);} 
if(
STRINGP(BgL_objz00_3900))
{ /* Ieee/output.scm 842 */
BgL_auxz00_6419 = BgL_objz00_3900
; }  else 
{ 
 obj_t BgL_auxz00_6422;
BgL_auxz00_6422 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(29374L), BGl_string2682z00zz__r4_output_6_10_3z00, BGl_string2627z00zz__r4_output_6_10_3z00, BgL_objz00_3900); 
FAILURE(BgL_auxz00_6422,BFALSE,BFALSE);} 
return 
BGl_displayzd2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_6419, BgL_auxz00_6426);} } 

}



/* display-substring */
BGL_EXPORTED_DEF obj_t BGl_displayzd2substringzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_50, long BgL_startz00_51, long BgL_endz00_52, obj_t BgL_portz00_53)
{
{ /* Ieee/output.scm 847 */
{ /* Ieee/output.scm 848 */
 bool_t BgL_test3260z00_6434;
if(
(BgL_endz00_52>=BgL_startz00_51))
{ /* Ieee/output.scm 849 */
 bool_t BgL_test3262z00_6437;
{ /* Ieee/output.scm 849 */
 long BgL_tmpz00_6438;
BgL_tmpz00_6438 = 
(
STRING_LENGTH(BgL_objz00_50)+1L); 
BgL_test3262z00_6437 = 
BOUND_CHECK(BgL_endz00_52, BgL_tmpz00_6438); } 
if(BgL_test3262z00_6437)
{ /* Ieee/output.scm 849 */
BgL_test3260z00_6434 = 
(BgL_startz00_51>=0L)
; }  else 
{ /* Ieee/output.scm 849 */
BgL_test3260z00_6434 = ((bool_t)0)
; } }  else 
{ /* Ieee/output.scm 848 */
BgL_test3260z00_6434 = ((bool_t)0)
; } 
if(BgL_test3260z00_6434)
{ /* Ieee/output.scm 848 */
return 
bgl_display_substring(BgL_objz00_50, BgL_startz00_51, BgL_endz00_52, BgL_portz00_53);}  else 
{ /* Ieee/output.scm 853 */
 obj_t BgL_arg1634z00_4332;
{ /* Ieee/output.scm 853 */
 obj_t BgL_list1635z00_4333;
{ /* Ieee/output.scm 853 */
 obj_t BgL_arg1636z00_4334;
BgL_arg1636z00_4334 = 
MAKE_YOUNG_PAIR(
BINT(BgL_endz00_52), BNIL); 
BgL_list1635z00_4333 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_51), BgL_arg1636z00_4334); } 
BgL_arg1634z00_4332 = 
BGl_formatz00zz__r4_output_6_10_3z00(BGl_string2683z00zz__r4_output_6_10_3z00, BgL_list1635z00_4333); } 
return 
BGl_errorz00zz__errorz00(BGl_string2684z00zz__r4_output_6_10_3z00, BgL_arg1634z00_4332, BgL_objz00_50);} } } 

}



/* &display-substring */
obj_t BGl_z62displayzd2substringzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3902, obj_t BgL_objz00_3903, obj_t BgL_startz00_3904, obj_t BgL_endz00_3905, obj_t BgL_portz00_3906)
{
{ /* Ieee/output.scm 847 */
{ /* Ieee/output.scm 848 */
 obj_t BgL_auxz00_6475; long BgL_auxz00_6466; long BgL_auxz00_6457; obj_t BgL_auxz00_6450;
if(
OUTPUT_PORTP(BgL_portz00_3906))
{ /* Ieee/output.scm 848 */
BgL_auxz00_6475 = BgL_portz00_3906
; }  else 
{ 
 obj_t BgL_auxz00_6478;
BgL_auxz00_6478 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(29682L), BGl_string2685z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3906); 
FAILURE(BgL_auxz00_6478,BFALSE,BFALSE);} 
{ /* Ieee/output.scm 848 */
 obj_t BgL_tmpz00_6467;
if(
INTEGERP(BgL_endz00_3905))
{ /* Ieee/output.scm 848 */
BgL_tmpz00_6467 = BgL_endz00_3905
; }  else 
{ 
 obj_t BgL_auxz00_6470;
BgL_auxz00_6470 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(29682L), BGl_string2685z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_endz00_3905); 
FAILURE(BgL_auxz00_6470,BFALSE,BFALSE);} 
BgL_auxz00_6466 = 
(long)CINT(BgL_tmpz00_6467); } 
{ /* Ieee/output.scm 848 */
 obj_t BgL_tmpz00_6458;
if(
INTEGERP(BgL_startz00_3904))
{ /* Ieee/output.scm 848 */
BgL_tmpz00_6458 = BgL_startz00_3904
; }  else 
{ 
 obj_t BgL_auxz00_6461;
BgL_auxz00_6461 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(29682L), BGl_string2685z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_startz00_3904); 
FAILURE(BgL_auxz00_6461,BFALSE,BFALSE);} 
BgL_auxz00_6457 = 
(long)CINT(BgL_tmpz00_6458); } 
if(
STRINGP(BgL_objz00_3903))
{ /* Ieee/output.scm 848 */
BgL_auxz00_6450 = BgL_objz00_3903
; }  else 
{ 
 obj_t BgL_auxz00_6453;
BgL_auxz00_6453 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(29682L), BGl_string2685z00zz__r4_output_6_10_3z00, BGl_string2627z00zz__r4_output_6_10_3z00, BgL_objz00_3903); 
FAILURE(BgL_auxz00_6453,BFALSE,BFALSE);} 
return 
BGl_displayzd2substringzd2zz__r4_output_6_10_3z00(BgL_auxz00_6450, BgL_auxz00_6457, BgL_auxz00_6466, BgL_auxz00_6475);} } 

}



/* write-string */
BGL_EXPORTED_DEF obj_t BGl_writezd2stringzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_54, obj_t BgL_portz00_55)
{
{ /* Ieee/output.scm 859 */
if(
BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00())
{ /* Ieee/output.scm 863 */
 obj_t BgL_strz00_3302;
BgL_strz00_3302 = 
string_for_read(BgL_objz00_54); 
{ /* Ieee/output.scm 864 */
 obj_t BgL_escz00_3303;
{ /* Ieee/output.scm 865 */
 obj_t BgL_tmpz00_3306;
{ /* Ieee/output.scm 865 */
 int BgL_tmpz00_6486;
BgL_tmpz00_6486 = 
(int)(1L); 
BgL_tmpz00_3306 = 
BGL_MVALUES_VAL(BgL_tmpz00_6486); } 
{ /* Ieee/output.scm 865 */
 int BgL_tmpz00_6489;
BgL_tmpz00_6489 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6489, BUNSPEC); } 
BgL_escz00_3303 = BgL_tmpz00_3306; } 
return 
bgl_write_string(BgL_strz00_3302, 
CBOOL(BgL_escz00_3303), BgL_portz00_55);} }  else 
{ /* Ieee/output.scm 860 */
return 
bgl_write_string(
string_for_read(BgL_objz00_54), ((bool_t)0), BgL_portz00_55);} } 

}



/* &write-string */
obj_t BGl_z62writezd2stringzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3907, obj_t BgL_objz00_3908, obj_t BgL_portz00_3909)
{
{ /* Ieee/output.scm 859 */
{ /* Ieee/output.scm 860 */
 obj_t BgL_auxz00_6503; obj_t BgL_auxz00_6496;
if(
OUTPUT_PORTP(BgL_portz00_3909))
{ /* Ieee/output.scm 860 */
BgL_auxz00_6503 = BgL_portz00_3909
; }  else 
{ 
 obj_t BgL_auxz00_6506;
BgL_auxz00_6506 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(30201L), BGl_string2686z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3909); 
FAILURE(BgL_auxz00_6506,BFALSE,BFALSE);} 
if(
STRINGP(BgL_objz00_3908))
{ /* Ieee/output.scm 860 */
BgL_auxz00_6496 = BgL_objz00_3908
; }  else 
{ 
 obj_t BgL_auxz00_6499;
BgL_auxz00_6499 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(30201L), BGl_string2686z00zz__r4_output_6_10_3z00, BGl_string2627z00zz__r4_output_6_10_3z00, BgL_objz00_3908); 
FAILURE(BgL_auxz00_6499,BFALSE,BFALSE);} 
return 
BGl_writezd2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_6496, BgL_auxz00_6503);} } 

}



/* display-fixnum */
BGL_EXPORTED_DEF obj_t BGl_displayzd2fixnumzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_58, obj_t BgL_portz00_59)
{
{ /* Ieee/output.scm 880 */
BGL_TAIL return 
bgl_display_fixnum(BgL_objz00_58, BgL_portz00_59);} 

}



/* &display-fixnum */
obj_t BGl_z62displayzd2fixnumzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3910, obj_t BgL_objz00_3911, obj_t BgL_portz00_3912)
{
{ /* Ieee/output.scm 880 */
{ /* Ieee/output.scm 881 */
 obj_t BgL_auxz00_6519; obj_t BgL_auxz00_6512;
if(
OUTPUT_PORTP(BgL_portz00_3912))
{ /* Ieee/output.scm 881 */
BgL_auxz00_6519 = BgL_portz00_3912
; }  else 
{ 
 obj_t BgL_auxz00_6522;
BgL_auxz00_6522 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(31087L), BGl_string2687z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3912); 
FAILURE(BgL_auxz00_6522,BFALSE,BFALSE);} 
if(
INTEGERP(BgL_objz00_3911))
{ /* Ieee/output.scm 881 */
BgL_auxz00_6512 = BgL_objz00_3911
; }  else 
{ 
 obj_t BgL_auxz00_6515;
BgL_auxz00_6515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(31087L), BGl_string2687z00zz__r4_output_6_10_3z00, BGl_string2603z00zz__r4_output_6_10_3z00, BgL_objz00_3911); 
FAILURE(BgL_auxz00_6515,BFALSE,BFALSE);} 
return 
BGl_displayzd2fixnumzd2zz__r4_output_6_10_3z00(BgL_auxz00_6512, BgL_auxz00_6519);} } 

}



/* display-elong */
BGL_EXPORTED_DEF obj_t BGl_displayzd2elongzd2zz__r4_output_6_10_3z00(long BgL_objz00_60, obj_t BgL_portz00_61)
{
{ /* Ieee/output.scm 886 */
BGL_TAIL return 
bgl_display_elong(BgL_objz00_60, BgL_portz00_61);} 

}



/* &display-elong */
obj_t BGl_z62displayzd2elongzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3913, obj_t BgL_objz00_3914, obj_t BgL_portz00_3915)
{
{ /* Ieee/output.scm 886 */
{ /* Ieee/output.scm 887 */
 obj_t BgL_auxz00_6537; long BgL_auxz00_6528;
if(
OUTPUT_PORTP(BgL_portz00_3915))
{ /* Ieee/output.scm 887 */
BgL_auxz00_6537 = BgL_portz00_3915
; }  else 
{ 
 obj_t BgL_auxz00_6540;
BgL_auxz00_6540 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(31381L), BGl_string2688z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3915); 
FAILURE(BgL_auxz00_6540,BFALSE,BFALSE);} 
{ /* Ieee/output.scm 887 */
 obj_t BgL_tmpz00_6529;
if(
ELONGP(BgL_objz00_3914))
{ /* Ieee/output.scm 887 */
BgL_tmpz00_6529 = BgL_objz00_3914
; }  else 
{ 
 obj_t BgL_auxz00_6532;
BgL_auxz00_6532 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(31381L), BGl_string2688z00zz__r4_output_6_10_3z00, BGl_string2689z00zz__r4_output_6_10_3z00, BgL_objz00_3914); 
FAILURE(BgL_auxz00_6532,BFALSE,BFALSE);} 
BgL_auxz00_6528 = 
BELONG_TO_LONG(BgL_tmpz00_6529); } 
return 
BGl_displayzd2elongzd2zz__r4_output_6_10_3z00(BgL_auxz00_6528, BgL_auxz00_6537);} } 

}



/* display-flonum */
BGL_EXPORTED_DEF obj_t BGl_displayzd2flonumzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_62, obj_t BgL_portz00_63)
{
{ /* Ieee/output.scm 892 */
{ /* Ieee/output.scm 893 */
 obj_t BgL_arg1643z00_3312;
BgL_arg1643z00_3312 = 
bgl_real_to_string(
REAL_TO_DOUBLE(BgL_objz00_62)); 
return 
bgl_display_string(BgL_arg1643z00_3312, BgL_portz00_63);} } 

}



/* &display-flonum */
obj_t BGl_z62displayzd2flonumzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3916, obj_t BgL_objz00_3917, obj_t BgL_portz00_3918)
{
{ /* Ieee/output.scm 892 */
{ /* Ieee/output.scm 893 */
 obj_t BgL_auxz00_6555; obj_t BgL_auxz00_6548;
if(
OUTPUT_PORTP(BgL_portz00_3918))
{ /* Ieee/output.scm 893 */
BgL_auxz00_6555 = BgL_portz00_3918
; }  else 
{ 
 obj_t BgL_auxz00_6558;
BgL_auxz00_6558 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(31684L), BGl_string2690z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3918); 
FAILURE(BgL_auxz00_6558,BFALSE,BFALSE);} 
if(
REALP(BgL_objz00_3917))
{ /* Ieee/output.scm 893 */
BgL_auxz00_6548 = BgL_objz00_3917
; }  else 
{ 
 obj_t BgL_auxz00_6551;
BgL_auxz00_6551 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(31684L), BGl_string2690z00zz__r4_output_6_10_3z00, BGl_string2691z00zz__r4_output_6_10_3z00, BgL_objz00_3917); 
FAILURE(BgL_auxz00_6551,BFALSE,BFALSE);} 
return 
BGl_displayzd2flonumzd2zz__r4_output_6_10_3z00(BgL_auxz00_6548, BgL_auxz00_6555);} } 

}



/* display-ucs2string */
BGL_EXPORTED_DEF obj_t BGl_displayzd2ucs2stringzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_64, obj_t BgL_portz00_65)
{
{ /* Ieee/output.scm 898 */
BGL_TAIL return 
bgl_display_ucs2string(BgL_objz00_64, BgL_portz00_65);} 

}



/* &display-ucs2string */
obj_t BGl_z62displayzd2ucs2stringzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3919, obj_t BgL_objz00_3920, obj_t BgL_portz00_3921)
{
{ /* Ieee/output.scm 898 */
{ /* Ieee/output.scm 899 */
 obj_t BgL_auxz00_6571; obj_t BgL_auxz00_6564;
if(
OUTPUT_PORTP(BgL_portz00_3921))
{ /* Ieee/output.scm 899 */
BgL_auxz00_6571 = BgL_portz00_3921
; }  else 
{ 
 obj_t BgL_auxz00_6574;
BgL_auxz00_6574 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(31974L), BGl_string2692z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3921); 
FAILURE(BgL_auxz00_6574,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_objz00_3920))
{ /* Ieee/output.scm 899 */
BgL_auxz00_6564 = BgL_objz00_3920
; }  else 
{ 
 obj_t BgL_auxz00_6567;
BgL_auxz00_6567 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(31974L), BGl_string2692z00zz__r4_output_6_10_3z00, BGl_string2693z00zz__r4_output_6_10_3z00, BgL_objz00_3920); 
FAILURE(BgL_auxz00_6567,BFALSE,BFALSE);} 
return 
BGl_displayzd2ucs2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_6564, BgL_auxz00_6571);} } 

}



/* write-ucs2string */
BGL_EXPORTED_DEF obj_t BGl_writezd2ucs2stringzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_66, obj_t BgL_portz00_67)
{
{ /* Ieee/output.scm 904 */
return 
bgl_write_utf8string(
string_for_read(
ucs2_string_to_utf8_string(BgL_objz00_66)), BgL_portz00_67);} 

}



/* &write-ucs2string */
obj_t BGl_z62writezd2ucs2stringzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3922, obj_t BgL_objz00_3923, obj_t BgL_portz00_3924)
{
{ /* Ieee/output.scm 904 */
{ /* Ieee/output.scm 905 */
 obj_t BgL_auxz00_6589; obj_t BgL_auxz00_6582;
if(
OUTPUT_PORTP(BgL_portz00_3924))
{ /* Ieee/output.scm 905 */
BgL_auxz00_6589 = BgL_portz00_3924
; }  else 
{ 
 obj_t BgL_auxz00_6592;
BgL_auxz00_6592 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(32304L), BGl_string2694z00zz__r4_output_6_10_3z00, BGl_string2587z00zz__r4_output_6_10_3z00, BgL_portz00_3924); 
FAILURE(BgL_auxz00_6592,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_objz00_3923))
{ /* Ieee/output.scm 905 */
BgL_auxz00_6582 = BgL_objz00_3923
; }  else 
{ 
 obj_t BgL_auxz00_6585;
BgL_auxz00_6585 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(32304L), BGl_string2694z00zz__r4_output_6_10_3z00, BGl_string2693z00zz__r4_output_6_10_3z00, BgL_objz00_3923); 
FAILURE(BgL_auxz00_6585,BFALSE,BFALSE);} 
return 
BGl_writezd2ucs2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_6582, BgL_auxz00_6589);} } 

}



/* write-mutex */
obj_t BGl_writezd2mutexzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_72, obj_t BgL_portz00_73)
{
{ /* Ieee/output.scm 925 */
bgl_display_string(BGl_string2695z00zz__r4_output_6_10_3z00, BgL_portz00_73); 
{ /* Ieee/output.scm 927 */
 obj_t BgL_arg1649z00_2067;
{ /* Ieee/output.scm 927 */
 obj_t BgL_objz00_3331;
if(
BGL_MUTEXP(BgL_objz00_72))
{ /* Ieee/output.scm 927 */
BgL_objz00_3331 = BgL_objz00_72; }  else 
{ 
 obj_t BgL_auxz00_6600;
BgL_auxz00_6600 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(33330L), BGl_string2696z00zz__r4_output_6_10_3z00, BGl_string2697z00zz__r4_output_6_10_3z00, BgL_objz00_72); 
FAILURE(BgL_auxz00_6600,BFALSE,BFALSE);} 
BgL_arg1649z00_2067 = 
BGL_MUTEX_NAME(BgL_objz00_3331); } 
bgl_display_obj(BgL_arg1649z00_2067, BgL_portz00_73); } 
bgl_display_string(BGl_string2698z00zz__r4_output_6_10_3z00, BgL_portz00_73); 
{ /* Ieee/output.scm 929 */
 obj_t BgL_arg1651z00_2068;
{ /* Ieee/output.scm 929 */
 obj_t BgL_tmpz00_6607;
if(
BGL_MUTEXP(BgL_objz00_72))
{ /* Ieee/output.scm 929 */
BgL_tmpz00_6607 = BgL_objz00_72
; }  else 
{ 
 obj_t BgL_auxz00_6610;
BgL_auxz00_6610 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(33391L), BGl_string2696z00zz__r4_output_6_10_3z00, BGl_string2697z00zz__r4_output_6_10_3z00, BgL_objz00_72); 
FAILURE(BgL_auxz00_6610,BFALSE,BFALSE);} 
BgL_arg1651z00_2068 = 
BGL_MUTEX_BACKEND(BgL_tmpz00_6607); } 
bgl_display_obj(BgL_arg1651z00_2068, BgL_portz00_73); } 
return 
bgl_display_string(BGl_string2645z00zz__r4_output_6_10_3z00, BgL_portz00_73);} 

}



/* write/display-structure */
obj_t BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00(obj_t BgL_objz00_81, obj_t BgL_portz00_82, obj_t BgL_dispz00_83)
{
{ /* Ieee/output.scm 959 */
bgl_display_char(((unsigned char)'#'), BgL_portz00_82); 
bgl_display_char(((unsigned char)'{'), BgL_portz00_82); 
{ /* Ieee/output.scm 962 */
 obj_t BgL_arg1658z00_2072;
{ /* Ieee/output.scm 962 */
 obj_t BgL_res2210z00_3360;
{ /* Ieee/output.scm 962 */
 obj_t BgL_aux2526z00_4232;
BgL_aux2526z00_4232 = 
STRUCT_KEY(BgL_objz00_81); 
if(
SYMBOLP(BgL_aux2526z00_4232))
{ /* Ieee/output.scm 962 */
BgL_res2210z00_3360 = BgL_aux2526z00_4232; }  else 
{ 
 obj_t BgL_auxz00_6622;
BgL_auxz00_6622 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(34889L), BGl_string2699z00zz__r4_output_6_10_3z00, BGl_string2675z00zz__r4_output_6_10_3z00, BgL_aux2526z00_4232); 
FAILURE(BgL_auxz00_6622,BFALSE,BFALSE);} } 
BgL_arg1658z00_2072 = BgL_res2210z00_3360; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_83, 2))
{ /* Ieee/output.scm 962 */
BGL_PROCEDURE_CALL2(BgL_dispz00_83, BgL_arg1658z00_2072, BgL_portz00_82); }  else 
{ /* Ieee/output.scm 962 */
FAILURE(BGl_string2700z00zz__r4_output_6_10_3z00,BGl_list2701z00zz__r4_output_6_10_3z00,BgL_dispz00_83);} } 
if(
(0L==
(long)(
STRUCT_LENGTH(BgL_objz00_81))))
{ /* Ieee/output.scm 963 */
return 
bgl_display_char(((unsigned char)'}'), BgL_portz00_82);}  else 
{ /* Ieee/output.scm 965 */
 long BgL_lenz00_2075;
BgL_lenz00_2075 = 
(
(long)(
STRUCT_LENGTH(BgL_objz00_81))-1L); 
bgl_display_char(((unsigned char)' '), BgL_portz00_82); 
{ 
 long BgL_iz00_2077;
BgL_iz00_2077 = 0L; 
BgL_zc3z04anonymousza31661ze3z87_2078:
if(
(BgL_iz00_2077==BgL_lenz00_2075))
{ /* Ieee/output.scm 969 */
{ /* Ieee/output.scm 970 */
 obj_t BgL_arg1664z00_2080;
BgL_arg1664z00_2080 = 
STRUCT_REF(BgL_objz00_81, 
(int)(BgL_iz00_2077)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_83, 2))
{ /* Ieee/output.scm 970 */
BGL_PROCEDURE_CALL2(BgL_dispz00_83, BgL_arg1664z00_2080, BgL_portz00_82); }  else 
{ /* Ieee/output.scm 970 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2711z00zz__r4_output_6_10_3z00,BgL_dispz00_83);} } 
return 
bgl_display_char(((unsigned char)'}'), BgL_portz00_82);}  else 
{ /* Ieee/output.scm 969 */
{ /* Ieee/output.scm 973 */
 obj_t BgL_arg1665z00_2081;
BgL_arg1665z00_2081 = 
STRUCT_REF(BgL_objz00_81, 
(int)(BgL_iz00_2077)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_83, 2))
{ /* Ieee/output.scm 973 */
BGL_PROCEDURE_CALL2(BgL_dispz00_83, BgL_arg1665z00_2081, BgL_portz00_82); }  else 
{ /* Ieee/output.scm 973 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2714z00zz__r4_output_6_10_3z00,BgL_dispz00_83);} } 
bgl_display_char(((unsigned char)' '), BgL_portz00_82); 
{ 
 long BgL_iz00_6667;
BgL_iz00_6667 = 
(1L+BgL_iz00_2077); 
BgL_iz00_2077 = BgL_iz00_6667; 
goto BgL_zc3z04anonymousza31661ze3z87_2078;} } } } } 

}



/* write/display-vector */
obj_t BGl_writezf2displayzd2vectorz20zz__r4_output_6_10_3z00(obj_t BgL_objz00_84, obj_t BgL_portz00_85, obj_t BgL_dispz00_86)
{
{ /* Ieee/output.scm 980 */
bgl_display_char(((unsigned char)'#'), BgL_portz00_85); 
{ /* Ieee/output.scm 982 */
 int BgL_tagz00_2086;
BgL_tagz00_2086 = 
VECTOR_TAG(BgL_objz00_84); 
if(
(
(long)(BgL_tagz00_2086)>0L))
{ /* Ieee/output.scm 983 */
if(
(
(long)(BgL_tagz00_2086)>=100L))
{ /* Ieee/output.scm 985 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_86, 2))
{ /* Ieee/output.scm 986 */
BGL_PROCEDURE_CALL2(BgL_dispz00_86, 
BINT(BgL_tagz00_2086), BgL_portz00_85); }  else 
{ /* Ieee/output.scm 986 */
FAILURE(BGl_string2717z00zz__r4_output_6_10_3z00,BGl_list2718z00zz__r4_output_6_10_3z00,BgL_dispz00_86);} }  else 
{ /* Ieee/output.scm 985 */
bgl_display_char(((unsigned char)'0'), BgL_portz00_85); 
if(
(
(long)(BgL_tagz00_2086)>=10L))
{ /* Ieee/output.scm 989 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_86, 2))
{ /* Ieee/output.scm 990 */
BGL_PROCEDURE_CALL2(BgL_dispz00_86, 
BINT(BgL_tagz00_2086), BgL_portz00_85); }  else 
{ /* Ieee/output.scm 990 */
FAILURE(BGl_string2717z00zz__r4_output_6_10_3z00,BGl_list2718z00zz__r4_output_6_10_3z00,BgL_dispz00_86);} }  else 
{ /* Ieee/output.scm 989 */
bgl_display_char(((unsigned char)'0'), BgL_portz00_85); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_86, 2))
{ /* Ieee/output.scm 993 */
BGL_PROCEDURE_CALL2(BgL_dispz00_86, 
BINT(BgL_tagz00_2086), BgL_portz00_85); }  else 
{ /* Ieee/output.scm 993 */
FAILURE(BGl_string2717z00zz__r4_output_6_10_3z00,BGl_list2718z00zz__r4_output_6_10_3z00,BgL_dispz00_86);} } } }  else 
{ /* Ieee/output.scm 983 */BFALSE; } } 
bgl_display_char(((unsigned char)'('), BgL_portz00_85); 
if(
(0L==
VECTOR_LENGTH(BgL_objz00_84)))
{ /* Ieee/output.scm 995 */
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_85);}  else 
{ /* Ieee/output.scm 997 */
 long BgL_lenz00_2092;
BgL_lenz00_2092 = 
(
VECTOR_LENGTH(BgL_objz00_84)-1L); 
{ 
 long BgL_iz00_2094;
BgL_iz00_2094 = 0L; 
BgL_zc3z04anonymousza31677ze3z87_2095:
if(
(BgL_iz00_2094==BgL_lenz00_2092))
{ /* Ieee/output.scm 1000 */
{ /* Ieee/output.scm 1001 */
 obj_t BgL_arg1681z00_2097;
{ /* Ieee/output.scm 1001 */
 bool_t BgL_test3296z00_6718;
{ /* Ieee/output.scm 1001 */
 long BgL_tmpz00_6719;
BgL_tmpz00_6719 = 
VECTOR_LENGTH(BgL_objz00_84); 
BgL_test3296z00_6718 = 
BOUND_CHECK(BgL_iz00_2094, BgL_tmpz00_6719); } 
if(BgL_test3296z00_6718)
{ /* Ieee/output.scm 1001 */
BgL_arg1681z00_2097 = 
VECTOR_REF(BgL_objz00_84,BgL_iz00_2094); }  else 
{ 
 obj_t BgL_auxz00_6723;
BgL_auxz00_6723 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(36029L), BGl_string2721z00zz__r4_output_6_10_3z00, BgL_objz00_84, 
(int)(
VECTOR_LENGTH(BgL_objz00_84)), 
(int)(BgL_iz00_2094)); 
FAILURE(BgL_auxz00_6723,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_86, 2))
{ /* Ieee/output.scm 1001 */
BGL_PROCEDURE_CALL2(BgL_dispz00_86, BgL_arg1681z00_2097, BgL_portz00_85); }  else 
{ /* Ieee/output.scm 1001 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2722z00zz__r4_output_6_10_3z00,BgL_dispz00_86);} } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_85);}  else 
{ /* Ieee/output.scm 1000 */
{ /* Ieee/output.scm 1004 */
 obj_t BgL_arg1683z00_2098;
{ /* Ieee/output.scm 1004 */
 bool_t BgL_test3298z00_6739;
{ /* Ieee/output.scm 1004 */
 long BgL_tmpz00_6740;
BgL_tmpz00_6740 = 
VECTOR_LENGTH(BgL_objz00_84); 
BgL_test3298z00_6739 = 
BOUND_CHECK(BgL_iz00_2094, BgL_tmpz00_6740); } 
if(BgL_test3298z00_6739)
{ /* Ieee/output.scm 1004 */
BgL_arg1683z00_2098 = 
VECTOR_REF(BgL_objz00_84,BgL_iz00_2094); }  else 
{ 
 obj_t BgL_auxz00_6744;
BgL_auxz00_6744 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(36100L), BGl_string2721z00zz__r4_output_6_10_3z00, BgL_objz00_84, 
(int)(
VECTOR_LENGTH(BgL_objz00_84)), 
(int)(BgL_iz00_2094)); 
FAILURE(BgL_auxz00_6744,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_86, 2))
{ /* Ieee/output.scm 1004 */
BGL_PROCEDURE_CALL2(BgL_dispz00_86, BgL_arg1683z00_2098, BgL_portz00_85); }  else 
{ /* Ieee/output.scm 1004 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2725z00zz__r4_output_6_10_3z00,BgL_dispz00_86);} } 
bgl_display_char(((unsigned char)' '), BgL_portz00_85); 
{ 
 long BgL_iz00_6760;
BgL_iz00_6760 = 
(1L+BgL_iz00_2094); 
BgL_iz00_2094 = BgL_iz00_6760; 
goto BgL_zc3z04anonymousza31677ze3z87_2095;} } } } } 

}



/* write/display-tvector */
obj_t BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00(obj_t BgL_tvecz00_87, obj_t BgL_portz00_88, obj_t BgL_dispz00_89)
{
{ /* Ieee/output.scm 1011 */
{ /* Ieee/output.scm 1012 */
 obj_t BgL_tvectorzd2refzd2_2103; obj_t BgL_idz00_2104;
BgL_tvectorzd2refzd2_2103 = 
BGl_tvectorzd2refzd2zz__tvectorz00(BgL_tvecz00_87); 
BgL_idz00_2104 = 
BGl_tvectorzd2idzd2zz__tvectorz00(BgL_tvecz00_87); 
bgl_display_char(((unsigned char)'#'), BgL_portz00_88); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_89, 2))
{ /* Ieee/output.scm 1015 */
BGL_PROCEDURE_CALL2(BgL_dispz00_89, BgL_idz00_2104, BgL_portz00_88); }  else 
{ /* Ieee/output.scm 1015 */
FAILURE(BGl_string2728z00zz__r4_output_6_10_3z00,BGl_list2729z00zz__r4_output_6_10_3z00,BgL_dispz00_89);} 
bgl_display_char(((unsigned char)'('), BgL_portz00_88); 
if(
CBOOL(BgL_tvectorzd2refzd2_2103))
{ /* Ieee/output.scm 1017 */
if(
(0L==
TVECTOR_LENGTH(BgL_tvecz00_87)))
{ /* Ieee/output.scm 1022 */
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_88);}  else 
{ /* Ieee/output.scm 1024 */
 long BgL_lenz00_2107;
BgL_lenz00_2107 = 
(
TVECTOR_LENGTH(BgL_tvecz00_87)-1L); 
{ 
 long BgL_iz00_2109;
BgL_iz00_2109 = 0L; 
BgL_zc3z04anonymousza31693ze3z87_2110:
if(
(BgL_iz00_2109==BgL_lenz00_2107))
{ /* Ieee/output.scm 1027 */
{ /* Ieee/output.scm 1028 */
 obj_t BgL_arg1697z00_2112;
{ /* Ieee/output.scm 1028 */
 obj_t BgL_funz00_4254;
if(
PROCEDUREP(BgL_tvectorzd2refzd2_2103))
{ /* Ieee/output.scm 1028 */
BgL_funz00_4254 = BgL_tvectorzd2refzd2_2103; }  else 
{ 
 obj_t BgL_auxz00_6786;
BgL_auxz00_6786 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(36883L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2732z00zz__r4_output_6_10_3z00, BgL_tvectorzd2refzd2_2103); 
FAILURE(BgL_auxz00_6786,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4254, 2))
{ /* Ieee/output.scm 1028 */
BgL_arg1697z00_2112 = 
(VA_PROCEDUREP( BgL_funz00_4254 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_4254))(BgL_tvectorzd2refzd2_2103, BgL_tvecz00_87, 
BINT(BgL_iz00_2109), BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_4254))(BgL_tvectorzd2refzd2_2103, BgL_tvecz00_87, 
BINT(BgL_iz00_2109)) ); }  else 
{ /* Ieee/output.scm 1028 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2733z00zz__r4_output_6_10_3z00,BgL_funz00_4254);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_89, 2))
{ /* Ieee/output.scm 1028 */
BGL_PROCEDURE_CALL2(BgL_dispz00_89, BgL_arg1697z00_2112, BgL_portz00_88); }  else 
{ /* Ieee/output.scm 1028 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2740z00zz__r4_output_6_10_3z00,BgL_dispz00_89);} } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_88);}  else 
{ /* Ieee/output.scm 1027 */
{ /* Ieee/output.scm 1031 */
 obj_t BgL_arg1698z00_2113;
{ /* Ieee/output.scm 1031 */
 obj_t BgL_funz00_4260;
if(
PROCEDUREP(BgL_tvectorzd2refzd2_2103))
{ /* Ieee/output.scm 1031 */
BgL_funz00_4260 = BgL_tvectorzd2refzd2_2103; }  else 
{ 
 obj_t BgL_auxz00_6810;
BgL_auxz00_6810 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(36965L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2732z00zz__r4_output_6_10_3z00, BgL_tvectorzd2refzd2_2103); 
FAILURE(BgL_auxz00_6810,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4260, 2))
{ /* Ieee/output.scm 1031 */
BgL_arg1698z00_2113 = 
(VA_PROCEDUREP( BgL_funz00_4260 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_4260))(BgL_tvectorzd2refzd2_2103, BgL_tvecz00_87, 
BINT(BgL_iz00_2109), BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_4260))(BgL_tvectorzd2refzd2_2103, BgL_tvecz00_87, 
BINT(BgL_iz00_2109)) ); }  else 
{ /* Ieee/output.scm 1031 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2733z00zz__r4_output_6_10_3z00,BgL_funz00_4260);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_89, 2))
{ /* Ieee/output.scm 1031 */
BGL_PROCEDURE_CALL2(BgL_dispz00_89, BgL_arg1698z00_2113, BgL_portz00_88); }  else 
{ /* Ieee/output.scm 1031 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2743z00zz__r4_output_6_10_3z00,BgL_dispz00_89);} } 
bgl_display_char(((unsigned char)' '), BgL_portz00_88); 
{ 
 long BgL_iz00_6832;
BgL_iz00_6832 = 
(1L+BgL_iz00_2109); 
BgL_iz00_2109 = BgL_iz00_6832; 
goto BgL_zc3z04anonymousza31693ze3z87_2110;} } } } }  else 
{ /* Ieee/output.scm 1017 */
bgl_display_string(BGl_string2746z00zz__r4_output_6_10_3z00, BgL_portz00_88); 
return BgL_tvecz00_87;} } } 

}



/* write/display-hvector */
obj_t BGl_writezf2displayzd2hvectorz20zz__r4_output_6_10_3z00(obj_t BgL_svecz00_90, obj_t BgL_portz00_91, obj_t BgL_dispz00_92)
{
{ /* Ieee/output.scm 1038 */
{ /* Ieee/output.scm 1039 */
 obj_t BgL_idz00_2118;
BgL_idz00_2118 = 
BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(BgL_svecz00_90); 
{ /* Ieee/output.scm 1040 */
 obj_t BgL__z00_2119; obj_t BgL_vrefz00_2120; obj_t BgL__z00_2121; obj_t BgL__z00_2122;
{ /* Ieee/output.scm 1041 */
 obj_t BgL_tmpz00_3396;
{ /* Ieee/output.scm 1041 */
 int BgL_tmpz00_6836;
BgL_tmpz00_6836 = 
(int)(1L); 
BgL_tmpz00_3396 = 
BGL_MVALUES_VAL(BgL_tmpz00_6836); } 
{ /* Ieee/output.scm 1041 */
 int BgL_tmpz00_6839;
BgL_tmpz00_6839 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6839, BUNSPEC); } 
BgL__z00_2119 = BgL_tmpz00_3396; } 
{ /* Ieee/output.scm 1041 */
 obj_t BgL_tmpz00_3397;
{ /* Ieee/output.scm 1041 */
 int BgL_tmpz00_6842;
BgL_tmpz00_6842 = 
(int)(2L); 
BgL_tmpz00_3397 = 
BGL_MVALUES_VAL(BgL_tmpz00_6842); } 
{ /* Ieee/output.scm 1041 */
 int BgL_tmpz00_6845;
BgL_tmpz00_6845 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6845, BUNSPEC); } 
BgL_vrefz00_2120 = BgL_tmpz00_3397; } 
{ /* Ieee/output.scm 1041 */
 obj_t BgL_tmpz00_3398;
{ /* Ieee/output.scm 1041 */
 int BgL_tmpz00_6848;
BgL_tmpz00_6848 = 
(int)(3L); 
BgL_tmpz00_3398 = 
BGL_MVALUES_VAL(BgL_tmpz00_6848); } 
{ /* Ieee/output.scm 1041 */
 int BgL_tmpz00_6851;
BgL_tmpz00_6851 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6851, BUNSPEC); } 
BgL__z00_2121 = BgL_tmpz00_3398; } 
{ /* Ieee/output.scm 1041 */
 obj_t BgL_tmpz00_3399;
{ /* Ieee/output.scm 1041 */
 int BgL_tmpz00_6854;
BgL_tmpz00_6854 = 
(int)(4L); 
BgL_tmpz00_3399 = 
BGL_MVALUES_VAL(BgL_tmpz00_6854); } 
{ /* Ieee/output.scm 1041 */
 int BgL_tmpz00_6857;
BgL_tmpz00_6857 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6857, BUNSPEC); } 
BgL__z00_2122 = BgL_tmpz00_3399; } 
bgl_display_char(((unsigned char)'#'), BgL_portz00_91); 
{ /* Ieee/output.scm 1042 */
 obj_t BgL_objz00_3400;
if(
SYMBOLP(BgL_idz00_2118))
{ /* Ieee/output.scm 1042 */
BgL_objz00_3400 = BgL_idz00_2118; }  else 
{ 
 obj_t BgL_auxz00_6863;
BgL_auxz00_6863 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(37459L), BGl_string2747z00zz__r4_output_6_10_3z00, BGl_string2675z00zz__r4_output_6_10_3z00, BgL_idz00_2118); 
FAILURE(BgL_auxz00_6863,BFALSE,BFALSE);} 
{ /* Ieee/output.scm 782 */
 obj_t BgL_arg1599z00_3402;
BgL_arg1599z00_3402 = 
SYMBOL_TO_STRING(BgL_objz00_3400); 
bgl_display_string(BgL_arg1599z00_3402, BgL_portz00_91); } } 
bgl_display_char(((unsigned char)'('), BgL_portz00_91); 
{ /* Ieee/output.scm 1044 */
 bool_t BgL_test3311z00_6870;
{ /* Ieee/output.scm 1044 */
 long BgL_arg1715z00_2135;
BgL_arg1715z00_2135 = 
BGL_HVECTOR_LENGTH(BgL_svecz00_90); 
BgL_test3311z00_6870 = 
(0L==BgL_arg1715z00_2135); } 
if(BgL_test3311z00_6870)
{ /* Ieee/output.scm 1044 */
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_91);}  else 
{ /* Ieee/output.scm 1046 */
 long BgL_lenz00_2125;
{ /* Ieee/output.scm 1046 */
 long BgL_arg1714z00_2134;
BgL_arg1714z00_2134 = 
BGL_HVECTOR_LENGTH(BgL_svecz00_90); 
BgL_lenz00_2125 = 
(BgL_arg1714z00_2134-1L); } 
{ 
 long BgL_iz00_2127;
BgL_iz00_2127 = 0L; 
BgL_zc3z04anonymousza31708ze3z87_2128:
if(
(BgL_iz00_2127==BgL_lenz00_2125))
{ /* Ieee/output.scm 1049 */
{ /* Ieee/output.scm 1050 */
 obj_t BgL_arg1710z00_2130;
{ /* Ieee/output.scm 1050 */
 obj_t BgL_funz00_4268;
if(
PROCEDUREP(BgL_vrefz00_2120))
{ /* Ieee/output.scm 1050 */
BgL_funz00_4268 = BgL_vrefz00_2120; }  else 
{ 
 obj_t BgL_auxz00_6880;
BgL_auxz00_6880 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(37677L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2732z00zz__r4_output_6_10_3z00, BgL_vrefz00_2120); 
FAILURE(BgL_auxz00_6880,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4268, 2))
{ /* Ieee/output.scm 1050 */
BgL_arg1710z00_2130 = 
(VA_PROCEDUREP( BgL_funz00_4268 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_4268))(BgL_vrefz00_2120, BgL_svecz00_90, 
BINT(BgL_iz00_2127), BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_4268))(BgL_vrefz00_2120, BgL_svecz00_90, 
BINT(BgL_iz00_2127)) ); }  else 
{ /* Ieee/output.scm 1050 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2748z00zz__r4_output_6_10_3z00,BgL_funz00_4268);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_92, 2))
{ /* Ieee/output.scm 1050 */
BGL_PROCEDURE_CALL2(BgL_dispz00_92, BgL_arg1710z00_2130, BgL_portz00_91); }  else 
{ /* Ieee/output.scm 1050 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2753z00zz__r4_output_6_10_3z00,BgL_dispz00_92);} } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_91);}  else 
{ /* Ieee/output.scm 1049 */
{ /* Ieee/output.scm 1053 */
 obj_t BgL_arg1711z00_2131;
{ /* Ieee/output.scm 1053 */
 obj_t BgL_funz00_4274;
if(
PROCEDUREP(BgL_vrefz00_2120))
{ /* Ieee/output.scm 1053 */
BgL_funz00_4274 = BgL_vrefz00_2120; }  else 
{ 
 obj_t BgL_auxz00_6904;
BgL_auxz00_6904 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(37752L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2732z00zz__r4_output_6_10_3z00, BgL_vrefz00_2120); 
FAILURE(BgL_auxz00_6904,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4274, 2))
{ /* Ieee/output.scm 1053 */
BgL_arg1711z00_2131 = 
(VA_PROCEDUREP( BgL_funz00_4274 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_4274))(BgL_vrefz00_2120, BgL_svecz00_90, 
BINT(BgL_iz00_2127), BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_4274))(BgL_vrefz00_2120, BgL_svecz00_90, 
BINT(BgL_iz00_2127)) ); }  else 
{ /* Ieee/output.scm 1053 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2748z00zz__r4_output_6_10_3z00,BgL_funz00_4274);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_92, 2))
{ /* Ieee/output.scm 1053 */
BGL_PROCEDURE_CALL2(BgL_dispz00_92, BgL_arg1711z00_2131, BgL_portz00_91); }  else 
{ /* Ieee/output.scm 1053 */
FAILURE(BGl_string2710z00zz__r4_output_6_10_3z00,BGl_list2756z00zz__r4_output_6_10_3z00,BgL_dispz00_92);} } 
bgl_display_char(((unsigned char)' '), BgL_portz00_91); 
{ 
 long BgL_iz00_6926;
BgL_iz00_6926 = 
(1L+BgL_iz00_2127); 
BgL_iz00_2127 = BgL_iz00_6926; 
goto BgL_zc3z04anonymousza31708ze3z87_2128;} } } } } } } } 

}



/* display-pair */
obj_t BGl_displayzd2pairzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_96, obj_t BgL_portz00_97)
{
{ /* Ieee/output.scm 1092 */
bgl_display_char(((unsigned char)'('), BgL_portz00_97); 
{ 
 obj_t BgL_lz00_2138;
BgL_lz00_2138 = BgL_objz00_96; 
BgL_zc3z04anonymousza31716ze3z87_2139:
{ /* Ieee/output.scm 1093 */
 bool_t BgL_test3319z00_6929;
{ /* Ieee/output.scm 1093 */
 obj_t BgL_tmpz00_6930;
{ /* Ieee/output.scm 1093 */
 obj_t BgL_pairz00_3413;
if(
PAIRP(BgL_lz00_2138))
{ /* Ieee/output.scm 1093 */
BgL_pairz00_3413 = BgL_lz00_2138; }  else 
{ 
 obj_t BgL_auxz00_6933;
BgL_auxz00_6933 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39271L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2138); 
FAILURE(BgL_auxz00_6933,BFALSE,BFALSE);} 
BgL_tmpz00_6930 = 
CDR(BgL_pairz00_3413); } 
BgL_test3319z00_6929 = 
NULLP(BgL_tmpz00_6930); } 
if(BgL_test3319z00_6929)
{ /* Ieee/output.scm 1093 */
{ /* Ieee/output.scm 1093 */
 obj_t BgL_arg1720z00_2142;
{ /* Ieee/output.scm 1093 */
 obj_t BgL_pairz00_3414;
if(
PAIRP(BgL_lz00_2138))
{ /* Ieee/output.scm 1093 */
BgL_pairz00_3414 = BgL_lz00_2138; }  else 
{ 
 obj_t BgL_auxz00_6941;
BgL_auxz00_6941 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39271L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2138); 
FAILURE(BgL_auxz00_6941,BFALSE,BFALSE);} 
BgL_arg1720z00_2142 = 
CAR(BgL_pairz00_3414); } 
bgl_display_obj(BgL_arg1720z00_2142, BgL_portz00_97); } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_97);}  else 
{ /* Ieee/output.scm 1093 */
 bool_t BgL_test3322z00_6948;
{ /* Ieee/output.scm 1093 */
 obj_t BgL_tmpz00_6949;
{ /* Ieee/output.scm 1093 */
 obj_t BgL_pairz00_3415;
if(
PAIRP(BgL_lz00_2138))
{ /* Ieee/output.scm 1093 */
BgL_pairz00_3415 = BgL_lz00_2138; }  else 
{ 
 obj_t BgL_auxz00_6952;
BgL_auxz00_6952 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39271L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2138); 
FAILURE(BgL_auxz00_6952,BFALSE,BFALSE);} 
BgL_tmpz00_6949 = 
CDR(BgL_pairz00_3415); } 
BgL_test3322z00_6948 = 
PAIRP(BgL_tmpz00_6949); } 
if(BgL_test3322z00_6948)
{ /* Ieee/output.scm 1093 */
{ /* Ieee/output.scm 1093 */
 obj_t BgL_arg1723z00_2145;
{ /* Ieee/output.scm 1093 */
 obj_t BgL_pairz00_3416;
if(
PAIRP(BgL_lz00_2138))
{ /* Ieee/output.scm 1093 */
BgL_pairz00_3416 = BgL_lz00_2138; }  else 
{ 
 obj_t BgL_auxz00_6960;
BgL_auxz00_6960 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39271L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2138); 
FAILURE(BgL_auxz00_6960,BFALSE,BFALSE);} 
BgL_arg1723z00_2145 = 
CAR(BgL_pairz00_3416); } 
bgl_display_obj(BgL_arg1723z00_2145, BgL_portz00_97); } 
bgl_display_char(((unsigned char)' '), BgL_portz00_97); 
{ /* Ieee/output.scm 1093 */
 obj_t BgL_arg1724z00_2146;
{ /* Ieee/output.scm 1093 */
 obj_t BgL_pairz00_3417;
if(
PAIRP(BgL_lz00_2138))
{ /* Ieee/output.scm 1093 */
BgL_pairz00_3417 = BgL_lz00_2138; }  else 
{ 
 obj_t BgL_auxz00_6969;
BgL_auxz00_6969 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39271L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2138); 
FAILURE(BgL_auxz00_6969,BFALSE,BFALSE);} 
BgL_arg1724z00_2146 = 
CDR(BgL_pairz00_3417); } 
{ 
 obj_t BgL_lz00_6974;
BgL_lz00_6974 = BgL_arg1724z00_2146; 
BgL_lz00_2138 = BgL_lz00_6974; 
goto BgL_zc3z04anonymousza31716ze3z87_2139;} } }  else 
{ /* Ieee/output.scm 1093 */
{ /* Ieee/output.scm 1093 */
 obj_t BgL_arg1725z00_2147;
{ /* Ieee/output.scm 1093 */
 obj_t BgL_pairz00_3418;
if(
PAIRP(BgL_lz00_2138))
{ /* Ieee/output.scm 1093 */
BgL_pairz00_3418 = BgL_lz00_2138; }  else 
{ 
 obj_t BgL_auxz00_6977;
BgL_auxz00_6977 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39271L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2138); 
FAILURE(BgL_auxz00_6977,BFALSE,BFALSE);} 
BgL_arg1725z00_2147 = 
CAR(BgL_pairz00_3418); } 
bgl_display_obj(BgL_arg1725z00_2147, BgL_portz00_97); } 
bgl_display_char(((unsigned char)' '), BgL_portz00_97); 
bgl_display_char(((unsigned char)'.'), BgL_portz00_97); 
bgl_display_char(((unsigned char)' '), BgL_portz00_97); 
{ /* Ieee/output.scm 1093 */
 obj_t BgL_arg1726z00_2148;
{ /* Ieee/output.scm 1093 */
 obj_t BgL_pairz00_3419;
if(
PAIRP(BgL_lz00_2138))
{ /* Ieee/output.scm 1093 */
BgL_pairz00_3419 = BgL_lz00_2138; }  else 
{ 
 obj_t BgL_auxz00_6988;
BgL_auxz00_6988 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39271L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2138); 
FAILURE(BgL_auxz00_6988,BFALSE,BFALSE);} 
BgL_arg1726z00_2148 = 
CDR(BgL_pairz00_3419); } 
bgl_display_obj(BgL_arg1726z00_2148, BgL_portz00_97); } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_97);} } } } } 

}



/* write-pair */
obj_t BGl_writezd2pairzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_98, obj_t BgL_portz00_99)
{
{ /* Ieee/output.scm 1098 */
bgl_display_char(((unsigned char)'('), BgL_portz00_99); 
{ 
 obj_t BgL_lz00_2153;
BgL_lz00_2153 = BgL_objz00_98; 
BgL_zc3z04anonymousza31729ze3z87_2154:
{ /* Ieee/output.scm 1099 */
 bool_t BgL_test3328z00_6996;
{ /* Ieee/output.scm 1099 */
 obj_t BgL_tmpz00_6997;
{ /* Ieee/output.scm 1099 */
 obj_t BgL_pairz00_3420;
if(
PAIRP(BgL_lz00_2153))
{ /* Ieee/output.scm 1099 */
BgL_pairz00_3420 = BgL_lz00_2153; }  else 
{ 
 obj_t BgL_auxz00_7000;
BgL_auxz00_7000 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39569L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2153); 
FAILURE(BgL_auxz00_7000,BFALSE,BFALSE);} 
BgL_tmpz00_6997 = 
CDR(BgL_pairz00_3420); } 
BgL_test3328z00_6996 = 
NULLP(BgL_tmpz00_6997); } 
if(BgL_test3328z00_6996)
{ /* Ieee/output.scm 1099 */
{ /* Ieee/output.scm 1099 */
 obj_t BgL_arg1732z00_2157;
{ /* Ieee/output.scm 1099 */
 obj_t BgL_pairz00_3421;
if(
PAIRP(BgL_lz00_2153))
{ /* Ieee/output.scm 1099 */
BgL_pairz00_3421 = BgL_lz00_2153; }  else 
{ 
 obj_t BgL_auxz00_7008;
BgL_auxz00_7008 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39569L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2153); 
FAILURE(BgL_auxz00_7008,BFALSE,BFALSE);} 
BgL_arg1732z00_2157 = 
CAR(BgL_pairz00_3421); } 
bgl_write_obj(BgL_arg1732z00_2157, BgL_portz00_99); } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_99);}  else 
{ /* Ieee/output.scm 1099 */
 bool_t BgL_test3331z00_7015;
{ /* Ieee/output.scm 1099 */
 obj_t BgL_tmpz00_7016;
{ /* Ieee/output.scm 1099 */
 obj_t BgL_pairz00_3422;
if(
PAIRP(BgL_lz00_2153))
{ /* Ieee/output.scm 1099 */
BgL_pairz00_3422 = BgL_lz00_2153; }  else 
{ 
 obj_t BgL_auxz00_7019;
BgL_auxz00_7019 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39569L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2153); 
FAILURE(BgL_auxz00_7019,BFALSE,BFALSE);} 
BgL_tmpz00_7016 = 
CDR(BgL_pairz00_3422); } 
BgL_test3331z00_7015 = 
PAIRP(BgL_tmpz00_7016); } 
if(BgL_test3331z00_7015)
{ /* Ieee/output.scm 1099 */
{ /* Ieee/output.scm 1099 */
 obj_t BgL_arg1735z00_2160;
{ /* Ieee/output.scm 1099 */
 obj_t BgL_pairz00_3423;
if(
PAIRP(BgL_lz00_2153))
{ /* Ieee/output.scm 1099 */
BgL_pairz00_3423 = BgL_lz00_2153; }  else 
{ 
 obj_t BgL_auxz00_7027;
BgL_auxz00_7027 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39569L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2153); 
FAILURE(BgL_auxz00_7027,BFALSE,BFALSE);} 
BgL_arg1735z00_2160 = 
CAR(BgL_pairz00_3423); } 
bgl_write_obj(BgL_arg1735z00_2160, BgL_portz00_99); } 
bgl_display_char(((unsigned char)' '), BgL_portz00_99); 
{ /* Ieee/output.scm 1099 */
 obj_t BgL_arg1739z00_2161;
{ /* Ieee/output.scm 1099 */
 obj_t BgL_pairz00_3424;
if(
PAIRP(BgL_lz00_2153))
{ /* Ieee/output.scm 1099 */
BgL_pairz00_3424 = BgL_lz00_2153; }  else 
{ 
 obj_t BgL_auxz00_7036;
BgL_auxz00_7036 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39569L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2153); 
FAILURE(BgL_auxz00_7036,BFALSE,BFALSE);} 
BgL_arg1739z00_2161 = 
CDR(BgL_pairz00_3424); } 
{ 
 obj_t BgL_lz00_7041;
BgL_lz00_7041 = BgL_arg1739z00_2161; 
BgL_lz00_2153 = BgL_lz00_7041; 
goto BgL_zc3z04anonymousza31729ze3z87_2154;} } }  else 
{ /* Ieee/output.scm 1099 */
{ /* Ieee/output.scm 1099 */
 obj_t BgL_arg1740z00_2162;
{ /* Ieee/output.scm 1099 */
 obj_t BgL_pairz00_3425;
if(
PAIRP(BgL_lz00_2153))
{ /* Ieee/output.scm 1099 */
BgL_pairz00_3425 = BgL_lz00_2153; }  else 
{ 
 obj_t BgL_auxz00_7044;
BgL_auxz00_7044 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39569L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2153); 
FAILURE(BgL_auxz00_7044,BFALSE,BFALSE);} 
BgL_arg1740z00_2162 = 
CAR(BgL_pairz00_3425); } 
bgl_write_obj(BgL_arg1740z00_2162, BgL_portz00_99); } 
bgl_display_char(((unsigned char)' '), BgL_portz00_99); 
bgl_display_char(((unsigned char)'.'), BgL_portz00_99); 
bgl_display_char(((unsigned char)' '), BgL_portz00_99); 
{ /* Ieee/output.scm 1099 */
 obj_t BgL_arg1741z00_2163;
{ /* Ieee/output.scm 1099 */
 obj_t BgL_pairz00_3426;
if(
PAIRP(BgL_lz00_2153))
{ /* Ieee/output.scm 1099 */
BgL_pairz00_3426 = BgL_lz00_2153; }  else 
{ 
 obj_t BgL_auxz00_7055;
BgL_auxz00_7055 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2586z00zz__r4_output_6_10_3z00, 
BINT(39569L), BGl_string2610z00zz__r4_output_6_10_3z00, BGl_string2611z00zz__r4_output_6_10_3z00, BgL_lz00_2153); 
FAILURE(BgL_auxz00_7055,BFALSE,BFALSE);} 
BgL_arg1741z00_2163 = 
CDR(BgL_pairz00_3426); } 
bgl_write_obj(BgL_arg1741z00_2163, BgL_portz00_99); } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_99);} } } } } 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__r4_output_6_10_3z00(void)
{
{ /* Ieee/output.scm 24 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__r4_output_6_10_3z00(void)
{
{ /* Ieee/output.scm 24 */
return BUNSPEC;} 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__r4_output_6_10_3z00(void)
{
{ /* Ieee/output.scm 24 */
return BUNSPEC;} 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_output_6_10_3z00(void)
{
{ /* Ieee/output.scm 24 */
BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L, 
BSTRING_TO_STRING(BGl_string2759z00zz__r4_output_6_10_3z00)); 
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string2759z00zz__r4_output_6_10_3z00)); 
BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L, 
BSTRING_TO_STRING(BGl_string2759z00zz__r4_output_6_10_3z00)); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L, 
BSTRING_TO_STRING(BGl_string2759z00zz__r4_output_6_10_3z00)); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(268155843L, 
BSTRING_TO_STRING(BGl_string2759z00zz__r4_output_6_10_3z00)); 
BGl_modulezd2initializa7ationz75zz__biglooz00(348684831L, 
BSTRING_TO_STRING(BGl_string2759z00zz__r4_output_6_10_3z00)); 
BGl_modulezd2initializa7ationz75zz__srfi4z00(467924964L, 
BSTRING_TO_STRING(BGl_string2759z00zz__r4_output_6_10_3z00)); 
return 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string2759z00zz__r4_output_6_10_3z00));} 

}

#ifdef __cplusplus
}
#endif
