/*===========================================================================*/
/*   (Ieee/output.scm)                                                       */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -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);
	BGL_EXPORTED_DECL obj_t BGl_writezd2bytezd2zz__r4_output_6_10_3z00(unsigned
		char, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_writezd2ucs2stringzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_z62writezd2bytezd22z62zz__r4_output_6_10_3z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62writezd2symbolzb0zz__r4_output_6_10_3z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_displayzd2flonumzd2zz__r4_output_6_10_3z00(obj_t,
		obj_t);
	static obj_t BGl_z62newlinezd21zb0zz__r4_output_6_10_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_fprintfz00zz__r4_output_6_10_3z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62displayzd2elongzb0zz__r4_output_6_10_3z00(obj_t, obj_t,
		obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_z62writezd22zb0zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62writezd2charzd22z62zz__r4_output_6_10_3z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_methodzd2initzd2zz__r4_output_6_10_3z00(void);
	static obj_t BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_objectzd2writezd2zz__objectz00(BgL_objectz00_bglt, obj_t);
	extern obj_t bgl_write_input_port(obj_t, obj_t);
	extern obj_t BGl_tvectorzd2idzd2zz__tvectorz00(obj_t);
	extern obj_t bgl_display_llong(BGL_LONGLONG_T, obj_t);
	static obj_t BGl_z62printz62zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_z62displayz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
	static obj_t BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00 = BUNSPEC;
	extern obj_t make_string(long, unsigned char);
	extern obj_t bgl_write_mmap(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_newlinezd21zd2zz__r4_output_6_10_3z00(obj_t);
	extern obj_t BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(obj_t);
	extern obj_t bgl_write_dynamic_env(obj_t, obj_t);
	static obj_t BGl_z62writez62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_fprintz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t BGl_datezd2ze3stringz31zz__datez00(obj_t);
	extern obj_t bgl_ill_char_rep(unsigned char);
	static obj_t BGl_z62displayza2zc0zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t bgl_display_bignum(obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	extern obj_t bgl_close_output_port(obj_t);
	static obj_t BGl_z62formatz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62writezd2ucs2stringzb0zz__r4_output_6_10_3z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_newlinez00zz__r4_output_6_10_3z00(obj_t);
	extern obj_t bgl_write_llong(BGL_LONGLONG_T, obj_t);
	extern obj_t bgl_display_elong(long, obj_t);
	extern 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 *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	static obj_t BGl_z62displayzd2fixnumzb0zz__r4_output_6_10_3z00(obj_t, obj_t,
		obj_t);
	extern obj_t bgl_display_ucs2(obj_t, obj_t);
	extern obj_t bgl_write_socket(obj_t, obj_t);
	extern obj_t ucs2_string_to_utf8_string(obj_t);
	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);
	BGL_EXPORTED_DECL obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t);
	extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
	extern obj_t bgl_write_regexp(obj_t, obj_t);
	extern obj_t bgl_write_opaque(obj_t, obj_t);
	extern obj_t bgl_write_string(obj_t, bool_t, obj_t);
	static obj_t BGl_z62fprintfz62zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t,
		obj_t);
	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);
	static obj_t BGl_symbol2353z00zz__r4_output_6_10_3z00 = BUNSPEC;
	static obj_t BGl_symbol2355z00zz__r4_output_6_10_3z00 = BUNSPEC;
	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);
	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_za762writeza7d22za7b0za72374z00,
		BGl_z62writezd22zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2300z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2300za700za7za7_2375za7, "#Return", 7);
	      BGL_DEFINE_STRING(BGl_string2301z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2301za700za7za7_2376za7, "#Space", 6);
	      BGL_DEFINE_STRING(BGl_string2302z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2302za700za7za7_2377za7, "#Tab", 4);
	      BGL_DEFINE_STRING(BGl_string2303z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2303za700za7za7_2378za7, "&illegal-char-rep", 17);
	      BGL_DEFINE_STRING(BGl_string2304z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2304za700za7za7_2379za7, "&tprint", 7);
	      BGL_DEFINE_STRING(BGl_string2305z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2305za700za7za7_2380za7, "&fprint", 7);
	      BGL_DEFINE_STRING(BGl_string2306z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2306za700za7za7_2381za7, "Insufficient number of arguments",
		32);
	      BGL_DEFINE_STRING(BGl_string2307z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2307za700za7za7_2382za7, "Illegal tag \"", 13);
	      BGL_DEFINE_STRING(BGl_string2308z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2308za700za7za7_2383za7, "\"", 1);
	      BGL_DEFINE_STRING(BGl_string2309z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2309za700za7za7_2384za7, "Illegal char", 12);
	      BGL_DEFINE_STRING(BGl_string2310z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2310za700za7za7_2385za7, "number", 6);
	      BGL_DEFINE_STRING(BGl_string2311z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2311za700za7za7_2386za7, " ", 1);
	      BGL_DEFINE_STRING(BGl_string2312z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2312za700za7za7_2387za7, "Illegal tag", 11);
	      BGL_DEFINE_STRING(BGl_string2313z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2313za700za7za7_2388za7, "0123456789", 10);
	      BGL_DEFINE_STRING(BGl_string2314z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2314za700za7za7_2389za7, "Tag not allowed here", 20);
	      BGL_DEFINE_STRING(BGl_string2315z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2315za700za7za7_2390za7, " . ", 3);
	      BGL_DEFINE_STRING(BGl_string2316z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2316za700za7za7_2391za7, "format", 6);
	      BGL_DEFINE_STRING(BGl_string2317z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2317za700za7za7_2392za7, "&format", 7);
	      BGL_DEFINE_STRING(BGl_string2318z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2318za700za7za7_2393za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string2319z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2319za700za7za7_2394za7, "printf", 6);
	      BGL_DEFINE_STRING(BGl_string2320z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2320za700za7za7_2395za7, "&printf", 7);
	      BGL_DEFINE_STRING(BGl_string2321z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2321za700za7za7_2396za7, "fprintf", 7);
	      BGL_DEFINE_STRING(BGl_string2322z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2322za700za7za7_2397za7, "&fprintf", 8);
	      BGL_DEFINE_STRING(BGl_string2323z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2323za700za7za7_2398za7, "()", 2);
	      BGL_DEFINE_STRING(BGl_string2324z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2324za700za7za7_2399za7, "#f", 2);
	      BGL_DEFINE_STRING(BGl_string2325z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2325za700za7za7_2400za7, "#t", 2);
	      BGL_DEFINE_STRING(BGl_string2326z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2326za700za7za7_2401za7, "#unspecified", 12);
	      BGL_DEFINE_STRING(BGl_string2327z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2327za700za7za7_2402za7, "#<class:", 8);
	      BGL_DEFINE_STRING(BGl_string2328z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2328za700za7za7_2403za7, ">", 1);
	      BGL_DEFINE_STRING(BGl_string2329z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2329za700za7za7_2404za7, "#<mutex:", 8);
	      BGL_DEFINE_STRING(BGl_string2330z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2330za700za7za7_2405za7, ":", 1);
	      BGL_DEFINE_STRING(BGl_string2331z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2331za700za7za7_2406za7, "#<condition-variable:", 21);
	      BGL_DEFINE_STRING(BGl_string2332z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2332za700za7za7_2407za7, "#<cell:", 7);
	      BGL_DEFINE_STRING(BGl_string2333z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2333za700za7za7_2408za7, "#eof-object", 11);
	      BGL_DEFINE_STRING(BGl_string2334z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2334za700za7za7_2409za7, "#!optional", 10);
	      BGL_DEFINE_STRING(BGl_string2335z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2335za700za7za7_2410za7, "#!rest", 6);
	      BGL_DEFINE_STRING(BGl_string2336z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2336za700za7za7_2411za7, "#!key", 5);
	      BGL_DEFINE_STRING(BGl_string2337z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2337za700za7za7_2412za7, "#<output_string_port>", 21);
	      BGL_DEFINE_STRING(BGl_string2338z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2338za700za7za7_2413za7, "#<output_procedure_port>", 24);
	      BGL_DEFINE_STRING(BGl_string2339z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2339za700za7za7_2414za7, "#<weakptr:", 10);
	      BGL_DEFINE_STRING(BGl_string2340z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2340za700za7za7_2415za7, "&display-2", 10);
	      BGL_DEFINE_STRING(BGl_string2341z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2341za700za7za7_2416za7, "#<date:", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_writezd2bytezd22zd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762writeza7d2byteza72417za7,
		BGl_z62writezd2bytezd22z62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2342z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2342za700za7za7_2418za7, "#s8:", 4);
	      BGL_DEFINE_STRING(BGl_string2343z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2343za700za7za7_2419za7, "#u8:", 4);
	      BGL_DEFINE_STRING(BGl_string2344z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2344za700za7za7_2420za7, "#s16:", 5);
	      BGL_DEFINE_STRING(BGl_string2345z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2345za700za7za7_2421za7, "#u16:", 5);
	      BGL_DEFINE_STRING(BGl_string2346z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2346za700za7za7_2422za7, "#s32:", 5);
	      BGL_DEFINE_STRING(BGl_string2347z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2347za700za7za7_2423za7, "#u32:", 5);
	      BGL_DEFINE_STRING(BGl_string2348z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2348za700za7za7_2424za7, "#s64:", 5);
	      BGL_DEFINE_STRING(BGl_string2349z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2349za700za7za7_2425za7, "#u64:", 5);
	      BGL_DEFINE_STRING(BGl_string2350z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2350za700za7za7_2426za7, "&write-2", 8);
	      BGL_DEFINE_STRING(BGl_string2351z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2351za700za7za7_2427za7, "&display-symbol", 15);
	      BGL_DEFINE_STRING(BGl_string2352z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2352za700za7za7_2428za7, "symbol", 6);
	      BGL_DEFINE_STRING(BGl_string2354z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2354za700za7za7_2429za7, "+", 1);
	      BGL_DEFINE_STRING(BGl_string2356z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2356za700za7za7_2430za7, "-", 1);
	      BGL_DEFINE_STRING(BGl_string2357z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2357za700za7za7_2431za7, "|", 1);
	      BGL_DEFINE_STRING(BGl_string2358z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2358za700za7za7_2432za7, "&write-symbol", 13);
	      BGL_DEFINE_STRING(BGl_string2359z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2359za700za7za7_2433za7, "&display-string", 15);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_formatzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762formatza762za7za7__2434z00, va_generic_entry,
		BGl_z62formatz62zz__r4_output_6_10_3z00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string2360z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2360za700za7za7_2435za7, "Illegal index, start=~a end=~a",
		30);
	      BGL_DEFINE_STRING(BGl_string2361z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2361za700za7za7_2436za7, "display-substring", 17);
	      BGL_DEFINE_STRING(BGl_string2362z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2362za700za7za7_2437za7, "&display-substring", 18);
	      BGL_DEFINE_STRING(BGl_string2363z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2363za700za7za7_2438za7, "&write-string", 13);
	      BGL_DEFINE_STRING(BGl_string2364z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2364za700za7za7_2439za7, "&display-fixnum", 15);
	      BGL_DEFINE_STRING(BGl_string2365z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2365za700za7za7_2440za7, "&display-elong", 14);
	      BGL_DEFINE_STRING(BGl_string2284z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2284za700za7za7_2441za7, "tprint", 6);
	      BGL_DEFINE_STRING(BGl_string2366z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2366za700za7za7_2442za7, "belong", 6);
	      BGL_DEFINE_STRING(BGl_string2285z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2285za700za7za7_2443za7, "newline", 7);
	      BGL_DEFINE_STRING(BGl_string2367z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2367za700za7za7_2444za7, "&display-flonum", 15);
	      BGL_DEFINE_STRING(BGl_string2286z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2286za700za7za7_2445za7, "wrong number of optional arguments",
		34);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_printfzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762printfza762za7za7__2446z00, va_generic_entry,
		BGl_z62printfz62zz__r4_output_6_10_3z00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string2368z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2368za700za7za7_2447za7, "real", 4);
	      BGL_DEFINE_STRING(BGl_string2287z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2287za700za7za7_2448za7,
		"/tmp/bigloo/runtime/Ieee/output.scm", 35);
	      BGL_DEFINE_STRING(BGl_string2369z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2369za700za7za7_2449za7, "&display-ucs2string", 19);
	      BGL_DEFINE_STRING(BGl_string2288z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2288za700za7za7_2450za7, "&newline-1", 10);
	      BGL_DEFINE_STRING(BGl_string2289z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2289za700za7za7_2451za7, "output-port", 11);
	      BGL_DEFINE_STRING(BGl_string2370z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2370za700za7za7_2452za7, "ucs2string", 10);
	      BGL_DEFINE_STRING(BGl_string2371z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2371za700za7za7_2453za7, "&write-ucs2string", 17);
	      BGL_DEFINE_STRING(BGl_string2290z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2290za700za7za7_2454za7, "display", 7);
	      BGL_DEFINE_STRING(BGl_string2372z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2372za700za7za7_2455za7, "...)", 4);
	      BGL_DEFINE_STRING(BGl_string2291z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2291za700za7za7_2456za7, "write", 5);
	      BGL_DEFINE_STRING(BGl_string2373z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2373za700za7za7_2457za7, "__r4_output_6_10_3", 18);
	      BGL_DEFINE_STRING(BGl_string2292z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2292za700za7za7_2458za7, "_write-char", 11);
	      BGL_DEFINE_STRING(BGl_string2293z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2293za700za7za7_2459za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string2294z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2294za700za7za7_2460za7, "bchar", 5);
	      BGL_DEFINE_STRING(BGl_string2295z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2295za700za7za7_2461za7, "&write-char-2", 13);
	      BGL_DEFINE_STRING(BGl_string2296z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2296za700za7za7_2462za7, "_write-byte", 11);
	      BGL_DEFINE_STRING(BGl_string2297z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2297za700za7za7_2463za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string2298z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2298za700za7za7_2464za7, "&write-byte-2", 13);
	      BGL_DEFINE_STRING(BGl_string2299z00zz__r4_output_6_10_3z00,
		BgL_bgl_string2299za700za7za7_2465za7, "#Newline", 8);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2stringzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762displayza7d2str2466z00,
		BGl_z62displayzd2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2substringzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762displayza7d2sub2467z00,
		BGl_z62displayzd2substringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_newlinezd21zd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762newlineza7d21za7b2468za7,
		BGl_z62newlinezd21zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_fprintfzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762fprintfza762za7za7_2469z00, 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__writeza7d2charza7d22470z00, 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_za762writeza7a2za7c0za7za72471za7, 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_za762writeza7d2charza72472za7,
		BGl_z62writezd2charzd22z62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2ucs2stringzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762displayza7d2ucs2473z00,
		BGl_z62displayzd2ucs2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_writezd2symbolzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762writeza7d2symbo2474z00,
		BGl_z62writezd2symbolzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762displayza762za7za7_2475z00, 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_za762displayza7d2elo2476z00,
		BGl_z62displayzd2elongzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_writezd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762writeza762za7za7__r2477z00, 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_za762displayza7d22za7b2478za7,
		BGl_z62displayzd22zb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_newlinezd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762newlineza762za7za7_2479z00, 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_za762displayza7a2za7c02480za7, 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__2481z00, 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_za762writeza7d2ucs2s2482z00,
		BGl_z62writezd2ucs2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_writezd2bytezd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl__writeza7d2byteza7d22483z00, 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_za762displayza7d2flo2484z00,
		BGl_z62displayzd2flonumzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_fprintzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762fprintza762za7za7__2485z00, 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__r2486z00, 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_za762displayza7d2sym2487z00,
		BGl_z62displayzd2symbolzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_writezd2stringzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762writeza7d2strin2488z00,
		BGl_z62writezd2stringzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_illegalzd2charzd2repzd2envzd2zz__r4_output_6_10_3z00,
		BgL_bgl_za762illegalza7d2cha2489z00,
		BGl_z62illegalzd2charzd2repz62zz__r4_output_6_10_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2fixnumzd2envz00zz__r4_output_6_10_3z00,
		BgL_bgl_za762displayza7d2fix2490z00,
		BGl_z62displayzd2fixnumzb0zz__r4_output_6_10_3z00, 0L, BUNSPEC, 2);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_displayzd2fixnumzd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762displayza7d2fix2490z00);
		BGL_BIND_PROCEDURE(BGl_illegalzd2charzd2repzd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762illegalza7d2cha2489z00);
		BGL_BIND_PROCEDURE(BGl_writezd2stringzd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762writeza7d2strin2488z00);
		BGL_BIND_PROCEDURE(BGl_displayzd2symbolzd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762displayza7d2sym2487z00);
		BGL_BIND_PROCEDURE(BGl_printzd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762printza762za7za7__r2486z00);
		BGL_BIND_PROCEDURE(BGl_fprintzd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762fprintza762za7za7__2485z00);
		BGL_BIND_PROCEDURE(BGl_displayzd2flonumzd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762displayza7d2flo2484z00);
		BGL_BIND_PROCEDURE(BGl_writezd2bytezd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl__writeza7d2byteza7d22483z00);
		BGL_BIND_PROCEDURE(BGl_writezd2ucs2stringzd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762writeza7d2ucs2s2482z00);
		BGL_BIND_PROCEDURE(BGl_tprintzd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762tprintza762za7za7__2481z00);
		BGL_BIND_PROCEDURE(BGl_displayza2zd2envz70zz__r4_output_6_10_3z00,
			BgL_bgl_za762displayza7a2za7c02480za7);
		BGL_BIND_PROCEDURE(BGl_newlinezd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762newlineza762za7za7_2479z00);
		BGL_BIND_PROCEDURE(BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762displayza7d22za7b2478za7);
		BGL_BIND_PROCEDURE(BGl_writezd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762writeza762za7za7__r2477z00);
		BGL_BIND_PROCEDURE(BGl_displayzd2elongzd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762displayza7d2elo2476z00);
		BGL_BIND_PROCEDURE(BGl_displayzd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762displayza762za7za7_2475z00);
		BGL_BIND_PROCEDURE(BGl_writezd2symbolzd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762writeza7d2symbo2474z00);
		BGL_BIND_PROCEDURE(BGl_displayzd2ucs2stringzd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762displayza7d2ucs2473z00);
		BGL_BIND_PROCEDURE(BGl_writezd2charzd22zd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762writeza7d2charza72472za7);
		BGL_BIND_PROCEDURE(BGl_writeza2zd2envz70zz__r4_output_6_10_3z00,
			BgL_bgl_za762writeza7a2za7c0za7za72471za7);
		BGL_BIND_PROCEDURE(BGl_writezd2charzd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl__writeza7d2charza7d22470z00);
		BGL_BIND_PROCEDURE(BGl_fprintfzd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762fprintfza762za7za7_2469z00);
		BGL_BIND_PROCEDURE(BGl_newlinezd21zd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762newlineza7d21za7b2468za7);
		BGL_BIND_PROCEDURE(BGl_displayzd2substringzd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762displayza7d2sub2467z00);
		BGL_BIND_PROCEDURE(BGl_displayzd2stringzd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762displayza7d2str2466z00);
		BGL_BIND_STRING(BGl_string2299z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2299za700za7za7_2465za7);
		BGL_BIND_STRING(BGl_string2298z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2298za700za7za7_2464za7);
		BGL_BIND_STRING(BGl_string2297z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2297za700za7za7_2463za7);
		BGL_BIND_STRING(BGl_string2296z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2296za700za7za7_2462za7);
		BGL_BIND_STRING(BGl_string2295z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2295za700za7za7_2461za7);
		BGL_BIND_STRING(BGl_string2294z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2294za700za7za7_2460za7);
		BGL_BIND_STRING(BGl_string2293z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2293za700za7za7_2459za7);
		BGL_BIND_STRING(BGl_string2292z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2292za700za7za7_2458za7);
		BGL_BIND_STRING(BGl_string2373z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2373za700za7za7_2457za7);
		BGL_BIND_STRING(BGl_string2291z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2291za700za7za7_2456za7);
		BGL_BIND_STRING(BGl_string2372z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2372za700za7za7_2455za7);
		BGL_BIND_STRING(BGl_string2290z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2290za700za7za7_2454za7);
		BGL_BIND_STRING(BGl_string2371z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2371za700za7za7_2453za7);
		BGL_BIND_STRING(BGl_string2370z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2370za700za7za7_2452za7);
		BGL_BIND_STRING(BGl_string2289z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2289za700za7za7_2451za7);
		BGL_BIND_STRING(BGl_string2288z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2288za700za7za7_2450za7);
		BGL_BIND_STRING(BGl_string2369z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2369za700za7za7_2449za7);
		BGL_BIND_STRING(BGl_string2287z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2287za700za7za7_2448za7);
		BGL_BIND_STRING(BGl_string2368z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2368za700za7za7_2447za7);
		BGL_BIND_PROCEDURE(BGl_printfzd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762printfza762za7za7__2446z00);
		BGL_BIND_STRING(BGl_string2286z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2286za700za7za7_2445za7);
		BGL_BIND_STRING(BGl_string2367z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2367za700za7za7_2444za7);
		BGL_BIND_STRING(BGl_string2285z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2285za700za7za7_2443za7);
		BGL_BIND_STRING(BGl_string2366z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2366za700za7za7_2442za7);
		BGL_BIND_STRING(BGl_string2284z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2284za700za7za7_2441za7);
		BGL_BIND_STRING(BGl_string2365z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2365za700za7za7_2440za7);
		BGL_BIND_STRING(BGl_string2364z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2364za700za7za7_2439za7);
		BGL_BIND_STRING(BGl_string2363z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2363za700za7za7_2438za7);
		BGL_BIND_STRING(BGl_string2362z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2362za700za7za7_2437za7);
		BGL_BIND_STRING(BGl_string2361z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2361za700za7za7_2436za7);
		BGL_BIND_STRING(BGl_string2360z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2360za700za7za7_2435za7);
		BGL_BIND_PROCEDURE(BGl_formatzd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762formatza762za7za7__2434z00);
		BGL_BIND_STRING(BGl_string2359z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2359za700za7za7_2433za7);
		BGL_BIND_STRING(BGl_string2358z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2358za700za7za7_2432za7);
		BGL_BIND_STRING(BGl_string2357z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2357za700za7za7_2431za7);
		BGL_BIND_STRING(BGl_string2356z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2356za700za7za7_2430za7);
		BGL_BIND_STRING(BGl_string2354z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2354za700za7za7_2429za7);
		BGL_BIND_STRING(BGl_string2352z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2352za700za7za7_2428za7);
		BGL_BIND_STRING(BGl_string2351z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2351za700za7za7_2427za7);
		BGL_BIND_STRING(BGl_string2350z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2350za700za7za7_2426za7);
		BGL_BIND_STRING(BGl_string2349z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2349za700za7za7_2425za7);
		BGL_BIND_STRING(BGl_string2348z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2348za700za7za7_2424za7);
		BGL_BIND_STRING(BGl_string2347z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2347za700za7za7_2423za7);
		BGL_BIND_STRING(BGl_string2346z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2346za700za7za7_2422za7);
		BGL_BIND_STRING(BGl_string2345z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2345za700za7za7_2421za7);
		BGL_BIND_STRING(BGl_string2344z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2344za700za7za7_2420za7);
		BGL_BIND_STRING(BGl_string2343z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2343za700za7za7_2419za7);
		BGL_BIND_STRING(BGl_string2342z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2342za700za7za7_2418za7);
		BGL_BIND_PROCEDURE(BGl_writezd2bytezd22zd2envzd2zz__r4_output_6_10_3z00,
			BgL_bgl_za762writeza7d2byteza72417za7);
		BGL_BIND_STRING(BGl_string2341z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2341za700za7za7_2416za7);
		BGL_BIND_STRING(BGl_string2340z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2340za700za7za7_2415za7);
		BGL_BIND_STRING(BGl_string2339z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2339za700za7za7_2414za7);
		BGL_BIND_STRING(BGl_string2338z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2338za700za7za7_2413za7);
		BGL_BIND_STRING(BGl_string2337z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2337za700za7za7_2412za7);
		BGL_BIND_STRING(BGl_string2336z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2336za700za7za7_2411za7);
		BGL_BIND_STRING(BGl_string2335z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2335za700za7za7_2410za7);
		BGL_BIND_STRING(BGl_string2334z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2334za700za7za7_2409za7);
		BGL_BIND_STRING(BGl_string2333z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2333za700za7za7_2408za7);
		BGL_BIND_STRING(BGl_string2332z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2332za700za7za7_2407za7);
		BGL_BIND_STRING(BGl_string2331z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2331za700za7za7_2406za7);
		BGL_BIND_STRING(BGl_string2330z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2330za700za7za7_2405za7);
		BGL_BIND_STRING(BGl_string2329z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2329za700za7za7_2404za7);
		BGL_BIND_STRING(BGl_string2328z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2328za700za7za7_2403za7);
		BGL_BIND_STRING(BGl_string2327z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2327za700za7za7_2402za7);
		BGL_BIND_STRING(BGl_string2326z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2326za700za7za7_2401za7);
		BGL_BIND_STRING(BGl_string2325z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2325za700za7za7_2400za7);
		BGL_BIND_STRING(BGl_string2324z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2324za700za7za7_2399za7);
		BGL_BIND_STRING(BGl_string2323z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2323za700za7za7_2398za7);
		BGL_BIND_STRING(BGl_string2322z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2322za700za7za7_2397za7);
		BGL_BIND_STRING(BGl_string2321z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2321za700za7za7_2396za7);
		BGL_BIND_STRING(BGl_string2320z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2320za700za7za7_2395za7);
		BGL_BIND_STRING(BGl_string2319z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2319za700za7za7_2394za7);
		BGL_BIND_STRING(BGl_string2318z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2318za700za7za7_2393za7);
		BGL_BIND_STRING(BGl_string2317z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2317za700za7za7_2392za7);
		BGL_BIND_STRING(BGl_string2316z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2316za700za7za7_2391za7);
		BGL_BIND_STRING(BGl_string2315z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2315za700za7za7_2390za7);
		BGL_BIND_STRING(BGl_string2314z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2314za700za7za7_2389za7);
		BGL_BIND_STRING(BGl_string2313z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2313za700za7za7_2388za7);
		BGL_BIND_STRING(BGl_string2312z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2312za700za7za7_2387za7);
		BGL_BIND_STRING(BGl_string2311z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2311za700za7za7_2386za7);
		BGL_BIND_STRING(BGl_string2310z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2310za700za7za7_2385za7);
		BGL_BIND_STRING(BGl_string2309z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2309za700za7za7_2384za7);
		BGL_BIND_STRING(BGl_string2308z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2308za700za7za7_2383za7);
		BGL_BIND_STRING(BGl_string2307z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2307za700za7za7_2382za7);
		BGL_BIND_STRING(BGl_string2306z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2306za700za7za7_2381za7);
		BGL_BIND_STRING(BGl_string2305z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2305za700za7za7_2380za7);
		BGL_BIND_STRING(BGl_string2304z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2304za700za7za7_2379za7);
		BGL_BIND_STRING(BGl_string2303z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2303za700za7za7_2378za7);
		BGL_BIND_STRING(BGl_string2302z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2302za700za7za7_2377za7);
		BGL_BIND_STRING(BGl_string2301z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2301za700za7za7_2376za7);
		BGL_BIND_STRING(BGl_string2300z00zz__r4_output_6_10_3z00,
			BgL_bgl_string2300za700za7za7_2375za7);
		BGL_BIND_PROCEDURE(BGl_writezd22zd2envz00zz__r4_output_6_10_3z00,
			BgL_bgl_za762writeza7d22za7b0za72374z00);
	}

/* 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_symbol2353z00zz__r4_output_6_10_3z00));
		ADD_ROOT((void *) (&BGl_symbol2355z00zz__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_3984, char *BgL_fromz00_3985)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00))
				{
					BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__r4_output_6_10_3z00();
					BGl_cnstzd2initzd2zz__r4_output_6_10_3z00();
					BGl_importedzd2moduleszd2initz00zz__r4_output_6_10_3z00();
					return BGl_toplevelzd2initzd2zz__r4_output_6_10_3z00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__r4_output_6_10_3z00(void)
	{
		{	/* Ieee/output.scm 24 */
			BGl_symbol2353z00zz__r4_output_6_10_3z00 =
				bstring_to_symbol(BGl_string2354z00zz__r4_output_6_10_3z00);
			return (BGl_symbol2355z00zz__r4_output_6_10_3z00 =
				bstring_to_symbol(BGl_string2356z00zz__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_string2284z00zz__r4_output_6_10_3z00), BUNSPEC);
		}

	}



