/*===========================================================================*/
/*   (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-unsafe -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 -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Ieee/output.scm -indent -o objs/obj_u/Ieee/output.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* 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

	extern obj_t BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t bgl_write_utf8string(obj_t, obj_t);
	static obj_t BGl_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);
	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);
	BGL_EXPORTED_DECL obj_t BGl_writezd2stringzd2zz__r4_output_6_10_3z00(obj_t,
		obj_t);
	extern obj_t bgl_write_cnst(obj_t, obj_t);
	static obj_t BGl_z62displayzd2flonumzb0zz__r4_output_6_10_3z00(obj_t, obj_t,
		obj_t);
	extern obj_t bgl_write_procedure(obj_t, obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__r4_output_6_10_3z00(void);
	extern obj_t bgl_write_char(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t BGl_objectzd2displayzd2zz__objectz00(BgL_objectz00_bglt, obj_t);
	static obj_t BGl_z62writeza2zc0zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_genericzd2initzd2zz__r4_output_6_10_3z00(void);
	static obj_t BGl_objectzd2initzd2zz__r4_output_6_10_3z00(void);
	extern obj_t BGl_stringzd2skipzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62displayzd2ucs2stringzb0zz__r4_output_6_10_3z00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl__writezd2bytezd2zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t bgl_write_custom(obj_t, obj_t);
	static obj_t BGl_z62printfz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
	extern obj_t bgl_write_bignum(obj_t, obj_t);
	extern obj_t string_append_3(obj_t, obj_t, obj_t);
	extern obj_t bgl_weakptr_data(obj_t);
	static obj_t BGl_z62displayzd2substringzb0zz__r4_output_6_10_3z00(obj_t,
		obj_t, obj_t, obj_t, obj_t);
	extern obj_t bgl_write_unknown(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_printz00zz__r4_output_6_10_3z00(obj_t);
	extern obj_t BGl_tvectorzd2refzd2zz__tvectorz00(obj_t);
	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 bool_t BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00(void);
	extern obj_t bgl_write_datagram_socket(obj_t, obj_t);
	static obj_t BGl_z62writezd2stringzb0zz__r4_output_6_10_3z00(obj_t, obj_t,
		obj_t);
	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);
	extern obj_t ucs2_string_to_utf8_string(obj_t);
	extern obj_t bgl_write_elong(long, obj_t);
	extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
	extern bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
	static obj_t BGl__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);
	BGL_EXPORTED_DECL obj_t BGl_writezd2charzd2zz__r4_output_6_10_3z00(unsigned
		char, obj_t);
	extern obj_t bgl_display_fixnum(obj_t, obj_t);
	extern obj_t bgl_write_semaphore(obj_t, obj_t);
	extern obj_t BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(obj_t);
	extern obj_t bgl_write_foreign(obj_t, obj_t);
	extern obj_t BGl_displayzd2circlezd2zz__pp_circlez00(obj_t, obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_writezd2pairzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t BGl_writezd2circlezd2zz__pp_circlez00(obj_t, obj_t);
	static obj_t BGl_z62fprintz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_displayzd2fixnumzd2zz__r4_output_6_10_3z00(obj_t,
		obj_t);
	static obj_t BGl_symbol2330z00zz__r4_output_6_10_3z00 = BUNSPEC;
	static obj_t BGl_symbol2332z00zz__r4_output_6_10_3z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t);
	extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
	static obj_t BGl_symbol2338z00zz__r4_output_6_10_3z00 = BUNSPEC;
	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);
	extern obj_t c_substring(obj_t, long, long);
	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);
	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);
	BGL_EXPORTED_DECL obj_t
		BGl_displayzd2substringzd2zz__r4_output_6_10_3z00(obj_t, long, long, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_writezd2charzd22z00zz__r4_output_6_10_3z00(unsigned char, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_displayz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(unsigned char);
	static obj_t BGl_z62displayzd2stringzb0zz__r4_output_6_10_3z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol2292z00zz__r4_output_6_10_3z00 = BUNSPEC;
	static obj_t BGl_symbol2296z00zz__r4_output_6_10_3z00 = BUNSPEC;
	static obj_t BGl_symbol2299z00zz__r4_output_6_10_3z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_printfz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t bgl_real_to_string(double);
	static obj_t BGl_z62displayzd22zb0zz__r4_output_6_10_3z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62tprintz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
	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_za762writeza7d22za7b0za72352z00,
		BGl_z62writezd22zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2300z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2300za700za7za7_2353za7, "fprintf", 7);
	      DEFINE_STRING(BGl_string2301z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2301za700za7za7_2354za7, "&fprintf", 8);
	      DEFINE_STRING(BGl_string2302z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2302za700za7za7_2355za7, "()", 2);
	      DEFINE_STRING(BGl_string2303z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2303za700za7za7_2356za7, "#f", 2);
	      DEFINE_STRING(BGl_string2304z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2304za700za7za7_2357za7, "#t", 2);
	      DEFINE_STRING(BGl_string2305z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2305za700za7za7_2358za7, "#unspecified", 12);
	      DEFINE_STRING(BGl_string2306z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2306za700za7za7_2359za7, "#<class:", 8);
	      DEFINE_STRING(BGl_string2307z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2307za700za7za7_2360za7, ">", 1);
	      DEFINE_STRING(BGl_string2308z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2308za700za7za7_2361za7, "#<mutex:", 8);
	      DEFINE_STRING(BGl_string2309z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2309za700za7za7_2362za7, ":", 1);
	      DEFINE_STRING(BGl_string2310z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2310za700za7za7_2363za7, "#<condition-variable:", 21);
	      DEFINE_STRING(BGl_string2311z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2311za700za7za7_2364za7, "#<cell:", 7);
	      DEFINE_STRING(BGl_string2312z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2312za700za7za7_2365za7, "#eof-object", 11);
	      DEFINE_STRING(BGl_string2313z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2313za700za7za7_2366za7, "#!optional", 10);
	      DEFINE_STRING(BGl_string2314z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2314za700za7za7_2367za7, "#!rest", 6);
	      DEFINE_STRING(BGl_string2315z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2315za700za7za7_2368za7, "#!key", 5);
	      DEFINE_STRING(BGl_string2316z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2316za700za7za7_2369za7, "#<output_string_port>", 21);
	      DEFINE_STRING(BGl_string2317z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2317za700za7za7_2370za7, "#<output_procedure_port>", 24);
	      DEFINE_STRING(BGl_string2318z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2318za700za7za7_2371za7, "#<weakptr:", 10);
	      DEFINE_STRING(BGl_string2319z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2319za700za7za7_2372za7, "#<date:", 7);
	      DEFINE_STRING(BGl_string2320z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2320za700za7za7_2373za7, "#s8:", 4);
	      DEFINE_STRING(BGl_string2321z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2321za700za7za7_2374za7, "#u8:", 4);
	      DEFINE_STRING(BGl_string2322z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2322za700za7za7_2375za7, "#s16:", 5);
	      DEFINE_STRING(BGl_string2323z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2323za700za7za7_2376za7, "#u16:", 5);
	      DEFINE_STRING(BGl_string2324z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2324za700za7za7_2377za7, "#s32:", 5);
	      DEFINE_STRING(BGl_string2325z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2325za700za7za7_2378za7, "#u32:", 5);
	      DEFINE_STRING(BGl_string2326z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2326za700za7za7_2379za7, "#s64:", 5);
	      DEFINE_STRING(BGl_string2327z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2327za700za7za7_2380za7, "#u64:", 5);
	      DEFINE_STRING(BGl_string2328z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2328za700za7za7_2381za7, "&display-symbol", 15);
	      DEFINE_STRING(BGl_string2329z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2329za700za7za7_2382za7, "symbol", 6);
	      DEFINE_STRING(BGl_string2331z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2331za700za7za7_2383za7, "+", 1);
	      DEFINE_STRING(BGl_string2333z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2333za700za7za7_2384za7, "-", 1);
	      DEFINE_STRING(BGl_string2334z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2334za700za7za7_2385za7, "|", 1);
	      DEFINE_STRING(BGl_string2335z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2335za700za7za7_2386za7, "&write-symbol", 13);
	      DEFINE_STRING(BGl_string2336z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2336za700za7za7_2387za7, "&display-string", 15);
	      DEFINE_STRING(BGl_string2337z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2337za700za7za7_2388za7, "Illegal index, start=~a end=~a",
		30);
	      DEFINE_STRING(BGl_string2339z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2339za700za7za7_2389za7, "display-substring", 17);
	      DEFINE_STRING(BGl_string2340z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2340za700za7za7_2390za7, "&display-substring", 18);
	      DEFINE_STRING(BGl_string2341z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2341za700za7za7_2391za7, "&write-string", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_writezd2bytezd22zd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762writeza7d2byteza72392za7,
		BGl_z62writezd2bytezd22z62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2342z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2342za700za7za7_2393za7, "&display-fixnum", 15);
	      DEFINE_STRING(BGl_string2261z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2261za700za7za7_2394za7, "tprint", 6);
	      DEFINE_STRING(BGl_string2343z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2343za700za7za7_2395za7, "&display-elong", 14);
	      DEFINE_STRING(BGl_string2262z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2262za700za7za7_2396za7, "newline", 7);
	      DEFINE_STRING(BGl_string2344z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2344za700za7za7_2397za7, "belong", 6);
	      DEFINE_STRING(BGl_string2263z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2263za700za7za7_2398za7, "wrong number of optional arguments",
		34);
	      DEFINE_STRING(BGl_string2345z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2345za700za7za7_2399za7, "&display-flonum", 15);
	      DEFINE_STRING(BGl_string2264z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2264za700za7za7_2400za7,
		"/tmp/bigloo/runtime/Ieee/output.scm", 35);
	      DEFINE_STRING(BGl_string2346z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2346za700za7za7_2401za7, "real", 4);
	      DEFINE_STRING(BGl_string2265z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2265za700za7za7_2402za7, "&newline-1", 10);
	      DEFINE_STRING(BGl_string2347z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2347za700za7za7_2403za7, "&display-ucs2string", 19);
	      DEFINE_STRING(BGl_string2266z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2266za700za7za7_2404za7, "output-port", 11);
	      DEFINE_STRING(BGl_string2348z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2348za700za7za7_2405za7, "ucs2string", 10);
	      DEFINE_STRING(BGl_string2267z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2267za700za7za7_2406za7, "display", 7);
	      DEFINE_STRING(BGl_string2349z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2349za700za7za7_2407za7, "&write-ucs2string", 17);
	      DEFINE_STRING(BGl_string2268z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2268za700za7za7_2408za7, "write", 5);
	      DEFINE_STRING(BGl_string2269z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2269za700za7za7_2409za7, "_write-char", 11);
	      DEFINE_STRING(BGl_string2350z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2350za700za7za7_2410za7, "...)", 4);
	      DEFINE_STRING(BGl_string2351z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2351za700za7za7_2411za7, "__r4_output_6_10_3", 18);
	      DEFINE_STRING(BGl_string2270z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2270za700za7za7_2412za7, "bchar", 5);
	      DEFINE_STRING(BGl_string2271z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2271za700za7za7_2413za7, "&write-char-2", 13);
	      DEFINE_STRING(BGl_string2272z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2272za700za7za7_2414za7, "_write-byte", 11);
	      DEFINE_STRING(BGl_string2273z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2273za700za7za7_2415za7, "bint", 4);
	      DEFINE_STRING(BGl_string2274z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2274za700za7za7_2416za7, "&write-byte-2", 13);
	      DEFINE_STRING(BGl_string2275z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2275za700za7za7_2417za7, "#Newline", 8);
	      DEFINE_STRING(BGl_string2276z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2276za700za7za7_2418za7, "#Return", 7);
	      DEFINE_STRING(BGl_string2277z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2277za700za7za7_2419za7, "#Space", 6);
	      DEFINE_STRING(BGl_string2278z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2278za700za7za7_2420za7, "#Tab", 4);
	      DEFINE_STRING(BGl_string2279z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2279za700za7za7_2421za7, "&illegal-char-rep", 17);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_formatzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762formatza762za7za7__2422z00, va_generic_entry,
		BGl_z62formatz62zz__r4_output_6_10_3z00, BUNSPEC, -2);
	      DEFINE_STRING(BGl_string2280z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2280za700za7za7_2423za7, "&tprint", 7);
	      DEFINE_STRING(BGl_string2281z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2281za700za7za7_2424za7, "&fprint", 7);
	      DEFINE_STRING(BGl_string2282z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2282za700za7za7_2425za7, "Insufficient number of arguments",
		32);
	      DEFINE_STRING(BGl_string2283z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2283za700za7za7_2426za7, "Illegal tag \"", 13);
	      DEFINE_STRING(BGl_string2284z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2284za700za7za7_2427za7, "\"", 1);
	      DEFINE_STRING(BGl_string2285z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2285za700za7za7_2428za7, "Illegal char", 12);
	      DEFINE_STRING(BGl_string2286z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2286za700za7za7_2429za7, "number", 6);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_printfzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762printfza762za7za7__2430z00, va_generic_entry,
		BGl_z62printfz62zz__r4_output_6_10_3z00, BUNSPEC, -2);
	      DEFINE_STRING(BGl_string2287z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2287za700za7za7_2431za7, " ", 1);
	      DEFINE_STRING(BGl_string2288z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2288za700za7za7_2432za7, "Illegal tag", 11);
	      DEFINE_STRING(BGl_string2289z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2289za700za7za7_2433za7, "0123456789", 10);
	      DEFINE_STRING(BGl_string2290z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2290za700za7za7_2434za7, "Tag not allowed here", 20);
	      DEFINE_STRING(BGl_string2291z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2291za700za7za7_2435za7, " . ", 3);
	      DEFINE_STRING(BGl_string2293z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2293za700za7za7_2436za7, "format", 6);
	      DEFINE_STRING(BGl_string2294z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2294za700za7za7_2437za7, "&format", 7);
	      DEFINE_STRING(BGl_string2295z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2295za700za7za7_2438za7, "bstring", 7);
	      DEFINE_STRING(BGl_string2297z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2297za700za7za7_2439za7, "printf", 6);
	      DEFINE_STRING(BGl_string2298z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2298za700za7za7_2440za7, "&printf", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2stringzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762displayza7d2str2441z00,
		BGl_z62displayzd2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2substringzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762displayza7d2sub2442z00,
		BGl_z62displayzd2substringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_newlinezd21zd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762newlineza7d21za7b2443za7,
		BGl_z62newlinezd21zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_fprintfzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762fprintfza762za7za7_2444z00, va_generic_entry,
		BGl_z62fprintfz62zz__r4_output_6_10_3z00, BUNSPEC, -3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_writezd2charzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl__writeza7d2charza7d22445z00, opt_generic_entry,
		BGl__writezd2charzd2zz__r4_output_6_10_3z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_writeza2zd2envz70zz__r4_output_6_10_3z00,
		BgL_bgl_za762writeza7a2za7c0za7za72446za7, va_generic_entry,
		BGl_z62writeza2zc0zz__r4_output_6_10_3z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_writezd2charzd22zd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762writeza7d2charza72447za7,
		BGl_z62writezd2charzd22z62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2ucs2stringzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762displayza7d2ucs2448z00,
		BGl_z62displayzd2ucs2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_writezd2symbolzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762writeza7d2symbo2449z00,
		BGl_z62writezd2symbolzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762displayza762za7za7_2450z00, 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_za762displayza7d2elo2451z00,
		BGl_z62displayzd2elongzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_writezd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762writeza762za7za7__r2452z00, 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_za762displayza7d22za7b2453za7,
		BGl_z62displayzd22zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_newlinezd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762newlineza762za7za7_2454z00, 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_za762displayza7a2za7c02455za7, 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__2456z00, 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_za762writeza7d2ucs2s2457z00,
		BGl_z62writezd2ucs2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_writezd2bytezd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl__writeza7d2byteza7d22458z00, 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_za762displayza7d2flo2459z00,
		BGl_z62displayzd2flonumzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_fprintzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762fprintza762za7za7__2460z00, 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__r2461z00, 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_za762displayza7d2sym2462z00,
		BGl_z62displayzd2symbolzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_writezd2stringzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762writeza7d2strin2463z00,
		BGl_z62writezd2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_illegalzd2charzd2repzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762illegalza7d2cha2464z00,
		BGl_z62illegalzd2charzd2repz62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2fixnumzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762displayza7d2fix2465z00,
		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_requirezd2initializa7ationz75zz__r4_output_6_10_3z00));
		     ADD_ROOT((void *) (&BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00));
		     ADD_ROOT((void *) (&BGl_symbol2330z00zz__r4_output_6_10_3z00));
		     ADD_ROOT((void *) (&BGl_symbol2332z00zz__r4_output_6_10_3z00));
		     ADD_ROOT((void *) (&BGl_symbol2338z00zz__r4_output_6_10_3z00));
		     ADD_ROOT((void *) (&BGl_symbol2292z00zz__r4_output_6_10_3z00));
		     ADD_ROOT((void *) (&BGl_symbol2296z00zz__r4_output_6_10_3z00));
		     ADD_ROOT((void *) (&BGl_symbol2299z00zz__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_3994, char *BgL_fromz00_3995)
	{
		{
			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_symbol2292z00zz__r4_output_6_10_3z00 =
				bstring_to_symbol(BGl_string2293z00zz__r4_output_6_10_3z00);
			BGl_symbol2296z00zz__r4_output_6_10_3z00 =
				bstring_to_symbol(BGl_string2297z00zz__r4_output_6_10_3z00);
			BGl_symbol2299z00zz__r4_output_6_10_3z00 =
				bstring_to_symbol(BGl_string2300z00zz__r4_output_6_10_3z00);
			BGl_symbol2330z00zz__r4_output_6_10_3z00 =
				bstring_to_symbol(BGl_string2331z00zz__r4_output_6_10_3z00);
			BGl_symbol2332z00zz__r4_output_6_10_3z00 =
				bstring_to_symbol(BGl_string2333z00zz__r4_output_6_10_3z00);
			return (BGl_symbol2338z00zz__r4_output_6_10_3z00 =
				bstring_to_symbol(BGl_string2339z00zz__r4_output_6_10_3z00), 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_string2261z00zz__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_4013;

						BgL_tmpz00_4013 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_portz00_1611 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4013);
					}
				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_string2262z00zz__r4_output_6_10_3z00,
											BGl_string2263z00zz__r4_output_6_10_3z00, BgL_portz00_3);
									}
							}
						else
							{	/* Ieee/output.scm 260 */
								BgL_portz00_1611 =
									BGl_errorz00zz__errorz00
									(BGl_string2262z00zz__r4_output_6_10_3z00,
									BGl_string2263z00zz__r4_output_6_10_3z00, BgL_portz00_3);
							}
					}
				{	/* Ieee/output.scm 275 */
					obj_t BgL_tmpz00_4025;

					BgL_tmpz00_4025 = ((obj_t) BgL_portz00_1611);
					return bgl_display_char(((unsigned char) 10), BgL_tmpz00_4025);
		}}}

	}



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

	}



/* 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_3841,
		obj_t BgL_portz00_3842)
	{
		{	/* Ieee/output.scm 274 */
			{	/* Ieee/output.scm 275 */
				obj_t BgL_auxz00_4030;

				if (OUTPUT_PORTP(BgL_portz00_3842))
					{	/* Ieee/output.scm 275 */
						BgL_auxz00_4030 = BgL_portz00_3842;
					}
				else
					{
						obj_t BgL_auxz00_4033;

						BgL_auxz00_4033 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(10587L),
							BGl_string2265z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3842);
						FAILURE(BgL_auxz00_4033, BFALSE, BFALSE);
					}
				return BGl_newlinezd21zd2zz__r4_output_6_10_3z00(BgL_auxz00_4030);
			}
		}

	}



/* 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_4040;

						BgL_tmpz00_4040 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_portz00_1621 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4040);
					}
				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_string2267z00zz__r4_output_6_10_3z00,
											BGl_string2263z00zz__r4_output_6_10_3z00, BgL_portz00_6);
									}
							}
						else
							{	/* Ieee/output.scm 281 */
								BgL_portz00_1621 =
									BGl_errorz00zz__errorz00
									(BGl_string2267z00zz__r4_output_6_10_3z00,
									BGl_string2263z00zz__r4_output_6_10_3z00, BgL_portz00_6);
							}
					}
				return bgl_display_obj(BgL_objz00_5, BgL_portz00_1621);
			}
		}

	}



/* &display */
	obj_t BGl_z62displayz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3843,
		obj_t BgL_objz00_3844, obj_t BgL_portz00_3845)
	{
		{	/* Ieee/output.scm 280 */
			return
				BGl_displayz00zz__r4_output_6_10_3z00(BgL_objz00_3844,
				BgL_portz00_3845);
		}

	}



/* 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_4056;

						BgL_tmpz00_4056 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_portz00_1631 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4056);
					}
				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_string2268z00zz__r4_output_6_10_3z00,
											BGl_string2263z00zz__r4_output_6_10_3z00, BgL_portz00_8);
									}
							}
						else
							{	/* Ieee/output.scm 296 */
								BgL_portz00_1631 =
									BGl_errorz00zz__errorz00
									(BGl_string2268z00zz__r4_output_6_10_3z00,
									BGl_string2263z00zz__r4_output_6_10_3z00, BgL_portz00_8);
							}
					}
				return bgl_write_obj(BgL_objz00_7, BgL_portz00_1631);
			}
		}

	}



/* &write */
	obj_t BGl_z62writez62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3846,
		obj_t BgL_objz00_3847, obj_t BgL_portz00_3848)
	{
		{	/* Ieee/output.scm 295 */
			return
				BGl_writez00zz__r4_output_6_10_3z00(BgL_objz00_3847, BgL_portz00_3848);
		}

	}



