/*===========================================================================*/
/*   (Ieee/output.scm)                                                       */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Ieee/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_symbol2721z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2726z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2728z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_symbol2569z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t bgl_write_utf8string(obj_t, obj_t);
static obj_t BGl_symbol2731z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2652z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2734z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2654z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2575z00zz__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_symbol2660z00zz__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_symbol2679z00zz__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_symbol2681z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2683z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2685z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__r4_output_6_10_3z00(void);
static obj_t BGl_symbol2689z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t bgl_write_char(obj_t, obj_t);
static obj_t BGl_symbol2692z00zz__r4_output_6_10_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_symbol2696z00zz__r4_output_6_10_3z00 = BUNSPEC;
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);
extern obj_t bstring_to_symbol(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);
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_list2702z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_list2706z00zz__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_list2710z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_list2717z00zz__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 *);
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);
static obj_t BGl_list2720z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t ucs2_string_to_utf8_string(obj_t);
static obj_t BGl_list2725z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t bgl_write_elong(long, obj_t);
extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
static obj_t BGl_list2730z00zz__r4_output_6_10_3z00 = BUNSPEC;
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);
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_gczd2rootszd2initz00zz__r4_output_6_10_3z00(void);
static obj_t BGl_list2678z00zz__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);
static obj_t BGl_list2688z00zz__r4_output_6_10_3z00 = BUNSPEC;
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_list2691z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_list2695z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_list2699z00zz__r4_output_6_10_3z00 = BUNSPEC;
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_symbol2606z00zz__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_symbol2610z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_z62displayzd2stringzb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2613z00zz__r4_output_6_10_3z00 = BUNSPEC;
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_symbol2700z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2703z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2707z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t bgl_real_to_string(double);
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_symbol2711z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2713z00zz__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_symbol2718z00zz__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_za762writeza7d22za7b0za72737z00, BGl_z62writezd22zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_writezd2bytezd22zd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2byteza72738za7, BGl_z62writezd2bytezd22z62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string2600z00zz__r4_output_6_10_3z00, BgL_bgl_string2600za700za7za7_2739za7, "Illegal tag", 11 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_formatzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762formatza762za7za7__2740z00, va_generic_entry, BGl_z62formatz62zz__r4_output_6_10_3z00, BUNSPEC, -2 );
DEFINE_STRING( BGl_string2601z00zz__r4_output_6_10_3z00, BgL_bgl_string2601za700za7za7_2741za7, "print-padded-number", 19 );
DEFINE_STRING( BGl_string2602z00zz__r4_output_6_10_3z00, BgL_bgl_string2602za700za7za7_2742za7, "bstring", 7 );
DEFINE_STRING( BGl_string2603z00zz__r4_output_6_10_3z00, BgL_bgl_string2603za700za7za7_2743za7, "print-list", 10 );
DEFINE_STRING( BGl_string2604z00zz__r4_output_6_10_3z00, BgL_bgl_string2604za700za7za7_2744za7, "Tag not allowed here", 20 );
DEFINE_STRING( BGl_string2605z00zz__r4_output_6_10_3z00, BgL_bgl_string2605za700za7za7_2745za7, " . ", 3 );
DEFINE_STRING( BGl_string2607z00zz__r4_output_6_10_3z00, BgL_bgl_string2607za700za7za7_2746za7, "format", 6 );
DEFINE_STRING( BGl_string2608z00zz__r4_output_6_10_3z00, BgL_bgl_string2608za700za7za7_2747za7, "pair-nil", 8 );
DEFINE_STRING( BGl_string2609z00zz__r4_output_6_10_3z00, BgL_bgl_string2609za700za7za7_2748za7, "&format", 7 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_printfzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762printfza762za7za7__2749z00, va_generic_entry, BGl_z62printfz62zz__r4_output_6_10_3z00, BUNSPEC, -2 );
DEFINE_STRING( BGl_string2611z00zz__r4_output_6_10_3z00, BgL_bgl_string2611za700za7za7_2750za7, "printf", 6 );
DEFINE_STRING( BGl_string2612z00zz__r4_output_6_10_3z00, BgL_bgl_string2612za700za7za7_2751za7, "&printf", 7 );
DEFINE_STRING( BGl_string2614z00zz__r4_output_6_10_3z00, BgL_bgl_string2614za700za7za7_2752za7, "fprintf", 7 );
DEFINE_STRING( BGl_string2615z00zz__r4_output_6_10_3z00, BgL_bgl_string2615za700za7za7_2753za7, "&fprintf", 8 );
DEFINE_STRING( BGl_string2616z00zz__r4_output_6_10_3z00, BgL_bgl_string2616za700za7za7_2754za7, "()", 2 );
DEFINE_STRING( BGl_string2617z00zz__r4_output_6_10_3z00, BgL_bgl_string2617za700za7za7_2755za7, "#f", 2 );
DEFINE_STRING( BGl_string2618z00zz__r4_output_6_10_3z00, BgL_bgl_string2618za700za7za7_2756za7, "#t", 2 );
DEFINE_STRING( BGl_string2619z00zz__r4_output_6_10_3z00, BgL_bgl_string2619za700za7za7_2757za7, "#unspecified", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_displayzd2stringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2str2758z00, BGl_z62displayzd2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string2701z00zz__r4_output_6_10_3z00, BgL_bgl_string2701za700za7za7_2759za7, "arg1693", 7 );
DEFINE_STRING( BGl_string2620z00zz__r4_output_6_10_3z00, BgL_bgl_string2620za700za7za7_2760za7, "#<class:", 8 );
DEFINE_STRING( BGl_string2621z00zz__r4_output_6_10_3z00, BgL_bgl_string2621za700za7za7_2761za7, "display-2", 9 );
DEFINE_STRING( BGl_string2622z00zz__r4_output_6_10_3z00, BgL_bgl_string2622za700za7za7_2762za7, "class", 5 );
DEFINE_STRING( BGl_string2704z00zz__r4_output_6_10_3z00, BgL_bgl_string2704za700za7za7_2763za7, "arg1695", 7 );
DEFINE_STRING( BGl_string2623z00zz__r4_output_6_10_3z00, BgL_bgl_string2623za700za7za7_2764za7, ">", 1 );
DEFINE_STRING( BGl_string2705z00zz__r4_output_6_10_3z00, BgL_bgl_string2705za700za7za7_2765za7, "write/display-tvector:Wrong number of arguments", 47 );
DEFINE_STRING( BGl_string2624z00zz__r4_output_6_10_3z00, BgL_bgl_string2624za700za7za7_2766za7, "#<condition-variable:", 21 );
DEFINE_STRING( BGl_string2625z00zz__r4_output_6_10_3z00, BgL_bgl_string2625za700za7za7_2767za7, "condvar", 7 );
DEFINE_STRING( BGl_string2626z00zz__r4_output_6_10_3z00, BgL_bgl_string2626za700za7za7_2768za7, "#<cell:", 7 );
DEFINE_STRING( BGl_string2708z00zz__r4_output_6_10_3z00, BgL_bgl_string2708za700za7za7_2769za7, "id", 2 );
DEFINE_STRING( BGl_string2627z00zz__r4_output_6_10_3z00, BgL_bgl_string2627za700za7za7_2770za7, "#eof-object", 11 );
DEFINE_STRING( BGl_string2709z00zz__r4_output_6_10_3z00, BgL_bgl_string2709za700za7za7_2771za7, "procedure", 9 );
DEFINE_STRING( BGl_string2628z00zz__r4_output_6_10_3z00, BgL_bgl_string2628za700za7za7_2772za7, "#!optional", 10 );
DEFINE_STRING( BGl_string2629z00zz__r4_output_6_10_3z00, BgL_bgl_string2629za700za7za7_2773za7, "#!rest", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_displayzd2substringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2sub2774z00, BGl_z62displayzd2substringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 4 );
DEFINE_STRING( BGl_string2630z00zz__r4_output_6_10_3z00, BgL_bgl_string2630za700za7za7_2775za7, "#!key", 5 );
DEFINE_STRING( BGl_string2712z00zz__r4_output_6_10_3z00, BgL_bgl_string2712za700za7za7_2776za7, "tvector-ref", 11 );
DEFINE_STRING( BGl_string2631z00zz__r4_output_6_10_3z00, BgL_bgl_string2631za700za7za7_2777za7, "#<output_string_port>", 21 );
DEFINE_STRING( BGl_string2632z00zz__r4_output_6_10_3z00, BgL_bgl_string2632za700za7za7_2778za7, "#<output_procedure_port>", 24 );
DEFINE_STRING( BGl_string2714z00zz__r4_output_6_10_3z00, BgL_bgl_string2714za700za7za7_2779za7, "tvec", 4 );
DEFINE_STRING( BGl_string2633z00zz__r4_output_6_10_3z00, BgL_bgl_string2633za700za7za7_2780za7, "#<weakptr:", 10 );
DEFINE_STRING( BGl_string2634z00zz__r4_output_6_10_3z00, BgL_bgl_string2634za700za7za7_2781za7, "process", 7 );
DEFINE_STRING( BGl_string2716z00zz__r4_output_6_10_3z00, BgL_bgl_string2716za700za7za7_2782za7, "i", 1 );
DEFINE_STRING( BGl_string2635z00zz__r4_output_6_10_3z00, BgL_bgl_string2635za700za7za7_2783za7, "socket", 6 );
DEFINE_STRING( BGl_string2636z00zz__r4_output_6_10_3z00, BgL_bgl_string2636za700za7za7_2784za7, "datagram-socket", 15 );
DEFINE_STRING( BGl_string2637z00zz__r4_output_6_10_3z00, BgL_bgl_string2637za700za7za7_2785za7, "regexp", 6 );
DEFINE_STRING( BGl_string2719z00zz__r4_output_6_10_3z00, BgL_bgl_string2719za700za7za7_2786za7, "arg1708", 7 );
DEFINE_STRING( BGl_string2638z00zz__r4_output_6_10_3z00, BgL_bgl_string2638za700za7za7_2787za7, "mmap", 4 );
DEFINE_STRING( BGl_string2639z00zz__r4_output_6_10_3z00, BgL_bgl_string2639za700za7za7_2788za7, "semaphore", 9 );
DEFINE_STRING( BGl_string2640z00zz__r4_output_6_10_3z00, BgL_bgl_string2640za700za7za7_2789za7, "write-2", 7 );
DEFINE_STRING( BGl_string2722z00zz__r4_output_6_10_3z00, BgL_bgl_string2722za700za7za7_2790za7, "arg1709", 7 );
DEFINE_STRING( BGl_string2641z00zz__r4_output_6_10_3z00, BgL_bgl_string2641za700za7za7_2791za7, "#<date:", 7 );
DEFINE_STRING( BGl_string2723z00zz__r4_output_6_10_3z00, BgL_bgl_string2723za700za7za7_2792za7, "...)", 4 );
DEFINE_STRING( BGl_string2642z00zz__r4_output_6_10_3z00, BgL_bgl_string2642za700za7za7_2793za7, "#s8:", 4 );
DEFINE_STRING( BGl_string2561z00zz__r4_output_6_10_3z00, BgL_bgl_string2561za700za7za7_2794za7, "tprint", 6 );
DEFINE_STRING( BGl_string2724z00zz__r4_output_6_10_3z00, BgL_bgl_string2724za700za7za7_2795za7, "write/display-hvector", 21 );
DEFINE_STRING( BGl_string2643z00zz__r4_output_6_10_3z00, BgL_bgl_string2643za700za7za7_2796za7, "#u8:", 4 );
DEFINE_STRING( BGl_string2562z00zz__r4_output_6_10_3z00, BgL_bgl_string2562za700za7za7_2797za7, "newline", 7 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_newlinezd21zd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762newlineza7d21za7b2798za7, BGl_z62newlinezd21zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2644z00zz__r4_output_6_10_3z00, BgL_bgl_string2644za700za7za7_2799za7, "#s16:", 5 );
DEFINE_STRING( BGl_string2563z00zz__r4_output_6_10_3z00, BgL_bgl_string2563za700za7za7_2800za7, "wrong number of optional arguments", 34 );
DEFINE_STRING( BGl_string2645z00zz__r4_output_6_10_3z00, BgL_bgl_string2645za700za7za7_2801za7, "#u16:", 5 );
DEFINE_STRING( BGl_string2564z00zz__r4_output_6_10_3z00, BgL_bgl_string2564za700za7za7_2802za7, "/tmp/bigloo/runtime/Ieee/output.scm", 35 );
DEFINE_STRING( BGl_string2727z00zz__r4_output_6_10_3z00, BgL_bgl_string2727za700za7za7_2803za7, "vref", 4 );
DEFINE_STRING( BGl_string2646z00zz__r4_output_6_10_3z00, BgL_bgl_string2646za700za7za7_2804za7, "#s32:", 5 );
DEFINE_STRING( BGl_string2565z00zz__r4_output_6_10_3z00, BgL_bgl_string2565za700za7za7_2805za7, "output-port", 11 );
DEFINE_STRING( BGl_string2647z00zz__r4_output_6_10_3z00, BgL_bgl_string2647za700za7za7_2806za7, "#u32:", 5 );
DEFINE_STRING( BGl_string2566z00zz__r4_output_6_10_3z00, BgL_bgl_string2566za700za7za7_2807za7, "&newline-1", 10 );
DEFINE_STRING( BGl_string2729z00zz__r4_output_6_10_3z00, BgL_bgl_string2729za700za7za7_2808za7, "svec", 4 );
DEFINE_STRING( BGl_string2648z00zz__r4_output_6_10_3z00, BgL_bgl_string2648za700za7za7_2809za7, "#s64:", 5 );
DEFINE_STRING( BGl_string2567z00zz__r4_output_6_10_3z00, BgL_bgl_string2567za700za7za7_2810za7, "display", 7 );
DEFINE_STRING( BGl_string2649z00zz__r4_output_6_10_3z00, BgL_bgl_string2649za700za7za7_2811za7, "#u64:", 5 );
DEFINE_STRING( BGl_string2568z00zz__r4_output_6_10_3z00, BgL_bgl_string2568za700za7za7_2812za7, "write", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fprintfzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762fprintfza762za7za7_2813z00, va_generic_entry, BGl_z62fprintfz62zz__r4_output_6_10_3z00, BUNSPEC, -3 );
DEFINE_STRING( BGl_string2650z00zz__r4_output_6_10_3z00, BgL_bgl_string2650za700za7za7_2814za7, "&display-symbol", 15 );
DEFINE_STRING( BGl_string2732z00zz__r4_output_6_10_3z00, BgL_bgl_string2732za700za7za7_2815za7, "arg1718", 7 );
DEFINE_STRING( BGl_string2651z00zz__r4_output_6_10_3z00, BgL_bgl_string2651za700za7za7_2816za7, "symbol", 6 );
DEFINE_STRING( BGl_string2570z00zz__r4_output_6_10_3z00, BgL_bgl_string2570za700za7za7_2817za7, "write-char", 10 );
DEFINE_STRING( BGl_string2571z00zz__r4_output_6_10_3z00, BgL_bgl_string2571za700za7za7_2818za7, "wrong number of arguments: [1..2] expected, provided", 52 );
DEFINE_STRING( BGl_string2653z00zz__r4_output_6_10_3z00, BgL_bgl_string2653za700za7za7_2819za7, "+", 1 );
DEFINE_STRING( BGl_string2572z00zz__r4_output_6_10_3z00, BgL_bgl_string2572za700za7za7_2820za7, "_write-char", 11 );
DEFINE_STRING( BGl_string2735z00zz__r4_output_6_10_3z00, BgL_bgl_string2735za700za7za7_2821za7, "arg1720", 7 );
DEFINE_STRING( BGl_string2573z00zz__r4_output_6_10_3z00, BgL_bgl_string2573za700za7za7_2822za7, "bchar", 5 );
DEFINE_STRING( BGl_string2736z00zz__r4_output_6_10_3z00, BgL_bgl_string2736za700za7za7_2823za7, "__r4_output_6_10_3", 18 );
DEFINE_STRING( BGl_string2655z00zz__r4_output_6_10_3z00, BgL_bgl_string2655za700za7za7_2824za7, "-", 1 );
DEFINE_STRING( BGl_string2574z00zz__r4_output_6_10_3z00, BgL_bgl_string2574za700za7za7_2825za7, "&write-char-2", 13 );
DEFINE_STRING( BGl_string2656z00zz__r4_output_6_10_3z00, BgL_bgl_string2656za700za7za7_2826za7, "|", 1 );
DEFINE_STRING( BGl_string2657z00zz__r4_output_6_10_3z00, BgL_bgl_string2657za700za7za7_2827za7, "&write-symbol", 13 );
DEFINE_STRING( BGl_string2576z00zz__r4_output_6_10_3z00, BgL_bgl_string2576za700za7za7_2828za7, "write-byte", 10 );
DEFINE_STRING( BGl_string2658z00zz__r4_output_6_10_3z00, BgL_bgl_string2658za700za7za7_2829za7, "&display-string", 15 );
DEFINE_STRING( BGl_string2577z00zz__r4_output_6_10_3z00, BgL_bgl_string2577za700za7za7_2830za7, "_write-byte", 11 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_writezd2charzd2envz00zz__r4_output_6_10_3z00, BgL_bgl__writeza7d2charza7d22831z00, opt_generic_entry, BGl__writezd2charzd2zz__r4_output_6_10_3z00, BFALSE, -1 );
DEFINE_STRING( BGl_string2659z00zz__r4_output_6_10_3z00, BgL_bgl_string2659za700za7za7_2832za7, "Illegal index, start=~a end=~a", 30 );
DEFINE_STRING( BGl_string2578z00zz__r4_output_6_10_3z00, BgL_bgl_string2578za700za7za7_2833za7, "bint", 4 );
DEFINE_STRING( BGl_string2579z00zz__r4_output_6_10_3z00, BgL_bgl_string2579za700za7za7_2834za7, "&write-byte-2", 13 );
DEFINE_STRING( BGl_string2661z00zz__r4_output_6_10_3z00, BgL_bgl_string2661za700za7za7_2835za7, "display-substring", 17 );
DEFINE_STRING( BGl_string2580z00zz__r4_output_6_10_3z00, BgL_bgl_string2580za700za7za7_2836za7, "#Newline", 8 );
DEFINE_STRING( BGl_string2662z00zz__r4_output_6_10_3z00, BgL_bgl_string2662za700za7za7_2837za7, "&display-substring", 18 );
DEFINE_STRING( BGl_string2581z00zz__r4_output_6_10_3z00, BgL_bgl_string2581za700za7za7_2838za7, "#Return", 7 );
DEFINE_STRING( BGl_string2663z00zz__r4_output_6_10_3z00, BgL_bgl_string2663za700za7za7_2839za7, "&write-string", 13 );
DEFINE_STRING( BGl_string2582z00zz__r4_output_6_10_3z00, BgL_bgl_string2582za700za7za7_2840za7, "#Space", 6 );
DEFINE_STRING( BGl_string2664z00zz__r4_output_6_10_3z00, BgL_bgl_string2664za700za7za7_2841za7, "&display-fixnum", 15 );
DEFINE_STRING( BGl_string2583z00zz__r4_output_6_10_3z00, BgL_bgl_string2583za700za7za7_2842za7, "#Tab", 4 );
DEFINE_STRING( BGl_string2665z00zz__r4_output_6_10_3z00, BgL_bgl_string2665za700za7za7_2843za7, "&display-elong", 14 );
DEFINE_STRING( BGl_string2584z00zz__r4_output_6_10_3z00, BgL_bgl_string2584za700za7za7_2844za7, "&illegal-char-rep", 17 );
DEFINE_STRING( BGl_string2666z00zz__r4_output_6_10_3z00, BgL_bgl_string2666za700za7za7_2845za7, "belong", 6 );
DEFINE_STRING( BGl_string2585z00zz__r4_output_6_10_3z00, BgL_bgl_string2585za700za7za7_2846za7, "loop", 4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_writeza2zd2envz70zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7a2za7c0za7za72847za7, va_generic_entry, BGl_z62writeza2zc0zz__r4_output_6_10_3z00, BUNSPEC, -1 );
DEFINE_STRING( BGl_string2667z00zz__r4_output_6_10_3z00, BgL_bgl_string2667za700za7za7_2848za7, "&display-flonum", 15 );
DEFINE_STRING( BGl_string2586z00zz__r4_output_6_10_3z00, BgL_bgl_string2586za700za7za7_2849za7, "pair", 4 );
DEFINE_STRING( BGl_string2668z00zz__r4_output_6_10_3z00, BgL_bgl_string2668za700za7za7_2850za7, "real", 4 );
DEFINE_STRING( BGl_string2587z00zz__r4_output_6_10_3z00, BgL_bgl_string2587za700za7za7_2851za7, "&tprint", 7 );
DEFINE_STRING( BGl_string2669z00zz__r4_output_6_10_3z00, BgL_bgl_string2669za700za7za7_2852za7, "&display-ucs2string", 19 );
DEFINE_STRING( BGl_string2588z00zz__r4_output_6_10_3z00, BgL_bgl_string2588za700za7za7_2853za7, "&fprint", 7 );
DEFINE_STRING( BGl_string2589z00zz__r4_output_6_10_3z00, BgL_bgl_string2589za700za7za7_2854za7, "Insufficient number of arguments", 32 );
DEFINE_STRING( BGl_string2670z00zz__r4_output_6_10_3z00, BgL_bgl_string2670za700za7za7_2855za7, "ucs2string", 10 );
DEFINE_STRING( BGl_string2671z00zz__r4_output_6_10_3z00, BgL_bgl_string2671za700za7za7_2856za7, "&write-ucs2string", 17 );
DEFINE_STRING( BGl_string2590z00zz__r4_output_6_10_3z00, BgL_bgl_string2590za700za7za7_2857za7, "case_else1047", 13 );
DEFINE_STRING( BGl_string2672z00zz__r4_output_6_10_3z00, BgL_bgl_string2672za700za7za7_2858za7, "#<mutex:", 8 );
DEFINE_STRING( BGl_string2591z00zz__r4_output_6_10_3z00, BgL_bgl_string2591za700za7za7_2859za7, "Illegal tag \"", 13 );
DEFINE_STRING( BGl_string2673z00zz__r4_output_6_10_3z00, BgL_bgl_string2673za700za7za7_2860za7, "write-mutex", 11 );
DEFINE_STRING( BGl_string2592z00zz__r4_output_6_10_3z00, BgL_bgl_string2592za700za7za7_2861za7, "\"", 1 );
DEFINE_STRING( BGl_string2674z00zz__r4_output_6_10_3z00, BgL_bgl_string2674za700za7za7_2862za7, "mutex", 5 );
DEFINE_STRING( BGl_string2593z00zz__r4_output_6_10_3z00, BgL_bgl_string2593za700za7za7_2863za7, "handle-tag", 10 );
DEFINE_STRING( BGl_string2675z00zz__r4_output_6_10_3z00, BgL_bgl_string2675za700za7za7_2864za7, ":", 1 );
DEFINE_STRING( BGl_string2594z00zz__r4_output_6_10_3z00, BgL_bgl_string2594za700za7za7_2865za7, "Illegal char", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_writezd2charzd22zd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2charza72866za7, BGl_z62writezd2charzd22z62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string2676z00zz__r4_output_6_10_3z00, BgL_bgl_string2676za700za7za7_2867za7, "write/display-structure", 23 );
DEFINE_STRING( BGl_string2595z00zz__r4_output_6_10_3z00, BgL_bgl_string2595za700za7za7_2868za7, "number", 6 );
DEFINE_STRING( BGl_string2677z00zz__r4_output_6_10_3z00, BgL_bgl_string2677za700za7za7_2869za7, "write/display-structure:Wrong number of arguments", 49 );
DEFINE_STRING( BGl_string2596z00zz__r4_output_6_10_3z00, BgL_bgl_string2596za700za7za7_2870za7, " ", 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_displayzd2ucs2stringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2ucs2871z00, BGl_z62displayzd2ucs2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string2597z00zz__r4_output_6_10_3z00, BgL_bgl_string2597za700za7za7_2872za7, "0123456789", 10 );
DEFINE_STRING( BGl_string2598z00zz__r4_output_6_10_3z00, BgL_bgl_string2598za700za7za7_2873za7, "print-formatted-number", 22 );
DEFINE_STRING( BGl_string2599z00zz__r4_output_6_10_3z00, BgL_bgl_string2599za700za7za7_2874za7, "string-ref", 10 );
DEFINE_STRING( BGl_string2680z00zz__r4_output_6_10_3z00, BgL_bgl_string2680za700za7za7_2875za7, "funcall", 7 );
DEFINE_STRING( BGl_string2682z00zz__r4_output_6_10_3z00, BgL_bgl_string2682za700za7za7_2876za7, "disp", 4 );
DEFINE_STRING( BGl_string2684z00zz__r4_output_6_10_3z00, BgL_bgl_string2684za700za7za7_2877za7, "arg1669", 7 );
DEFINE_STRING( BGl_string2686z00zz__r4_output_6_10_3z00, BgL_bgl_string2686za700za7za7_2878za7, "port", 4 );
DEFINE_STRING( BGl_string2687z00zz__r4_output_6_10_3z00, BgL_bgl_string2687za700za7za7_2879za7, "loop:Wrong number of arguments", 30 );
DEFINE_STRING( BGl_string2690z00zz__r4_output_6_10_3z00, BgL_bgl_string2690za700za7za7_2880za7, "arg1675", 7 );
DEFINE_STRING( BGl_string2693z00zz__r4_output_6_10_3z00, BgL_bgl_string2693za700za7za7_2881za7, "arg1678", 7 );
DEFINE_STRING( BGl_string2694z00zz__r4_output_6_10_3z00, BgL_bgl_string2694za700za7za7_2882za7, "write/display-vector:Wrong number of arguments", 46 );
DEFINE_STRING( BGl_string2697z00zz__r4_output_6_10_3z00, BgL_bgl_string2697za700za7za7_2883za7, "tag", 3 );
DEFINE_STRING( BGl_string2698z00zz__r4_output_6_10_3z00, BgL_bgl_string2698za700za7za7_2884za7, "vector-ref", 10 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_writezd2symbolzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2symbo2885z00, BGl_z62writezd2symbolzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_displayzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762displayza762za7za7_2886z00, 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_za762displayza7d2elo2887z00, BGl_z62displayzd2elongzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_writezd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762writeza762za7za7__r2888z00, 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_za762displayza7d22za7b2889za7, BGl_z62displayzd22zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_newlinezd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762newlineza762za7za7_2890z00, 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_za762displayza7a2za7c02891za7, 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__2892z00, 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_za762writeza7d2ucs2s2893z00, BGl_z62writezd2ucs2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_writezd2bytezd2envz00zz__r4_output_6_10_3z00, BgL_bgl__writeza7d2byteza7d22894z00, 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_za762displayza7d2flo2895z00, BGl_z62displayzd2flonumzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fprintzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762fprintza762za7za7__2896z00, 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__r2897z00, 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_za762displayza7d2sym2898z00, BGl_z62displayzd2symbolzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_writezd2stringzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762writeza7d2strin2899z00, BGl_z62writezd2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_illegalzd2charzd2repzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl_za762illegalza7d2cha2900z00, BGl_z62illegalzd2charzd2repz62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_displayzd2fixnumzd2envz00zz__r4_output_6_10_3z00, BgL_bgl_za762displayza7d2fix2901z00, BGl_z62displayzd2fixnumzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2 );