/* newline */
	BGL_EXPORTED_DEF obj_t BGl_newlinez00zz__r4_output_6_10_3z00(obj_t
		BgL_portz00_3)
	{
		{	/* Ieee/output.scm 268 */
			{	/* Ieee/output.scm 269 */
				obj_t BgL_portz00_1609;

				if (NULLP(BgL_portz00_3))
					{	/* Ieee/output.scm 271 */
						obj_t BgL_tmpz00_4000;

						BgL_tmpz00_4000 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_portz00_1609 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4000);
					}
				else
					{	/* Ieee/output.scm 269 */
						if (PAIRP(BgL_portz00_3))
							{	/* Ieee/output.scm 269 */
								if (NULLP(CDR(((obj_t) BgL_portz00_3))))
									{	/* Ieee/output.scm 269 */
										BgL_portz00_1609 = CAR(BgL_portz00_3);
									}
								else
									{	/* Ieee/output.scm 269 */
										BgL_portz00_1609 =
											BGl_errorz00zz__errorz00
											(BGl_string2285z00zz__r4_output_6_10_3z00,
											BGl_string2286z00zz__r4_output_6_10_3z00, BgL_portz00_3);
									}
							}
						else
							{	/* Ieee/output.scm 269 */
								BgL_portz00_1609 =
									BGl_errorz00zz__errorz00
									(BGl_string2285z00zz__r4_output_6_10_3z00,
									BGl_string2286z00zz__r4_output_6_10_3z00, BgL_portz00_3);
							}
					}
				{	/* Ieee/output.scm 284 */
					obj_t BgL_tmpz00_4012;

					BgL_tmpz00_4012 = ((obj_t) BgL_portz00_1609);
					return bgl_display_char(((unsigned char) 10), BgL_tmpz00_4012);
		}}}

	}



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

	}



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

	}



/* &newline-1 */
	obj_t BGl_z62newlinezd21zb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3813,
		obj_t BgL_portz00_3814)
	{
		{	/* Ieee/output.scm 283 */
			{	/* Ieee/output.scm 284 */
				obj_t BgL_auxz00_4017;

				if (OUTPUT_PORTP(BgL_portz00_3814))
					{	/* Ieee/output.scm 284 */
						BgL_auxz00_4017 = BgL_portz00_3814;
					}
				else
					{
						obj_t BgL_auxz00_4020;

						BgL_auxz00_4020 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(10780L),
							BGl_string2288z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3814);
						FAILURE(BgL_auxz00_4020, BFALSE, BFALSE);
					}
				return BGl_newlinezd21zd2zz__r4_output_6_10_3z00(BgL_auxz00_4017);
			}
		}

	}



/* display */
	BGL_EXPORTED_DEF obj_t BGl_displayz00zz__r4_output_6_10_3z00(obj_t
		BgL_objz00_5, obj_t BgL_portz00_6)
	{
		{	/* Ieee/output.scm 289 */
			{	/* Ieee/output.scm 290 */
				obj_t BgL_portz00_1619;

				if (NULLP(BgL_portz00_6))
					{	/* Ieee/output.scm 292 */
						obj_t BgL_tmpz00_4027;

						BgL_tmpz00_4027 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_portz00_1619 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4027);
					}
				else
					{	/* Ieee/output.scm 290 */
						if (PAIRP(BgL_portz00_6))
							{	/* Ieee/output.scm 290 */
								if (NULLP(CDR(((obj_t) BgL_portz00_6))))
									{	/* Ieee/output.scm 290 */
										BgL_portz00_1619 = CAR(BgL_portz00_6);
									}
								else
									{	/* Ieee/output.scm 290 */
										BgL_portz00_1619 =
											BGl_errorz00zz__errorz00
											(BGl_string2290z00zz__r4_output_6_10_3z00,
											BGl_string2286z00zz__r4_output_6_10_3z00, BgL_portz00_6);
									}
							}
						else
							{	/* Ieee/output.scm 290 */
								BgL_portz00_1619 =
									BGl_errorz00zz__errorz00
									(BGl_string2290z00zz__r4_output_6_10_3z00,
									BGl_string2286z00zz__r4_output_6_10_3z00, BgL_portz00_6);
							}
					}
				return bgl_display_obj(BgL_objz00_5, BgL_portz00_1619);
			}
		}

	}



/* &display */
	obj_t BGl_z62displayz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3815,
		obj_t BgL_objz00_3816, obj_t BgL_portz00_3817)
	{
		{	/* Ieee/output.scm 289 */
			return
				BGl_displayz00zz__r4_output_6_10_3z00(BgL_objz00_3816,
				BgL_portz00_3817);
		}

	}



/* write */
	BGL_EXPORTED_DEF obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t BgL_objz00_7,
		obj_t BgL_portz00_8)
	{
		{	/* Ieee/output.scm 304 */
			{	/* Ieee/output.scm 305 */
				obj_t BgL_portz00_1629;

				if (NULLP(BgL_portz00_8))
					{	/* Ieee/output.scm 307 */
						obj_t BgL_tmpz00_4043;

						BgL_tmpz00_4043 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_portz00_1629 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4043);
					}
				else
					{	/* Ieee/output.scm 305 */
						if (PAIRP(BgL_portz00_8))
							{	/* Ieee/output.scm 305 */
								if (NULLP(CDR(((obj_t) BgL_portz00_8))))
									{	/* Ieee/output.scm 305 */
										BgL_portz00_1629 = CAR(BgL_portz00_8);
									}
								else
									{	/* Ieee/output.scm 305 */
										BgL_portz00_1629 =
											BGl_errorz00zz__errorz00
											(BGl_string2291z00zz__r4_output_6_10_3z00,
											BGl_string2286z00zz__r4_output_6_10_3z00, BgL_portz00_8);
									}
							}
						else
							{	/* Ieee/output.scm 305 */
								BgL_portz00_1629 =
									BGl_errorz00zz__errorz00
									(BGl_string2291z00zz__r4_output_6_10_3z00,
									BGl_string2286z00zz__r4_output_6_10_3z00, BgL_portz00_8);
							}
					}
				return bgl_write_obj(BgL_objz00_7, BgL_portz00_1629);
			}
		}

	}



/* &write */
	obj_t BGl_z62writez62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3818,
		obj_t BgL_objz00_3819, obj_t BgL_portz00_3820)
	{
		{	/* Ieee/output.scm 304 */
			return
				BGl_writez00zz__r4_output_6_10_3z00(BgL_objz00_3819, BgL_portz00_3820);
		}

	}



/* _write-char */
	obj_t BGl__writezd2charzd2zz__r4_output_6_10_3z00(obj_t BgL_env1156z00_12,
		obj_t BgL_opt1155z00_11)
	{
		{	/* Ieee/output.scm 319 */
			{	/* Ieee/output.scm 319 */
				obj_t BgL_g1157z00_1639;

				{
					obj_t BgL_auxz00_4057;

					if (VECTORP(BgL_opt1155z00_11))
						{	/* Ieee/output.scm 319 */
							BgL_auxz00_4057 = BgL_opt1155z00_11;
						}
					else
						{
							obj_t BgL_auxz00_4060;

							BgL_auxz00_4060 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(11959L),
								BGl_string2292z00zz__r4_output_6_10_3z00,
								BGl_string2293z00zz__r4_output_6_10_3z00, BgL_opt1155z00_11);
							FAILURE(BgL_auxz00_4060, BFALSE, BFALSE);
						}
					BgL_g1157z00_1639 = VECTOR_REF(BgL_auxz00_4057, 0L);
				}
				{	/* Ieee/output.scm 319 */
					long BgL_aux1159z00_1641;

					{
						obj_t BgL_auxz00_4065;

						if (VECTORP(BgL_opt1155z00_11))
							{	/* Ieee/output.scm 319 */
								BgL_auxz00_4065 = BgL_opt1155z00_11;
							}
						else
							{
								obj_t BgL_auxz00_4068;

								BgL_auxz00_4068 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(11959L),
									BGl_string2292z00zz__r4_output_6_10_3z00,
									BGl_string2293z00zz__r4_output_6_10_3z00, BgL_opt1155z00_11);
								FAILURE(BgL_auxz00_4068, BFALSE, BFALSE);
							}
						BgL_aux1159z00_1641 = VECTOR_LENGTH(BgL_auxz00_4065);
					}
					switch (BgL_aux1159z00_1641)
						{
						case 1L:

							{	/* Ieee/output.scm 319 */
								obj_t BgL_portz00_1642;

								{	/* Ieee/output.scm 319 */
									obj_t BgL_tmpz00_4073;

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

									{	/* Ieee/output.scm 319 */
										unsigned char BgL_charz00_2773;

										{	/* Ieee/output.scm 319 */
											obj_t BgL_tmpz00_4076;

											if (CHARP(BgL_g1157z00_1639))
												{	/* Ieee/output.scm 319 */
													BgL_tmpz00_4076 = BgL_g1157z00_1639;
												}
											else
												{
													obj_t BgL_auxz00_4079;

													BgL_auxz00_4079 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2287z00zz__r4_output_6_10_3z00,
														BINT(11959L),
														BGl_string2292z00zz__r4_output_6_10_3z00,
														BGl_string2294z00zz__r4_output_6_10_3z00,
														BgL_g1157z00_1639);
													FAILURE(BgL_auxz00_4079, BFALSE, BFALSE);
												}
											BgL_charz00_2773 = CCHAR(BgL_tmpz00_4076);
										}
										return bgl_display_char(BgL_charz00_2773, BgL_portz00_1642);
									}
								}
							}
							break;
						case 2L:

							{	/* Ieee/output.scm 319 */
								obj_t BgL_portz00_1643;

								{
									obj_t BgL_auxz00_4085;

									if (VECTORP(BgL_opt1155z00_11))
										{	/* Ieee/output.scm 319 */
											BgL_auxz00_4085 = BgL_opt1155z00_11;
										}
									else
										{
											obj_t BgL_auxz00_4088;

											BgL_auxz00_4088 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(11959L),
												BGl_string2292z00zz__r4_output_6_10_3z00,
												BGl_string2293z00zz__r4_output_6_10_3z00,
												BgL_opt1155z00_11);
											FAILURE(BgL_auxz00_4088, BFALSE, BFALSE);
										}
									BgL_portz00_1643 = VECTOR_REF(BgL_auxz00_4085, 1L);
								}
								{	/* Ieee/output.scm 319 */

									{	/* Ieee/output.scm 319 */
										unsigned char BgL_charz00_2776;

										{	/* Ieee/output.scm 319 */
											obj_t BgL_tmpz00_4093;

											if (CHARP(BgL_g1157z00_1639))
												{	/* Ieee/output.scm 319 */
													BgL_tmpz00_4093 = BgL_g1157z00_1639;
												}
											else
												{
													obj_t BgL_auxz00_4096;

													BgL_auxz00_4096 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2287z00zz__r4_output_6_10_3z00,
														BINT(11959L),
														BGl_string2292z00zz__r4_output_6_10_3z00,
														BGl_string2294z00zz__r4_output_6_10_3z00,
														BgL_g1157z00_1639);
													FAILURE(BgL_auxz00_4096, BFALSE, BFALSE);
												}
											BgL_charz00_2776 = CCHAR(BgL_tmpz00_4093);
										}
										{	/* Ieee/output.scm 320 */
											obj_t BgL_portz00_2778;

											if (OUTPUT_PORTP(BgL_portz00_1643))
												{	/* Ieee/output.scm 320 */
													BgL_portz00_2778 = BgL_portz00_1643;
												}
											else
												{
													obj_t BgL_auxz00_4103;

													BgL_auxz00_4103 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2287z00zz__r4_output_6_10_3z00,
														BINT(12047L),
														BGl_string2292z00zz__r4_output_6_10_3z00,
														BGl_string2289z00zz__r4_output_6_10_3z00,
														BgL_portz00_1643);
													FAILURE(BgL_auxz00_4103, BFALSE, BFALSE);
												}
											return
												bgl_display_char(BgL_charz00_2776, BgL_portz00_2778);
										}
									}
								}
							}
							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 319 */
			{	/* Ieee/output.scm 326 */
				obj_t BgL_tmpz00_4109;

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

	}



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

	}



/* &write-char-2 */
	obj_t BGl_z62writezd2charzd22z62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3821,
		obj_t BgL_charz00_3822, obj_t BgL_portz00_3823)
	{
		{	/* Ieee/output.scm 325 */
			{	/* Ieee/output.scm 326 */
				obj_t BgL_auxz00_4122;
				unsigned char BgL_auxz00_4113;

				if (OUTPUT_PORTP(BgL_portz00_3823))
					{	/* Ieee/output.scm 326 */
						BgL_auxz00_4122 = BgL_portz00_3823;
					}
				else
					{
						obj_t BgL_auxz00_4125;

						BgL_auxz00_4125 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(12340L),
							BGl_string2295z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3823);
						FAILURE(BgL_auxz00_4125, BFALSE, BFALSE);
					}
				{	/* Ieee/output.scm 326 */
					obj_t BgL_tmpz00_4114;

					if (CHARP(BgL_charz00_3822))
						{	/* Ieee/output.scm 326 */
							BgL_tmpz00_4114 = BgL_charz00_3822;
						}
					else
						{
							obj_t BgL_auxz00_4117;

							BgL_auxz00_4117 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(12340L),
								BGl_string2295z00zz__r4_output_6_10_3z00,
								BGl_string2294z00zz__r4_output_6_10_3z00, BgL_charz00_3822);
							FAILURE(BgL_auxz00_4117, BFALSE, BFALSE);
						}
					BgL_auxz00_4113 = CCHAR(BgL_tmpz00_4114);
				}
				return
					BGl_writezd2charzd22z00zz__r4_output_6_10_3z00(BgL_auxz00_4113,
					BgL_auxz00_4122);
			}
		}

	}



/* _write-byte */
	obj_t BGl__writezd2bytezd2zz__r4_output_6_10_3z00(obj_t BgL_env1161z00_18,
		obj_t BgL_opt1160z00_17)
	{
		{	/* Ieee/output.scm 331 */
			{	/* Ieee/output.scm 331 */
				obj_t BgL_g1162z00_1644;

				{
					obj_t BgL_auxz00_4130;

					if (VECTORP(BgL_opt1160z00_17))
						{	/* Ieee/output.scm 331 */
							BgL_auxz00_4130 = BgL_opt1160z00_17;
						}
					else
						{
							obj_t BgL_auxz00_4133;

							BgL_auxz00_4133 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(12591L),
								BGl_string2296z00zz__r4_output_6_10_3z00,
								BGl_string2293z00zz__r4_output_6_10_3z00, BgL_opt1160z00_17);
							FAILURE(BgL_auxz00_4133, BFALSE, BFALSE);
						}
					BgL_g1162z00_1644 = VECTOR_REF(BgL_auxz00_4130, 0L);
				}
				{	/* Ieee/output.scm 331 */
					long BgL_aux1164z00_1646;

					{
						obj_t BgL_auxz00_4138;

						if (VECTORP(BgL_opt1160z00_17))
							{	/* Ieee/output.scm 331 */
								BgL_auxz00_4138 = BgL_opt1160z00_17;
							}
						else
							{
								obj_t BgL_auxz00_4141;

								BgL_auxz00_4141 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(12591L),
									BGl_string2296z00zz__r4_output_6_10_3z00,
									BGl_string2293z00zz__r4_output_6_10_3z00, BgL_opt1160z00_17);
								FAILURE(BgL_auxz00_4141, BFALSE, BFALSE);
							}
						BgL_aux1164z00_1646 = VECTOR_LENGTH(BgL_auxz00_4138);
					}
					switch (BgL_aux1164z00_1646)
						{
						case 1L:

							{	/* Ieee/output.scm 331 */
								obj_t BgL_portz00_1647;

								{	/* Ieee/output.scm 331 */
									obj_t BgL_tmpz00_4146;

									BgL_tmpz00_4146 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_portz00_1647 =
										BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4146);
								}
								{	/* Ieee/output.scm 331 */

									{	/* Ieee/output.scm 331 */
										unsigned char BgL_bytez00_2782;

										{	/* Ieee/output.scm 331 */
											obj_t BgL_tmpz00_4149;

											if (INTEGERP(BgL_g1162z00_1644))
												{	/* Ieee/output.scm 331 */
													BgL_tmpz00_4149 = BgL_g1162z00_1644;
												}
											else
												{
													obj_t BgL_auxz00_4152;

													BgL_auxz00_4152 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2287z00zz__r4_output_6_10_3z00,
														BINT(12591L),
														BGl_string2296z00zz__r4_output_6_10_3z00,
														BGl_string2297z00zz__r4_output_6_10_3z00,
														BgL_g1162z00_1644);
													FAILURE(BgL_auxz00_4152, BFALSE, BFALSE);
												}
											BgL_bytez00_2782 = (unsigned char) CINT(BgL_tmpz00_4149);
										}
										return bgl_display_char(BgL_bytez00_2782, BgL_portz00_1647);
									}
								}
							}
							break;
						case 2L:

							{	/* Ieee/output.scm 331 */
								obj_t BgL_portz00_1648;

								{
									obj_t BgL_auxz00_4158;

									if (VECTORP(BgL_opt1160z00_17))
										{	/* Ieee/output.scm 331 */
											BgL_auxz00_4158 = BgL_opt1160z00_17;
										}
									else
										{
											obj_t BgL_auxz00_4161;

											BgL_auxz00_4161 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(12591L),
												BGl_string2296z00zz__r4_output_6_10_3z00,
												BGl_string2293z00zz__r4_output_6_10_3z00,
												BgL_opt1160z00_17);
											FAILURE(BgL_auxz00_4161, BFALSE, BFALSE);
										}
									BgL_portz00_1648 = VECTOR_REF(BgL_auxz00_4158, 1L);
								}
								{	/* Ieee/output.scm 331 */

									{	/* Ieee/output.scm 331 */
										unsigned char BgL_bytez00_2785;

										{	/* Ieee/output.scm 331 */
											obj_t BgL_tmpz00_4166;

											if (INTEGERP(BgL_g1162z00_1644))
												{	/* Ieee/output.scm 331 */
													BgL_tmpz00_4166 = BgL_g1162z00_1644;
												}
											else
												{
													obj_t BgL_auxz00_4169;

													BgL_auxz00_4169 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2287z00zz__r4_output_6_10_3z00,
														BINT(12591L),
														BGl_string2296z00zz__r4_output_6_10_3z00,
														BGl_string2297z00zz__r4_output_6_10_3z00,
														BgL_g1162z00_1644);
													FAILURE(BgL_auxz00_4169, BFALSE, BFALSE);
												}
											BgL_bytez00_2785 = (unsigned char) CINT(BgL_tmpz00_4166);
										}
										{	/* Ieee/output.scm 332 */
											obj_t BgL_portz00_2787;

											if (OUTPUT_PORTP(BgL_portz00_1648))
												{	/* Ieee/output.scm 332 */
													BgL_portz00_2787 = BgL_portz00_1648;
												}
											else
												{
													obj_t BgL_auxz00_4176;

													BgL_auxz00_4176 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2287z00zz__r4_output_6_10_3z00,
														BINT(12679L),
														BGl_string2296z00zz__r4_output_6_10_3z00,
														BGl_string2289z00zz__r4_output_6_10_3z00,
														BgL_portz00_1648);
													FAILURE(BgL_auxz00_4176, BFALSE, BFALSE);
												}
											return
												bgl_display_char(BgL_bytez00_2785, BgL_portz00_2787);
										}
									}
								}
							}
							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 331 */
			{	/* Ieee/output.scm 338 */
				obj_t BgL_tmpz00_4182;

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

	}



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

	}



/* &write-byte-2 */
	obj_t BGl_z62writezd2bytezd22z62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3824,
		obj_t BgL_bytez00_3825, obj_t BgL_portz00_3826)
	{
		{	/* Ieee/output.scm 337 */
			{	/* Ieee/output.scm 338 */
				obj_t BgL_auxz00_4195;
				unsigned char BgL_auxz00_4186;

				if (OUTPUT_PORTP(BgL_portz00_3826))
					{	/* Ieee/output.scm 338 */
						BgL_auxz00_4195 = BgL_portz00_3826;
					}
				else
					{
						obj_t BgL_auxz00_4198;

						BgL_auxz00_4198 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(12972L),
							BGl_string2298z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3826);
						FAILURE(BgL_auxz00_4198, BFALSE, BFALSE);
					}
				{	/* Ieee/output.scm 338 */
					obj_t BgL_tmpz00_4187;

					if (INTEGERP(BgL_bytez00_3825))
						{	/* Ieee/output.scm 338 */
							BgL_tmpz00_4187 = BgL_bytez00_3825;
						}
					else
						{
							obj_t BgL_auxz00_4190;

							BgL_auxz00_4190 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(12972L),
								BGl_string2298z00zz__r4_output_6_10_3z00,
								BGl_string2297z00zz__r4_output_6_10_3z00, BgL_bytez00_3825);
							FAILURE(BgL_auxz00_4190, BFALSE, BFALSE);
						}
					BgL_auxz00_4186 = (unsigned char) CINT(BgL_tmpz00_4187);
				}
				return
					BGl_writezd2bytezd22z00zz__r4_output_6_10_3z00(BgL_auxz00_4186,
					BgL_auxz00_4195);
			}
		}

	}



/* illegal-char-rep */
	BGL_EXPORTED_DEF obj_t
		BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(unsigned char
		BgL_charz00_21)
	{
		{	/* Ieee/output.scm 343 */
			{	/* Ieee/output.scm 344 */
				bool_t BgL_test2518z00_4203;

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

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

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

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

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

								return BGl_string2302z00zz__r4_output_6_10_3z00;
								break;
							default:
								{	/* Ieee/output.scm 356 */
									long BgL_iz00_1654;

									BgL_iz00_1654 = (BgL_charz00_21);
									if ((BgL_iz00_1654 < 33L))
										{	/* Ieee/output.scm 357 */
											BGL_TAIL return bgl_ill_char_rep(BgL_charz00_21);
										}
									else
										{	/* Ieee/output.scm 357 */
											return BCHAR(BgL_charz00_21);
										}
								}
							}
					}
			}
		}

	}



/* &illegal-char-rep */
	obj_t BGl_z62illegalzd2charzd2repz62zz__r4_output_6_10_3z00(obj_t
		BgL_envz00_3827, obj_t BgL_charz00_3828)
	{
		{	/* Ieee/output.scm 343 */
			{	/* Ieee/output.scm 344 */
				unsigned char BgL_auxz00_4214;

				{	/* Ieee/output.scm 344 */
					obj_t BgL_tmpz00_4215;

					if (CHARP(BgL_charz00_3828))
						{	/* Ieee/output.scm 344 */
							BgL_tmpz00_4215 = BgL_charz00_3828;
						}
					else
						{
							obj_t BgL_auxz00_4218;

							BgL_auxz00_4218 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(13257L),
								BGl_string2303z00zz__r4_output_6_10_3z00,
								BGl_string2294z00zz__r4_output_6_10_3z00, BgL_charz00_3828);
							FAILURE(BgL_auxz00_4218, BFALSE, BFALSE);
						}
					BgL_auxz00_4214 = CCHAR(BgL_tmpz00_4215);
				}
				return
					BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(BgL_auxz00_4214);
			}
		}

	}



/* print */
	BGL_EXPORTED_DEF obj_t BGl_printz00zz__r4_output_6_10_3z00(obj_t
		BgL_objz00_22)
	{
		{	/* Ieee/output.scm 364 */
			{	/* Ieee/output.scm 365 */
				obj_t BgL_portz00_1657;

				{	/* Ieee/output.scm 365 */
					obj_t BgL_tmpz00_4224;

					BgL_tmpz00_4224 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_portz00_1657 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4224);
				}
				{
					obj_t BgL_lz00_2806;
					obj_t BgL_resz00_2807;

					BgL_lz00_2806 = BgL_objz00_22;
					BgL_resz00_2807 = BNIL;
				BgL_loopz00_2805:
					if (NULLP(BgL_lz00_2806))
						{	/* Ieee/output.scm 368 */
							bgl_display_char(((unsigned char) 10), BgL_portz00_1657);
							return BgL_resz00_2807;
						}
					else
						{	/* Ieee/output.scm 372 */
							obj_t BgL_vz00_2812;

							BgL_vz00_2812 = CAR(((obj_t) BgL_lz00_2806));
							bgl_display_obj(BgL_vz00_2812, BgL_portz00_1657);
							{	/* Ieee/output.scm 374 */
								obj_t BgL_arg1301z00_2813;

								BgL_arg1301z00_2813 = CDR(((obj_t) BgL_lz00_2806));
								{
									obj_t BgL_resz00_4236;
									obj_t BgL_lz00_4235;

									BgL_lz00_4235 = BgL_arg1301z00_2813;
									BgL_resz00_4236 = BgL_vz00_2812;
									BgL_resz00_2807 = BgL_resz00_4236;
									BgL_lz00_2806 = BgL_lz00_4235;
									goto BgL_loopz00_2805;
								}
							}
						}
				}
			}
		}

	}



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

	}



/* display* */
	BGL_EXPORTED_DEF obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t
		BgL_objz00_23)
	{
		{	/* Ieee/output.scm 379 */
			{	/* Ieee/output.scm 380 */
				obj_t BgL_portz00_1667;

				{	/* Ieee/output.scm 380 */
					obj_t BgL_tmpz00_4238;

					BgL_tmpz00_4238 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_portz00_1667 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4238);
				}
				{
					obj_t BgL_lz00_1669;

					BgL_lz00_1669 = BgL_objz00_23;
				BgL_zc3z04anonymousza31302ze3z87_1670:
					if (NULLP(BgL_lz00_1669))
						{	/* Ieee/output.scm 382 */
							return BUNSPEC;
						}
					else
						{	/* Ieee/output.scm 382 */
							{	/* Ieee/output.scm 385 */
								obj_t BgL_arg1322z00_1673;

								BgL_arg1322z00_1673 = CAR(((obj_t) BgL_lz00_1669));
								bgl_display_obj(BgL_arg1322z00_1673, BgL_portz00_1667);
							}
							{	/* Ieee/output.scm 386 */
								obj_t BgL_arg1329z00_1674;

								BgL_arg1329z00_1674 = CDR(((obj_t) BgL_lz00_1669));
								{
									obj_t BgL_lz00_4248;

									BgL_lz00_4248 = BgL_arg1329z00_1674;
									BgL_lz00_1669 = BgL_lz00_4248;
									goto BgL_zc3z04anonymousza31302ze3z87_1670;
								}
							}
						}
				}
			}
		}

	}



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

	}



/* write* */
	BGL_EXPORTED_DEF obj_t BGl_writeza2za2zz__r4_output_6_10_3z00(obj_t
		BgL_objz00_24)
	{
		{	/* Ieee/output.scm 391 */
			{	/* Ieee/output.scm 392 */
				obj_t BgL_portz00_1676;

				{	/* Ieee/output.scm 392 */
					obj_t BgL_tmpz00_4250;

					BgL_tmpz00_4250 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_portz00_1676 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4250);
				}
				{
					obj_t BgL_lz00_1678;

					BgL_lz00_1678 = BgL_objz00_24;
				BgL_zc3z04anonymousza31330ze3z87_1679:
					if (NULLP(BgL_lz00_1678))
						{	/* Ieee/output.scm 394 */
							return BUNSPEC;
						}
					else
						{	/* Ieee/output.scm 394 */
							{	/* Ieee/output.scm 397 */
								obj_t BgL_arg1332z00_1682;

								BgL_arg1332z00_1682 = CAR(((obj_t) BgL_lz00_1678));
								bgl_write_obj(BgL_arg1332z00_1682, BgL_portz00_1676);
							}
							{	/* Ieee/output.scm 398 */
								obj_t BgL_arg1333z00_1683;

								BgL_arg1333z00_1683 = CDR(((obj_t) BgL_lz00_1678));
								{
									obj_t BgL_lz00_4260;

									BgL_lz00_4260 = BgL_arg1333z00_1683;
									BgL_lz00_1678 = BgL_lz00_4260;
									goto BgL_zc3z04anonymousza31330ze3z87_1679;
								}
							}
						}
				}
			}
		}

	}



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

	}



/* tprint */
	BGL_EXPORTED_DEF obj_t BGl_tprintz00zz__r4_output_6_10_3z00(obj_t
		BgL_portz00_25, obj_t BgL_objz00_26)
	{
		{	/* Ieee/output.scm 408 */
			{	/* Ieee/output.scm 409 */
				obj_t BgL_top2526z00_4263;

				BgL_top2526z00_4263 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2526z00_4263,
					BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00);
				BUNSPEC;
				{	/* Ieee/output.scm 409 */
					obj_t BgL_tmp2525z00_4262;

					{	/* Ieee/output.scm 410 */
						obj_t BgL_runner1336z00_2824;

						{	/* Ieee/output.scm 410 */
							obj_t BgL_list1334z00_2825;

							BgL_list1334z00_2825 = MAKE_YOUNG_PAIR(BgL_objz00_26, BNIL);
							BgL_runner1336z00_2824 =
								BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_portz00_25,
								BgL_list1334z00_2825);
						}
						{	/* Ieee/output.scm 410 */
							obj_t BgL_aux1335z00_2826;

							BgL_aux1335z00_2826 = CAR(BgL_runner1336z00_2824);
							BgL_runner1336z00_2824 = CDR(BgL_runner1336z00_2824);
							BGl_fprintz00zz__r4_output_6_10_3z00(BgL_aux1335z00_2826,
								BgL_runner1336z00_2824);
						}
					}
					BgL_tmp2525z00_4262 = bgl_flush_output_port(BgL_portz00_25);
					BGL_EXITD_POP_PROTECT(BgL_top2526z00_4263);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_tprintzd2mutexzd2zz__r4_output_6_10_3z00);
					return BgL_tmp2525z00_4262;
				}
			}
		}

	}