/* _write-char */
	obj_t BGl__writezd2charzd2zz__r4_output_6_10_3z00(obj_t BgL_env1161z00_12,
		obj_t BgL_opt1160z00_11)
	{
		{	/* Ieee/output.scm 310 */
			{	/* Ieee/output.scm 310 */
				obj_t BgL_g1162z00_1641;

				BgL_g1162z00_1641 = VECTOR_REF(BgL_opt1160z00_11, 0L);
				switch (VECTOR_LENGTH(BgL_opt1160z00_11))
					{
					case 1L:

						{	/* Ieee/output.scm 310 */
							obj_t BgL_portz00_1644;

							{	/* Ieee/output.scm 310 */
								obj_t BgL_tmpz00_4071;

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

								{	/* Ieee/output.scm 310 */
									unsigned char BgL_charz00_2782;

									{	/* Ieee/output.scm 310 */
										obj_t BgL_tmpz00_4074;

										if (CHARP(BgL_g1162z00_1641))
											{	/* Ieee/output.scm 310 */
												BgL_tmpz00_4074 = BgL_g1162z00_1641;
											}
										else
											{
												obj_t BgL_auxz00_4077;

												BgL_auxz00_4077 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2264z00zz__r4_output_6_10_3z00,
													BINT(11766L),
													BGl_string2269z00zz__r4_output_6_10_3z00,
													BGl_string2270z00zz__r4_output_6_10_3z00,
													BgL_g1162z00_1641);
												FAILURE(BgL_auxz00_4077, BFALSE, BFALSE);
											}
										BgL_charz00_2782 = CCHAR(BgL_tmpz00_4074);
									}
									return bgl_display_char(BgL_charz00_2782, BgL_portz00_1644);
								}
							}
						}
						break;
					case 2L:

						{	/* Ieee/output.scm 310 */
							obj_t BgL_portz00_1645;

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

								{	/* Ieee/output.scm 310 */
									unsigned char BgL_charz00_2785;

									{	/* Ieee/output.scm 310 */
										obj_t BgL_tmpz00_4084;

										if (CHARP(BgL_g1162z00_1641))
											{	/* Ieee/output.scm 310 */
												BgL_tmpz00_4084 = BgL_g1162z00_1641;
											}
										else
											{
												obj_t BgL_auxz00_4087;

												BgL_auxz00_4087 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2264z00zz__r4_output_6_10_3z00,
													BINT(11766L),
													BGl_string2269z00zz__r4_output_6_10_3z00,
													BGl_string2270z00zz__r4_output_6_10_3z00,
													BgL_g1162z00_1641);
												FAILURE(BgL_auxz00_4087, BFALSE, BFALSE);
											}
										BgL_charz00_2785 = CCHAR(BgL_tmpz00_4084);
									}
									{	/* Ieee/output.scm 311 */
										obj_t BgL_portz00_2787;

										if (OUTPUT_PORTP(BgL_portz00_1645))
											{	/* Ieee/output.scm 311 */
												BgL_portz00_2787 = BgL_portz00_1645;
											}
										else
											{
												obj_t BgL_auxz00_4094;

												BgL_auxz00_4094 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2264z00zz__r4_output_6_10_3z00,
													BINT(11854L),
													BGl_string2269z00zz__r4_output_6_10_3z00,
													BGl_string2266z00zz__r4_output_6_10_3z00,
													BgL_portz00_1645);
												FAILURE(BgL_auxz00_4094, BFALSE, BFALSE);
											}
										return bgl_display_char(BgL_charz00_2785, BgL_portz00_2787);
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* 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 317 */
				obj_t BgL_tmpz00_4101;

				BgL_tmpz00_4101 = ((obj_t) BgL_portz00_10);
				return bgl_display_char(BgL_charz00_9, BgL_tmpz00_4101);
			}
		}

	}



/* 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_3849,
		obj_t BgL_charz00_3850, obj_t BgL_portz00_3851)
	{
		{	/* Ieee/output.scm 316 */
			{	/* Ieee/output.scm 317 */
				obj_t BgL_auxz00_4114;
				unsigned char BgL_auxz00_4105;

				if (OUTPUT_PORTP(BgL_portz00_3851))
					{	/* Ieee/output.scm 317 */
						BgL_auxz00_4114 = BgL_portz00_3851;
					}
				else
					{
						obj_t BgL_auxz00_4117;

						BgL_auxz00_4117 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(12147L),
							BGl_string2271z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3851);
						FAILURE(BgL_auxz00_4117, BFALSE, BFALSE);
					}
				{	/* Ieee/output.scm 317 */
					obj_t BgL_tmpz00_4106;

					if (CHARP(BgL_charz00_3850))
						{	/* Ieee/output.scm 317 */
							BgL_tmpz00_4106 = BgL_charz00_3850;
						}
					else
						{
							obj_t BgL_auxz00_4109;

							BgL_auxz00_4109 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(12147L),
								BGl_string2271z00zz__r4_output_6_10_3z00,
								BGl_string2270z00zz__r4_output_6_10_3z00, BgL_charz00_3850);
							FAILURE(BgL_auxz00_4109, BFALSE, BFALSE);
						}
					BgL_auxz00_4105 = CCHAR(BgL_tmpz00_4106);
				}
				return
					BGl_writezd2charzd22z00zz__r4_output_6_10_3z00(BgL_auxz00_4105,
					BgL_auxz00_4114);
			}
		}

	}



/* _write-byte */
	obj_t BGl__writezd2bytezd2zz__r4_output_6_10_3z00(obj_t BgL_env1166z00_18,
		obj_t BgL_opt1165z00_17)
	{
		{	/* Ieee/output.scm 322 */
			{	/* Ieee/output.scm 322 */
				obj_t BgL_g1167z00_1646;

				BgL_g1167z00_1646 = VECTOR_REF(BgL_opt1165z00_17, 0L);
				switch (VECTOR_LENGTH(BgL_opt1165z00_17))
					{
					case 1L:

						{	/* Ieee/output.scm 322 */
							obj_t BgL_portz00_1649;

							{	/* Ieee/output.scm 322 */
								obj_t BgL_tmpz00_4123;

								BgL_tmpz00_4123 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_portz00_1649 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4123);
							}
							{	/* Ieee/output.scm 322 */

								{	/* Ieee/output.scm 322 */
									unsigned char BgL_bytez00_2791;

									{	/* Ieee/output.scm 322 */
										obj_t BgL_tmpz00_4126;

										if (INTEGERP(BgL_g1167z00_1646))
											{	/* Ieee/output.scm 322 */
												BgL_tmpz00_4126 = BgL_g1167z00_1646;
											}
										else
											{
												obj_t BgL_auxz00_4129;

												BgL_auxz00_4129 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2264z00zz__r4_output_6_10_3z00,
													BINT(12398L),
													BGl_string2272z00zz__r4_output_6_10_3z00,
													BGl_string2273z00zz__r4_output_6_10_3z00,
													BgL_g1167z00_1646);
												FAILURE(BgL_auxz00_4129, BFALSE, BFALSE);
											}
										BgL_bytez00_2791 = (unsigned char) CINT(BgL_tmpz00_4126);
									}
									return bgl_display_char(BgL_bytez00_2791, BgL_portz00_1649);
								}
							}
						}
						break;
					case 2L:

						{	/* Ieee/output.scm 322 */
							obj_t BgL_portz00_1650;

							BgL_portz00_1650 = VECTOR_REF(BgL_opt1165z00_17, 1L);
							{	/* Ieee/output.scm 322 */

								{	/* Ieee/output.scm 322 */
									unsigned char BgL_bytez00_2794;

									{	/* Ieee/output.scm 322 */
										obj_t BgL_tmpz00_4136;

										if (INTEGERP(BgL_g1167z00_1646))
											{	/* Ieee/output.scm 322 */
												BgL_tmpz00_4136 = BgL_g1167z00_1646;
											}
										else
											{
												obj_t BgL_auxz00_4139;

												BgL_auxz00_4139 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2264z00zz__r4_output_6_10_3z00,
													BINT(12398L),
													BGl_string2272z00zz__r4_output_6_10_3z00,
													BGl_string2273z00zz__r4_output_6_10_3z00,
													BgL_g1167z00_1646);
												FAILURE(BgL_auxz00_4139, BFALSE, BFALSE);
											}
										BgL_bytez00_2794 = (unsigned char) CINT(BgL_tmpz00_4136);
									}
									{	/* Ieee/output.scm 323 */
										obj_t BgL_portz00_2796;

										if (OUTPUT_PORTP(BgL_portz00_1650))
											{	/* Ieee/output.scm 323 */
												BgL_portz00_2796 = BgL_portz00_1650;
											}
										else
											{
												obj_t BgL_auxz00_4146;

												BgL_auxz00_4146 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2264z00zz__r4_output_6_10_3z00,
													BINT(12486L),
													BGl_string2272z00zz__r4_output_6_10_3z00,
													BGl_string2266z00zz__r4_output_6_10_3z00,
													BgL_portz00_1650);
												FAILURE(BgL_auxz00_4146, BFALSE, BFALSE);
											}
										return bgl_display_char(BgL_bytez00_2794, BgL_portz00_2796);
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* 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 329 */
				obj_t BgL_tmpz00_4153;

				BgL_tmpz00_4153 = ((obj_t) BgL_portz00_16);
				return bgl_display_char(BgL_bytez00_15, BgL_tmpz00_4153);
			}
		}

	}



/* 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_3852,
		obj_t BgL_bytez00_3853, obj_t BgL_portz00_3854)
	{
		{	/* Ieee/output.scm 328 */
			{	/* Ieee/output.scm 329 */
				obj_t BgL_auxz00_4166;
				unsigned char BgL_auxz00_4157;

				if (OUTPUT_PORTP(BgL_portz00_3854))
					{	/* Ieee/output.scm 329 */
						BgL_auxz00_4166 = BgL_portz00_3854;
					}
				else
					{
						obj_t BgL_auxz00_4169;

						BgL_auxz00_4169 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(12779L),
							BGl_string2274z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3854);
						FAILURE(BgL_auxz00_4169, BFALSE, BFALSE);
					}
				{	/* Ieee/output.scm 329 */
					obj_t BgL_tmpz00_4158;

					if (INTEGERP(BgL_bytez00_3853))
						{	/* Ieee/output.scm 329 */
							BgL_tmpz00_4158 = BgL_bytez00_3853;
						}
					else
						{
							obj_t BgL_auxz00_4161;

							BgL_auxz00_4161 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(12779L),
								BGl_string2274z00zz__r4_output_6_10_3z00,
								BGl_string2273z00zz__r4_output_6_10_3z00, BgL_bytez00_3853);
							FAILURE(BgL_auxz00_4161, BFALSE, BFALSE);
						}
					BgL_auxz00_4157 = (unsigned char) CINT(BgL_tmpz00_4158);
				}
				return
					BGl_writezd2bytezd22z00zz__r4_output_6_10_3z00(BgL_auxz00_4157,
					BgL_auxz00_4166);
			}
		}

	}



/* 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_test2487z00_4174;

				if (isalpha(BgL_charz00_21))
					{	/* Ieee/output.scm 335 */
						BgL_test2487z00_4174 = ((bool_t) 1);
					}
				else
					{	/* Ieee/output.scm 335 */
						BgL_test2487z00_4174 = isdigit(BgL_charz00_21);
					}
				if (BgL_test2487z00_4174)
					{	/* Ieee/output.scm 335 */
						return BCHAR(BgL_charz00_21);
					}
				else
					{

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

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

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

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

								return BGl_string2278z00zz__r4_output_6_10_3z00;
								break;
							default:
								{	/* Ieee/output.scm 347 */
									long BgL_iz00_1656;

									BgL_iz00_1656 = (BgL_charz00_21);
									if ((BgL_iz00_1656 < 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_3855, obj_t BgL_charz00_3856)
	{
		{	/* Ieee/output.scm 334 */
			{	/* Ieee/output.scm 335 */
				unsigned char BgL_auxz00_4185;

				{	/* Ieee/output.scm 335 */
					obj_t BgL_tmpz00_4186;

					if (CHARP(BgL_charz00_3856))
						{	/* Ieee/output.scm 335 */
							BgL_tmpz00_4186 = BgL_charz00_3856;
						}
					else
						{
							obj_t BgL_auxz00_4189;

							BgL_auxz00_4189 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(13064L),
								BGl_string2279z00zz__r4_output_6_10_3z00,
								BGl_string2270z00zz__r4_output_6_10_3z00, BgL_charz00_3856);
							FAILURE(BgL_auxz00_4189, BFALSE, BFALSE);
						}
					BgL_auxz00_4185 = CCHAR(BgL_tmpz00_4186);
				}
				return
					BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(BgL_auxz00_4185);
			}
		}

	}



/* 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_1659;

				{	/* Ieee/output.scm 356 */
					obj_t BgL_tmpz00_4195;

					BgL_tmpz00_4195 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_portz00_1659 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4195);
				}
				{
					obj_t BgL_lz00_2815;
					obj_t BgL_resz00_2816;

					BgL_lz00_2815 = BgL_objz00_22;
					BgL_resz00_2816 = BNIL;
				BgL_loopz00_2814:
					if (NULLP(BgL_lz00_2815))
						{	/* Ieee/output.scm 359 */
							bgl_display_char(((unsigned char) 10), BgL_portz00_1659);
							return BgL_resz00_2816;
						}
					else
						{	/* Ieee/output.scm 363 */
							obj_t BgL_vz00_2821;

							BgL_vz00_2821 = CAR(((obj_t) BgL_lz00_2815));
							bgl_display_obj(BgL_vz00_2821, BgL_portz00_1659);
							{	/* Ieee/output.scm 365 */
								obj_t BgL_arg1337z00_2822;

								BgL_arg1337z00_2822 = CDR(((obj_t) BgL_lz00_2815));
								{
									obj_t BgL_resz00_4207;
									obj_t BgL_lz00_4206;

									BgL_lz00_4206 = BgL_arg1337z00_2822;
									BgL_resz00_4207 = BgL_vz00_2821;
									BgL_resz00_2816 = BgL_resz00_4207;
									BgL_lz00_2815 = BgL_lz00_4206;
									goto BgL_loopz00_2814;
								}
							}
						}
				}
			}
		}

	}



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

	}



/* 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_1669;

				{	/* Ieee/output.scm 371 */
					obj_t BgL_tmpz00_4209;

					BgL_tmpz00_4209 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_portz00_1669 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4209);
				}
				{
					obj_t BgL_lz00_1671;

					BgL_lz00_1671 = BgL_objz00_23;
				BgL_zc3z04anonymousza31338ze3z87_1672:
					if (NULLP(BgL_lz00_1671))
						{	/* Ieee/output.scm 373 */
							return BUNSPEC;
						}
					else
						{	/* Ieee/output.scm 373 */
							{	/* Ieee/output.scm 376 */
								obj_t BgL_arg1341z00_1675;

								BgL_arg1341z00_1675 = CAR(((obj_t) BgL_lz00_1671));
								bgl_display_obj(BgL_arg1341z00_1675, BgL_portz00_1669);
							}
							{	/* Ieee/output.scm 377 */
								obj_t BgL_arg1342z00_1676;

								BgL_arg1342z00_1676 = CDR(((obj_t) BgL_lz00_1671));
								{
									obj_t BgL_lz00_4219;

									BgL_lz00_4219 = BgL_arg1342z00_1676;
									BgL_lz00_1671 = BgL_lz00_4219;
									goto BgL_zc3z04anonymousza31338ze3z87_1672;
								}
							}
						}
				}
			}
		}

	}



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

	}



/* 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_1678;

				{	/* Ieee/output.scm 383 */
					obj_t BgL_tmpz00_4221;

					BgL_tmpz00_4221 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_portz00_1678 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4221);
				}
				{
					obj_t BgL_lz00_1680;

					BgL_lz00_1680 = BgL_objz00_24;
				BgL_zc3z04anonymousza31343ze3z87_1681:
					if (NULLP(BgL_lz00_1680))
						{	/* Ieee/output.scm 385 */
							return BUNSPEC;
						}
					else
						{	/* Ieee/output.scm 385 */
							{	/* Ieee/output.scm 388 */
								obj_t BgL_arg1345z00_1684;

								BgL_arg1345z00_1684 = CAR(((obj_t) BgL_lz00_1680));
								bgl_write_obj(BgL_arg1345z00_1684, BgL_portz00_1678);
							}
							{	/* Ieee/output.scm 389 */
								obj_t BgL_arg1346z00_1685;

								BgL_arg1346z00_1685 = CDR(((obj_t) BgL_lz00_1680));
								{
									obj_t BgL_lz00_4231;

									BgL_lz00_4231 = BgL_arg1346z00_1685;
									BgL_lz00_1680 = BgL_lz00_4231;
									goto BgL_zc3z04anonymousza31343ze3z87_1681;
								}
							}
						}
				}
			}
		}

	}



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

	}



/* 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_top2495z00_4234;

				BgL_top2495z00_4234 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2495z00_4234,
					BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00);
				BUNSPEC;
				{	/* Ieee/output.scm 400 */
					obj_t BgL_tmp2494z00_4233;

					{	/* Ieee/output.scm 401 */
						obj_t BgL_runner1349z00_2833;

						{	/* Ieee/output.scm 401 */
							obj_t BgL_list1347z00_2834;

							BgL_list1347z00_2834 = MAKE_YOUNG_PAIR(BgL_objz00_26, BNIL);
							BgL_runner1349z00_2833 =
								BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_portz00_25,
								BgL_list1347z00_2834);
						}
						{	/* Ieee/output.scm 401 */
							obj_t BgL_aux1348z00_2835;

							BgL_aux1348z00_2835 = CAR(BgL_runner1349z00_2833);
							BgL_runner1349z00_2833 = CDR(BgL_runner1349z00_2833);
							BGl_fprintz00zz__r4_output_6_10_3z00(BgL_aux1348z00_2835,
								BgL_runner1349z00_2833);
						}
					}
					BgL_tmp2494z00_4233 = bgl_flush_output_port(BgL_portz00_25);
					BGL_EXITD_POP_PROTECT(BgL_top2495z00_4234);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00);
					return BgL_tmp2494z00_4233;
				}
			}
		}

	}



/* &tprint */
	obj_t BGl_z62tprintz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3863,
		obj_t BgL_portz00_3864, obj_t BgL_objz00_3865)
	{
		{	/* Ieee/output.scm 399 */
			{	/* Ieee/output.scm 400 */
				obj_t BgL_auxz00_4246;

				if (OUTPUT_PORTP(BgL_portz00_3864))
					{	/* Ieee/output.scm 400 */
						BgL_auxz00_4246 = BgL_portz00_3864;
					}
				else
					{
						obj_t BgL_auxz00_4249;

						BgL_auxz00_4249 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(15213L),
							BGl_string2280z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3864);
						FAILURE(BgL_auxz00_4249, BFALSE, BFALSE);
					}
				return
					BGl_tprintz00zz__r4_output_6_10_3z00(BgL_auxz00_4246,
					BgL_objz00_3865);
			}
		}

	}



/* 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_2854;
				obj_t BgL_resz00_2855;

				BgL_lz00_2854 = BgL_objz00_28;
				BgL_resz00_2855 = BNIL;
			BgL_loopz00_2853:
				if (NULLP(BgL_lz00_2854))
					{	/* Ieee/output.scm 410 */
						bgl_display_char(((unsigned char) 10), BgL_portz00_27);
						return BgL_resz00_2855;
					}
				else
					{	/* Ieee/output.scm 414 */
						obj_t BgL_vz00_2861;

						BgL_vz00_2861 = CAR(((obj_t) BgL_lz00_2854));
						bgl_display_obj(BgL_vz00_2861, BgL_portz00_27);
						{	/* Ieee/output.scm 416 */
							obj_t BgL_arg1353z00_2863;

							BgL_arg1353z00_2863 = CDR(((obj_t) BgL_lz00_2854));
							{
								obj_t BgL_resz00_4263;
								obj_t BgL_lz00_4262;

								BgL_lz00_4262 = BgL_arg1353z00_2863;
								BgL_resz00_4263 = BgL_vz00_2861;
								BgL_resz00_2855 = BgL_resz00_4263;
								BgL_lz00_2854 = BgL_lz00_4262;
								goto BgL_loopz00_2853;
							}
						}
					}
			}
		}

	}



/* &fprint */
	obj_t BGl_z62fprintz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3866,
		obj_t BgL_portz00_3867, obj_t BgL_objz00_3868)
	{
		{	/* Ieee/output.scm 407 */
			{	/* Ieee/output.scm 408 */
				obj_t BgL_auxz00_4264;

				if (OUTPUT_PORTP(BgL_portz00_3867))
					{	/* Ieee/output.scm 408 */
						BgL_auxz00_4264 = BgL_portz00_3867;
					}
				else
					{
						obj_t BgL_auxz00_4267;

						BgL_auxz00_4267 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(15556L),
							BGl_string2281z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3867);
						FAILURE(BgL_auxz00_4267, BFALSE, BFALSE);
					}
				return
					BGl_fprintz00zz__r4_output_6_10_3z00(BgL_auxz00_4264,
					BgL_objz00_3868);
			}
		}

	}