/* 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_symbol2721z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2726z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2728z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2569z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2731z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2652z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2734z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2654z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2575z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2660z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2679z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2681z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2683z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2685z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2689z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2692z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2696z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2702z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2706z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2710z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2717z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2720z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2725z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2730z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2733z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2678z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2688z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2691z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2695z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_list2699z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2606z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2610z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2613z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2700z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2703z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2707z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2711z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2713z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2715z00zz__r4_output_6_10_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2718z00zz__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_4322, char * BgL_fromz00_4323)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00 = 
BBOOL(((bool_t)0)); 
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_symbol2569z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2570z00zz__r4_output_6_10_3z00); 
BGl_symbol2575z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2576z00zz__r4_output_6_10_3z00); 
BGl_symbol2606z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2607z00zz__r4_output_6_10_3z00); 
BGl_symbol2610z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2611z00zz__r4_output_6_10_3z00); 
BGl_symbol2613z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2614z00zz__r4_output_6_10_3z00); 
BGl_symbol2652z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2653z00zz__r4_output_6_10_3z00); 
BGl_symbol2654z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2655z00zz__r4_output_6_10_3z00); 
BGl_symbol2660z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2661z00zz__r4_output_6_10_3z00); 
BGl_symbol2679z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2680z00zz__r4_output_6_10_3z00); 
BGl_symbol2681z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2682z00zz__r4_output_6_10_3z00); 
BGl_symbol2683z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2684z00zz__r4_output_6_10_3z00); 
BGl_symbol2685z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2686z00zz__r4_output_6_10_3z00); 
BGl_list2678z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2683z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2689z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2690z00zz__r4_output_6_10_3z00); 
BGl_list2688z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2692z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2693z00zz__r4_output_6_10_3z00); 
BGl_list2691z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2692z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2696z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2697z00zz__r4_output_6_10_3z00); 
BGl_list2695z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2696z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2700z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2701z00zz__r4_output_6_10_3z00); 
BGl_list2699z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2700z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2703z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2704z00zz__r4_output_6_10_3z00); 
BGl_list2702z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2703z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2707z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2708z00zz__r4_output_6_10_3z00); 
BGl_list2706z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2707z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2711z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2712z00zz__r4_output_6_10_3z00); 
BGl_symbol2713z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2714z00zz__r4_output_6_10_3z00); 
BGl_symbol2715z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2716z00zz__r4_output_6_10_3z00); 
BGl_list2710z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2711z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2711z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2713z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2715z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2718z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2719z00zz__r4_output_6_10_3z00); 
BGl_list2717z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2718z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2721z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2722z00zz__r4_output_6_10_3z00); 
BGl_list2720z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2721z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2726z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2727z00zz__r4_output_6_10_3z00); 
BGl_symbol2728z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2729z00zz__r4_output_6_10_3z00); 
BGl_list2725z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2726z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2726z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2728z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2715z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2731z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2732z00zz__r4_output_6_10_3z00); 
BGl_list2730z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2731z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__r4_output_6_10_3z00, BNIL))))); 
BGl_symbol2734z00zz__r4_output_6_10_3z00 = 
bstring_to_symbol(BGl_string2735z00zz__r4_output_6_10_3z00); 
return ( 
BGl_list2733z00zz__r4_output_6_10_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2681z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2734z00zz__r4_output_6_10_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2685z00zz__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_string2561z00zz__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 259 */
{ /* Ieee/output.scm 260 */
 obj_t BgL_portz00_1611;
if(
NULLP(BgL_portz00_3))
{ /* Ieee/output.scm 262 */
 obj_t BgL_tmpz00_4427;
BgL_tmpz00_4427 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1611 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4427); }  else 
{ /* Ieee/output.scm 260 */
if(
PAIRP(BgL_portz00_3))
{ /* Ieee/output.scm 260 */
if(
NULLP(
CDR(
((obj_t)BgL_portz00_3))))
{ /* Ieee/output.scm 260 */
BgL_portz00_1611 = 
CAR(BgL_portz00_3); }  else 
{ /* Ieee/output.scm 260 */
BgL_portz00_1611 = 
BGl_errorz00zz__errorz00(BGl_string2562z00zz__r4_output_6_10_3z00, BGl_string2563z00zz__r4_output_6_10_3z00, BgL_portz00_3); } }  else 
{ /* Ieee/output.scm 260 */
BgL_portz00_1611 = 
BGl_errorz00zz__errorz00(BGl_string2562z00zz__r4_output_6_10_3z00, BGl_string2563z00zz__r4_output_6_10_3z00, BgL_portz00_3); } } 
{ /* Ieee/output.scm 269 */
 obj_t BgL_portz00_2806;
if(
OUTPUT_PORTP(BgL_portz00_1611))
{ /* Ieee/output.scm 269 */
BgL_portz00_2806 = BgL_portz00_1611; }  else 
{ 
 obj_t BgL_auxz00_4441;
BgL_auxz00_4441 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(10308L), BGl_string2562z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_1611); 
FAILURE(BgL_auxz00_4441,BFALSE,BFALSE);} 
return 
bgl_display_char(((unsigned char)10), BgL_portz00_2806);} } } 

}



/* &newline */
obj_t BGl_z62newlinez62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3877, obj_t BgL_portz00_3878)
{
{ /* Ieee/output.scm 259 */
return 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_portz00_3878);} 

}



/* newline-1 */
BGL_EXPORTED_DEF obj_t BGl_newlinezd21zd2zz__r4_output_6_10_3z00(obj_t BgL_portz00_4)
{
{ /* Ieee/output.scm 274 */
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_3879, obj_t BgL_portz00_3880)
{
{ /* Ieee/output.scm 274 */
{ /* Ieee/output.scm 275 */
 obj_t BgL_auxz00_4448;
if(
OUTPUT_PORTP(BgL_portz00_3880))
{ /* Ieee/output.scm 275 */
BgL_auxz00_4448 = BgL_portz00_3880
; }  else 
{ 
 obj_t BgL_auxz00_4451;
BgL_auxz00_4451 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(10587L), BGl_string2566z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3880); 
FAILURE(BgL_auxz00_4451,BFALSE,BFALSE);} 
return 
BGl_newlinezd21zd2zz__r4_output_6_10_3z00(BgL_auxz00_4448);} } 

}



/* 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 280 */
{ /* Ieee/output.scm 281 */
 obj_t BgL_portz00_1621;
if(
NULLP(BgL_portz00_6))
{ /* Ieee/output.scm 283 */
 obj_t BgL_tmpz00_4458;
BgL_tmpz00_4458 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1621 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4458); }  else 
{ /* Ieee/output.scm 281 */
if(
PAIRP(BgL_portz00_6))
{ /* Ieee/output.scm 281 */
if(
NULLP(
CDR(
((obj_t)BgL_portz00_6))))
{ /* Ieee/output.scm 281 */
BgL_portz00_1621 = 
CAR(BgL_portz00_6); }  else 
{ /* Ieee/output.scm 281 */
BgL_portz00_1621 = 
BGl_errorz00zz__errorz00(BGl_string2567z00zz__r4_output_6_10_3z00, BGl_string2563z00zz__r4_output_6_10_3z00, BgL_portz00_6); } }  else 
{ /* Ieee/output.scm 281 */
BgL_portz00_1621 = 
BGl_errorz00zz__errorz00(BGl_string2567z00zz__r4_output_6_10_3z00, BGl_string2563z00zz__r4_output_6_10_3z00, BgL_portz00_6); } } 
{ /* Ieee/output.scm 290 */
 obj_t BgL_auxz00_4470;
if(
OUTPUT_PORTP(BgL_portz00_1621))
{ /* Ieee/output.scm 290 */
BgL_auxz00_4470 = BgL_portz00_1621
; }  else 
{ 
 obj_t BgL_auxz00_4473;
BgL_auxz00_4473 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(11076L), BGl_string2567z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_1621); 
FAILURE(BgL_auxz00_4473,BFALSE,BFALSE);} 
return 
bgl_display_obj(BgL_objz00_5, BgL_auxz00_4470);} } } 

}



/* &display */
obj_t BGl_z62displayz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3881, obj_t BgL_objz00_3882, obj_t BgL_portz00_3883)
{
{ /* Ieee/output.scm 280 */
return 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_objz00_3882, BgL_portz00_3883);} 

}



/* 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 295 */
{ /* Ieee/output.scm 296 */
 obj_t BgL_portz00_1631;
if(
NULLP(BgL_portz00_8))
{ /* Ieee/output.scm 298 */
 obj_t BgL_tmpz00_4481;
BgL_tmpz00_4481 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1631 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4481); }  else 
{ /* Ieee/output.scm 296 */
if(
PAIRP(BgL_portz00_8))
{ /* Ieee/output.scm 296 */
if(
NULLP(
CDR(
((obj_t)BgL_portz00_8))))
{ /* Ieee/output.scm 296 */
BgL_portz00_1631 = 
CAR(BgL_portz00_8); }  else 
{ /* Ieee/output.scm 296 */
BgL_portz00_1631 = 
BGl_errorz00zz__errorz00(BGl_string2568z00zz__r4_output_6_10_3z00, BGl_string2563z00zz__r4_output_6_10_3z00, BgL_portz00_8); } }  else 
{ /* Ieee/output.scm 296 */
BgL_portz00_1631 = 
BGl_errorz00zz__errorz00(BGl_string2568z00zz__r4_output_6_10_3z00, BGl_string2563z00zz__r4_output_6_10_3z00, BgL_portz00_8); } } 
{ /* Ieee/output.scm 305 */
 obj_t BgL_auxz00_4493;
if(
OUTPUT_PORTP(BgL_portz00_1631))
{ /* Ieee/output.scm 305 */
BgL_auxz00_4493 = BgL_portz00_1631
; }  else 
{ 
 obj_t BgL_auxz00_4496;
BgL_auxz00_4496 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(11535L), BGl_string2568z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_1631); 
FAILURE(BgL_auxz00_4496,BFALSE,BFALSE);} 
return 
bgl_write_obj(BgL_objz00_7, BgL_auxz00_4493);} } } 

}



/* &write */
obj_t BGl_z62writez62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3884, obj_t BgL_objz00_3885, obj_t BgL_portz00_3886)
{
{ /* Ieee/output.scm 295 */
return 
BGl_writez00zz__r4_output_6_10_3z00(BgL_objz00_3885, BgL_portz00_3886);} 

}



/* _write-char */
obj_t BGl__writezd2charzd2zz__r4_output_6_10_3z00(obj_t BgL_env1163z00_12, obj_t BgL_opt1162z00_11)
{
{ /* Ieee/output.scm 310 */
{ /* Ieee/output.scm 310 */
 obj_t BgL_g1164z00_1641;
BgL_g1164z00_1641 = 
VECTOR_REF(BgL_opt1162z00_11,0L); 
{ 

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

{ /* Ieee/output.scm 310 */
 obj_t BgL_portz00_1644;
{ /* Ieee/output.scm 310 */
 obj_t BgL_tmpz00_4503;
BgL_tmpz00_4503 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1644 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4503); } 
{ /* Ieee/output.scm 310 */

{ /* Ieee/output.scm 310 */
 unsigned char BgL_charz00_2818;
{ /* Ieee/output.scm 310 */
 obj_t BgL_tmpz00_4506;
if(
CHARP(BgL_g1164z00_1641))
{ /* Ieee/output.scm 310 */
BgL_tmpz00_4506 = BgL_g1164z00_1641
; }  else 
{ 
 obj_t BgL_auxz00_4509;
BgL_auxz00_4509 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(11766L), BGl_string2572z00zz__r4_output_6_10_3z00, BGl_string2573z00zz__r4_output_6_10_3z00, BgL_g1164z00_1641); 
FAILURE(BgL_auxz00_4509,BFALSE,BFALSE);} 
BgL_charz00_2818 = 
CCHAR(BgL_tmpz00_4506); } 
return 
bgl_display_char(BgL_charz00_2818, BgL_portz00_1644);} } } break;case 2L : 

{ /* Ieee/output.scm 310 */
 obj_t BgL_portz00_1645;
BgL_portz00_1645 = 
VECTOR_REF(BgL_opt1162z00_11,1L); 
{ /* Ieee/output.scm 310 */

{ /* Ieee/output.scm 310 */
 unsigned char BgL_charz00_2821;
{ /* Ieee/output.scm 310 */
 obj_t BgL_tmpz00_4516;
if(
CHARP(BgL_g1164z00_1641))
{ /* Ieee/output.scm 310 */
BgL_tmpz00_4516 = BgL_g1164z00_1641
; }  else 
{ 
 obj_t BgL_auxz00_4519;
BgL_auxz00_4519 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(11766L), BGl_string2572z00zz__r4_output_6_10_3z00, BGl_string2573z00zz__r4_output_6_10_3z00, BgL_g1164z00_1641); 
FAILURE(BgL_auxz00_4519,BFALSE,BFALSE);} 
BgL_charz00_2821 = 
CCHAR(BgL_tmpz00_4516); } 
{ /* Ieee/output.scm 311 */
 obj_t BgL_portz00_2823;
if(
OUTPUT_PORTP(BgL_portz00_1645))
{ /* Ieee/output.scm 311 */
BgL_portz00_2823 = BgL_portz00_1645; }  else 
{ 
 obj_t BgL_auxz00_4526;
BgL_auxz00_4526 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(11854L), BGl_string2572z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_1645); 
FAILURE(BgL_auxz00_4526,BFALSE,BFALSE);} 
return 
bgl_display_char(BgL_charz00_2821, BgL_portz00_2823);} } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol2569z00zz__r4_output_6_10_3z00, BGl_string2571z00zz__r4_output_6_10_3z00, 
BINT(
VECTOR_LENGTH(BgL_opt1162z00_11)));} } } } 

}



/* 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 310 */
{ /* Ieee/output.scm 311 */
 obj_t BgL_portz00_2825;
if(
OUTPUT_PORTP(BgL_portz00_10))
{ /* Ieee/output.scm 311 */
BgL_portz00_2825 = BgL_portz00_10; }  else 
{ 
 obj_t BgL_auxz00_4538;
BgL_auxz00_4538 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(11854L), BGl_string2570z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_10); 
FAILURE(BgL_auxz00_4538,BFALSE,BFALSE);} 
return 
bgl_display_char(BgL_charz00_9, BgL_portz00_2825);} } 

}



/* 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 316 */
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_3887, obj_t BgL_charz00_3888, obj_t BgL_portz00_3889)
{
{ /* Ieee/output.scm 316 */
{ /* Ieee/output.scm 317 */
 obj_t BgL_auxz00_4553; unsigned char BgL_auxz00_4544;
if(
OUTPUT_PORTP(BgL_portz00_3889))
{ /* Ieee/output.scm 317 */
BgL_auxz00_4553 = BgL_portz00_3889
; }  else 
{ 
 obj_t BgL_auxz00_4556;
BgL_auxz00_4556 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(12147L), BGl_string2574z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3889); 
FAILURE(BgL_auxz00_4556,BFALSE,BFALSE);} 
{ /* Ieee/output.scm 317 */
 obj_t BgL_tmpz00_4545;
if(
CHARP(BgL_charz00_3888))
{ /* Ieee/output.scm 317 */
BgL_tmpz00_4545 = BgL_charz00_3888
; }  else 
{ 
 obj_t BgL_auxz00_4548;
BgL_auxz00_4548 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(12147L), BGl_string2574z00zz__r4_output_6_10_3z00, BGl_string2573z00zz__r4_output_6_10_3z00, BgL_charz00_3888); 
FAILURE(BgL_auxz00_4548,BFALSE,BFALSE);} 
BgL_auxz00_4544 = 
CCHAR(BgL_tmpz00_4545); } 
return 
BGl_writezd2charzd22z00zz__r4_output_6_10_3z00(BgL_auxz00_4544, BgL_auxz00_4553);} } 

}



/* _write-byte */
obj_t BGl__writezd2bytezd2zz__r4_output_6_10_3z00(obj_t BgL_env1168z00_18, obj_t BgL_opt1167z00_17)
{
{ /* Ieee/output.scm 322 */
{ /* Ieee/output.scm 322 */
 obj_t BgL_g1169z00_1647;
BgL_g1169z00_1647 = 
VECTOR_REF(BgL_opt1167z00_17,0L); 
{ 

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

{ /* Ieee/output.scm 322 */
 obj_t BgL_portz00_1650;
{ /* Ieee/output.scm 322 */
 obj_t BgL_tmpz00_4562;
BgL_tmpz00_4562 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1650 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4562); } 
{ /* Ieee/output.scm 322 */

{ /* Ieee/output.scm 322 */
 unsigned char BgL_bytez00_2827;
{ /* Ieee/output.scm 322 */
 obj_t BgL_tmpz00_4565;
if(
INTEGERP(BgL_g1169z00_1647))
{ /* Ieee/output.scm 322 */
BgL_tmpz00_4565 = BgL_g1169z00_1647
; }  else 
{ 
 obj_t BgL_auxz00_4568;
BgL_auxz00_4568 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(12398L), BGl_string2577z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_g1169z00_1647); 
FAILURE(BgL_auxz00_4568,BFALSE,BFALSE);} 
BgL_bytez00_2827 = 
(unsigned char)CINT(BgL_tmpz00_4565); } 
return 
bgl_display_char(BgL_bytez00_2827, BgL_portz00_1650);} } } break;case 2L : 

{ /* Ieee/output.scm 322 */
 obj_t BgL_portz00_1651;
BgL_portz00_1651 = 
VECTOR_REF(BgL_opt1167z00_17,1L); 
{ /* Ieee/output.scm 322 */

{ /* Ieee/output.scm 322 */
 unsigned char BgL_bytez00_2830;
{ /* Ieee/output.scm 322 */
 obj_t BgL_tmpz00_4575;
if(
INTEGERP(BgL_g1169z00_1647))
{ /* Ieee/output.scm 322 */
BgL_tmpz00_4575 = BgL_g1169z00_1647
; }  else 
{ 
 obj_t BgL_auxz00_4578;
BgL_auxz00_4578 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(12398L), BGl_string2577z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_g1169z00_1647); 
FAILURE(BgL_auxz00_4578,BFALSE,BFALSE);} 
BgL_bytez00_2830 = 
(unsigned char)CINT(BgL_tmpz00_4575); } 
{ /* Ieee/output.scm 323 */
 obj_t BgL_portz00_2832;
if(
OUTPUT_PORTP(BgL_portz00_1651))
{ /* Ieee/output.scm 323 */
BgL_portz00_2832 = BgL_portz00_1651; }  else 
{ 
 obj_t BgL_auxz00_4585;
BgL_auxz00_4585 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(12486L), BGl_string2577z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_1651); 
FAILURE(BgL_auxz00_4585,BFALSE,BFALSE);} 
return 
bgl_display_char(BgL_bytez00_2830, BgL_portz00_2832);} } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol2575z00zz__r4_output_6_10_3z00, BGl_string2571z00zz__r4_output_6_10_3z00, 
BINT(
VECTOR_LENGTH(BgL_opt1167z00_17)));} } } } 

}



/* 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 322 */
{ /* Ieee/output.scm 323 */
 obj_t BgL_portz00_2834;
if(
OUTPUT_PORTP(BgL_portz00_16))
{ /* Ieee/output.scm 323 */
BgL_portz00_2834 = BgL_portz00_16; }  else 
{ 
 obj_t BgL_auxz00_4597;
BgL_auxz00_4597 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(12486L), BGl_string2576z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_16); 
FAILURE(BgL_auxz00_4597,BFALSE,BFALSE);} 
return 
bgl_display_char(BgL_bytez00_15, BgL_portz00_2834);} } 

}



/* 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 328 */
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_3890, obj_t BgL_bytez00_3891, obj_t BgL_portz00_3892)
{
{ /* Ieee/output.scm 328 */
{ /* Ieee/output.scm 329 */
 obj_t BgL_auxz00_4612; unsigned char BgL_auxz00_4603;
if(
OUTPUT_PORTP(BgL_portz00_3892))
{ /* Ieee/output.scm 329 */
BgL_auxz00_4612 = BgL_portz00_3892
; }  else 
{ 
 obj_t BgL_auxz00_4615;
BgL_auxz00_4615 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(12779L), BGl_string2579z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3892); 
FAILURE(BgL_auxz00_4615,BFALSE,BFALSE);} 
{ /* Ieee/output.scm 329 */
 obj_t BgL_tmpz00_4604;
if(
INTEGERP(BgL_bytez00_3891))
{ /* Ieee/output.scm 329 */
BgL_tmpz00_4604 = BgL_bytez00_3891
; }  else 
{ 
 obj_t BgL_auxz00_4607;
BgL_auxz00_4607 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(12779L), BGl_string2579z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_bytez00_3891); 
FAILURE(BgL_auxz00_4607,BFALSE,BFALSE);} 
BgL_auxz00_4603 = 
(unsigned char)CINT(BgL_tmpz00_4604); } 
return 
BGl_writezd2bytezd22z00zz__r4_output_6_10_3z00(BgL_auxz00_4603, BgL_auxz00_4612);} } 

}



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

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

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

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

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

return BGl_string2583z00zz__r4_output_6_10_3z00;break;
default: 
{ /* Ieee/output.scm 347 */
 long BgL_iz00_1658;
BgL_iz00_1658 = 
(BgL_charz00_21); 
if(
(BgL_iz00_1658<33L))
{ /* Ieee/output.scm 348 */
BGL_TAIL return 
bgl_ill_char_rep(BgL_charz00_21);}  else 
{ /* Ieee/output.scm 348 */
return 
BCHAR(BgL_charz00_21);} } } } } } 

}



/* &illegal-char-rep */
obj_t BGl_z62illegalzd2charzd2repz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3893, obj_t BgL_charz00_3894)
{
{ /* Ieee/output.scm 334 */
{ /* Ieee/output.scm 335 */
 unsigned char BgL_auxz00_4631;
{ /* Ieee/output.scm 335 */
 obj_t BgL_tmpz00_4632;
if(
CHARP(BgL_charz00_3894))
{ /* Ieee/output.scm 335 */
BgL_tmpz00_4632 = BgL_charz00_3894
; }  else 
{ 
 obj_t BgL_auxz00_4635;
BgL_auxz00_4635 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(13064L), BGl_string2584z00zz__r4_output_6_10_3z00, BGl_string2573z00zz__r4_output_6_10_3z00, BgL_charz00_3894); 
FAILURE(BgL_auxz00_4635,BFALSE,BFALSE);} 
BgL_auxz00_4631 = 
CCHAR(BgL_tmpz00_4632); } 
return 
BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(BgL_auxz00_4631);} } 

}



/* print */
BGL_EXPORTED_DEF obj_t BGl_printz00zz__r4_output_6_10_3z00(obj_t BgL_objz00_22)
{
{ /* Ieee/output.scm 355 */
{ /* Ieee/output.scm 356 */
 obj_t BgL_portz00_1661;
{ /* Ieee/output.scm 356 */
 obj_t BgL_tmpz00_4641;
BgL_tmpz00_4641 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1661 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4641); } 
{ 
 obj_t BgL_lz00_1664; obj_t BgL_resz00_1665;
BgL_lz00_1664 = BgL_objz00_22; 
BgL_resz00_1665 = BNIL; 
BgL_zc3z04anonymousza31337ze3z87_1666:
if(
NULLP(BgL_lz00_1664))
{ /* Ieee/output.scm 359 */
bgl_display_char(((unsigned char)10), BgL_portz00_1661); 
return BgL_resz00_1665;}  else 
{ /* Ieee/output.scm 363 */
 obj_t BgL_vz00_1668;
{ /* Ieee/output.scm 363 */
 obj_t BgL_pairz00_2840;
if(
PAIRP(BgL_lz00_1664))
{ /* Ieee/output.scm 363 */
BgL_pairz00_2840 = BgL_lz00_1664; }  else 
{ 
 obj_t BgL_auxz00_4649;
BgL_auxz00_4649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(13804L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1664); 
FAILURE(BgL_auxz00_4649,BFALSE,BFALSE);} 
BgL_vz00_1668 = 
CAR(BgL_pairz00_2840); } 
bgl_display_obj(BgL_vz00_1668, BgL_portz00_1661); 
{ /* Ieee/output.scm 365 */
 obj_t BgL_arg1339z00_1669;
{ /* Ieee/output.scm 365 */
 obj_t BgL_pairz00_2841;
if(
PAIRP(BgL_lz00_1664))
{ /* Ieee/output.scm 365 */
BgL_pairz00_2841 = BgL_lz00_1664; }  else 
{ 
 obj_t BgL_auxz00_4657;
BgL_auxz00_4657 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(13843L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1664); 
FAILURE(BgL_auxz00_4657,BFALSE,BFALSE);} 
BgL_arg1339z00_1669 = 
CDR(BgL_pairz00_2841); } 
{ 
 obj_t BgL_resz00_4663; obj_t BgL_lz00_4662;
BgL_lz00_4662 = BgL_arg1339z00_1669; 
BgL_resz00_4663 = BgL_vz00_1668; 
BgL_resz00_1665 = BgL_resz00_4663; 
BgL_lz00_1664 = BgL_lz00_4662; 
goto BgL_zc3z04anonymousza31337ze3z87_1666;} } } } } } 

}



/* &print */
obj_t BGl_z62printz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3895, obj_t BgL_objz00_3896)
{
{ /* Ieee/output.scm 355 */
return 
BGl_printz00zz__r4_output_6_10_3z00(BgL_objz00_3896);} 

}



/* display* */
BGL_EXPORTED_DEF obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t BgL_objz00_23)
{
{ /* Ieee/output.scm 370 */
{ /* Ieee/output.scm 371 */
 obj_t BgL_portz00_1671;
{ /* Ieee/output.scm 371 */
 obj_t BgL_tmpz00_4665;
BgL_tmpz00_4665 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1671 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4665); } 
{ 
 obj_t BgL_lz00_1673;
BgL_lz00_1673 = BgL_objz00_23; 
BgL_zc3z04anonymousza31340ze3z87_1674:
if(
NULLP(BgL_lz00_1673))
{ /* Ieee/output.scm 373 */
return BUNSPEC;}  else 
{ /* Ieee/output.scm 373 */
{ /* Ieee/output.scm 376 */
 obj_t BgL_arg1342z00_1677;
{ /* Ieee/output.scm 376 */
 obj_t BgL_pairz00_2844;
if(
PAIRP(BgL_lz00_1673))
{ /* Ieee/output.scm 376 */
BgL_pairz00_2844 = BgL_lz00_1673; }  else 
{ 
 obj_t BgL_auxz00_4672;
BgL_auxz00_4672 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(14243L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1673); 
FAILURE(BgL_auxz00_4672,BFALSE,BFALSE);} 
BgL_arg1342z00_1677 = 
CAR(BgL_pairz00_2844); } 
bgl_display_obj(BgL_arg1342z00_1677, BgL_portz00_1671); } 
{ /* Ieee/output.scm 377 */
 obj_t BgL_arg1343z00_1678;
{ /* Ieee/output.scm 377 */
 obj_t BgL_pairz00_2845;
if(
PAIRP(BgL_lz00_1673))
{ /* Ieee/output.scm 377 */
BgL_pairz00_2845 = BgL_lz00_1673; }  else 
{ 
 obj_t BgL_auxz00_4680;
BgL_auxz00_4680 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(14265L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1673); 
FAILURE(BgL_auxz00_4680,BFALSE,BFALSE);} 
BgL_arg1343z00_1678 = 
CDR(BgL_pairz00_2845); } 
{ 
 obj_t BgL_lz00_4685;
BgL_lz00_4685 = BgL_arg1343z00_1678; 
BgL_lz00_1673 = BgL_lz00_4685; 
goto BgL_zc3z04anonymousza31340ze3z87_1674;} } } } } } 

}



/* &display* */
obj_t BGl_z62displayza2zc0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3897, obj_t BgL_objz00_3898)
{
{ /* Ieee/output.scm 370 */
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_objz00_3898);} 

}



/* write* */
BGL_EXPORTED_DEF obj_t BGl_writeza2za2zz__r4_output_6_10_3z00(obj_t BgL_objz00_24)
{
{ /* Ieee/output.scm 382 */
{ /* Ieee/output.scm 383 */
 obj_t BgL_portz00_1680;
{ /* Ieee/output.scm 383 */
 obj_t BgL_tmpz00_4687;
BgL_tmpz00_4687 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1680 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4687); } 
{ 
 obj_t BgL_lz00_1682;
BgL_lz00_1682 = BgL_objz00_24; 
BgL_zc3z04anonymousza31344ze3z87_1683:
if(
NULLP(BgL_lz00_1682))
{ /* Ieee/output.scm 385 */
return BUNSPEC;}  else 
{ /* Ieee/output.scm 385 */
{ /* Ieee/output.scm 388 */
 obj_t BgL_arg1346z00_1686;
{ /* Ieee/output.scm 388 */
 obj_t BgL_pairz00_2848;
if(
PAIRP(BgL_lz00_1682))
{ /* Ieee/output.scm 388 */
BgL_pairz00_2848 = BgL_lz00_1682; }  else 
{ 
 obj_t BgL_auxz00_4694;
BgL_auxz00_4694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(14661L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1682); 
FAILURE(BgL_auxz00_4694,BFALSE,BFALSE);} 
BgL_arg1346z00_1686 = 
CAR(BgL_pairz00_2848); } 
bgl_write_obj(BgL_arg1346z00_1686, BgL_portz00_1680); } 
{ /* Ieee/output.scm 389 */
 obj_t BgL_arg1347z00_1687;
{ /* Ieee/output.scm 389 */
 obj_t BgL_pairz00_2849;
if(
PAIRP(BgL_lz00_1682))
{ /* Ieee/output.scm 389 */
BgL_pairz00_2849 = BgL_lz00_1682; }  else 
{ 
 obj_t BgL_auxz00_4702;
BgL_auxz00_4702 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(14683L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1682); 
FAILURE(BgL_auxz00_4702,BFALSE,BFALSE);} 
BgL_arg1347z00_1687 = 
CDR(BgL_pairz00_2849); } 
{ 
 obj_t BgL_lz00_4707;
BgL_lz00_4707 = BgL_arg1347z00_1687; 
BgL_lz00_1682 = BgL_lz00_4707; 
goto BgL_zc3z04anonymousza31344ze3z87_1683;} } } } } } 

}



/* &write* */
obj_t BGl_z62writeza2zc0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3899, obj_t BgL_objz00_3900)
{
{ /* Ieee/output.scm 382 */
return 
BGl_writeza2za2zz__r4_output_6_10_3z00(BgL_objz00_3900);} 

}