/* &tprint */
	obj_t BGl_z62tprintz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3835,
		obj_t BgL_portz00_3836, obj_t BgL_objz00_3837)
	{
		{	/* Ieee/output.scm 408 */
			{	/* Ieee/output.scm 409 */
				obj_t BgL_auxz00_4275;

				if (OUTPUT_PORTP(BgL_portz00_3836))
					{	/* Ieee/output.scm 409 */
						BgL_auxz00_4275 = BgL_portz00_3836;
					}
				else
					{
						obj_t BgL_auxz00_4278;

						BgL_auxz00_4278 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(15406L),
							BGl_string2304z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3836);
						FAILURE(BgL_auxz00_4278, BFALSE, BFALSE);
					}
				return
					BGl_tprintz00zz__r4_output_6_10_3z00(BgL_auxz00_4275,
					BgL_objz00_3837);
			}
		}

	}



/* fprint */
	BGL_EXPORTED_DEF obj_t BGl_fprintz00zz__r4_output_6_10_3z00(obj_t
		BgL_portz00_27, obj_t BgL_objz00_28)
	{
		{	/* Ieee/output.scm 416 */
			{
				obj_t BgL_lz00_2845;
				obj_t BgL_resz00_2846;

				BgL_lz00_2845 = BgL_objz00_28;
				BgL_resz00_2846 = BNIL;
			BgL_loopz00_2844:
				if (NULLP(BgL_lz00_2845))
					{	/* Ieee/output.scm 419 */
						bgl_display_char(((unsigned char) 10), BgL_portz00_27);
						return BgL_resz00_2846;
					}
				else
					{	/* Ieee/output.scm 423 */
						obj_t BgL_vz00_2852;

						BgL_vz00_2852 = CAR(((obj_t) BgL_lz00_2845));
						bgl_display_obj(BgL_vz00_2852, BgL_portz00_27);
						{	/* Ieee/output.scm 425 */
							obj_t BgL_arg1341z00_2854;

							BgL_arg1341z00_2854 = CDR(((obj_t) BgL_lz00_2845));
							{
								obj_t BgL_resz00_4292;
								obj_t BgL_lz00_4291;

								BgL_lz00_4291 = BgL_arg1341z00_2854;
								BgL_resz00_4292 = BgL_vz00_2852;
								BgL_resz00_2846 = BgL_resz00_4292;
								BgL_lz00_2845 = BgL_lz00_4291;
								goto BgL_loopz00_2844;
							}
						}
					}
			}
		}

	}



/* &fprint */
	obj_t BGl_z62fprintz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3838,
		obj_t BgL_portz00_3839, obj_t BgL_objz00_3840)
	{
		{	/* Ieee/output.scm 416 */
			{	/* Ieee/output.scm 417 */
				obj_t BgL_auxz00_4293;

				if (OUTPUT_PORTP(BgL_portz00_3839))
					{	/* Ieee/output.scm 417 */
						BgL_auxz00_4293 = BgL_portz00_3839;
					}
				else
					{
						obj_t BgL_auxz00_4296;

						BgL_auxz00_4296 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(15749L),
							BGl_string2305z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3839);
						FAILURE(BgL_auxz00_4296, BFALSE, BFALSE);
					}
				return
					BGl_fprintz00zz__r4_output_6_10_3z00(BgL_auxz00_4293,
					BgL_objz00_3840);
			}
		}

	}



/* xprintf */
	obj_t BGl_xprintfz00zz__r4_output_6_10_3z00(obj_t BgL_procnamez00_29,
		obj_t BgL_pz00_30, obj_t BgL__fmtz00_31, obj_t BgL_objsz00_32)
	{
		{	/* Ieee/output.scm 430 */
			{	/* Ieee/output.scm 431 */
				long BgL_lenz00_1698;

				BgL_lenz00_1698 = STRING_LENGTH(BgL__fmtz00_31);
				{
					obj_t BgL_iz00_1700;
					obj_t BgL_osz00_1701;

					BgL_iz00_1700 = BINT(0L);
					BgL_osz00_1701 = BgL_objsz00_32;
				BgL_zc3z04anonymousza31342ze3z87_1702:
					{
						obj_t BgL_iz00_1768;
						obj_t BgL_numz00_1769;
						long BgL_mincolz00_1770;
						unsigned char BgL_paddingz00_1771;
						long BgL_iz00_1782;
						obj_t BgL_numz00_1783;
						obj_t BgL_pz00_1784;
						unsigned char BgL_fz00_1801;
						long BgL_iz00_1802;
						bool_t BgL_altzf3zf3_1803;

						if (((long) CINT(BgL_iz00_1700) < BgL_lenz00_1698))
							{	/* Ieee/output.scm 569 */
								unsigned char BgL_cz00_1711;

								BgL_cz00_1711 =
									STRING_REF(BgL__fmtz00_31, (long) CINT(BgL_iz00_1700));
								if ((BgL_cz00_1711 == ((unsigned char) '~')))
									{	/* Ieee/output.scm 570 */
										if (((long) CINT(BgL_iz00_1700) == (BgL_lenz00_1698 - 1L)))
											{	/* Ieee/output.scm 572 */
												return
													BGl_errorz00zz__errorz00(BgL_procnamez00_29,
													BGl_string2314z00zz__r4_output_6_10_3z00,
													c_substring(BgL__fmtz00_31,
														(long) CINT(BgL_iz00_1700), BgL_lenz00_1698));
											}
										else
											{	/* Ieee/output.scm 572 */
												if (
													(((unsigned char) ':') ==
														STRING_REF(BgL__fmtz00_31,
															((long) CINT(BgL_iz00_1700) + 1L))))
													{	/* Ieee/output.scm 576 */
														if (
															((long) CINT(BgL_iz00_1700) ==
																(BgL_lenz00_1698 - 2L)))
															{	/* Ieee/output.scm 577 */
																return
																	BGl_errorz00zz__errorz00(BgL_procnamez00_29,
																	BGl_string2314z00zz__r4_output_6_10_3z00,
																	c_substring(BgL__fmtz00_31,
																		(long) CINT(BgL_iz00_1700),
																		BgL_lenz00_1698));
															}
														else
															{	/* Ieee/output.scm 577 */
																BgL_fz00_1801 =
																	STRING_REF(BgL__fmtz00_31,
																	((long) CINT(BgL_iz00_1700) + 2L));
																BgL_iz00_1802 =
																	((long) CINT(BgL_iz00_1700) + 2L);
																BgL_altzf3zf3_1803 = ((bool_t) 1);
															BgL_zc3z04anonymousza31410ze3z87_1804:
																{

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

																			if (BgL_altzf3zf3_1803)
																				{	/* Ieee/output.scm 512 */
																					obj_t BgL_arg1412z00_1808;

																					if (NULLP(BgL_osz00_1701))
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1412z00_1808 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2306z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1801));
																						}
																					else
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1412z00_1808 =
																								CAR(((obj_t) BgL_osz00_1701));
																						}
																					BGl_displayzd2circlezd2zz__pp_circlez00
																						(BgL_arg1412z00_1808, BgL_pz00_30);
																				}
																			else
																				{	/* Ieee/output.scm 513 */
																					obj_t BgL_arg1413z00_1809;

																					if (NULLP(BgL_osz00_1701))
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1413z00_1809 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2306z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1801));
																						}
																					else
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1413z00_1809 =
																								CAR(((obj_t) BgL_osz00_1701));
																						}
																					bgl_display_obj(BgL_arg1413z00_1809,
																						BgL_pz00_30);
																				}
																			{	/* Ieee/output.scm 514 */
																				long BgL_arg1414z00_1810;
																				obj_t BgL_arg1415z00_1811;

																				BgL_arg1414z00_1810 =
																					(BgL_iz00_1802 + 1L);
																				BgL_arg1415z00_1811 =
																					CDR(((obj_t) BgL_osz00_1701));
																				{
																					obj_t BgL_osz00_4348;
																					obj_t BgL_iz00_4346;

																					BgL_iz00_4346 =
																						BINT(BgL_arg1414z00_1810);
																					BgL_osz00_4348 = BgL_arg1415z00_1811;
																					BgL_osz00_1701 = BgL_osz00_4348;
																					BgL_iz00_1700 = BgL_iz00_4346;
																					goto
																						BgL_zc3z04anonymousza31342ze3z87_1702;
																				}
																			}
																			break;
																		case ((unsigned char) 's'):
																		case ((unsigned char) 'S'):

																			if (BgL_altzf3zf3_1803)
																				{	/* Ieee/output.scm 517 */
																					obj_t BgL_arg1416z00_1812;

																					if (NULLP(BgL_osz00_1701))
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1416z00_1812 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2306z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1801));
																						}
																					else
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1416z00_1812 =
																								CAR(((obj_t) BgL_osz00_1701));
																						}
																					BGl_writezd2circlezd2zz__pp_circlez00
																						(BgL_arg1416z00_1812, BgL_pz00_30);
																				}
																			else
																				{	/* Ieee/output.scm 518 */
																					obj_t BgL_arg1417z00_1813;

																					if (NULLP(BgL_osz00_1701))
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1417z00_1813 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2306z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1801));
																						}
																					else
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1417z00_1813 =
																								CAR(((obj_t) BgL_osz00_1701));
																						}
																					{	/* Ieee/output.scm 518 */
																						obj_t BgL_list1418z00_1814;

																						BgL_list1418z00_1814 =
																							MAKE_YOUNG_PAIR(BgL_pz00_30,
																							BNIL);
																						BGl_writez00zz__r4_output_6_10_3z00
																							(BgL_arg1417z00_1813,
																							BgL_list1418z00_1814);
																					}
																				}
																			{	/* Ieee/output.scm 519 */
																				long BgL_arg1419z00_1815;
																				obj_t BgL_arg1420z00_1816;

																				BgL_arg1419z00_1815 =
																					(BgL_iz00_1802 + 1L);
																				BgL_arg1420z00_1816 =
																					CDR(((obj_t) BgL_osz00_1701));
																				{
																					obj_t BgL_osz00_4370;
																					obj_t BgL_iz00_4368;

																					BgL_iz00_4368 =
																						BINT(BgL_arg1419z00_1815);
																					BgL_osz00_4370 = BgL_arg1420z00_1816;
																					BgL_osz00_1701 = BgL_osz00_4370;
																					BgL_iz00_1700 = BgL_iz00_4368;
																					goto
																						BgL_zc3z04anonymousza31342ze3z87_1702;
																				}
																			}
																			break;
																		case ((unsigned char) 'v'):
																		case ((unsigned char) 'V'):

																			if (BgL_altzf3zf3_1803)
																				{	/* Ieee/output.scm 522 */
																					obj_t BgL_arg1421z00_1817;

																					if (NULLP(BgL_osz00_1701))
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1421z00_1817 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2306z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1801));
																						}
																					else
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1421z00_1817 =
																								CAR(((obj_t) BgL_osz00_1701));
																						}
																					BGl_displayzd2circlezd2zz__pp_circlez00
																						(BgL_arg1421z00_1817, BgL_pz00_30);
																				}
																			else
																				{	/* Ieee/output.scm 523 */
																					obj_t BgL_arg1422z00_1818;

																					if (NULLP(BgL_osz00_1701))
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1422z00_1818 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2306z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1801));
																						}
																					else
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1422z00_1818 =
																								CAR(((obj_t) BgL_osz00_1701));
																						}
																					bgl_display_obj(BgL_arg1422z00_1818,
																						BgL_pz00_30);
																				}
																			bgl_display_char(((unsigned char) 10),
																				BgL_pz00_30);
																			{	/* Ieee/output.scm 525 */
																				long BgL_arg1423z00_1819;
																				obj_t BgL_arg1424z00_1820;

																				BgL_arg1423z00_1819 =
																					(BgL_iz00_1802 + 1L);
																				BgL_arg1424z00_1820 =
																					CDR(((obj_t) BgL_osz00_1701));
																				{
																					obj_t BgL_osz00_4392;
																					obj_t BgL_iz00_4390;

																					BgL_iz00_4390 =
																						BINT(BgL_arg1423z00_1819);
																					BgL_osz00_4392 = BgL_arg1424z00_1820;
																					BgL_osz00_1701 = BgL_osz00_4392;
																					BgL_iz00_1700 = BgL_iz00_4390;
																					goto
																						BgL_zc3z04anonymousza31342ze3z87_1702;
																				}
																			}
																			break;
																		case ((unsigned char) 'c'):
																		case ((unsigned char) 'C'):

																			{	/* Ieee/output.scm 527 */
																				obj_t BgL_oz00_1821;

																				if (NULLP(BgL_osz00_1701))
																					{	/* Ieee/output.scm 436 */
																						BgL_oz00_1821 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2306z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1801));
																					}
																				else
																					{	/* Ieee/output.scm 436 */
																						BgL_oz00_1821 =
																							CAR(((obj_t) BgL_osz00_1701));
																					}
																				if (CHARP(BgL_oz00_1821))
																					{	/* Ieee/output.scm 528 */
																						{	/* Ieee/output.scm 326 */
																							unsigned char BgL_tmpz00_4401;

																							BgL_tmpz00_4401 =
																								CCHAR(BgL_oz00_1821);
																							bgl_display_char(BgL_tmpz00_4401,
																								BgL_pz00_30);
																						}
																						{	/* Ieee/output.scm 532 */
																							long BgL_arg1426z00_1823;
																							obj_t BgL_arg1427z00_1824;

																							BgL_arg1426z00_1823 =
																								(BgL_iz00_1802 + 1L);
																							BgL_arg1427z00_1824 =
																								CDR(((obj_t) BgL_osz00_1701));
																							{
																								obj_t BgL_osz00_4409;
																								obj_t BgL_iz00_4407;

																								BgL_iz00_4407 =
																									BINT(BgL_arg1426z00_1823);
																								BgL_osz00_4409 =
																									BgL_arg1427z00_1824;
																								BgL_osz00_1701 = BgL_osz00_4409;
																								BgL_iz00_1700 = BgL_iz00_4407;
																								goto
																									BgL_zc3z04anonymousza31342ze3z87_1702;
																							}
																						}
																					}
																				else
																					{	/* Ieee/output.scm 528 */
																						return
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2309z00zz__r4_output_6_10_3z00,
																							BgL_oz00_1821);
																					}
																			}
																			break;
																		case ((unsigned char) 'd'):
																		case ((unsigned char) 'D'):

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

																				if (NULLP(BgL_osz00_1701))
																					{	/* Ieee/output.scm 436 */
																						BgL_arg1428z00_1825 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2306z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1801));
																					}
																				else
																					{	/* Ieee/output.scm 436 */
																						BgL_arg1428z00_1825 =
																							CAR(((obj_t) BgL_osz00_1701));
																					}
																				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1428z00_1825))
																					{	/* Ieee/output.scm 441 */
																						bgl_display_obj
																							(BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																							(BgL_arg1428z00_1825, BINT(10L)),
																							BgL_pz00_30);
																					}
																				else
																					{	/* Ieee/output.scm 441 */
																						BGl_bigloozd2typezd2errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2310z00zz__r4_output_6_10_3z00,
																							BgL_arg1428z00_1825);
																					}
																			}
																			{	/* Ieee/output.scm 535 */
																				long BgL_arg1429z00_1826;
																				obj_t BgL_arg1430z00_1827;

																				BgL_arg1429z00_1826 =
																					(BgL_iz00_1802 + 1L);
																				BgL_arg1430z00_1827 =
																					CDR(((obj_t) BgL_osz00_1701));
																				{
																					obj_t BgL_osz00_4428;
																					obj_t BgL_iz00_4426;

																					BgL_iz00_4426 =
																						BINT(BgL_arg1429z00_1826);
																					BgL_osz00_4428 = BgL_arg1430z00_1827;
																					BgL_osz00_1701 = BgL_osz00_4428;
																					BgL_iz00_1700 = BgL_iz00_4426;
																					goto
																						BgL_zc3z04anonymousza31342ze3z87_1702;
																				}
																			}
																			break;
																		case ((unsigned char) 'x'):
																		case ((unsigned char) 'X'):

																			{	/* Ieee/output.scm 537 */
																				obj_t BgL_arg1431z00_1828;

																				if (NULLP(BgL_osz00_1701))
																					{	/* Ieee/output.scm 436 */
																						BgL_arg1431z00_1828 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2306z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1801));
																					}
																				else
																					{	/* Ieee/output.scm 436 */
																						BgL_arg1431z00_1828 =
																							CAR(((obj_t) BgL_osz00_1701));
																					}
																				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1431z00_1828))
																					{	/* Ieee/output.scm 441 */
																						bgl_display_obj
																							(BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																							(BgL_arg1431z00_1828, BINT(16L)),
																							BgL_pz00_30);
																					}
																				else
																					{	/* Ieee/output.scm 441 */
																						BGl_bigloozd2typezd2errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2310z00zz__r4_output_6_10_3z00,
																							BgL_arg1431z00_1828);
																					}
																			}
																			{	/* Ieee/output.scm 538 */
																				long BgL_arg1432z00_1829;
																				obj_t BgL_arg1433z00_1830;

																				BgL_arg1432z00_1829 =
																					(BgL_iz00_1802 + 1L);
																				BgL_arg1433z00_1830 =
																					CDR(((obj_t) BgL_osz00_1701));
																				{
																					obj_t BgL_osz00_4446;
																					obj_t BgL_iz00_4444;

																					BgL_iz00_4444 =
																						BINT(BgL_arg1432z00_1829);
																					BgL_osz00_4446 = BgL_arg1433z00_1830;
																					BgL_osz00_1701 = BgL_osz00_4446;
																					BgL_iz00_1700 = BgL_iz00_4444;
																					goto
																						BgL_zc3z04anonymousza31342ze3z87_1702;
																				}
																			}
																			break;
																		case ((unsigned char) 'o'):
																		case ((unsigned char) 'O'):

																			{	/* Ieee/output.scm 540 */
																				obj_t BgL_arg1434z00_1831;

																				if (NULLP(BgL_osz00_1701))
																					{	/* Ieee/output.scm 436 */
																						BgL_arg1434z00_1831 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2306z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1801));
																					}
																				else
																					{	/* Ieee/output.scm 436 */
																						BgL_arg1434z00_1831 =
																							CAR(((obj_t) BgL_osz00_1701));
																					}
																				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1434z00_1831))
																					{	/* Ieee/output.scm 441 */
																						bgl_display_obj
																							(BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																							(BgL_arg1434z00_1831, BINT(8L)),
																							BgL_pz00_30);
																					}
																				else
																					{	/* Ieee/output.scm 441 */
																						BGl_bigloozd2typezd2errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2310z00zz__r4_output_6_10_3z00,
																							BgL_arg1434z00_1831);
																					}
																			}
																			{	/* Ieee/output.scm 541 */
																				long BgL_arg1435z00_1832;
																				obj_t BgL_arg1436z00_1833;

																				BgL_arg1435z00_1832 =
																					(BgL_iz00_1802 + 1L);
																				BgL_arg1436z00_1833 =
																					CDR(((obj_t) BgL_osz00_1701));
																				{
																					obj_t BgL_osz00_4464;
																					obj_t BgL_iz00_4462;

																					BgL_iz00_4462 =
																						BINT(BgL_arg1435z00_1832);
																					BgL_osz00_4464 = BgL_arg1436z00_1833;
																					BgL_osz00_1701 = BgL_osz00_4464;
																					BgL_iz00_1700 = BgL_iz00_4462;
																					goto
																						BgL_zc3z04anonymousza31342ze3z87_1702;
																				}
																			}
																			break;
																		case ((unsigned char) 'b'):
																		case ((unsigned char) 'B'):

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

																				if (NULLP(BgL_osz00_1701))
																					{	/* Ieee/output.scm 436 */
																						BgL_arg1437z00_1834 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2306z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1801));
																					}
																				else
																					{	/* Ieee/output.scm 436 */
																						BgL_arg1437z00_1834 =
																							CAR(((obj_t) BgL_osz00_1701));
																					}
																				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_arg1437z00_1834))
																					{	/* Ieee/output.scm 441 */
																						bgl_display_obj
																							(BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																							(BgL_arg1437z00_1834, BINT(2L)),
																							BgL_pz00_30);
																					}
																				else
																					{	/* Ieee/output.scm 441 */
																						BGl_bigloozd2typezd2errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2310z00zz__r4_output_6_10_3z00,
																							BgL_arg1437z00_1834);
																					}
																			}
																			{	/* Ieee/output.scm 544 */
																				long BgL_arg1438z00_1835;
																				obj_t BgL_arg1439z00_1836;

																				BgL_arg1438z00_1835 =
																					(BgL_iz00_1802 + 1L);
																				BgL_arg1439z00_1836 =
																					CDR(((obj_t) BgL_osz00_1701));
																				{
																					obj_t BgL_osz00_4482;
																					obj_t BgL_iz00_4480;

																					BgL_iz00_4480 =
																						BINT(BgL_arg1438z00_1835);
																					BgL_osz00_4482 = BgL_arg1439z00_1836;
																					BgL_osz00_1701 = BgL_osz00_4482;
																					BgL_iz00_1700 = BgL_iz00_4480;
																					goto
																						BgL_zc3z04anonymousza31342ze3z87_1702;
																				}
																			}
																			break;
																		case ((unsigned char) '%'):
																		case ((unsigned char) 'n'):

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

																				BgL_arg1442z00_1837 =
																					(BgL_iz00_1802 + 1L);
																				{
																					obj_t BgL_iz00_4485;

																					BgL_iz00_4485 =
																						BINT(BgL_arg1442z00_1837);
																					BgL_iz00_1700 = BgL_iz00_4485;
																					goto
																						BgL_zc3z04anonymousza31342ze3z87_1702;
																				}
																			}
																			break;
																		case ((unsigned char) 'r'):

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

																				BgL_arg1443z00_1838 =
																					(BgL_iz00_1802 + 1L);
																				{
																					obj_t BgL_iz00_4489;

																					BgL_iz00_4489 =
																						BINT(BgL_arg1443z00_1838);
																					BgL_iz00_1700 = BgL_iz00_4489;
																					goto
																						BgL_zc3z04anonymousza31342ze3z87_1702;
																				}
																			}
																			break;
																		case ((unsigned char) 'l'):
																		case ((unsigned char) 'L'):

																			{	/* Ieee/output.scm 552 */
																				obj_t BgL_arg1444z00_1839;

																				if (NULLP(BgL_osz00_1701))
																					{	/* Ieee/output.scm 436 */
																						BgL_arg1444z00_1839 =
																							BGl_errorz00zz__errorz00
																							(BgL_procnamez00_29,
																							BGl_string2306z00zz__r4_output_6_10_3z00,
																							BCHAR(BgL_fz00_1801));
																					}
																				else
																					{	/* Ieee/output.scm 436 */
																						BgL_arg1444z00_1839 =
																							CAR(((obj_t) BgL_osz00_1701));
																					}
																				BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00
																					(BgL_arg1444z00_1839, BgL_pz00_30,
																					BGl_string2311z00zz__r4_output_6_10_3z00);
																			}
																			{	/* Ieee/output.scm 553 */
																				long BgL_arg1445z00_1840;
																				obj_t BgL_arg1446z00_1841;

																				BgL_arg1445z00_1840 =
																					(BgL_iz00_1802 + 1L);
																				BgL_arg1446z00_1841 =
																					CDR(((obj_t) BgL_osz00_1701));
																				{
																					obj_t BgL_osz00_4503;
																					obj_t BgL_iz00_4501;

																					BgL_iz00_4501 =
																						BINT(BgL_arg1445z00_1840);
																					BgL_osz00_4503 = BgL_arg1446z00_1841;
																					BgL_osz00_1701 = BgL_osz00_4503;
																					BgL_iz00_1700 = BgL_iz00_4501;
																					goto
																						BgL_zc3z04anonymousza31342ze3z87_1702;
																				}
																			}
																			break;
																		case ((unsigned char) '('):

																			{	/* Ieee/output.scm 555 */
																				obj_t BgL_niz00_1842;

																				{	/* Ieee/output.scm 555 */
																					obj_t BgL_arg1448z00_1844;

																					if (NULLP(BgL_osz00_1701))
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1448z00_1844 =
																								BGl_errorz00zz__errorz00
																								(BgL_procnamez00_29,
																								BGl_string2306z00zz__r4_output_6_10_3z00,
																								BCHAR(BgL_fz00_1801));
																						}
																					else
																						{	/* Ieee/output.scm 436 */
																							BgL_arg1448z00_1844 =
																								CAR(((obj_t) BgL_osz00_1701));
																						}
																					{	/* Ieee/output.scm 461 */
																						obj_t BgL_jz00_2970;

																						BgL_jz00_2970 =
																							BGl_stringzd2indexzd2zz__r4_strings_6_7z00
																							(BgL__fmtz00_31,
																							BCHAR(((unsigned char) ')')),
																							BINT(BgL_iz00_1802));
																						if (CBOOL(BgL_jz00_2970))
																							{	/* Ieee/output.scm 464 */
																								obj_t BgL_sepz00_2971;

																								BgL_sepz00_2971 =
																									c_substring(BgL__fmtz00_31,
																									(BgL_iz00_1802 + 1L),
																									(long) CINT(BgL_jz00_2970));
																								BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00
																									(BgL_arg1448z00_1844,
																									BgL_pz00_30, BgL_sepz00_2971);
																								BgL_niz00_1842 =
																									ADDFX(BgL_jz00_2970,
																									BINT(1L));
																							}
																						else
																							{	/* Ieee/output.scm 462 */
																								BgL_niz00_1842 =
																									BGl_errorz00zz__errorz00
																									(BgL_procnamez00_29,
																									BGl_string2312z00zz__r4_output_6_10_3z00,
																									BgL__fmtz00_31);
																							}
																					}
																				}
																				{	/* Ieee/output.scm 556 */
																					obj_t BgL_arg1447z00_1843;

																					BgL_arg1447z00_1843 =
																						CDR(((obj_t) BgL_osz00_1701));
																					{
																						obj_t BgL_osz00_4525;
																						obj_t BgL_iz00_4524;

																						BgL_iz00_4524 = BgL_niz00_1842;
																						BgL_osz00_4525 =
																							BgL_arg1447z00_1843;
																						BgL_osz00_1701 = BgL_osz00_4525;
																						BgL_iz00_1700 = BgL_iz00_4524;
																						goto
																							BgL_zc3z04anonymousza31342ze3z87_1702;
																					}
																				}
																			}
																			break;
																		case ((unsigned char) '~'):

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

																				BgL_arg1450z00_1845 =
																					(BgL_iz00_1802 + 1L);
																				{
																					obj_t BgL_iz00_4528;

																					BgL_iz00_4528 =
																						BINT(BgL_arg1450z00_1845);
																					BgL_iz00_1700 = BgL_iz00_4528;
																					goto
																						BgL_zc3z04anonymousza31342ze3z87_1702;
																				}
																			}
																			break;
																		default:
																			if (isdigit(BgL_fz00_1801))
																				{	/* Ieee/output.scm 562 */
																					obj_t BgL_niz00_1847;

																					{	/* Ieee/output.scm 562 */
																						obj_t BgL_arg1453z00_1849;

																						if (NULLP(BgL_osz00_1701))
																							{	/* Ieee/output.scm 436 */
																								BgL_arg1453z00_1849 =
																									BGl_errorz00zz__errorz00
																									(BgL_procnamez00_29,
																									BGl_string2306z00zz__r4_output_6_10_3z00,
																									BCHAR(BgL_fz00_1801));
																							}
																						else
																							{	/* Ieee/output.scm 436 */
																								BgL_arg1453z00_1849 =
																									CAR(((obj_t) BgL_osz00_1701));
																							}
																						BgL_iz00_1782 = BgL_iz00_1802;
																						BgL_numz00_1783 =
																							BgL_arg1453z00_1849;
																						BgL_pz00_1784 = BgL_pz00_30;
																						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_numz00_1783))
																							{	/* Ieee/output.scm 491 */
																								obj_t BgL_jz00_1787;

																								BgL_jz00_1787 =
																									BGl_stringzd2skipzd2zz__r4_strings_6_7z00
																									(BgL__fmtz00_31,
																									BGl_string2313z00zz__r4_output_6_10_3z00,
																									BINT(BgL_iz00_1782));
																								if (CBOOL(BgL_jz00_1787))
																									{	/* Ieee/output.scm 493 */
																										if (
																											(STRING_REF
																												(BgL__fmtz00_31,
																													(long)
																													CINT(BgL_jz00_1787))
																												==
																												((unsigned char) ',')))
																											{	/* Ieee/output.scm 495 */
																												if (
																													((long)
																														CINT(BgL_jz00_1787)
																														==
																														(BgL_lenz00_1698 -
																															1L)))
																													{	/* Ieee/output.scm 496 */
																														BgL_niz00_1847 =
																															BGl_errorz00zz__errorz00
																															(BgL_procnamez00_29,
																															BGl_string2312z00zz__r4_output_6_10_3z00,
																															BgL__fmtz00_31);
																													}
																												else
																													{	/* Ieee/output.scm 498 */
																														long
																															BgL_arg1400z00_1792;
																														long
																															BgL_arg1401z00_1793;
																														unsigned char
																															BgL_arg1402z00_1794;
																														BgL_arg1400z00_1792
																															=
																															((long)
																															CINT
																															(BgL_jz00_1787) +
																															2L);
																														{	/* Ieee/output.scm 500 */
																															obj_t
																																BgL_arg1403z00_1795;
																															BgL_arg1403z00_1795
																																=
																																c_substring
																																(BgL__fmtz00_31,
																																BgL_iz00_1782,
																																(long)
																																CINT
																																(BgL_jz00_1787));
																															{	/* Ieee/output.scm 500 */
																																char
																																	*BgL_tmpz00_4557;
																																BgL_tmpz00_4557
																																	=
																																	BSTRING_TO_STRING
																																	(BgL_arg1403z00_1795);
																																BgL_arg1401z00_1793
																																	=
																																	BGL_STRTOL
																																	(BgL_tmpz00_4557,
																																	0L, 10L);
																														}}
																														BgL_arg1402z00_1794
																															=
																															STRING_REF
																															(BgL__fmtz00_31,
																															((long)
																																CINT
																																(BgL_jz00_1787)
																																+ 1L));
																														BgL_iz00_1768 =
																															BINT
																															(BgL_arg1400z00_1792);
																														BgL_numz00_1769 =
																															BgL_numz00_1783;
																														BgL_mincolz00_1770 =
																															BgL_arg1401z00_1793;
																														BgL_paddingz00_1771
																															=
																															BgL_arg1402z00_1794;
																													BgL_zc3z04anonymousza31388ze3z87_1772:
																														if (
																															((long)
																																CINT
																																(BgL_iz00_1768)
																																==
																																BgL_lenz00_1698))
																															{	/* Ieee/output.scm 469 */
																																BgL_niz00_1847 =
																																	BGl_errorz00zz__errorz00
																																	(BgL_procnamez00_29,
																																	BGl_string2312z00zz__r4_output_6_10_3z00,
																																	BgL__fmtz00_31);
																															}
																														else
																															{	/* Ieee/output.scm 471 */
																																obj_t
																																	BgL_sz00_1774;
																																{	/* Ieee/output.scm 471 */
																																	unsigned char
																																		BgL_aux1046z00_1780;
																																	BgL_aux1046z00_1780
																																		=
																																		STRING_REF
																																		(BgL__fmtz00_31,
																																		(long)
																																		CINT
																																		(BgL_iz00_1768));
																																	switch
																																		(BgL_aux1046z00_1780)
																																		{
																																		case ((unsigned char) 'd'):
																																		case ((unsigned char) 'D'):

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

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

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

																																			BgL_sz00_1774 = BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_numz00_1769, BINT(2L));
																																			break;
																																		default:
																																			BgL_sz00_1774 = BGl_errorz00zz__errorz00(BgL_procnamez00_29, BGl_string2312z00zz__r4_output_6_10_3z00, BgL__fmtz00_31);
																																		}
																																}
																																{	/* Ieee/output.scm 471 */
																																	long
																																		BgL_lz00_1775;
																																	BgL_lz00_1775
																																		=
																																		STRING_LENGTH
																																		(((obj_t)
																																			BgL_sz00_1774));
																																	{	/* Ieee/output.scm 482 */

																																		if (
																																			(BgL_lz00_1775
																																				<
																																				BgL_mincolz00_1770))
																																			{	/* Ieee/output.scm 483 */
																																				bgl_display_obj
																																					(make_string
																																					((BgL_mincolz00_1770 - BgL_lz00_1775), BgL_paddingz00_1771), BgL_pz00_30);
																																			}
																																		else
																																			{	/* Ieee/output.scm 483 */
																																				BFALSE;
																																			}
																																		bgl_display_obj
																																			(BgL_sz00_1774,
																																			BgL_pz00_30);
																																		BgL_niz00_1847
																																			=
																																			ADDFX
																																			(BgL_iz00_1768,
																																			BINT(1L));
																																	}
																																}
																															}
																													}
																											}
																										else
																											{	/* Ieee/output.scm 505 */
																												long
																													BgL_arg1407z00_1798;
																												{	/* Ieee/output.scm 505 */
																													obj_t
																														BgL_arg1408z00_1799;
																													BgL_arg1408z00_1799 =
																														c_substring
																														(BgL__fmtz00_31,
																														BgL_iz00_1782,
																														(long)
																														CINT
																														(BgL_jz00_1787));
																													{	/* Ieee/output.scm 505 */
																														char
																															*BgL_tmpz00_4592;
																														BgL_tmpz00_4592 =
																															BSTRING_TO_STRING
																															(BgL_arg1408z00_1799);
																														BgL_arg1407z00_1798
																															=
																															BGL_STRTOL
																															(BgL_tmpz00_4592,
																															0L, 10L);
																												}}
																												{
																													unsigned char
																														BgL_paddingz00_4598;
																													long
																														BgL_mincolz00_4597;
																													obj_t BgL_numz00_4596;
																													obj_t BgL_iz00_4595;

																													BgL_iz00_4595 =
																														BgL_jz00_1787;
																													BgL_numz00_4596 =
																														BgL_numz00_1783;
																													BgL_mincolz00_4597 =
																														BgL_arg1407z00_1798;
																													BgL_paddingz00_4598 =
																														((unsigned char)
																														' ');
																													BgL_paddingz00_1771 =
																														BgL_paddingz00_4598;
																													BgL_mincolz00_1770 =
																														BgL_mincolz00_4597;
																													BgL_numz00_1769 =
																														BgL_numz00_4596;
																													BgL_iz00_1768 =
																														BgL_iz00_4595;
																													goto
																														BgL_zc3z04anonymousza31388ze3z87_1772;
																												}
																											}
																									}
																								else
																									{	/* Ieee/output.scm 493 */
																										BgL_niz00_1847 =
																											BGl_errorz00zz__errorz00
																											(BgL_procnamez00_29,
																											BGl_string2312z00zz__r4_output_6_10_3z00,
																											BgL__fmtz00_31);
																									}
																							}
																						else
																							{	/* Ieee/output.scm 489 */
																								BgL_niz00_1847 =
																									BGl_bigloozd2typezd2errorz00zz__errorz00
																									(BgL_procnamez00_29,
																									BGl_string2310z00zz__r4_output_6_10_3z00,
																									BgL_numz00_1783);
																							}
																					}
																					{	/* Ieee/output.scm 563 */
																						obj_t BgL_arg1452z00_1848;

																						BgL_arg1452z00_1848 =
																							CDR(((obj_t) BgL_osz00_1701));
																						{
																							obj_t BgL_osz00_4604;
																							obj_t BgL_iz00_4603;

																							BgL_iz00_4603 = BgL_niz00_1847;
																							BgL_osz00_4604 =
																								BgL_arg1452z00_1848;
																							BgL_osz00_1701 = BgL_osz00_4604;
																							BgL_iz00_1700 = BgL_iz00_4603;
																							goto
																								BgL_zc3z04anonymousza31342ze3z87_1702;
																						}
																					}
																				}
																			else
																				{	/* Ieee/output.scm 566 */
																					obj_t BgL_arg1455z00_1850;

																					{	/* Ieee/output.scm 566 */
																						obj_t BgL_arg1456z00_1851;

																						{	/* Ieee/output.scm 566 */
																							obj_t BgL_list1457z00_1852;

																							BgL_list1457z00_1852 =
																								MAKE_YOUNG_PAIR(BCHAR
																								(BgL_fz00_1801), BNIL);
																							BgL_arg1456z00_1851 =
																								BGl_listzd2ze3stringz31zz__r4_strings_6_7z00
																								(BgL_list1457z00_1852);
																						}
																						BgL_arg1455z00_1850 =
																							string_append_3
																							(BGl_string2307z00zz__r4_output_6_10_3z00,
																							BgL_arg1456z00_1851,
																							BGl_string2308z00zz__r4_output_6_10_3z00);
																					}
																					return
																						BGl_errorz00zz__errorz00
																						(BgL_procnamez00_29,
																						BgL_arg1455z00_1850,
																						BgL__fmtz00_31);
																				}
																		}
																}
															}
													}
												else
													{
														bool_t BgL_altzf3zf3_4623;
														long BgL_iz00_4620;
														unsigned char BgL_fz00_4616;

														BgL_fz00_4616 =
															STRING_REF(BgL__fmtz00_31,
															((long) CINT(BgL_iz00_1700) + 1L));
														BgL_iz00_4620 = ((long) CINT(BgL_iz00_1700) + 1L);
														BgL_altzf3zf3_4623 = ((bool_t) 0);
														BgL_altzf3zf3_1803 = BgL_altzf3zf3_4623;
														BgL_iz00_1802 = BgL_iz00_4620;
														BgL_fz00_1801 = BgL_fz00_4616;
														goto BgL_zc3z04anonymousza31410ze3z87_1804;
													}
											}
									}
								else
									{	/* Ieee/output.scm 570 */
										bgl_display_char(BgL_cz00_1711, BgL_pz00_30);
										{	/* Ieee/output.scm 590 */
											long BgL_arg1366z00_1732;

											BgL_arg1366z00_1732 = ((long) CINT(BgL_iz00_1700) + 1L);
											{
												obj_t BgL_iz00_4627;

												BgL_iz00_4627 = BINT(BgL_arg1366z00_1732);
												BgL_iz00_1700 = BgL_iz00_4627;
												goto BgL_zc3z04anonymousza31342ze3z87_1702;
											}
										}
									}
							}
						else
							{	/* Ieee/output.scm 568 */
								return BFALSE;
							}
					}
				}
			}
		}

	}