/* 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_1700;

				BgL_lenz00_1700 = STRING_LENGTH(BgL__fmtz00_31);
				{
					obj_t BgL_iz00_1702;
					obj_t BgL_osz00_1703;

					BgL_iz00_1702 = BINT(0L);
					BgL_osz00_1703 = BgL_objsz00_32;
				BgL_zc3z04anonymousza31354ze3z87_1704:
					{
						obj_t BgL_iz00_1770;
						obj_t BgL_numz00_1771;
						long BgL_mincolz00_1772;
						unsigned char BgL_paddingz00_1773;
						long BgL_iz00_1784;
						obj_t BgL_numz00_1785;
						obj_t BgL_pz00_1786;
						unsigned char BgL_fz00_1803;
						long BgL_iz00_1804;
						bool_t BgL_altzf3zf3_1805;

						if (((long) CINT(BgL_iz00_1702) < BgL_lenz00_1700))
							{	/* Ieee/output.scm 560 */
								unsigned char BgL_cz00_1713;

								BgL_cz00_1713 =
									STRING_REF(BgL__fmtz00_31, (long) CINT(BgL_iz00_1702));
								if ((BgL_cz00_1713 == ((unsigned char) '~')))
									{	/* Ieee/output.scm 561 */
										if (((long) CINT(BgL_iz00_1702) == (BgL_lenz00_1700 - 1L)))
											{	/* Ieee/output.scm 563 */
												return
													BGl_errorz00zz__errorz00(BgL_procnamez00_29,
													BGl_string2290z00zz__r4_output_6_10_3z00,
													c_substring(BgL__fmtz00_31,
														(long) CINT(BgL_iz00_1702), BgL_lenz00_1700));
											}
										else
											{	/* Ieee/output.scm 563 */
												if (
													(((unsigned char) ':') ==
														STRING_REF(BgL__fmtz00_31,
															((long) CINT(BgL_iz00_1702) + 1L))))
													{	/* Ieee/output.scm 567 */
														if (
															((long) CINT(BgL_iz00_1702) ==
																(BgL_lenz00_1700 - 2L)))
															{	/* Ieee/output.scm 568 */
																return
																	BGl_errorz00zz__errorz00(BgL_procnamez00_29,
																	BGl_string2290z00zz__r4_output_6_10_3z00,
																	c_substring(BgL__fmtz00_31,
																		(long) CINT(BgL_iz00_1702),
																		BgL_lenz00_1700));
															}
														else
															{	/* Ieee/output.scm 568 */
																BgL_fz00_1803 =
																	STRING_REF(BgL__fmtz00_31,
																	((long) CINT(BgL_iz00_1702) + 2L));
																BgL_iz00_1804 =
																	((long) CINT(BgL_iz00_1702) + 2L);
																BgL_altzf3zf3_1805 = ((bool_t) 1);
															BgL_zc3z04anonymousza31420ze3z87_1806:
																{

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

																			if (BgL_altzf3zf3_1805)
																				{	/* Ieee/output.scm 503 */
																					obj_t BgL_arg1422z00_1810;

																					if (NULLP(BgL_osz00_1703))
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1422z00_1810 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2282z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1803));
																						}
																					else
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1422z00_1810 =
																								CAR(((obj_t) BgL_osz00_1703));
																						}
																					BGl_displayzd2circlezd2zz__pp_circlez00
																						(BgL_arg1422z00_1810, BgL_pz00_30);
																				}
																			else
																				{	/* Ieee/output.scm 504 */
																					obj_t BgL_arg1423z00_1811;

																					if (NULLP(BgL_osz00_1703))
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1423z00_1811 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2282z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1803));
																						}
																					else
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1423z00_1811 =
																								CAR(((obj_t) BgL_osz00_1703));
																						}
																					bgl_display_obj(BgL_arg1423z00_1811,
																						BgL_pz00_30);
																				}
																			{	/* Ieee/output.scm 505 */
																				long BgL_arg1424z00_1812;
																				obj_t BgL_arg1425z00_1813;

																				BgL_arg1424z00_1812 =
																					(BgL_iz00_1804 + 1L);
																				BgL_arg1425z00_1813 =
																					CDR(((obj_t) BgL_osz00_1703));
																				{
																					obj_t BgL_osz00_4319;
																					obj_t BgL_iz00_4317;

																					BgL_iz00_4317 =
																						BINT(BgL_arg1424z00_1812);
																					BgL_osz00_4319 = BgL_arg1425z00_1813;
																					BgL_osz00_1703 = BgL_osz00_4319;
																					BgL_iz00_1702 = BgL_iz00_4317;
																					goto
																						BgL_zc3z04anonymousza31354ze3z87_1704;
																				}
																			}
																			break;
																		case ((unsigned char) 's'):
																		case ((unsigned char) 'S'):

																			if (BgL_altzf3zf3_1805)
																				{	/* Ieee/output.scm 508 */
																					obj_t BgL_arg1426z00_1814;

																					if (NULLP(BgL_osz00_1703))
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1426z00_1814 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2282z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1803));
																						}
																					else
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1426z00_1814 =
																								CAR(((obj_t) BgL_osz00_1703));
																						}
																					BGl_writezd2circlezd2zz__pp_circlez00
																						(BgL_arg1426z00_1814, BgL_pz00_30);
																				}
																			else
																				{	/* Ieee/output.scm 509 */
																					obj_t BgL_arg1427z00_1815;

																					if (NULLP(BgL_osz00_1703))
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1427z00_1815 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2282z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1803));
																						}
																					else
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1427z00_1815 =
																								CAR(((obj_t) BgL_osz00_1703));
																						}
																					{	/* Ieee/output.scm 509 */
																						obj_t BgL_list1428z00_1816;

																						BgL_list1428z00_1816 =
																							MAKE_YOUNG_PAIR(BgL_pz00_30,
																							BNIL);
																						BGl_writez00zz__r4_output_6_10_3z00
																							(BgL_arg1427z00_1815,
																							BgL_list1428z00_1816);
																					}
																				}
																			{	/* Ieee/output.scm 510 */
																				long BgL_arg1430z00_1817;
																				obj_t BgL_arg1431z00_1818;

																				BgL_arg1430z00_1817 =
																					(BgL_iz00_1804 + 1L);
																				BgL_arg1431z00_1818 =
																					CDR(((obj_t) BgL_osz00_1703));
																				{
																					obj_t BgL_osz00_4341;
																					obj_t BgL_iz00_4339;

																					BgL_iz00_4339 =
																						BINT(BgL_arg1430z00_1817);
																					BgL_osz00_4341 = BgL_arg1431z00_1818;
																					BgL_osz00_1703 = BgL_osz00_4341;
																					BgL_iz00_1702 = BgL_iz00_4339;
																					goto
																						BgL_zc3z04anonymousza31354ze3z87_1704;
																				}
																			}
																			break;
																		case ((unsigned char) 'v'):
																		case ((unsigned char) 'V'):

																			if (BgL_altzf3zf3_1805)
																				{	/* Ieee/output.scm 513 */
																					obj_t BgL_arg1432z00_1819;

																					if (NULLP(BgL_osz00_1703))
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1432z00_1819 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2282z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1803));
																						}
																					else
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1432z00_1819 =
																								CAR(((obj_t) BgL_osz00_1703));
																						}
																					BGl_displayzd2circlezd2zz__pp_circlez00
																						(BgL_arg1432z00_1819, BgL_pz00_30);
																				}
																			else
																				{	/* Ieee/output.scm 514 */
																					obj_t BgL_arg1433z00_1820;

																					if (NULLP(BgL_osz00_1703))
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1433z00_1820 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2282z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1803));
																						}
																					else
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1433z00_1820 =
																								CAR(((obj_t) BgL_osz00_1703));
																						}
																					bgl_display_obj(BgL_arg1433z00_1820,
																						BgL_pz00_30);
																				}
																			bgl_display_char(((unsigned char) 10),
																				BgL_pz00_30);
																			{	/* Ieee/output.scm 516 */
																				long BgL_arg1434z00_1821;
																				obj_t BgL_arg1435z00_1822;

																				BgL_arg1434z00_1821 =
																					(BgL_iz00_1804 + 1L);
																				BgL_arg1435z00_1822 =
																					CDR(((obj_t) BgL_osz00_1703));
																				{
																					obj_t BgL_osz00_4363;
																					obj_t BgL_iz00_4361;

																					BgL_iz00_4361 =
																						BINT(BgL_arg1434z00_1821);
																					BgL_osz00_4363 = BgL_arg1435z00_1822;
																					BgL_osz00_1703 = BgL_osz00_4363;
																					BgL_iz00_1702 = BgL_iz00_4361;
																					goto
																						BgL_zc3z04anonymousza31354ze3z87_1704;
																				}
																			}
																			break;
																		case ((unsigned char) 'c'):
																		case ((unsigned char) 'C'):

																			{	/* Ieee/output.scm 518 */
																				obj_t BgL_oz00_1823;

																				if (NULLP(BgL_osz00_1703))
																					{	/* Ieee/output.scm 427 */
																						BgL_oz00_1823 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2282z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1803));
																					}
																				else
																					{	/* Ieee/output.scm 427 */
																						BgL_oz00_1823 =
																							CAR(((obj_t) BgL_osz00_1703));
																					}
																				if (CHARP(BgL_oz00_1823))
																					{	/* Ieee/output.scm 519 */
																						{	/* Ieee/output.scm 317 */
																							unsigned char BgL_tmpz00_4372;

																							BgL_tmpz00_4372 =
																								CCHAR(BgL_oz00_1823);
																							bgl_display_char(BgL_tmpz00_4372,
																								BgL_pz00_30);
																						}
																						{	/* Ieee/output.scm 523 */
																							long BgL_arg1437z00_1825;
																							obj_t BgL_arg1438z00_1826;

																							BgL_arg1437z00_1825 =
																								(BgL_iz00_1804 + 1L);
																							BgL_arg1438z00_1826 =
																								CDR(((obj_t) BgL_osz00_1703));
																							{
																								obj_t BgL_osz00_4380;
																								obj_t BgL_iz00_4378;

																								BgL_iz00_4378 =
																									BINT(BgL_arg1437z00_1825);
																								BgL_osz00_4380 =
																									BgL_arg1438z00_1826;
																								BgL_osz00_1703 = BgL_osz00_4380;
																								BgL_iz00_1702 = BgL_iz00_4378;
																								goto
																									BgL_zc3z04anonymousza31354ze3z87_1704;
																							}
																						}
																					}
																				else
																					{	/* Ieee/output.scm 519 */
																						return
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2285z00zz__r4_output_6_10_3z00,
																							BgL_oz00_1823);
																					}
																			}
																			break;
																		case ((unsigned char) 'd'):
																		case ((unsigned char) 'D'):

																			{	/* Ieee/output.scm 525 */
																				obj_t BgL_arg1439z00_1827;

																				if (NULLP(BgL_osz00_1703))
																					{	/* Ieee/output.scm 427 */
																						BgL_arg1439z00_1827 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2282z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1803));
																					}
																				else
																					{	/* Ieee/output.scm 427 */
																						BgL_arg1439z00_1827 =
																							CAR(((obj_t) BgL_osz00_1703));
																					}
																				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1439z00_1827))
																					{	/* Ieee/output.scm 432 */
																						bgl_display_obj
																							(BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																							(BgL_arg1439z00_1827, BINT(10L)),
																							BgL_pz00_30);
																					}
																				else
																					{	/* Ieee/output.scm 432 */
																						BGl_bigloozd2typezd2errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2286z00zz__r4_output_6_10_3z00,
																							BgL_arg1439z00_1827);
																					}
																			}
																			{	/* Ieee/output.scm 526 */
																				long BgL_arg1440z00_1828;
																				obj_t BgL_arg1441z00_1829;

																				BgL_arg1440z00_1828 =
																					(BgL_iz00_1804 + 1L);
																				BgL_arg1441z00_1829 =
																					CDR(((obj_t) BgL_osz00_1703));
																				{
																					obj_t BgL_osz00_4399;
																					obj_t BgL_iz00_4397;

																					BgL_iz00_4397 =
																						BINT(BgL_arg1440z00_1828);
																					BgL_osz00_4399 = BgL_arg1441z00_1829;
																					BgL_osz00_1703 = BgL_osz00_4399;
																					BgL_iz00_1702 = BgL_iz00_4397;
																					goto
																						BgL_zc3z04anonymousza31354ze3z87_1704;
																				}
																			}
																			break;
																		case ((unsigned char) 'x'):
																		case ((unsigned char) 'X'):

																			{	/* Ieee/output.scm 528 */
																				obj_t BgL_arg1442z00_1830;

																				if (NULLP(BgL_osz00_1703))
																					{	/* Ieee/output.scm 427 */
																						BgL_arg1442z00_1830 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2282z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1803));
																					}
																				else
																					{	/* Ieee/output.scm 427 */
																						BgL_arg1442z00_1830 =
																							CAR(((obj_t) BgL_osz00_1703));
																					}
																				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1442z00_1830))
																					{	/* Ieee/output.scm 432 */
																						bgl_display_obj
																							(BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																							(BgL_arg1442z00_1830, BINT(16L)),
																							BgL_pz00_30);
																					}
																				else
																					{	/* Ieee/output.scm 432 */
																						BGl_bigloozd2typezd2errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2286z00zz__r4_output_6_10_3z00,
																							BgL_arg1442z00_1830);
																					}
																			}
																			{	/* Ieee/output.scm 529 */
																				long BgL_arg1443z00_1831;
																				obj_t BgL_arg1444z00_1832;

																				BgL_arg1443z00_1831 =
																					(BgL_iz00_1804 + 1L);
																				BgL_arg1444z00_1832 =
																					CDR(((obj_t) BgL_osz00_1703));
																				{
																					obj_t BgL_osz00_4417;
																					obj_t BgL_iz00_4415;

																					BgL_iz00_4415 =
																						BINT(BgL_arg1443z00_1831);
																					BgL_osz00_4417 = BgL_arg1444z00_1832;
																					BgL_osz00_1703 = BgL_osz00_4417;
																					BgL_iz00_1702 = BgL_iz00_4415;
																					goto
																						BgL_zc3z04anonymousza31354ze3z87_1704;
																				}
																			}
																			break;
																		case ((unsigned char) 'o'):
																		case ((unsigned char) 'O'):

																			{	/* Ieee/output.scm 531 */
																				obj_t BgL_arg1445z00_1833;

																				if (NULLP(BgL_osz00_1703))
																					{	/* Ieee/output.scm 427 */
																						BgL_arg1445z00_1833 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2282z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1803));
																					}
																				else
																					{	/* Ieee/output.scm 427 */
																						BgL_arg1445z00_1833 =
																							CAR(((obj_t) BgL_osz00_1703));
																					}
																				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1445z00_1833))
																					{	/* Ieee/output.scm 432 */
																						bgl_display_obj
																							(BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																							(BgL_arg1445z00_1833, BINT(8L)),
																							BgL_pz00_30);
																					}
																				else
																					{	/* Ieee/output.scm 432 */
																						BGl_bigloozd2typezd2errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2286z00zz__r4_output_6_10_3z00,
																							BgL_arg1445z00_1833);
																					}
																			}
																			{	/* Ieee/output.scm 532 */
																				long BgL_arg1446z00_1834;
																				obj_t BgL_arg1447z00_1835;

																				BgL_arg1446z00_1834 =
																					(BgL_iz00_1804 + 1L);
																				BgL_arg1447z00_1835 =
																					CDR(((obj_t) BgL_osz00_1703));
																				{
																					obj_t BgL_osz00_4435;
																					obj_t BgL_iz00_4433;

																					BgL_iz00_4433 =
																						BINT(BgL_arg1446z00_1834);
																					BgL_osz00_4435 = BgL_arg1447z00_1835;
																					BgL_osz00_1703 = BgL_osz00_4435;
																					BgL_iz00_1702 = BgL_iz00_4433;
																					goto
																						BgL_zc3z04anonymousza31354ze3z87_1704;
																				}
																			}
																			break;
																		case ((unsigned char) 'b'):
																		case ((unsigned char) 'B'):

																			{	/* Ieee/output.scm 534 */
																				obj_t BgL_arg1448z00_1836;

																				if (NULLP(BgL_osz00_1703))
																					{	/* Ieee/output.scm 427 */
																						BgL_arg1448z00_1836 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2282z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1803));
																					}
																				else
																					{	/* Ieee/output.scm 427 */
																						BgL_arg1448z00_1836 =
																							CAR(((obj_t) BgL_osz00_1703));
																					}
																				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1448z00_1836))
																					{	/* Ieee/output.scm 432 */
																						bgl_display_obj
																							(BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																							(BgL_arg1448z00_1836, BINT(2L)),
																							BgL_pz00_30);
																					}
																				else
																					{	/* Ieee/output.scm 432 */
																						BGl_bigloozd2typezd2errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2286z00zz__r4_output_6_10_3z00,
																							BgL_arg1448z00_1836);
																					}
																			}
																			{	/* Ieee/output.scm 535 */
																				long BgL_arg1449z00_1837;
																				obj_t BgL_arg1450z00_1838;

																				BgL_arg1449z00_1837 =
																					(BgL_iz00_1804 + 1L);
																				BgL_arg1450z00_1838 =
																					CDR(((obj_t) BgL_osz00_1703));
																				{
																					obj_t BgL_osz00_4453;
																					obj_t BgL_iz00_4451;

																					BgL_iz00_4451 =
																						BINT(BgL_arg1449z00_1837);
																					BgL_osz00_4453 = BgL_arg1450z00_1838;
																					BgL_osz00_1703 = BgL_osz00_4453;
																					BgL_iz00_1702 = BgL_iz00_4451;
																					goto
																						BgL_zc3z04anonymousza31354ze3z87_1704;
																				}
																			}
																			break;
																		case ((unsigned char) '%'):
																		case ((unsigned char) 'n'):

																			bgl_display_char(((unsigned char) 10),
																				BgL_pz00_30);
																			{	/* Ieee/output.scm 538 */
																				long BgL_arg1451z00_1839;

																				BgL_arg1451z00_1839 =
																					(BgL_iz00_1804 + 1L);
																				{
																					obj_t BgL_iz00_4456;

																					BgL_iz00_4456 =
																						BINT(BgL_arg1451z00_1839);
																					BgL_iz00_1702 = BgL_iz00_4456;
																					goto
																						BgL_zc3z04anonymousza31354ze3z87_1704;
																				}
																			}
																			break;
																		case ((unsigned char) 'r'):

																			bgl_display_char(((unsigned char) 13),
																				BgL_pz00_30);
																			{	/* Ieee/output.scm 541 */
																				long BgL_arg1452z00_1840;

																				BgL_arg1452z00_1840 =
																					(BgL_iz00_1804 + 1L);
																				{
																					obj_t BgL_iz00_4460;

																					BgL_iz00_4460 =
																						BINT(BgL_arg1452z00_1840);
																					BgL_iz00_1702 = BgL_iz00_4460;
																					goto
																						BgL_zc3z04anonymousza31354ze3z87_1704;
																				}
																			}
																			break;
																		case ((unsigned char) 'l'):
																		case ((unsigned char) 'L'):

																			{	/* Ieee/output.scm 543 */
																				obj_t BgL_arg1453z00_1841;

																				if (NULLP(BgL_osz00_1703))
																					{	/* Ieee/output.scm 427 */
																						BgL_arg1453z00_1841 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2282z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1803));
																					}
																				else
																					{	/* Ieee/output.scm 427 */
																						BgL_arg1453z00_1841 =
																							CAR(((obj_t) BgL_osz00_1703));
																					}
																				BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00
																					(BgL_arg1453z00_1841, BgL_pz00_30,
																					BGl_string2287z00zz__r4_output_6_10_3z00);
																			}
																			{	/* Ieee/output.scm 544 */
																				long BgL_arg1454z00_1842;
																				obj_t BgL_arg1455z00_1843;

																				BgL_arg1454z00_1842 =
																					(BgL_iz00_1804 + 1L);
																				BgL_arg1455z00_1843 =
																					CDR(((obj_t) BgL_osz00_1703));
																				{
																					obj_t BgL_osz00_4474;
																					obj_t BgL_iz00_4472;

																					BgL_iz00_4472 =
																						BINT(BgL_arg1454z00_1842);
																					BgL_osz00_4474 = BgL_arg1455z00_1843;
																					BgL_osz00_1703 = BgL_osz00_4474;
																					BgL_iz00_1702 = BgL_iz00_4472;
																					goto
																						BgL_zc3z04anonymousza31354ze3z87_1704;
																				}
																			}
																			break;
																		case ((unsigned char) '('):

																			{	/* Ieee/output.scm 546 */
																				obj_t BgL_niz00_1844;

																				{	/* Ieee/output.scm 546 */
																					obj_t BgL_arg1457z00_1846;

																					if (NULLP(BgL_osz00_1703))
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1457z00_1846 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2282z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1803));
																						}
																					else
																						{	/* Ieee/output.scm 427 */
																							BgL_arg1457z00_1846 =
																								CAR(((obj_t) BgL_osz00_1703));
																						}
																					{	/* Ieee/output.scm 452 */
																						obj_t BgL_jz00_2979;

																						BgL_jz00_2979 =
																							BGl_stringzd2indexzd2zz__r4_strings_6_7z00
																							(BgL__fmtz00_31,
																							BCHAR(((unsigned char) ')')),
																							BINT(BgL_iz00_1804));
																						if (CBOOL(BgL_jz00_2979))
																							{	/* Ieee/output.scm 455 */
																								obj_t BgL_sepz00_2980;

																								BgL_sepz00_2980 =
																									c_substring(BgL__fmtz00_31,
																									(BgL_iz00_1804 + 1L),
																									(long) CINT(BgL_jz00_2979));
																								BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00
																									(BgL_arg1457z00_1846,
																									BgL_pz00_30, BgL_sepz00_2980);
																								BgL_niz00_1844 =
																									ADDFX(BgL_jz00_2979,
																									BINT(1L));
																							}
																						else
																							{	/* Ieee/output.scm 453 */
																								BgL_niz00_1844 =
																									BGl_errorz00zz__errorz00
																									(BgL_procnamez00_29,
																									BGl_string2288z00zz__r4_output_6_10_3z00,
																									BgL__fmtz00_31);
																							}
																					}
																				}
																				{	/* Ieee/output.scm 547 */
																					obj_t BgL_arg1456z00_1845;

																					BgL_arg1456z00_1845 =
																						CDR(((obj_t) BgL_osz00_1703));
																					{
																						obj_t BgL_osz00_4496;
																						obj_t BgL_iz00_4495;

																						BgL_iz00_4495 = BgL_niz00_1844;
																						BgL_osz00_4496 =
																							BgL_arg1456z00_1845;
																						BgL_osz00_1703 = BgL_osz00_4496;
																						BgL_iz00_1702 = BgL_iz00_4495;
																						goto
																							BgL_zc3z04anonymousza31354ze3z87_1704;
																					}
																				}
																			}
																			break;
																		case ((unsigned char) '~'):

																			bgl_display_char(((unsigned char) '~'),
																				BgL_pz00_30);
																			{	/* Ieee/output.scm 550 */
																				long BgL_arg1458z00_1847;

																				BgL_arg1458z00_1847 =
																					(BgL_iz00_1804 + 1L);
																				{
																					obj_t BgL_iz00_4499;

																					BgL_iz00_4499 =
																						BINT(BgL_arg1458z00_1847);
																					BgL_iz00_1702 = BgL_iz00_4499;
																					goto
																						BgL_zc3z04anonymousza31354ze3z87_1704;
																				}
																			}
																			break;
																		default:
																			if (isdigit(BgL_fz00_1803))
																				{	/* Ieee/output.scm 553 */
																					obj_t BgL_niz00_1849;

																					{	/* Ieee/output.scm 553 */
																						obj_t BgL_arg1461z00_1851;

																						if (NULLP(BgL_osz00_1703))
																							{	/* Ieee/output.scm 427 */
																								BgL_arg1461z00_1851 =
																									BGl_errorz00zz__errorz00
																									(BgL_procnamez00_29,
																									BGl_string2282z00zz__r4_output_6_10_3z00,
																									BCHAR(BgL_fz00_1803));
																							}
																						else
																							{	/* Ieee/output.scm 427 */
																								BgL_arg1461z00_1851 =
																									CAR(((obj_t) BgL_osz00_1703));
																							}
																						BgL_iz00_1784 = BgL_iz00_1804;
																						BgL_numz00_1785 =
																							BgL_arg1461z00_1851;
																						BgL_pz00_1786 = BgL_pz00_30;
																						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_numz00_1785))
																							{	/* Ieee/output.scm 482 */
																								obj_t BgL_jz00_1789;

																								BgL_jz00_1789 =
																									BGl_stringzd2skipzd2zz__r4_strings_6_7z00
																									(BgL__fmtz00_31,
																									BGl_string2289z00zz__r4_output_6_10_3z00,
																									BINT(BgL_iz00_1784));
																								if (CBOOL(BgL_jz00_1789))
																									{	/* Ieee/output.scm 484 */
																										if (
																											(STRING_REF
																												(BgL__fmtz00_31,
																													(long)
																													CINT(BgL_jz00_1789))
																												==
																												((unsigned char) ',')))
																											{	/* Ieee/output.scm 486 */
																												if (
																													((long)
																														CINT(BgL_jz00_1789)
																														==
																														(BgL_lenz00_1700 -
																															1L)))
																													{	/* Ieee/output.scm 487 */
																														BgL_niz00_1849 =
																															BGl_errorz00zz__errorz00
																															(BgL_procnamez00_29,
																															BGl_string2288z00zz__r4_output_6_10_3z00,
																															BgL__fmtz00_31);
																													}
																												else
																													{	/* Ieee/output.scm 489 */
																														long
																															BgL_arg1411z00_1794;
																														long
																															BgL_arg1412z00_1795;
																														unsigned char
																															BgL_arg1413z00_1796;
																														BgL_arg1411z00_1794
																															=
																															((long)
																															CINT
																															(BgL_jz00_1789) +
																															2L);
																														{	/* Ieee/output.scm 491 */
																															obj_t
																																BgL_arg1414z00_1797;
																															BgL_arg1414z00_1797
																																=
																																c_substring
																																(BgL__fmtz00_31,
																																BgL_iz00_1784,
																																(long)
																																CINT
																																(BgL_jz00_1789));
																															{	/* Ieee/output.scm 491 */
																																char
																																	*BgL_tmpz00_4528;
																																BgL_tmpz00_4528
																																	=
																																	BSTRING_TO_STRING
																																	(BgL_arg1414z00_1797);
																																BgL_arg1412z00_1795
																																	=
																																	BGL_STRTOL
																																	(BgL_tmpz00_4528,
																																	0L, 10L);
																														}}
																														BgL_arg1413z00_1796
																															=
																															STRING_REF
																															(BgL__fmtz00_31,
																															((long)
																																CINT
																																(BgL_jz00_1789)
																																+ 1L));
																														BgL_iz00_1770 =
																															BINT
																															(BgL_arg1411z00_1794);
																														BgL_numz00_1771 =
																															BgL_numz00_1785;
																														BgL_mincolz00_1772 =
																															BgL_arg1412z00_1795;
																														BgL_paddingz00_1773
																															=
																															BgL_arg1413z00_1796;
																													BgL_zc3z04anonymousza31399ze3z87_1774:
																														if (
																															((long)
																																CINT
																																(BgL_iz00_1770)
																																==
																																BgL_lenz00_1700))
																															{	/* Ieee/output.scm 460 */
																																BgL_niz00_1849 =
																																	BGl_errorz00zz__errorz00
																																	(BgL_procnamez00_29,
																																	BGl_string2288z00zz__r4_output_6_10_3z00,
																																	BgL__fmtz00_31);
																															}
																														else
																															{	/* Ieee/output.scm 462 */
																																obj_t
																																	BgL_sz00_1776;
																																{	/* Ieee/output.scm 462 */
																																	unsigned char
																																		BgL_aux1046z00_1782;
																																	BgL_aux1046z00_1782
																																		=
																																		STRING_REF
																																		(BgL__fmtz00_31,
																																		(long)
																																		CINT
																																		(BgL_iz00_1770));
																																	switch
																																		(BgL_aux1046z00_1782)
																																		{
																																		case ((unsigned char) 'd'):
																																		case ((unsigned char) 'D'):

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

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

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

																																			BgL_sz00_1776 = BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_numz00_1771, BINT(2L));
																																			break;
																																		default:
																																			BgL_sz00_1776 = BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2288z00zz__r4_output_6_10_3z00, BgL__fmtz00_31);
																																		}
																																}
																																{	/* Ieee/output.scm 462 */
																																	long
																																		BgL_lz00_1777;
																																	BgL_lz00_1777
																																		=
																																		STRING_LENGTH
																																		(((obj_t)
																																			BgL_sz00_1776));
																																	{	/* Ieee/output.scm 473 */

																																		if (
																																			(BgL_lz00_1777
																																				<
																																				BgL_mincolz00_1772))
																																			{	/* Ieee/output.scm 474 */
																																				bgl_display_obj
																																					(make_string
																																					((BgL_mincolz00_1772 - BgL_lz00_1777), BgL_paddingz00_1773), BgL_pz00_30);
																																			}
																																		else
																																			{	/* Ieee/output.scm 474 */
																																				BFALSE;
																																			}
																																		bgl_display_obj
																																			(BgL_sz00_1776,
																																			BgL_pz00_30);
																																		BgL_niz00_1849
																																			=
																																			ADDFX
																																			(BgL_iz00_1770,
																																			BINT(1L));
																																	}
																																}
																															}
																													}
																											}
																										else
																											{	/* Ieee/output.scm 496 */
																												long
																													BgL_arg1417z00_1800;
																												{	/* Ieee/output.scm 496 */
																													obj_t
																														BgL_arg1418z00_1801;
																													BgL_arg1418z00_1801 =
																														c_substring
																														(BgL__fmtz00_31,
																														BgL_iz00_1784,
																														(long)
																														CINT
																														(BgL_jz00_1789));
																													{	/* Ieee/output.scm 496 */
																														char
																															*BgL_tmpz00_4563;
																														BgL_tmpz00_4563 =
																															BSTRING_TO_STRING
																															(BgL_arg1418z00_1801);
																														BgL_arg1417z00_1800
																															=
																															BGL_STRTOL
																															(BgL_tmpz00_4563,
																															0L, 10L);
																												}}
																												{
																													unsigned char
																														BgL_paddingz00_4569;
																													long
																														BgL_mincolz00_4568;
																													obj_t BgL_numz00_4567;
																													obj_t BgL_iz00_4566;

																													BgL_iz00_4566 =
																														BgL_jz00_1789;
																													BgL_numz00_4567 =
																														BgL_numz00_1785;
																													BgL_mincolz00_4568 =
																														BgL_arg1417z00_1800;
																													BgL_paddingz00_4569 =
																														((unsigned char)
																														' ');
																													BgL_paddingz00_1773 =
																														BgL_paddingz00_4569;
																													BgL_mincolz00_1772 =
																														BgL_mincolz00_4568;
																													BgL_numz00_1771 =
																														BgL_numz00_4567;
																													BgL_iz00_1770 =
																														BgL_iz00_4566;
																													goto
																														BgL_zc3z04anonymousza31399ze3z87_1774;
																												}
																											}
																									}
																								else
																									{	/* Ieee/output.scm 484 */
																										BgL_niz00_1849 =
																											BGl_errorz00zz__errorz00
																											(BgL_procnamez00_29,
																											BGl_string2288z00zz__r4_output_6_10_3z00,
																											BgL__fmtz00_31);
																									}
																							}
																						else
																							{	/* Ieee/output.scm 480 */
																								BgL_niz00_1849 =
																									BGl_bigloozd2typezd2errorz00zz__errorz00
																									(BgL_procnamez00_29,
																									BGl_string2286z00zz__r4_output_6_10_3z00,
																									BgL_numz00_1785);
																							}
																					}
																					{	/* Ieee/output.scm 554 */
																						obj_t BgL_arg1460z00_1850;

																						BgL_arg1460z00_1850 =
																							CDR(((obj_t) BgL_osz00_1703));
																						{
																							obj_t BgL_osz00_4575;
																							obj_t BgL_iz00_4574;

																							BgL_iz00_4574 = BgL_niz00_1849;
																							BgL_osz00_4575 =
																								BgL_arg1460z00_1850;
																							BgL_osz00_1703 = BgL_osz00_4575;
																							BgL_iz00_1702 = BgL_iz00_4574;
																							goto
																								BgL_zc3z04anonymousza31354ze3z87_1704;
																						}
																					}
																				}
																			else
																				{	/* Ieee/output.scm 557 */
																					obj_t BgL_arg1462z00_1852;

																					{	/* Ieee/output.scm 557 */
																						obj_t BgL_arg1463z00_1853;

																						{	/* Ieee/output.scm 557 */
																							obj_t BgL_list1464z00_1854;

																							BgL_list1464z00_1854 =
																								MAKE_YOUNG_PAIR(BCHAR
																								(BgL_fz00_1803), BNIL);
																							BgL_arg1463z00_1853 =
																								BGl_listzd2ze3stringz31zz__r4_strings_6_7z00
																								(BgL_list1464z00_1854);
																						}
																						BgL_arg1462z00_1852 =
																							string_append_3
																							(BGl_string2283z00zz__r4_output_6_10_3z00,
																							BgL_arg1463z00_1853,
																							BGl_string2284z00zz__r4_output_6_10_3z00);
																					}
																					return
																						BGl_errorz00zz__errorz00
																						(BgL_procnamez00_29,
																						BgL_arg1462z00_1852,
																						BgL__fmtz00_31);
																				}
																		}
																}
															}
													}
												else
													{
														bool_t BgL_altzf3zf3_4594;
														long BgL_iz00_4591;
														unsigned char BgL_fz00_4587;

														BgL_fz00_4587 =
															STRING_REF(BgL__fmtz00_31,
															((long) CINT(BgL_iz00_1702) + 1L));
														BgL_iz00_4591 = ((long) CINT(BgL_iz00_1702) + 1L);
														BgL_altzf3zf3_4594 = ((bool_t) 0);
														BgL_altzf3zf3_1805 = BgL_altzf3zf3_4594;
														BgL_iz00_1804 = BgL_iz00_4591;
														BgL_fz00_1803 = BgL_fz00_4587;
														goto BgL_zc3z04anonymousza31420ze3z87_1806;
													}
											}
									}
								else
									{	/* Ieee/output.scm 561 */
										bgl_display_char(BgL_cz00_1713, BgL_pz00_30);
										{	/* Ieee/output.scm 581 */
											long BgL_arg1376z00_1734;

											BgL_arg1376z00_1734 = ((long) CINT(BgL_iz00_1702) + 1L);
											{
												obj_t BgL_iz00_4598;

												BgL_iz00_4598 = BINT(BgL_arg1376z00_1734);
												BgL_iz00_1702 = BgL_iz00_4598;
												goto BgL_zc3z04anonymousza31354ze3z87_1704;
											}
										}
									}
							}
						else
							{	/* Ieee/output.scm 559 */
								return BFALSE;
							}
					}
				}
			}
		}

	}