/* 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 399 */
{ /* Ieee/output.scm 400 */
 obj_t BgL_top2942z00_4710;
BgL_top2942z00_4710 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00); 
BGL_EXITD_PUSH_PROTECT(BgL_top2942z00_4710, BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00); BUNSPEC; 
{ /* Ieee/output.scm 400 */
 obj_t BgL_tmp2941z00_4709;
{ /* Ieee/output.scm 401 */
 obj_t BgL_runner1350z00_1691;
{ /* Ieee/output.scm 401 */
 obj_t BgL_list1348z00_1689;
BgL_list1348z00_1689 = 
MAKE_YOUNG_PAIR(BgL_objz00_26, BNIL); 
BgL_runner1350z00_1691 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_portz00_25, BgL_list1348z00_1689); } 
{ /* Ieee/output.scm 401 */
 obj_t BgL_aux1349z00_1690;
{ /* Ieee/output.scm 401 */
 obj_t BgL_pairz00_2850;
{ /* Ieee/output.scm 401 */
 obj_t BgL_aux2310z00_4048;
BgL_aux2310z00_4048 = BgL_runner1350z00_1691; 
if(
PAIRP(BgL_aux2310z00_4048))
{ /* Ieee/output.scm 401 */
BgL_pairz00_2850 = BgL_aux2310z00_4048; }  else 
{ 
 obj_t BgL_auxz00_4718;
BgL_auxz00_4718 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(15245L), BGl_string2561z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_aux2310z00_4048); 
FAILURE(BgL_auxz00_4718,BFALSE,BFALSE);} } 
{ /* Ieee/output.scm 401 */
 obj_t BgL_aux2312z00_4050;
BgL_aux2312z00_4050 = 
CAR(BgL_pairz00_2850); 
if(
OUTPUT_PORTP(BgL_aux2312z00_4050))
{ /* Ieee/output.scm 401 */
BgL_aux1349z00_1690 = BgL_aux2312z00_4050; }  else 
{ 
 obj_t BgL_auxz00_4725;
BgL_auxz00_4725 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(15245L), BGl_string2561z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_aux2312z00_4050); 
FAILURE(BgL_auxz00_4725,BFALSE,BFALSE);} } } 
{ /* Ieee/output.scm 401 */
 obj_t BgL_pairz00_2851;
{ /* Ieee/output.scm 401 */
 obj_t BgL_aux2314z00_4052;
BgL_aux2314z00_4052 = BgL_runner1350z00_1691; 
if(
PAIRP(BgL_aux2314z00_4052))
{ /* Ieee/output.scm 401 */
BgL_pairz00_2851 = BgL_aux2314z00_4052; }  else 
{ 
 obj_t BgL_auxz00_4731;
BgL_auxz00_4731 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(15245L), BGl_string2561z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_aux2314z00_4052); 
FAILURE(BgL_auxz00_4731,BFALSE,BFALSE);} } 
BgL_runner1350z00_1691 = 
CDR(BgL_pairz00_2851); } 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_aux1349z00_1690, BgL_runner1350z00_1691); } } 
BgL_tmp2941z00_4709 = 
bgl_flush_output_port(BgL_portz00_25); 
BGL_EXITD_POP_PROTECT(BgL_top2942z00_4710); BUNSPEC; 
BGL_MUTEX_UNLOCK(BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00); 
return BgL_tmp2941z00_4709;} } } 

}



/* &tprint */
obj_t BGl_z62tprintz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3901, obj_t BgL_portz00_3902, obj_t BgL_objz00_3903)
{
{ /* Ieee/output.scm 399 */
{ /* Ieee/output.scm 400 */
 obj_t BgL_auxz00_4740;
if(
OUTPUT_PORTP(BgL_portz00_3902))
{ /* Ieee/output.scm 400 */
BgL_auxz00_4740 = BgL_portz00_3902
; }  else 
{ 
 obj_t BgL_auxz00_4743;
BgL_auxz00_4743 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(15213L), BGl_string2587z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3902); 
FAILURE(BgL_auxz00_4743,BFALSE,BFALSE);} 
return 
BGl_tprintz00zz__r4_output_6_10_3z00(BgL_auxz00_4740, BgL_objz00_3903);} } 

}



/* 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 407 */
{ 
 obj_t BgL_lz00_1694; obj_t BgL_resz00_1695;
BgL_lz00_1694 = BgL_objz00_28; 
BgL_resz00_1695 = BNIL; 
BgL_zc3z04anonymousza31351ze3z87_1696:
if(
NULLP(BgL_lz00_1694))
{ /* Ieee/output.scm 410 */
bgl_display_char(((unsigned char)10), BgL_portz00_27); 
return BgL_resz00_1695;}  else 
{ /* Ieee/output.scm 414 */
 obj_t BgL_vz00_1698;
{ /* Ieee/output.scm 414 */
 obj_t BgL_pairz00_2853;
if(
PAIRP(BgL_lz00_1694))
{ /* Ieee/output.scm 414 */
BgL_pairz00_2853 = BgL_lz00_1694; }  else 
{ 
 obj_t BgL_auxz00_4753;
BgL_auxz00_4753 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(15688L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1694); 
FAILURE(BgL_auxz00_4753,BFALSE,BFALSE);} 
BgL_vz00_1698 = 
CAR(BgL_pairz00_2853); } 
{ /* Ieee/output.scm 415 */
 obj_t BgL_arg1353z00_1699;
{ /* Ieee/output.scm 415 */
 obj_t BgL_pairz00_2854;
if(
PAIRP(BgL_lz00_1694))
{ /* Ieee/output.scm 415 */
BgL_pairz00_2854 = BgL_lz00_1694; }  else 
{ 
 obj_t BgL_auxz00_4760;
BgL_auxz00_4760 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(15715L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1694); 
FAILURE(BgL_auxz00_4760,BFALSE,BFALSE);} 
BgL_arg1353z00_1699 = 
CAR(BgL_pairz00_2854); } 
bgl_display_obj(BgL_arg1353z00_1699, BgL_portz00_27); } 
{ /* Ieee/output.scm 416 */
 obj_t BgL_arg1354z00_1700;
{ /* Ieee/output.scm 416 */
 obj_t BgL_pairz00_2855;
if(
PAIRP(BgL_lz00_1694))
{ /* Ieee/output.scm 416 */
BgL_pairz00_2855 = BgL_lz00_1694; }  else 
{ 
 obj_t BgL_auxz00_4768;
BgL_auxz00_4768 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(15741L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1694); 
FAILURE(BgL_auxz00_4768,BFALSE,BFALSE);} 
BgL_arg1354z00_1700 = 
CDR(BgL_pairz00_2855); } 
{ 
 obj_t BgL_resz00_4774; obj_t BgL_lz00_4773;
BgL_lz00_4773 = BgL_arg1354z00_1700; 
BgL_resz00_4774 = BgL_vz00_1698; 
BgL_resz00_1695 = BgL_resz00_4774; 
BgL_lz00_1694 = BgL_lz00_4773; 
goto BgL_zc3z04anonymousza31351ze3z87_1696;} } } } } 

}



/* &fprint */
obj_t BGl_z62fprintz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3904, obj_t BgL_portz00_3905, obj_t BgL_objz00_3906)
{
{ /* Ieee/output.scm 407 */
{ /* Ieee/output.scm 410 */
 obj_t BgL_auxz00_4775;
if(
OUTPUT_PORTP(BgL_portz00_3905))
{ /* Ieee/output.scm 410 */
BgL_auxz00_4775 = BgL_portz00_3905
; }  else 
{ 
 obj_t BgL_auxz00_4778;
BgL_auxz00_4778 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(15599L), BGl_string2588z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3905); 
FAILURE(BgL_auxz00_4778,BFALSE,BFALSE);} 
return 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_auxz00_4775, BgL_objz00_3906);} } 

}



/* 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 421 */
{ /* Ieee/output.scm 422 */
 long BgL_lenz00_1702;
BgL_lenz00_1702 = 
STRING_LENGTH(BgL__fmtz00_31); 
{ 
 obj_t BgL_iz00_1704; obj_t BgL_osz00_1705;
BgL_iz00_1704 = 
BINT(0L); 
BgL_osz00_1705 = BgL_objsz00_32; 
BgL_zc3z04anonymousza31355ze3z87_1706:
{ 
 long BgL_iz00_1765; obj_t BgL_lz00_1766; obj_t BgL_pz00_1767; obj_t BgL_iz00_1772; obj_t BgL_numz00_1773; long BgL_mincolz00_1774; unsigned char BgL_paddingz00_1775; long BgL_iz00_1786; obj_t BgL_numz00_1787; obj_t BgL_pz00_1788; unsigned char BgL_fz00_1805; long BgL_iz00_1806; bool_t BgL_altzf3zf3_1807;
{ /* Ieee/output.scm 559 */
 bool_t BgL_test2952z00_4784;
{ /* Ieee/output.scm 559 */
 long BgL_n1z00_2960;
{ /* Ieee/output.scm 559 */
 obj_t BgL_tmpz00_4785;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 559 */
BgL_tmpz00_4785 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_4788;
BgL_auxz00_4788 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19696L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_4788,BFALSE,BFALSE);} 
BgL_n1z00_2960 = 
(long)CINT(BgL_tmpz00_4785); } 
BgL_test2952z00_4784 = 
(BgL_n1z00_2960<BgL_lenz00_1702); } 
if(BgL_test2952z00_4784)
{ /* Ieee/output.scm 560 */
 unsigned char BgL_cz00_1715;
{ /* Ieee/output.scm 560 */
 long BgL_kz00_2963;
{ /* Ieee/output.scm 560 */
 obj_t BgL_tmpz00_4794;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 560 */
BgL_tmpz00_4794 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_4797;
BgL_auxz00_4797 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19735L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_4797,BFALSE,BFALSE);} 
BgL_kz00_2963 = 
(long)CINT(BgL_tmpz00_4794); } 
{ /* Ieee/output.scm 560 */
 long BgL_l2231z00_3969;
BgL_l2231z00_3969 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_kz00_2963, BgL_l2231z00_3969))
{ /* Ieee/output.scm 560 */
BgL_cz00_1715 = 
STRING_REF(BgL__fmtz00_31, BgL_kz00_2963); }  else 
{ 
 obj_t BgL_auxz00_4806;
BgL_auxz00_4806 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19718L), BGl_string2599z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2231z00_3969), 
(int)(BgL_kz00_2963)); 
FAILURE(BgL_auxz00_4806,BFALSE,BFALSE);} } } 
if(
(BgL_cz00_1715==((unsigned char)'~')))
{ /* Ieee/output.scm 563 */
 bool_t BgL_test2957z00_4814;
{ /* Ieee/output.scm 563 */
 long BgL_n1z00_2967;
{ /* Ieee/output.scm 563 */
 obj_t BgL_tmpz00_4815;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 563 */
BgL_tmpz00_4815 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_4818;
BgL_auxz00_4818 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19788L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_4818,BFALSE,BFALSE);} 
BgL_n1z00_2967 = 
(long)CINT(BgL_tmpz00_4815); } 
BgL_test2957z00_4814 = 
(BgL_n1z00_2967==
(BgL_lenz00_1702-1L)); } 
if(BgL_test2957z00_4814)
{ /* Ieee/output.scm 566 */
 obj_t BgL_arg1360z00_1719;
{ /* Ieee/output.scm 566 */
 long BgL_auxz00_4825;
{ /* Ieee/output.scm 566 */
 obj_t BgL_tmpz00_4826;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 566 */
BgL_tmpz00_4826 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_4829;
BgL_auxz00_4829 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19857L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_4829,BFALSE,BFALSE);} 
BgL_auxz00_4825 = 
(long)CINT(BgL_tmpz00_4826); } 
BgL_arg1360z00_1719 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL__fmtz00_31, BgL_auxz00_4825, BgL_lenz00_1702); } 
return 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2604z00zz__r4_output_6_10_3z00, BgL_arg1360z00_1719);}  else 
{ /* Ieee/output.scm 567 */
 bool_t BgL_test2960z00_4836;
{ /* Ieee/output.scm 567 */
 unsigned char BgL_tmpz00_4837;
{ /* Ieee/output.scm 567 */
 long BgL_i2234z00_3972;
{ /* Ieee/output.scm 567 */
 long BgL_za71za7_2969;
{ /* Ieee/output.scm 567 */
 obj_t BgL_tmpz00_4838;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 567 */
BgL_tmpz00_4838 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_4841;
BgL_auxz00_4841 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19926L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_4841,BFALSE,BFALSE);} 
BgL_za71za7_2969 = 
(long)CINT(BgL_tmpz00_4838); } 
BgL_i2234z00_3972 = 
(BgL_za71za7_2969+1L); } 
{ /* Ieee/output.scm 567 */
 long BgL_l2235z00_3973;
BgL_l2235z00_3973 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_i2234z00_3972, BgL_l2235z00_3973))
{ /* Ieee/output.scm 567 */
BgL_tmpz00_4837 = 
STRING_REF(BgL__fmtz00_31, BgL_i2234z00_3972)
; }  else 
{ 
 obj_t BgL_auxz00_4851;
BgL_auxz00_4851 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19904L), BGl_string2599z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2235z00_3973), 
(int)(BgL_i2234z00_3972)); 
FAILURE(BgL_auxz00_4851,BFALSE,BFALSE);} } } 
BgL_test2960z00_4836 = 
(((unsigned char)':')==BgL_tmpz00_4837); } 
if(BgL_test2960z00_4836)
{ /* Ieee/output.scm 568 */
 bool_t BgL_test2963z00_4858;
{ /* Ieee/output.scm 568 */
 long BgL_n1z00_2975;
{ /* Ieee/output.scm 568 */
 obj_t BgL_tmpz00_4859;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 568 */
BgL_tmpz00_4859 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_4862;
BgL_auxz00_4862 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19945L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_4862,BFALSE,BFALSE);} 
BgL_n1z00_2975 = 
(long)CINT(BgL_tmpz00_4859); } 
BgL_test2963z00_4858 = 
(BgL_n1z00_2975==
(BgL_lenz00_1702-2L)); } 
if(BgL_test2963z00_4858)
{ /* Ieee/output.scm 571 */
 obj_t BgL_arg1366z00_1725;
{ /* Ieee/output.scm 571 */
 long BgL_auxz00_4869;
{ /* Ieee/output.scm 571 */
 obj_t BgL_tmpz00_4870;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 571 */
BgL_tmpz00_4870 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_4873;
BgL_auxz00_4873 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20026L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_4873,BFALSE,BFALSE);} 
BgL_auxz00_4869 = 
(long)CINT(BgL_tmpz00_4870); } 
BgL_arg1366z00_1725 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL__fmtz00_31, BgL_auxz00_4869, BgL_lenz00_1702); } 
return 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2604z00zz__r4_output_6_10_3z00, BgL_arg1366z00_1725);}  else 
{ /* Ieee/output.scm 572 */
 unsigned char BgL_arg1367z00_1726; long BgL_arg1368z00_1727;
{ /* Ieee/output.scm 572 */
 long BgL_i2238z00_3976;
{ /* Ieee/output.scm 572 */
 long BgL_za71za7_2977;
{ /* Ieee/output.scm 572 */
 obj_t BgL_tmpz00_4880;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 572 */
BgL_tmpz00_4880 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_4883;
BgL_auxz00_4883 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20091L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_4883,BFALSE,BFALSE);} 
BgL_za71za7_2977 = 
(long)CINT(BgL_tmpz00_4880); } 
BgL_i2238z00_3976 = 
(BgL_za71za7_2977+2L); } 
{ /* Ieee/output.scm 572 */
 long BgL_l2239z00_3977;
BgL_l2239z00_3977 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_i2238z00_3976, BgL_l2239z00_3977))
{ /* Ieee/output.scm 572 */
BgL_arg1367z00_1726 = 
STRING_REF(BgL__fmtz00_31, BgL_i2238z00_3976); }  else 
{ 
 obj_t BgL_auxz00_4893;
BgL_auxz00_4893 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20069L), BGl_string2599z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2239z00_3977), 
(int)(BgL_i2238z00_3976)); 
FAILURE(BgL_auxz00_4893,BFALSE,BFALSE);} } } 
{ /* Ieee/output.scm 573 */
 long BgL_za71za7_2980;
{ /* Ieee/output.scm 573 */
 obj_t BgL_tmpz00_4899;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 573 */
BgL_tmpz00_4899 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_4902;
BgL_auxz00_4902 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20112L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_4902,BFALSE,BFALSE);} 
BgL_za71za7_2980 = 
(long)CINT(BgL_tmpz00_4899); } 
BgL_arg1368z00_1727 = 
(BgL_za71za7_2980+2L); } 
BgL_fz00_1805 = BgL_arg1367z00_1726; 
BgL_iz00_1806 = BgL_arg1368z00_1727; 
BgL_altzf3zf3_1807 = ((bool_t)1); 
BgL_zc3z04anonymousza31420ze3z87_1808:
{ 

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

if(BgL_altzf3zf3_1807)
{ /* Ieee/output.scm 503 */
 obj_t BgL_arg1422z00_1812;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1422z00_1812 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2897;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2897 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_4915;
BgL_auxz00_4915 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_4915,BFALSE,BFALSE);} 
BgL_arg1422z00_1812 = 
CAR(BgL_pairz00_2897); } 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1422z00_1812, BgL_pz00_30); }  else 
{ /* Ieee/output.scm 504 */
 obj_t BgL_arg1423z00_1813;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1423z00_1813 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2899;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2899 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_4927;
BgL_auxz00_4927 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_4927,BFALSE,BFALSE);} 
BgL_arg1423z00_1813 = 
CAR(BgL_pairz00_2899); } 
bgl_display_obj(BgL_arg1423z00_1813, BgL_pz00_30); } 
{ /* Ieee/output.scm 505 */
 long BgL_arg1424z00_1814; obj_t BgL_arg1425z00_1815;
BgL_arg1424z00_1814 = 
(BgL_iz00_1806+1L); 
{ /* Ieee/output.scm 505 */
 obj_t BgL_pairz00_2901;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 505 */
BgL_pairz00_2901 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_4936;
BgL_auxz00_4936 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(18345L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_4936,BFALSE,BFALSE);} 
BgL_arg1425z00_1815 = 
CDR(BgL_pairz00_2901); } 
{ 
 obj_t BgL_osz00_4943; obj_t BgL_iz00_4941;
BgL_iz00_4941 = 
BINT(BgL_arg1424z00_1814); 
BgL_osz00_4943 = BgL_arg1425z00_1815; 
BgL_osz00_1705 = BgL_osz00_4943; 
BgL_iz00_1704 = BgL_iz00_4941; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } break;case ((unsigned char)'s') : 
case ((unsigned char)'S') : 

if(BgL_altzf3zf3_1807)
{ /* Ieee/output.scm 508 */
 obj_t BgL_arg1426z00_1816;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1426z00_1816 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2903;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2903 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_4951;
BgL_auxz00_4951 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_4951,BFALSE,BFALSE);} 
BgL_arg1426z00_1816 = 
CAR(BgL_pairz00_2903); } 
BGl_writezd2circlezd2zz__pp_circlez00(BgL_arg1426z00_1816, BgL_pz00_30); }  else 
{ /* Ieee/output.scm 509 */
 obj_t BgL_arg1427z00_1817;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1427z00_1817 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2905;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2905 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_4963;
BgL_auxz00_4963 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_4963,BFALSE,BFALSE);} 
BgL_arg1427z00_1817 = 
CAR(BgL_pairz00_2905); } 
{ /* Ieee/output.scm 509 */
 obj_t BgL_list1428z00_1818;
BgL_list1428z00_1818 = 
MAKE_YOUNG_PAIR(BgL_pz00_30, BNIL); 
BGl_writez00zz__r4_output_6_10_3z00(BgL_arg1427z00_1817, BgL_list1428z00_1818); } } 
{ /* Ieee/output.scm 510 */
 long BgL_arg1430z00_1819; obj_t BgL_arg1431z00_1820;
BgL_arg1430z00_1819 = 
(BgL_iz00_1806+1L); 
{ /* Ieee/output.scm 510 */
 obj_t BgL_pairz00_2907;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 510 */
BgL_pairz00_2907 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_4973;
BgL_auxz00_4973 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(18468L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_4973,BFALSE,BFALSE);} 
BgL_arg1431z00_1820 = 
CDR(BgL_pairz00_2907); } 
{ 
 obj_t BgL_osz00_4980; obj_t BgL_iz00_4978;
BgL_iz00_4978 = 
BINT(BgL_arg1430z00_1819); 
BgL_osz00_4980 = BgL_arg1431z00_1820; 
BgL_osz00_1705 = BgL_osz00_4980; 
BgL_iz00_1704 = BgL_iz00_4978; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } break;case ((unsigned char)'v') : 
case ((unsigned char)'V') : 

if(BgL_altzf3zf3_1807)
{ /* Ieee/output.scm 513 */
 obj_t BgL_arg1432z00_1821;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1432z00_1821 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2909;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2909 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_4988;
BgL_auxz00_4988 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_4988,BFALSE,BFALSE);} 
BgL_arg1432z00_1821 = 
CAR(BgL_pairz00_2909); } 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1432z00_1821, BgL_pz00_30); }  else 
{ /* Ieee/output.scm 514 */
 obj_t BgL_arg1433z00_1822;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1433z00_1822 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2911;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2911 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5000;
BgL_auxz00_5000 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5000,BFALSE,BFALSE);} 
BgL_arg1433z00_1822 = 
CAR(BgL_pairz00_2911); } 
bgl_display_obj(BgL_arg1433z00_1822, BgL_pz00_30); } 
bgl_display_char(((unsigned char)10), BgL_pz00_30); 
{ /* Ieee/output.scm 516 */
 long BgL_arg1434z00_1823; obj_t BgL_arg1435z00_1824;
BgL_arg1434z00_1823 = 
(BgL_iz00_1806+1L); 
{ /* Ieee/output.scm 516 */
 obj_t BgL_pairz00_2914;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 516 */
BgL_pairz00_2914 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5010;
BgL_auxz00_5010 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(18609L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5010,BFALSE,BFALSE);} 
BgL_arg1435z00_1824 = 
CDR(BgL_pairz00_2914); } 
{ 
 obj_t BgL_osz00_5017; obj_t BgL_iz00_5015;
BgL_iz00_5015 = 
BINT(BgL_arg1434z00_1823); 
BgL_osz00_5017 = BgL_arg1435z00_1824; 
BgL_osz00_1705 = BgL_osz00_5017; 
BgL_iz00_1704 = BgL_iz00_5015; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } break;case ((unsigned char)'c') : 
case ((unsigned char)'C') : 

{ /* Ieee/output.scm 518 */
 obj_t BgL_oz00_1825;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_oz00_1825 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2916;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2916 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5024;
BgL_auxz00_5024 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5024,BFALSE,BFALSE);} 
BgL_oz00_1825 = 
CAR(BgL_pairz00_2916); } 
if(
CHARP(BgL_oz00_1825))
{ /* Ieee/output.scm 519 */
{ /* Ieee/output.scm 317 */
 unsigned char BgL_tmpz00_5031;
BgL_tmpz00_5031 = 
CCHAR(BgL_oz00_1825); 
bgl_display_char(BgL_tmpz00_5031, BgL_pz00_30); } 
{ /* Ieee/output.scm 523 */
 long BgL_arg1437z00_1827; obj_t BgL_arg1438z00_1828;
BgL_arg1437z00_1827 = 
(BgL_iz00_1806+1L); 
{ /* Ieee/output.scm 523 */
 obj_t BgL_pairz00_2920;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 523 */
BgL_pairz00_2920 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5037;
BgL_auxz00_5037 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(18791L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5037,BFALSE,BFALSE);} 
BgL_arg1438z00_1828 = 
CDR(BgL_pairz00_2920); } 
{ 
 obj_t BgL_osz00_5044; obj_t BgL_iz00_5042;
BgL_iz00_5042 = 
BINT(BgL_arg1437z00_1827); 
BgL_osz00_5044 = BgL_arg1438z00_1828; 
BgL_osz00_1705 = BgL_osz00_5044; 
BgL_iz00_1704 = BgL_iz00_5042; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } }  else 
{ /* Ieee/output.scm 519 */
return 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2594z00zz__r4_output_6_10_3z00, BgL_oz00_1825);} } break;case ((unsigned char)'d') : 
case ((unsigned char)'D') : 

{ /* Ieee/output.scm 525 */
 obj_t BgL_arg1439z00_1829;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1439z00_1829 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2922;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2922 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5052;
BgL_auxz00_5052 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5052,BFALSE,BFALSE);} 
BgL_arg1439z00_1829 = 
CAR(BgL_pairz00_2922); } 
if(
BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1439z00_1829))
{ /* Ieee/output.scm 432 */
bgl_display_obj(
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1439z00_1829, 
BINT(10L)), BgL_pz00_30); }  else 
{ /* Ieee/output.scm 432 */
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2595z00zz__r4_output_6_10_3z00, BgL_arg1439z00_1829); } } 
{ /* Ieee/output.scm 526 */
 long BgL_arg1440z00_1830; obj_t BgL_arg1441z00_1831;
BgL_arg1440z00_1830 = 
(BgL_iz00_1806+1L); 
{ /* Ieee/output.scm 526 */
 obj_t BgL_pairz00_2926;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 526 */
BgL_pairz00_2926 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5066;
BgL_auxz00_5066 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(18873L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5066,BFALSE,BFALSE);} 
BgL_arg1441z00_1831 = 
CDR(BgL_pairz00_2926); } 
{ 
 obj_t BgL_osz00_5073; obj_t BgL_iz00_5071;
BgL_iz00_5071 = 
BINT(BgL_arg1440z00_1830); 
BgL_osz00_5073 = BgL_arg1441z00_1831; 
BgL_osz00_1705 = BgL_osz00_5073; 
BgL_iz00_1704 = BgL_iz00_5071; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } break;case ((unsigned char)'x') : 
case ((unsigned char)'X') : 

{ /* Ieee/output.scm 528 */
 obj_t BgL_arg1442z00_1832;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1442z00_1832 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2928;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2928 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5080;
BgL_auxz00_5080 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5080,BFALSE,BFALSE);} 
BgL_arg1442z00_1832 = 
CAR(BgL_pairz00_2928); } 
if(
BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1442z00_1832))
{ /* Ieee/output.scm 432 */
bgl_display_obj(
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1442z00_1832, 
BINT(16L)), BgL_pz00_30); }  else 
{ /* Ieee/output.scm 432 */
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2595z00zz__r4_output_6_10_3z00, BgL_arg1442z00_1832); } } 
{ /* Ieee/output.scm 529 */
 long BgL_arg1443z00_1833; obj_t BgL_arg1444z00_1834;
BgL_arg1443z00_1833 = 
(BgL_iz00_1806+1L); 
{ /* Ieee/output.scm 529 */
 obj_t BgL_pairz00_2932;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 529 */
BgL_pairz00_2932 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5094;
BgL_auxz00_5094 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(18952L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5094,BFALSE,BFALSE);} 
BgL_arg1444z00_1834 = 
CDR(BgL_pairz00_2932); } 
{ 
 obj_t BgL_osz00_5101; obj_t BgL_iz00_5099;
BgL_iz00_5099 = 
BINT(BgL_arg1443z00_1833); 
BgL_osz00_5101 = BgL_arg1444z00_1834; 
BgL_osz00_1705 = BgL_osz00_5101; 
BgL_iz00_1704 = BgL_iz00_5099; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } break;case ((unsigned char)'o') : 
case ((unsigned char)'O') : 

{ /* Ieee/output.scm 531 */
 obj_t BgL_arg1445z00_1835;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1445z00_1835 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2934;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2934 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5108;
BgL_auxz00_5108 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5108,BFALSE,BFALSE);} 
BgL_arg1445z00_1835 = 
CAR(BgL_pairz00_2934); } 
if(
BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1445z00_1835))
{ /* Ieee/output.scm 432 */
bgl_display_obj(
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1445z00_1835, 
BINT(8L)), BgL_pz00_30); }  else 
{ /* Ieee/output.scm 432 */
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2595z00zz__r4_output_6_10_3z00, BgL_arg1445z00_1835); } } 
{ /* Ieee/output.scm 532 */
 long BgL_arg1446z00_1836; obj_t BgL_arg1447z00_1837;
BgL_arg1446z00_1836 = 
(BgL_iz00_1806+1L); 
{ /* Ieee/output.scm 532 */
 obj_t BgL_pairz00_2938;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 532 */
BgL_pairz00_2938 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5122;
BgL_auxz00_5122 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19030L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5122,BFALSE,BFALSE);} 
BgL_arg1447z00_1837 = 
CDR(BgL_pairz00_2938); } 
{ 
 obj_t BgL_osz00_5129; obj_t BgL_iz00_5127;
BgL_iz00_5127 = 
BINT(BgL_arg1446z00_1836); 
BgL_osz00_5129 = BgL_arg1447z00_1837; 
BgL_osz00_1705 = BgL_osz00_5129; 
BgL_iz00_1704 = BgL_iz00_5127; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } break;case ((unsigned char)'b') : 
case ((unsigned char)'B') : 