/* print-flat-list~0 */
	obj_t BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00(obj_t
		BgL_lz00_1742, obj_t BgL_pz00_1743, obj_t BgL_sepz00_1744)
	{
		{	/* Ieee/output.scm 458 */
		BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00:
			if (PAIRP(BgL_lz00_1742))
				{
					obj_t BgL_lz00_1748;

					BgL_lz00_1748 = BgL_lz00_1742;
				BgL_zc3z04anonymousza31374ze3z87_1749:
					{	/* Ieee/output.scm 449 */
						obj_t BgL_arg1376z00_1750;

						BgL_arg1376z00_1750 = CAR(((obj_t) BgL_lz00_1748));
						BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00
							(BgL_arg1376z00_1750, BgL_pz00_1743, BgL_sepz00_1744);
					}
					{	/* Ieee/output.scm 451 */
						bool_t BgL_test2566z00_4635;

						{	/* Ieee/output.scm 451 */
							obj_t BgL_tmpz00_4636;

							BgL_tmpz00_4636 = CDR(((obj_t) BgL_lz00_1748));
							BgL_test2566z00_4635 = PAIRP(BgL_tmpz00_4636);
						}
						if (BgL_test2566z00_4635)
							{	/* Ieee/output.scm 451 */
								bgl_display_obj(BgL_sepz00_1744, BgL_pz00_1743);
								{	/* Ieee/output.scm 453 */
									obj_t BgL_arg1379z00_1753;

									BgL_arg1379z00_1753 = CDR(((obj_t) BgL_lz00_1748));
									{
										obj_t BgL_lz00_4643;

										BgL_lz00_4643 = BgL_arg1379z00_1753;
										BgL_lz00_1748 = BgL_lz00_4643;
										goto BgL_zc3z04anonymousza31374ze3z87_1749;
									}
								}
							}
						else
							{	/* Ieee/output.scm 451 */
								if (NULLP(CDR(((obj_t) BgL_lz00_1748))))
									{	/* Ieee/output.scm 454 */
										return BFALSE;
									}
								else
									{	/* Ieee/output.scm 454 */
										bgl_display_string(BGl_string2315z00zz__r4_output_6_10_3z00,
											BgL_pz00_1743);
										{	/* Ieee/output.scm 456 */
											obj_t BgL_arg1382z00_1756;

											BgL_arg1382z00_1756 = CDR(((obj_t) BgL_lz00_1748));
											{
												obj_t BgL_lz00_4651;

												BgL_lz00_4651 = BgL_arg1382z00_1756;
												BgL_lz00_1742 = BgL_lz00_4651;
												goto
													BGl_printzd2flatzd2listze70ze7zz__r4_output_6_10_3z00;
											}
										}
									}
							}
					}
				}
			else
				{	/* Ieee/output.scm 447 */
					if (NULLP(BgL_lz00_1742))
						{	/* Ieee/output.scm 457 */
							return BFALSE;
						}
					else
						{	/* Ieee/output.scm 457 */
							return bgl_display_obj(BgL_lz00_1742, BgL_pz00_1743);
						}
				}
		}

	}



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

				{	/* Ieee/output.scm 596 */

					{	/* Ieee/output.scm 596 */

						BgL_pz00_3016 =
							BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00(BTRUE);
					}
				}
				BGl_xprintfz00zz__r4_output_6_10_3z00
					(BGl_string2316z00zz__r4_output_6_10_3z00, BgL_pz00_3016,
					BgL_fmtz00_33, BgL_objz00_34);
				return bgl_close_output_port(BgL_pz00_3016);
			}
		}

	}



/* &format */
	obj_t BGl_z62formatz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3841,
		obj_t BgL_fmtz00_3842, obj_t BgL_objz00_3843)
	{
		{	/* Ieee/output.scm 595 */
			{	/* Ieee/output.scm 596 */
				obj_t BgL_auxz00_4658;

				if (STRINGP(BgL_fmtz00_3842))
					{	/* Ieee/output.scm 596 */
						BgL_auxz00_4658 = BgL_fmtz00_3842;
					}
				else
					{
						obj_t BgL_auxz00_4661;

						BgL_auxz00_4661 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(20744L),
							BGl_string2317z00zz__r4_output_6_10_3z00,
							BGl_string2318z00zz__r4_output_6_10_3z00, BgL_fmtz00_3842);
						FAILURE(BgL_auxz00_4661, BFALSE, BFALSE);
					}
				return
					BGl_formatz00zz__r4_output_6_10_3z00(BgL_auxz00_4658,
					BgL_objz00_3843);
			}
		}

	}



/* printf */
	BGL_EXPORTED_DEF obj_t BGl_printfz00zz__r4_output_6_10_3z00(obj_t
		BgL_fmtz00_35, obj_t BgL_objz00_36)
	{
		{	/* Ieee/output.scm 603 */
			{	/* Ieee/output.scm 604 */
				obj_t BgL_arg1458z00_3019;

				{	/* Ieee/output.scm 604 */
					obj_t BgL_tmpz00_4666;

					BgL_tmpz00_4666 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1458z00_3019 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4666);
				}
				return
					BGl_xprintfz00zz__r4_output_6_10_3z00
					(BGl_string2319z00zz__r4_output_6_10_3z00, BgL_arg1458z00_3019,
					BgL_fmtz00_35, BgL_objz00_36);
			}
		}

	}



/* &printf */
	obj_t BGl_z62printfz62zz__r4_output_6_10_3z00(obj_t BgL_envz00_3844,
		obj_t BgL_fmtz00_3845, obj_t BgL_objz00_3846)
	{
		{	/* Ieee/output.scm 603 */
			{	/* Ieee/output.scm 604 */
				obj_t BgL_auxz00_4670;

				if (STRINGP(BgL_fmtz00_3845))
					{	/* Ieee/output.scm 604 */
						BgL_auxz00_4670 = BgL_fmtz00_3845;
					}
				else
					{
						obj_t BgL_auxz00_4673;

						BgL_auxz00_4673 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(21112L),
							BGl_string2320z00zz__r4_output_6_10_3z00,
							BGl_string2318z00zz__r4_output_6_10_3z00, BgL_fmtz00_3845);
						FAILURE(BgL_auxz00_4673, BFALSE, BFALSE);
					}
				return
					BGl_printfz00zz__r4_output_6_10_3z00(BgL_auxz00_4670,
					BgL_objz00_3846);
			}
		}

	}



/* fprintf */
	BGL_EXPORTED_DEF obj_t BGl_fprintfz00zz__r4_output_6_10_3z00(obj_t
		BgL_portz00_37, obj_t BgL_fmtz00_38, obj_t BgL_objz00_39)
	{
		{	/* Ieee/output.scm 609 */
			return
				BGl_xprintfz00zz__r4_output_6_10_3z00
				(BGl_string2321z00zz__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_3847,
		obj_t BgL_portz00_3848, obj_t BgL_fmtz00_3849, obj_t BgL_objz00_3850)
	{
		{	/* Ieee/output.scm 609 */
			{	/* Ieee/output.scm 610 */
				obj_t BgL_auxz00_4686;
				obj_t BgL_auxz00_4679;

				if (STRINGP(BgL_fmtz00_3849))
					{	/* Ieee/output.scm 610 */
						BgL_auxz00_4686 = BgL_fmtz00_3849;
					}
				else
					{
						obj_t BgL_auxz00_4689;

						BgL_auxz00_4689 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(21403L),
							BGl_string2322z00zz__r4_output_6_10_3z00,
							BGl_string2318z00zz__r4_output_6_10_3z00, BgL_fmtz00_3849);
						FAILURE(BgL_auxz00_4689, BFALSE, BFALSE);
					}
				if (OUTPUT_PORTP(BgL_portz00_3848))
					{	/* Ieee/output.scm 610 */
						BgL_auxz00_4679 = BgL_portz00_3848;
					}
				else
					{
						obj_t BgL_auxz00_4682;

						BgL_auxz00_4682 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(21403L),
							BGl_string2322z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3848);
						FAILURE(BgL_auxz00_4682, BFALSE, BFALSE);
					}
				return
					BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_auxz00_4679,
					BgL_auxz00_4686, BgL_objz00_3850);
			}
		}

	}