/* print-flat-list~0 */
	obj_t BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00(obj_t
		BgL_lz00_1744, obj_t BgL_pz00_1745, obj_t BgL_sepz00_1746)
	{
		{	/* Ieee/output.scm 449 */
		BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00:
			if (PAIRP(BgL_lz00_1744))
				{
					obj_t BgL_lz00_1750;

					BgL_lz00_1750 = BgL_lz00_1744;
				BgL_zc3z04anonymousza31385ze3z87_1751:
					{	/* Ieee/output.scm 440 */
						obj_t BgL_arg1386z00_1752;

						BgL_arg1386z00_1752 = CAR(((obj_t) BgL_lz00_1750));
						BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00
							(BgL_arg1386z00_1752, BgL_pz00_1745, BgL_sepz00_1746);
					}
					{	/* Ieee/output.scm 442 */
						bool_t BgL_test2535z00_4606;

						{	/* Ieee/output.scm 442 */
							obj_t BgL_tmpz00_4607;

							BgL_tmpz00_4607 = CDR(((obj_t) BgL_lz00_1750));
							BgL_test2535z00_4606 = PAIRP(BgL_tmpz00_4607);
						}
						if (BgL_test2535z00_4606)
							{	/* Ieee/output.scm 442 */
								bgl_display_obj(BgL_sepz00_1746, BgL_pz00_1745);
								{	/* Ieee/output.scm 444 */
									obj_t BgL_arg1389z00_1755;

									BgL_arg1389z00_1755 = CDR(((obj_t) BgL_lz00_1750));
									{
										obj_t BgL_lz00_4614;

										BgL_lz00_4614 = BgL_arg1389z00_1755;
										BgL_lz00_1750 = BgL_lz00_4614;
										goto BgL_zc3z04anonymousza31385ze3z87_1751;
									}
								}
							}
						else
							{	/* Ieee/output.scm 442 */
								if (NULLP(CDR(((obj_t) BgL_lz00_1750))))
									{	/* Ieee/output.scm 445 */
										return BFALSE;
									}
								else
									{	/* Ieee/output.scm 445 */
										bgl_display_string(BGl_string2291z00zz__r4_output_6_10_3z00,
											BgL_pz00_1745);
										{	/* Ieee/output.scm 447 */
											obj_t BgL_arg1392z00_1758;

											BgL_arg1392z00_1758 = CDR(((obj_t) BgL_lz00_1750));
											{
												obj_t BgL_lz00_4622;

												BgL_lz00_4622 = BgL_arg1392z00_1758;
												BgL_lz00_1744 = BgL_lz00_4622;
												goto
													BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00;
											}
										}
									}
							}
					}
				}
			else
				{	/* Ieee/output.scm 438 */
					if (NULLP(BgL_lz00_1744))
						{	/* Ieee/output.scm 448 */
							return BFALSE;
						}
					else
						{	/* Ieee/output.scm 448 */
							return bgl_display_obj(BgL_lz00_1744, BgL_pz00_1745);
						}
				}
		}

	}



/* format */
	BGL_EXPORTED_DEF obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t
		BgL_fmtz00_33, obj_t BgL_objz00_34)
	{
		{	/* Ieee/output.scm 586 */
			{	/* Ieee/output.scm 587 */
				obj_t BgL_pz00_3025;

				{	/* Ieee/output.scm 587 */

					{	/* Ieee/output.scm 587 */

						BgL_pz00_3025 =
							BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(BTRUE);
					}
				}
				BGl_xprintfz00zz__r4_output_6_10_3z00
					(BGl_symbol2292z00zz__r4_output_6_10_3z00, BgL_pz00_3025,
					BgL_fmtz00_33, BgL_objz00_34);
				return bgl_close_output_port(BgL_pz00_3025);
			}
		}

	}



/* &format */
	obj_t BGl_z62formatz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3869,
		obj_t BgL_fmtz00_3870, obj_t BgL_objz00_3871)
	{
		{	/* Ieee/output.scm 586 */
			{	/* Ieee/output.scm 587 */
				obj_t BgL_auxz00_4629;

				if (STRINGP(BgL_fmtz00_3870))
					{	/* Ieee/output.scm 587 */
						BgL_auxz00_4629 = BgL_fmtz00_3870;
					}
				else
					{
						obj_t BgL_auxz00_4632;

						BgL_auxz00_4632 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(20551L),
							BGl_string2294z00zz__r4_output_6_10_3z00,
							BGl_string2295z00zz__r4_output_6_10_3z00, BgL_fmtz00_3870);
						FAILURE(BgL_auxz00_4632, BFALSE, BFALSE);
					}
				return
					BGl_formatz00zz__r4_output_6_10_3z00(BgL_auxz00_4629,
					BgL_objz00_3871);
			}
		}

	}



/* 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_3028;

				{	/* Ieee/output.scm 595 */
					obj_t BgL_tmpz00_4637;

					BgL_tmpz00_4637 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1465z00_3028 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4637);
				}
				return
					BGl_xprintfz00zz__r4_output_6_10_3z00
					(BGl_symbol2296z00zz__r4_output_6_10_3z00, BgL_arg1465z00_3028,
					BgL_fmtz00_35, BgL_objz00_36);
			}
		}

	}



/* &printf */
	obj_t BGl_z62printfz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3872,
		obj_t BgL_fmtz00_3873, obj_t BgL_objz00_3874)
	{
		{	/* Ieee/output.scm 594 */
			{	/* Ieee/output.scm 595 */
				obj_t BgL_auxz00_4641;

				if (STRINGP(BgL_fmtz00_3873))
					{	/* Ieee/output.scm 595 */
						BgL_auxz00_4641 = BgL_fmtz00_3873;
					}
				else
					{
						obj_t BgL_auxz00_4644;

						BgL_auxz00_4644 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(20917L),
							BGl_string2298z00zz__r4_output_6_10_3z00,
							BGl_string2295z00zz__r4_output_6_10_3z00, BgL_fmtz00_3873);
						FAILURE(BgL_auxz00_4644, BFALSE, BFALSE);
					}
				return
					BGl_printfz00zz__r4_output_6_10_3z00(BgL_auxz00_4641,
					BgL_objz00_3874);
			}
		}

	}



/* 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 */
			return
				BGl_xprintfz00zz__r4_output_6_10_3z00
				(BGl_symbol2299z00zz__r4_output_6_10_3z00, BgL_portz00_37,
				BgL_fmtz00_38, BgL_objz00_39);
		}

	}



/* &fprintf */
	obj_t BGl_z62fprintfz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3875,
		obj_t BgL_portz00_3876, obj_t BgL_fmtz00_3877, obj_t BgL_objz00_3878)
	{
		{	/* Ieee/output.scm 600 */
			{	/* Ieee/output.scm 601 */
				obj_t BgL_auxz00_4657;
				obj_t BgL_auxz00_4650;

				if (STRINGP(BgL_fmtz00_3877))
					{	/* Ieee/output.scm 601 */
						BgL_auxz00_4657 = BgL_fmtz00_3877;
					}
				else
					{
						obj_t BgL_auxz00_4660;

						BgL_auxz00_4660 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(21208L),
							BGl_string2301z00zz__r4_output_6_10_3z00,
							BGl_string2295z00zz__r4_output_6_10_3z00, BgL_fmtz00_3877);
						FAILURE(BgL_auxz00_4660, BFALSE, BFALSE);
					}
				if (OUTPUT_PORTP(BgL_portz00_3876))
					{	/* Ieee/output.scm 601 */
						BgL_auxz00_4650 = BgL_portz00_3876;
					}
				else
					{
						obj_t BgL_auxz00_4653;

						BgL_auxz00_4653 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(21208L),
							BGl_string2301z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3876);
						FAILURE(BgL_auxz00_4653, BFALSE, BFALSE);
					}
				return
					BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_auxz00_4650,
					BgL_auxz00_4657, BgL_objz00_3878);
			}
		}

	}