{ /* Ieee/output.scm 534 */
 obj_t BgL_arg1448z00_1838;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1448z00_1838 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2940;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2940 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5136;
BgL_auxz00_5136 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5136,BFALSE,BFALSE);} 
BgL_arg1448z00_1838 = 
CAR(BgL_pairz00_2940); } 
if(
BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1448z00_1838))
{ /* Ieee/output.scm 432 */
bgl_display_obj(
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1448z00_1838, 
BINT(2L)), BgL_pz00_30); }  else 
{ /* Ieee/output.scm 432 */
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2595z00zz__r4_output_6_10_3z00, BgL_arg1448z00_1838); } } 
{ /* Ieee/output.scm 535 */
 long BgL_arg1449z00_1839; obj_t BgL_arg1450z00_1840;
BgL_arg1449z00_1839 = 
(BgL_iz00_1806+1L); 
{ /* Ieee/output.scm 535 */
 obj_t BgL_pairz00_2944;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 535 */
BgL_pairz00_2944 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5150;
BgL_auxz00_5150 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19108L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5150,BFALSE,BFALSE);} 
BgL_arg1450z00_1840 = 
CDR(BgL_pairz00_2944); } 
{ 
 obj_t BgL_osz00_5157; obj_t BgL_iz00_5155;
BgL_iz00_5155 = 
BINT(BgL_arg1449z00_1839); 
BgL_osz00_5157 = BgL_arg1450z00_1840; 
BgL_osz00_1705 = BgL_osz00_5157; 
BgL_iz00_1704 = BgL_iz00_5155; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } break;case ((unsigned char)'%') : 
case ((unsigned char)'n') : 

bgl_display_char(((unsigned char)10), BgL_pz00_30); 
{ /* Ieee/output.scm 538 */
 long BgL_arg1451z00_1841;
BgL_arg1451z00_1841 = 
(BgL_iz00_1806+1L); 
{ 
 obj_t BgL_iz00_5160;
BgL_iz00_5160 = 
BINT(BgL_arg1451z00_1841); 
BgL_iz00_1704 = BgL_iz00_5160; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } break;case ((unsigned char)'r') : 

bgl_display_char(((unsigned char)13), BgL_pz00_30); 
{ /* Ieee/output.scm 541 */
 long BgL_arg1452z00_1842;
BgL_arg1452z00_1842 = 
(BgL_iz00_1806+1L); 
{ 
 obj_t BgL_iz00_5164;
BgL_iz00_5164 = 
BINT(BgL_arg1452z00_1842); 
BgL_iz00_1704 = BgL_iz00_5164; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } break;case ((unsigned char)'l') : 
case ((unsigned char)'L') : 

{ /* Ieee/output.scm 543 */
 obj_t BgL_arg1453z00_1843;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1453z00_1843 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2951;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2951 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5172;
BgL_auxz00_5172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5172,BFALSE,BFALSE);} 
BgL_arg1453z00_1843 = 
CAR(BgL_pairz00_2951); } 
BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00(BgL_arg1453z00_1843, BgL_pz00_30, BGl_string2596z00zz__r4_output_6_10_3z00); } 
{ /* Ieee/output.scm 544 */
 long BgL_arg1454z00_1844; obj_t BgL_arg1455z00_1845;
BgL_arg1454z00_1844 = 
(BgL_iz00_1806+1L); 
{ /* Ieee/output.scm 544 */
 obj_t BgL_pairz00_2953;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 544 */
BgL_pairz00_2953 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5181;
BgL_auxz00_5181 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19314L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5181,BFALSE,BFALSE);} 
BgL_arg1455z00_1845 = 
CDR(BgL_pairz00_2953); } 
{ 
 obj_t BgL_osz00_5188; obj_t BgL_iz00_5186;
BgL_iz00_5186 = 
BINT(BgL_arg1454z00_1844); 
BgL_osz00_5188 = BgL_arg1455z00_1845; 
BgL_osz00_1705 = BgL_osz00_5188; 
BgL_iz00_1704 = BgL_iz00_5186; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } break;case ((unsigned char)'(') : 

{ /* Ieee/output.scm 546 */
 obj_t BgL_niz00_1846;
{ /* Ieee/output.scm 546 */
 obj_t BgL_arg1457z00_1848;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1457z00_1848 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2955;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2955 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5195;
BgL_auxz00_5195 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5195,BFALSE,BFALSE);} 
BgL_arg1457z00_1848 = 
CAR(BgL_pairz00_2955); } 
BgL_iz00_1765 = BgL_iz00_1806; 
BgL_lz00_1766 = BgL_arg1457z00_1848; 
BgL_pz00_1767 = BgL_pz00_30; 
{ /* Ieee/output.scm 452 */
 obj_t BgL_jz00_1769;
BgL_jz00_1769 = 
BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL__fmtz00_31, 
BCHAR(((unsigned char)')')), 
BINT(BgL_iz00_1765)); 
if(
CBOOL(BgL_jz00_1769))
{ /* Ieee/output.scm 455 */
 obj_t BgL_sepz00_1770;
{ /* Ieee/output.scm 455 */
 long BgL_arg1398z00_1771;
BgL_arg1398z00_1771 = 
(BgL_iz00_1765+1L); 
{ /* Ieee/output.scm 455 */
 long BgL_auxz00_5206;
{ /* Ieee/output.scm 455 */
 obj_t BgL_tmpz00_5207;
if(
INTEGERP(BgL_jz00_1769))
{ /* Ieee/output.scm 455 */
BgL_tmpz00_5207 = BgL_jz00_1769
; }  else 
{ 
 obj_t BgL_auxz00_5210;
BgL_auxz00_5210 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16900L), BGl_string2603z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_jz00_1769); 
FAILURE(BgL_auxz00_5210,BFALSE,BFALSE);} 
BgL_auxz00_5206 = 
(long)CINT(BgL_tmpz00_5207); } 
BgL_sepz00_1770 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL__fmtz00_31, BgL_arg1398z00_1771, BgL_auxz00_5206); } } 
BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00(BgL_lz00_1766, BgL_pz00_1767, BgL_sepz00_1770); 
{ 
 obj_t BgL_tmpz00_5217;
if(
INTEGERP(BgL_jz00_1769))
{ /* Ieee/output.scm 457 */
BgL_tmpz00_5217 = BgL_jz00_1769
; }  else 
{ 
 obj_t BgL_auxz00_5220;
BgL_auxz00_5220 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16978L), BGl_string2603z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_jz00_1769); 
FAILURE(BgL_auxz00_5220,BFALSE,BFALSE);} 
BgL_niz00_1846 = 
ADDFX(BgL_tmpz00_5217, 
BINT(1L)); } }  else 
{ /* Ieee/output.scm 453 */
BgL_niz00_1846 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2600z00zz__r4_output_6_10_3z00, BgL__fmtz00_31); } } } 
{ /* Ieee/output.scm 547 */
 obj_t BgL_arg1456z00_1847;
{ /* Ieee/output.scm 547 */
 obj_t BgL_pairz00_2956;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 547 */
BgL_pairz00_2956 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5229;
BgL_auxz00_5229 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19397L), BGl_string2593z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5229,BFALSE,BFALSE);} 
BgL_arg1456z00_1847 = 
CDR(BgL_pairz00_2956); } 
{ 
 obj_t BgL_osz00_5235; obj_t BgL_iz00_5234;
BgL_iz00_5234 = BgL_niz00_1846; 
BgL_osz00_5235 = BgL_arg1456z00_1847; 
BgL_osz00_1705 = BgL_osz00_5235; 
BgL_iz00_1704 = BgL_iz00_5234; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } } break;case ((unsigned char)'~') : 

bgl_display_char(((unsigned char)'~'), BgL_pz00_30); 
{ /* Ieee/output.scm 550 */
 long BgL_arg1458z00_1849;
BgL_arg1458z00_1849 = 
(BgL_iz00_1806+1L); 
{ 
 obj_t BgL_iz00_5238;
BgL_iz00_5238 = 
BINT(BgL_arg1458z00_1849); 
BgL_iz00_1704 = BgL_iz00_5238; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } break;
default: 
if(
isdigit(BgL_fz00_1805))
{ /* Ieee/output.scm 553 */
 obj_t BgL_niz00_1851;
{ /* Ieee/output.scm 553 */
 obj_t BgL_arg1461z00_1853;
if(
NULLP(BgL_osz00_1705))
{ /* Ieee/output.scm 427 */
BgL_arg1461z00_1853 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2589z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_1805)); }  else 
{ /* Ieee/output.scm 429 */
 obj_t BgL_pairz00_2894;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 429 */
BgL_pairz00_2894 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5248;
BgL_auxz00_5248 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16231L), BGl_string2590z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5248,BFALSE,BFALSE);} 
BgL_arg1461z00_1853 = 
CAR(BgL_pairz00_2894); } 
BgL_iz00_1786 = BgL_iz00_1806; 
BgL_numz00_1787 = BgL_arg1461z00_1853; 
BgL_pz00_1788 = BgL_pz00_30; 
if(
BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_numz00_1787))
{ /* Ieee/output.scm 482 */
 obj_t BgL_jz00_1791;
BgL_jz00_1791 = 
BGl_stringzd2skipzd2zz__r4_strings_6_7z00(BgL__fmtz00_31, BGl_string2597z00zz__r4_output_6_10_3z00, 
BINT(BgL_iz00_1786)); 
if(
CBOOL(BgL_jz00_1791))
{ /* Ieee/output.scm 486 */
 bool_t BgL_test3021z00_5259;
{ /* Ieee/output.scm 486 */
 unsigned char BgL_tmpz00_5260;
{ /* Ieee/output.scm 486 */
 long BgL_kz00_2882;
{ /* Ieee/output.scm 486 */
 obj_t BgL_tmpz00_5261;
if(
INTEGERP(BgL_jz00_1791))
{ /* Ieee/output.scm 486 */
BgL_tmpz00_5261 = BgL_jz00_1791
; }  else 
{ 
 obj_t BgL_auxz00_5264;
BgL_auxz00_5264 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(17839L), BGl_string2598z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_jz00_1791); 
FAILURE(BgL_auxz00_5264,BFALSE,BFALSE);} 
BgL_kz00_2882 = 
(long)CINT(BgL_tmpz00_5261); } 
{ /* Ieee/output.scm 486 */
 long BgL_l2219z00_3957;
BgL_l2219z00_3957 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_kz00_2882, BgL_l2219z00_3957))
{ /* Ieee/output.scm 486 */
BgL_tmpz00_5260 = 
STRING_REF(BgL__fmtz00_31, BgL_kz00_2882)
; }  else 
{ 
 obj_t BgL_auxz00_5273;
BgL_auxz00_5273 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(17822L), BGl_string2599z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2219z00_3957), 
(int)(BgL_kz00_2882)); 
FAILURE(BgL_auxz00_5273,BFALSE,BFALSE);} } } 
BgL_test3021z00_5259 = 
(BgL_tmpz00_5260==((unsigned char)',')); } 
if(BgL_test3021z00_5259)
{ /* Ieee/output.scm 487 */
 bool_t BgL_test3024z00_5280;
{ /* Ieee/output.scm 487 */
 long BgL_n1z00_2886;
{ /* Ieee/output.scm 487 */
 obj_t BgL_tmpz00_5281;
if(
INTEGERP(BgL_jz00_1791))
{ /* Ieee/output.scm 487 */
BgL_tmpz00_5281 = BgL_jz00_1791
; }  else 
{ 
 obj_t BgL_auxz00_5284;
BgL_auxz00_5284 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(17865L), BGl_string2598z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_jz00_1791); 
FAILURE(BgL_auxz00_5284,BFALSE,BFALSE);} 
BgL_n1z00_2886 = 
(long)CINT(BgL_tmpz00_5281); } 
BgL_test3024z00_5280 = 
(BgL_n1z00_2886==
(BgL_lenz00_1702-1L)); } 
if(BgL_test3024z00_5280)
{ /* Ieee/output.scm 487 */
BgL_niz00_1851 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2600z00zz__r4_output_6_10_3z00, BgL__fmtz00_31); }  else 
{ /* Ieee/output.scm 489 */
 long BgL_arg1411z00_1796; long BgL_arg1412z00_1797; unsigned char BgL_arg1413z00_1798;
{ /* Ieee/output.scm 489 */
 long BgL_za71za7_2888;
{ /* Ieee/output.scm 489 */
 obj_t BgL_tmpz00_5292;
if(
INTEGERP(BgL_jz00_1791))
{ /* Ieee/output.scm 489 */
BgL_tmpz00_5292 = BgL_jz00_1791
; }  else 
{ 
 obj_t BgL_auxz00_5295;
BgL_auxz00_5295 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(17954L), BGl_string2598z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_jz00_1791); 
FAILURE(BgL_auxz00_5295,BFALSE,BFALSE);} 
BgL_za71za7_2888 = 
(long)CINT(BgL_tmpz00_5292); } 
BgL_arg1411z00_1796 = 
(BgL_za71za7_2888+2L); } 
{ /* Ieee/output.scm 491 */
 obj_t BgL_arg1414z00_1799;
{ /* Ieee/output.scm 491 */
 long BgL_auxz00_5301;
{ /* Ieee/output.scm 491 */
 obj_t BgL_tmpz00_5302;
if(
INTEGERP(BgL_jz00_1791))
{ /* Ieee/output.scm 491 */
BgL_tmpz00_5302 = BgL_jz00_1791
; }  else 
{ 
 obj_t BgL_auxz00_5305;
BgL_auxz00_5305 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(17998L), BGl_string2598z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_jz00_1791); 
FAILURE(BgL_auxz00_5305,BFALSE,BFALSE);} 
BgL_auxz00_5301 = 
(long)CINT(BgL_tmpz00_5302); } 
BgL_arg1414z00_1799 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL__fmtz00_31, BgL_iz00_1786, BgL_auxz00_5301); } 
{ /* Ieee/output.scm 491 */
 char * BgL_tmpz00_5311;
BgL_tmpz00_5311 = 
BSTRING_TO_STRING(BgL_arg1414z00_1799); 
BgL_arg1412z00_1797 = 
BGL_STRTOL(BgL_tmpz00_5311, 0L, 10L); } } 
{ /* Ieee/output.scm 492 */
 long BgL_i2222z00_3960;
{ /* Ieee/output.scm 492 */
 long BgL_za71za7_2889;
{ /* Ieee/output.scm 492 */
 obj_t BgL_tmpz00_5314;
if(
INTEGERP(BgL_jz00_1791))
{ /* Ieee/output.scm 492 */
BgL_tmpz00_5314 = BgL_jz00_1791
; }  else 
{ 
 obj_t BgL_auxz00_5317;
BgL_auxz00_5317 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(18051L), BGl_string2598z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_jz00_1791); 
FAILURE(BgL_auxz00_5317,BFALSE,BFALSE);} 
BgL_za71za7_2889 = 
(long)CINT(BgL_tmpz00_5314); } 
BgL_i2222z00_3960 = 
(BgL_za71za7_2889+1L); } 
{ /* Ieee/output.scm 492 */
 long BgL_l2223z00_3961;
BgL_l2223z00_3961 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_i2222z00_3960, BgL_l2223z00_3961))
{ /* Ieee/output.scm 492 */
BgL_arg1413z00_1798 = 
STRING_REF(BgL__fmtz00_31, BgL_i2222z00_3960); }  else 
{ 
 obj_t BgL_auxz00_5327;
BgL_auxz00_5327 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(18029L), BGl_string2599z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2223z00_3961), 
(int)(BgL_i2222z00_3960)); 
FAILURE(BgL_auxz00_5327,BFALSE,BFALSE);} } } 
BgL_iz00_1772 = 
BINT(BgL_arg1411z00_1796); 
BgL_numz00_1773 = BgL_numz00_1787; 
BgL_mincolz00_1774 = BgL_arg1412z00_1797; 
BgL_paddingz00_1775 = BgL_arg1413z00_1798; 
BgL_zc3z04anonymousza31399ze3z87_1776:
{ /* Ieee/output.scm 460 */
 bool_t BgL_test3030z00_5333;
{ /* Ieee/output.scm 460 */
 long BgL_n1z00_2870;
{ /* Ieee/output.scm 460 */
 obj_t BgL_tmpz00_5334;
if(
INTEGERP(BgL_iz00_1772))
{ /* Ieee/output.scm 460 */
BgL_tmpz00_5334 = BgL_iz00_1772
; }  else 
{ 
 obj_t BgL_auxz00_5337;
BgL_auxz00_5337 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(17057L), BGl_string2601z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1772); 
FAILURE(BgL_auxz00_5337,BFALSE,BFALSE);} 
BgL_n1z00_2870 = 
(long)CINT(BgL_tmpz00_5334); } 
BgL_test3030z00_5333 = 
(BgL_n1z00_2870==BgL_lenz00_1702); } 
if(BgL_test3030z00_5333)
{ /* Ieee/output.scm 460 */
BgL_niz00_1851 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2600z00zz__r4_output_6_10_3z00, BgL__fmtz00_31); }  else 
{ /* Ieee/output.scm 462 */
 obj_t BgL_sz00_1778;
{ /* Ieee/output.scm 462 */
 unsigned char BgL_aux1046z00_1784;
{ /* Ieee/output.scm 462 */
 long BgL_kz00_2873;
{ /* Ieee/output.scm 462 */
 obj_t BgL_tmpz00_5344;
if(
INTEGERP(BgL_iz00_1772))
{ /* Ieee/output.scm 462 */
BgL_tmpz00_5344 = BgL_iz00_1772
; }  else 
{ 
 obj_t BgL_auxz00_5347;
BgL_auxz00_5347 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(17137L), BGl_string2601z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1772); 
FAILURE(BgL_auxz00_5347,BFALSE,BFALSE);} 
BgL_kz00_2873 = 
(long)CINT(BgL_tmpz00_5344); } 
{ /* Ieee/output.scm 462 */
 long BgL_l2227z00_3965;
BgL_l2227z00_3965 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_kz00_2873, BgL_l2227z00_3965))
{ /* Ieee/output.scm 462 */
BgL_aux1046z00_1784 = 
STRING_REF(BgL__fmtz00_31, BgL_kz00_2873); }  else 
{ 
 obj_t BgL_auxz00_5356;
BgL_auxz00_5356 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(17120L), BGl_string2599z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2227z00_3965), 
(int)(BgL_kz00_2873)); 
FAILURE(BgL_auxz00_5356,BFALSE,BFALSE);} } } 
switch( BgL_aux1046z00_1784) { case ((unsigned char)'d') : 
case ((unsigned char)'D') : 

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

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

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

BgL_sz00_1778 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_numz00_1773, 
BINT(2L)); break;
default: 
BgL_sz00_1778 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2600z00zz__r4_output_6_10_3z00, BgL__fmtz00_31); } } 
{ /* Ieee/output.scm 462 */
 long BgL_lz00_1779;
{ /* Ieee/output.scm 473 */
 obj_t BgL_stringz00_2874;
if(
STRINGP(BgL_sz00_1778))
{ /* Ieee/output.scm 473 */
BgL_stringz00_2874 = BgL_sz00_1778; }  else 
{ 
 obj_t BgL_auxz00_5374;
BgL_auxz00_5374 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(17424L), BGl_string2601z00zz__r4_output_6_10_3z00, BGl_string2602z00zz__r4_output_6_10_3z00, BgL_sz00_1778); 
FAILURE(BgL_auxz00_5374,BFALSE,BFALSE);} 
BgL_lz00_1779 = 
STRING_LENGTH(BgL_stringz00_2874); } 
{ /* Ieee/output.scm 473 */

if(
(BgL_lz00_1779<BgL_mincolz00_1774))
{ /* Ieee/output.scm 474 */
bgl_display_obj(
make_string(
(BgL_mincolz00_1774-BgL_lz00_1779), BgL_paddingz00_1775), BgL_pz00_30); }  else 
{ /* Ieee/output.scm 474 */BFALSE; } 
bgl_display_obj(BgL_sz00_1778, BgL_pz00_30); 
{ 
 obj_t BgL_tmpz00_5385;
if(
INTEGERP(BgL_iz00_1772))
{ /* Ieee/output.scm 477 */
BgL_tmpz00_5385 = BgL_iz00_1772
; }  else 
{ 
 obj_t BgL_auxz00_5388;
BgL_auxz00_5388 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(17557L), BGl_string2601z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1772); 
FAILURE(BgL_auxz00_5388,BFALSE,BFALSE);} 
BgL_niz00_1851 = 
ADDFX(BgL_tmpz00_5385, 
BINT(1L)); } } } } } } }  else 
{ /* Ieee/output.scm 496 */
 long BgL_arg1417z00_1802;
{ /* Ieee/output.scm 496 */
 obj_t BgL_arg1418z00_1803;
{ /* Ieee/output.scm 496 */
 long BgL_auxz00_5395;
{ /* Ieee/output.scm 496 */
 obj_t BgL_tmpz00_5396;
if(
INTEGERP(BgL_jz00_1791))
{ /* Ieee/output.scm 496 */
BgL_tmpz00_5396 = BgL_jz00_1791
; }  else 
{ 
 obj_t BgL_auxz00_5399;
BgL_auxz00_5399 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(18137L), BGl_string2598z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_jz00_1791); 
FAILURE(BgL_auxz00_5399,BFALSE,BFALSE);} 
BgL_auxz00_5395 = 
(long)CINT(BgL_tmpz00_5396); } 
BgL_arg1418z00_1803 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL__fmtz00_31, BgL_iz00_1786, BgL_auxz00_5395); } 
{ /* Ieee/output.scm 496 */
 char * BgL_tmpz00_5405;
BgL_tmpz00_5405 = 
BSTRING_TO_STRING(BgL_arg1418z00_1803); 
BgL_arg1417z00_1802 = 
BGL_STRTOL(BgL_tmpz00_5405, 0L, 10L); } } 
{ 
 unsigned char BgL_paddingz00_5411; long BgL_mincolz00_5410; obj_t BgL_numz00_5409; obj_t BgL_iz00_5408;
BgL_iz00_5408 = BgL_jz00_1791; 
BgL_numz00_5409 = BgL_numz00_1787; 
BgL_mincolz00_5410 = BgL_arg1417z00_1802; 
BgL_paddingz00_5411 = ((unsigned char)' '); 
BgL_paddingz00_1775 = BgL_paddingz00_5411; 
BgL_mincolz00_1774 = BgL_mincolz00_5410; 
BgL_numz00_1773 = BgL_numz00_5409; 
BgL_iz00_1772 = BgL_iz00_5408; 
goto BgL_zc3z04anonymousza31399ze3z87_1776;} } }  else 
{ /* Ieee/output.scm 484 */
BgL_niz00_1851 = 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2600z00zz__r4_output_6_10_3z00, BgL__fmtz00_31); } }  else 
{ /* Ieee/output.scm 480 */
BgL_niz00_1851 = 
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2595z00zz__r4_output_6_10_3z00, BgL_numz00_1787); } } 
{ /* Ieee/output.scm 554 */
 obj_t BgL_arg1460z00_1852;
{ /* Ieee/output.scm 554 */
 obj_t BgL_pairz00_2895;
if(
PAIRP(BgL_osz00_1705))
{ /* Ieee/output.scm 554 */
BgL_pairz00_2895 = BgL_osz00_1705; }  else 
{ 
 obj_t BgL_auxz00_5416;
BgL_auxz00_5416 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(19583L), BGl_string2590z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_osz00_1705); 
FAILURE(BgL_auxz00_5416,BFALSE,BFALSE);} 
BgL_arg1460z00_1852 = 
CDR(BgL_pairz00_2895); } 
{ 
 obj_t BgL_osz00_5422; obj_t BgL_iz00_5421;
BgL_iz00_5421 = BgL_niz00_1851; 
BgL_osz00_5422 = BgL_arg1460z00_1852; 
BgL_osz00_1705 = BgL_osz00_5422; 
BgL_iz00_1704 = BgL_iz00_5421; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } }  else 
{ /* Ieee/output.scm 557 */
 obj_t BgL_arg1462z00_1854;
{ /* Ieee/output.scm 557 */
 obj_t BgL_arg1463z00_1855;
{ /* Ieee/output.scm 557 */
 obj_t BgL_list1464z00_1856;
BgL_list1464z00_1856 = 
MAKE_YOUNG_PAIR(
BCHAR(BgL_fz00_1805), BNIL); 
BgL_arg1463z00_1855 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_list1464z00_1856); } 
BgL_arg1462z00_1854 = 
string_append_3(BGl_string2591z00zz__r4_output_6_10_3z00, BgL_arg1463z00_1855, BGl_string2592z00zz__r4_output_6_10_3z00); } 
return 
BGl_errorz00zz__errorz00(BgL_procnamez00_29, BgL_arg1462z00_1854, BgL__fmtz00_31);} } } } }  else 
{ /* Ieee/output.scm 576 */
 unsigned char BgL_arg1371z00_1730; long BgL_arg1372z00_1731;
{ /* Ieee/output.scm 576 */
 long BgL_i2242z00_3980;
{ /* Ieee/output.scm 576 */
 long BgL_za71za7_2981;
{ /* Ieee/output.scm 576 */
 obj_t BgL_tmpz00_5429;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 576 */
BgL_tmpz00_5429 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_5432;
BgL_auxz00_5432 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20185L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_5432,BFALSE,BFALSE);} 
BgL_za71za7_2981 = 
(long)CINT(BgL_tmpz00_5429); } 
BgL_i2242z00_3980 = 
(BgL_za71za7_2981+1L); } 
{ /* Ieee/output.scm 576 */
 long BgL_l2243z00_3981;
BgL_l2243z00_3981 = 
STRING_LENGTH(BgL__fmtz00_31); 
if(
BOUND_CHECK(BgL_i2242z00_3980, BgL_l2243z00_3981))
{ /* Ieee/output.scm 576 */
BgL_arg1371z00_1730 = 
STRING_REF(BgL__fmtz00_31, BgL_i2242z00_3980); }  else 
{ 
 obj_t BgL_auxz00_5442;
BgL_auxz00_5442 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20163L), BGl_string2599z00zz__r4_output_6_10_3z00, BgL__fmtz00_31, 
(int)(BgL_l2243z00_3981), 
(int)(BgL_i2242z00_3980)); 
FAILURE(BgL_auxz00_5442,BFALSE,BFALSE);} } } 
{ /* Ieee/output.scm 577 */
 long BgL_za71za7_2984;
{ /* Ieee/output.scm 577 */
 obj_t BgL_tmpz00_5448;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 577 */
BgL_tmpz00_5448 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_5451;
BgL_auxz00_5451 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20202L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_5451,BFALSE,BFALSE);} 
BgL_za71za7_2984 = 
(long)CINT(BgL_tmpz00_5448); } 
BgL_arg1372z00_1731 = 
(BgL_za71za7_2984+1L); } 
{ 
 bool_t BgL_altzf3zf3_5459; long BgL_iz00_5458; unsigned char BgL_fz00_5457;
BgL_fz00_5457 = BgL_arg1371z00_1730; 
BgL_iz00_5458 = BgL_arg1372z00_1731; 
BgL_altzf3zf3_5459 = ((bool_t)0); 
BgL_altzf3zf3_1807 = BgL_altzf3zf3_5459; 
BgL_iz00_1806 = BgL_iz00_5458; 
BgL_fz00_1805 = BgL_fz00_5457; 
goto BgL_zc3z04anonymousza31420ze3z87_1808;} } } }  else 
{ /* Ieee/output.scm 561 */
bgl_display_char(BgL_cz00_1715, BgL_pz00_30); 
{ /* Ieee/output.scm 581 */
 long BgL_arg1377z00_1736;
{ /* Ieee/output.scm 581 */
 long BgL_za71za7_2987;
{ /* Ieee/output.scm 581 */
 obj_t BgL_tmpz00_5461;
if(
INTEGERP(BgL_iz00_1704))
{ /* Ieee/output.scm 581 */
BgL_tmpz00_5461 = BgL_iz00_1704
; }  else 
{ 
 obj_t BgL_auxz00_5464;
BgL_auxz00_5464 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20278L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_iz00_1704); 
FAILURE(BgL_auxz00_5464,BFALSE,BFALSE);} 
BgL_za71za7_2987 = 
(long)CINT(BgL_tmpz00_5461); } 
BgL_arg1377z00_1736 = 
(BgL_za71za7_2987+1L); } 
{ 
 obj_t BgL_iz00_5470;
BgL_iz00_5470 = 
BINT(BgL_arg1377z00_1736); 
BgL_iz00_1704 = BgL_iz00_5470; 
goto BgL_zc3z04anonymousza31355ze3z87_1706;} } } }  else 
{ /* Ieee/output.scm 559 */
return BFALSE;} } } } } } 

}



