/*===========================================================================*/
/*   (Llib/error.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 Llib/error.scm -indent -o objs/obj_u/Llib/error.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___ERROR_TYPE_DEFINITIONS
#define BGL___ERROR_TYPE_DEFINITIONS

/* object type definitions */
	typedef struct BgL_z62exceptionz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
	}                      *BgL_z62exceptionz62_bglt;

	typedef struct BgL_z62errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                  *BgL_z62errorz62_bglt;

	typedef struct BgL_z62typezd2errorzb0_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
		obj_t BgL_typez00;
	}                         *BgL_z62typezd2errorzb0_bglt;

	typedef struct BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
		obj_t BgL_indexz00;
	}                                             
		*BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt;

	typedef struct BgL_z62iozd2errorzb0_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                       *BgL_z62iozd2errorzb0_bglt;

	typedef struct BgL_z62iozd2portzd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                              *BgL_z62iozd2portzd2errorz62_bglt;

	typedef struct BgL_z62iozd2readzd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                              *BgL_z62iozd2readzd2errorz62_bglt;

	typedef struct BgL_z62iozd2writezd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                               *BgL_z62iozd2writezd2errorz62_bglt;

	typedef struct BgL_z62iozd2filezd2notzd2foundzd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                                           
		*BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt;

	typedef struct BgL_z62iozd2parsezd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                               *BgL_z62iozd2parsezd2errorz62_bglt;

	typedef struct BgL_z62iozd2unknownzd2hostzd2errorzb0_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                                       
		*BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt;

	typedef struct BgL_z62iozd2malformedzd2urlzd2errorzb0_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                                        
		*BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt;

	typedef struct BgL_z62iozd2sigpipezd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                                 *BgL_z62iozd2sigpipezd2errorz62_bglt;

	typedef struct BgL_z62iozd2timeoutzd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                                 *BgL_z62iozd2timeoutzd2errorz62_bglt;

	typedef struct BgL_z62iozd2connectionzd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                                    *BgL_z62iozd2connectionzd2errorz62_bglt;

	typedef struct BgL_z62processzd2exceptionzb0_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                                *BgL_z62processzd2exceptionzb0_bglt;

	typedef struct BgL_z62stackzd2overflowzd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                                    
		*BgL_z62stackzd2overflowzd2errorz62_bglt;

	typedef struct BgL_z62warningz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_argsz00;
	}                    *BgL_z62warningz62_bglt;


#endif													// BGL___ERROR_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_z62exitz62zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
	extern obj_t BGl_z62processzd2exceptionzb0zz__objectz00;
	static obj_t BGl_z62indexzd2outzd2ofzd2bounds2810zb0zz__errorz00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_setzd2errorzd2handlerz12z12zz__errorz00(obj_t);
	static obj_t BGl_z62errorzd2notifyzb0zz__errorz00(obj_t, obj_t);
	extern int BGl_bigloozd2warningzd2zz__paramz00(void);
	extern obj_t BGl_stringzd2replacezd2zz__r4_strings_6_7z00(obj_t,
		unsigned char, unsigned char);
	static obj_t BGl_fixzd2tabulationz12zc0zz__errorz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t the_failure(obj_t, obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__errorz00 = BUNSPEC;
	static obj_t BGl_z62typezd2error2809zb0zz__errorz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_displayzd2tracezd2stackzd2sourcezd2zz__errorz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_raisez00zz__errorz00(obj_t);
	extern obj_t BGl_exceptionzd2notifyzd2zz__objectz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31936ze3ze5zz__errorz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_errorzd2notifyzf2locationz20zz__errorz00(obj_t,
		obj_t, int);
	extern obj_t BGl_z62iozd2malformedzd2urlzd2errorzb0zz__objectz00;
	BGL_EXPORTED_DECL obj_t BGl_exitz00zz__errorz00(obj_t);
	extern obj_t BGl_applyz00zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62errorzf2czd2locationz42zz__errorz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_z62iozd2filezd2notzd2foundzd2errorz62zz__objectz00;
	static obj_t BGl_z62z62tryz00zz__errorz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_errorzd2notifyzd2zz__errorz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_errorzf2sourcezd2locationz20zz__errorz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62stackzd2overflowzd2erro2807z62zz__errorz00(obj_t);
	static obj_t BGl_z62setzd2errorzd2handlerz12z70zz__errorz00(obj_t, obj_t);
	static obj_t BGl_z62errorzf2locationz90zz__errorz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_envzd2getzd2errorzd2handlerzd2zz__errorz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long,
		char *);
	extern obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t bgl_system_failure(int, obj_t, obj_t, obj_t);
	extern long BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(long, obj_t);
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_symbol2914z00zz__errorz00 = BUNSPEC;
	extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31453ze3ze5zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_z62errorz62zz__objectz00;
	extern obj_t BGl_z62iozd2sigpipezd2errorz62zz__objectz00;
	extern bool_t fexists(char *);
	extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_warningz00zz__errorz00(obj_t);
	static obj_t BGl_relativezd2filezd2namez00zz__errorz00(obj_t);
	static obj_t BGl_z62displayzd2tracezd2stackzd2sourcezb0zz__errorz00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
	extern obj_t BGl_z62warningz62zz__objectz00;
	static obj_t BGl_z62sigsegvzd2errorzd2handlerz62zz__errorz00(obj_t, obj_t);
	static obj_t BGl_z62error2808z62zz__errorz00(obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_z62tryz62zz__errorz00(obj_t, obj_t);
	static obj_t BGl_symbol2923z00zz__errorz00 = BUNSPEC;
	static obj_t BGl_symbol2925z00zz__errorz00 = BUNSPEC;
	extern obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__errorz00(void);
	extern obj_t BGl_z62iozd2writezd2errorz62zz__objectz00;
	BGL_EXPORTED_DECL obj_t BGl_warningzf2czd2locationz20zz__errorz00(char *,
		long, obj_t);
	extern obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long,
		long);
	static obj_t BGl_z62zc3z04anonymousza32256ze3ze5zz__errorz00(obj_t, obj_t);
	extern obj_t unwind_stack_until(obj_t, obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_z62stackzd2overflowzd2errorz62zz__objectz00;
	extern obj_t BGl_z62typezd2errorzb0zz__objectz00;
	static obj_t BGl_uncygdrivez00zz__errorz00(obj_t);
	extern obj_t BGl_tprintz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_z62warningzd2notifyzb0zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_z62iozd2portzd2errorz62zz__objectz00;
	static obj_t BGl_z62warning2811z62zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t BGl_getenvz00zz__osz00(obj_t);
	static obj_t BGl_locationzd2linezd2numz00zz__errorz00(obj_t);
	static obj_t BGl_filenamezd2forzd2errorz00zz__errorz00(obj_t, long);
	extern bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
	extern obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t);
	extern obj_t BGl_z62iozd2connectionzd2errorz62zz__objectz00;
	BGL_EXPORTED_DECL obj_t BGl_notifyzd2interruptzd2zz__errorz00(int);
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__errorz00(void);
	static obj_t BGl_z62raisez62zz__errorz00(obj_t, obj_t);
	extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	extern obj_t BGl_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	extern obj_t bgl_reverse(obj_t);
	static obj_t BGl_z62typeofz62zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_z62iozd2parsezd2errorz62zz__objectz00;
	static obj_t BGl_z62errorzd2notifyzf2locationz42zz__errorz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_genericzd2initzd2zz__errorz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_getzd2tracezd2stackz00zz__errorz00(obj_t);
	static obj_t BGl_z62escz62zz__errorz00(obj_t, obj_t);
	extern long bgl_list_length(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_warningzd2notifyzf2locationz20zz__errorz00(obj_t,
		obj_t, int);
	extern obj_t BGl_z62iozd2timeoutzd2errorz62zz__objectz00;
	static obj_t BGl_symbol2945z00zz__errorz00 = BUNSPEC;
	static obj_t BGl_z62warningzd2notifyzf2locationz42zz__errorz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__errorz00(void);
	static obj_t BGl_symbol2947z00zz__errorz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31901ze3ze5zz__errorz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t bgl_stack_overflow_error(void);
	static obj_t BGl_gczd2rootszd2initz00zz__errorz00(void);
	static obj_t BGl_z62currentzd2exceptionzd2handlerz62zz__errorz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31456ze3ze5zz__errorz00(obj_t, obj_t);
	static obj_t BGl_z62warningzf2czd2locationz42zz__errorz00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_dumpzd2tracezd2stackz00zz__errorz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_displayzd2tracezd2stackz00zz__errorz00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_z62iozd2errorzb0zz__objectz00;
	static obj_t BGl_z62errorzf2sourcezd2locationz42zz__errorz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zz__errorz00(void);
	static obj_t BGl_z62envzd2getzd2errorzd2handlerzb0zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
	extern obj_t BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_pushzd2errorzd2handlerz12z12zz__errorz00(obj_t,
		obj_t);
	static obj_t BGl_z62bigloozd2typezd2errorz62zz__errorz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62warningzf2locz90zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62withzd2exceptionzd2handlerz62zz__errorz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62envzd2setzd2errorzd2handlerz12za2zz__errorz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol2958z00zz__errorz00 = BUNSPEC;
	static obj_t BGl_symbol2879z00zz__errorz00 = BUNSPEC;
	static obj_t BGl_z62errorzf2sourcez90zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
	extern obj_t BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00;
	static obj_t BGl_z62sigbuszd2errorzd2handlerz62zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_displayzd2circlezd2zz__pp_circlez00(obj_t, obj_t);
	extern obj_t BGl_z62exceptionz62zz__objectz00;
	static obj_t BGl_openzd2forzd2errorz00zz__errorz00(obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	static obj_t BGl_dozd2warnzf2locationz20zz__errorz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_dirnamez00zz__osz00(obj_t);
	static obj_t BGl_z62modulezd2initzd2errorz62zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62sigfpezd2errorzd2handlerz62zz__errorz00(obj_t, obj_t);
	static obj_t BGl_locationzd2linezd2colze70ze7zz__errorz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62findzd2runtimezd2typez62zz__errorz00(obj_t, obj_t);
	static obj_t BGl_z62getzd2errorzd2handlerz62zz__errorz00(obj_t);
	extern obj_t BGl_pwdz00zz__osz00(void);
	BGL_EXPORTED_DECL obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_printzd2cursorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31797ze3ze5zz__errorz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_warningzf2locationzf2zz__errorz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
	static obj_t BGl_dirnamezd2ze3listz31zz__errorz00(obj_t);
	static obj_t BGl_locationzd2atze70z35zz__errorz00(obj_t, obj_t);
	static obj_t BGl_zc3z04exitza32254ze3ze70z60zz__errorz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_errorzf2sourcezf2zz__errorz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_z62conditionz62zz__objectz00;
	static obj_t BGl_z62the_failurez62zz__errorz00(obj_t, obj_t, obj_t, obj_t);
	extern bool_t bgl_directoryp(char *);
	extern obj_t BGl_fprintfz00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL char *bgl_show_type(obj_t);
	static obj_t BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00(obj_t,
		obj_t, obj_t, long);
	extern obj_t BGl_basenamez00zz__osz00(obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_currentzd2exceptionzd2handlerz00zz__errorz00(void);
	static obj_t BGl_warningzf2locationzd2filez20zz__errorz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62bigloozd2typezd2errorzd2msgzb0zz__errorz00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_warningzd2notifyzd2zz__errorz00(obj_t);
	static obj_t BGl_methodzd2initzd2zz__errorz00(void);
	BGL_EXPORTED_DECL obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_notifyzd2z62errorzf2locz42zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62errorzf2errnoz90zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t,
		obj_t, int, int);
	static obj_t
		BGl_notifyzd2z62errorzf2locationzd2nozd2locz42zz__errorz00(obj_t);
	static obj_t BGl__displayzd2tracezd2stackz00zz__errorz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t bgl_typeof(obj_t);
	static obj_t BGl_z62notifyzd2interruptzb0zz__errorz00(obj_t, obj_t);
	extern int BGl_bigloozd2tracezd2stackzd2depthzd2zz__paramz00(void);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initzd2errorz00zz__errorz00(char *,
		char *);
	BGL_EXPORTED_DECL obj_t bgl_find_runtime_type(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_getzd2errorzd2handlerz00zz__errorz00(void);
	BGL_EXPORTED_DECL obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t,
		obj_t, char *, long);
	BGL_EXPORTED_DECL obj_t
		BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	extern bool_t BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31834ze3ze5zz__errorz00(obj_t);
	extern obj_t BGl_displayz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_z62dumpzd2tracezd2stackz62zz__errorz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_withzd2exceptionzd2handlerz00zz__errorz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_envzd2setzd2errorzd2handlerz12zc0zz__errorz00(obj_t, obj_t);
	extern obj_t make_string(long, unsigned char);
	extern obj_t bgl_close_input_port(obj_t);
	static obj_t BGl_zc3z04exitza31682ze3ze70z60zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31495ze3ze5zz__errorz00(obj_t, obj_t);
	static obj_t BGl_z62czd2debuggingzd2showzd2typezb0zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_forzd2eachzd2zz__r4_control_features_6_9z00(obj_t, obj_t);
	static obj_t BGl_z62sigillzd2errorzd2handlerz62zz__errorz00(obj_t, obj_t);
	static obj_t BGl_defaultzd2exceptionzd2handlerz00zz__errorz00(obj_t);
	static obj_t BGl_z62bigloozd2typezd2errorzf2locationz90zz__errorz00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	extern long BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t,
		long, long);
	extern obj_t BGl_fprintz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t BGl_z62iozd2unknownzd2hostzd2errorzb0zz__objectz00;
	static obj_t BGl__getzd2tracezd2stackz00zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_signalz00zz__osz00(int, obj_t);
	extern obj_t BGl_z62iozd2readzd2errorz62zz__objectz00;
	extern bool_t bigloo_strncmp(obj_t, obj_t, long);
	BGL_EXPORTED_DECL obj_t BGl_warningzf2loczf2zz__errorz00(obj_t, obj_t);
	static obj_t BGl_z62warningzf2locationz90zz__errorz00(obj_t, obj_t, obj_t,
		obj_t);
	extern long BGl_maxfxz00zz__r4_numbers_6_5_fixnumz00(long, obj_t);
	static obj_t BGl_z62pushzd2errorzd2handlerz12z70zz__errorz00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_valuesz00zz__r5_control_features_6_4z00(obj_t);
	extern obj_t BGl_newlinez00zz__r4_output_6_10_3z00(obj_t);
	static obj_t BGl_notifyzd2z62errorzb0zz__errorz00(obj_t);
	static obj_t *__cnst;


	   
		 
		BGL_DEFINE_STRING(BGl_string3010z00zz__errorz00,
		BgL_bgl_string3010za700za7za7_3023za7, "&env-set-error-handler!", 23);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_envzd2setzd2errorzd2handlerz12zd2envz12zz__errorz00,
		BgL_bgl_za762envza7d2setza7d2e3024za7,
		BGl_z62envzd2setzd2errorzd2handlerz12za2zz__errorz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string3011z00zz__errorz00,
		BgL_bgl_string3011za700za7za7_3025za7, "dynamic-env", 11);
	      BGL_DEFINE_STRING(BGl_string3012z00zz__errorz00,
		BgL_bgl_string3012za700za7za7_3026za7, "&env-get-error-handler", 22);
	      BGL_DEFINE_STRING(BGl_string3013z00zz__errorz00,
		BgL_bgl_string3013za700za7za7_3027za7, "*** INTERRUPT:bigloo:", 21);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_the_failurezd2envzd2zz__errorz00,
		BgL_bgl_za762the_failureza763028z00, BGl_z62the_failurez62zz__errorz00, 0L,
		BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string3014z00zz__errorz00,
		BgL_bgl_string3014za700za7za7_3029za7, "&notify-interrupt", 17);
	      BGL_DEFINE_STRING(BGl_string3015z00zz__errorz00,
		BgL_bgl_string3015za700za7za7_3030za7, "arithmetic procedure", 20);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2sourcezd2envz20zz__errorz00,
		BgL_bgl_za762errorza7f2sourc3031z00, BGl_z62errorzf2sourcez90zz__errorz00,
		0L, BUNSPEC, 4);
	      BGL_DEFINE_STRING(BGl_string3016z00zz__errorz00,
		BgL_bgl_string3016za700za7za7_3032za7, "`floating point' exception", 26);
	      BGL_DEFINE_STRING(BGl_string3017z00zz__errorz00,
		BgL_bgl_string3017za700za7za7_3033za7, "raised", 6);
	      BGL_DEFINE_STRING(BGl_string3018z00zz__errorz00,
		BgL_bgl_string3018za700za7za7_3034za7, "bigloo", 6);
	      BGL_DEFINE_STRING(BGl_string3019z00zz__errorz00,
		BgL_bgl_string3019za700za7za7_3035za7, "`illegal instruction' exception",
		31);
	      BGL_DEFINE_STRING(BGl_string2920z00zz__errorz00,
		BgL_bgl_string2920za700za7za7_3036za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string2921z00zz__errorz00,
		BgL_bgl_string2921za700za7za7_3037za7, "stdin", 5);
	      BGL_DEFINE_STRING(BGl_string2922z00zz__errorz00,
		BgL_bgl_string2922za700za7za7_3038za7, "string://", 9);
	      BGL_DEFINE_STRING(BGl_string2924z00zz__errorz00,
		BgL_bgl_string2924za700za7za7_3039za7, "line-col", 8);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_notifyzd2interruptzd2envz00zz__errorz00,
		BgL_bgl_za762notifyza7d2inte3040z00,
		BGl_z62notifyzd2interruptzb0zz__errorz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2926z00zz__errorz00,
		BgL_bgl_string2926za700za7za7_3041za7, "line", 4);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_raisezd2envzd2zz__errorz00,
		BgL_bgl_za762raiseza762za7za7__e3042z00, BGl_z62raisez62zz__errorz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2927z00zz__errorz00,
		BgL_bgl_string2927za700za7za7_3043za7, "win32", 5);
	      BGL_DEFINE_STRING(BGl_string2928z00zz__errorz00,
		BgL_bgl_string2928za700za7za7_3044za7, "<eof>", 5);
	      BGL_DEFINE_STRING(BGl_string2929z00zz__errorz00,
		BgL_bgl_string2929za700za7za7_3045za7, "*** CONDITION: ", 15);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_errorzd2notifyzf2locationzd2envzf2zz__errorz00,
		BgL_bgl_za762errorza7d2notif3046z00,
		BGl_z62errorzd2notifyzf2locationz42zz__errorz00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2tracezd2stackzd2envzd2zz__errorz00,
		BgL_bgl__getza7d2traceza7d2s3047z00, opt_generic_entry,
		BGl__getzd2tracezd2stackz00zz__errorz00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3020z00zz__errorz00,
		BgL_bgl_string3020za700za7za7_3048za7, "`bus error' exception", 21);
	      BGL_DEFINE_STRING(BGl_string3021z00zz__errorz00,
		BgL_bgl_string3021za700za7za7_3049za7, "`segmentation violation' exception",
		34);
	      BGL_DEFINE_STRING(BGl_string3022z00zz__errorz00,
		BgL_bgl_string3022za700za7za7_3050za7, "__error", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_currentzd2exceptionzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762currentza7d2exc3051z00,
		BGl_z62currentzd2exceptionzd2handlerz62zz__errorz00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2930z00zz__errorz00,
		BgL_bgl_string2930za700za7za7_3052za7, "&error-notify/location", 22);
	      BGL_DEFINE_STRING(BGl_string2931z00zz__errorz00,
		BgL_bgl_string2931za700za7za7_3053za7, "*** WARNING: ", 13);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzd2notifyzd2envz00zz__errorz00,
		BgL_bgl_za762errorza7d2notif3054z00, BGl_z62errorzd2notifyzb0zz__errorz00,
		0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_errorzf2sourcezd2locationzd2envzf2zz__errorz00,
		BgL_bgl_za762errorza7f2sourc3055z00,
		BGl_z62errorzf2sourcezd2locationz42zz__errorz00, 0L, BUNSPEC, 4);
	      BGL_DEFINE_STRING(BGl_string2933z00zz__errorz00,
		BgL_bgl_string2933za700za7za7_3056za7, "[string]", 8);
	      BGL_DEFINE_STRING(BGl_string2934z00zz__errorz00,
		BgL_bgl_string2934za700za7za7_3057za7, "[stdin]", 7);
	      BGL_DEFINE_STRING(BGl_string2935z00zz__errorz00,
		BgL_bgl_string2935za700za7za7_3058za7, "&warning-notify/location", 24);
	      BGL_DEFINE_STRING(BGl_string2937z00zz__errorz00,
		BgL_bgl_string2937za700za7za7_3059za7, "_display-trace-stack", 20);
	      BGL_DEFINE_STRING(BGl_string2938z00zz__errorz00,
		BgL_bgl_string2938za700za7za7_3060za7, "output-port", 11);
	      BGL_DEFINE_STRING(BGl_string2939z00zz__errorz00,
		BgL_bgl_string2939za700za7za7_3061za7,
		"\n*** INTERNAL ERROR: corrupted stack -- ~s\n", 43);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_envzd2getzd2errorzd2handlerzd2envz00zz__errorz00,
		BgL_bgl_za762envza7d2getza7d2e3062za7,
		BGl_z62envzd2getzd2errorzd2handlerzb0zz__errorz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2typezd2errorzd2envzd2zz__errorz00,
		BgL_bgl_za762biglooza7d2type3063z00,
		BGl_z62bigloozd2typezd2errorz62zz__errorz00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_pushzd2errorzd2handlerz12zd2envzc0zz__errorz00,
		BgL_bgl_za762pushza7d2errorza73064za7,
		BGl_z62pushzd2errorzd2handlerz12z70zz__errorz00, 0L, BUNSPEC, 2);
	extern obj_t BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00;
	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2932z00zz__errorz00,
		BgL_bgl_za762za7c3za704anonymo3065za7,
		BGl_z62zc3z04anonymousza31901ze3ze5zz__errorz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_indexzd2outzd2ofzd2boundszd2errorzd2envzd2zz__errorz00,
		BgL_bgl_za762indexza7d2outza7d3066za7,
		BGl_z62indexzd2outzd2ofzd2bounds2810zb0zz__errorz00, 0L, BUNSPEC, 6);
	      BGL_DEFINE_STRING(BGl_string2940z00zz__errorz00,
		BgL_bgl_string2940za700za7za7_3067za7, "! ", 2);
	      BGL_DEFINE_STRING(BGl_string2941z00zz__errorz00,
		BgL_bgl_string2941za700za7za7_3068za7, "    ", 4);
	      BGL_DEFINE_STRING(BGl_string2942z00zz__errorz00,
		BgL_bgl_string2942za700za7za7_3069za7, "   ", 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2936z00zz__errorz00,
		BgL_bgl_za762za7c3za704anonymo3070za7,
		BGl_z62zc3z04anonymousza31936ze3ze5zz__errorz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2943z00zz__errorz00,
		BgL_bgl_string2943za700za7za7_3071za7, "  ", 2);
	      BGL_DEFINE_STRING(BGl_string2944z00zz__errorz00,
		BgL_bgl_string2944za700za7za7_3072za7, ". ", 2);
	      BGL_DEFINE_STRING(BGl_string2946z00zz__errorz00,
		BgL_bgl_string2946za700za7za7_3073za7, "margin", 6);
	      BGL_DEFINE_STRING(BGl_string2948z00zz__errorz00,
		BgL_bgl_string2948za700za7za7_3074za7, "format", 6);
	      BGL_DEFINE_STRING(BGl_string2949z00zz__errorz00,
		BgL_bgl_string2949za700za7za7_3075za7, " ", 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_modulezd2initzd2errorzd2envzd2zz__errorz00,
		BgL_bgl_za762moduleza7d2init3076z00,
		BGl_z62modulezd2initzd2errorz62zz__errorz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2errorzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762getza7d2errorza7d3077za7,
		BGl_z62getzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2czd2locationzd2envzf2zz__errorz00,
		BgL_bgl_za762errorza7f2cza7d2l3078za7,
		BGl_z62errorzf2czd2locationz42zz__errorz00, 0L, BUNSPEC, 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2typezd2errorzf2locationzd2envz20zz__errorz00,
		BgL_bgl_za762biglooza7d2type3079z00,
		BGl_z62bigloozd2typezd2errorzf2locationz90zz__errorz00, 0L, BUNSPEC, 5);
	      BGL_DEFINE_STRING(BGl_string2950z00zz__errorz00,
		BgL_bgl_string2950za700za7za7_3080za7, " (* ", 4);
	      BGL_DEFINE_STRING(BGl_string2951z00zz__errorz00,
		BgL_bgl_string2951za700za7za7_3081za7, ")", 1);
	      BGL_DEFINE_STRING(BGl_string2870z00zz__errorz00,
		BgL_bgl_string2870za700za7za7_3082za7, "/tmp/bigloo/runtime/Llib/error.scm",
		34);
	      BGL_DEFINE_STRING(BGl_string2952z00zz__errorz00,
		BgL_bgl_string2952za700za7za7_3083za7, ".", 1);
	      BGL_DEFINE_STRING(BGl_string2871z00zz__errorz00,
		BgL_bgl_string2871za700za7za7_3084za7, "_get-trace-stack", 16);
	      BGL_DEFINE_STRING(BGl_string2953z00zz__errorz00,
		BgL_bgl_string2953za700za7za7_3085za7, ", ", 2);
	      BGL_DEFINE_STRING(BGl_string2872z00zz__errorz00,
		BgL_bgl_string2872za700za7za7_3086za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string2954z00zz__errorz00,
		BgL_bgl_string2954za700za7za7_3087za7, "@", 1);
	      BGL_DEFINE_STRING(BGl_string2873z00zz__errorz00,
		BgL_bgl_string2873za700za7za7_3088za7, "BIGLOOSTACKDEPTH", 16);
	      BGL_DEFINE_STRING(BGl_string2955z00zz__errorz00,
		BgL_bgl_string2955za700za7za7_3089za7, "File ~s, line ~d, character ~d\n",
		31);
	      BGL_DEFINE_STRING(BGl_string2874z00zz__errorz00,
		BgL_bgl_string2874za700za7za7_3090za7, "\077\077?", 3);
	      BGL_DEFINE_STRING(BGl_string2956z00zz__errorz00,
		BgL_bgl_string2956za700za7za7_3091za7, "File ~s, character ~d\n", 22);
	      BGL_DEFINE_STRING(BGl_string2875z00zz__errorz00,
		BgL_bgl_string2875za700za7za7_3092za7, "Type", 4);
	      BGL_DEFINE_STRING(BGl_string2957z00zz__errorz00,
		BgL_bgl_string2957za700za7za7_3093za7, "&display-trace-stack-source", 27);
	      BGL_DEFINE_STRING(BGl_string2876z00zz__errorz00,
		BgL_bgl_string2876za700za7za7_3094za7, "&error/errno", 12);
	      BGL_DEFINE_STRING(BGl_string2877z00zz__errorz00,
		BgL_bgl_string2877za700za7za7_3095za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string2959z00zz__errorz00,
		BgL_bgl_string2959za700za7za7_3096za7, "done", 4);
	      BGL_DEFINE_STRING(BGl_string2878z00zz__errorz00,
		BgL_bgl_string2878za700za7za7_3097za7, "stack overflow", 14);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_sigbuszd2errorzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762sigbusza7d2erro3098z00,
		BGl_z62sigbuszd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2960z00zz__errorz00,
		BgL_bgl_string2960za700za7za7_3099za7, "^", 1);
	      BGL_DEFINE_STRING(BGl_string2961z00zz__errorz00,
		BgL_bgl_string2961za700za7za7_3100za7, "#", 1);
	      BGL_DEFINE_STRING(BGl_string2880z00zz__errorz00,
		BgL_bgl_string2880za700za7za7_3101za7, "at", 2);
	      BGL_DEFINE_STRING(BGl_string2962z00zz__errorz00,
		BgL_bgl_string2962za700za7za7_3102za7, ", character ", 12);
	      BGL_DEFINE_STRING(BGl_string2881z00zz__errorz00,
		BgL_bgl_string2881za700za7za7_3103za7, "with-exception-handler", 22);
	      BGL_DEFINE_STRING(BGl_string2963z00zz__errorz00,
		BgL_bgl_string2963za700za7za7_3104za7, "\", line ", 8);
	      BGL_DEFINE_STRING(BGl_string2882z00zz__errorz00,
		BgL_bgl_string2882za700za7za7_3105za7, "Incorrect thunk arity", 21);
	      BGL_DEFINE_STRING(BGl_string2964z00zz__errorz00,
		BgL_bgl_string2964za700za7za7_3106za7, "../", 3);
	      BGL_DEFINE_STRING(BGl_string2883z00zz__errorz00,
		BgL_bgl_string2883za700za7za7_3107za7, "Incorrect handler arity", 23);
	      BGL_DEFINE_STRING(BGl_string2965z00zz__errorz00,
		BgL_bgl_string2965za700za7za7_3108za7, "/", 1);
	      BGL_DEFINE_STRING(BGl_string2884z00zz__errorz00,
		BgL_bgl_string2884za700za7za7_3109za7, "&with-exception-handler", 23);
	      BGL_DEFINE_STRING(BGl_string2966z00zz__errorz00,
		BgL_bgl_string2966za700za7za7_3110za7, "/cygdrive/", 10);
	      BGL_DEFINE_STRING(BGl_string2885z00zz__errorz00,
		BgL_bgl_string2885za700za7za7_3111za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string2967z00zz__errorz00,
		BgL_bgl_string2967za700za7za7_3112za7, "real", 4);
	      BGL_DEFINE_STRING(BGl_string2968z00zz__errorz00,
		BgL_bgl_string2968za700za7za7_3113za7, "symbol", 6);
	      BGL_DEFINE_STRING(BGl_string2887z00zz__errorz00,
		BgL_bgl_string2887za700za7za7_3114za7,
		"*** INTERNAL ERROR: wrong error handler ", 40);
	      BGL_DEFINE_STRING(BGl_string2969z00zz__errorz00,
		BgL_bgl_string2969za700za7za7_3115za7, "keyword", 7);
	      BGL_DEFINE_STRING(BGl_string2888z00zz__errorz00,
		BgL_bgl_string2888za700za7za7_3116za7, ":", 1);
	      BGL_DEFINE_STRING(BGl_string2889z00zz__errorz00,
		BgL_bgl_string2889za700za7za7_3117za7, ",", 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_warningzd2notifyzf2locationzd2envzf2zz__errorz00,
		BgL_bgl_za762warningza7d2not3118z00,
		BGl_z62warningzd2notifyzf2locationz42zz__errorz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2970z00zz__errorz00,
		BgL_bgl_string2970za700za7za7_3119za7, "bchar", 5);
	      BGL_DEFINE_STRING(BGl_string2971z00zz__errorz00,
		BgL_bgl_string2971za700za7za7_3120za7, "bbool", 5);
	      BGL_DEFINE_STRING(BGl_string2890z00zz__errorz00,
		BgL_bgl_string2890za700za7za7_3121za7, "Llib/error.scm", 14);
	      BGL_DEFINE_STRING(BGl_string2972z00zz__errorz00,
		BgL_bgl_string2972za700za7za7_3122za7, "bnil", 4);
	      BGL_DEFINE_STRING(BGl_string2891z00zz__errorz00,
		BgL_bgl_string2891za700za7za7_3123za7, "when raising error: ", 20);
	      BGL_DEFINE_STRING(BGl_string2973z00zz__errorz00,
		BgL_bgl_string2973za700za7za7_3124za7, "unspecified", 11);
	      BGL_DEFINE_STRING(BGl_string2892z00zz__errorz00,
		BgL_bgl_string2892za700za7za7_3125za7, "raise", 5);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2886z00zz__errorz00,
		BgL_bgl_za762za7c3za704anonymo3126za7,
		BGl_z62zc3z04anonymousza31456ze3ze5zz__errorz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2974z00zz__errorz00,
		BgL_bgl_string2974za700za7za7_3127za7, "epair", 5);
	      BGL_DEFINE_STRING(BGl_string2893z00zz__errorz00,
		BgL_bgl_string2893za700za7za7_3128za7, "uncaught exception", 18);
	      BGL_DEFINE_STRING(BGl_string2975z00zz__errorz00,
		BgL_bgl_string2975za700za7za7_3129za7, "pair", 4);
	      BGL_DEFINE_STRING(BGl_string2894z00zz__errorz00,
		BgL_bgl_string2894za700za7za7_3130za7,
		"' must be recompiled (see also -unsafev option).", 48);
	      BGL_DEFINE_STRING(BGl_string2976z00zz__errorz00,
		BgL_bgl_string2976za700za7za7_3131za7, "class", 5);
	      BGL_DEFINE_STRING(BGl_string2895z00zz__errorz00,
		BgL_bgl_string2895za700za7za7_3132za7, "At least `", 10);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_typezd2errorzd2envz00zz__errorz00,
		BgL_bgl_za762typeza7d2error23133z00, BGl_z62typezd2error2809zb0zz__errorz00,
		0L, BUNSPEC, 5);
	      BGL_DEFINE_STRING(BGl_string2977z00zz__errorz00,
		BgL_bgl_string2977za700za7za7_3134za7, "tvector", 7);
	      BGL_DEFINE_STRING(BGl_string2896z00zz__errorz00,
		BgL_bgl_string2896za700za7za7_3135za7, "'.\n", 3);
	      BGL_DEFINE_STRING(BGl_string2978z00zz__errorz00,
		BgL_bgl_string2978za700za7za7_3136za7, "struct:", 7);
	      BGL_DEFINE_STRING(BGl_string2897z00zz__errorz00,
		BgL_bgl_string2897za700za7za7_3137za7,
		"' is inconsistently initialized by module `", 43);
	      BGL_DEFINE_STRING(BGl_string2979z00zz__errorz00,
		BgL_bgl_string2979za700za7za7_3138za7, "input-port", 10);
	      BGL_DEFINE_STRING(BGl_string2898z00zz__errorz00,
		BgL_bgl_string2898za700za7za7_3139za7, "Module `", 8);
	      BGL_DEFINE_STRING(BGl_string2899z00zz__errorz00,
		BgL_bgl_string2899za700za7za7_3140za7,
		":Inconsistent module initialization\n", 36);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzd2envzd2zz__errorz00,
		BgL_bgl_za762error2808za762za73141za7, BGl_z62error2808z62zz__errorz00, 0L,
		BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2980z00zz__errorz00,
		BgL_bgl_string2980za700za7za7_3142za7, "binary-port", 11);
	      BGL_DEFINE_STRING(BGl_string2981z00zz__errorz00,
		BgL_bgl_string2981za700za7za7_3143za7, "cell", 4);
	      BGL_DEFINE_STRING(BGl_string2982z00zz__errorz00,
		BgL_bgl_string2982za700za7za7_3144za7, "foreign:", 8);
	      BGL_DEFINE_STRING(BGl_string2983z00zz__errorz00,
		BgL_bgl_string2983za700za7za7_3145za7, "socket", 6);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_typeofzd2envzd2zz__errorz00,
		BgL_bgl_za762typeofza762za7za7__3146z00, BGl_z62typeofz62zz__errorz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2984z00zz__errorz00,
		BgL_bgl_string2984za700za7za7_3147za7, "datagram-socket", 15);
	      BGL_DEFINE_STRING(BGl_string2985z00zz__errorz00,
		BgL_bgl_string2985za700za7za7_3148za7, "process", 7);
	      BGL_DEFINE_STRING(BGl_string2986z00zz__errorz00,
		BgL_bgl_string2986za700za7za7_3149za7, "custom", 6);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_sigsegvzd2errorzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762sigsegvza7d2err3150z00,
		BGl_z62sigsegvzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2987z00zz__errorz00,
		BgL_bgl_string2987za700za7za7_3151za7, "opaque", 6);
	      BGL_DEFINE_STRING(BGl_string2988z00zz__errorz00,
		BgL_bgl_string2988za700za7za7_3152za7, "_", 1);
	      BGL_DEFINE_STRING(BGl_string2989z00zz__errorz00,
		BgL_bgl_string2989za700za7za7_3153za7, "ucs2string", 10);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_z62tryzd2envzb0zz__errorz00,
		BgL_bgl_za762za762tryza700za7za7__3154za7, BGl_z62z62tryz00zz__errorz00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_sigillzd2errorzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762sigillza7d2erro3155z00,
		BGl_z62sigillzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2990z00zz__errorz00,
		BgL_bgl_string2990za700za7za7_3156za7, "ucs2", 4);
	      BGL_DEFINE_STRING(BGl_string2991z00zz__errorz00,
		BgL_bgl_string2991za700za7za7_3157za7, "elong", 5);
	      BGL_DEFINE_STRING(BGl_string2992z00zz__errorz00,
		BgL_bgl_string2992za700za7za7_3158za7, "llong", 5);
	      BGL_DEFINE_STRING(BGl_string2993z00zz__errorz00,
		BgL_bgl_string2993za700za7za7_3159za7, "mutex", 5);
	      BGL_DEFINE_STRING(BGl_string2994z00zz__errorz00,
		BgL_bgl_string2994za700za7za7_3160za7, "condvar", 7);
	      BGL_DEFINE_STRING(BGl_string2995z00zz__errorz00,
		BgL_bgl_string2995za700za7za7_3161za7, "date", 4);
	      BGL_DEFINE_STRING(BGl_string2996z00zz__errorz00,
		BgL_bgl_string2996za700za7za7_3162za7, "bignum", 6);
	      BGL_DEFINE_STRING(BGl_string2997z00zz__errorz00,
		BgL_bgl_string2997za700za7za7_3163za7, "mmap", 4);
	      BGL_DEFINE_STRING(BGl_string2998z00zz__errorz00,
		BgL_bgl_string2998za700za7za7_3164za7, "regexp", 6);
	      BGL_DEFINE_STRING(BGl_string2999z00zz__errorz00,
		BgL_bgl_string2999za700za7za7_3165za7, "int8", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2exceptionzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762withza7d2except3166z00,
		BGl_z62withzd2exceptionzd2handlerz62zz__errorz00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_exitzd2envzd2zz__errorz00,
		BgL_bgl_za762exitza762za7za7__er3167z00, va_generic_entry,
		BGl_z62exitz62zz__errorz00, BUNSPEC, -1);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_sigfpezd2errorzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762sigfpeza7d2erro3168z00,
		BGl_z62sigfpezd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_dumpzd2tracezd2stackzd2envzd2zz__errorz00,
		BgL_bgl_za762dumpza7d2traceza73169za7,
		BGl_z62dumpzd2tracezd2stackz62zz__errorz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2tracezd2stackzd2envzd2zz__errorz00,
		BgL_bgl__displayza7d2trace3170za7, opt_generic_entry,
		BGl__displayzd2tracezd2stackz00zz__errorz00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzd2notifyzd2envz00zz__errorz00,
		BgL_bgl_za762warningza7d2not3171z00, BGl_z62warningzd2notifyzb0zz__errorz00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzf2loczd2envz20zz__errorz00,
		BgL_bgl_za762warningza7f2loc3172z00, va_generic_entry,
		BGl_z62warningzf2locz90zz__errorz00, BUNSPEC, -2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzd2envzd2zz__errorz00,
		BgL_bgl_za762warning2811za763173z00, va_generic_entry,
		BGl_z62warning2811z62zz__errorz00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzf2czd2locationzd2envzf2zz__errorz00,
		BgL_bgl_za762warningza7f2cza7d3174za7, va_generic_entry,
		BGl_z62warningzf2czd2locationz42zz__errorz00, BUNSPEC, -3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2errorzd2handlerz12zd2envzc0zz__errorz00,
		BgL_bgl_za762setza7d2errorza7d3175za7,
		BGl_z62setzd2errorzd2handlerz12z70zz__errorz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2tracezd2stackzd2sourcezd2envz00zz__errorz00,
		BgL_bgl_za762displayza7d2tra3176z00,
		BGl_z62displayzd2tracezd2stackzd2sourcezb0zz__errorz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_czd2debuggingzd2showzd2typezd2envz00zz__errorz00,
		BgL_bgl_za762cza7d2debugging3177z00,
		BGl_z62czd2debuggingzd2showzd2typezb0zz__errorz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stackzd2overflowzd2errorzd2envzd2zz__errorz00,
		BgL_bgl_za762stackza7d2overf3178z00,
		BGl_z62stackzd2overflowzd2erro2807z62zz__errorz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2typezd2errorzd2msgzd2envz00zz__errorz00,
		BgL_bgl_za762biglooza7d2type3179z00,
		BGl_z62bigloozd2typezd2errorzd2msgzb0zz__errorz00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2errnozd2envz20zz__errorz00,
		BgL_bgl_za762errorza7f2errno3180z00, BGl_z62errorzf2errnoz90zz__errorz00,
		0L, BUNSPEC, 4);
	      BGL_DEFINE_STRING(BGl_string2900z00zz__errorz00,
		BgL_bgl_string2900za700za7za7_3181za7, "*** ERROR:", 10);
	      BGL_DEFINE_STRING(BGl_string2901z00zz__errorz00,
		BgL_bgl_string2901za700za7za7_3182za7, "&module-init-error", 18);
	      BGL_DEFINE_STRING(BGl_string2902z00zz__errorz00,
		BgL_bgl_string2902za700za7za7_3183za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string2903z00zz__errorz00,
		BgL_bgl_string2903za700za7za7_3184za7, "&error/c-location", 17);
	      BGL_DEFINE_STRING(BGl_string2904z00zz__errorz00,
		BgL_bgl_string2904za700za7za7_3185za7, "\" provided", 10);
	      BGL_DEFINE_STRING(BGl_string2905z00zz__errorz00,
		BgL_bgl_string2905za700za7za7_3186za7, "\" expected, \"", 13);
	      BGL_DEFINE_STRING(BGl_string2906z00zz__errorz00,
		BgL_bgl_string2906za700za7za7_3187za7, " \"", 2);
	      BGL_DEFINE_STRING(BGl_string2907z00zz__errorz00,
		BgL_bgl_string2907za700za7za7_3188za7, "&bigloo-type-error-msg", 22);
	      BGL_DEFINE_STRING(BGl_string2908z00zz__errorz00,
		BgL_bgl_string2908za700za7za7_3189za7, "]", 1);
	      BGL_DEFINE_STRING(BGl_string2909z00zz__errorz00,
		BgL_bgl_string2909za700za7za7_3190za7, " out of range [0..", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_findzd2runtimezd2typezd2envzd2zz__errorz00,
		BgL_bgl_za762findza7d2runtim3191z00,
		BGl_z62findzd2runtimezd2typez62zz__errorz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3000z00zz__errorz00,
		BgL_bgl_string3000za700za7za7_3192za7, "uint8", 5);
	      BGL_DEFINE_STRING(BGl_string3001z00zz__errorz00,
		BgL_bgl_string3001za700za7za7_3193za7, "int16", 5);
	      BGL_DEFINE_STRING(BGl_string3002z00zz__errorz00,
		BgL_bgl_string3002za700za7za7_3194za7, "uint16", 6);
	      BGL_DEFINE_STRING(BGl_string3003z00zz__errorz00,
		BgL_bgl_string3003za700za7za7_3195za7, "int32", 5);
	      BGL_DEFINE_STRING(BGl_string3004z00zz__errorz00,
		BgL_bgl_string3004za700za7za7_3196za7, "uint32", 6);
	      BGL_DEFINE_STRING(BGl_string3005z00zz__errorz00,
		BgL_bgl_string3005za700za7za7_3197za7, "int64", 5);
	      BGL_DEFINE_STRING(BGl_string3006z00zz__errorz00,
		BgL_bgl_string3006za700za7za7_3198za7, "uint64", 6);
	      BGL_DEFINE_STRING(BGl_string3007z00zz__errorz00,
		BgL_bgl_string3007za700za7za7_3199za7, "bcnst", 5);
	      BGL_DEFINE_STRING(BGl_string3008z00zz__errorz00,
		BgL_bgl_string3008za700za7za7_3200za7, "&&try", 5);
	      BGL_DEFINE_STRING(BGl_string3009z00zz__errorz00,
		BgL_bgl_string3009za700za7za7_3201za7, "&push-error-handler!", 20);
	      BGL_DEFINE_STRING(BGl_string2910z00zz__errorz00,
		BgL_bgl_string2910za700za7za7_3202za7, "index ", 6);
	      BGL_DEFINE_STRING(BGl_string2911z00zz__errorz00,
		BgL_bgl_string2911za700za7za7_3203za7, "&index-out-of-bounds2810", 24);
	      BGL_DEFINE_STRING(BGl_string2912z00zz__errorz00,
		BgL_bgl_string2912za700za7za7_3204za7, "&warning/c-location", 19);
	      BGL_DEFINE_STRING(BGl_string2913z00zz__errorz00,
		BgL_bgl_string2913za700za7za7_3205za7, ":\n", 2);
	      BGL_DEFINE_STRING(BGl_string2915z00zz__errorz00,
		BgL_bgl_string2915za700za7za7_3206za7, "%no-error-obj", 13);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2locationzd2envz20zz__errorz00,
		BgL_bgl_za762errorza7f2locat3207z00, BGl_z62errorzf2locationz90zz__errorz00,
		0L, BUNSPEC, 5);
	      BGL_DEFINE_STRING(BGl_string2916z00zz__errorz00,
		BgL_bgl_string2916za700za7za7_3208za7, " -- ", 4);
	      BGL_DEFINE_STRING(BGl_string2917z00zz__errorz00,
		BgL_bgl_string2917za700za7za7_3209za7, "\", character ", 13);
	      BGL_DEFINE_STRING(BGl_string2918z00zz__errorz00,
		BgL_bgl_string2918za700za7za7_3210za7, "File \"", 6);
	      BGL_DEFINE_STRING(BGl_string2919z00zz__errorz00,
		BgL_bgl_string2919za700za7za7_3211za7, "...", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzf2locationzd2envz20zz__errorz00,
		BgL_bgl_za762warningza7f2loc3212z00, va_generic_entry,
		BGl_z62warningzf2locationz90zz__errorz00, BUNSPEC, -3);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_warningzf2locationzd2envz20zz__errorz00,
			BgL_bgl_za762warningza7f2loc3212z00);
		BGL_BIND_STRING(BGl_string2919z00zz__errorz00,
			BgL_bgl_string2919za700za7za7_3211za7);
		BGL_BIND_STRING(BGl_string2918z00zz__errorz00,
			BgL_bgl_string2918za700za7za7_3210za7);
		BGL_BIND_STRING(BGl_string2917z00zz__errorz00,
			BgL_bgl_string2917za700za7za7_3209za7);
		BGL_BIND_STRING(BGl_string2916z00zz__errorz00,
			BgL_bgl_string2916za700za7za7_3208za7);
		BGL_BIND_PROCEDURE(BGl_errorzf2locationzd2envz20zz__errorz00,
			BgL_bgl_za762errorza7f2locat3207z00);
		BGL_BIND_STRING(BGl_string2915z00zz__errorz00,
			BgL_bgl_string2915za700za7za7_3206za7);
		BGL_BIND_STRING(BGl_string2913z00zz__errorz00,
			BgL_bgl_string2913za700za7za7_3205za7);
		BGL_BIND_STRING(BGl_string2912z00zz__errorz00,
			BgL_bgl_string2912za700za7za7_3204za7);
		BGL_BIND_STRING(BGl_string2911z00zz__errorz00,
			BgL_bgl_string2911za700za7za7_3203za7);
		BGL_BIND_STRING(BGl_string2910z00zz__errorz00,
			BgL_bgl_string2910za700za7za7_3202za7);
		BGL_BIND_STRING(BGl_string3009z00zz__errorz00,
			BgL_bgl_string3009za700za7za7_3201za7);
		BGL_BIND_STRING(BGl_string3008z00zz__errorz00,
			BgL_bgl_string3008za700za7za7_3200za7);
		BGL_BIND_STRING(BGl_string3007z00zz__errorz00,
			BgL_bgl_string3007za700za7za7_3199za7);
		BGL_BIND_STRING(BGl_string3006z00zz__errorz00,
			BgL_bgl_string3006za700za7za7_3198za7);
		BGL_BIND_STRING(BGl_string3005z00zz__errorz00,
			BgL_bgl_string3005za700za7za7_3197za7);
		BGL_BIND_STRING(BGl_string3004z00zz__errorz00,
			BgL_bgl_string3004za700za7za7_3196za7);
		BGL_BIND_STRING(BGl_string3003z00zz__errorz00,
			BgL_bgl_string3003za700za7za7_3195za7);
		BGL_BIND_STRING(BGl_string3002z00zz__errorz00,
			BgL_bgl_string3002za700za7za7_3194za7);
		BGL_BIND_STRING(BGl_string3001z00zz__errorz00,
			BgL_bgl_string3001za700za7za7_3193za7);
		BGL_BIND_STRING(BGl_string3000z00zz__errorz00,
			BgL_bgl_string3000za700za7za7_3192za7);
		BGL_BIND_PROCEDURE(BGl_findzd2runtimezd2typezd2envzd2zz__errorz00,
			BgL_bgl_za762findza7d2runtim3191z00);
		BGL_BIND_STRING(BGl_string2909z00zz__errorz00,
			BgL_bgl_string2909za700za7za7_3190za7);
		BGL_BIND_STRING(BGl_string2908z00zz__errorz00,
			BgL_bgl_string2908za700za7za7_3189za7);
		BGL_BIND_STRING(BGl_string2907z00zz__errorz00,
			BgL_bgl_string2907za700za7za7_3188za7);
		BGL_BIND_STRING(BGl_string2906z00zz__errorz00,
			BgL_bgl_string2906za700za7za7_3187za7);
		BGL_BIND_STRING(BGl_string2905z00zz__errorz00,
			BgL_bgl_string2905za700za7za7_3186za7);
		BGL_BIND_STRING(BGl_string2904z00zz__errorz00,
			BgL_bgl_string2904za700za7za7_3185za7);
		BGL_BIND_STRING(BGl_string2903z00zz__errorz00,
			BgL_bgl_string2903za700za7za7_3184za7);
		BGL_BIND_STRING(BGl_string2902z00zz__errorz00,
			BgL_bgl_string2902za700za7za7_3183za7);
		BGL_BIND_STRING(BGl_string2901z00zz__errorz00,
			BgL_bgl_string2901za700za7za7_3182za7);
		BGL_BIND_STRING(BGl_string2900z00zz__errorz00,
			BgL_bgl_string2900za700za7za7_3181za7);
		BGL_BIND_PROCEDURE(BGl_errorzf2errnozd2envz20zz__errorz00,
			BgL_bgl_za762errorza7f2errno3180z00);
		BGL_BIND_PROCEDURE(BGl_bigloozd2typezd2errorzd2msgzd2envz00zz__errorz00,
			BgL_bgl_za762biglooza7d2type3179z00);
		BGL_BIND_PROCEDURE(BGl_stackzd2overflowzd2errorzd2envzd2zz__errorz00,
			BgL_bgl_za762stackza7d2overf3178z00);
		BGL_BIND_PROCEDURE(BGl_czd2debuggingzd2showzd2typezd2envz00zz__errorz00,
			BgL_bgl_za762cza7d2debugging3177z00);
		BGL_BIND_PROCEDURE
			(BGl_displayzd2tracezd2stackzd2sourcezd2envz00zz__errorz00,
			BgL_bgl_za762displayza7d2tra3176z00);
		BGL_BIND_PROCEDURE(BGl_setzd2errorzd2handlerz12zd2envzc0zz__errorz00,
			BgL_bgl_za762setza7d2errorza7d3175za7);
		BGL_BIND_PROCEDURE(BGl_warningzf2czd2locationzd2envzf2zz__errorz00,
			BgL_bgl_za762warningza7f2cza7d3174za7);
		BGL_BIND_PROCEDURE(BGl_warningzd2envzd2zz__errorz00,
			BgL_bgl_za762warning2811za763173z00);
		BGL_BIND_PROCEDURE(BGl_warningzf2loczd2envz20zz__errorz00,
			BgL_bgl_za762warningza7f2loc3172z00);
		BGL_BIND_PROCEDURE(BGl_warningzd2notifyzd2envz00zz__errorz00,
			BgL_bgl_za762warningza7d2not3171z00);
		BGL_BIND_PROCEDURE(BGl_displayzd2tracezd2stackzd2envzd2zz__errorz00,
			BgL_bgl__displayza7d2trace3170za7);
		BGL_BIND_PROCEDURE(BGl_dumpzd2tracezd2stackzd2envzd2zz__errorz00,
			BgL_bgl_za762dumpza7d2traceza73169za7);
		BGL_BIND_PROCEDURE(BGl_sigfpezd2errorzd2handlerzd2envzd2zz__errorz00,
			BgL_bgl_za762sigfpeza7d2erro3168z00);
		BGL_BIND_PROCEDURE(BGl_exitzd2envzd2zz__errorz00,
			BgL_bgl_za762exitza762za7za7__er3167z00);
		BGL_BIND_PROCEDURE(BGl_withzd2exceptionzd2handlerzd2envzd2zz__errorz00,
			BgL_bgl_za762withza7d2except3166z00);
		BGL_BIND_STRING(BGl_string2999z00zz__errorz00,
			BgL_bgl_string2999za700za7za7_3165za7);
		BGL_BIND_STRING(BGl_string2998z00zz__errorz00,
			BgL_bgl_string2998za700za7za7_3164za7);
		BGL_BIND_STRING(BGl_string2997z00zz__errorz00,
			BgL_bgl_string2997za700za7za7_3163za7);
		BGL_BIND_STRING(BGl_string2996z00zz__errorz00,
			BgL_bgl_string2996za700za7za7_3162za7);
		BGL_BIND_STRING(BGl_string2995z00zz__errorz00,
			BgL_bgl_string2995za700za7za7_3161za7);
		BGL_BIND_STRING(BGl_string2994z00zz__errorz00,
			BgL_bgl_string2994za700za7za7_3160za7);
		BGL_BIND_STRING(BGl_string2993z00zz__errorz00,
			BgL_bgl_string2993za700za7za7_3159za7);
		BGL_BIND_STRING(BGl_string2992z00zz__errorz00,
			BgL_bgl_string2992za700za7za7_3158za7);
		BGL_BIND_STRING(BGl_string2991z00zz__errorz00,
			BgL_bgl_string2991za700za7za7_3157za7);
		BGL_BIND_STRING(BGl_string2990z00zz__errorz00,
			BgL_bgl_string2990za700za7za7_3156za7);
		BGL_BIND_PROCEDURE(BGl_sigillzd2errorzd2handlerzd2envzd2zz__errorz00,
			BgL_bgl_za762sigillza7d2erro3155z00);
		BGL_BIND_PROCEDURE(BGl_z62tryzd2envzb0zz__errorz00,
			BgL_bgl_za762za762tryza700za7za7__3154za7);
		BGL_BIND_STRING(BGl_string2989z00zz__errorz00,
			BgL_bgl_string2989za700za7za7_3153za7);
		BGL_BIND_STRING(BGl_string2988z00zz__errorz00,
			BgL_bgl_string2988za700za7za7_3152za7);
		BGL_BIND_STRING(BGl_string2987z00zz__errorz00,
			BgL_bgl_string2987za700za7za7_3151za7);
		BGL_BIND_PROCEDURE(BGl_sigsegvzd2errorzd2handlerzd2envzd2zz__errorz00,
			BgL_bgl_za762sigsegvza7d2err3150z00);
		BGL_BIND_STRING(BGl_string2986z00zz__errorz00,
			BgL_bgl_string2986za700za7za7_3149za7);
		BGL_BIND_STRING(BGl_string2985z00zz__errorz00,
			BgL_bgl_string2985za700za7za7_3148za7);
		BGL_BIND_STRING(BGl_string2984z00zz__errorz00,
			BgL_bgl_string2984za700za7za7_3147za7);
		BGL_BIND_PROCEDURE(BGl_typeofzd2envzd2zz__errorz00,
			BgL_bgl_za762typeofza762za7za7__3146z00);
		BGL_BIND_STRING(BGl_string2983z00zz__errorz00,
			BgL_bgl_string2983za700za7za7_3145za7);
		BGL_BIND_STRING(BGl_string2982z00zz__errorz00,
			BgL_bgl_string2982za700za7za7_3144za7);
		BGL_BIND_STRING(BGl_string2981z00zz__errorz00,
			BgL_bgl_string2981za700za7za7_3143za7);
		BGL_BIND_STRING(BGl_string2980z00zz__errorz00,
			BgL_bgl_string2980za700za7za7_3142za7);
		BGL_BIND_PROCEDURE(BGl_errorzd2envzd2zz__errorz00,
			BgL_bgl_za762error2808za762za73141za7);
		BGL_BIND_STRING(BGl_string2899z00zz__errorz00,
			BgL_bgl_string2899za700za7za7_3140za7);
		BGL_BIND_STRING(BGl_string2898z00zz__errorz00,
			BgL_bgl_string2898za700za7za7_3139za7);
		BGL_BIND_STRING(BGl_string2979z00zz__errorz00,
			BgL_bgl_string2979za700za7za7_3138za7);
		BGL_BIND_STRING(BGl_string2897z00zz__errorz00,
			BgL_bgl_string2897za700za7za7_3137za7);
		BGL_BIND_STRING(BGl_string2978z00zz__errorz00,
			BgL_bgl_string2978za700za7za7_3136za7);
		BGL_BIND_STRING(BGl_string2896z00zz__errorz00,
			BgL_bgl_string2896za700za7za7_3135za7);
		BGL_BIND_STRING(BGl_string2977z00zz__errorz00,
			BgL_bgl_string2977za700za7za7_3134za7);
		BGL_BIND_PROCEDURE(BGl_typezd2errorzd2envz00zz__errorz00,
			BgL_bgl_za762typeza7d2error23133z00);
		BGL_BIND_STRING(BGl_string2895z00zz__errorz00,
			BgL_bgl_string2895za700za7za7_3132za7);
		BGL_BIND_STRING(BGl_string2976z00zz__errorz00,
			BgL_bgl_string2976za700za7za7_3131za7);
		BGL_BIND_STRING(BGl_string2894z00zz__errorz00,
			BgL_bgl_string2894za700za7za7_3130za7);
		BGL_BIND_STRING(BGl_string2975z00zz__errorz00,
			BgL_bgl_string2975za700za7za7_3129za7);
		BGL_BIND_STRING(BGl_string2893z00zz__errorz00,
			BgL_bgl_string2893za700za7za7_3128za7);
		BGL_BIND_STRING(BGl_string2974z00zz__errorz00,
			BgL_bgl_string2974za700za7za7_3127za7);
		BGL_BIND_PROCEDURE(BGl_proc2886z00zz__errorz00,
			BgL_bgl_za762za7c3za704anonymo3126za7);
		BGL_BIND_STRING(BGl_string2892z00zz__errorz00,
			BgL_bgl_string2892za700za7za7_3125za7);
		BGL_BIND_STRING(BGl_string2973z00zz__errorz00,
			BgL_bgl_string2973za700za7za7_3124za7);
		BGL_BIND_STRING(BGl_string2891z00zz__errorz00,
			BgL_bgl_string2891za700za7za7_3123za7);
		BGL_BIND_STRING(BGl_string2972z00zz__errorz00,
			BgL_bgl_string2972za700za7za7_3122za7);
		BGL_BIND_STRING(BGl_string2890z00zz__errorz00,
			BgL_bgl_string2890za700za7za7_3121za7);
		BGL_BIND_STRING(BGl_string2971z00zz__errorz00,
			BgL_bgl_string2971za700za7za7_3120za7);
		BGL_BIND_STRING(BGl_string2970z00zz__errorz00,
			BgL_bgl_string2970za700za7za7_3119za7);
		BGL_BIND_PROCEDURE(BGl_warningzd2notifyzf2locationzd2envzf2zz__errorz00,
			BgL_bgl_za762warningza7d2not3118z00);
		BGL_BIND_STRING(BGl_string2889z00zz__errorz00,
			BgL_bgl_string2889za700za7za7_3117za7);
		BGL_BIND_STRING(BGl_string2888z00zz__errorz00,
			BgL_bgl_string2888za700za7za7_3116za7);
		BGL_BIND_STRING(BGl_string2969z00zz__errorz00,
			BgL_bgl_string2969za700za7za7_3115za7);
		BGL_BIND_STRING(BGl_string2887z00zz__errorz00,
			BgL_bgl_string2887za700za7za7_3114za7);
		BGL_BIND_STRING(BGl_string2968z00zz__errorz00,
			BgL_bgl_string2968za700za7za7_3113za7);
		BGL_BIND_STRING(BGl_string2967z00zz__errorz00,
			BgL_bgl_string2967za700za7za7_3112za7);
		BGL_BIND_STRING(BGl_string2885z00zz__errorz00,
			BgL_bgl_string2885za700za7za7_3111za7);
		BGL_BIND_STRING(BGl_string2966z00zz__errorz00,
			BgL_bgl_string2966za700za7za7_3110za7);
		BGL_BIND_STRING(BGl_string2884z00zz__errorz00,
			BgL_bgl_string2884za700za7za7_3109za7);
		BGL_BIND_STRING(BGl_string2965z00zz__errorz00,
			BgL_bgl_string2965za700za7za7_3108za7);
		BGL_BIND_STRING(BGl_string2883z00zz__errorz00,
			BgL_bgl_string2883za700za7za7_3107za7);
		BGL_BIND_STRING(BGl_string2964z00zz__errorz00,
			BgL_bgl_string2964za700za7za7_3106za7);
		BGL_BIND_STRING(BGl_string2882z00zz__errorz00,
			BgL_bgl_string2882za700za7za7_3105za7);
		BGL_BIND_STRING(BGl_string2963z00zz__errorz00,
			BgL_bgl_string2963za700za7za7_3104za7);
		BGL_BIND_STRING(BGl_string2881z00zz__errorz00,
			BgL_bgl_string2881za700za7za7_3103za7);
		BGL_BIND_STRING(BGl_string2962z00zz__errorz00,
			BgL_bgl_string2962za700za7za7_3102za7);
		BGL_BIND_STRING(BGl_string2880z00zz__errorz00,
			BgL_bgl_string2880za700za7za7_3101za7);
		BGL_BIND_STRING(BGl_string2961z00zz__errorz00,
			BgL_bgl_string2961za700za7za7_3100za7);
		BGL_BIND_STRING(BGl_string2960z00zz__errorz00,
			BgL_bgl_string2960za700za7za7_3099za7);
		BGL_BIND_PROCEDURE(BGl_sigbuszd2errorzd2handlerzd2envzd2zz__errorz00,
			BgL_bgl_za762sigbusza7d2erro3098z00);
		BGL_BIND_STRING(BGl_string2878z00zz__errorz00,
			BgL_bgl_string2878za700za7za7_3097za7);
		BGL_BIND_STRING(BGl_string2959z00zz__errorz00,
			BgL_bgl_string2959za700za7za7_3096za7);
		BGL_BIND_STRING(BGl_string2877z00zz__errorz00,
			BgL_bgl_string2877za700za7za7_3095za7);
		BGL_BIND_STRING(BGl_string2876z00zz__errorz00,
			BgL_bgl_string2876za700za7za7_3094za7);
		BGL_BIND_STRING(BGl_string2957z00zz__errorz00,
			BgL_bgl_string2957za700za7za7_3093za7);
		BGL_BIND_STRING(BGl_string2875z00zz__errorz00,
			BgL_bgl_string2875za700za7za7_3092za7);
		BGL_BIND_STRING(BGl_string2956z00zz__errorz00,
			BgL_bgl_string2956za700za7za7_3091za7);
		BGL_BIND_STRING(BGl_string2874z00zz__errorz00,
			BgL_bgl_string2874za700za7za7_3090za7);
		BGL_BIND_STRING(BGl_string2955z00zz__errorz00,
			BgL_bgl_string2955za700za7za7_3089za7);
		BGL_BIND_STRING(BGl_string2873z00zz__errorz00,
			BgL_bgl_string2873za700za7za7_3088za7);
		BGL_BIND_STRING(BGl_string2954z00zz__errorz00,
			BgL_bgl_string2954za700za7za7_3087za7);
		BGL_BIND_STRING(BGl_string2872z00zz__errorz00,
			BgL_bgl_string2872za700za7za7_3086za7);
		BGL_BIND_STRING(BGl_string2953z00zz__errorz00,
			BgL_bgl_string2953za700za7za7_3085za7);
		BGL_BIND_STRING(BGl_string2871z00zz__errorz00,
			BgL_bgl_string2871za700za7za7_3084za7);
		BGL_BIND_STRING(BGl_string2952z00zz__errorz00,
			BgL_bgl_string2952za700za7za7_3083za7);
		BGL_BIND_STRING(BGl_string2870z00zz__errorz00,
			BgL_bgl_string2870za700za7za7_3082za7);
		BGL_BIND_STRING(BGl_string2951z00zz__errorz00,
			BgL_bgl_string2951za700za7za7_3081za7);
		BGL_BIND_STRING(BGl_string2950z00zz__errorz00,
			BgL_bgl_string2950za700za7za7_3080za7);
		BGL_BIND_PROCEDURE
			(BGl_bigloozd2typezd2errorzf2locationzd2envz20zz__errorz00,
			BgL_bgl_za762biglooza7d2type3079z00);
		BGL_BIND_PROCEDURE(BGl_errorzf2czd2locationzd2envzf2zz__errorz00,
			BgL_bgl_za762errorza7f2cza7d2l3078za7);
		BGL_BIND_PROCEDURE(BGl_getzd2errorzd2handlerzd2envzd2zz__errorz00,
			BgL_bgl_za762getza7d2errorza7d3077za7);
		BGL_BIND_PROCEDURE(BGl_modulezd2initzd2errorzd2envzd2zz__errorz00,
			BgL_bgl_za762moduleza7d2init3076z00);
		BGL_BIND_STRING(BGl_string2949z00zz__errorz00,
			BgL_bgl_string2949za700za7za7_3075za7);
		BGL_BIND_STRING(BGl_string2948z00zz__errorz00,
			BgL_bgl_string2948za700za7za7_3074za7);
		BGL_BIND_STRING(BGl_string2946z00zz__errorz00,
			BgL_bgl_string2946za700za7za7_3073za7);
		BGL_BIND_STRING(BGl_string2944z00zz__errorz00,
			BgL_bgl_string2944za700za7za7_3072za7);
		BGL_BIND_STRING(BGl_string2943z00zz__errorz00,
			BgL_bgl_string2943za700za7za7_3071za7);
		BGL_BIND_PROCEDURE(BGl_proc2936z00zz__errorz00,
			BgL_bgl_za762za7c3za704anonymo3070za7);
		BGL_BIND_STRING(BGl_string2942z00zz__errorz00,
			BgL_bgl_string2942za700za7za7_3069za7);
		BGL_BIND_STRING(BGl_string2941z00zz__errorz00,
			BgL_bgl_string2941za700za7za7_3068za7);
		BGL_BIND_STRING(BGl_string2940z00zz__errorz00,
			BgL_bgl_string2940za700za7za7_3067za7);
		BGL_BIND_PROCEDURE
			(BGl_indexzd2outzd2ofzd2boundszd2errorzd2envzd2zz__errorz00,
			BgL_bgl_za762indexza7d2outza7d3066za7);
		BGL_BIND_PROCEDURE(BGl_proc2932z00zz__errorz00,
			BgL_bgl_za762za7c3za704anonymo3065za7);
		BGL_BIND_PROCEDURE(BGl_pushzd2errorzd2handlerz12zd2envzc0zz__errorz00,
			BgL_bgl_za762pushza7d2errorza73064za7);
		BGL_BIND_PROCEDURE(BGl_bigloozd2typezd2errorzd2envzd2zz__errorz00,
			BgL_bgl_za762biglooza7d2type3063z00);
		BGL_BIND_PROCEDURE(BGl_envzd2getzd2errorzd2handlerzd2envz00zz__errorz00,
			BgL_bgl_za762envza7d2getza7d2e3062za7);
		BGL_BIND_STRING(BGl_string2939z00zz__errorz00,
			BgL_bgl_string2939za700za7za7_3061za7);
		BGL_BIND_STRING(BGl_string2938z00zz__errorz00,
			BgL_bgl_string2938za700za7za7_3060za7);
		BGL_BIND_STRING(BGl_string2937z00zz__errorz00,
			BgL_bgl_string2937za700za7za7_3059za7);
		BGL_BIND_STRING(BGl_string2935z00zz__errorz00,
			BgL_bgl_string2935za700za7za7_3058za7);
		BGL_BIND_STRING(BGl_string2934z00zz__errorz00,
			BgL_bgl_string2934za700za7za7_3057za7);
		BGL_BIND_STRING(BGl_string2933z00zz__errorz00,
			BgL_bgl_string2933za700za7za7_3056za7);
		BGL_BIND_PROCEDURE(BGl_errorzf2sourcezd2locationzd2envzf2zz__errorz00,
			BgL_bgl_za762errorza7f2sourc3055z00);
		BGL_BIND_PROCEDURE(BGl_errorzd2notifyzd2envz00zz__errorz00,
			BgL_bgl_za762errorza7d2notif3054z00);
		BGL_BIND_STRING(BGl_string2931z00zz__errorz00,
			BgL_bgl_string2931za700za7za7_3053za7);
		BGL_BIND_STRING(BGl_string2930z00zz__errorz00,
			BgL_bgl_string2930za700za7za7_3052za7);
		BGL_BIND_PROCEDURE(BGl_currentzd2exceptionzd2handlerzd2envzd2zz__errorz00,
			BgL_bgl_za762currentza7d2exc3051z00);
		BGL_BIND_STRING(BGl_string3022z00zz__errorz00,
			BgL_bgl_string3022za700za7za7_3050za7);
		BGL_BIND_STRING(BGl_string3021z00zz__errorz00,
			BgL_bgl_string3021za700za7za7_3049za7);
		BGL_BIND_STRING(BGl_string3020z00zz__errorz00,
			BgL_bgl_string3020za700za7za7_3048za7);
		BGL_BIND_PROCEDURE(BGl_getzd2tracezd2stackzd2envzd2zz__errorz00,
			BgL_bgl__getza7d2traceza7d2s3047z00);
		BGL_BIND_PROCEDURE(BGl_errorzd2notifyzf2locationzd2envzf2zz__errorz00,
			BgL_bgl_za762errorza7d2notif3046z00);
		BGL_BIND_STRING(BGl_string2929z00zz__errorz00,
			BgL_bgl_string2929za700za7za7_3045za7);
		BGL_BIND_STRING(BGl_string2928z00zz__errorz00,
			BgL_bgl_string2928za700za7za7_3044za7);
		BGL_BIND_STRING(BGl_string2927z00zz__errorz00,
			BgL_bgl_string2927za700za7za7_3043za7);
		BGL_BIND_PROCEDURE(BGl_raisezd2envzd2zz__errorz00,
			BgL_bgl_za762raiseza762za7za7__e3042z00);
		BGL_BIND_STRING(BGl_string2926z00zz__errorz00,
			BgL_bgl_string2926za700za7za7_3041za7);
		BGL_BIND_PROCEDURE(BGl_notifyzd2interruptzd2envz00zz__errorz00,
			BgL_bgl_za762notifyza7d2inte3040z00);
		BGL_BIND_STRING(BGl_string2924z00zz__errorz00,
			BgL_bgl_string2924za700za7za7_3039za7);
		BGL_BIND_STRING(BGl_string2922z00zz__errorz00,
			BgL_bgl_string2922za700za7za7_3038za7);
		BGL_BIND_STRING(BGl_string2921z00zz__errorz00,
			BgL_bgl_string2921za700za7za7_3037za7);
		BGL_BIND_STRING(BGl_string2920z00zz__errorz00,
			BgL_bgl_string2920za700za7za7_3036za7);
		BGL_BIND_STRING(BGl_string3019z00zz__errorz00,
			BgL_bgl_string3019za700za7za7_3035za7);
		BGL_BIND_STRING(BGl_string3018z00zz__errorz00,
			BgL_bgl_string3018za700za7za7_3034za7);
		BGL_BIND_STRING(BGl_string3017z00zz__errorz00,
			BgL_bgl_string3017za700za7za7_3033za7);
		BGL_BIND_STRING(BGl_string3016z00zz__errorz00,
			BgL_bgl_string3016za700za7za7_3032za7);
		BGL_BIND_PROCEDURE(BGl_errorzf2sourcezd2envz20zz__errorz00,
			BgL_bgl_za762errorza7f2sourc3031z00);
		BGL_BIND_STRING(BGl_string3015z00zz__errorz00,
			BgL_bgl_string3015za700za7za7_3030za7);
		BGL_BIND_STRING(BGl_string3014z00zz__errorz00,
			BgL_bgl_string3014za700za7za7_3029za7);
		BGL_BIND_PROCEDURE(BGl_the_failurezd2envzd2zz__errorz00,
			BgL_bgl_za762the_failureza763028z00);
		BGL_BIND_STRING(BGl_string3013z00zz__errorz00,
			BgL_bgl_string3013za700za7za7_3027za7);
		BGL_BIND_STRING(BGl_string3012z00zz__errorz00,
			BgL_bgl_string3012za700za7za7_3026za7);
		BGL_BIND_STRING(BGl_string3011z00zz__errorz00,
			BgL_bgl_string3011za700za7za7_3025za7);
		BGL_BIND_PROCEDURE(BGl_envzd2setzd2errorzd2handlerz12zd2envz12zz__errorz00,
			BgL_bgl_za762envza7d2setza7d2e3024za7);
		BGL_BIND_STRING(BGl_string3010z00zz__errorz00,
			BgL_bgl_string3010za700za7za7_3023za7);
	}

/* 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__errorz00));
		ADD_ROOT((void *) (&BGl_symbol2914z00zz__errorz00));
		ADD_ROOT((void *) (&BGl_symbol2923z00zz__errorz00));
		ADD_ROOT((void *) (&BGl_symbol2925z00zz__errorz00));
		ADD_ROOT((void *) (&BGl_symbol2945z00zz__errorz00));
		ADD_ROOT((void *) (&BGl_symbol2947z00zz__errorz00));
		ADD_ROOT((void *) (&BGl_symbol2958z00zz__errorz00));
		ADD_ROOT((void *) (&BGl_symbol2879z00zz__errorz00));
#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__errorz00(long
		BgL_checksumz00_5495, char *BgL_fromz00_5496)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__errorz00))
				{
					BGl_requirezd2initializa7ationz75zz__errorz00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__errorz00();
					BGl_cnstzd2initzd2zz__errorz00();
					BGl_importedzd2moduleszd2initz00zz__errorz00();
					return BGl_toplevelzd2initzd2zz__errorz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__errorz00(void)
	{
		{	/* Llib/error.scm 18 */
			BGl_symbol2879z00zz__errorz00 =
				bstring_to_symbol(BGl_string2880z00zz__errorz00);
			BGl_symbol2914z00zz__errorz00 =
				bstring_to_symbol(BGl_string2915z00zz__errorz00);
			BGl_symbol2923z00zz__errorz00 =
				bstring_to_symbol(BGl_string2924z00zz__errorz00);
			BGl_symbol2925z00zz__errorz00 =
				bstring_to_symbol(BGl_string2926z00zz__errorz00);
			BGl_symbol2945z00zz__errorz00 =
				bstring_to_symbol(BGl_string2946z00zz__errorz00);
			BGl_symbol2947z00zz__errorz00 =
				bstring_to_symbol(BGl_string2948z00zz__errorz00);
			return (BGl_symbol2958z00zz__errorz00 =
				bstring_to_symbol(BGl_string2959z00zz__errorz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__errorz00(void)
	{
		{	/* Llib/error.scm 18 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__errorz00(void)
	{
		{	/* Llib/error.scm 18 */
			BGl_signalz00zz__osz00(SIGFPE,
				BGl_sigfpezd2errorzd2handlerzd2envzd2zz__errorz00);
			BGl_signalz00zz__osz00(SIGTRAP,
				BGl_sigfpezd2errorzd2handlerzd2envzd2zz__errorz00);
			BGl_signalz00zz__osz00(SIGILL,
				BGl_sigillzd2errorzd2handlerzd2envzd2zz__errorz00);
			BGl_signalz00zz__osz00(SIGBUS,
				BGl_sigbuszd2errorzd2handlerzd2envzd2zz__errorz00);
			return BGl_signalz00zz__osz00(SIGSEGV,
				BGl_sigsegvzd2errorzd2handlerzd2envzd2zz__errorz00);
		}

	}



/* _get-trace-stack */
	obj_t BGl__getzd2tracezd2stackz00zz__errorz00(obj_t BgL_env1206z00_5,
		obj_t BgL_opt1205z00_4)
	{
		{	/* Llib/error.scm 313 */
			{	/* Llib/error.scm 313 */

				{	/* Llib/error.scm 313 */
					long BgL_aux1208z00_1616;

					{
						obj_t BgL_auxz00_5518;

						if (VECTORP(BgL_opt1205z00_4))
							{	/* Llib/error.scm 313 */
								BgL_auxz00_5518 = BgL_opt1205z00_4;
							}
						else
							{
								obj_t BgL_auxz00_5521;

								BgL_auxz00_5521 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
									BINT(12737L), BGl_string2871z00zz__errorz00,
									BGl_string2872z00zz__errorz00, BgL_opt1205z00_4);
								FAILURE(BgL_auxz00_5521, BFALSE, BFALSE);
							}
						BgL_aux1208z00_1616 = VECTOR_LENGTH(BgL_auxz00_5518);
					}
					switch (BgL_aux1208z00_1616)
						{
						case 0L:

							{	/* Llib/error.scm 313 */

								return BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE);
							}
							break;
						case 1L:

							{	/* Llib/error.scm 313 */
								obj_t BgL_depthz00_1618;

								{
									obj_t BgL_auxz00_5527;

									if (VECTORP(BgL_opt1205z00_4))
										{	/* Llib/error.scm 313 */
											BgL_auxz00_5527 = BgL_opt1205z00_4;
										}
									else
										{
											obj_t BgL_auxz00_5530;

											BgL_auxz00_5530 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2870z00zz__errorz00, BINT(12737L),
												BGl_string2871z00zz__errorz00,
												BGl_string2872z00zz__errorz00, BgL_opt1205z00_4);
											FAILURE(BgL_auxz00_5530, BFALSE, BFALSE);
										}
									BgL_depthz00_1618 = VECTOR_REF(BgL_auxz00_5527, 0L);
								}
								{	/* Llib/error.scm 313 */

									return
										BGl_getzd2tracezd2stackz00zz__errorz00(BgL_depthz00_1618);
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* get-trace-stack */
	BGL_EXPORTED_DEF obj_t BGl_getzd2tracezd2stackz00zz__errorz00(obj_t
		BgL_depthz00_3)
	{
		{	/* Llib/error.scm 313 */
			{	/* Llib/error.scm 314 */
				obj_t BgL_dz00_1619;

				if (INTEGERP(BgL_depthz00_3))
					{	/* Llib/error.scm 315 */
						BgL_dz00_1619 = BgL_depthz00_3;
					}
				else
					{	/* Llib/error.scm 316 */
						obj_t BgL_g1040z00_1621;

						BgL_g1040z00_1621 =
							BGl_getenvz00zz__osz00(BGl_string2873z00zz__errorz00);
						if (CBOOL(BgL_g1040z00_1621))
							{	/* Ieee/fixnum.scm 982 */

								BgL_dz00_1619 =
									BINT(BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00
									(BgL_g1040z00_1621, 10L, 0L));
							}
						else
							{	/* Llib/error.scm 316 */
								{	/* Llib/error.scm 317 */
									int BgL_arg1335z00_1629;

									BgL_arg1335z00_1629 =
										BGl_bigloozd2tracezd2stackzd2depthzd2zz__paramz00();
									((bool_t) 1);
								}
								BgL_dz00_1619 =
									BINT(BGl_bigloozd2tracezd2stackzd2depthzd2zz__paramz00());
					}}
				{	/* Llib/error.scm 319 */
					int BgL_tmpz00_5547;

					BgL_tmpz00_5547 = CINT(BgL_dz00_1619);
					return bgl_get_trace_stack(BgL_tmpz00_5547);
				}
			}
		}

	}



/* the_failure */
	BGL_EXPORTED_DEF obj_t the_failure(obj_t BgL_procz00_6, obj_t BgL_msgz00_7,
		obj_t BgL_objz00_8)
	{
		{	/* Llib/error.scm 324 */
			{	/* Llib/error.scm 325 */
				bool_t BgL_test3218z00_5550;

				{	/* Llib/error.scm 325 */
					obj_t BgL_classz00_3486;

					BgL_classz00_3486 = BGl_z62exceptionz62zz__objectz00;
					if (BGL_OBJECTP(BgL_procz00_6))
						{	/* Llib/error.scm 325 */
							BgL_objectz00_bglt BgL_arg2767z00_3488;

							BgL_arg2767z00_3488 = (BgL_objectz00_bglt) (BgL_procz00_6);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Llib/error.scm 325 */
									long BgL_idxz00_3494;

									BgL_idxz00_3494 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_3488);
									BgL_test3218z00_5550 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_3494 + 2L)) == BgL_classz00_3486);
								}
							else
								{	/* Llib/error.scm 325 */
									bool_t BgL_res2787z00_3519;

									{	/* Llib/error.scm 325 */
										obj_t BgL_oclassz00_3502;

										{	/* Llib/error.scm 325 */
											obj_t BgL_arg2777z00_3510;
											long BgL_arg2778z00_3511;

											BgL_arg2777z00_3510 = (BGl_za2classesza2z00zz__objectz00);
											{	/* Llib/error.scm 325 */
												long BgL_arg2779z00_3512;

												BgL_arg2779z00_3512 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_3488);
												BgL_arg2778z00_3511 =
													(BgL_arg2779z00_3512 - OBJECT_TYPE);
											}
											BgL_oclassz00_3502 =
												VECTOR_REF(BgL_arg2777z00_3510, BgL_arg2778z00_3511);
										}
										{	/* Llib/error.scm 325 */
											bool_t BgL__ortest_1196z00_3503;

											BgL__ortest_1196z00_3503 =
												(BgL_classz00_3486 == BgL_oclassz00_3502);
											if (BgL__ortest_1196z00_3503)
												{	/* Llib/error.scm 325 */
													BgL_res2787z00_3519 = BgL__ortest_1196z00_3503;
												}
											else
												{	/* Llib/error.scm 325 */
													long BgL_odepthz00_3504;

													{	/* Llib/error.scm 325 */
														obj_t BgL_arg2764z00_3505;

														BgL_arg2764z00_3505 = (BgL_oclassz00_3502);
														BgL_odepthz00_3504 =
															BGL_CLASS_DEPTH(BgL_arg2764z00_3505);
													}
													if ((2L < BgL_odepthz00_3504))
														{	/* Llib/error.scm 325 */
															obj_t BgL_arg2762z00_3507;

															{	/* Llib/error.scm 325 */
																obj_t BgL_arg2763z00_3508;

																BgL_arg2763z00_3508 = (BgL_oclassz00_3502);
																BgL_arg2762z00_3507 =
																	BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_3508,
																	2L);
															}
															BgL_res2787z00_3519 =
																(BgL_arg2762z00_3507 == BgL_classz00_3486);
														}
													else
														{	/* Llib/error.scm 325 */
															BgL_res2787z00_3519 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test3218z00_5550 = BgL_res2787z00_3519;
								}
						}
					else
						{	/* Llib/error.scm 325 */
							BgL_test3218z00_5550 = ((bool_t) 0);
						}
				}
				if (BgL_test3218z00_5550)
					{	/* Llib/error.scm 325 */
						return BGl_raisez00zz__errorz00(BgL_procz00_6);
					}
				else
					{	/* Llib/error.scm 325 */
						BGL_TAIL return
							BGl_errorz00zz__errorz00(BgL_procz00_6, BgL_msgz00_7,
							BgL_objz00_8);
					}
			}
		}

	}



/* &the_failure */
	obj_t BGl_z62the_failurez62zz__errorz00(obj_t BgL_envz00_5212,
		obj_t BgL_procz00_5213, obj_t BgL_msgz00_5214, obj_t BgL_objz00_5215)
	{
		{	/* Llib/error.scm 324 */
			return the_failure(BgL_procz00_5213, BgL_msgz00_5214, BgL_objz00_5215);
		}

	}



/* error/errno */
	BGL_EXPORTED_DEF obj_t bgl_system_failure(int BgL_sysnoz00_9,
		obj_t BgL_procz00_10, obj_t BgL_msgz00_11, obj_t BgL_objz00_12)
	{
		{	/* Llib/error.scm 332 */
			if (((long) (BgL_sysnoz00_9) == (long) (BGL_IO_ERROR)))
				{	/* Llib/error.scm 336 */
					BgL_z62iozd2errorzb0_bglt BgL_arg1338z00_1632;

					{	/* Llib/error.scm 336 */
						BgL_z62iozd2errorzb0_bglt BgL_new1043z00_1633;

						{	/* Llib/error.scm 336 */
							BgL_z62iozd2errorzb0_bglt BgL_new1042z00_1636;

							BgL_new1042z00_1636 =
								((BgL_z62iozd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62iozd2errorzb0_bgl))));
							{	/* Llib/error.scm 336 */
								long BgL_arg1342z00_1637;

								BgL_arg1342z00_1637 =
									BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1042z00_1636),
									BgL_arg1342z00_1637);
							}
							BgL_new1043z00_1633 = BgL_new1042z00_1636;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1043z00_1633)))->
								BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1043z00_1633)))->BgL_locationz00) =
							((obj_t) BFALSE), BUNSPEC);
						{
							obj_t BgL_auxz00_5588;

							{	/* Llib/error.scm 336 */
								obj_t BgL_arg1339z00_1634;

								{	/* Llib/error.scm 336 */
									obj_t BgL_arg1341z00_1635;

									{	/* Llib/error.scm 336 */
										obj_t BgL_classz00_3525;

										BgL_classz00_3525 = BGl_z62iozd2errorzb0zz__objectz00;
										BgL_arg1341z00_1635 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_3525);
									}
									BgL_arg1339z00_1634 = VECTOR_REF(BgL_arg1341z00_1635, 2L);
								}
								BgL_auxz00_5588 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg1339z00_1634);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1043z00_1633)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_5588), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1043z00_1633)))->
								BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1043z00_1633)))->BgL_msgz00) =
							((obj_t) BgL_msgz00_11), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1043z00_1633)))->BgL_objz00) =
							((obj_t) BgL_objz00_12), BUNSPEC);
						BgL_arg1338z00_1632 = BgL_new1043z00_1633;
					}
					return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1338z00_1632));
				}
			else
				{	/* Llib/error.scm 334 */
					if (((long) (BgL_sysnoz00_9) == (long) (BGL_IO_PORT_ERROR)))
						{	/* Llib/error.scm 339 */
							BgL_z62iozd2portzd2errorz62_bglt BgL_arg1345z00_1639;

							{	/* Llib/error.scm 339 */
								BgL_z62iozd2portzd2errorz62_bglt BgL_new1045z00_1640;

								{	/* Llib/error.scm 339 */
									BgL_z62iozd2portzd2errorz62_bglt BgL_new1044z00_1643;

									BgL_new1044z00_1643 =
										((BgL_z62iozd2portzd2errorz62_bglt)
										BOBJECT(GC_MALLOC(sizeof(struct
													BgL_z62iozd2portzd2errorz62_bgl))));
									{	/* Llib/error.scm 339 */
										long BgL_arg1349z00_1644;

										BgL_arg1349z00_1644 =
											BGL_CLASS_NUM(BGl_z62iozd2portzd2errorz62zz__objectz00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1044z00_1643),
											BgL_arg1349z00_1644);
									}
									BgL_new1045z00_1640 = BgL_new1044z00_1643;
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1045z00_1640)))->
										BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
								((((BgL_z62exceptionz62_bglt)
											COBJECT(((BgL_z62exceptionz62_bglt)
													BgL_new1045z00_1640)))->BgL_locationz00) =
									((obj_t) BFALSE), BUNSPEC);
								{
									obj_t BgL_auxz00_5614;

									{	/* Llib/error.scm 339 */
										obj_t BgL_arg1346z00_1641;

										{	/* Llib/error.scm 339 */
											obj_t BgL_arg1347z00_1642;

											{	/* Llib/error.scm 339 */
												obj_t BgL_classz00_3532;

												BgL_classz00_3532 =
													BGl_z62iozd2portzd2errorz62zz__objectz00;
												BgL_arg1347z00_1642 =
													BGL_CLASS_ALL_FIELDS(BgL_classz00_3532);
											}
											BgL_arg1346z00_1641 = VECTOR_REF(BgL_arg1347z00_1642, 2L);
										}
										BgL_auxz00_5614 =
											BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
											(BgL_arg1346z00_1641);
									}
									((((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_new1045z00_1640)))->
											BgL_stackz00) = ((obj_t) BgL_auxz00_5614), BUNSPEC);
								}
								((((BgL_z62errorz62_bglt) COBJECT(
												((BgL_z62errorz62_bglt) BgL_new1045z00_1640)))->
										BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
								((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
													BgL_new1045z00_1640)))->BgL_msgz00) =
									((obj_t) BgL_msgz00_11), BUNSPEC);
								((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
													BgL_new1045z00_1640)))->BgL_objz00) =
									((obj_t) BgL_objz00_12), BUNSPEC);
								BgL_arg1345z00_1639 = BgL_new1045z00_1640;
							}
							return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1345z00_1639));
						}
					else
						{	/* Llib/error.scm 337 */
							if (((long) (BgL_sysnoz00_9) == (long) (BGL_IO_READ_ERROR)))
								{	/* Llib/error.scm 342 */
									BgL_z62iozd2readzd2errorz62_bglt BgL_arg1351z00_1646;

									{	/* Llib/error.scm 342 */
										BgL_z62iozd2readzd2errorz62_bglt BgL_new1047z00_1647;

										{	/* Llib/error.scm 342 */
											BgL_z62iozd2readzd2errorz62_bglt BgL_new1046z00_1650;

											BgL_new1046z00_1650 =
												((BgL_z62iozd2readzd2errorz62_bglt)
												BOBJECT(GC_MALLOC(sizeof(struct
															BgL_z62iozd2readzd2errorz62_bgl))));
											{	/* Llib/error.scm 342 */
												long BgL_arg1355z00_1651;

												BgL_arg1355z00_1651 =
													BGL_CLASS_NUM
													(BGl_z62iozd2readzd2errorz62zz__objectz00);
												BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
														BgL_new1046z00_1650), BgL_arg1355z00_1651);
											}
											BgL_new1047z00_1647 = BgL_new1046z00_1650;
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1047z00_1647)))->
												BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
										((((BgL_z62exceptionz62_bglt)
													COBJECT(((BgL_z62exceptionz62_bglt)
															BgL_new1047z00_1647)))->BgL_locationz00) =
											((obj_t) BFALSE), BUNSPEC);
										{
											obj_t BgL_auxz00_5640;

											{	/* Llib/error.scm 342 */
												obj_t BgL_arg1352z00_1648;

												{	/* Llib/error.scm 342 */
													obj_t BgL_arg1353z00_1649;

													{	/* Llib/error.scm 342 */
														obj_t BgL_classz00_3539;

														BgL_classz00_3539 =
															BGl_z62iozd2readzd2errorz62zz__objectz00;
														BgL_arg1353z00_1649 =
															BGL_CLASS_ALL_FIELDS(BgL_classz00_3539);
													}
													BgL_arg1352z00_1648 =
														VECTOR_REF(BgL_arg1353z00_1649, 2L);
												}
												BgL_auxz00_5640 =
													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
													(BgL_arg1352z00_1648);
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1047z00_1647)))->BgL_stackz00) =
												((obj_t) BgL_auxz00_5640), BUNSPEC);
										}
										((((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_new1047z00_1647)))->
												BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1047z00_1647)))->BgL_msgz00) =
											((obj_t) BgL_msgz00_11), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1047z00_1647)))->BgL_objz00) =
											((obj_t) BgL_objz00_12), BUNSPEC);
										BgL_arg1351z00_1646 = BgL_new1047z00_1647;
									}
									return
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg1351z00_1646));
								}
							else
								{	/* Llib/error.scm 340 */
									if (((long) (BgL_sysnoz00_9) == (long) (BGL_IO_WRITE_ERROR)))
										{	/* Llib/error.scm 345 */
											BgL_z62iozd2writezd2errorz62_bglt BgL_arg1357z00_1653;

											{	/* Llib/error.scm 345 */
												BgL_z62iozd2writezd2errorz62_bglt BgL_new1049z00_1654;

												{	/* Llib/error.scm 345 */
													BgL_z62iozd2writezd2errorz62_bglt BgL_new1048z00_1657;

													BgL_new1048z00_1657 =
														((BgL_z62iozd2writezd2errorz62_bglt)
														BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_z62iozd2writezd2errorz62_bgl))));
													{	/* Llib/error.scm 345 */
														long BgL_arg1360z00_1658;

														BgL_arg1360z00_1658 =
															BGL_CLASS_NUM
															(BGl_z62iozd2writezd2errorz62zz__objectz00);
														BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																BgL_new1048z00_1657), BgL_arg1360z00_1658);
													}
													BgL_new1049z00_1654 = BgL_new1048z00_1657;
												}
												((((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	BgL_new1049z00_1654)))->BgL_fnamez00) =
													((obj_t) BFALSE), BUNSPEC);
												((((BgL_z62exceptionz62_bglt)
															COBJECT(((BgL_z62exceptionz62_bglt)
																	BgL_new1049z00_1654)))->BgL_locationz00) =
													((obj_t) BFALSE), BUNSPEC);
												{
													obj_t BgL_auxz00_5666;

													{	/* Llib/error.scm 345 */
														obj_t BgL_arg1358z00_1655;

														{	/* Llib/error.scm 345 */
															obj_t BgL_arg1359z00_1656;

															{	/* Llib/error.scm 345 */
																obj_t BgL_classz00_3546;

																BgL_classz00_3546 =
																	BGl_z62iozd2writezd2errorz62zz__objectz00;
																BgL_arg1359z00_1656 =
																	BGL_CLASS_ALL_FIELDS(BgL_classz00_3546);
															}
															BgL_arg1358z00_1655 =
																VECTOR_REF(BgL_arg1359z00_1656, 2L);
														}
														BgL_auxz00_5666 =
															BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
															(BgL_arg1358z00_1655);
													}
													((((BgL_z62exceptionz62_bglt) COBJECT(
																	((BgL_z62exceptionz62_bglt)
																		BgL_new1049z00_1654)))->BgL_stackz00) =
														((obj_t) BgL_auxz00_5666), BUNSPEC);
												}
												((((BgL_z62errorz62_bglt) COBJECT(
																((BgL_z62errorz62_bglt) BgL_new1049z00_1654)))->
														BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(((BgL_z62errorz62_bglt)
																	BgL_new1049z00_1654)))->BgL_msgz00) =
													((obj_t) BgL_msgz00_11), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(((BgL_z62errorz62_bglt)
																	BgL_new1049z00_1654)))->BgL_objz00) =
													((obj_t) BgL_objz00_12), BUNSPEC);
												BgL_arg1357z00_1653 = BgL_new1049z00_1654;
											}
											return
												BGl_raisez00zz__errorz00(((obj_t) BgL_arg1357z00_1653));
										}
									else
										{	/* Llib/error.scm 343 */
											if (
												((long) (BgL_sysnoz00_9) ==
													(long) (BGL_IO_UNKNOWN_HOST_ERROR)))
												{	/* Llib/error.scm 348 */
													BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt
														BgL_arg1362z00_1660;
													{	/* Llib/error.scm 348 */
														BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt
															BgL_new1051z00_1661;
														{	/* Llib/error.scm 348 */
															BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt
																BgL_new1050z00_1664;
															BgL_new1050z00_1664 =
																((BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_z62iozd2unknownzd2hostzd2errorzb0_bgl))));
															{	/* Llib/error.scm 348 */
																long BgL_arg1365z00_1665;

																BgL_arg1365z00_1665 =
																	BGL_CLASS_NUM
																	(BGl_z62iozd2unknownzd2hostzd2errorzb0zz__objectz00);
																BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																		BgL_new1050z00_1664), BgL_arg1365z00_1665);
															}
															BgL_new1051z00_1661 = BgL_new1050z00_1664;
														}
														((((BgL_z62exceptionz62_bglt) COBJECT(
																		((BgL_z62exceptionz62_bglt)
																			BgL_new1051z00_1661)))->BgL_fnamez00) =
															((obj_t) BFALSE), BUNSPEC);
														((((BgL_z62exceptionz62_bglt)
																	COBJECT(((BgL_z62exceptionz62_bglt)
																			BgL_new1051z00_1661)))->BgL_locationz00) =
															((obj_t) BFALSE), BUNSPEC);
														{
															obj_t BgL_auxz00_5692;

															{	/* Llib/error.scm 348 */
																obj_t BgL_arg1363z00_1662;

																{	/* Llib/error.scm 348 */
																	obj_t BgL_arg1364z00_1663;

																	{	/* Llib/error.scm 348 */
																		obj_t BgL_classz00_3553;

																		BgL_classz00_3553 =
																			BGl_z62iozd2unknownzd2hostzd2errorzb0zz__objectz00;
																		BgL_arg1364z00_1663 =
																			BGL_CLASS_ALL_FIELDS(BgL_classz00_3553);
																	}
																	BgL_arg1363z00_1662 =
																		VECTOR_REF(BgL_arg1364z00_1663, 2L);
																}
																BgL_auxz00_5692 =
																	BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																	(BgL_arg1363z00_1662);
															}
															((((BgL_z62exceptionz62_bglt) COBJECT(
																			((BgL_z62exceptionz62_bglt)
																				BgL_new1051z00_1661)))->BgL_stackz00) =
																((obj_t) BgL_auxz00_5692), BUNSPEC);
														}
														((((BgL_z62errorz62_bglt) COBJECT(
																		((BgL_z62errorz62_bglt)
																			BgL_new1051z00_1661)))->BgL_procz00) =
															((obj_t) BgL_procz00_10), BUNSPEC);
														((((BgL_z62errorz62_bglt)
																	COBJECT(((BgL_z62errorz62_bglt)
																			BgL_new1051z00_1661)))->BgL_msgz00) =
															((obj_t) BgL_msgz00_11), BUNSPEC);
														((((BgL_z62errorz62_bglt)
																	COBJECT(((BgL_z62errorz62_bglt)
																			BgL_new1051z00_1661)))->BgL_objz00) =
															((obj_t) BgL_objz00_12), BUNSPEC);
														BgL_arg1362z00_1660 = BgL_new1051z00_1661;
													}
													return
														BGl_raisez00zz__errorz00(
														((obj_t) BgL_arg1362z00_1660));
												}
											else
												{	/* Llib/error.scm 346 */
													if (
														((long) (BgL_sysnoz00_9) ==
															(long) (BGL_IO_FILE_NOT_FOUND_ERROR)))
														{	/* Llib/error.scm 351 */
															BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt
																BgL_arg1367z00_1667;
															{	/* Llib/error.scm 351 */
																BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt
																	BgL_new1053z00_1668;
																{	/* Llib/error.scm 351 */
																	BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt
																		BgL_new1052z00_1671;
																	BgL_new1052z00_1671 =
																		(
																		(BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_z62iozd2filezd2notzd2foundzd2errorz62_bgl))));
																	{	/* Llib/error.scm 351 */
																		long BgL_arg1370z00_1672;

																		BgL_arg1370z00_1672 =
																			BGL_CLASS_NUM
																			(BGl_z62iozd2filezd2notzd2foundzd2errorz62zz__objectz00);
																		BGL_OBJECT_CLASS_NUM_SET((
																				(BgL_objectz00_bglt)
																				BgL_new1052z00_1671),
																			BgL_arg1370z00_1672);
																	}
																	BgL_new1053z00_1668 = BgL_new1052z00_1671;
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1053z00_1668)))->
																		BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																((((BgL_z62exceptionz62_bglt)
																			COBJECT(((BgL_z62exceptionz62_bglt)
																					BgL_new1053z00_1668)))->
																		BgL_locationz00) =
																	((obj_t) BFALSE), BUNSPEC);
																{
																	obj_t BgL_auxz00_5718;

																	{	/* Llib/error.scm 351 */
																		obj_t BgL_arg1368z00_1669;

																		{	/* Llib/error.scm 351 */
																			obj_t BgL_arg1369z00_1670;

																			{	/* Llib/error.scm 351 */
																				obj_t BgL_classz00_3560;

																				BgL_classz00_3560 =
																					BGl_z62iozd2filezd2notzd2foundzd2errorz62zz__objectz00;
																				BgL_arg1369z00_1670 =
																					BGL_CLASS_ALL_FIELDS
																					(BgL_classz00_3560);
																			}
																			BgL_arg1368z00_1669 =
																				VECTOR_REF(BgL_arg1369z00_1670, 2L);
																		}
																		BgL_auxz00_5718 =
																			BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																			(BgL_arg1368z00_1669);
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1053z00_1668)))->
																			BgL_stackz00) =
																		((obj_t) BgL_auxz00_5718), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1053z00_1668)))->BgL_procz00) =
																	((obj_t) BgL_procz00_10), BUNSPEC);
																((((BgL_z62errorz62_bglt)
																			COBJECT(((BgL_z62errorz62_bglt)
																					BgL_new1053z00_1668)))->BgL_msgz00) =
																	((obj_t) BgL_msgz00_11), BUNSPEC);
																((((BgL_z62errorz62_bglt)
																			COBJECT(((BgL_z62errorz62_bglt)
																					BgL_new1053z00_1668)))->BgL_objz00) =
																	((obj_t) BgL_objz00_12), BUNSPEC);
																BgL_arg1367z00_1667 = BgL_new1053z00_1668;
															}
															return
																BGl_raisez00zz__errorz00(
																((obj_t) BgL_arg1367z00_1667));
														}
													else
														{	/* Llib/error.scm 349 */
															if (
																((long) (BgL_sysnoz00_9) ==
																	(long) (BGL_IO_PARSE_ERROR)))
																{	/* Llib/error.scm 354 */
																	BgL_z62iozd2parsezd2errorz62_bglt
																		BgL_arg1372z00_1674;
																	{	/* Llib/error.scm 354 */
																		BgL_z62iozd2parsezd2errorz62_bglt
																			BgL_new1055z00_1675;
																		{	/* Llib/error.scm 354 */
																			BgL_z62iozd2parsezd2errorz62_bglt
																				BgL_new1054z00_1678;
																			BgL_new1054z00_1678 =
																				((BgL_z62iozd2parsezd2errorz62_bglt)
																				BOBJECT(GC_MALLOC(sizeof(struct
																							BgL_z62iozd2parsezd2errorz62_bgl))));
																			{	/* Llib/error.scm 354 */
																				long BgL_arg1376z00_1679;

																				BgL_arg1376z00_1679 =
																					BGL_CLASS_NUM
																					(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																				BGL_OBJECT_CLASS_NUM_SET((
																						(BgL_objectz00_bglt)
																						BgL_new1054z00_1678),
																					BgL_arg1376z00_1679);
																			}
																			BgL_new1055z00_1675 = BgL_new1054z00_1678;
																		}
																		((((BgL_z62exceptionz62_bglt) COBJECT(
																						((BgL_z62exceptionz62_bglt)
																							BgL_new1055z00_1675)))->
																				BgL_fnamez00) =
																			((obj_t) BFALSE), BUNSPEC);
																		((((BgL_z62exceptionz62_bglt)
																					COBJECT(((BgL_z62exceptionz62_bglt)
																							BgL_new1055z00_1675)))->
																				BgL_locationz00) =
																			((obj_t) BFALSE), BUNSPEC);
																		{
																			obj_t BgL_auxz00_5744;

																			{	/* Llib/error.scm 354 */
																				obj_t BgL_arg1373z00_1676;

																				{	/* Llib/error.scm 354 */
																					obj_t BgL_arg1374z00_1677;

																					{	/* Llib/error.scm 354 */
																						obj_t BgL_classz00_3567;

																						BgL_classz00_3567 =
																							BGl_z62iozd2parsezd2errorz62zz__objectz00;
																						BgL_arg1374z00_1677 =
																							BGL_CLASS_ALL_FIELDS
																							(BgL_classz00_3567);
																					}
																					BgL_arg1373z00_1676 =
																						VECTOR_REF(BgL_arg1374z00_1677, 2L);
																				}
																				BgL_auxz00_5744 =
																					BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																					(BgL_arg1373z00_1676);
																			}
																			((((BgL_z62exceptionz62_bglt) COBJECT(
																							((BgL_z62exceptionz62_bglt)
																								BgL_new1055z00_1675)))->
																					BgL_stackz00) =
																				((obj_t) BgL_auxz00_5744), BUNSPEC);
																		}
																		((((BgL_z62errorz62_bglt) COBJECT(
																						((BgL_z62errorz62_bglt)
																							BgL_new1055z00_1675)))->
																				BgL_procz00) =
																			((obj_t) BgL_procz00_10), BUNSPEC);
																		((((BgL_z62errorz62_bglt)
																					COBJECT(((BgL_z62errorz62_bglt)
																							BgL_new1055z00_1675)))->
																				BgL_msgz00) =
																			((obj_t) BgL_msgz00_11), BUNSPEC);
																		((((BgL_z62errorz62_bglt)
																					COBJECT(((BgL_z62errorz62_bglt)
																							BgL_new1055z00_1675)))->
																				BgL_objz00) =
																			((obj_t) BgL_objz00_12), BUNSPEC);
																		BgL_arg1372z00_1674 = BgL_new1055z00_1675;
																	}
																	return
																		BGl_raisez00zz__errorz00(
																		((obj_t) BgL_arg1372z00_1674));
																}
															else
																{	/* Llib/error.scm 352 */
																	if (
																		((long) (BgL_sysnoz00_9) ==
																			(long) (BGL_IO_MALFORMED_URL_ERROR)))
																		{	/* Llib/error.scm 357 */
																			BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt
																				BgL_arg1378z00_1681;
																			{	/* Llib/error.scm 357 */
																				BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt
																					BgL_new1057z00_1682;
																				{	/* Llib/error.scm 357 */
																					BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt
																						BgL_new1056z00_1685;
																					BgL_new1056z00_1685 =
																						(
																						(BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_z62iozd2malformedzd2urlzd2errorzb0_bgl))));
																					{	/* Llib/error.scm 357 */
																						long BgL_arg1381z00_1686;

																						BgL_arg1381z00_1686 =
																							BGL_CLASS_NUM
																							(BGl_z62iozd2malformedzd2urlzd2errorzb0zz__objectz00);
																						BGL_OBJECT_CLASS_NUM_SET((
																								(BgL_objectz00_bglt)
																								BgL_new1056z00_1685),
																							BgL_arg1381z00_1686);
																					}
																					BgL_new1057z00_1682 =
																						BgL_new1056z00_1685;
																				}
																				((((BgL_z62exceptionz62_bglt) COBJECT(
																								((BgL_z62exceptionz62_bglt)
																									BgL_new1057z00_1682)))->
																						BgL_fnamez00) =
																					((obj_t) BFALSE), BUNSPEC);
																				((((BgL_z62exceptionz62_bglt)
																							COBJECT((
																									(BgL_z62exceptionz62_bglt)
																									BgL_new1057z00_1682)))->
																						BgL_locationz00) =
																					((obj_t) BFALSE), BUNSPEC);
																				{
																					obj_t BgL_auxz00_5770;

																					{	/* Llib/error.scm 357 */
																						obj_t BgL_arg1379z00_1683;

																						{	/* Llib/error.scm 357 */
																							obj_t BgL_arg1380z00_1684;

																							{	/* Llib/error.scm 357 */
																								obj_t BgL_classz00_3574;

																								BgL_classz00_3574 =
																									BGl_z62iozd2malformedzd2urlzd2errorzb0zz__objectz00;
																								BgL_arg1380z00_1684 =
																									BGL_CLASS_ALL_FIELDS
																									(BgL_classz00_3574);
																							}
																							BgL_arg1379z00_1683 =
																								VECTOR_REF(BgL_arg1380z00_1684,
																								2L);
																						}
																						BgL_auxz00_5770 =
																							BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																							(BgL_arg1379z00_1683);
																					}
																					((((BgL_z62exceptionz62_bglt) COBJECT(
																									((BgL_z62exceptionz62_bglt)
																										BgL_new1057z00_1682)))->
																							BgL_stackz00) =
																						((obj_t) BgL_auxz00_5770), BUNSPEC);
																				}
																				((((BgL_z62errorz62_bglt) COBJECT(
																								((BgL_z62errorz62_bglt)
																									BgL_new1057z00_1682)))->
																						BgL_procz00) =
																					((obj_t) BgL_procz00_10), BUNSPEC);
																				((((BgL_z62errorz62_bglt)
																							COBJECT(((BgL_z62errorz62_bglt)
																									BgL_new1057z00_1682)))->
																						BgL_msgz00) =
																					((obj_t) BgL_msgz00_11), BUNSPEC);
																				((((BgL_z62errorz62_bglt)
																							COBJECT(((BgL_z62errorz62_bglt)
																									BgL_new1057z00_1682)))->
																						BgL_objz00) =
																					((obj_t) BgL_objz00_12), BUNSPEC);
																				BgL_arg1378z00_1681 =
																					BgL_new1057z00_1682;
																			}
																			return
																				BGl_raisez00zz__errorz00(
																				((obj_t) BgL_arg1378z00_1681));
																		}
																	else
																		{	/* Llib/error.scm 355 */
																			if (
																				((long) (BgL_sysnoz00_9) ==
																					(long) (BGL_IO_SIGPIPE_ERROR)))
																				{	/* Llib/error.scm 360 */
																					BgL_z62iozd2sigpipezd2errorz62_bglt
																						BgL_arg1383z00_1688;
																					{	/* Llib/error.scm 360 */
																						BgL_z62iozd2sigpipezd2errorz62_bglt
																							BgL_new1059z00_1689;
																						{	/* Llib/error.scm 360 */
																							BgL_z62iozd2sigpipezd2errorz62_bglt
																								BgL_new1058z00_1692;
																							BgL_new1058z00_1692 =
																								(
																								(BgL_z62iozd2sigpipezd2errorz62_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_z62iozd2sigpipezd2errorz62_bgl))));
																							{	/* Llib/error.scm 360 */
																								long BgL_arg1386z00_1693;

																								BgL_arg1386z00_1693 =
																									BGL_CLASS_NUM
																									(BGl_z62iozd2sigpipezd2errorz62zz__objectz00);
																								BGL_OBJECT_CLASS_NUM_SET((
																										(BgL_objectz00_bglt)
																										BgL_new1058z00_1692),
																									BgL_arg1386z00_1693);
																							}
																							BgL_new1059z00_1689 =
																								BgL_new1058z00_1692;
																						}
																						((((BgL_z62exceptionz62_bglt)
																									COBJECT((
																											(BgL_z62exceptionz62_bglt)
																											BgL_new1059z00_1689)))->
																								BgL_fnamez00) =
																							((obj_t) BFALSE), BUNSPEC);
																						((((BgL_z62exceptionz62_bglt)
																									COBJECT((
																											(BgL_z62exceptionz62_bglt)
																											BgL_new1059z00_1689)))->
																								BgL_locationz00) =
																							((obj_t) BFALSE), BUNSPEC);
																						{
																							obj_t BgL_auxz00_5796;

																							{	/* Llib/error.scm 360 */
																								obj_t BgL_arg1384z00_1690;

																								{	/* Llib/error.scm 360 */
																									obj_t BgL_arg1385z00_1691;

																									{	/* Llib/error.scm 360 */
																										obj_t BgL_classz00_3581;

																										BgL_classz00_3581 =
																											BGl_z62iozd2sigpipezd2errorz62zz__objectz00;
																										BgL_arg1385z00_1691 =
																											BGL_CLASS_ALL_FIELDS
																											(BgL_classz00_3581);
																									}
																									BgL_arg1384z00_1690 =
																										VECTOR_REF
																										(BgL_arg1385z00_1691, 2L);
																								}
																								BgL_auxz00_5796 =
																									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																									(BgL_arg1384z00_1690);
																							}
																							((((BgL_z62exceptionz62_bglt)
																										COBJECT((
																												(BgL_z62exceptionz62_bglt)
																												BgL_new1059z00_1689)))->
																									BgL_stackz00) =
																								((obj_t) BgL_auxz00_5796),
																								BUNSPEC);
																						}
																						((((BgL_z62errorz62_bglt) COBJECT(
																										((BgL_z62errorz62_bglt)
																											BgL_new1059z00_1689)))->
																								BgL_procz00) =
																							((obj_t) BgL_procz00_10),
																							BUNSPEC);
																						((((BgL_z62errorz62_bglt)
																									COBJECT((
																											(BgL_z62errorz62_bglt)
																											BgL_new1059z00_1689)))->
																								BgL_msgz00) =
																							((obj_t) BgL_msgz00_11), BUNSPEC);
																						((((BgL_z62errorz62_bglt)
																									COBJECT((
																											(BgL_z62errorz62_bglt)
																											BgL_new1059z00_1689)))->
																								BgL_objz00) =
																							((obj_t) BgL_objz00_12), BUNSPEC);
																						BgL_arg1383z00_1688 =
																							BgL_new1059z00_1689;
																					}
																					return
																						BGl_raisez00zz__errorz00(
																						((obj_t) BgL_arg1383z00_1688));
																				}
																			else
																				{	/* Llib/error.scm 358 */
																					if (
																						((long) (BgL_sysnoz00_9) ==
																							(long) (BGL_IO_TIMEOUT_ERROR)))
																						{	/* Llib/error.scm 363 */
																							BgL_z62iozd2timeoutzd2errorz62_bglt
																								BgL_arg1388z00_1695;
																							{	/* Llib/error.scm 363 */
																								BgL_z62iozd2timeoutzd2errorz62_bglt
																									BgL_new1062z00_1696;
																								{	/* Llib/error.scm 363 */
																									BgL_z62iozd2timeoutzd2errorz62_bglt
																										BgL_new1060z00_1699;
																									BgL_new1060z00_1699 =
																										(
																										(BgL_z62iozd2timeoutzd2errorz62_bglt)
																										BOBJECT(GC_MALLOC(sizeof
																												(struct
																													BgL_z62iozd2timeoutzd2errorz62_bgl))));
																									{	/* Llib/error.scm 363 */
																										long BgL_arg1391z00_1700;

																										BgL_arg1391z00_1700 =
																											BGL_CLASS_NUM
																											(BGl_z62iozd2timeoutzd2errorz62zz__objectz00);
																										BGL_OBJECT_CLASS_NUM_SET((
																												(BgL_objectz00_bglt)
																												BgL_new1060z00_1699),
																											BgL_arg1391z00_1700);
																									}
																									BgL_new1062z00_1696 =
																										BgL_new1060z00_1699;
																								}
																								((((BgL_z62exceptionz62_bglt)
																											COBJECT((
																													(BgL_z62exceptionz62_bglt)
																													BgL_new1062z00_1696)))->
																										BgL_fnamez00) =
																									((obj_t) BFALSE), BUNSPEC);
																								((((BgL_z62exceptionz62_bglt)
																											COBJECT((
																													(BgL_z62exceptionz62_bglt)
																													BgL_new1062z00_1696)))->
																										BgL_locationz00) =
																									((obj_t) BFALSE), BUNSPEC);
																								{
																									obj_t BgL_auxz00_5822;

																									{	/* Llib/error.scm 363 */
																										obj_t BgL_arg1389z00_1697;

																										{	/* Llib/error.scm 363 */
																											obj_t BgL_arg1390z00_1698;

																											{	/* Llib/error.scm 363 */
																												obj_t BgL_classz00_3588;

																												BgL_classz00_3588 =
																													BGl_z62iozd2timeoutzd2errorz62zz__objectz00;
																												BgL_arg1390z00_1698 =
																													BGL_CLASS_ALL_FIELDS
																													(BgL_classz00_3588);
																											}
																											BgL_arg1389z00_1697 =
																												VECTOR_REF
																												(BgL_arg1390z00_1698,
																												2L);
																										}
																										BgL_auxz00_5822 =
																											BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																											(BgL_arg1389z00_1697);
																									}
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1062z00_1696)))->
																											BgL_stackz00) =
																										((obj_t) BgL_auxz00_5822),
																										BUNSPEC);
																								}
																								((((BgL_z62errorz62_bglt)
																											COBJECT((
																													(BgL_z62errorz62_bglt)
																													BgL_new1062z00_1696)))->
																										BgL_procz00) =
																									((obj_t) BgL_procz00_10),
																									BUNSPEC);
																								((((BgL_z62errorz62_bglt)
																											COBJECT((
																													(BgL_z62errorz62_bglt)
																													BgL_new1062z00_1696)))->
																										BgL_msgz00) =
																									((obj_t) BgL_msgz00_11),
																									BUNSPEC);
																								((((BgL_z62errorz62_bglt)
																											COBJECT((
																													(BgL_z62errorz62_bglt)
																													BgL_new1062z00_1696)))->
																										BgL_objz00) =
																									((obj_t) BgL_objz00_12),
																									BUNSPEC);
																								BgL_arg1388z00_1695 =
																									BgL_new1062z00_1696;
																							}
																							return
																								BGl_raisez00zz__errorz00(
																								((obj_t) BgL_arg1388z00_1695));
																						}
																					else
																						{	/* Llib/error.scm 361 */
																							if (
																								((long) (BgL_sysnoz00_9) ==
																									(long)
																									(BGL_IO_CONNECTION_ERROR)))
																								{	/* Llib/error.scm 366 */
																									BgL_z62iozd2connectionzd2errorz62_bglt
																										BgL_arg1395z00_1702;
																									{	/* Llib/error.scm 366 */
																										BgL_z62iozd2connectionzd2errorz62_bglt
																											BgL_new1064z00_1703;
																										{	/* Llib/error.scm 366 */
																											BgL_z62iozd2connectionzd2errorz62_bglt
																												BgL_new1063z00_1706;
																											BgL_new1063z00_1706 =
																												(
																												(BgL_z62iozd2connectionzd2errorz62_bglt)
																												BOBJECT(GC_MALLOC(sizeof
																														(struct
																															BgL_z62iozd2connectionzd2errorz62_bgl))));
																											{	/* Llib/error.scm 366 */
																												long
																													BgL_arg1398z00_1707;
																												BgL_arg1398z00_1707 =
																													BGL_CLASS_NUM
																													(BGl_z62iozd2connectionzd2errorz62zz__objectz00);
																												BGL_OBJECT_CLASS_NUM_SET
																													(((BgL_objectz00_bglt)
																														BgL_new1063z00_1706),
																													BgL_arg1398z00_1707);
																											}
																											BgL_new1064z00_1703 =
																												BgL_new1063z00_1706;
																										}
																										((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1064z00_1703)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																										((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1064z00_1703)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																										{
																											obj_t BgL_auxz00_5848;

																											{	/* Llib/error.scm 366 */
																												obj_t
																													BgL_arg1396z00_1704;
																												{	/* Llib/error.scm 366 */
																													obj_t
																														BgL_arg1397z00_1705;
																													{	/* Llib/error.scm 366 */
																														obj_t
																															BgL_classz00_3595;
																														BgL_classz00_3595 =
																															BGl_z62iozd2connectionzd2errorz62zz__objectz00;
																														BgL_arg1397z00_1705
																															=
																															BGL_CLASS_ALL_FIELDS
																															(BgL_classz00_3595);
																													}
																													BgL_arg1396z00_1704 =
																														VECTOR_REF
																														(BgL_arg1397z00_1705,
																														2L);
																												}
																												BgL_auxz00_5848 =
																													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																													(BgL_arg1396z00_1704);
																											}
																											((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1064z00_1703)))->BgL_stackz00) = ((obj_t) BgL_auxz00_5848), BUNSPEC);
																										}
																										((((BgL_z62errorz62_bglt)
																													COBJECT((
																															(BgL_z62errorz62_bglt)
																															BgL_new1064z00_1703)))->
																												BgL_procz00) =
																											((obj_t) BgL_procz00_10),
																											BUNSPEC);
																										((((BgL_z62errorz62_bglt)
																													COBJECT((
																															(BgL_z62errorz62_bglt)
																															BgL_new1064z00_1703)))->
																												BgL_msgz00) =
																											((obj_t) BgL_msgz00_11),
																											BUNSPEC);
																										((((BgL_z62errorz62_bglt)
																													COBJECT((
																															(BgL_z62errorz62_bglt)
																															BgL_new1064z00_1703)))->
																												BgL_objz00) =
																											((obj_t) BgL_objz00_12),
																											BUNSPEC);
																										BgL_arg1395z00_1702 =
																											BgL_new1064z00_1703;
																									}
																									return
																										BGl_raisez00zz__errorz00(
																										((obj_t)
																											BgL_arg1395z00_1702));
																								}
																							else
																								{	/* Llib/error.scm 364 */
																									if (
																										((long) (BgL_sysnoz00_9) ==
																											(long)
																											(BGL_PROCESS_EXCEPTION)))
																										{	/* Llib/error.scm 369 */
																											BgL_z62processzd2exceptionzb0_bglt
																												BgL_arg1400z00_1709;
																											{	/* Llib/error.scm 369 */
																												BgL_z62processzd2exceptionzb0_bglt
																													BgL_new1066z00_1710;
																												{	/* Llib/error.scm 369 */
																													BgL_z62processzd2exceptionzb0_bglt
																														BgL_new1065z00_1713;
																													BgL_new1065z00_1713 =
																														(
																														(BgL_z62processzd2exceptionzb0_bglt)
																														BOBJECT(GC_MALLOC
																															(sizeof(struct
																																	BgL_z62processzd2exceptionzb0_bgl))));
																													{	/* Llib/error.scm 369 */
																														long
																															BgL_arg1403z00_1714;
																														BgL_arg1403z00_1714
																															=
																															BGL_CLASS_NUM
																															(BGl_z62processzd2exceptionzb0zz__objectz00);
																														BGL_OBJECT_CLASS_NUM_SET
																															(((BgL_objectz00_bglt) BgL_new1065z00_1713), BgL_arg1403z00_1714);
																													}
																													BgL_new1066z00_1710 =
																														BgL_new1065z00_1713;
																												}
																												((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1066z00_1710)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																												((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1066z00_1710)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																												{
																													obj_t BgL_auxz00_5874;

																													{	/* Llib/error.scm 369 */
																														obj_t
																															BgL_arg1401z00_1711;
																														{	/* Llib/error.scm 369 */
																															obj_t
																																BgL_arg1402z00_1712;
																															{	/* Llib/error.scm 369 */
																																obj_t
																																	BgL_classz00_3602;
																																BgL_classz00_3602
																																	=
																																	BGl_z62processzd2exceptionzb0zz__objectz00;
																																BgL_arg1402z00_1712
																																	=
																																	BGL_CLASS_ALL_FIELDS
																																	(BgL_classz00_3602);
																															}
																															BgL_arg1401z00_1711
																																=
																																VECTOR_REF
																																(BgL_arg1402z00_1712,
																																2L);
																														}
																														BgL_auxz00_5874 =
																															BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																															(BgL_arg1401z00_1711);
																													}
																													((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1066z00_1710)))->BgL_stackz00) = ((obj_t) BgL_auxz00_5874), BUNSPEC);
																												}
																												((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1066z00_1710)))->BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
																												((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1066z00_1710)))->BgL_msgz00) = ((obj_t) BgL_msgz00_11), BUNSPEC);
																												((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1066z00_1710)))->BgL_objz00) = ((obj_t) BgL_objz00_12), BUNSPEC);
																												BgL_arg1400z00_1709 =
																													BgL_new1066z00_1710;
																											}
																											return
																												BGl_raisez00zz__errorz00
																												(((obj_t)
																													BgL_arg1400z00_1709));
																										}
																									else
																										{	/* Llib/error.scm 367 */
																											if (
																												((long) (BgL_sysnoz00_9)
																													==
																													(long)
																													(BGL_TYPE_ERROR)))
																												{	/* Llib/error.scm 371 */
																													BgL_z62typezd2errorzb0_bglt
																														BgL_arg1405z00_1716;
																													{	/* Llib/error.scm 631 */
																														obj_t
																															BgL_tyz00_3606;
																														if (STRINGP
																															(BgL_msgz00_11))
																															{	/* Llib/error.scm 632 */
																																BgL_tyz00_3606 =
																																	BgL_msgz00_11;
																															}
																														else
																															{	/* Llib/error.scm 632 */
																																if (SYMBOLP
																																	(BgL_msgz00_11))
																																	{	/* Llib/error.scm 633 */
																																		obj_t
																																			BgL_arg2331z00_3617;
																																		BgL_arg2331z00_3617
																																			=
																																			SYMBOL_TO_STRING
																																			(BgL_msgz00_11);
																																		BgL_tyz00_3606
																																			=
																																			BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																			(BgL_arg2331z00_3617);
																																	}
																																else
																																	{	/* Llib/error.scm 633 */
																																		BgL_tyz00_3606
																																			=
																																			BGl_string2874z00zz__errorz00;
																																	}
																															}
																														{	/* Llib/error.scm 631 */
																															obj_t
																																BgL_msgz00_3609;
																															BgL_msgz00_3609 =
																																BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00
																																(BGl_string2875z00zz__errorz00,
																																BgL_tyz00_3606,
																																bgl_typeof
																																(BgL_objz00_12));
																															{	/* Llib/error.scm 635 */

																																{	/* Llib/error.scm 636 */
																																	BgL_z62typezd2errorzb0_bglt
																																		BgL_new1085z00_3611;
																																	{	/* Llib/error.scm 637 */
																																		BgL_z62typezd2errorzb0_bglt
																																			BgL_new1084z00_3612;
																																		BgL_new1084z00_3612
																																			=
																																			(
																																			(BgL_z62typezd2errorzb0_bglt)
																																			BOBJECT
																																			(GC_MALLOC
																																				(sizeof
																																					(struct
																																						BgL_z62typezd2errorzb0_bgl))));
																																		{	/* Llib/error.scm 637 */
																																			long
																																				BgL_arg1561z00_3613;
																																			BgL_arg1561z00_3613
																																				=
																																				BGL_CLASS_NUM
																																				(BGl_z62typezd2errorzb0zz__objectz00);
																																			BGL_OBJECT_CLASS_NUM_SET
																																				(((BgL_objectz00_bglt) BgL_new1084z00_3612), BgL_arg1561z00_3613);
																																		}
																																		BgL_new1085z00_3611
																																			=
																																			BgL_new1084z00_3612;
																																	}
																																	((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1085z00_3611)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																																	((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1085z00_3611)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																																	{
																																		obj_t
																																			BgL_auxz00_5908;
																																		{	/* Llib/error.scm 638 */
																																			obj_t
																																				BgL_arg1558z00_3614;
																																			{	/* Llib/error.scm 638 */
																																				obj_t
																																					BgL_arg1559z00_3615;
																																				{	/* Llib/error.scm 638 */
																																					obj_t
																																						BgL_classz00_3621;
																																					BgL_classz00_3621
																																						=
																																						BGl_z62typezd2errorzb0zz__objectz00;
																																					BgL_arg1559z00_3615
																																						=
																																						BGL_CLASS_ALL_FIELDS
																																						(BgL_classz00_3621);
																																				}
																																				BgL_arg1558z00_3614
																																					=
																																					VECTOR_REF
																																					(BgL_arg1559z00_3615,
																																					2L);
																																			}
																																			BgL_auxz00_5908
																																				=
																																				BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																																				(BgL_arg1558z00_3614);
																																		}
																																		((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1085z00_3611)))->BgL_stackz00) = ((obj_t) BgL_auxz00_5908), BUNSPEC);
																																	}
																																	((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1085z00_3611)))->BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
																																	((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1085z00_3611)))->BgL_msgz00) = ((obj_t) BgL_msgz00_3609), BUNSPEC);
																																	((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1085z00_3611)))->BgL_objz00) = ((obj_t) BgL_objz00_12), BUNSPEC);
																																	((((BgL_z62typezd2errorzb0_bglt) COBJECT(BgL_new1085z00_3611))->BgL_typez00) = ((obj_t) BgL_msgz00_11), BUNSPEC);
																																	BgL_arg1405z00_1716
																																		=
																																		BgL_new1085z00_3611;
																													}}}}
																													return
																														BGl_raisez00zz__errorz00
																														(((obj_t)
																															BgL_arg1405z00_1716));
																												}
																											else
																												{	/* Llib/error.scm 370 */
																													if (
																														((long)
																															(BgL_sysnoz00_9)
																															==
																															(long)
																															(BGL_TYPENAME_ERROR)))
																														{	/* Llib/error.scm 373 */
																															BgL_z62typezd2errorzb0_bglt
																																BgL_arg1407z00_1718;
																															{	/* Llib/error.scm 648 */
																																obj_t
																																	BgL_tyz00_3625;
																																if (STRINGP
																																	(BgL_msgz00_11))
																																	{	/* Llib/error.scm 649 */
																																		BgL_tyz00_3625
																																			=
																																			BgL_msgz00_11;
																																	}
																																else
																																	{	/* Llib/error.scm 649 */
																																		if (SYMBOLP
																																			(BgL_msgz00_11))
																																			{	/* Llib/error.scm 650 */
																																				obj_t
																																					BgL_arg2331z00_3635;
																																				BgL_arg2331z00_3635
																																					=
																																					SYMBOL_TO_STRING
																																					(BgL_msgz00_11);
																																				BgL_tyz00_3625
																																					=
																																					BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																					(BgL_arg2331z00_3635);
																																			}
																																		else
																																			{	/* Llib/error.scm 650 */
																																				BgL_tyz00_3625
																																					=
																																					BGl_string2874z00zz__errorz00;
																																			}
																																	}
																																{	/* Llib/error.scm 648 */
																																	obj_t
																																		BgL_msgz00_3628;
																																	BgL_msgz00_3628
																																		=
																																		BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00
																																		(BGl_string2875z00zz__errorz00,
																																		BgL_tyz00_3625,
																																		BgL_objz00_12);
																																	{	/* Llib/error.scm 652 */

																																		{	/* Llib/error.scm 653 */
																																			BgL_z62typezd2errorzb0_bglt
																																				BgL_new1087z00_3629;
																																			{	/* Llib/error.scm 654 */
																																				BgL_z62typezd2errorzb0_bglt
																																					BgL_new1086z00_3630;
																																				BgL_new1086z00_3630
																																					=
																																					(
																																					(BgL_z62typezd2errorzb0_bglt)
																																					BOBJECT
																																					(GC_MALLOC
																																						(sizeof
																																							(struct
																																								BgL_z62typezd2errorzb0_bgl))));
																																				{	/* Llib/error.scm 654 */
																																					long
																																						BgL_arg1569z00_3631;
																																					BgL_arg1569z00_3631
																																						=
																																						BGL_CLASS_NUM
																																						(BGl_z62typezd2errorzb0zz__objectz00);
																																					BGL_OBJECT_CLASS_NUM_SET
																																						(((BgL_objectz00_bglt) BgL_new1086z00_3630), BgL_arg1569z00_3631);
																																				}
																																				BgL_new1087z00_3629
																																					=
																																					BgL_new1086z00_3630;
																																			}
																																			((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1087z00_3629)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																																			((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1087z00_3629)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																																			{
																																				obj_t
																																					BgL_auxz00_5942;
																																				{	/* Llib/error.scm 655 */
																																					obj_t
																																						BgL_arg1565z00_3632;
																																					{	/* Llib/error.scm 655 */
																																						obj_t
																																							BgL_arg1568z00_3633;
																																						{	/* Llib/error.scm 655 */
																																							obj_t
																																								BgL_classz00_3639;
																																							BgL_classz00_3639
																																								=
																																								BGl_z62typezd2errorzb0zz__objectz00;
																																							BgL_arg1568z00_3633
																																								=
																																								BGL_CLASS_ALL_FIELDS
																																								(BgL_classz00_3639);
																																						}
																																						BgL_arg1565z00_3632
																																							=
																																							VECTOR_REF
																																							(BgL_arg1568z00_3633,
																																							2L);
																																					}
																																					BgL_auxz00_5942
																																						=
																																						BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																																						(BgL_arg1565z00_3632);
																																				}
																																				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1087z00_3629)))->BgL_stackz00) = ((obj_t) BgL_auxz00_5942), BUNSPEC);
																																			}
																																			((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1087z00_3629)))->BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
																																			((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1087z00_3629)))->BgL_msgz00) = ((obj_t) BgL_msgz00_3628), BUNSPEC);
																																			((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1087z00_3629)))->BgL_objz00) = ((obj_t) BUNSPEC), BUNSPEC);
																																			((((BgL_z62typezd2errorzb0_bglt) COBJECT(BgL_new1087z00_3629))->BgL_typez00) = ((obj_t) BgL_msgz00_11), BUNSPEC);
																																			BgL_arg1407z00_1718
																																				=
																																				BgL_new1087z00_3629;
																															}}}}
																															return
																																BGl_raisez00zz__errorz00
																																(((obj_t)
																																	BgL_arg1407z00_1718));
																														}
																													else
																														{	/* Llib/error.scm 372 */
																															if (
																																((long)
																																	(BgL_sysnoz00_9)
																																	==
																																	(long)
																																	(BGL_INDEX_OUT_OF_BOUND_ERROR)))
																																{	/* Llib/error.scm 375 */
																																	BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt
																																		BgL_arg1409z00_1720;
																																	{	/* Llib/error.scm 375 */
																																		BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt
																																			BgL_new1068z00_1721;
																																		{	/* Llib/error.scm 375 */
																																			BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt
																																				BgL_new1067z00_1724;
																																			BgL_new1067z00_1724
																																				=
																																				(
																																				(BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)
																																				BOBJECT
																																				(GC_MALLOC
																																					(sizeof
																																						(struct
																																							BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bgl))));
																																			{	/* Llib/error.scm 375 */
																																				long
																																					BgL_arg1412z00_1725;
																																				BgL_arg1412z00_1725
																																					=
																																					BGL_CLASS_NUM
																																					(BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00);
																																				BGL_OBJECT_CLASS_NUM_SET
																																					(((BgL_objectz00_bglt) BgL_new1067z00_1724), BgL_arg1412z00_1725);
																																			}
																																			BgL_new1068z00_1721
																																				=
																																				BgL_new1067z00_1724;
																																		}
																																		((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1068z00_1721)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																																		((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1068z00_1721)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																																		{
																																			obj_t
																																				BgL_auxz00_5969;
																																			{	/* Llib/error.scm 375 */
																																				obj_t
																																					BgL_arg1410z00_1722;
																																				{	/* Llib/error.scm 375 */
																																					obj_t
																																						BgL_arg1411z00_1723;
																																					{	/* Llib/error.scm 375 */
																																						obj_t
																																							BgL_classz00_3646;
																																						BgL_classz00_3646
																																							=
																																							BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00;
																																						BgL_arg1411z00_1723
																																							=
																																							BGL_CLASS_ALL_FIELDS
																																							(BgL_classz00_3646);
																																					}
																																					BgL_arg1410z00_1722
																																						=
																																						VECTOR_REF
																																						(BgL_arg1411z00_1723,
																																						2L);
																																				}
																																				BgL_auxz00_5969
																																					=
																																					BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																																					(BgL_arg1410z00_1722);
																																			}
																																			((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1068z00_1721)))->BgL_stackz00) = ((obj_t) BgL_auxz00_5969), BUNSPEC);
																																		}
																																		((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1068z00_1721)))->BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
																																		((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1068z00_1721)))->BgL_msgz00) = ((obj_t) BgL_msgz00_11), BUNSPEC);
																																		((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1068z00_1721)))->BgL_objz00) = ((obj_t) BgL_objz00_12), BUNSPEC);
																																		((((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt) COBJECT(BgL_new1068z00_1721))->BgL_indexz00) = ((obj_t) BINT((-1L))), BUNSPEC);
																																		BgL_arg1409z00_1720
																																			=
																																			BgL_new1068z00_1721;
																																	}
																																	return
																																		BGl_raisez00zz__errorz00
																																		(((obj_t)
																																			BgL_arg1409z00_1720));
																																}
																															else
																																{	/* Llib/error.scm 374 */
																																	return
																																		BGl_errorz00zz__errorz00
																																		(BgL_procz00_10,
																																		BgL_msgz00_11,
																																		BgL_objz00_12);
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
		}

	}



/* &error/errno */
	obj_t BGl_z62errorzf2errnoz90zz__errorz00(obj_t BgL_envz00_5216,
		obj_t BgL_sysnoz00_5217, obj_t BgL_procz00_5218, obj_t BgL_msgz00_5219,
		obj_t BgL_objz00_5220)
	{
		{	/* Llib/error.scm 332 */
			{	/* Llib/error.scm 334 */
				int BgL_auxz00_5986;

				{	/* Llib/error.scm 334 */
					obj_t BgL_tmpz00_5987;

					if (INTEGERP(BgL_sysnoz00_5217))
						{	/* Llib/error.scm 334 */
							BgL_tmpz00_5987 = BgL_sysnoz00_5217;
						}
					else
						{
							obj_t BgL_auxz00_5990;

							BgL_auxz00_5990 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(13649L), BGl_string2876z00zz__errorz00,
								BGl_string2877z00zz__errorz00, BgL_sysnoz00_5217);
							FAILURE(BgL_auxz00_5990, BFALSE, BFALSE);
						}
					BgL_auxz00_5986 = CINT(BgL_tmpz00_5987);
				}
				return
					bgl_system_failure(BgL_auxz00_5986, BgL_procz00_5218, BgL_msgz00_5219,
					BgL_objz00_5220);
			}
		}

	}



/* stack-overflow-error */
	BGL_EXPORTED_DEF obj_t bgl_stack_overflow_error(void)
	{
		{	/* Llib/error.scm 383 */
			{	/* Llib/error.scm 384 */
				obj_t BgL_stkz00_1726;

				{	/* Llib/error.scm 384 */

					{	/* Llib/error.scm 384 */

						BgL_stkz00_1726 = BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE);
				}}
				{
					obj_t BgL_procz00_1731;

					if (PAIRP(BgL_stkz00_1726))
						{	/* Llib/error.scm 385 */
							obj_t BgL_carzd2111zd2_1736;

							BgL_carzd2111zd2_1736 = CAR(((obj_t) BgL_stkz00_1726));
							if (PAIRP(BgL_carzd2111zd2_1736))
								{	/* Llib/error.scm 385 */
									obj_t BgL_cdrzd2117zd2_1738;

									BgL_cdrzd2117zd2_1738 = CDR(BgL_carzd2111zd2_1736);
									if (PAIRP(BgL_cdrzd2117zd2_1738))
										{	/* Llib/error.scm 385 */
											obj_t BgL_carzd2121zd2_1740;

											BgL_carzd2121zd2_1740 = CAR(BgL_cdrzd2117zd2_1738);
											if (PAIRP(BgL_carzd2121zd2_1740))
												{	/* Llib/error.scm 385 */
													obj_t BgL_cdrzd2126zd2_1742;

													BgL_cdrzd2126zd2_1742 = CDR(BgL_carzd2121zd2_1740);
													if (
														(CAR(BgL_carzd2121zd2_1740) ==
															BGl_symbol2879z00zz__errorz00))
														{	/* Llib/error.scm 385 */
															if (PAIRP(BgL_cdrzd2126zd2_1742))
																{	/* Llib/error.scm 385 */
																	obj_t BgL_cdrzd2130zd2_1746;

																	BgL_cdrzd2130zd2_1746 =
																		CDR(BgL_cdrzd2126zd2_1742);
																	if (PAIRP(BgL_cdrzd2130zd2_1746))
																		{	/* Llib/error.scm 385 */
																			if (NULLP(CDR(BgL_cdrzd2130zd2_1746)))
																				{	/* Llib/error.scm 385 */
																					if (NULLP(CDR(BgL_cdrzd2117zd2_1738)))
																						{	/* Llib/error.scm 385 */
																							obj_t BgL_arg1425z00_1752;
																							obj_t BgL_arg1426z00_1753;
																							obj_t BgL_arg1427z00_1754;

																							BgL_arg1425z00_1752 =
																								CAR(BgL_carzd2111zd2_1736);
																							BgL_arg1426z00_1753 =
																								CAR(BgL_cdrzd2126zd2_1742);
																							BgL_arg1427z00_1754 =
																								CAR(BgL_cdrzd2130zd2_1746);
																							{	/* Llib/error.scm 388 */
																								BgL_z62stackzd2overflowzd2errorz62_bglt
																									BgL_arg1439z00_3673;
																								{	/* Llib/error.scm 388 */
																									BgL_z62stackzd2overflowzd2errorz62_bglt
																										BgL_new1070z00_3674;
																									{	/* Llib/error.scm 389 */
																										BgL_z62stackzd2overflowzd2errorz62_bglt
																											BgL_new1069z00_3675;
																										BgL_new1069z00_3675 =
																											(
																											(BgL_z62stackzd2overflowzd2errorz62_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_z62stackzd2overflowzd2errorz62_bgl))));
																										{	/* Llib/error.scm 389 */
																											long BgL_arg1442z00_3676;

																											BgL_arg1442z00_3676 =
																												BGL_CLASS_NUM
																												(BGl_z62stackzd2overflowzd2errorz62zz__objectz00);
																											BGL_OBJECT_CLASS_NUM_SET((
																													(BgL_objectz00_bglt)
																													BgL_new1069z00_3675),
																												BgL_arg1442z00_3676);
																										}
																										BgL_new1070z00_3674 =
																											BgL_new1069z00_3675;
																									}
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1070z00_3674)))->
																											BgL_fnamez00) =
																										((obj_t)
																											BgL_arg1426z00_1753),
																										BUNSPEC);
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1070z00_3674)))->
																											BgL_locationz00) =
																										((obj_t)
																											BgL_arg1427z00_1754),
																										BUNSPEC);
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1070z00_3674)))->
																											BgL_stackz00) =
																										((obj_t) BgL_stkz00_1726),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1070z00_3674)))->
																											BgL_procz00) =
																										((obj_t)
																											BgL_arg1425z00_1752),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1070z00_3674)))->
																											BgL_msgz00) =
																										((obj_t)
																											BGl_string2878z00zz__errorz00),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1070z00_3674)))->
																											BgL_objz00) =
																										((obj_t)
																											BGL_CURRENT_DYNAMIC_ENV
																											()), BUNSPEC);
																									BgL_arg1439z00_3673 =
																										BgL_new1070z00_3674;
																								}
																								return
																									BGl_raisez00zz__errorz00(
																									((obj_t)
																										BgL_arg1439z00_3673));
																							}
																						}
																					else
																						{	/* Llib/error.scm 385 */
																							BgL_procz00_1731 =
																								BgL_carzd2111zd2_1736;
																						BgL_tagzd2102zd2_1732:
																							{	/* Llib/error.scm 397 */
																								BgL_z62stackzd2overflowzd2errorz62_bglt
																									BgL_arg1443z00_1770;
																								{	/* Llib/error.scm 397 */
																									BgL_z62stackzd2overflowzd2errorz62_bglt
																										BgL_new1072z00_1771;
																									{	/* Llib/error.scm 397 */
																										BgL_z62stackzd2overflowzd2errorz62_bglt
																											BgL_new1071z00_1772;
																										BgL_new1071z00_1772 =
																											(
																											(BgL_z62stackzd2overflowzd2errorz62_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_z62stackzd2overflowzd2errorz62_bgl))));
																										{	/* Llib/error.scm 397 */
																											long BgL_arg1444z00_1773;

																											BgL_arg1444z00_1773 =
																												BGL_CLASS_NUM
																												(BGl_z62stackzd2overflowzd2errorz62zz__objectz00);
																											BGL_OBJECT_CLASS_NUM_SET((
																													(BgL_objectz00_bglt)
																													BgL_new1071z00_1772),
																												BgL_arg1444z00_1773);
																										}
																										BgL_new1072z00_1771 =
																											BgL_new1071z00_1772;
																									}
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1072z00_1771)))->
																											BgL_fnamez00) =
																										((obj_t) BFALSE), BUNSPEC);
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1072z00_1771)))->
																											BgL_locationz00) =
																										((obj_t) BFALSE), BUNSPEC);
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1072z00_1771)))->
																											BgL_stackz00) =
																										((obj_t) BgL_stkz00_1726),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1072z00_1771)))->
																											BgL_procz00) =
																										((obj_t) BgL_procz00_1731),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1072z00_1771)))->
																											BgL_msgz00) =
																										((obj_t)
																											BGl_string2878z00zz__errorz00),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1072z00_1771)))->
																											BgL_objz00) =
																										((obj_t)
																											BGL_CURRENT_DYNAMIC_ENV
																											()), BUNSPEC);
																									BgL_arg1443z00_1770 =
																										BgL_new1072z00_1771;
																								}
																								return
																									BGl_raisez00zz__errorz00(
																									((obj_t)
																										BgL_arg1443z00_1770));
																							}
																						}
																				}
																			else
																				{
																					obj_t BgL_procz00_6065;

																					BgL_procz00_6065 =
																						BgL_carzd2111zd2_1736;
																					BgL_procz00_1731 = BgL_procz00_6065;
																					goto BgL_tagzd2102zd2_1732;
																				}
																		}
																	else
																		{
																			obj_t BgL_procz00_6066;

																			BgL_procz00_6066 = BgL_carzd2111zd2_1736;
																			BgL_procz00_1731 = BgL_procz00_6066;
																			goto BgL_tagzd2102zd2_1732;
																		}
																}
															else
																{
																	obj_t BgL_procz00_6067;

																	BgL_procz00_6067 = BgL_carzd2111zd2_1736;
																	BgL_procz00_1731 = BgL_procz00_6067;
																	goto BgL_tagzd2102zd2_1732;
																}
														}
													else
														{
															obj_t BgL_procz00_6068;

															BgL_procz00_6068 = BgL_carzd2111zd2_1736;
															BgL_procz00_1731 = BgL_procz00_6068;
															goto BgL_tagzd2102zd2_1732;
														}
												}
											else
												{
													obj_t BgL_procz00_6069;

													BgL_procz00_6069 = BgL_carzd2111zd2_1736;
													BgL_procz00_1731 = BgL_procz00_6069;
													goto BgL_tagzd2102zd2_1732;
												}
										}
									else
										{
											obj_t BgL_procz00_6070;

											BgL_procz00_6070 = BgL_carzd2111zd2_1736;
											BgL_procz00_1731 = BgL_procz00_6070;
											goto BgL_tagzd2102zd2_1732;
										}
								}
							else
								{
									obj_t BgL_procz00_6071;

									BgL_procz00_6071 = BgL_carzd2111zd2_1736;
									BgL_procz00_1731 = BgL_procz00_6071;
									goto BgL_tagzd2102zd2_1732;
								}
						}
					else
						{	/* Llib/error.scm 385 */
							{	/* Llib/error.scm 404 */
								BgL_z62stackzd2overflowzd2errorz62_bglt BgL_arg1445z00_1774;

								{	/* Llib/error.scm 404 */
									BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1074z00_1775;

									{	/* Llib/error.scm 404 */
										BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1073z00_1776;

										BgL_new1073z00_1776 =
											((BgL_z62stackzd2overflowzd2errorz62_bglt)
											BOBJECT(GC_MALLOC(sizeof(struct
														BgL_z62stackzd2overflowzd2errorz62_bgl))));
										{	/* Llib/error.scm 404 */
											long BgL_arg1446z00_1777;

											BgL_arg1446z00_1777 =
												BGL_CLASS_NUM
												(BGl_z62stackzd2overflowzd2errorz62zz__objectz00);
											BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
													BgL_new1073z00_1776), BgL_arg1446z00_1777);
										}
										BgL_new1074z00_1775 = BgL_new1073z00_1776;
									}
									((((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_new1074z00_1775)))->
											BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
									((((BgL_z62exceptionz62_bglt)
												COBJECT(((BgL_z62exceptionz62_bglt)
														BgL_new1074z00_1775)))->BgL_locationz00) =
										((obj_t) BFALSE), BUNSPEC);
									((((BgL_z62exceptionz62_bglt)
												COBJECT(((BgL_z62exceptionz62_bglt)
														BgL_new1074z00_1775)))->BgL_stackz00) =
										((obj_t) BgL_stkz00_1726), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1074z00_1775)))->BgL_procz00) =
										((obj_t) BFALSE), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1074z00_1775)))->BgL_msgz00) =
										((obj_t) BGl_string2878z00zz__errorz00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1074z00_1775)))->BgL_objz00) =
										((obj_t) BGL_CURRENT_DYNAMIC_ENV()), BUNSPEC);
									BgL_arg1445z00_1774 = BgL_new1074z00_1775;
								}
								return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1445z00_1774));
							}
						}
				}
			}
		}

	}



/* &stack-overflow-erro2807 */
	obj_t BGl_z62stackzd2overflowzd2erro2807z62zz__errorz00(obj_t BgL_envz00_5221)
	{
		{	/* Llib/error.scm 383 */
			return bgl_stack_overflow_error();
		}

	}



/* exit */
	BGL_EXPORTED_DEF obj_t BGl_exitz00zz__errorz00(obj_t BgL_nz00_13)
	{
		{	/* Llib/error.scm 413 */
			{	/* Llib/error.scm 414 */
				obj_t BgL_valz00_1779;

				if (NULLP(BgL_nz00_13))
					{	/* Llib/error.scm 415 */
						BgL_valz00_1779 = BINT(0L);
					}
				else
					{	/* Llib/error.scm 415 */
						if (INTEGERP(CAR(((obj_t) BgL_nz00_13))))
							{	/* Llib/error.scm 416 */
								BgL_valz00_1779 = CAR(((obj_t) BgL_nz00_13));
							}
						else
							{	/* Llib/error.scm 416 */
								BgL_valz00_1779 = BINT(0L);
							}
					}
				BIGLOO_EXIT(BgL_valz00_1779);
				return BgL_valz00_1779;
			}
		}

	}



/* &exit */
	obj_t BGl_z62exitz62zz__errorz00(obj_t BgL_envz00_5222, obj_t BgL_nz00_5223)
	{
		{	/* Llib/error.scm 413 */
			return BGl_exitz00zz__errorz00(BgL_nz00_5223);
		}

	}



/* with-exception-handler */
	BGL_EXPORTED_DEF obj_t BGl_withzd2exceptionzd2handlerz00zz__errorz00(obj_t
		BgL_handlerz00_14, obj_t BgL_thunkz00_15)
	{
		{	/* Llib/error.scm 424 */
			if (PROCEDURE_CORRECT_ARITYP(BgL_handlerz00_14, (int) (1L)))
				{	/* Llib/error.scm 426 */
					obj_t BgL_oldzd2handlerszd2_1784;

					BgL_oldzd2handlerszd2_1784 = BGL_ERROR_HANDLER_GET();
					{	/* Llib/error.scm 429 */
						obj_t BgL_arg1451z00_1785;

						{	/* Llib/error.scm 429 */
							obj_t BgL_zc3z04anonymousza31453ze3z87_5224;

							BgL_zc3z04anonymousza31453ze3z87_5224 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31453ze3ze5zz__errorz00, (int) (1L),
								(int) (2L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31453ze3z87_5224, (int) (0L),
								BgL_oldzd2handlerszd2_1784);
							PROCEDURE_SET(BgL_zc3z04anonymousza31453ze3z87_5224, (int) (1L),
								((obj_t) BgL_handlerz00_14));
							BgL_arg1451z00_1785 =
								MAKE_STACK_PAIR(BgL_zc3z04anonymousza31453ze3z87_5224, BUNSPEC);
						}
						BGL_ERROR_HANDLER_SET(BgL_arg1451z00_1785);
						BUNSPEC;
					}
					{	/* Llib/error.scm 432 */
						obj_t BgL_exitd1075z00_1790;

						BgL_exitd1075z00_1790 = BGL_EXITD_TOP_AS_OBJ();
						{	/* Llib/error.scm 432 */
							obj_t BgL_tmp1077z00_1791;

							{	/* Llib/error.scm 432 */
								obj_t BgL_arg1455z00_1793;

								BgL_arg1455z00_1793 = BGL_EXITD_PROTECT(BgL_exitd1075z00_1790);
								BgL_tmp1077z00_1791 =
									MAKE_YOUNG_PAIR(BgL_oldzd2handlerszd2_1784,
									BgL_arg1455z00_1793);
							}
							{	/* Llib/error.scm 432 */

								BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1790,
									BgL_tmp1077z00_1791);
								BUNSPEC;
								{	/* Llib/error.scm 433 */
									obj_t BgL_tmp1076z00_1792;

									if (PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_15, (int) (0L)))
										{	/* Llib/error.scm 433 */
											BgL_tmp1076z00_1792 =
												BGL_PROCEDURE_CALL0(BgL_thunkz00_15);
										}
									else
										{	/* Llib/error.scm 551 */
											BgL_z62errorz62_bglt BgL_arg1511z00_3690;

											{	/* Llib/error.scm 551 */
												BgL_z62errorz62_bglt BgL_new1079z00_3691;

												{	/* Llib/error.scm 551 */
													BgL_z62errorz62_bglt BgL_new1078z00_3692;

													BgL_new1078z00_3692 =
														((BgL_z62errorz62_bglt)
														BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_z62errorz62_bgl))));
													{	/* Llib/error.scm 551 */
														long BgL_arg1514z00_3693;

														BgL_arg1514z00_3693 =
															BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
														BGL_OBJECT_CLASS_NUM_SET(
															((BgL_objectz00_bglt) BgL_new1078z00_3692),
															BgL_arg1514z00_3693);
													}
													BgL_new1079z00_3691 = BgL_new1078z00_3692;
												}
												((((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	BgL_new1079z00_3691)))->BgL_fnamez00) =
													((obj_t) BFALSE), BUNSPEC);
												((((BgL_z62exceptionz62_bglt)
															COBJECT(((BgL_z62exceptionz62_bglt)
																	BgL_new1079z00_3691)))->BgL_locationz00) =
													((obj_t) BFALSE), BUNSPEC);
												{
													obj_t BgL_auxz00_6136;

													{	/* Llib/error.scm 551 */
														obj_t BgL_arg1512z00_3694;

														{	/* Llib/error.scm 551 */
															obj_t BgL_arg1513z00_3695;

															{	/* Llib/error.scm 551 */
																obj_t BgL_classz00_3699;

																BgL_classz00_3699 =
																	BGl_z62errorz62zz__objectz00;
																BgL_arg1513z00_3695 =
																	BGL_CLASS_ALL_FIELDS(BgL_classz00_3699);
															}
															BgL_arg1512z00_3694 =
																VECTOR_REF(BgL_arg1513z00_3695, 2L);
														}
														BgL_auxz00_6136 =
															BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
															(BgL_arg1512z00_3694);
													}
													((((BgL_z62exceptionz62_bglt) COBJECT(
																	((BgL_z62exceptionz62_bglt)
																		BgL_new1079z00_3691)))->BgL_stackz00) =
														((obj_t) BgL_auxz00_6136), BUNSPEC);
												}
												((((BgL_z62errorz62_bglt)
															COBJECT(BgL_new1079z00_3691))->BgL_procz00) =
													((obj_t) BGl_string2881z00zz__errorz00), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(BgL_new1079z00_3691))->BgL_msgz00) =
													((obj_t) BGl_string2882z00zz__errorz00), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(BgL_new1079z00_3691))->BgL_objz00) =
													((obj_t) BgL_thunkz00_15), BUNSPEC);
												BgL_arg1511z00_3690 = BgL_new1079z00_3691;
											}
											BgL_tmp1076z00_1792 =
												BGl_raisez00zz__errorz00(((obj_t) BgL_arg1511z00_3690));
										}
									{	/* Llib/error.scm 432 */
										bool_t BgL_test3256z00_6147;

										{	/* Llib/error.scm 432 */
											obj_t BgL_arg2609z00_3702;

											BgL_arg2609z00_3702 =
												BGL_EXITD_PROTECT(BgL_exitd1075z00_1790);
											BgL_test3256z00_6147 = PAIRP(BgL_arg2609z00_3702);
										}
										if (BgL_test3256z00_6147)
											{	/* Llib/error.scm 432 */
												obj_t BgL_arg2607z00_3703;

												{	/* Llib/error.scm 432 */
													obj_t BgL_arg2608z00_3704;

													BgL_arg2608z00_3704 =
														BGL_EXITD_PROTECT(BgL_exitd1075z00_1790);
													BgL_arg2607z00_3703 =
														CDR(((obj_t) BgL_arg2608z00_3704));
												}
												BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1790,
													BgL_arg2607z00_3703);
												BUNSPEC;
											}
										else
											{	/* Llib/error.scm 432 */
												BFALSE;
											}
									}
									BGL_ERROR_HANDLER_SET(BgL_oldzd2handlerszd2_1784);
									BUNSPEC;
									return BgL_tmp1076z00_1792;
								}
							}
						}
					}
				}
			else
				{	/* Llib/error.scm 551 */
					BgL_z62errorz62_bglt BgL_arg1511z00_3706;

					{	/* Llib/error.scm 551 */
						BgL_z62errorz62_bglt BgL_new1079z00_3707;

						{	/* Llib/error.scm 551 */
							BgL_z62errorz62_bglt BgL_new1078z00_3708;

							BgL_new1078z00_3708 =
								((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62errorz62_bgl))));
							{	/* Llib/error.scm 551 */
								long BgL_arg1514z00_3709;

								BgL_arg1514z00_3709 =
									BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1078z00_3708),
									BgL_arg1514z00_3709);
							}
							BgL_new1079z00_3707 = BgL_new1078z00_3708;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_3707)))->
								BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1079z00_3707)))->BgL_locationz00) =
							((obj_t) BFALSE), BUNSPEC);
						{
							obj_t BgL_auxz00_6163;

							{	/* Llib/error.scm 551 */
								obj_t BgL_arg1512z00_3710;

								{	/* Llib/error.scm 551 */
									obj_t BgL_arg1513z00_3711;

									{	/* Llib/error.scm 551 */
										obj_t BgL_classz00_3715;

										BgL_classz00_3715 = BGl_z62errorz62zz__objectz00;
										BgL_arg1513z00_3711 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_3715);
									}
									BgL_arg1512z00_3710 = VECTOR_REF(BgL_arg1513z00_3711, 2L);
								}
								BgL_auxz00_6163 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg1512z00_3710);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1079z00_3707)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_6163), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_3707))->
								BgL_procz00) =
							((obj_t) BGl_string2881z00zz__errorz00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_3707))->
								BgL_msgz00) = ((obj_t) BGl_string2883z00zz__errorz00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_3707))->
								BgL_objz00) = ((obj_t) BgL_handlerz00_14), BUNSPEC);
						BgL_arg1511z00_3706 = BgL_new1079z00_3707;
					}
					return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1511z00_3706));
				}
		}

	}



/* &with-exception-handler */
	obj_t BGl_z62withzd2exceptionzd2handlerz62zz__errorz00(obj_t BgL_envz00_5225,
		obj_t BgL_handlerz00_5226, obj_t BgL_thunkz00_5227)
	{
		{	/* Llib/error.scm 424 */
			{	/* Llib/error.scm 425 */
				obj_t BgL_auxz00_6181;
				obj_t BgL_auxz00_6174;

				if (PROCEDUREP(BgL_thunkz00_5227))
					{	/* Llib/error.scm 425 */
						BgL_auxz00_6181 = BgL_thunkz00_5227;
					}
				else
					{
						obj_t BgL_auxz00_6184;

						BgL_auxz00_6184 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(17041L), BGl_string2884z00zz__errorz00,
							BGl_string2885z00zz__errorz00, BgL_thunkz00_5227);
						FAILURE(BgL_auxz00_6184, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_handlerz00_5226))
					{	/* Llib/error.scm 425 */
						BgL_auxz00_6174 = BgL_handlerz00_5226;
					}
				else
					{
						obj_t BgL_auxz00_6177;

						BgL_auxz00_6177 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(17041L), BGl_string2884z00zz__errorz00,
							BGl_string2885z00zz__errorz00, BgL_handlerz00_5226);
						FAILURE(BgL_auxz00_6177, BFALSE, BFALSE);
					}
				return
					BGl_withzd2exceptionzd2handlerz00zz__errorz00(BgL_auxz00_6174,
					BgL_auxz00_6181);
			}
		}

	}



/* &<@anonymous:1453> */
	obj_t BGl_z62zc3z04anonymousza31453ze3ze5zz__errorz00(obj_t BgL_envz00_5228,
		obj_t BgL_cz00_5231)
	{
		{	/* Llib/error.scm 428 */
			{	/* Llib/error.scm 429 */
				obj_t BgL_oldzd2handlerszd2_5229;
				obj_t BgL_handlerz00_5230;

				BgL_oldzd2handlerszd2_5229 = PROCEDURE_REF(BgL_envz00_5228, (int) (0L));
				BgL_handlerz00_5230 = PROCEDURE_REF(BgL_envz00_5228, (int) (1L));
				BGL_ERROR_HANDLER_SET(BgL_oldzd2handlerszd2_5229);
				BUNSPEC;
				return BGL_PROCEDURE_CALL1(BgL_handlerz00_5230, BgL_cz00_5231);
			}
		}

	}



/* current-exception-handler */
	BGL_EXPORTED_DEF obj_t BGl_currentzd2exceptionzd2handlerz00zz__errorz00(void)
	{
		{	/* Llib/error.scm 442 */
			return BGl_proc2886z00zz__errorz00;
		}

	}



/* &current-exception-handler */
	obj_t BGl_z62currentzd2exceptionzd2handlerz62zz__errorz00(obj_t
		BgL_envz00_5233)
	{
		{	/* Llib/error.scm 442 */
			return BGl_currentzd2exceptionzd2handlerz00zz__errorz00();
		}

	}



/* &<@anonymous:1456> */
	obj_t BGl_z62zc3z04anonymousza31456ze3ze5zz__errorz00(obj_t BgL_envz00_5234,
		obj_t BgL_valz00_5235)
	{
		{	/* Llib/error.scm 443 */
			return BGl_raisez00zz__errorz00(BgL_valz00_5235);
		}

	}



/* raise */
	BGL_EXPORTED_DEF obj_t BGl_raisez00zz__errorz00(obj_t BgL_valz00_16)
	{
		{	/* Llib/error.scm 470 */
			{
				obj_t BgL_handlerz00_1825;
				obj_t BgL_valz00_1826;

				{	/* Llib/error.scm 507 */
					obj_t BgL_handlerz00_1800;

					BgL_handlerz00_1800 = BGL_ERROR_HANDLER_GET();
					if (PAIRP(BgL_handlerz00_1800))
						{	/* Llib/error.scm 511 */
							bool_t BgL_test3260z00_6203;

							{	/* Llib/error.scm 511 */
								obj_t BgL_tmpz00_6204;

								BgL_tmpz00_6204 = CDR(BgL_handlerz00_1800);
								BgL_test3260z00_6203 = BGL_DYNAMIC_ENVP(BgL_tmpz00_6204);
							}
							if (BgL_test3260z00_6203)
								{	/* Llib/error.scm 477 */
									obj_t BgL_denvz00_3732;
									obj_t BgL_hz00_3733;

									BgL_denvz00_3732 = CDR(BgL_handlerz00_1800);
									BgL_hz00_3733 = CAR(BgL_handlerz00_1800);
									SET_CDR(BgL_handlerz00_1800, BgL_valz00_16);
									return
										BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_hz00_3733,
										BgL_denvz00_3732);
								}
							else
								{	/* Llib/error.scm 513 */
									bool_t BgL_test3261z00_6211;

									{	/* Llib/error.scm 513 */
										obj_t BgL_tmpz00_6212;

										BgL_tmpz00_6212 = CDR(BgL_handlerz00_1800);
										BgL_test3261z00_6211 = CELLP(BgL_tmpz00_6212);
									}
									if (BgL_test3261z00_6211)
										{	/* Llib/error.scm 487 */
											obj_t BgL_cellz00_3738;
											obj_t BgL_hz00_3739;

											BgL_cellz00_3738 = CDR(BgL_handlerz00_1800);
											BgL_hz00_3739 = CAR(BgL_handlerz00_1800);
											CELL_SET(((obj_t) BgL_cellz00_3738), BgL_valz00_16);
											return
												BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_hz00_3739,
												BgL_cellz00_3738);
										}
									else
										{	/* Llib/error.scm 513 */
											if (CBOOL(CDR(BgL_handlerz00_1800)))
												{	/* Llib/error.scm 515 */
													if ((CDR(BgL_handlerz00_1800) == BUNSPEC))
														{	/* Llib/error.scm 519 */
															obj_t BgL_fun1466z00_1809;

															BgL_fun1466z00_1809 = CAR(BgL_handlerz00_1800);
															return
																BGL_PROCEDURE_CALL1(BgL_fun1466z00_1809,
																BgL_valz00_16);
														}
													else
														{	/* Llib/error.scm 518 */
															BgL_handlerz00_1825 = BgL_handlerz00_1800;
															BgL_valz00_1826 = BgL_valz00_16;
														BgL_zc3z04anonymousza31473ze3z87_1827:
															{	/* Llib/error.scm 503 */
																obj_t BgL_arg1474z00_1828;

																{	/* Llib/error.scm 503 */
																	obj_t BgL_tmpz00_6231;

																	BgL_tmpz00_6231 = BGL_CURRENT_DYNAMIC_ENV();
																	BgL_arg1474z00_1828 =
																		BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6231);
																}
																{	/* Llib/error.scm 503 */
																	obj_t BgL_list1475z00_1829;

																	{	/* Llib/error.scm 503 */
																		obj_t BgL_arg1476z00_1830;

																		{	/* Llib/error.scm 503 */
																			obj_t BgL_arg1479z00_1831;

																			{	/* Llib/error.scm 503 */
																				obj_t BgL_arg1480z00_1832;

																				{	/* Llib/error.scm 503 */
																					obj_t BgL_arg1481z00_1833;

																					{	/* Llib/error.scm 503 */
																						obj_t BgL_arg1482z00_1834;

																						BgL_arg1482z00_1834 =
																							MAKE_YOUNG_PAIR
																							(BgL_handlerz00_1825, BNIL);
																						BgL_arg1481z00_1833 =
																							MAKE_YOUNG_PAIR
																							(BGl_string2887z00zz__errorz00,
																							BgL_arg1482z00_1834);
																					}
																					BgL_arg1480z00_1832 =
																						MAKE_YOUNG_PAIR
																						(BGl_string2888z00zz__errorz00,
																						BgL_arg1481z00_1833);
																				}
																				BgL_arg1479z00_1831 =
																					MAKE_YOUNG_PAIR(BINT(503L),
																					BgL_arg1480z00_1832);
																			}
																			BgL_arg1476z00_1830 =
																				MAKE_YOUNG_PAIR
																				(BGl_string2889z00zz__errorz00,
																				BgL_arg1479z00_1831);
																		}
																		BgL_list1475z00_1829 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2890z00zz__errorz00,
																			BgL_arg1476z00_1830);
																	}
																	BGl_tprintz00zz__r4_output_6_10_3z00
																		(BgL_arg1474z00_1828, BgL_list1475z00_1829);
																}
															}
															{	/* Llib/error.scm 504 */
																obj_t BgL_arg1483z00_1835;

																{	/* Llib/error.scm 504 */
																	obj_t BgL_tmpz00_6242;

																	BgL_tmpz00_6242 = BGL_CURRENT_DYNAMIC_ENV();
																	BgL_arg1483z00_1835 =
																		BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6242);
																}
																{	/* Llib/error.scm 504 */
																	obj_t BgL_list1484z00_1836;

																	{	/* Llib/error.scm 504 */
																		obj_t BgL_arg1486z00_1837;

																		{	/* Llib/error.scm 504 */
																			obj_t BgL_arg1487z00_1838;

																			{	/* Llib/error.scm 504 */
																				obj_t BgL_arg1488z00_1839;

																				{	/* Llib/error.scm 504 */
																					obj_t BgL_arg1489z00_1840;

																					{	/* Llib/error.scm 504 */
																						obj_t BgL_arg1490z00_1841;

																						BgL_arg1490z00_1841 =
																							MAKE_YOUNG_PAIR(BgL_valz00_1826,
																							BNIL);
																						BgL_arg1489z00_1840 =
																							MAKE_YOUNG_PAIR
																							(BGl_string2891z00zz__errorz00,
																							BgL_arg1490z00_1841);
																					}
																					BgL_arg1488z00_1839 =
																						MAKE_YOUNG_PAIR
																						(BGl_string2888z00zz__errorz00,
																						BgL_arg1489z00_1840);
																				}
																				BgL_arg1487z00_1838 =
																					MAKE_YOUNG_PAIR(BINT(504L),
																					BgL_arg1488z00_1839);
																			}
																			BgL_arg1486z00_1837 =
																				MAKE_YOUNG_PAIR
																				(BGl_string2889z00zz__errorz00,
																				BgL_arg1487z00_1838);
																		}
																		BgL_list1484z00_1836 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2890z00zz__errorz00,
																			BgL_arg1486z00_1837);
																	}
																	BGl_tprintz00zz__r4_output_6_10_3z00
																		(BgL_arg1483z00_1835, BgL_list1484z00_1836);
																}
															}
															{	/* Llib/error.scm 505 */
																obj_t BgL_list1491z00_1842;

																BgL_list1491z00_1842 =
																	MAKE_YOUNG_PAIR(BINT(0L), BNIL);
																BGL_TAIL return
																	BGl_exitz00zz__errorz00(BgL_list1491z00_1842);
															}
														}
												}
											else
												{	/* Llib/error.scm 515 */
													BGl_defaultzd2exceptionzd2handlerz00zz__errorz00
														(BgL_valz00_16);
													{	/* Llib/error.scm 517 */
														obj_t BgL_res2789z00_3781;

														{	/* Llib/error.scm 325 */
															obj_t BgL_classz00_3747;

															BgL_classz00_3747 =
																BGl_z62exceptionz62zz__objectz00;
															((bool_t) 0);
														}
														BgL_res2789z00_3781 =
															BGl_errorz00zz__errorz00
															(BGl_string2892z00zz__errorz00,
															BGl_string2893z00zz__errorz00, BgL_valz00_16);
														return BgL_res2789z00_3781;
													}
												}
										}
								}
						}
					else
						{
							obj_t BgL_valz00_6259;
							obj_t BgL_handlerz00_6258;

							BgL_handlerz00_6258 = BgL_handlerz00_1800;
							BgL_valz00_6259 = BgL_valz00_16;
							BgL_valz00_1826 = BgL_valz00_6259;
							BgL_handlerz00_1825 = BgL_handlerz00_6258;
							goto BgL_zc3z04anonymousza31473ze3z87_1827;
						}
				}
			}
		}

	}



/* &raise */
	obj_t BGl_z62raisez62zz__errorz00(obj_t BgL_envz00_5236,
		obj_t BgL_valz00_5237)
	{
		{	/* Llib/error.scm 470 */
			return BGl_raisez00zz__errorz00(BgL_valz00_5237);
		}

	}



/* default-exception-handler */
	obj_t BGl_defaultzd2exceptionzd2handlerz00zz__errorz00(obj_t BgL_valz00_17)
	{
		{	/* Llib/error.scm 528 */
			BGl_exceptionzd2notifyzd2zz__objectz00(BgL_valz00_17);
			{	/* Llib/error.scm 530 */
				bool_t BgL_test3264z00_6262;

				{	/* Llib/error.scm 530 */
					obj_t BgL_classz00_3782;

					BgL_classz00_3782 = BGl_z62warningz62zz__objectz00;
					if (BGL_OBJECTP(BgL_valz00_17))
						{	/* Llib/error.scm 530 */
							BgL_objectz00_bglt BgL_arg2767z00_3784;

							BgL_arg2767z00_3784 = (BgL_objectz00_bglt) (BgL_valz00_17);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Llib/error.scm 530 */
									long BgL_idxz00_3790;

									BgL_idxz00_3790 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_3784);
									BgL_test3264z00_6262 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_3790 + 3L)) == BgL_classz00_3782);
								}
							else
								{	/* Llib/error.scm 530 */
									bool_t BgL_res2790z00_3815;

									{	/* Llib/error.scm 530 */
										obj_t BgL_oclassz00_3798;

										{	/* Llib/error.scm 530 */
											obj_t BgL_arg2777z00_3806;
											long BgL_arg2778z00_3807;

											BgL_arg2777z00_3806 = (BGl_za2classesza2z00zz__objectz00);
											{	/* Llib/error.scm 530 */
												long BgL_arg2779z00_3808;

												BgL_arg2779z00_3808 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_3784);
												BgL_arg2778z00_3807 =
													(BgL_arg2779z00_3808 - OBJECT_TYPE);
											}
											BgL_oclassz00_3798 =
												VECTOR_REF(BgL_arg2777z00_3806, BgL_arg2778z00_3807);
										}
										{	/* Llib/error.scm 530 */
											bool_t BgL__ortest_1196z00_3799;

											BgL__ortest_1196z00_3799 =
												(BgL_classz00_3782 == BgL_oclassz00_3798);
											if (BgL__ortest_1196z00_3799)
												{	/* Llib/error.scm 530 */
													BgL_res2790z00_3815 = BgL__ortest_1196z00_3799;
												}
											else
												{	/* Llib/error.scm 530 */
													long BgL_odepthz00_3800;

													{	/* Llib/error.scm 530 */
														obj_t BgL_arg2764z00_3801;

														BgL_arg2764z00_3801 = (BgL_oclassz00_3798);
														BgL_odepthz00_3800 =
															BGL_CLASS_DEPTH(BgL_arg2764z00_3801);
													}
													if ((3L < BgL_odepthz00_3800))
														{	/* Llib/error.scm 530 */
															obj_t BgL_arg2762z00_3803;

															{	/* Llib/error.scm 530 */
																obj_t BgL_arg2763z00_3804;

																BgL_arg2763z00_3804 = (BgL_oclassz00_3798);
																BgL_arg2762z00_3803 =
																	BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_3804,
																	3L);
															}
															BgL_res2790z00_3815 =
																(BgL_arg2762z00_3803 == BgL_classz00_3782);
														}
													else
														{	/* Llib/error.scm 530 */
															BgL_res2790z00_3815 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test3264z00_6262 = BgL_res2790z00_3815;
								}
						}
					else
						{	/* Llib/error.scm 530 */
							BgL_test3264z00_6262 = ((bool_t) 0);
						}
				}
				if (BgL_test3264z00_6262)
					{	/* Llib/error.scm 530 */
						BFALSE;
					}
				else
					{	/* Llib/error.scm 531 */
						obj_t BgL_retvalz00_1848;

						{	/* Llib/error.scm 531 */
							bool_t BgL_test3269z00_6285;

							{	/* Llib/error.scm 531 */
								obj_t BgL_classz00_3816;

								BgL_classz00_3816 = BGl_z62errorz62zz__objectz00;
								if (BGL_OBJECTP(BgL_valz00_17))
									{	/* Llib/error.scm 531 */
										BgL_objectz00_bglt BgL_arg2767z00_3818;

										BgL_arg2767z00_3818 = (BgL_objectz00_bglt) (BgL_valz00_17);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Llib/error.scm 531 */
												long BgL_idxz00_3824;

												BgL_idxz00_3824 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_3818);
												BgL_test3269z00_6285 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_3824 + 3L)) == BgL_classz00_3816);
											}
										else
											{	/* Llib/error.scm 531 */
												bool_t BgL_res2791z00_3849;

												{	/* Llib/error.scm 531 */
													obj_t BgL_oclassz00_3832;

													{	/* Llib/error.scm 531 */
														obj_t BgL_arg2777z00_3840;
														long BgL_arg2778z00_3841;

														BgL_arg2777z00_3840 =
															(BGl_za2classesza2z00zz__objectz00);
														{	/* Llib/error.scm 531 */
															long BgL_arg2779z00_3842;

															BgL_arg2779z00_3842 =
																BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_3818);
															BgL_arg2778z00_3841 =
																(BgL_arg2779z00_3842 - OBJECT_TYPE);
														}
														BgL_oclassz00_3832 =
															VECTOR_REF(BgL_arg2777z00_3840,
															BgL_arg2778z00_3841);
													}
													{	/* Llib/error.scm 531 */
														bool_t BgL__ortest_1196z00_3833;

														BgL__ortest_1196z00_3833 =
															(BgL_classz00_3816 == BgL_oclassz00_3832);
														if (BgL__ortest_1196z00_3833)
															{	/* Llib/error.scm 531 */
																BgL_res2791z00_3849 = BgL__ortest_1196z00_3833;
															}
														else
															{	/* Llib/error.scm 531 */
																long BgL_odepthz00_3834;

																{	/* Llib/error.scm 531 */
																	obj_t BgL_arg2764z00_3835;

																	BgL_arg2764z00_3835 = (BgL_oclassz00_3832);
																	BgL_odepthz00_3834 =
																		BGL_CLASS_DEPTH(BgL_arg2764z00_3835);
																}
																if ((3L < BgL_odepthz00_3834))
																	{	/* Llib/error.scm 531 */
																		obj_t BgL_arg2762z00_3837;

																		{	/* Llib/error.scm 531 */
																			obj_t BgL_arg2763z00_3838;

																			BgL_arg2763z00_3838 =
																				(BgL_oclassz00_3832);
																			BgL_arg2762z00_3837 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_arg2763z00_3838, 3L);
																		}
																		BgL_res2791z00_3849 =
																			(BgL_arg2762z00_3837 ==
																			BgL_classz00_3816);
																	}
																else
																	{	/* Llib/error.scm 531 */
																		BgL_res2791z00_3849 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test3269z00_6285 = BgL_res2791z00_3849;
											}
									}
								else
									{	/* Llib/error.scm 531 */
										BgL_test3269z00_6285 = ((bool_t) 0);
									}
							}
							if (BgL_test3269z00_6285)
								{	/* Llib/error.scm 531 */
									BgL_retvalz00_1848 = BINT(1L);
								}
							else
								{	/* Llib/error.scm 531 */
									BgL_retvalz00_1848 = BINT(2L);
								}
						}
						{	/* Llib/error.scm 532 */
							obj_t BgL_zc3z04anonymousza31495ze3z87_5238;

							BgL_zc3z04anonymousza31495ze3z87_5238 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31495ze3ze5zz__errorz00, (int) (1L),
								(int) (1L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31495ze3z87_5238, (int) (0L),
								BgL_retvalz00_1848);
							unwind_stack_until(BFALSE, BFALSE, BgL_retvalz00_1848,
								BgL_zc3z04anonymousza31495ze3z87_5238, BFALSE);
			}}}
			return BUNSPEC;
		}

	}



/* &<@anonymous:1495> */
	obj_t BGl_z62zc3z04anonymousza31495ze3ze5zz__errorz00(obj_t BgL_envz00_5239,
		obj_t BgL_xz00_5241)
	{
		{	/* Llib/error.scm 532 */
			{	/* Llib/error.scm 532 */
				obj_t BgL_tmpz00_6316;

				BgL_tmpz00_6316 = PROCEDURE_REF(BgL_envz00_5239, (int) (0L));
				return BIGLOO_EXIT(BgL_tmpz00_6316);
			}
		}

	}



/* module-init-error */
	BGL_EXPORTED_DEF obj_t BGl_modulezd2initzd2errorz00zz__errorz00(char
		*BgL_currentz00_18, char *BgL_fromz00_19)
	{
		{	/* Llib/error.scm 538 */
			{	/* Llib/error.scm 539 */
				obj_t BgL_arg1497z00_1854;

				{	/* Llib/error.scm 539 */
					obj_t BgL_tmpz00_6320;

					BgL_tmpz00_6320 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1497z00_1854 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6320);
				}
				{	/* Llib/error.scm 539 */
					obj_t BgL_list1498z00_1855;

					{	/* Llib/error.scm 539 */
						obj_t BgL_arg1499z00_1856;

						{	/* Llib/error.scm 539 */
							obj_t BgL_arg1500z00_1857;

							{	/* Llib/error.scm 539 */
								obj_t BgL_arg1501z00_1858;

								{	/* Llib/error.scm 539 */
									obj_t BgL_arg1502z00_1859;

									{	/* Llib/error.scm 539 */
										obj_t BgL_arg1505z00_1860;

										{	/* Llib/error.scm 539 */
											obj_t BgL_arg1506z00_1861;

											{	/* Llib/error.scm 539 */
												obj_t BgL_arg1507z00_1862;

												{	/* Llib/error.scm 539 */
													obj_t BgL_arg1508z00_1863;

													{	/* Llib/error.scm 539 */
														obj_t BgL_arg1509z00_1864;

														{	/* Llib/error.scm 539 */
															obj_t BgL_arg1510z00_1865;

															BgL_arg1510z00_1865 =
																MAKE_YOUNG_PAIR(BGl_string2894z00zz__errorz00,
																BNIL);
															BgL_arg1509z00_1864 =
																MAKE_YOUNG_PAIR(string_to_bstring
																(BgL_fromz00_19), BgL_arg1510z00_1865);
														}
														BgL_arg1508z00_1863 =
															MAKE_YOUNG_PAIR(BGl_string2895z00zz__errorz00,
															BgL_arg1509z00_1864);
													}
													BgL_arg1507z00_1862 =
														MAKE_YOUNG_PAIR(BGl_string2896z00zz__errorz00,
														BgL_arg1508z00_1863);
												}
												BgL_arg1506z00_1861 =
													MAKE_YOUNG_PAIR(string_to_bstring(BgL_fromz00_19),
													BgL_arg1507z00_1862);
											}
											BgL_arg1505z00_1860 =
												MAKE_YOUNG_PAIR(BGl_string2897z00zz__errorz00,
												BgL_arg1506z00_1861);
										}
										BgL_arg1502z00_1859 =
											MAKE_YOUNG_PAIR(string_to_bstring(BgL_currentz00_18),
											BgL_arg1505z00_1860);
									}
									BgL_arg1501z00_1858 =
										MAKE_YOUNG_PAIR(BGl_string2898z00zz__errorz00,
										BgL_arg1502z00_1859);
								}
								BgL_arg1500z00_1857 =
									MAKE_YOUNG_PAIR(BGl_string2899z00zz__errorz00,
									BgL_arg1501z00_1858);
							}
							BgL_arg1499z00_1856 =
								MAKE_YOUNG_PAIR(string_to_bstring(BgL_currentz00_18),
								BgL_arg1500z00_1857);
						}
						BgL_list1498z00_1855 =
							MAKE_YOUNG_PAIR(BGl_string2900z00zz__errorz00,
							BgL_arg1499z00_1856);
					}
					BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg1497z00_1854,
						BgL_list1498z00_1855);
			}}
			{	/* Llib/error.scm 544 */
				obj_t BgL_tmpz00_6339;

				BgL_tmpz00_6339 = BINT(1L);
				return BIGLOO_EXIT(BgL_tmpz00_6339);
			}
		}

	}



/* &module-init-error */
	obj_t BGl_z62modulezd2initzd2errorz62zz__errorz00(obj_t BgL_envz00_5242,
		obj_t BgL_currentz00_5243, obj_t BgL_fromz00_5244)
	{
		{	/* Llib/error.scm 538 */
			{	/* Llib/error.scm 543 */
				char *BgL_auxz00_6351;
				char *BgL_auxz00_6342;

				{	/* Llib/error.scm 543 */
					obj_t BgL_tmpz00_6352;

					if (STRINGP(BgL_fromz00_5244))
						{	/* Llib/error.scm 543 */
							BgL_tmpz00_6352 = BgL_fromz00_5244;
						}
					else
						{
							obj_t BgL_auxz00_6355;

							BgL_auxz00_6355 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(22170L), BGl_string2901z00zz__errorz00,
								BGl_string2902z00zz__errorz00, BgL_fromz00_5244);
							FAILURE(BgL_auxz00_6355, BFALSE, BFALSE);
						}
					BgL_auxz00_6351 = BSTRING_TO_STRING(BgL_tmpz00_6352);
				}
				{	/* Llib/error.scm 543 */
					obj_t BgL_tmpz00_6343;

					if (STRINGP(BgL_currentz00_5243))
						{	/* Llib/error.scm 543 */
							BgL_tmpz00_6343 = BgL_currentz00_5243;
						}
					else
						{
							obj_t BgL_auxz00_6346;

							BgL_auxz00_6346 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(22170L), BGl_string2901z00zz__errorz00,
								BGl_string2902z00zz__errorz00, BgL_currentz00_5243);
							FAILURE(BgL_auxz00_6346, BFALSE, BFALSE);
						}
					BgL_auxz00_6342 = BSTRING_TO_STRING(BgL_tmpz00_6343);
				}
				return
					BGl_modulezd2initzd2errorz00zz__errorz00(BgL_auxz00_6342,
					BgL_auxz00_6351);
			}
		}

	}



/* error */
	BGL_EXPORTED_DEF obj_t BGl_errorz00zz__errorz00(obj_t BgL_procz00_20,
		obj_t BgL_msgz00_21, obj_t BgL_objz00_22)
	{
		{	/* Llib/error.scm 549 */
			{	/* Llib/error.scm 551 */
				BgL_z62errorz62_bglt BgL_arg1511z00_1866;

				{	/* Llib/error.scm 551 */
					BgL_z62errorz62_bglt BgL_new1079z00_1867;

					{	/* Llib/error.scm 551 */
						BgL_z62errorz62_bglt BgL_new1078z00_1870;

						BgL_new1078z00_1870 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 551 */
							long BgL_arg1514z00_1871;

							BgL_arg1514z00_1871 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_1870),
								BgL_arg1514z00_1871);
						}
						BgL_new1079z00_1867 = BgL_new1078z00_1870;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1079z00_1867)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1079z00_1867)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_6369;

						{	/* Llib/error.scm 551 */
							obj_t BgL_arg1512z00_1868;

							{	/* Llib/error.scm 551 */
								obj_t BgL_arg1513z00_1869;

								{	/* Llib/error.scm 551 */
									obj_t BgL_classz00_3854;

									BgL_classz00_3854 = BGl_z62errorz62zz__objectz00;
									BgL_arg1513z00_1869 = BGL_CLASS_ALL_FIELDS(BgL_classz00_3854);
								}
								BgL_arg1512z00_1868 = VECTOR_REF(BgL_arg1513z00_1869, 2L);
							}
							BgL_auxz00_6369 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1512z00_1868);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_1867)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_6369), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_1867))->
							BgL_procz00) = ((obj_t) BgL_procz00_20), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_1867))->BgL_msgz00) =
						((obj_t) BgL_msgz00_21), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_1867))->BgL_objz00) =
						((obj_t) BgL_objz00_22), BUNSPEC);
					BgL_arg1511z00_1866 = BgL_new1079z00_1867;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1511z00_1866));
			}
		}

	}



/* &error2808 */
	obj_t BGl_z62error2808z62zz__errorz00(obj_t BgL_envz00_5245,
		obj_t BgL_procz00_5246, obj_t BgL_msgz00_5247, obj_t BgL_objz00_5248)
	{
		{	/* Llib/error.scm 549 */
			return
				BGl_errorz00zz__errorz00(BgL_procz00_5246, BgL_msgz00_5247,
				BgL_objz00_5248);
		}

	}



/* error/location */
	BGL_EXPORTED_DEF obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t
		BgL_procz00_23, obj_t BgL_msgz00_24, obj_t BgL_objz00_25,
		obj_t BgL_fnamez00_26, obj_t BgL_locz00_27)
	{
		{	/* Llib/error.scm 559 */
			{	/* Llib/error.scm 561 */
				BgL_z62errorz62_bglt BgL_arg1515z00_3856;

				{	/* Llib/error.scm 561 */
					BgL_z62errorz62_bglt BgL_new1081z00_3857;

					{	/* Llib/error.scm 562 */
						BgL_z62errorz62_bglt BgL_new1080z00_3858;

						BgL_new1080z00_3858 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 562 */
							long BgL_arg1520z00_3859;

							BgL_arg1520z00_3859 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1080z00_3858),
								BgL_arg1520z00_3859);
						}
						BgL_new1081z00_3857 = BgL_new1080z00_3858;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1081z00_3857)))->
							BgL_fnamez00) = ((obj_t) BgL_fnamez00_26), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1081z00_3857)))->BgL_locationz00) =
						((obj_t) BgL_locz00_27), BUNSPEC);
					{
						obj_t BgL_auxz00_6389;

						{	/* Llib/error.scm 563 */
							obj_t BgL_arg1516z00_3860;

							{	/* Llib/error.scm 563 */
								obj_t BgL_arg1517z00_3861;

								{	/* Llib/error.scm 563 */
									obj_t BgL_classz00_3865;

									BgL_classz00_3865 = BGl_z62errorz62zz__objectz00;
									BgL_arg1517z00_3861 = BGL_CLASS_ALL_FIELDS(BgL_classz00_3865);
								}
								BgL_arg1516z00_3860 = VECTOR_REF(BgL_arg1517z00_3861, 2L);
							}
							BgL_auxz00_6389 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1516z00_3860);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1081z00_3857)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_6389), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3857))->
							BgL_procz00) = ((obj_t) BgL_procz00_23), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3857))->BgL_msgz00) =
						((obj_t) BgL_msgz00_24), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3857))->BgL_objz00) =
						((obj_t) BgL_objz00_25), BUNSPEC);
					BgL_arg1515z00_3856 = BgL_new1081z00_3857;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1515z00_3856));
			}
		}

	}



/* &error/location */
	obj_t BGl_z62errorzf2locationz90zz__errorz00(obj_t BgL_envz00_5249,
		obj_t BgL_procz00_5250, obj_t BgL_msgz00_5251, obj_t BgL_objz00_5252,
		obj_t BgL_fnamez00_5253, obj_t BgL_locz00_5254)
	{
		{	/* Llib/error.scm 559 */
			return
				BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_5250, BgL_msgz00_5251,
				BgL_objz00_5252, BgL_fnamez00_5253, BgL_locz00_5254);
		}

	}



/* error/source-location */
	BGL_EXPORTED_DEF obj_t BGl_errorzf2sourcezd2locationz20zz__errorz00(obj_t
		BgL_procz00_28, obj_t BgL_msgz00_29, obj_t BgL_objz00_30,
		obj_t BgL_locz00_31)
	{
		{	/* Llib/error.scm 571 */
			if (PAIRP(BgL_locz00_31))
				{	/* Llib/error.scm 572 */
					obj_t BgL_cdrzd2186zd2_1884;

					BgL_cdrzd2186zd2_1884 = CDR(((obj_t) BgL_locz00_31));
					if ((CAR(((obj_t) BgL_locz00_31)) == BGl_symbol2879z00zz__errorz00))
						{	/* Llib/error.scm 572 */
							if (PAIRP(BgL_cdrzd2186zd2_1884))
								{	/* Llib/error.scm 572 */
									obj_t BgL_cdrzd2190zd2_1888;

									BgL_cdrzd2190zd2_1888 = CDR(BgL_cdrzd2186zd2_1884);
									if (PAIRP(BgL_cdrzd2190zd2_1888))
										{	/* Llib/error.scm 572 */
											if (NULLP(CDR(BgL_cdrzd2190zd2_1888)))
												{	/* Llib/error.scm 572 */
													return
														BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_28,
														BgL_msgz00_29, BgL_objz00_30,
														CAR(BgL_cdrzd2186zd2_1884),
														CAR(BgL_cdrzd2190zd2_1888));
												}
											else
												{	/* Llib/error.scm 572 */
													return
														BGl_errorz00zz__errorz00(BgL_procz00_28,
														BgL_msgz00_29, BgL_objz00_30);
												}
										}
									else
										{	/* Llib/error.scm 572 */
											return
												BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29,
												BgL_objz00_30);
										}
								}
							else
								{	/* Llib/error.scm 572 */
									return
										BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29,
										BgL_objz00_30);
								}
						}
					else
						{	/* Llib/error.scm 572 */
							return
								BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29,
								BgL_objz00_30);
						}
				}
			else
				{	/* Llib/error.scm 572 */
					return
						BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29,
						BgL_objz00_30);
				}
		}

	}



/* &error/source-location */
	obj_t BGl_z62errorzf2sourcezd2locationz42zz__errorz00(obj_t BgL_envz00_5255,
		obj_t BgL_procz00_5256, obj_t BgL_msgz00_5257, obj_t BgL_objz00_5258,
		obj_t BgL_locz00_5259)
	{
		{	/* Llib/error.scm 571 */
			return
				BGl_errorzf2sourcezd2locationz20zz__errorz00(BgL_procz00_5256,
				BgL_msgz00_5257, BgL_objz00_5258, BgL_locz00_5259);
		}

	}



/* error/source */
	BGL_EXPORTED_DEF obj_t BGl_errorzf2sourcezf2zz__errorz00(obj_t BgL_procz00_32,
		obj_t BgL_msgz00_33, obj_t BgL_objz00_34, obj_t BgL_sourcez00_35)
	{
		{	/* Llib/error.scm 581 */
			if (EPAIRP(BgL_sourcez00_35))
				{	/* Llib/error.scm 584 */
					obj_t BgL_arg1537z00_3886;

					BgL_arg1537z00_3886 = CER(((obj_t) BgL_sourcez00_35));
					BGL_TAIL return
						BGl_errorzf2sourcezd2locationz20zz__errorz00(BgL_procz00_32,
						BgL_msgz00_33, BgL_objz00_34, BgL_arg1537z00_3886);
				}
			else
				{	/* Llib/error.scm 582 */
					return
						BGl_errorz00zz__errorz00(BgL_procz00_32, BgL_msgz00_33,
						BgL_objz00_34);
				}
		}

	}



/* &error/source */
	obj_t BGl_z62errorzf2sourcez90zz__errorz00(obj_t BgL_envz00_5260,
		obj_t BgL_procz00_5261, obj_t BgL_msgz00_5262, obj_t BgL_objz00_5263,
		obj_t BgL_sourcez00_5264)
	{
		{	/* Llib/error.scm 581 */
			return
				BGl_errorzf2sourcezf2zz__errorz00(BgL_procz00_5261, BgL_msgz00_5262,
				BgL_objz00_5263, BgL_sourcez00_5264);
		}

	}



/* error/c-location */
	BGL_EXPORTED_DEF obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t
		BgL_procz00_36, obj_t BgL_messagez00_37, obj_t BgL_objectz00_38,
		char *BgL_fnamez00_39, long BgL_locz00_40)
	{
		{	/* Llib/error.scm 593 */
			{	/* Llib/error.scm 561 */
				BgL_z62errorz62_bglt BgL_arg1515z00_3888;

				{	/* Llib/error.scm 561 */
					BgL_z62errorz62_bglt BgL_new1081z00_3889;

					{	/* Llib/error.scm 562 */
						BgL_z62errorz62_bglt BgL_new1080z00_3890;

						BgL_new1080z00_3890 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 562 */
							long BgL_arg1520z00_3891;

							BgL_arg1520z00_3891 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1080z00_3890),
								BgL_arg1520z00_3891);
						}
						BgL_new1081z00_3889 = BgL_new1080z00_3890;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1081z00_3889)))->
							BgL_fnamez00) =
						((obj_t) string_to_bstring(BgL_fnamez00_39)), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1081z00_3889)))->BgL_locationz00) =
						((obj_t) BINT(BgL_locz00_40)), BUNSPEC);
					{
						obj_t BgL_auxz00_6443;

						{	/* Llib/error.scm 563 */
							obj_t BgL_arg1516z00_3892;

							{	/* Llib/error.scm 563 */
								obj_t BgL_arg1517z00_3893;

								{	/* Llib/error.scm 563 */
									obj_t BgL_classz00_3897;

									BgL_classz00_3897 = BGl_z62errorz62zz__objectz00;
									BgL_arg1517z00_3893 = BGL_CLASS_ALL_FIELDS(BgL_classz00_3897);
								}
								BgL_arg1516z00_3892 = VECTOR_REF(BgL_arg1517z00_3893, 2L);
							}
							BgL_auxz00_6443 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1516z00_3892);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1081z00_3889)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_6443), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3889))->
							BgL_procz00) = ((obj_t) BgL_procz00_36), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3889))->BgL_msgz00) =
						((obj_t) BgL_messagez00_37), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3889))->BgL_objz00) =
						((obj_t) BgL_objectz00_38), BUNSPEC);
					BgL_arg1515z00_3888 = BgL_new1081z00_3889;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1515z00_3888));
			}
		}

	}



/* &error/c-location */
	obj_t BGl_z62errorzf2czd2locationz42zz__errorz00(obj_t BgL_envz00_5265,
		obj_t BgL_procz00_5266, obj_t BgL_messagez00_5267, obj_t BgL_objectz00_5268,
		obj_t BgL_fnamez00_5269, obj_t BgL_locz00_5270)
	{
		{	/* Llib/error.scm 593 */
			{	/* Llib/error.scm 561 */
				long BgL_auxz00_6463;
				char *BgL_auxz00_6454;

				{	/* Llib/error.scm 561 */
					obj_t BgL_tmpz00_6464;

					if (INTEGERP(BgL_locz00_5270))
						{	/* Llib/error.scm 561 */
							BgL_tmpz00_6464 = BgL_locz00_5270;
						}
					else
						{
							obj_t BgL_auxz00_6467;

							BgL_auxz00_6467 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(22803L), BGl_string2903z00zz__errorz00,
								BGl_string2877z00zz__errorz00, BgL_locz00_5270);
							FAILURE(BgL_auxz00_6467, BFALSE, BFALSE);
						}
					BgL_auxz00_6463 = (long) CINT(BgL_tmpz00_6464);
				}
				{	/* Llib/error.scm 561 */
					obj_t BgL_tmpz00_6455;

					if (STRINGP(BgL_fnamez00_5269))
						{	/* Llib/error.scm 561 */
							BgL_tmpz00_6455 = BgL_fnamez00_5269;
						}
					else
						{
							obj_t BgL_auxz00_6458;

							BgL_auxz00_6458 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(22803L), BGl_string2903z00zz__errorz00,
								BGl_string2902z00zz__errorz00, BgL_fnamez00_5269);
							FAILURE(BgL_auxz00_6458, BFALSE, BFALSE);
						}
					BgL_auxz00_6454 = BSTRING_TO_STRING(BgL_tmpz00_6455);
				}
				return
					BGl_errorzf2czd2locationz20zz__errorz00(BgL_procz00_5266,
					BgL_messagez00_5267, BgL_objectz00_5268, BgL_auxz00_6454,
					BgL_auxz00_6463);
			}
		}

	}



/* bigloo-type-error-msg */
	BGL_EXPORTED_DEF obj_t BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(obj_t
		BgL_prefixz00_41, obj_t BgL_fromz00_42, obj_t BgL_toz00_43)
	{
		{	/* Llib/error.scm 599 */
			{	/* Llib/error.scm 600 */
				obj_t BgL_list1538z00_3899;

				{	/* Llib/error.scm 600 */
					obj_t BgL_arg1540z00_3900;

					{	/* Llib/error.scm 600 */
						obj_t BgL_arg1541z00_3901;

						{	/* Llib/error.scm 600 */
							obj_t BgL_arg1542z00_3902;

							{	/* Llib/error.scm 600 */
								obj_t BgL_arg1543z00_3903;

								{	/* Llib/error.scm 600 */
									obj_t BgL_arg1545z00_3904;

									BgL_arg1545z00_3904 =
										MAKE_YOUNG_PAIR(BGl_string2904z00zz__errorz00, BNIL);
									BgL_arg1543z00_3903 =
										MAKE_YOUNG_PAIR(BgL_toz00_43, BgL_arg1545z00_3904);
								}
								BgL_arg1542z00_3902 =
									MAKE_YOUNG_PAIR(BGl_string2905z00zz__errorz00,
									BgL_arg1543z00_3903);
							}
							BgL_arg1541z00_3901 =
								MAKE_YOUNG_PAIR(BgL_fromz00_42, BgL_arg1542z00_3902);
						}
						BgL_arg1540z00_3900 =
							MAKE_YOUNG_PAIR(BGl_string2906z00zz__errorz00,
							BgL_arg1541z00_3901);
					}
					BgL_list1538z00_3899 =
						MAKE_YOUNG_PAIR(BgL_prefixz00_41, BgL_arg1540z00_3900);
				}
				return
					BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1538z00_3899);
			}
		}

	}



/* &bigloo-type-error-msg */
	obj_t BGl_z62bigloozd2typezd2errorzd2msgzb0zz__errorz00(obj_t BgL_envz00_5271,
		obj_t BgL_prefixz00_5272, obj_t BgL_fromz00_5273, obj_t BgL_toz00_5274)
	{
		{	/* Llib/error.scm 599 */
			{	/* Llib/error.scm 600 */
				obj_t BgL_auxz00_6494;
				obj_t BgL_auxz00_6487;
				obj_t BgL_auxz00_6480;

				if (STRINGP(BgL_toz00_5274))
					{	/* Llib/error.scm 600 */
						BgL_auxz00_6494 = BgL_toz00_5274;
					}
				else
					{
						obj_t BgL_auxz00_6497;

						BgL_auxz00_6497 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(24586L), BGl_string2907z00zz__errorz00,
							BGl_string2902z00zz__errorz00, BgL_toz00_5274);
						FAILURE(BgL_auxz00_6497, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_fromz00_5273))
					{	/* Llib/error.scm 600 */
						BgL_auxz00_6487 = BgL_fromz00_5273;
					}
				else
					{
						obj_t BgL_auxz00_6490;

						BgL_auxz00_6490 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(24586L), BGl_string2907z00zz__errorz00,
							BGl_string2902z00zz__errorz00, BgL_fromz00_5273);
						FAILURE(BgL_auxz00_6490, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_prefixz00_5272))
					{	/* Llib/error.scm 600 */
						BgL_auxz00_6480 = BgL_prefixz00_5272;
					}
				else
					{
						obj_t BgL_auxz00_6483;

						BgL_auxz00_6483 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(24586L), BGl_string2907z00zz__errorz00,
							BGl_string2902z00zz__errorz00, BgL_prefixz00_5272);
						FAILURE(BgL_auxz00_6483, BFALSE, BFALSE);
					}
				return
					BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(BgL_auxz00_6480,
					BgL_auxz00_6487, BgL_auxz00_6494);
			}
		}

	}



/* bigloo-type-error */
	BGL_EXPORTED_DEF obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t
		BgL_procz00_44, obj_t BgL_typez00_45, obj_t BgL_objz00_46)
	{
		{	/* Llib/error.scm 605 */
			{	/* Llib/error.scm 606 */
				obj_t BgL_tyz00_1904;

				if (STRINGP(BgL_typez00_45))
					{	/* Llib/error.scm 607 */
						BgL_tyz00_1904 = BgL_typez00_45;
					}
				else
					{	/* Llib/error.scm 607 */
						if (SYMBOLP(BgL_typez00_45))
							{	/* Llib/error.scm 610 */
								obj_t BgL_arg2331z00_3906;

								BgL_arg2331z00_3906 = SYMBOL_TO_STRING(BgL_typez00_45);
								BgL_tyz00_1904 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2331z00_3906);
							}
						else
							{	/* Llib/error.scm 609 */
								BgL_tyz00_1904 = BGl_string2874z00zz__errorz00;
							}
					}
				{	/* Llib/error.scm 606 */
					obj_t BgL_msgz00_1905;

					{	/* Llib/error.scm 613 */
						obj_t BgL_arg1552z00_1912;

						BgL_arg1552z00_1912 = bgl_typeof(BgL_objz00_46);
						{	/* Llib/error.scm 600 */
							obj_t BgL_list1538z00_3910;

							{	/* Llib/error.scm 600 */
								obj_t BgL_arg1540z00_3911;

								{	/* Llib/error.scm 600 */
									obj_t BgL_arg1541z00_3912;

									{	/* Llib/error.scm 600 */
										obj_t BgL_arg1542z00_3913;

										{	/* Llib/error.scm 600 */
											obj_t BgL_arg1543z00_3914;

											{	/* Llib/error.scm 600 */
												obj_t BgL_arg1545z00_3915;

												BgL_arg1545z00_3915 =
													MAKE_YOUNG_PAIR(BGl_string2904z00zz__errorz00, BNIL);
												BgL_arg1543z00_3914 =
													MAKE_YOUNG_PAIR(BgL_arg1552z00_1912,
													BgL_arg1545z00_3915);
											}
											BgL_arg1542z00_3913 =
												MAKE_YOUNG_PAIR(BGl_string2905z00zz__errorz00,
												BgL_arg1543z00_3914);
										}
										BgL_arg1541z00_3912 =
											MAKE_YOUNG_PAIR(BgL_tyz00_1904, BgL_arg1542z00_3913);
									}
									BgL_arg1540z00_3911 =
										MAKE_YOUNG_PAIR(BGl_string2906z00zz__errorz00,
										BgL_arg1541z00_3912);
								}
								BgL_list1538z00_3910 =
									MAKE_YOUNG_PAIR(BGl_string2875z00zz__errorz00,
									BgL_arg1540z00_3911);
							}
							BgL_msgz00_1905 =
								BGl_stringzd2appendzd2zz__r4_strings_6_7z00
								(BgL_list1538z00_3910);
						}
					}
					{	/* Llib/error.scm 613 */

						{	/* Llib/error.scm 615 */
							BgL_z62typezd2errorzb0_bglt BgL_arg1546z00_1906;

							{	/* Llib/error.scm 615 */
								BgL_z62typezd2errorzb0_bglt BgL_new1083z00_1907;

								{	/* Llib/error.scm 615 */
									BgL_z62typezd2errorzb0_bglt BgL_new1082z00_1910;

									BgL_new1082z00_1910 =
										((BgL_z62typezd2errorzb0_bglt)
										BOBJECT(GC_MALLOC(sizeof(struct
													BgL_z62typezd2errorzb0_bgl))));
									{	/* Llib/error.scm 615 */
										long BgL_arg1551z00_1911;

										BgL_arg1551z00_1911 =
											BGL_CLASS_NUM(BGl_z62typezd2errorzb0zz__objectz00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1082z00_1910),
											BgL_arg1551z00_1911);
									}
									BgL_new1083z00_1907 = BgL_new1082z00_1910;
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1083z00_1907)))->
										BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
								((((BgL_z62exceptionz62_bglt)
											COBJECT(((BgL_z62exceptionz62_bglt)
													BgL_new1083z00_1907)))->BgL_locationz00) =
									((obj_t) BFALSE), BUNSPEC);
								{
									obj_t BgL_auxz00_6524;

									{	/* Llib/error.scm 615 */
										obj_t BgL_arg1547z00_1908;

										{	/* Llib/error.scm 615 */
											obj_t BgL_arg1549z00_1909;

											{	/* Llib/error.scm 615 */
												obj_t BgL_classz00_3919;

												BgL_classz00_3919 = BGl_z62typezd2errorzb0zz__objectz00;
												BgL_arg1549z00_1909 =
													BGL_CLASS_ALL_FIELDS(BgL_classz00_3919);
											}
											BgL_arg1547z00_1908 = VECTOR_REF(BgL_arg1549z00_1909, 2L);
										}
										BgL_auxz00_6524 =
											BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
											(BgL_arg1547z00_1908);
									}
									((((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_new1083z00_1907)))->
											BgL_stackz00) = ((obj_t) BgL_auxz00_6524), BUNSPEC);
								}
								((((BgL_z62errorz62_bglt) COBJECT(
												((BgL_z62errorz62_bglt) BgL_new1083z00_1907)))->
										BgL_procz00) = ((obj_t) BgL_procz00_44), BUNSPEC);
								((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
													BgL_new1083z00_1907)))->BgL_msgz00) =
									((obj_t) BgL_msgz00_1905), BUNSPEC);
								((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
													BgL_new1083z00_1907)))->BgL_objz00) =
									((obj_t) BgL_objz00_46), BUNSPEC);
								((((BgL_z62typezd2errorzb0_bglt) COBJECT(BgL_new1083z00_1907))->
										BgL_typez00) = ((obj_t) BgL_typez00_45), BUNSPEC);
								BgL_arg1546z00_1906 = BgL_new1083z00_1907;
							}
							return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1546z00_1906));
						}
					}
				}
			}
		}

	}



/* &bigloo-type-error */
	obj_t BGl_z62bigloozd2typezd2errorz62zz__errorz00(obj_t BgL_envz00_5275,
		obj_t BgL_procz00_5276, obj_t BgL_typez00_5277, obj_t BgL_objz00_5278)
	{
		{	/* Llib/error.scm 605 */
			return
				BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procz00_5276,
				BgL_typez00_5277, BgL_objz00_5278);
		}

	}



/* bigloo-type-error/location */
	BGL_EXPORTED_DEF obj_t
		BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t BgL_procz00_47,
		obj_t BgL_typez00_48, obj_t BgL_objz00_49, obj_t BgL_fnamez00_50,
		obj_t BgL_locz00_51)
	{
		{	/* Llib/error.scm 624 */
			return
				BGl_raisez00zz__errorz00(BGl_typezd2errorzd2zz__errorz00
				(BgL_fnamez00_50, BgL_locz00_51, BgL_procz00_47, BgL_typez00_48,
					BgL_objz00_49));
		}

	}



/* &bigloo-type-error/location */
	obj_t BGl_z62bigloozd2typezd2errorzf2locationz90zz__errorz00(obj_t
		BgL_envz00_5279, obj_t BgL_procz00_5280, obj_t BgL_typez00_5281,
		obj_t BgL_objz00_5282, obj_t BgL_fnamez00_5283, obj_t BgL_locz00_5284)
	{
		{	/* Llib/error.scm 624 */
			return
				BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BgL_procz00_5280,
				BgL_typez00_5281, BgL_objz00_5282, BgL_fnamez00_5283, BgL_locz00_5284);
		}

	}



/* type-error */
	BGL_EXPORTED_DEF obj_t BGl_typezd2errorzd2zz__errorz00(obj_t BgL_fnamez00_52,
		obj_t BgL_locz00_53, obj_t BgL_procz00_54, obj_t BgL_typez00_55,
		obj_t BgL_objz00_56)
	{
		{	/* Llib/error.scm 630 */
			{	/* Llib/error.scm 631 */
				obj_t BgL_tyz00_1916;

				if (STRINGP(BgL_typez00_55))
					{	/* Llib/error.scm 632 */
						BgL_tyz00_1916 = BgL_typez00_55;
					}
				else
					{	/* Llib/error.scm 632 */
						if (SYMBOLP(BgL_typez00_55))
							{	/* Llib/error.scm 633 */
								obj_t BgL_arg2331z00_3923;

								BgL_arg2331z00_3923 = SYMBOL_TO_STRING(BgL_typez00_55);
								BgL_tyz00_1916 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2331z00_3923);
							}
						else
							{	/* Llib/error.scm 633 */
								BgL_tyz00_1916 = BGl_string2874z00zz__errorz00;
							}
					}
				{	/* Llib/error.scm 631 */
					obj_t BgL_msgz00_1917;

					{	/* Llib/error.scm 635 */
						obj_t BgL_arg1562z00_1923;

						BgL_arg1562z00_1923 = bgl_typeof(BgL_objz00_56);
						{	/* Llib/error.scm 600 */
							obj_t BgL_list1538z00_3927;

							{	/* Llib/error.scm 600 */
								obj_t BgL_arg1540z00_3928;

								{	/* Llib/error.scm 600 */
									obj_t BgL_arg1541z00_3929;

									{	/* Llib/error.scm 600 */
										obj_t BgL_arg1542z00_3930;

										{	/* Llib/error.scm 600 */
											obj_t BgL_arg1543z00_3931;

											{	/* Llib/error.scm 600 */
												obj_t BgL_arg1545z00_3932;

												BgL_arg1545z00_3932 =
													MAKE_YOUNG_PAIR(BGl_string2904z00zz__errorz00, BNIL);
												BgL_arg1543z00_3931 =
													MAKE_YOUNG_PAIR(BgL_arg1562z00_1923,
													BgL_arg1545z00_3932);
											}
											BgL_arg1542z00_3930 =
												MAKE_YOUNG_PAIR(BGl_string2905z00zz__errorz00,
												BgL_arg1543z00_3931);
										}
										BgL_arg1541z00_3929 =
											MAKE_YOUNG_PAIR(BgL_tyz00_1916, BgL_arg1542z00_3930);
									}
									BgL_arg1540z00_3928 =
										MAKE_YOUNG_PAIR(BGl_string2906z00zz__errorz00,
										BgL_arg1541z00_3929);
								}
								BgL_list1538z00_3927 =
									MAKE_YOUNG_PAIR(BGl_string2875z00zz__errorz00,
									BgL_arg1540z00_3928);
							}
							BgL_msgz00_1917 =
								BGl_stringzd2appendzd2zz__r4_strings_6_7z00
								(BgL_list1538z00_3927);
						}
					}
					{	/* Llib/error.scm 635 */

						{	/* Llib/error.scm 636 */
							BgL_z62typezd2errorzb0_bglt BgL_new1085z00_1918;

							{	/* Llib/error.scm 637 */
								BgL_z62typezd2errorzb0_bglt BgL_new1084z00_1921;

								BgL_new1084z00_1921 =
									((BgL_z62typezd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_z62typezd2errorzb0_bgl))));
								{	/* Llib/error.scm 637 */
									long BgL_arg1561z00_1922;

									BgL_arg1561z00_1922 =
										BGL_CLASS_NUM(BGl_z62typezd2errorzb0zz__objectz00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1084z00_1921),
										BgL_arg1561z00_1922);
								}
								BgL_new1085z00_1918 = BgL_new1084z00_1921;
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1085z00_1918)))->
									BgL_fnamez00) = ((obj_t) BgL_fnamez00_52), BUNSPEC);
							((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
												BgL_new1085z00_1918)))->BgL_locationz00) =
								((obj_t) BgL_locz00_53), BUNSPEC);
							{
								obj_t BgL_auxz00_6565;

								{	/* Llib/error.scm 638 */
									obj_t BgL_arg1558z00_1919;

									{	/* Llib/error.scm 638 */
										obj_t BgL_arg1559z00_1920;

										{	/* Llib/error.scm 638 */
											obj_t BgL_classz00_3936;

											BgL_classz00_3936 = BGl_z62typezd2errorzb0zz__objectz00;
											BgL_arg1559z00_1920 =
												BGL_CLASS_ALL_FIELDS(BgL_classz00_3936);
										}
										BgL_arg1558z00_1919 = VECTOR_REF(BgL_arg1559z00_1920, 2L);
									}
									BgL_auxz00_6565 =
										BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
										(BgL_arg1558z00_1919);
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1085z00_1918)))->
										BgL_stackz00) = ((obj_t) BgL_auxz00_6565), BUNSPEC);
							}
							((((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_new1085z00_1918)))->
									BgL_procz00) = ((obj_t) BgL_procz00_54), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1085z00_1918)))->BgL_msgz00) =
								((obj_t) BgL_msgz00_1917), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1085z00_1918)))->BgL_objz00) =
								((obj_t) BgL_objz00_56), BUNSPEC);
							((((BgL_z62typezd2errorzb0_bglt) COBJECT(BgL_new1085z00_1918))->
									BgL_typez00) = ((obj_t) BgL_typez00_55), BUNSPEC);
							return ((obj_t) BgL_new1085z00_1918);
						}
					}
				}
			}
		}

	}



/* &type-error2809 */
	obj_t BGl_z62typezd2error2809zb0zz__errorz00(obj_t BgL_envz00_5285,
		obj_t BgL_fnamez00_5286, obj_t BgL_locz00_5287, obj_t BgL_procz00_5288,
		obj_t BgL_typez00_5289, obj_t BgL_objz00_5290)
	{
		{	/* Llib/error.scm 630 */
			return
				BGl_typezd2errorzd2zz__errorz00(BgL_fnamez00_5286, BgL_locz00_5287,
				BgL_procz00_5288, BgL_typez00_5289, BgL_objz00_5290);
		}

	}



/* index-out-of-bounds-error */
	BGL_EXPORTED_DEF obj_t
		BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t BgL_fnamez00_62,
		obj_t BgL_locz00_63, obj_t BgL_procz00_64, obj_t BgL_objz00_65,
		int BgL_lenz00_66, int BgL_iz00_67)
	{
		{	/* Llib/error.scm 664 */
			{	/* Llib/error.scm 665 */
				obj_t BgL_msgz00_1936;

				{	/* Llib/error.scm 670 */
					obj_t BgL_arg1577z00_1942;
					obj_t BgL_arg1578z00_1943;

					{	/* Ieee/fixnum.scm 978 */

						BgL_arg1577z00_1942 =
							BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
							(long) (BgL_iz00_67), 10L);
					}
					{	/* Ieee/fixnum.scm 978 */

						BgL_arg1578z00_1943 =
							BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
							((long) (BgL_lenz00_66) - 1L), 10L);
					}
					{	/* Llib/error.scm 669 */
						obj_t BgL_list1579z00_1944;

						{	/* Llib/error.scm 669 */
							obj_t BgL_arg1580z00_1945;

							{	/* Llib/error.scm 669 */
								obj_t BgL_arg1581z00_1946;

								{	/* Llib/error.scm 669 */
									obj_t BgL_arg1582z00_1947;

									{	/* Llib/error.scm 669 */
										obj_t BgL_arg1584z00_1948;

										BgL_arg1584z00_1948 =
											MAKE_YOUNG_PAIR(BGl_string2908z00zz__errorz00, BNIL);
										BgL_arg1582z00_1947 =
											MAKE_YOUNG_PAIR(BgL_arg1578z00_1943, BgL_arg1584z00_1948);
									}
									BgL_arg1581z00_1946 =
										MAKE_YOUNG_PAIR(BGl_string2909z00zz__errorz00,
										BgL_arg1582z00_1947);
								}
								BgL_arg1580z00_1945 =
									MAKE_YOUNG_PAIR(BgL_arg1577z00_1942, BgL_arg1581z00_1946);
							}
							BgL_list1579z00_1944 =
								MAKE_YOUNG_PAIR(BGl_string2910z00zz__errorz00,
								BgL_arg1580z00_1945);
						}
						BgL_msgz00_1936 =
							BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1579z00_1944);
				}}
				{	/* Llib/error.scm 669 */

					{	/* Llib/error.scm 673 */
						BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt
							BgL_new1089z00_1937;
						{	/* Llib/error.scm 674 */
							BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt
								BgL_new1088z00_1940;
							BgL_new1088z00_1940 =
								((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)
								BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bgl))));
							{	/* Llib/error.scm 674 */
								long BgL_arg1575z00_1941;

								BgL_arg1575z00_1941 =
									BGL_CLASS_NUM
									(BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
										BgL_new1088z00_1940), BgL_arg1575z00_1941);
							}
							BgL_new1089z00_1937 = BgL_new1088z00_1940;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1089z00_1937)))->
								BgL_fnamez00) = ((obj_t) BgL_fnamez00_62), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1089z00_1937)))->BgL_locationz00) =
							((obj_t) BgL_locz00_63), BUNSPEC);
						{
							obj_t BgL_auxz00_6599;

							{	/* Llib/error.scm 675 */
								obj_t BgL_arg1573z00_1938;

								{	/* Llib/error.scm 675 */
									obj_t BgL_arg1574z00_1939;

									{	/* Llib/error.scm 675 */
										obj_t BgL_classz00_3958;

										BgL_classz00_3958 =
											BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00;
										BgL_arg1574z00_1939 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_3958);
									}
									BgL_arg1573z00_1938 = VECTOR_REF(BgL_arg1574z00_1939, 2L);
								}
								BgL_auxz00_6599 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg1573z00_1938);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1089z00_1937)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_6599), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1089z00_1937)))->
								BgL_procz00) = ((obj_t) BgL_procz00_64), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1089z00_1937)))->BgL_msgz00) =
							((obj_t) BgL_msgz00_1936), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1089z00_1937)))->BgL_objz00) =
							((obj_t) BgL_objz00_65), BUNSPEC);
						((((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)
									COBJECT(BgL_new1089z00_1937))->BgL_indexz00) =
							((obj_t) BINT(BgL_lenz00_66)), BUNSPEC);
						return ((obj_t) BgL_new1089z00_1937);
					}
				}
			}
		}

	}



/* &index-out-of-bounds2810 */
	obj_t BGl_z62indexzd2outzd2ofzd2bounds2810zb0zz__errorz00(obj_t
		BgL_envz00_5291, obj_t BgL_fnamez00_5292, obj_t BgL_locz00_5293,
		obj_t BgL_procz00_5294, obj_t BgL_objz00_5295, obj_t BgL_lenz00_5296,
		obj_t BgL_iz00_5297)
	{
		{	/* Llib/error.scm 664 */
			{	/* Llib/error.scm 665 */
				int BgL_auxz00_6623;
				int BgL_auxz00_6614;

				{	/* Llib/error.scm 665 */
					obj_t BgL_tmpz00_6624;

					if (INTEGERP(BgL_iz00_5297))
						{	/* Llib/error.scm 665 */
							BgL_tmpz00_6624 = BgL_iz00_5297;
						}
					else
						{
							obj_t BgL_auxz00_6627;

							BgL_auxz00_6627 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(26928L), BGl_string2911z00zz__errorz00,
								BGl_string2877z00zz__errorz00, BgL_iz00_5297);
							FAILURE(BgL_auxz00_6627, BFALSE, BFALSE);
						}
					BgL_auxz00_6623 = CINT(BgL_tmpz00_6624);
				}
				{	/* Llib/error.scm 665 */
					obj_t BgL_tmpz00_6615;

					if (INTEGERP(BgL_lenz00_5296))
						{	/* Llib/error.scm 665 */
							BgL_tmpz00_6615 = BgL_lenz00_5296;
						}
					else
						{
							obj_t BgL_auxz00_6618;

							BgL_auxz00_6618 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(26928L), BGl_string2911z00zz__errorz00,
								BGl_string2877z00zz__errorz00, BgL_lenz00_5296);
							FAILURE(BgL_auxz00_6618, BFALSE, BFALSE);
						}
					BgL_auxz00_6614 = CINT(BgL_tmpz00_6615);
				}
				return
					BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00
					(BgL_fnamez00_5292, BgL_locz00_5293, BgL_procz00_5294,
					BgL_objz00_5295, BgL_auxz00_6614, BgL_auxz00_6623);
			}
		}

	}



/* warning */
	BGL_EXPORTED_DEF obj_t BGl_warningz00zz__errorz00(obj_t BgL_argsz00_68)
	{
		{	/* Llib/error.scm 684 */
			{	/* Llib/error.scm 686 */
				BgL_z62warningz62_bglt BgL_arg1592z00_1959;

				{	/* Llib/error.scm 686 */
					BgL_z62warningz62_bglt BgL_new1091z00_1960;

					{	/* Llib/error.scm 686 */
						BgL_z62warningz62_bglt BgL_new1090z00_1963;

						BgL_new1090z00_1963 =
							((BgL_z62warningz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62warningz62_bgl))));
						{	/* Llib/error.scm 686 */
							long BgL_arg1596z00_1964;

							BgL_arg1596z00_1964 =
								BGL_CLASS_NUM(BGl_z62warningz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1090z00_1963),
								BgL_arg1596z00_1964);
						}
						BgL_new1091z00_1960 = BgL_new1090z00_1963;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1091z00_1960)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1091z00_1960)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_6641;

						{	/* Llib/error.scm 686 */
							obj_t BgL_arg1593z00_1961;

							{	/* Llib/error.scm 686 */
								obj_t BgL_arg1595z00_1962;

								{	/* Llib/error.scm 686 */
									obj_t BgL_classz00_3963;

									BgL_classz00_3963 = BGl_z62warningz62zz__objectz00;
									BgL_arg1595z00_1962 = BGL_CLASS_ALL_FIELDS(BgL_classz00_3963);
								}
								BgL_arg1593z00_1961 = VECTOR_REF(BgL_arg1595z00_1962, 2L);
							}
							BgL_auxz00_6641 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1593z00_1961);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1091z00_1960)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_6641), BUNSPEC);
					}
					((((BgL_z62warningz62_bglt) COBJECT(BgL_new1091z00_1960))->
							BgL_argsz00) = ((obj_t) BgL_argsz00_68), BUNSPEC);
					BgL_arg1592z00_1959 = BgL_new1091z00_1960;
				}
				BGL_TAIL return
					BGl_warningzd2notifyzd2zz__errorz00(((obj_t) BgL_arg1592z00_1959));
			}
		}

	}



/* &warning2811 */
	obj_t BGl_z62warning2811z62zz__errorz00(obj_t BgL_envz00_5298,
		obj_t BgL_argsz00_5299)
	{
		{	/* Llib/error.scm 684 */
			return BGl_warningz00zz__errorz00(BgL_argsz00_5299);
		}

	}



/* warning/location */
	BGL_EXPORTED_DEF obj_t BGl_warningzf2locationzf2zz__errorz00(obj_t
		BgL_fnamez00_69, obj_t BgL_locz00_70, obj_t BgL_argsz00_71)
	{
		{	/* Llib/error.scm 691 */
			{	/* Llib/error.scm 693 */
				BgL_z62warningz62_bglt BgL_arg1597z00_3965;

				{	/* Llib/error.scm 693 */
					BgL_z62warningz62_bglt BgL_new1093z00_3966;

					{	/* Llib/error.scm 693 */
						BgL_z62warningz62_bglt BgL_new1092z00_3967;

						BgL_new1092z00_3967 =
							((BgL_z62warningz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62warningz62_bgl))));
						{	/* Llib/error.scm 693 */
							long BgL_arg1600z00_3968;

							BgL_arg1600z00_3968 =
								BGL_CLASS_NUM(BGl_z62warningz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1092z00_3967),
								BgL_arg1600z00_3968);
						}
						BgL_new1093z00_3966 = BgL_new1092z00_3967;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1093z00_3966)))->
							BgL_fnamez00) = ((obj_t) BgL_fnamez00_69), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1093z00_3966)))->BgL_locationz00) =
						((obj_t) BgL_locz00_70), BUNSPEC);
					{
						obj_t BgL_auxz00_6659;

						{	/* Llib/error.scm 693 */
							obj_t BgL_arg1598z00_3969;

							{	/* Llib/error.scm 693 */
								obj_t BgL_arg1599z00_3970;

								{	/* Llib/error.scm 693 */
									obj_t BgL_classz00_3974;

									BgL_classz00_3974 = BGl_z62warningz62zz__objectz00;
									BgL_arg1599z00_3970 = BGL_CLASS_ALL_FIELDS(BgL_classz00_3974);
								}
								BgL_arg1598z00_3969 = VECTOR_REF(BgL_arg1599z00_3970, 2L);
							}
							BgL_auxz00_6659 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1598z00_3969);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1093z00_3966)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_6659), BUNSPEC);
					}
					((((BgL_z62warningz62_bglt) COBJECT(BgL_new1093z00_3966))->
							BgL_argsz00) = ((obj_t) BgL_argsz00_71), BUNSPEC);
					BgL_arg1597z00_3965 = BgL_new1093z00_3966;
				}
				return
					BGl_warningzd2notifyzd2zz__errorz00(((obj_t) BgL_arg1597z00_3965));
			}
		}

	}



/* &warning/location */
	obj_t BGl_z62warningzf2locationz90zz__errorz00(obj_t BgL_envz00_5300,
		obj_t BgL_fnamez00_5301, obj_t BgL_locz00_5302, obj_t BgL_argsz00_5303)
	{
		{	/* Llib/error.scm 691 */
			return
				BGl_warningzf2locationzf2zz__errorz00(BgL_fnamez00_5301,
				BgL_locz00_5302, BgL_argsz00_5303);
		}

	}



/* warning/loc */
	BGL_EXPORTED_DEF obj_t BGl_warningzf2loczf2zz__errorz00(obj_t BgL_locz00_72,
		obj_t BgL_argsz00_73)
	{
		{	/* Llib/error.scm 698 */
			if (PAIRP(BgL_locz00_72))
				{	/* Llib/error.scm 699 */
					obj_t BgL_cdrzd2204zd2_1977;

					BgL_cdrzd2204zd2_1977 = CDR(((obj_t) BgL_locz00_72));
					if ((CAR(((obj_t) BgL_locz00_72)) == BGl_symbol2879z00zz__errorz00))
						{	/* Llib/error.scm 699 */
							if (PAIRP(BgL_cdrzd2204zd2_1977))
								{	/* Llib/error.scm 699 */
									obj_t BgL_cdrzd2208zd2_1981;

									BgL_cdrzd2208zd2_1981 = CDR(BgL_cdrzd2204zd2_1977);
									if (PAIRP(BgL_cdrzd2208zd2_1981))
										{	/* Llib/error.scm 699 */
											if (NULLP(CDR(BgL_cdrzd2208zd2_1981)))
												{	/* Llib/error.scm 699 */
													obj_t BgL_arg1610z00_1985;
													obj_t BgL_arg1612z00_1986;

													BgL_arg1610z00_1985 = CAR(BgL_cdrzd2204zd2_1977);
													BgL_arg1612z00_1986 = CAR(BgL_cdrzd2208zd2_1981);
													{	/* Llib/error.scm 701 */
														obj_t BgL_list1615z00_3986;

														{	/* Llib/error.scm 701 */
															obj_t BgL_arg1616z00_3987;

															BgL_arg1616z00_3987 =
																MAKE_YOUNG_PAIR(BgL_argsz00_73, BNIL);
															BgL_list1615z00_3986 =
																MAKE_YOUNG_PAIR(BgL_arg1612z00_1986,
																BgL_arg1616z00_3987);
														}
														return
															BGl_applyz00zz__r4_control_features_6_9z00
															(BGl_warningzf2locationzd2envz20zz__errorz00,
															BgL_arg1610z00_1985, BgL_list1615z00_3986);
													}
												}
											else
												{	/* Llib/error.scm 699 */
													return BGl_warningz00zz__errorz00(BgL_argsz00_73);
												}
										}
									else
										{	/* Llib/error.scm 699 */
											return BGl_warningz00zz__errorz00(BgL_argsz00_73);
										}
								}
							else
								{	/* Llib/error.scm 699 */
									return BGl_warningz00zz__errorz00(BgL_argsz00_73);
								}
						}
					else
						{	/* Llib/error.scm 699 */
							return BGl_warningz00zz__errorz00(BgL_argsz00_73);
						}
				}
			else
				{	/* Llib/error.scm 699 */
					return BGl_warningz00zz__errorz00(BgL_argsz00_73);
				}
		}

	}



/* &warning/loc */
	obj_t BGl_z62warningzf2locz90zz__errorz00(obj_t BgL_envz00_5304,
		obj_t BgL_locz00_5305, obj_t BgL_argsz00_5306)
	{
		{	/* Llib/error.scm 698 */
			return
				BGl_warningzf2loczf2zz__errorz00(BgL_locz00_5305, BgL_argsz00_5306);
		}

	}



/* warning/c-location */
	BGL_EXPORTED_DEF obj_t BGl_warningzf2czd2locationz20zz__errorz00(char
		*BgL_fnamez00_74, long BgL_locz00_75, obj_t BgL_argsz00_76)
	{
		{	/* Llib/error.scm 712 */
			{	/* Llib/error.scm 713 */
				obj_t BgL_list1618z00_3993;

				{	/* Llib/error.scm 713 */
					obj_t BgL_arg1619z00_3994;

					BgL_arg1619z00_3994 = MAKE_YOUNG_PAIR(BgL_argsz00_76, BNIL);
					BgL_list1618z00_3993 =
						MAKE_YOUNG_PAIR(BINT(BgL_locz00_75), BgL_arg1619z00_3994);
				}
				return
					BGl_applyz00zz__r4_control_features_6_9z00
					(BGl_warningzf2locationzd2envz20zz__errorz00,
					string_to_bstring(BgL_fnamez00_74), BgL_list1618z00_3993);
			}
		}

	}



/* &warning/c-location */
	obj_t BGl_z62warningzf2czd2locationz42zz__errorz00(obj_t BgL_envz00_5307,
		obj_t BgL_fnamez00_5308, obj_t BgL_locz00_5309, obj_t BgL_argsz00_5310)
	{
		{	/* Llib/error.scm 712 */
			{	/* Llib/error.scm 713 */
				long BgL_auxz00_6710;
				char *BgL_auxz00_6701;

				{	/* Llib/error.scm 713 */
					obj_t BgL_tmpz00_6711;

					if (INTEGERP(BgL_locz00_5309))
						{	/* Llib/error.scm 713 */
							BgL_tmpz00_6711 = BgL_locz00_5309;
						}
					else
						{
							obj_t BgL_auxz00_6714;

							BgL_auxz00_6714 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(28915L), BGl_string2912z00zz__errorz00,
								BGl_string2877z00zz__errorz00, BgL_locz00_5309);
							FAILURE(BgL_auxz00_6714, BFALSE, BFALSE);
						}
					BgL_auxz00_6710 = (long) CINT(BgL_tmpz00_6711);
				}
				{	/* Llib/error.scm 713 */
					obj_t BgL_tmpz00_6702;

					if (STRINGP(BgL_fnamez00_5308))
						{	/* Llib/error.scm 713 */
							BgL_tmpz00_6702 = BgL_fnamez00_5308;
						}
					else
						{
							obj_t BgL_auxz00_6705;

							BgL_auxz00_6705 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(28915L), BGl_string2912z00zz__errorz00,
								BGl_string2902z00zz__errorz00, BgL_fnamez00_5308);
							FAILURE(BgL_auxz00_6705, BFALSE, BFALSE);
						}
					BgL_auxz00_6701 = BSTRING_TO_STRING(BgL_tmpz00_6702);
				}
				return
					BGl_warningzf2czd2locationz20zz__errorz00(BgL_auxz00_6701,
					BgL_auxz00_6710, BgL_argsz00_5310);
			}
		}

	}



/* notify-&error */
	obj_t BGl_notifyzd2z62errorzb0zz__errorz00(obj_t BgL_errz00_77)
	{
		{	/* Llib/error.scm 718 */
			{	/* Llib/error.scm 719 */
				obj_t BgL_portz00_1994;

				{	/* Llib/error.scm 719 */
					obj_t BgL_tmpz00_6720;

					BgL_tmpz00_6720 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_portz00_1994 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6720);
				}
				bgl_flush_output_port(BgL_portz00_1994);
				{	/* Llib/error.scm 722 */
					obj_t BgL_list1620z00_1996;

					BgL_list1620z00_1996 = MAKE_YOUNG_PAIR(BgL_portz00_1994, BNIL);
					BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2900z00zz__errorz00,
						BgL_list1620z00_1996);
				}
				{	/* Llib/error.scm 723 */
					obj_t BgL_arg1621z00_1997;

					BgL_arg1621z00_1997 =
						(((BgL_z62errorz62_bglt) COBJECT(
								((BgL_z62errorz62_bglt) BgL_errz00_77)))->BgL_procz00);
					BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1621z00_1997,
						BgL_portz00_1994);
				}
				{	/* Llib/error.scm 724 */
					obj_t BgL_list1622z00_1998;

					BgL_list1622z00_1998 = MAKE_YOUNG_PAIR(BgL_portz00_1994, BNIL);
					BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2913z00zz__errorz00,
						BgL_list1622z00_1998);
				}
				{	/* Llib/error.scm 725 */
					obj_t BgL_arg1623z00_1999;

					BgL_arg1623z00_1999 =
						(((BgL_z62errorz62_bglt) COBJECT(
								((BgL_z62errorz62_bglt) BgL_errz00_77)))->BgL_msgz00);
					BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1623z00_1999,
						BgL_portz00_1994);
				}
				if (
					((((BgL_z62errorz62_bglt) COBJECT(
									((BgL_z62errorz62_bglt) BgL_errz00_77)))->BgL_objz00) ==
						BGl_symbol2914z00zz__errorz00))
					{	/* Llib/error.scm 726 */
						BFALSE;
					}
				else
					{	/* Llib/error.scm 726 */
						{	/* Llib/error.scm 727 */
							obj_t BgL_list1626z00_2002;

							BgL_list1626z00_2002 = MAKE_YOUNG_PAIR(BgL_portz00_1994, BNIL);
							BGl_displayz00zz__r4_output_6_10_3z00
								(BGl_string2916z00zz__errorz00, BgL_list1626z00_2002);
						}
						{	/* Llib/error.scm 728 */
							obj_t BgL_arg1627z00_2003;

							BgL_arg1627z00_2003 =
								(((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_errz00_77)))->BgL_objz00);
							BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1627z00_2003,
								BgL_portz00_1994);
						}
					}
				{	/* Llib/error.scm 729 */
					obj_t BgL_list1629z00_2005;

					BgL_list1629z00_2005 = MAKE_YOUNG_PAIR(BgL_portz00_1994, BNIL);
					BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1629z00_2005);
				}
				{	/* Llib/error.scm 730 */
					obj_t BgL_arg1630z00_2006;

					{	/* Llib/error.scm 730 */
						obj_t BgL__ortest_1095z00_2010;

						BgL__ortest_1095z00_2010 =
							(((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt)
										((BgL_z62errorz62_bglt) BgL_errz00_77))))->BgL_stackz00);
						if (CBOOL(BgL__ortest_1095z00_2010))
							{	/* Llib/error.scm 730 */
								BgL_arg1630z00_2006 = BgL__ortest_1095z00_2010;
							}
						else
							{	/* Llib/error.scm 730 */

								{	/* Llib/error.scm 730 */

									BgL_arg1630z00_2006 =
										BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE);
								}
							}
					}
					{	/* Llib/error.scm 278 */

						BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_arg1630z00_2006,
							BgL_portz00_1994, BINT(1L));
					}
				}
				return bgl_flush_output_port(BgL_portz00_1994);
			}
		}

	}



/* notify-&error/location-no-loc */
	obj_t BGl_notifyzd2z62errorzf2locationzd2nozd2locz42zz__errorz00(obj_t
		BgL_errz00_78)
	{
		{	/* Llib/error.scm 736 */
			{	/* Llib/error.scm 737 */
				obj_t BgL_portz00_2012;

				{	/* Llib/error.scm 737 */
					obj_t BgL_tmpz00_6754;

					BgL_tmpz00_6754 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_portz00_2012 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6754);
				}
				bgl_flush_output_port(BgL_portz00_2012);
				{	/* Llib/error.scm 740 */
					obj_t BgL_list1631z00_2014;

					BgL_list1631z00_2014 = MAKE_YOUNG_PAIR(BgL_portz00_2012, BNIL);
					BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1631z00_2014);
				}
				{	/* Llib/error.scm 741 */
					obj_t BgL_arg1632z00_2015;
					obj_t BgL_arg1633z00_2016;

					BgL_arg1632z00_2015 =
						(((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62errorz62_bglt) BgL_errz00_78))))->BgL_fnamez00);
					BgL_arg1633z00_2016 =
						(((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62errorz62_bglt) BgL_errz00_78))))->BgL_locationz00);
					{	/* Llib/error.scm 741 */
						obj_t BgL_list1634z00_2017;

						{	/* Llib/error.scm 741 */
							obj_t BgL_arg1635z00_2018;

							{	/* Llib/error.scm 741 */
								obj_t BgL_arg1636z00_2019;

								{	/* Llib/error.scm 741 */
									obj_t BgL_arg1637z00_2020;

									{	/* Llib/error.scm 741 */
										obj_t BgL_arg1639z00_2021;

										BgL_arg1639z00_2021 =
											MAKE_YOUNG_PAIR(BCHAR(((unsigned char) ':')), BNIL);
										BgL_arg1637z00_2020 =
											MAKE_YOUNG_PAIR(BgL_arg1633z00_2016, BgL_arg1639z00_2021);
									}
									BgL_arg1636z00_2019 =
										MAKE_YOUNG_PAIR(BGl_string2917z00zz__errorz00,
										BgL_arg1637z00_2020);
								}
								BgL_arg1635z00_2018 =
									MAKE_YOUNG_PAIR(BgL_arg1632z00_2015, BgL_arg1636z00_2019);
							}
							BgL_list1634z00_2017 =
								MAKE_YOUNG_PAIR(BGl_string2918z00zz__errorz00,
								BgL_arg1635z00_2018);
						}
						BGl_fprintz00zz__r4_output_6_10_3z00(BgL_portz00_2012,
							BgL_list1634z00_2017);
				}}
				BGL_TAIL return BGl_notifyzd2z62errorzb0zz__errorz00(BgL_errz00_78);
			}
		}

	}



/* notify-&error/location-loc */
	obj_t BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00(obj_t
		BgL_errz00_79, obj_t BgL_fnamez00_80, obj_t BgL_linez00_81,
		obj_t BgL_locz00_82, obj_t BgL_stringz00_83, obj_t BgL_colz00_84)
	{
		{	/* Llib/error.scm 747 */
		BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00:
			{	/* Llib/error.scm 748 */
				long BgL_lenz00_2022;

				BgL_lenz00_2022 = STRING_LENGTH(((obj_t) BgL_stringz00_83));
				if ((BgL_lenz00_2022 > 256L))
					{	/* Llib/error.scm 750 */
						obj_t BgL_nstringz00_2025;

						{	/* Llib/error.scm 751 */
							long BgL_arg1646z00_2031;
							long BgL_arg1647z00_2032;

							{	/* Llib/error.scm 751 */
								long BgL_arg1649z00_2033;

								BgL_arg1649z00_2033 = ((long) CINT(BgL_colz00_84) - 60L);
								{	/* Llib/error.scm 751 */
									obj_t BgL_list1650z00_2034;

									BgL_list1650z00_2034 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg1649z00_2033), BNIL);
									BgL_arg1646z00_2031 =
										BGl_maxfxz00zz__r4_numbers_6_5_fixnumz00(0L,
										BgL_list1650z00_2034);
							}}
							BgL_arg1647z00_2032 =
								BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(
								((long) CINT(BgL_colz00_84) + 10L), BNIL);
							BgL_nstringz00_2025 =
								BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_83,
								BgL_arg1646z00_2031, BgL_arg1647z00_2032);
						}
						{	/* Llib/error.scm 751 */

							{	/* Llib/error.scm 753 */
								obj_t BgL_arg1641z00_2026;
								long BgL_arg1642z00_2027;

								{	/* Llib/error.scm 753 */
									obj_t BgL_list1643z00_2028;

									{	/* Llib/error.scm 753 */
										obj_t BgL_arg1644z00_2029;

										{	/* Llib/error.scm 753 */
											obj_t BgL_arg1645z00_2030;

											BgL_arg1645z00_2030 =
												MAKE_YOUNG_PAIR(BGl_string2919z00zz__errorz00, BNIL);
											BgL_arg1644z00_2029 =
												MAKE_YOUNG_PAIR(BgL_nstringz00_2025,
												BgL_arg1645z00_2030);
										}
										BgL_list1643z00_2028 =
											MAKE_YOUNG_PAIR(BGl_string2919z00zz__errorz00,
											BgL_arg1644z00_2029);
									}
									BgL_arg1641z00_2026 =
										BGl_stringzd2appendzd2zz__r4_strings_6_7z00
										(BgL_list1643z00_2028);
								}
								BgL_arg1642z00_2027 = (60L + 3L);
								{
									obj_t BgL_colz00_6793;
									obj_t BgL_stringz00_6792;

									BgL_stringz00_6792 = BgL_arg1641z00_2026;
									BgL_colz00_6793 = BINT(BgL_arg1642z00_2027);
									BgL_colz00_84 = BgL_colz00_6793;
									BgL_stringz00_83 = BgL_stringz00_6792;
									goto BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00;
								}
							}
						}
					}
				else
					{	/* Llib/error.scm 756 */
						obj_t BgL_portz00_2038;

						{	/* Llib/error.scm 756 */
							obj_t BgL_tmpz00_6795;

							BgL_tmpz00_6795 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_portz00_2038 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6795);
						}
						bgl_flush_output_port(BgL_portz00_2038);
						{	/* Llib/error.scm 759 */
							obj_t BgL_list1653z00_2039;

							BgL_list1653z00_2039 = MAKE_YOUNG_PAIR(BgL_portz00_2038, BNIL);
							BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1653z00_2039);
						}
						{	/* Llib/error.scm 760 */
							obj_t BgL_spacezd2stringzd2_2040;

							if (((long) CINT(BgL_colz00_84) > 0L))
								{	/* Llib/error.scm 760 */
									BgL_spacezd2stringzd2_2040 =
										make_string(
										(long) CINT(BgL_colz00_84), ((unsigned char) ' '));
								}
							else
								{	/* Llib/error.scm 760 */
									BgL_spacezd2stringzd2_2040 = BGl_string2920z00zz__errorz00;
								}
							{	/* Llib/error.scm 760 */
								long BgL_lz00_2041;

								BgL_lz00_2041 = STRING_LENGTH(((obj_t) BgL_stringz00_83));
								{	/* Llib/error.scm 761 */
									obj_t BgL_nzd2colzd2_2042;

									if (((long) CINT(BgL_colz00_84) >= BgL_lz00_2041))
										{	/* Llib/error.scm 762 */
											BgL_nzd2colzd2_2042 = BINT(BgL_lz00_2041);
										}
									else
										{	/* Llib/error.scm 762 */
											BgL_nzd2colzd2_2042 = BgL_colz00_84;
										}
									{	/* Llib/error.scm 762 */

										BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_nzd2colzd2_2042,
											BgL_stringz00_83, BgL_spacezd2stringzd2_2040);
										BGl_printzd2cursorzd2zz__errorz00(BgL_fnamez00_80,
											BgL_linez00_81, BgL_locz00_82, BgL_stringz00_83,
											BgL_spacezd2stringzd2_2040);
										{	/* Llib/error.scm 768 */
											obj_t BgL_list1654z00_2043;

											BgL_list1654z00_2043 =
												MAKE_YOUNG_PAIR(BgL_portz00_2038, BNIL);
											BGl_displayz00zz__r4_output_6_10_3z00
												(BGl_string2900z00zz__errorz00, BgL_list1654z00_2043);
										}
										{	/* Llib/error.scm 769 */
											obj_t BgL_arg1655z00_2044;

											BgL_arg1655z00_2044 =
												(((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_errz00_79)))->
												BgL_procz00);
											BGl_displayzd2circlezd2zz__pp_circlez00
												(BgL_arg1655z00_2044, BgL_portz00_2038);
										}
										{	/* Llib/error.scm 770 */
											obj_t BgL_list1656z00_2045;

											BgL_list1656z00_2045 =
												MAKE_YOUNG_PAIR(BgL_portz00_2038, BNIL);
											BGl_newlinez00zz__r4_output_6_10_3z00
												(BgL_list1656z00_2045);
										}
										{	/* Llib/error.scm 771 */
											obj_t BgL_arg1658z00_2046;

											BgL_arg1658z00_2046 =
												(((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_errz00_79)))->
												BgL_msgz00);
											BGl_displayzd2circlezd2zz__pp_circlez00
												(BgL_arg1658z00_2046, BgL_portz00_2038);
										}
										if (
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_errz00_79)))->
													BgL_objz00) == BGl_symbol2914z00zz__errorz00))
											{	/* Llib/error.scm 772 */
												BFALSE;
											}
										else
											{	/* Llib/error.scm 772 */
												{	/* Llib/error.scm 773 */
													obj_t BgL_list1661z00_2049;

													BgL_list1661z00_2049 =
														MAKE_YOUNG_PAIR(BgL_portz00_2038, BNIL);
													BGl_displayz00zz__r4_output_6_10_3z00
														(BGl_string2916z00zz__errorz00,
														BgL_list1661z00_2049);
												}
												{	/* Llib/error.scm 774 */
													obj_t BgL_arg1662z00_2050;

													BgL_arg1662z00_2050 =
														(((BgL_z62errorz62_bglt) COBJECT(
																((BgL_z62errorz62_bglt) BgL_errz00_79)))->
														BgL_objz00);
													BGl_displayzd2circlezd2zz__pp_circlez00
														(BgL_arg1662z00_2050, BgL_portz00_2038);
												}
											}
										{	/* Llib/error.scm 775 */
											obj_t BgL_list1665z00_2052;

											BgL_list1665z00_2052 =
												MAKE_YOUNG_PAIR(BgL_portz00_2038, BNIL);
											BGl_newlinez00zz__r4_output_6_10_3z00
												(BgL_list1665z00_2052);
										}
										{	/* Llib/error.scm 776 */
											obj_t BgL_arg1666z00_2053;

											{	/* Llib/error.scm 776 */
												obj_t BgL__ortest_1098z00_2057;

												BgL__ortest_1098z00_2057 =
													(((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																((BgL_z62errorz62_bglt) BgL_errz00_79))))->
													BgL_stackz00);
												if (CBOOL(BgL__ortest_1098z00_2057))
													{	/* Llib/error.scm 776 */
														BgL_arg1666z00_2053 = BgL__ortest_1098z00_2057;
													}
												else
													{	/* Llib/error.scm 776 */

														{	/* Llib/error.scm 776 */

															BgL_arg1666z00_2053 =
																BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE);
														}
													}
											}
											{	/* Llib/error.scm 278 */

												BGl_displayzd2tracezd2stackz00zz__errorz00
													(BgL_arg1666z00_2053, BgL_portz00_2038, BINT(1L));
											}
										}
										return bgl_flush_output_port(BgL_portz00_2038);
									}
								}
							}
						}
					}
			}
		}

	}



/* notify-&error/loc */
	obj_t BGl_notifyzd2z62errorzf2locz42zz__errorz00(obj_t BgL_errz00_85,
		obj_t BgL_fnamez00_86, obj_t BgL_locz00_87)
	{
		{	/* Llib/error.scm 783 */
			{	/* Llib/error.scm 784 */
				bool_t BgL_test3307z00_6844;

				if (STRINGP(BgL_fnamez00_86))
					{	/* Llib/error.scm 784 */
						if (INTEGERP(BgL_locz00_87))
							{	/* Llib/error.scm 784 */
								BgL_test3307z00_6844 = ((bool_t) 0);
							}
						else
							{	/* Llib/error.scm 784 */
								BgL_test3307z00_6844 = ((bool_t) 1);
							}
					}
				else
					{	/* Llib/error.scm 784 */
						BgL_test3307z00_6844 = ((bool_t) 1);
					}
				if (BgL_test3307z00_6844)
					{	/* Llib/error.scm 784 */
						return BGl_notifyzd2z62errorzb0zz__errorz00(BgL_errz00_85);
					}
				else
					{	/* Llib/error.scm 786 */
						obj_t BgL_filez00_2064;

						{	/* Llib/error.scm 787 */
							obj_t BgL_arg1672z00_2068;

							{	/* Llib/error.scm 787 */
								obj_t BgL_list1673z00_2069;

								{	/* Llib/error.scm 787 */
									obj_t BgL_arg1674z00_2070;

									{	/* Llib/error.scm 787 */
										obj_t BgL_arg1675z00_2071;

										BgL_arg1675z00_2071 = MAKE_YOUNG_PAIR(BNIL, BNIL);
										BgL_arg1674z00_2070 =
											MAKE_YOUNG_PAIR(BgL_locz00_87, BgL_arg1675z00_2071);
									}
									BgL_list1673z00_2069 =
										MAKE_YOUNG_PAIR(BgL_fnamez00_86, BgL_arg1674z00_2070);
								}
								BgL_arg1672z00_2068 =
									BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
									(BGl_symbol2879z00zz__errorz00, BgL_list1673z00_2069);
							}
							BgL_filez00_2064 =
								BGl_locationzd2linezd2numz00zz__errorz00(BgL_arg1672z00_2068);
						}
						{	/* Llib/error.scm 787 */
							obj_t BgL_lnumz00_2065;
							obj_t BgL_lpointz00_2066;
							obj_t BgL_lstringz00_2067;

							{	/* Llib/error.scm 788 */
								obj_t BgL_tmpz00_4016;

								{	/* Llib/error.scm 788 */
									int BgL_tmpz00_6855;

									BgL_tmpz00_6855 = (int) (1L);
									BgL_tmpz00_4016 = BGL_MVALUES_VAL(BgL_tmpz00_6855);
								}
								{	/* Llib/error.scm 788 */
									int BgL_tmpz00_6858;

									BgL_tmpz00_6858 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_6858, BUNSPEC);
								}
								BgL_lnumz00_2065 = BgL_tmpz00_4016;
							}
							{	/* Llib/error.scm 788 */
								obj_t BgL_tmpz00_4017;

								{	/* Llib/error.scm 788 */
									int BgL_tmpz00_6861;

									BgL_tmpz00_6861 = (int) (2L);
									BgL_tmpz00_4017 = BGL_MVALUES_VAL(BgL_tmpz00_6861);
								}
								{	/* Llib/error.scm 788 */
									int BgL_tmpz00_6864;

									BgL_tmpz00_6864 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_6864, BUNSPEC);
								}
								BgL_lpointz00_2066 = BgL_tmpz00_4017;
							}
							{	/* Llib/error.scm 788 */
								obj_t BgL_tmpz00_4018;

								{	/* Llib/error.scm 788 */
									int BgL_tmpz00_6867;

									BgL_tmpz00_6867 = (int) (3L);
									BgL_tmpz00_4018 = BGL_MVALUES_VAL(BgL_tmpz00_6867);
								}
								{	/* Llib/error.scm 788 */
									int BgL_tmpz00_6870;

									BgL_tmpz00_6870 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_6870, BUNSPEC);
								}
								BgL_lstringz00_2067 = BgL_tmpz00_4018;
							}
							if (CBOOL(BgL_lnumz00_2065))
								{	/* Llib/error.scm 788 */
									return
										BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00
										(BgL_errz00_85, BgL_fnamez00_86, BgL_lnumz00_2065,
										BgL_locz00_87, BgL_lstringz00_2067, BgL_lpointz00_2066);
								}
							else
								{	/* Llib/error.scm 788 */
									return
										BGl_notifyzd2z62errorzf2locationzd2nozd2locz42zz__errorz00
										(BgL_errz00_85);
								}
						}
					}
			}
		}

	}



/* open-for-error */
	obj_t BGl_openzd2forzd2errorz00zz__errorz00(obj_t BgL_fnamez00_88)
	{
		{	/* Llib/error.scm 795 */
			if (fexists(BSTRING_TO_STRING(BgL_fnamez00_88)))
				{	/* Llib/error.scm 797 */
					if (bgl_directoryp(BSTRING_TO_STRING(BgL_fnamez00_88)))
						{	/* Llib/error.scm 798 */
							return BFALSE;
						}
					else
						{	/* Llib/error.scm 799 */
							obj_t BgL_env1107z00_2077;

							BgL_env1107z00_2077 = BGL_CURRENT_DYNAMIC_ENV();
							{	/* Llib/error.scm 799 */
								obj_t BgL_cell1102z00_2078;

								BgL_cell1102z00_2078 = MAKE_STACK_CELL(BUNSPEC);
								{	/* Llib/error.scm 799 */
									obj_t BgL_val1106z00_2079;

									BgL_val1106z00_2079 =
										BGl_zc3z04exitza31682ze3ze70z60zz__errorz00(BgL_fnamez00_88,
										BgL_cell1102z00_2078, BgL_env1107z00_2077);
									if ((BgL_val1106z00_2079 == BgL_cell1102z00_2078))
										{	/* Llib/error.scm 799 */
											{	/* Llib/error.scm 799 */
												int BgL_tmpz00_6888;

												BgL_tmpz00_6888 = (int) (0L);
												BGL_SIGSETMASK(BgL_tmpz00_6888);
											}
											{	/* Llib/error.scm 799 */
												obj_t BgL_arg1681z00_2081;

												BgL_arg1681z00_2081 =
													CELL_REF(((obj_t) BgL_val1106z00_2079));
												return BFALSE;
											}
										}
									else
										{	/* Llib/error.scm 799 */
											return BgL_val1106z00_2079;
										}
								}
							}
						}
				}
			else
				{	/* Llib/error.scm 802 */
					bool_t BgL_test3314z00_6893;

					{	/* Llib/error.scm 802 */
						long BgL_l1z00_4029;

						BgL_l1z00_4029 = STRING_LENGTH(((obj_t) BgL_fnamez00_88));
						if ((BgL_l1z00_4029 == 5L))
							{	/* Llib/error.scm 802 */
								int BgL_arg2324z00_4032;

								{	/* Llib/error.scm 802 */
									char *BgL_auxz00_6901;
									char *BgL_tmpz00_6898;

									BgL_auxz00_6901 =
										BSTRING_TO_STRING(BGl_string2921z00zz__errorz00);
									BgL_tmpz00_6898 =
										BSTRING_TO_STRING(((obj_t) BgL_fnamez00_88));
									BgL_arg2324z00_4032 =
										memcmp(BgL_tmpz00_6898, BgL_auxz00_6901, BgL_l1z00_4029);
								}
								BgL_test3314z00_6893 = ((long) (BgL_arg2324z00_4032) == 0L);
							}
						else
							{	/* Llib/error.scm 802 */
								BgL_test3314z00_6893 = ((bool_t) 0);
							}
					}
					if (BgL_test3314z00_6893)
						{	/* Llib/error.scm 803 */
							obj_t BgL_arg1690z00_2099;

							{	/* Llib/error.scm 803 */
								obj_t BgL_arg1691z00_2103;

								{	/* Llib/error.scm 803 */
									obj_t BgL_tmpz00_6906;

									BgL_tmpz00_6906 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_arg1691z00_2103 =
										BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_6906);
								}
								BgL_arg1690z00_2099 =
									BGL_INPUT_PORT_BUFFER(BgL_arg1691z00_2103);
							}
							{	/* Ieee/port.scm 469 */
								long BgL_endz00_2102;

								BgL_endz00_2102 = STRING_LENGTH(BgL_arg1690z00_2099);
								{	/* Ieee/port.scm 469 */

									return
										BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
										(BgL_arg1690z00_2099, BINT(0L), BINT(BgL_endz00_2102));
								}
							}
						}
					else
						{	/* Llib/error.scm 804 */
							bool_t BgL_test3316z00_6914;

							{	/* Llib/error.scm 804 */

								BgL_test3316z00_6914 =
									BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00
									(BGl_string2922z00zz__errorz00, BgL_fnamez00_88, BFALSE,
									BFALSE, BFALSE, BFALSE);
							}
							if (BgL_test3316z00_6914)
								{	/* Llib/error.scm 805 */
									obj_t BgL_arg1697z00_2111;

									{	/* Ieee/string.scm 194 */
										long BgL_endz00_2117;

										BgL_endz00_2117 = STRING_LENGTH(((obj_t) BgL_fnamez00_88));
										{	/* Ieee/string.scm 194 */

											BgL_arg1697z00_2111 =
												BGl_substringz00zz__r4_strings_6_7z00(BgL_fnamez00_88,
												9L, BgL_endz00_2117);
									}}
									{	/* Ieee/port.scm 469 */
										long BgL_endz00_2114;

										BgL_endz00_2114 = STRING_LENGTH(BgL_arg1697z00_2111);
										{	/* Ieee/port.scm 469 */

											return
												BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
												(BgL_arg1697z00_2111, BINT(0L), BINT(BgL_endz00_2114));
										}
									}
								}
							else
								{	/* Llib/error.scm 804 */
									return BFALSE;
								}
						}
				}
		}

	}



/* <@exit:1682>~0 */
	obj_t BGl_zc3z04exitza31682ze3ze70z60zz__errorz00(obj_t BgL_fnamez00_5380,
		obj_t BgL_cell1102z00_5379, obj_t BgL_env1107z00_5378)
	{
		{	/* Llib/error.scm 799 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1111z00_2083;

			if (SET_EXIT(BgL_an_exit1111z00_2083))
				{
					return BGL_EXIT_VALUE();
				}
			else
				{
#if (SIGSETJMP_SAVESIGS == 0)
				 // MS: CARE 5 jan 2021: see runtime/Clib/csystem.c
				 // bgl_restore_signal_handlers();
#endif

					BgL_an_exit1111z00_2083 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1107z00_5378, BgL_an_exit1111z00_2083, 1L);
					{	/* Llib/error.scm 799 */
						obj_t BgL_escape1103z00_2084;

						BgL_escape1103z00_2084 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1107z00_5378);
						{	/* Llib/error.scm 799 */
							obj_t BgL_res1114z00_2085;

							{	/* Llib/error.scm 799 */
								obj_t BgL_ohs1099z00_2086;

								BgL_ohs1099z00_2086 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1107z00_5378);
								{	/* Llib/error.scm 799 */
									obj_t BgL_hds1100z00_2087;

									BgL_hds1100z00_2087 =
										MAKE_STACK_PAIR(BgL_escape1103z00_2084,
										BgL_cell1102z00_5379);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1107z00_5378,
										BgL_hds1100z00_2087);
									BUNSPEC;
									{	/* Llib/error.scm 799 */
										obj_t BgL_exitd1108z00_2088;

										BgL_exitd1108z00_2088 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1107z00_5378);
										{	/* Llib/error.scm 799 */
											obj_t BgL_tmp1110z00_2089;

											{	/* Llib/error.scm 799 */
												obj_t BgL_arg1687z00_2094;

												BgL_arg1687z00_2094 =
													BGL_EXITD_PROTECT(BgL_exitd1108z00_2088);
												BgL_tmp1110z00_2089 =
													MAKE_YOUNG_PAIR(BgL_ohs1099z00_2086,
													BgL_arg1687z00_2094);
											}
											{	/* Llib/error.scm 799 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1108z00_2088,
													BgL_tmp1110z00_2089);
												BUNSPEC;
												{	/* Llib/error.scm 801 */
													obj_t BgL_tmp1109z00_2090;

													{	/* Ieee/port.scm 466 */

														BgL_tmp1109z00_2090 =
															BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
															(BgL_fnamez00_5380, BTRUE, BINT(5000000L));
													}
													{	/* Llib/error.scm 799 */
														bool_t BgL_test3317z00_6936;

														{	/* Llib/error.scm 799 */
															obj_t BgL_arg2609z00_4022;

															BgL_arg2609z00_4022 =
																BGL_EXITD_PROTECT(BgL_exitd1108z00_2088);
															BgL_test3317z00_6936 = PAIRP(BgL_arg2609z00_4022);
														}
														if (BgL_test3317z00_6936)
															{	/* Llib/error.scm 799 */
																obj_t BgL_arg2607z00_4023;

																{	/* Llib/error.scm 799 */
																	obj_t BgL_arg2608z00_4024;

																	BgL_arg2608z00_4024 =
																		BGL_EXITD_PROTECT(BgL_exitd1108z00_2088);
																	BgL_arg2607z00_4023 =
																		CDR(((obj_t) BgL_arg2608z00_4024));
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1108z00_2088,
																	BgL_arg2607z00_4023);
																BUNSPEC;
															}
														else
															{	/* Llib/error.scm 799 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1107z00_5378,
														BgL_ohs1099z00_2086);
													BUNSPEC;
													BgL_res1114z00_2085 = BgL_tmp1109z00_2090;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1107z00_5378);
							return BgL_res1114z00_2085;
						}
					}
				}
		}

	}



/* filename-for-error */
	obj_t BGl_filenamezd2forzd2errorz00zz__errorz00(obj_t BgL_filez00_89,
		long BgL_sza7za7_90)
	{
		{	/* Llib/error.scm 812 */
			if ((BgL_sza7za7_90 < 0L))
				{	/* Llib/error.scm 814 */
					return BGl_string2919z00zz__errorz00;
				}
			else
				{	/* Llib/error.scm 814 */
					if (fexists(BSTRING_TO_STRING(BgL_filez00_89)))
						{	/* Llib/error.scm 816 */
							return BGl_relativezd2filezd2namez00zz__errorz00(BgL_filez00_89);
						}
					else
						{	/* Llib/error.scm 818 */
							bool_t BgL_test3320z00_6951;

							{	/* Llib/error.scm 818 */

								BgL_test3320z00_6951 =
									BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00
									(BGl_string2922z00zz__errorz00, BgL_filez00_89, BFALSE,
									BFALSE, BFALSE, BFALSE);
							}
							if (BgL_test3320z00_6951)
								{	/* Llib/error.scm 818 */
									if (
										(STRING_LENGTH(
												((obj_t) BgL_filez00_89)) <= (9L + BgL_sza7za7_90)))
										{	/* Ieee/string.scm 194 */
											long BgL_endz00_2143;

											BgL_endz00_2143 = STRING_LENGTH(((obj_t) BgL_filez00_89));
											{	/* Ieee/string.scm 194 */

												return
													BGl_substringz00zz__r4_strings_6_7z00(BgL_filez00_89,
													9L, BgL_endz00_2143);
											}
										}
									else
										{	/* Llib/error.scm 821 */
											obj_t BgL_arg1705z00_2144;

											BgL_arg1705z00_2144 =
												BGl_substringz00zz__r4_strings_6_7z00(BgL_filez00_89,
												9L, (BgL_sza7za7_90 + 6L));
											{	/* Llib/error.scm 821 */
												obj_t BgL_list1706z00_2145;

												{	/* Llib/error.scm 821 */
													obj_t BgL_arg1707z00_2146;

													BgL_arg1707z00_2146 =
														MAKE_YOUNG_PAIR(BGl_string2919z00zz__errorz00,
														BNIL);
													BgL_list1706z00_2145 =
														MAKE_YOUNG_PAIR(BgL_arg1705z00_2144,
														BgL_arg1707z00_2146);
												}
												return
													BGl_stringzd2appendzd2zz__r4_strings_6_7z00
													(BgL_list1706z00_2145);
											}
										}
								}
							else
								{	/* Llib/error.scm 818 */
									if (
										(STRING_LENGTH(((obj_t) BgL_filez00_89)) <= BgL_sza7za7_90))
										{	/* Llib/error.scm 822 */
											return BgL_filez00_89;
										}
									else
										{	/* Llib/error.scm 822 */
											if ((BgL_sza7za7_90 < 4L))
												{	/* Llib/error.scm 824 */
													return BGl_string2919z00zz__errorz00;
												}
											else
												{	/* Llib/error.scm 827 */
													obj_t BgL_arg1714z00_2153;

													BgL_arg1714z00_2153 =
														BGl_substringz00zz__r4_strings_6_7z00
														(BgL_filez00_89, 0L, (BgL_sza7za7_90 - 3L));
													{	/* Llib/error.scm 827 */
														obj_t BgL_list1715z00_2154;

														{	/* Llib/error.scm 827 */
															obj_t BgL_arg1716z00_2155;

															BgL_arg1716z00_2155 =
																MAKE_YOUNG_PAIR(BGl_string2919z00zz__errorz00,
																BNIL);
															BgL_list1715z00_2154 =
																MAKE_YOUNG_PAIR(BgL_arg1714z00_2153,
																BgL_arg1716z00_2155);
														}
														return
															BGl_stringzd2appendzd2zz__r4_strings_6_7z00
															(BgL_list1715z00_2154);
													}
												}
										}
								}
						}
				}
		}

	}



/* location-line-num */
	obj_t BGl_locationzd2linezd2numz00zz__errorz00(obj_t BgL_locz00_93)
	{
		{	/* Llib/error.scm 832 */
			{

				if (PAIRP(BgL_locz00_93))
					{	/* Llib/error.scm 886 */
						obj_t BgL_cdrzd2226zd2_2180;

						BgL_cdrzd2226zd2_2180 = CDR(((obj_t) BgL_locz00_93));
						if ((CAR(((obj_t) BgL_locz00_93)) == BGl_symbol2879z00zz__errorz00))
							{	/* Llib/error.scm 886 */
								if (PAIRP(BgL_cdrzd2226zd2_2180))
									{	/* Llib/error.scm 886 */
										obj_t BgL_cdrzd2230zd2_2184;

										BgL_cdrzd2230zd2_2184 = CDR(BgL_cdrzd2226zd2_2180);
										if (PAIRP(BgL_cdrzd2230zd2_2184))
											{	/* Llib/error.scm 886 */
												if (NULLP(CDR(BgL_cdrzd2230zd2_2184)))
													{	/* Llib/error.scm 886 */
														return
															BGl_locationzd2atze70z35zz__errorz00(CAR
															(BgL_cdrzd2226zd2_2180),
															CAR(BgL_cdrzd2230zd2_2184));
													}
												else
													{	/* Llib/error.scm 886 */
													BgL_tagzd2217zd2_2177:
														{	/* Llib/error.scm 897 */
															obj_t BgL_list1758z00_2219;

															{	/* Llib/error.scm 897 */
																obj_t BgL_arg1759z00_2220;

																{	/* Llib/error.scm 897 */
																	obj_t BgL_arg1760z00_2221;

																	{	/* Llib/error.scm 897 */
																		obj_t BgL_arg1761z00_2222;

																		BgL_arg1761z00_2222 =
																			MAKE_YOUNG_PAIR(BFALSE, BNIL);
																		BgL_arg1760z00_2221 =
																			MAKE_YOUNG_PAIR(BFALSE,
																			BgL_arg1761z00_2222);
																	}
																	BgL_arg1759z00_2220 =
																		MAKE_YOUNG_PAIR(BFALSE,
																		BgL_arg1760z00_2221);
																}
																BgL_list1758z00_2219 =
																	MAKE_YOUNG_PAIR(BFALSE, BgL_arg1759z00_2220);
															}
															BGL_TAIL return
																BGl_valuesz00zz__r5_control_features_6_4z00
																(BgL_list1758z00_2219);
														}
													}
											}
										else
											{	/* Llib/error.scm 886 */
												goto BgL_tagzd2217zd2_2177;
											}
									}
								else
									{	/* Llib/error.scm 886 */
										goto BgL_tagzd2217zd2_2177;
									}
							}
						else
							{	/* Llib/error.scm 886 */
								if (
									(CAR(
											((obj_t) BgL_locz00_93)) ==
										BGl_symbol2923z00zz__errorz00))
									{	/* Llib/error.scm 886 */
										if (PAIRP(BgL_cdrzd2226zd2_2180))
											{	/* Llib/error.scm 886 */
												obj_t BgL_cdrzd2282zd2_2195;

												BgL_cdrzd2282zd2_2195 = CDR(BgL_cdrzd2226zd2_2180);
												if (PAIRP(BgL_cdrzd2282zd2_2195))
													{	/* Llib/error.scm 886 */
														obj_t BgL_cdrzd2287zd2_2197;

														BgL_cdrzd2287zd2_2197 = CDR(BgL_cdrzd2282zd2_2195);
														if (PAIRP(BgL_cdrzd2287zd2_2197))
															{	/* Llib/error.scm 886 */
																if (NULLP(CDR(BgL_cdrzd2287zd2_2197)))
																	{	/* Llib/error.scm 886 */
																		return
																			BGl_locationzd2linezd2colze70ze7zz__errorz00
																			(CAR(BgL_cdrzd2226zd2_2180),
																			CAR(BgL_cdrzd2282zd2_2195),
																			CAR(BgL_cdrzd2287zd2_2197));
																	}
																else
																	{	/* Llib/error.scm 886 */
																		goto BgL_tagzd2217zd2_2177;
																	}
															}
														else
															{	/* Llib/error.scm 886 */
																goto BgL_tagzd2217zd2_2177;
															}
													}
												else
													{	/* Llib/error.scm 886 */
														goto BgL_tagzd2217zd2_2177;
													}
											}
										else
											{	/* Llib/error.scm 886 */
												goto BgL_tagzd2217zd2_2177;
											}
									}
								else
									{	/* Llib/error.scm 886 */
										obj_t BgL_cdrzd2314zd2_2205;

										BgL_cdrzd2314zd2_2205 = CDR(((obj_t) BgL_locz00_93));
										if (
											(CAR(
													((obj_t) BgL_locz00_93)) ==
												BGl_symbol2925z00zz__errorz00))
											{	/* Llib/error.scm 886 */
												if (PAIRP(BgL_cdrzd2314zd2_2205))
													{	/* Llib/error.scm 886 */
														obj_t BgL_cdrzd2318zd2_2209;

														BgL_cdrzd2318zd2_2209 = CDR(BgL_cdrzd2314zd2_2205);
														if (PAIRP(BgL_cdrzd2318zd2_2209))
															{	/* Llib/error.scm 886 */
																if (NULLP(CDR(BgL_cdrzd2318zd2_2209)))
																	{	/* Llib/error.scm 886 */
																		return
																			BGl_locationzd2linezd2colze70ze7zz__errorz00
																			(CAR(BgL_cdrzd2314zd2_2205),
																			CAR(BgL_cdrzd2318zd2_2209), BINT(0L));
																	}
																else
																	{	/* Llib/error.scm 886 */
																		goto BgL_tagzd2217zd2_2177;
																	}
															}
														else
															{	/* Llib/error.scm 886 */
																goto BgL_tagzd2217zd2_2177;
															}
													}
												else
													{	/* Llib/error.scm 886 */
														goto BgL_tagzd2217zd2_2177;
													}
											}
										else
											{	/* Llib/error.scm 886 */
												goto BgL_tagzd2217zd2_2177;
											}
									}
							}
					}
				else
					{	/* Llib/error.scm 886 */
						goto BgL_tagzd2217zd2_2177;
					}
			}
		}

	}



/* location-at~0 */
	obj_t BGl_locationzd2atze70z35zz__errorz00(obj_t BgL_filez00_2231,
		obj_t BgL_pointz00_2232)
	{
		{	/* Llib/error.scm 862 */
			{	/* Llib/error.scm 841 */
				bool_t BgL_test3338z00_7038;

				if (STRINGP(BgL_filez00_2231))
					{	/* Llib/error.scm 841 */
						BgL_test3338z00_7038 =
							BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_pointz00_2232);
					}
				else
					{	/* Llib/error.scm 841 */
						BgL_test3338z00_7038 = ((bool_t) 0);
					}
				if (BgL_test3338z00_7038)
					{	/* Llib/error.scm 842 */
						obj_t BgL_fnamez00_2236;

						{	/* Llib/error.scm 842 */
							bool_t BgL_test3340z00_7042;

							{	/* Llib/error.scm 842 */
								obj_t BgL_string1z00_4064;

								BgL_string1z00_4064 = string_to_bstring(OS_CLASS);
								{	/* Llib/error.scm 842 */
									long BgL_l1z00_4066;

									BgL_l1z00_4066 = STRING_LENGTH(BgL_string1z00_4064);
									if ((BgL_l1z00_4066 == 5L))
										{	/* Llib/error.scm 842 */
											int BgL_arg2324z00_4069;

											{	/* Llib/error.scm 842 */
												char *BgL_auxz00_7049;
												char *BgL_tmpz00_7047;

												BgL_auxz00_7049 =
													BSTRING_TO_STRING(BGl_string2927z00zz__errorz00);
												BgL_tmpz00_7047 =
													BSTRING_TO_STRING(BgL_string1z00_4064);
												BgL_arg2324z00_4069 =
													memcmp(BgL_tmpz00_7047, BgL_auxz00_7049,
													BgL_l1z00_4066);
											}
											BgL_test3340z00_7042 =
												((long) (BgL_arg2324z00_4069) == 0L);
										}
									else
										{	/* Llib/error.scm 842 */
											BgL_test3340z00_7042 = ((bool_t) 0);
										}
								}
							}
							if (BgL_test3340z00_7042)
								{	/* Llib/error.scm 842 */
									BgL_fnamez00_2236 =
										BGl_stringzd2replacezd2zz__r4_strings_6_7z00
										(BGl_uncygdrivez00zz__errorz00(BgL_filez00_2231),
										(char) (((unsigned char) '/')),
										(char) (((unsigned char) '\\')));
								}
							else
								{	/* Llib/error.scm 842 */
									BgL_fnamez00_2236 = BgL_filez00_2231;
								}
						}
						{	/* Llib/error.scm 842 */
							obj_t BgL_portz00_2237;

							BgL_portz00_2237 =
								BGl_openzd2forzd2errorz00zz__errorz00(BgL_fnamez00_2236);
							{	/* Llib/error.scm 845 */

								if (INPUT_PORTP(BgL_portz00_2237))
									{	/* Llib/error.scm 847 */
										obj_t BgL_exitd1117z00_2239;

										BgL_exitd1117z00_2239 = BGL_EXITD_TOP_AS_OBJ();
										{	/* Llib/error.scm 861 */
											obj_t BgL_zc3z04anonymousza31797ze3z87_5312;

											BgL_zc3z04anonymousza31797ze3z87_5312 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31797ze3ze5zz__errorz00,
												(int) (0L), (int) (1L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31797ze3z87_5312,
												(int) (0L), BgL_portz00_2237);
											{	/* Llib/error.scm 847 */
												obj_t BgL_arg2610z00_4076;

												{	/* Llib/error.scm 847 */
													obj_t BgL_arg2611z00_4077;

													BgL_arg2611z00_4077 =
														BGL_EXITD_PROTECT(BgL_exitd1117z00_2239);
													BgL_arg2610z00_4076 =
														MAKE_YOUNG_PAIR
														(BgL_zc3z04anonymousza31797ze3z87_5312,
														BgL_arg2611z00_4077);
												}
												BGL_EXITD_PROTECT_SET(BgL_exitd1117z00_2239,
													BgL_arg2610z00_4076);
												BUNSPEC;
											}
											{	/* Llib/error.scm 851 */
												obj_t BgL_tmp1119z00_2241;

												{
													obj_t BgL_ostringz00_2243;
													long BgL_lnumz00_2244;
													long BgL_oposz00_2245;

													BgL_ostringz00_2243 = BFALSE;
													BgL_lnumz00_2244 = 1L;
													BgL_oposz00_2245 = 0L;
												BgL_zc3z04anonymousza31772ze3z87_2246:
													{	/* Llib/error.scm 851 */
														obj_t BgL_lstringz00_2247;

														BgL_lstringz00_2247 =
															BGl_readzd2linezd2zz__r4_input_6_10_2z00
															(BgL_portz00_2237);
														if (EOF_OBJECTP(BgL_lstringz00_2247))
															{	/* Llib/error.scm 853 */
																obj_t BgL_arg1775z00_2249;
																long BgL_arg1776z00_2250;
																obj_t BgL_arg1777z00_2251;

																{	/* Llib/error.scm 835 */
																	obj_t BgL_relz00_4078;

																	BgL_relz00_4078 =
																		BGl_relativezd2filezd2namez00zz__errorz00
																		(BgL_fnamez00_2236);
																	if ((STRING_LENGTH(((obj_t) BgL_relz00_4078))
																			<
																			STRING_LENGTH(((obj_t)
																					BgL_fnamez00_2236))))
																		{	/* Llib/error.scm 836 */
																			BgL_arg1775z00_2249 = BgL_relz00_4078;
																		}
																	else
																		{	/* Llib/error.scm 836 */
																			BgL_arg1775z00_2249 = BgL_fnamez00_2236;
																		}
																}
																BgL_arg1776z00_2250 =
																	(1L +
																	((long) CINT(BgL_pointz00_2232) -
																		BgL_oposz00_2245));
																if (STRINGP(BgL_ostringz00_2243))
																	{	/* Llib/error.scm 855 */
																		obj_t BgL_list1785z00_2258;

																		{	/* Llib/error.scm 855 */
																			obj_t BgL_arg1786z00_2259;

																			BgL_arg1786z00_2259 =
																				MAKE_YOUNG_PAIR
																				(BGl_string2928z00zz__errorz00, BNIL);
																			BgL_list1785z00_2258 =
																				MAKE_YOUNG_PAIR(BgL_ostringz00_2243,
																				BgL_arg1786z00_2259);
																		}
																		BgL_arg1777z00_2251 =
																			BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																			(BgL_list1785z00_2258);
																	}
																else
																	{	/* Llib/error.scm 854 */
																		BgL_arg1777z00_2251 =
																			BGl_string2928z00zz__errorz00;
																	}
																{	/* Llib/error.scm 853 */
																	obj_t BgL_list1778z00_2252;

																	{	/* Llib/error.scm 853 */
																		obj_t BgL_arg1779z00_2253;

																		{	/* Llib/error.scm 853 */
																			obj_t BgL_arg1781z00_2254;

																			{	/* Llib/error.scm 853 */
																				obj_t BgL_arg1782z00_2255;

																				BgL_arg1782z00_2255 =
																					MAKE_YOUNG_PAIR(BgL_arg1777z00_2251,
																					BNIL);
																				BgL_arg1781z00_2254 =
																					MAKE_YOUNG_PAIR(BINT
																					(BgL_arg1776z00_2250),
																					BgL_arg1782z00_2255);
																			}
																			BgL_arg1779z00_2253 =
																				MAKE_YOUNG_PAIR(BINT(BgL_lnumz00_2244),
																				BgL_arg1781z00_2254);
																		}
																		BgL_list1778z00_2252 =
																			MAKE_YOUNG_PAIR(BgL_arg1775z00_2249,
																			BgL_arg1779z00_2253);
																	}
																	BgL_tmp1119z00_2241 =
																		BGl_valuesz00zz__r5_control_features_6_4z00
																		(BgL_list1778z00_2252);
																}
															}
														else
															{	/* Llib/error.scm 857 */
																bool_t BgL_test3346z00_7095;

																{	/* Llib/error.scm 857 */
																	long BgL_arg1796z00_2270;

																	{	/* Llib/error.scm 857 */
																		obj_t BgL_tmpz00_7096;

																		BgL_tmpz00_7096 =
																			((obj_t) BgL_portz00_2237);
																		BgL_arg1796z00_2270 =
																			INPUT_PORT_FILEPOS(BgL_tmpz00_7096);
																	}
																	BgL_test3346z00_7095 =
																		(BgL_arg1796z00_2270 >
																		(long) CINT(BgL_pointz00_2232));
																}
																if (BgL_test3346z00_7095)
																	{	/* Llib/error.scm 858 */
																		obj_t BgL_arg1789z00_2262;
																		long BgL_arg1790z00_2263;

																		{	/* Llib/error.scm 835 */
																			obj_t BgL_relz00_4092;

																			BgL_relz00_4092 =
																				BGl_relativezd2filezd2namez00zz__errorz00
																				(BgL_filez00_2231);
																			if ((STRING_LENGTH(((obj_t)
																							BgL_relz00_4092)) <
																					STRING_LENGTH(((obj_t)
																							BgL_filez00_2231))))
																				{	/* Llib/error.scm 836 */
																					BgL_arg1789z00_2262 = BgL_relz00_4092;
																				}
																			else
																				{	/* Llib/error.scm 836 */
																					BgL_arg1789z00_2262 =
																						BgL_filez00_2231;
																				}
																		}
																		BgL_arg1790z00_2263 =
																			(
																			(long) CINT(BgL_pointz00_2232) -
																			BgL_oposz00_2245);
																		{	/* Llib/error.scm 858 */
																			obj_t BgL_list1791z00_2264;

																			{	/* Llib/error.scm 858 */
																				obj_t BgL_arg1792z00_2265;

																				{	/* Llib/error.scm 858 */
																					obj_t BgL_arg1793z00_2266;

																					{	/* Llib/error.scm 858 */
																						obj_t BgL_arg1794z00_2267;

																						BgL_arg1794z00_2267 =
																							MAKE_YOUNG_PAIR
																							(BgL_lstringz00_2247, BNIL);
																						BgL_arg1793z00_2266 =
																							MAKE_YOUNG_PAIR(BINT
																							(BgL_arg1790z00_2263),
																							BgL_arg1794z00_2267);
																					}
																					BgL_arg1792z00_2265 =
																						MAKE_YOUNG_PAIR(BINT
																						(BgL_lnumz00_2244),
																						BgL_arg1793z00_2266);
																				}
																				BgL_list1791z00_2264 =
																					MAKE_YOUNG_PAIR(BgL_arg1789z00_2262,
																					BgL_arg1792z00_2265);
																			}
																			BgL_tmp1119z00_2241 =
																				BGl_valuesz00zz__r5_control_features_6_4z00
																				(BgL_list1791z00_2264);
																	}}
																else
																	{	/* Llib/error.scm 859 */
																		long BgL_oposz00_2268;

																		{	/* Llib/error.scm 859 */
																			obj_t BgL_tmpz00_7117;

																			BgL_tmpz00_7117 =
																				((obj_t) BgL_portz00_2237);
																			BgL_oposz00_2268 =
																				INPUT_PORT_FILEPOS(BgL_tmpz00_7117);
																		}
																		{
																			long BgL_oposz00_7123;
																			long BgL_lnumz00_7121;
																			obj_t BgL_ostringz00_7120;

																			BgL_ostringz00_7120 = BgL_lstringz00_2247;
																			BgL_lnumz00_7121 =
																				(BgL_lnumz00_2244 + 1L);
																			BgL_oposz00_7123 = BgL_oposz00_2268;
																			BgL_oposz00_2245 = BgL_oposz00_7123;
																			BgL_lnumz00_2244 = BgL_lnumz00_7121;
																			BgL_ostringz00_2243 = BgL_ostringz00_7120;
																			goto
																				BgL_zc3z04anonymousza31772ze3z87_2246;
																		}
																	}
															}
													}
												}
												{	/* Llib/error.scm 847 */
													bool_t BgL_test3348z00_7124;

													{	/* Llib/error.scm 847 */
														obj_t BgL_arg2609z00_4105;

														BgL_arg2609z00_4105 =
															BGL_EXITD_PROTECT(BgL_exitd1117z00_2239);
														BgL_test3348z00_7124 = PAIRP(BgL_arg2609z00_4105);
													}
													if (BgL_test3348z00_7124)
														{	/* Llib/error.scm 847 */
															obj_t BgL_arg2607z00_4106;

															{	/* Llib/error.scm 847 */
																obj_t BgL_arg2608z00_4107;

																BgL_arg2608z00_4107 =
																	BGL_EXITD_PROTECT(BgL_exitd1117z00_2239);
																BgL_arg2607z00_4106 =
																	CDR(((obj_t) BgL_arg2608z00_4107));
															}
															BGL_EXITD_PROTECT_SET(BgL_exitd1117z00_2239,
																BgL_arg2607z00_4106);
															BUNSPEC;
														}
													else
														{	/* Llib/error.scm 847 */
															BFALSE;
														}
												}
												bgl_close_input_port(BgL_portz00_2237);
												return BgL_tmp1119z00_2241;
											}
										}
									}
								else
									{	/* Llib/error.scm 862 */
										obj_t BgL_arg1798z00_2274;

										{	/* Llib/error.scm 835 */
											obj_t BgL_relz00_4110;

											BgL_relz00_4110 =
												BGl_relativezd2filezd2namez00zz__errorz00
												(BgL_filez00_2231);
											if ((STRING_LENGTH(((obj_t) BgL_relz00_4110)) <
													STRING_LENGTH(BgL_filez00_2231)))
												{	/* Llib/error.scm 836 */
													BgL_arg1798z00_2274 = BgL_relz00_4110;
												}
											else
												{	/* Llib/error.scm 836 */
													BgL_arg1798z00_2274 = BgL_filez00_2231;
												}
										}
										{	/* Llib/error.scm 862 */
											obj_t BgL_list1799z00_2275;

											{	/* Llib/error.scm 862 */
												obj_t BgL_arg1800z00_2276;

												{	/* Llib/error.scm 862 */
													obj_t BgL_arg1801z00_2277;

													{	/* Llib/error.scm 862 */
														obj_t BgL_arg1803z00_2278;

														BgL_arg1803z00_2278 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
														BgL_arg1801z00_2277 =
															MAKE_YOUNG_PAIR(BgL_pointz00_2232,
															BgL_arg1803z00_2278);
													}
													BgL_arg1800z00_2276 =
														MAKE_YOUNG_PAIR(BFALSE, BgL_arg1801z00_2277);
												}
												BgL_list1799z00_2275 =
													MAKE_YOUNG_PAIR(BgL_arg1798z00_2274,
													BgL_arg1800z00_2276);
											}
											return
												BGl_valuesz00zz__r5_control_features_6_4z00
												(BgL_list1799z00_2275);
										}
									}
							}
						}
					}
				else
					{	/* Llib/error.scm 841 */
						return BFALSE;
					}
			}
		}

	}



/* location-line-col~0 */
	obj_t BGl_locationzd2linezd2colze70ze7zz__errorz00(obj_t BgL_filez00_2284,
		obj_t BgL_linez00_2285, obj_t BgL_colz00_2286)
	{
		{	/* Llib/error.scm 884 */
			{	/* Llib/error.scm 865 */
				bool_t BgL_test3350z00_7143;

				if (((long) CINT(BgL_linez00_2285) >= 0L))
					{	/* Llib/error.scm 865 */
						BgL_test3350z00_7143 = ((long) CINT(BgL_colz00_2286) >= 0L);
					}
				else
					{	/* Llib/error.scm 865 */
						BgL_test3350z00_7143 = ((bool_t) 0);
					}
				if (BgL_test3350z00_7143)
					{	/* Llib/error.scm 866 */
						obj_t BgL_fnamez00_2290;

						{	/* Llib/error.scm 866 */
							bool_t BgL_test3352z00_7149;

							{	/* Llib/error.scm 866 */
								obj_t BgL_string1z00_4120;

								BgL_string1z00_4120 = string_to_bstring(OS_CLASS);
								{	/* Llib/error.scm 866 */
									long BgL_l1z00_4122;

									BgL_l1z00_4122 = STRING_LENGTH(BgL_string1z00_4120);
									if ((BgL_l1z00_4122 == 5L))
										{	/* Llib/error.scm 866 */
											int BgL_arg2324z00_4125;

											{	/* Llib/error.scm 866 */
												char *BgL_auxz00_7156;
												char *BgL_tmpz00_7154;

												BgL_auxz00_7156 =
													BSTRING_TO_STRING(BGl_string2927z00zz__errorz00);
												BgL_tmpz00_7154 =
													BSTRING_TO_STRING(BgL_string1z00_4120);
												BgL_arg2324z00_4125 =
													memcmp(BgL_tmpz00_7154, BgL_auxz00_7156,
													BgL_l1z00_4122);
											}
											BgL_test3352z00_7149 =
												((long) (BgL_arg2324z00_4125) == 0L);
										}
									else
										{	/* Llib/error.scm 866 */
											BgL_test3352z00_7149 = ((bool_t) 0);
										}
								}
							}
							if (BgL_test3352z00_7149)
								{	/* Llib/error.scm 866 */
									BgL_fnamez00_2290 =
										BGl_stringzd2replacezd2zz__r4_strings_6_7z00
										(BGl_uncygdrivez00zz__errorz00(BgL_filez00_2284),
										(char) (((unsigned char) '/')),
										(char) (((unsigned char) '\\')));
								}
							else
								{	/* Llib/error.scm 866 */
									BgL_fnamez00_2290 = BgL_filez00_2284;
								}
						}
						{	/* Llib/error.scm 866 */
							obj_t BgL_portz00_2291;

							BgL_portz00_2291 =
								BGl_openzd2forzd2errorz00zz__errorz00(BgL_fnamez00_2290);
							{	/* Llib/error.scm 869 */

								if (INPUT_PORTP(BgL_portz00_2291))
									{	/* Llib/error.scm 871 */
										obj_t BgL_exitd1121z00_2293;

										BgL_exitd1121z00_2293 = BGL_EXITD_TOP_AS_OBJ();
										{	/* Llib/error.scm 882 */
											obj_t BgL_zc3z04anonymousza31834ze3z87_5311;

											BgL_zc3z04anonymousza31834ze3z87_5311 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31834ze3ze5zz__errorz00,
												(int) (0L), (int) (1L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31834ze3z87_5311,
												(int) (0L), BgL_portz00_2291);
											{	/* Llib/error.scm 871 */
												obj_t BgL_arg2610z00_4132;

												{	/* Llib/error.scm 871 */
													obj_t BgL_arg2611z00_4133;

													BgL_arg2611z00_4133 =
														BGL_EXITD_PROTECT(BgL_exitd1121z00_2293);
													BgL_arg2610z00_4132 =
														MAKE_YOUNG_PAIR
														(BgL_zc3z04anonymousza31834ze3z87_5311,
														BgL_arg2611z00_4133);
												}
												BGL_EXITD_PROTECT_SET(BgL_exitd1121z00_2293,
													BgL_arg2610z00_4132);
												BUNSPEC;
											}
											{	/* Llib/error.scm 874 */
												obj_t BgL_tmp1123z00_2295;

												{
													obj_t BgL_ostringz00_2297;
													obj_t BgL_lnumz00_2298;

													BgL_ostringz00_2297 = BFALSE;
													BgL_lnumz00_2298 = BgL_linez00_2285;
												BgL_zc3z04anonymousza31813ze3z87_2299:
													{	/* Llib/error.scm 874 */
														obj_t BgL_lstringz00_2300;

														BgL_lstringz00_2300 =
															BGl_readzd2linezd2zz__r4_input_6_10_2z00
															(BgL_portz00_2291);
														if (EOF_OBJECTP(BgL_lstringz00_2300))
															{	/* Llib/error.scm 876 */
																obj_t BgL_arg1815z00_2302;
																long BgL_arg1816z00_2303;
																obj_t BgL_arg1817z00_2304;

																{	/* Llib/error.scm 835 */
																	obj_t BgL_relz00_4134;

																	BgL_relz00_4134 =
																		BGl_relativezd2filezd2namez00zz__errorz00
																		(BgL_filez00_2284);
																	if ((STRING_LENGTH(((obj_t) BgL_relz00_4134))
																			<
																			STRING_LENGTH(((obj_t)
																					BgL_filez00_2284))))
																		{	/* Llib/error.scm 836 */
																			BgL_arg1815z00_2302 = BgL_relz00_4134;
																		}
																	else
																		{	/* Llib/error.scm 836 */
																			BgL_arg1815z00_2302 = BgL_filez00_2284;
																		}
																}
																BgL_arg1816z00_2303 =
																	((long) CINT(BgL_colz00_2286) + 1L);
																{	/* Llib/error.scm 877 */
																	obj_t BgL_list1822z00_2309;

																	{	/* Llib/error.scm 877 */
																		obj_t BgL_arg1824z00_2310;

																		BgL_arg1824z00_2310 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2928z00zz__errorz00, BNIL);
																		BgL_list1822z00_2309 =
																			MAKE_YOUNG_PAIR(BgL_ostringz00_2297,
																			BgL_arg1824z00_2310);
																	}
																	BgL_arg1817z00_2304 =
																		BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																		(BgL_list1822z00_2309);
																}
																{	/* Llib/error.scm 876 */
																	obj_t BgL_list1818z00_2305;

																	{	/* Llib/error.scm 876 */
																		obj_t BgL_arg1819z00_2306;

																		{	/* Llib/error.scm 876 */
																			obj_t BgL_arg1820z00_2307;

																			{	/* Llib/error.scm 876 */
																				obj_t BgL_arg1821z00_2308;

																				BgL_arg1821z00_2308 =
																					MAKE_YOUNG_PAIR(BgL_arg1817z00_2304,
																					BNIL);
																				BgL_arg1820z00_2307 =
																					MAKE_YOUNG_PAIR(BINT
																					(BgL_arg1816z00_2303),
																					BgL_arg1821z00_2308);
																			}
																			BgL_arg1819z00_2306 =
																				MAKE_YOUNG_PAIR(BgL_linez00_2285,
																				BgL_arg1820z00_2307);
																		}
																		BgL_list1818z00_2305 =
																			MAKE_YOUNG_PAIR(BgL_arg1815z00_2302,
																			BgL_arg1819z00_2306);
																	}
																	BgL_tmp1123z00_2295 =
																		BGl_valuesz00zz__r5_control_features_6_4z00
																		(BgL_list1818z00_2305);
															}}
														else
															{	/* Llib/error.scm 875 */
																if (((long) CINT(BgL_lnumz00_2298) == 0L))
																	{	/* Llib/error.scm 879 */
																		obj_t BgL_arg1827z00_2312;

																		{	/* Llib/error.scm 835 */
																			obj_t BgL_relz00_4144;

																			BgL_relz00_4144 =
																				BGl_relativezd2filezd2namez00zz__errorz00
																				(BgL_filez00_2284);
																			if ((STRING_LENGTH(((obj_t)
																							BgL_relz00_4144)) <
																					STRING_LENGTH(((obj_t)
																							BgL_filez00_2284))))
																				{	/* Llib/error.scm 836 */
																					BgL_arg1827z00_2312 = BgL_relz00_4144;
																				}
																			else
																				{	/* Llib/error.scm 836 */
																					BgL_arg1827z00_2312 =
																						BgL_filez00_2284;
																				}
																		}
																		{	/* Llib/error.scm 879 */
																			obj_t BgL_list1828z00_2313;

																			{	/* Llib/error.scm 879 */
																				obj_t BgL_arg1829z00_2314;

																				{	/* Llib/error.scm 879 */
																					obj_t BgL_arg1830z00_2315;

																					{	/* Llib/error.scm 879 */
																						obj_t BgL_arg1832z00_2316;

																						BgL_arg1832z00_2316 =
																							MAKE_YOUNG_PAIR
																							(BgL_lstringz00_2300, BNIL);
																						BgL_arg1830z00_2315 =
																							MAKE_YOUNG_PAIR(BgL_colz00_2286,
																							BgL_arg1832z00_2316);
																					}
																					BgL_arg1829z00_2314 =
																						MAKE_YOUNG_PAIR(BgL_linez00_2285,
																						BgL_arg1830z00_2315);
																				}
																				BgL_list1828z00_2313 =
																					MAKE_YOUNG_PAIR(BgL_arg1827z00_2312,
																					BgL_arg1829z00_2314);
																			}
																			BgL_tmp1123z00_2295 =
																				BGl_valuesz00zz__r5_control_features_6_4z00
																				(BgL_list1828z00_2313);
																		}
																	}
																else
																	{	/* Llib/error.scm 880 */
																		long BgL_oposz00_2317;

																		{	/* Llib/error.scm 880 */
																			obj_t BgL_tmpz00_7213;

																			BgL_tmpz00_7213 =
																				((obj_t) BgL_portz00_2291);
																			BgL_oposz00_2317 =
																				INPUT_PORT_FILEPOS(BgL_tmpz00_7213);
																		}
																		{	/* Llib/error.scm 881 */
																			long BgL_arg1833z00_2318;

																			BgL_arg1833z00_2318 =
																				((long) CINT(BgL_lnumz00_2298) - 1L);
																			{
																				obj_t BgL_lnumz00_7219;
																				obj_t BgL_ostringz00_7218;

																				BgL_ostringz00_7218 =
																					BgL_lstringz00_2300;
																				BgL_lnumz00_7219 =
																					BINT(BgL_arg1833z00_2318);
																				BgL_lnumz00_2298 = BgL_lnumz00_7219;
																				BgL_ostringz00_2297 =
																					BgL_ostringz00_7218;
																				goto
																					BgL_zc3z04anonymousza31813ze3z87_2299;
																			}
																		}
																	}
															}
													}
												}
												{	/* Llib/error.scm 871 */
													bool_t BgL_test3359z00_7221;

													{	/* Llib/error.scm 871 */
														obj_t BgL_arg2609z00_4155;

														BgL_arg2609z00_4155 =
															BGL_EXITD_PROTECT(BgL_exitd1121z00_2293);
														BgL_test3359z00_7221 = PAIRP(BgL_arg2609z00_4155);
													}
													if (BgL_test3359z00_7221)
														{	/* Llib/error.scm 871 */
															obj_t BgL_arg2607z00_4156;

															{	/* Llib/error.scm 871 */
																obj_t BgL_arg2608z00_4157;

																BgL_arg2608z00_4157 =
																	BGL_EXITD_PROTECT(BgL_exitd1121z00_2293);
																BgL_arg2607z00_4156 =
																	CDR(((obj_t) BgL_arg2608z00_4157));
															}
															BGL_EXITD_PROTECT_SET(BgL_exitd1121z00_2293,
																BgL_arg2607z00_4156);
															BUNSPEC;
														}
													else
														{	/* Llib/error.scm 871 */
															BFALSE;
														}
												}
												bgl_close_input_port(BgL_portz00_2291);
												return BgL_tmp1123z00_2295;
											}
										}
									}
								else
									{	/* Llib/error.scm 883 */
										obj_t BgL_arg1835z00_2322;

										{	/* Llib/error.scm 835 */
											obj_t BgL_relz00_4160;

											BgL_relz00_4160 =
												BGl_relativezd2filezd2namez00zz__errorz00
												(BgL_filez00_2284);
											if ((STRING_LENGTH(((obj_t) BgL_relz00_4160)) <
													STRING_LENGTH(((obj_t) BgL_filez00_2284))))
												{	/* Llib/error.scm 836 */
													BgL_arg1835z00_2322 = BgL_relz00_4160;
												}
											else
												{	/* Llib/error.scm 836 */
													BgL_arg1835z00_2322 = BgL_filez00_2284;
												}
										}
										{	/* Llib/error.scm 883 */
											obj_t BgL_list1836z00_2323;

											{	/* Llib/error.scm 883 */
												obj_t BgL_arg1837z00_2324;

												{	/* Llib/error.scm 883 */
													obj_t BgL_arg1839z00_2325;

													{	/* Llib/error.scm 883 */
														obj_t BgL_arg1840z00_2326;

														BgL_arg1840z00_2326 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
														BgL_arg1839z00_2325 =
															MAKE_YOUNG_PAIR(BgL_colz00_2286,
															BgL_arg1840z00_2326);
													}
													BgL_arg1837z00_2324 =
														MAKE_YOUNG_PAIR(BgL_linez00_2285,
														BgL_arg1839z00_2325);
												}
												BgL_list1836z00_2323 =
													MAKE_YOUNG_PAIR(BgL_arg1835z00_2322,
													BgL_arg1837z00_2324);
											}
											return
												BGl_valuesz00zz__r5_control_features_6_4z00
												(BgL_list1836z00_2323);
										}
									}
							}
						}
					}
				else
					{	/* Llib/error.scm 884 */
						obj_t BgL_arg1847z00_2331;

						{	/* Llib/error.scm 835 */
							obj_t BgL_relz00_4168;

							BgL_relz00_4168 =
								BGl_relativezd2filezd2namez00zz__errorz00(BgL_filez00_2284);
							if (
								(STRING_LENGTH(
										((obj_t) BgL_relz00_4168)) <
									STRING_LENGTH(((obj_t) BgL_filez00_2284))))
								{	/* Llib/error.scm 836 */
									BgL_arg1847z00_2331 = BgL_relz00_4168;
								}
							else
								{	/* Llib/error.scm 836 */
									BgL_arg1847z00_2331 = BgL_filez00_2284;
								}
						}
						{	/* Llib/error.scm 884 */
							obj_t BgL_list1848z00_2332;

							{	/* Llib/error.scm 884 */
								obj_t BgL_arg1849z00_2333;

								{	/* Llib/error.scm 884 */
									obj_t BgL_arg1851z00_2334;

									{	/* Llib/error.scm 884 */
										obj_t BgL_arg1852z00_2335;

										BgL_arg1852z00_2335 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
										BgL_arg1851z00_2334 =
											MAKE_YOUNG_PAIR(BgL_colz00_2286, BgL_arg1852z00_2335);
									}
									BgL_arg1849z00_2333 =
										MAKE_YOUNG_PAIR(BgL_linez00_2285, BgL_arg1851z00_2334);
								}
								BgL_list1848z00_2332 =
									MAKE_YOUNG_PAIR(BgL_arg1847z00_2331, BgL_arg1849z00_2333);
							}
							return
								BGl_valuesz00zz__r5_control_features_6_4z00
								(BgL_list1848z00_2332);
						}
					}
			}
		}

	}



/* &<@anonymous:1834> */
	obj_t BGl_z62zc3z04anonymousza31834ze3ze5zz__errorz00(obj_t BgL_envz00_5313)
	{
		{	/* Llib/error.scm 871 */
			{	/* Llib/error.scm 882 */
				obj_t BgL_portz00_5314;

				BgL_portz00_5314 = PROCEDURE_REF(BgL_envz00_5313, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_portz00_5314));
			}
		}

	}



/* &<@anonymous:1797> */
	obj_t BGl_z62zc3z04anonymousza31797ze3ze5zz__errorz00(obj_t BgL_envz00_5315)
	{
		{	/* Llib/error.scm 847 */
			{	/* Llib/error.scm 861 */
				obj_t BgL_portz00_5316;

				BgL_portz00_5316 = PROCEDURE_REF(BgL_envz00_5315, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_portz00_5316));
			}
		}

	}



/* error-notify */
	BGL_EXPORTED_DEF obj_t BGl_errorzd2notifyzd2zz__errorz00(obj_t BgL_ez00_95)
	{
		{	/* Llib/error.scm 909 */
			{	/* Llib/error.scm 911 */
				bool_t BgL_test3362z00_7261;

				{	/* Llib/error.scm 911 */
					obj_t BgL_classz00_4203;

					BgL_classz00_4203 = BGl_z62errorz62zz__objectz00;
					if (BGL_OBJECTP(BgL_ez00_95))
						{	/* Llib/error.scm 911 */
							BgL_objectz00_bglt BgL_arg2767z00_4205;

							BgL_arg2767z00_4205 = (BgL_objectz00_bglt) (BgL_ez00_95);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Llib/error.scm 911 */
									long BgL_idxz00_4211;

									BgL_idxz00_4211 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_4205);
									BgL_test3362z00_7261 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_4211 + 3L)) == BgL_classz00_4203);
								}
							else
								{	/* Llib/error.scm 911 */
									bool_t BgL_res2792z00_4236;

									{	/* Llib/error.scm 911 */
										obj_t BgL_oclassz00_4219;

										{	/* Llib/error.scm 911 */
											obj_t BgL_arg2777z00_4227;
											long BgL_arg2778z00_4228;

											BgL_arg2777z00_4227 = (BGl_za2classesza2z00zz__objectz00);
											{	/* Llib/error.scm 911 */
												long BgL_arg2779z00_4229;

												BgL_arg2779z00_4229 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_4205);
												BgL_arg2778z00_4228 =
													(BgL_arg2779z00_4229 - OBJECT_TYPE);
											}
											BgL_oclassz00_4219 =
												VECTOR_REF(BgL_arg2777z00_4227, BgL_arg2778z00_4228);
										}
										{	/* Llib/error.scm 911 */
											bool_t BgL__ortest_1196z00_4220;

											BgL__ortest_1196z00_4220 =
												(BgL_classz00_4203 == BgL_oclassz00_4219);
											if (BgL__ortest_1196z00_4220)
												{	/* Llib/error.scm 911 */
													BgL_res2792z00_4236 = BgL__ortest_1196z00_4220;
												}
											else
												{	/* Llib/error.scm 911 */
													long BgL_odepthz00_4221;

													{	/* Llib/error.scm 911 */
														obj_t BgL_arg2764z00_4222;

														BgL_arg2764z00_4222 = (BgL_oclassz00_4219);
														BgL_odepthz00_4221 =
															BGL_CLASS_DEPTH(BgL_arg2764z00_4222);
													}
													if ((3L < BgL_odepthz00_4221))
														{	/* Llib/error.scm 911 */
															obj_t BgL_arg2762z00_4224;

															{	/* Llib/error.scm 911 */
																obj_t BgL_arg2763z00_4225;

																BgL_arg2763z00_4225 = (BgL_oclassz00_4219);
																BgL_arg2762z00_4224 =
																	BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_4225,
																	3L);
															}
															BgL_res2792z00_4236 =
																(BgL_arg2762z00_4224 == BgL_classz00_4203);
														}
													else
														{	/* Llib/error.scm 911 */
															BgL_res2792z00_4236 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test3362z00_7261 = BgL_res2792z00_4236;
								}
						}
					else
						{	/* Llib/error.scm 911 */
							BgL_test3362z00_7261 = ((bool_t) 0);
						}
				}
				if (BgL_test3362z00_7261)
					{	/* Llib/error.scm 912 */
						bool_t BgL_test3367z00_7284;

						{	/* Llib/error.scm 904 */
							bool_t BgL_test3368z00_7285;

							{	/* Llib/error.scm 904 */
								obj_t BgL_tmpz00_7286;

								BgL_tmpz00_7286 =
									(((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_ez00_95)))->BgL_fnamez00);
								BgL_test3368z00_7285 = STRINGP(BgL_tmpz00_7286);
							}
							if (BgL_test3368z00_7285)
								{	/* Llib/error.scm 904 */
									BgL_test3367z00_7284 =
										BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(
										(((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_ez00_95)))->
											BgL_locationz00));
								}
							else
								{	/* Llib/error.scm 904 */
									BgL_test3367z00_7284 = ((bool_t) 0);
								}
						}
						if (BgL_test3367z00_7284)
							{	/* Llib/error.scm 914 */
								obj_t BgL_arg1857z00_2347;
								obj_t BgL_arg1858z00_2348;

								BgL_arg1857z00_2347 =
									(((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_ez00_95)))->BgL_fnamez00);
								BgL_arg1858z00_2348 =
									(((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_ez00_95)))->
									BgL_locationz00);
								return BGl_notifyzd2z62errorzf2locz42zz__errorz00(BgL_ez00_95,
									BgL_arg1857z00_2347, BgL_arg1858z00_2348);
							}
						else
							{	/* Llib/error.scm 912 */
								BGL_TAIL return
									BGl_notifyzd2z62errorzb0zz__errorz00(BgL_ez00_95);
							}
					}
				else
					{	/* Llib/error.scm 916 */
						bool_t BgL_test3369z00_7299;

						{	/* Llib/error.scm 916 */
							obj_t BgL_classz00_4241;

							BgL_classz00_4241 = BGl_z62conditionz62zz__objectz00;
							if (BGL_OBJECTP(BgL_ez00_95))
								{	/* Llib/error.scm 916 */
									BgL_objectz00_bglt BgL_arg2767z00_4243;

									BgL_arg2767z00_4243 = (BgL_objectz00_bglt) (BgL_ez00_95);
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Llib/error.scm 916 */
											long BgL_idxz00_4249;

											BgL_idxz00_4249 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_4243);
											BgL_test3369z00_7299 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_4249 + 1L)) == BgL_classz00_4241);
										}
									else
										{	/* Llib/error.scm 916 */
											bool_t BgL_res2793z00_4274;

											{	/* Llib/error.scm 916 */
												obj_t BgL_oclassz00_4257;

												{	/* Llib/error.scm 916 */
													obj_t BgL_arg2777z00_4265;
													long BgL_arg2778z00_4266;

													BgL_arg2777z00_4265 =
														(BGl_za2classesza2z00zz__objectz00);
													{	/* Llib/error.scm 916 */
														long BgL_arg2779z00_4267;

														BgL_arg2779z00_4267 =
															BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_4243);
														BgL_arg2778z00_4266 =
															(BgL_arg2779z00_4267 - OBJECT_TYPE);
													}
													BgL_oclassz00_4257 =
														VECTOR_REF(BgL_arg2777z00_4265,
														BgL_arg2778z00_4266);
												}
												{	/* Llib/error.scm 916 */
													bool_t BgL__ortest_1196z00_4258;

													BgL__ortest_1196z00_4258 =
														(BgL_classz00_4241 == BgL_oclassz00_4257);
													if (BgL__ortest_1196z00_4258)
														{	/* Llib/error.scm 916 */
															BgL_res2793z00_4274 = BgL__ortest_1196z00_4258;
														}
													else
														{	/* Llib/error.scm 916 */
															long BgL_odepthz00_4259;

															{	/* Llib/error.scm 916 */
																obj_t BgL_arg2764z00_4260;

																BgL_arg2764z00_4260 = (BgL_oclassz00_4257);
																BgL_odepthz00_4259 =
																	BGL_CLASS_DEPTH(BgL_arg2764z00_4260);
															}
															if ((1L < BgL_odepthz00_4259))
																{	/* Llib/error.scm 916 */
																	obj_t BgL_arg2762z00_4262;

																	{	/* Llib/error.scm 916 */
																		obj_t BgL_arg2763z00_4263;

																		BgL_arg2763z00_4263 = (BgL_oclassz00_4257);
																		BgL_arg2762z00_4262 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_arg2763z00_4263, 1L);
																	}
																	BgL_res2793z00_4274 =
																		(BgL_arg2762z00_4262 == BgL_classz00_4241);
																}
															else
																{	/* Llib/error.scm 916 */
																	BgL_res2793z00_4274 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test3369z00_7299 = BgL_res2793z00_4274;
										}
								}
							else
								{	/* Llib/error.scm 916 */
									BgL_test3369z00_7299 = ((bool_t) 0);
								}
						}
						if (BgL_test3369z00_7299)
							{	/* Llib/error.scm 917 */
								obj_t BgL_arg1860z00_2350;

								{	/* Llib/error.scm 917 */
									obj_t BgL_tmpz00_7322;

									BgL_tmpz00_7322 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_arg1860z00_2350 =
										BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7322);
								}
								{	/* Llib/error.scm 917 */
									obj_t BgL_list1861z00_2351;

									{	/* Llib/error.scm 917 */
										obj_t BgL_arg1862z00_2352;

										BgL_arg1862z00_2352 = MAKE_YOUNG_PAIR(BgL_ez00_95, BNIL);
										BgL_list1861z00_2351 =
											MAKE_YOUNG_PAIR(BGl_string2929z00zz__errorz00,
											BgL_arg1862z00_2352);
									}
									return
										BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg1860z00_2350,
										BgL_list1861z00_2351);
								}
							}
						else
							{	/* Llib/error.scm 916 */
								return BFALSE;
							}
					}
			}
		}

	}



/* &error-notify */
	obj_t BGl_z62errorzd2notifyzb0zz__errorz00(obj_t BgL_envz00_5317,
		obj_t BgL_ez00_5318)
	{
		{	/* Llib/error.scm 909 */
			return BGl_errorzd2notifyzd2zz__errorz00(BgL_ez00_5318);
		}

	}



/* error-notify/location */
	BGL_EXPORTED_DEF obj_t BGl_errorzd2notifyzf2locationz20zz__errorz00(obj_t
		BgL_ez00_96, obj_t BgL_fnamez00_97, int BgL_locationz00_98)
	{
		{	/* Llib/error.scm 922 */
			{	/* Llib/error.scm 923 */
				bool_t BgL_test3374z00_7329;

				{	/* Llib/error.scm 923 */
					obj_t BgL_classz00_4277;

					BgL_classz00_4277 = BGl_z62errorz62zz__objectz00;
					if (BGL_OBJECTP(BgL_ez00_96))
						{	/* Llib/error.scm 923 */
							BgL_objectz00_bglt BgL_arg2767z00_4279;

							BgL_arg2767z00_4279 = (BgL_objectz00_bglt) (BgL_ez00_96);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Llib/error.scm 923 */
									long BgL_idxz00_4285;

									BgL_idxz00_4285 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_4279);
									BgL_test3374z00_7329 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_4285 + 3L)) == BgL_classz00_4277);
								}
							else
								{	/* Llib/error.scm 923 */
									bool_t BgL_res2794z00_4310;

									{	/* Llib/error.scm 923 */
										obj_t BgL_oclassz00_4293;

										{	/* Llib/error.scm 923 */
											obj_t BgL_arg2777z00_4301;
											long BgL_arg2778z00_4302;

											BgL_arg2777z00_4301 = (BGl_za2classesza2z00zz__objectz00);
											{	/* Llib/error.scm 923 */
												long BgL_arg2779z00_4303;

												BgL_arg2779z00_4303 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_4279);
												BgL_arg2778z00_4302 =
													(BgL_arg2779z00_4303 - OBJECT_TYPE);
											}
											BgL_oclassz00_4293 =
												VECTOR_REF(BgL_arg2777z00_4301, BgL_arg2778z00_4302);
										}
										{	/* Llib/error.scm 923 */
											bool_t BgL__ortest_1196z00_4294;

											BgL__ortest_1196z00_4294 =
												(BgL_classz00_4277 == BgL_oclassz00_4293);
											if (BgL__ortest_1196z00_4294)
												{	/* Llib/error.scm 923 */
													BgL_res2794z00_4310 = BgL__ortest_1196z00_4294;
												}
											else
												{	/* Llib/error.scm 923 */
													long BgL_odepthz00_4295;

													{	/* Llib/error.scm 923 */
														obj_t BgL_arg2764z00_4296;

														BgL_arg2764z00_4296 = (BgL_oclassz00_4293);
														BgL_odepthz00_4295 =
															BGL_CLASS_DEPTH(BgL_arg2764z00_4296);
													}
													if ((3L < BgL_odepthz00_4295))
														{	/* Llib/error.scm 923 */
															obj_t BgL_arg2762z00_4298;

															{	/* Llib/error.scm 923 */
																obj_t BgL_arg2763z00_4299;

																BgL_arg2763z00_4299 = (BgL_oclassz00_4293);
																BgL_arg2762z00_4298 =
																	BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_4299,
																	3L);
															}
															BgL_res2794z00_4310 =
																(BgL_arg2762z00_4298 == BgL_classz00_4277);
														}
													else
														{	/* Llib/error.scm 923 */
															BgL_res2794z00_4310 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test3374z00_7329 = BgL_res2794z00_4310;
								}
						}
					else
						{	/* Llib/error.scm 923 */
							BgL_test3374z00_7329 = ((bool_t) 0);
						}
				}
				if (BgL_test3374z00_7329)
					{	/* Llib/error.scm 923 */
						return
							BGl_notifyzd2z62errorzf2locz42zz__errorz00(BgL_ez00_96,
							BgL_fnamez00_97, BINT(BgL_locationz00_98));
					}
				else
					{	/* Llib/error.scm 923 */
						return BFALSE;
					}
			}
		}

	}



/* &error-notify/location */
	obj_t BGl_z62errorzd2notifyzf2locationz42zz__errorz00(obj_t BgL_envz00_5319,
		obj_t BgL_ez00_5320, obj_t BgL_fnamez00_5321, obj_t BgL_locationz00_5322)
	{
		{	/* Llib/error.scm 922 */
			{	/* Llib/error.scm 923 */
				int BgL_auxz00_7361;
				obj_t BgL_auxz00_7354;

				{	/* Llib/error.scm 923 */
					obj_t BgL_tmpz00_7362;

					if (INTEGERP(BgL_locationz00_5322))
						{	/* Llib/error.scm 923 */
							BgL_tmpz00_7362 = BgL_locationz00_5322;
						}
					else
						{
							obj_t BgL_auxz00_7365;

							BgL_auxz00_7365 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(37058L), BGl_string2930z00zz__errorz00,
								BGl_string2877z00zz__errorz00, BgL_locationz00_5322);
							FAILURE(BgL_auxz00_7365, BFALSE, BFALSE);
						}
					BgL_auxz00_7361 = CINT(BgL_tmpz00_7362);
				}
				if (STRINGP(BgL_fnamez00_5321))
					{	/* Llib/error.scm 923 */
						BgL_auxz00_7354 = BgL_fnamez00_5321;
					}
				else
					{
						obj_t BgL_auxz00_7357;

						BgL_auxz00_7357 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(37058L), BGl_string2930z00zz__errorz00,
							BGl_string2902z00zz__errorz00, BgL_fnamez00_5321);
						FAILURE(BgL_auxz00_7357, BFALSE, BFALSE);
					}
				return
					BGl_errorzd2notifyzf2locationz20zz__errorz00(BgL_ez00_5320,
					BgL_auxz00_7354, BgL_auxz00_7361);
			}
		}

	}



/* warning-notify */
	BGL_EXPORTED_DEF obj_t BGl_warningzd2notifyzd2zz__errorz00(obj_t BgL_ez00_99)
	{
		{	/* Llib/error.scm 929 */
			{
				obj_t BgL_ez00_2376;

				{	/* Llib/error.scm 943 */
					bool_t BgL_test3381z00_7371;

					{	/* Llib/error.scm 943 */
						int BgL_arg1885z00_2375;

						BgL_arg1885z00_2375 = BGl_bigloozd2warningzd2zz__paramz00();
						BgL_test3381z00_7371 = ((long) (BgL_arg1885z00_2375) > 0L);
					}
					if (BgL_test3381z00_7371)
						{	/* Llib/error.scm 943 */
							{	/* Llib/error.scm 944 */
								bool_t BgL_test3382z00_7375;

								{	/* Llib/error.scm 904 */
									bool_t BgL_test3383z00_7376;

									{	/* Llib/error.scm 904 */
										obj_t BgL_tmpz00_7377;

										BgL_tmpz00_7377 =
											(((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_ez00_99)))->
											BgL_fnamez00);
										BgL_test3383z00_7376 = STRINGP(BgL_tmpz00_7377);
									}
									if (BgL_test3383z00_7376)
										{	/* Llib/error.scm 904 */
											BgL_test3382z00_7375 =
												BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(
												(((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt) BgL_ez00_99)))->
													BgL_locationz00));
										}
									else
										{	/* Llib/error.scm 904 */
											BgL_test3382z00_7375 = ((bool_t) 0);
										}
								}
								if (BgL_test3382z00_7375)
									{	/* Llib/error.scm 947 */
										bool_t BgL_test3384z00_7384;

										{	/* Llib/error.scm 947 */
											obj_t BgL_arg1881z00_2367;

											BgL_arg1881z00_2367 =
												(((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt)
															((BgL_z62warningz62_bglt) BgL_ez00_99))))->
												BgL_fnamez00);
											{	/* Llib/error.scm 947 */
												long BgL_l1z00_4330;

												BgL_l1z00_4330 =
													STRING_LENGTH(((obj_t) BgL_arg1881z00_2367));
												if ((BgL_l1z00_4330 == 8L))
													{	/* Llib/error.scm 947 */
														int BgL_arg2324z00_4333;

														{	/* Llib/error.scm 947 */
															char *BgL_auxz00_7395;
															char *BgL_tmpz00_7392;

															BgL_auxz00_7395 =
																BSTRING_TO_STRING
																(BGl_string2933z00zz__errorz00);
															BgL_tmpz00_7392 =
																BSTRING_TO_STRING(((obj_t)
																	BgL_arg1881z00_2367));
															BgL_arg2324z00_4333 =
																memcmp(BgL_tmpz00_7392, BgL_auxz00_7395,
																BgL_l1z00_4330);
														}
														BgL_test3384z00_7384 =
															((long) (BgL_arg2324z00_4333) == 0L);
													}
												else
													{	/* Llib/error.scm 947 */
														BgL_test3384z00_7384 = ((bool_t) 0);
													}
											}
										}
										if (BgL_test3384z00_7384)
											{	/* Llib/error.scm 947 */
												BgL_ez00_2376 = BgL_ez00_99;
											BgL_zc3z04anonymousza31886ze3z87_2377:
												{	/* Llib/error.scm 931 */
													obj_t BgL_arg1887z00_2378;

													{	/* Llib/error.scm 931 */
														obj_t BgL_tmpz00_7400;

														BgL_tmpz00_7400 = BGL_CURRENT_DYNAMIC_ENV();
														BgL_arg1887z00_2378 =
															BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_7400);
													}
													bgl_flush_output_port(BgL_arg1887z00_2378);
												}
												{	/* Llib/error.scm 932 */
													obj_t BgL_arg1888z00_2379;

													{	/* Llib/error.scm 932 */
														obj_t BgL_tmpz00_7404;

														BgL_tmpz00_7404 = BGL_CURRENT_DYNAMIC_ENV();
														BgL_arg1888z00_2379 =
															BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7404);
													}
													{	/* Llib/error.scm 932 */
														obj_t BgL_list1889z00_2380;

														BgL_list1889z00_2380 =
															MAKE_YOUNG_PAIR(BgL_arg1888z00_2379, BNIL);
														BGl_displayz00zz__r4_output_6_10_3z00
															(BGl_string2931z00zz__errorz00,
															BgL_list1889z00_2380);
													}
												}
												if (NULLP(
														(((BgL_z62warningz62_bglt) COBJECT(
																	((BgL_z62warningz62_bglt) BgL_ez00_2376)))->
															BgL_argsz00)))
													{	/* Llib/error.scm 934 */
														BFALSE;
													}
												else
													{	/* Llib/error.scm 934 */
														{	/* Llib/error.scm 936 */
															obj_t BgL_arg1892z00_2384;
															obj_t BgL_arg1893z00_2385;

															{	/* Llib/error.scm 936 */
																obj_t BgL_pairz00_4314;

																BgL_pairz00_4314 =
																	(((BgL_z62warningz62_bglt) COBJECT(
																			((BgL_z62warningz62_bglt)
																				BgL_ez00_2376)))->BgL_argsz00);
																BgL_arg1892z00_2384 = CAR(BgL_pairz00_4314);
															}
															{	/* Llib/error.scm 936 */
																obj_t BgL_tmpz00_7416;

																BgL_tmpz00_7416 = BGL_CURRENT_DYNAMIC_ENV();
																BgL_arg1893z00_2385 =
																	BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7416);
															}
															BGl_displayzd2circlezd2zz__pp_circlez00
																(BgL_arg1892z00_2384, BgL_arg1893z00_2385);
														}
														{	/* Llib/error.scm 937 */
															obj_t BgL_arg1896z00_2387;

															{	/* Llib/error.scm 937 */
																obj_t BgL_tmpz00_7420;

																BgL_tmpz00_7420 = BGL_CURRENT_DYNAMIC_ENV();
																BgL_arg1896z00_2387 =
																	BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7420);
															}
															{	/* Llib/error.scm 937 */
																obj_t BgL_list1897z00_2388;

																BgL_list1897z00_2388 =
																	MAKE_YOUNG_PAIR(BgL_arg1896z00_2387, BNIL);
																BGl_newlinez00zz__r4_output_6_10_3z00
																	(BgL_list1897z00_2388);
															}
														}
														{	/* Llib/error.scm 938 */
															obj_t BgL_arg1899z00_2390;

															{	/* Llib/error.scm 940 */
																obj_t BgL_pairz00_4317;

																BgL_pairz00_4317 =
																	(((BgL_z62warningz62_bglt) COBJECT(
																			((BgL_z62warningz62_bglt)
																				BgL_ez00_2376)))->BgL_argsz00);
																BgL_arg1899z00_2390 = CDR(BgL_pairz00_4317);
															}
															{	/* Llib/error.scm 938 */
																obj_t BgL_list1900z00_2391;

																BgL_list1900z00_2391 =
																	MAKE_YOUNG_PAIR(BgL_arg1899z00_2390, BNIL);
																BGl_forzd2eachzd2zz__r4_control_features_6_9z00
																	(BGl_proc2932z00zz__errorz00,
																	BgL_list1900z00_2391);
															}
														}
													}
												{	/* Llib/error.scm 941 */
													obj_t BgL_arg1907z00_2398;

													{	/* Llib/error.scm 941 */
														obj_t BgL_tmpz00_7430;

														BgL_tmpz00_7430 = BGL_CURRENT_DYNAMIC_ENV();
														BgL_arg1907z00_2398 =
															BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7430);
													}
													{	/* Llib/error.scm 941 */
														obj_t BgL_list1908z00_2399;

														BgL_list1908z00_2399 =
															MAKE_YOUNG_PAIR(BgL_arg1907z00_2398, BNIL);
														BGl_newlinez00zz__r4_output_6_10_3z00
															(BgL_list1908z00_2399);
													}
												}
												{	/* Llib/error.scm 942 */
													obj_t BgL_arg1911z00_2400;

													{	/* Llib/error.scm 942 */
														obj_t BgL_tmpz00_7435;

														BgL_tmpz00_7435 = BGL_CURRENT_DYNAMIC_ENV();
														BgL_arg1911z00_2400 =
															BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7435);
													}
													bgl_flush_output_port(BgL_arg1911z00_2400);
												}
											}
										else
											{	/* Llib/error.scm 949 */
												bool_t BgL_test3387z00_7439;

												{	/* Llib/error.scm 949 */
													obj_t BgL_arg1879z00_2366;

													BgL_arg1879z00_2366 =
														(((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	((BgL_z62warningz62_bglt) BgL_ez00_99))))->
														BgL_fnamez00);
													{	/* Llib/error.scm 949 */
														long BgL_l1z00_4341;

														BgL_l1z00_4341 =
															STRING_LENGTH(((obj_t) BgL_arg1879z00_2366));
														if ((BgL_l1z00_4341 == 7L))
															{	/* Llib/error.scm 949 */
																int BgL_arg2324z00_4344;

																{	/* Llib/error.scm 949 */
																	char *BgL_auxz00_7450;
																	char *BgL_tmpz00_7447;

																	BgL_auxz00_7450 =
																		BSTRING_TO_STRING
																		(BGl_string2934z00zz__errorz00);
																	BgL_tmpz00_7447 =
																		BSTRING_TO_STRING(((obj_t)
																			BgL_arg1879z00_2366));
																	BgL_arg2324z00_4344 =
																		memcmp(BgL_tmpz00_7447, BgL_auxz00_7450,
																		BgL_l1z00_4341);
																}
																BgL_test3387z00_7439 =
																	((long) (BgL_arg2324z00_4344) == 0L);
															}
														else
															{	/* Llib/error.scm 949 */
																BgL_test3387z00_7439 = ((bool_t) 0);
															}
													}
												}
												if (BgL_test3387z00_7439)
													{
														obj_t BgL_ez00_7455;

														BgL_ez00_7455 = BgL_ez00_99;
														BgL_ez00_2376 = BgL_ez00_7455;
														goto BgL_zc3z04anonymousza31886ze3z87_2377;
													}
												else
													{	/* Llib/error.scm 952 */
														obj_t BgL_arg1873z00_2363;
														obj_t BgL_arg1876z00_2364;
														obj_t BgL_arg1878z00_2365;

														BgL_arg1873z00_2363 =
															(((BgL_z62exceptionz62_bglt) COBJECT(
																	((BgL_z62exceptionz62_bglt)
																		((BgL_z62warningz62_bglt) BgL_ez00_99))))->
															BgL_fnamez00);
														BgL_arg1876z00_2364 =
															(((BgL_z62exceptionz62_bglt)
																COBJECT(((BgL_z62exceptionz62_bglt) (
																			(BgL_z62warningz62_bglt) BgL_ez00_99))))->
															BgL_locationz00);
														BgL_arg1878z00_2365 =
															(((BgL_z62warningz62_bglt)
																COBJECT(((BgL_z62warningz62_bglt)
																		BgL_ez00_99)))->BgL_argsz00);
														BGl_warningzf2locationzd2filez20zz__errorz00
															(BgL_arg1873z00_2363, BgL_arg1876z00_2364,
															BgL_arg1878z00_2365);
													}
											}
									}
								else
									{
										obj_t BgL_ez00_7465;

										BgL_ez00_7465 = BgL_ez00_99;
										BgL_ez00_2376 = BgL_ez00_7465;
										goto BgL_zc3z04anonymousza31886ze3z87_2377;
									}
							}
							if (CBOOL(
									(((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt)
													((BgL_z62warningz62_bglt) BgL_ez00_99))))->
										BgL_stackz00)))
								{	/* Llib/error.scm 957 */
									obj_t BgL_arg1883z00_2370;
									obj_t BgL_arg1884z00_2371;

									BgL_arg1883z00_2370 =
										(((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt)
													((BgL_z62warningz62_bglt) BgL_ez00_99))))->
										BgL_stackz00);
									{	/* Llib/error.scm 957 */
										obj_t BgL_tmpz00_7474;

										BgL_tmpz00_7474 = BGL_CURRENT_DYNAMIC_ENV();
										BgL_arg1884z00_2371 =
											BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7474);
									}
									{	/* Llib/error.scm 278 */

										BGl_displayzd2tracezd2stackz00zz__errorz00
											(BgL_arg1883z00_2370, BgL_arg1884z00_2371, BINT(1L));
									}
								}
							else
								{	/* Llib/error.scm 956 */
									BFALSE;
								}
						}
					else
						{	/* Llib/error.scm 943 */
							BFALSE;
						}
				}
				return BFALSE;
			}
		}

	}



/* &warning-notify */
	obj_t BGl_z62warningzd2notifyzb0zz__errorz00(obj_t BgL_envz00_5324,
		obj_t BgL_ez00_5325)
	{
		{	/* Llib/error.scm 929 */
			return BGl_warningzd2notifyzd2zz__errorz00(BgL_ez00_5325);
		}

	}



/* &<@anonymous:1901> */
	obj_t BGl_z62zc3z04anonymousza31901ze3ze5zz__errorz00(obj_t BgL_envz00_5326,
		obj_t BgL_az00_5327)
	{
		{	/* Llib/error.scm 938 */
			{	/* Llib/error.scm 939 */
				obj_t BgL_arg1903z00_5446;

				{	/* Llib/error.scm 939 */
					obj_t BgL_tmpz00_7480;

					BgL_tmpz00_7480 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1903z00_5446 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7480);
				}
				return
					BGl_displayzd2circlezd2zz__pp_circlez00(BgL_az00_5327,
					BgL_arg1903z00_5446);
			}
		}

	}



/* warning-notify/location */
	BGL_EXPORTED_DEF obj_t BGl_warningzd2notifyzf2locationz20zz__errorz00(obj_t
		BgL_ez00_100, obj_t BgL_fnamez00_101, int BgL_locationz00_102)
	{
		{	/* Llib/error.scm 963 */
			{	/* Llib/error.scm 964 */
				bool_t BgL_test3390z00_7484;

				{	/* Llib/error.scm 964 */
					int BgL_arg1917z00_4352;

					BgL_arg1917z00_4352 = BGl_bigloozd2warningzd2zz__paramz00();
					BgL_test3390z00_7484 = ((long) (BgL_arg1917z00_4352) > 0L);
				}
				if (BgL_test3390z00_7484)
					{	/* Llib/error.scm 966 */
						obj_t BgL_arg1916z00_4354;

						BgL_arg1916z00_4354 =
							(((BgL_z62warningz62_bglt) COBJECT(
									((BgL_z62warningz62_bglt) BgL_ez00_100)))->BgL_argsz00);
						return
							BGl_warningzf2locationzd2filez20zz__errorz00(BgL_fnamez00_101,
							BINT(BgL_locationz00_102), BgL_arg1916z00_4354);
					}
				else
					{	/* Llib/error.scm 964 */
						return BFALSE;
					}
			}
		}

	}



/* &warning-notify/location */
	obj_t BGl_z62warningzd2notifyzf2locationz42zz__errorz00(obj_t BgL_envz00_5328,
		obj_t BgL_ez00_5329, obj_t BgL_fnamez00_5330, obj_t BgL_locationz00_5331)
	{
		{	/* Llib/error.scm 963 */
			{	/* Llib/error.scm 964 */
				int BgL_auxz00_7499;
				obj_t BgL_auxz00_7492;

				{	/* Llib/error.scm 964 */
					obj_t BgL_tmpz00_7500;

					if (INTEGERP(BgL_locationz00_5331))
						{	/* Llib/error.scm 964 */
							BgL_tmpz00_7500 = BgL_locationz00_5331;
						}
					else
						{
							obj_t BgL_auxz00_7503;

							BgL_auxz00_7503 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(38571L), BGl_string2935z00zz__errorz00,
								BGl_string2877z00zz__errorz00, BgL_locationz00_5331);
							FAILURE(BgL_auxz00_7503, BFALSE, BFALSE);
						}
					BgL_auxz00_7499 = CINT(BgL_tmpz00_7500);
				}
				if (STRINGP(BgL_fnamez00_5330))
					{	/* Llib/error.scm 964 */
						BgL_auxz00_7492 = BgL_fnamez00_5330;
					}
				else
					{
						obj_t BgL_auxz00_7495;

						BgL_auxz00_7495 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(38571L), BGl_string2935z00zz__errorz00,
							BGl_string2902z00zz__errorz00, BgL_fnamez00_5330);
						FAILURE(BgL_auxz00_7495, BFALSE, BFALSE);
					}
				return
					BGl_warningzd2notifyzf2locationz20zz__errorz00(BgL_ez00_5329,
					BgL_auxz00_7492, BgL_auxz00_7499);
			}
		}

	}



/* warning/location-file */
	obj_t BGl_warningzf2locationzd2filez20zz__errorz00(obj_t BgL_fnamez00_103,
		obj_t BgL_locz00_104, obj_t BgL_argsz00_105)
	{
		{	/* Llib/error.scm 971 */
			{	/* Llib/error.scm 973 */
				obj_t BgL_portz00_2407;

				BgL_portz00_2407 =
					BGl_openzd2forzd2errorz00zz__errorz00(BgL_fnamez00_103);
				if (INPUT_PORTP(BgL_portz00_2407))
					{	/* Llib/error.scm 979 */
						obj_t BgL_filez00_2409;

						{	/* Llib/error.scm 980 */
							obj_t BgL_arg1920z00_2414;

							{	/* Llib/error.scm 980 */
								obj_t BgL_list1921z00_2415;

								{	/* Llib/error.scm 980 */
									obj_t BgL_arg1922z00_2416;

									{	/* Llib/error.scm 980 */
										obj_t BgL_arg1923z00_2417;

										BgL_arg1923z00_2417 = MAKE_YOUNG_PAIR(BNIL, BNIL);
										BgL_arg1922z00_2416 =
											MAKE_YOUNG_PAIR(BgL_locz00_104, BgL_arg1923z00_2417);
									}
									BgL_list1921z00_2415 =
										MAKE_YOUNG_PAIR(BgL_fnamez00_103, BgL_arg1922z00_2416);
								}
								BgL_arg1920z00_2414 =
									BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
									(BGl_symbol2879z00zz__errorz00, BgL_list1921z00_2415);
							}
							BgL_filez00_2409 =
								BGl_locationzd2linezd2numz00zz__errorz00(BgL_arg1920z00_2414);
						}
						{	/* Llib/error.scm 980 */
							obj_t BgL_lnumz00_2410;
							obj_t BgL_lpointz00_2411;
							obj_t BgL_lstringz00_2412;

							{	/* Llib/error.scm 981 */
								obj_t BgL_tmpz00_4356;

								{	/* Llib/error.scm 981 */
									int BgL_tmpz00_7517;

									BgL_tmpz00_7517 = (int) (1L);
									BgL_tmpz00_4356 = BGL_MVALUES_VAL(BgL_tmpz00_7517);
								}
								{	/* Llib/error.scm 981 */
									int BgL_tmpz00_7520;

									BgL_tmpz00_7520 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_7520, BUNSPEC);
								}
								BgL_lnumz00_2410 = BgL_tmpz00_4356;
							}
							{	/* Llib/error.scm 981 */
								obj_t BgL_tmpz00_4357;

								{	/* Llib/error.scm 981 */
									int BgL_tmpz00_7523;

									BgL_tmpz00_7523 = (int) (2L);
									BgL_tmpz00_4357 = BGL_MVALUES_VAL(BgL_tmpz00_7523);
								}
								{	/* Llib/error.scm 981 */
									int BgL_tmpz00_7526;

									BgL_tmpz00_7526 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_7526, BUNSPEC);
								}
								BgL_lpointz00_2411 = BgL_tmpz00_4357;
							}
							{	/* Llib/error.scm 981 */
								obj_t BgL_tmpz00_4358;

								{	/* Llib/error.scm 981 */
									int BgL_tmpz00_7529;

									BgL_tmpz00_7529 = (int) (3L);
									BgL_tmpz00_4358 = BGL_MVALUES_VAL(BgL_tmpz00_7529);
								}
								{	/* Llib/error.scm 981 */
									int BgL_tmpz00_7532;

									BgL_tmpz00_7532 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_7532, BUNSPEC);
								}
								BgL_lstringz00_2412 = BgL_tmpz00_4358;
							}
							if (CBOOL(BgL_lnumz00_2410))
								{	/* Llib/error.scm 981 */
									return
										BGl_dozd2warnzf2locationz20zz__errorz00(BgL_fnamez00_103,
										BgL_lnumz00_2410, BgL_locz00_104, BgL_lstringz00_2412,
										BgL_lpointz00_2411, BgL_argsz00_105);
								}
							else
								{	/* Llib/error.scm 981 */
									return BGl_warningz00zz__errorz00(BgL_argsz00_105);
								}
						}
					}
				else
					{	/* Llib/error.scm 974 */
						return BGl_warningz00zz__errorz00(BgL_argsz00_105);
					}
			}
		}

	}



/* do-warn/location */
	obj_t BGl_dozd2warnzf2locationz20zz__errorz00(obj_t BgL_fnamez00_106,
		obj_t BgL_linez00_107, obj_t BgL_charz00_108, obj_t BgL_stringz00_109,
		obj_t BgL_markerz00_110, obj_t BgL_argsz00_111)
	{
		{	/* Llib/error.scm 988 */
			{	/* Llib/error.scm 989 */
				obj_t BgL_arg1925z00_2419;

				{	/* Llib/error.scm 989 */
					obj_t BgL_tmpz00_7540;

					BgL_tmpz00_7540 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1925z00_2419 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_7540);
				}
				bgl_flush_output_port(BgL_arg1925z00_2419);
			}
			{	/* Llib/error.scm 990 */
				obj_t BgL_arg1926z00_2420;

				{	/* Llib/error.scm 990 */
					obj_t BgL_tmpz00_7544;

					BgL_tmpz00_7544 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1926z00_2420 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7544);
				}
				{	/* Llib/error.scm 990 */
					obj_t BgL_list1927z00_2421;

					BgL_list1927z00_2421 = MAKE_YOUNG_PAIR(BgL_arg1926z00_2420, BNIL);
					BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1927z00_2421);
				}
			}
			{	/* Llib/error.scm 991 */
				obj_t BgL_spacezd2stringzd2_2422;

				if (((long) CINT(BgL_markerz00_110) > 0L))
					{	/* Llib/error.scm 991 */
						BgL_spacezd2stringzd2_2422 =
							make_string(
							(long) CINT(BgL_markerz00_110), ((unsigned char) ' '));
					}
				else
					{	/* Llib/error.scm 991 */
						BgL_spacezd2stringzd2_2422 = BGl_string2920z00zz__errorz00;
					}
				{	/* Llib/error.scm 991 */
					long BgL_lz00_2423;

					BgL_lz00_2423 = STRING_LENGTH(((obj_t) BgL_stringz00_109));
					{	/* Llib/error.scm 994 */
						obj_t BgL_nzd2markerzd2_2424;

						if (((long) CINT(BgL_markerz00_110) >= BgL_lz00_2423))
							{	/* Llib/error.scm 995 */
								BgL_nzd2markerzd2_2424 = BINT(BgL_lz00_2423);
							}
						else
							{	/* Llib/error.scm 995 */
								BgL_nzd2markerzd2_2424 = BgL_markerz00_110;
							}
						{	/* Llib/error.scm 995 */

							BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_nzd2markerzd2_2424,
								BgL_stringz00_109, BgL_spacezd2stringzd2_2422);
							BGl_printzd2cursorzd2zz__errorz00(BgL_fnamez00_106,
								BgL_linez00_107, BgL_charz00_108, BgL_stringz00_109,
								BgL_spacezd2stringzd2_2422);
							{	/* Llib/error.scm 1001 */
								obj_t BgL_arg1928z00_2425;

								{	/* Llib/error.scm 1001 */
									obj_t BgL_tmpz00_7562;

									BgL_tmpz00_7562 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_arg1928z00_2425 =
										BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7562);
								}
								{	/* Llib/error.scm 1001 */
									obj_t BgL_list1929z00_2426;

									BgL_list1929z00_2426 =
										MAKE_YOUNG_PAIR(BgL_arg1928z00_2425, BNIL);
									BGl_displayz00zz__r4_output_6_10_3z00
										(BGl_string2931z00zz__errorz00, BgL_list1929z00_2426);
								}
							}
							if (NULLP(BgL_argsz00_111))
								{	/* Llib/error.scm 1002 */
									BFALSE;
								}
							else
								{	/* Llib/error.scm 1003 */
									obj_t BgL_portz00_2428;

									{	/* Llib/error.scm 1003 */
										obj_t BgL_tmpz00_7569;

										BgL_tmpz00_7569 = BGL_CURRENT_DYNAMIC_ENV();
										BgL_portz00_2428 =
											BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7569);
									}
									{	/* Llib/error.scm 1004 */
										obj_t BgL_arg1931z00_2429;

										BgL_arg1931z00_2429 = CAR(((obj_t) BgL_argsz00_111));
										BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1931z00_2429,
											BgL_portz00_2428);
									}
									{	/* Llib/error.scm 1005 */
										obj_t BgL_list1932z00_2430;

										BgL_list1932z00_2430 =
											MAKE_YOUNG_PAIR(BgL_portz00_2428, BNIL);
										BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1932z00_2430);
									}
									{	/* Llib/error.scm 1006 */
										obj_t BgL_arg1934z00_2432;

										BgL_arg1934z00_2432 = CDR(((obj_t) BgL_argsz00_111));
										{	/* Llib/error.scm 1006 */
											obj_t BgL_list1935z00_2433;

											BgL_list1935z00_2433 =
												MAKE_YOUNG_PAIR(BgL_arg1934z00_2432, BNIL);
											BGl_forzd2eachzd2zz__r4_control_features_6_9z00
												(BGl_proc2936z00zz__errorz00, BgL_list1935z00_2433);
										}
									}
								}
							{	/* Llib/error.scm 1009 */
								obj_t BgL_arg1938z00_2438;

								{	/* Llib/error.scm 1009 */
									obj_t BgL_tmpz00_7581;

									BgL_tmpz00_7581 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_arg1938z00_2438 =
										BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7581);
								}
								{	/* Llib/error.scm 1009 */
									obj_t BgL_list1939z00_2439;

									BgL_list1939z00_2439 =
										MAKE_YOUNG_PAIR(BgL_arg1938z00_2438, BNIL);
									BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1939z00_2439);
								}
							}
							{	/* Llib/error.scm 1010 */
								obj_t BgL_arg1940z00_2440;

								{	/* Llib/error.scm 1010 */
									obj_t BgL_tmpz00_7586;

									BgL_tmpz00_7586 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_arg1940z00_2440 =
										BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7586);
								}
								return bgl_flush_output_port(BgL_arg1940z00_2440);
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1936> */
	obj_t BGl_z62zc3z04anonymousza31936ze3ze5zz__errorz00(obj_t BgL_envz00_5333,
		obj_t BgL_az00_5334)
	{
		{	/* Llib/error.scm 1006 */
			{	/* Llib/error.scm 1007 */
				obj_t BgL_arg1937z00_5447;

				{	/* Llib/error.scm 1007 */
					obj_t BgL_tmpz00_7590;

					BgL_tmpz00_7590 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1937z00_5447 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7590);
				}
				return
					BGl_displayzd2circlezd2zz__pp_circlez00(BgL_az00_5334,
					BgL_arg1937z00_5447);
			}
		}

	}



/* _display-trace-stack */
	obj_t BGl__displayzd2tracezd2stackz00zz__errorz00(obj_t BgL_env1214z00_117,
		obj_t BgL_opt1213z00_116)
	{
		{	/* Llib/error.scm 1023 */
			{	/* Llib/error.scm 1023 */
				obj_t BgL_g1215z00_2445;
				obj_t BgL_g1216z00_2446;

				{
					obj_t BgL_auxz00_7594;

					if (VECTORP(BgL_opt1213z00_116))
						{	/* Llib/error.scm 1023 */
							BgL_auxz00_7594 = BgL_opt1213z00_116;
						}
					else
						{
							obj_t BgL_auxz00_7597;

							BgL_auxz00_7597 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(41207L), BGl_string2937z00zz__errorz00,
								BGl_string2872z00zz__errorz00, BgL_opt1213z00_116);
							FAILURE(BgL_auxz00_7597, BFALSE, BFALSE);
						}
					BgL_g1215z00_2445 = VECTOR_REF(BgL_auxz00_7594, 0L);
				}
				{
					obj_t BgL_auxz00_7602;

					if (VECTORP(BgL_opt1213z00_116))
						{	/* Llib/error.scm 1023 */
							BgL_auxz00_7602 = BgL_opt1213z00_116;
						}
					else
						{
							obj_t BgL_auxz00_7605;

							BgL_auxz00_7605 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(41207L), BGl_string2937z00zz__errorz00,
								BGl_string2872z00zz__errorz00, BgL_opt1213z00_116);
							FAILURE(BgL_auxz00_7605, BFALSE, BFALSE);
						}
					BgL_g1216z00_2446 = VECTOR_REF(BgL_auxz00_7602, 1L);
				}
				{	/* Llib/error.scm 1023 */
					long BgL_aux1218z00_2448;

					{
						obj_t BgL_auxz00_7610;

						if (VECTORP(BgL_opt1213z00_116))
							{	/* Llib/error.scm 1023 */
								BgL_auxz00_7610 = BgL_opt1213z00_116;
							}
						else
							{
								obj_t BgL_auxz00_7613;

								BgL_auxz00_7613 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
									BINT(41207L), BGl_string2937z00zz__errorz00,
									BGl_string2872z00zz__errorz00, BgL_opt1213z00_116);
								FAILURE(BgL_auxz00_7613, BFALSE, BFALSE);
							}
						BgL_aux1218z00_2448 = VECTOR_LENGTH(BgL_auxz00_7610);
					}
					switch (BgL_aux1218z00_2448)
						{
						case 2L:

							{	/* Llib/error.scm 1023 */

								{	/* Llib/error.scm 1023 */
									obj_t BgL_auxz00_7618;

									if (OUTPUT_PORTP(BgL_g1216z00_2446))
										{	/* Llib/error.scm 1023 */
											BgL_auxz00_7618 = BgL_g1216z00_2446;
										}
									else
										{
											obj_t BgL_auxz00_7621;

											BgL_auxz00_7621 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2870z00zz__errorz00, BINT(41207L),
												BGl_string2937z00zz__errorz00,
												BGl_string2938z00zz__errorz00, BgL_g1216z00_2446);
											FAILURE(BgL_auxz00_7621, BFALSE, BFALSE);
										}
									return
										BGl_displayzd2tracezd2stackz00zz__errorz00
										(BgL_g1215z00_2445, BgL_auxz00_7618, BINT(1L));
								}
							}
							break;
						case 3L:

							{	/* Llib/error.scm 1023 */
								obj_t BgL_offsetz00_2450;

								{
									obj_t BgL_auxz00_7627;

									if (VECTORP(BgL_opt1213z00_116))
										{	/* Llib/error.scm 1023 */
											BgL_auxz00_7627 = BgL_opt1213z00_116;
										}
									else
										{
											obj_t BgL_auxz00_7630;

											BgL_auxz00_7630 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2870z00zz__errorz00, BINT(41207L),
												BGl_string2937z00zz__errorz00,
												BGl_string2872z00zz__errorz00, BgL_opt1213z00_116);
											FAILURE(BgL_auxz00_7630, BFALSE, BFALSE);
										}
									BgL_offsetz00_2450 = VECTOR_REF(BgL_auxz00_7627, 2L);
								}
								{	/* Llib/error.scm 1023 */

									{	/* Llib/error.scm 1023 */
										obj_t BgL_auxz00_7635;

										if (OUTPUT_PORTP(BgL_g1216z00_2446))
											{	/* Llib/error.scm 1023 */
												BgL_auxz00_7635 = BgL_g1216z00_2446;
											}
										else
											{
												obj_t BgL_auxz00_7638;

												BgL_auxz00_7638 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2870z00zz__errorz00, BINT(41207L),
													BGl_string2937z00zz__errorz00,
													BGl_string2938z00zz__errorz00, BgL_g1216z00_2446);
												FAILURE(BgL_auxz00_7638, BFALSE, BFALSE);
											}
										return
											BGl_displayzd2tracezd2stackz00zz__errorz00
											(BgL_g1215z00_2445, BgL_auxz00_7635, BgL_offsetz00_2450);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* display-trace-stack */
	BGL_EXPORTED_DEF obj_t BGl_displayzd2tracezd2stackz00zz__errorz00(obj_t
		BgL_stackz00_113, obj_t BgL_portz00_114, obj_t BgL_offsetz00_115)
	{
		{	/* Llib/error.scm 1023 */
			if (PAIRP(BgL_stackz00_113))
				{	/* Llib/error.scm 1107 */
					obj_t BgL_g1134z00_2454;
					obj_t BgL_g1135z00_2455;

					BgL_g1134z00_2454 = CDR(BgL_stackz00_113);
					BgL_g1135z00_2455 = CAR(BgL_stackz00_113);
					{
						obj_t BgL_iz00_2457;
						obj_t BgL_stkz00_2458;
						obj_t BgL_hdsz00_2459;
						long BgL_hdnz00_2460;

						BgL_iz00_2457 = BgL_offsetz00_115;
						BgL_stkz00_2458 = BgL_g1134z00_2454;
						BgL_hdsz00_2459 = BgL_g1135z00_2455;
						BgL_hdnz00_2460 = 1L;
					BgL_zc3z04anonymousza31945ze3z87_2461:
						if (NULLP(BgL_stkz00_2458))
							{	/* Llib/error.scm 1112 */
								BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00
									(BgL_portz00_114, BgL_hdsz00_2459, BgL_iz00_2457,
									BgL_hdnz00_2460);
								return bgl_flush_output_port(BgL_portz00_114);
							}
						else
							{	/* Llib/error.scm 1112 */
								if (PAIRP(BgL_stkz00_2458))
									{	/* Llib/error.scm 1115 */
										if ((CAR(BgL_stkz00_2458) == BgL_hdsz00_2459))
											{	/* Llib/error.scm 1120 */
												long BgL_arg1950z00_2466;
												obj_t BgL_arg1953z00_2467;
												long BgL_arg1954z00_2468;

												BgL_arg1950z00_2466 = ((long) CINT(BgL_iz00_2457) + 1L);
												BgL_arg1953z00_2467 = CDR(BgL_stkz00_2458);
												BgL_arg1954z00_2468 = (BgL_hdnz00_2460 + 1L);
												{
													long BgL_hdnz00_7664;
													obj_t BgL_stkz00_7663;
													obj_t BgL_iz00_7661;

													BgL_iz00_7661 = BINT(BgL_arg1950z00_2466);
													BgL_stkz00_7663 = BgL_arg1953z00_2467;
													BgL_hdnz00_7664 = BgL_arg1954z00_2468;
													BgL_hdnz00_2460 = BgL_hdnz00_7664;
													BgL_stkz00_2458 = BgL_stkz00_7663;
													BgL_iz00_2457 = BgL_iz00_7661;
													goto BgL_zc3z04anonymousza31945ze3z87_2461;
												}
											}
										else
											{
												long BgL_hdnz00_7671;
												obj_t BgL_hdsz00_7669;
												obj_t BgL_stkz00_7667;
												obj_t BgL_iz00_7665;

												BgL_iz00_7665 =
													BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00
													(BgL_portz00_114, BgL_hdsz00_2459, BgL_iz00_2457,
													BgL_hdnz00_2460);
												BgL_stkz00_7667 = CDR(BgL_stkz00_2458);
												BgL_hdsz00_7669 = CAR(BgL_stkz00_2458);
												BgL_hdnz00_7671 = 1L;
												BgL_hdnz00_2460 = BgL_hdnz00_7671;
												BgL_hdsz00_2459 = BgL_hdsz00_7669;
												BgL_stkz00_2458 = BgL_stkz00_7667;
												BgL_iz00_2457 = BgL_iz00_7665;
												goto BgL_zc3z04anonymousza31945ze3z87_2461;
											}
									}
								else
									{	/* Llib/error.scm 1115 */
										{	/* Llib/error.scm 1116 */
											obj_t BgL_arg1959z00_2473;

											{	/* Llib/error.scm 1116 */
												obj_t BgL_tmpz00_7672;

												BgL_tmpz00_7672 = BGL_CURRENT_DYNAMIC_ENV();
												BgL_arg1959z00_2473 =
													BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7672);
											}
											{	/* Llib/error.scm 1116 */
												obj_t BgL_list1960z00_2474;

												BgL_list1960z00_2474 =
													MAKE_YOUNG_PAIR(BgL_stackz00_113, BNIL);
												BGl_fprintfz00zz__r4_output_6_10_3z00
													(BgL_arg1959z00_2473, BGl_string2939z00zz__errorz00,
													BgL_list1960z00_2474);
											}
										}
										return bgl_flush_output_port(BgL_portz00_114);
									}
							}
					}
				}
			else
				{	/* Llib/error.scm 1106 */
					return BFALSE;
				}
		}

	}



/* display-trace-stack-frame~0 */
	obj_t BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00(obj_t
		BgL_portz00_5377, obj_t BgL_framez00_2482, obj_t BgL_levelz00_2483,
		long BgL_numz00_2484)
	{
		{	/* Llib/error.scm 1104 */
			{
				obj_t BgL_namez00_2486;
				obj_t BgL_locz00_2487;
				obj_t BgL_restz00_2488;
				obj_t BgL_namez00_2490;

				if (PAIRP(BgL_framez00_2482))
					{	/* Llib/error.scm 1104 */
						obj_t BgL_cdrzd2347zd2_2496;

						BgL_cdrzd2347zd2_2496 = CDR(((obj_t) BgL_framez00_2482));
						if (PAIRP(BgL_cdrzd2347zd2_2496))
							{	/* Llib/error.scm 1104 */
								obj_t BgL_cdrzd2352zd2_2498;

								BgL_cdrzd2352zd2_2498 = CDR(BgL_cdrzd2347zd2_2496);
								{	/* Llib/error.scm 1104 */
									bool_t BgL_test3410z00_7685;

									if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
										(BgL_cdrzd2352zd2_2498))
										{	/* Llib/error.scm 1018 */
											obj_t BgL_list1943z00_4413;

											BgL_list1943z00_4413 =
												MAKE_YOUNG_PAIR(BgL_cdrzd2352zd2_2498, BNIL);
											BgL_test3410z00_7685 =
												CBOOL(BGl_everyz00zz__r4_pairs_and_lists_6_3z00
												(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
													BgL_list1943z00_4413));
										}
									else
										{	/* Llib/error.scm 1018 */
											BgL_test3410z00_7685 = ((bool_t) 0);
										}
									if (BgL_test3410z00_7685)
										{	/* Llib/error.scm 1104 */
											obj_t BgL_arg1968z00_2500;
											obj_t BgL_arg1969z00_2501;

											BgL_arg1968z00_2500 = CAR(((obj_t) BgL_framez00_2482));
											BgL_arg1969z00_2501 = CAR(BgL_cdrzd2347zd2_2496);
											{	/* Llib/error.scm 1104 */
												long BgL_tmpz00_7694;

												BgL_namez00_2486 = BgL_arg1968z00_2500;
												BgL_locz00_2487 = BgL_arg1969z00_2501;
												BgL_restz00_2488 = BgL_cdrzd2352zd2_2498;
												{	/* Llib/error.scm 1037 */
													obj_t BgL_namez00_2509;

													if (SYMBOLP(BgL_namez00_2486))
														{	/* Llib/error.scm 1037 */
															obj_t BgL_arg2331z00_4379;

															BgL_arg2331z00_4379 =
																SYMBOL_TO_STRING(BgL_namez00_2486);
															BgL_namez00_2509 =
																BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																(BgL_arg2331z00_4379);
														}
													else
														{	/* Llib/error.scm 1037 */
															BgL_namez00_2509 = BgL_namez00_2486;
														}
													{	/* Llib/error.scm 1037 */
														obj_t BgL_marginz00_2510;

														BgL_marginz00_2510 =
															BGl_assqz00zz__r4_pairs_and_lists_6_3z00
															(BGl_symbol2945z00zz__errorz00, BgL_restz00_2488);
														{	/* Llib/error.scm 1038 */
															obj_t BgL_fmtz00_2511;

															BgL_fmtz00_2511 =
																BGl_assqz00zz__r4_pairs_and_lists_6_3z00
																(BGl_symbol2947z00zz__errorz00,
																BgL_restz00_2488);
															{	/* Llib/error.scm 1039 */
																obj_t BgL_nmz00_2512;

																{	/* Llib/error.scm 1040 */
																	bool_t BgL_test3413z00_7701;

																	if (PAIRP(BgL_fmtz00_2511))
																		{	/* Llib/error.scm 1040 */
																			obj_t BgL_tmpz00_7704;

																			BgL_tmpz00_7704 = CDR(BgL_fmtz00_2511);
																			BgL_test3413z00_7701 =
																				STRINGP(BgL_tmpz00_7704);
																		}
																	else
																		{	/* Llib/error.scm 1040 */
																			BgL_test3413z00_7701 = ((bool_t) 0);
																		}
																	if (BgL_test3413z00_7701)
																		{	/* Llib/error.scm 1041 */
																			obj_t BgL_arg2020z00_2565;

																			BgL_arg2020z00_2565 =
																				CDR(BgL_fmtz00_2511);
																			{	/* Llib/error.scm 1041 */
																				obj_t BgL_list2021z00_2566;

																				BgL_list2021z00_2566 =
																					MAKE_YOUNG_PAIR(BgL_namez00_2509,
																					BNIL);
																				BgL_nmz00_2512 =
																					BGl_formatz00zz__r4_output_6_10_3z00
																					(BgL_arg2020z00_2565,
																					BgL_list2021z00_2566);
																			}
																		}
																	else
																		{	/* Llib/error.scm 1040 */
																			BgL_nmz00_2512 = BgL_namez00_2509;
																		}
																}
																{	/* Llib/error.scm 1040 */

																	{	/* Llib/error.scm 1044 */
																		bool_t BgL_test3415z00_7710;

																		if (PAIRP(BgL_marginz00_2510))
																			{	/* Llib/error.scm 1044 */
																				obj_t BgL_tmpz00_7713;

																				BgL_tmpz00_7713 =
																					CDR(BgL_marginz00_2510);
																				BgL_test3415z00_7710 =
																					CHARP(BgL_tmpz00_7713);
																			}
																		else
																			{	/* Llib/error.scm 1044 */
																				BgL_test3415z00_7710 = ((bool_t) 0);
																			}
																		if (BgL_test3415z00_7710)
																			{	/* Llib/error.scm 1045 */
																				obj_t BgL_arg1982z00_2516;

																				BgL_arg1982z00_2516 =
																					CDR(BgL_marginz00_2510);
																				{	/* Llib/error.scm 1045 */
																					obj_t BgL_list1983z00_2517;

																					BgL_list1983z00_2517 =
																						MAKE_YOUNG_PAIR(BgL_portz00_5377,
																						BNIL);
																					BGl_displayz00zz__r4_output_6_10_3z00
																						(BgL_arg1982z00_2516,
																						BgL_list1983z00_2517);
																				}
																			}
																		else
																			{	/* Llib/error.scm 1046 */
																				obj_t BgL_list1984z00_2518;

																				BgL_list1984z00_2518 =
																					MAKE_YOUNG_PAIR(BgL_portz00_5377,
																					BNIL);
																				BGl_displayz00zz__r4_output_6_10_3z00
																					(BGl_string2949z00zz__errorz00,
																					BgL_list1984z00_2518);
																			}
																	}
																	if (((long) CINT(BgL_levelz00_2483) < 10L))
																		{	/* Llib/error.scm 1048 */
																			obj_t BgL_list1987z00_2522;

																			BgL_list1987z00_2522 =
																				MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
																			BGl_displayz00zz__r4_output_6_10_3z00
																				(BGl_string2942z00zz__errorz00,
																				BgL_list1987z00_2522);
																		}
																	else
																		{	/* Llib/error.scm 1048 */
																			if (
																				((long) CINT(BgL_levelz00_2483) < 100L))
																				{	/* Llib/error.scm 1049 */
																					obj_t BgL_list1989z00_2524;

																					BgL_list1989z00_2524 =
																						MAKE_YOUNG_PAIR(BgL_portz00_5377,
																						BNIL);
																					BGl_displayz00zz__r4_output_6_10_3z00
																						(BGl_string2943z00zz__errorz00,
																						BgL_list1989z00_2524);
																				}
																			else
																				{	/* Llib/error.scm 1049 */
																					if (
																						((long) CINT(BgL_levelz00_2483) <
																							1000L))
																						{	/* Llib/error.scm 1050 */
																							obj_t BgL_list1991z00_2526;

																							BgL_list1991z00_2526 =
																								MAKE_YOUNG_PAIR
																								(BgL_portz00_5377, BNIL);
																							BGl_displayz00zz__r4_output_6_10_3z00
																								(BGl_string2949z00zz__errorz00,
																								BgL_list1991z00_2526);
																						}
																					else
																						{	/* Llib/error.scm 1050 */
																							BFALSE;
																						}
																				}
																		}
																	{	/* Llib/error.scm 1052 */
																		obj_t BgL_list1992z00_2527;

																		BgL_list1992z00_2527 =
																			MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
																		BGl_displayz00zz__r4_output_6_10_3z00
																			(BgL_levelz00_2483, BgL_list1992z00_2527);
																	}
																	{	/* Llib/error.scm 1053 */
																		obj_t BgL_list1993z00_2528;

																		BgL_list1993z00_2528 =
																			MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
																		BGl_displayz00zz__r4_output_6_10_3z00
																			(BGl_string2944z00zz__errorz00,
																			BgL_list1993z00_2528);
																	}
																	{	/* Llib/error.scm 1055 */
																		obj_t BgL_iz00_2529;

																		{	/* Ieee/string.scm 223 */

																			BgL_iz00_2529 =
																				BGl_stringzd2indexzd2zz__r4_strings_6_7z00
																				(BgL_namez00_2509,
																				BCHAR(((unsigned char) '@')), BINT(0L));
																		}
																		{	/* Llib/error.scm 1056 */
																			bool_t BgL_test3420z00_7743;

																			if (CBOOL(BgL_iz00_2529))
																				{	/* Llib/error.scm 1056 */
																					if (((long) CINT(BgL_iz00_2529) > 0L))
																						{	/* Llib/error.scm 1056 */
																							BgL_test3420z00_7743 =
																								CBOOL(BgL_locz00_2487);
																						}
																					else
																						{	/* Llib/error.scm 1056 */
																							BgL_test3420z00_7743 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Llib/error.scm 1056 */
																					BgL_test3420z00_7743 = ((bool_t) 0);
																				}
																			if (BgL_test3420z00_7743)
																				{	/* Llib/error.scm 1057 */
																					obj_t BgL_arg1996z00_2532;

																					BgL_arg1996z00_2532 =
																						BGl_substringz00zz__r4_strings_6_7z00
																						(BgL_namez00_2509, 0L,
																						(long) CINT(BgL_iz00_2529));
																					{	/* Llib/error.scm 1057 */
																						obj_t BgL_list1997z00_2533;

																						BgL_list1997z00_2533 =
																							MAKE_YOUNG_PAIR(BgL_portz00_5377,
																							BNIL);
																						BGl_displayz00zz__r4_output_6_10_3z00
																							(BgL_arg1996z00_2532,
																							BgL_list1997z00_2533);
																				}}
																			else
																				{	/* Llib/error.scm 1058 */
																					obj_t BgL_list1998z00_2534;

																					BgL_list1998z00_2534 =
																						MAKE_YOUNG_PAIR(BgL_portz00_5377,
																						BNIL);
																					BGl_displayz00zz__r4_output_6_10_3z00
																						(BgL_namez00_2509,
																						BgL_list1998z00_2534);
																				}
																		}
																	}
																	if ((BgL_numz00_2484 > 1L))
																		{	/* Llib/error.scm 1060 */
																			{	/* Llib/error.scm 1061 */
																				obj_t BgL_list2002z00_2540;

																				BgL_list2002z00_2540 =
																					MAKE_YOUNG_PAIR(BgL_portz00_5377,
																					BNIL);
																				BGl_displayz00zz__r4_output_6_10_3z00
																					(BGl_string2950z00zz__errorz00,
																					BgL_list2002z00_2540);
																			}
																			{	/* Llib/error.scm 1062 */
																				obj_t BgL_list2003z00_2541;

																				BgL_list2003z00_2541 =
																					MAKE_YOUNG_PAIR(BgL_portz00_5377,
																					BNIL);
																				BGl_displayz00zz__r4_output_6_10_3z00
																					(BINT(BgL_numz00_2484),
																					BgL_list2003z00_2541);
																			}
																			{	/* Llib/error.scm 1063 */
																				obj_t BgL_list2004z00_2542;

																				BgL_list2004z00_2542 =
																					MAKE_YOUNG_PAIR(BgL_portz00_5377,
																					BNIL);
																				BGl_displayz00zz__r4_output_6_10_3z00
																					(BGl_string2951z00zz__errorz00,
																					BgL_list2004z00_2542);
																			}
																		}
																	else
																		{	/* Llib/error.scm 1060 */
																			if (CBOOL(BgL_locz00_2487))
																				{	/* Llib/error.scm 1065 */
																					obj_t BgL_filez00_2543;

																					BgL_filez00_2543 =
																						BGl_locationzd2linezd2numz00zz__errorz00
																						(BgL_locz00_2487);
																					{	/* Llib/error.scm 1066 */
																						obj_t BgL_lnumz00_2544;
																						obj_t BgL_lpointz00_2545;
																						obj_t BgL_lstringz00_2546;

																						{	/* Llib/error.scm 1070 */
																							obj_t BgL_tmpz00_4389;

																							{	/* Llib/error.scm 1070 */
																								int BgL_tmpz00_7768;

																								BgL_tmpz00_7768 = (int) (1L);
																								BgL_tmpz00_4389 =
																									BGL_MVALUES_VAL
																									(BgL_tmpz00_7768);
																							}
																							{	/* Llib/error.scm 1070 */
																								int BgL_tmpz00_7771;

																								BgL_tmpz00_7771 = (int) (1L);
																								BGL_MVALUES_VAL_SET
																									(BgL_tmpz00_7771, BUNSPEC);
																							}
																							BgL_lnumz00_2544 =
																								BgL_tmpz00_4389;
																						}
																						{	/* Llib/error.scm 1070 */
																							obj_t BgL_tmpz00_4390;

																							{	/* Llib/error.scm 1070 */
																								int BgL_tmpz00_7774;

																								BgL_tmpz00_7774 = (int) (2L);
																								BgL_tmpz00_4390 =
																									BGL_MVALUES_VAL
																									(BgL_tmpz00_7774);
																							}
																							{	/* Llib/error.scm 1070 */
																								int BgL_tmpz00_7777;

																								BgL_tmpz00_7777 = (int) (2L);
																								BGL_MVALUES_VAL_SET
																									(BgL_tmpz00_7777, BUNSPEC);
																							}
																							BgL_lpointz00_2545 =
																								BgL_tmpz00_4390;
																						}
																						{	/* Llib/error.scm 1070 */
																							obj_t BgL_tmpz00_4391;

																							{	/* Llib/error.scm 1070 */
																								int BgL_tmpz00_7780;

																								BgL_tmpz00_7780 = (int) (3L);
																								BgL_tmpz00_4391 =
																									BGL_MVALUES_VAL
																									(BgL_tmpz00_7780);
																							}
																							{	/* Llib/error.scm 1070 */
																								int BgL_tmpz00_7783;

																								BgL_tmpz00_7783 = (int) (3L);
																								BGL_MVALUES_VAL_SET
																									(BgL_tmpz00_7783, BUNSPEC);
																							}
																							BgL_lstringz00_2546 =
																								BgL_tmpz00_4391;
																						}
																						{	/* Llib/error.scm 1068 */
																							bool_t BgL_test3425z00_7786;

																							if (STRINGP(BgL_filez00_2543))
																								{	/* Llib/error.scm 1068 */
																									bool_t BgL_test3427z00_7789;

																									{	/* Llib/error.scm 1068 */
																										long BgL_l1z00_4394;

																										BgL_l1z00_4394 =
																											STRING_LENGTH
																											(BgL_filez00_2543);
																										if ((BgL_l1z00_4394 == 1L))
																											{	/* Llib/error.scm 1068 */
																												int BgL_arg2324z00_4397;

																												{	/* Llib/error.scm 1068 */
																													char *BgL_auxz00_7795;
																													char *BgL_tmpz00_7793;

																													BgL_auxz00_7795 =
																														BSTRING_TO_STRING
																														(BGl_string2952z00zz__errorz00);
																													BgL_tmpz00_7793 =
																														BSTRING_TO_STRING
																														(BgL_filez00_2543);
																													BgL_arg2324z00_4397 =
																														memcmp
																														(BgL_tmpz00_7793,
																														BgL_auxz00_7795,
																														BgL_l1z00_4394);
																												}
																												BgL_test3427z00_7789 =
																													(
																													(long)
																													(BgL_arg2324z00_4397)
																													== 0L);
																											}
																										else
																											{	/* Llib/error.scm 1068 */
																												BgL_test3427z00_7789 =
																													((bool_t) 0);
																											}
																									}
																									if (BgL_test3427z00_7789)
																										{	/* Llib/error.scm 1068 */
																											BgL_test3425z00_7786 =
																												((bool_t) 0);
																										}
																									else
																										{	/* Llib/error.scm 1068 */
																											BgL_test3425z00_7786 =
																												((bool_t) 1);
																										}
																								}
																							else
																								{	/* Llib/error.scm 1068 */
																									BgL_test3425z00_7786 =
																										((bool_t) 0);
																								}
																							if (BgL_test3425z00_7786)
																								{	/* Llib/error.scm 1068 */
																									{	/* Llib/error.scm 1069 */
																										obj_t BgL_list2008z00_2550;

																										BgL_list2008z00_2550 =
																											MAKE_YOUNG_PAIR
																											(BgL_portz00_5377, BNIL);
																										BGl_displayz00zz__r4_output_6_10_3z00
																											(BGl_string2953z00zz__errorz00,
																											BgL_list2008z00_2550);
																									}
																									{	/* Llib/error.scm 1070 */
																										obj_t BgL_list2009z00_2551;

																										BgL_list2009z00_2551 =
																											MAKE_YOUNG_PAIR
																											(BgL_portz00_5377, BNIL);
																										BGl_displayz00zz__r4_output_6_10_3z00
																											(BgL_filez00_2543,
																											BgL_list2009z00_2551);
																									}
																								}
																							else
																								{	/* Llib/error.scm 1068 */
																									BFALSE;
																								}
																						}
																						{	/* Llib/error.scm 1073 */
																							bool_t BgL_test3429z00_7804;

																							if (INTEGERP(BgL_lpointz00_2545))
																								{	/* Llib/error.scm 1073 */
																									BgL_test3429z00_7804 =
																										(
																										(long)
																										CINT(BgL_lpointz00_2545) ==
																										0L);
																								}
																							else
																								{	/* Llib/error.scm 1073 */
																									BgL_test3429z00_7804 =
																										((bool_t) 0);
																								}
																							if (BgL_test3429z00_7804)
																								{	/* Llib/error.scm 1073 */
																									BUNSPEC;
																								}
																							else
																								{	/* Llib/error.scm 1073 */
																									if (CBOOL(BgL_lnumz00_2544))
																										{	/* Llib/error.scm 1075 */
																											{	/* Llib/error.scm 1076 */
																												obj_t
																													BgL_list2012z00_2556;
																												BgL_list2012z00_2556 =
																													MAKE_YOUNG_PAIR
																													(BgL_portz00_5377,
																													BNIL);
																												BGl_displayz00zz__r4_output_6_10_3z00
																													(BGl_string2888z00zz__errorz00,
																													BgL_list2012z00_2556);
																											}
																											{	/* Llib/error.scm 1077 */
																												obj_t
																													BgL_list2013z00_2557;
																												BgL_list2013z00_2557 =
																													MAKE_YOUNG_PAIR
																													(BgL_portz00_5377,
																													BNIL);
																												BGl_displayz00zz__r4_output_6_10_3z00
																													(BgL_lnumz00_2544,
																													BgL_list2013z00_2557);
																											}
																										}
																									else
																										{	/* Llib/error.scm 1075 */
																											if (CBOOL
																												(BgL_lpointz00_2545))
																												{	/* Llib/error.scm 1078 */
																													{	/* Llib/error.scm 1079 */
																														obj_t
																															BgL_list2014z00_2558;
																														BgL_list2014z00_2558
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_portz00_5377,
																															BNIL);
																														BGl_displayz00zz__r4_output_6_10_3z00
																															(BGl_string2954z00zz__errorz00,
																															BgL_list2014z00_2558);
																													}
																													{	/* Llib/error.scm 1080 */
																														obj_t
																															BgL_list2015z00_2559;
																														BgL_list2015z00_2559
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_portz00_5377,
																															BNIL);
																														BGl_displayz00zz__r4_output_6_10_3z00
																															(BgL_lpointz00_2545,
																															BgL_list2015z00_2559);
																													}
																												}
																											else
																												{	/* Llib/error.scm 1078 */
																													BFALSE;
																												}
																										}
																								}
																						}
																					}
																				}
																			else
																				{	/* Llib/error.scm 1064 */
																					BFALSE;
																				}
																		}
																	{	/* Llib/error.scm 1081 */
																		obj_t BgL_list2016z00_2561;

																		BgL_list2016z00_2561 =
																			MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
																		BGl_newlinez00zz__r4_output_6_10_3z00
																			(BgL_list2016z00_2561);
																	}
																}
															}
														}
													}
												}
												BgL_tmpz00_7694 = ((long) CINT(BgL_levelz00_2483) + 1L);
												return BINT(BgL_tmpz00_7694);
											}
										}
									else
										{	/* Llib/error.scm 1104 */
											long BgL_tmpz00_7826;

										BgL_tagzd2338zd2_2493:
											{	/* Llib/error.scm 1101 */
												obj_t BgL_list2039z00_2586;

												BgL_list2039z00_2586 =
													MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
												BGl_displayz00zz__r4_output_6_10_3z00
													(BGl_string2940z00zz__errorz00, BgL_list2039z00_2586);
											}
											{	/* Llib/error.scm 1102 */
												obj_t BgL_list2040z00_2587;

												BgL_list2040z00_2587 =
													MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
												BGl_displayz00zz__r4_output_6_10_3z00(BgL_framez00_2482,
													BgL_list2040z00_2587);
											}
											{	/* Llib/error.scm 1103 */
												obj_t BgL_list2041z00_2588;

												BgL_list2041z00_2588 =
													MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
												BGl_newlinez00zz__r4_output_6_10_3z00
													(BgL_list2041z00_2588);
											}
											BgL_tmpz00_7826 = ((long) CINT(BgL_levelz00_2483) + 1L);
											return BINT(BgL_tmpz00_7826);
										}
								}
							}
						else
							{	/* Llib/error.scm 1104 */
								if (NULLP(BgL_cdrzd2347zd2_2496))
									{	/* Llib/error.scm 1104 */
										obj_t BgL_arg1975z00_2505;

										BgL_arg1975z00_2505 = CAR(((obj_t) BgL_framez00_2482));
										{	/* Llib/error.scm 1104 */
											long BgL_tmpz00_7840;

											BgL_namez00_2490 = BgL_arg1975z00_2505;
											if (((long) CINT(BgL_levelz00_2483) < 10L))
												{	/* Llib/error.scm 1085 */
													obj_t BgL_list2025z00_2571;

													BgL_list2025z00_2571 =
														MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
													BGl_displayz00zz__r4_output_6_10_3z00
														(BGl_string2941z00zz__errorz00,
														BgL_list2025z00_2571);
												}
											else
												{	/* Llib/error.scm 1085 */
													if (((long) CINT(BgL_levelz00_2483) < 100L))
														{	/* Llib/error.scm 1086 */
															obj_t BgL_list2027z00_2573;

															BgL_list2027z00_2573 =
																MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
															BGl_displayz00zz__r4_output_6_10_3z00
																(BGl_string2942z00zz__errorz00,
																BgL_list2027z00_2573);
														}
													else
														{	/* Llib/error.scm 1086 */
															if (((long) CINT(BgL_levelz00_2483) < 1000L))
																{	/* Llib/error.scm 1087 */
																	obj_t BgL_list2029z00_2575;

																	BgL_list2029z00_2575 =
																		MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
																	BGl_displayz00zz__r4_output_6_10_3z00
																		(BGl_string2943z00zz__errorz00,
																		BgL_list2029z00_2575);
																}
															else
																{	/* Llib/error.scm 1087 */
																	BFALSE;
																}
														}
												}
											{	/* Llib/error.scm 1089 */
												obj_t BgL_list2030z00_2576;

												BgL_list2030z00_2576 =
													MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
												BGl_displayz00zz__r4_output_6_10_3z00(BgL_levelz00_2483,
													BgL_list2030z00_2576);
											}
											{	/* Llib/error.scm 1090 */
												obj_t BgL_arg2031z00_2577;

												{	/* Llib/error.scm 1090 */
													bool_t BgL_test3437z00_7858;

													if (SYMBOLP(BgL_namez00_2490))
														{	/* Llib/error.scm 1090 */
															BgL_test3437z00_7858 = ((bool_t) 1);
														}
													else
														{	/* Llib/error.scm 1090 */
															BgL_test3437z00_7858 = STRINGP(BgL_namez00_2490);
														}
													if (BgL_test3437z00_7858)
														{	/* Llib/error.scm 1090 */
															BgL_arg2031z00_2577 =
																BGl_string2944z00zz__errorz00;
														}
													else
														{	/* Llib/error.scm 1090 */
															BgL_arg2031z00_2577 =
																BGl_string2940z00zz__errorz00;
														}
												}
												{	/* Llib/error.scm 1090 */
													obj_t BgL_list2032z00_2578;

													BgL_list2032z00_2578 =
														MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
													BGl_displayz00zz__r4_output_6_10_3z00
														(BgL_arg2031z00_2577, BgL_list2032z00_2578);
												}
											}
											{	/* Llib/error.scm 1091 */
												obj_t BgL_list2035z00_2582;

												BgL_list2035z00_2582 =
													MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
												BGl_displayz00zz__r4_output_6_10_3z00(BgL_namez00_2490,
													BgL_list2035z00_2582);
											}
											{	/* Llib/error.scm 1092 */
												obj_t BgL_list2036z00_2583;

												BgL_list2036z00_2583 =
													MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
												BGl_newlinez00zz__r4_output_6_10_3z00
													(BgL_list2036z00_2583);
											}
											BgL_tmpz00_7840 = ((long) CINT(BgL_levelz00_2483) + 1L);
											return BINT(BgL_tmpz00_7840);
										}
									}
								else
									{	/* Llib/error.scm 1104 */
										long BgL_tmpz00_7871;

										goto BgL_tagzd2338zd2_2493;
										return BINT(BgL_tmpz00_7871);
									}
							}
					}
				else
					{	/* Llib/error.scm 1104 */
						if (STRINGP(BgL_framez00_2482))
							{	/* Llib/error.scm 1104 */
								{	/* Llib/error.scm 1096 */
									obj_t BgL_list2037z00_2584;

									BgL_list2037z00_2584 =
										MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
									BGl_displayz00zz__r4_output_6_10_3z00(BgL_framez00_2482,
										BgL_list2037z00_2584);
								}
								{	/* Llib/error.scm 1097 */
									obj_t BgL_list2038z00_2585;

									BgL_list2038z00_2585 =
										MAKE_YOUNG_PAIR(BgL_portz00_5377, BNIL);
									BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2038z00_2585);
								}
								return BgL_levelz00_2483;
							}
						else
							{	/* Llib/error.scm 1104 */
								long BgL_tmpz00_7879;

								goto BgL_tagzd2338zd2_2493;
								return BINT(BgL_tmpz00_7879);
							}
					}
			}
		}

	}



/* display-trace-stack-source */
	BGL_EXPORTED_DEF obj_t
		BGl_displayzd2tracezd2stackzd2sourcezd2zz__errorz00(obj_t BgL_stackz00_118,
		obj_t BgL_portz00_119)
	{
		{	/* Llib/error.scm 1131 */
			{
				obj_t BgL_stackz00_2593;

				BgL_stackz00_2593 = BgL_stackz00_118;
			BgL_zc3z04anonymousza32042ze3z87_2594:
				if (PAIRP(BgL_stackz00_2593))
					{
						obj_t BgL_namez00_2596;
						obj_t BgL_locz00_2597;
						obj_t BgL_restz00_2598;

						{	/* Llib/error.scm 1144 */
							obj_t BgL_ezd2371zd2_2601;

							BgL_ezd2371zd2_2601 = CAR(BgL_stackz00_2593);
							if (PAIRP(BgL_ezd2371zd2_2601))
								{	/* Llib/error.scm 1144 */
									obj_t BgL_cdrzd2379zd2_2603;

									BgL_cdrzd2379zd2_2603 = CDR(BgL_ezd2371zd2_2601);
									if (PAIRP(BgL_cdrzd2379zd2_2603))
										{	/* Llib/error.scm 1144 */
											obj_t BgL_cdrzd2384zd2_2605;

											BgL_cdrzd2384zd2_2605 = CDR(BgL_cdrzd2379zd2_2603);
											{	/* Llib/error.scm 1144 */
												bool_t BgL_test3443z00_7890;

												if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
													(BgL_cdrzd2384zd2_2605))
													{	/* Llib/error.scm 1018 */
														obj_t BgL_list1943z00_4461;

														BgL_list1943z00_4461 =
															MAKE_YOUNG_PAIR(BgL_cdrzd2384zd2_2605, BNIL);
														BgL_test3443z00_7890 =
															CBOOL(BGl_everyz00zz__r4_pairs_and_lists_6_3z00
															(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
																BgL_list1943z00_4461));
													}
												else
													{	/* Llib/error.scm 1018 */
														BgL_test3443z00_7890 = ((bool_t) 0);
													}
												if (BgL_test3443z00_7890)
													{	/* Llib/error.scm 1144 */
														BgL_namez00_2596 = CAR(BgL_ezd2371zd2_2601);
														BgL_locz00_2597 = CAR(BgL_cdrzd2379zd2_2603);
														BgL_restz00_2598 = BgL_cdrzd2384zd2_2605;
														{	/* Llib/error.scm 1147 */
															obj_t BgL_filez00_2609;

															BgL_filez00_2609 =
																BGl_locationzd2linezd2numz00zz__errorz00
																(BgL_locz00_2597);
															{	/* Llib/error.scm 1148 */
																obj_t BgL_lnumz00_2610;
																obj_t BgL_lpointz00_2611;
																obj_t BgL_lstringz00_2612;

																{	/* Llib/error.scm 1150 */
																	obj_t BgL_tmpz00_4439;

																	{	/* Llib/error.scm 1150 */
																		int BgL_tmpz00_7897;

																		BgL_tmpz00_7897 = (int) (1L);
																		BgL_tmpz00_4439 =
																			BGL_MVALUES_VAL(BgL_tmpz00_7897);
																	}
																	{	/* Llib/error.scm 1150 */
																		int BgL_tmpz00_7900;

																		BgL_tmpz00_7900 = (int) (1L);
																		BGL_MVALUES_VAL_SET(BgL_tmpz00_7900,
																			BUNSPEC);
																	}
																	BgL_lnumz00_2610 = BgL_tmpz00_4439;
																}
																{	/* Llib/error.scm 1150 */
																	obj_t BgL_tmpz00_4440;

																	{	/* Llib/error.scm 1150 */
																		int BgL_tmpz00_7903;

																		BgL_tmpz00_7903 = (int) (2L);
																		BgL_tmpz00_4440 =
																			BGL_MVALUES_VAL(BgL_tmpz00_7903);
																	}
																	{	/* Llib/error.scm 1150 */
																		int BgL_tmpz00_7906;

																		BgL_tmpz00_7906 = (int) (2L);
																		BGL_MVALUES_VAL_SET(BgL_tmpz00_7906,
																			BUNSPEC);
																	}
																	BgL_lpointz00_2611 = BgL_tmpz00_4440;
																}
																{	/* Llib/error.scm 1150 */
																	obj_t BgL_tmpz00_4441;

																	{	/* Llib/error.scm 1150 */
																		int BgL_tmpz00_7909;

																		BgL_tmpz00_7909 = (int) (3L);
																		BgL_tmpz00_4441 =
																			BGL_MVALUES_VAL(BgL_tmpz00_7909);
																	}
																	{	/* Llib/error.scm 1150 */
																		int BgL_tmpz00_7912;

																		BgL_tmpz00_7912 = (int) (3L);
																		BGL_MVALUES_VAL_SET(BgL_tmpz00_7912,
																			BUNSPEC);
																	}
																	BgL_lstringz00_2612 = BgL_tmpz00_4441;
																}
																{	/* Llib/error.scm 1150 */
																	bool_t BgL_test3445z00_7915;

																	if (STRINGP(BgL_filez00_2609))
																		{	/* Llib/error.scm 1150 */
																			BgL_test3445z00_7915 =
																				STRINGP(BgL_lstringz00_2612);
																		}
																	else
																		{	/* Llib/error.scm 1150 */
																			BgL_test3445z00_7915 = ((bool_t) 0);
																		}
																	if (BgL_test3445z00_7915)
																		{	/* Llib/error.scm 1134 */
																			obj_t BgL_tabsz00_4442;

																			if (
																				((long) CINT(BgL_lpointz00_2611) > 0L))
																				{	/* Llib/error.scm 1134 */
																					BgL_tabsz00_4442 =
																						make_string(
																						(long) CINT(BgL_lpointz00_2611),
																						((unsigned char) ' '));
																				}
																			else
																				{	/* Llib/error.scm 1134 */
																					BgL_tabsz00_4442 =
																						BGl_string2920z00zz__errorz00;
																				}
																			{	/* Llib/error.scm 1134 */
																				long BgL_lz00_4444;

																				BgL_lz00_4444 =
																					STRING_LENGTH(BgL_lstringz00_2612);
																				{	/* Llib/error.scm 1135 */
																					obj_t BgL_ncolz00_4445;

																					if (
																						((long) CINT(BgL_lpointz00_2611) >=
																							BgL_lz00_4444))
																						{	/* Llib/error.scm 1136 */
																							BgL_ncolz00_4445 =
																								BINT(BgL_lz00_4444);
																						}
																					else
																						{	/* Llib/error.scm 1136 */
																							BgL_ncolz00_4445 =
																								BgL_lpointz00_2611;
																						}
																					{	/* Llib/error.scm 1136 */

																						BGl_fixzd2tabulationz12zc0zz__errorz00
																							(BgL_ncolz00_4445,
																							BgL_lstringz00_2612,
																							BgL_tabsz00_4442);
																						return
																							BGl_printzd2cursorzd2zz__errorz00
																							(BgL_filez00_2609,
																							BgL_lnumz00_2610,
																							BgL_lpointz00_2611,
																							BgL_lstringz00_2612,
																							BgL_tabsz00_4442);
																					}
																				}
																			}
																		}
																	else
																		{	/* Llib/error.scm 1152 */
																			bool_t BgL_test3449z00_7931;

																			if (STRINGP(BgL_filez00_2609))
																				{	/* Llib/error.scm 1152 */
																					BgL_test3449z00_7931 =
																						BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
																						(BgL_lpointz00_2611);
																				}
																			else
																				{	/* Llib/error.scm 1152 */
																					BgL_test3449z00_7931 = ((bool_t) 0);
																				}
																			if (BgL_test3449z00_7931)
																				{	/* Llib/error.scm 1152 */
																					if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_lnumz00_2610))
																						{	/* Llib/error.scm 1154 */
																							obj_t BgL_arg2054z00_2618;
																							obj_t BgL_arg2055z00_2619;

																							{	/* Llib/error.scm 1154 */
																								obj_t BgL_tmpz00_7937;

																								BgL_tmpz00_7937 =
																									BGL_CURRENT_DYNAMIC_ENV();
																								BgL_arg2054z00_2618 =
																									BGL_ENV_CURRENT_ERROR_PORT
																									(BgL_tmpz00_7937);
																							}
																							{	/* Llib/error.scm 1156 */

																								BgL_arg2055z00_2619 =
																									BGl_filenamezd2forzd2errorz00zz__errorz00
																									(BgL_filez00_2609, 255L);
																							}
																							{	/* Llib/error.scm 1154 */
																								obj_t BgL_list2056z00_2620;

																								{	/* Llib/error.scm 1154 */
																									obj_t BgL_arg2058z00_2621;

																									{	/* Llib/error.scm 1154 */
																										obj_t BgL_arg2059z00_2622;

																										BgL_arg2059z00_2622 =
																											MAKE_YOUNG_PAIR
																											(BgL_lpointz00_2611,
																											BNIL);
																										BgL_arg2058z00_2621 =
																											MAKE_YOUNG_PAIR
																											(BgL_lnumz00_2610,
																											BgL_arg2059z00_2622);
																									}
																									BgL_list2056z00_2620 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg2055z00_2619,
																										BgL_arg2058z00_2621);
																								}
																								return
																									BGl_fprintfz00zz__r4_output_6_10_3z00
																									(BgL_arg2054z00_2618,
																									BGl_string2955z00zz__errorz00,
																									BgL_list2056z00_2620);
																							}
																						}
																					else
																						{	/* Llib/error.scm 1159 */
																							obj_t BgL_arg2060z00_2625;
																							obj_t BgL_arg2061z00_2626;

																							{	/* Llib/error.scm 1159 */
																								obj_t BgL_tmpz00_7945;

																								BgL_tmpz00_7945 =
																									BGL_CURRENT_DYNAMIC_ENV();
																								BgL_arg2060z00_2625 =
																									BGL_ENV_CURRENT_ERROR_PORT
																									(BgL_tmpz00_7945);
																							}
																							{	/* Llib/error.scm 1161 */

																								BgL_arg2061z00_2626 =
																									BGl_filenamezd2forzd2errorz00zz__errorz00
																									(BgL_filez00_2609, 255L);
																							}
																							{	/* Llib/error.scm 1159 */
																								obj_t BgL_list2062z00_2627;

																								{	/* Llib/error.scm 1159 */
																									obj_t BgL_arg2063z00_2628;

																									BgL_arg2063z00_2628 =
																										MAKE_YOUNG_PAIR
																										(BgL_lpointz00_2611, BNIL);
																									BgL_list2062z00_2627 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg2061z00_2626,
																										BgL_arg2063z00_2628);
																								}
																								return
																									BGl_fprintfz00zz__r4_output_6_10_3z00
																									(BgL_arg2060z00_2625,
																									BGl_string2956z00zz__errorz00,
																									BgL_list2062z00_2627);
																							}
																						}
																				}
																			else
																				{	/* Llib/error.scm 1164 */
																					obj_t BgL_arg2064z00_2631;

																					BgL_arg2064z00_2631 =
																						CDR(((obj_t) BgL_stackz00_2593));
																					{
																						obj_t BgL_stackz00_7954;

																						BgL_stackz00_7954 =
																							BgL_arg2064z00_2631;
																						BgL_stackz00_2593 =
																							BgL_stackz00_7954;
																						goto
																							BgL_zc3z04anonymousza32042ze3z87_2594;
																					}
																				}
																		}
																}
															}
														}
													}
												else
													{
														obj_t BgL_stackz00_7957;

														BgL_stackz00_7957 = CDR(BgL_stackz00_2593);
														BgL_stackz00_2593 = BgL_stackz00_7957;
														goto BgL_zc3z04anonymousza32042ze3z87_2594;
													}
											}
										}
									else
										{
											obj_t BgL_stackz00_7959;

											BgL_stackz00_7959 = CDR(BgL_stackz00_2593);
											BgL_stackz00_2593 = BgL_stackz00_7959;
											goto BgL_zc3z04anonymousza32042ze3z87_2594;
										}
								}
							else
								{
									obj_t BgL_stackz00_7961;

									BgL_stackz00_7961 = CDR(BgL_stackz00_2593);
									BgL_stackz00_2593 = BgL_stackz00_7961;
									goto BgL_zc3z04anonymousza32042ze3z87_2594;
								}
						}
					}
				else
					{	/* Llib/error.scm 1143 */
						return BFALSE;
					}
			}
		}

	}



/* &display-trace-stack-source */
	obj_t BGl_z62displayzd2tracezd2stackzd2sourcezb0zz__errorz00(obj_t
		BgL_envz00_5337, obj_t BgL_stackz00_5338, obj_t BgL_portz00_5339)
	{
		{	/* Llib/error.scm 1131 */
			{	/* Llib/error.scm 1143 */
				obj_t BgL_auxz00_7963;

				if (OUTPUT_PORTP(BgL_portz00_5339))
					{	/* Llib/error.scm 1143 */
						BgL_auxz00_7963 = BgL_portz00_5339;
					}
				else
					{
						obj_t BgL_auxz00_7966;

						BgL_auxz00_7966 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(44802L), BGl_string2957z00zz__errorz00,
							BGl_string2938z00zz__errorz00, BgL_portz00_5339);
						FAILURE(BgL_auxz00_7966, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2tracezd2stackzd2sourcezd2zz__errorz00(BgL_stackz00_5338,
					BgL_auxz00_7963);
			}
		}

	}



/* dump-trace-stack */
	BGL_EXPORTED_DEF obj_t BGl_dumpzd2tracezd2stackz00zz__errorz00(obj_t
		BgL_portz00_120, obj_t BgL_depthz00_121)
	{
		{	/* Llib/error.scm 1171 */
			{	/* Llib/error.scm 1172 */
				obj_t BgL_arg2069z00_4470;

				BgL_arg2069z00_4470 =
					BGl_getzd2tracezd2stackz00zz__errorz00(BgL_depthz00_121);
				{	/* Llib/error.scm 278 */

					return
						BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_arg2069z00_4470,
						BgL_portz00_120, BINT(1L));
				}
			}
		}

	}



/* &dump-trace-stack */
	obj_t BGl_z62dumpzd2tracezd2stackz62zz__errorz00(obj_t BgL_envz00_5340,
		obj_t BgL_portz00_5341, obj_t BgL_depthz00_5342)
	{
		{	/* Llib/error.scm 1171 */
			return
				BGl_dumpzd2tracezd2stackz00zz__errorz00(BgL_portz00_5341,
				BgL_depthz00_5342);
		}

	}



/* fix-tabulation! */
	obj_t BGl_fixzd2tabulationz12zc0zz__errorz00(obj_t BgL_markerz00_122,
		obj_t BgL_srcz00_123, obj_t BgL_dstz00_124)
	{
		{	/* Llib/error.scm 1177 */
			{	/* Llib/error.scm 1178 */
				long BgL_g1136z00_2651;

				BgL_g1136z00_2651 = ((long) CINT(BgL_markerz00_122) - 1L);
				{
					long BgL_readz00_2653;

					BgL_readz00_2653 = BgL_g1136z00_2651;
				BgL_zc3z04anonymousza32070ze3z87_2654:
					if ((BgL_readz00_2653 == (-1L)))
						{	/* Llib/error.scm 1180 */
							return BGl_symbol2958z00zz__errorz00;
						}
					else
						{	/* Llib/error.scm 1180 */
							if (
								(STRING_REF(
										((obj_t) BgL_srcz00_123),
										BgL_readz00_2653) == ((unsigned char) 9)))
								{	/* Llib/error.scm 1182 */
									STRING_SET(BgL_dstz00_124, BgL_readz00_2653,
										((unsigned char) 9));
									{
										long BgL_readz00_7984;

										BgL_readz00_7984 = (BgL_readz00_2653 - 1L);
										BgL_readz00_2653 = BgL_readz00_7984;
										goto BgL_zc3z04anonymousza32070ze3z87_2654;
									}
								}
							else
								{
									long BgL_readz00_7986;

									BgL_readz00_7986 = (BgL_readz00_2653 - 1L);
									BgL_readz00_2653 = BgL_readz00_7986;
									goto BgL_zc3z04anonymousza32070ze3z87_2654;
								}
						}
				}
			}
		}

	}



/* print-cursor */
	obj_t BGl_printzd2cursorzd2zz__errorz00(obj_t BgL_fnamez00_125,
		obj_t BgL_linez00_126, obj_t BgL_charz00_127, obj_t BgL_stringz00_128,
		obj_t BgL_spacezd2stringzd2_129)
	{
		{	/* Llib/error.scm 1191 */
			{	/* Llib/error.scm 1192 */
				obj_t BgL_arg2077z00_2662;
				obj_t BgL_arg2078z00_2663;

				{	/* Llib/error.scm 1192 */
					obj_t BgL_tmpz00_7988;

					BgL_tmpz00_7988 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg2077z00_2662 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7988);
				}
				{	/* Llib/error.scm 1193 */

					BgL_arg2078z00_2663 =
						BGl_filenamezd2forzd2errorz00zz__errorz00(BgL_fnamez00_125, 255L);
				}
				{	/* Llib/error.scm 1192 */
					obj_t BgL_list2079z00_2664;

					{	/* Llib/error.scm 1192 */
						obj_t BgL_arg2080z00_2665;

						{	/* Llib/error.scm 1192 */
							obj_t BgL_arg2081z00_2666;

							{	/* Llib/error.scm 1192 */
								obj_t BgL_arg2082z00_2667;

								{	/* Llib/error.scm 1192 */
									obj_t BgL_arg2083z00_2668;

									{	/* Llib/error.scm 1192 */
										obj_t BgL_arg2084z00_2669;

										{	/* Llib/error.scm 1192 */
											obj_t BgL_arg2085z00_2670;

											{	/* Llib/error.scm 1192 */
												obj_t BgL_arg2086z00_2671;

												{	/* Llib/error.scm 1192 */
													obj_t BgL_arg2087z00_2672;

													{	/* Llib/error.scm 1192 */
														obj_t BgL_arg2088z00_2673;

														{	/* Llib/error.scm 1192 */
															obj_t BgL_arg2089z00_2674;

															{	/* Llib/error.scm 1192 */
																obj_t BgL_arg2090z00_2675;

																{	/* Llib/error.scm 1192 */
																	obj_t BgL_arg2091z00_2676;

																	{	/* Llib/error.scm 1192 */
																		obj_t BgL_arg2092z00_2677;

																		BgL_arg2092z00_2677 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2960z00zz__errorz00, BNIL);
																		BgL_arg2091z00_2676 =
																			MAKE_YOUNG_PAIR(BgL_spacezd2stringzd2_129,
																			BgL_arg2092z00_2677);
																	}
																	BgL_arg2090z00_2675 =
																		MAKE_YOUNG_PAIR
																		(BGl_string2961z00zz__errorz00,
																		BgL_arg2091z00_2676);
																}
																BgL_arg2089z00_2674 =
																	MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 10)),
																	BgL_arg2090z00_2675);
															}
															BgL_arg2088z00_2673 =
																MAKE_YOUNG_PAIR(BgL_stringz00_128,
																BgL_arg2089z00_2674);
														}
														BgL_arg2087z00_2672 =
															MAKE_YOUNG_PAIR(BGl_string2961z00zz__errorz00,
															BgL_arg2088z00_2673);
													}
													BgL_arg2086z00_2671 =
														MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 10)),
														BgL_arg2087z00_2672);
												}
												BgL_arg2085z00_2670 =
													MAKE_YOUNG_PAIR(BGl_string2888z00zz__errorz00,
													BgL_arg2086z00_2671);
											}
											BgL_arg2084z00_2669 =
												MAKE_YOUNG_PAIR(BgL_charz00_127, BgL_arg2085z00_2670);
										}
										BgL_arg2083z00_2668 =
											MAKE_YOUNG_PAIR(BGl_string2962z00zz__errorz00,
											BgL_arg2084z00_2669);
									}
									BgL_arg2082z00_2667 =
										MAKE_YOUNG_PAIR(BgL_linez00_126, BgL_arg2083z00_2668);
								}
								BgL_arg2081z00_2666 =
									MAKE_YOUNG_PAIR(BGl_string2963z00zz__errorz00,
									BgL_arg2082z00_2667);
							}
							BgL_arg2080z00_2665 =
								MAKE_YOUNG_PAIR(BgL_arg2078z00_2663, BgL_arg2081z00_2666);
						}
						BgL_list2079z00_2664 =
							MAKE_YOUNG_PAIR(BGl_string2918z00zz__errorz00,
							BgL_arg2080z00_2665);
					}
					return
						BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg2077z00_2662,
						BgL_list2079z00_2664);
				}
			}
		}

	}



/* relative-file-name */
	obj_t BGl_relativezd2filezd2namez00zz__errorz00(obj_t BgL_fnamez00_130)
	{
		{	/* Llib/error.scm 1206 */
			{	/* Llib/error.scm 1207 */
				obj_t BgL_pwdz00_2680;
				obj_t BgL_dnamez00_2681;

				BgL_pwdz00_2680 = BGl_pwdz00zz__osz00();
				BgL_dnamez00_2681 = BGl_dirnamez00zz__osz00(BgL_fnamez00_130);
				{	/* Llib/error.scm 1209 */
					bool_t BgL_test3455z00_8011;

					if (STRINGP(BgL_pwdz00_2680))
						{	/* Llib/error.scm 1210 */
							bool_t BgL_test3457z00_8014;

							{	/* Llib/error.scm 1210 */
								long BgL_l1z00_4488;

								BgL_l1z00_4488 = STRING_LENGTH(BgL_dnamez00_2681);
								if ((BgL_l1z00_4488 == 1L))
									{	/* Llib/error.scm 1210 */
										int BgL_arg2324z00_4491;

										{	/* Llib/error.scm 1210 */
											char *BgL_auxz00_8020;
											char *BgL_tmpz00_8018;

											BgL_auxz00_8020 =
												BSTRING_TO_STRING(BGl_string2952z00zz__errorz00);
											BgL_tmpz00_8018 = BSTRING_TO_STRING(BgL_dnamez00_2681);
											BgL_arg2324z00_4491 =
												memcmp(BgL_tmpz00_8018, BgL_auxz00_8020,
												BgL_l1z00_4488);
										}
										BgL_test3457z00_8014 = ((long) (BgL_arg2324z00_4491) == 0L);
									}
								else
									{	/* Llib/error.scm 1210 */
										BgL_test3457z00_8014 = ((bool_t) 0);
									}
							}
							if (BgL_test3457z00_8014)
								{	/* Llib/error.scm 1210 */
									BgL_test3455z00_8011 = ((bool_t) 1);
								}
							else
								{	/* Llib/error.scm 1210 */
									if (
										(STRING_REF(
												((obj_t) BgL_fnamez00_130),
												0L) == ((unsigned char) '/')))
										{	/* Llib/error.scm 1211 */
											BgL_test3455z00_8011 = ((bool_t) 0);
										}
									else
										{	/* Llib/error.scm 1211 */
											BgL_test3455z00_8011 = ((bool_t) 1);
										}
								}
						}
					else
						{	/* Llib/error.scm 1209 */
							BgL_test3455z00_8011 = ((bool_t) 1);
						}
					if (BgL_test3455z00_8011)
						{	/* Llib/error.scm 1209 */
							return BgL_fnamez00_130;
						}
					else
						{	/* Llib/error.scm 1214 */
							obj_t BgL_originalzd2cmpzd2pathz00_2688;

							BgL_originalzd2cmpzd2pathz00_2688 =
								BGl_dirnamezd2ze3listz31zz__errorz00(BgL_dnamez00_2681);
							{	/* Llib/error.scm 1215 */
								obj_t BgL_g1137z00_2689;

								BgL_g1137z00_2689 =
									BGl_dirnamezd2ze3listz31zz__errorz00(BgL_pwdz00_2680);
								{
									obj_t BgL_cmpzd2pathzd2_2691;
									obj_t BgL_curzd2pathzd2_2692;

									BgL_cmpzd2pathzd2_2691 = BgL_originalzd2cmpzd2pathz00_2688;
									BgL_curzd2pathzd2_2692 = BgL_g1137z00_2689;
								BgL_zc3z04anonymousza32099ze3z87_2693:
									if (NULLP(BgL_cmpzd2pathzd2_2691))
										{	/* Llib/error.scm 1218 */
											if (NULLP(BgL_curzd2pathzd2_2692))
												{	/* Llib/error.scm 1219 */
													return BGl_basenamez00zz__osz00(BgL_fnamez00_130);
												}
											else
												{	/* Llib/error.scm 1222 */
													long BgL_g1138z00_2696;
													obj_t BgL_g1139z00_2697;

													BgL_g1138z00_2696 =
														bgl_list_length(BgL_curzd2pathzd2_2692);
													BgL_g1139z00_2697 =
														BGl_basenamez00zz__osz00(BgL_fnamez00_130);
													{
														long BgL_lenz00_4515;
														obj_t BgL_resz00_4516;

														BgL_lenz00_4515 = BgL_g1138z00_2696;
														BgL_resz00_4516 = BgL_g1139z00_2697;
													BgL_loopz00_4514:
														if ((BgL_lenz00_4515 == 0L))
															{	/* Llib/error.scm 1224 */
																return BgL_resz00_4516;
															}
														else
															{	/* Llib/error.scm 1226 */
																long BgL_arg2104z00_4523;
																obj_t BgL_arg2105z00_4524;

																BgL_arg2104z00_4523 = (BgL_lenz00_4515 - 1L);
																{	/* Llib/error.scm 1226 */
																	obj_t BgL_list2106z00_4525;

																	{	/* Llib/error.scm 1226 */
																		obj_t BgL_arg2107z00_4526;

																		BgL_arg2107z00_4526 =
																			MAKE_YOUNG_PAIR(BgL_resz00_4516, BNIL);
																		BgL_list2106z00_4525 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2964z00zz__errorz00,
																			BgL_arg2107z00_4526);
																	}
																	BgL_arg2105z00_4524 =
																		BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																		(BgL_list2106z00_4525);
																}
																{
																	obj_t BgL_resz00_8045;
																	long BgL_lenz00_8044;

																	BgL_lenz00_8044 = BgL_arg2104z00_4523;
																	BgL_resz00_8045 = BgL_arg2105z00_4524;
																	BgL_resz00_4516 = BgL_resz00_8045;
																	BgL_lenz00_4515 = BgL_lenz00_8044;
																	goto BgL_loopz00_4514;
																}
															}
													}
												}
										}
									else
										{	/* Llib/error.scm 1218 */
											if (NULLP(BgL_curzd2pathzd2_2692))
												{	/* Llib/error.scm 1228 */
													obj_t BgL_g1140z00_2709;
													obj_t BgL_g1141z00_2710;

													BgL_g1140z00_2709 =
														bgl_reverse_bang(BgL_cmpzd2pathzd2_2691);
													BgL_g1141z00_2710 =
														BGl_basenamez00zz__osz00(BgL_fnamez00_130);
													{
														obj_t BgL_pathz00_4548;
														obj_t BgL_resz00_4549;

														BgL_pathz00_4548 = BgL_g1140z00_2709;
														BgL_resz00_4549 = BgL_g1141z00_2710;
													BgL_loopz00_4547:
														if (NULLP(BgL_pathz00_4548))
															{	/* Llib/error.scm 1230 */
																return BgL_resz00_4549;
															}
														else
															{	/* Llib/error.scm 1232 */
																obj_t BgL_arg2111z00_4558;
																obj_t BgL_arg2112z00_4559;

																BgL_arg2111z00_4558 =
																	CDR(((obj_t) BgL_pathz00_4548));
																{	/* Llib/error.scm 1233 */
																	obj_t BgL_arg2113z00_4560;

																	BgL_arg2113z00_4560 =
																		CAR(((obj_t) BgL_pathz00_4548));
																	{	/* Llib/error.scm 1233 */
																		obj_t BgL_list2114z00_4561;

																		{	/* Llib/error.scm 1233 */
																			obj_t BgL_arg2115z00_4562;

																			{	/* Llib/error.scm 1233 */
																				obj_t BgL_arg2116z00_4563;

																				BgL_arg2116z00_4563 =
																					MAKE_YOUNG_PAIR(BgL_resz00_4549,
																					BNIL);
																				BgL_arg2115z00_4562 =
																					MAKE_YOUNG_PAIR
																					(BGl_string2965z00zz__errorz00,
																					BgL_arg2116z00_4563);
																			}
																			BgL_list2114z00_4561 =
																				MAKE_YOUNG_PAIR(BgL_arg2113z00_4560,
																				BgL_arg2115z00_4562);
																		}
																		BgL_arg2112z00_4559 =
																			BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																			(BgL_list2114z00_4561);
																	}
																}
																{
																	obj_t BgL_resz00_8061;
																	obj_t BgL_pathz00_8060;

																	BgL_pathz00_8060 = BgL_arg2111z00_4558;
																	BgL_resz00_8061 = BgL_arg2112z00_4559;
																	BgL_resz00_4549 = BgL_resz00_8061;
																	BgL_pathz00_4548 = BgL_pathz00_8060;
																	goto BgL_loopz00_4547;
																}
															}
													}
												}
											else
												{	/* Llib/error.scm 1234 */
													bool_t BgL_test3465z00_8062;

													{	/* Llib/error.scm 1234 */
														obj_t BgL_arg2139z00_2756;
														obj_t BgL_arg2141z00_2757;

														BgL_arg2139z00_2756 =
															CAR(((obj_t) BgL_curzd2pathzd2_2692));
														BgL_arg2141z00_2757 =
															CAR(((obj_t) BgL_cmpzd2pathzd2_2691));
														{	/* Llib/error.scm 1234 */
															long BgL_l1z00_4570;

															BgL_l1z00_4570 =
																STRING_LENGTH(((obj_t) BgL_arg2139z00_2756));
															if (
																(BgL_l1z00_4570 ==
																	STRING_LENGTH(((obj_t) BgL_arg2141z00_2757))))
																{	/* Llib/error.scm 1234 */
																	int BgL_arg2324z00_4573;

																	{	/* Llib/error.scm 1234 */
																		char *BgL_auxz00_8076;
																		char *BgL_tmpz00_8073;

																		BgL_auxz00_8076 =
																			BSTRING_TO_STRING(
																			((obj_t) BgL_arg2141z00_2757));
																		BgL_tmpz00_8073 =
																			BSTRING_TO_STRING(
																			((obj_t) BgL_arg2139z00_2756));
																		BgL_arg2324z00_4573 =
																			memcmp(BgL_tmpz00_8073, BgL_auxz00_8076,
																			BgL_l1z00_4570);
																	}
																	BgL_test3465z00_8062 =
																		((long) (BgL_arg2324z00_4573) == 0L);
																}
															else
																{	/* Llib/error.scm 1234 */
																	BgL_test3465z00_8062 = ((bool_t) 0);
																}
														}
													}
													if (BgL_test3465z00_8062)
														{	/* Llib/error.scm 1235 */
															obj_t BgL_arg2120z00_2726;
															obj_t BgL_arg2121z00_2727;

															BgL_arg2120z00_2726 =
																CDR(((obj_t) BgL_cmpzd2pathzd2_2691));
															BgL_arg2121z00_2727 =
																CDR(((obj_t) BgL_curzd2pathzd2_2692));
															{
																obj_t BgL_curzd2pathzd2_8087;
																obj_t BgL_cmpzd2pathzd2_8086;

																BgL_cmpzd2pathzd2_8086 = BgL_arg2120z00_2726;
																BgL_curzd2pathzd2_8087 = BgL_arg2121z00_2727;
																BgL_curzd2pathzd2_2692 = BgL_curzd2pathzd2_8087;
																BgL_cmpzd2pathzd2_2691 = BgL_cmpzd2pathzd2_8086;
																goto BgL_zc3z04anonymousza32099ze3z87_2693;
															}
														}
													else
														{	/* Llib/error.scm 1237 */
															obj_t BgL_g1142z00_2728;
															obj_t BgL_g1143z00_2729;

															BgL_g1142z00_2728 =
																bgl_reverse(BgL_cmpzd2pathzd2_2691);
															BgL_g1143z00_2729 =
																BGl_basenamez00zz__osz00(BgL_fnamez00_130);
															{
																obj_t BgL_pathz00_2731;
																obj_t BgL_resz00_2732;

																BgL_pathz00_2731 = BgL_g1142z00_2728;
																BgL_resz00_2732 = BgL_g1143z00_2729;
															BgL_zc3z04anonymousza32122ze3z87_2733:
																if (NULLP(BgL_pathz00_2731))
																	{	/* Llib/error.scm 1239 */
																		if (
																			(BgL_cmpzd2pathzd2_2691 ==
																				BgL_originalzd2cmpzd2pathz00_2688))
																			{	/* Llib/error.scm 1241 */
																				obj_t BgL_list2125z00_2736;

																				{	/* Llib/error.scm 1241 */
																					obj_t BgL_arg2126z00_2737;

																					BgL_arg2126z00_2737 =
																						MAKE_YOUNG_PAIR(BgL_resz00_2732,
																						BNIL);
																					BgL_list2125z00_2736 =
																						MAKE_YOUNG_PAIR
																						(BGl_string2965z00zz__errorz00,
																						BgL_arg2126z00_2737);
																				}
																				BGL_TAIL return
																					BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																					(BgL_list2125z00_2736);
																			}
																		else
																			{	/* Llib/error.scm 1242 */
																				long BgL_g1144z00_2738;

																				BgL_g1144z00_2738 =
																					bgl_list_length
																					(BgL_curzd2pathzd2_2692);
																				{
																					long BgL_lenz00_4596;
																					obj_t BgL_resz00_4597;

																					BgL_lenz00_4596 = BgL_g1144z00_2738;
																					BgL_resz00_4597 = BgL_resz00_2732;
																				BgL_loopz00_4595:
																					if ((BgL_lenz00_4596 == 0L))
																						{	/* Llib/error.scm 1244 */
																							return BgL_resz00_4597;
																						}
																					else
																						{	/* Llib/error.scm 1246 */
																							long BgL_arg2129z00_4604;
																							obj_t BgL_arg2130z00_4605;

																							BgL_arg2129z00_4604 =
																								(BgL_lenz00_4596 - 1L);
																							{	/* Llib/error.scm 1247 */
																								obj_t BgL_list2131z00_4606;

																								{	/* Llib/error.scm 1247 */
																									obj_t BgL_arg2132z00_4607;

																									BgL_arg2132z00_4607 =
																										MAKE_YOUNG_PAIR
																										(BgL_resz00_4597, BNIL);
																									BgL_list2131z00_4606 =
																										MAKE_YOUNG_PAIR
																										(BGl_string2964z00zz__errorz00,
																										BgL_arg2132z00_4607);
																								}
																								BgL_arg2130z00_4605 =
																									BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																									(BgL_list2131z00_4606);
																							}
																							{
																								obj_t BgL_resz00_8105;
																								long BgL_lenz00_8104;

																								BgL_lenz00_8104 =
																									BgL_arg2129z00_4604;
																								BgL_resz00_8105 =
																									BgL_arg2130z00_4605;
																								BgL_resz00_4597 =
																									BgL_resz00_8105;
																								BgL_lenz00_4596 =
																									BgL_lenz00_8104;
																								goto BgL_loopz00_4595;
																							}
																						}
																				}
																			}
																	}
																else
																	{	/* Llib/error.scm 1248 */
																		obj_t BgL_arg2133z00_2749;
																		obj_t BgL_arg2134z00_2750;

																		BgL_arg2133z00_2749 =
																			CDR(((obj_t) BgL_pathz00_2731));
																		{	/* Llib/error.scm 1249 */
																			obj_t BgL_arg2135z00_2751;

																			BgL_arg2135z00_2751 =
																				CAR(((obj_t) BgL_pathz00_2731));
																			{	/* Llib/error.scm 1249 */
																				obj_t BgL_list2136z00_2752;

																				{	/* Llib/error.scm 1249 */
																					obj_t BgL_arg2137z00_2753;

																					{	/* Llib/error.scm 1249 */
																						obj_t BgL_arg2138z00_2754;

																						BgL_arg2138z00_2754 =
																							MAKE_YOUNG_PAIR(BgL_resz00_2732,
																							BNIL);
																						BgL_arg2137z00_2753 =
																							MAKE_YOUNG_PAIR
																							(BGl_string2965z00zz__errorz00,
																							BgL_arg2138z00_2754);
																					}
																					BgL_list2136z00_2752 =
																						MAKE_YOUNG_PAIR(BgL_arg2135z00_2751,
																						BgL_arg2137z00_2753);
																				}
																				BgL_arg2134z00_2750 =
																					BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																					(BgL_list2136z00_2752);
																			}
																		}
																		{
																			obj_t BgL_resz00_8115;
																			obj_t BgL_pathz00_8114;

																			BgL_pathz00_8114 = BgL_arg2133z00_2749;
																			BgL_resz00_8115 = BgL_arg2134z00_2750;
																			BgL_resz00_2732 = BgL_resz00_8115;
																			BgL_pathz00_2731 = BgL_pathz00_8114;
																			goto
																				BgL_zc3z04anonymousza32122ze3z87_2733;
																		}
																	}
															}
														}
												}
										}
								}
							}
						}
				}
			}
		}

	}



/* uncygdrive */
	obj_t BGl_uncygdrivez00zz__errorz00(obj_t BgL_strz00_131)
	{
		{	/* Llib/error.scm 1257 */
			if (bigloo_strncmp(BGl_string2966z00zz__errorz00, BgL_strz00_131, 10L))
				{	/* Llib/error.scm 1259 */
					bool_t BgL_test3471z00_8118;

					if ((STRING_LENGTH(BgL_strz00_131) > 12L))
						{	/* Llib/error.scm 1260 */
							bool_t BgL_test3473z00_8122;

							{	/* Llib/error.scm 1260 */
								unsigned char BgL_tmpz00_8123;

								BgL_tmpz00_8123 = STRING_REF(BgL_strz00_131, 10L);
								BgL_test3473z00_8122 = isalpha(BgL_tmpz00_8123);
							}
							if (BgL_test3473z00_8122)
								{	/* Llib/error.scm 1260 */
									BgL_test3471z00_8118 =
										(STRING_REF(BgL_strz00_131, 11L) == ((unsigned char) '/'));
								}
							else
								{	/* Llib/error.scm 1260 */
									BgL_test3471z00_8118 = ((bool_t) 0);
								}
						}
					else
						{	/* Llib/error.scm 1259 */
							BgL_test3471z00_8118 = ((bool_t) 0);
						}
					if (BgL_test3471z00_8118)
						{	/* Llib/error.scm 1262 */
							obj_t BgL_arg2152z00_2772;
							obj_t BgL_arg2153z00_2773;

							{	/* Llib/error.scm 1262 */
								unsigned char BgL_arg2156z00_2776;

								BgL_arg2156z00_2776 = STRING_REF(BgL_strz00_131, 10L);
								{	/* Llib/error.scm 1262 */
									obj_t BgL_list2157z00_2777;

									{	/* Llib/error.scm 1262 */
										obj_t BgL_arg2158z00_2778;

										{	/* Llib/error.scm 1262 */
											obj_t BgL_arg2159z00_2779;

											BgL_arg2159z00_2779 =
												MAKE_YOUNG_PAIR(BCHAR(((unsigned char) '/')), BNIL);
											BgL_arg2158z00_2778 =
												MAKE_YOUNG_PAIR(BCHAR(((unsigned char) ':')),
												BgL_arg2159z00_2779);
										}
										BgL_list2157z00_2777 =
											MAKE_YOUNG_PAIR(BCHAR(BgL_arg2156z00_2776),
											BgL_arg2158z00_2778);
									}
									BgL_arg2152z00_2772 =
										BGl_listzd2ze3stringz31zz__r4_strings_6_7z00
										(BgL_list2157z00_2777);
							}}
							BgL_arg2153z00_2773 =
								BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_131, 12L,
								STRING_LENGTH(BgL_strz00_131));
							{	/* Llib/error.scm 1262 */
								obj_t BgL_list2154z00_2774;

								{	/* Llib/error.scm 1262 */
									obj_t BgL_arg2155z00_2775;

									BgL_arg2155z00_2775 =
										MAKE_YOUNG_PAIR(BgL_arg2153z00_2773, BNIL);
									BgL_list2154z00_2774 =
										MAKE_YOUNG_PAIR(BgL_arg2152z00_2772, BgL_arg2155z00_2775);
								}
								return
									BGl_stringzd2appendzd2zz__r4_strings_6_7z00
									(BgL_list2154z00_2774);
							}
						}
					else
						{	/* Llib/error.scm 1259 */
							return BgL_strz00_131;
						}
				}
			else
				{	/* Llib/error.scm 1258 */
					return BgL_strz00_131;
				}
		}

	}



/* dirname->list */
	obj_t BGl_dirnamezd2ze3listz31zz__errorz00(obj_t BgL_pathz00_132)
	{
		{	/* Llib/error.scm 1270 */
			{	/* Llib/error.scm 1271 */
				long BgL_lenz00_2786;
				long BgL_initz00_2787;

				{	/* Llib/error.scm 1271 */
					long BgL_lenz00_2809;

					BgL_lenz00_2809 = STRING_LENGTH(((obj_t) BgL_pathz00_132));
					if (
						(STRING_REF(
								((obj_t) BgL_pathz00_132),
								(BgL_lenz00_2809 - 1L)) == (unsigned char) (FILE_SEPARATOR)))
						{	/* Llib/error.scm 1272 */
							BgL_lenz00_2786 = (BgL_lenz00_2809 - 1L);
						}
					else
						{	/* Llib/error.scm 1272 */
							BgL_lenz00_2786 = BgL_lenz00_2809;
						}
				}
				if (
					(STRING_REF(
							((obj_t) BgL_pathz00_132), 0L) ==
						(unsigned char) (FILE_SEPARATOR)))
					{	/* Llib/error.scm 1275 */
						BgL_initz00_2787 = 1L;
					}
				else
					{	/* Llib/error.scm 1275 */
						BgL_initz00_2787 = 0L;
					}
				{	/* Llib/error.scm 1276 */
					bool_t BgL_test3476z00_8155;

					{	/* Llib/error.scm 1276 */
						long BgL_l1z00_4635;

						BgL_l1z00_4635 = STRING_LENGTH(((obj_t) BgL_pathz00_132));
						if ((BgL_l1z00_4635 == 1L))
							{	/* Llib/error.scm 1276 */
								int BgL_arg2324z00_4638;

								{	/* Llib/error.scm 1276 */
									char *BgL_auxz00_8163;
									char *BgL_tmpz00_8160;

									BgL_auxz00_8163 =
										BSTRING_TO_STRING(BGl_string2965z00zz__errorz00);
									BgL_tmpz00_8160 =
										BSTRING_TO_STRING(((obj_t) BgL_pathz00_132));
									BgL_arg2324z00_4638 =
										memcmp(BgL_tmpz00_8160, BgL_auxz00_8163, BgL_l1z00_4635);
								}
								BgL_test3476z00_8155 = ((long) (BgL_arg2324z00_4638) == 0L);
							}
						else
							{	/* Llib/error.scm 1276 */
								BgL_test3476z00_8155 = ((bool_t) 0);
							}
					}
					if (BgL_test3476z00_8155)
						{	/* Llib/error.scm 1276 */
							return BNIL;
						}
					else
						{
							long BgL_readz00_2791;
							long BgL_prevz00_2792;
							obj_t BgL_listz00_2793;

							BgL_readz00_2791 = BgL_initz00_2787;
							BgL_prevz00_2792 = BgL_initz00_2787;
							BgL_listz00_2793 = BNIL;
						BgL_zc3z04anonymousza32165ze3z87_2794:
							if ((BgL_readz00_2791 == BgL_lenz00_2786))
								{	/* Llib/error.scm 1283 */
									obj_t BgL_arg2167z00_2796;

									BgL_arg2167z00_2796 =
										MAKE_YOUNG_PAIR(BGl_substringz00zz__r4_strings_6_7z00
										(BgL_pathz00_132, BgL_prevz00_2792, BgL_readz00_2791),
										BgL_listz00_2793);
									return bgl_reverse_bang(BgL_arg2167z00_2796);
								}
							else
								{	/* Llib/error.scm 1282 */
									if (
										(STRING_REF(
												((obj_t) BgL_pathz00_132), BgL_readz00_2791) ==
											(unsigned char) (FILE_SEPARATOR)))
										{	/* Llib/error.scm 1285 */
											long BgL_arg2172z00_2801;
											long BgL_arg2173z00_2802;
											obj_t BgL_arg2174z00_2803;

											BgL_arg2172z00_2801 = (BgL_readz00_2791 + 1L);
											BgL_arg2173z00_2802 = (BgL_readz00_2791 + 1L);
											BgL_arg2174z00_2803 =
												MAKE_YOUNG_PAIR(BGl_substringz00zz__r4_strings_6_7z00
												(BgL_pathz00_132, BgL_prevz00_2792, BgL_readz00_2791),
												BgL_listz00_2793);
											{
												obj_t BgL_listz00_8184;
												long BgL_prevz00_8183;
												long BgL_readz00_8182;

												BgL_readz00_8182 = BgL_arg2172z00_2801;
												BgL_prevz00_8183 = BgL_arg2173z00_2802;
												BgL_listz00_8184 = BgL_arg2174z00_2803;
												BgL_listz00_2793 = BgL_listz00_8184;
												BgL_prevz00_2792 = BgL_prevz00_8183;
												BgL_readz00_2791 = BgL_readz00_8182;
												goto BgL_zc3z04anonymousza32165ze3z87_2794;
											}
										}
									else
										{
											long BgL_readz00_8185;

											BgL_readz00_8185 = (BgL_readz00_2791 + 1L);
											BgL_readz00_2791 = BgL_readz00_8185;
											goto BgL_zc3z04anonymousza32165ze3z87_2794;
										}
								}
						}
				}
			}
		}

	}



/* typeof */
	BGL_EXPORTED_DEF obj_t bgl_typeof(obj_t BgL_objz00_133)
	{
		{	/* Llib/error.scm 1297 */
			if (INTEGERP(BgL_objz00_133))
				{	/* Llib/error.scm 1299 */
					return BGl_string2877z00zz__errorz00;
				}
			else
				{	/* Llib/error.scm 1299 */
					if (REALP(BgL_objz00_133))
						{	/* Llib/error.scm 1301 */
							return BGl_string2967z00zz__errorz00;
						}
					else
						{	/* Llib/error.scm 1301 */
							if (STRINGP(BgL_objz00_133))
								{	/* Llib/error.scm 1303 */
									return BGl_string2902z00zz__errorz00;
								}
							else
								{	/* Llib/error.scm 1303 */
									if (SYMBOLP(BgL_objz00_133))
										{	/* Llib/error.scm 1305 */
											return BGl_string2968z00zz__errorz00;
										}
									else
										{	/* Llib/error.scm 1305 */
											if (KEYWORDP(BgL_objz00_133))
												{	/* Llib/error.scm 1307 */
													return BGl_string2969z00zz__errorz00;
												}
											else
												{	/* Llib/error.scm 1307 */
													if (CHARP(BgL_objz00_133))
														{	/* Llib/error.scm 1309 */
															return BGl_string2970z00zz__errorz00;
														}
													else
														{	/* Llib/error.scm 1309 */
															if (BOOLEANP(BgL_objz00_133))
																{	/* Llib/error.scm 1311 */
																	return BGl_string2971z00zz__errorz00;
																}
															else
																{	/* Llib/error.scm 1311 */
																	if (NULLP(BgL_objz00_133))
																		{	/* Llib/error.scm 1313 */
																			return BGl_string2972z00zz__errorz00;
																		}
																	else
																		{	/* Llib/error.scm 1313 */
																			if ((BgL_objz00_133 == BUNSPEC))
																				{	/* Llib/error.scm 1315 */
																					return BGl_string2973z00zz__errorz00;
																				}
																			else
																				{	/* Llib/error.scm 1315 */
																					if (EPAIRP(BgL_objz00_133))
																						{	/* Llib/error.scm 1317 */
																							return
																								BGl_string2974z00zz__errorz00;
																						}
																					else
																						{	/* Llib/error.scm 1317 */
																							if (PAIRP(BgL_objz00_133))
																								{	/* Llib/error.scm 1319 */
																									return
																										BGl_string2975z00zz__errorz00;
																								}
																							else
																								{	/* Llib/error.scm 1319 */
																									if (BGl_classzf3zf3zz__objectz00(BgL_objz00_133))
																										{	/* Llib/error.scm 1321 */
																											return
																												BGl_string2976z00zz__errorz00;
																										}
																									else
																										{	/* Llib/error.scm 1321 */
																											if (VECTORP
																												(BgL_objz00_133))
																												{	/* Llib/error.scm 1323 */
																													return
																														BGl_string2872z00zz__errorz00;
																												}
																											else
																												{	/* Llib/error.scm 1323 */
																													if (TVECTORP
																														(BgL_objz00_133))
																														{	/* Llib/error.scm 1325 */
																															return
																																BGl_string2977z00zz__errorz00;
																														}
																													else
																														{	/* Llib/error.scm 1325 */
																															if (STRUCTP
																																(BgL_objz00_133))
																																{	/* Llib/error.scm 1328 */
																																	obj_t
																																		BgL_arg2207z00_2837;
																																	{	/* Llib/error.scm 1328 */
																																		obj_t
																																			BgL_arg2210z00_2840;
																																		BgL_arg2210z00_2840
																																			=
																																			STRUCT_KEY
																																			(BgL_objz00_133);
																																		{	/* Llib/error.scm 1328 */
																																			obj_t
																																				BgL_arg2331z00_4656;
																																			BgL_arg2331z00_4656
																																				=
																																				SYMBOL_TO_STRING
																																				(BgL_arg2210z00_2840);
																																			BgL_arg2207z00_2837
																																				=
																																				BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																				(BgL_arg2331z00_4656);
																																		}
																																	}
																																	{	/* Llib/error.scm 1328 */
																																		obj_t
																																			BgL_list2208z00_2838;
																																		{	/* Llib/error.scm 1328 */
																																			obj_t
																																				BgL_arg2209z00_2839;
																																			BgL_arg2209z00_2839
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg2207z00_2837,
																																				BNIL);
																																			BgL_list2208z00_2838
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_string2978z00zz__errorz00,
																																				BgL_arg2209z00_2839);
																																		}
																																		BGL_TAIL
																																			return
																																			BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																																			(BgL_list2208z00_2838);
																																	}
																																}
																															else
																																{	/* Llib/error.scm 1327 */
																																	if (PROCEDUREP
																																		(BgL_objz00_133))
																																		{	/* Llib/error.scm 1329 */
																																			return
																																				BGl_string2885z00zz__errorz00;
																																		}
																																	else
																																		{	/* Llib/error.scm 1329 */
																																			if (INPUT_PORTP(BgL_objz00_133))
																																				{	/* Llib/error.scm 1331 */
																																					return
																																						BGl_string2979z00zz__errorz00;
																																				}
																																			else
																																				{	/* Llib/error.scm 1331 */
																																					if (OUTPUT_PORTP(BgL_objz00_133))
																																						{	/* Llib/error.scm 1333 */
																																							return
																																								BGl_string2938z00zz__errorz00;
																																						}
																																					else
																																						{	/* Llib/error.scm 1333 */
																																							if (BINARY_PORTP(BgL_objz00_133))
																																								{	/* Llib/error.scm 1335 */
																																									return
																																										BGl_string2980z00zz__errorz00;
																																								}
																																							else
																																								{	/* Llib/error.scm 1335 */
																																									if (CELLP(BgL_objz00_133))
																																										{	/* Llib/error.scm 1337 */
																																											return
																																												BGl_string2981z00zz__errorz00;
																																										}
																																									else
																																										{	/* Llib/error.scm 1337 */
																																											if (FOREIGNP(BgL_objz00_133))
																																												{	/* Llib/error.scm 1340 */
																																													obj_t
																																														BgL_arg2217z00_2847;
																																													{	/* Llib/error.scm 1340 */
																																														obj_t
																																															BgL_arg2220z00_2850;
																																														BgL_arg2220z00_2850
																																															=
																																															FOREIGN_ID
																																															(BgL_objz00_133);
																																														{	/* Llib/error.scm 1340 */
																																															obj_t
																																																BgL_arg2331z00_4658;
																																															BgL_arg2331z00_4658
																																																=
																																																SYMBOL_TO_STRING
																																																(BgL_arg2220z00_2850);
																																															BgL_arg2217z00_2847
																																																=
																																																BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																(BgL_arg2331z00_4658);
																																														}
																																													}
																																													{	/* Llib/error.scm 1340 */
																																														obj_t
																																															BgL_list2218z00_2848;
																																														{	/* Llib/error.scm 1340 */
																																															obj_t
																																																BgL_arg2219z00_2849;
																																															BgL_arg2219z00_2849
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BgL_arg2217z00_2847,
																																																BNIL);
																																															BgL_list2218z00_2848
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BGl_string2982z00zz__errorz00,
																																																BgL_arg2219z00_2849);
																																														}
																																														BGL_TAIL
																																															return
																																															BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																																															(BgL_list2218z00_2848);
																																													}
																																												}
																																											else
																																												{	/* Llib/error.scm 1339 */
																																													if (SOCKETP(BgL_objz00_133))
																																														{	/* Llib/error.scm 1341 */
																																															return
																																																BGl_string2983z00zz__errorz00;
																																														}
																																													else
																																														{	/* Llib/error.scm 1341 */
																																															if (BGL_DATAGRAM_SOCKETP(BgL_objz00_133))
																																																{	/* Llib/error.scm 1343 */
																																																	return
																																																		BGl_string2984z00zz__errorz00;
																																																}
																																															else
																																																{	/* Llib/error.scm 1343 */
																																																	if (PROCESSP(BgL_objz00_133))
																																																		{	/* Llib/error.scm 1345 */
																																																			return
																																																				BGl_string2985z00zz__errorz00;
																																																		}
																																																	else
																																																		{	/* Llib/error.scm 1345 */
																																																			if (CUSTOMP(BgL_objz00_133))
																																																				{	/* Llib/error.scm 1347 */
																																																					return
																																																						BGl_string2986z00zz__errorz00;
																																																				}
																																																			else
																																																				{	/* Llib/error.scm 1347 */
																																																					if (OPAQUEP(BgL_objz00_133))
																																																						{	/* Llib/error.scm 1349 */
																																																							return
																																																								BGl_string2987z00zz__errorz00;
																																																						}
																																																					else
																																																						{	/* Llib/error.scm 1349 */
																																																							if (BGL_OBJECTP(BgL_objz00_133))
																																																								{	/* Llib/error.scm 1352 */
																																																									obj_t
																																																										BgL_classz00_2857;
																																																									{	/* Llib/error.scm 1352 */
																																																										obj_t
																																																											BgL_arg2777z00_4660;
																																																										long
																																																											BgL_arg2778z00_4661;
																																																										BgL_arg2777z00_4660
																																																											=
																																																											(BGl_za2classesza2z00zz__objectz00);
																																																										{	/* Llib/error.scm 1352 */
																																																											long
																																																												BgL_arg2779z00_4662;
																																																											BgL_arg2779z00_4662
																																																												=
																																																												BGL_OBJECT_CLASS_NUM
																																																												(
																																																												((BgL_objectz00_bglt) BgL_objz00_133));
																																																											BgL_arg2778z00_4661
																																																												=
																																																												(BgL_arg2779z00_4662
																																																												-
																																																												OBJECT_TYPE);
																																																										}
																																																										BgL_classz00_2857
																																																											=
																																																											VECTOR_REF
																																																											(BgL_arg2777z00_4660,
																																																											BgL_arg2778z00_4661);
																																																									}
																																																									if (BGl_classzf3zf3zz__objectz00(BgL_classz00_2857))
																																																										{	/* Llib/error.scm 1357 */
																																																											obj_t
																																																												BgL_symz00_2859;
																																																											BgL_symz00_2859
																																																												=
																																																												BGl_classzd2namezd2zz__objectz00
																																																												(BgL_classz00_2857);
																																																											{	/* Llib/error.scm 1359 */
																																																												obj_t
																																																													BgL_arg2331z00_4669;
																																																												BgL_arg2331z00_4669
																																																													=
																																																													SYMBOL_TO_STRING
																																																													(BgL_symz00_2859);
																																																												return
																																																													BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																													(BgL_arg2331z00_4669);
																																																											}
																																																										}
																																																									else
																																																										{	/* Llib/error.scm 1356 */
																																																											return
																																																												BGl_string2988z00zz__errorz00;
																																																										}
																																																								}
																																																							else
																																																								{	/* Llib/error.scm 1351 */
																																																									if (UCS2_STRINGP(BgL_objz00_133))
																																																										{	/* Llib/error.scm 1362 */
																																																											return
																																																												BGl_string2989z00zz__errorz00;
																																																										}
																																																									else
																																																										{	/* Llib/error.scm 1362 */
																																																											if (UCS2P(BgL_objz00_133))
																																																												{	/* Llib/error.scm 1364 */
																																																													return
																																																														BGl_string2990z00zz__errorz00;
																																																												}
																																																											else
																																																												{	/* Llib/error.scm 1364 */
																																																													if (ELONGP(BgL_objz00_133))
																																																														{	/* Llib/error.scm 1366 */
																																																															return
																																																																BGl_string2991z00zz__errorz00;
																																																														}
																																																													else
																																																														{	/* Llib/error.scm 1366 */
																																																															if (LLONGP(BgL_objz00_133))
																																																																{	/* Llib/error.scm 1368 */
																																																																	return
																																																																		BGl_string2992z00zz__errorz00;
																																																																}
																																																															else
																																																																{	/* Llib/error.scm 1368 */
																																																																	if (BGL_MUTEXP(BgL_objz00_133))
																																																																		{	/* Llib/error.scm 1370 */
																																																																			return
																																																																				BGl_string2993z00zz__errorz00;
																																																																		}
																																																																	else
																																																																		{	/* Llib/error.scm 1370 */
																																																																			if (BGL_CONDVARP(BgL_objz00_133))
																																																																				{	/* Llib/error.scm 1372 */
																																																																					return
																																																																						BGl_string2994z00zz__errorz00;
																																																																				}
																																																																			else
																																																																				{	/* Llib/error.scm 1372 */
																																																																					if (BGL_DATEP(BgL_objz00_133))
																																																																						{	/* Llib/error.scm 1374 */
																																																																							return
																																																																								BGl_string2995z00zz__errorz00;
																																																																						}
																																																																					else
																																																																						{	/* Llib/error.scm 1374 */
																																																																							if (BGL_HVECTORP(BgL_objz00_133))
																																																																								{	/* Llib/error.scm 1377 */
																																																																									obj_t
																																																																										BgL_tagz00_2869;
																																																																									BgL_tagz00_2869
																																																																										=
																																																																										BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00
																																																																										(BgL_objz00_133);
																																																																									{	/* Llib/error.scm 1378 */
																																																																										obj_t
																																																																											BgL__z00_2870;
																																																																										obj_t
																																																																											BgL__z00_2871;
																																																																										obj_t
																																																																											BgL__z00_2872;
																																																																										{	/* Llib/error.scm 1379 */
																																																																											obj_t
																																																																												BgL_tmpz00_4670;
																																																																											{	/* Llib/error.scm 1379 */
																																																																												int
																																																																													BgL_tmpz00_8280;
																																																																												BgL_tmpz00_8280
																																																																													=
																																																																													(int)
																																																																													(1L);
																																																																												BgL_tmpz00_4670
																																																																													=
																																																																													BGL_MVALUES_VAL
																																																																													(BgL_tmpz00_8280);
																																																																											}
																																																																											{	/* Llib/error.scm 1379 */
																																																																												int
																																																																													BgL_tmpz00_8283;
																																																																												BgL_tmpz00_8283
																																																																													=
																																																																													(int)
																																																																													(1L);
																																																																												BGL_MVALUES_VAL_SET
																																																																													(BgL_tmpz00_8283,
																																																																													BUNSPEC);
																																																																											}
																																																																											BgL__z00_2870
																																																																												=
																																																																												BgL_tmpz00_4670;
																																																																										}
																																																																										{	/* Llib/error.scm 1379 */
																																																																											obj_t
																																																																												BgL_tmpz00_4671;
																																																																											{	/* Llib/error.scm 1379 */
																																																																												int
																																																																													BgL_tmpz00_8286;
																																																																												BgL_tmpz00_8286
																																																																													=
																																																																													(int)
																																																																													(2L);
																																																																												BgL_tmpz00_4671
																																																																													=
																																																																													BGL_MVALUES_VAL
																																																																													(BgL_tmpz00_8286);
																																																																											}
																																																																											{	/* Llib/error.scm 1379 */
																																																																												int
																																																																													BgL_tmpz00_8289;
																																																																												BgL_tmpz00_8289
																																																																													=
																																																																													(int)
																																																																													(2L);
																																																																												BGL_MVALUES_VAL_SET
																																																																													(BgL_tmpz00_8289,
																																																																													BUNSPEC);
																																																																											}
																																																																											BgL__z00_2871
																																																																												=
																																																																												BgL_tmpz00_4671;
																																																																										}
																																																																										{	/* Llib/error.scm 1379 */
																																																																											obj_t
																																																																												BgL_tmpz00_4672;
																																																																											{	/* Llib/error.scm 1379 */
																																																																												int
																																																																													BgL_tmpz00_8292;
																																																																												BgL_tmpz00_8292
																																																																													=
																																																																													(int)
																																																																													(3L);
																																																																												BgL_tmpz00_4672
																																																																													=
																																																																													BGL_MVALUES_VAL
																																																																													(BgL_tmpz00_8292);
																																																																											}
																																																																											{	/* Llib/error.scm 1379 */
																																																																												int
																																																																													BgL_tmpz00_8295;
																																																																												BgL_tmpz00_8295
																																																																													=
																																																																													(int)
																																																																													(3L);
																																																																												BGL_MVALUES_VAL_SET
																																																																													(BgL_tmpz00_8295,
																																																																													BUNSPEC);
																																																																											}
																																																																											BgL__z00_2872
																																																																												=
																																																																												BgL_tmpz00_4672;
																																																																										}
																																																																										{	/* Llib/error.scm 1379 */
																																																																											obj_t
																																																																												BgL_arg2237z00_2873;
																																																																											{	/* Llib/error.scm 1379 */
																																																																												obj_t
																																																																													BgL_arg2331z00_4674;
																																																																												BgL_arg2331z00_4674
																																																																													=
																																																																													SYMBOL_TO_STRING
																																																																													(
																																																																													((obj_t) BgL_tagz00_2869));
																																																																												BgL_arg2237z00_2873
																																																																													=
																																																																													BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																																													(BgL_arg2331z00_4674);
																																																																											}
																																																																											{	/* Llib/error.scm 1379 */
																																																																												obj_t
																																																																													BgL_list2238z00_2874;
																																																																												{	/* Llib/error.scm 1379 */
																																																																													obj_t
																																																																														BgL_arg2239z00_2875;
																																																																													BgL_arg2239z00_2875
																																																																														=
																																																																														MAKE_YOUNG_PAIR
																																																																														(BGl_string2872z00zz__errorz00,
																																																																														BNIL);
																																																																													BgL_list2238z00_2874
																																																																														=
																																																																														MAKE_YOUNG_PAIR
																																																																														(BgL_arg2237z00_2873,
																																																																														BgL_arg2239z00_2875);
																																																																												}
																																																																												BGL_TAIL
																																																																													return
																																																																													BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																																																																													(BgL_list2238z00_2874);
																																																																											}
																																																																										}
																																																																									}
																																																																								}
																																																																							else
																																																																								{	/* Llib/error.scm 1376 */
																																																																									if (BIGNUMP(BgL_objz00_133))
																																																																										{	/* Llib/error.scm 1380 */
																																																																											return
																																																																												BGl_string2996z00zz__errorz00;
																																																																										}
																																																																									else
																																																																										{	/* Llib/error.scm 1380 */
																																																																											if (BGL_MMAPP(BgL_objz00_133))
																																																																												{	/* Llib/error.scm 1382 */
																																																																													return
																																																																														BGl_string2997z00zz__errorz00;
																																																																												}
																																																																											else
																																																																												{	/* Llib/error.scm 1382 */
																																																																													if (BGL_REGEXPP(BgL_objz00_133))
																																																																														{	/* Llib/error.scm 1384 */
																																																																															return
																																																																																BGl_string2998z00zz__errorz00;
																																																																														}
																																																																													else
																																																																														{	/* Llib/error.scm 1384 */
																																																																															if (BGL_INT8P(BgL_objz00_133))
																																																																																{	/* Llib/error.scm 1386 */
																																																																																	return
																																																																																		BGl_string2999z00zz__errorz00;
																																																																																}
																																																																															else
																																																																																{	/* Llib/error.scm 1386 */
																																																																																	if (BGL_UINT8P(BgL_objz00_133))
																																																																																		{	/* Llib/error.scm 1388 */
																																																																																			return
																																																																																				BGl_string3000z00zz__errorz00;
																																																																																		}
																																																																																	else
																																																																																		{	/* Llib/error.scm 1388 */
																																																																																			if (BGL_INT16P(BgL_objz00_133))
																																																																																				{	/* Llib/error.scm 1390 */
																																																																																					return
																																																																																						BGl_string3001z00zz__errorz00;
																																																																																				}
																																																																																			else
																																																																																				{	/* Llib/error.scm 1390 */
																																																																																					if (BGL_UINT16P(BgL_objz00_133))
																																																																																						{	/* Llib/error.scm 1392 */
																																																																																							return
																																																																																								BGl_string3002z00zz__errorz00;
																																																																																						}
																																																																																					else
																																																																																						{	/* Llib/error.scm 1392 */
																																																																																							if (BGL_INT32P(BgL_objz00_133))
																																																																																								{	/* Llib/error.scm 1394 */
																																																																																									return
																																																																																										BGl_string3003z00zz__errorz00;
																																																																																								}
																																																																																							else
																																																																																								{	/* Llib/error.scm 1394 */
																																																																																									if (BGL_UINT32P(BgL_objz00_133))
																																																																																										{	/* Llib/error.scm 1396 */
																																																																																											return
																																																																																												BGl_string3004z00zz__errorz00;
																																																																																										}
																																																																																									else
																																																																																										{	/* Llib/error.scm 1396 */
																																																																																											if (BGL_INT64P(BgL_objz00_133))
																																																																																												{	/* Llib/error.scm 1398 */
																																																																																													return
																																																																																														BGl_string3005z00zz__errorz00;
																																																																																												}
																																																																																											else
																																																																																												{	/* Llib/error.scm 1398 */
																																																																																													if (BGL_UINT64P(BgL_objz00_133))
																																																																																														{	/* Llib/error.scm 1400 */
																																																																																															return
																																																																																																BGl_string3006z00zz__errorz00;
																																																																																														}
																																																																																													else
																																																																																														{	/* Llib/error.scm 1400 */
																																																																																															if (CNSTP(BgL_objz00_133))
																																																																																																{	/* Llib/error.scm 1402 */
																																																																																																	return
																																																																																																		BGl_string3007z00zz__errorz00;
																																																																																																}
																																																																																															else
																																																																																																{	/* Llib/error.scm 1402 */
																																																																																																	return
																																																																																																		string_to_bstring
																																																																																																		(FOREIGN_TYPE_NAME
																																																																																																		(BgL_objz00_133));
																																																																																																}
																																																																																														}
																																																																																												}
																																																																																										}
																																																																																								}
																																																																																						}
																																																																																				}
																																																																																		}
																																																																																}
																																																																														}
																																																																												}
																																																																										}
																																																																								}
																																																																						}
																																																																				}
																																																																		}
																																																																}
																																																														}
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																						}
																																				}
																																		}
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
		}

	}



/* &typeof */
	obj_t BGl_z62typeofz62zz__errorz00(obj_t BgL_envz00_5343,
		obj_t BgL_objz00_5344)
	{
		{	/* Llib/error.scm 1297 */
			return bgl_typeof(BgL_objz00_5344);
		}

	}



/* find-runtime-type */
	BGL_EXPORTED_DEF obj_t bgl_find_runtime_type(obj_t BgL_oz00_134)
	{
		{	/* Llib/error.scm 1410 */
			BGL_TAIL return bgl_typeof(BgL_oz00_134);
		}

	}



/* &find-runtime-type */
	obj_t BGl_z62findzd2runtimezd2typez62zz__errorz00(obj_t BgL_envz00_5345,
		obj_t BgL_oz00_5346)
	{
		{	/* Llib/error.scm 1410 */
			return bgl_find_runtime_type(BgL_oz00_5346);
		}

	}



/* c-debugging-show-type */
	BGL_EXPORTED_DEF char *bgl_show_type(obj_t BgL_objz00_135)
	{
		{	/* Llib/error.scm 1418 */
			{	/* Llib/error.scm 1419 */
				obj_t BgL_tz00_4675;

				BgL_tz00_4675 = bgl_typeof(BgL_objz00_135);
				{	/* Llib/error.scm 1420 */
					obj_t BgL_arg2252z00_4676;

					{	/* Llib/error.scm 1420 */
						obj_t BgL_tmpz00_8334;

						BgL_tmpz00_8334 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_arg2252z00_4676 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_8334);
					}
					{	/* Llib/error.scm 1420 */
						obj_t BgL_list2253z00_4677;

						BgL_list2253z00_4677 = MAKE_YOUNG_PAIR(BgL_tz00_4675, BNIL);
						BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg2252z00_4676,
							BgL_list2253z00_4677);
				}}
				return BSTRING_TO_STRING(BgL_tz00_4675);
			}
		}

	}



/* &c-debugging-show-type */
	obj_t BGl_z62czd2debuggingzd2showzd2typezb0zz__errorz00(obj_t BgL_envz00_5347,
		obj_t BgL_objz00_5348)
	{
		{	/* Llib/error.scm 1418 */
			return string_to_bstring(bgl_show_type(BgL_objz00_5348));
		}

	}



/* &try */
	BGL_EXPORTED_DEF obj_t BGl_z62tryz62zz__errorz00(obj_t BgL_thunkz00_136,
		obj_t BgL_handlerz00_137)
	{
		{	/* Llib/error.scm 1426 */
			BGL_TAIL return
				BGl_zc3z04exitza32254ze3ze70z60zz__errorz00(BgL_thunkz00_136,
				BgL_handlerz00_137);
		}

	}



/* <@exit:2254>~0 */
	obj_t BGl_zc3z04exitza32254ze3ze70z60zz__errorz00(obj_t BgL_thunkz00_5376,
		obj_t BgL_handlerz00_5375)
	{
		{	/* Llib/error.scm 1427 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1147z00_2892;

			if (SET_EXIT(BgL_an_exit1147z00_2892))
				{
					return BGL_EXIT_VALUE();
				}
			else
				{
#if (SIGSETJMP_SAVESIGS == 0)
				 // MS: CARE 5 jan 2021: see runtime/Clib/csystem.c
				 // bgl_restore_signal_handlers();
#endif

					BgL_an_exit1147z00_2892 = (void *) jmpbuf;
					{	/* Llib/error.scm 1427 */
						obj_t BgL_env1151z00_2893;

						BgL_env1151z00_2893 = BGL_CURRENT_DYNAMIC_ENV();
						PUSH_ENV_EXIT(BgL_env1151z00_2893, BgL_an_exit1147z00_2892, 1L);
						{	/* Llib/error.scm 1427 */
							obj_t BgL_an_exitd1148z00_2894;

							BgL_an_exitd1148z00_2894 =
								BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1151z00_2893);
							{	/* Llib/error.scm 1427 */
								obj_t BgL_escz00_5349;

								BgL_escz00_5349 =
									MAKE_FX_PROCEDURE(BGl_z62escz62zz__errorz00,
									(int) (1L), (int) (1L));
								PROCEDURE_SET(BgL_escz00_5349,
									(int) (0L), BgL_an_exitd1148z00_2894);
								{	/* Llib/error.scm 1427 */
									obj_t BgL_res1150z00_2897;

									{	/* Llib/error.scm 1430 */
										obj_t BgL_zc3z04anonymousza32256ze3z87_5350;

										BgL_zc3z04anonymousza32256ze3z87_5350 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32256ze3ze5zz__errorz00,
											(int) (1L), (int) (3L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32256ze3z87_5350,
											(int) (0L), BgL_an_exitd1148z00_2894);
										PROCEDURE_SET(BgL_zc3z04anonymousza32256ze3z87_5350,
											(int) (1L), BgL_handlerz00_5375);
										PROCEDURE_SET(BgL_zc3z04anonymousza32256ze3z87_5350,
											(int) (2L), BgL_escz00_5349);
										BgL_res1150z00_2897 =
											BGl_withzd2exceptionzd2handlerz00zz__errorz00
											(BgL_zc3z04anonymousza32256ze3z87_5350,
											BgL_thunkz00_5376);
									}
									POP_ENV_EXIT(BgL_env1151z00_2893);
									return BgL_res1150z00_2897;
								}
							}
						}
					}
				}
		}

	}



/* &&try */
	obj_t BGl_z62z62tryz00zz__errorz00(obj_t BgL_envz00_5351,
		obj_t BgL_thunkz00_5352, obj_t BgL_handlerz00_5353)
	{
		{	/* Llib/error.scm 1426 */
			{	/* Llib/error.scm 1427 */
				obj_t BgL_auxz00_8371;
				obj_t BgL_auxz00_8364;

				if (PROCEDUREP(BgL_handlerz00_5353))
					{	/* Llib/error.scm 1427 */
						BgL_auxz00_8371 = BgL_handlerz00_5353;
					}
				else
					{
						obj_t BgL_auxz00_8374;

						BgL_auxz00_8374 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(54101L), BGl_string3008z00zz__errorz00,
							BGl_string2885z00zz__errorz00, BgL_handlerz00_5353);
						FAILURE(BgL_auxz00_8374, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_thunkz00_5352))
					{	/* Llib/error.scm 1427 */
						BgL_auxz00_8364 = BgL_thunkz00_5352;
					}
				else
					{
						obj_t BgL_auxz00_8367;

						BgL_auxz00_8367 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(54101L), BGl_string3008z00zz__errorz00,
							BGl_string2885z00zz__errorz00, BgL_thunkz00_5352);
						FAILURE(BgL_auxz00_8367, BFALSE, BFALSE);
					}
				return BGl_z62tryz62zz__errorz00(BgL_auxz00_8364, BgL_auxz00_8371);
			}
		}

	}



/* &<@anonymous:2256> */
	obj_t BGl_z62zc3z04anonymousza32256ze3ze5zz__errorz00(obj_t BgL_envz00_5354,
		obj_t BgL_ez00_5358)
	{
		{	/* Llib/error.scm 1429 */
			{	/* Llib/error.scm 1430 */
				obj_t BgL_handlerz00_5356;
				obj_t BgL_escz00_5357;

				BgL_handlerz00_5356 =
					((obj_t) PROCEDURE_REF(BgL_envz00_5354, (int) (1L)));
				BgL_escz00_5357 = ((obj_t) PROCEDURE_REF(BgL_envz00_5354, (int) (2L)));
				{	/* Llib/error.scm 1430 */
					bool_t BgL_test3530z00_8385;

					{	/* Llib/error.scm 1430 */
						obj_t BgL_classz00_5448;

						BgL_classz00_5448 = BGl_z62errorz62zz__objectz00;
						if (BGL_OBJECTP(BgL_ez00_5358))
							{	/* Llib/error.scm 1430 */
								BgL_objectz00_bglt BgL_arg2767z00_5449;

								BgL_arg2767z00_5449 = (BgL_objectz00_bglt) (BgL_ez00_5358);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Llib/error.scm 1430 */
										long BgL_idxz00_5450;

										BgL_idxz00_5450 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_5449);
										BgL_test3530z00_8385 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_5450 + 3L)) == BgL_classz00_5448);
									}
								else
									{	/* Llib/error.scm 1430 */
										bool_t BgL_res2796z00_5453;

										{	/* Llib/error.scm 1430 */
											obj_t BgL_oclassz00_5454;

											{	/* Llib/error.scm 1430 */
												obj_t BgL_arg2777z00_5455;
												long BgL_arg2778z00_5456;

												BgL_arg2777z00_5455 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Llib/error.scm 1430 */
													long BgL_arg2779z00_5457;

													BgL_arg2779z00_5457 =
														BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_5449);
													BgL_arg2778z00_5456 =
														(BgL_arg2779z00_5457 - OBJECT_TYPE);
												}
												BgL_oclassz00_5454 =
													VECTOR_REF(BgL_arg2777z00_5455, BgL_arg2778z00_5456);
											}
											{	/* Llib/error.scm 1430 */
												bool_t BgL__ortest_1196z00_5458;

												BgL__ortest_1196z00_5458 =
													(BgL_classz00_5448 == BgL_oclassz00_5454);
												if (BgL__ortest_1196z00_5458)
													{	/* Llib/error.scm 1430 */
														BgL_res2796z00_5453 = BgL__ortest_1196z00_5458;
													}
												else
													{	/* Llib/error.scm 1430 */
														long BgL_odepthz00_5459;

														{	/* Llib/error.scm 1430 */
															obj_t BgL_arg2764z00_5460;

															BgL_arg2764z00_5460 = (BgL_oclassz00_5454);
															BgL_odepthz00_5459 =
																BGL_CLASS_DEPTH(BgL_arg2764z00_5460);
														}
														if ((3L < BgL_odepthz00_5459))
															{	/* Llib/error.scm 1430 */
																obj_t BgL_arg2762z00_5461;

																{	/* Llib/error.scm 1430 */
																	obj_t BgL_arg2763z00_5462;

																	BgL_arg2763z00_5462 = (BgL_oclassz00_5454);
																	BgL_arg2762z00_5461 =
																		BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_5462,
																		3L);
																}
																BgL_res2796z00_5453 =
																	(BgL_arg2762z00_5461 == BgL_classz00_5448);
															}
														else
															{	/* Llib/error.scm 1430 */
																BgL_res2796z00_5453 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test3530z00_8385 = BgL_res2796z00_5453;
									}
							}
						else
							{	/* Llib/error.scm 1430 */
								BgL_test3530z00_8385 = ((bool_t) 0);
							}
					}
					if (BgL_test3530z00_8385)
						{	/* Llib/error.scm 1430 */
							{	/* Llib/error.scm 1432 */
								obj_t BgL_arg2258z00_5463;
								obj_t BgL_arg2259z00_5464;
								obj_t BgL_arg2260z00_5465;

								BgL_arg2258z00_5463 =
									(((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_ez00_5358)))->BgL_procz00);
								BgL_arg2259z00_5464 =
									(((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_ez00_5358)))->BgL_msgz00);
								BgL_arg2260z00_5465 =
									(((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_ez00_5358)))->BgL_objz00);
								BGL_PROCEDURE_CALL4(BgL_handlerz00_5356, BgL_escz00_5357,
									BgL_arg2258z00_5463, BgL_arg2259z00_5464,
									BgL_arg2260z00_5465);
							}
							{	/* Llib/error.scm 1433 */
								obj_t BgL_list2261z00_5466;

								BgL_list2261z00_5466 = MAKE_YOUNG_PAIR(BINT(4L), BNIL);
								return BGl_exitz00zz__errorz00(BgL_list2261z00_5466);
							}
						}
					else
						{	/* Llib/error.scm 1430 */
							return BGl_raisez00zz__errorz00(BgL_ez00_5358);
						}
				}
			}
		}

	}



/* &esc */
	obj_t BGl_z62escz62zz__errorz00(obj_t BgL_envz00_5359,
		obj_t BgL_val1149z00_5361)
	{
		{	/* Llib/error.scm 1427 */
			return
				unwind_stack_until(PROCEDURE_REF(BgL_envz00_5359,
					(int) (0L)), BFALSE, BgL_val1149z00_5361, BFALSE, BFALSE);
		}

	}



/* push-error-handler! */
	BGL_EXPORTED_DEF obj_t BGl_pushzd2errorzd2handlerz12z12zz__errorz00(obj_t
		BgL_hdlz00_138, obj_t BgL_exitz00_139)
	{
		{	/* Llib/error.scm 1440 */
			BGL_ERROR_HANDLER_PUSH(BgL_hdlz00_138, BgL_exitz00_139);
			return BUNSPEC;
		}

	}



/* &push-error-handler! */
	obj_t BGl_z62pushzd2errorzd2handlerz12z70zz__errorz00(obj_t BgL_envz00_5362,
		obj_t BgL_hdlz00_5363, obj_t BgL_exitz00_5364)
	{
		{	/* Llib/error.scm 1440 */
			{	/* Llib/error.scm 1440 */
				obj_t BgL_auxz00_8429;

				if (PROCEDUREP(BgL_hdlz00_5363))
					{	/* Llib/error.scm 1440 */
						BgL_auxz00_8429 = BgL_hdlz00_5363;
					}
				else
					{
						obj_t BgL_auxz00_8432;

						BgL_auxz00_8432 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(54522L), BGl_string3009z00zz__errorz00,
							BGl_string2885z00zz__errorz00, BgL_hdlz00_5363);
						FAILURE(BgL_auxz00_8432, BFALSE, BFALSE);
					}
				return
					BGl_pushzd2errorzd2handlerz12z12zz__errorz00(BgL_auxz00_8429,
					BgL_exitz00_5364);
			}
		}

	}



/* set-error-handler! */
	BGL_EXPORTED_DEF obj_t BGl_setzd2errorzd2handlerz12z12zz__errorz00(obj_t
		BgL_ehdlz00_140)
	{
		{	/* Llib/error.scm 1446 */
			BGL_ERROR_HANDLER_SET(BgL_ehdlz00_140);
			return BUNSPEC;
		}

	}



/* &set-error-handler! */
	obj_t BGl_z62setzd2errorzd2handlerz12z70zz__errorz00(obj_t BgL_envz00_5365,
		obj_t BgL_ehdlz00_5366)
	{
		{	/* Llib/error.scm 1446 */
			return BGl_setzd2errorzd2handlerz12z12zz__errorz00(BgL_ehdlz00_5366);
		}

	}



/* env-set-error-handler! */
	BGL_EXPORTED_DEF obj_t BGl_envzd2setzd2errorzd2handlerz12zc0zz__errorz00(obj_t
		BgL_envz00_141, obj_t BgL_ehdlz00_142)
	{
		{	/* Llib/error.scm 1452 */
			BGL_ENV_ERROR_HANDLER_SET(BgL_envz00_141, BgL_ehdlz00_142);
			return BUNSPEC;
		}

	}



/* &env-set-error-handler! */
	obj_t BGl_z62envzd2setzd2errorzd2handlerz12za2zz__errorz00(obj_t
		BgL_envz00_5367, obj_t BgL_envz00_5368, obj_t BgL_ehdlz00_5369)
	{
		{	/* Llib/error.scm 1452 */
			{	/* Llib/error.scm 1452 */
				obj_t BgL_auxz00_8440;

				if (BGL_DYNAMIC_ENVP(BgL_envz00_5368))
					{	/* Llib/error.scm 1452 */
						BgL_auxz00_8440 = BgL_envz00_5368;
					}
				else
					{
						obj_t BgL_auxz00_8443;

						BgL_auxz00_8443 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(55122L), BGl_string3010z00zz__errorz00,
							BGl_string3011z00zz__errorz00, BgL_envz00_5368);
						FAILURE(BgL_auxz00_8443, BFALSE, BFALSE);
					}
				return
					BGl_envzd2setzd2errorzd2handlerz12zc0zz__errorz00(BgL_auxz00_8440,
					BgL_ehdlz00_5369);
			}
		}

	}



/* get-error-handler */
	BGL_EXPORTED_DEF obj_t BGl_getzd2errorzd2handlerz00zz__errorz00(void)
	{
		{	/* Llib/error.scm 1458 */
			return BGL_ERROR_HANDLER_GET();
		}

	}



/* &get-error-handler */
	obj_t BGl_z62getzd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5370)
	{
		{	/* Llib/error.scm 1458 */
			return BGl_getzd2errorzd2handlerz00zz__errorz00();
		}

	}



/* env-get-error-handler */
	BGL_EXPORTED_DEF obj_t BGl_envzd2getzd2errorzd2handlerzd2zz__errorz00(obj_t
		BgL_envz00_143)
	{
		{	/* Llib/error.scm 1464 */
			return BGL_ENV_ERROR_HANDLER_GET(BgL_envz00_143);
		}

	}



/* &env-get-error-handler */
	obj_t BGl_z62envzd2getzd2errorzd2handlerzb0zz__errorz00(obj_t BgL_envz00_5371,
		obj_t BgL_envz00_5372)
	{
		{	/* Llib/error.scm 1464 */
			{	/* Llib/error.scm 1465 */
				obj_t BgL_auxz00_8451;

				if (BGL_DYNAMIC_ENVP(BgL_envz00_5372))
					{	/* Llib/error.scm 1465 */
						BgL_auxz00_8451 = BgL_envz00_5372;
					}
				else
					{
						obj_t BgL_auxz00_8454;

						BgL_auxz00_8454 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
							BINT(55762L), BGl_string3012z00zz__errorz00,
							BGl_string3011z00zz__errorz00, BgL_envz00_5372);
						FAILURE(BgL_auxz00_8454, BFALSE, BFALSE);
					}
				return BGl_envzd2getzd2errorzd2handlerzd2zz__errorz00(BgL_auxz00_8451);
			}
		}

	}



/* notify-interrupt */
	BGL_EXPORTED_DEF obj_t BGl_notifyzd2interruptzd2zz__errorz00(int
		BgL_sigz00_144)
	{
		{	/* Llib/error.scm 1470 */
			{	/* Llib/error.scm 1471 */
				obj_t BgL_notifyz00_4713;

				BgL_notifyz00_4713 = BGL_INTERRUPT_NOTIFIER_GET();
				if (PROCEDUREP(BgL_notifyz00_4713))
					{	/* Llib/error.scm 1472 */
						return
							BGL_PROCEDURE_CALL1(BgL_notifyz00_4713, BINT(BgL_sigz00_144));
					}
				else
					{	/* Llib/error.scm 1481 */
						obj_t BgL_portz00_4715;

						{	/* Llib/error.scm 1481 */
							obj_t BgL_tmpz00_8467;

							BgL_tmpz00_8467 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_portz00_4715 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_8467);
						}
						{	/* Llib/error.scm 1482 */
							obj_t BgL_list2263z00_4716;

							BgL_list2263z00_4716 = MAKE_YOUNG_PAIR(BgL_portz00_4715, BNIL);
							BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2263z00_4716);
						}
						{	/* Llib/error.scm 1483 */
							obj_t BgL_list2264z00_4717;

							BgL_list2264z00_4717 =
								MAKE_YOUNG_PAIR(BGl_string3013z00zz__errorz00, BNIL);
							BGl_fprintz00zz__r4_output_6_10_3z00(BgL_portz00_4715,
								BgL_list2264z00_4717);
						}
						return bgl_flush_output_port(BgL_portz00_4715);
					}
			}
		}

	}



/* &notify-interrupt */
	obj_t BGl_z62notifyzd2interruptzb0zz__errorz00(obj_t BgL_envz00_5373,
		obj_t BgL_sigz00_5374)
	{
		{	/* Llib/error.scm 1470 */
			{	/* Llib/error.scm 1471 */
				int BgL_auxz00_8475;

				{	/* Llib/error.scm 1471 */
					obj_t BgL_tmpz00_8476;

					if (INTEGERP(BgL_sigz00_5374))
						{	/* Llib/error.scm 1471 */
							BgL_tmpz00_8476 = BgL_sigz00_5374;
						}
					else
						{
							obj_t BgL_auxz00_8479;

							BgL_auxz00_8479 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2870z00zz__errorz00,
								BINT(56049L), BGl_string3014z00zz__errorz00,
								BGl_string2877z00zz__errorz00, BgL_sigz00_5374);
							FAILURE(BgL_auxz00_8479, BFALSE, BFALSE);
						}
					BgL_auxz00_8475 = CINT(BgL_tmpz00_8476);
				}
				return BGl_notifyzd2interruptzd2zz__errorz00(BgL_auxz00_8475);
			}
		}

	}



/* &sigfpe-error-handler */
	obj_t BGl_z62sigfpezd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5204,
		obj_t BgL_nz00_5205)
	{
		{	/* Llib/error.scm 1489 */
			{	/* Llib/error.scm 551 */
				BgL_z62errorz62_bglt BgL_arg1511z00_5467;

				{	/* Llib/error.scm 551 */
					BgL_z62errorz62_bglt BgL_new1079z00_5468;

					{	/* Llib/error.scm 551 */
						BgL_z62errorz62_bglt BgL_new1078z00_5469;

						BgL_new1078z00_5469 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 551 */
							long BgL_arg1514z00_5470;

							BgL_arg1514z00_5470 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_5469),
								BgL_arg1514z00_5470);
						}
						BgL_new1079z00_5468 = BgL_new1078z00_5469;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1079z00_5468)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1079z00_5468)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_8493;

						{	/* Llib/error.scm 551 */
							obj_t BgL_arg1512z00_5471;

							{	/* Llib/error.scm 551 */
								obj_t BgL_arg1513z00_5472;

								{	/* Llib/error.scm 551 */
									obj_t BgL_classz00_5473;

									BgL_classz00_5473 = BGl_z62errorz62zz__objectz00;
									BgL_arg1513z00_5472 = BGL_CLASS_ALL_FIELDS(BgL_classz00_5473);
								}
								BgL_arg1512z00_5471 = VECTOR_REF(BgL_arg1513z00_5472, 2L);
							}
							BgL_auxz00_8493 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1512z00_5471);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_5468)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_8493), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5468))->
							BgL_procz00) = ((obj_t) BGl_string3015z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5468))->BgL_msgz00) =
						((obj_t) BGl_string3016z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5468))->BgL_objz00) =
						((obj_t) BGl_string3017z00zz__errorz00), BUNSPEC);
					BgL_arg1511z00_5467 = BgL_new1079z00_5468;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1511z00_5467));
			}
		}

	}



/* &sigill-error-handler */
	obj_t BGl_z62sigillzd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5206,
		obj_t BgL_nz00_5207)
	{
		{	/* Llib/error.scm 1495 */
			{	/* Llib/error.scm 551 */
				BgL_z62errorz62_bglt BgL_arg1511z00_5474;

				{	/* Llib/error.scm 551 */
					BgL_z62errorz62_bglt BgL_new1079z00_5475;

					{	/* Llib/error.scm 551 */
						BgL_z62errorz62_bglt BgL_new1078z00_5476;

						BgL_new1078z00_5476 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 551 */
							long BgL_arg1514z00_5477;

							BgL_arg1514z00_5477 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_5476),
								BgL_arg1514z00_5477);
						}
						BgL_new1079z00_5475 = BgL_new1078z00_5476;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1079z00_5475)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1079z00_5475)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_8512;

						{	/* Llib/error.scm 551 */
							obj_t BgL_arg1512z00_5478;

							{	/* Llib/error.scm 551 */
								obj_t BgL_arg1513z00_5479;

								{	/* Llib/error.scm 551 */
									obj_t BgL_classz00_5480;

									BgL_classz00_5480 = BGl_z62errorz62zz__objectz00;
									BgL_arg1513z00_5479 = BGL_CLASS_ALL_FIELDS(BgL_classz00_5480);
								}
								BgL_arg1512z00_5478 = VECTOR_REF(BgL_arg1513z00_5479, 2L);
							}
							BgL_auxz00_8512 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1512z00_5478);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_5475)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_8512), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5475))->
							BgL_procz00) = ((obj_t) BGl_string3018z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5475))->BgL_msgz00) =
						((obj_t) BGl_string3019z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5475))->BgL_objz00) =
						((obj_t) BGl_string3017z00zz__errorz00), BUNSPEC);
					BgL_arg1511z00_5474 = BgL_new1079z00_5475;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1511z00_5474));
			}
		}

	}



/* &sigbus-error-handler */
	obj_t BGl_z62sigbuszd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5208,
		obj_t BgL_nz00_5209)
	{
		{	/* Llib/error.scm 1501 */
			{	/* Llib/error.scm 551 */
				BgL_z62errorz62_bglt BgL_arg1511z00_5481;

				{	/* Llib/error.scm 551 */
					BgL_z62errorz62_bglt BgL_new1079z00_5482;

					{	/* Llib/error.scm 551 */
						BgL_z62errorz62_bglt BgL_new1078z00_5483;

						BgL_new1078z00_5483 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 551 */
							long BgL_arg1514z00_5484;

							BgL_arg1514z00_5484 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_5483),
								BgL_arg1514z00_5484);
						}
						BgL_new1079z00_5482 = BgL_new1078z00_5483;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1079z00_5482)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1079z00_5482)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_8531;

						{	/* Llib/error.scm 551 */
							obj_t BgL_arg1512z00_5485;

							{	/* Llib/error.scm 551 */
								obj_t BgL_arg1513z00_5486;

								{	/* Llib/error.scm 551 */
									obj_t BgL_classz00_5487;

									BgL_classz00_5487 = BGl_z62errorz62zz__objectz00;
									BgL_arg1513z00_5486 = BGL_CLASS_ALL_FIELDS(BgL_classz00_5487);
								}
								BgL_arg1512z00_5485 = VECTOR_REF(BgL_arg1513z00_5486, 2L);
							}
							BgL_auxz00_8531 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1512z00_5485);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_5482)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_8531), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5482))->
							BgL_procz00) = ((obj_t) BGl_string3018z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5482))->BgL_msgz00) =
						((obj_t) BGl_string3020z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5482))->BgL_objz00) =
						((obj_t) BGl_string3017z00zz__errorz00), BUNSPEC);
					BgL_arg1511z00_5481 = BgL_new1079z00_5482;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1511z00_5481));
			}
		}

	}



/* &sigsegv-error-handler */
	obj_t BGl_z62sigsegvzd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5210,
		obj_t BgL_nz00_5211)
	{
		{	/* Llib/error.scm 1507 */
			{	/* Llib/error.scm 551 */
				BgL_z62errorz62_bglt BgL_arg1511z00_5488;

				{	/* Llib/error.scm 551 */
					BgL_z62errorz62_bglt BgL_new1079z00_5489;

					{	/* Llib/error.scm 551 */
						BgL_z62errorz62_bglt BgL_new1078z00_5490;

						BgL_new1078z00_5490 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 551 */
							long BgL_arg1514z00_5491;

							BgL_arg1514z00_5491 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_5490),
								BgL_arg1514z00_5491);
						}
						BgL_new1079z00_5489 = BgL_new1078z00_5490;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1079z00_5489)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1079z00_5489)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_8550;

						{	/* Llib/error.scm 551 */
							obj_t BgL_arg1512z00_5492;

							{	/* Llib/error.scm 551 */
								obj_t BgL_arg1513z00_5493;

								{	/* Llib/error.scm 551 */
									obj_t BgL_classz00_5494;

									BgL_classz00_5494 = BGl_z62errorz62zz__objectz00;
									BgL_arg1513z00_5493 = BGL_CLASS_ALL_FIELDS(BgL_classz00_5494);
								}
								BgL_arg1512z00_5492 = VECTOR_REF(BgL_arg1513z00_5493, 2L);
							}
							BgL_auxz00_8550 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1512z00_5492);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_5489)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_8550), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5489))->
							BgL_procz00) = ((obj_t) BGl_string3018z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5489))->BgL_msgz00) =
						((obj_t) BGl_string3021z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5489))->BgL_objz00) =
						((obj_t) BGl_string3017z00zz__errorz00), BUNSPEC);
					BgL_arg1511z00_5488 = BgL_new1079z00_5489;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1511z00_5488));
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__errorz00(void)
	{
		{	/* Llib/error.scm 18 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__errorz00(void)
	{
		{	/* Llib/error.scm 18 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__errorz00(void)
	{
		{	/* Llib/error.scm 18 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__errorz00(void)
	{
		{	/* Llib/error.scm 18 */
			BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(323064722L,
				BSTRING_TO_STRING(BGl_string3022z00zz__errorz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string3022z00zz__errorz00));
			return
				BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string3022z00zz__errorz00));
		}

	}

#ifdef __cplusplus
}
#endif