/* 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_3034;

							BgL_arg1607z00_3034 = SYMBOL_TO_STRING(BgL_objz00_40);
							return bgl_display_string(BgL_arg1607z00_3034, 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_4677;

											BgL_tmpz00_4677 = CCHAR(BgL_objz00_40);
											return bgl_display_char(BgL_tmpz00_4677, 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_string2302z00zz__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_string2303z00zz__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_string2304z00zz__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_string2305z00zz__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_3048;

																									BgL_arg1651z00_3048 =
																										bgl_real_to_string
																										(REAL_TO_DOUBLE
																										(BgL_objz00_40));
																									return
																										bgl_display_string
																										(BgL_arg1651z00_3048,
																										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_3051;
																												BgL_arg1649z00_3051 =
																													KEYWORD_TO_STRING
																													(BgL_objz00_40);
																												return
																													bgl_display_string
																													(BgL_arg1649z00_3051,
																													BgL_portz00_41);
																											}
																										}
																									else
																										{	/* Ieee/output.scm 761 */
																											if (BGl_classzf3zf3zz__objectz00(BgL_objz00_40))
																												{	/* Ieee/output.scm 761 */
																													bgl_display_string
																														(BGl_string2306z00zz__r4_output_6_10_3z00,
																														BgL_portz00_41);
																													{	/* Ieee/output.scm 936 */
																														obj_t
																															BgL_arg1663z00_3055;
																														BgL_arg1663z00_3055
																															=
																															BGl_classzd2namezd2zz__objectz00
																															(BgL_objz00_40);
																														{	/* Ieee/output.scm 773 */
																															obj_t
																																BgL_arg1607z00_3060;
																															BgL_arg1607z00_3060
																																=
																																SYMBOL_TO_STRING
																																(BgL_arg1663z00_3055);
																															bgl_display_string
																																(BgL_arg1607z00_3060,
																																BgL_portz00_41);
																														}
																													}
																													return
																														bgl_display_string
																														(BGl_string2307z00zz__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_1881;
																																							BgL_list1481z00_1881
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_portz00_41,
																																								BNIL);
																																							return
																																								BGl_objectzd2displayzd2zz__objectz00
																																								(
																																								((BgL_objectz00_bglt) BgL_objz00_40), BgL_list1481z00_1881);
																																						}
																																					else
																																						{	/* Ieee/output.scm 761 */
																																							if (BGL_DATEP(BgL_objz00_40))
																																								{	/* Ieee/output.scm 833 */
																																									obj_t
																																										BgL_tmpz00_4736;
																																									BgL_tmpz00_4736
																																										=
																																										BGl_datezd2ze3stringz31zz__datez00
																																										(BgL_objz00_40);
																																									return
																																										bgl_display_string
																																										(BgL_tmpz00_4736,
																																										BgL_portz00_41);
																																								}
																																							else
																																								{	/* Ieee/output.scm 761 */
																																									if (BGL_MUTEXP(BgL_objz00_40))
																																										{	/* Ieee/output.scm 761 */
																																											bgl_display_string
																																												(BGl_string2308z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_41);
																																											{	/* Ieee/output.scm 918 */
																																												obj_t
																																													BgL_arg1659z00_3071;
																																												{	/* Ieee/output.scm 918 */
																																													obj_t
																																														BgL_tmpz00_4742;
																																													BgL_tmpz00_4742
																																														=
																																														(
																																														(obj_t)
																																														BgL_objz00_40);
																																													BgL_arg1659z00_3071
																																														=
																																														BGL_MUTEX_NAME
																																														(BgL_tmpz00_4742);
																																												}
																																												bgl_display_obj
																																													(BgL_arg1659z00_3071,
																																													BgL_portz00_41);
																																											}
																																											bgl_display_string
																																												(BGl_string2309z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_41);
																																											{	/* Ieee/output.scm 920 */
																																												obj_t
																																													BgL_arg1661z00_3072;
																																												BgL_arg1661z00_3072
																																													=
																																													BGL_MUTEX_BACKEND
																																													(BgL_objz00_40);
																																												bgl_display_obj
																																													(BgL_arg1661z00_3072,
																																													BgL_portz00_41);
																																											}
																																											return
																																												bgl_display_string
																																												(BGl_string2307z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_41);
																																										}
																																									else
																																										{	/* Ieee/output.scm 761 */
																																											if (BGL_CONDVARP(BgL_objz00_40))
																																												{	/* Ieee/output.scm 761 */
																																													bgl_display_string
																																														(BGl_string2310z00zz__r4_output_6_10_3z00,
																																														BgL_portz00_41);
																																													{	/* Ieee/output.scm 928 */
																																														obj_t
																																															BgL_arg1662z00_3080;
																																														{	/* Ieee/output.scm 928 */
																																															obj_t
																																																BgL_tmpz00_4753;
																																															BgL_tmpz00_4753
																																																=
																																																(
																																																(obj_t)
																																																BgL_objz00_40);
																																															BgL_arg1662z00_3080
																																																=
																																																BGL_CONDVAR_NAME
																																																(BgL_tmpz00_4753);
																																														}
																																														bgl_display_obj
																																															(BgL_arg1662z00_3080,
																																															BgL_portz00_41);
																																													}
																																													return
																																														bgl_display_string
																																														(BGl_string2307z00zz__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_string2311z00zz__r4_output_6_10_3z00,
																																																		BgL_portz00_41);
																																																	bgl_display_obj
																																																		(CELL_REF
																																																		(BgL_objz00_40),
																																																		BgL_portz00_41);
																																																	return
																																																		bgl_display_string
																																																		(BGl_string2307z00zz__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_string2312z00zz__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_string2313z00zz__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_string2314z00zz__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_string2315z00zz__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_string2316z00zz__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_string2317z00zz__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_3104;
																																																																							BgL_dataz00_3104
																																																																								=
																																																																								bgl_weakptr_data
																																																																								(BgL_objz00_40);
																																																																							bgl_display_string
																																																																								(BGl_string2318z00zz__r4_output_6_10_3z00,
																																																																								BgL_portz00_41);
																																																																							bgl_display_obj
																																																																								(BgL_dataz00_3104,
																																																																								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 */
																																																																											return
																																																																												bgl_write_process
																																																																												(BgL_objz00_40,
																																																																												BgL_portz00_41);
																																																																										}
																																																																									else
																																																																										{	/* Ieee/output.scm 761 */
																																																																											if (SOCKETP(BgL_objz00_40))
																																																																												{	/* Ieee/output.scm 761 */
																																																																													return
																																																																														bgl_write_socket
																																																																														(BgL_objz00_40,
																																																																														BgL_portz00_41);
																																																																												}
																																																																											else
																																																																												{	/* Ieee/output.scm 761 */
																																																																													if (BGL_DATAGRAM_SOCKETP(BgL_objz00_40))
																																																																														{	/* Ieee/output.scm 761 */
																																																																															return
																																																																																bgl_write_datagram_socket
																																																																																(BgL_objz00_40,
																																																																																BgL_portz00_41);
																																																																														}
																																																																													else
																																																																														{	/* Ieee/output.scm 761 */
																																																																															if (BGL_REGEXPP(BgL_objz00_40))
																																																																																{	/* Ieee/output.scm 761 */
																																																																																	return
																																																																																		bgl_write_regexp
																																																																																		(BgL_objz00_40,
																																																																																		BgL_portz00_41);
																																																																																}
																																																																															else
																																																																																{	/* Ieee/output.scm 761 */
																																																																																	if (BGL_MMAPP(BgL_objz00_40))
																																																																																		{	/* Ieee/output.scm 761 */
																																																																																			return
																																																																																				bgl_write_mmap
																																																																																				(BgL_objz00_40,
																																																																																				BgL_portz00_41);
																																																																																		}
																																																																																	else
																																																																																		{	/* Ieee/output.scm 761 */
																																																																																			if (BGL_SEMAPHOREP(BgL_objz00_40))
																																																																																				{	/* Ieee/output.scm 761 */
																																																																																					return
																																																																																						bgl_write_semaphore
																																																																																						(BgL_objz00_40,
																																																																																						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_1909;
																																																																																															{	/* Ieee/output.scm 761 */
																																																																																																int8_t
																																																																																																	BgL_xz00_3106;
																																																																																																BgL_xz00_3106
																																																																																																	=
																																																																																																	BGL_BINT8_TO_INT8
																																																																																																	(BgL_objz00_40);
																																																																																																{	/* Ieee/output.scm 761 */
																																																																																																	long
																																																																																																		BgL_arg1994z00_3107;
																																																																																																	BgL_arg1994z00_3107
																																																																																																		=
																																																																																																		(long)
																																																																																																		(BgL_xz00_3106);
																																																																																																	BgL_arg1509z00_1909
																																																																																																		=
																																																																																																		(long)
																																																																																																		(BgL_arg1994z00_3107);
																																																																																															}}
																																																																																															{
																																																																																																obj_t
																																																																																																	BgL_objz00_4847;
																																																																																																BgL_objz00_4847
																																																																																																	=
																																																																																																	BINT
																																																																																																	(BgL_arg1509z00_1909);
																																																																																																BgL_objz00_40
																																																																																																	=
																																																																																																	BgL_objz00_4847;
																																																																																																goto
																																																																																																	bgl_display_obj;
																																																																																															}
																																																																																														}
																																																																																													else
																																																																																														{	/* Ieee/output.scm 761 */
																																																																																															if (BGL_UINT8P(BgL_objz00_40))
																																																																																																{	/* Ieee/output.scm 761 */
																																																																																																	long
																																																																																																		BgL_arg1512z00_1911;
																																																																																																	{	/* Ieee/output.scm 761 */
																																																																																																		uint8_t
																																																																																																			BgL_xz00_3109;
																																																																																																		BgL_xz00_3109
																																																																																																			=
																																																																																																			BGL_BUINT8_TO_UINT8
																																																																																																			(BgL_objz00_40);
																																																																																																		{	/* Ieee/output.scm 761 */
																																																																																																			long
																																																																																																				BgL_arg1993z00_3110;
																																																																																																			BgL_arg1993z00_3110
																																																																																																				=
																																																																																																				(long)
																																																																																																				(BgL_xz00_3109);
																																																																																																			BgL_arg1512z00_1911
																																																																																																				=
																																																																																																				(long)
																																																																																																				(BgL_arg1993z00_3110);
																																																																																																	}}
																																																																																																	{
																																																																																																		obj_t
																																																																																																			BgL_objz00_4854;
																																																																																																		BgL_objz00_4854
																																																																																																			=
																																																																																																			BINT
																																																																																																			(BgL_arg1512z00_1911);
																																																																																																		BgL_objz00_40
																																																																																																			=
																																																																																																			BgL_objz00_4854;
																																																																																																		goto
																																																																																																			bgl_display_obj;
																																																																																																	}
																																																																																																}
																																																																																															else
																																																																																																{	/* Ieee/output.scm 761 */
																																																																																																	if (BGL_INT16P(BgL_objz00_40))
																																																																																																		{	/* Ieee/output.scm 761 */
																																																																																																			long
																																																																																																				BgL_arg1515z00_1913;
																																																																																																			{	/* Ieee/output.scm 761 */
																																																																																																				int16_t
																																																																																																					BgL_xz00_3112;
																																																																																																				BgL_xz00_3112
																																																																																																					=
																																																																																																					BGL_BINT16_TO_INT16
																																																																																																					(BgL_objz00_40);
																																																																																																				{	/* Ieee/output.scm 761 */
																																																																																																					long
																																																																																																						BgL_arg1992z00_3113;
																																																																																																					BgL_arg1992z00_3113
																																																																																																						=
																																																																																																						(long)
																																																																																																						(BgL_xz00_3112);
																																																																																																					BgL_arg1515z00_1913
																																																																																																						=
																																																																																																						(long)
																																																																																																						(BgL_arg1992z00_3113);
																																																																																																			}}
																																																																																																			{
																																																																																																				obj_t
																																																																																																					BgL_objz00_4861;
																																																																																																				BgL_objz00_4861
																																																																																																					=
																																																																																																					BINT
																																																																																																					(BgL_arg1515z00_1913);
																																																																																																				BgL_objz00_40
																																																																																																					=
																																																																																																					BgL_objz00_4861;
																																																																																																				goto
																																																																																																					bgl_display_obj;
																																																																																																			}
																																																																																																		}
																																																																																																	else
																																																																																																		{	/* Ieee/output.scm 761 */
																																																																																																			if (BGL_UINT16P(BgL_objz00_40))
																																																																																																				{	/* Ieee/output.scm 761 */
																																																																																																					long
																																																																																																						BgL_arg1518z00_1915;
																																																																																																					{	/* Ieee/output.scm 761 */
																																																																																																						uint16_t
																																																																																																							BgL_xz00_3115;
																																																																																																						BgL_xz00_3115
																																																																																																							=
																																																																																																							BGL_BUINT16_TO_UINT16
																																																																																																							(BgL_objz00_40);
																																																																																																						{	/* Ieee/output.scm 761 */
																																																																																																							long
																																																																																																								BgL_arg1991z00_3116;
																																																																																																							BgL_arg1991z00_3116
																																																																																																								=
																																																																																																								(long)
																																																																																																								(BgL_xz00_3115);
																																																																																																							BgL_arg1518z00_1915
																																																																																																								=
																																																																																																								(long)
																																																																																																								(BgL_arg1991z00_3116);
																																																																																																					}}
																																																																																																					{
																																																																																																						obj_t
																																																																																																							BgL_objz00_4868;
																																																																																																						BgL_objz00_4868
																																																																																																							=
																																																																																																							BINT
																																																																																																							(BgL_arg1518z00_1915);
																																																																																																						BgL_objz00_40
																																																																																																							=
																																																																																																							BgL_objz00_4868;
																																																																																																						goto
																																																																																																							bgl_display_obj;
																																																																																																					}
																																																																																																				}
																																																																																																			else
																																																																																																				{	/* Ieee/output.scm 761 */
																																																																																																					if (BGL_INT32P(BgL_objz00_40))
																																																																																																						{	/* Ieee/output.scm 761 */
																																																																																																							long
																																																																																																								BgL_arg1520z00_1917;
																																																																																																							{	/* Ieee/output.scm 761 */
																																																																																																								int32_t
																																																																																																									BgL_nz00_3118;
																																																																																																								BgL_nz00_3118
																																																																																																									=
																																																																																																									BGL_BINT32_TO_INT32
																																																																																																									(BgL_objz00_40);
																																																																																																								BgL_arg1520z00_1917
																																																																																																									=
																																																																																																									(long)
																																																																																																									(BgL_nz00_3118);
																																																																																																							}
																																																																																																							{
																																																																																																								obj_t
																																																																																																									BgL_objz00_4874;
																																																																																																								BgL_objz00_4874
																																																																																																									=
																																																																																																									make_belong
																																																																																																									(BgL_arg1520z00_1917);
																																																																																																								BgL_objz00_40
																																																																																																									=
																																																																																																									BgL_objz00_4874;
																																																																																																								goto
																																																																																																									bgl_display_obj;
																																																																																																							}
																																																																																																						}
																																																																																																					else
																																																																																																						{	/* Ieee/output.scm 761 */
																																																																																																							if (BGL_UINT32P(BgL_objz00_40))
																																																																																																								{	/* Ieee/output.scm 761 */
																																																																																																									BGL_LONGLONG_T
																																																																																																										BgL_arg1522z00_1919;
																																																																																																									{	/* Ieee/output.scm 761 */
																																																																																																										uint32_t
																																																																																																											BgL_nz00_3119;
																																																																																																										BgL_nz00_3119
																																																																																																											=
																																																																																																											BGL_BUINT32_TO_UINT32
																																																																																																											(BgL_objz00_40);
																																																																																																										BgL_arg1522z00_1919
																																																																																																											=
																																																																																																											(BGL_LONGLONG_T)
																																																																																																											(BgL_nz00_3119);
																																																																																																									}
																																																																																																									{
																																																																																																										obj_t
																																																																																																											BgL_objz00_4880;
																																																																																																										BgL_objz00_4880
																																																																																																											=
																																																																																																											make_bllong
																																																																																																											(BgL_arg1522z00_1919);
																																																																																																										BgL_objz00_40
																																																																																																											=
																																																																																																											BgL_objz00_4880;
																																																																																																										goto
																																																																																																											bgl_display_obj;
																																																																																																									}
																																																																																																								}
																																																																																																							else
																																																																																																								{	/* Ieee/output.scm 761 */
																																																																																																									if (BGL_INT64P(BgL_objz00_40))
																																																																																																										{	/* Ieee/output.scm 761 */
																																																																																																											BGL_LONGLONG_T
																																																																																																												BgL_arg1524z00_1921;
																																																																																																											{	/* Ieee/output.scm 761 */
																																																																																																												int64_t
																																																																																																													BgL_nz00_3120;
																																																																																																												BgL_nz00_3120
																																																																																																													=
																																																																																																													BGL_BINT64_TO_INT64
																																																																																																													(BgL_objz00_40);
																																																																																																												BgL_arg1524z00_1921
																																																																																																													=
																																																																																																													(BGL_LONGLONG_T)
																																																																																																													(BgL_nz00_3120);
																																																																																																											}
																																																																																																											{
																																																																																																												obj_t
																																																																																																													BgL_objz00_4886;
																																																																																																												BgL_objz00_4886
																																																																																																													=
																																																																																																													make_bllong
																																																																																																													(BgL_arg1524z00_1921);
																																																																																																												BgL_objz00_40
																																																																																																													=
																																																																																																													BgL_objz00_4886;
																																																																																																												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_1923;
																																																																																																														{	/* Ieee/output.scm 761 */
																																																																																																															uint64_t
																																																																																																																BgL_arg1531z00_1926;
																																																																																																															BgL_arg1531z00_1926
																																																																																																																=
																																																																																																																(uint64_t)
																																																																																																																(10L);
																																																																																																															{	/* Ieee/output.scm 761 */
																																																																																																																uint64_t
																																																																																																																	BgL_za71za7_3121;
																																																																																																																BgL_za71za7_3121
																																																																																																																	=
																																																																																																																	BGL_BINT64_TO_INT64
																																																																																																																	(BgL_objz00_40);
																																																																																																																BgL_vz00_1923
																																																																																																																	=
																																																																																																																	(BgL_za71za7_3121
																																																																																																																	/
																																																																																																																	BgL_arg1531z00_1926);
																																																																																																															}
																																																																																																														}
																																																																																																														if ((BgL_vz00_1923 > (uint64_t) (0)))
																																																																																																															{	/* Ieee/output.scm 761 */
																																																																																																																BGL_LONGLONG_T
																																																																																																																	BgL_arg1528z00_1925;
																																																																																																																BgL_arg1528z00_1925
																																																																																																																	=
																																																																																																																	(BGL_LONGLONG_T)
																																																																																																																	(BgL_vz00_1923);
																																																																																																																bgl_display_obj
																																																																																																																	(make_bllong
																																																																																																																	(BgL_arg1528z00_1925),
																																																																																																																	BgL_portz00_41);
																																																																																																															}
																																																																																																														else
																																																																																																															{	/* Ieee/output.scm 761 */
																																																																																																																BFALSE;
																																																																																																															}
																																																																																																													}
																																																																																																													{	/* Ieee/output.scm 761 */
																																																																																																														long
																																																																																																															BgL_arg1532z00_1927;
																																																																																																														{	/* Ieee/output.scm 761 */
																																																																																																															uint64_t
																																																																																																																BgL_arg1534z00_1928;
																																																																																																															{	/* Ieee/output.scm 761 */
																																																																																																																uint64_t
																																																																																																																	BgL_arg1535z00_1929;
																																																																																																																BgL_arg1535z00_1929
																																																																																																																	=
																																																																																																																	(uint64_t)
																																																																																																																	(10L);
																																																																																																																{	/* Ieee/output.scm 761 */
																																																																																																																	uint64_t
																																																																																																																		BgL_n1z00_3126;
																																																																																																																	BgL_n1z00_3126
																																																																																																																		=
																																																																																																																		BGL_BINT64_TO_INT64
																																																																																																																		(BgL_objz00_40);
																																																																																																																	{	/* Ieee/output.scm 761 */
																																																																																																																		int64_t
																																																																																																																			BgL_tmpz00_4900;
																																																																																																																		BgL_tmpz00_4900
																																																																																																																			=
																																																																																																																			(int64_t)
																																																																																																																			(BgL_arg1535z00_1929);
																																																																																																																		BgL_arg1534z00_1928
																																																																																																																			=
																																																																																																																			(BgL_n1z00_3126
																																																																																																																			%
																																																																																																																			BgL_tmpz00_4900);
																																																																																																															}}}
																																																																																																															{	/* Ieee/output.scm 761 */
																																																																																																																long
																																																																																																																	BgL_arg1988z00_3129;
																																																																																																																BgL_arg1988z00_3129
																																																																																																																	=
																																																																																																																	(long)
																																																																																																																	(BgL_arg1534z00_1928);
																																																																																																																BgL_arg1532z00_1927
																																																																																																																	=
																																																																																																																	(long)
																																																																																																																	(BgL_arg1988z00_3129);
																																																																																																														}}
																																																																																																														{
																																																																																																															obj_t
																																																																																																																BgL_objz00_4905;
																																																																																																															BgL_objz00_4905
																																																																																																																=
																																																																																																																BINT
																																																																																																																(BgL_arg1532z00_1927);
																																																																																																															BgL_objz00_40
																																																																																																																=
																																																																																																																BgL_objz00_4905;
																																																																																																															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_3879,
		obj_t BgL_objz00_3880, obj_t BgL_portz00_3881)
	{
		{	/* Ieee/output.scm 760 */
			return bgl_display_obj(BgL_objz00_3880, BgL_portz00_3881);
		}

	}



/* 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_3134;

							BgL_strz00_3134 = string_for_read(BgL_objz00_42);
							{	/* Ieee/output.scm 855 */
								obj_t BgL_escz00_3135;

								{	/* Ieee/output.scm 856 */
									obj_t BgL_tmpz00_3138;

									{	/* Ieee/output.scm 856 */
										int BgL_tmpz00_4917;

										BgL_tmpz00_4917 = (int) (1L);
										BgL_tmpz00_3138 = BGL_MVALUES_VAL(BgL_tmpz00_4917);
									}
									{	/* Ieee/output.scm 856 */
										int BgL_tmpz00_4920;

										BgL_tmpz00_4920 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_4920, BUNSPEC);
									}
									BgL_escz00_3135 = BgL_tmpz00_3138;
								}
								return
									bgl_write_string(BgL_strz00_3134,
									CBOOL(BgL_escz00_3135), 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_string2302z00zz__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_string2303z00zz__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_string2304z00zz__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_string2305z00zz__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_3150;

																									BgL_arg1651z00_3150 =
																										bgl_real_to_string
																										(REAL_TO_DOUBLE
																										(BgL_objz00_42));
																									return
																										bgl_display_string
																										(BgL_arg1651z00_3150,
																										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_3153;
																												BgL_arg1649z00_3153 =
																													KEYWORD_TO_STRING
																													(BgL_objz00_42);
																												return
																													bgl_display_string
																													(BgL_arg1649z00_3153,
																													BgL_portz00_43);
																											}
																										}
																									else
																										{	/* Ieee/output.scm 767 */
																											if (BGl_classzf3zf3zz__objectz00(BgL_objz00_42))
																												{	/* Ieee/output.scm 767 */
																													bgl_display_string
																														(BGl_string2306z00zz__r4_output_6_10_3z00,
																														BgL_portz00_43);
																													{	/* Ieee/output.scm 936 */
																														obj_t
																															BgL_arg1663z00_3157;
																														BgL_arg1663z00_3157
																															=
																															BGl_classzd2namezd2zz__objectz00
																															(BgL_objz00_42);
																														{	/* Ieee/output.scm 773 */
																															obj_t
																																BgL_arg1607z00_3162;
																															BgL_arg1607z00_3162
																																=
																																SYMBOL_TO_STRING
																																(BgL_arg1663z00_3157);
																															bgl_display_string
																																(BgL_arg1607z00_3162,
																																BgL_portz00_43);
																														}
																													}
																													return
																														bgl_display_string
																														(BGl_string2307z00zz__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_1946;
																																							BgL_list1552z00_1946
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_portz00_43,
																																								BNIL);
																																							return
																																								BGl_objectzd2writezd2zz__objectz00
																																								(
																																								((BgL_objectz00_bglt) BgL_objz00_42), BgL_list1552z00_1946);
																																						}
																																					else
																																						{	/* Ieee/output.scm 767 */
																																							if (BGL_DATEP(BgL_objz00_42))
																																								{	/* Ieee/output.scm 767 */
																																									bgl_display_string
																																										(BGl_string2319z00zz__r4_output_6_10_3z00,
																																										BgL_portz00_43);
																																									{	/* Ieee/output.scm 833 */
																																										obj_t
																																											BgL_tmpz00_4995;
																																										BgL_tmpz00_4995
																																											=
																																											BGl_datezd2ze3stringz31zz__datez00
																																											(BgL_objz00_42);
																																										bgl_display_string
																																											(BgL_tmpz00_4995,
																																											BgL_portz00_43);
																																									}
																																									return
																																										bgl_display_string
																																										(BGl_string2307z00zz__r4_output_6_10_3z00,
																																										BgL_portz00_43);
																																								}
																																							else
																																								{	/* Ieee/output.scm 767 */
																																									if (BGL_MUTEXP(BgL_objz00_42))
																																										{	/* Ieee/output.scm 767 */
																																											bgl_display_string
																																												(BGl_string2308z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_43);
																																											{	/* Ieee/output.scm 918 */
																																												obj_t
																																													BgL_arg1659z00_3181;
																																												{	/* Ieee/output.scm 918 */
																																													obj_t
																																														BgL_tmpz00_5002;
																																													BgL_tmpz00_5002
																																														=
																																														(
																																														(obj_t)
																																														BgL_objz00_42);
																																													BgL_arg1659z00_3181
																																														=
																																														BGL_MUTEX_NAME
																																														(BgL_tmpz00_5002);
																																												}
																																												bgl_display_obj
																																													(BgL_arg1659z00_3181,
																																													BgL_portz00_43);
																																											}
																																											bgl_display_string
																																												(BGl_string2309z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_43);
																																											{	/* Ieee/output.scm 920 */
																																												obj_t
																																													BgL_arg1661z00_3182;
																																												BgL_arg1661z00_3182
																																													=
																																													BGL_MUTEX_BACKEND
																																													(BgL_objz00_42);
																																												bgl_display_obj
																																													(BgL_arg1661z00_3182,
																																													BgL_portz00_43);
																																											}
																																											return
																																												bgl_display_string
																																												(BGl_string2307z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_43);
																																										}
																																									else
																																										{	/* Ieee/output.scm 767 */
																																											if (BGL_CONDVARP(BgL_objz00_42))
																																												{	/* Ieee/output.scm 767 */
																																													bgl_display_string
																																														(BGl_string2310z00zz__r4_output_6_10_3z00,
																																														BgL_portz00_43);
																																													{	/* Ieee/output.scm 928 */
																																														obj_t
																																															BgL_arg1662z00_3190;
																																														{	/* Ieee/output.scm 928 */
																																															obj_t
																																																BgL_tmpz00_5013;
																																															BgL_tmpz00_5013
																																																=
																																																(
																																																(obj_t)
																																																BgL_objz00_42);
																																															BgL_arg1662z00_3190
																																																=
																																																BGL_CONDVAR_NAME
																																																(BgL_tmpz00_5013);
																																														}
																																														bgl_display_obj
																																															(BgL_arg1662z00_3190,
																																															BgL_portz00_43);
																																													}
																																													return
																																														bgl_display_string
																																														(BGl_string2307z00zz__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_string2311z00zz__r4_output_6_10_3z00,
																																																		BgL_portz00_43);
																																																	bgl_write_obj
																																																		(CELL_REF
																																																		(BgL_objz00_42),
																																																		BgL_portz00_43);
																																																	return
																																																		bgl_display_string
																																																		(BGl_string2307z00zz__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_string2312z00zz__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_string2313z00zz__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_string2314z00zz__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_string2315z00zz__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_string2316z00zz__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_string2317z00zz__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_3214;
																																																																							BgL_dataz00_3214
																																																																								=
																																																																								bgl_weakptr_data
																																																																								(BgL_objz00_42);
																																																																							bgl_display_string
																																																																								(BGl_string2318z00zz__r4_output_6_10_3z00,
																																																																								BgL_portz00_43);
																																																																							bgl_write_obj
																																																																								(BgL_dataz00_3214,
																																																																								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 */
																																																																											return
																																																																												bgl_write_process
																																																																												(BgL_objz00_42,
																																																																												BgL_portz00_43);
																																																																										}
																																																																									else
																																																																										{	/* Ieee/output.scm 767 */
																																																																											if (SOCKETP(BgL_objz00_42))
																																																																												{	/* Ieee/output.scm 767 */
																																																																													return
																																																																														bgl_write_socket
																																																																														(BgL_objz00_42,
																																																																														BgL_portz00_43);
																																																																												}
																																																																											else
																																																																												{	/* Ieee/output.scm 767 */
																																																																													if (BGL_DATAGRAM_SOCKETP(BgL_objz00_42))
																																																																														{	/* Ieee/output.scm 767 */
																																																																															return
																																																																																bgl_write_datagram_socket
																																																																																(BgL_objz00_42,
																																																																																BgL_portz00_43);
																																																																														}
																																																																													else
																																																																														{	/* Ieee/output.scm 767 */
																																																																															if (BGL_REGEXPP(BgL_objz00_42))
																																																																																{	/* Ieee/output.scm 767 */
																																																																																	return
																																																																																		bgl_write_regexp
																																																																																		(BgL_objz00_42,
																																																																																		BgL_portz00_43);
																																																																																}
																																																																															else
																																																																																{	/* Ieee/output.scm 767 */
																																																																																	if (BGL_MMAPP(BgL_objz00_42))
																																																																																		{	/* Ieee/output.scm 767 */
																																																																																			return
																																																																																				bgl_write_mmap
																																																																																				(BgL_objz00_42,
																																																																																				BgL_portz00_43);
																																																																																		}
																																																																																	else
																																																																																		{	/* Ieee/output.scm 767 */
																																																																																			if (BGL_SEMAPHOREP(BgL_objz00_42))
																																																																																				{	/* Ieee/output.scm 767 */
																																																																																					return
																																																																																						bgl_write_semaphore
																																																																																						(BgL_objz00_42,
																																																																																						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_string2320z00zz__r4_output_6_10_3z00,
																																																																																																BgL_portz00_43);
																																																																																															{	/* Ieee/output.scm 767 */
																																																																																																long
																																																																																																	BgL_arg1581z00_1974;
																																																																																																{	/* Ieee/output.scm 767 */
																																																																																																	int8_t
																																																																																																		BgL_xz00_3218;
																																																																																																	BgL_xz00_3218
																																																																																																		=
																																																																																																		BGL_BINT8_TO_INT8
																																																																																																		(BgL_objz00_42);
																																																																																																	{	/* Ieee/output.scm 767 */
																																																																																																		long
																																																																																																			BgL_arg1994z00_3219;
																																																																																																		BgL_arg1994z00_3219
																																																																																																			=
																																																																																																			(long)
																																																																																																			(BgL_xz00_3218);
																																																																																																		BgL_arg1581z00_1974
																																																																																																			=
																																																																																																			(long)
																																																																																																			(BgL_arg1994z00_3219);
																																																																																																}}
																																																																																																BGL_TAIL
																																																																																																	return
																																																																																																	bgl_display_obj
																																																																																																	(BINT
																																																																																																	(BgL_arg1581z00_1974),
																																																																																																	BgL_portz00_43);
																																																																																															}
																																																																																														}
																																																																																													else
																																																																																														{	/* Ieee/output.scm 767 */
																																																																																															if (BGL_UINT8P(BgL_objz00_42))
																																																																																																{	/* Ieee/output.scm 767 */
																																																																																																	bgl_display_string
																																																																																																		(BGl_string2321z00zz__r4_output_6_10_3z00,
																																																																																																		BgL_portz00_43);
																																																																																																	{	/* Ieee/output.scm 767 */
																																																																																																		long
																																																																																																			BgL_arg1583z00_1976;
																																																																																																		{	/* Ieee/output.scm 767 */
																																																																																																			uint8_t
																																																																																																				BgL_xz00_3223;
																																																																																																			BgL_xz00_3223
																																																																																																				=
																																																																																																				BGL_BUINT8_TO_UINT8
																																																																																																				(BgL_objz00_42);
																																																																																																			{	/* Ieee/output.scm 767 */
																																																																																																				long
																																																																																																					BgL_arg1993z00_3224;
																																																																																																				BgL_arg1993z00_3224
																																																																																																					=
																																																																																																					(long)
																																																																																																					(BgL_xz00_3223);
																																																																																																				BgL_arg1583z00_1976
																																																																																																					=
																																																																																																					(long)
																																																																																																					(BgL_arg1993z00_3224);
																																																																																																		}}
																																																																																																		BGL_TAIL
																																																																																																			return
																																																																																																			bgl_display_obj
																																																																																																			(BINT
																																																																																																			(BgL_arg1583z00_1976),
																																																																																																			BgL_portz00_43);
																																																																																																	}
																																																																																																}
																																																																																															else
																																																																																																{	/* Ieee/output.scm 767 */
																																																																																																	if (BGL_INT16P(BgL_objz00_42))
																																																																																																		{	/* Ieee/output.scm 767 */
																																																																																																			bgl_display_string
																																																																																																				(BGl_string2322z00zz__r4_output_6_10_3z00,
																																																																																																				BgL_portz00_43);
																																																																																																			{	/* Ieee/output.scm 767 */
																																																																																																				long
																																																																																																					BgL_arg1586z00_1978;
																																																																																																				{	/* Ieee/output.scm 767 */
																																																																																																					int16_t
																																																																																																						BgL_xz00_3228;
																																																																																																					BgL_xz00_3228
																																																																																																						=
																																																																																																						BGL_BINT16_TO_INT16
																																																																																																						(BgL_objz00_42);
																																																																																																					{	/* Ieee/output.scm 767 */
																																																																																																						long
																																																																																																							BgL_arg1992z00_3229;
																																																																																																						BgL_arg1992z00_3229
																																																																																																							=
																																																																																																							(long)
																																																																																																							(BgL_xz00_3228);
																																																																																																						BgL_arg1586z00_1978
																																																																																																							=
																																																																																																							(long)
																																																																																																							(BgL_arg1992z00_3229);
																																																																																																				}}
																																																																																																				BGL_TAIL
																																																																																																					return
																																																																																																					bgl_display_obj
																																																																																																					(BINT
																																																																																																					(BgL_arg1586z00_1978),
																																																																																																					BgL_portz00_43);
																																																																																																			}
																																																																																																		}
																																																																																																	else
																																																																																																		{	/* Ieee/output.scm 767 */
																																																																																																			if (BGL_UINT16P(BgL_objz00_42))
																																																																																																				{	/* Ieee/output.scm 767 */
																																																																																																					bgl_display_string
																																																																																																						(BGl_string2323z00zz__r4_output_6_10_3z00,
																																																																																																						BgL_portz00_43);
																																																																																																					{	/* Ieee/output.scm 767 */
																																																																																																						long
																																																																																																							BgL_arg1589z00_1980;
																																																																																																						{	/* Ieee/output.scm 767 */
																																																																																																							uint16_t
																																																																																																								BgL_xz00_3233;
																																																																																																							BgL_xz00_3233
																																																																																																								=
																																																																																																								BGL_BUINT16_TO_UINT16
																																																																																																								(BgL_objz00_42);
																																																																																																							{	/* Ieee/output.scm 767 */
																																																																																																								long
																																																																																																									BgL_arg1991z00_3234;
																																																																																																								BgL_arg1991z00_3234
																																																																																																									=
																																																																																																									(long)
																																																																																																									(BgL_xz00_3233);
																																																																																																								BgL_arg1589z00_1980
																																																																																																									=
																																																																																																									(long)
																																																																																																									(BgL_arg1991z00_3234);
																																																																																																						}}
																																																																																																						BGL_TAIL
																																																																																																							return
																																																																																																							bgl_display_obj
																																																																																																							(BINT
																																																																																																							(BgL_arg1589z00_1980),
																																																																																																							BgL_portz00_43);
																																																																																																					}
																																																																																																				}
																																																																																																			else
																																																																																																				{	/* Ieee/output.scm 767 */
																																																																																																					if (BGL_INT32P(BgL_objz00_42))
																																																																																																						{	/* Ieee/output.scm 767 */
																																																																																																							bgl_display_string
																																																																																																								(BGl_string2324z00zz__r4_output_6_10_3z00,
																																																																																																								BgL_portz00_43);
																																																																																																							{	/* Ieee/output.scm 767 */
																																																																																																								long
																																																																																																									BgL_arg1591z00_1982;
																																																																																																								{	/* Ieee/output.scm 767 */
																																																																																																									int32_t
																																																																																																										BgL_nz00_3238;
																																																																																																									BgL_nz00_3238
																																																																																																										=
																																																																																																										BGL_BINT32_TO_INT32
																																																																																																										(BgL_objz00_42);
																																																																																																									BgL_arg1591z00_1982
																																																																																																										=
																																																																																																										(long)
																																																																																																										(BgL_nz00_3238);
																																																																																																								}
																																																																																																								BGL_TAIL
																																																																																																									return
																																																																																																									bgl_display_obj
																																																																																																									(make_belong
																																																																																																									(BgL_arg1591z00_1982),
																																																																																																									BgL_portz00_43);
																																																																																																							}
																																																																																																						}
																																																																																																					else
																																																																																																						{	/* Ieee/output.scm 767 */
																																																																																																							if (BGL_UINT32P(BgL_objz00_42))
																																																																																																								{	/* Ieee/output.scm 767 */
																																																																																																									bgl_display_string
																																																																																																										(BGl_string2325z00zz__r4_output_6_10_3z00,
																																																																																																										BgL_portz00_43);
																																																																																																									{	/* Ieee/output.scm 767 */
																																																																																																										BGL_LONGLONG_T
																																																																																																											BgL_arg1595z00_1984;
																																																																																																										{	/* Ieee/output.scm 767 */
																																																																																																											uint32_t
																																																																																																												BgL_nz00_3241;
																																																																																																											BgL_nz00_3241
																																																																																																												=
																																																																																																												BGL_BUINT32_TO_UINT32
																																																																																																												(BgL_objz00_42);
																																																																																																											BgL_arg1595z00_1984
																																																																																																												=
																																																																																																												(BGL_LONGLONG_T)
																																																																																																												(BgL_nz00_3241);
																																																																																																										}
																																																																																																										BGL_TAIL
																																																																																																											return
																																																																																																											bgl_display_obj
																																																																																																											(make_bllong
																																																																																																											(BgL_arg1595z00_1984),
																																																																																																											BgL_portz00_43);
																																																																																																									}
																																																																																																								}
																																																																																																							else
																																																																																																								{	/* Ieee/output.scm 767 */
																																																																																																									if (BGL_INT64P(BgL_objz00_42))
																																																																																																										{	/* Ieee/output.scm 767 */
																																																																																																											bgl_display_string
																																																																																																												(BGl_string2326z00zz__r4_output_6_10_3z00,
																																																																																																												BgL_portz00_43);
																																																																																																											{	/* Ieee/output.scm 767 */
																																																																																																												BGL_LONGLONG_T
																																																																																																													BgL_arg1597z00_1986;
																																																																																																												{	/* Ieee/output.scm 767 */
																																																																																																													int64_t
																																																																																																														BgL_nz00_3244;
																																																																																																													BgL_nz00_3244
																																																																																																														=
																																																																																																														BGL_BINT64_TO_INT64
																																																																																																														(BgL_objz00_42);
																																																																																																													BgL_arg1597z00_1986
																																																																																																														=
																																																																																																														(BGL_LONGLONG_T)
																																																																																																														(BgL_nz00_3244);
																																																																																																												}
																																																																																																												BGL_TAIL
																																																																																																													return
																																																																																																													bgl_display_obj
																																																																																																													(make_bllong
																																																																																																													(BgL_arg1597z00_1986),
																																																																																																													BgL_portz00_43);
																																																																																																											}
																																																																																																										}
																																																																																																									else
																																																																																																										{	/* Ieee/output.scm 767 */
																																																																																																											if (BGL_UINT64P(BgL_objz00_42))
																																																																																																												{	/* Ieee/output.scm 767 */
																																																																																																													bgl_display_string
																																																																																																														(BGl_string2327z00zz__r4_output_6_10_3z00,
																																																																																																														BgL_portz00_43);
																																																																																																													{	/* Ieee/output.scm 767 */
																																																																																																														uint64_t
																																																																																																															BgL_vz00_1988;
																																																																																																														{	/* Ieee/output.scm 767 */
																																																																																																															uint64_t
																																																																																																																BgL_arg1602z00_1991;
																																																																																																															BgL_arg1602z00_1991
																																																																																																																=
																																																																																																																(uint64_t)
																																																																																																																(10L);
																																																																																																															{	/* Ieee/output.scm 767 */
																																																																																																																uint64_t
																																																																																																																	BgL_za71za7_3247;
																																																																																																																BgL_za71za7_3247
																																																																																																																	=
																																																																																																																	BGL_BINT64_TO_INT64
																																																																																																																	(BgL_objz00_42);
																																																																																																																BgL_vz00_1988
																																																																																																																	=
																																																																																																																	(BgL_za71za7_3247
																																																																																																																	/
																																																																																																																	BgL_arg1602z00_1991);
																																																																																																															}
																																																																																																														}
																																																																																																														if ((BgL_vz00_1988 > (uint64_t) (0)))
																																																																																																															{	/* Ieee/output.scm 767 */
																																																																																																																BGL_LONGLONG_T
																																																																																																																	BgL_arg1600z00_1990;
																																																																																																																BgL_arg1600z00_1990
																																																																																																																	=
																																																																																																																	(BGL_LONGLONG_T)
																																																																																																																	(BgL_vz00_1988);
																																																																																																																bgl_display_obj
																																																																																																																	(make_bllong
																																																																																																																	(BgL_arg1600z00_1990),
																																																																																																																	BgL_portz00_43);
																																																																																																															}
																																																																																																														else
																																																																																																															{	/* Ieee/output.scm 767 */
																																																																																																																BFALSE;
																																																																																																															}
																																																																																																													}
																																																																																																													{	/* Ieee/output.scm 767 */
																																																																																																														long
																																																																																																															BgL_arg1603z00_1992;
																																																																																																														{	/* Ieee/output.scm 767 */
																																																																																																															uint64_t
																																																																																																																BgL_arg1604z00_1993;
																																																																																																															{	/* Ieee/output.scm 767 */
																																																																																																																uint64_t
																																																																																																																	BgL_arg1605z00_1994;
																																																																																																																BgL_arg1605z00_1994
																																																																																																																	=
																																																																																																																	(uint64_t)
																																																																																																																	(10L);
																																																																																																																{	/* Ieee/output.scm 767 */
																																																																																																																	uint64_t
																																																																																																																		BgL_n1z00_3252;
																																																																																																																	BgL_n1z00_3252
																																																																																																																		=
																																																																																																																		BGL_BINT64_TO_INT64
																																																																																																																		(BgL_objz00_42);
																																																																																																																	{	/* Ieee/output.scm 767 */
																																																																																																																		int64_t
																																																																																																																			BgL_tmpz00_5168;
																																																																																																																		BgL_tmpz00_5168
																																																																																																																			=
																																																																																																																			(int64_t)
																																																																																																																			(BgL_arg1605z00_1994);
																																																																																																																		BgL_arg1604z00_1993
																																																																																																																			=
																																																																																																																			(BgL_n1z00_3252
																																																																																																																			%
																																																																																																																			BgL_tmpz00_5168);
																																																																																																															}}}
																																																																																																															{	/* Ieee/output.scm 767 */
																																																																																																																long
																																																																																																																	BgL_arg1988z00_3255;
																																																																																																																BgL_arg1988z00_3255
																																																																																																																	=
																																																																																																																	(long)
																																																																																																																	(BgL_arg1604z00_1993);
																																																																																																																BgL_arg1603z00_1992
																																																																																																																	=
																																																																																																																	(long)
																																																																																																																	(BgL_arg1988z00_3255);
																																																																																																														}}
																																																																																																														BGL_TAIL
																																																																																																															return
																																																																																																															bgl_display_obj
																																																																																																															(BINT
																																																																																																															(BgL_arg1603z00_1992),
																																																																																																															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_3882,
		obj_t BgL_objz00_3883, obj_t BgL_portz00_3884)
	{
		{	/* Ieee/output.scm 766 */
			return bgl_write_obj(BgL_objz00_3883, BgL_portz00_3884);
		}

	}



/* 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_3257;

				BgL_arg1607z00_3257 = SYMBOL_TO_STRING(BgL_objz00_44);
				return bgl_display_string(BgL_arg1607z00_3257, BgL_portz00_45);
			}
		}

	}



/* &display-symbol */
	obj_t BGl_z62displayzd2symbolzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3885,
		obj_t BgL_objz00_3886, obj_t BgL_portz00_3887)
	{
		{	/* Ieee/output.scm 772 */
			{	/* Ieee/output.scm 773 */
				obj_t BgL_auxz00_5189;
				obj_t BgL_auxz00_5182;

				if (OUTPUT_PORTP(BgL_portz00_3887))
					{	/* Ieee/output.scm 773 */
						BgL_auxz00_5189 = BgL_portz00_3887;
					}
				else
					{
						obj_t BgL_auxz00_5192;

						BgL_auxz00_5192 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(27404L),
							BGl_string2328z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3887);
						FAILURE(BgL_auxz00_5192, BFALSE, BFALSE);
					}
				if (SYMBOLP(BgL_objz00_3886))
					{	/* Ieee/output.scm 773 */
						BgL_auxz00_5182 = BgL_objz00_3886;
					}
				else
					{
						obj_t BgL_auxz00_5185;

						BgL_auxz00_5185 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(27404L),
							BGl_string2328z00zz__r4_output_6_10_3z00,
							BGl_string2329z00zz__r4_output_6_10_3z00, BgL_objz00_3886);
						FAILURE(BgL_auxz00_5185, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2symbolzd2zz__r4_output_6_10_3z00(BgL_auxz00_5182,
					BgL_auxz00_5189);
			}
		}

	}



/* 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_1998;

				BgL_strz00_1998 = SYMBOL_TO_STRING(BgL_objz00_46);
				{	/* Ieee/output.scm 785 */
					long BgL_lenz00_1999;

					BgL_lenz00_1999 = STRING_LENGTH(BgL_strz00_1998);
					{	/* Ieee/output.scm 786 */
						long BgL_lenzd21zd2_2000;

						BgL_lenzd21zd2_2000 = (BgL_lenz00_1999 - 1L);
						{	/* Ieee/output.scm 787 */

							{
								long BgL_iz00_2002;
								bool_t BgL_az00_2003;

								BgL_iz00_2002 = 0L;
								BgL_az00_2003 = ((bool_t) 0);
							BgL_zc3z04anonymousza31608ze3z87_2004:
								if ((BgL_iz00_2002 == BgL_lenz00_1999))
									{	/* Ieee/output.scm 790 */
										if (BgL_az00_2003)
											{	/* Ieee/output.scm 792 */
												return
													bgl_display_string(BgL_strz00_1998, BgL_portz00_47);
											}
										else
											{	/* Ieee/output.scm 793 */
												bool_t BgL_test2661z00_5204;

												if (
													(BgL_objz00_46 ==
														BGl_symbol2330z00zz__r4_output_6_10_3z00))
													{	/* Ieee/output.scm 793 */
														BgL_test2661z00_5204 = ((bool_t) 1);
													}
												else
													{	/* Ieee/output.scm 793 */
														BgL_test2661z00_5204 =
															(BgL_objz00_46 ==
															BGl_symbol2332z00zz__r4_output_6_10_3z00);
													}
												if (BgL_test2661z00_5204)
													{	/* Ieee/output.scm 793 */
														return
															bgl_display_string(BgL_strz00_1998,
															BgL_portz00_47);
													}
												else
													{	/* Ieee/output.scm 793 */
														bgl_display_string
															(BGl_string2334z00zz__r4_output_6_10_3z00,
															BgL_portz00_47);
														{	/* Ieee/output.scm 833 */
															obj_t BgL_tmpz00_5210;

															BgL_tmpz00_5210 =
																symbol_for_read(BgL_strz00_1998);
															bgl_display_string(BgL_tmpz00_5210,
																BgL_portz00_47);
														}
														return
															bgl_display_string
															(BGl_string2334z00zz__r4_output_6_10_3z00,
															BgL_portz00_47);
													}
											}
									}
								else
									{	/* Ieee/output.scm 795 */
										unsigned char BgL_cz00_2007;

										BgL_cz00_2007 = STRING_REF(BgL_strz00_1998, BgL_iz00_2002);
										{

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

													bgl_display_string
														(BGl_string2334z00zz__r4_output_6_10_3z00,
														BgL_portz00_47);
													{	/* Ieee/output.scm 833 */
														obj_t BgL_tmpz00_5216;

														BgL_tmpz00_5216 = symbol_for_read(BgL_strz00_1998);
														bgl_display_string(BgL_tmpz00_5216, BgL_portz00_47);
													}
													return
														bgl_display_string
														(BGl_string2334z00zz__r4_output_6_10_3z00,
														BgL_portz00_47);
													break;
												case ((unsigned char) ':'):

													if ((BgL_iz00_2002 == 0L))
														{	/* Ieee/output.scm 803 */
															bool_t BgL_test2664z00_5222;

															if ((BgL_lenzd21zd2_2000 > 2L))
																{	/* Ieee/output.scm 803 */
																	BgL_test2664z00_5222 =
																		(STRING_REF(BgL_strz00_1998,
																			(BgL_iz00_2002 + 1L)) ==
																		((unsigned char) ':'));
																}
															else
																{	/* Ieee/output.scm 803 */
																	BgL_test2664z00_5222 = ((bool_t) 0);
																}
															if (BgL_test2664z00_5222)
																{
																	long BgL_iz00_5228;

																	BgL_iz00_5228 = (BgL_iz00_2002 + 2L);
																	BgL_iz00_2002 = BgL_iz00_5228;
																	goto BgL_zc3z04anonymousza31608ze3z87_2004;
																}
															else
																{	/* Ieee/output.scm 803 */
																	bgl_display_string
																		(BGl_string2334z00zz__r4_output_6_10_3z00,
																		BgL_portz00_47);
																	{	/* Ieee/output.scm 833 */
																		obj_t BgL_tmpz00_5231;

																		BgL_tmpz00_5231 =
																			symbol_for_read(BgL_strz00_1998);
																		bgl_display_string(BgL_tmpz00_5231,
																			BgL_portz00_47);
																	}
																	return
																		bgl_display_string
																		(BGl_string2334z00zz__r4_output_6_10_3z00,
																		BgL_portz00_47);
																}
														}
													else
														{	/* Ieee/output.scm 802 */
															if ((BgL_iz00_2002 == BgL_lenzd21zd2_2000))
																{	/* Ieee/output.scm 807 */
																	bgl_display_string
																		(BGl_string2334z00zz__r4_output_6_10_3z00,
																		BgL_portz00_47);
																	{	/* Ieee/output.scm 833 */
																		obj_t BgL_tmpz00_5238;

																		BgL_tmpz00_5238 =
																			symbol_for_read(BgL_strz00_1998);
																		bgl_display_string(BgL_tmpz00_5238,
																			BgL_portz00_47);
																	}
																	return
																		bgl_display_string
																		(BGl_string2334z00zz__r4_output_6_10_3z00,
																		BgL_portz00_47);
																}
															else
																{
																	long BgL_iz00_5242;

																	BgL_iz00_5242 = (BgL_iz00_2002 + 1L);
																	BgL_iz00_2002 = BgL_iz00_5242;
																	goto BgL_zc3z04anonymousza31608ze3z87_2004;
																}
														}
													break;
												case ((unsigned char) '.'):

													if ((BgL_lenz00_1999 == 1L))
														{	/* Ieee/output.scm 812 */
															bgl_display_string
																(BGl_string2334z00zz__r4_output_6_10_3z00,
																BgL_portz00_47);
															{	/* Ieee/output.scm 833 */
																obj_t BgL_tmpz00_5247;

																BgL_tmpz00_5247 =
																	symbol_for_read(BgL_strz00_1998);
																bgl_display_string(BgL_tmpz00_5247,
																	BgL_portz00_47);
															}
															return
																bgl_display_string
																(BGl_string2334z00zz__r4_output_6_10_3z00,
																BgL_portz00_47);
														}
													else
														{
															long BgL_iz00_5251;

															BgL_iz00_5251 = (BgL_iz00_2002 + 1L);
															BgL_iz00_2002 = BgL_iz00_5251;
															goto BgL_zc3z04anonymousza31608ze3z87_2004;
														}
													break;
												default:
													{	/* Ieee/output.scm 816 */
														bool_t BgL_test2668z00_5253;

														if ((BgL_cz00_2007 <= ((unsigned char) ' ')))
															{	/* Ieee/output.scm 816 */
																BgL_test2668z00_5253 = ((bool_t) 1);
															}
														else
															{	/* Ieee/output.scm 816 */
																BgL_test2668z00_5253 =
																	(BgL_cz00_2007 >= ((unsigned char) ''));
															}
														if (BgL_test2668z00_5253)
															{	/* Ieee/output.scm 816 */
																bgl_display_string
																	(BGl_string2334z00zz__r4_output_6_10_3z00,
																	BgL_portz00_47);
																{	/* Ieee/output.scm 833 */
																	obj_t BgL_tmpz00_5258;

																	BgL_tmpz00_5258 =
																		symbol_for_read(BgL_strz00_1998);
																	bgl_display_string(BgL_tmpz00_5258,
																		BgL_portz00_47);
																}
																return
																	bgl_display_string
																	(BGl_string2334z00zz__r4_output_6_10_3z00,
																	BgL_portz00_47);
															}
														else
															{	/* Ieee/output.scm 818 */
																long BgL_arg1626z00_2026;
																bool_t BgL_arg1627z00_2027;

																BgL_arg1626z00_2026 = (BgL_iz00_2002 + 1L);
																if (BgL_az00_2003)
																	{	/* Ieee/output.scm 819 */
																		BgL_arg1627z00_2027 = BgL_az00_2003;
																	}
																else
																	{	/* Ieee/output.scm 820 */
																		bool_t BgL__ortest_1053z00_2029;

																		if (isdigit(BgL_cz00_2007))
																			{	/* Ieee/output.scm 820 */
																				BgL__ortest_1053z00_2029 = ((bool_t) 0);
																			}
																		else
																			{	/* Ieee/output.scm 820 */
																				if (
																					(BgL_cz00_2007 ==
																						((unsigned char) 'e')))
																					{	/* Ieee/output.scm 821 */
																						BgL__ortest_1053z00_2029 =
																							((bool_t) 0);
																					}
																				else
																					{	/* Ieee/output.scm 821 */
																						if (
																							(BgL_cz00_2007 ==
																								((unsigned char) 'E')))
																							{	/* Ieee/output.scm 822 */
																								BgL__ortest_1053z00_2029 =
																									((bool_t) 0);
																							}
																						else
																							{	/* Ieee/output.scm 822 */
																								if (
																									(BgL_cz00_2007 ==
																										((unsigned char) '-')))
																									{	/* Ieee/output.scm 823 */
																										BgL__ortest_1053z00_2029 =
																											((bool_t) 0);
																									}
																								else
																									{	/* Ieee/output.scm 823 */
																										if (
																											(BgL_cz00_2007 ==
																												((unsigned char) '+')))
																											{	/* Ieee/output.scm 824 */
																												BgL__ortest_1053z00_2029
																													= ((bool_t) 0);
																											}
																										else
																											{	/* Ieee/output.scm 824 */
																												BgL__ortest_1053z00_2029
																													= ((bool_t) 1);
																											}
																									}
																							}
																					}
																			}
																		if (BgL__ortest_1053z00_2029)
																			{	/* Ieee/output.scm 820 */
																				BgL_arg1627z00_2027 =
																					BgL__ortest_1053z00_2029;
																			}
																		else
																			{	/* Ieee/output.scm 820 */
																				if ((BgL_iz00_2002 == 0L))
																					{	/* Ieee/output.scm 826 */
																						bool_t BgL__ortest_1059z00_2031;

																						BgL__ortest_1059z00_2031 =
																							(BgL_cz00_2007 ==
																							((unsigned char) 'e'));
																						if (BgL__ortest_1059z00_2031)
																							{	/* Ieee/output.scm 826 */
																								BgL_arg1627z00_2027 =
																									BgL__ortest_1059z00_2031;
																							}
																						else
																							{	/* Ieee/output.scm 826 */
																								BgL_arg1627z00_2027 =
																									(BgL_cz00_2007 ==
																									((unsigned char) 'E'));
																					}}
																				else
																					{	/* Ieee/output.scm 825 */
																						BgL_arg1627z00_2027 = ((bool_t) 0);
																					}
																			}
																	}
																{
																	bool_t BgL_az00_5281;
																	long BgL_iz00_5280;

																	BgL_iz00_5280 = BgL_arg1626z00_2026;
																	BgL_az00_5281 = BgL_arg1627z00_2027;
																	BgL_az00_2003 = BgL_az00_5281;
																	BgL_iz00_2002 = BgL_iz00_5280;
																	goto BgL_zc3z04anonymousza31608ze3z87_2004;
																}
															}
													}
												}
										}
									}
							}
						}
					}
				}
			}
		}

	}



/* &write-symbol */
	obj_t BGl_z62writezd2symbolzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3888,
		obj_t BgL_objz00_3889, obj_t BgL_portz00_3890)
	{
		{	/* Ieee/output.scm 778 */
			{	/* Ieee/output.scm 785 */
				obj_t BgL_auxz00_5290;
				obj_t BgL_auxz00_5283;

				if (OUTPUT_PORTP(BgL_portz00_3890))
					{	/* Ieee/output.scm 785 */
						BgL_auxz00_5290 = BgL_portz00_3890;
					}
				else
					{
						obj_t BgL_auxz00_5293;

						BgL_auxz00_5293 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(27836L),
							BGl_string2335z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3890);
						FAILURE(BgL_auxz00_5293, BFALSE, BFALSE);
					}
				if (SYMBOLP(BgL_objz00_3889))
					{	/* Ieee/output.scm 785 */
						BgL_auxz00_5283 = BgL_objz00_3889;
					}
				else
					{
						obj_t BgL_auxz00_5286;

						BgL_auxz00_5286 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(27836L),
							BGl_string2335z00zz__r4_output_6_10_3z00,
							BGl_string2329z00zz__r4_output_6_10_3z00, BgL_objz00_3889);
						FAILURE(BgL_auxz00_5286, BFALSE, BFALSE);
					}
				return
					BGl_writezd2symbolzd2zz__r4_output_6_10_3z00(BgL_auxz00_5283,
					BgL_auxz00_5290);
			}
		}

	}



/* 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_3891,
		obj_t BgL_objz00_3892, obj_t BgL_portz00_3893)
	{
		{	/* Ieee/output.scm 832 */
			{	/* Ieee/output.scm 833 */
				obj_t BgL_auxz00_5306;
				obj_t BgL_auxz00_5299;

				if (OUTPUT_PORTP(BgL_portz00_3893))
					{	/* Ieee/output.scm 833 */
						BgL_auxz00_5306 = BgL_portz00_3893;
					}
				else
					{
						obj_t BgL_auxz00_5309;

						BgL_auxz00_5309 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(29178L),
							BGl_string2336z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3893);
						FAILURE(BgL_auxz00_5309, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_objz00_3892))
					{	/* Ieee/output.scm 833 */
						BgL_auxz00_5299 = BgL_objz00_3892;
					}
				else
					{
						obj_t BgL_auxz00_5302;

						BgL_auxz00_5302 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(29178L),
							BGl_string2336z00zz__r4_output_6_10_3z00,
							BGl_string2295z00zz__r4_output_6_10_3z00, BgL_objz00_3892);
						FAILURE(BgL_auxz00_5302, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_5299,
					BgL_auxz00_5306);
			}
		}

	}



/* 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_test2683z00_5314;

				if ((BgL_endz00_52 >= BgL_startz00_51))
					{	/* Ieee/output.scm 840 */
						bool_t BgL_test2685z00_5317;

						{	/* Ieee/output.scm 840 */
							long BgL_tmpz00_5318;

							BgL_tmpz00_5318 = (STRING_LENGTH(BgL_objz00_50) + 1L);
							BgL_test2685z00_5317 =
								BOUND_CHECK(BgL_endz00_52, BgL_tmpz00_5318);
						}
						if (BgL_test2685z00_5317)
							{	/* Ieee/output.scm 840 */
								BgL_test2683z00_5314 = (BgL_startz00_51 >= 0L);
							}
						else
							{	/* Ieee/output.scm 840 */
								BgL_test2683z00_5314 = ((bool_t) 0);
							}
					}
				else
					{	/* Ieee/output.scm 839 */
						BgL_test2683z00_5314 = ((bool_t) 0);
					}
				if (BgL_test2683z00_5314)
					{	/* 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_3991;

						{	/* Ieee/output.scm 844 */
							obj_t BgL_list1639z00_3992;

							{	/* Ieee/output.scm 844 */
								obj_t BgL_arg1640z00_3993;

								BgL_arg1640z00_3993 =
									MAKE_YOUNG_PAIR(BINT(BgL_endz00_52), BNIL);
								BgL_list1639z00_3992 =
									MAKE_YOUNG_PAIR(BINT(BgL_startz00_51), BgL_arg1640z00_3993);
							}
							BgL_arg1638z00_3991 =
								BGl_formatz00zz__r4_output_6_10_3z00
								(BGl_string2337z00zz__r4_output_6_10_3z00,
								BgL_list1639z00_3992);
						}
						return
							BGl_errorz00zz__errorz00(BGl_symbol2338z00zz__r4_output_6_10_3z00,
							BgL_arg1638z00_3991, BgL_objz00_50);
					}
			}
		}

	}



/* &display-substring */
	obj_t BGl_z62displayzd2substringzb0zz__r4_output_6_10_3z00(obj_t
		BgL_envz00_3894, obj_t BgL_objz00_3895, obj_t BgL_startz00_3896,
		obj_t BgL_endz00_3897, obj_t BgL_portz00_3898)
	{
		{	/* Ieee/output.scm 838 */
			{	/* Ieee/output.scm 839 */
				obj_t BgL_auxz00_5355;
				long BgL_auxz00_5346;
				long BgL_auxz00_5337;
				obj_t BgL_auxz00_5330;

				if (OUTPUT_PORTP(BgL_portz00_3898))
					{	/* Ieee/output.scm 839 */
						BgL_auxz00_5355 = BgL_portz00_3898;
					}
				else
					{
						obj_t BgL_auxz00_5358;

						BgL_auxz00_5358 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(29486L),
							BGl_string2340z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3898);
						FAILURE(BgL_auxz00_5358, BFALSE, BFALSE);
					}
				{	/* Ieee/output.scm 839 */
					obj_t BgL_tmpz00_5347;

					if (INTEGERP(BgL_endz00_3897))
						{	/* Ieee/output.scm 839 */
							BgL_tmpz00_5347 = BgL_endz00_3897;
						}
					else
						{
							obj_t BgL_auxz00_5350;

							BgL_auxz00_5350 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(29486L),
								BGl_string2340z00zz__r4_output_6_10_3z00,
								BGl_string2273z00zz__r4_output_6_10_3z00, BgL_endz00_3897);
							FAILURE(BgL_auxz00_5350, BFALSE, BFALSE);
						}
					BgL_auxz00_5346 = (long) CINT(BgL_tmpz00_5347);
				}
				{	/* Ieee/output.scm 839 */
					obj_t BgL_tmpz00_5338;

					if (INTEGERP(BgL_startz00_3896))
						{	/* Ieee/output.scm 839 */
							BgL_tmpz00_5338 = BgL_startz00_3896;
						}
					else
						{
							obj_t BgL_auxz00_5341;

							BgL_auxz00_5341 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(29486L),
								BGl_string2340z00zz__r4_output_6_10_3z00,
								BGl_string2273z00zz__r4_output_6_10_3z00, BgL_startz00_3896);
							FAILURE(BgL_auxz00_5341, BFALSE, BFALSE);
						}
					BgL_auxz00_5337 = (long) CINT(BgL_tmpz00_5338);
				}
				if (STRINGP(BgL_objz00_3895))
					{	/* Ieee/output.scm 839 */
						BgL_auxz00_5330 = BgL_objz00_3895;
					}
				else
					{
						obj_t BgL_auxz00_5333;

						BgL_auxz00_5333 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(29486L),
							BGl_string2340z00zz__r4_output_6_10_3z00,
							BGl_string2295z00zz__r4_output_6_10_3z00, BgL_objz00_3895);
						FAILURE(BgL_auxz00_5333, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2substringzd2zz__r4_output_6_10_3z00(BgL_auxz00_5330,
					BgL_auxz00_5337, BgL_auxz00_5346, BgL_auxz00_5355);
			}
		}

	}



/* 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_3367;

					BgL_strz00_3367 = string_for_read(BgL_objz00_54);
					{	/* Ieee/output.scm 855 */
						obj_t BgL_escz00_3368;

						{	/* Ieee/output.scm 856 */
							obj_t BgL_tmpz00_3371;

							{	/* Ieee/output.scm 856 */
								int BgL_tmpz00_5366;

								BgL_tmpz00_5366 = (int) (1L);
								BgL_tmpz00_3371 = BGL_MVALUES_VAL(BgL_tmpz00_5366);
							}
							{	/* Ieee/output.scm 856 */
								int BgL_tmpz00_5369;

								BgL_tmpz00_5369 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_5369, BUNSPEC);
							}
							BgL_escz00_3368 = BgL_tmpz00_3371;
						}
						return
							bgl_write_string(BgL_strz00_3367,
							CBOOL(BgL_escz00_3368), 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_3899,
		obj_t BgL_objz00_3900, obj_t BgL_portz00_3901)
	{
		{	/* Ieee/output.scm 850 */
			{	/* Ieee/output.scm 851 */
				obj_t BgL_auxz00_5383;
				obj_t BgL_auxz00_5376;

				if (OUTPUT_PORTP(BgL_portz00_3901))
					{	/* Ieee/output.scm 851 */
						BgL_auxz00_5383 = BgL_portz00_3901;
					}
				else
					{
						obj_t BgL_auxz00_5386;

						BgL_auxz00_5386 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(30004L),
							BGl_string2341z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3901);
						FAILURE(BgL_auxz00_5386, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_objz00_3900))
					{	/* Ieee/output.scm 851 */
						BgL_auxz00_5376 = BgL_objz00_3900;
					}
				else
					{
						obj_t BgL_auxz00_5379;

						BgL_auxz00_5379 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(30004L),
							BGl_string2341z00zz__r4_output_6_10_3z00,
							BGl_string2295z00zz__r4_output_6_10_3z00, BgL_objz00_3900);
						FAILURE(BgL_auxz00_5379, BFALSE, BFALSE);
					}
				return
					BGl_writezd2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_5376,
					BgL_auxz00_5383);
			}
		}

	}



/* 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_3902,
		obj_t BgL_objz00_3903, obj_t BgL_portz00_3904)
	{
		{	/* Ieee/output.scm 871 */
			{	/* Ieee/output.scm 872 */
				obj_t BgL_auxz00_5399;
				obj_t BgL_auxz00_5392;

				if (OUTPUT_PORTP(BgL_portz00_3904))
					{	/* Ieee/output.scm 872 */
						BgL_auxz00_5399 = BgL_portz00_3904;
					}
				else
					{
						obj_t BgL_auxz00_5402;

						BgL_auxz00_5402 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(30890L),
							BGl_string2342z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3904);
						FAILURE(BgL_auxz00_5402, BFALSE, BFALSE);
					}
				if (INTEGERP(BgL_objz00_3903))
					{	/* Ieee/output.scm 872 */
						BgL_auxz00_5392 = BgL_objz00_3903;
					}
				else
					{
						obj_t BgL_auxz00_5395;

						BgL_auxz00_5395 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(30890L),
							BGl_string2342z00zz__r4_output_6_10_3z00,
							BGl_string2273z00zz__r4_output_6_10_3z00, BgL_objz00_3903);
						FAILURE(BgL_auxz00_5395, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2fixnumzd2zz__r4_output_6_10_3z00(BgL_auxz00_5392,
					BgL_auxz00_5399);
			}
		}

	}



/* 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_3905,
		obj_t BgL_objz00_3906, obj_t BgL_portz00_3907)
	{
		{	/* Ieee/output.scm 877 */
			{	/* Ieee/output.scm 878 */
				obj_t BgL_auxz00_5417;
				long BgL_auxz00_5408;

				if (OUTPUT_PORTP(BgL_portz00_3907))
					{	/* Ieee/output.scm 878 */
						BgL_auxz00_5417 = BgL_portz00_3907;
					}
				else
					{
						obj_t BgL_auxz00_5420;

						BgL_auxz00_5420 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(31184L),
							BGl_string2343z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3907);
						FAILURE(BgL_auxz00_5420, BFALSE, BFALSE);
					}
				{	/* Ieee/output.scm 878 */
					obj_t BgL_tmpz00_5409;

					if (ELONGP(BgL_objz00_3906))
						{	/* Ieee/output.scm 878 */
							BgL_tmpz00_5409 = BgL_objz00_3906;
						}
					else
						{
							obj_t BgL_auxz00_5412;

							BgL_auxz00_5412 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(31184L),
								BGl_string2343z00zz__r4_output_6_10_3z00,
								BGl_string2344z00zz__r4_output_6_10_3z00, BgL_objz00_3906);
							FAILURE(BgL_auxz00_5412, BFALSE, BFALSE);
						}
					BgL_auxz00_5408 = BELONG_TO_LONG(BgL_tmpz00_5409);
				}
				return
					BGl_displayzd2elongzd2zz__r4_output_6_10_3z00(BgL_auxz00_5408,
					BgL_auxz00_5417);
			}
		}

	}



/* 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_3377;

				BgL_arg1651z00_3377 = bgl_real_to_string(REAL_TO_DOUBLE(BgL_objz00_62));
				return bgl_display_string(BgL_arg1651z00_3377, BgL_portz00_63);
			}
		}

	}



/* &display-flonum */
	obj_t BGl_z62displayzd2flonumzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3908,
		obj_t BgL_objz00_3909, obj_t BgL_portz00_3910)
	{
		{	/* Ieee/output.scm 883 */
			{	/* Ieee/output.scm 884 */
				obj_t BgL_auxz00_5435;
				obj_t BgL_auxz00_5428;

				if (OUTPUT_PORTP(BgL_portz00_3910))
					{	/* Ieee/output.scm 884 */
						BgL_auxz00_5435 = BgL_portz00_3910;
					}
				else
					{
						obj_t BgL_auxz00_5438;

						BgL_auxz00_5438 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(31487L),
							BGl_string2345z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3910);
						FAILURE(BgL_auxz00_5438, BFALSE, BFALSE);
					}
				if (REALP(BgL_objz00_3909))
					{	/* Ieee/output.scm 884 */
						BgL_auxz00_5428 = BgL_objz00_3909;
					}
				else
					{
						obj_t BgL_auxz00_5431;

						BgL_auxz00_5431 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(31487L),
							BGl_string2345z00zz__r4_output_6_10_3z00,
							BGl_string2346z00zz__r4_output_6_10_3z00, BgL_objz00_3909);
						FAILURE(BgL_auxz00_5431, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2flonumzd2zz__r4_output_6_10_3z00(BgL_auxz00_5428,
					BgL_auxz00_5435);
			}
		}

	}



/* 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_3911, obj_t BgL_objz00_3912, obj_t BgL_portz00_3913)
	{
		{	/* Ieee/output.scm 889 */
			{	/* Ieee/output.scm 890 */
				obj_t BgL_auxz00_5451;
				obj_t BgL_auxz00_5444;

				if (OUTPUT_PORTP(BgL_portz00_3913))
					{	/* Ieee/output.scm 890 */
						BgL_auxz00_5451 = BgL_portz00_3913;
					}
				else
					{
						obj_t BgL_auxz00_5454;

						BgL_auxz00_5454 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(31777L),
							BGl_string2347z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3913);
						FAILURE(BgL_auxz00_5454, BFALSE, BFALSE);
					}
				if (UCS2_STRINGP(BgL_objz00_3912))
					{	/* Ieee/output.scm 890 */
						BgL_auxz00_5444 = BgL_objz00_3912;
					}
				else
					{
						obj_t BgL_auxz00_5447;

						BgL_auxz00_5447 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(31777L),
							BGl_string2347z00zz__r4_output_6_10_3z00,
							BGl_string2348z00zz__r4_output_6_10_3z00, BgL_objz00_3912);
						FAILURE(BgL_auxz00_5447, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2ucs2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_5444,
					BgL_auxz00_5451);
			}
		}

	}



/* 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_3914, obj_t BgL_objz00_3915, obj_t BgL_portz00_3916)
	{
		{	/* Ieee/output.scm 895 */
			{	/* Ieee/output.scm 896 */
				obj_t BgL_auxz00_5469;
				obj_t BgL_auxz00_5462;

				if (OUTPUT_PORTP(BgL_portz00_3916))
					{	/* Ieee/output.scm 896 */
						BgL_auxz00_5469 = BgL_portz00_3916;
					}
				else
					{
						obj_t BgL_auxz00_5472;

						BgL_auxz00_5472 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(32107L),
							BGl_string2349z00zz__r4_output_6_10_3z00,
							BGl_string2266z00zz__r4_output_6_10_3z00, BgL_portz00_3916);
						FAILURE(BgL_auxz00_5472, BFALSE, BFALSE);
					}
				if (UCS2_STRINGP(BgL_objz00_3915))
					{	/* Ieee/output.scm 896 */
						BgL_auxz00_5462 = BgL_objz00_3915;
					}
				else
					{
						obj_t BgL_auxz00_5465;

						BgL_auxz00_5465 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2264z00zz__r4_output_6_10_3z00, BINT(32107L),
							BGl_string2349z00zz__r4_output_6_10_3z00,
							BGl_string2348z00zz__r4_output_6_10_3z00, BgL_objz00_3915);
						FAILURE(BgL_auxz00_5465, BFALSE, BFALSE);
					}
				return
					BGl_writezd2ucs2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_5462,
					BgL_auxz00_5469);
			}
		}

	}