/* print-flat-list~0 */
obj_t BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00(obj_t BgL_lz00_1746, obj_t BgL_pz00_1747, obj_t BgL_sepz00_1748)
{
{ /* Ieee/output.scm 449 */
BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00:
if(
PAIRP(BgL_lz00_1746))
{ 
 obj_t BgL_lz00_1752;
BgL_lz00_1752 = BgL_lz00_1746; 
BgL_zc3z04anonymousza31385ze3z87_1753:
{ /* Ieee/output.scm 440 */
 obj_t BgL_arg1386z00_1754;
{ /* Ieee/output.scm 440 */
 obj_t BgL_pairz00_2861;
if(
PAIRP(BgL_lz00_1752))
{ /* Ieee/output.scm 440 */
BgL_pairz00_2861 = BgL_lz00_1752; }  else 
{ 
 obj_t BgL_auxz00_5477;
BgL_auxz00_5477 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16506L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1752); 
FAILURE(BgL_auxz00_5477,BFALSE,BFALSE);} 
BgL_arg1386z00_1754 = 
CAR(BgL_pairz00_2861); } 
BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00(BgL_arg1386z00_1754, BgL_pz00_1747, BgL_sepz00_1748); } 
{ /* Ieee/output.scm 442 */
 bool_t BgL_test3045z00_5483;
{ /* Ieee/output.scm 442 */
 obj_t BgL_tmpz00_5484;
{ /* Ieee/output.scm 442 */
 obj_t BgL_pairz00_2862;
if(
PAIRP(BgL_lz00_1752))
{ /* Ieee/output.scm 442 */
BgL_pairz00_2862 = BgL_lz00_1752; }  else 
{ 
 obj_t BgL_auxz00_5487;
BgL_auxz00_5487 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16548L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1752); 
FAILURE(BgL_auxz00_5487,BFALSE,BFALSE);} 
BgL_tmpz00_5484 = 
CDR(BgL_pairz00_2862); } 
BgL_test3045z00_5483 = 
PAIRP(BgL_tmpz00_5484); } 
if(BgL_test3045z00_5483)
{ /* Ieee/output.scm 442 */
bgl_display_obj(BgL_sepz00_1748, BgL_pz00_1747); 
{ /* Ieee/output.scm 444 */
 obj_t BgL_arg1389z00_1757;
{ /* Ieee/output.scm 444 */
 obj_t BgL_pairz00_2863;
if(
PAIRP(BgL_lz00_1752))
{ /* Ieee/output.scm 444 */
BgL_pairz00_2863 = BgL_lz00_1752; }  else 
{ 
 obj_t BgL_auxz00_5496;
BgL_auxz00_5496 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16597L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1752); 
FAILURE(BgL_auxz00_5496,BFALSE,BFALSE);} 
BgL_arg1389z00_1757 = 
CDR(BgL_pairz00_2863); } 
{ 
 obj_t BgL_lz00_5501;
BgL_lz00_5501 = BgL_arg1389z00_1757; 
BgL_lz00_1752 = BgL_lz00_5501; 
goto BgL_zc3z04anonymousza31385ze3z87_1753;} } }  else 
{ /* Ieee/output.scm 445 */
 bool_t BgL_test3048z00_5502;
{ /* Ieee/output.scm 445 */
 obj_t BgL_tmpz00_5503;
{ /* Ieee/output.scm 445 */
 obj_t BgL_pairz00_2864;
if(
PAIRP(BgL_lz00_1752))
{ /* Ieee/output.scm 445 */
BgL_pairz00_2864 = BgL_lz00_1752; }  else 
{ 
 obj_t BgL_auxz00_5506;
BgL_auxz00_5506 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16628L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1752); 
FAILURE(BgL_auxz00_5506,BFALSE,BFALSE);} 
BgL_tmpz00_5503 = 
CDR(BgL_pairz00_2864); } 
BgL_test3048z00_5502 = 
NULLP(BgL_tmpz00_5503); } 
if(BgL_test3048z00_5502)
{ /* Ieee/output.scm 445 */
return BFALSE;}  else 
{ /* Ieee/output.scm 445 */
bgl_display_string(BGl_string2605z00zz__r4_output_6_10_3z00, BgL_pz00_1747); 
{ /* Ieee/output.scm 447 */
 obj_t BgL_arg1392z00_1760;
{ /* Ieee/output.scm 447 */
 obj_t BgL_pairz00_2867;
if(
PAIRP(BgL_lz00_1752))
{ /* Ieee/output.scm 447 */
BgL_pairz00_2867 = BgL_lz00_1752; }  else 
{ 
 obj_t BgL_auxz00_5515;
BgL_auxz00_5515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(16691L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_1752); 
FAILURE(BgL_auxz00_5515,BFALSE,BFALSE);} 
BgL_arg1392z00_1760 = 
CDR(BgL_pairz00_2867); } 
{ 
 obj_t BgL_lz00_5520;
BgL_lz00_5520 = BgL_arg1392z00_1760; 
BgL_lz00_1746 = BgL_lz00_5520; 
goto BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00;} } } } } }  else 
{ /* Ieee/output.scm 438 */
if(
NULLP(BgL_lz00_1746))
{ /* Ieee/output.scm 448 */
return BFALSE;}  else 
{ /* Ieee/output.scm 448 */
return 
bgl_display_obj(BgL_lz00_1746, BgL_pz00_1747);} } } 

}



/* 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 586 */
{ /* Ieee/output.scm 587 */
 obj_t BgL_pz00_2988;
{ /* Ieee/output.scm 587 */

{ /* Ieee/output.scm 587 */

BgL_pz00_2988 = 
BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(BTRUE); } } 
{ /* Ieee/output.scm 588 */
 obj_t BgL_auxz00_5525;
{ /* Ieee/output.scm 588 */
 bool_t BgL_test3052z00_5526;
if(
PAIRP(BgL_objz00_34))
{ /* Ieee/output.scm 588 */
BgL_test3052z00_5526 = ((bool_t)1)
; }  else 
{ /* Ieee/output.scm 588 */
BgL_test3052z00_5526 = 
NULLP(BgL_objz00_34)
; } 
if(BgL_test3052z00_5526)
{ /* Ieee/output.scm 588 */
BgL_auxz00_5525 = BgL_objz00_34
; }  else 
{ 
 obj_t BgL_auxz00_5530;
BgL_auxz00_5530 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20612L), BGl_string2607z00zz__r4_output_6_10_3z00, BGl_string2608z00zz__r4_output_6_10_3z00, BgL_objz00_34); 
FAILURE(BgL_auxz00_5530,BFALSE,BFALSE);} } 
BGl_xprintfz00zz__r4_output_6_10_3z00(BGl_symbol2606z00zz__r4_output_6_10_3z00, BgL_pz00_2988, BgL_fmtz00_33, BgL_auxz00_5525); } 
{ /* Ieee/output.scm 589 */
 obj_t BgL_aux2413z00_4151;
BgL_aux2413z00_4151 = 
bgl_close_output_port(BgL_pz00_2988); 
if(
STRINGP(BgL_aux2413z00_4151))
{ /* Ieee/output.scm 589 */
return BgL_aux2413z00_4151;}  else 
{ 
 obj_t BgL_auxz00_5538;
BgL_auxz00_5538 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20623L), BGl_string2607z00zz__r4_output_6_10_3z00, BGl_string2602z00zz__r4_output_6_10_3z00, BgL_aux2413z00_4151); 
FAILURE(BgL_auxz00_5538,BFALSE,BFALSE);} } } } 

}



/* &format */
obj_t BGl_z62formatz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3907, obj_t BgL_fmtz00_3908, obj_t BgL_objz00_3909)
{
{ /* Ieee/output.scm 586 */
{ /* Ieee/output.scm 587 */
 obj_t BgL_auxz00_5542;
if(
STRINGP(BgL_fmtz00_3908))
{ /* Ieee/output.scm 587 */
BgL_auxz00_5542 = BgL_fmtz00_3908
; }  else 
{ 
 obj_t BgL_auxz00_5545;
BgL_auxz00_5545 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20551L), BGl_string2609z00zz__r4_output_6_10_3z00, BGl_string2602z00zz__r4_output_6_10_3z00, BgL_fmtz00_3908); 
FAILURE(BgL_auxz00_5545,BFALSE,BFALSE);} 
return 
BGl_formatz00zz__r4_output_6_10_3z00(BgL_auxz00_5542, BgL_objz00_3909);} } 

}



/* 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 594 */
{ /* Ieee/output.scm 595 */
 obj_t BgL_arg1465z00_2991;
{ /* Ieee/output.scm 595 */
 obj_t BgL_tmpz00_5550;
BgL_tmpz00_5550 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1465z00_2991 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_5550); } 
{ /* Ieee/output.scm 595 */
 obj_t BgL_auxz00_5553;
{ /* Ieee/output.scm 595 */
 bool_t BgL_test3056z00_5554;
if(
PAIRP(BgL_objz00_36))
{ /* Ieee/output.scm 595 */
BgL_test3056z00_5554 = ((bool_t)1)
; }  else 
{ /* Ieee/output.scm 595 */
BgL_test3056z00_5554 = 
NULLP(BgL_objz00_36)
; } 
if(BgL_test3056z00_5554)
{ /* Ieee/output.scm 595 */
BgL_auxz00_5553 = BgL_objz00_36
; }  else 
{ 
 obj_t BgL_auxz00_5558;
BgL_auxz00_5558 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20943L), BGl_string2611z00zz__r4_output_6_10_3z00, BGl_string2608z00zz__r4_output_6_10_3z00, BgL_objz00_36); 
FAILURE(BgL_auxz00_5558,BFALSE,BFALSE);} } 
return 
BGl_xprintfz00zz__r4_output_6_10_3z00(BGl_symbol2610z00zz__r4_output_6_10_3z00, BgL_arg1465z00_2991, BgL_fmtz00_35, BgL_auxz00_5553);} } } 

}



/* &printf */
obj_t BGl_z62printfz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3910, obj_t BgL_fmtz00_3911, obj_t BgL_objz00_3912)
{
{ /* Ieee/output.scm 594 */
{ /* Ieee/output.scm 595 */
 obj_t BgL_auxz00_5563;
if(
STRINGP(BgL_fmtz00_3911))
{ /* Ieee/output.scm 595 */
BgL_auxz00_5563 = BgL_fmtz00_3911
; }  else 
{ 
 obj_t BgL_auxz00_5566;
BgL_auxz00_5566 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(20917L), BGl_string2612z00zz__r4_output_6_10_3z00, BGl_string2602z00zz__r4_output_6_10_3z00, BgL_fmtz00_3911); 
FAILURE(BgL_auxz00_5566,BFALSE,BFALSE);} 
return 
BGl_printfz00zz__r4_output_6_10_3z00(BgL_auxz00_5563, BgL_objz00_3912);} } 

}



/* 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 600 */
{ /* Ieee/output.scm 601 */
 obj_t BgL_auxz00_5571;
{ /* Ieee/output.scm 601 */
 bool_t BgL_test3059z00_5572;
if(
PAIRP(BgL_objz00_39))
{ /* Ieee/output.scm 601 */
BgL_test3059z00_5572 = ((bool_t)1)
; }  else 
{ /* Ieee/output.scm 601 */
BgL_test3059z00_5572 = 
NULLP(BgL_objz00_39)
; } 
if(BgL_test3059z00_5572)
{ /* Ieee/output.scm 601 */
BgL_auxz00_5571 = BgL_objz00_39
; }  else 
{ 
 obj_t BgL_auxz00_5576;
BgL_auxz00_5576 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(21235L), BGl_string2614z00zz__r4_output_6_10_3z00, BGl_string2608z00zz__r4_output_6_10_3z00, BgL_objz00_39); 
FAILURE(BgL_auxz00_5576,BFALSE,BFALSE);} } 
return 
BGl_xprintfz00zz__r4_output_6_10_3z00(BGl_symbol2613z00zz__r4_output_6_10_3z00, BgL_portz00_37, BgL_fmtz00_38, BgL_auxz00_5571);} } 

}



/* &fprintf */
obj_t BGl_z62fprintfz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3913, obj_t BgL_portz00_3914, obj_t BgL_fmtz00_3915, obj_t BgL_objz00_3916)
{
{ /* Ieee/output.scm 600 */
{ /* Ieee/output.scm 601 */
 obj_t BgL_auxz00_5588; obj_t BgL_auxz00_5581;
if(
STRINGP(BgL_fmtz00_3915))
{ /* Ieee/output.scm 601 */
BgL_auxz00_5588 = BgL_fmtz00_3915
; }  else 
{ 
 obj_t BgL_auxz00_5591;
BgL_auxz00_5591 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(21208L), BGl_string2615z00zz__r4_output_6_10_3z00, BGl_string2602z00zz__r4_output_6_10_3z00, BgL_fmtz00_3915); 
FAILURE(BgL_auxz00_5591,BFALSE,BFALSE);} 
if(
OUTPUT_PORTP(BgL_portz00_3914))
{ /* Ieee/output.scm 601 */
BgL_auxz00_5581 = BgL_portz00_3914
; }  else 
{ 
 obj_t BgL_auxz00_5584;
BgL_auxz00_5584 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(21208L), BGl_string2615z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3914); 
FAILURE(BgL_auxz00_5584,BFALSE,BFALSE);} 
return 
BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_auxz00_5581, BgL_auxz00_5588, BgL_objz00_3916);} } 

}