/* display-2 */
	BGL_EXPORTED_DEF obj_t bgl_display_obj(obj_t BgL_objz00_40,
		obj_t BgL_portz00_41)
	{
		{	/* Ieee/output.scm 769 */
		bgl_display_obj:
			if (STRINGP(BgL_objz00_40))
				{	/* Ieee/output.scm 770 */
					return bgl_display_string(BgL_objz00_40, BgL_portz00_41);
				}
			else
				{	/* Ieee/output.scm 770 */
					if (SYMBOLP(BgL_objz00_40))
						{	/* Ieee/output.scm 782 */
							obj_t BgL_arg1598z00_3025;

							BgL_arg1598z00_3025 = SYMBOL_TO_STRING(BgL_objz00_40);
							return bgl_display_string(BgL_arg1598z00_3025, BgL_portz00_41);
						}
					else
						{	/* Ieee/output.scm 770 */
							if (INTEGERP(BgL_objz00_40))
								{	/* Ieee/output.scm 770 */
									return bgl_display_fixnum(BgL_objz00_40, BgL_portz00_41);
								}
							else
								{	/* Ieee/output.scm 770 */
									if (CHARP(BgL_objz00_40))
										{	/* Ieee/output.scm 770 */
											unsigned char BgL_tmpz00_4706;

											BgL_tmpz00_4706 = CCHAR(BgL_objz00_40);
											return bgl_display_char(BgL_tmpz00_4706, BgL_portz00_41);
										}
									else
										{	/* Ieee/output.scm 770 */
											if (PAIRP(BgL_objz00_40))
												{	/* Ieee/output.scm 770 */
													return
														BGl_displayzd2pairzd2zz__r4_output_6_10_3z00
														(BgL_objz00_40, BgL_portz00_41);
												}
											else
												{	/* Ieee/output.scm 770 */
													if (NULLP(BgL_objz00_40))
														{	/* Ieee/output.scm 770 */
															return
																bgl_display_string
																(BGl_string2323z00zz__r4_output_6_10_3z00,
																BgL_portz00_41);
														}
													else
														{	/* Ieee/output.scm 770 */
															if ((BgL_objz00_40 == BFALSE))
																{	/* Ieee/output.scm 770 */
																	return
																		bgl_display_string
																		(BGl_string2324z00zz__r4_output_6_10_3z00,
																		BgL_portz00_41);
																}
															else
																{	/* Ieee/output.scm 770 */
																	if ((BgL_objz00_40 == BTRUE))
																		{	/* Ieee/output.scm 770 */
																			return
																				bgl_display_string
																				(BGl_string2325z00zz__r4_output_6_10_3z00,
																				BgL_portz00_41);
																		}
																	else
																		{	/* Ieee/output.scm 770 */
																			if ((BgL_objz00_40 == BUNSPEC))
																				{	/* Ieee/output.scm 770 */
																					return
																						bgl_display_string
																						(BGl_string2326z00zz__r4_output_6_10_3z00,
																						BgL_portz00_41);
																				}
																			else
																				{	/* Ieee/output.scm 770 */
																					if (ELONGP(BgL_objz00_40))
																						{	/* Ieee/output.scm 770 */
																							return
																								bgl_display_elong(BELONG_TO_LONG
																								(BgL_objz00_40),
																								BgL_portz00_41);
																						}
																					else
																						{	/* Ieee/output.scm 770 */
																							if (REALP(BgL_objz00_40))
																								{	/* Ieee/output.scm 893 */
																									obj_t BgL_arg1642z00_3039;

																									BgL_arg1642z00_3039 =
																										bgl_real_to_string
																										(REAL_TO_DOUBLE
																										(BgL_objz00_40));
																									return
																										bgl_display_string
																										(BgL_arg1642z00_3039,
																										BgL_portz00_41);
																								}
																							else
																								{	/* Ieee/output.scm 770 */
																									if (KEYWORDP(BgL_objz00_40))
																										{	/* Ieee/output.scm 770 */
																											bgl_display_char((
																													(unsigned char) ':'),
																												BgL_portz00_41);
																											{	/* Ieee/output.scm 875 */
																												obj_t
																													BgL_arg1641z00_3042;
																												BgL_arg1641z00_3042 =
																													KEYWORD_TO_STRING
																													(BgL_objz00_40);
																												return
																													bgl_display_string
																													(BgL_arg1641z00_3042,
																													BgL_portz00_41);
																											}
																										}
																									else
																										{	/* Ieee/output.scm 770 */
																											if (BGl_classzf3zf3zz__objectz00(BgL_objz00_40))
																												{	/* Ieee/output.scm 770 */
																													bgl_display_string
																														(BGl_string2327z00zz__r4_output_6_10_3z00,
																														BgL_portz00_41);
																													{	/* Ieee/output.scm 945 */
																														obj_t
																															BgL_arg1652z00_3046;
																														BgL_arg1652z00_3046
																															=
																															BGl_classzd2namezd2zz__objectz00
																															(BgL_objz00_40);
																														{	/* Ieee/output.scm 782 */
																															obj_t
																																BgL_arg1598z00_3051;
																															BgL_arg1598z00_3051
																																=
																																SYMBOL_TO_STRING
																																(BgL_arg1652z00_3046);
																															bgl_display_string
																																(BgL_arg1598z00_3051,
																																BgL_portz00_41);
																														}
																													}
																													return
																														bgl_display_string
																														(BGl_string2328z00zz__r4_output_6_10_3z00,
																														BgL_portz00_41);
																												}
																											else
																												{	/* Ieee/output.scm 770 */
																													if (VECTORP
																														(BgL_objz00_40))
																														{	/* Ieee/output.scm 770 */
																															return
																																BGl_writezf2displayzd2vectorz20zz__r4_output_6_10_3z00
																																(BgL_objz00_40,
																																BgL_portz00_41,
																																BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00);
																														}
																													else
																														{	/* Ieee/output.scm 770 */
																															if (LLONGP
																																(BgL_objz00_40))
																																{	/* Ieee/output.scm 770 */
																																	return
																																		bgl_display_llong
																																		(BLLONG_TO_LLONG
																																		(BgL_objz00_40),
																																		BgL_portz00_41);
																																}
																															else
																																{	/* Ieee/output.scm 770 */
																																	if (UCS2_STRINGP(BgL_objz00_40))
																																		{	/* Ieee/output.scm 770 */
																																			return
																																				bgl_display_ucs2string
																																				(BgL_objz00_40,
																																				BgL_portz00_41);
																																		}
																																	else
																																		{	/* Ieee/output.scm 770 */
																																			if (STRUCTP(BgL_objz00_40))
																																				{	/* Ieee/output.scm 770 */
																																					return
																																						BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00
																																						(BgL_objz00_40,
																																						BgL_portz00_41,
																																						BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00);
																																				}
																																			else
																																				{	/* Ieee/output.scm 770 */
																																					if (BGL_OBJECTP(BgL_objz00_40))
																																						{	/* Ieee/output.scm 770 */
																																							obj_t
																																								BgL_list1474z00_1879;
																																							BgL_list1474z00_1879
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_portz00_41,
																																								BNIL);
																																							return
																																								BGl_objectzd2displayzd2zz__objectz00
																																								(
																																								((BgL_objectz00_bglt) BgL_objz00_40), BgL_list1474z00_1879);
																																						}
																																					else
																																						{	/* Ieee/output.scm 770 */
																																							if (BGL_DATEP(BgL_objz00_40))
																																								{	/* Ieee/output.scm 842 */
																																									obj_t
																																										BgL_tmpz00_4765;
																																									BgL_tmpz00_4765
																																										=
																																										BGl_datezd2ze3stringz31zz__datez00
																																										(BgL_objz00_40);
																																									return
																																										bgl_display_string
																																										(BgL_tmpz00_4765,
																																										BgL_portz00_41);
																																								}
																																							else
																																								{	/* Ieee/output.scm 770 */
																																									if (BGL_MUTEXP(BgL_objz00_40))
																																										{	/* Ieee/output.scm 770 */
																																											bgl_display_string
																																												(BGl_string2329z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_41);
																																											{	/* Ieee/output.scm 927 */
																																												obj_t
																																													BgL_arg1647z00_3062;
																																												{	/* Ieee/output.scm 927 */
																																													obj_t
																																														BgL_tmpz00_4771;
																																													BgL_tmpz00_4771
																																														=
																																														(
																																														(obj_t)
																																														BgL_objz00_40);
																																													BgL_arg1647z00_3062
																																														=
																																														BGL_MUTEX_NAME
																																														(BgL_tmpz00_4771);
																																												}
																																												bgl_display_obj
																																													(BgL_arg1647z00_3062,
																																													BgL_portz00_41);
																																											}
																																											bgl_display_string
																																												(BGl_string2330z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_41);
																																											{	/* Ieee/output.scm 929 */
																																												obj_t
																																													BgL_arg1649z00_3063;
																																												BgL_arg1649z00_3063
																																													=
																																													BGL_MUTEX_BACKEND
																																													(BgL_objz00_40);
																																												bgl_display_obj
																																													(BgL_arg1649z00_3063,
																																													BgL_portz00_41);
																																											}
																																											return
																																												bgl_display_string
																																												(BGl_string2328z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_41);
																																										}
																																									else
																																										{	/* Ieee/output.scm 770 */
																																											if (BGL_CONDVARP(BgL_objz00_40))
																																												{	/* Ieee/output.scm 770 */
																																													bgl_display_string
																																														(BGl_string2331z00zz__r4_output_6_10_3z00,
																																														BgL_portz00_41);
																																													{	/* Ieee/output.scm 937 */
																																														obj_t
																																															BgL_arg1651z00_3071;
																																														{	/* Ieee/output.scm 937 */
																																															obj_t
																																																BgL_tmpz00_4782;
																																															BgL_tmpz00_4782
																																																=
																																																(
																																																(obj_t)
																																																BgL_objz00_40);
																																															BgL_arg1651z00_3071
																																																=
																																																BGL_CONDVAR_NAME
																																																(BgL_tmpz00_4782);
																																														}
																																														bgl_display_obj
																																															(BgL_arg1651z00_3071,
																																															BgL_portz00_41);
																																													}
																																													return
																																														bgl_display_string
																																														(BGl_string2328z00zz__r4_output_6_10_3z00,
																																														BgL_portz00_41);
																																												}
																																											else
																																												{	/* Ieee/output.scm 770 */
																																													if (UCS2P(BgL_objz00_40))
																																														{	/* Ieee/output.scm 770 */
																																															return
																																																bgl_display_ucs2
																																																(BgL_objz00_40,
																																																BgL_portz00_41);
																																														}
																																													else
																																														{	/* Ieee/output.scm 770 */
																																															if (CELLP(BgL_objz00_40))
																																																{	/* Ieee/output.scm 770 */
																																																	bgl_display_string
																																																		(BGl_string2332z00zz__r4_output_6_10_3z00,
																																																		BgL_portz00_41);
																																																	bgl_display_obj
																																																		(CELL_REF
																																																		(BgL_objz00_40),
																																																		BgL_portz00_41);
																																																	return
																																																		bgl_display_string
																																																		(BGl_string2328z00zz__r4_output_6_10_3z00,
																																																		BgL_portz00_41);
																																																}
																																															else
																																																{	/* Ieee/output.scm 770 */
																																																	if (EOF_OBJECTP(BgL_objz00_40))
																																																		{	/* Ieee/output.scm 770 */
																																																			return
																																																				bgl_display_string
																																																				(BGl_string2333z00zz__r4_output_6_10_3z00,
																																																				BgL_portz00_41);
																																																		}
																																																	else
																																																		{	/* Ieee/output.scm 770 */
																																																			if ((BgL_objz00_40 == (BOPTIONAL)))
																																																				{	/* Ieee/output.scm 770 */
																																																					return
																																																						bgl_display_string
																																																						(BGl_string2334z00zz__r4_output_6_10_3z00,
																																																						BgL_portz00_41);
																																																				}
																																																			else
																																																				{	/* Ieee/output.scm 770 */
																																																					if ((BgL_objz00_40 == (BREST)))
																																																						{	/* Ieee/output.scm 770 */
																																																							return
																																																								bgl_display_string
																																																								(BGl_string2335z00zz__r4_output_6_10_3z00,
																																																								BgL_portz00_41);
																																																						}
																																																					else
																																																						{	/* Ieee/output.scm 770 */
																																																							if ((BgL_objz00_40 == (BKEY)))
																																																								{	/* Ieee/output.scm 770 */
																																																									return
																																																										bgl_display_string
																																																										(BGl_string2336z00zz__r4_output_6_10_3z00,
																																																										BgL_portz00_41);
																																																								}
																																																							else
																																																								{	/* Ieee/output.scm 770 */
																																																									if (PROCEDUREP(BgL_objz00_40))
																																																										{	/* Ieee/output.scm 770 */
																																																											return
																																																												bgl_write_procedure
																																																												(BgL_objz00_40,
																																																												BgL_portz00_41);
																																																										}
																																																									else
																																																										{	/* Ieee/output.scm 770 */
																																																											if (OUTPUT_PORTP(BgL_objz00_40))
																																																												{	/* Ieee/output.scm 770 */
																																																													if (BGL_OUTPUT_STRING_PORTP(BgL_objz00_40))
																																																														{	/* Ieee/output.scm 770 */
																																																															return
																																																																bgl_display_string
																																																																(BGl_string2337z00zz__r4_output_6_10_3z00,
																																																																BgL_portz00_41);
																																																														}
																																																													else
																																																														{	/* Ieee/output.scm 770 */
																																																															if (BGL_OUTPUT_PROCEDURE_PORTP(BgL_objz00_40))
																																																																{	/* Ieee/output.scm 770 */
																																																																	return
																																																																		bgl_display_string
																																																																		(BGl_string2338z00zz__r4_output_6_10_3z00,
																																																																		BgL_portz00_41);
																																																																}
																																																															else
																																																																{	/* Ieee/output.scm 770 */
																																																																	return
																																																																		bgl_write_output_port
																																																																		(BgL_objz00_40,
																																																																		BgL_portz00_41);
																																																																}
																																																														}
																																																												}
																																																											else
																																																												{	/* Ieee/output.scm 770 */
																																																													if (INPUT_PORTP(BgL_objz00_40))
																																																														{	/* Ieee/output.scm 770 */
																																																															return
																																																																bgl_write_input_port
																																																																(BgL_objz00_40,
																																																																BgL_portz00_41);
																																																														}
																																																													else
																																																														{	/* Ieee/output.scm 770 */
																																																															if (BIGNUMP(BgL_objz00_40))
																																																																{	/* Ieee/output.scm 770 */
																																																																	return
																																																																		bgl_display_bignum
																																																																		(BgL_objz00_40,
																																																																		BgL_portz00_41);
																																																																}
																																																															else
																																																																{	/* Ieee/output.scm 770 */
																																																																	if (BGL_HVECTORP(BgL_objz00_40))
																																																																		{	/* Ieee/output.scm 770 */
																																																																			return
																																																																				BGl_writezf2displayzd2hvectorz20zz__r4_output_6_10_3z00
																																																																				(BgL_objz00_40,
																																																																				BgL_portz00_41,
																																																																				BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00);
																																																																		}
																																																																	else
																																																																		{	/* Ieee/output.scm 770 */
																																																																			if (TVECTORP(BgL_objz00_40))
																																																																				{	/* Ieee/output.scm 770 */
																																																																					return
																																																																						BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00
																																																																						(BgL_objz00_40,
																																																																						BgL_portz00_41,
																																																																						BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00);
																																																																				}
																																																																			else
																																																																				{	/* Ieee/output.scm 770 */
																																																																					if (BGL_WEAKPTRP(BgL_objz00_40))
																																																																						{	/* Ieee/output.scm 1061 */
																																																																							obj_t
																																																																								BgL_dataz00_3095;
																																																																							BgL_dataz00_3095
																																																																								=
																																																																								bgl_weakptr_data
																																																																								(BgL_objz00_40);
																																																																							bgl_display_string
																																																																								(BGl_string2339z00zz__r4_output_6_10_3z00,
																																																																								BgL_portz00_41);
																																																																							bgl_display_obj
																																																																								(BgL_dataz00_3095,
																																																																								BgL_portz00_41);
																																																																							return
																																																																								bgl_display_char
																																																																								(
																																																																								((unsigned char) '>'), BgL_portz00_41);
																																																																						}
																																																																					else
																																																																						{	/* Ieee/output.scm 770 */
																																																																							if (FOREIGNP(BgL_objz00_40))
																																																																								{	/* Ieee/output.scm 770 */
																																																																									return
																																																																										bgl_write_foreign
																																																																										(BgL_objz00_40,
																																																																										BgL_portz00_41);
																																																																								}
																																																																							else
																																																																								{	/* Ieee/output.scm 770 */
																																																																									if (PROCESSP(BgL_objz00_40))
																																																																										{	/* Ieee/output.scm 770 */
																																																																											return
																																																																												bgl_write_process
																																																																												(BgL_objz00_40,
																																																																												BgL_portz00_41);
																																																																										}
																																																																									else
																																																																										{	/* Ieee/output.scm 770 */
																																																																											if (SOCKETP(BgL_objz00_40))
																																																																												{	/* Ieee/output.scm 770 */
																																																																													return
																																																																														bgl_write_socket
																																																																														(BgL_objz00_40,
																																																																														BgL_portz00_41);
																																																																												}
																																																																											else
																																																																												{	/* Ieee/output.scm 770 */
																																																																													if (BGL_DATAGRAM_SOCKETP(BgL_objz00_40))
																																																																														{	/* Ieee/output.scm 770 */
																																																																															return
																																																																																bgl_write_datagram_socket
																																																																																(BgL_objz00_40,
																																																																																BgL_portz00_41);
																																																																														}
																																																																													else
																																																																														{	/* Ieee/output.scm 770 */
																																																																															if (BGL_REGEXPP(BgL_objz00_40))
																																																																																{	/* Ieee/output.scm 770 */
																																																																																	return
																																																																																		bgl_write_regexp
																																																																																		(BgL_objz00_40,
																																																																																		BgL_portz00_41);
																																																																																}
																																																																															else
																																																																																{	/* Ieee/output.scm 770 */
																																																																																	if (BGL_MMAPP(BgL_objz00_40))
																																																																																		{	/* Ieee/output.scm 770 */
																																																																																			return
																																																																																				bgl_write_mmap
																																																																																				(BgL_objz00_40,
																																																																																				BgL_portz00_41);
																																																																																		}
																																																																																	else
																																																																																		{	/* Ieee/output.scm 770 */
																																																																																			if (BGL_SEMAPHOREP(BgL_objz00_40))
																																																																																				{	/* Ieee/output.scm 770 */
																																																																																					return
																																																																																						bgl_write_semaphore
																																																																																						(BgL_objz00_40,
																																																																																						BgL_portz00_41);
																																																																																				}
																																																																																			else
																																																																																				{	/* Ieee/output.scm 770 */
																																																																																					if (OPAQUEP(BgL_objz00_40))
																																																																																						{	/* Ieee/output.scm 770 */
																																																																																							BGL_TAIL
																																																																																								return
																																																																																								bgl_write_opaque
																																																																																								(BgL_objz00_40,
																																																																																								BgL_portz00_41);
																																																																																						}
																																																																																					else
																																																																																						{	/* Ieee/output.scm 770 */
																																																																																							if (CUSTOMP(BgL_objz00_40))
																																																																																								{	/* Ieee/output.scm 770 */
																																																																																									BGL_TAIL
																																																																																										return
																																																																																										bgl_write_custom
																																																																																										(BgL_objz00_40,
																																																																																										BgL_portz00_41);
																																																																																								}
																																																																																							else
																																																																																								{	/* Ieee/output.scm 770 */
																																																																																									if (BINARY_PORTP(BgL_objz00_40))
																																																																																										{	/* Ieee/output.scm 770 */
																																																																																											return
																																																																																												bgl_write_binary_port
																																																																																												(BgL_objz00_40,
																																																																																												BgL_portz00_41);
																																																																																										}
																																																																																									else
																																																																																										{	/* Ieee/output.scm 770 */
																																																																																											if (BGL_DYNAMIC_ENVP(BgL_objz00_40))
																																																																																												{	/* Ieee/output.scm 770 */
																																																																																													return
																																																																																														bgl_write_dynamic_env
																																																																																														(BgL_objz00_40,
																																																																																														BgL_portz00_41);
																																																																																												}
																																																																																											else
																																																																																												{	/* Ieee/output.scm 770 */
																																																																																													if (BGL_INT8P(BgL_objz00_40))
																																																																																														{	/* Ieee/output.scm 770 */
																																																																																															long
																																																																																																BgL_arg1502z00_1907;
																																																																																															{	/* Ieee/output.scm 770 */
																																																																																																int8_t
																																																																																																	BgL_xz00_3097;
																																																																																																BgL_xz00_3097
																																																																																																	=
																																																																																																	BGL_BINT8_TO_INT8
																																																																																																	(BgL_objz00_40);
																																																																																																{	/* Ieee/output.scm 770 */
																																																																																																	long
																																																																																																		BgL_arg1996z00_3098;
																																																																																																	BgL_arg1996z00_3098
																																																																																																		=
																																																																																																		(long)
																																																																																																		(BgL_xz00_3097);
																																																																																																	BgL_arg1502z00_1907
																																																																																																		=
																																																																																																		(long)
																																																																																																		(BgL_arg1996z00_3098);
																																																																																															}}
																																																																																															{
																																																																																																obj_t
																																																																																																	BgL_objz00_4876;
																																																																																																BgL_objz00_4876
																																																																																																	=
																																																																																																	BINT
																																																																																																	(BgL_arg1502z00_1907);
																																																																																																BgL_objz00_40
																																																																																																	=
																																																																																																	BgL_objz00_4876;
																																																																																																goto
																																																																																																	bgl_display_obj;
																																																																																															}
																																																																																														}
																																																																																													else
																																																																																														{	/* Ieee/output.scm 770 */
																																																																																															if (BGL_UINT8P(BgL_objz00_40))
																																																																																																{	/* Ieee/output.scm 770 */
																																																																																																	long
																																																																																																		BgL_arg1505z00_1909;
																																																																																																	{	/* Ieee/output.scm 770 */
																																																																																																		uint8_t
																																																																																																			BgL_xz00_3100;
																																																																																																		BgL_xz00_3100
																																																																																																			=
																																																																																																			BGL_BUINT8_TO_UINT8
																																																																																																			(BgL_objz00_40);
																																																																																																		{	/* Ieee/output.scm 770 */
																																																																																																			long
																																																																																																				BgL_arg1995z00_3101;
																																																																																																			BgL_arg1995z00_3101
																																																																																																				=
																																																																																																				(long)
																																																																																																				(BgL_xz00_3100);
																																																																																																			BgL_arg1505z00_1909
																																																																																																				=
																																																																																																				(long)
																																																																																																				(BgL_arg1995z00_3101);
																																																																																																	}}
																																																																																																	{
																																																																																																		obj_t
																																																																																																			BgL_objz00_4883;
																																																																																																		BgL_objz00_4883
																																																																																																			=
																																																																																																			BINT
																																																																																																			(BgL_arg1505z00_1909);
																																																																																																		BgL_objz00_40
																																																																																																			=
																																																																																																			BgL_objz00_4883;
																																																																																																		goto
																																																																																																			bgl_display_obj;
																																																																																																	}
																																																																																																}
																																																																																															else
																																																																																																{	/* Ieee/output.scm 770 */
																																																																																																	if (BGL_INT16P(BgL_objz00_40))
																																																																																																		{	/* Ieee/output.scm 770 */
																																																																																																			long
																																																																																																				BgL_arg1507z00_1911;
																																																																																																			{	/* Ieee/output.scm 770 */
																																																																																																				int16_t
																																																																																																					BgL_xz00_3103;
																																																																																																				BgL_xz00_3103
																																																																																																					=
																																																																																																					BGL_BINT16_TO_INT16
																																																																																																					(BgL_objz00_40);
																																																																																																				{	/* Ieee/output.scm 770 */
																																																																																																					long
																																																																																																						BgL_arg1994z00_3104;
																																																																																																					BgL_arg1994z00_3104
																																																																																																						=
																																																																																																						(long)
																																																																																																						(BgL_xz00_3103);
																																																																																																					BgL_arg1507z00_1911
																																																																																																						=
																																																																																																						(long)
																																																																																																						(BgL_arg1994z00_3104);
																																																																																																			}}
																																																																																																			{
																																																																																																				obj_t
																																																																																																					BgL_objz00_4890;
																																																																																																				BgL_objz00_4890
																																																																																																					=
																																																																																																					BINT
																																																																																																					(BgL_arg1507z00_1911);
																																																																																																				BgL_objz00_40
																																																																																																					=
																																																																																																					BgL_objz00_4890;
																																																																																																				goto
																																																																																																					bgl_display_obj;
																																																																																																			}
																																																																																																		}
																																																																																																	else
																																																																																																		{	/* Ieee/output.scm 770 */
																																																																																																			if (BGL_UINT16P(BgL_objz00_40))
																																																																																																				{	/* Ieee/output.scm 770 */
																																																																																																					long
																																																																																																						BgL_arg1509z00_1913;
																																																																																																					{	/* Ieee/output.scm 770 */
																																																																																																						uint16_t
																																																																																																							BgL_xz00_3106;
																																																																																																						BgL_xz00_3106
																																																																																																							=
																																																																																																							BGL_BUINT16_TO_UINT16
																																																																																																							(BgL_objz00_40);
																																																																																																						{	/* Ieee/output.scm 770 */
																																																																																																							long
																																																																																																								BgL_arg1993z00_3107;
																																																																																																							BgL_arg1993z00_3107
																																																																																																								=
																																																																																																								(long)
																																																																																																								(BgL_xz00_3106);
																																																																																																							BgL_arg1509z00_1913
																																																																																																								=
																																																																																																								(long)
																																																																																																								(BgL_arg1993z00_3107);
																																																																																																					}}
																																																																																																					{
																																																																																																						obj_t
																																																																																																							BgL_objz00_4897;
																																																																																																						BgL_objz00_4897
																																																																																																							=
																																																																																																							BINT
																																																																																																							(BgL_arg1509z00_1913);
																																																																																																						BgL_objz00_40
																																																																																																							=
																																																																																																							BgL_objz00_4897;
																																																																																																						goto
																																																																																																							bgl_display_obj;
																																																																																																					}
																																																																																																				}
																																																																																																			else
																																																																																																				{	/* Ieee/output.scm 770 */
																																																																																																					if (BGL_INT32P(BgL_objz00_40))
																																																																																																						{	/* Ieee/output.scm 770 */
																																																																																																							long
																																																																																																								BgL_arg1511z00_1915;
																																																																																																							{	/* Ieee/output.scm 770 */
																																																																																																								int32_t
																																																																																																									BgL_nz00_3109;
																																																																																																								BgL_nz00_3109
																																																																																																									=
																																																																																																									BGL_BINT32_TO_INT32
																																																																																																									(BgL_objz00_40);
																																																																																																								BgL_arg1511z00_1915
																																																																																																									=
																																																																																																									(long)
																																																																																																									(BgL_nz00_3109);
																																																																																																							}
																																																																																																							{
																																																																																																								obj_t
																																																																																																									BgL_objz00_4903;
																																																																																																								BgL_objz00_4903
																																																																																																									=
																																																																																																									make_belong
																																																																																																									(BgL_arg1511z00_1915);
																																																																																																								BgL_objz00_40
																																																																																																									=
																																																																																																									BgL_objz00_4903;
																																																																																																								goto
																																																																																																									bgl_display_obj;
																																																																																																							}
																																																																																																						}
																																																																																																					else
																																																																																																						{	/* Ieee/output.scm 770 */
																																																																																																							if (BGL_UINT32P(BgL_objz00_40))
																																																																																																								{	/* Ieee/output.scm 770 */
																																																																																																									BGL_LONGLONG_T
																																																																																																										BgL_arg1513z00_1917;
																																																																																																									{	/* Ieee/output.scm 770 */
																																																																																																										uint32_t
																																																																																																											BgL_nz00_3110;
																																																																																																										BgL_nz00_3110
																																																																																																											=
																																																																																																											BGL_BUINT32_TO_UINT32
																																																																																																											(BgL_objz00_40);
																																																																																																										BgL_arg1513z00_1917
																																																																																																											=
																																																																																																											(BGL_LONGLONG_T)
																																																																																																											(BgL_nz00_3110);
																																																																																																									}
																																																																																																									{
																																																																																																										obj_t
																																																																																																											BgL_objz00_4909;
																																																																																																										BgL_objz00_4909
																																																																																																											=
																																																																																																											make_bllong
																																																																																																											(BgL_arg1513z00_1917);
																																																																																																										BgL_objz00_40
																																																																																																											=
																																																																																																											BgL_objz00_4909;
																																																																																																										goto
																																																																																																											bgl_display_obj;
																																																																																																									}
																																																																																																								}
																																																																																																							else
																																																																																																								{	/* Ieee/output.scm 770 */
																																																																																																									if (BGL_INT64P(BgL_objz00_40))
																																																																																																										{	/* Ieee/output.scm 770 */
																																																																																																											BGL_LONGLONG_T
																																																																																																												BgL_arg1515z00_1919;
																																																																																																											{	/* Ieee/output.scm 770 */
																																																																																																												int64_t
																																																																																																													BgL_nz00_3111;
																																																																																																												BgL_nz00_3111
																																																																																																													=
																																																																																																													BGL_BINT64_TO_INT64
																																																																																																													(BgL_objz00_40);
																																																																																																												BgL_arg1515z00_1919
																																																																																																													=
																																																																																																													(BGL_LONGLONG_T)
																																																																																																													(BgL_nz00_3111);
																																																																																																											}
																																																																																																											{
																																																																																																												obj_t
																																																																																																													BgL_objz00_4915;
																																																																																																												BgL_objz00_4915
																																																																																																													=
																																																																																																													make_bllong
																																																																																																													(BgL_arg1515z00_1919);
																																																																																																												BgL_objz00_40
																																																																																																													=
																																																																																																													BgL_objz00_4915;
																																																																																																												goto
																																																																																																													bgl_display_obj;
																																																																																																											}
																																																																																																										}
																																																																																																									else
																																																																																																										{	/* Ieee/output.scm 770 */
																																																																																																											if (BGL_UINT64P(BgL_objz00_40))
																																																																																																												{	/* Ieee/output.scm 770 */
																																																																																																													{	/* Ieee/output.scm 770 */
																																																																																																														uint64_t
																																																																																																															BgL_vz00_1921;
																																																																																																														{	/* Ieee/output.scm 770 */
																																																																																																															uint64_t
																																																																																																																BgL_arg1521z00_1924;
																																																																																																															BgL_arg1521z00_1924
																																																																																																																=
																																																																																																																(uint64_t)
																																																																																																																(10L);
																																																																																																															{	/* Ieee/output.scm 770 */
																																																																																																																uint64_t
																																																																																																																	BgL_za71za7_3112;
																																																																																																																BgL_za71za7_3112
																																																																																																																	=
																																																																																																																	BGL_BINT64_TO_INT64
																																																																																																																	(BgL_objz00_40);
																																																																																																																BgL_vz00_1921
																																																																																																																	=
																																																																																																																	(BgL_za71za7_3112
																																																																																																																	/
																																																																																																																	BgL_arg1521z00_1924);
																																																																																																															}
																																																																																																														}
																																																																																																														if ((BgL_vz00_1921 > (uint64_t) (0)))
																																																																																																															{	/* Ieee/output.scm 770 */
																																																																																																																BGL_LONGLONG_T
																																																																																																																	BgL_arg1520z00_1923;
																																																																																																																BgL_arg1520z00_1923
																																																																																																																	=
																																																																																																																	(BGL_LONGLONG_T)
																																																																																																																	(BgL_vz00_1921);
																																																																																																																bgl_display_obj
																																																																																																																	(make_bllong
																																																																																																																	(BgL_arg1520z00_1923),
																																																																																																																	BgL_portz00_41);
																																																																																																															}
																																																																																																														else
																																																																																																															{	/* Ieee/output.scm 770 */
																																																																																																																BFALSE;
																																																																																																															}
																																																																																																													}
																																																																																																													{	/* Ieee/output.scm 770 */
																																																																																																														long
																																																																																																															BgL_arg1522z00_1925;
																																																																																																														{	/* Ieee/output.scm 770 */
																																																																																																															uint64_t
																																																																																																																BgL_arg1523z00_1926;
																																																																																																															{	/* Ieee/output.scm 770 */
																																																																																																																uint64_t
																																																																																																																	BgL_arg1524z00_1927;
																																																																																																																BgL_arg1524z00_1927
																																																																																																																	=
																																																																																																																	(uint64_t)
																																																																																																																	(10L);
																																																																																																																{	/* Ieee/output.scm 770 */
																																																																																																																	uint64_t
																																																																																																																		BgL_n1z00_3117;
																																																																																																																	BgL_n1z00_3117
																																																																																																																		=
																																																																																																																		BGL_BINT64_TO_INT64
																																																																																																																		(BgL_objz00_40);
																																																																																																																	{	/* Ieee/output.scm 770 */
																																																																																																																		int64_t
																																																																																																																			BgL_tmpz00_4929;
																																																																																																																		BgL_tmpz00_4929
																																																																																																																			=
																																																																																																																			(int64_t)
																																																																																																																			(BgL_arg1524z00_1927);
																																																																																																																		BgL_arg1523z00_1926
																																																																																																																			=
																																																																																																																			(BgL_n1z00_3117
																																																																																																																			%
																																																																																																																			BgL_tmpz00_4929);
																																																																																																															}}}
																																																																																																															{	/* Ieee/output.scm 770 */
																																																																																																																long
																																																																																																																	BgL_arg1990z00_3120;
																																																																																																																BgL_arg1990z00_3120
																																																																																																																	=
																																																																																																																	(long)
																																																																																																																	(BgL_arg1523z00_1926);
																																																																																																																BgL_arg1522z00_1925
																																																																																																																	=
																																																																																																																	(long)
																																																																																																																	(BgL_arg1990z00_3120);
																																																																																																														}}
																																																																																																														{
																																																																																																															obj_t
																																																																																																																BgL_objz00_4934;
																																																																																																															BgL_objz00_4934
																																																																																																																=
																																																																																																																BINT
																																																																																																																(BgL_arg1522z00_1925);
																																																																																																															BgL_objz00_40
																																																																																																																=
																																																																																																																BgL_objz00_4934;
																																																																																																															goto
																																																																																																																bgl_display_obj;
																																																																																																														}
																																																																																																													}
																																																																																																												}
																																																																																																											else
																																																																																																												{	/* Ieee/output.scm 770 */
																																																																																																													if (CNSTP(BgL_objz00_40))
																																																																																																														{	/* Ieee/output.scm 770 */
																																																																																																															BGL_TAIL
																																																																																																																return
																																																																																																																bgl_write_cnst
																																																																																																																(BgL_objz00_40,
																																																																																																																BgL_portz00_41);
																																																																																																														}
																																																																																																													else
																																																																																																														{	/* Ieee/output.scm 770 */
																																																																																																															BGL_TAIL
																																																																																																																return
																																																																																																																bgl_write_unknown
																																																																																																																(BgL_objz00_40,
																																																																																																																BgL_portz00_41);
																																																																																																														}
																																																																																																												}
																																																																																																										}
																																																																																																								}
																																																																																																						}
																																																																																																				}
																																																																																																		}
																																																																																																}
																																																																																														}
																																																																																												}
																																																																																										}
																																																																																								}
																																																																																						}
																																																																																				}
																																																																																		}
																																																																																}
																																																																														}
																																																																												}
																																																																										}
																																																																								}
																																																																						}
																																																																				}
																																																																		}
																																																																}
																																																														}
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																						}
																																				}
																																		}
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
		}

	}



/* &display-2 */
	obj_t BGl_z62displayzd22zb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3851,
		obj_t BgL_objz00_3852, obj_t BgL_portz00_3853)
	{
		{	/* Ieee/output.scm 769 */
			{	/* Ieee/output.scm 770 */
				obj_t BgL_auxz00_4940;

				if (OUTPUT_PORTP(BgL_portz00_3853))
					{	/* Ieee/output.scm 770 */
						BgL_auxz00_4940 = BgL_portz00_3853;
					}
				else
					{
						obj_t BgL_auxz00_4943;

						BgL_auxz00_4943 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(26986L),
							BGl_string2340z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3853);
						FAILURE(BgL_auxz00_4943, BFALSE, BFALSE);
					}
				return bgl_display_obj(BgL_objz00_3852, BgL_auxz00_4940);
			}
		}

	}



/* write-2 */
	BGL_EXPORTED_DEF obj_t bgl_write_obj(obj_t BgL_objz00_42,
		obj_t BgL_portz00_43)
	{
		{	/* Ieee/output.scm 775 */
			if (STRINGP(BgL_objz00_42))
				{	/* Ieee/output.scm 776 */
					if (BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00())
						{	/* Ieee/output.scm 863 */
							obj_t BgL_strz00_3125;

							BgL_strz00_3125 = string_for_read(BgL_objz00_42);
							{	/* Ieee/output.scm 864 */
								obj_t BgL_escz00_3126;

								{	/* Ieee/output.scm 865 */
									obj_t BgL_tmpz00_3129;

									{	/* Ieee/output.scm 865 */
										int BgL_tmpz00_4953;

										BgL_tmpz00_4953 = (int) (1L);
										BgL_tmpz00_3129 = BGL_MVALUES_VAL(BgL_tmpz00_4953);
									}
									{	/* Ieee/output.scm 865 */
										int BgL_tmpz00_4956;

										BgL_tmpz00_4956 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_4956, BUNSPEC);
									}
									BgL_escz00_3126 = BgL_tmpz00_3129;
								}
								return
									bgl_write_string(BgL_strz00_3125,
									CBOOL(BgL_escz00_3126), BgL_portz00_43);
							}
						}
					else
						{	/* Ieee/output.scm 860 */
							return
								bgl_write_string(string_for_read(BgL_objz00_42), ((bool_t) 0),
								BgL_portz00_43);
						}
				}
			else
				{	/* Ieee/output.scm 776 */
					if (SYMBOLP(BgL_objz00_42))
						{	/* Ieee/output.scm 776 */
							return
								BGl_writezd2symbolzd2zz__r4_output_6_10_3z00(BgL_objz00_42,
								BgL_portz00_43);
						}
					else
						{	/* Ieee/output.scm 776 */
							if (INTEGERP(BgL_objz00_42))
								{	/* Ieee/output.scm 776 */
									return bgl_display_fixnum(BgL_objz00_42, BgL_portz00_43);
								}
							else
								{	/* Ieee/output.scm 776 */
									if (CHARP(BgL_objz00_42))
										{	/* Ieee/output.scm 776 */
											return bgl_write_char(BgL_objz00_42, BgL_portz00_43);
										}
									else
										{	/* Ieee/output.scm 776 */
											if (PAIRP(BgL_objz00_42))
												{	/* Ieee/output.scm 776 */
													return
														BGl_writezd2pairzd2zz__r4_output_6_10_3z00
														(BgL_objz00_42, BgL_portz00_43);
												}
											else
												{	/* Ieee/output.scm 776 */
													if (NULLP(BgL_objz00_42))
														{	/* Ieee/output.scm 776 */
															return
																bgl_display_string
																(BGl_string2323z00zz__r4_output_6_10_3z00,
																BgL_portz00_43);
														}
													else
														{	/* Ieee/output.scm 776 */
															if ((BgL_objz00_42 == BFALSE))
																{	/* Ieee/output.scm 776 */
																	return
																		bgl_display_string
																		(BGl_string2324z00zz__r4_output_6_10_3z00,
																		BgL_portz00_43);
																}
															else
																{	/* Ieee/output.scm 776 */
																	if ((BgL_objz00_42 == BTRUE))
																		{	/* Ieee/output.scm 776 */
																			return
																				bgl_display_string
																				(BGl_string2325z00zz__r4_output_6_10_3z00,
																				BgL_portz00_43);
																		}
																	else
																		{	/* Ieee/output.scm 776 */
																			if ((BgL_objz00_42 == BUNSPEC))
																				{	/* Ieee/output.scm 776 */
																					return
																						bgl_display_string
																						(BGl_string2326z00zz__r4_output_6_10_3z00,
																						BgL_portz00_43);
																				}
																			else
																				{	/* Ieee/output.scm 776 */
																					if (ELONGP(BgL_objz00_42))
																						{	/* Ieee/output.scm 776 */
																							return
																								bgl_write_elong(BELONG_TO_LONG
																								(BgL_objz00_42),
																								BgL_portz00_43);
																						}
																					else
																						{	/* Ieee/output.scm 776 */
																							if (REALP(BgL_objz00_42))
																								{	/* Ieee/output.scm 893 */
																									obj_t BgL_arg1642z00_3141;

																									BgL_arg1642z00_3141 =
																										bgl_real_to_string
																										(REAL_TO_DOUBLE
																										(BgL_objz00_42));
																									return
																										bgl_display_string
																										(BgL_arg1642z00_3141,
																										BgL_portz00_43);
																								}
																							else
																								{	/* Ieee/output.scm 776 */
																									if (KEYWORDP(BgL_objz00_42))
																										{	/* Ieee/output.scm 776 */
																											bgl_display_char((
																													(unsigned char) ':'),
																												BgL_portz00_43);
																											{	/* Ieee/output.scm 875 */
																												obj_t
																													BgL_arg1641z00_3144;
																												BgL_arg1641z00_3144 =
																													KEYWORD_TO_STRING
																													(BgL_objz00_42);
																												return
																													bgl_display_string
																													(BgL_arg1641z00_3144,
																													BgL_portz00_43);
																											}
																										}
																									else
																										{	/* Ieee/output.scm 776 */
																											if (BGl_classzf3zf3zz__objectz00(BgL_objz00_42))
																												{	/* Ieee/output.scm 776 */
																													bgl_display_string
																														(BGl_string2327z00zz__r4_output_6_10_3z00,
																														BgL_portz00_43);
																													{	/* Ieee/output.scm 945 */
																														obj_t
																															BgL_arg1652z00_3148;
																														BgL_arg1652z00_3148
																															=
																															BGl_classzd2namezd2zz__objectz00
																															(BgL_objz00_42);
																														{	/* Ieee/output.scm 782 */
																															obj_t
																																BgL_arg1598z00_3153;
																															BgL_arg1598z00_3153
																																=
																																SYMBOL_TO_STRING
																																(BgL_arg1652z00_3148);
																															bgl_display_string
																																(BgL_arg1598z00_3153,
																																BgL_portz00_43);
																														}
																													}
																													return
																														bgl_display_string
																														(BGl_string2328z00zz__r4_output_6_10_3z00,
																														BgL_portz00_43);
																												}
																											else
																												{	/* Ieee/output.scm 776 */
																													if (VECTORP
																														(BgL_objz00_42))
																														{	/* Ieee/output.scm 776 */
																															return
																																BGl_writezf2displayzd2vectorz20zz__r4_output_6_10_3z00
																																(BgL_objz00_42,
																																BgL_portz00_43,
																																BGl_writezd22zd2envz00zz__r4_output_6_10_3z00);
																														}
																													else
																														{	/* Ieee/output.scm 776 */
																															if (LLONGP
																																(BgL_objz00_42))
																																{	/* Ieee/output.scm 776 */
																																	return
																																		bgl_write_llong
																																		(BLLONG_TO_LLONG
																																		(BgL_objz00_42),
																																		BgL_portz00_43);
																																}
																															else
																																{	/* Ieee/output.scm 776 */
																																	if (UCS2_STRINGP(BgL_objz00_42))
																																		{	/* Ieee/output.scm 776 */
																																			return
																																				bgl_write_utf8string
																																				(string_for_read
																																				(ucs2_string_to_utf8_string
																																					(BgL_objz00_42)),
																																				BgL_portz00_43);
																																		}
																																	else
																																		{	/* Ieee/output.scm 776 */
																																			if (STRUCTP(BgL_objz00_42))
																																				{	/* Ieee/output.scm 776 */
																																					return
																																						BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00
																																						(BgL_objz00_42,
																																						BgL_portz00_43,
																																						BGl_writezd22zd2envz00zz__r4_output_6_10_3z00);
																																				}
																																			else
																																				{	/* Ieee/output.scm 776 */
																																					if (BGL_OBJECTP(BgL_objz00_42))
																																						{	/* Ieee/output.scm 776 */
																																							obj_t
																																								BgL_list1541z00_1944;
																																							BgL_list1541z00_1944
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_portz00_43,
																																								BNIL);
																																							return
																																								BGl_objectzd2writezd2zz__objectz00
																																								(
																																								((BgL_objectz00_bglt) BgL_objz00_42), BgL_list1541z00_1944);
																																						}
																																					else
																																						{	/* Ieee/output.scm 776 */
																																							if (BGL_DATEP(BgL_objz00_42))
																																								{	/* Ieee/output.scm 776 */
																																									bgl_display_string
																																										(BGl_string2341z00zz__r4_output_6_10_3z00,
																																										BgL_portz00_43);
																																									{	/* Ieee/output.scm 842 */
																																										obj_t
																																											BgL_tmpz00_5031;
																																										BgL_tmpz00_5031
																																											=
																																											BGl_datezd2ze3stringz31zz__datez00
																																											(BgL_objz00_42);
																																										bgl_display_string
																																											(BgL_tmpz00_5031,
																																											BgL_portz00_43);
																																									}
																																									return
																																										bgl_display_string
																																										(BGl_string2328z00zz__r4_output_6_10_3z00,
																																										BgL_portz00_43);
																																								}
																																							else
																																								{	/* Ieee/output.scm 776 */
																																									if (BGL_MUTEXP(BgL_objz00_42))
																																										{	/* Ieee/output.scm 776 */
																																											bgl_display_string
																																												(BGl_string2329z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_43);
																																											{	/* Ieee/output.scm 927 */
																																												obj_t
																																													BgL_arg1647z00_3172;
																																												{	/* Ieee/output.scm 927 */
																																													obj_t
																																														BgL_tmpz00_5038;
																																													BgL_tmpz00_5038
																																														=
																																														(
																																														(obj_t)
																																														BgL_objz00_42);
																																													BgL_arg1647z00_3172
																																														=
																																														BGL_MUTEX_NAME
																																														(BgL_tmpz00_5038);
																																												}
																																												bgl_display_obj
																																													(BgL_arg1647z00_3172,
																																													BgL_portz00_43);
																																											}
																																											bgl_display_string
																																												(BGl_string2330z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_43);
																																											{	/* Ieee/output.scm 929 */
																																												obj_t
																																													BgL_arg1649z00_3173;
																																												BgL_arg1649z00_3173
																																													=
																																													BGL_MUTEX_BACKEND
																																													(BgL_objz00_42);
																																												bgl_display_obj
																																													(BgL_arg1649z00_3173,
																																													BgL_portz00_43);
																																											}
																																											return
																																												bgl_display_string
																																												(BGl_string2328z00zz__r4_output_6_10_3z00,
																																												BgL_portz00_43);
																																										}
																																									else
																																										{	/* Ieee/output.scm 776 */
																																											if (BGL_CONDVARP(BgL_objz00_42))
																																												{	/* Ieee/output.scm 776 */
																																													bgl_display_string
																																														(BGl_string2331z00zz__r4_output_6_10_3z00,
																																														BgL_portz00_43);
																																													{	/* Ieee/output.scm 937 */
																																														obj_t
																																															BgL_arg1651z00_3181;
																																														{	/* Ieee/output.scm 937 */
																																															obj_t
																																																BgL_tmpz00_5049;
																																															BgL_tmpz00_5049
																																																=
																																																(
																																																(obj_t)
																																																BgL_objz00_42);
																																															BgL_arg1651z00_3181
																																																=
																																																BGL_CONDVAR_NAME
																																																(BgL_tmpz00_5049);
																																														}
																																														bgl_display_obj
																																															(BgL_arg1651z00_3181,
																																															BgL_portz00_43);
																																													}
																																													return
																																														bgl_display_string
																																														(BGl_string2328z00zz__r4_output_6_10_3z00,
																																														BgL_portz00_43);
																																												}
																																											else
																																												{	/* Ieee/output.scm 776 */
																																													if (UCS2P(BgL_objz00_42))
																																														{	/* Ieee/output.scm 776 */
																																															return
																																																bgl_write_ucs2
																																																(BgL_objz00_42,
																																																BgL_portz00_43);
																																														}
																																													else
																																														{	/* Ieee/output.scm 776 */
																																															if (CELLP(BgL_objz00_42))
																																																{	/* Ieee/output.scm 776 */
																																																	bgl_display_string
																																																		(BGl_string2332z00zz__r4_output_6_10_3z00,
																																																		BgL_portz00_43);
																																																	bgl_write_obj
																																																		(CELL_REF
																																																		(BgL_objz00_42),
																																																		BgL_portz00_43);
																																																	return
																																																		bgl_display_string
																																																		(BGl_string2328z00zz__r4_output_6_10_3z00,
																																																		BgL_portz00_43);
																																																}
																																															else
																																																{	/* Ieee/output.scm 776 */
																																																	if (EOF_OBJECTP(BgL_objz00_42))
																																																		{	/* Ieee/output.scm 776 */
																																																			return
																																																				bgl_display_string
																																																				(BGl_string2333z00zz__r4_output_6_10_3z00,
																																																				BgL_portz00_43);
																																																		}
																																																	else
																																																		{	/* Ieee/output.scm 776 */
																																																			if ((BgL_objz00_42 == (BOPTIONAL)))
																																																				{	/* Ieee/output.scm 776 */
																																																					return
																																																						bgl_display_string
																																																						(BGl_string2334z00zz__r4_output_6_10_3z00,
																																																						BgL_portz00_43);
																																																				}
																																																			else
																																																				{	/* Ieee/output.scm 776 */
																																																					if ((BgL_objz00_42 == (BREST)))
																																																						{	/* Ieee/output.scm 776 */
																																																							return
																																																								bgl_display_string
																																																								(BGl_string2335z00zz__r4_output_6_10_3z00,
																																																								BgL_portz00_43);
																																																						}
																																																					else
																																																						{	/* Ieee/output.scm 776 */
																																																							if ((BgL_objz00_42 == (BKEY)))
																																																								{	/* Ieee/output.scm 776 */
																																																									return
																																																										bgl_display_string
																																																										(BGl_string2336z00zz__r4_output_6_10_3z00,
																																																										BgL_portz00_43);
																																																								}
																																																							else
																																																								{	/* Ieee/output.scm 776 */
																																																									if (PROCEDUREP(BgL_objz00_42))
																																																										{	/* Ieee/output.scm 776 */
																																																											return
																																																												bgl_write_procedure
																																																												(BgL_objz00_42,
																																																												BgL_portz00_43);
																																																										}
																																																									else
																																																										{	/* Ieee/output.scm 776 */
																																																											if (OUTPUT_PORTP(BgL_objz00_42))
																																																												{	/* Ieee/output.scm 776 */
																																																													if (BGL_OUTPUT_STRING_PORTP(BgL_objz00_42))
																																																														{	/* Ieee/output.scm 776 */
																																																															return
																																																																bgl_display_string
																																																																(BGl_string2337z00zz__r4_output_6_10_3z00,
																																																																BgL_portz00_43);
																																																														}
																																																													else
																																																														{	/* Ieee/output.scm 776 */
																																																															if (BGL_OUTPUT_PROCEDURE_PORTP(BgL_objz00_42))
																																																																{	/* Ieee/output.scm 776 */
																																																																	return
																																																																		bgl_display_string
																																																																		(BGl_string2338z00zz__r4_output_6_10_3z00,
																																																																		BgL_portz00_43);
																																																																}
																																																															else
																																																																{	/* Ieee/output.scm 776 */
																																																																	return
																																																																		bgl_write_output_port
																																																																		(BgL_objz00_42,
																																																																		BgL_portz00_43);
																																																																}
																																																														}
																																																												}
																																																											else
																																																												{	/* Ieee/output.scm 776 */
																																																													if (INPUT_PORTP(BgL_objz00_42))
																																																														{	/* Ieee/output.scm 776 */
																																																															return
																																																																bgl_write_input_port
																																																																(BgL_objz00_42,
																																																																BgL_portz00_43);
																																																														}
																																																													else
																																																														{	/* Ieee/output.scm 776 */
																																																															if (BIGNUMP(BgL_objz00_42))
																																																																{	/* Ieee/output.scm 776 */
																																																																	return
																																																																		bgl_write_bignum
																																																																		(BgL_objz00_42,
																																																																		BgL_portz00_43);
																																																																}
																																																															else
																																																																{	/* Ieee/output.scm 776 */
																																																																	if (BGL_HVECTORP(BgL_objz00_42))
																																																																		{	/* Ieee/output.scm 776 */
																																																																			return
																																																																				BGl_writezf2displayzd2hvectorz20zz__r4_output_6_10_3z00
																																																																				(BgL_objz00_42,
																																																																				BgL_portz00_43,
																																																																				BGl_writezd22zd2envz00zz__r4_output_6_10_3z00);
																																																																		}
																																																																	else
																																																																		{	/* Ieee/output.scm 776 */
																																																																			if (TVECTORP(BgL_objz00_42))
																																																																				{	/* Ieee/output.scm 776 */
																																																																					return
																																																																						BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00
																																																																						(BgL_objz00_42,
																																																																						BgL_portz00_43,
																																																																						BGl_writezd22zd2envz00zz__r4_output_6_10_3z00);
																																																																				}
																																																																			else
																																																																				{	/* Ieee/output.scm 776 */
																																																																					if (BGL_WEAKPTRP(BgL_objz00_42))
																																																																						{	/* Ieee/output.scm 1061 */
																																																																							obj_t
																																																																								BgL_dataz00_3205;
																																																																							BgL_dataz00_3205
																																																																								=
																																																																								bgl_weakptr_data
																																																																								(BgL_objz00_42);
																																																																							bgl_display_string
																																																																								(BGl_string2339z00zz__r4_output_6_10_3z00,
																																																																								BgL_portz00_43);
																																																																							bgl_write_obj
																																																																								(BgL_dataz00_3205,
																																																																								BgL_portz00_43);
																																																																							return
																																																																								bgl_display_char
																																																																								(
																																																																								((unsigned char) '>'), BgL_portz00_43);
																																																																						}
																																																																					else
																																																																						{	/* Ieee/output.scm 776 */
																																																																							if (FOREIGNP(BgL_objz00_42))
																																																																								{	/* Ieee/output.scm 776 */
																																																																									return
																																																																										bgl_write_foreign
																																																																										(BgL_objz00_42,
																																																																										BgL_portz00_43);
																																																																								}
																																																																							else
																																																																								{	/* Ieee/output.scm 776 */
																																																																									if (PROCESSP(BgL_objz00_42))
																																																																										{	/* Ieee/output.scm 776 */
																																																																											return
																																																																												bgl_write_process
																																																																												(BgL_objz00_42,
																																																																												BgL_portz00_43);
																																																																										}
																																																																									else
																																																																										{	/* Ieee/output.scm 776 */
																																																																											if (SOCKETP(BgL_objz00_42))
																																																																												{	/* Ieee/output.scm 776 */
																																																																													return
																																																																														bgl_write_socket
																																																																														(BgL_objz00_42,
																																																																														BgL_portz00_43);
																																																																												}
																																																																											else
																																																																												{	/* Ieee/output.scm 776 */
																																																																													if (BGL_DATAGRAM_SOCKETP(BgL_objz00_42))
																																																																														{	/* Ieee/output.scm 776 */
																																																																															return
																																																																																bgl_write_datagram_socket
																																																																																(BgL_objz00_42,
																																																																																BgL_portz00_43);
																																																																														}
																																																																													else
																																																																														{	/* Ieee/output.scm 776 */
																																																																															if (BGL_REGEXPP(BgL_objz00_42))
																																																																																{	/* Ieee/output.scm 776 */
																																																																																	return
																																																																																		bgl_write_regexp
																																																																																		(BgL_objz00_42,
																																																																																		BgL_portz00_43);
																																																																																}
																																																																															else
																																																																																{	/* Ieee/output.scm 776 */
																																																																																	if (BGL_MMAPP(BgL_objz00_42))
																																																																																		{	/* Ieee/output.scm 776 */
																																																																																			return
																																																																																				bgl_write_mmap
																																																																																				(BgL_objz00_42,
																																																																																				BgL_portz00_43);
																																																																																		}
																																																																																	else
																																																																																		{	/* Ieee/output.scm 776 */
																																																																																			if (BGL_SEMAPHOREP(BgL_objz00_42))
																																																																																				{	/* Ieee/output.scm 776 */
																																																																																					return
																																																																																						bgl_write_semaphore
																																																																																						(BgL_objz00_42,
																																																																																						BgL_portz00_43);
																																																																																				}
																																																																																			else
																																																																																				{	/* Ieee/output.scm 776 */
																																																																																					if (OPAQUEP(BgL_objz00_42))
																																																																																						{	/* Ieee/output.scm 776 */
																																																																																							BGL_TAIL
																																																																																								return
																																																																																								bgl_write_opaque
																																																																																								(BgL_objz00_42,
																																																																																								BgL_portz00_43);
																																																																																						}
																																																																																					else
																																																																																						{	/* Ieee/output.scm 776 */
																																																																																							if (CUSTOMP(BgL_objz00_42))
																																																																																								{	/* Ieee/output.scm 776 */
																																																																																									BGL_TAIL
																																																																																										return
																																																																																										bgl_write_custom
																																																																																										(BgL_objz00_42,
																																																																																										BgL_portz00_43);
																																																																																								}
																																																																																							else
																																																																																								{	/* Ieee/output.scm 776 */
																																																																																									if (BINARY_PORTP(BgL_objz00_42))
																																																																																										{	/* Ieee/output.scm 776 */
																																																																																											return
																																																																																												bgl_write_binary_port
																																																																																												(BgL_objz00_42,
																																																																																												BgL_portz00_43);
																																																																																										}
																																																																																									else
																																																																																										{	/* Ieee/output.scm 776 */
																																																																																											if (BGL_DYNAMIC_ENVP(BgL_objz00_42))
																																																																																												{	/* Ieee/output.scm 776 */
																																																																																													return
																																																																																														bgl_write_dynamic_env
																																																																																														(BgL_objz00_42,
																																																																																														BgL_portz00_43);
																																																																																												}
																																																																																											else
																																																																																												{	/* Ieee/output.scm 776 */
																																																																																													if (BGL_INT8P(BgL_objz00_42))
																																																																																														{	/* Ieee/output.scm 776 */
																																																																																															bgl_display_string
																																																																																																(BGl_string2342z00zz__r4_output_6_10_3z00,
																																																																																																BgL_portz00_43);
																																																																																															{	/* Ieee/output.scm 776 */
																																																																																																long
																																																																																																	BgL_arg1569z00_1972;
																																																																																																{	/* Ieee/output.scm 776 */
																																																																																																	int8_t
																																																																																																		BgL_xz00_3209;
																																																																																																	BgL_xz00_3209
																																																																																																		=
																																																																																																		BGL_BINT8_TO_INT8
																																																																																																		(BgL_objz00_42);
																																																																																																	{	/* Ieee/output.scm 776 */
																																																																																																		long
																																																																																																			BgL_arg1996z00_3210;
																																																																																																		BgL_arg1996z00_3210
																																																																																																			=
																																																																																																			(long)
																																																																																																			(BgL_xz00_3209);
																																																																																																		BgL_arg1569z00_1972
																																																																																																			=
																																																																																																			(long)
																																																																																																			(BgL_arg1996z00_3210);
																																																																																																}}
																																																																																																BGL_TAIL
																																																																																																	return
																																																																																																	bgl_display_obj
																																																																																																	(BINT
																																																																																																	(BgL_arg1569z00_1972),
																																																																																																	BgL_portz00_43);
																																																																																															}
																																																																																														}
																																																																																													else
																																																																																														{	/* Ieee/output.scm 776 */
																																																																																															if (BGL_UINT8P(BgL_objz00_42))
																																																																																																{	/* Ieee/output.scm 776 */
																																																																																																	bgl_display_string
																																																																																																		(BGl_string2343z00zz__r4_output_6_10_3z00,
																																																																																																		BgL_portz00_43);
																																																																																																	{	/* Ieee/output.scm 776 */
																																																																																																		long
																																																																																																			BgL_arg1573z00_1974;
																																																																																																		{	/* Ieee/output.scm 776 */
																																																																																																			uint8_t
																																																																																																				BgL_xz00_3214;
																																																																																																			BgL_xz00_3214
																																																																																																				=
																																																																																																				BGL_BUINT8_TO_UINT8
																																																																																																				(BgL_objz00_42);
																																																																																																			{	/* Ieee/output.scm 776 */
																																																																																																				long
																																																																																																					BgL_arg1995z00_3215;
																																																																																																				BgL_arg1995z00_3215
																																																																																																					=
																																																																																																					(long)
																																																																																																					(BgL_xz00_3214);
																																																																																																				BgL_arg1573z00_1974
																																																																																																					=
																																																																																																					(long)
																																																																																																					(BgL_arg1995z00_3215);
																																																																																																		}}
																																																																																																		BGL_TAIL
																																																																																																			return
																																																																																																			bgl_display_obj
																																																																																																			(BINT
																																																																																																			(BgL_arg1573z00_1974),
																																																																																																			BgL_portz00_43);
																																																																																																	}
																																																																																																}
																																																																																															else
																																																																																																{	/* Ieee/output.scm 776 */
																																																																																																	if (BGL_INT16P(BgL_objz00_42))
																																																																																																		{	/* Ieee/output.scm 776 */
																																																																																																			bgl_display_string
																																																																																																				(BGl_string2344z00zz__r4_output_6_10_3z00,
																																																																																																				BgL_portz00_43);
																																																																																																			{	/* Ieee/output.scm 776 */
																																																																																																				long
																																																																																																					BgL_arg1575z00_1976;
																																																																																																				{	/* Ieee/output.scm 776 */
																																																																																																					int16_t
																																																																																																						BgL_xz00_3219;
																																																																																																					BgL_xz00_3219
																																																																																																						=
																																																																																																						BGL_BINT16_TO_INT16
																																																																																																						(BgL_objz00_42);
																																																																																																					{	/* Ieee/output.scm 776 */
																																																																																																						long
																																																																																																							BgL_arg1994z00_3220;
																																																																																																						BgL_arg1994z00_3220
																																																																																																							=
																																																																																																							(long)
																																																																																																							(BgL_xz00_3219);
																																																																																																						BgL_arg1575z00_1976
																																																																																																							=
																																																																																																							(long)
																																																																																																							(BgL_arg1994z00_3220);
																																																																																																				}}
																																																																																																				BGL_TAIL
																																																																																																					return
																																																																																																					bgl_display_obj
																																																																																																					(BINT
																																																																																																					(BgL_arg1575z00_1976),
																																																																																																					BgL_portz00_43);
																																																																																																			}
																																																																																																		}
																																																																																																	else
																																																																																																		{	/* Ieee/output.scm 776 */
																																																																																																			if (BGL_UINT16P(BgL_objz00_42))
																																																																																																				{	/* Ieee/output.scm 776 */
																																																																																																					bgl_display_string
																																																																																																						(BGl_string2345z00zz__r4_output_6_10_3z00,
																																																																																																						BgL_portz00_43);
																																																																																																					{	/* Ieee/output.scm 776 */
																																																																																																						long
																																																																																																							BgL_arg1577z00_1978;
																																																																																																						{	/* Ieee/output.scm 776 */
																																																																																																							uint16_t
																																																																																																								BgL_xz00_3224;
																																																																																																							BgL_xz00_3224
																																																																																																								=
																																																																																																								BGL_BUINT16_TO_UINT16
																																																																																																								(BgL_objz00_42);
																																																																																																							{	/* Ieee/output.scm 776 */
																																																																																																								long
																																																																																																									BgL_arg1993z00_3225;
																																																																																																								BgL_arg1993z00_3225
																																																																																																									=
																																																																																																									(long)
																																																																																																									(BgL_xz00_3224);
																																																																																																								BgL_arg1577z00_1978
																																																																																																									=
																																																																																																									(long)
																																																																																																									(BgL_arg1993z00_3225);
																																																																																																						}}
																																																																																																						BGL_TAIL
																																																																																																							return
																																																																																																							bgl_display_obj
																																																																																																							(BINT
																																																																																																							(BgL_arg1577z00_1978),
																																																																																																							BgL_portz00_43);
																																																																																																					}
																																																																																																				}
																																																																																																			else
																																																																																																				{	/* Ieee/output.scm 776 */
																																																																																																					if (BGL_INT32P(BgL_objz00_42))
																																																																																																						{	/* Ieee/output.scm 776 */
																																																																																																							bgl_display_string
																																																																																																								(BGl_string2346z00zz__r4_output_6_10_3z00,
																																																																																																								BgL_portz00_43);
																																																																																																							{	/* Ieee/output.scm 776 */
																																																																																																								long
																																																																																																									BgL_arg1580z00_1980;
																																																																																																								{	/* Ieee/output.scm 776 */
																																																																																																									int32_t
																																																																																																										BgL_nz00_3229;
																																																																																																									BgL_nz00_3229
																																																																																																										=
																																																																																																										BGL_BINT32_TO_INT32
																																																																																																										(BgL_objz00_42);
																																																																																																									BgL_arg1580z00_1980
																																																																																																										=
																																																																																																										(long)
																																																																																																										(BgL_nz00_3229);
																																																																																																								}
																																																																																																								BGL_TAIL
																																																																																																									return
																																																																																																									bgl_display_obj
																																																																																																									(make_belong
																																																																																																									(BgL_arg1580z00_1980),
																																																																																																									BgL_portz00_43);
																																																																																																							}
																																																																																																						}
																																																																																																					else
																																																																																																						{	/* Ieee/output.scm 776 */
																																																																																																							if (BGL_UINT32P(BgL_objz00_42))
																																																																																																								{	/* Ieee/output.scm 776 */
																																																																																																									bgl_display_string
																																																																																																										(BGl_string2347z00zz__r4_output_6_10_3z00,
																																																																																																										BgL_portz00_43);
																																																																																																									{	/* Ieee/output.scm 776 */
																																																																																																										BGL_LONGLONG_T
																																																																																																											BgL_arg1582z00_1982;
																																																																																																										{	/* Ieee/output.scm 776 */
																																																																																																											uint32_t
																																																																																																												BgL_nz00_3232;
																																																																																																											BgL_nz00_3232
																																																																																																												=
																																																																																																												BGL_BUINT32_TO_UINT32
																																																																																																												(BgL_objz00_42);
																																																																																																											BgL_arg1582z00_1982
																																																																																																												=
																																																																																																												(BGL_LONGLONG_T)
																																																																																																												(BgL_nz00_3232);
																																																																																																										}
																																																																																																										BGL_TAIL
																																																																																																											return
																																																																																																											bgl_display_obj
																																																																																																											(make_bllong
																																																																																																											(BgL_arg1582z00_1982),
																																																																																																											BgL_portz00_43);
																																																																																																									}
																																																																																																								}
																																																																																																							else
																																																																																																								{	/* Ieee/output.scm 776 */
																																																																																																									if (BGL_INT64P(BgL_objz00_42))
																																																																																																										{	/* Ieee/output.scm 776 */
																																																																																																											bgl_display_string
																																																																																																												(BGl_string2348z00zz__r4_output_6_10_3z00,
																																																																																																												BgL_portz00_43);
																																																																																																											{	/* Ieee/output.scm 776 */
																																																																																																												BGL_LONGLONG_T
																																																																																																													BgL_arg1584z00_1984;
																																																																																																												{	/* Ieee/output.scm 776 */
																																																																																																													int64_t
																																																																																																														BgL_nz00_3235;
																																																																																																													BgL_nz00_3235
																																																																																																														=
																																																																																																														BGL_BINT64_TO_INT64
																																																																																																														(BgL_objz00_42);
																																																																																																													BgL_arg1584z00_1984
																																																																																																														=
																																																																																																														(BGL_LONGLONG_T)
																																																																																																														(BgL_nz00_3235);
																																																																																																												}
																																																																																																												BGL_TAIL
																																																																																																													return
																																																																																																													bgl_display_obj
																																																																																																													(make_bllong
																																																																																																													(BgL_arg1584z00_1984),
																																																																																																													BgL_portz00_43);
																																																																																																											}
																																																																																																										}
																																																																																																									else
																																																																																																										{	/* Ieee/output.scm 776 */
																																																																																																											if (BGL_UINT64P(BgL_objz00_42))
																																																																																																												{	/* Ieee/output.scm 776 */
																																																																																																													bgl_display_string
																																																																																																														(BGl_string2349z00zz__r4_output_6_10_3z00,
																																																																																																														BgL_portz00_43);
																																																																																																													{	/* Ieee/output.scm 776 */
																																																																																																														uint64_t
																																																																																																															BgL_vz00_1986;
																																																																																																														{	/* Ieee/output.scm 776 */
																																																																																																															uint64_t
																																																																																																																BgL_arg1592z00_1989;
																																																																																																															BgL_arg1592z00_1989
																																																																																																																=
																																																																																																																(uint64_t)
																																																																																																																(10L);
																																																																																																															{	/* Ieee/output.scm 776 */
																																																																																																																uint64_t
																																																																																																																	BgL_za71za7_3238;
																																																																																																																BgL_za71za7_3238
																																																																																																																	=
																																																																																																																	BGL_BINT64_TO_INT64
																																																																																																																	(BgL_objz00_42);
																																																																																																																BgL_vz00_1986
																																																																																																																	=
																																																																																																																	(BgL_za71za7_3238
																																																																																																																	/
																																																																																																																	BgL_arg1592z00_1989);
																																																																																																															}
																																																																																																														}
																																																																																																														if ((BgL_vz00_1986 > (uint64_t) (0)))
																																																																																																															{	/* Ieee/output.scm 776 */
																																																																																																																BGL_LONGLONG_T
																																																																																																																	BgL_arg1588z00_1988;
																																																																																																																BgL_arg1588z00_1988
																																																																																																																	=
																																																																																																																	(BGL_LONGLONG_T)
																																																																																																																	(BgL_vz00_1986);
																																																																																																																bgl_display_obj
																																																																																																																	(make_bllong
																																																																																																																	(BgL_arg1588z00_1988),
																																																																																																																	BgL_portz00_43);
																																																																																																															}
																																																																																																														else
																																																																																																															{	/* Ieee/output.scm 776 */
																																																																																																																BFALSE;
																																																																																																															}
																																																																																																													}
																																																																																																													{	/* Ieee/output.scm 776 */
																																																																																																														long
																																																																																																															BgL_arg1593z00_1990;
																																																																																																														{	/* Ieee/output.scm 776 */
																																																																																																															uint64_t
																																																																																																																BgL_arg1595z00_1991;
																																																																																																															{	/* Ieee/output.scm 776 */
																																																																																																																uint64_t
																																																																																																																	BgL_arg1596z00_1992;
																																																																																																																BgL_arg1596z00_1992
																																																																																																																	=
																																																																																																																	(uint64_t)
																																																																																																																	(10L);
																																																																																																																{	/* Ieee/output.scm 776 */
																																																																																																																	uint64_t
																																																																																																																		BgL_n1z00_3243;
																																																																																																																	BgL_n1z00_3243
																																																																																																																		=
																																																																																																																		BGL_BINT64_TO_INT64
																																																																																																																		(BgL_objz00_42);
																																																																																																																	{	/* Ieee/output.scm 776 */
																																																																																																																		int64_t
																																																																																																																			BgL_tmpz00_5204;
																																																																																																																		BgL_tmpz00_5204
																																																																																																																			=
																																																																																																																			(int64_t)
																																																																																																																			(BgL_arg1596z00_1992);
																																																																																																																		BgL_arg1595z00_1991
																																																																																																																			=
																																																																																																																			(BgL_n1z00_3243
																																																																																																																			%
																																																																																																																			BgL_tmpz00_5204);
																																																																																																															}}}
																																																																																																															{	/* Ieee/output.scm 776 */
																																																																																																																long
																																																																																																																	BgL_arg1990z00_3246;
																																																																																																																BgL_arg1990z00_3246
																																																																																																																	=
																																																																																																																	(long)
																																																																																																																	(BgL_arg1595z00_1991);
																																																																																																																BgL_arg1593z00_1990
																																																																																																																	=
																																																																																																																	(long)
																																																																																																																	(BgL_arg1990z00_3246);
																																																																																																														}}
																																																																																																														BGL_TAIL
																																																																																																															return
																																																																																																															bgl_display_obj
																																																																																																															(BINT
																																																																																																															(BgL_arg1593z00_1990),
																																																																																																															BgL_portz00_43);
																																																																																																													}
																																																																																																												}
																																																																																																											else
																																																																																																												{	/* Ieee/output.scm 776 */
																																																																																																													if (CNSTP(BgL_objz00_42))
																																																																																																														{	/* Ieee/output.scm 776 */
																																																																																																															BGL_TAIL
																																																																																																																return
																																																																																																																bgl_write_cnst
																																																																																																																(BgL_objz00_42,
																																																																																																																BgL_portz00_43);
																																																																																																														}
																																																																																																													else
																																																																																																														{	/* Ieee/output.scm 776 */
																																																																																																															BGL_TAIL
																																																																																																																return
																																																																																																																bgl_write_unknown
																																																																																																																(BgL_objz00_42,
																																																																																																																BgL_portz00_43);
																																																																																																														}
																																																																																																												}
																																																																																																										}
																																																																																																								}
																																																																																																						}
																																																																																																				}
																																																																																																		}
																																																																																																}
																																																																																														}
																																																																																												}
																																																																																										}
																																																																																								}
																																																																																						}
																																																																																				}
																																																																																		}
																																																																																}
																																																																														}
																																																																												}
																																																																										}
																																																																								}
																																																																						}
																																																																				}
																																																																		}
																																																																}
																																																														}
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																						}
																																				}
																																		}
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
		}

	}



/* &write-2 */
	obj_t BGl_z62writezd22zb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3854,
		obj_t BgL_objz00_3855, obj_t BgL_portz00_3856)
	{
		{	/* Ieee/output.scm 775 */
			{	/* Ieee/output.scm 776 */
				obj_t BgL_auxz00_5215;

				if (OUTPUT_PORTP(BgL_portz00_3856))
					{	/* Ieee/output.scm 776 */
						BgL_auxz00_5215 = BgL_portz00_3856;
					}
				else
					{
						obj_t BgL_auxz00_5218;

						BgL_auxz00_5218 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(27289L),
							BGl_string2350z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3856);
						FAILURE(BgL_auxz00_5218, BFALSE, BFALSE);
					}
				return bgl_write_obj(BgL_objz00_3855, BgL_auxz00_5215);
			}
		}

	}



/* display-symbol */
	BGL_EXPORTED_DEF obj_t BGl_displayzd2symbolzd2zz__r4_output_6_10_3z00(obj_t
		BgL_objz00_44, obj_t BgL_portz00_45)
	{
		{	/* Ieee/output.scm 781 */
			{	/* Ieee/output.scm 782 */
				obj_t BgL_arg1598z00_3248;

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

	}



/* &display-symbol */
	obj_t BGl_z62displayzd2symbolzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3857,
		obj_t BgL_objz00_3858, obj_t BgL_portz00_3859)
	{
		{	/* Ieee/output.scm 781 */
			{	/* Ieee/output.scm 782 */
				obj_t BgL_auxz00_5232;
				obj_t BgL_auxz00_5225;

				if (OUTPUT_PORTP(BgL_portz00_3859))
					{	/* Ieee/output.scm 782 */
						BgL_auxz00_5232 = BgL_portz00_3859;
					}
				else
					{
						obj_t BgL_auxz00_5235;

						BgL_auxz00_5235 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(27600L),
							BGl_string2351z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3859);
						FAILURE(BgL_auxz00_5235, BFALSE, BFALSE);
					}
				if (SYMBOLP(BgL_objz00_3858))
					{	/* Ieee/output.scm 782 */
						BgL_auxz00_5225 = BgL_objz00_3858;
					}
				else
					{
						obj_t BgL_auxz00_5228;

						BgL_auxz00_5228 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(27600L),
							BGl_string2351z00zz__r4_output_6_10_3z00,
							BGl_string2352z00zz__r4_output_6_10_3z00, BgL_objz00_3858);
						FAILURE(BgL_auxz00_5228, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2symbolzd2zz__r4_output_6_10_3z00(BgL_auxz00_5225,
					BgL_auxz00_5232);
			}
		}

	}



/* write-symbol */
	BGL_EXPORTED_DEF obj_t BGl_writezd2symbolzd2zz__r4_output_6_10_3z00(obj_t
		BgL_objz00_46, obj_t BgL_portz00_47)
	{
		{	/* Ieee/output.scm 787 */
			{	/* Ieee/output.scm 794 */
				obj_t BgL_strz00_1996;

				BgL_strz00_1996 = SYMBOL_TO_STRING(BgL_objz00_46);
				{	/* Ieee/output.scm 794 */
					long BgL_lenz00_1997;

					BgL_lenz00_1997 = STRING_LENGTH(BgL_strz00_1996);
					{	/* Ieee/output.scm 795 */
						long BgL_lenzd21zd2_1998;

						BgL_lenzd21zd2_1998 = (BgL_lenz00_1997 - 1L);
						{	/* Ieee/output.scm 796 */

							{
								long BgL_iz00_2000;
								bool_t BgL_az00_2001;

								BgL_iz00_2000 = 0L;
								BgL_az00_2001 = ((bool_t) 0);
							BgL_zc3z04anonymousza31599ze3z87_2002:
								if ((BgL_iz00_2000 == BgL_lenz00_1997))
									{	/* Ieee/output.scm 799 */
										if (BgL_az00_2001)
											{	/* Ieee/output.scm 801 */
												return
													bgl_display_string(BgL_strz00_1996, BgL_portz00_47);
											}
										else
											{	/* Ieee/output.scm 802 */
												bool_t BgL_test2694z00_5247;

												if (
													(BgL_objz00_46 ==
														BGl_symbol2353z00zz__r4_output_6_10_3z00))
													{	/* Ieee/output.scm 802 */
														BgL_test2694z00_5247 = ((bool_t) 1);
													}
												else
													{	/* Ieee/output.scm 802 */
														BgL_test2694z00_5247 =
															(BgL_objz00_46 ==
															BGl_symbol2355z00zz__r4_output_6_10_3z00);
													}
												if (BgL_test2694z00_5247)
													{	/* Ieee/output.scm 802 */
														return
															bgl_display_string(BgL_strz00_1996,
															BgL_portz00_47);
													}
												else
													{	/* Ieee/output.scm 802 */
														bgl_display_string
															(BGl_string2357z00zz__r4_output_6_10_3z00,
															BgL_portz00_47);
														{	/* Ieee/output.scm 842 */
															obj_t BgL_tmpz00_5253;

															BgL_tmpz00_5253 =
																symbol_for_read(BgL_strz00_1996);
															bgl_display_string(BgL_tmpz00_5253,
																BgL_portz00_47);
														}
														return
															bgl_display_string
															(BGl_string2357z00zz__r4_output_6_10_3z00,
															BgL_portz00_47);
													}
											}
									}
								else
									{	/* Ieee/output.scm 804 */
										unsigned char BgL_cz00_2005;

										BgL_cz00_2005 = STRING_REF(BgL_strz00_1996, BgL_iz00_2000);
										{

											switch (BgL_cz00_2005)
												{
												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_string2357z00zz__r4_output_6_10_3z00,
														BgL_portz00_47);
													{	/* Ieee/output.scm 842 */
														obj_t BgL_tmpz00_5259;

														BgL_tmpz00_5259 = symbol_for_read(BgL_strz00_1996);
														bgl_display_string(BgL_tmpz00_5259, BgL_portz00_47);
													}
													return
														bgl_display_string
														(BGl_string2357z00zz__r4_output_6_10_3z00,
														BgL_portz00_47);
													break;
												case ((unsigned char) ':'):

													if ((BgL_iz00_2000 == 0L))
														{	/* Ieee/output.scm 812 */
															bool_t BgL_test2697z00_5265;

															if ((BgL_lenzd21zd2_1998 > 2L))
																{	/* Ieee/output.scm 812 */
																	BgL_test2697z00_5265 =
																		(STRING_REF(BgL_strz00_1996,
																			(BgL_iz00_2000 + 1L)) ==
																		((unsigned char) ':'));
																}
															else
																{	/* Ieee/output.scm 812 */
																	BgL_test2697z00_5265 = ((bool_t) 0);
																}
															if (BgL_test2697z00_5265)
																{
																	long BgL_iz00_5271;

																	BgL_iz00_5271 = (BgL_iz00_2000 + 2L);
																	BgL_iz00_2000 = BgL_iz00_5271;
																	goto BgL_zc3z04anonymousza31599ze3z87_2002;
																}
															else
																{	/* Ieee/output.scm 812 */
																	bgl_display_string
																		(BGl_string2357z00zz__r4_output_6_10_3z00,
																		BgL_portz00_47);
																	{	/* Ieee/output.scm 842 */
																		obj_t BgL_tmpz00_5274;

																		BgL_tmpz00_5274 =
																			symbol_for_read(BgL_strz00_1996);
																		bgl_display_string(BgL_tmpz00_5274,
																			BgL_portz00_47);
																	}
																	return
																		bgl_display_string
																		(BGl_string2357z00zz__r4_output_6_10_3z00,
																		BgL_portz00_47);
																}
														}
													else
														{	/* Ieee/output.scm 811 */
															if ((BgL_iz00_2000 == BgL_lenzd21zd2_1998))
																{	/* Ieee/output.scm 816 */
																	bgl_display_string
																		(BGl_string2357z00zz__r4_output_6_10_3z00,
																		BgL_portz00_47);
																	{	/* Ieee/output.scm 842 */
																		obj_t BgL_tmpz00_5281;

																		BgL_tmpz00_5281 =
																			symbol_for_read(BgL_strz00_1996);
																		bgl_display_string(BgL_tmpz00_5281,
																			BgL_portz00_47);
																	}
																	return
																		bgl_display_string
																		(BGl_string2357z00zz__r4_output_6_10_3z00,
																		BgL_portz00_47);
																}
															else
																{
																	long BgL_iz00_5285;

																	BgL_iz00_5285 = (BgL_iz00_2000 + 1L);
																	BgL_iz00_2000 = BgL_iz00_5285;
																	goto BgL_zc3z04anonymousza31599ze3z87_2002;
																}
														}
													break;
												case ((unsigned char) '.'):

													if ((BgL_lenz00_1997 == 1L))
														{	/* Ieee/output.scm 821 */
															bgl_display_string
																(BGl_string2357z00zz__r4_output_6_10_3z00,
																BgL_portz00_47);
															{	/* Ieee/output.scm 842 */
																obj_t BgL_tmpz00_5290;

																BgL_tmpz00_5290 =
																	symbol_for_read(BgL_strz00_1996);
																bgl_display_string(BgL_tmpz00_5290,
																	BgL_portz00_47);
															}
															return
																bgl_display_string
																(BGl_string2357z00zz__r4_output_6_10_3z00,
																BgL_portz00_47);
														}
													else
														{
															long BgL_iz00_5294;

															BgL_iz00_5294 = (BgL_iz00_2000 + 1L);
															BgL_iz00_2000 = BgL_iz00_5294;
															goto BgL_zc3z04anonymousza31599ze3z87_2002;
														}
													break;
												default:
													{	/* Ieee/output.scm 825 */
														bool_t BgL_test2701z00_5296;

														if ((BgL_cz00_2005 <= ((unsigned char) ' ')))
															{	/* Ieee/output.scm 825 */
																BgL_test2701z00_5296 = ((bool_t) 1);
															}
														else
															{	/* Ieee/output.scm 825 */
																BgL_test2701z00_5296 =
																	(BgL_cz00_2005 >= ((unsigned char) ''));
															}
														if (BgL_test2701z00_5296)
															{	/* Ieee/output.scm 825 */
																bgl_display_string
																	(BGl_string2357z00zz__r4_output_6_10_3z00,
																	BgL_portz00_47);
																{	/* Ieee/output.scm 842 */
																	obj_t BgL_tmpz00_5301;

																	BgL_tmpz00_5301 =
																		symbol_for_read(BgL_strz00_1996);
																	bgl_display_string(BgL_tmpz00_5301,
																		BgL_portz00_47);
																}
																return
																	bgl_display_string
																	(BGl_string2357z00zz__r4_output_6_10_3z00,
																	BgL_portz00_47);
															}
														else
															{	/* Ieee/output.scm 827 */
																long BgL_arg1620z00_2024;
																bool_t BgL_arg1621z00_2025;

																BgL_arg1620z00_2024 = (BgL_iz00_2000 + 1L);
																if (BgL_az00_2001)
																	{	/* Ieee/output.scm 828 */
																		BgL_arg1621z00_2025 = BgL_az00_2001;
																	}
																else
																	{	/* Ieee/output.scm 829 */
																		bool_t BgL__ortest_1053z00_2027;

																		if (isdigit(BgL_cz00_2005))
																			{	/* Ieee/output.scm 829 */
																				BgL__ortest_1053z00_2027 = ((bool_t) 0);
																			}
																		else
																			{	/* Ieee/output.scm 829 */
																				if (
																					(BgL_cz00_2005 ==
																						((unsigned char) 'e')))
																					{	/* Ieee/output.scm 830 */
																						BgL__ortest_1053z00_2027 =
																							((bool_t) 0);
																					}
																				else
																					{	/* Ieee/output.scm 830 */
																						if (
																							(BgL_cz00_2005 ==
																								((unsigned char) 'E')))
																							{	/* Ieee/output.scm 831 */
																								BgL__ortest_1053z00_2027 =
																									((bool_t) 0);
																							}
																						else
																							{	/* Ieee/output.scm 831 */
																								if (
																									(BgL_cz00_2005 ==
																										((unsigned char) '-')))
																									{	/* Ieee/output.scm 832 */
																										BgL__ortest_1053z00_2027 =
																											((bool_t) 0);
																									}
																								else
																									{	/* Ieee/output.scm 832 */
																										if (
																											(BgL_cz00_2005 ==
																												((unsigned char) '+')))
																											{	/* Ieee/output.scm 833 */
																												BgL__ortest_1053z00_2027
																													= ((bool_t) 0);
																											}
																										else
																											{	/* Ieee/output.scm 833 */
																												BgL__ortest_1053z00_2027
																													= ((bool_t) 1);
																											}
																									}
																							}
																					}
																			}
																		if (BgL__ortest_1053z00_2027)
																			{	/* Ieee/output.scm 829 */
																				BgL_arg1621z00_2025 =
																					BgL__ortest_1053z00_2027;
																			}
																		else
																			{	/* Ieee/output.scm 829 */
																				if ((BgL_iz00_2000 == 0L))
																					{	/* Ieee/output.scm 835 */
																						bool_t BgL__ortest_1059z00_2029;

																						BgL__ortest_1059z00_2029 =
																							(BgL_cz00_2005 ==
																							((unsigned char) 'e'));
																						if (BgL__ortest_1059z00_2029)
																							{	/* Ieee/output.scm 835 */
																								BgL_arg1621z00_2025 =
																									BgL__ortest_1059z00_2029;
																							}
																						else
																							{	/* Ieee/output.scm 835 */
																								BgL_arg1621z00_2025 =
																									(BgL_cz00_2005 ==
																									((unsigned char) 'E'));
																					}}
																				else
																					{	/* Ieee/output.scm 834 */
																						BgL_arg1621z00_2025 = ((bool_t) 0);
																					}
																			}
																	}
																{
																	bool_t BgL_az00_5324;
																	long BgL_iz00_5323;

																	BgL_iz00_5323 = BgL_arg1620z00_2024;
																	BgL_az00_5324 = BgL_arg1621z00_2025;
																	BgL_az00_2001 = BgL_az00_5324;
																	BgL_iz00_2000 = BgL_iz00_5323;
																	goto BgL_zc3z04anonymousza31599ze3z87_2002;
																}
															}
													}
												}
										}
									}
							}
						}
					}
				}
			}
		}

	}



/* &write-symbol */
	obj_t BGl_z62writezd2symbolzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3860,
		obj_t BgL_objz00_3861, obj_t BgL_portz00_3862)
	{
		{	/* Ieee/output.scm 787 */
			{	/* Ieee/output.scm 794 */
				obj_t BgL_auxz00_5333;
				obj_t BgL_auxz00_5326;

				if (OUTPUT_PORTP(BgL_portz00_3862))
					{	/* Ieee/output.scm 794 */
						BgL_auxz00_5333 = BgL_portz00_3862;
					}
				else
					{
						obj_t BgL_auxz00_5336;

						BgL_auxz00_5336 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(28032L),
							BGl_string2358z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3862);
						FAILURE(BgL_auxz00_5336, BFALSE, BFALSE);
					}
				if (SYMBOLP(BgL_objz00_3861))
					{	/* Ieee/output.scm 794 */
						BgL_auxz00_5326 = BgL_objz00_3861;
					}
				else
					{
						obj_t BgL_auxz00_5329;

						BgL_auxz00_5329 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(28032L),
							BGl_string2358z00zz__r4_output_6_10_3z00,
							BGl_string2352z00zz__r4_output_6_10_3z00, BgL_objz00_3861);
						FAILURE(BgL_auxz00_5329, BFALSE, BFALSE);
					}
				return
					BGl_writezd2symbolzd2zz__r4_output_6_10_3z00(BgL_auxz00_5326,
					BgL_auxz00_5333);
			}
		}

	}



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

	}



/* &display-string */
	obj_t BGl_z62displayzd2stringzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3863,
		obj_t BgL_objz00_3864, obj_t BgL_portz00_3865)
	{
		{	/* Ieee/output.scm 841 */
			{	/* Ieee/output.scm 842 */
				obj_t BgL_auxz00_5349;
				obj_t BgL_auxz00_5342;

				if (OUTPUT_PORTP(BgL_portz00_3865))
					{	/* Ieee/output.scm 842 */
						BgL_auxz00_5349 = BgL_portz00_3865;
					}
				else
					{
						obj_t BgL_auxz00_5352;

						BgL_auxz00_5352 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(29374L),
							BGl_string2359z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3865);
						FAILURE(BgL_auxz00_5352, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_objz00_3864))
					{	/* Ieee/output.scm 842 */
						BgL_auxz00_5342 = BgL_objz00_3864;
					}
				else
					{
						obj_t BgL_auxz00_5345;

						BgL_auxz00_5345 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(29374L),
							BGl_string2359z00zz__r4_output_6_10_3z00,
							BGl_string2318z00zz__r4_output_6_10_3z00, BgL_objz00_3864);
						FAILURE(BgL_auxz00_5345, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_5342,
					BgL_auxz00_5349);
			}
		}

	}



/* display-substring */
	BGL_EXPORTED_DEF obj_t BGl_displayzd2substringzd2zz__r4_output_6_10_3z00(obj_t
		BgL_objz00_50, long BgL_startz00_51, long BgL_endz00_52,
		obj_t BgL_portz00_53)
	{
		{	/* Ieee/output.scm 847 */
			{	/* Ieee/output.scm 848 */
				bool_t BgL_test2716z00_5357;

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

						{	/* Ieee/output.scm 849 */
							long BgL_tmpz00_5361;

							BgL_tmpz00_5361 = (STRING_LENGTH(BgL_objz00_50) + 1L);
							BgL_test2718z00_5360 =
								BOUND_CHECK(BgL_endz00_52, BgL_tmpz00_5361);
						}
						if (BgL_test2718z00_5360)
							{	/* Ieee/output.scm 849 */
								BgL_test2716z00_5357 = (BgL_startz00_51 >= 0L);
							}
						else
							{	/* Ieee/output.scm 849 */
								BgL_test2716z00_5357 = ((bool_t) 0);
							}
					}
				else
					{	/* Ieee/output.scm 848 */
						BgL_test2716z00_5357 = ((bool_t) 0);
					}
				if (BgL_test2716z00_5357)
					{	/* Ieee/output.scm 848 */
						return
							bgl_display_substring(BgL_objz00_50, BgL_startz00_51,
							BgL_endz00_52, BgL_portz00_53);
					}
				else
					{	/* Ieee/output.scm 853 */
						obj_t BgL_arg1632z00_3981;

						{	/* Ieee/output.scm 853 */
							obj_t BgL_list1633z00_3982;

							{	/* Ieee/output.scm 853 */
								obj_t BgL_arg1634z00_3983;

								BgL_arg1634z00_3983 =
									MAKE_YOUNG_PAIR(BINT(BgL_endz00_52), BNIL);
								BgL_list1633z00_3982 =
									MAKE_YOUNG_PAIR(BINT(BgL_startz00_51), BgL_arg1634z00_3983);
							}
							BgL_arg1632z00_3981 =
								BGl_formatz00zz__r4_output_6_10_3z00
								(BGl_string2360z00zz__r4_output_6_10_3z00,
								BgL_list1633z00_3982);
						}
						return
							BGl_errorz00zz__errorz00(BGl_string2361z00zz__r4_output_6_10_3z00,
							BgL_arg1632z00_3981, BgL_objz00_50);
					}
			}
		}

	}



/* &display-substring */
	obj_t BGl_z62displayzd2substringzb0zz__r4_output_6_10_3z00(obj_t
		BgL_envz00_3866, obj_t BgL_objz00_3867, obj_t BgL_startz00_3868,
		obj_t BgL_endz00_3869, obj_t BgL_portz00_3870)
	{
		{	/* Ieee/output.scm 847 */
			{	/* Ieee/output.scm 848 */
				obj_t BgL_auxz00_5398;
				long BgL_auxz00_5389;
				long BgL_auxz00_5380;
				obj_t BgL_auxz00_5373;

				if (OUTPUT_PORTP(BgL_portz00_3870))
					{	/* Ieee/output.scm 848 */
						BgL_auxz00_5398 = BgL_portz00_3870;
					}
				else
					{
						obj_t BgL_auxz00_5401;

						BgL_auxz00_5401 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(29682L),
							BGl_string2362z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3870);
						FAILURE(BgL_auxz00_5401, BFALSE, BFALSE);
					}
				{	/* Ieee/output.scm 848 */
					obj_t BgL_tmpz00_5390;

					if (INTEGERP(BgL_endz00_3869))
						{	/* Ieee/output.scm 848 */
							BgL_tmpz00_5390 = BgL_endz00_3869;
						}
					else
						{
							obj_t BgL_auxz00_5393;

							BgL_auxz00_5393 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(29682L),
								BGl_string2362z00zz__r4_output_6_10_3z00,
								BGl_string2297z00zz__r4_output_6_10_3z00, BgL_endz00_3869);
							FAILURE(BgL_auxz00_5393, BFALSE, BFALSE);
						}
					BgL_auxz00_5389 = (long) CINT(BgL_tmpz00_5390);
				}
				{	/* Ieee/output.scm 848 */
					obj_t BgL_tmpz00_5381;

					if (INTEGERP(BgL_startz00_3868))
						{	/* Ieee/output.scm 848 */
							BgL_tmpz00_5381 = BgL_startz00_3868;
						}
					else
						{
							obj_t BgL_auxz00_5384;

							BgL_auxz00_5384 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(29682L),
								BGl_string2362z00zz__r4_output_6_10_3z00,
								BGl_string2297z00zz__r4_output_6_10_3z00, BgL_startz00_3868);
							FAILURE(BgL_auxz00_5384, BFALSE, BFALSE);
						}
					BgL_auxz00_5380 = (long) CINT(BgL_tmpz00_5381);
				}
				if (STRINGP(BgL_objz00_3867))
					{	/* Ieee/output.scm 848 */
						BgL_auxz00_5373 = BgL_objz00_3867;
					}
				else
					{
						obj_t BgL_auxz00_5376;

						BgL_auxz00_5376 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(29682L),
							BGl_string2362z00zz__r4_output_6_10_3z00,
							BGl_string2318z00zz__r4_output_6_10_3z00, BgL_objz00_3867);
						FAILURE(BgL_auxz00_5376, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2substringzd2zz__r4_output_6_10_3z00(BgL_auxz00_5373,
					BgL_auxz00_5380, BgL_auxz00_5389, BgL_auxz00_5398);
			}
		}

	}



/* write-string */
	BGL_EXPORTED_DEF obj_t BGl_writezd2stringzd2zz__r4_output_6_10_3z00(obj_t
		BgL_objz00_54, obj_t BgL_portz00_55)
	{
		{	/* Ieee/output.scm 859 */
			if (BGl_bigloozd2strictzd2r5rszd2stringszd2zz__paramz00())
				{	/* Ieee/output.scm 863 */
					obj_t BgL_strz00_3358;

					BgL_strz00_3358 = string_for_read(BgL_objz00_54);
					{	/* Ieee/output.scm 864 */
						obj_t BgL_escz00_3359;

						{	/* Ieee/output.scm 865 */
							obj_t BgL_tmpz00_3362;

							{	/* Ieee/output.scm 865 */
								int BgL_tmpz00_5409;

								BgL_tmpz00_5409 = (int) (1L);
								BgL_tmpz00_3362 = BGL_MVALUES_VAL(BgL_tmpz00_5409);
							}
							{	/* Ieee/output.scm 865 */
								int BgL_tmpz00_5412;

								BgL_tmpz00_5412 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_5412, BUNSPEC);
							}
							BgL_escz00_3359 = BgL_tmpz00_3362;
						}
						return
							bgl_write_string(BgL_strz00_3358,
							CBOOL(BgL_escz00_3359), BgL_portz00_55);
					}
				}
			else
				{	/* Ieee/output.scm 860 */
					return
						bgl_write_string(string_for_read(BgL_objz00_54), ((bool_t) 0),
						BgL_portz00_55);
				}
		}

	}



/* &write-string */
	obj_t BGl_z62writezd2stringzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3871,
		obj_t BgL_objz00_3872, obj_t BgL_portz00_3873)
	{
		{	/* Ieee/output.scm 859 */
			{	/* Ieee/output.scm 860 */
				obj_t BgL_auxz00_5426;
				obj_t BgL_auxz00_5419;

				if (OUTPUT_PORTP(BgL_portz00_3873))
					{	/* Ieee/output.scm 860 */
						BgL_auxz00_5426 = BgL_portz00_3873;
					}
				else
					{
						obj_t BgL_auxz00_5429;

						BgL_auxz00_5429 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(30201L),
							BGl_string2363z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3873);
						FAILURE(BgL_auxz00_5429, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_objz00_3872))
					{	/* Ieee/output.scm 860 */
						BgL_auxz00_5419 = BgL_objz00_3872;
					}
				else
					{
						obj_t BgL_auxz00_5422;

						BgL_auxz00_5422 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(30201L),
							BGl_string2363z00zz__r4_output_6_10_3z00,
							BGl_string2318z00zz__r4_output_6_10_3z00, BgL_objz00_3872);
						FAILURE(BgL_auxz00_5422, BFALSE, BFALSE);
					}
				return
					BGl_writezd2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_5419,
					BgL_auxz00_5426);
			}
		}

	}



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

	}



/* &display-fixnum */
	obj_t BGl_z62displayzd2fixnumzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3874,
		obj_t BgL_objz00_3875, obj_t BgL_portz00_3876)
	{
		{	/* Ieee/output.scm 880 */
			{	/* Ieee/output.scm 881 */
				obj_t BgL_auxz00_5442;
				obj_t BgL_auxz00_5435;

				if (OUTPUT_PORTP(BgL_portz00_3876))
					{	/* Ieee/output.scm 881 */
						BgL_auxz00_5442 = BgL_portz00_3876;
					}
				else
					{
						obj_t BgL_auxz00_5445;

						BgL_auxz00_5445 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(31087L),
							BGl_string2364z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3876);
						FAILURE(BgL_auxz00_5445, BFALSE, BFALSE);
					}
				if (INTEGERP(BgL_objz00_3875))
					{	/* Ieee/output.scm 881 */
						BgL_auxz00_5435 = BgL_objz00_3875;
					}
				else
					{
						obj_t BgL_auxz00_5438;

						BgL_auxz00_5438 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(31087L),
							BGl_string2364z00zz__r4_output_6_10_3z00,
							BGl_string2297z00zz__r4_output_6_10_3z00, BgL_objz00_3875);
						FAILURE(BgL_auxz00_5438, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2fixnumzd2zz__r4_output_6_10_3z00(BgL_auxz00_5435,
					BgL_auxz00_5442);
			}
		}

	}



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

	}



/* &display-elong */
	obj_t BGl_z62displayzd2elongzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3877,
		obj_t BgL_objz00_3878, obj_t BgL_portz00_3879)
	{
		{	/* Ieee/output.scm 886 */
			{	/* Ieee/output.scm 887 */
				obj_t BgL_auxz00_5460;
				long BgL_auxz00_5451;

				if (OUTPUT_PORTP(BgL_portz00_3879))
					{	/* Ieee/output.scm 887 */
						BgL_auxz00_5460 = BgL_portz00_3879;
					}
				else
					{
						obj_t BgL_auxz00_5463;

						BgL_auxz00_5463 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(31381L),
							BGl_string2365z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3879);
						FAILURE(BgL_auxz00_5463, BFALSE, BFALSE);
					}
				{	/* Ieee/output.scm 887 */
					obj_t BgL_tmpz00_5452;

					if (ELONGP(BgL_objz00_3878))
						{	/* Ieee/output.scm 887 */
							BgL_tmpz00_5452 = BgL_objz00_3878;
						}
					else
						{
							obj_t BgL_auxz00_5455;

							BgL_auxz00_5455 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(31381L),
								BGl_string2365z00zz__r4_output_6_10_3z00,
								BGl_string2366z00zz__r4_output_6_10_3z00, BgL_objz00_3878);
							FAILURE(BgL_auxz00_5455, BFALSE, BFALSE);
						}
					BgL_auxz00_5451 = BELONG_TO_LONG(BgL_tmpz00_5452);
				}
				return
					BGl_displayzd2elongzd2zz__r4_output_6_10_3z00(BgL_auxz00_5451,
					BgL_auxz00_5460);
			}
		}

	}



/* display-flonum */
	BGL_EXPORTED_DEF obj_t BGl_displayzd2flonumzd2zz__r4_output_6_10_3z00(obj_t
		BgL_objz00_62, obj_t BgL_portz00_63)
	{
		{	/* Ieee/output.scm 892 */
			{	/* Ieee/output.scm 893 */
				obj_t BgL_arg1642z00_3368;

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

	}



/* &display-flonum */
	obj_t BGl_z62displayzd2flonumzb0zz__r4_output_6_10_3z00(obj_t BgL_envz00_3880,
		obj_t BgL_objz00_3881, obj_t BgL_portz00_3882)
	{
		{	/* Ieee/output.scm 892 */
			{	/* Ieee/output.scm 893 */
				obj_t BgL_auxz00_5478;
				obj_t BgL_auxz00_5471;

				if (OUTPUT_PORTP(BgL_portz00_3882))
					{	/* Ieee/output.scm 893 */
						BgL_auxz00_5478 = BgL_portz00_3882;
					}
				else
					{
						obj_t BgL_auxz00_5481;

						BgL_auxz00_5481 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(31684L),
							BGl_string2367z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3882);
						FAILURE(BgL_auxz00_5481, BFALSE, BFALSE);
					}
				if (REALP(BgL_objz00_3881))
					{	/* Ieee/output.scm 893 */
						BgL_auxz00_5471 = BgL_objz00_3881;
					}
				else
					{
						obj_t BgL_auxz00_5474;

						BgL_auxz00_5474 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(31684L),
							BGl_string2367z00zz__r4_output_6_10_3z00,
							BGl_string2368z00zz__r4_output_6_10_3z00, BgL_objz00_3881);
						FAILURE(BgL_auxz00_5474, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2flonumzd2zz__r4_output_6_10_3z00(BgL_auxz00_5471,
					BgL_auxz00_5478);
			}
		}

	}



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

	}



/* &display-ucs2string */
	obj_t BGl_z62displayzd2ucs2stringzb0zz__r4_output_6_10_3z00(obj_t
		BgL_envz00_3883, obj_t BgL_objz00_3884, obj_t BgL_portz00_3885)
	{
		{	/* Ieee/output.scm 898 */
			{	/* Ieee/output.scm 899 */
				obj_t BgL_auxz00_5494;
				obj_t BgL_auxz00_5487;

				if (OUTPUT_PORTP(BgL_portz00_3885))
					{	/* Ieee/output.scm 899 */
						BgL_auxz00_5494 = BgL_portz00_3885;
					}
				else
					{
						obj_t BgL_auxz00_5497;

						BgL_auxz00_5497 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(31974L),
							BGl_string2369z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3885);
						FAILURE(BgL_auxz00_5497, BFALSE, BFALSE);
					}
				if (UCS2_STRINGP(BgL_objz00_3884))
					{	/* Ieee/output.scm 899 */
						BgL_auxz00_5487 = BgL_objz00_3884;
					}
				else
					{
						obj_t BgL_auxz00_5490;

						BgL_auxz00_5490 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(31974L),
							BGl_string2369z00zz__r4_output_6_10_3z00,
							BGl_string2370z00zz__r4_output_6_10_3z00, BgL_objz00_3884);
						FAILURE(BgL_auxz00_5490, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2ucs2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_5487,
					BgL_auxz00_5494);
			}
		}

	}



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

	}



/* &write-ucs2string */
	obj_t BGl_z62writezd2ucs2stringzb0zz__r4_output_6_10_3z00(obj_t
		BgL_envz00_3886, obj_t BgL_objz00_3887, obj_t BgL_portz00_3888)
	{
		{	/* Ieee/output.scm 904 */
			{	/* Ieee/output.scm 905 */
				obj_t BgL_auxz00_5512;
				obj_t BgL_auxz00_5505;

				if (OUTPUT_PORTP(BgL_portz00_3888))
					{	/* Ieee/output.scm 905 */
						BgL_auxz00_5512 = BgL_portz00_3888;
					}
				else
					{
						obj_t BgL_auxz00_5515;

						BgL_auxz00_5515 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(32304L),
							BGl_string2371z00zz__r4_output_6_10_3z00,
							BGl_string2289z00zz__r4_output_6_10_3z00, BgL_portz00_3888);
						FAILURE(BgL_auxz00_5515, BFALSE, BFALSE);
					}
				if (UCS2_STRINGP(BgL_objz00_3887))
					{	/* Ieee/output.scm 905 */
						BgL_auxz00_5505 = BgL_objz00_3887;
					}
				else
					{
						obj_t BgL_auxz00_5508;

						BgL_auxz00_5508 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2287z00zz__r4_output_6_10_3z00, BINT(32304L),
							BGl_string2371z00zz__r4_output_6_10_3z00,
							BGl_string2370z00zz__r4_output_6_10_3z00, BgL_objz00_3887);
						FAILURE(BgL_auxz00_5508, BFALSE, BFALSE);
					}
				return
					BGl_writezd2ucs2stringzd2zz__r4_output_6_10_3z00(BgL_auxz00_5505,
					BgL_auxz00_5512);
			}
		}

	}



/* write/display-structure */
	obj_t BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00(obj_t
		BgL_objz00_81, obj_t BgL_portz00_82, obj_t BgL_dispz00_83)
	{
		{	/* Ieee/output.scm 959 */
			bgl_display_char(((unsigned char) '#'), BgL_portz00_82);
			bgl_display_char(((unsigned char) '{'), BgL_portz00_82);
			{	/* Ieee/output.scm 962 */
				obj_t BgL_arg1655z00_2070;

				BgL_arg1655z00_2070 = STRUCT_KEY(BgL_objz00_81);
				BGL_PROCEDURE_CALL2(BgL_dispz00_83, BgL_arg1655z00_2070,
					BgL_portz00_82);
			}
			if ((0L == (long) (STRUCT_LENGTH(BgL_objz00_81))))
				{	/* Ieee/output.scm 963 */
					return bgl_display_char(((unsigned char) '}'), BgL_portz00_82);
				}
			else
				{	/* Ieee/output.scm 965 */
					long BgL_lenz00_2073;

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

						BgL_iz00_2075 = 0L;
					BgL_zc3z04anonymousza31660ze3z87_2076:
						if ((BgL_iz00_2075 == BgL_lenz00_2073))
							{	/* Ieee/output.scm 969 */
								{	/* Ieee/output.scm 970 */
									obj_t BgL_arg1662z00_2078;

									BgL_arg1662z00_2078 =
										STRUCT_REF(BgL_objz00_81, (int) (BgL_iz00_2075));
									BGL_PROCEDURE_CALL2(BgL_dispz00_83, BgL_arg1662z00_2078,
										BgL_portz00_82);
								}
								return bgl_display_char(((unsigned char) '}'), BgL_portz00_82);
							}
						else
							{	/* Ieee/output.scm 969 */
								{	/* Ieee/output.scm 973 */
									obj_t BgL_arg1664z00_2079;

									BgL_arg1664z00_2079 =
										STRUCT_REF(BgL_objz00_81, (int) (BgL_iz00_2075));
									BGL_PROCEDURE_CALL2(BgL_dispz00_83, BgL_arg1664z00_2079,
										BgL_portz00_82);
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_82);
								{
									long BgL_iz00_5555;

									BgL_iz00_5555 = (1L + BgL_iz00_2075);
									BgL_iz00_2075 = BgL_iz00_5555;
									goto BgL_zc3z04anonymousza31660ze3z87_2076;
								}
							}
					}
				}
		}

	}



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

				BgL_tagz00_2084 = VECTOR_TAG(BgL_objz00_84);
				if (((long) (BgL_tagz00_2084) > 0L))
					{	/* Ieee/output.scm 983 */
						if (((long) (BgL_tagz00_2084) >= 100L))
							{	/* Ieee/output.scm 985 */
								BGL_PROCEDURE_CALL2(BgL_dispz00_86,
									BINT(BgL_tagz00_2084), BgL_portz00_85);
							}
						else
							{	/* Ieee/output.scm 985 */
								bgl_display_char(((unsigned char) '0'), BgL_portz00_85);
								if (((long) (BgL_tagz00_2084) >= 10L))
									{	/* Ieee/output.scm 989 */
										BGL_PROCEDURE_CALL2(BgL_dispz00_86,
											BINT(BgL_tagz00_2084), BgL_portz00_85);
									}
								else
									{	/* Ieee/output.scm 989 */
										bgl_display_char(((unsigned char) '0'), BgL_portz00_85);
										BGL_PROCEDURE_CALL2(BgL_dispz00_86,
											BINT(BgL_tagz00_2084), BgL_portz00_85);
					}}}
				else
					{	/* Ieee/output.scm 983 */
						BFALSE;
					}
			}
			bgl_display_char(((unsigned char) '('), BgL_portz00_85);
			if ((0L == VECTOR_LENGTH(BgL_objz00_84)))
				{	/* Ieee/output.scm 995 */
					return bgl_display_char(((unsigned char) ')'), BgL_portz00_85);
				}
			else
				{	/* Ieee/output.scm 997 */
					long BgL_lenz00_2090;

					BgL_lenz00_2090 = (VECTOR_LENGTH(BgL_objz00_84) - 1L);
					{
						long BgL_iz00_2092;

						BgL_iz00_2092 = 0L;
					BgL_zc3z04anonymousza31673ze3z87_2093:
						if ((BgL_iz00_2092 == BgL_lenz00_2090))
							{	/* Ieee/output.scm 1000 */
								{	/* Ieee/output.scm 1001 */
									obj_t BgL_arg1675z00_2095;

									BgL_arg1675z00_2095 =
										VECTOR_REF(BgL_objz00_84, BgL_iz00_2092);
									BGL_PROCEDURE_CALL2(BgL_dispz00_86, BgL_arg1675z00_2095,
										BgL_portz00_85);
								}
								return bgl_display_char(((unsigned char) ')'), BgL_portz00_85);
							}
						else
							{	/* Ieee/output.scm 1000 */
								{	/* Ieee/output.scm 1004 */
									obj_t BgL_arg1681z00_2096;

									BgL_arg1681z00_2096 =
										VECTOR_REF(BgL_objz00_84, BgL_iz00_2092);
									BGL_PROCEDURE_CALL2(BgL_dispz00_86, BgL_arg1681z00_2096,
										BgL_portz00_85);
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_85);
								{
									long BgL_iz00_5611;

									BgL_iz00_5611 = (1L + BgL_iz00_2092);
									BgL_iz00_2092 = BgL_iz00_5611;
									goto BgL_zc3z04anonymousza31673ze3z87_2093;
								}
							}
					}
				}
		}

	}



/* write/display-tvector */
	obj_t BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00(obj_t
		BgL_tvecz00_87, obj_t BgL_portz00_88, obj_t BgL_dispz00_89)
	{
		{	/* Ieee/output.scm 1011 */
			{	/* Ieee/output.scm 1012 */
				obj_t BgL_tvectorzd2refzd2_2101;
				obj_t BgL_idz00_2102;

				BgL_tvectorzd2refzd2_2101 =
					BGl_tvectorzd2refzd2zz__tvectorz00(BgL_tvecz00_87);
				BgL_idz00_2102 = BGl_tvectorzd2idzd2zz__tvectorz00(BgL_tvecz00_87);
				bgl_display_char(((unsigned char) '#'), BgL_portz00_88);
				BGL_PROCEDURE_CALL2(BgL_dispz00_89, BgL_idz00_2102, BgL_portz00_88);
				bgl_display_char(((unsigned char) '('), BgL_portz00_88);
				if (CBOOL(BgL_tvectorzd2refzd2_2101))
					{	/* Ieee/output.scm 1017 */
						if ((0L == TVECTOR_LENGTH(BgL_tvecz00_87)))
							{	/* Ieee/output.scm 1022 */
								return bgl_display_char(((unsigned char) ')'), BgL_portz00_88);
							}
						else
							{	/* Ieee/output.scm 1024 */
								long BgL_lenz00_2105;

								BgL_lenz00_2105 = (TVECTOR_LENGTH(BgL_tvecz00_87) - 1L);
								{
									long BgL_iz00_2107;

									BgL_iz00_2107 = 0L;
								BgL_zc3z04anonymousza31692ze3z87_2108:
									if ((BgL_iz00_2107 == BgL_lenz00_2105))
										{	/* Ieee/output.scm 1027 */
											{	/* Ieee/output.scm 1028 */
												obj_t BgL_arg1697z00_2110;

												BgL_arg1697z00_2110 =
													BGL_PROCEDURE_CALL2(BgL_tvectorzd2refzd2_2101,
													BgL_tvecz00_87, BINT(BgL_iz00_2107));
												BGL_PROCEDURE_CALL2(BgL_dispz00_89, BgL_arg1697z00_2110,
													BgL_portz00_88);
											}
											return
												bgl_display_char(((unsigned char) ')'), BgL_portz00_88);
										}
									else
										{	/* Ieee/output.scm 1027 */
											{	/* Ieee/output.scm 1031 */
												obj_t BgL_arg1698z00_2111;

												BgL_arg1698z00_2111 =
													BGL_PROCEDURE_CALL2(BgL_tvectorzd2refzd2_2101,
													BgL_tvecz00_87, BINT(BgL_iz00_2107));
												BGL_PROCEDURE_CALL2(BgL_dispz00_89, BgL_arg1698z00_2111,
													BgL_portz00_88);
											}
											bgl_display_char(((unsigned char) ' '), BgL_portz00_88);
											{
												long BgL_iz00_5656;

												BgL_iz00_5656 = (1L + BgL_iz00_2107);
												BgL_iz00_2107 = BgL_iz00_5656;
												goto BgL_zc3z04anonymousza31692ze3z87_2108;
											}
										}
								}
							}
					}
				else
					{	/* Ieee/output.scm 1017 */
						bgl_display_string(BGl_string2372z00zz__r4_output_6_10_3z00,
							BgL_portz00_88);
						return BgL_tvecz00_87;
					}
			}
		}

	}



/* write/display-hvector */
	obj_t BGl_writezf2displayzd2hvectorz20zz__r4_output_6_10_3z00(obj_t
		BgL_svecz00_90, obj_t BgL_portz00_91, obj_t BgL_dispz00_92)
	{
		{	/* Ieee/output.scm 1038 */
			{	/* Ieee/output.scm 1039 */
				obj_t BgL_idz00_2116;

				BgL_idz00_2116 =
					BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(BgL_svecz00_90);
				{	/* Ieee/output.scm 1040 */
					obj_t BgL__z00_2117;
					obj_t BgL_vrefz00_2118;
					obj_t BgL__z00_2119;
					obj_t BgL__z00_2120;

					{	/* Ieee/output.scm 1041 */
						obj_t BgL_tmpz00_3454;

						{	/* Ieee/output.scm 1041 */
							int BgL_tmpz00_5660;

							BgL_tmpz00_5660 = (int) (1L);
							BgL_tmpz00_3454 = BGL_MVALUES_VAL(BgL_tmpz00_5660);
						}
						{	/* Ieee/output.scm 1041 */
							int BgL_tmpz00_5663;

							BgL_tmpz00_5663 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5663, BUNSPEC);
						}
						BgL__z00_2117 = BgL_tmpz00_3454;
					}
					{	/* Ieee/output.scm 1041 */
						obj_t BgL_tmpz00_3455;

						{	/* Ieee/output.scm 1041 */
							int BgL_tmpz00_5666;

							BgL_tmpz00_5666 = (int) (2L);
							BgL_tmpz00_3455 = BGL_MVALUES_VAL(BgL_tmpz00_5666);
						}
						{	/* Ieee/output.scm 1041 */
							int BgL_tmpz00_5669;

							BgL_tmpz00_5669 = (int) (2L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5669, BUNSPEC);
						}
						BgL_vrefz00_2118 = BgL_tmpz00_3455;
					}
					{	/* Ieee/output.scm 1041 */
						obj_t BgL_tmpz00_3456;

						{	/* Ieee/output.scm 1041 */
							int BgL_tmpz00_5672;

							BgL_tmpz00_5672 = (int) (3L);
							BgL_tmpz00_3456 = BGL_MVALUES_VAL(BgL_tmpz00_5672);
						}
						{	/* Ieee/output.scm 1041 */
							int BgL_tmpz00_5675;

							BgL_tmpz00_5675 = (int) (3L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5675, BUNSPEC);
						}
						BgL__z00_2119 = BgL_tmpz00_3456;
					}
					{	/* Ieee/output.scm 1041 */
						obj_t BgL_tmpz00_3457;

						{	/* Ieee/output.scm 1041 */
							int BgL_tmpz00_5678;

							BgL_tmpz00_5678 = (int) (4L);
							BgL_tmpz00_3457 = BGL_MVALUES_VAL(BgL_tmpz00_5678);
						}
						{	/* Ieee/output.scm 1041 */
							int BgL_tmpz00_5681;

							BgL_tmpz00_5681 = (int) (4L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5681, BUNSPEC);
						}
						BgL__z00_2120 = BgL_tmpz00_3457;
					}
					bgl_display_char(((unsigned char) '#'), BgL_portz00_91);
					{	/* Ieee/output.scm 782 */
						obj_t BgL_arg1598z00_3460;

						BgL_arg1598z00_3460 = SYMBOL_TO_STRING(((obj_t) BgL_idz00_2116));
						bgl_display_string(BgL_arg1598z00_3460, BgL_portz00_91);
					}
					bgl_display_char(((unsigned char) '('), BgL_portz00_91);
					{	/* Ieee/output.scm 1044 */
						bool_t BgL_test2746z00_5689;

						{	/* Ieee/output.scm 1044 */
							long BgL_arg1715z00_2133;

							BgL_arg1715z00_2133 = BGL_HVECTOR_LENGTH(BgL_svecz00_90);
							BgL_test2746z00_5689 = (0L == BgL_arg1715z00_2133);
						}
						if (BgL_test2746z00_5689)
							{	/* Ieee/output.scm 1044 */
								return bgl_display_char(((unsigned char) ')'), BgL_portz00_91);
							}
						else
							{	/* Ieee/output.scm 1046 */
								long BgL_lenz00_2123;

								{	/* Ieee/output.scm 1046 */
									long BgL_arg1714z00_2132;

									BgL_arg1714z00_2132 = BGL_HVECTOR_LENGTH(BgL_svecz00_90);
									BgL_lenz00_2123 = (BgL_arg1714z00_2132 - 1L);
								}
								{
									long BgL_iz00_2125;

									BgL_iz00_2125 = 0L;
								BgL_zc3z04anonymousza31708ze3z87_2126:
									if ((BgL_iz00_2125 == BgL_lenz00_2123))
										{	/* Ieee/output.scm 1049 */
											{	/* Ieee/output.scm 1050 */
												obj_t BgL_arg1710z00_2128;

												BgL_arg1710z00_2128 =
													BGL_PROCEDURE_CALL2(BgL_vrefz00_2118, BgL_svecz00_90,
													BINT(BgL_iz00_2125));
												BGL_PROCEDURE_CALL2(BgL_dispz00_92, BgL_arg1710z00_2128,
													BgL_portz00_91);
											}
											return
												bgl_display_char(((unsigned char) ')'), BgL_portz00_91);
										}
									else
										{	/* Ieee/output.scm 1049 */
											{	/* Ieee/output.scm 1053 */
												obj_t BgL_arg1711z00_2129;

												BgL_arg1711z00_2129 =
													BGL_PROCEDURE_CALL2(BgL_vrefz00_2118, BgL_svecz00_90,
													BINT(BgL_iz00_2125));
												BGL_PROCEDURE_CALL2(BgL_dispz00_92, BgL_arg1711z00_2129,
													BgL_portz00_91);
											}
											bgl_display_char(((unsigned char) ' '), BgL_portz00_91);
											{
												long BgL_iz00_5721;

												BgL_iz00_5721 = (1L + BgL_iz00_2125);
												BgL_iz00_2125 = BgL_iz00_5721;
												goto BgL_zc3z04anonymousza31708ze3z87_2126;
											}
										}
								}
							}
					}
				}
			}
		}

	}



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

				BgL_lz00_2136 = BgL_objz00_96;
			BgL_zc3z04anonymousza31716ze3z87_2137:
				if (NULLP(CDR(((obj_t) BgL_lz00_2136))))
					{	/* Ieee/output.scm 1093 */
						{	/* Ieee/output.scm 1093 */
							obj_t BgL_arg1720z00_2140;

							BgL_arg1720z00_2140 = CAR(((obj_t) BgL_lz00_2136));
							bgl_display_obj(BgL_arg1720z00_2140, BgL_portz00_97);
						}
						return bgl_display_char(((unsigned char) ')'), BgL_portz00_97);
					}
				else
					{	/* Ieee/output.scm 1093 */
						bool_t BgL_test2749z00_5732;

						{	/* Ieee/output.scm 1093 */
							obj_t BgL_tmpz00_5733;

							BgL_tmpz00_5733 = CDR(((obj_t) BgL_lz00_2136));
							BgL_test2749z00_5732 = PAIRP(BgL_tmpz00_5733);
						}
						if (BgL_test2749z00_5732)
							{	/* Ieee/output.scm 1093 */
								{	/* Ieee/output.scm 1093 */
									obj_t BgL_arg1723z00_2143;

									BgL_arg1723z00_2143 = CAR(((obj_t) BgL_lz00_2136));
									bgl_display_obj(BgL_arg1723z00_2143, BgL_portz00_97);
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_97);
								{	/* Ieee/output.scm 1093 */
									obj_t BgL_arg1724z00_2144;

									BgL_arg1724z00_2144 = CDR(((obj_t) BgL_lz00_2136));
									{
										obj_t BgL_lz00_5743;

										BgL_lz00_5743 = BgL_arg1724z00_2144;
										BgL_lz00_2136 = BgL_lz00_5743;
										goto BgL_zc3z04anonymousza31716ze3z87_2137;
									}
								}
							}
						else
							{	/* Ieee/output.scm 1093 */
								{	/* Ieee/output.scm 1093 */
									obj_t BgL_arg1725z00_2145;

									BgL_arg1725z00_2145 = CAR(((obj_t) BgL_lz00_2136));
									bgl_display_obj(BgL_arg1725z00_2145, BgL_portz00_97);
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_97);
								bgl_display_char(((unsigned char) '.'), BgL_portz00_97);
								bgl_display_char(((unsigned char) ' '), BgL_portz00_97);
								{	/* Ieee/output.scm 1093 */
									obj_t BgL_arg1726z00_2146;

									BgL_arg1726z00_2146 = CDR(((obj_t) BgL_lz00_2136));
									bgl_display_obj(BgL_arg1726z00_2146, BgL_portz00_97);
								}
								return bgl_display_char(((unsigned char) ')'), BgL_portz00_97);
		}}}}

	}



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

				BgL_lz00_2151 = BgL_objz00_98;
			BgL_zc3z04anonymousza31729ze3z87_2152:
				if (NULLP(CDR(((obj_t) BgL_lz00_2151))))
					{	/* Ieee/output.scm 1099 */
						{	/* Ieee/output.scm 1099 */
							obj_t BgL_arg1732z00_2155;

							BgL_arg1732z00_2155 = CAR(((obj_t) BgL_lz00_2151));
							bgl_write_obj(BgL_arg1732z00_2155, BgL_portz00_99);
						}
						return bgl_display_char(((unsigned char) ')'), BgL_portz00_99);
					}
				else
					{	/* Ieee/output.scm 1099 */
						bool_t BgL_test2751z00_5763;

						{	/* Ieee/output.scm 1099 */
							obj_t BgL_tmpz00_5764;

							BgL_tmpz00_5764 = CDR(((obj_t) BgL_lz00_2151));
							BgL_test2751z00_5763 = PAIRP(BgL_tmpz00_5764);
						}
						if (BgL_test2751z00_5763)
							{	/* Ieee/output.scm 1099 */
								{	/* Ieee/output.scm 1099 */
									obj_t BgL_arg1735z00_2158;

									BgL_arg1735z00_2158 = CAR(((obj_t) BgL_lz00_2151));
									bgl_write_obj(BgL_arg1735z00_2158, BgL_portz00_99);
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_99);
								{	/* Ieee/output.scm 1099 */
									obj_t BgL_arg1739z00_2159;

									BgL_arg1739z00_2159 = CDR(((obj_t) BgL_lz00_2151));
									{
										obj_t BgL_lz00_5774;

										BgL_lz00_5774 = BgL_arg1739z00_2159;
										BgL_lz00_2151 = BgL_lz00_5774;
										goto BgL_zc3z04anonymousza31729ze3z87_2152;
									}
								}
							}
						else
							{	/* Ieee/output.scm 1099 */
								{	/* Ieee/output.scm 1099 */
									obj_t BgL_arg1740z00_2160;

									BgL_arg1740z00_2160 = CAR(((obj_t) BgL_lz00_2151));
									bgl_write_obj(BgL_arg1740z00_2160, BgL_portz00_99);
								}
								bgl_display_char(((unsigned char) ' '), BgL_portz00_99);
								bgl_display_char(((unsigned char) '.'), BgL_portz00_99);
								bgl_display_char(((unsigned char) ' '), BgL_portz00_99);
								{	/* Ieee/output.scm 1099 */
									obj_t BgL_arg1741z00_2161;

									BgL_arg1741z00_2161 = CDR(((obj_t) BgL_lz00_2151));
									bgl_write_obj(BgL_arg1741z00_2161, BgL_portz00_99);
								}
								return bgl_display_char(((unsigned char) ')'), BgL_portz00_99);
		}}}}

	}



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

	}



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

	}



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

	}



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

	}

#ifdef __cplusplus
}
#endif