/* 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_2072;

				BgL_arg1669z00_2072 = STRUCT_KEY(BgL_objz00_81);
				(VA_PROCEDUREP(BgL_dispz00_83) ? ((obj_t(*)(obj_t,
								...)) PROCEDURE_ENTRY(BgL_dispz00_83)) (BgL_dispz00_83,
						BgL_arg1669z00_2072, BgL_portz00_82, BEOA) : ((obj_t(*)(obj_t,
								obj_t, obj_t)) PROCEDURE_ENTRY(BgL_dispz00_83)) (BgL_dispz00_83,
						BgL_arg1669z00_2072, BgL_portz00_82));
			}
			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_2075;

					BgL_lenz00_2075 = ((long) (STRUCT_LENGTH(BgL_objz00_81)) - 1L);
					bgl_display_char(((unsigned char) ' '), BgL_portz00_82);
					{
						long BgL_iz00_2077;

						BgL_iz00_2077 = 0L;
					BgL_zc3z04anonymousza31672ze3z87_2078:
						if ((BgL_iz00_2077 == BgL_lenz00_2075))
							{	/* Ieee/output.scm 960 */
								{	/* Ieee/output.scm 961 */
									obj_t BgL_arg1675z00_2080;

									BgL_arg1675z00_2080 =
										STRUCT_REF(BgL_objz00_81, (int) (BgL_iz00_2077));
									(VA_PROCEDUREP(BgL_dispz00_83) ? ((obj_t(*)(obj_t,
													...))
											PROCEDURE_ENTRY(BgL_dispz00_83)) (BgL_dispz00_83,
											BgL_arg1675z00_2080, BgL_portz00_82,
											BEOA) : ((obj_t(*)(obj_t, obj_t,
													obj_t))
											PROCEDURE_ENTRY(BgL_dispz00_83)) (BgL_dispz00_83,
											BgL_arg1675z00_2080, BgL_portz00_82));
								}
								return bgl_display_char(((unsigned char) '}'), BgL_portz00_82);
							}
						else
							{	/* Ieee/output.scm 960 */
								{	/* Ieee/output.scm 964 */
									obj_t BgL_arg1678z00_2081;

									BgL_arg1678z00_2081 =
										STRUCT_REF(BgL_objz00_81, (int) (BgL_iz00_2077));
									(VA_PROCEDUREP(BgL_dispz00_83) ? ((obj_t(*)(obj_t,
													...))
											PROCEDURE_ENTRY(BgL_dispz00_83)) (BgL_dispz00_83,
											BgL_arg1678z00_2081, BgL_portz00_82,
											BEOA) : ((obj_t(*)(obj_t, obj_t,
													obj_t))
											PROCEDURE_ENTRY(BgL_dispz00_83)) (BgL_dispz00_83,
											BgL_arg1678z00_2081, BgL_portz00_82));
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_82);
								{
									long BgL_iz00_5512;

									BgL_iz00_5512 = (1L + BgL_iz00_2077);
									BgL_iz00_2077 = BgL_iz00_5512;
									goto BgL_zc3z04anonymousza31672ze3z87_2078;
								}
							}
					}
				}
		}

	}