/* display-2 */
BGL_EXPORTED_DEF obj_t bgl_display_obj(obj_t BgL_objz00_40, obj_t BgL_portz00_41)
{
{ /* Ieee/output.scm 760 */
bgl_display_obj:
if(
STRINGP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_display_string(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
SYMBOLP(BgL_objz00_40))
{ /* Ieee/output.scm 773 */
 obj_t BgL_arg1607z00_2997;
BgL_arg1607z00_2997 = 
SYMBOL_TO_STRING(BgL_objz00_40); 
return 
bgl_display_string(BgL_arg1607z00_2997, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
INTEGERP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_display_fixnum(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
CHARP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 unsigned char BgL_tmpz00_5608;
BgL_tmpz00_5608 = 
CCHAR(BgL_objz00_40); 
return 
bgl_display_char(BgL_tmpz00_5608, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
PAIRP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
BGl_displayzd2pairzd2zz__r4_output_6_10_3z00(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
NULLP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_display_string(BGl_string2616z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
(BgL_objz00_40==BFALSE))
{ /* Ieee/output.scm 761 */
return 
bgl_display_string(BGl_string2617z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
(BgL_objz00_40==BTRUE))
{ /* Ieee/output.scm 761 */
return 
bgl_display_string(BGl_string2618z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
(BgL_objz00_40==BUNSPEC))
{ /* Ieee/output.scm 761 */
return 
bgl_display_string(BGl_string2619z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
ELONGP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_display_elong(
BELONG_TO_LONG(BgL_objz00_40), BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
REALP(BgL_objz00_40))
{ /* Ieee/output.scm 884 */
 obj_t BgL_arg1651z00_3011;
BgL_arg1651z00_3011 = 
bgl_real_to_string(
REAL_TO_DOUBLE(BgL_objz00_40)); 
return 
bgl_display_string(BgL_arg1651z00_3011, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
KEYWORDP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
bgl_display_char(((unsigned char)':'), BgL_portz00_41); 
{ /* Ieee/output.scm 866 */
 obj_t BgL_arg1649z00_3014;
BgL_arg1649z00_3014 = 
KEYWORD_TO_STRING(BgL_objz00_40); 
return 
bgl_display_string(BgL_arg1649z00_3014, BgL_portz00_41);} }  else 
{ /* Ieee/output.scm 761 */
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
bgl_display_string(BGl_string2620z00zz__r4_output_6_10_3z00, BgL_portz00_41); 
{ /* Ieee/output.scm 936 */
 obj_t BgL_arg1663z00_3018;
{ /* Ieee/output.scm 936 */
 obj_t BgL_auxz00_5643;
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_40))
{ /* Ieee/output.scm 936 */
BgL_auxz00_5643 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5646;
BgL_auxz00_5646 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(33951L), BGl_string2621z00zz__r4_output_6_10_3z00, BGl_string2622z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5646,BFALSE,BFALSE);} 
BgL_arg1663z00_3018 = 
BGl_classzd2namezd2zz__objectz00(BgL_auxz00_5643); } 
{ /* Ieee/output.scm 773 */
 obj_t BgL_arg1607z00_3023;
BgL_arg1607z00_3023 = 
SYMBOL_TO_STRING(BgL_arg1663z00_3018); 
bgl_display_string(BgL_arg1607z00_3023, BgL_portz00_41); } } 
return 
bgl_display_string(BGl_string2623z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
VECTORP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
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 761 */
if(
LLONGP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_display_llong(
BLLONG_TO_LLONG(BgL_objz00_40), BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
UCS2_STRINGP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_display_ucs2string(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
STRUCTP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
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 761 */
if(
BGL_OBJECTP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 obj_t BgL_list1481z00_1883;
BgL_list1481z00_1883 = 
MAKE_YOUNG_PAIR(BgL_portz00_41, BNIL); 
return 
BGl_objectzd2displayzd2zz__objectz00(
((BgL_objectz00_bglt)BgL_objz00_40), BgL_list1481z00_1883);}  else 
{ /* Ieee/output.scm 761 */
if(
BGL_DATEP(BgL_objz00_40))
{ /* Ieee/output.scm 833 */
 obj_t BgL_tmpz00_5674;
BgL_tmpz00_5674 = 
BGl_datezd2ze3stringz31zz__datez00(BgL_objz00_40); 
return 
bgl_display_string(BgL_tmpz00_5674, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BGL_MUTEXP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
BGL_TAIL return 
BGl_writezd2mutexzd2zz__r4_output_6_10_3z00(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BGL_CONDVARP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
bgl_display_string(BGl_string2624z00zz__r4_output_6_10_3z00, BgL_portz00_41); 
{ /* Ieee/output.scm 928 */
 obj_t BgL_arg1662z00_3034;
{ /* Ieee/output.scm 928 */
 obj_t BgL_objz00_3037;
if(
BGL_CONDVARP(BgL_objz00_40))
{ /* Ieee/output.scm 928 */
BgL_objz00_3037 = BgL_objz00_40; }  else 
{ 
 obj_t BgL_auxz00_5685;
BgL_auxz00_5685 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(33588L), BGl_string2621z00zz__r4_output_6_10_3z00, BGl_string2625z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5685,BFALSE,BFALSE);} 
BgL_arg1662z00_3034 = 
BGL_CONDVAR_NAME(BgL_objz00_3037); } 
bgl_display_obj(BgL_arg1662z00_3034, BgL_portz00_41); } 
return 
bgl_display_string(BGl_string2623z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
UCS2P(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_display_ucs2(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
CELLP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
bgl_display_string(BGl_string2626z00zz__r4_output_6_10_3z00, BgL_portz00_41); 
bgl_display_obj(
CELL_REF(BgL_objz00_40), BgL_portz00_41); 
return 
bgl_display_string(BGl_string2623z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
EOF_OBJECTP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_display_string(BGl_string2627z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
(BgL_objz00_40==(BOPTIONAL)))
{ /* Ieee/output.scm 761 */
return 
bgl_display_string(BGl_string2628z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
(BgL_objz00_40==(BREST)))
{ /* Ieee/output.scm 761 */
return 
bgl_display_string(BGl_string2629z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
(BgL_objz00_40==(BKEY)))
{ /* Ieee/output.scm 761 */
return 
bgl_display_string(BGl_string2630z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
PROCEDUREP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_write_procedure(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
OUTPUT_PORTP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
if(
BGL_OUTPUT_STRING_PORTP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_display_string(BGl_string2631z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BGL_OUTPUT_PROCEDURE_PORTP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_display_string(BGl_string2632z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
return 
bgl_write_output_port(BgL_objz00_40, BgL_portz00_41);} } }  else 
{ /* Ieee/output.scm 761 */
if(
INPUT_PORTP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_write_input_port(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BIGNUMP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_display_bignum(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BGL_HVECTORP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
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 761 */
if(
TVECTORP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
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 761 */
if(
BGL_WEAKPTRP(BgL_objz00_40))
{ /* Ieee/output.scm 1052 */
 obj_t BgL_dataz00_3058;
BgL_dataz00_3058 = 
bgl_weakptr_data(BgL_objz00_40); 
bgl_display_string(BGl_string2633z00zz__r4_output_6_10_3z00, BgL_portz00_41); 
bgl_display_obj(BgL_dataz00_3058, BgL_portz00_41); 
return 
bgl_display_char(((unsigned char)'>'), BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
FOREIGNP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_write_foreign(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
PROCESSP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 obj_t BgL_tmpz00_5748;
if(
PROCESSP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
BgL_tmpz00_5748 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5751;
BgL_auxz00_5751 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(26790L), BGl_string2621z00zz__r4_output_6_10_3z00, BGl_string2634z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5751,BFALSE,BFALSE);} 
return 
bgl_write_process(BgL_tmpz00_5748, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
SOCKETP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 obj_t BgL_tmpz00_5758;
if(
SOCKETP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
BgL_tmpz00_5758 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5761;
BgL_auxz00_5761 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(26790L), BGl_string2621z00zz__r4_output_6_10_3z00, BGl_string2635z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5761,BFALSE,BFALSE);} 
return 
bgl_write_socket(BgL_tmpz00_5758, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BGL_DATAGRAM_SOCKETP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 obj_t BgL_tmpz00_5768;
if(
BGL_DATAGRAM_SOCKETP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
BgL_tmpz00_5768 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5771;
BgL_auxz00_5771 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(26790L), BGl_string2621z00zz__r4_output_6_10_3z00, BGl_string2636z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5771,BFALSE,BFALSE);} 
return 
bgl_write_datagram_socket(BgL_tmpz00_5768, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BGL_REGEXPP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 obj_t BgL_tmpz00_5778;
if(
BGL_REGEXPP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
BgL_tmpz00_5778 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5781;
BgL_auxz00_5781 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(26790L), BGl_string2621z00zz__r4_output_6_10_3z00, BGl_string2637z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5781,BFALSE,BFALSE);} 
return 
bgl_write_regexp(BgL_tmpz00_5778, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BGL_MMAPP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 obj_t BgL_tmpz00_5788;
if(
BGL_MMAPP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
BgL_tmpz00_5788 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5791;
BgL_auxz00_5791 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(26790L), BGl_string2621z00zz__r4_output_6_10_3z00, BGl_string2638z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5791,BFALSE,BFALSE);} 
return 
bgl_write_mmap(BgL_tmpz00_5788, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BGL_SEMAPHOREP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 obj_t BgL_tmpz00_5798;
if(
BGL_SEMAPHOREP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
BgL_tmpz00_5798 = BgL_objz00_40
; }  else 
{ 
 obj_t BgL_auxz00_5801;
BgL_auxz00_5801 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(26790L), BGl_string2621z00zz__r4_output_6_10_3z00, BGl_string2639z00zz__r4_output_6_10_3z00, BgL_objz00_40); 
FAILURE(BgL_auxz00_5801,BFALSE,BFALSE);} 
return 
bgl_write_semaphore(BgL_tmpz00_5798, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
OPAQUEP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
BGL_TAIL return 
bgl_write_opaque(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
CUSTOMP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
BGL_TAIL return 
bgl_write_custom(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BINARY_PORTP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_write_binary_port(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BGL_DYNAMIC_ENVP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
return 
bgl_write_dynamic_env(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
if(
BGL_INT8P(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 long BgL_arg1509z00_1911;
{ /* Ieee/output.scm 761 */
 int8_t BgL_xz00_3060;
BgL_xz00_3060 = 
BGL_BINT8_TO_INT8(BgL_objz00_40); 
{ /* Ieee/output.scm 761 */
 long BgL_arg1999z00_3061;
BgL_arg1999z00_3061 = 
(long)(BgL_xz00_3060); 
BgL_arg1509z00_1911 = 
(long)(BgL_arg1999z00_3061); } } 
{ 
 obj_t BgL_objz00_5823;
BgL_objz00_5823 = 
BINT(BgL_arg1509z00_1911); 
BgL_objz00_40 = BgL_objz00_5823; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 761 */
if(
BGL_UINT8P(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 long BgL_arg1512z00_1913;
{ /* Ieee/output.scm 761 */
 uint8_t BgL_xz00_3063;
BgL_xz00_3063 = 
BGL_BUINT8_TO_UINT8(BgL_objz00_40); 
{ /* Ieee/output.scm 761 */
 long BgL_arg1998z00_3064;
BgL_arg1998z00_3064 = 
(long)(BgL_xz00_3063); 
BgL_arg1512z00_1913 = 
(long)(BgL_arg1998z00_3064); } } 
{ 
 obj_t BgL_objz00_5830;
BgL_objz00_5830 = 
BINT(BgL_arg1512z00_1913); 
BgL_objz00_40 = BgL_objz00_5830; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 761 */
if(
BGL_INT16P(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 long BgL_arg1515z00_1915;
{ /* Ieee/output.scm 761 */
 int16_t BgL_xz00_3066;
BgL_xz00_3066 = 
BGL_BINT16_TO_INT16(BgL_objz00_40); 
{ /* Ieee/output.scm 761 */
 long BgL_arg1997z00_3067;
BgL_arg1997z00_3067 = 
(long)(BgL_xz00_3066); 
BgL_arg1515z00_1915 = 
(long)(BgL_arg1997z00_3067); } } 
{ 
 obj_t BgL_objz00_5837;
BgL_objz00_5837 = 
BINT(BgL_arg1515z00_1915); 
BgL_objz00_40 = BgL_objz00_5837; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 761 */
if(
BGL_UINT16P(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 long BgL_arg1518z00_1917;
{ /* Ieee/output.scm 761 */
 uint16_t BgL_xz00_3069;
BgL_xz00_3069 = 
BGL_BUINT16_TO_UINT16(BgL_objz00_40); 
{ /* Ieee/output.scm 761 */
 long BgL_arg1996z00_3070;
BgL_arg1996z00_3070 = 
(long)(BgL_xz00_3069); 
BgL_arg1518z00_1917 = 
(long)(BgL_arg1996z00_3070); } } 
{ 
 obj_t BgL_objz00_5844;
BgL_objz00_5844 = 
BINT(BgL_arg1518z00_1917); 
BgL_objz00_40 = BgL_objz00_5844; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 761 */
if(
BGL_INT32P(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 long BgL_arg1520z00_1919;
{ /* Ieee/output.scm 761 */
 int32_t BgL_nz00_3072;
BgL_nz00_3072 = 
BGL_BINT32_TO_INT32(BgL_objz00_40); 
BgL_arg1520z00_1919 = 
(long)(BgL_nz00_3072); } 
{ 
 obj_t BgL_objz00_5850;
BgL_objz00_5850 = 
make_belong(BgL_arg1520z00_1919); 
BgL_objz00_40 = BgL_objz00_5850; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 761 */
if(
BGL_UINT32P(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 BGL_LONGLONG_T BgL_arg1522z00_1921;
{ /* Ieee/output.scm 761 */
 uint32_t BgL_nz00_3073;
BgL_nz00_3073 = 
BGL_BUINT32_TO_UINT32(BgL_objz00_40); 
BgL_arg1522z00_1921 = 
(BGL_LONGLONG_T)(BgL_nz00_3073); } 
{ 
 obj_t BgL_objz00_5856;
BgL_objz00_5856 = 
make_bllong(BgL_arg1522z00_1921); 
BgL_objz00_40 = BgL_objz00_5856; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 761 */
if(
BGL_INT64P(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
 BGL_LONGLONG_T BgL_arg1524z00_1923;
{ /* Ieee/output.scm 761 */
 int64_t BgL_nz00_3074;
BgL_nz00_3074 = 
BGL_BINT64_TO_INT64(BgL_objz00_40); 
BgL_arg1524z00_1923 = 
(BGL_LONGLONG_T)(BgL_nz00_3074); } 
{ 
 obj_t BgL_objz00_5862;
BgL_objz00_5862 = 
make_bllong(BgL_arg1524z00_1923); 
BgL_objz00_40 = BgL_objz00_5862; 
goto bgl_display_obj;} }  else 
{ /* Ieee/output.scm 761 */
if(
BGL_UINT64P(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
{ /* Ieee/output.scm 761 */
 uint64_t BgL_vz00_1925;
{ /* Ieee/output.scm 761 */
 uint64_t BgL_arg1531z00_1928;
BgL_arg1531z00_1928 = 
(uint64_t)(10L); 
{ /* Ieee/output.scm 761 */
 uint64_t BgL_za71za7_3075;
BgL_za71za7_3075 = 
BGL_BINT64_TO_INT64(BgL_objz00_40); 
BgL_vz00_1925 = 
(BgL_za71za7_3075/BgL_arg1531z00_1928); } } 
if(
(BgL_vz00_1925>(uint64_t)(0)))
{ /* Ieee/output.scm 761 */
 BGL_LONGLONG_T BgL_arg1528z00_1927;
BgL_arg1528z00_1927 = 
(BGL_LONGLONG_T)(BgL_vz00_1925); 
bgl_display_obj(
make_bllong(BgL_arg1528z00_1927), BgL_portz00_41); }  else 
{ /* Ieee/output.scm 761 */BFALSE; } } 
{ /* Ieee/output.scm 761 */
 long BgL_arg1532z00_1929;
{ /* Ieee/output.scm 761 */
 uint64_t BgL_arg1534z00_1930;
{ /* Ieee/output.scm 761 */
 uint64_t BgL_arg1535z00_1931;
BgL_arg1535z00_1931 = 
(uint64_t)(10L); 
{ /* Ieee/output.scm 761 */
 uint64_t BgL_n1z00_3080;
BgL_n1z00_3080 = 
BGL_BINT64_TO_INT64(BgL_objz00_40); 
{ /* Ieee/output.scm 761 */
 int64_t BgL_tmpz00_5876;
BgL_tmpz00_5876 = 
(int64_t)(BgL_arg1535z00_1931); 
BgL_arg1534z00_1930 = 
(BgL_n1z00_3080%BgL_tmpz00_5876); } } } 
{ /* Ieee/output.scm 761 */
 long BgL_arg1993z00_3083;
BgL_arg1993z00_3083 = 
(long)(BgL_arg1534z00_1930); 
BgL_arg1532z00_1929 = 
(long)(BgL_arg1993z00_3083); } } 
{ 
 obj_t BgL_objz00_5881;
BgL_objz00_5881 = 
BINT(BgL_arg1532z00_1929); 
BgL_objz00_40 = BgL_objz00_5881; 
goto bgl_display_obj;} } }  else 
{ /* Ieee/output.scm 761 */
if(
CNSTP(BgL_objz00_40))
{ /* Ieee/output.scm 761 */
BGL_TAIL return 
bgl_write_cnst(BgL_objz00_40, BgL_portz00_41);}  else 
{ /* Ieee/output.scm 761 */
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_3917, obj_t BgL_objz00_3918, obj_t BgL_portz00_3919)
{
{ /* Ieee/output.scm 760 */
return 
bgl_display_obj(BgL_objz00_3918, BgL_portz00_3919);} 

}



/* write-2 */
BGL_EXPORTED_DEF obj_t bgl_write_obj(obj_t BgL_objz00_42, obj_t BgL_portz00_43)
{
{ /* Ieee/output.scm 766 */
if(
STRINGP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
if(
BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00())
{ /* Ieee/output.scm 854 */
 obj_t BgL_strz00_3088;
BgL_strz00_3088 = 
string_for_read(BgL_objz00_42); 
{ /* Ieee/output.scm 855 */
 obj_t BgL_escz00_3089;
{ /* Ieee/output.scm 856 */
 obj_t BgL_tmpz00_3092;
{ /* Ieee/output.scm 856 */
 int BgL_tmpz00_5893;
BgL_tmpz00_5893 = 
(int)(1L); 
BgL_tmpz00_3092 = 
BGL_MVALUES_VAL(BgL_tmpz00_5893); } 
{ /* Ieee/output.scm 856 */
 int BgL_tmpz00_5896;
BgL_tmpz00_5896 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_5896, BUNSPEC); } 
BgL_escz00_3089 = BgL_tmpz00_3092; } 
return 
bgl_write_string(BgL_strz00_3088, 
CBOOL(BgL_escz00_3089), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 851 */
return 
bgl_write_string(
string_for_read(BgL_objz00_42), ((bool_t)0), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 767 */
if(
SYMBOLP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
BGl_writezd2symbolzd2zz__r4_output_6_10_3z00(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
INTEGERP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_display_fixnum(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
CHARP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_write_char(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
PAIRP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
BGl_writezd2pairzd2zz__r4_output_6_10_3z00(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
NULLP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_display_string(BGl_string2616z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
(BgL_objz00_42==BFALSE))
{ /* Ieee/output.scm 767 */
return 
bgl_display_string(BGl_string2617z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
(BgL_objz00_42==BTRUE))
{ /* Ieee/output.scm 767 */
return 
bgl_display_string(BGl_string2618z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
(BgL_objz00_42==BUNSPEC))
{ /* Ieee/output.scm 767 */
return 
bgl_display_string(BGl_string2619z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
ELONGP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_write_elong(
BELONG_TO_LONG(BgL_objz00_42), BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
REALP(BgL_objz00_42))
{ /* Ieee/output.scm 884 */
 obj_t BgL_arg1651z00_3104;
BgL_arg1651z00_3104 = 
bgl_real_to_string(
REAL_TO_DOUBLE(BgL_objz00_42)); 
return 
bgl_display_string(BgL_arg1651z00_3104, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
KEYWORDP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_char(((unsigned char)':'), BgL_portz00_43); 
{ /* Ieee/output.scm 866 */
 obj_t BgL_arg1649z00_3107;
BgL_arg1649z00_3107 = 
KEYWORD_TO_STRING(BgL_objz00_42); 
return 
bgl_display_string(BgL_arg1649z00_3107, BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 767 */
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2620z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 936 */
 obj_t BgL_arg1663z00_3111;
{ /* Ieee/output.scm 936 */
 obj_t BgL_auxz00_5944;
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_42))
{ /* Ieee/output.scm 936 */
BgL_auxz00_5944 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_5947;
BgL_auxz00_5947 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(33951L), BGl_string2640z00zz__r4_output_6_10_3z00, BGl_string2622z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_5947,BFALSE,BFALSE);} 
BgL_arg1663z00_3111 = 
BGl_classzd2namezd2zz__objectz00(BgL_auxz00_5944); } 
{ /* Ieee/output.scm 773 */
 obj_t BgL_arg1607z00_3116;
BgL_arg1607z00_3116 = 
SYMBOL_TO_STRING(BgL_arg1663z00_3111); 
bgl_display_string(BgL_arg1607z00_3116, BgL_portz00_43); } } 
return 
bgl_display_string(BGl_string2623z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
VECTORP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
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 767 */
if(
LLONGP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_write_llong(
BLLONG_TO_LLONG(BgL_objz00_42), BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
UCS2_STRINGP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_write_utf8string(
string_for_read(
ucs2_string_to_utf8_string(BgL_objz00_42)), BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
STRUCTP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
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 767 */
if(
BGL_OBJECTP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
 obj_t BgL_list1552z00_1948;
BgL_list1552z00_1948 = 
MAKE_YOUNG_PAIR(BgL_portz00_43, BNIL); 
return 
BGl_objectzd2writezd2zz__objectz00(
((BgL_objectz00_bglt)BgL_objz00_42), BgL_list1552z00_1948);}  else 
{ /* Ieee/output.scm 767 */
if(
BGL_DATEP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2641z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 833 */
 obj_t BgL_tmpz00_5978;
BgL_tmpz00_5978 = 
BGl_datezd2ze3stringz31zz__datez00(BgL_objz00_42); 
bgl_display_string(BgL_tmpz00_5978, BgL_portz00_43); } 
return 
bgl_display_string(BGl_string2623z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BGL_MUTEXP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
BGL_TAIL return 
BGl_writezd2mutexzd2zz__r4_output_6_10_3z00(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BGL_CONDVARP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2624z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 928 */
 obj_t BgL_arg1662z00_3135;
{ /* Ieee/output.scm 928 */
 obj_t BgL_objz00_3138;
if(
BGL_CONDVARP(BgL_objz00_42))
{ /* Ieee/output.scm 928 */
BgL_objz00_3138 = BgL_objz00_42; }  else 
{ 
 obj_t BgL_auxz00_5990;
BgL_auxz00_5990 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(33588L), BGl_string2640z00zz__r4_output_6_10_3z00, BGl_string2625z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_5990,BFALSE,BFALSE);} 
BgL_arg1662z00_3135 = 
BGL_CONDVAR_NAME(BgL_objz00_3138); } 
bgl_display_obj(BgL_arg1662z00_3135, BgL_portz00_43); } 
return 
bgl_display_string(BGl_string2623z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
UCS2P(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_write_ucs2(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
CELLP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2626z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
bgl_write_obj(
CELL_REF(BgL_objz00_42), BgL_portz00_43); 
return 
bgl_display_string(BGl_string2623z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
EOF_OBJECTP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_display_string(BGl_string2627z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
(BgL_objz00_42==(BOPTIONAL)))
{ /* Ieee/output.scm 767 */
return 
bgl_display_string(BGl_string2628z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
(BgL_objz00_42==(BREST)))
{ /* Ieee/output.scm 767 */
return 
bgl_display_string(BGl_string2629z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
(BgL_objz00_42==(BKEY)))
{ /* Ieee/output.scm 767 */
return 
bgl_display_string(BGl_string2630z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
PROCEDUREP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_write_procedure(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
OUTPUT_PORTP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
if(
BGL_OUTPUT_STRING_PORTP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_display_string(BGl_string2631z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BGL_OUTPUT_PROCEDURE_PORTP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_display_string(BGl_string2632z00zz__r4_output_6_10_3z00, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
return 
bgl_write_output_port(BgL_objz00_42, BgL_portz00_43);} } }  else 
{ /* Ieee/output.scm 767 */
if(
INPUT_PORTP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_write_input_port(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BIGNUMP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_write_bignum(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BGL_HVECTORP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
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 767 */
if(
TVECTORP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
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 767 */
if(
BGL_WEAKPTRP(BgL_objz00_42))
{ /* Ieee/output.scm 1052 */
 obj_t BgL_dataz00_3159;
BgL_dataz00_3159 = 
bgl_weakptr_data(BgL_objz00_42); 
bgl_display_string(BGl_string2633z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
bgl_write_obj(BgL_dataz00_3159, BgL_portz00_43); 
return 
bgl_display_char(((unsigned char)'>'), BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
FOREIGNP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_write_foreign(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
PROCESSP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
 obj_t BgL_tmpz00_6053;
if(
PROCESSP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
BgL_tmpz00_6053 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6056;
BgL_auxz00_6056 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(27093L), BGl_string2640z00zz__r4_output_6_10_3z00, BGl_string2634z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6056,BFALSE,BFALSE);} 
return 
bgl_write_process(BgL_tmpz00_6053, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
SOCKETP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
 obj_t BgL_tmpz00_6063;
if(
SOCKETP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
BgL_tmpz00_6063 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6066;
BgL_auxz00_6066 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(27093L), BGl_string2640z00zz__r4_output_6_10_3z00, BGl_string2635z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6066,BFALSE,BFALSE);} 
return 
bgl_write_socket(BgL_tmpz00_6063, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BGL_DATAGRAM_SOCKETP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
 obj_t BgL_tmpz00_6073;
if(
BGL_DATAGRAM_SOCKETP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
BgL_tmpz00_6073 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6076;
BgL_auxz00_6076 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(27093L), BGl_string2640z00zz__r4_output_6_10_3z00, BGl_string2636z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6076,BFALSE,BFALSE);} 
return 
bgl_write_datagram_socket(BgL_tmpz00_6073, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BGL_REGEXPP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
 obj_t BgL_tmpz00_6083;
if(
BGL_REGEXPP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
BgL_tmpz00_6083 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6086;
BgL_auxz00_6086 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(27093L), BGl_string2640z00zz__r4_output_6_10_3z00, BGl_string2637z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6086,BFALSE,BFALSE);} 
return 
bgl_write_regexp(BgL_tmpz00_6083, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BGL_MMAPP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
 obj_t BgL_tmpz00_6093;
if(
BGL_MMAPP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
BgL_tmpz00_6093 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6096;
BgL_auxz00_6096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(27093L), BGl_string2640z00zz__r4_output_6_10_3z00, BGl_string2638z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6096,BFALSE,BFALSE);} 
return 
bgl_write_mmap(BgL_tmpz00_6093, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BGL_SEMAPHOREP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
 obj_t BgL_tmpz00_6103;
if(
BGL_SEMAPHOREP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
BgL_tmpz00_6103 = BgL_objz00_42
; }  else 
{ 
 obj_t BgL_auxz00_6106;
BgL_auxz00_6106 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(27093L), BGl_string2640z00zz__r4_output_6_10_3z00, BGl_string2639z00zz__r4_output_6_10_3z00, BgL_objz00_42); 
FAILURE(BgL_auxz00_6106,BFALSE,BFALSE);} 
return 
bgl_write_semaphore(BgL_tmpz00_6103, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
OPAQUEP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
BGL_TAIL return 
bgl_write_opaque(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
CUSTOMP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
BGL_TAIL return 
bgl_write_custom(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BINARY_PORTP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_write_binary_port(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BGL_DYNAMIC_ENVP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
return 
bgl_write_dynamic_env(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
if(
BGL_INT8P(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2642z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 767 */
 long BgL_arg1581z00_1976;
{ /* Ieee/output.scm 767 */
 int8_t BgL_xz00_3163;
BgL_xz00_3163 = 
BGL_BINT8_TO_INT8(BgL_objz00_42); 
{ /* Ieee/output.scm 767 */
 long BgL_arg1999z00_3164;
BgL_arg1999z00_3164 = 
(long)(BgL_xz00_3163); 
BgL_arg1581z00_1976 = 
(long)(BgL_arg1999z00_3164); } } 
BGL_TAIL return 
bgl_display_obj(
BINT(BgL_arg1581z00_1976), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 767 */
if(
BGL_UINT8P(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2643z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 767 */
 long BgL_arg1583z00_1978;
{ /* Ieee/output.scm 767 */
 uint8_t BgL_xz00_3168;
BgL_xz00_3168 = 
BGL_BUINT8_TO_UINT8(BgL_objz00_42); 
{ /* Ieee/output.scm 767 */
 long BgL_arg1998z00_3169;
BgL_arg1998z00_3169 = 
(long)(BgL_xz00_3168); 
BgL_arg1583z00_1978 = 
(long)(BgL_arg1998z00_3169); } } 
BGL_TAIL return 
bgl_display_obj(
BINT(BgL_arg1583z00_1978), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 767 */
if(
BGL_INT16P(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2644z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 767 */
 long BgL_arg1586z00_1980;
{ /* Ieee/output.scm 767 */
 int16_t BgL_xz00_3173;
BgL_xz00_3173 = 
BGL_BINT16_TO_INT16(BgL_objz00_42); 
{ /* Ieee/output.scm 767 */
 long BgL_arg1997z00_3174;
BgL_arg1997z00_3174 = 
(long)(BgL_xz00_3173); 
BgL_arg1586z00_1980 = 
(long)(BgL_arg1997z00_3174); } } 
BGL_TAIL return 
bgl_display_obj(
BINT(BgL_arg1586z00_1980), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 767 */
if(
BGL_UINT16P(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2645z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 767 */
 long BgL_arg1589z00_1982;
{ /* Ieee/output.scm 767 */
 uint16_t BgL_xz00_3178;
BgL_xz00_3178 = 
BGL_BUINT16_TO_UINT16(BgL_objz00_42); 
{ /* Ieee/output.scm 767 */
 long BgL_arg1996z00_3179;
BgL_arg1996z00_3179 = 
(long)(BgL_xz00_3178); 
BgL_arg1589z00_1982 = 
(long)(BgL_arg1996z00_3179); } } 
BGL_TAIL return 
bgl_display_obj(
BINT(BgL_arg1589z00_1982), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 767 */
if(
BGL_INT32P(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2646z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 767 */
 long BgL_arg1591z00_1984;
{ /* Ieee/output.scm 767 */
 int32_t BgL_nz00_3183;
BgL_nz00_3183 = 
BGL_BINT32_TO_INT32(BgL_objz00_42); 
BgL_arg1591z00_1984 = 
(long)(BgL_nz00_3183); } 
BGL_TAIL return 
bgl_display_obj(
make_belong(BgL_arg1591z00_1984), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 767 */
if(
BGL_UINT32P(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2647z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 767 */
 BGL_LONGLONG_T BgL_arg1595z00_1986;
{ /* Ieee/output.scm 767 */
 uint32_t BgL_nz00_3186;
BgL_nz00_3186 = 
BGL_BUINT32_TO_UINT32(BgL_objz00_42); 
BgL_arg1595z00_1986 = 
(BGL_LONGLONG_T)(BgL_nz00_3186); } 
BGL_TAIL return 
bgl_display_obj(
make_bllong(BgL_arg1595z00_1986), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 767 */
if(
BGL_INT64P(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2648z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 767 */
 BGL_LONGLONG_T BgL_arg1597z00_1988;
{ /* Ieee/output.scm 767 */
 int64_t BgL_nz00_3189;
BgL_nz00_3189 = 
BGL_BINT64_TO_INT64(BgL_objz00_42); 
BgL_arg1597z00_1988 = 
(BGL_LONGLONG_T)(BgL_nz00_3189); } 
BGL_TAIL return 
bgl_display_obj(
make_bllong(BgL_arg1597z00_1988), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 767 */
if(
BGL_UINT64P(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
bgl_display_string(BGl_string2649z00zz__r4_output_6_10_3z00, BgL_portz00_43); 
{ /* Ieee/output.scm 767 */
 uint64_t BgL_vz00_1990;
{ /* Ieee/output.scm 767 */
 uint64_t BgL_arg1602z00_1993;
BgL_arg1602z00_1993 = 
(uint64_t)(10L); 
{ /* Ieee/output.scm 767 */
 uint64_t BgL_za71za7_3192;
BgL_za71za7_3192 = 
BGL_BINT64_TO_INT64(BgL_objz00_42); 
BgL_vz00_1990 = 
(BgL_za71za7_3192/BgL_arg1602z00_1993); } } 
if(
(BgL_vz00_1990>(uint64_t)(0)))
{ /* Ieee/output.scm 767 */
 BGL_LONGLONG_T BgL_arg1600z00_1992;
BgL_arg1600z00_1992 = 
(BGL_LONGLONG_T)(BgL_vz00_1990); 
bgl_display_obj(
make_bllong(BgL_arg1600z00_1992), BgL_portz00_43); }  else 
{ /* Ieee/output.scm 767 */BFALSE; } } 
{ /* Ieee/output.scm 767 */
 long BgL_arg1603z00_1994;
{ /* Ieee/output.scm 767 */
 uint64_t BgL_arg1604z00_1995;
{ /* Ieee/output.scm 767 */
 uint64_t BgL_arg1605z00_1996;
BgL_arg1605z00_1996 = 
(uint64_t)(10L); 
{ /* Ieee/output.scm 767 */
 uint64_t BgL_n1z00_3197;
BgL_n1z00_3197 = 
BGL_BINT64_TO_INT64(BgL_objz00_42); 
{ /* Ieee/output.scm 767 */
 int64_t BgL_tmpz00_6189;
BgL_tmpz00_6189 = 
(int64_t)(BgL_arg1605z00_1996); 
BgL_arg1604z00_1995 = 
(BgL_n1z00_3197%BgL_tmpz00_6189); } } } 
{ /* Ieee/output.scm 767 */
 long BgL_arg1993z00_3200;
BgL_arg1993z00_3200 = 
(long)(BgL_arg1604z00_1995); 
BgL_arg1603z00_1994 = 
(long)(BgL_arg1993z00_3200); } } 
BGL_TAIL return 
bgl_display_obj(
BINT(BgL_arg1603z00_1994), BgL_portz00_43);} }  else 
{ /* Ieee/output.scm 767 */
if(
CNSTP(BgL_objz00_42))
{ /* Ieee/output.scm 767 */
BGL_TAIL return 
bgl_write_cnst(BgL_objz00_42, BgL_portz00_43);}  else 
{ /* Ieee/output.scm 767 */
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_3920, obj_t BgL_objz00_3921, obj_t BgL_portz00_3922)
{
{ /* Ieee/output.scm 766 */
return 
bgl_write_obj(BgL_objz00_3921, BgL_portz00_3922);} 

}



/* 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 772 */
{ /* Ieee/output.scm 773 */
 obj_t BgL_arg1607z00_3202;
BgL_arg1607z00_3202 = 
SYMBOL_TO_STRING(BgL_objz00_44); 
return 
bgl_display_string(BgL_arg1607z00_3202, BgL_portz00_45);} } 

}



/* &display-symbol */
obj_t BGl_z62displayzd2symbolzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3923, obj_t BgL_objz00_3924, obj_t BgL_portz00_3925)
{
{ /* Ieee/output.scm 772 */
{ /* Ieee/output.scm 773 */
 obj_t BgL_auxz00_6210; obj_t BgL_auxz00_6203;
if(
OUTPUT_PORTP(BgL_portz00_3925))
{ /* Ieee/output.scm 773 */
BgL_auxz00_6210 = BgL_portz00_3925
; }  else 
{ 
 obj_t BgL_auxz00_6213;
BgL_auxz00_6213 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(27404L), BGl_string2650z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3925); 
FAILURE(BgL_auxz00_6213,BFALSE,BFALSE);} 
if(
SYMBOLP(BgL_objz00_3924))
{ /* Ieee/output.scm 773 */
BgL_auxz00_6203 = BgL_objz00_3924
; }  else 
{ 
 obj_t BgL_auxz00_6206;
BgL_auxz00_6206 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(27404L), BGl_string2650z00zz__r4_output_6_10_3z00, BGl_string2651z00zz__r4_output_6_10_3z00, BgL_objz00_3924); 
FAILURE(BgL_auxz00_6206,BFALSE,BFALSE);} 
return 
BGl_displayzd2symbolzd2zz__r4_output_6_10_3z00(BgL_auxz00_6203, BgL_auxz00_6210);} } 

}



/* 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 778 */
{ /* Ieee/output.scm 785 */
 obj_t BgL_strz00_2000;
BgL_strz00_2000 = 
SYMBOL_TO_STRING(BgL_objz00_46); 
{ /* Ieee/output.scm 785 */
 long BgL_lenz00_2001;
BgL_lenz00_2001 = 
STRING_LENGTH(BgL_strz00_2000); 
{ /* Ieee/output.scm 786 */
 long BgL_lenzd21zd2_2002;
BgL_lenzd21zd2_2002 = 
(BgL_lenz00_2001-1L); 
{ /* Ieee/output.scm 787 */

{ 
 long BgL_iz00_2004; bool_t BgL_az00_2005;
BgL_iz00_2004 = 0L; 
BgL_az00_2005 = ((bool_t)0); 
BgL_zc3z04anonymousza31608ze3z87_2006:
if(
(BgL_iz00_2004==BgL_lenz00_2001))
{ /* Ieee/output.scm 790 */
if(BgL_az00_2005)
{ /* Ieee/output.scm 792 */
return 
bgl_display_string(BgL_strz00_2000, BgL_portz00_47);}  else 
{ /* Ieee/output.scm 793 */
 bool_t BgL_test3198z00_6225;
if(
(BgL_objz00_46==BGl_symbol2652z00zz__r4_output_6_10_3z00))
{ /* Ieee/output.scm 793 */
BgL_test3198z00_6225 = ((bool_t)1)
; }  else 
{ /* Ieee/output.scm 793 */
BgL_test3198z00_6225 = 
(BgL_objz00_46==BGl_symbol2654z00zz__r4_output_6_10_3z00)
; } 
if(BgL_test3198z00_6225)
{ /* Ieee/output.scm 793 */
return 
bgl_display_string(BgL_strz00_2000, BgL_portz00_47);}  else 
{ /* Ieee/output.scm 793 */
bgl_display_string(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 833 */
 obj_t BgL_tmpz00_6231;
BgL_tmpz00_6231 = 
symbol_for_read(BgL_strz00_2000); 
bgl_display_string(BgL_tmpz00_6231, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47);} } }  else 
{ /* Ieee/output.scm 795 */
 unsigned char BgL_cz00_2009;
{ /* Ieee/output.scm 795 */
 long BgL_l2247z00_3985;
BgL_l2247z00_3985 = 
STRING_LENGTH(BgL_strz00_2000); 
if(
BOUND_CHECK(BgL_iz00_2004, BgL_l2247z00_3985))
{ /* Ieee/output.scm 795 */
BgL_cz00_2009 = 
STRING_REF(BgL_strz00_2000, BgL_iz00_2004); }  else 
{ 
 obj_t BgL_auxz00_6239;
BgL_auxz00_6239 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(28116L), BGl_string2599z00zz__r4_output_6_10_3z00, BgL_strz00_2000, 
(int)(BgL_l2247z00_3985), 
(int)(BgL_iz00_2004)); 
FAILURE(BgL_auxz00_6239,BFALSE,BFALSE);} } 
{ 

switch( BgL_cz00_2009) { 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_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 833 */
 obj_t BgL_tmpz00_6246;
BgL_tmpz00_6246 = 
symbol_for_read(BgL_strz00_2000); 
bgl_display_string(BgL_tmpz00_6246, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47);break;case ((unsigned char)':') : 

if(
(BgL_iz00_2004==0L))
{ /* Ieee/output.scm 803 */
 bool_t BgL_test3202z00_6252;
if(
(BgL_lenzd21zd2_2002>2L))
{ /* Ieee/output.scm 804 */
 unsigned char BgL_tmpz00_6255;
{ /* Ieee/output.scm 804 */
 long BgL_i2250z00_3988;
BgL_i2250z00_3988 = 
(BgL_iz00_2004+1L); 
{ /* Ieee/output.scm 804 */
 long BgL_l2251z00_3989;
BgL_l2251z00_3989 = 
STRING_LENGTH(BgL_strz00_2000); 
if(
BOUND_CHECK(BgL_i2250z00_3988, BgL_l2251z00_3989))
{ /* Ieee/output.scm 804 */
BgL_tmpz00_6255 = 
STRING_REF(BgL_strz00_2000, BgL_i2250z00_3988)
; }  else 
{ 
 obj_t BgL_auxz00_6261;
BgL_auxz00_6261 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(28345L), BGl_string2599z00zz__r4_output_6_10_3z00, BgL_strz00_2000, 
(int)(BgL_l2251z00_3989), 
(int)(BgL_i2250z00_3988)); 
FAILURE(BgL_auxz00_6261,BFALSE,BFALSE);} } } 
BgL_test3202z00_6252 = 
(BgL_tmpz00_6255==((unsigned char)':')); }  else 
{ /* Ieee/output.scm 803 */
BgL_test3202z00_6252 = ((bool_t)0)
; } 
if(BgL_test3202z00_6252)
{ 
 long BgL_iz00_6268;
BgL_iz00_6268 = 
(BgL_iz00_2004+2L); 
BgL_iz00_2004 = BgL_iz00_6268; 
goto BgL_zc3z04anonymousza31608ze3z87_2006;}  else 
{ /* Ieee/output.scm 803 */
bgl_display_string(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 833 */
 obj_t BgL_tmpz00_6271;
BgL_tmpz00_6271 = 
symbol_for_read(BgL_strz00_2000); 
bgl_display_string(BgL_tmpz00_6271, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47);} }  else 
{ /* Ieee/output.scm 802 */
if(
(BgL_iz00_2004==BgL_lenzd21zd2_2002))
{ /* Ieee/output.scm 807 */
bgl_display_string(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 833 */
 obj_t BgL_tmpz00_6278;
BgL_tmpz00_6278 = 
symbol_for_read(BgL_strz00_2000); 
bgl_display_string(BgL_tmpz00_6278, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47);}  else 
{ 
 long BgL_iz00_6282;
BgL_iz00_6282 = 
(BgL_iz00_2004+1L); 
BgL_iz00_2004 = BgL_iz00_6282; 
goto BgL_zc3z04anonymousza31608ze3z87_2006;} } break;case ((unsigned char)'.') : 

if(
(BgL_lenz00_2001==1L))
{ /* Ieee/output.scm 812 */
bgl_display_string(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 833 */
 obj_t BgL_tmpz00_6287;
BgL_tmpz00_6287 = 
symbol_for_read(BgL_strz00_2000); 
bgl_display_string(BgL_tmpz00_6287, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47);}  else 
{ 
 long BgL_iz00_6291;
BgL_iz00_6291 = 
(BgL_iz00_2004+1L); 
BgL_iz00_2004 = BgL_iz00_6291; 
goto BgL_zc3z04anonymousza31608ze3z87_2006;} break;
default: 
{ /* Ieee/output.scm 816 */
 bool_t BgL_test3207z00_6293;
if(
(BgL_cz00_2009<=((unsigned char)' ')))
{ /* Ieee/output.scm 816 */
BgL_test3207z00_6293 = ((bool_t)1)
; }  else 
{ /* Ieee/output.scm 816 */
BgL_test3207z00_6293 = 
(BgL_cz00_2009>=((unsigned char)''))
; } 
if(BgL_test3207z00_6293)
{ /* Ieee/output.scm 816 */
bgl_display_string(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47); 
{ /* Ieee/output.scm 833 */
 obj_t BgL_tmpz00_6298;
BgL_tmpz00_6298 = 
symbol_for_read(BgL_strz00_2000); 
bgl_display_string(BgL_tmpz00_6298, BgL_portz00_47); } 
return 
bgl_display_string(BGl_string2656z00zz__r4_output_6_10_3z00, BgL_portz00_47);}  else 
{ /* Ieee/output.scm 818 */
 long BgL_arg1626z00_2028; bool_t BgL_arg1627z00_2029;
BgL_arg1626z00_2028 = 
(BgL_iz00_2004+1L); 
if(BgL_az00_2005)
{ /* Ieee/output.scm 819 */
BgL_arg1627z00_2029 = BgL_az00_2005; }  else 
{ /* Ieee/output.scm 820 */
 bool_t BgL__ortest_1053z00_2031;
if(
isdigit(BgL_cz00_2009))
{ /* Ieee/output.scm 820 */
BgL__ortest_1053z00_2031 = ((bool_t)0); }  else 
{ /* Ieee/output.scm 820 */
if(
(BgL_cz00_2009==((unsigned char)'e')))
{ /* Ieee/output.scm 821 */
BgL__ortest_1053z00_2031 = ((bool_t)0); }  else 
{ /* Ieee/output.scm 821 */
if(
(BgL_cz00_2009==((unsigned char)'E')))
{ /* Ieee/output.scm 822 */
BgL__ortest_1053z00_2031 = ((bool_t)0); }  else 
{ /* Ieee/output.scm 822 */
if(
(BgL_cz00_2009==((unsigned char)'-')))
{ /* Ieee/output.scm 823 */
BgL__ortest_1053z00_2031 = ((bool_t)0); }  else 
{ /* Ieee/output.scm 823 */
if(
(BgL_cz00_2009==((unsigned char)'+')))
{ /* Ieee/output.scm 824 */
BgL__ortest_1053z00_2031 = ((bool_t)0); }  else 
{ /* Ieee/output.scm 824 */
BgL__ortest_1053z00_2031 = ((bool_t)1); } } } } } 
if(BgL__ortest_1053z00_2031)
{ /* Ieee/output.scm 820 */
BgL_arg1627z00_2029 = BgL__ortest_1053z00_2031; }  else 
{ /* Ieee/output.scm 820 */
if(
(BgL_iz00_2004==0L))
{ /* Ieee/output.scm 826 */
 bool_t BgL__ortest_1059z00_2033;
BgL__ortest_1059z00_2033 = 
(BgL_cz00_2009==((unsigned char)'e')); 
if(BgL__ortest_1059z00_2033)
{ /* Ieee/output.scm 826 */
BgL_arg1627z00_2029 = BgL__ortest_1059z00_2033; }  else 
{ /* Ieee/output.scm 826 */
BgL_arg1627z00_2029 = 
(BgL_cz00_2009==((unsigned char)'E')); } }  else 
{ /* Ieee/output.scm 825 */
BgL_arg1627z00_2029 = ((bool_t)0); } } } 
{ 
 bool_t BgL_az00_6321; long BgL_iz00_6320;
BgL_iz00_6320 = BgL_arg1626z00_2028; 
BgL_az00_6321 = BgL_arg1627z00_2029; 
BgL_az00_2005 = BgL_az00_6321; 
BgL_iz00_2004 = BgL_iz00_6320; 
goto BgL_zc3z04anonymousza31608ze3z87_2006;} } } } } } } } } } } } 

}



/* &write-symbol */
obj_t BGl_z62writezd2symbolzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3926, obj_t BgL_objz00_3927, obj_t BgL_portz00_3928)
{
{ /* Ieee/output.scm 778 */
{ /* Ieee/output.scm 785 */
 obj_t BgL_auxz00_6330; obj_t BgL_auxz00_6323;
if(
OUTPUT_PORTP(BgL_portz00_3928))
{ /* Ieee/output.scm 785 */
BgL_auxz00_6330 = BgL_portz00_3928
; }  else 
{ 
 obj_t BgL_auxz00_6333;
BgL_auxz00_6333 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(27836L), BGl_string2657z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3928); 
FAILURE(BgL_auxz00_6333,BFALSE,BFALSE);} 
if(
SYMBOLP(BgL_objz00_3927))
{ /* Ieee/output.scm 785 */
BgL_auxz00_6323 = BgL_objz00_3927
; }  else 
{ 
 obj_t BgL_auxz00_6326;
BgL_auxz00_6326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(27836L), BGl_string2657z00zz__r4_output_6_10_3z00, BGl_string2651z00zz__r4_output_6_10_3z00, BgL_objz00_3927); 
FAILURE(BgL_auxz00_6326,BFALSE,BFALSE);} 
return 
BGl_writezd2symbolzd2zz__r4_output_6_10_3z00(BgL_auxz00_6323, BgL_auxz00_6330);} } 

}



/* 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 832 */
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_3929, obj_t BgL_objz00_3930, obj_t BgL_portz00_3931)
{
{ /* Ieee/output.scm 832 */
{ /* Ieee/output.scm 833 */
 obj_t BgL_auxz00_6346; obj_t BgL_auxz00_6339;
if(
OUTPUT_PORTP(BgL_portz00_3931))
{ /* Ieee/output.scm 833 */
BgL_auxz00_6346 = BgL_portz00_3931
; }  else 
{ 
 obj_t BgL_auxz00_6349;
BgL_auxz00_6349 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(29178L), BGl_string2658z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3931); 
FAILURE(BgL_auxz00_6349,BFALSE,BFALSE);} 
if(
STRINGP(BgL_objz00_3930))
{ /* Ieee/output.scm 833 */
BgL_auxz00_6339 = BgL_objz00_3930
; }  else 
{ 
 obj_t BgL_auxz00_6342;
BgL_auxz00_6342 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(29178L), BGl_string2658z00zz__r4_output_6_10_3z00, BGl_string2602z00zz__r4_output_6_10_3z00, BgL_objz00_3930); 
FAILURE(BgL_auxz00_6342,BFALSE,BFALSE);} 
return 
BGl_displayzd2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_6339, BgL_auxz00_6346);} } 

}



/* 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 838 */
{ /* Ieee/output.scm 839 */
 bool_t BgL_test3222z00_6354;
if(
(BgL_endz00_52>=BgL_startz00_51))
{ /* Ieee/output.scm 840 */
 bool_t BgL_test3224z00_6357;
{ /* Ieee/output.scm 840 */
 long BgL_tmpz00_6358;
BgL_tmpz00_6358 = 
(
STRING_LENGTH(BgL_objz00_50)+1L); 
BgL_test3224z00_6357 = 
BOUND_CHECK(BgL_endz00_52, BgL_tmpz00_6358); } 
if(BgL_test3224z00_6357)
{ /* Ieee/output.scm 840 */
BgL_test3222z00_6354 = 
(BgL_startz00_51>=0L)
; }  else 
{ /* Ieee/output.scm 840 */
BgL_test3222z00_6354 = ((bool_t)0)
; } }  else 
{ /* Ieee/output.scm 839 */
BgL_test3222z00_6354 = ((bool_t)0)
; } 
if(BgL_test3222z00_6354)
{ /* Ieee/output.scm 839 */
return 
bgl_display_substring(BgL_objz00_50, BgL_startz00_51, BgL_endz00_52, BgL_portz00_53);}  else 
{ /* Ieee/output.scm 844 */
 obj_t BgL_arg1638z00_4319;
{ /* Ieee/output.scm 844 */
 obj_t BgL_list1639z00_4320;
{ /* Ieee/output.scm 844 */
 obj_t BgL_arg1640z00_4321;
BgL_arg1640z00_4321 = 
MAKE_YOUNG_PAIR(
BINT(BgL_endz00_52), BNIL); 
BgL_list1639z00_4320 = 
MAKE_YOUNG_PAIR(
BINT(BgL_startz00_51), BgL_arg1640z00_4321); } 
BgL_arg1638z00_4319 = 
BGl_formatz00zz__r4_output_6_10_3z00(BGl_string2659z00zz__r4_output_6_10_3z00, BgL_list1639z00_4320); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2660z00zz__r4_output_6_10_3z00, BgL_arg1638z00_4319, BgL_objz00_50);} } } 

}



/* &display-substring */
obj_t BGl_z62displayzd2substringzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3932, obj_t BgL_objz00_3933, obj_t BgL_startz00_3934, obj_t BgL_endz00_3935, obj_t BgL_portz00_3936)
{
{ /* Ieee/output.scm 838 */
{ /* Ieee/output.scm 839 */
 obj_t BgL_auxz00_6395; long BgL_auxz00_6386; long BgL_auxz00_6377; obj_t BgL_auxz00_6370;
if(
OUTPUT_PORTP(BgL_portz00_3936))
{ /* Ieee/output.scm 839 */
BgL_auxz00_6395 = BgL_portz00_3936
; }  else 
{ 
 obj_t BgL_auxz00_6398;
BgL_auxz00_6398 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(29486L), BGl_string2662z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3936); 
FAILURE(BgL_auxz00_6398,BFALSE,BFALSE);} 
{ /* Ieee/output.scm 839 */
 obj_t BgL_tmpz00_6387;
if(
INTEGERP(BgL_endz00_3935))
{ /* Ieee/output.scm 839 */
BgL_tmpz00_6387 = BgL_endz00_3935
; }  else 
{ 
 obj_t BgL_auxz00_6390;
BgL_auxz00_6390 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(29486L), BGl_string2662z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_endz00_3935); 
FAILURE(BgL_auxz00_6390,BFALSE,BFALSE);} 
BgL_auxz00_6386 = 
(long)CINT(BgL_tmpz00_6387); } 
{ /* Ieee/output.scm 839 */
 obj_t BgL_tmpz00_6378;
if(
INTEGERP(BgL_startz00_3934))
{ /* Ieee/output.scm 839 */
BgL_tmpz00_6378 = BgL_startz00_3934
; }  else 
{ 
 obj_t BgL_auxz00_6381;
BgL_auxz00_6381 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(29486L), BGl_string2662z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_startz00_3934); 
FAILURE(BgL_auxz00_6381,BFALSE,BFALSE);} 
BgL_auxz00_6377 = 
(long)CINT(BgL_tmpz00_6378); } 
if(
STRINGP(BgL_objz00_3933))
{ /* Ieee/output.scm 839 */
BgL_auxz00_6370 = BgL_objz00_3933
; }  else 
{ 
 obj_t BgL_auxz00_6373;
BgL_auxz00_6373 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(29486L), BGl_string2662z00zz__r4_output_6_10_3z00, BGl_string2602z00zz__r4_output_6_10_3z00, BgL_objz00_3933); 
FAILURE(BgL_auxz00_6373,BFALSE,BFALSE);} 
return 
BGl_displayzd2substringzd2zz__r4_output_6_10_3z00(BgL_auxz00_6370, BgL_auxz00_6377, BgL_auxz00_6386, BgL_auxz00_6395);} } 

}



/* 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 850 */
if(
BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00())
{ /* Ieee/output.scm 854 */
 obj_t BgL_strz00_3312;
BgL_strz00_3312 = 
string_for_read(BgL_objz00_54); 
{ /* Ieee/output.scm 855 */
 obj_t BgL_escz00_3313;
{ /* Ieee/output.scm 856 */
 obj_t BgL_tmpz00_3316;
{ /* Ieee/output.scm 856 */
 int BgL_tmpz00_6406;
BgL_tmpz00_6406 = 
(int)(1L); 
BgL_tmpz00_3316 = 
BGL_MVALUES_VAL(BgL_tmpz00_6406); } 
{ /* Ieee/output.scm 856 */
 int BgL_tmpz00_6409;
BgL_tmpz00_6409 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6409, BUNSPEC); } 
BgL_escz00_3313 = BgL_tmpz00_3316; } 
return 
bgl_write_string(BgL_strz00_3312, 
CBOOL(BgL_escz00_3313), BgL_portz00_55);} }  else 
{ /* Ieee/output.scm 851 */
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_3937, obj_t BgL_objz00_3938, obj_t BgL_portz00_3939)
{
{ /* Ieee/output.scm 850 */
{ /* Ieee/output.scm 851 */
 obj_t BgL_auxz00_6423; obj_t BgL_auxz00_6416;
if(
OUTPUT_PORTP(BgL_portz00_3939))
{ /* Ieee/output.scm 851 */
BgL_auxz00_6423 = BgL_portz00_3939
; }  else 
{ 
 obj_t BgL_auxz00_6426;
BgL_auxz00_6426 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(30004L), BGl_string2663z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3939); 
FAILURE(BgL_auxz00_6426,BFALSE,BFALSE);} 
if(
STRINGP(BgL_objz00_3938))
{ /* Ieee/output.scm 851 */
BgL_auxz00_6416 = BgL_objz00_3938
; }  else 
{ 
 obj_t BgL_auxz00_6419;
BgL_auxz00_6419 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(30004L), BGl_string2663z00zz__r4_output_6_10_3z00, BGl_string2602z00zz__r4_output_6_10_3z00, BgL_objz00_3938); 
FAILURE(BgL_auxz00_6419,BFALSE,BFALSE);} 
return 
BGl_writezd2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_6416, BgL_auxz00_6423);} } 

}



/* 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 871 */
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_3940, obj_t BgL_objz00_3941, obj_t BgL_portz00_3942)
{
{ /* Ieee/output.scm 871 */
{ /* Ieee/output.scm 872 */
 obj_t BgL_auxz00_6439; obj_t BgL_auxz00_6432;
if(
OUTPUT_PORTP(BgL_portz00_3942))
{ /* Ieee/output.scm 872 */
BgL_auxz00_6439 = BgL_portz00_3942
; }  else 
{ 
 obj_t BgL_auxz00_6442;
BgL_auxz00_6442 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(30890L), BGl_string2664z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3942); 
FAILURE(BgL_auxz00_6442,BFALSE,BFALSE);} 
if(
INTEGERP(BgL_objz00_3941))
{ /* Ieee/output.scm 872 */
BgL_auxz00_6432 = BgL_objz00_3941
; }  else 
{ 
 obj_t BgL_auxz00_6435;
BgL_auxz00_6435 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(30890L), BGl_string2664z00zz__r4_output_6_10_3z00, BGl_string2578z00zz__r4_output_6_10_3z00, BgL_objz00_3941); 
FAILURE(BgL_auxz00_6435,BFALSE,BFALSE);} 
return 
BGl_displayzd2fixnumzd2zz__r4_output_6_10_3z00(BgL_auxz00_6432, BgL_auxz00_6439);} } 

}



/* 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 877 */
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_3943, obj_t BgL_objz00_3944, obj_t BgL_portz00_3945)
{
{ /* Ieee/output.scm 877 */
{ /* Ieee/output.scm 878 */
 obj_t BgL_auxz00_6457; long BgL_auxz00_6448;
if(
OUTPUT_PORTP(BgL_portz00_3945))
{ /* Ieee/output.scm 878 */
BgL_auxz00_6457 = BgL_portz00_3945
; }  else 
{ 
 obj_t BgL_auxz00_6460;
BgL_auxz00_6460 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(31184L), BGl_string2665z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3945); 
FAILURE(BgL_auxz00_6460,BFALSE,BFALSE);} 
{ /* Ieee/output.scm 878 */
 obj_t BgL_tmpz00_6449;
if(
ELONGP(BgL_objz00_3944))
{ /* Ieee/output.scm 878 */
BgL_tmpz00_6449 = BgL_objz00_3944
; }  else 
{ 
 obj_t BgL_auxz00_6452;
BgL_auxz00_6452 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(31184L), BGl_string2665z00zz__r4_output_6_10_3z00, BGl_string2666z00zz__r4_output_6_10_3z00, BgL_objz00_3944); 
FAILURE(BgL_auxz00_6452,BFALSE,BFALSE);} 
BgL_auxz00_6448 = 
BELONG_TO_LONG(BgL_tmpz00_6449); } 
return 
BGl_displayzd2elongzd2zz__r4_output_6_10_3z00(BgL_auxz00_6448, BgL_auxz00_6457);} } 

}



/* 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 883 */
{ /* Ieee/output.scm 884 */
 obj_t BgL_arg1651z00_3322;
BgL_arg1651z00_3322 = 
bgl_real_to_string(
REAL_TO_DOUBLE(BgL_objz00_62)); 
return 
bgl_display_string(BgL_arg1651z00_3322, BgL_portz00_63);} } 

}



/* &display-flonum */
obj_t BGl_z62displayzd2flonumzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3946, obj_t BgL_objz00_3947, obj_t BgL_portz00_3948)
{
{ /* Ieee/output.scm 883 */
{ /* Ieee/output.scm 884 */
 obj_t BgL_auxz00_6475; obj_t BgL_auxz00_6468;
if(
OUTPUT_PORTP(BgL_portz00_3948))
{ /* Ieee/output.scm 884 */
BgL_auxz00_6475 = BgL_portz00_3948
; }  else 
{ 
 obj_t BgL_auxz00_6478;
BgL_auxz00_6478 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(31487L), BGl_string2667z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3948); 
FAILURE(BgL_auxz00_6478,BFALSE,BFALSE);} 
if(
REALP(BgL_objz00_3947))
{ /* Ieee/output.scm 884 */
BgL_auxz00_6468 = BgL_objz00_3947
; }  else 
{ 
 obj_t BgL_auxz00_6471;
BgL_auxz00_6471 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(31487L), BGl_string2667z00zz__r4_output_6_10_3z00, BGl_string2668z00zz__r4_output_6_10_3z00, BgL_objz00_3947); 
FAILURE(BgL_auxz00_6471,BFALSE,BFALSE);} 
return 
BGl_displayzd2flonumzd2zz__r4_output_6_10_3z00(BgL_auxz00_6468, BgL_auxz00_6475);} } 

}



/* 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 889 */
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_3949, obj_t BgL_objz00_3950, obj_t BgL_portz00_3951)
{
{ /* Ieee/output.scm 889 */
{ /* Ieee/output.scm 890 */
 obj_t BgL_auxz00_6491; obj_t BgL_auxz00_6484;
if(
OUTPUT_PORTP(BgL_portz00_3951))
{ /* Ieee/output.scm 890 */
BgL_auxz00_6491 = BgL_portz00_3951
; }  else 
{ 
 obj_t BgL_auxz00_6494;
BgL_auxz00_6494 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(31777L), BGl_string2669z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3951); 
FAILURE(BgL_auxz00_6494,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_objz00_3950))
{ /* Ieee/output.scm 890 */
BgL_auxz00_6484 = BgL_objz00_3950
; }  else 
{ 
 obj_t BgL_auxz00_6487;
BgL_auxz00_6487 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(31777L), BGl_string2669z00zz__r4_output_6_10_3z00, BGl_string2670z00zz__r4_output_6_10_3z00, BgL_objz00_3950); 
FAILURE(BgL_auxz00_6487,BFALSE,BFALSE);} 
return 
BGl_displayzd2ucs2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_6484, BgL_auxz00_6491);} } 

}



/* 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 895 */
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_3952, obj_t BgL_objz00_3953, obj_t BgL_portz00_3954)
{
{ /* Ieee/output.scm 895 */
{ /* Ieee/output.scm 896 */
 obj_t BgL_auxz00_6509; obj_t BgL_auxz00_6502;
if(
OUTPUT_PORTP(BgL_portz00_3954))
{ /* Ieee/output.scm 896 */
BgL_auxz00_6509 = BgL_portz00_3954
; }  else 
{ 
 obj_t BgL_auxz00_6512;
BgL_auxz00_6512 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(32107L), BGl_string2671z00zz__r4_output_6_10_3z00, BGl_string2565z00zz__r4_output_6_10_3z00, BgL_portz00_3954); 
FAILURE(BgL_auxz00_6512,BFALSE,BFALSE);} 
if(
UCS2_STRINGP(BgL_objz00_3953))
{ /* Ieee/output.scm 896 */
BgL_auxz00_6502 = BgL_objz00_3953
; }  else 
{ 
 obj_t BgL_auxz00_6505;
BgL_auxz00_6505 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(32107L), BGl_string2671z00zz__r4_output_6_10_3z00, BGl_string2670z00zz__r4_output_6_10_3z00, BgL_objz00_3953); 
FAILURE(BgL_auxz00_6505,BFALSE,BFALSE);} 
return 
BGl_writezd2ucs2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_6502, BgL_auxz00_6509);} } 

}



/* write-mutex */
obj_t BGl_writezd2mutexzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_72, obj_t BgL_portz00_73)
{
{ /* Ieee/output.scm 916 */
bgl_display_string(BGl_string2672z00zz__r4_output_6_10_3z00, BgL_portz00_73); 
{ /* Ieee/output.scm 918 */
 obj_t BgL_arg1659z00_2069;
{ /* Ieee/output.scm 918 */
 obj_t BgL_objz00_3341;
if(
BGL_MUTEXP(BgL_objz00_72))
{ /* Ieee/output.scm 918 */
BgL_objz00_3341 = BgL_objz00_72; }  else 
{ 
 obj_t BgL_auxz00_6520;
BgL_auxz00_6520 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(33133L), BGl_string2673z00zz__r4_output_6_10_3z00, BGl_string2674z00zz__r4_output_6_10_3z00, BgL_objz00_72); 
FAILURE(BgL_auxz00_6520,BFALSE,BFALSE);} 
BgL_arg1659z00_2069 = 
BGL_MUTEX_NAME(BgL_objz00_3341); } 
bgl_display_obj(BgL_arg1659z00_2069, BgL_portz00_73); } 
bgl_display_string(BGl_string2675z00zz__r4_output_6_10_3z00, BgL_portz00_73); 
{ /* Ieee/output.scm 920 */
 obj_t BgL_arg1661z00_2070;
{ /* Ieee/output.scm 920 */
 obj_t BgL_tmpz00_6527;
if(
BGL_MUTEXP(BgL_objz00_72))
{ /* Ieee/output.scm 920 */
BgL_tmpz00_6527 = BgL_objz00_72
; }  else 
{ 
 obj_t BgL_auxz00_6530;
BgL_auxz00_6530 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(33194L), BGl_string2673z00zz__r4_output_6_10_3z00, BGl_string2674z00zz__r4_output_6_10_3z00, BgL_objz00_72); 
FAILURE(BgL_auxz00_6530,BFALSE,BFALSE);} 
BgL_arg1661z00_2070 = 
BGL_MUTEX_BACKEND(BgL_tmpz00_6527); } 
bgl_display_obj(BgL_arg1661z00_2070, BgL_portz00_73); } 
return 
bgl_display_string(BGl_string2623z00zz__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 950 */
bgl_display_char(((unsigned char)'#'), BgL_portz00_82); 
bgl_display_char(((unsigned char)'{'), BgL_portz00_82); 
{ /* Ieee/output.scm 953 */
 obj_t BgL_arg1669z00_2074;
{ /* Ieee/output.scm 953 */
 obj_t BgL_res2208z00_3370;
{ /* Ieee/output.scm 953 */
 obj_t BgL_aux2504z00_4242;
BgL_aux2504z00_4242 = 
STRUCT_KEY(BgL_objz00_81); 
if(
SYMBOLP(BgL_aux2504z00_4242))
{ /* Ieee/output.scm 953 */
BgL_res2208z00_3370 = BgL_aux2504z00_4242; }  else 
{ 
 obj_t BgL_auxz00_6542;
BgL_auxz00_6542 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(34692L), BGl_string2676z00zz__r4_output_6_10_3z00, BGl_string2651z00zz__r4_output_6_10_3z00, BgL_aux2504z00_4242); 
FAILURE(BgL_auxz00_6542,BFALSE,BFALSE);} } 
BgL_arg1669z00_2074 = BgL_res2208z00_3370; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_83, 2L))
{ /* Ieee/output.scm 953 */
(VA_PROCEDUREP( BgL_dispz00_83 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_83))(BgL_dispz00_83, BgL_arg1669z00_2074, BgL_portz00_82, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_83))(BgL_dispz00_83, BgL_arg1669z00_2074, BgL_portz00_82) ); }  else 
{ /* Ieee/output.scm 953 */
FAILURE(BGl_string2677z00zz__r4_output_6_10_3z00,BGl_list2678z00zz__r4_output_6_10_3z00,BgL_dispz00_83);} } 
if(
(0L==
(long)(
STRUCT_LENGTH(BgL_objz00_81))))
{ /* Ieee/output.scm 954 */
return 
bgl_display_char(((unsigned char)'}'), BgL_portz00_82);}  else 
{ /* Ieee/output.scm 956 */
 long BgL_lenz00_2077;
BgL_lenz00_2077 = 
(
(long)(
STRUCT_LENGTH(BgL_objz00_81))-1L); 
bgl_display_char(((unsigned char)' '), BgL_portz00_82); 
{ 
 long BgL_iz00_2079;
BgL_iz00_2079 = 0L; 
BgL_zc3z04anonymousza31672ze3z87_2080:
if(
(BgL_iz00_2079==BgL_lenz00_2077))
{ /* Ieee/output.scm 960 */
{ /* Ieee/output.scm 961 */
 obj_t BgL_arg1675z00_2082;
BgL_arg1675z00_2082 = 
STRUCT_REF(BgL_objz00_81, 
(int)(BgL_iz00_2079)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_83, 2L))
{ /* Ieee/output.scm 961 */
(VA_PROCEDUREP( BgL_dispz00_83 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_83))(BgL_dispz00_83, BgL_arg1675z00_2082, BgL_portz00_82, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_83))(BgL_dispz00_83, BgL_arg1675z00_2082, BgL_portz00_82) ); }  else 
{ /* Ieee/output.scm 961 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2688z00zz__r4_output_6_10_3z00,BgL_dispz00_83);} } 
return 
bgl_display_char(((unsigned char)'}'), BgL_portz00_82);}  else 
{ /* Ieee/output.scm 960 */
{ /* Ieee/output.scm 964 */
 obj_t BgL_arg1678z00_2083;
BgL_arg1678z00_2083 = 
STRUCT_REF(BgL_objz00_81, 
(int)(BgL_iz00_2079)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_83, 2L))
{ /* Ieee/output.scm 964 */
(VA_PROCEDUREP( BgL_dispz00_83 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_83))(BgL_dispz00_83, BgL_arg1678z00_2083, BgL_portz00_82, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_83))(BgL_dispz00_83, BgL_arg1678z00_2083, BgL_portz00_82) ); }  else 
{ /* Ieee/output.scm 964 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2691z00zz__r4_output_6_10_3z00,BgL_dispz00_83);} } 
bgl_display_char(((unsigned char)' '), BgL_portz00_82); 
{ 
 long BgL_iz00_6587;
BgL_iz00_6587 = 
(1L+BgL_iz00_2079); 
BgL_iz00_2079 = BgL_iz00_6587; 
goto BgL_zc3z04anonymousza31672ze3z87_2080;} } } } } 

}



/* 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 971 */
bgl_display_char(((unsigned char)'#'), BgL_portz00_85); 
{ /* Ieee/output.scm 973 */
 int BgL_tagz00_2088;
BgL_tagz00_2088 = 
VECTOR_TAG(BgL_objz00_84); 
if(
(
(long)(BgL_tagz00_2088)>0L))
{ /* Ieee/output.scm 974 */
if(
(
(long)(BgL_tagz00_2088)>=100L))
{ /* Ieee/output.scm 976 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_86, 2L))
{ /* Ieee/output.scm 977 */
(VA_PROCEDUREP( BgL_dispz00_86 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_86))(BgL_dispz00_86, 
BINT(BgL_tagz00_2088), BgL_portz00_85, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_86))(BgL_dispz00_86, 
BINT(BgL_tagz00_2088), BgL_portz00_85) ); }  else 
{ /* Ieee/output.scm 977 */
FAILURE(BGl_string2694z00zz__r4_output_6_10_3z00,BGl_list2695z00zz__r4_output_6_10_3z00,BgL_dispz00_86);} }  else 
{ /* Ieee/output.scm 976 */
bgl_display_char(((unsigned char)'0'), BgL_portz00_85); 
if(
(
(long)(BgL_tagz00_2088)>=10L))
{ /* Ieee/output.scm 980 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_86, 2L))
{ /* Ieee/output.scm 981 */
(VA_PROCEDUREP( BgL_dispz00_86 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_86))(BgL_dispz00_86, 
BINT(BgL_tagz00_2088), BgL_portz00_85, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_86))(BgL_dispz00_86, 
BINT(BgL_tagz00_2088), BgL_portz00_85) ); }  else 
{ /* Ieee/output.scm 981 */
FAILURE(BGl_string2694z00zz__r4_output_6_10_3z00,BGl_list2695z00zz__r4_output_6_10_3z00,BgL_dispz00_86);} }  else 
{ /* Ieee/output.scm 980 */
bgl_display_char(((unsigned char)'0'), BgL_portz00_85); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_86, 2L))
{ /* Ieee/output.scm 984 */
(VA_PROCEDUREP( BgL_dispz00_86 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_86))(BgL_dispz00_86, 
BINT(BgL_tagz00_2088), BgL_portz00_85, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_86))(BgL_dispz00_86, 
BINT(BgL_tagz00_2088), BgL_portz00_85) ); }  else 
{ /* Ieee/output.scm 984 */
FAILURE(BGl_string2694z00zz__r4_output_6_10_3z00,BGl_list2695z00zz__r4_output_6_10_3z00,BgL_dispz00_86);} } } }  else 
{ /* Ieee/output.scm 974 */BFALSE; } } 
bgl_display_char(((unsigned char)'('), BgL_portz00_85); 
if(
(0L==
VECTOR_LENGTH(BgL_objz00_84)))
{ /* Ieee/output.scm 986 */
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_85);}  else 
{ /* Ieee/output.scm 988 */
 long BgL_lenz00_2094;
BgL_lenz00_2094 = 
(
VECTOR_LENGTH(BgL_objz00_84)-1L); 
{ 
 long BgL_iz00_2096;
BgL_iz00_2096 = 0L; 
BgL_zc3z04anonymousza31691ze3z87_2097:
if(
(BgL_iz00_2096==BgL_lenz00_2094))
{ /* Ieee/output.scm 991 */
{ /* Ieee/output.scm 992 */
 obj_t BgL_arg1693z00_2099;
{ /* Ieee/output.scm 992 */
 bool_t BgL_test3258z00_6638;
{ /* Ieee/output.scm 992 */
 long BgL_tmpz00_6639;
BgL_tmpz00_6639 = 
VECTOR_LENGTH(BgL_objz00_84); 
BgL_test3258z00_6638 = 
BOUND_CHECK(BgL_iz00_2096, BgL_tmpz00_6639); } 
if(BgL_test3258z00_6638)
{ /* Ieee/output.scm 992 */
BgL_arg1693z00_2099 = 
VECTOR_REF(BgL_objz00_84,BgL_iz00_2096); }  else 
{ 
 obj_t BgL_auxz00_6643;
BgL_auxz00_6643 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(35832L), BGl_string2698z00zz__r4_output_6_10_3z00, BgL_objz00_84, 
(int)(
VECTOR_LENGTH(BgL_objz00_84)), 
(int)(BgL_iz00_2096)); 
FAILURE(BgL_auxz00_6643,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_86, 2L))
{ /* Ieee/output.scm 992 */
(VA_PROCEDUREP( BgL_dispz00_86 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_86))(BgL_dispz00_86, BgL_arg1693z00_2099, BgL_portz00_85, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_86))(BgL_dispz00_86, BgL_arg1693z00_2099, BgL_portz00_85) ); }  else 
{ /* Ieee/output.scm 992 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2699z00zz__r4_output_6_10_3z00,BgL_dispz00_86);} } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_85);}  else 
{ /* Ieee/output.scm 991 */
{ /* Ieee/output.scm 995 */
 obj_t BgL_arg1695z00_2100;
{ /* Ieee/output.scm 995 */
 bool_t BgL_test3260z00_6659;
{ /* Ieee/output.scm 995 */
 long BgL_tmpz00_6660;
BgL_tmpz00_6660 = 
VECTOR_LENGTH(BgL_objz00_84); 
BgL_test3260z00_6659 = 
BOUND_CHECK(BgL_iz00_2096, BgL_tmpz00_6660); } 
if(BgL_test3260z00_6659)
{ /* Ieee/output.scm 995 */
BgL_arg1695z00_2100 = 
VECTOR_REF(BgL_objz00_84,BgL_iz00_2096); }  else 
{ 
 obj_t BgL_auxz00_6664;
BgL_auxz00_6664 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(35903L), BGl_string2698z00zz__r4_output_6_10_3z00, BgL_objz00_84, 
(int)(
VECTOR_LENGTH(BgL_objz00_84)), 
(int)(BgL_iz00_2096)); 
FAILURE(BgL_auxz00_6664,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_86, 2L))
{ /* Ieee/output.scm 995 */
(VA_PROCEDUREP( BgL_dispz00_86 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_86))(BgL_dispz00_86, BgL_arg1695z00_2100, BgL_portz00_85, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_86))(BgL_dispz00_86, BgL_arg1695z00_2100, BgL_portz00_85) ); }  else 
{ /* Ieee/output.scm 995 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2702z00zz__r4_output_6_10_3z00,BgL_dispz00_86);} } 
bgl_display_char(((unsigned char)' '), BgL_portz00_85); 
{ 
 long BgL_iz00_6680;
BgL_iz00_6680 = 
(1L+BgL_iz00_2096); 
BgL_iz00_2096 = BgL_iz00_6680; 
goto BgL_zc3z04anonymousza31691ze3z87_2097;} } } } } 

}



/* 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 1002 */
{ /* Ieee/output.scm 1003 */
 obj_t BgL_tvectorzd2refzd2_2105; obj_t BgL_idz00_2106;
BgL_tvectorzd2refzd2_2105 = 
BGl_tvectorzd2refzd2zz__tvectorz00(BgL_tvecz00_87); 
BgL_idz00_2106 = 
BGl_tvectorzd2idzd2zz__tvectorz00(BgL_tvecz00_87); 
bgl_display_char(((unsigned char)'#'), BgL_portz00_88); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_89, 2L))
{ /* Ieee/output.scm 1006 */
(VA_PROCEDUREP( BgL_dispz00_89 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_89))(BgL_dispz00_89, BgL_idz00_2106, BgL_portz00_88, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_89))(BgL_dispz00_89, BgL_idz00_2106, BgL_portz00_88) ); }  else 
{ /* Ieee/output.scm 1006 */
FAILURE(BGl_string2705z00zz__r4_output_6_10_3z00,BGl_list2706z00zz__r4_output_6_10_3z00,BgL_dispz00_89);} 
bgl_display_char(((unsigned char)'('), BgL_portz00_88); 
if(
CBOOL(BgL_tvectorzd2refzd2_2105))
{ /* Ieee/output.scm 1008 */
if(
(0L==
(long)(
TVECTOR_LENGTH(BgL_tvecz00_87))))
{ /* Ieee/output.scm 1013 */
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_88);}  else 
{ /* Ieee/output.scm 1015 */
 long BgL_lenz00_2109;
BgL_lenz00_2109 = 
(
(long)(
TVECTOR_LENGTH(BgL_tvecz00_87))-1L); 
{ 
 long BgL_iz00_2111;
BgL_iz00_2111 = 0L; 
BgL_zc3z04anonymousza31706ze3z87_2112:
if(
(BgL_iz00_2111==BgL_lenz00_2109))
{ /* Ieee/output.scm 1018 */
{ /* Ieee/output.scm 1019 */
 obj_t BgL_arg1708z00_2114;
{ /* Ieee/output.scm 1019 */
 obj_t BgL_funz00_4264;
if(
PROCEDUREP(BgL_tvectorzd2refzd2_2105))
{ /* Ieee/output.scm 1019 */
BgL_funz00_4264 = BgL_tvectorzd2refzd2_2105; }  else 
{ 
 obj_t BgL_auxz00_6708;
BgL_auxz00_6708 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(36686L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2709z00zz__r4_output_6_10_3z00, BgL_tvectorzd2refzd2_2105); 
FAILURE(BgL_auxz00_6708,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4264, 2L))
{ /* Ieee/output.scm 1019 */
BgL_arg1708z00_2114 = 
(VA_PROCEDUREP( BgL_funz00_4264 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_4264))(BgL_tvectorzd2refzd2_2105, BgL_tvecz00_87, 
BINT(BgL_iz00_2111), BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_4264))(BgL_tvectorzd2refzd2_2105, BgL_tvecz00_87, 
BINT(BgL_iz00_2111)) ); }  else 
{ /* Ieee/output.scm 1019 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2710z00zz__r4_output_6_10_3z00,BgL_funz00_4264);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_89, 2L))
{ /* Ieee/output.scm 1019 */
(VA_PROCEDUREP( BgL_dispz00_89 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_89))(BgL_dispz00_89, BgL_arg1708z00_2114, BgL_portz00_88, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_89))(BgL_dispz00_89, BgL_arg1708z00_2114, BgL_portz00_88) ); }  else 
{ /* Ieee/output.scm 1019 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2717z00zz__r4_output_6_10_3z00,BgL_dispz00_89);} } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_88);}  else 
{ /* Ieee/output.scm 1018 */
{ /* Ieee/output.scm 1022 */
 obj_t BgL_arg1709z00_2115;
{ /* Ieee/output.scm 1022 */
 obj_t BgL_funz00_4270;
if(
PROCEDUREP(BgL_tvectorzd2refzd2_2105))
{ /* Ieee/output.scm 1022 */
BgL_funz00_4270 = BgL_tvectorzd2refzd2_2105; }  else 
{ 
 obj_t BgL_auxz00_6732;
BgL_auxz00_6732 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(36768L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2709z00zz__r4_output_6_10_3z00, BgL_tvectorzd2refzd2_2105); 
FAILURE(BgL_auxz00_6732,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4270, 2L))
{ /* Ieee/output.scm 1022 */
BgL_arg1709z00_2115 = 
(VA_PROCEDUREP( BgL_funz00_4270 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_4270))(BgL_tvectorzd2refzd2_2105, BgL_tvecz00_87, 
BINT(BgL_iz00_2111), BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_4270))(BgL_tvectorzd2refzd2_2105, BgL_tvecz00_87, 
BINT(BgL_iz00_2111)) ); }  else 
{ /* Ieee/output.scm 1022 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2710z00zz__r4_output_6_10_3z00,BgL_funz00_4270);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_89, 2L))
{ /* Ieee/output.scm 1022 */
(VA_PROCEDUREP( BgL_dispz00_89 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_89))(BgL_dispz00_89, BgL_arg1709z00_2115, BgL_portz00_88, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_89))(BgL_dispz00_89, BgL_arg1709z00_2115, BgL_portz00_88) ); }  else 
{ /* Ieee/output.scm 1022 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2720z00zz__r4_output_6_10_3z00,BgL_dispz00_89);} } 
bgl_display_char(((unsigned char)' '), BgL_portz00_88); 
{ 
 long BgL_iz00_6754;
BgL_iz00_6754 = 
(1L+BgL_iz00_2111); 
BgL_iz00_2111 = BgL_iz00_6754; 
goto BgL_zc3z04anonymousza31706ze3z87_2112;} } } } }  else 
{ /* Ieee/output.scm 1008 */
bgl_display_string(BGl_string2723z00zz__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 1029 */
{ /* Ieee/output.scm 1030 */
 obj_t BgL_idz00_2120;
BgL_idz00_2120 = 
BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(BgL_svecz00_90); 
{ /* Ieee/output.scm 1031 */
 obj_t BgL__z00_2121; obj_t BgL_vrefz00_2122; obj_t BgL__z00_2123; obj_t BgL__z00_2124;
{ /* Ieee/output.scm 1032 */
 obj_t BgL_tmpz00_3406;
{ /* Ieee/output.scm 1032 */
 int BgL_tmpz00_6758;
BgL_tmpz00_6758 = 
(int)(1L); 
BgL_tmpz00_3406 = 
BGL_MVALUES_VAL(BgL_tmpz00_6758); } 
{ /* Ieee/output.scm 1032 */
 int BgL_tmpz00_6761;
BgL_tmpz00_6761 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6761, BUNSPEC); } 
BgL__z00_2121 = BgL_tmpz00_3406; } 
{ /* Ieee/output.scm 1032 */
 obj_t BgL_tmpz00_3407;
{ /* Ieee/output.scm 1032 */
 int BgL_tmpz00_6764;
BgL_tmpz00_6764 = 
(int)(2L); 
BgL_tmpz00_3407 = 
BGL_MVALUES_VAL(BgL_tmpz00_6764); } 
{ /* Ieee/output.scm 1032 */
 int BgL_tmpz00_6767;
BgL_tmpz00_6767 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6767, BUNSPEC); } 
BgL_vrefz00_2122 = BgL_tmpz00_3407; } 
{ /* Ieee/output.scm 1032 */
 obj_t BgL_tmpz00_3408;
{ /* Ieee/output.scm 1032 */
 int BgL_tmpz00_6770;
BgL_tmpz00_6770 = 
(int)(3L); 
BgL_tmpz00_3408 = 
BGL_MVALUES_VAL(BgL_tmpz00_6770); } 
{ /* Ieee/output.scm 1032 */
 int BgL_tmpz00_6773;
BgL_tmpz00_6773 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6773, BUNSPEC); } 
BgL__z00_2123 = BgL_tmpz00_3408; } 
{ /* Ieee/output.scm 1032 */
 obj_t BgL_tmpz00_3409;
{ /* Ieee/output.scm 1032 */
 int BgL_tmpz00_6776;
BgL_tmpz00_6776 = 
(int)(4L); 
BgL_tmpz00_3409 = 
BGL_MVALUES_VAL(BgL_tmpz00_6776); } 
{ /* Ieee/output.scm 1032 */
 int BgL_tmpz00_6779;
BgL_tmpz00_6779 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6779, BUNSPEC); } 
BgL__z00_2124 = BgL_tmpz00_3409; } 
bgl_display_char(((unsigned char)'#'), BgL_portz00_91); 
{ /* Ieee/output.scm 1033 */
 obj_t BgL_objz00_3410;
if(
SYMBOLP(BgL_idz00_2120))
{ /* Ieee/output.scm 1033 */
BgL_objz00_3410 = BgL_idz00_2120; }  else 
{ 
 obj_t BgL_auxz00_6785;
BgL_auxz00_6785 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(37262L), BGl_string2724z00zz__r4_output_6_10_3z00, BGl_string2651z00zz__r4_output_6_10_3z00, BgL_idz00_2120); 
FAILURE(BgL_auxz00_6785,BFALSE,BFALSE);} 
{ /* Ieee/output.scm 773 */
 obj_t BgL_arg1607z00_3412;
BgL_arg1607z00_3412 = 
SYMBOL_TO_STRING(BgL_objz00_3410); 
bgl_display_string(BgL_arg1607z00_3412, BgL_portz00_91); } } 
bgl_display_char(((unsigned char)'('), BgL_portz00_91); 
{ /* Ieee/output.scm 1035 */
 bool_t BgL_test3273z00_6792;
{ /* Ieee/output.scm 1035 */
 long BgL_arg1723z00_2137;
BgL_arg1723z00_2137 = 
BGL_HVECTOR_LENGTH(BgL_svecz00_90); 
BgL_test3273z00_6792 = 
(0L==BgL_arg1723z00_2137); } 
if(BgL_test3273z00_6792)
{ /* Ieee/output.scm 1035 */
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_91);}  else 
{ /* Ieee/output.scm 1037 */
 long BgL_lenz00_2127;
{ /* Ieee/output.scm 1037 */
 long BgL_arg1722z00_2136;
BgL_arg1722z00_2136 = 
BGL_HVECTOR_LENGTH(BgL_svecz00_90); 
BgL_lenz00_2127 = 
(BgL_arg1722z00_2136-1L); } 
{ 
 long BgL_iz00_2129;
BgL_iz00_2129 = 0L; 
BgL_zc3z04anonymousza31716ze3z87_2130:
if(
(BgL_iz00_2129==BgL_lenz00_2127))
{ /* Ieee/output.scm 1040 */
{ /* Ieee/output.scm 1041 */
 obj_t BgL_arg1718z00_2132;
{ /* Ieee/output.scm 1041 */
 obj_t BgL_funz00_4278;
if(
PROCEDUREP(BgL_vrefz00_2122))
{ /* Ieee/output.scm 1041 */
BgL_funz00_4278 = BgL_vrefz00_2122; }  else 
{ 
 obj_t BgL_auxz00_6802;
BgL_auxz00_6802 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(37480L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2709z00zz__r4_output_6_10_3z00, BgL_vrefz00_2122); 
FAILURE(BgL_auxz00_6802,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4278, 2L))
{ /* Ieee/output.scm 1041 */
BgL_arg1718z00_2132 = 
(VA_PROCEDUREP( BgL_funz00_4278 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_4278))(BgL_vrefz00_2122, BgL_svecz00_90, 
BINT(BgL_iz00_2129), BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_4278))(BgL_vrefz00_2122, BgL_svecz00_90, 
BINT(BgL_iz00_2129)) ); }  else 
{ /* Ieee/output.scm 1041 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2725z00zz__r4_output_6_10_3z00,BgL_funz00_4278);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_92, 2L))
{ /* Ieee/output.scm 1041 */
(VA_PROCEDUREP( BgL_dispz00_92 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_92))(BgL_dispz00_92, BgL_arg1718z00_2132, BgL_portz00_91, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_92))(BgL_dispz00_92, BgL_arg1718z00_2132, BgL_portz00_91) ); }  else 
{ /* Ieee/output.scm 1041 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2730z00zz__r4_output_6_10_3z00,BgL_dispz00_92);} } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_91);}  else 
{ /* Ieee/output.scm 1040 */
{ /* Ieee/output.scm 1044 */
 obj_t BgL_arg1720z00_2133;
{ /* Ieee/output.scm 1044 */
 obj_t BgL_funz00_4284;
if(
PROCEDUREP(BgL_vrefz00_2122))
{ /* Ieee/output.scm 1044 */
BgL_funz00_4284 = BgL_vrefz00_2122; }  else 
{ 
 obj_t BgL_auxz00_6826;
BgL_auxz00_6826 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(37555L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2709z00zz__r4_output_6_10_3z00, BgL_vrefz00_2122); 
FAILURE(BgL_auxz00_6826,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4284, 2L))
{ /* Ieee/output.scm 1044 */
BgL_arg1720z00_2133 = 
(VA_PROCEDUREP( BgL_funz00_4284 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_4284))(BgL_vrefz00_2122, BgL_svecz00_90, 
BINT(BgL_iz00_2129), BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_4284))(BgL_vrefz00_2122, BgL_svecz00_90, 
BINT(BgL_iz00_2129)) ); }  else 
{ /* Ieee/output.scm 1044 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2725z00zz__r4_output_6_10_3z00,BgL_funz00_4284);} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_dispz00_92, 2L))
{ /* Ieee/output.scm 1044 */
(VA_PROCEDUREP( BgL_dispz00_92 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_dispz00_92))(BgL_dispz00_92, BgL_arg1720z00_2133, BgL_portz00_91, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_dispz00_92))(BgL_dispz00_92, BgL_arg1720z00_2133, BgL_portz00_91) ); }  else 
{ /* Ieee/output.scm 1044 */
FAILURE(BGl_string2687z00zz__r4_output_6_10_3z00,BGl_list2733z00zz__r4_output_6_10_3z00,BgL_dispz00_92);} } 
bgl_display_char(((unsigned char)' '), BgL_portz00_91); 
{ 
 long BgL_iz00_6848;
BgL_iz00_6848 = 
(1L+BgL_iz00_2129); 
BgL_iz00_2129 = BgL_iz00_6848; 
goto BgL_zc3z04anonymousza31716ze3z87_2130;} } } } } } } } 

}



/* display-pair */
obj_t BGl_displayzd2pairzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_96, obj_t BgL_portz00_97)
{
{ /* Ieee/output.scm 1083 */
bgl_display_char(((unsigned char)'('), BgL_portz00_97); 
{ 
 obj_t BgL_lz00_2140;
BgL_lz00_2140 = BgL_objz00_96; 
BgL_zc3z04anonymousza31724ze3z87_2141:
{ /* Ieee/output.scm 1084 */
 bool_t BgL_test3281z00_6851;
{ /* Ieee/output.scm 1084 */
 obj_t BgL_tmpz00_6852;
{ /* Ieee/output.scm 1084 */
 obj_t BgL_pairz00_3423;
if(
PAIRP(BgL_lz00_2140))
{ /* Ieee/output.scm 1084 */
BgL_pairz00_3423 = BgL_lz00_2140; }  else 
{ 
 obj_t BgL_auxz00_6855;
BgL_auxz00_6855 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39074L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2140); 
FAILURE(BgL_auxz00_6855,BFALSE,BFALSE);} 
BgL_tmpz00_6852 = 
CDR(BgL_pairz00_3423); } 
BgL_test3281z00_6851 = 
NULLP(BgL_tmpz00_6852); } 
if(BgL_test3281z00_6851)
{ /* Ieee/output.scm 1084 */
{ /* Ieee/output.scm 1084 */
 obj_t BgL_arg1727z00_2144;
{ /* Ieee/output.scm 1084 */
 obj_t BgL_pairz00_3424;
if(
PAIRP(BgL_lz00_2140))
{ /* Ieee/output.scm 1084 */
BgL_pairz00_3424 = BgL_lz00_2140; }  else 
{ 
 obj_t BgL_auxz00_6863;
BgL_auxz00_6863 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39074L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2140); 
FAILURE(BgL_auxz00_6863,BFALSE,BFALSE);} 
BgL_arg1727z00_2144 = 
CAR(BgL_pairz00_3424); } 
bgl_display_obj(BgL_arg1727z00_2144, BgL_portz00_97); } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_97);}  else 
{ /* Ieee/output.scm 1084 */
 bool_t BgL_test3284z00_6870;
{ /* Ieee/output.scm 1084 */
 obj_t BgL_tmpz00_6871;
{ /* Ieee/output.scm 1084 */
 obj_t BgL_pairz00_3425;
if(
PAIRP(BgL_lz00_2140))
{ /* Ieee/output.scm 1084 */
BgL_pairz00_3425 = BgL_lz00_2140; }  else 
{ 
 obj_t BgL_auxz00_6874;
BgL_auxz00_6874 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39074L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2140); 
FAILURE(BgL_auxz00_6874,BFALSE,BFALSE);} 
BgL_tmpz00_6871 = 
CDR(BgL_pairz00_3425); } 
BgL_test3284z00_6870 = 
PAIRP(BgL_tmpz00_6871); } 
if(BgL_test3284z00_6870)
{ /* Ieee/output.scm 1084 */
{ /* Ieee/output.scm 1084 */
 obj_t BgL_arg1731z00_2147;
{ /* Ieee/output.scm 1084 */
 obj_t BgL_pairz00_3426;
if(
PAIRP(BgL_lz00_2140))
{ /* Ieee/output.scm 1084 */
BgL_pairz00_3426 = BgL_lz00_2140; }  else 
{ 
 obj_t BgL_auxz00_6882;
BgL_auxz00_6882 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39074L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2140); 
FAILURE(BgL_auxz00_6882,BFALSE,BFALSE);} 
BgL_arg1731z00_2147 = 
CAR(BgL_pairz00_3426); } 
bgl_display_obj(BgL_arg1731z00_2147, BgL_portz00_97); } 
bgl_display_char(((unsigned char)' '), BgL_portz00_97); 
{ /* Ieee/output.scm 1084 */
 obj_t BgL_arg1732z00_2148;
{ /* Ieee/output.scm 1084 */
 obj_t BgL_pairz00_3427;
if(
PAIRP(BgL_lz00_2140))
{ /* Ieee/output.scm 1084 */
BgL_pairz00_3427 = BgL_lz00_2140; }  else 
{ 
 obj_t BgL_auxz00_6891;
BgL_auxz00_6891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39074L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2140); 
FAILURE(BgL_auxz00_6891,BFALSE,BFALSE);} 
BgL_arg1732z00_2148 = 
CDR(BgL_pairz00_3427); } 
{ 
 obj_t BgL_lz00_6896;
BgL_lz00_6896 = BgL_arg1732z00_2148; 
BgL_lz00_2140 = BgL_lz00_6896; 
goto BgL_zc3z04anonymousza31724ze3z87_2141;} } }  else 
{ /* Ieee/output.scm 1084 */
{ /* Ieee/output.scm 1084 */
 obj_t BgL_arg1733z00_2149;
{ /* Ieee/output.scm 1084 */
 obj_t BgL_pairz00_3428;
if(
PAIRP(BgL_lz00_2140))
{ /* Ieee/output.scm 1084 */
BgL_pairz00_3428 = BgL_lz00_2140; }  else 
{ 
 obj_t BgL_auxz00_6899;
BgL_auxz00_6899 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39074L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2140); 
FAILURE(BgL_auxz00_6899,BFALSE,BFALSE);} 
BgL_arg1733z00_2149 = 
CAR(BgL_pairz00_3428); } 
bgl_display_obj(BgL_arg1733z00_2149, 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 1084 */
 obj_t BgL_arg1734z00_2150;
{ /* Ieee/output.scm 1084 */
 obj_t BgL_pairz00_3429;
if(
PAIRP(BgL_lz00_2140))
{ /* Ieee/output.scm 1084 */
BgL_pairz00_3429 = BgL_lz00_2140; }  else 
{ 
 obj_t BgL_auxz00_6910;
BgL_auxz00_6910 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39074L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2140); 
FAILURE(BgL_auxz00_6910,BFALSE,BFALSE);} 
BgL_arg1734z00_2150 = 
CDR(BgL_pairz00_3429); } 
bgl_display_obj(BgL_arg1734z00_2150, 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 1089 */
bgl_display_char(((unsigned char)'('), BgL_portz00_99); 
{ 
 obj_t BgL_lz00_2155;
BgL_lz00_2155 = BgL_objz00_98; 
BgL_zc3z04anonymousza31737ze3z87_2156:
{ /* Ieee/output.scm 1090 */
 bool_t BgL_test3290z00_6918;
{ /* Ieee/output.scm 1090 */
 obj_t BgL_tmpz00_6919;
{ /* Ieee/output.scm 1090 */
 obj_t BgL_pairz00_3430;
if(
PAIRP(BgL_lz00_2155))
{ /* Ieee/output.scm 1090 */
BgL_pairz00_3430 = BgL_lz00_2155; }  else 
{ 
 obj_t BgL_auxz00_6922;
BgL_auxz00_6922 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39372L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2155); 
FAILURE(BgL_auxz00_6922,BFALSE,BFALSE);} 
BgL_tmpz00_6919 = 
CDR(BgL_pairz00_3430); } 
BgL_test3290z00_6918 = 
NULLP(BgL_tmpz00_6919); } 
if(BgL_test3290z00_6918)
{ /* Ieee/output.scm 1090 */
{ /* Ieee/output.scm 1090 */
 obj_t BgL_arg1741z00_2159;
{ /* Ieee/output.scm 1090 */
 obj_t BgL_pairz00_3431;
if(
PAIRP(BgL_lz00_2155))
{ /* Ieee/output.scm 1090 */
BgL_pairz00_3431 = BgL_lz00_2155; }  else 
{ 
 obj_t BgL_auxz00_6930;
BgL_auxz00_6930 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39372L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2155); 
FAILURE(BgL_auxz00_6930,BFALSE,BFALSE);} 
BgL_arg1741z00_2159 = 
CAR(BgL_pairz00_3431); } 
bgl_write_obj(BgL_arg1741z00_2159, BgL_portz00_99); } 
return 
bgl_display_char(((unsigned char)')'), BgL_portz00_99);}  else 
{ /* Ieee/output.scm 1090 */
 bool_t BgL_test3293z00_6937;
{ /* Ieee/output.scm 1090 */
 obj_t BgL_tmpz00_6938;
{ /* Ieee/output.scm 1090 */
 obj_t BgL_pairz00_3432;
if(
PAIRP(BgL_lz00_2155))
{ /* Ieee/output.scm 1090 */
BgL_pairz00_3432 = BgL_lz00_2155; }  else 
{ 
 obj_t BgL_auxz00_6941;
BgL_auxz00_6941 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39372L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2155); 
FAILURE(BgL_auxz00_6941,BFALSE,BFALSE);} 
BgL_tmpz00_6938 = 
CDR(BgL_pairz00_3432); } 
BgL_test3293z00_6937 = 
PAIRP(BgL_tmpz00_6938); } 
if(BgL_test3293z00_6937)
{ /* Ieee/output.scm 1090 */
{ /* Ieee/output.scm 1090 */
 obj_t BgL_arg1744z00_2162;
{ /* Ieee/output.scm 1090 */
 obj_t BgL_pairz00_3433;
if(
PAIRP(BgL_lz00_2155))
{ /* Ieee/output.scm 1090 */
BgL_pairz00_3433 = BgL_lz00_2155; }  else 
{ 
 obj_t BgL_auxz00_6949;
BgL_auxz00_6949 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39372L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2155); 
FAILURE(BgL_auxz00_6949,BFALSE,BFALSE);} 
BgL_arg1744z00_2162 = 
CAR(BgL_pairz00_3433); } 
bgl_write_obj(BgL_arg1744z00_2162, BgL_portz00_99); } 
bgl_display_char(((unsigned char)' '), BgL_portz00_99); 
{ /* Ieee/output.scm 1090 */
 obj_t BgL_arg1745z00_2163;
{ /* Ieee/output.scm 1090 */
 obj_t BgL_pairz00_3434;
if(
PAIRP(BgL_lz00_2155))
{ /* Ieee/output.scm 1090 */
BgL_pairz00_3434 = BgL_lz00_2155; }  else 
{ 
 obj_t BgL_auxz00_6958;
BgL_auxz00_6958 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39372L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2155); 
FAILURE(BgL_auxz00_6958,BFALSE,BFALSE);} 
BgL_arg1745z00_2163 = 
CDR(BgL_pairz00_3434); } 
{ 
 obj_t BgL_lz00_6963;
BgL_lz00_6963 = BgL_arg1745z00_2163; 
BgL_lz00_2155 = BgL_lz00_6963; 
goto BgL_zc3z04anonymousza31737ze3z87_2156;} } }  else 
{ /* Ieee/output.scm 1090 */
{ /* Ieee/output.scm 1090 */
 obj_t BgL_arg1746z00_2164;
{ /* Ieee/output.scm 1090 */
 obj_t BgL_pairz00_3435;
if(
PAIRP(BgL_lz00_2155))
{ /* Ieee/output.scm 1090 */
BgL_pairz00_3435 = BgL_lz00_2155; }  else 
{ 
 obj_t BgL_auxz00_6966;
BgL_auxz00_6966 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39372L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2155); 
FAILURE(BgL_auxz00_6966,BFALSE,BFALSE);} 
BgL_arg1746z00_2164 = 
CAR(BgL_pairz00_3435); } 
bgl_write_obj(BgL_arg1746z00_2164, 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 1090 */
 obj_t BgL_arg1747z00_2165;
{ /* Ieee/output.scm 1090 */
 obj_t BgL_pairz00_3436;
if(
PAIRP(BgL_lz00_2155))
{ /* Ieee/output.scm 1090 */
BgL_pairz00_3436 = BgL_lz00_2155; }  else 
{ 
 obj_t BgL_auxz00_6977;
BgL_auxz00_6977 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2564z00zz__r4_output_6_10_3z00, 
BINT(39372L), BGl_string2585z00zz__r4_output_6_10_3z00, BGl_string2586z00zz__r4_output_6_10_3z00, BgL_lz00_2155); 
FAILURE(BgL_auxz00_6977,BFALSE,BFALSE);} 
BgL_arg1747z00_2165 = 
CDR(BgL_pairz00_3436); } 
bgl_write_obj(BgL_arg1747z00_2165, 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__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string2736z00zz__r4_output_6_10_3z00)); 
BGl_modulezd2initializa7ationz75zz__bexitz00(43287392L, 
BSTRING_TO_STRING(BGl_string2736z00zz__r4_output_6_10_3z00)); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(496722665L, 
BSTRING_TO_STRING(BGl_string2736z00zz__r4_output_6_10_3z00)); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(268155843L, 
BSTRING_TO_STRING(BGl_string2736z00zz__r4_output_6_10_3z00)); 
BGl_modulezd2initializa7ationz75zz__biglooz00(536217185L, 
BSTRING_TO_STRING(BGl_string2736z00zz__r4_output_6_10_3z00)); 
BGl_modulezd2initializa7ationz75zz__srfi4z00(467924964L, 
BSTRING_TO_STRING(BGl_string2736z00zz__r4_output_6_10_3z00)); 
return 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string2736z00zz__r4_output_6_10_3z00));} 

}

#ifdef __cplusplus
}
#endif