/* write/display-vector */
	obj_t BGl_writezf2displayzd2vectorz20zz__r4_output_6_10_3z00(obj_t
		BgL_objz00_84, obj_t BgL_portz00_85, obj_t BgL_dispz00_86)
	{
		{	/* Ieee/output.scm 971 */
			bgl_display_char(((unsigned char) '#'), BgL_portz00_85);
			{	/* Ieee/output.scm 973 */
				int BgL_tagz00_2086;

				BgL_tagz00_2086 = VECTOR_TAG(BgL_objz00_84);
				if (((long) (BgL_tagz00_2086) > 0L))
					{	/* Ieee/output.scm 974 */
						if (((long) (BgL_tagz00_2086) >= 100L))
							{	/* Ieee/output.scm 976 */
								(VA_PROCEDUREP(BgL_dispz00_86) ? ((obj_t(*)(obj_t,
												...)) PROCEDURE_ENTRY(BgL_dispz00_86)) (BgL_dispz00_86,
										BINT(BgL_tagz00_2086), BgL_portz00_85,
										BEOA) : ((obj_t(*)(obj_t, obj_t,
												obj_t))
										PROCEDURE_ENTRY(BgL_dispz00_86)) (BgL_dispz00_86,
										BINT(BgL_tagz00_2086), BgL_portz00_85));
							}
						else
							{	/* Ieee/output.scm 976 */
								bgl_display_char(((unsigned char) '0'), BgL_portz00_85);
								if (((long) (BgL_tagz00_2086) >= 10L))
									{	/* Ieee/output.scm 980 */
										(VA_PROCEDUREP(BgL_dispz00_86) ? ((obj_t(*)(obj_t,
														...))
												PROCEDURE_ENTRY(BgL_dispz00_86)) (BgL_dispz00_86,
												BINT(BgL_tagz00_2086), BgL_portz00_85,
												BEOA) : ((obj_t(*)(obj_t, obj_t,
														obj_t))
												PROCEDURE_ENTRY(BgL_dispz00_86)) (BgL_dispz00_86,
												BINT(BgL_tagz00_2086), BgL_portz00_85));
									}
								else
									{	/* Ieee/output.scm 980 */
										bgl_display_char(((unsigned char) '0'), BgL_portz00_85);
										(VA_PROCEDUREP(BgL_dispz00_86) ? ((obj_t(*)(obj_t,
														...))
												PROCEDURE_ENTRY(BgL_dispz00_86)) (BgL_dispz00_86,
												BINT(BgL_tagz00_2086), BgL_portz00_85,
												BEOA) : ((obj_t(*)(obj_t, obj_t,
														obj_t))
												PROCEDURE_ENTRY(BgL_dispz00_86)) (BgL_dispz00_86,
												BINT(BgL_tagz00_2086), BgL_portz00_85));
					}}}
				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_2092;

					BgL_lenz00_2092 = (VECTOR_LENGTH(BgL_objz00_84) - 1L);
					{
						long BgL_iz00_2094;

						BgL_iz00_2094 = 0L;
					BgL_zc3z04anonymousza31691ze3z87_2095:
						if ((BgL_iz00_2094 == BgL_lenz00_2092))
							{	/* Ieee/output.scm 991 */
								{	/* Ieee/output.scm 992 */
									obj_t BgL_arg1693z00_2097;

									BgL_arg1693z00_2097 =
										VECTOR_REF(BgL_objz00_84, BgL_iz00_2094);
									(VA_PROCEDUREP(BgL_dispz00_86) ? ((obj_t(*)(obj_t,
													...))
											PROCEDURE_ENTRY(BgL_dispz00_86)) (BgL_dispz00_86,
											BgL_arg1693z00_2097, BgL_portz00_85,
											BEOA) : ((obj_t(*)(obj_t, obj_t,
													obj_t))
											PROCEDURE_ENTRY(BgL_dispz00_86)) (BgL_dispz00_86,
											BgL_arg1693z00_2097, BgL_portz00_85));
								}
								return bgl_display_char(((unsigned char) ')'), BgL_portz00_85);
							}
						else
							{	/* Ieee/output.scm 991 */
								{	/* Ieee/output.scm 995 */
									obj_t BgL_arg1695z00_2098;

									BgL_arg1695z00_2098 =
										VECTOR_REF(BgL_objz00_84, BgL_iz00_2094);
									(VA_PROCEDUREP(BgL_dispz00_86) ? ((obj_t(*)(obj_t,
													...))
											PROCEDURE_ENTRY(BgL_dispz00_86)) (BgL_dispz00_86,
											BgL_arg1695z00_2098, BgL_portz00_85,
											BEOA) : ((obj_t(*)(obj_t, obj_t,
													obj_t))
											PROCEDURE_ENTRY(BgL_dispz00_86)) (BgL_dispz00_86,
											BgL_arg1695z00_2098, BgL_portz00_85));
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_85);
								{
									long BgL_iz00_5568;

									BgL_iz00_5568 = (1L + BgL_iz00_2094);
									BgL_iz00_2094 = BgL_iz00_5568;
									goto BgL_zc3z04anonymousza31691ze3z87_2095;
								}
							}
					}
				}
		}

	}



/* write/display-tvector */
	obj_t BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00(obj_t
		BgL_tvecz00_87, obj_t BgL_portz00_88, obj_t BgL_dispz00_89)
	{
		{	/* Ieee/output.scm 1002 */
			{	/* Ieee/output.scm 1003 */
				obj_t BgL_tvectorzd2refzd2_2103;
				obj_t BgL_idz00_2104;

				BgL_tvectorzd2refzd2_2103 =
					BGl_tvectorzd2refzd2zz__tvectorz00(BgL_tvecz00_87);
				BgL_idz00_2104 = BGl_tvectorzd2idzd2zz__tvectorz00(BgL_tvecz00_87);
				bgl_display_char(((unsigned char) '#'), BgL_portz00_88);
				(VA_PROCEDUREP(BgL_dispz00_89) ? ((obj_t(*)(obj_t,
								...)) PROCEDURE_ENTRY(BgL_dispz00_89)) (BgL_dispz00_89,
						BgL_idz00_2104, BgL_portz00_88, BEOA) : ((obj_t(*)(obj_t, obj_t,
								obj_t)) PROCEDURE_ENTRY(BgL_dispz00_89)) (BgL_dispz00_89,
						BgL_idz00_2104, BgL_portz00_88));
				bgl_display_char(((unsigned char) '('), BgL_portz00_88);
				if (CBOOL(BgL_tvectorzd2refzd2_2103))
					{	/* 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_2107;

								BgL_lenz00_2107 =
									((long) (TVECTOR_LENGTH(BgL_tvecz00_87)) - 1L);
								{
									long BgL_iz00_2109;

									BgL_iz00_2109 = 0L;
								BgL_zc3z04anonymousza31706ze3z87_2110:
									if ((BgL_iz00_2109 == BgL_lenz00_2107))
										{	/* Ieee/output.scm 1018 */
											{	/* Ieee/output.scm 1019 */
												obj_t BgL_arg1708z00_2112;

												BgL_arg1708z00_2112 =
													(VA_PROCEDUREP(BgL_tvectorzd2refzd2_2103)
													? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_tvectorzd2refzd2_2103))
													(BgL_tvectorzd2refzd2_2103, BgL_tvecz00_87,
														BINT(BgL_iz00_2109), BEOA) : ((obj_t(*)(obj_t,
																obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_tvectorzd2refzd2_2103))
													(BgL_tvectorzd2refzd2_2103, BgL_tvecz00_87,
														BINT(BgL_iz00_2109)));
												(VA_PROCEDUREP(BgL_dispz00_89) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_dispz00_89)) (BgL_dispz00_89,
														BgL_arg1708z00_2112, BgL_portz00_88,
														BEOA) : ((obj_t(*)(obj_t, obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_dispz00_89)) (BgL_dispz00_89,
														BgL_arg1708z00_2112, BgL_portz00_88));
											}
											return
												bgl_display_char(((unsigned char) ')'), BgL_portz00_88);
										}
									else
										{	/* Ieee/output.scm 1018 */
											{	/* Ieee/output.scm 1022 */
												obj_t BgL_arg1709z00_2113;

												BgL_arg1709z00_2113 =
													(VA_PROCEDUREP(BgL_tvectorzd2refzd2_2103)
													? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_tvectorzd2refzd2_2103))
													(BgL_tvectorzd2refzd2_2103, BgL_tvecz00_87,
														BINT(BgL_iz00_2109), BEOA) : ((obj_t(*)(obj_t,
																obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_tvectorzd2refzd2_2103))
													(BgL_tvectorzd2refzd2_2103, BgL_tvecz00_87,
														BINT(BgL_iz00_2109)));
												(VA_PROCEDUREP(BgL_dispz00_89) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_dispz00_89)) (BgL_dispz00_89,
														BgL_arg1709z00_2113, BgL_portz00_88,
														BEOA) : ((obj_t(*)(obj_t, obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_dispz00_89)) (BgL_dispz00_89,
														BgL_arg1709z00_2113, BgL_portz00_88));
											}
											bgl_display_char(((unsigned char) ' '), BgL_portz00_88);
											{
												long BgL_iz00_5615;

												BgL_iz00_5615 = (1L + BgL_iz00_2109);
												BgL_iz00_2109 = BgL_iz00_5615;
												goto BgL_zc3z04anonymousza31706ze3z87_2110;
											}
										}
								}
							}
					}
				else
					{	/* Ieee/output.scm 1008 */
						bgl_display_string(BGl_string2350z00zz__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_2118;

				BgL_idz00_2118 =
					BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(BgL_svecz00_90);
				{	/* Ieee/output.scm 1031 */
					obj_t BgL__z00_2119;
					obj_t BgL_vrefz00_2120;
					obj_t BgL__z00_2121;
					obj_t BgL__z00_2122;

					{	/* Ieee/output.scm 1032 */
						obj_t BgL_tmpz00_3463;

						{	/* Ieee/output.scm 1032 */
							int BgL_tmpz00_5619;

							BgL_tmpz00_5619 = (int) (1L);
							BgL_tmpz00_3463 = BGL_MVALUES_VAL(BgL_tmpz00_5619);
						}
						{	/* Ieee/output.scm 1032 */
							int BgL_tmpz00_5622;

							BgL_tmpz00_5622 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5622, BUNSPEC);
						}
						BgL__z00_2119 = BgL_tmpz00_3463;
					}
					{	/* Ieee/output.scm 1032 */
						obj_t BgL_tmpz00_3464;

						{	/* Ieee/output.scm 1032 */
							int BgL_tmpz00_5625;

							BgL_tmpz00_5625 = (int) (2L);
							BgL_tmpz00_3464 = BGL_MVALUES_VAL(BgL_tmpz00_5625);
						}
						{	/* Ieee/output.scm 1032 */
							int BgL_tmpz00_5628;

							BgL_tmpz00_5628 = (int) (2L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5628, BUNSPEC);
						}
						BgL_vrefz00_2120 = BgL_tmpz00_3464;
					}
					{	/* Ieee/output.scm 1032 */
						obj_t BgL_tmpz00_3465;

						{	/* Ieee/output.scm 1032 */
							int BgL_tmpz00_5631;

							BgL_tmpz00_5631 = (int) (3L);
							BgL_tmpz00_3465 = BGL_MVALUES_VAL(BgL_tmpz00_5631);
						}
						{	/* Ieee/output.scm 1032 */
							int BgL_tmpz00_5634;

							BgL_tmpz00_5634 = (int) (3L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5634, BUNSPEC);
						}
						BgL__z00_2121 = BgL_tmpz00_3465;
					}
					{	/* Ieee/output.scm 1032 */
						obj_t BgL_tmpz00_3466;

						{	/* Ieee/output.scm 1032 */
							int BgL_tmpz00_5637;

							BgL_tmpz00_5637 = (int) (4L);
							BgL_tmpz00_3466 = BGL_MVALUES_VAL(BgL_tmpz00_5637);
						}
						{	/* Ieee/output.scm 1032 */
							int BgL_tmpz00_5640;

							BgL_tmpz00_5640 = (int) (4L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5640, BUNSPEC);
						}
						BgL__z00_2122 = BgL_tmpz00_3466;
					}
					bgl_display_char(((unsigned char) '#'), BgL_portz00_91);
					{	/* Ieee/output.scm 773 */
						obj_t BgL_arg1607z00_3469;

						BgL_arg1607z00_3469 = SYMBOL_TO_STRING(((obj_t) BgL_idz00_2118));
						bgl_display_string(BgL_arg1607z00_3469, BgL_portz00_91);
					}
					bgl_display_char(((unsigned char) '('), BgL_portz00_91);
					{	/* Ieee/output.scm 1035 */
						bool_t BgL_test2713z00_5648;

						{	/* Ieee/output.scm 1035 */
							long BgL_arg1723z00_2135;

							BgL_arg1723z00_2135 = BGL_HVECTOR_LENGTH(BgL_svecz00_90);
							BgL_test2713z00_5648 = (0L == BgL_arg1723z00_2135);
						}
						if (BgL_test2713z00_5648)
							{	/* Ieee/output.scm 1035 */
								return bgl_display_char(((unsigned char) ')'), BgL_portz00_91);
							}
						else
							{	/* Ieee/output.scm 1037 */
								long BgL_lenz00_2125;

								{	/* Ieee/output.scm 1037 */
									long BgL_arg1722z00_2134;

									BgL_arg1722z00_2134 = BGL_HVECTOR_LENGTH(BgL_svecz00_90);
									BgL_lenz00_2125 = (BgL_arg1722z00_2134 - 1L);
								}
								{
									long BgL_iz00_2127;

									BgL_iz00_2127 = 0L;
								BgL_zc3z04anonymousza31716ze3z87_2128:
									if ((BgL_iz00_2127 == BgL_lenz00_2125))
										{	/* Ieee/output.scm 1040 */
											{	/* Ieee/output.scm 1041 */
												obj_t BgL_arg1718z00_2130;

												BgL_arg1718z00_2130 =
													(VA_PROCEDUREP(BgL_vrefz00_2120) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_vrefz00_2120))
													(BgL_vrefz00_2120, BgL_svecz00_90,
														BINT(BgL_iz00_2127), BEOA) : ((obj_t(*)(obj_t,
																obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_vrefz00_2120))
													(BgL_vrefz00_2120, BgL_svecz00_90,
														BINT(BgL_iz00_2127)));
												(VA_PROCEDUREP(BgL_dispz00_92) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_dispz00_92)) (BgL_dispz00_92,
														BgL_arg1718z00_2130, BgL_portz00_91,
														BEOA) : ((obj_t(*)(obj_t, obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_dispz00_92)) (BgL_dispz00_92,
														BgL_arg1718z00_2130, BgL_portz00_91));
											}
											return
												bgl_display_char(((unsigned char) ')'), BgL_portz00_91);
										}
									else
										{	/* Ieee/output.scm 1040 */
											{	/* Ieee/output.scm 1044 */
												obj_t BgL_arg1720z00_2131;

												BgL_arg1720z00_2131 =
													(VA_PROCEDUREP(BgL_vrefz00_2120) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_vrefz00_2120))
													(BgL_vrefz00_2120, BgL_svecz00_90,
														BINT(BgL_iz00_2127), BEOA) : ((obj_t(*)(obj_t,
																obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_vrefz00_2120))
													(BgL_vrefz00_2120, BgL_svecz00_90,
														BINT(BgL_iz00_2127)));
												(VA_PROCEDUREP(BgL_dispz00_92) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_dispz00_92)) (BgL_dispz00_92,
														BgL_arg1720z00_2131, BgL_portz00_91,
														BEOA) : ((obj_t(*)(obj_t, obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_dispz00_92)) (BgL_dispz00_92,
														BgL_arg1720z00_2131, BgL_portz00_91));
											}
											bgl_display_char(((unsigned char) ' '), BgL_portz00_91);
											{
												long BgL_iz00_5680;

												BgL_iz00_5680 = (1L + BgL_iz00_2127);
												BgL_iz00_2127 = BgL_iz00_5680;
												goto BgL_zc3z04anonymousza31716ze3z87_2128;
											}
										}
								}
							}
					}
				}
			}
		}

	}



/* display-pair */
	obj_t BGl_displayzd2pairzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_96,
		obj_t BgL_portz00_97)
	{
		{	/* Ieee/output.scm 1083 */
			bgl_display_char(((unsigned char) '('), BgL_portz00_97);
			{
				obj_t BgL_lz00_2138;

				BgL_lz00_2138 = BgL_objz00_96;
			BgL_zc3z04anonymousza31724ze3z87_2139:
				if (NULLP(CDR(((obj_t) BgL_lz00_2138))))
					{	/* Ieee/output.scm 1084 */
						{	/* Ieee/output.scm 1084 */
							obj_t BgL_arg1727z00_2142;

							BgL_arg1727z00_2142 = CAR(((obj_t) BgL_lz00_2138));
							bgl_display_obj(BgL_arg1727z00_2142, BgL_portz00_97);
						}
						return bgl_display_char(((unsigned char) ')'), BgL_portz00_97);
					}
				else
					{	/* Ieee/output.scm 1084 */
						bool_t BgL_test2716z00_5691;

						{	/* Ieee/output.scm 1084 */
							obj_t BgL_tmpz00_5692;

							BgL_tmpz00_5692 = CDR(((obj_t) BgL_lz00_2138));
							BgL_test2716z00_5691 = PAIRP(BgL_tmpz00_5692);
						}
						if (BgL_test2716z00_5691)
							{	/* Ieee/output.scm 1084 */
								{	/* Ieee/output.scm 1084 */
									obj_t BgL_arg1731z00_2145;

									BgL_arg1731z00_2145 = CAR(((obj_t) BgL_lz00_2138));
									bgl_display_obj(BgL_arg1731z00_2145, BgL_portz00_97);
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_97);
								{	/* Ieee/output.scm 1084 */
									obj_t BgL_arg1732z00_2146;

									BgL_arg1732z00_2146 = CDR(((obj_t) BgL_lz00_2138));
									{
										obj_t BgL_lz00_5702;

										BgL_lz00_5702 = BgL_arg1732z00_2146;
										BgL_lz00_2138 = BgL_lz00_5702;
										goto BgL_zc3z04anonymousza31724ze3z87_2139;
									}
								}
							}
						else
							{	/* Ieee/output.scm 1084 */
								{	/* Ieee/output.scm 1084 */
									obj_t BgL_arg1733z00_2147;

									BgL_arg1733z00_2147 = CAR(((obj_t) BgL_lz00_2138));
									bgl_display_obj(BgL_arg1733z00_2147, BgL_portz00_97);
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_97);
								bgl_display_char(((unsigned char) '.'), BgL_portz00_97);
								bgl_display_char(((unsigned char) ' '), BgL_portz00_97);
								{	/* Ieee/output.scm 1084 */
									obj_t BgL_arg1734z00_2148;

									BgL_arg1734z00_2148 = CDR(((obj_t) BgL_lz00_2138));
									bgl_display_obj(BgL_arg1734z00_2148, BgL_portz00_97);
								}
								return bgl_display_char(((unsigned char) ')'), BgL_portz00_97);
		}}}}

	}



/* write-pair */
	obj_t BGl_writezd2pairzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_98,
		obj_t BgL_portz00_99)
	{
		{	/* Ieee/output.scm 1089 */
			bgl_display_char(((unsigned char) '('), BgL_portz00_99);
			{
				obj_t BgL_lz00_2153;

				BgL_lz00_2153 = BgL_objz00_98;
			BgL_zc3z04anonymousza31737ze3z87_2154:
				if (NULLP(CDR(((obj_t) BgL_lz00_2153))))
					{	/* Ieee/output.scm 1090 */
						{	/* Ieee/output.scm 1090 */
							obj_t BgL_arg1741z00_2157;

							BgL_arg1741z00_2157 = CAR(((obj_t) BgL_lz00_2153));
							bgl_write_obj(BgL_arg1741z00_2157, BgL_portz00_99);
						}
						return bgl_display_char(((unsigned char) ')'), BgL_portz00_99);
					}
				else
					{	/* Ieee/output.scm 1090 */
						bool_t BgL_test2718z00_5722;

						{	/* Ieee/output.scm 1090 */
							obj_t BgL_tmpz00_5723;

							BgL_tmpz00_5723 = CDR(((obj_t) BgL_lz00_2153));
							BgL_test2718z00_5722 = PAIRP(BgL_tmpz00_5723);
						}
						if (BgL_test2718z00_5722)
							{	/* Ieee/output.scm 1090 */
								{	/* Ieee/output.scm 1090 */
									obj_t BgL_arg1744z00_2160;

									BgL_arg1744z00_2160 = CAR(((obj_t) BgL_lz00_2153));
									bgl_write_obj(BgL_arg1744z00_2160, BgL_portz00_99);
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_99);
								{	/* Ieee/output.scm 1090 */
									obj_t BgL_arg1745z00_2161;

									BgL_arg1745z00_2161 = CDR(((obj_t) BgL_lz00_2153));
									{
										obj_t BgL_lz00_5733;

										BgL_lz00_5733 = BgL_arg1745z00_2161;
										BgL_lz00_2153 = BgL_lz00_5733;
										goto BgL_zc3z04anonymousza31737ze3z87_2154;
									}
								}
							}
						else
							{	/* Ieee/output.scm 1090 */
								{	/* Ieee/output.scm 1090 */
									obj_t BgL_arg1746z00_2162;

									BgL_arg1746z00_2162 = CAR(((obj_t) BgL_lz00_2153));
									bgl_write_obj(BgL_arg1746z00_2162, BgL_portz00_99);
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_99);
								bgl_display_char(((unsigned char) '.'), BgL_portz00_99);
								bgl_display_char(((unsigned char) ' '), BgL_portz00_99);
								{	/* Ieee/output.scm 1090 */
									obj_t BgL_arg1747z00_2163;

									BgL_arg1747z00_2163 = CDR(((obj_t) BgL_lz00_2153));
									bgl_write_obj(BgL_arg1747z00_2163, BgL_portz00_99);
								}
								return bgl_display_char(((unsigned char) ')'), BgL_portz00_99);
		}}}}

	}



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

	}



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

	}



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

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__r4_output_6_10_3z00(void)
	{
		{	/* Ieee/output.scm 24 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2351z00zz__r4_output_6_10_3z00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(43287392L,
				BSTRING_TO_STRING(BGl_string2351z00zz__r4_output_6_10_3z00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(496722665L,
				BSTRING_TO_STRING(BGl_string2351z00zz__r4_output_6_10_3z00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L,
				BSTRING_TO_STRING(BGl_string2351z00zz__r4_output_6_10_3z00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(536217185L,
				BSTRING_TO_STRING(BGl_string2351z00zz__r4_output_6_10_3z00));
			BGl_modulezd2initializa7ationz75zz__srfi4z00(467924964L,
				BSTRING_TO_STRING(BGl_string2351z00zz__r4_output_6_10_3z00));
			return BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2351z00zz__r4_output_6_10_3z00));
		}

	}

#ifdef __cplusplus
}
#endif
