/*===========================================================================*/
/*   (Llib/error.scm)                                                        */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c 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;
	BGL_EXPORTED_DECL obj_t BGl_setzd2errorzd2handlerz12z12zz__errorz00(obj_t);
	static obj_t BGl_z62indexzd2outzd2ofzd2bounds2738zb0zz__errorz00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, 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;
	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);
	static obj_t BGl_z62zc3z04anonymousza31782ze3ze5zz__errorz00(obj_t);
	extern obj_t BGl_exceptionzd2notifyzd2zz__objectz00(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_symbol2828z00zz__errorz00 = BUNSPEC;
	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_z62typezd2error2737zb0zz__errorz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62setzd2errorzd2handlerz12z70zz__errorz00(obj_t, obj_t);
	extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(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__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 obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_symbol2839z00zz__errorz00 = BUNSPEC;
	extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
	extern obj_t BGl_z62errorz62zz__objectz00;
	static obj_t BGl_z62stackzd2overflowzd2erro2735z62zz__errorz00(obj_t);
	extern obj_t BGl_z62iozd2sigpipezd2errorz62zz__objectz00;
	extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
	extern bool_t fexists(char *);
	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_symbol2841z00zz__errorz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_z62tryz62zz__errorz00(obj_t, obj_t);
	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);
	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);
	static obj_t BGl_z62error2736z62zz__errorz00(obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_z62iozd2portzd2errorz62zz__objectz00;
	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);
	static obj_t BGl_symbol2859z00zz__errorz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31811ze3ze5zz__errorz00(obj_t);
	static obj_t BGl_zc3z04exitza31676ze3ze70z60zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62warning2739z62zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31455ze3ze5zz__errorz00(obj_t, obj_t);
	extern obj_t BGl_z62iozd2connectionzd2errorz62zz__objectz00;
	BGL_EXPORTED_DECL obj_t BGl_notifyzd2interruptzd2zz__errorz00(int);
	static obj_t BGl_z62zc3z04anonymousza31875ze3ze5zz__errorz00(obj_t, obj_t);
	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_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);
	static obj_t BGl_symbol2861z00zz__errorz00 = BUNSPEC;
	extern obj_t BGl_z62iozd2timeoutzd2errorz62zz__objectz00;
	static obj_t BGl_z62warningzd2notifyzf2locationz42zz__errorz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__errorz00(void);
	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_z62warningzf2czd2locationz42zz__errorz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_z62iozd2errorzb0zz__objectz00;
	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);
	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_symbol2872z00zz__errorz00 = BUNSPEC;
	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_symbol2793z00zz__errorz00 = BUNSPEC;
	static obj_t BGl_z62envzd2setzd2errorzd2handlerz12za2zz__errorz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31910ze3ze5zz__errorz00(obj_t, obj_t);
	static obj_t BGl_z62errorzf2sourcez90zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
	static obj_t BGl_z62zc3z04anonymousza31457ze3ze5zz__errorz00(obj_t, obj_t);
	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_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);
	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);
	BGL_EXPORTED_DECL obj_t BGl_errorzf2sourcezf2zz__errorz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t bstring_to_symbol(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);
	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);
	static obj_t BGl_z62zc3z04anonymousza32231ze3ze5zz__errorz00(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);
	static obj_t BGl_zc3z04exitza32229ze3ze70z60zz__errorz00(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);
	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_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);
	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;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_envzd2setzd2errorzd2handlerz12zd2envz12zz__errorz00,
		BgL_bgl_za762envza7d2setza7d2e2938za7,
		BGl_z62envzd2setzd2errorzd2handlerz12za2zz__errorz00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_the_failurezd2envzd2zz__errorz00,
		BgL_bgl_za762the_failureza762939z00, BGl_z62the_failurez62zz__errorz00, 0L,
		BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2sourcezd2envz20zz__errorz00,
		BgL_bgl_za762errorza7f2sourc2940z00, BGl_z62errorzf2sourcez90zz__errorz00,
		0L, BUNSPEC, 4);
	      DEFINE_STRING(BGl_string2920z00zz__errorz00,
		BgL_bgl_string2920za700za7za7_2941za7, "int64", 5);
	      DEFINE_STRING(BGl_string2921z00zz__errorz00,
		BgL_bgl_string2921za700za7za7_2942za7, "uint64", 6);
	      DEFINE_STRING(BGl_string2840z00zz__errorz00,
		BgL_bgl_string2840za700za7za7_2943za7, "line-col", 8);
	      DEFINE_STRING(BGl_string2922z00zz__errorz00,
		BgL_bgl_string2922za700za7za7_2944za7, "bcnst", 5);
	      DEFINE_STRING(BGl_string2923z00zz__errorz00,
		BgL_bgl_string2923za700za7za7_2945za7, "&&try", 5);
	      DEFINE_STRING(BGl_string2842z00zz__errorz00,
		BgL_bgl_string2842za700za7za7_2946za7, "line", 4);
	      DEFINE_STRING(BGl_string2924z00zz__errorz00,
		BgL_bgl_string2924za700za7za7_2947za7, "&push-error-handler!", 20);
	      DEFINE_STRING(BGl_string2843z00zz__errorz00,
		BgL_bgl_string2843za700za7za7_2948za7, "*** CONDITION: ", 15);
	      DEFINE_STRING(BGl_string2925z00zz__errorz00,
		BgL_bgl_string2925za700za7za7_2949za7, "&env-set-error-handler!", 23);
	      DEFINE_STRING(BGl_string2844z00zz__errorz00,
		BgL_bgl_string2844za700za7za7_2950za7, "&error-notify/location", 22);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_notifyzd2interruptzd2envz00zz__errorz00,
		BgL_bgl_za762notifyza7d2inte2951z00,
		BGl_z62notifyzd2interruptzb0zz__errorz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2926z00zz__errorz00,
		BgL_bgl_string2926za700za7za7_2952za7, "dynamic-env", 11);
	      DEFINE_STRING(BGl_string2845z00zz__errorz00,
		BgL_bgl_string2845za700za7za7_2953za7, "*** WARNING: ", 13);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_raisezd2envzd2zz__errorz00,
		BgL_bgl_za762raiseza762za7za7__e2954z00, BGl_z62raisez62zz__errorz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2927z00zz__errorz00,
		BgL_bgl_string2927za700za7za7_2955za7, "&env-get-error-handler", 22);
	      DEFINE_STRING(BGl_string2928z00zz__errorz00,
		BgL_bgl_string2928za700za7za7_2956za7, "*** INTERRUPT:bigloo:", 21);
	      DEFINE_STRING(BGl_string2847z00zz__errorz00,
		BgL_bgl_string2847za700za7za7_2957za7, "[string]", 8);
	      DEFINE_STRING(BGl_string2929z00zz__errorz00,
		BgL_bgl_string2929za700za7za7_2958za7, "&notify-interrupt", 17);
	      DEFINE_STRING(BGl_string2848z00zz__errorz00,
		BgL_bgl_string2848za700za7za7_2959za7, "[stdin]", 7);
	      DEFINE_STRING(BGl_string2849z00zz__errorz00,
		BgL_bgl_string2849za700za7za7_2960za7, "&warning-notify/location", 24);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_errorzd2notifyzf2locationzd2envzf2zz__errorz00,
		BgL_bgl_za762errorza7d2notif2961z00,
		BGl_z62errorzd2notifyzf2locationz42zz__errorz00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2tracezd2stackzd2envzd2zz__errorz00,
		BgL_bgl__getza7d2traceza7d2s2962z00, opt_generic_entry,
		BGl__getzd2tracezd2stackz00zz__errorz00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_currentzd2exceptionzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762currentza7d2exc2963z00,
		BGl_z62currentzd2exceptionzd2handlerz62zz__errorz00, 0L, BUNSPEC, 0);
	      DEFINE_STRING(BGl_string2930z00zz__errorz00,
		BgL_bgl_string2930za700za7za7_2964za7, "arithmetic procedure", 20);
	      DEFINE_STRING(BGl_string2931z00zz__errorz00,
		BgL_bgl_string2931za700za7za7_2965za7, "`floating point' exception", 26);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzd2notifyzd2envz00zz__errorz00,
		BgL_bgl_za762errorza7d2notif2966z00, BGl_z62errorzd2notifyzb0zz__errorz00,
		0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_errorzf2sourcezd2locationzd2envzf2zz__errorz00,
		BgL_bgl_za762errorza7f2sourc2967z00,
		BGl_z62errorzf2sourcezd2locationz42zz__errorz00, 0L, BUNSPEC, 4);
	      DEFINE_STRING(BGl_string2932z00zz__errorz00,
		BgL_bgl_string2932za700za7za7_2968za7, "raised", 6);
	      DEFINE_STRING(BGl_string2851z00zz__errorz00,
		BgL_bgl_string2851za700za7za7_2969za7, "_display-trace-stack", 20);
	      DEFINE_STRING(BGl_string2933z00zz__errorz00,
		BgL_bgl_string2933za700za7za7_2970za7, "bigloo", 6);
	      DEFINE_STRING(BGl_string2852z00zz__errorz00,
		BgL_bgl_string2852za700za7za7_2971za7, "output-port", 11);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2846z00zz__errorz00,
		BgL_bgl_za762za7c3za704anonymo2972za7,
		BGl_z62zc3z04anonymousza31875ze3ze5zz__errorz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2934z00zz__errorz00,
		BgL_bgl_string2934za700za7za7_2973za7, "`illegal instruction' exception",
		31);
	      DEFINE_STRING(BGl_string2853z00zz__errorz00,
		BgL_bgl_string2853za700za7za7_2974za7,
		"\n*** INTERNAL ERROR: corrupted stack -- ~s\n", 43);
	      DEFINE_STRING(BGl_string2935z00zz__errorz00,
		BgL_bgl_string2935za700za7za7_2975za7, "`bus error' exception", 21);
	      DEFINE_STRING(BGl_string2854z00zz__errorz00,
		BgL_bgl_string2854za700za7za7_2976za7, "! ", 2);
	      DEFINE_STRING(BGl_string2936z00zz__errorz00,
		BgL_bgl_string2936za700za7za7_2977za7, "`segmentation violation' exception",
		34);
	      DEFINE_STRING(BGl_string2855z00zz__errorz00,
		BgL_bgl_string2855za700za7za7_2978za7, "    ", 4);
	      DEFINE_STRING(BGl_string2937z00zz__errorz00,
		BgL_bgl_string2937za700za7za7_2979za7, "__error", 7);
	      DEFINE_STRING(BGl_string2856z00zz__errorz00,
		BgL_bgl_string2856za700za7za7_2980za7, "   ", 3);
	      DEFINE_STRING(BGl_string2857z00zz__errorz00,
		BgL_bgl_string2857za700za7za7_2981za7, "  ", 2);
	      DEFINE_STRING(BGl_string2858z00zz__errorz00,
		BgL_bgl_string2858za700za7za7_2982za7, ". ", 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_envzd2getzd2errorzd2handlerzd2envz00zz__errorz00,
		BgL_bgl_za762envza7d2getza7d2e2983za7,
		BGl_z62envzd2getzd2errorzd2handlerzb0zz__errorz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2typezd2errorzd2envzd2zz__errorz00,
		BgL_bgl_za762biglooza7d2type2984z00,
		BGl_z62bigloozd2typezd2errorz62zz__errorz00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_pushzd2errorzd2handlerz12zd2envzc0zz__errorz00,
		BgL_bgl_za762pushza7d2errorza72985za7,
		BGl_z62pushzd2errorzd2handlerz12z70zz__errorz00, 0L, BUNSPEC, 2);
	extern obj_t BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00;
	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2850z00zz__errorz00,
		BgL_bgl_za762za7c3za704anonymo2986za7,
		BGl_z62zc3z04anonymousza31910ze3ze5zz__errorz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_indexzd2outzd2ofzd2boundszd2errorzd2envzd2zz__errorz00,
		BgL_bgl_za762indexza7d2outza7d2987za7,
		BGl_z62indexzd2outzd2ofzd2bounds2738zb0zz__errorz00, 0L, BUNSPEC, 6);
	      DEFINE_STRING(BGl_string2860z00zz__errorz00,
		BgL_bgl_string2860za700za7za7_2988za7, "margin", 6);
	      DEFINE_STRING(BGl_string2862z00zz__errorz00,
		BgL_bgl_string2862za700za7za7_2989za7, "format", 6);
	      DEFINE_STRING(BGl_string2863z00zz__errorz00,
		BgL_bgl_string2863za700za7za7_2990za7, " ", 1);
	      DEFINE_STRING(BGl_string2864z00zz__errorz00,
		BgL_bgl_string2864za700za7za7_2991za7, " (* ", 4);
	      DEFINE_STRING(BGl_string2865z00zz__errorz00,
		BgL_bgl_string2865za700za7za7_2992za7, ")", 1);
	      DEFINE_STRING(BGl_string2866z00zz__errorz00,
		BgL_bgl_string2866za700za7za7_2993za7, ".", 1);
	      DEFINE_STRING(BGl_string2867z00zz__errorz00,
		BgL_bgl_string2867za700za7za7_2994za7, ", ", 2);
	      DEFINE_STRING(BGl_string2786z00zz__errorz00,
		BgL_bgl_string2786za700za7za7_2995za7, "BIGLOOSTACKDEPTH", 16);
	      DEFINE_STRING(BGl_string2868z00zz__errorz00,
		BgL_bgl_string2868za700za7za7_2996za7, "@", 1);
	      DEFINE_STRING(BGl_string2787z00zz__errorz00,
		BgL_bgl_string2787za700za7za7_2997za7, "\077\077?", 3);
	      DEFINE_STRING(BGl_string2869z00zz__errorz00,
		BgL_bgl_string2869za700za7za7_2998za7, "File ~s, line ~d, character ~d\n",
		31);
	      DEFINE_STRING(BGl_string2788z00zz__errorz00,
		BgL_bgl_string2788za700za7za7_2999za7, "Type", 4);
	      DEFINE_STRING(BGl_string2789z00zz__errorz00,
		BgL_bgl_string2789za700za7za7_3000za7, "/tmp/bigloo/runtime/Llib/error.scm",
		34);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_modulezd2initzd2errorzd2envzd2zz__errorz00,
		BgL_bgl_za762moduleza7d2init3001z00,
		BGl_z62modulezd2initzd2errorz62zz__errorz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2errorzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762getza7d2errorza7d3002za7,
		BGl_z62getzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2czd2locationzd2envzf2zz__errorz00,
		BgL_bgl_za762errorza7f2cza7d2l3003za7,
		BGl_z62errorzf2czd2locationz42zz__errorz00, 0L, BUNSPEC, 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2typezd2errorzf2locationzd2envz20zz__errorz00,
		BgL_bgl_za762biglooza7d2type3004z00,
		BGl_z62bigloozd2typezd2errorzf2locationz90zz__errorz00, 0L, BUNSPEC, 5);
	      DEFINE_STRING(BGl_string2870z00zz__errorz00,
		BgL_bgl_string2870za700za7za7_3005za7, "File ~s, character ~d\n", 22);
	      DEFINE_STRING(BGl_string2871z00zz__errorz00,
		BgL_bgl_string2871za700za7za7_3006za7, "&display-trace-stack-source", 27);
	      DEFINE_STRING(BGl_string2790z00zz__errorz00,
		BgL_bgl_string2790za700za7za7_3007za7, "&error/errno", 12);
	      DEFINE_STRING(BGl_string2791z00zz__errorz00,
		BgL_bgl_string2791za700za7za7_3008za7, "bint", 4);
	      DEFINE_STRING(BGl_string2873z00zz__errorz00,
		BgL_bgl_string2873za700za7za7_3009za7, "done", 4);
	      DEFINE_STRING(BGl_string2792z00zz__errorz00,
		BgL_bgl_string2792za700za7za7_3010za7, "stack overflow", 14);
	      DEFINE_STRING(BGl_string2874z00zz__errorz00,
		BgL_bgl_string2874za700za7za7_3011za7, "^", 1);
	      DEFINE_STRING(BGl_string2875z00zz__errorz00,
		BgL_bgl_string2875za700za7za7_3012za7, "#", 1);
	      DEFINE_STRING(BGl_string2794z00zz__errorz00,
		BgL_bgl_string2794za700za7za7_3013za7, "at", 2);
	      DEFINE_STRING(BGl_string2876z00zz__errorz00,
		BgL_bgl_string2876za700za7za7_3014za7, ", character ", 12);
	      DEFINE_STRING(BGl_string2795z00zz__errorz00,
		BgL_bgl_string2795za700za7za7_3015za7, "with-exception-handler", 22);
	      DEFINE_STRING(BGl_string2877z00zz__errorz00,
		BgL_bgl_string2877za700za7za7_3016za7, "\", line ", 8);
	      DEFINE_STRING(BGl_string2796z00zz__errorz00,
		BgL_bgl_string2796za700za7za7_3017za7, "Incorrect thunk arity", 21);
	      DEFINE_STRING(BGl_string2878z00zz__errorz00,
		BgL_bgl_string2878za700za7za7_3018za7, "../", 3);
	      DEFINE_STRING(BGl_string2797z00zz__errorz00,
		BgL_bgl_string2797za700za7za7_3019za7, "Incorrect handler arity", 23);
	      DEFINE_STRING(BGl_string2879z00zz__errorz00,
		BgL_bgl_string2879za700za7za7_3020za7, "/", 1);
	      DEFINE_STRING(BGl_string2798z00zz__errorz00,
		BgL_bgl_string2798za700za7za7_3021za7, "&with-exception-handler", 23);
	      DEFINE_STRING(BGl_string2799z00zz__errorz00,
		BgL_bgl_string2799za700za7za7_3022za7, "procedure", 9);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_sigbuszd2errorzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762sigbusza7d2erro3023z00,
		BGl_z62sigbuszd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2880z00zz__errorz00,
		BgL_bgl_string2880za700za7za7_3024za7, "/cygdrive/", 10);
	      DEFINE_STRING(BGl_string2881z00zz__errorz00,
		BgL_bgl_string2881za700za7za7_3025za7, "real", 4);
	      DEFINE_STRING(BGl_string2882z00zz__errorz00,
		BgL_bgl_string2882za700za7za7_3026za7, "symbol", 6);
	      DEFINE_STRING(BGl_string2883z00zz__errorz00,
		BgL_bgl_string2883za700za7za7_3027za7, "keyword", 7);
	      DEFINE_STRING(BGl_string2884z00zz__errorz00,
		BgL_bgl_string2884za700za7za7_3028za7, "bchar", 5);
	      DEFINE_STRING(BGl_string2885z00zz__errorz00,
		BgL_bgl_string2885za700za7za7_3029za7, "bbool", 5);
	      DEFINE_STRING(BGl_string2886z00zz__errorz00,
		BgL_bgl_string2886za700za7za7_3030za7, "bnil", 4);
	      DEFINE_STRING(BGl_string2887z00zz__errorz00,
		BgL_bgl_string2887za700za7za7_3031za7, "unspecified", 11);
	      DEFINE_STRING(BGl_string2888z00zz__errorz00,
		BgL_bgl_string2888za700za7za7_3032za7, "epair", 5);
	      DEFINE_STRING(BGl_string2889z00zz__errorz00,
		BgL_bgl_string2889za700za7za7_3033za7, "pair", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_warningzd2notifyzf2locationzd2envzf2zz__errorz00,
		BgL_bgl_za762warningza7d2not3034z00,
		BGl_z62warningzd2notifyzf2locationz42zz__errorz00, 0L, BUNSPEC, 3);
	      DEFINE_STRING(BGl_string2890z00zz__errorz00,
		BgL_bgl_string2890za700za7za7_3035za7, "class", 5);
	      DEFINE_STRING(BGl_string2891z00zz__errorz00,
		BgL_bgl_string2891za700za7za7_3036za7, "vector", 6);
	      DEFINE_STRING(BGl_string2892z00zz__errorz00,
		BgL_bgl_string2892za700za7za7_3037za7, "tvector", 7);
	      DEFINE_STRING(BGl_string2893z00zz__errorz00,
		BgL_bgl_string2893za700za7za7_3038za7, "struct:", 7);
	      DEFINE_STRING(BGl_string2894z00zz__errorz00,
		BgL_bgl_string2894za700za7za7_3039za7, "input-port", 10);
	      DEFINE_STRING(BGl_string2895z00zz__errorz00,
		BgL_bgl_string2895za700za7za7_3040za7, "binary-port", 11);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_typezd2errorzd2envz00zz__errorz00,
		BgL_bgl_za762typeza7d2error23041z00, BGl_z62typezd2error2737zb0zz__errorz00,
		0L, BUNSPEC, 5);
	      DEFINE_STRING(BGl_string2896z00zz__errorz00,
		BgL_bgl_string2896za700za7za7_3042za7, "cell", 4);
	      DEFINE_STRING(BGl_string2897z00zz__errorz00,
		BgL_bgl_string2897za700za7za7_3043za7, "foreign:", 8);
	      DEFINE_STRING(BGl_string2898z00zz__errorz00,
		BgL_bgl_string2898za700za7za7_3044za7, "socket", 6);
	      DEFINE_STRING(BGl_string2899z00zz__errorz00,
		BgL_bgl_string2899za700za7za7_3045za7, "datagram-socket", 15);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzd2envzd2zz__errorz00,
		BgL_bgl_za762error2736za762za73046za7, BGl_z62error2736z62zz__errorz00, 0L,
		BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_typeofzd2envzd2zz__errorz00,
		BgL_bgl_za762typeofza762za7za7__3047z00, BGl_z62typeofz62zz__errorz00, 0L,
		BUNSPEC, 1);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_sigsegvzd2errorzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762sigsegvza7d2err3048z00,
		BGl_z62sigsegvzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_z62tryzd2envzb0zz__errorz00,
		BgL_bgl_za762za762tryza700za7za7__3049za7, BGl_z62z62tryz00zz__errorz00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_sigillzd2errorzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762sigillza7d2erro3050z00,
		BGl_z62sigillzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_withzd2exceptionzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762withza7d2except3051z00,
		BGl_z62withzd2exceptionzd2handlerz62zz__errorz00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_exitzd2envzd2zz__errorz00,
		BgL_bgl_za762exitza762za7za7__er3052z00, va_generic_entry,
		BGl_z62exitz62zz__errorz00, BUNSPEC, -1);
	     
		DEFINE_STATIC_BGL_PROCEDURE
		(BGl_sigfpezd2errorzd2handlerzd2envzd2zz__errorz00,
		BgL_bgl_za762sigfpeza7d2erro3053z00,
		BGl_z62sigfpezd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_dumpzd2tracezd2stackzd2envzd2zz__errorz00,
		BgL_bgl_za762dumpza7d2traceza73054za7,
		BGl_z62dumpzd2tracezd2stackz62zz__errorz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2tracezd2stackzd2envzd2zz__errorz00,
		BgL_bgl__displayza7d2trace3055za7, opt_generic_entry,
		BGl__displayzd2tracezd2stackz00zz__errorz00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzd2notifyzd2envz00zz__errorz00,
		BgL_bgl_za762warningza7d2not3056z00, BGl_z62warningzd2notifyzb0zz__errorz00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzf2loczd2envz20zz__errorz00,
		BgL_bgl_za762warningza7f2loc3057z00, va_generic_entry,
		BGl_z62warningzf2locz90zz__errorz00, BUNSPEC, -2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzd2envzd2zz__errorz00,
		BgL_bgl_za762warning2739za763058z00, va_generic_entry,
		BGl_z62warning2739z62zz__errorz00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzf2czd2locationzd2envzf2zz__errorz00,
		BgL_bgl_za762warningza7f2cza7d3059za7, va_generic_entry,
		BGl_z62warningzf2czd2locationz42zz__errorz00, BUNSPEC, -3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2errorzd2handlerz12zd2envzc0zz__errorz00,
		BgL_bgl_za762setza7d2errorza7d3060za7,
		BGl_z62setzd2errorzd2handlerz12z70zz__errorz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2801z00zz__errorz00,
		BgL_bgl_string2801za700za7za7_3061za7,
		"*** INTERNAL ERROR: wrong error handler ", 40);
	      DEFINE_STRING(BGl_string2802z00zz__errorz00,
		BgL_bgl_string2802za700za7za7_3062za7, ":", 1);
	      DEFINE_STRING(BGl_string2803z00zz__errorz00,
		BgL_bgl_string2803za700za7za7_3063za7, ",", 1);
	      DEFINE_STRING(BGl_string2804z00zz__errorz00,
		BgL_bgl_string2804za700za7za7_3064za7, "Llib/error.scm", 14);
	      DEFINE_STRING(BGl_string2805z00zz__errorz00,
		BgL_bgl_string2805za700za7za7_3065za7, "when raising error: ", 20);
	      DEFINE_STRING(BGl_string2806z00zz__errorz00,
		BgL_bgl_string2806za700za7za7_3066za7, "raise", 5);
	      DEFINE_STRING(BGl_string2807z00zz__errorz00,
		BgL_bgl_string2807za700za7za7_3067za7, "uncaught exception", 18);
	      DEFINE_STRING(BGl_string2808z00zz__errorz00,
		BgL_bgl_string2808za700za7za7_3068za7,
		"' must be recompiled (see also -unsafev option).", 48);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_displayzd2tracezd2stackzd2sourcezd2envz00zz__errorz00,
		BgL_bgl_za762displayza7d2tra3069z00,
		BGl_z62displayzd2tracezd2stackzd2sourcezb0zz__errorz00, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2809z00zz__errorz00,
		BgL_bgl_string2809za700za7za7_3070za7, "At least `", 10);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_czd2debuggingzd2showzd2typezd2envz00zz__errorz00,
		BgL_bgl_za762cza7d2debugging3071z00,
		BGl_z62czd2debuggingzd2showzd2typezb0zz__errorz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2800z00zz__errorz00,
		BgL_bgl_za762za7c3za704anonymo3072za7,
		BGl_z62zc3z04anonymousza31457ze3ze5zz__errorz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2810z00zz__errorz00,
		BgL_bgl_string2810za700za7za7_3073za7, "'.\n", 3);
	      DEFINE_STRING(BGl_string2811z00zz__errorz00,
		BgL_bgl_string2811za700za7za7_3074za7,
		"' is inconsistently initialized by module `", 43);
	      DEFINE_STRING(BGl_string2812z00zz__errorz00,
		BgL_bgl_string2812za700za7za7_3075za7, "Module `", 8);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stackzd2overflowzd2errorzd2envzd2zz__errorz00,
		BgL_bgl_za762stackza7d2overf3076z00,
		BGl_z62stackzd2overflowzd2erro2735z62zz__errorz00, 0L, BUNSPEC, 0);
	      DEFINE_STRING(BGl_string2813z00zz__errorz00,
		BgL_bgl_string2813za700za7za7_3077za7,
		":Inconsistent module initialization\n", 36);
	      DEFINE_STRING(BGl_string2814z00zz__errorz00,
		BgL_bgl_string2814za700za7za7_3078za7, "*** ERROR:", 10);
	      DEFINE_STRING(BGl_string2815z00zz__errorz00,
		BgL_bgl_string2815za700za7za7_3079za7, "&module-init-error", 18);
	      DEFINE_STRING(BGl_string2816z00zz__errorz00,
		BgL_bgl_string2816za700za7za7_3080za7, "bstring", 7);
	      DEFINE_STRING(BGl_string2817z00zz__errorz00,
		BgL_bgl_string2817za700za7za7_3081za7, "&error/c-location", 17);
	      DEFINE_STRING(BGl_string2818z00zz__errorz00,
		BgL_bgl_string2818za700za7za7_3082za7, "\" provided", 10);
	      DEFINE_STRING(BGl_string2819z00zz__errorz00,
		BgL_bgl_string2819za700za7za7_3083za7, "\" expected, \"", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bigloozd2typezd2errorzd2msgzd2envz00zz__errorz00,
		BgL_bgl_za762biglooza7d2type3084z00,
		BGl_z62bigloozd2typezd2errorzd2msgzb0zz__errorz00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2errnozd2envz20zz__errorz00,
		BgL_bgl_za762errorza7f2errno3085z00, BGl_z62errorzf2errnoz90zz__errorz00,
		0L, BUNSPEC, 4);
	      DEFINE_STRING(BGl_string2900z00zz__errorz00,
		BgL_bgl_string2900za700za7za7_3086za7, "process", 7);
	      DEFINE_STRING(BGl_string2901z00zz__errorz00,
		BgL_bgl_string2901za700za7za7_3087za7, "custom", 6);
	      DEFINE_STRING(BGl_string2820z00zz__errorz00,
		BgL_bgl_string2820za700za7za7_3088za7, " \"", 2);
	      DEFINE_STRING(BGl_string2902z00zz__errorz00,
		BgL_bgl_string2902za700za7za7_3089za7, "opaque", 6);
	      DEFINE_STRING(BGl_string2821z00zz__errorz00,
		BgL_bgl_string2821za700za7za7_3090za7, "&bigloo-type-error-msg", 22);
	      DEFINE_STRING(BGl_string2903z00zz__errorz00,
		BgL_bgl_string2903za700za7za7_3091za7, "_", 1);
	      DEFINE_STRING(BGl_string2822z00zz__errorz00,
		BgL_bgl_string2822za700za7za7_3092za7, "]", 1);
	      DEFINE_STRING(BGl_string2904z00zz__errorz00,
		BgL_bgl_string2904za700za7za7_3093za7, "ucs2string", 10);
	      DEFINE_STRING(BGl_string2823z00zz__errorz00,
		BgL_bgl_string2823za700za7za7_3094za7, " out of range [0..", 18);
	      DEFINE_STRING(BGl_string2905z00zz__errorz00,
		BgL_bgl_string2905za700za7za7_3095za7, "ucs2", 4);
	      DEFINE_STRING(BGl_string2824z00zz__errorz00,
		BgL_bgl_string2824za700za7za7_3096za7, "index ", 6);
	      DEFINE_STRING(BGl_string2906z00zz__errorz00,
		BgL_bgl_string2906za700za7za7_3097za7, "elong", 5);
	      DEFINE_STRING(BGl_string2825z00zz__errorz00,
		BgL_bgl_string2825za700za7za7_3098za7, "&index-out-of-bounds2738", 24);
	      DEFINE_STRING(BGl_string2907z00zz__errorz00,
		BgL_bgl_string2907za700za7za7_3099za7, "llong", 5);
	      DEFINE_STRING(BGl_string2826z00zz__errorz00,
		BgL_bgl_string2826za700za7za7_3100za7, "&warning/c-location", 19);
	      DEFINE_STRING(BGl_string2908z00zz__errorz00,
		BgL_bgl_string2908za700za7za7_3101za7, "mutex", 5);
	      DEFINE_STRING(BGl_string2827z00zz__errorz00,
		BgL_bgl_string2827za700za7za7_3102za7, ":\n", 2);
	      DEFINE_STRING(BGl_string2909z00zz__errorz00,
		BgL_bgl_string2909za700za7za7_3103za7, "condvar", 7);
	      DEFINE_STRING(BGl_string2829z00zz__errorz00,
		BgL_bgl_string2829za700za7za7_3104za7, "%no-error-obj", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_findzd2runtimezd2typezd2envzd2zz__errorz00,
		BgL_bgl_za762findza7d2runtim3105z00,
		BGl_z62findzd2runtimezd2typez62zz__errorz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2910z00zz__errorz00,
		BgL_bgl_string2910za700za7za7_3106za7, "date", 4);
	      DEFINE_STRING(BGl_string2911z00zz__errorz00,
		BgL_bgl_string2911za700za7za7_3107za7, "bignum", 6);
	      DEFINE_STRING(BGl_string2830z00zz__errorz00,
		BgL_bgl_string2830za700za7za7_3108za7, " -- ", 4);
	      DEFINE_STRING(BGl_string2912z00zz__errorz00,
		BgL_bgl_string2912za700za7za7_3109za7, "mmap", 4);
	      DEFINE_STRING(BGl_string2831z00zz__errorz00,
		BgL_bgl_string2831za700za7za7_3110za7, "\", character ", 13);
	      DEFINE_STRING(BGl_string2913z00zz__errorz00,
		BgL_bgl_string2913za700za7za7_3111za7, "regexp", 6);
	      DEFINE_STRING(BGl_string2832z00zz__errorz00,
		BgL_bgl_string2832za700za7za7_3112za7, "File \"", 6);
	      DEFINE_STRING(BGl_string2914z00zz__errorz00,
		BgL_bgl_string2914za700za7za7_3113za7, "int8", 4);
	      DEFINE_STRING(BGl_string2833z00zz__errorz00,
		BgL_bgl_string2833za700za7za7_3114za7, "...", 3);
	      DEFINE_STRING(BGl_string2915z00zz__errorz00,
		BgL_bgl_string2915za700za7za7_3115za7, "uint8", 5);
	      DEFINE_STRING(BGl_string2834z00zz__errorz00,
		BgL_bgl_string2834za700za7za7_3116za7, "", 0);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2locationzd2envz20zz__errorz00,
		BgL_bgl_za762errorza7f2locat3117z00, BGl_z62errorzf2locationz90zz__errorz00,
		0L, BUNSPEC, 5);
	      DEFINE_STRING(BGl_string2916z00zz__errorz00,
		BgL_bgl_string2916za700za7za7_3118za7, "int16", 5);
	      DEFINE_STRING(BGl_string2835z00zz__errorz00,
		BgL_bgl_string2835za700za7za7_3119za7, "stdin", 5);
	      DEFINE_STRING(BGl_string2917z00zz__errorz00,
		BgL_bgl_string2917za700za7za7_3120za7, "uint16", 6);
	      DEFINE_STRING(BGl_string2836z00zz__errorz00,
		BgL_bgl_string2836za700za7za7_3121za7, "string://", 9);
	      DEFINE_STRING(BGl_string2918z00zz__errorz00,
		BgL_bgl_string2918za700za7za7_3122za7, "int32", 5);
	      DEFINE_STRING(BGl_string2837z00zz__errorz00,
		BgL_bgl_string2837za700za7za7_3123za7, "win32", 5);
	      DEFINE_STRING(BGl_string2919z00zz__errorz00,
		BgL_bgl_string2919za700za7za7_3124za7, "uint32", 6);
	      DEFINE_STRING(BGl_string2838z00zz__errorz00,
		BgL_bgl_string2838za700za7za7_3125za7, "<eof>", 5);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzf2locationzd2envz20zz__errorz00,
		BgL_bgl_za762warningza7f2loc3126z00, va_generic_entry,
		BGl_z62warningzf2locationz90zz__errorz00, BUNSPEC, -3);

/* 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_symbol2828z00zz__errorz00));
		     ADD_ROOT((void *) (&BGl_symbol2839z00zz__errorz00));
		     ADD_ROOT((void *) (&BGl_symbol2841z00zz__errorz00));
		     ADD_ROOT((void *) (&BGl_symbol2859z00zz__errorz00));
		     ADD_ROOT((void *) (&BGl_symbol2861z00zz__errorz00));
		     ADD_ROOT((void *) (&BGl_symbol2872z00zz__errorz00));
		     ADD_ROOT((void *) (&BGl_symbol2793z00zz__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_5365, char *BgL_fromz00_5366)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__errorz00))
				{
					BGl_requirezd2initializa7ationz75zz__errorz00 = BBOOL(((bool_t) 0));
					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_symbol2793z00zz__errorz00 =
				bstring_to_symbol(BGl_string2794z00zz__errorz00);
			BGl_symbol2828z00zz__errorz00 =
				bstring_to_symbol(BGl_string2829z00zz__errorz00);
			BGl_symbol2839z00zz__errorz00 =
				bstring_to_symbol(BGl_string2840z00zz__errorz00);
			BGl_symbol2841z00zz__errorz00 =
				bstring_to_symbol(BGl_string2842z00zz__errorz00);
			BGl_symbol2859z00zz__errorz00 =
				bstring_to_symbol(BGl_string2860z00zz__errorz00);
			BGl_symbol2861z00zz__errorz00 =
				bstring_to_symbol(BGl_string2862z00zz__errorz00);
			return (BGl_symbol2872z00zz__errorz00 =
				bstring_to_symbol(BGl_string2873z00zz__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_env1208z00_5,
		obj_t BgL_opt1207z00_4)
	{
		{	/* Llib/error.scm 308 */
			{	/* Llib/error.scm 308 */

				switch (VECTOR_LENGTH(BgL_opt1207z00_4))
					{
					case 0L:

						{	/* Llib/error.scm 308 */

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

						{	/* Llib/error.scm 308 */
							obj_t BgL_depthz00_1620;

							BgL_depthz00_1620 = VECTOR_REF(BgL_opt1207z00_4, 0L);
							{	/* Llib/error.scm 308 */

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

	}



/* get-trace-stack */
	BGL_EXPORTED_DEF obj_t BGl_getzd2tracezd2stackz00zz__errorz00(obj_t
		BgL_depthz00_3)
	{
		{	/* Llib/error.scm 308 */
			{	/* Llib/error.scm 309 */
				obj_t BgL_dz00_1621;

				if (INTEGERP(BgL_depthz00_3))
					{	/* Llib/error.scm 310 */
						BgL_dz00_1621 = BgL_depthz00_3;
					}
				else
					{	/* Llib/error.scm 311 */
						obj_t BgL_g1040z00_1623;

						BgL_g1040z00_1623 =
							BGl_getenvz00zz__osz00(BGl_string2786z00zz__errorz00);
						if (CBOOL(BgL_g1040z00_1623))
							{	/* Ieee/fixnum.scm 1004 */

								BgL_dz00_1621 =
									BINT(BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00
									(BgL_g1040z00_1623, 10L, 0L));
							}
						else
							{	/* Llib/error.scm 311 */
								{	/* Llib/error.scm 312 */
									int BgL_arg1338z00_1631;

									BgL_arg1338z00_1631 =
										BGl_bigloozd2tracezd2stackzd2depthzd2zz__paramz00();
									((bool_t) 1);
								}
								BgL_dz00_1621 =
									BINT(BGl_bigloozd2tracezd2stackzd2depthzd2zz__paramz00());
					}}
				{	/* Llib/error.scm 314 */
					int BgL_tmpz00_5402;

					BgL_tmpz00_5402 = CINT(BgL_dz00_1621);
					return bgl_get_trace_stack(BgL_tmpz00_5402);
				}
			}
		}

	}



/* 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 319 */
			{	/* Llib/error.scm 320 */
				bool_t BgL_test3130z00_5405;

				{	/* Llib/error.scm 320 */
					obj_t BgL_classz00_3462;

					BgL_classz00_3462 = BGl_z62exceptionz62zz__objectz00;
					if (BGL_OBJECTP(BgL_procz00_6))
						{	/* Llib/error.scm 320 */
							BgL_objectz00_bglt BgL_arg2702z00_3464;

							BgL_arg2702z00_3464 = (BgL_objectz00_bglt) (BgL_procz00_6);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Llib/error.scm 320 */
									long BgL_idxz00_3470;

									BgL_idxz00_3470 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2702z00_3464);
									BgL_test3130z00_5405 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_3470 + 2L)) == BgL_classz00_3462);
								}
							else
								{	/* Llib/error.scm 320 */
									bool_t BgL_res2715z00_3492;

									{	/* Llib/error.scm 320 */
										obj_t BgL_oclassz00_3478;

										{	/* Llib/error.scm 320 */
											long BgL_arg2709z00_3484;

											{	/* Llib/error.scm 320 */
												long BgL_arg2710z00_3485;

												BgL_arg2710z00_3485 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2702z00_3464);
												BgL_arg2709z00_3484 =
													(BgL_arg2710z00_3485 - OBJECT_TYPE);
											}
											BgL_oclassz00_3478 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg2709z00_3484);
										}
										{	/* Llib/error.scm 320 */
											bool_t BgL__ortest_1198z00_3479;

											BgL__ortest_1198z00_3479 =
												(BgL_classz00_3462 == BgL_oclassz00_3478);
											if (BgL__ortest_1198z00_3479)
												{	/* Llib/error.scm 320 */
													BgL_res2715z00_3492 = BgL__ortest_1198z00_3479;
												}
											else
												{	/* Llib/error.scm 320 */
													long BgL_odepthz00_3480;

													BgL_odepthz00_3480 =
														BGL_CLASS_DEPTH(BgL_oclassz00_3478);
													if ((2L < BgL_odepthz00_3480))
														{	/* Llib/error.scm 320 */
															obj_t BgL_arg2699z00_3482;

															BgL_arg2699z00_3482 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_3478, 2L);
															BgL_res2715z00_3492 =
																(BgL_arg2699z00_3482 == BgL_classz00_3462);
														}
													else
														{	/* Llib/error.scm 320 */
															BgL_res2715z00_3492 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test3130z00_5405 = BgL_res2715z00_3492;
								}
						}
					else
						{	/* Llib/error.scm 320 */
							BgL_test3130z00_5405 = ((bool_t) 0);
						}
				}
				if (BgL_test3130z00_5405)
					{	/* Llib/error.scm 320 */
						return BGl_raisez00zz__errorz00(BgL_procz00_6);
					}
				else
					{	/* Llib/error.scm 320 */
						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_5104,
		obj_t BgL_procz00_5105, obj_t BgL_msgz00_5106, obj_t BgL_objz00_5107)
	{
		{	/* Llib/error.scm 319 */
			return the_failure(BgL_procz00_5105, BgL_msgz00_5106, BgL_objz00_5107);
		}

	}



/* 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 327 */
			if (((long) (BgL_sysnoz00_9) == (long) (BGL_IO_ERROR)))
				{	/* Llib/error.scm 331 */
					BgL_z62iozd2errorzb0_bglt BgL_arg1341z00_1634;

					{	/* Llib/error.scm 331 */
						BgL_z62iozd2errorzb0_bglt BgL_new1043z00_1635;

						{	/* Llib/error.scm 331 */
							BgL_z62iozd2errorzb0_bglt BgL_new1042z00_1638;

							BgL_new1042z00_1638 =
								((BgL_z62iozd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62iozd2errorzb0_bgl))));
							{	/* Llib/error.scm 331 */
								long BgL_arg1344z00_1639;

								BgL_arg1344z00_1639 =
									BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1042z00_1638),
									BgL_arg1344z00_1639);
							}
							BgL_new1043z00_1635 = BgL_new1042z00_1638;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1043z00_1635)))->
								BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1043z00_1635)))->BgL_locationz00) =
							((obj_t) BFALSE), BUNSPEC);
						{
							obj_t BgL_auxz00_5440;

							{	/* Llib/error.scm 331 */
								obj_t BgL_arg1342z00_1636;

								{	/* Llib/error.scm 331 */
									obj_t BgL_arg1343z00_1637;

									{	/* Llib/error.scm 331 */
										obj_t BgL_classz00_3498;

										BgL_classz00_3498 = BGl_z62iozd2errorzb0zz__objectz00;
										BgL_arg1343z00_1637 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_3498);
									}
									BgL_arg1342z00_1636 = VECTOR_REF(BgL_arg1343z00_1637, 2L);
								}
								BgL_auxz00_5440 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg1342z00_1636);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1043z00_1635)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_5440), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1043z00_1635)))->
								BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1043z00_1635)))->BgL_msgz00) =
							((obj_t) BgL_msgz00_11), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1043z00_1635)))->BgL_objz00) =
							((obj_t) BgL_objz00_12), BUNSPEC);
						BgL_arg1341z00_1634 = BgL_new1043z00_1635;
					}
					return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1341z00_1634));
				}
			else
				{	/* Llib/error.scm 329 */
					if (((long) (BgL_sysnoz00_9) == (long) (BGL_IO_PORT_ERROR)))
						{	/* Llib/error.scm 334 */
							BgL_z62iozd2portzd2errorz62_bglt BgL_arg1346z00_1641;

							{	/* Llib/error.scm 334 */
								BgL_z62iozd2portzd2errorz62_bglt BgL_new1045z00_1642;

								{	/* Llib/error.scm 334 */
									BgL_z62iozd2portzd2errorz62_bglt BgL_new1044z00_1645;

									BgL_new1044z00_1645 =
										((BgL_z62iozd2portzd2errorz62_bglt)
										BOBJECT(GC_MALLOC(sizeof(struct
													BgL_z62iozd2portzd2errorz62_bgl))));
									{	/* Llib/error.scm 334 */
										long BgL_arg1349z00_1646;

										BgL_arg1349z00_1646 =
											BGL_CLASS_NUM(BGl_z62iozd2portzd2errorz62zz__objectz00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1044z00_1645),
											BgL_arg1349z00_1646);
									}
									BgL_new1045z00_1642 = BgL_new1044z00_1645;
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1045z00_1642)))->
										BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
								((((BgL_z62exceptionz62_bglt)
											COBJECT(((BgL_z62exceptionz62_bglt)
													BgL_new1045z00_1642)))->BgL_locationz00) =
									((obj_t) BFALSE), BUNSPEC);
								{
									obj_t BgL_auxz00_5466;

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

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

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

												BgL_classz00_3505 =
													BGl_z62iozd2portzd2errorz62zz__objectz00;
												BgL_arg1348z00_1644 =
													BGL_CLASS_ALL_FIELDS(BgL_classz00_3505);
											}
											BgL_arg1347z00_1643 = VECTOR_REF(BgL_arg1348z00_1644, 2L);
										}
										BgL_auxz00_5466 =
											BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
											(BgL_arg1347z00_1643);
									}
									((((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_new1045z00_1642)))->
											BgL_stackz00) = ((obj_t) BgL_auxz00_5466), BUNSPEC);
								}
								((((BgL_z62errorz62_bglt) COBJECT(
												((BgL_z62errorz62_bglt) BgL_new1045z00_1642)))->
										BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
								((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
													BgL_new1045z00_1642)))->BgL_msgz00) =
									((obj_t) BgL_msgz00_11), BUNSPEC);
								((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
													BgL_new1045z00_1642)))->BgL_objz00) =
									((obj_t) BgL_objz00_12), BUNSPEC);
								BgL_arg1346z00_1641 = BgL_new1045z00_1642;
							}
							return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1346z00_1641));
						}
					else
						{	/* Llib/error.scm 332 */
							if (((long) (BgL_sysnoz00_9) == (long) (BGL_IO_READ_ERROR)))
								{	/* Llib/error.scm 337 */
									BgL_z62iozd2readzd2errorz62_bglt BgL_arg1352z00_1648;

									{	/* Llib/error.scm 337 */
										BgL_z62iozd2readzd2errorz62_bglt BgL_new1047z00_1649;

										{	/* Llib/error.scm 337 */
											BgL_z62iozd2readzd2errorz62_bglt BgL_new1046z00_1652;

											BgL_new1046z00_1652 =
												((BgL_z62iozd2readzd2errorz62_bglt)
												BOBJECT(GC_MALLOC(sizeof(struct
															BgL_z62iozd2readzd2errorz62_bgl))));
											{	/* Llib/error.scm 337 */
												long BgL_arg1355z00_1653;

												BgL_arg1355z00_1653 =
													BGL_CLASS_NUM
													(BGl_z62iozd2readzd2errorz62zz__objectz00);
												BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
														BgL_new1046z00_1652), BgL_arg1355z00_1653);
											}
											BgL_new1047z00_1649 = BgL_new1046z00_1652;
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1047z00_1649)))->
												BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
										((((BgL_z62exceptionz62_bglt)
													COBJECT(((BgL_z62exceptionz62_bglt)
															BgL_new1047z00_1649)))->BgL_locationz00) =
											((obj_t) BFALSE), BUNSPEC);
										{
											obj_t BgL_auxz00_5492;

											{	/* Llib/error.scm 337 */
												obj_t BgL_arg1353z00_1650;

												{	/* Llib/error.scm 337 */
													obj_t BgL_arg1354z00_1651;

													{	/* Llib/error.scm 337 */
														obj_t BgL_classz00_3512;

														BgL_classz00_3512 =
															BGl_z62iozd2readzd2errorz62zz__objectz00;
														BgL_arg1354z00_1651 =
															BGL_CLASS_ALL_FIELDS(BgL_classz00_3512);
													}
													BgL_arg1353z00_1650 =
														VECTOR_REF(BgL_arg1354z00_1651, 2L);
												}
												BgL_auxz00_5492 =
													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
													(BgL_arg1353z00_1650);
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1047z00_1649)))->BgL_stackz00) =
												((obj_t) BgL_auxz00_5492), BUNSPEC);
										}
										((((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_new1047z00_1649)))->
												BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1047z00_1649)))->BgL_msgz00) =
											((obj_t) BgL_msgz00_11), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1047z00_1649)))->BgL_objz00) =
											((obj_t) BgL_objz00_12), BUNSPEC);
										BgL_arg1352z00_1648 = BgL_new1047z00_1649;
									}
									return
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg1352z00_1648));
								}
							else
								{	/* Llib/error.scm 335 */
									if (((long) (BgL_sysnoz00_9) == (long) (BGL_IO_WRITE_ERROR)))
										{	/* Llib/error.scm 340 */
											BgL_z62iozd2writezd2errorz62_bglt BgL_arg1357z00_1655;

											{	/* Llib/error.scm 340 */
												BgL_z62iozd2writezd2errorz62_bglt BgL_new1049z00_1656;

												{	/* Llib/error.scm 340 */
													BgL_z62iozd2writezd2errorz62_bglt BgL_new1048z00_1659;

													BgL_new1048z00_1659 =
														((BgL_z62iozd2writezd2errorz62_bglt)
														BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_z62iozd2writezd2errorz62_bgl))));
													{	/* Llib/error.scm 340 */
														long BgL_arg1360z00_1660;

														BgL_arg1360z00_1660 =
															BGL_CLASS_NUM
															(BGl_z62iozd2writezd2errorz62zz__objectz00);
														BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																BgL_new1048z00_1659), BgL_arg1360z00_1660);
													}
													BgL_new1049z00_1656 = BgL_new1048z00_1659;
												}
												((((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	BgL_new1049z00_1656)))->BgL_fnamez00) =
													((obj_t) BFALSE), BUNSPEC);
												((((BgL_z62exceptionz62_bglt)
															COBJECT(((BgL_z62exceptionz62_bglt)
																	BgL_new1049z00_1656)))->BgL_locationz00) =
													((obj_t) BFALSE), BUNSPEC);
												{
													obj_t BgL_auxz00_5518;

													{	/* Llib/error.scm 340 */
														obj_t BgL_arg1358z00_1657;

														{	/* Llib/error.scm 340 */
															obj_t BgL_arg1359z00_1658;

															{	/* Llib/error.scm 340 */
																obj_t BgL_classz00_3519;

																BgL_classz00_3519 =
																	BGl_z62iozd2writezd2errorz62zz__objectz00;
																BgL_arg1359z00_1658 =
																	BGL_CLASS_ALL_FIELDS(BgL_classz00_3519);
															}
															BgL_arg1358z00_1657 =
																VECTOR_REF(BgL_arg1359z00_1658, 2L);
														}
														BgL_auxz00_5518 =
															BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
															(BgL_arg1358z00_1657);
													}
													((((BgL_z62exceptionz62_bglt) COBJECT(
																	((BgL_z62exceptionz62_bglt)
																		BgL_new1049z00_1656)))->BgL_stackz00) =
														((obj_t) BgL_auxz00_5518), BUNSPEC);
												}
												((((BgL_z62errorz62_bglt) COBJECT(
																((BgL_z62errorz62_bglt) BgL_new1049z00_1656)))->
														BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(((BgL_z62errorz62_bglt)
																	BgL_new1049z00_1656)))->BgL_msgz00) =
													((obj_t) BgL_msgz00_11), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(((BgL_z62errorz62_bglt)
																	BgL_new1049z00_1656)))->BgL_objz00) =
													((obj_t) BgL_objz00_12), BUNSPEC);
												BgL_arg1357z00_1655 = BgL_new1049z00_1656;
											}
											return
												BGl_raisez00zz__errorz00(((obj_t) BgL_arg1357z00_1655));
										}
									else
										{	/* Llib/error.scm 338 */
											if (
												((long) (BgL_sysnoz00_9) ==
													(long) (BGL_IO_UNKNOWN_HOST_ERROR)))
												{	/* Llib/error.scm 343 */
													BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt
														BgL_arg1362z00_1662;
													{	/* Llib/error.scm 343 */
														BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt
															BgL_new1051z00_1663;
														{	/* Llib/error.scm 343 */
															BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt
																BgL_new1050z00_1666;
															BgL_new1050z00_1666 =
																((BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt)
																BOBJECT(GC_MALLOC(sizeof(struct
																			BgL_z62iozd2unknownzd2hostzd2errorzb0_bgl))));
															{	/* Llib/error.scm 343 */
																long BgL_arg1365z00_1667;

																BgL_arg1365z00_1667 =
																	BGL_CLASS_NUM
																	(BGl_z62iozd2unknownzd2hostzd2errorzb0zz__objectz00);
																BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																		BgL_new1050z00_1666), BgL_arg1365z00_1667);
															}
															BgL_new1051z00_1663 = BgL_new1050z00_1666;
														}
														((((BgL_z62exceptionz62_bglt) COBJECT(
																		((BgL_z62exceptionz62_bglt)
																			BgL_new1051z00_1663)))->BgL_fnamez00) =
															((obj_t) BFALSE), BUNSPEC);
														((((BgL_z62exceptionz62_bglt)
																	COBJECT(((BgL_z62exceptionz62_bglt)
																			BgL_new1051z00_1663)))->BgL_locationz00) =
															((obj_t) BFALSE), BUNSPEC);
														{
															obj_t BgL_auxz00_5544;

															{	/* Llib/error.scm 343 */
																obj_t BgL_arg1363z00_1664;

																{	/* Llib/error.scm 343 */
																	obj_t BgL_arg1364z00_1665;

																	{	/* Llib/error.scm 343 */
																		obj_t BgL_classz00_3526;

																		BgL_classz00_3526 =
																			BGl_z62iozd2unknownzd2hostzd2errorzb0zz__objectz00;
																		BgL_arg1364z00_1665 =
																			BGL_CLASS_ALL_FIELDS(BgL_classz00_3526);
																	}
																	BgL_arg1363z00_1664 =
																		VECTOR_REF(BgL_arg1364z00_1665, 2L);
																}
																BgL_auxz00_5544 =
																	BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																	(BgL_arg1363z00_1664);
															}
															((((BgL_z62exceptionz62_bglt) COBJECT(
																			((BgL_z62exceptionz62_bglt)
																				BgL_new1051z00_1663)))->BgL_stackz00) =
																((obj_t) BgL_auxz00_5544), BUNSPEC);
														}
														((((BgL_z62errorz62_bglt) COBJECT(
																		((BgL_z62errorz62_bglt)
																			BgL_new1051z00_1663)))->BgL_procz00) =
															((obj_t) BgL_procz00_10), BUNSPEC);
														((((BgL_z62errorz62_bglt)
																	COBJECT(((BgL_z62errorz62_bglt)
																			BgL_new1051z00_1663)))->BgL_msgz00) =
															((obj_t) BgL_msgz00_11), BUNSPEC);
														((((BgL_z62errorz62_bglt)
																	COBJECT(((BgL_z62errorz62_bglt)
																			BgL_new1051z00_1663)))->BgL_objz00) =
															((obj_t) BgL_objz00_12), BUNSPEC);
														BgL_arg1362z00_1662 = BgL_new1051z00_1663;
													}
													return
														BGl_raisez00zz__errorz00(
														((obj_t) BgL_arg1362z00_1662));
												}
											else
												{	/* Llib/error.scm 341 */
													if (
														((long) (BgL_sysnoz00_9) ==
															(long) (BGL_IO_FILE_NOT_FOUND_ERROR)))
														{	/* Llib/error.scm 346 */
															BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt
																BgL_arg1367z00_1669;
															{	/* Llib/error.scm 346 */
																BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt
																	BgL_new1053z00_1670;
																{	/* Llib/error.scm 346 */
																	BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt
																		BgL_new1052z00_1673;
																	BgL_new1052z00_1673 =
																		(
																		(BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_z62iozd2filezd2notzd2foundzd2errorz62_bgl))));
																	{	/* Llib/error.scm 346 */
																		long BgL_arg1370z00_1674;

																		BgL_arg1370z00_1674 =
																			BGL_CLASS_NUM
																			(BGl_z62iozd2filezd2notzd2foundzd2errorz62zz__objectz00);
																		BGL_OBJECT_CLASS_NUM_SET((
																				(BgL_objectz00_bglt)
																				BgL_new1052z00_1673),
																			BgL_arg1370z00_1674);
																	}
																	BgL_new1053z00_1670 = BgL_new1052z00_1673;
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1053z00_1670)))->
																		BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																((((BgL_z62exceptionz62_bglt)
																			COBJECT(((BgL_z62exceptionz62_bglt)
																					BgL_new1053z00_1670)))->
																		BgL_locationz00) =
																	((obj_t) BFALSE), BUNSPEC);
																{
																	obj_t BgL_auxz00_5570;

																	{	/* Llib/error.scm 346 */
																		obj_t BgL_arg1368z00_1671;

																		{	/* Llib/error.scm 346 */
																			obj_t BgL_arg1369z00_1672;

																			{	/* Llib/error.scm 346 */
																				obj_t BgL_classz00_3533;

																				BgL_classz00_3533 =
																					BGl_z62iozd2filezd2notzd2foundzd2errorz62zz__objectz00;
																				BgL_arg1369z00_1672 =
																					BGL_CLASS_ALL_FIELDS
																					(BgL_classz00_3533);
																			}
																			BgL_arg1368z00_1671 =
																				VECTOR_REF(BgL_arg1369z00_1672, 2L);
																		}
																		BgL_auxz00_5570 =
																			BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																			(BgL_arg1368z00_1671);
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1053z00_1670)))->
																			BgL_stackz00) =
																		((obj_t) BgL_auxz00_5570), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1053z00_1670)))->BgL_procz00) =
																	((obj_t) BgL_procz00_10), BUNSPEC);
																((((BgL_z62errorz62_bglt)
																			COBJECT(((BgL_z62errorz62_bglt)
																					BgL_new1053z00_1670)))->BgL_msgz00) =
																	((obj_t) BgL_msgz00_11), BUNSPEC);
																((((BgL_z62errorz62_bglt)
																			COBJECT(((BgL_z62errorz62_bglt)
																					BgL_new1053z00_1670)))->BgL_objz00) =
																	((obj_t) BgL_objz00_12), BUNSPEC);
																BgL_arg1367z00_1669 = BgL_new1053z00_1670;
															}
															return
																BGl_raisez00zz__errorz00(
																((obj_t) BgL_arg1367z00_1669));
														}
													else
														{	/* Llib/error.scm 344 */
															if (
																((long) (BgL_sysnoz00_9) ==
																	(long) (BGL_IO_PARSE_ERROR)))
																{	/* Llib/error.scm 349 */
																	BgL_z62iozd2parsezd2errorz62_bglt
																		BgL_arg1372z00_1676;
																	{	/* Llib/error.scm 349 */
																		BgL_z62iozd2parsezd2errorz62_bglt
																			BgL_new1055z00_1677;
																		{	/* Llib/error.scm 349 */
																			BgL_z62iozd2parsezd2errorz62_bglt
																				BgL_new1054z00_1680;
																			BgL_new1054z00_1680 =
																				((BgL_z62iozd2parsezd2errorz62_bglt)
																				BOBJECT(GC_MALLOC(sizeof(struct
																							BgL_z62iozd2parsezd2errorz62_bgl))));
																			{	/* Llib/error.scm 349 */
																				long BgL_arg1375z00_1681;

																				BgL_arg1375z00_1681 =
																					BGL_CLASS_NUM
																					(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																				BGL_OBJECT_CLASS_NUM_SET((
																						(BgL_objectz00_bglt)
																						BgL_new1054z00_1680),
																					BgL_arg1375z00_1681);
																			}
																			BgL_new1055z00_1677 = BgL_new1054z00_1680;
																		}
																		((((BgL_z62exceptionz62_bglt) COBJECT(
																						((BgL_z62exceptionz62_bglt)
																							BgL_new1055z00_1677)))->
																				BgL_fnamez00) =
																			((obj_t) BFALSE), BUNSPEC);
																		((((BgL_z62exceptionz62_bglt)
																					COBJECT(((BgL_z62exceptionz62_bglt)
																							BgL_new1055z00_1677)))->
																				BgL_locationz00) =
																			((obj_t) BFALSE), BUNSPEC);
																		{
																			obj_t BgL_auxz00_5596;

																			{	/* Llib/error.scm 349 */
																				obj_t BgL_arg1373z00_1678;

																				{	/* Llib/error.scm 349 */
																					obj_t BgL_arg1374z00_1679;

																					{	/* Llib/error.scm 349 */
																						obj_t BgL_classz00_3540;

																						BgL_classz00_3540 =
																							BGl_z62iozd2parsezd2errorz62zz__objectz00;
																						BgL_arg1374z00_1679 =
																							BGL_CLASS_ALL_FIELDS
																							(BgL_classz00_3540);
																					}
																					BgL_arg1373z00_1678 =
																						VECTOR_REF(BgL_arg1374z00_1679, 2L);
																				}
																				BgL_auxz00_5596 =
																					BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																					(BgL_arg1373z00_1678);
																			}
																			((((BgL_z62exceptionz62_bglt) COBJECT(
																							((BgL_z62exceptionz62_bglt)
																								BgL_new1055z00_1677)))->
																					BgL_stackz00) =
																				((obj_t) BgL_auxz00_5596), BUNSPEC);
																		}
																		((((BgL_z62errorz62_bglt) COBJECT(
																						((BgL_z62errorz62_bglt)
																							BgL_new1055z00_1677)))->
																				BgL_procz00) =
																			((obj_t) BgL_procz00_10), BUNSPEC);
																		((((BgL_z62errorz62_bglt)
																					COBJECT(((BgL_z62errorz62_bglt)
																							BgL_new1055z00_1677)))->
																				BgL_msgz00) =
																			((obj_t) BgL_msgz00_11), BUNSPEC);
																		((((BgL_z62errorz62_bglt)
																					COBJECT(((BgL_z62errorz62_bglt)
																							BgL_new1055z00_1677)))->
																				BgL_objz00) =
																			((obj_t) BgL_objz00_12), BUNSPEC);
																		BgL_arg1372z00_1676 = BgL_new1055z00_1677;
																	}
																	return
																		BGl_raisez00zz__errorz00(
																		((obj_t) BgL_arg1372z00_1676));
																}
															else
																{	/* Llib/error.scm 347 */
																	if (
																		((long) (BgL_sysnoz00_9) ==
																			(long) (BGL_IO_MALFORMED_URL_ERROR)))
																		{	/* Llib/error.scm 352 */
																			BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt
																				BgL_arg1377z00_1683;
																			{	/* Llib/error.scm 352 */
																				BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt
																					BgL_new1057z00_1684;
																				{	/* Llib/error.scm 352 */
																					BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt
																						BgL_new1056z00_1687;
																					BgL_new1056z00_1687 =
																						(
																						(BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt)
																						BOBJECT(GC_MALLOC(sizeof(struct
																									BgL_z62iozd2malformedzd2urlzd2errorzb0_bgl))));
																					{	/* Llib/error.scm 352 */
																						long BgL_arg1383z00_1688;

																						BgL_arg1383z00_1688 =
																							BGL_CLASS_NUM
																							(BGl_z62iozd2malformedzd2urlzd2errorzb0zz__objectz00);
																						BGL_OBJECT_CLASS_NUM_SET((
																								(BgL_objectz00_bglt)
																								BgL_new1056z00_1687),
																							BgL_arg1383z00_1688);
																					}
																					BgL_new1057z00_1684 =
																						BgL_new1056z00_1687;
																				}
																				((((BgL_z62exceptionz62_bglt) COBJECT(
																								((BgL_z62exceptionz62_bglt)
																									BgL_new1057z00_1684)))->
																						BgL_fnamez00) =
																					((obj_t) BFALSE), BUNSPEC);
																				((((BgL_z62exceptionz62_bglt)
																							COBJECT((
																									(BgL_z62exceptionz62_bglt)
																									BgL_new1057z00_1684)))->
																						BgL_locationz00) =
																					((obj_t) BFALSE), BUNSPEC);
																				{
																					obj_t BgL_auxz00_5622;

																					{	/* Llib/error.scm 352 */
																						obj_t BgL_arg1379z00_1685;

																						{	/* Llib/error.scm 352 */
																							obj_t BgL_arg1382z00_1686;

																							{	/* Llib/error.scm 352 */
																								obj_t BgL_classz00_3547;

																								BgL_classz00_3547 =
																									BGl_z62iozd2malformedzd2urlzd2errorzb0zz__objectz00;
																								BgL_arg1382z00_1686 =
																									BGL_CLASS_ALL_FIELDS
																									(BgL_classz00_3547);
																							}
																							BgL_arg1379z00_1685 =
																								VECTOR_REF(BgL_arg1382z00_1686,
																								2L);
																						}
																						BgL_auxz00_5622 =
																							BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																							(BgL_arg1379z00_1685);
																					}
																					((((BgL_z62exceptionz62_bglt) COBJECT(
																									((BgL_z62exceptionz62_bglt)
																										BgL_new1057z00_1684)))->
																							BgL_stackz00) =
																						((obj_t) BgL_auxz00_5622), BUNSPEC);
																				}
																				((((BgL_z62errorz62_bglt) COBJECT(
																								((BgL_z62errorz62_bglt)
																									BgL_new1057z00_1684)))->
																						BgL_procz00) =
																					((obj_t) BgL_procz00_10), BUNSPEC);
																				((((BgL_z62errorz62_bglt)
																							COBJECT(((BgL_z62errorz62_bglt)
																									BgL_new1057z00_1684)))->
																						BgL_msgz00) =
																					((obj_t) BgL_msgz00_11), BUNSPEC);
																				((((BgL_z62errorz62_bglt)
																							COBJECT(((BgL_z62errorz62_bglt)
																									BgL_new1057z00_1684)))->
																						BgL_objz00) =
																					((obj_t) BgL_objz00_12), BUNSPEC);
																				BgL_arg1377z00_1683 =
																					BgL_new1057z00_1684;
																			}
																			return
																				BGl_raisez00zz__errorz00(
																				((obj_t) BgL_arg1377z00_1683));
																		}
																	else
																		{	/* Llib/error.scm 350 */
																			if (
																				((long) (BgL_sysnoz00_9) ==
																					(long) (BGL_IO_SIGPIPE_ERROR)))
																				{	/* Llib/error.scm 355 */
																					BgL_z62iozd2sigpipezd2errorz62_bglt
																						BgL_arg1385z00_1690;
																					{	/* Llib/error.scm 355 */
																						BgL_z62iozd2sigpipezd2errorz62_bglt
																							BgL_new1059z00_1691;
																						{	/* Llib/error.scm 355 */
																							BgL_z62iozd2sigpipezd2errorz62_bglt
																								BgL_new1058z00_1694;
																							BgL_new1058z00_1694 =
																								(
																								(BgL_z62iozd2sigpipezd2errorz62_bglt)
																								BOBJECT(GC_MALLOC(sizeof(struct
																											BgL_z62iozd2sigpipezd2errorz62_bgl))));
																							{	/* Llib/error.scm 355 */
																								long BgL_arg1388z00_1695;

																								BgL_arg1388z00_1695 =
																									BGL_CLASS_NUM
																									(BGl_z62iozd2sigpipezd2errorz62zz__objectz00);
																								BGL_OBJECT_CLASS_NUM_SET((
																										(BgL_objectz00_bglt)
																										BgL_new1058z00_1694),
																									BgL_arg1388z00_1695);
																							}
																							BgL_new1059z00_1691 =
																								BgL_new1058z00_1694;
																						}
																						((((BgL_z62exceptionz62_bglt)
																									COBJECT((
																											(BgL_z62exceptionz62_bglt)
																											BgL_new1059z00_1691)))->
																								BgL_fnamez00) =
																							((obj_t) BFALSE), BUNSPEC);
																						((((BgL_z62exceptionz62_bglt)
																									COBJECT((
																											(BgL_z62exceptionz62_bglt)
																											BgL_new1059z00_1691)))->
																								BgL_locationz00) =
																							((obj_t) BFALSE), BUNSPEC);
																						{
																							obj_t BgL_auxz00_5648;

																							{	/* Llib/error.scm 355 */
																								obj_t BgL_arg1386z00_1692;

																								{	/* Llib/error.scm 355 */
																									obj_t BgL_arg1387z00_1693;

																									{	/* Llib/error.scm 355 */
																										obj_t BgL_classz00_3554;

																										BgL_classz00_3554 =
																											BGl_z62iozd2sigpipezd2errorz62zz__objectz00;
																										BgL_arg1387z00_1693 =
																											BGL_CLASS_ALL_FIELDS
																											(BgL_classz00_3554);
																									}
																									BgL_arg1386z00_1692 =
																										VECTOR_REF
																										(BgL_arg1387z00_1693, 2L);
																								}
																								BgL_auxz00_5648 =
																									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																									(BgL_arg1386z00_1692);
																							}
																							((((BgL_z62exceptionz62_bglt)
																										COBJECT((
																												(BgL_z62exceptionz62_bglt)
																												BgL_new1059z00_1691)))->
																									BgL_stackz00) =
																								((obj_t) BgL_auxz00_5648),
																								BUNSPEC);
																						}
																						((((BgL_z62errorz62_bglt) COBJECT(
																										((BgL_z62errorz62_bglt)
																											BgL_new1059z00_1691)))->
																								BgL_procz00) =
																							((obj_t) BgL_procz00_10),
																							BUNSPEC);
																						((((BgL_z62errorz62_bglt)
																									COBJECT((
																											(BgL_z62errorz62_bglt)
																											BgL_new1059z00_1691)))->
																								BgL_msgz00) =
																							((obj_t) BgL_msgz00_11), BUNSPEC);
																						((((BgL_z62errorz62_bglt)
																									COBJECT((
																											(BgL_z62errorz62_bglt)
																											BgL_new1059z00_1691)))->
																								BgL_objz00) =
																							((obj_t) BgL_objz00_12), BUNSPEC);
																						BgL_arg1385z00_1690 =
																							BgL_new1059z00_1691;
																					}
																					return
																						BGl_raisez00zz__errorz00(
																						((obj_t) BgL_arg1385z00_1690));
																				}
																			else
																				{	/* Llib/error.scm 353 */
																					if (
																						((long) (BgL_sysnoz00_9) ==
																							(long) (BGL_IO_TIMEOUT_ERROR)))
																						{	/* Llib/error.scm 358 */
																							BgL_z62iozd2timeoutzd2errorz62_bglt
																								BgL_arg1390z00_1697;
																							{	/* Llib/error.scm 358 */
																								BgL_z62iozd2timeoutzd2errorz62_bglt
																									BgL_new1062z00_1698;
																								{	/* Llib/error.scm 358 */
																									BgL_z62iozd2timeoutzd2errorz62_bglt
																										BgL_new1060z00_1701;
																									BgL_new1060z00_1701 =
																										(
																										(BgL_z62iozd2timeoutzd2errorz62_bglt)
																										BOBJECT(GC_MALLOC(sizeof
																												(struct
																													BgL_z62iozd2timeoutzd2errorz62_bgl))));
																									{	/* Llib/error.scm 358 */
																										long BgL_arg1394z00_1702;

																										BgL_arg1394z00_1702 =
																											BGL_CLASS_NUM
																											(BGl_z62iozd2timeoutzd2errorz62zz__objectz00);
																										BGL_OBJECT_CLASS_NUM_SET((
																												(BgL_objectz00_bglt)
																												BgL_new1060z00_1701),
																											BgL_arg1394z00_1702);
																									}
																									BgL_new1062z00_1698 =
																										BgL_new1060z00_1701;
																								}
																								((((BgL_z62exceptionz62_bglt)
																											COBJECT((
																													(BgL_z62exceptionz62_bglt)
																													BgL_new1062z00_1698)))->
																										BgL_fnamez00) =
																									((obj_t) BFALSE), BUNSPEC);
																								((((BgL_z62exceptionz62_bglt)
																											COBJECT((
																													(BgL_z62exceptionz62_bglt)
																													BgL_new1062z00_1698)))->
																										BgL_locationz00) =
																									((obj_t) BFALSE), BUNSPEC);
																								{
																									obj_t BgL_auxz00_5674;

																									{	/* Llib/error.scm 358 */
																										obj_t BgL_arg1391z00_1699;

																										{	/* Llib/error.scm 358 */
																											obj_t BgL_arg1392z00_1700;

																											{	/* Llib/error.scm 358 */
																												obj_t BgL_classz00_3561;

																												BgL_classz00_3561 =
																													BGl_z62iozd2timeoutzd2errorz62zz__objectz00;
																												BgL_arg1392z00_1700 =
																													BGL_CLASS_ALL_FIELDS
																													(BgL_classz00_3561);
																											}
																											BgL_arg1391z00_1699 =
																												VECTOR_REF
																												(BgL_arg1392z00_1700,
																												2L);
																										}
																										BgL_auxz00_5674 =
																											BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																											(BgL_arg1391z00_1699);
																									}
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1062z00_1698)))->
																											BgL_stackz00) =
																										((obj_t) BgL_auxz00_5674),
																										BUNSPEC);
																								}
																								((((BgL_z62errorz62_bglt)
																											COBJECT((
																													(BgL_z62errorz62_bglt)
																													BgL_new1062z00_1698)))->
																										BgL_procz00) =
																									((obj_t) BgL_procz00_10),
																									BUNSPEC);
																								((((BgL_z62errorz62_bglt)
																											COBJECT((
																													(BgL_z62errorz62_bglt)
																													BgL_new1062z00_1698)))->
																										BgL_msgz00) =
																									((obj_t) BgL_msgz00_11),
																									BUNSPEC);
																								((((BgL_z62errorz62_bglt)
																											COBJECT((
																													(BgL_z62errorz62_bglt)
																													BgL_new1062z00_1698)))->
																										BgL_objz00) =
																									((obj_t) BgL_objz00_12),
																									BUNSPEC);
																								BgL_arg1390z00_1697 =
																									BgL_new1062z00_1698;
																							}
																							return
																								BGl_raisez00zz__errorz00(
																								((obj_t) BgL_arg1390z00_1697));
																						}
																					else
																						{	/* Llib/error.scm 356 */
																							if (
																								((long) (BgL_sysnoz00_9) ==
																									(long)
																									(BGL_IO_CONNECTION_ERROR)))
																								{	/* Llib/error.scm 361 */
																									BgL_z62iozd2connectionzd2errorz62_bglt
																										BgL_arg1396z00_1704;
																									{	/* Llib/error.scm 361 */
																										BgL_z62iozd2connectionzd2errorz62_bglt
																											BgL_new1064z00_1705;
																										{	/* Llib/error.scm 361 */
																											BgL_z62iozd2connectionzd2errorz62_bglt
																												BgL_new1063z00_1708;
																											BgL_new1063z00_1708 =
																												(
																												(BgL_z62iozd2connectionzd2errorz62_bglt)
																												BOBJECT(GC_MALLOC(sizeof
																														(struct
																															BgL_z62iozd2connectionzd2errorz62_bgl))));
																											{	/* Llib/error.scm 361 */
																												long
																													BgL_arg1399z00_1709;
																												BgL_arg1399z00_1709 =
																													BGL_CLASS_NUM
																													(BGl_z62iozd2connectionzd2errorz62zz__objectz00);
																												BGL_OBJECT_CLASS_NUM_SET
																													(((BgL_objectz00_bglt)
																														BgL_new1063z00_1708),
																													BgL_arg1399z00_1709);
																											}
																											BgL_new1064z00_1705 =
																												BgL_new1063z00_1708;
																										}
																										((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1064z00_1705)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																										((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1064z00_1705)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																										{
																											obj_t BgL_auxz00_5700;

																											{	/* Llib/error.scm 361 */
																												obj_t
																													BgL_arg1397z00_1706;
																												{	/* Llib/error.scm 361 */
																													obj_t
																														BgL_arg1398z00_1707;
																													{	/* Llib/error.scm 361 */
																														obj_t
																															BgL_classz00_3568;
																														BgL_classz00_3568 =
																															BGl_z62iozd2connectionzd2errorz62zz__objectz00;
																														BgL_arg1398z00_1707
																															=
																															BGL_CLASS_ALL_FIELDS
																															(BgL_classz00_3568);
																													}
																													BgL_arg1397z00_1706 =
																														VECTOR_REF
																														(BgL_arg1398z00_1707,
																														2L);
																												}
																												BgL_auxz00_5700 =
																													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																													(BgL_arg1397z00_1706);
																											}
																											((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1064z00_1705)))->BgL_stackz00) = ((obj_t) BgL_auxz00_5700), BUNSPEC);
																										}
																										((((BgL_z62errorz62_bglt)
																													COBJECT((
																															(BgL_z62errorz62_bglt)
																															BgL_new1064z00_1705)))->
																												BgL_procz00) =
																											((obj_t) BgL_procz00_10),
																											BUNSPEC);
																										((((BgL_z62errorz62_bglt)
																													COBJECT((
																															(BgL_z62errorz62_bglt)
																															BgL_new1064z00_1705)))->
																												BgL_msgz00) =
																											((obj_t) BgL_msgz00_11),
																											BUNSPEC);
																										((((BgL_z62errorz62_bglt)
																													COBJECT((
																															(BgL_z62errorz62_bglt)
																															BgL_new1064z00_1705)))->
																												BgL_objz00) =
																											((obj_t) BgL_objz00_12),
																											BUNSPEC);
																										BgL_arg1396z00_1704 =
																											BgL_new1064z00_1705;
																									}
																									return
																										BGl_raisez00zz__errorz00(
																										((obj_t)
																											BgL_arg1396z00_1704));
																								}
																							else
																								{	/* Llib/error.scm 359 */
																									if (
																										((long) (BgL_sysnoz00_9) ==
																											(long)
																											(BGL_PROCESS_EXCEPTION)))
																										{	/* Llib/error.scm 364 */
																											BgL_z62processzd2exceptionzb0_bglt
																												BgL_arg1401z00_1711;
																											{	/* Llib/error.scm 364 */
																												BgL_z62processzd2exceptionzb0_bglt
																													BgL_new1066z00_1712;
																												{	/* Llib/error.scm 364 */
																													BgL_z62processzd2exceptionzb0_bglt
																														BgL_new1065z00_1715;
																													BgL_new1065z00_1715 =
																														(
																														(BgL_z62processzd2exceptionzb0_bglt)
																														BOBJECT(GC_MALLOC
																															(sizeof(struct
																																	BgL_z62processzd2exceptionzb0_bgl))));
																													{	/* Llib/error.scm 364 */
																														long
																															BgL_arg1405z00_1716;
																														BgL_arg1405z00_1716
																															=
																															BGL_CLASS_NUM
																															(BGl_z62processzd2exceptionzb0zz__objectz00);
																														BGL_OBJECT_CLASS_NUM_SET
																															(((BgL_objectz00_bglt) BgL_new1065z00_1715), BgL_arg1405z00_1716);
																													}
																													BgL_new1066z00_1712 =
																														BgL_new1065z00_1715;
																												}
																												((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1066z00_1712)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																												((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1066z00_1712)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																												{
																													obj_t BgL_auxz00_5726;

																													{	/* Llib/error.scm 364 */
																														obj_t
																															BgL_arg1402z00_1713;
																														{	/* Llib/error.scm 364 */
																															obj_t
																																BgL_arg1403z00_1714;
																															{	/* Llib/error.scm 364 */
																																obj_t
																																	BgL_classz00_3575;
																																BgL_classz00_3575
																																	=
																																	BGl_z62processzd2exceptionzb0zz__objectz00;
																																BgL_arg1403z00_1714
																																	=
																																	BGL_CLASS_ALL_FIELDS
																																	(BgL_classz00_3575);
																															}
																															BgL_arg1402z00_1713
																																=
																																VECTOR_REF
																																(BgL_arg1403z00_1714,
																																2L);
																														}
																														BgL_auxz00_5726 =
																															BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																															(BgL_arg1402z00_1713);
																													}
																													((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1066z00_1712)))->BgL_stackz00) = ((obj_t) BgL_auxz00_5726), BUNSPEC);
																												}
																												((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1066z00_1712)))->BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
																												((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1066z00_1712)))->BgL_msgz00) = ((obj_t) BgL_msgz00_11), BUNSPEC);
																												((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1066z00_1712)))->BgL_objz00) = ((obj_t) BgL_objz00_12), BUNSPEC);
																												BgL_arg1401z00_1711 =
																													BgL_new1066z00_1712;
																											}
																											return
																												BGl_raisez00zz__errorz00
																												(((obj_t)
																													BgL_arg1401z00_1711));
																										}
																									else
																										{	/* Llib/error.scm 362 */
																											if (
																												((long) (BgL_sysnoz00_9)
																													==
																													(long)
																													(BGL_TYPE_ERROR)))
																												{	/* Llib/error.scm 366 */
																													BgL_z62typezd2errorzb0_bglt
																														BgL_arg1407z00_1718;
																													{	/* Llib/error.scm 626 */
																														obj_t
																															BgL_tyz00_3579;
																														if (STRINGP
																															(BgL_msgz00_11))
																															{	/* Llib/error.scm 627 */
																																BgL_tyz00_3579 =
																																	BgL_msgz00_11;
																															}
																														else
																															{	/* Llib/error.scm 627 */
																																if (SYMBOLP
																																	(BgL_msgz00_11))
																																	{	/* Llib/error.scm 628 */
																																		obj_t
																																			BgL_arg2302z00_3590;
																																		BgL_arg2302z00_3590
																																			=
																																			SYMBOL_TO_STRING
																																			(BgL_msgz00_11);
																																		BgL_tyz00_3579
																																			=
																																			BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																			(BgL_arg2302z00_3590);
																																	}
																																else
																																	{	/* Llib/error.scm 628 */
																																		BgL_tyz00_3579
																																			=
																																			BGl_string2787z00zz__errorz00;
																																	}
																															}
																														{	/* Llib/error.scm 626 */
																															obj_t
																																BgL_msgz00_3582;
																															BgL_msgz00_3582 =
																																BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00
																																(BGl_string2788z00zz__errorz00,
																																BgL_tyz00_3579,
																																bgl_typeof
																																(BgL_objz00_12));
																															{	/* Llib/error.scm 630 */

																																{	/* Llib/error.scm 631 */
																																	BgL_z62typezd2errorzb0_bglt
																																		BgL_new1085z00_3584;
																																	{	/* Llib/error.scm 632 */
																																		BgL_z62typezd2errorzb0_bglt
																																			BgL_new1084z00_3585;
																																		BgL_new1084z00_3585
																																			=
																																			(
																																			(BgL_z62typezd2errorzb0_bglt)
																																			BOBJECT
																																			(GC_MALLOC
																																				(sizeof
																																					(struct
																																						BgL_z62typezd2errorzb0_bgl))));
																																		{	/* Llib/error.scm 632 */
																																			long
																																				BgL_arg1563z00_3586;
																																			BgL_arg1563z00_3586
																																				=
																																				BGL_CLASS_NUM
																																				(BGl_z62typezd2errorzb0zz__objectz00);
																																			BGL_OBJECT_CLASS_NUM_SET
																																				(((BgL_objectz00_bglt) BgL_new1084z00_3585), BgL_arg1563z00_3586);
																																		}
																																		BgL_new1085z00_3584
																																			=
																																			BgL_new1084z00_3585;
																																	}
																																	((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1085z00_3584)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																																	((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1085z00_3584)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																																	{
																																		obj_t
																																			BgL_auxz00_5760;
																																		{	/* Llib/error.scm 633 */
																																			obj_t
																																				BgL_arg1559z00_3587;
																																			{	/* Llib/error.scm 633 */
																																				obj_t
																																					BgL_arg1560z00_3588;
																																				{	/* Llib/error.scm 633 */
																																					obj_t
																																						BgL_classz00_3594;
																																					BgL_classz00_3594
																																						=
																																						BGl_z62typezd2errorzb0zz__objectz00;
																																					BgL_arg1560z00_3588
																																						=
																																						BGL_CLASS_ALL_FIELDS
																																						(BgL_classz00_3594);
																																				}
																																				BgL_arg1559z00_3587
																																					=
																																					VECTOR_REF
																																					(BgL_arg1560z00_3588,
																																					2L);
																																			}
																																			BgL_auxz00_5760
																																				=
																																				BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																																				(BgL_arg1559z00_3587);
																																		}
																																		((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1085z00_3584)))->BgL_stackz00) = ((obj_t) BgL_auxz00_5760), BUNSPEC);
																																	}
																																	((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1085z00_3584)))->BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
																																	((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1085z00_3584)))->BgL_msgz00) = ((obj_t) BgL_msgz00_3582), BUNSPEC);
																																	((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1085z00_3584)))->BgL_objz00) = ((obj_t) BgL_objz00_12), BUNSPEC);
																																	((((BgL_z62typezd2errorzb0_bglt) COBJECT(BgL_new1085z00_3584))->BgL_typez00) = ((obj_t) BgL_msgz00_11), BUNSPEC);
																																	BgL_arg1407z00_1718
																																		=
																																		BgL_new1085z00_3584;
																													}}}}
																													return
																														BGl_raisez00zz__errorz00
																														(((obj_t)
																															BgL_arg1407z00_1718));
																												}
																											else
																												{	/* Llib/error.scm 365 */
																													if (
																														((long)
																															(BgL_sysnoz00_9)
																															==
																															(long)
																															(BGL_TYPENAME_ERROR)))
																														{	/* Llib/error.scm 368 */
																															BgL_z62typezd2errorzb0_bglt
																																BgL_arg1409z00_1720;
																															{	/* Llib/error.scm 643 */
																																obj_t
																																	BgL_tyz00_3598;
																																if (STRINGP
																																	(BgL_msgz00_11))
																																	{	/* Llib/error.scm 644 */
																																		BgL_tyz00_3598
																																			=
																																			BgL_msgz00_11;
																																	}
																																else
																																	{	/* Llib/error.scm 644 */
																																		if (SYMBOLP
																																			(BgL_msgz00_11))
																																			{	/* Llib/error.scm 645 */
																																				obj_t
																																					BgL_arg2302z00_3608;
																																				BgL_arg2302z00_3608
																																					=
																																					SYMBOL_TO_STRING
																																					(BgL_msgz00_11);
																																				BgL_tyz00_3598
																																					=
																																					BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																					(BgL_arg2302z00_3608);
																																			}
																																		else
																																			{	/* Llib/error.scm 645 */
																																				BgL_tyz00_3598
																																					=
																																					BGl_string2787z00zz__errorz00;
																																			}
																																	}
																																{	/* Llib/error.scm 643 */
																																	obj_t
																																		BgL_msgz00_3601;
																																	BgL_msgz00_3601
																																		=
																																		BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00
																																		(BGl_string2788z00zz__errorz00,
																																		BgL_tyz00_3598,
																																		BgL_objz00_12);
																																	{	/* Llib/error.scm 647 */

																																		{	/* Llib/error.scm 648 */
																																			BgL_z62typezd2errorzb0_bglt
																																				BgL_new1087z00_3602;
																																			{	/* Llib/error.scm 649 */
																																				BgL_z62typezd2errorzb0_bglt
																																					BgL_new1086z00_3603;
																																				BgL_new1086z00_3603
																																					=
																																					(
																																					(BgL_z62typezd2errorzb0_bglt)
																																					BOBJECT
																																					(GC_MALLOC
																																						(sizeof
																																							(struct
																																								BgL_z62typezd2errorzb0_bgl))));
																																				{	/* Llib/error.scm 649 */
																																					long
																																						BgL_arg1569z00_3604;
																																					BgL_arg1569z00_3604
																																						=
																																						BGL_CLASS_NUM
																																						(BGl_z62typezd2errorzb0zz__objectz00);
																																					BGL_OBJECT_CLASS_NUM_SET
																																						(((BgL_objectz00_bglt) BgL_new1086z00_3603), BgL_arg1569z00_3604);
																																				}
																																				BgL_new1087z00_3602
																																					=
																																					BgL_new1086z00_3603;
																																			}
																																			((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1087z00_3602)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																																			((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1087z00_3602)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																																			{
																																				obj_t
																																					BgL_auxz00_5794;
																																				{	/* Llib/error.scm 650 */
																																					obj_t
																																						BgL_arg1567z00_3605;
																																					{	/* Llib/error.scm 650 */
																																						obj_t
																																							BgL_arg1568z00_3606;
																																						{	/* Llib/error.scm 650 */
																																							obj_t
																																								BgL_classz00_3612;
																																							BgL_classz00_3612
																																								=
																																								BGl_z62typezd2errorzb0zz__objectz00;
																																							BgL_arg1568z00_3606
																																								=
																																								BGL_CLASS_ALL_FIELDS
																																								(BgL_classz00_3612);
																																						}
																																						BgL_arg1567z00_3605
																																							=
																																							VECTOR_REF
																																							(BgL_arg1568z00_3606,
																																							2L);
																																					}
																																					BgL_auxz00_5794
																																						=
																																						BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																																						(BgL_arg1567z00_3605);
																																				}
																																				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1087z00_3602)))->BgL_stackz00) = ((obj_t) BgL_auxz00_5794), BUNSPEC);
																																			}
																																			((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1087z00_3602)))->BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
																																			((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1087z00_3602)))->BgL_msgz00) = ((obj_t) BgL_msgz00_3601), BUNSPEC);
																																			((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1087z00_3602)))->BgL_objz00) = ((obj_t) BUNSPEC), BUNSPEC);
																																			((((BgL_z62typezd2errorzb0_bglt) COBJECT(BgL_new1087z00_3602))->BgL_typez00) = ((obj_t) BgL_msgz00_11), BUNSPEC);
																																			BgL_arg1409z00_1720
																																				=
																																				BgL_new1087z00_3602;
																															}}}}
																															return
																																BGl_raisez00zz__errorz00
																																(((obj_t)
																																	BgL_arg1409z00_1720));
																														}
																													else
																														{	/* Llib/error.scm 367 */
																															if (
																																((long)
																																	(BgL_sysnoz00_9)
																																	==
																																	(long)
																																	(BGL_INDEX_OUT_OF_BOUND_ERROR)))
																																{	/* Llib/error.scm 370 */
																																	BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt
																																		BgL_arg1411z00_1722;
																																	{	/* Llib/error.scm 370 */
																																		BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt
																																			BgL_new1068z00_1723;
																																		{	/* Llib/error.scm 370 */
																																			BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt
																																				BgL_new1067z00_1726;
																																			BgL_new1067z00_1726
																																				=
																																				(
																																				(BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)
																																				BOBJECT
																																				(GC_MALLOC
																																					(sizeof
																																						(struct
																																							BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bgl))));
																																			{	/* Llib/error.scm 370 */
																																				long
																																					BgL_arg1414z00_1727;
																																				BgL_arg1414z00_1727
																																					=
																																					BGL_CLASS_NUM
																																					(BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00);
																																				BGL_OBJECT_CLASS_NUM_SET
																																					(((BgL_objectz00_bglt) BgL_new1067z00_1726), BgL_arg1414z00_1727);
																																			}
																																			BgL_new1068z00_1723
																																				=
																																				BgL_new1067z00_1726;
																																		}
																																		((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1068z00_1723)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																																		((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1068z00_1723)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																																		{
																																			obj_t
																																				BgL_auxz00_5821;
																																			{	/* Llib/error.scm 370 */
																																				obj_t
																																					BgL_arg1412z00_1724;
																																				{	/* Llib/error.scm 370 */
																																					obj_t
																																						BgL_arg1413z00_1725;
																																					{	/* Llib/error.scm 370 */
																																						obj_t
																																							BgL_classz00_3619;
																																						BgL_classz00_3619
																																							=
																																							BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00;
																																						BgL_arg1413z00_1725
																																							=
																																							BGL_CLASS_ALL_FIELDS
																																							(BgL_classz00_3619);
																																					}
																																					BgL_arg1412z00_1724
																																						=
																																						VECTOR_REF
																																						(BgL_arg1413z00_1725,
																																						2L);
																																				}
																																				BgL_auxz00_5821
																																					=
																																					BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																																					(BgL_arg1412z00_1724);
																																			}
																																			((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1068z00_1723)))->BgL_stackz00) = ((obj_t) BgL_auxz00_5821), BUNSPEC);
																																		}
																																		((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1068z00_1723)))->BgL_procz00) = ((obj_t) BgL_procz00_10), BUNSPEC);
																																		((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1068z00_1723)))->BgL_msgz00) = ((obj_t) BgL_msgz00_11), BUNSPEC);
																																		((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1068z00_1723)))->BgL_objz00) = ((obj_t) BgL_objz00_12), BUNSPEC);
																																		((((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt) COBJECT(BgL_new1068z00_1723))->BgL_indexz00) = ((obj_t) BINT(-1L)), BUNSPEC);
																																		BgL_arg1411z00_1722
																																			=
																																			BgL_new1068z00_1723;
																																	}
																																	return
																																		BGl_raisez00zz__errorz00
																																		(((obj_t)
																																			BgL_arg1411z00_1722));
																																}
																															else
																																{	/* Llib/error.scm 369 */
																																	return
																																		BGl_errorz00zz__errorz00
																																		(BgL_procz00_10,
																																		BgL_msgz00_11,
																																		BgL_objz00_12);
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
		}

	}



/* &error/errno */
	obj_t BGl_z62errorzf2errnoz90zz__errorz00(obj_t BgL_envz00_5108,
		obj_t BgL_sysnoz00_5109, obj_t BgL_procz00_5110, obj_t BgL_msgz00_5111,
		obj_t BgL_objz00_5112)
	{
		{	/* Llib/error.scm 327 */
			{	/* Llib/error.scm 329 */
				int BgL_auxz00_5838;

				{	/* Llib/error.scm 329 */
					obj_t BgL_tmpz00_5839;

					if (INTEGERP(BgL_sysnoz00_5109))
						{	/* Llib/error.scm 329 */
							BgL_tmpz00_5839 = BgL_sysnoz00_5109;
						}
					else
						{
							obj_t BgL_auxz00_5842;

							BgL_auxz00_5842 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(13566L), BGl_string2790z00zz__errorz00,
								BGl_string2791z00zz__errorz00, BgL_sysnoz00_5109);
							FAILURE(BgL_auxz00_5842, BFALSE, BFALSE);
						}
					BgL_auxz00_5838 = CINT(BgL_tmpz00_5839);
				}
				return
					bgl_system_failure(BgL_auxz00_5838, BgL_procz00_5110, BgL_msgz00_5111,
					BgL_objz00_5112);
			}
		}

	}



/* stack-overflow-error */
	BGL_EXPORTED_DEF obj_t bgl_stack_overflow_error(void)
	{
		{	/* Llib/error.scm 378 */
			{	/* Llib/error.scm 379 */
				obj_t BgL_stkz00_1728;

				{	/* Llib/error.scm 379 */

					{	/* Llib/error.scm 379 */

						BgL_stkz00_1728 = BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE);
				}}
				{
					obj_t BgL_procz00_1733;

					if (PAIRP(BgL_stkz00_1728))
						{	/* Llib/error.scm 380 */
							obj_t BgL_carzd2111zd2_1738;

							BgL_carzd2111zd2_1738 = CAR(((obj_t) BgL_stkz00_1728));
							if (PAIRP(BgL_carzd2111zd2_1738))
								{	/* Llib/error.scm 380 */
									obj_t BgL_cdrzd2117zd2_1740;

									BgL_cdrzd2117zd2_1740 = CDR(BgL_carzd2111zd2_1738);
									if (PAIRP(BgL_cdrzd2117zd2_1740))
										{	/* Llib/error.scm 380 */
											obj_t BgL_carzd2121zd2_1742;

											BgL_carzd2121zd2_1742 = CAR(BgL_cdrzd2117zd2_1740);
											if (PAIRP(BgL_carzd2121zd2_1742))
												{	/* Llib/error.scm 380 */
													obj_t BgL_cdrzd2126zd2_1744;

													BgL_cdrzd2126zd2_1744 = CDR(BgL_carzd2121zd2_1742);
													if (
														(CAR(BgL_carzd2121zd2_1742) ==
															BGl_symbol2793z00zz__errorz00))
														{	/* Llib/error.scm 380 */
															if (PAIRP(BgL_cdrzd2126zd2_1744))
																{	/* Llib/error.scm 380 */
																	obj_t BgL_cdrzd2130zd2_1748;

																	BgL_cdrzd2130zd2_1748 =
																		CDR(BgL_cdrzd2126zd2_1744);
																	if (PAIRP(BgL_cdrzd2130zd2_1748))
																		{	/* Llib/error.scm 380 */
																			if (NULLP(CDR(BgL_cdrzd2130zd2_1748)))
																				{	/* Llib/error.scm 380 */
																					if (NULLP(CDR(BgL_cdrzd2117zd2_1740)))
																						{	/* Llib/error.scm 380 */
																							obj_t BgL_arg1427z00_1754;
																							obj_t BgL_arg1430z00_1755;
																							obj_t BgL_arg1431z00_1756;

																							BgL_arg1427z00_1754 =
																								CAR(BgL_carzd2111zd2_1738);
																							BgL_arg1430z00_1755 =
																								CAR(BgL_cdrzd2126zd2_1744);
																							BgL_arg1431z00_1756 =
																								CAR(BgL_cdrzd2130zd2_1748);
																							{	/* Llib/error.scm 383 */
																								BgL_z62stackzd2overflowzd2errorz62_bglt
																									BgL_arg1443z00_3646;
																								{	/* Llib/error.scm 383 */
																									BgL_z62stackzd2overflowzd2errorz62_bglt
																										BgL_new1070z00_3647;
																									{	/* Llib/error.scm 384 */
																										BgL_z62stackzd2overflowzd2errorz62_bglt
																											BgL_new1069z00_3648;
																										BgL_new1069z00_3648 =
																											(
																											(BgL_z62stackzd2overflowzd2errorz62_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_z62stackzd2overflowzd2errorz62_bgl))));
																										{	/* Llib/error.scm 384 */
																											long BgL_arg1444z00_3649;

																											BgL_arg1444z00_3649 =
																												BGL_CLASS_NUM
																												(BGl_z62stackzd2overflowzd2errorz62zz__objectz00);
																											BGL_OBJECT_CLASS_NUM_SET((
																													(BgL_objectz00_bglt)
																													BgL_new1069z00_3648),
																												BgL_arg1444z00_3649);
																										}
																										BgL_new1070z00_3647 =
																											BgL_new1069z00_3648;
																									}
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1070z00_3647)))->
																											BgL_fnamez00) =
																										((obj_t)
																											BgL_arg1430z00_1755),
																										BUNSPEC);
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1070z00_3647)))->
																											BgL_locationz00) =
																										((obj_t)
																											BgL_arg1431z00_1756),
																										BUNSPEC);
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1070z00_3647)))->
																											BgL_stackz00) =
																										((obj_t) BgL_stkz00_1728),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1070z00_3647)))->
																											BgL_procz00) =
																										((obj_t)
																											BgL_arg1427z00_1754),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1070z00_3647)))->
																											BgL_msgz00) =
																										((obj_t)
																											BGl_string2792z00zz__errorz00),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1070z00_3647)))->
																											BgL_objz00) =
																										((obj_t)
																											BGL_CURRENT_DYNAMIC_ENV
																											()), BUNSPEC);
																									BgL_arg1443z00_3646 =
																										BgL_new1070z00_3647;
																								}
																								return
																									BGl_raisez00zz__errorz00(
																									((obj_t)
																										BgL_arg1443z00_3646));
																							}
																						}
																					else
																						{	/* Llib/error.scm 380 */
																							BgL_procz00_1733 =
																								BgL_carzd2111zd2_1738;
																						BgL_tagzd2102zd2_1734:
																							{	/* Llib/error.scm 392 */
																								BgL_z62stackzd2overflowzd2errorz62_bglt
																									BgL_arg1445z00_1772;
																								{	/* Llib/error.scm 392 */
																									BgL_z62stackzd2overflowzd2errorz62_bglt
																										BgL_new1072z00_1773;
																									{	/* Llib/error.scm 392 */
																										BgL_z62stackzd2overflowzd2errorz62_bglt
																											BgL_new1071z00_1774;
																										BgL_new1071z00_1774 =
																											(
																											(BgL_z62stackzd2overflowzd2errorz62_bglt)
																											BOBJECT(GC_MALLOC(sizeof
																													(struct
																														BgL_z62stackzd2overflowzd2errorz62_bgl))));
																										{	/* Llib/error.scm 392 */
																											long BgL_arg1446z00_1775;

																											BgL_arg1446z00_1775 =
																												BGL_CLASS_NUM
																												(BGl_z62stackzd2overflowzd2errorz62zz__objectz00);
																											BGL_OBJECT_CLASS_NUM_SET((
																													(BgL_objectz00_bglt)
																													BgL_new1071z00_1774),
																												BgL_arg1446z00_1775);
																										}
																										BgL_new1072z00_1773 =
																											BgL_new1071z00_1774;
																									}
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1072z00_1773)))->
																											BgL_fnamez00) =
																										((obj_t) BFALSE), BUNSPEC);
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1072z00_1773)))->
																											BgL_locationz00) =
																										((obj_t) BFALSE), BUNSPEC);
																									((((BgL_z62exceptionz62_bglt)
																												COBJECT((
																														(BgL_z62exceptionz62_bglt)
																														BgL_new1072z00_1773)))->
																											BgL_stackz00) =
																										((obj_t) BgL_stkz00_1728),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1072z00_1773)))->
																											BgL_procz00) =
																										((obj_t) BgL_procz00_1733),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1072z00_1773)))->
																											BgL_msgz00) =
																										((obj_t)
																											BGl_string2792z00zz__errorz00),
																										BUNSPEC);
																									((((BgL_z62errorz62_bglt)
																												COBJECT((
																														(BgL_z62errorz62_bglt)
																														BgL_new1072z00_1773)))->
																											BgL_objz00) =
																										((obj_t)
																											BGL_CURRENT_DYNAMIC_ENV
																											()), BUNSPEC);
																									BgL_arg1445z00_1772 =
																										BgL_new1072z00_1773;
																								}
																								return
																									BGl_raisez00zz__errorz00(
																									((obj_t)
																										BgL_arg1445z00_1772));
																							}
																						}
																				}
																			else
																				{
																					obj_t BgL_procz00_5917;

																					BgL_procz00_5917 =
																						BgL_carzd2111zd2_1738;
																					BgL_procz00_1733 = BgL_procz00_5917;
																					goto BgL_tagzd2102zd2_1734;
																				}
																		}
																	else
																		{
																			obj_t BgL_procz00_5918;

																			BgL_procz00_5918 = BgL_carzd2111zd2_1738;
																			BgL_procz00_1733 = BgL_procz00_5918;
																			goto BgL_tagzd2102zd2_1734;
																		}
																}
															else
																{
																	obj_t BgL_procz00_5919;

																	BgL_procz00_5919 = BgL_carzd2111zd2_1738;
																	BgL_procz00_1733 = BgL_procz00_5919;
																	goto BgL_tagzd2102zd2_1734;
																}
														}
													else
														{
															obj_t BgL_procz00_5920;

															BgL_procz00_5920 = BgL_carzd2111zd2_1738;
															BgL_procz00_1733 = BgL_procz00_5920;
															goto BgL_tagzd2102zd2_1734;
														}
												}
											else
												{
													obj_t BgL_procz00_5921;

													BgL_procz00_5921 = BgL_carzd2111zd2_1738;
													BgL_procz00_1733 = BgL_procz00_5921;
													goto BgL_tagzd2102zd2_1734;
												}
										}
									else
										{
											obj_t BgL_procz00_5922;

											BgL_procz00_5922 = BgL_carzd2111zd2_1738;
											BgL_procz00_1733 = BgL_procz00_5922;
											goto BgL_tagzd2102zd2_1734;
										}
								}
							else
								{
									obj_t BgL_procz00_5923;

									BgL_procz00_5923 = BgL_carzd2111zd2_1738;
									BgL_procz00_1733 = BgL_procz00_5923;
									goto BgL_tagzd2102zd2_1734;
								}
						}
					else
						{	/* Llib/error.scm 380 */
							{	/* Llib/error.scm 399 */
								BgL_z62stackzd2overflowzd2errorz62_bglt BgL_arg1447z00_1776;

								{	/* Llib/error.scm 399 */
									BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1074z00_1777;

									{	/* Llib/error.scm 399 */
										BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1073z00_1778;

										BgL_new1073z00_1778 =
											((BgL_z62stackzd2overflowzd2errorz62_bglt)
											BOBJECT(GC_MALLOC(sizeof(struct
														BgL_z62stackzd2overflowzd2errorz62_bgl))));
										{	/* Llib/error.scm 399 */
											long BgL_arg1448z00_1779;

											BgL_arg1448z00_1779 =
												BGL_CLASS_NUM
												(BGl_z62stackzd2overflowzd2errorz62zz__objectz00);
											BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
													BgL_new1073z00_1778), BgL_arg1448z00_1779);
										}
										BgL_new1074z00_1777 = BgL_new1073z00_1778;
									}
									((((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_new1074z00_1777)))->
											BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
									((((BgL_z62exceptionz62_bglt)
												COBJECT(((BgL_z62exceptionz62_bglt)
														BgL_new1074z00_1777)))->BgL_locationz00) =
										((obj_t) BFALSE), BUNSPEC);
									((((BgL_z62exceptionz62_bglt)
												COBJECT(((BgL_z62exceptionz62_bglt)
														BgL_new1074z00_1777)))->BgL_stackz00) =
										((obj_t) BgL_stkz00_1728), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1074z00_1777)))->BgL_procz00) =
										((obj_t) BFALSE), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1074z00_1777)))->BgL_msgz00) =
										((obj_t) BGl_string2792z00zz__errorz00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1074z00_1777)))->BgL_objz00) =
										((obj_t) BGL_CURRENT_DYNAMIC_ENV()), BUNSPEC);
									BgL_arg1447z00_1776 = BgL_new1074z00_1777;
								}
								return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1447z00_1776));
							}
						}
				}
			}
		}

	}



/* &stack-overflow-erro2735 */
	obj_t BGl_z62stackzd2overflowzd2erro2735z62zz__errorz00(obj_t BgL_envz00_5113)
	{
		{	/* Llib/error.scm 378 */
			return bgl_stack_overflow_error();
		}

	}



/* exit */
	BGL_EXPORTED_DEF obj_t BGl_exitz00zz__errorz00(obj_t BgL_nz00_13)
	{
		{	/* Llib/error.scm 408 */
			{	/* Llib/error.scm 409 */
				obj_t BgL_valz00_1781;

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

	}



/* &exit */
	obj_t BGl_z62exitz62zz__errorz00(obj_t BgL_envz00_5114, obj_t BgL_nz00_5115)
	{
		{	/* Llib/error.scm 408 */
			return BGl_exitz00zz__errorz00(BgL_nz00_5115);
		}

	}



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

					BgL_oldzd2handlerszd2_1786 = BGL_ERROR_HANDLER_GET();
					{	/* Llib/error.scm 424 */
						obj_t BgL_arg1453z00_1787;

						{	/* Llib/error.scm 424 */
							obj_t BgL_zc3z04anonymousza31455ze3z87_5116;

							BgL_zc3z04anonymousza31455ze3z87_5116 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31455ze3ze5zz__errorz00, (int) (1L),
								(int) (2L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31455ze3z87_5116, (int) (0L),
								BgL_oldzd2handlerszd2_1786);
							PROCEDURE_SET(BgL_zc3z04anonymousza31455ze3z87_5116, (int) (1L),
								((obj_t) BgL_handlerz00_14));
							BgL_arg1453z00_1787 =
								MAKE_STACK_PAIR(BgL_zc3z04anonymousza31455ze3z87_5116, BUNSPEC);
						}
						BGL_ERROR_HANDLER_SET(BgL_arg1453z00_1787);
						BUNSPEC;
					}
					{	/* Llib/error.scm 427 */
						obj_t BgL_exitd1075z00_1792;

						BgL_exitd1075z00_1792 = BGL_EXITD_TOP_AS_OBJ();
						{	/* Llib/error.scm 427 */
							obj_t BgL_tmp1077z00_1793;

							{	/* Llib/error.scm 427 */
								obj_t BgL_arg1456z00_1795;

								BgL_arg1456z00_1795 = BGL_EXITD_PROTECT(BgL_exitd1075z00_1792);
								BgL_tmp1077z00_1793 =
									MAKE_YOUNG_PAIR(BgL_oldzd2handlerszd2_1786,
									BgL_arg1456z00_1795);
							}
							{	/* Llib/error.scm 427 */

								BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1792,
									BgL_tmp1077z00_1793);
								BUNSPEC;
								{	/* Llib/error.scm 428 */
									obj_t BgL_tmp1076z00_1794;

									if (PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_15, (int) (0L)))
										{	/* Llib/error.scm 428 */
											BgL_tmp1076z00_1794 =
												(VA_PROCEDUREP(BgL_thunkz00_15) ? ((obj_t(*)(obj_t,
															...))
													PROCEDURE_ENTRY(BgL_thunkz00_15)) (BgL_thunkz00_15,
													BEOA) : ((obj_t(*)(obj_t))
													PROCEDURE_ENTRY(BgL_thunkz00_15)) (BgL_thunkz00_15));
										}
									else
										{	/* Llib/error.scm 546 */
											BgL_z62errorz62_bglt BgL_arg1509z00_3663;

											{	/* Llib/error.scm 546 */
												BgL_z62errorz62_bglt BgL_new1079z00_3664;

												{	/* Llib/error.scm 546 */
													BgL_z62errorz62_bglt BgL_new1078z00_3665;

													BgL_new1078z00_3665 =
														((BgL_z62errorz62_bglt)
														BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_z62errorz62_bgl))));
													{	/* Llib/error.scm 546 */
														long BgL_arg1516z00_3666;

														BgL_arg1516z00_3666 =
															BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
														BGL_OBJECT_CLASS_NUM_SET(
															((BgL_objectz00_bglt) BgL_new1078z00_3665),
															BgL_arg1516z00_3666);
													}
													BgL_new1079z00_3664 = BgL_new1078z00_3665;
												}
												((((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	BgL_new1079z00_3664)))->BgL_fnamez00) =
													((obj_t) BFALSE), BUNSPEC);
												((((BgL_z62exceptionz62_bglt)
															COBJECT(((BgL_z62exceptionz62_bglt)
																	BgL_new1079z00_3664)))->BgL_locationz00) =
													((obj_t) BFALSE), BUNSPEC);
												{
													obj_t BgL_auxz00_5988;

													{	/* Llib/error.scm 546 */
														obj_t BgL_arg1512z00_3667;

														{	/* Llib/error.scm 546 */
															obj_t BgL_arg1515z00_3668;

															{	/* Llib/error.scm 546 */
																obj_t BgL_classz00_3672;

																BgL_classz00_3672 =
																	BGl_z62errorz62zz__objectz00;
																BgL_arg1515z00_3668 =
																	BGL_CLASS_ALL_FIELDS(BgL_classz00_3672);
															}
															BgL_arg1512z00_3667 =
																VECTOR_REF(BgL_arg1515z00_3668, 2L);
														}
														BgL_auxz00_5988 =
															BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
															(BgL_arg1512z00_3667);
													}
													((((BgL_z62exceptionz62_bglt) COBJECT(
																	((BgL_z62exceptionz62_bglt)
																		BgL_new1079z00_3664)))->BgL_stackz00) =
														((obj_t) BgL_auxz00_5988), BUNSPEC);
												}
												((((BgL_z62errorz62_bglt)
															COBJECT(BgL_new1079z00_3664))->BgL_procz00) =
													((obj_t) BGl_string2795z00zz__errorz00), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(BgL_new1079z00_3664))->BgL_msgz00) =
													((obj_t) BGl_string2796z00zz__errorz00), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(BgL_new1079z00_3664))->BgL_objz00) =
													((obj_t) BgL_thunkz00_15), BUNSPEC);
												BgL_arg1509z00_3663 = BgL_new1079z00_3664;
											}
											BgL_tmp1076z00_1794 =
												BGl_raisez00zz__errorz00(((obj_t) BgL_arg1509z00_3663));
										}
									{	/* Llib/error.scm 427 */
										bool_t BgL_test3168z00_5999;

										{	/* Llib/error.scm 427 */
											obj_t BgL_arg2583z00_3675;

											BgL_arg2583z00_3675 =
												BGL_EXITD_PROTECT(BgL_exitd1075z00_1792);
											BgL_test3168z00_5999 = PAIRP(BgL_arg2583z00_3675);
										}
										if (BgL_test3168z00_5999)
											{	/* Llib/error.scm 427 */
												obj_t BgL_arg2581z00_3676;

												{	/* Llib/error.scm 427 */
													obj_t BgL_arg2582z00_3677;

													BgL_arg2582z00_3677 =
														BGL_EXITD_PROTECT(BgL_exitd1075z00_1792);
													BgL_arg2581z00_3676 =
														CDR(((obj_t) BgL_arg2582z00_3677));
												}
												BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1792,
													BgL_arg2581z00_3676);
												BUNSPEC;
											}
										else
											{	/* Llib/error.scm 427 */
												BFALSE;
											}
									}
									BGL_ERROR_HANDLER_SET(BgL_oldzd2handlerszd2_1786);
									BUNSPEC;
									return BgL_tmp1076z00_1794;
								}
							}
						}
					}
				}
			else
				{	/* Llib/error.scm 546 */
					BgL_z62errorz62_bglt BgL_arg1509z00_3679;

					{	/* Llib/error.scm 546 */
						BgL_z62errorz62_bglt BgL_new1079z00_3680;

						{	/* Llib/error.scm 546 */
							BgL_z62errorz62_bglt BgL_new1078z00_3681;

							BgL_new1078z00_3681 =
								((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62errorz62_bgl))));
							{	/* Llib/error.scm 546 */
								long BgL_arg1516z00_3682;

								BgL_arg1516z00_3682 =
									BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1078z00_3681),
									BgL_arg1516z00_3682);
							}
							BgL_new1079z00_3680 = BgL_new1078z00_3681;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_3680)))->
								BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1079z00_3680)))->BgL_locationz00) =
							((obj_t) BFALSE), BUNSPEC);
						{
							obj_t BgL_auxz00_6015;

							{	/* Llib/error.scm 546 */
								obj_t BgL_arg1512z00_3683;

								{	/* Llib/error.scm 546 */
									obj_t BgL_arg1515z00_3684;

									{	/* Llib/error.scm 546 */
										obj_t BgL_classz00_3688;

										BgL_classz00_3688 = BGl_z62errorz62zz__objectz00;
										BgL_arg1515z00_3684 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_3688);
									}
									BgL_arg1512z00_3683 = VECTOR_REF(BgL_arg1515z00_3684, 2L);
								}
								BgL_auxz00_6015 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg1512z00_3683);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1079z00_3680)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_6015), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_3680))->
								BgL_procz00) =
							((obj_t) BGl_string2795z00zz__errorz00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_3680))->
								BgL_msgz00) = ((obj_t) BGl_string2797z00zz__errorz00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_3680))->
								BgL_objz00) = ((obj_t) BgL_handlerz00_14), BUNSPEC);
						BgL_arg1509z00_3679 = BgL_new1079z00_3680;
					}
					return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1509z00_3679));
				}
		}

	}



/* &with-exception-handler */
	obj_t BGl_z62withzd2exceptionzd2handlerz62zz__errorz00(obj_t BgL_envz00_5117,
		obj_t BgL_handlerz00_5118, obj_t BgL_thunkz00_5119)
	{
		{	/* Llib/error.scm 419 */
			{	/* Llib/error.scm 420 */
				obj_t BgL_auxz00_6033;
				obj_t BgL_auxz00_6026;

				if (PROCEDUREP(BgL_thunkz00_5119))
					{	/* Llib/error.scm 420 */
						BgL_auxz00_6033 = BgL_thunkz00_5119;
					}
				else
					{
						obj_t BgL_auxz00_6036;

						BgL_auxz00_6036 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(16958L), BGl_string2798z00zz__errorz00,
							BGl_string2799z00zz__errorz00, BgL_thunkz00_5119);
						FAILURE(BgL_auxz00_6036, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_handlerz00_5118))
					{	/* Llib/error.scm 420 */
						BgL_auxz00_6026 = BgL_handlerz00_5118;
					}
				else
					{
						obj_t BgL_auxz00_6029;

						BgL_auxz00_6029 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(16958L), BGl_string2798z00zz__errorz00,
							BGl_string2799z00zz__errorz00, BgL_handlerz00_5118);
						FAILURE(BgL_auxz00_6029, BFALSE, BFALSE);
					}
				return
					BGl_withzd2exceptionzd2handlerz00zz__errorz00(BgL_auxz00_6026,
					BgL_auxz00_6033);
			}
		}

	}



/* &<@anonymous:1455> */
	obj_t BGl_z62zc3z04anonymousza31455ze3ze5zz__errorz00(obj_t BgL_envz00_5120,
		obj_t BgL_cz00_5123)
	{
		{	/* Llib/error.scm 423 */
			{	/* Llib/error.scm 424 */
				obj_t BgL_oldzd2handlerszd2_5121;
				obj_t BgL_handlerz00_5122;

				BgL_oldzd2handlerszd2_5121 = PROCEDURE_REF(BgL_envz00_5120, (int) (0L));
				BgL_handlerz00_5122 = PROCEDURE_REF(BgL_envz00_5120, (int) (1L));
				BGL_ERROR_HANDLER_SET(BgL_oldzd2handlerszd2_5121);
				BUNSPEC;
				return
					(VA_PROCEDUREP(BgL_handlerz00_5122) ? ((obj_t(*)(obj_t,
								...))
						PROCEDURE_ENTRY(BgL_handlerz00_5122)) (BgL_handlerz00_5122,
						BgL_cz00_5123, BEOA) : ((obj_t(*)(obj_t,
								obj_t))
						PROCEDURE_ENTRY(BgL_handlerz00_5122)) (BgL_handlerz00_5122,
						BgL_cz00_5123));
			}
		}

	}



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

	}



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

	}



/* &<@anonymous:1457> */
	obj_t BGl_z62zc3z04anonymousza31457ze3ze5zz__errorz00(obj_t BgL_envz00_5126,
		obj_t BgL_valz00_5127)
	{
		{	/* Llib/error.scm 438 */
			return BGl_raisez00zz__errorz00(BgL_valz00_5127);
		}

	}



/* raise */
	BGL_EXPORTED_DEF obj_t BGl_raisez00zz__errorz00(obj_t BgL_valz00_16)
	{
		{	/* Llib/error.scm 465 */
			{
				obj_t BgL_handlerz00_1827;
				obj_t BgL_valz00_1828;

				{	/* Llib/error.scm 502 */
					obj_t BgL_handlerz00_1802;

					BgL_handlerz00_1802 = BGL_ERROR_HANDLER_GET();
					if (PAIRP(BgL_handlerz00_1802))
						{	/* Llib/error.scm 506 */
							bool_t BgL_test3172z00_6055;

							{	/* Llib/error.scm 506 */
								obj_t BgL_tmpz00_6056;

								BgL_tmpz00_6056 = CDR(BgL_handlerz00_1802);
								BgL_test3172z00_6055 = BGL_DYNAMIC_ENVP(BgL_tmpz00_6056);
							}
							if (BgL_test3172z00_6055)
								{	/* Llib/error.scm 472 */
									obj_t BgL_denvz00_3705;
									obj_t BgL_hz00_3706;

									BgL_denvz00_3705 = CDR(BgL_handlerz00_1802);
									BgL_hz00_3706 = CAR(BgL_handlerz00_1802);
									SET_CDR(BgL_handlerz00_1802, BgL_valz00_16);
									return
										BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_hz00_3706,
										BgL_denvz00_3705);
								}
							else
								{	/* Llib/error.scm 508 */
									bool_t BgL_test3173z00_6063;

									{	/* Llib/error.scm 508 */
										obj_t BgL_tmpz00_6064;

										BgL_tmpz00_6064 = CDR(BgL_handlerz00_1802);
										BgL_test3173z00_6063 = CELLP(BgL_tmpz00_6064);
									}
									if (BgL_test3173z00_6063)
										{	/* Llib/error.scm 482 */
											obj_t BgL_cellz00_3711;
											obj_t BgL_hz00_3712;

											BgL_cellz00_3711 = CDR(BgL_handlerz00_1802);
											BgL_hz00_3712 = CAR(BgL_handlerz00_1802);
											CELL_SET(((obj_t) BgL_cellz00_3711), BgL_valz00_16);
											return
												BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_hz00_3712,
												BgL_cellz00_3711);
										}
									else
										{	/* Llib/error.scm 508 */
											if (CBOOL(CDR(BgL_handlerz00_1802)))
												{	/* Llib/error.scm 510 */
													if ((CDR(BgL_handlerz00_1802) == BUNSPEC))
														{	/* Llib/error.scm 514 */
															obj_t BgL_fun1466z00_1811;

															BgL_fun1466z00_1811 = CAR(BgL_handlerz00_1802);
															return
																(VA_PROCEDUREP(BgL_fun1466z00_1811)
																? ((obj_t(*)(obj_t,
																			...))
																	PROCEDURE_ENTRY(BgL_fun1466z00_1811))
																(BgL_fun1466z00_1811, BgL_valz00_16,
																	BEOA) : ((obj_t(*)(obj_t,
																			obj_t))
																	PROCEDURE_ENTRY(BgL_fun1466z00_1811))
																(BgL_fun1466z00_1811, BgL_valz00_16));
														}
													else
														{	/* Llib/error.scm 513 */
															BgL_handlerz00_1827 = BgL_handlerz00_1802;
															BgL_valz00_1828 = BgL_valz00_16;
														BgL_zc3z04anonymousza31475ze3z87_1829:
															{	/* Llib/error.scm 498 */
																obj_t BgL_arg1476z00_1830;

																{	/* Llib/error.scm 498 */
																	obj_t BgL_tmpz00_6083;

																	BgL_tmpz00_6083 = BGL_CURRENT_DYNAMIC_ENV();
																	BgL_arg1476z00_1830 =
																		BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6083);
																}
																{	/* Llib/error.scm 498 */
																	obj_t BgL_list1477z00_1831;

																	{	/* Llib/error.scm 498 */
																		obj_t BgL_arg1478z00_1832;

																		{	/* Llib/error.scm 498 */
																			obj_t BgL_arg1479z00_1833;

																			{	/* Llib/error.scm 498 */
																				obj_t BgL_arg1480z00_1834;

																				{	/* Llib/error.scm 498 */
																					obj_t BgL_arg1481z00_1835;

																					{	/* Llib/error.scm 498 */
																						obj_t BgL_arg1482z00_1836;

																						BgL_arg1482z00_1836 =
																							MAKE_YOUNG_PAIR
																							(BgL_handlerz00_1827, BNIL);
																						BgL_arg1481z00_1835 =
																							MAKE_YOUNG_PAIR
																							(BGl_string2801z00zz__errorz00,
																							BgL_arg1482z00_1836);
																					}
																					BgL_arg1480z00_1834 =
																						MAKE_YOUNG_PAIR
																						(BGl_string2802z00zz__errorz00,
																						BgL_arg1481z00_1835);
																				}
																				BgL_arg1479z00_1833 =
																					MAKE_YOUNG_PAIR(BINT(498L),
																					BgL_arg1480z00_1834);
																			}
																			BgL_arg1478z00_1832 =
																				MAKE_YOUNG_PAIR
																				(BGl_string2803z00zz__errorz00,
																				BgL_arg1479z00_1833);
																		}
																		BgL_list1477z00_1831 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2804z00zz__errorz00,
																			BgL_arg1478z00_1832);
																	}
																	BGl_tprintz00zz__r4_output_6_10_3z00
																		(BgL_arg1476z00_1830, BgL_list1477z00_1831);
																}
															}
															{	/* Llib/error.scm 499 */
																obj_t BgL_arg1483z00_1837;

																{	/* Llib/error.scm 499 */
																	obj_t BgL_tmpz00_6094;

																	BgL_tmpz00_6094 = BGL_CURRENT_DYNAMIC_ENV();
																	BgL_arg1483z00_1837 =
																		BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6094);
																}
																{	/* Llib/error.scm 499 */
																	obj_t BgL_list1484z00_1838;

																	{	/* Llib/error.scm 499 */
																		obj_t BgL_arg1485z00_1839;

																		{	/* Llib/error.scm 499 */
																			obj_t BgL_arg1487z00_1840;

																			{	/* Llib/error.scm 499 */
																				obj_t BgL_arg1488z00_1841;

																				{	/* Llib/error.scm 499 */
																					obj_t BgL_arg1489z00_1842;

																					{	/* Llib/error.scm 499 */
																						obj_t BgL_arg1491z00_1843;

																						BgL_arg1491z00_1843 =
																							MAKE_YOUNG_PAIR(BgL_valz00_1828,
																							BNIL);
																						BgL_arg1489z00_1842 =
																							MAKE_YOUNG_PAIR
																							(BGl_string2805z00zz__errorz00,
																							BgL_arg1491z00_1843);
																					}
																					BgL_arg1488z00_1841 =
																						MAKE_YOUNG_PAIR
																						(BGl_string2802z00zz__errorz00,
																						BgL_arg1489z00_1842);
																				}
																				BgL_arg1487z00_1840 =
																					MAKE_YOUNG_PAIR(BINT(499L),
																					BgL_arg1488z00_1841);
																			}
																			BgL_arg1485z00_1839 =
																				MAKE_YOUNG_PAIR
																				(BGl_string2803z00zz__errorz00,
																				BgL_arg1487z00_1840);
																		}
																		BgL_list1484z00_1838 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2804z00zz__errorz00,
																			BgL_arg1485z00_1839);
																	}
																	BGl_tprintz00zz__r4_output_6_10_3z00
																		(BgL_arg1483z00_1837, BgL_list1484z00_1838);
																}
															}
															{	/* Llib/error.scm 500 */
																obj_t BgL_list1492z00_1844;

																BgL_list1492z00_1844 =
																	MAKE_YOUNG_PAIR(BINT(0L), BNIL);
																BGL_TAIL return
																	BGl_exitz00zz__errorz00(BgL_list1492z00_1844);
															}
														}
												}
											else
												{	/* Llib/error.scm 510 */
													BGl_defaultzd2exceptionzd2handlerz00zz__errorz00
														(BgL_valz00_16);
													{	/* Llib/error.scm 512 */
														obj_t BgL_res2717z00_3751;

														{	/* Llib/error.scm 320 */
															obj_t BgL_classz00_3720;

															BgL_classz00_3720 =
																BGl_z62exceptionz62zz__objectz00;
															((bool_t) 0);
														}
														BgL_res2717z00_3751 =
															BGl_errorz00zz__errorz00
															(BGl_string2806z00zz__errorz00,
															BGl_string2807z00zz__errorz00, BgL_valz00_16);
														return BgL_res2717z00_3751;
													}
												}
										}
								}
						}
					else
						{
							obj_t BgL_valz00_6111;
							obj_t BgL_handlerz00_6110;

							BgL_handlerz00_6110 = BgL_handlerz00_1802;
							BgL_valz00_6111 = BgL_valz00_16;
							BgL_valz00_1828 = BgL_valz00_6111;
							BgL_handlerz00_1827 = BgL_handlerz00_6110;
							goto BgL_zc3z04anonymousza31475ze3z87_1829;
						}
				}
			}
		}

	}



/* &raise */
	obj_t BGl_z62raisez62zz__errorz00(obj_t BgL_envz00_5128,
		obj_t BgL_valz00_5129)
	{
		{	/* Llib/error.scm 465 */
			return BGl_raisez00zz__errorz00(BgL_valz00_5129);
		}

	}



/* default-exception-handler */
	obj_t BGl_defaultzd2exceptionzd2handlerz00zz__errorz00(obj_t BgL_valz00_17)
	{
		{	/* Llib/error.scm 523 */
			BGl_exceptionzd2notifyzd2zz__objectz00(BgL_valz00_17);
			{	/* Llib/error.scm 525 */
				bool_t BgL_test3176z00_6114;

				{	/* Llib/error.scm 525 */
					obj_t BgL_classz00_3752;

					BgL_classz00_3752 = BGl_z62warningz62zz__objectz00;
					if (BGL_OBJECTP(BgL_valz00_17))
						{	/* Llib/error.scm 525 */
							BgL_objectz00_bglt BgL_arg2702z00_3754;

							BgL_arg2702z00_3754 = (BgL_objectz00_bglt) (BgL_valz00_17);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Llib/error.scm 525 */
									long BgL_idxz00_3760;

									BgL_idxz00_3760 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2702z00_3754);
									BgL_test3176z00_6114 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_3760 + 3L)) == BgL_classz00_3752);
								}
							else
								{	/* Llib/error.scm 525 */
									bool_t BgL_res2718z00_3782;

									{	/* Llib/error.scm 525 */
										obj_t BgL_oclassz00_3768;

										{	/* Llib/error.scm 525 */
											long BgL_arg2709z00_3774;

											{	/* Llib/error.scm 525 */
												long BgL_arg2710z00_3775;

												BgL_arg2710z00_3775 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2702z00_3754);
												BgL_arg2709z00_3774 =
													(BgL_arg2710z00_3775 - OBJECT_TYPE);
											}
											BgL_oclassz00_3768 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg2709z00_3774);
										}
										{	/* Llib/error.scm 525 */
											bool_t BgL__ortest_1198z00_3769;

											BgL__ortest_1198z00_3769 =
												(BgL_classz00_3752 == BgL_oclassz00_3768);
											if (BgL__ortest_1198z00_3769)
												{	/* Llib/error.scm 525 */
													BgL_res2718z00_3782 = BgL__ortest_1198z00_3769;
												}
											else
												{	/* Llib/error.scm 525 */
													long BgL_odepthz00_3770;

													BgL_odepthz00_3770 =
														BGL_CLASS_DEPTH(BgL_oclassz00_3768);
													if ((3L < BgL_odepthz00_3770))
														{	/* Llib/error.scm 525 */
															obj_t BgL_arg2699z00_3772;

															BgL_arg2699z00_3772 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_3768, 3L);
															BgL_res2718z00_3782 =
																(BgL_arg2699z00_3772 == BgL_classz00_3752);
														}
													else
														{	/* Llib/error.scm 525 */
															BgL_res2718z00_3782 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test3176z00_6114 = BgL_res2718z00_3782;
								}
						}
					else
						{	/* Llib/error.scm 525 */
							BgL_test3176z00_6114 = ((bool_t) 0);
						}
				}
				if (BgL_test3176z00_6114)
					{	/* Llib/error.scm 525 */
						BFALSE;
					}
				else
					{	/* Llib/error.scm 526 */
						long BgL_retvalz00_1850;

						{	/* Llib/error.scm 526 */
							bool_t BgL_test3181z00_6134;

							{	/* Llib/error.scm 526 */
								obj_t BgL_classz00_3783;

								BgL_classz00_3783 = BGl_z62errorz62zz__objectz00;
								if (BGL_OBJECTP(BgL_valz00_17))
									{	/* Llib/error.scm 526 */
										BgL_objectz00_bglt BgL_arg2702z00_3785;

										BgL_arg2702z00_3785 = (BgL_objectz00_bglt) (BgL_valz00_17);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* Llib/error.scm 526 */
												long BgL_idxz00_3791;

												BgL_idxz00_3791 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg2702z00_3785);
												BgL_test3181z00_6134 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_3791 + 3L)) == BgL_classz00_3783);
											}
										else
											{	/* Llib/error.scm 526 */
												bool_t BgL_res2719z00_3813;

												{	/* Llib/error.scm 526 */
													obj_t BgL_oclassz00_3799;

													{	/* Llib/error.scm 526 */
														long BgL_arg2709z00_3805;

														{	/* Llib/error.scm 526 */
															long BgL_arg2710z00_3806;

															BgL_arg2710z00_3806 =
																BGL_OBJECT_CLASS_NUM(BgL_arg2702z00_3785);
															BgL_arg2709z00_3805 =
																(BgL_arg2710z00_3806 - OBJECT_TYPE);
														}
														BgL_oclassz00_3799 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg2709z00_3805);
													}
													{	/* Llib/error.scm 526 */
														bool_t BgL__ortest_1198z00_3800;

														BgL__ortest_1198z00_3800 =
															(BgL_classz00_3783 == BgL_oclassz00_3799);
														if (BgL__ortest_1198z00_3800)
															{	/* Llib/error.scm 526 */
																BgL_res2719z00_3813 = BgL__ortest_1198z00_3800;
															}
														else
															{	/* Llib/error.scm 526 */
																long BgL_odepthz00_3801;

																BgL_odepthz00_3801 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_3799);
																if ((3L < BgL_odepthz00_3801))
																	{	/* Llib/error.scm 526 */
																		obj_t BgL_arg2699z00_3803;

																		BgL_arg2699z00_3803 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_3799, 3L);
																		BgL_res2719z00_3813 =
																			(BgL_arg2699z00_3803 ==
																			BgL_classz00_3783);
																	}
																else
																	{	/* Llib/error.scm 526 */
																		BgL_res2719z00_3813 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test3181z00_6134 = BgL_res2719z00_3813;
											}
									}
								else
									{	/* Llib/error.scm 526 */
										BgL_test3181z00_6134 = ((bool_t) 0);
									}
							}
							if (BgL_test3181z00_6134)
								{	/* Llib/error.scm 526 */
									BgL_retvalz00_1850 = 1L;
								}
							else
								{	/* Llib/error.scm 526 */
									BgL_retvalz00_1850 = 2L;
								}
						}
						{	/* Llib/error.scm 527 */
							obj_t BgL_zc3z04anonymousza31495ze3z87_5130;

							BgL_zc3z04anonymousza31495ze3z87_5130 =
								MAKE_FX_PROCEDURE
								(BGl_z62zc3z04anonymousza31495ze3ze5zz__errorz00, (int) (1L),
								(int) (1L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31495ze3z87_5130, (int) (0L),
								BINT(BgL_retvalz00_1850));
							unwind_stack_until(BFALSE, BFALSE, BINT(BgL_retvalz00_1850),
								BgL_zc3z04anonymousza31495ze3z87_5130, BFALSE);
			}}}
			return BUNSPEC;
		}

	}



/* &<@anonymous:1495> */
	obj_t BGl_z62zc3z04anonymousza31495ze3ze5zz__errorz00(obj_t BgL_envz00_5131,
		obj_t BgL_xz00_5133)
	{
		{	/* Llib/error.scm 527 */
			{	/* Llib/error.scm 527 */
				long BgL_retvalz00_5132;

				BgL_retvalz00_5132 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_5131, (int) (0L)));
				{	/* Llib/error.scm 527 */
					obj_t BgL_tmpz00_6165;

					BgL_tmpz00_6165 = BINT(BgL_retvalz00_5132);
					return BIGLOO_EXIT(BgL_tmpz00_6165);
				}
			}
		}

	}



/* module-init-error */
	BGL_EXPORTED_DEF obj_t BGl_modulezd2initzd2errorz00zz__errorz00(char
		*BgL_currentz00_18, char *BgL_fromz00_19)
	{
		{	/* Llib/error.scm 533 */
			{	/* Llib/error.scm 534 */
				obj_t BgL_arg1497z00_1856;

				{	/* Llib/error.scm 534 */
					obj_t BgL_tmpz00_6168;

					BgL_tmpz00_6168 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1497z00_1856 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6168);
				}
				{	/* Llib/error.scm 534 */
					obj_t BgL_list1498z00_1857;

					{	/* Llib/error.scm 534 */
						obj_t BgL_arg1499z00_1858;

						{	/* Llib/error.scm 534 */
							obj_t BgL_arg1500z00_1859;

							{	/* Llib/error.scm 534 */
								obj_t BgL_arg1501z00_1860;

								{	/* Llib/error.scm 534 */
									obj_t BgL_arg1502z00_1861;

									{	/* Llib/error.scm 534 */
										obj_t BgL_arg1503z00_1862;

										{	/* Llib/error.scm 534 */
											obj_t BgL_arg1504z00_1863;

											{	/* Llib/error.scm 534 */
												obj_t BgL_arg1505z00_1864;

												{	/* Llib/error.scm 534 */
													obj_t BgL_arg1506z00_1865;

													{	/* Llib/error.scm 534 */
														obj_t BgL_arg1507z00_1866;

														{	/* Llib/error.scm 534 */
															obj_t BgL_arg1508z00_1867;

															BgL_arg1508z00_1867 =
																MAKE_YOUNG_PAIR(BGl_string2808z00zz__errorz00,
																BNIL);
															BgL_arg1507z00_1866 =
																MAKE_YOUNG_PAIR(string_to_bstring
																(BgL_fromz00_19), BgL_arg1508z00_1867);
														}
														BgL_arg1506z00_1865 =
															MAKE_YOUNG_PAIR(BGl_string2809z00zz__errorz00,
															BgL_arg1507z00_1866);
													}
													BgL_arg1505z00_1864 =
														MAKE_YOUNG_PAIR(BGl_string2810z00zz__errorz00,
														BgL_arg1506z00_1865);
												}
												BgL_arg1504z00_1863 =
													MAKE_YOUNG_PAIR(string_to_bstring(BgL_fromz00_19),
													BgL_arg1505z00_1864);
											}
											BgL_arg1503z00_1862 =
												MAKE_YOUNG_PAIR(BGl_string2811z00zz__errorz00,
												BgL_arg1504z00_1863);
										}
										BgL_arg1502z00_1861 =
											MAKE_YOUNG_PAIR(string_to_bstring(BgL_currentz00_18),
											BgL_arg1503z00_1862);
									}
									BgL_arg1501z00_1860 =
										MAKE_YOUNG_PAIR(BGl_string2812z00zz__errorz00,
										BgL_arg1502z00_1861);
								}
								BgL_arg1500z00_1859 =
									MAKE_YOUNG_PAIR(BGl_string2813z00zz__errorz00,
									BgL_arg1501z00_1860);
							}
							BgL_arg1499z00_1858 =
								MAKE_YOUNG_PAIR(string_to_bstring(BgL_currentz00_18),
								BgL_arg1500z00_1859);
						}
						BgL_list1498z00_1857 =
							MAKE_YOUNG_PAIR(BGl_string2814z00zz__errorz00,
							BgL_arg1499z00_1858);
					}
					BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg1497z00_1856,
						BgL_list1498z00_1857);
			}}
			{	/* Llib/error.scm 539 */
				obj_t BgL_tmpz00_6187;

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

	}



/* &module-init-error */
	obj_t BGl_z62modulezd2initzd2errorz62zz__errorz00(obj_t BgL_envz00_5134,
		obj_t BgL_currentz00_5135, obj_t BgL_fromz00_5136)
	{
		{	/* Llib/error.scm 533 */
			{	/* Llib/error.scm 538 */
				char *BgL_auxz00_6199;
				char *BgL_auxz00_6190;

				{	/* Llib/error.scm 538 */
					obj_t BgL_tmpz00_6200;

					if (STRINGP(BgL_fromz00_5136))
						{	/* Llib/error.scm 538 */
							BgL_tmpz00_6200 = BgL_fromz00_5136;
						}
					else
						{
							obj_t BgL_auxz00_6203;

							BgL_auxz00_6203 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(22084L), BGl_string2815z00zz__errorz00,
								BGl_string2816z00zz__errorz00, BgL_fromz00_5136);
							FAILURE(BgL_auxz00_6203, BFALSE, BFALSE);
						}
					BgL_auxz00_6199 = BSTRING_TO_STRING(BgL_tmpz00_6200);
				}
				{	/* Llib/error.scm 538 */
					obj_t BgL_tmpz00_6191;

					if (STRINGP(BgL_currentz00_5135))
						{	/* Llib/error.scm 538 */
							BgL_tmpz00_6191 = BgL_currentz00_5135;
						}
					else
						{
							obj_t BgL_auxz00_6194;

							BgL_auxz00_6194 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(22084L), BGl_string2815z00zz__errorz00,
								BGl_string2816z00zz__errorz00, BgL_currentz00_5135);
							FAILURE(BgL_auxz00_6194, BFALSE, BFALSE);
						}
					BgL_auxz00_6190 = BSTRING_TO_STRING(BgL_tmpz00_6191);
				}
				return
					BGl_modulezd2initzd2errorz00zz__errorz00(BgL_auxz00_6190,
					BgL_auxz00_6199);
			}
		}

	}



/* 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 544 */
			{	/* Llib/error.scm 546 */
				BgL_z62errorz62_bglt BgL_arg1509z00_1868;

				{	/* Llib/error.scm 546 */
					BgL_z62errorz62_bglt BgL_new1079z00_1869;

					{	/* Llib/error.scm 546 */
						BgL_z62errorz62_bglt BgL_new1078z00_1872;

						BgL_new1078z00_1872 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 546 */
							long BgL_arg1516z00_1873;

							BgL_arg1516z00_1873 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_1872),
								BgL_arg1516z00_1873);
						}
						BgL_new1079z00_1869 = BgL_new1078z00_1872;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1079z00_1869)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1079z00_1869)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_6217;

						{	/* Llib/error.scm 546 */
							obj_t BgL_arg1512z00_1870;

							{	/* Llib/error.scm 546 */
								obj_t BgL_arg1515z00_1871;

								{	/* Llib/error.scm 546 */
									obj_t BgL_classz00_3818;

									BgL_classz00_3818 = BGl_z62errorz62zz__objectz00;
									BgL_arg1515z00_1871 = BGL_CLASS_ALL_FIELDS(BgL_classz00_3818);
								}
								BgL_arg1512z00_1870 = VECTOR_REF(BgL_arg1515z00_1871, 2L);
							}
							BgL_auxz00_6217 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1512z00_1870);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_1869)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_6217), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_1869))->
							BgL_procz00) = ((obj_t) BgL_procz00_20), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_1869))->BgL_msgz00) =
						((obj_t) BgL_msgz00_21), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_1869))->BgL_objz00) =
						((obj_t) BgL_objz00_22), BUNSPEC);
					BgL_arg1509z00_1868 = BgL_new1079z00_1869;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1509z00_1868));
			}
		}

	}



/* &error2736 */
	obj_t BGl_z62error2736z62zz__errorz00(obj_t BgL_envz00_5137,
		obj_t BgL_procz00_5138, obj_t BgL_msgz00_5139, obj_t BgL_objz00_5140)
	{
		{	/* Llib/error.scm 544 */
			return
				BGl_errorz00zz__errorz00(BgL_procz00_5138, BgL_msgz00_5139,
				BgL_objz00_5140);
		}

	}



/* 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 554 */
			{	/* Llib/error.scm 556 */
				BgL_z62errorz62_bglt BgL_arg1518z00_3820;

				{	/* Llib/error.scm 556 */
					BgL_z62errorz62_bglt BgL_new1081z00_3821;

					{	/* Llib/error.scm 557 */
						BgL_z62errorz62_bglt BgL_new1080z00_3822;

						BgL_new1080z00_3822 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 557 */
							long BgL_arg1521z00_3823;

							BgL_arg1521z00_3823 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1080z00_3822),
								BgL_arg1521z00_3823);
						}
						BgL_new1081z00_3821 = BgL_new1080z00_3822;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1081z00_3821)))->
							BgL_fnamez00) = ((obj_t) BgL_fnamez00_26), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1081z00_3821)))->BgL_locationz00) =
						((obj_t) BgL_locz00_27), BUNSPEC);
					{
						obj_t BgL_auxz00_6237;

						{	/* Llib/error.scm 558 */
							obj_t BgL_arg1519z00_3824;

							{	/* Llib/error.scm 558 */
								obj_t BgL_arg1520z00_3825;

								{	/* Llib/error.scm 558 */
									obj_t BgL_classz00_3829;

									BgL_classz00_3829 = BGl_z62errorz62zz__objectz00;
									BgL_arg1520z00_3825 = BGL_CLASS_ALL_FIELDS(BgL_classz00_3829);
								}
								BgL_arg1519z00_3824 = VECTOR_REF(BgL_arg1520z00_3825, 2L);
							}
							BgL_auxz00_6237 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1519z00_3824);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1081z00_3821)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_6237), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3821))->
							BgL_procz00) = ((obj_t) BgL_procz00_23), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3821))->BgL_msgz00) =
						((obj_t) BgL_msgz00_24), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3821))->BgL_objz00) =
						((obj_t) BgL_objz00_25), BUNSPEC);
					BgL_arg1518z00_3820 = BgL_new1081z00_3821;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1518z00_3820));
			}
		}

	}



/* &error/location */
	obj_t BGl_z62errorzf2locationz90zz__errorz00(obj_t BgL_envz00_5141,
		obj_t BgL_procz00_5142, obj_t BgL_msgz00_5143, obj_t BgL_objz00_5144,
		obj_t BgL_fnamez00_5145, obj_t BgL_locz00_5146)
	{
		{	/* Llib/error.scm 554 */
			return
				BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_5142, BgL_msgz00_5143,
				BgL_objz00_5144, BgL_fnamez00_5145, BgL_locz00_5146);
		}

	}



/* 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 566 */
			if (PAIRP(BgL_locz00_31))
				{	/* Llib/error.scm 567 */
					obj_t BgL_cdrzd2186zd2_1886;

					BgL_cdrzd2186zd2_1886 = CDR(((obj_t) BgL_locz00_31));
					if ((CAR(((obj_t) BgL_locz00_31)) == BGl_symbol2793z00zz__errorz00))
						{	/* Llib/error.scm 567 */
							if (PAIRP(BgL_cdrzd2186zd2_1886))
								{	/* Llib/error.scm 567 */
									obj_t BgL_cdrzd2190zd2_1890;

									BgL_cdrzd2190zd2_1890 = CDR(BgL_cdrzd2186zd2_1886);
									if (PAIRP(BgL_cdrzd2190zd2_1890))
										{	/* Llib/error.scm 567 */
											if (NULLP(CDR(BgL_cdrzd2190zd2_1890)))
												{	/* Llib/error.scm 567 */
													return
														BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_28,
														BgL_msgz00_29, BgL_objz00_30,
														CAR(BgL_cdrzd2186zd2_1886),
														CAR(BgL_cdrzd2190zd2_1890));
												}
											else
												{	/* Llib/error.scm 567 */
													return
														BGl_errorz00zz__errorz00(BgL_procz00_28,
														BgL_msgz00_29, BgL_objz00_30);
												}
										}
									else
										{	/* Llib/error.scm 567 */
											return
												BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29,
												BgL_objz00_30);
										}
								}
							else
								{	/* Llib/error.scm 567 */
									return
										BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29,
										BgL_objz00_30);
								}
						}
					else
						{	/* Llib/error.scm 567 */
							return
								BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29,
								BgL_objz00_30);
						}
				}
			else
				{	/* Llib/error.scm 567 */
					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_5147,
		obj_t BgL_procz00_5148, obj_t BgL_msgz00_5149, obj_t BgL_objz00_5150,
		obj_t BgL_locz00_5151)
	{
		{	/* Llib/error.scm 566 */
			return
				BGl_errorzf2sourcezd2locationz20zz__errorz00(BgL_procz00_5148,
				BgL_msgz00_5149, BgL_objz00_5150, BgL_locz00_5151);
		}

	}



/* 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 576 */
			if (EPAIRP(BgL_sourcez00_35))
				{	/* Llib/error.scm 579 */
					obj_t BgL_arg1541z00_3850;

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

	}



/* &error/source */
	obj_t BGl_z62errorzf2sourcez90zz__errorz00(obj_t BgL_envz00_5152,
		obj_t BgL_procz00_5153, obj_t BgL_msgz00_5154, obj_t BgL_objz00_5155,
		obj_t BgL_sourcez00_5156)
	{
		{	/* Llib/error.scm 576 */
			return
				BGl_errorzf2sourcezf2zz__errorz00(BgL_procz00_5153, BgL_msgz00_5154,
				BgL_objz00_5155, BgL_sourcez00_5156);
		}

	}



/* 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 588 */
			{	/* Llib/error.scm 556 */
				BgL_z62errorz62_bglt BgL_arg1518z00_3852;

				{	/* Llib/error.scm 556 */
					BgL_z62errorz62_bglt BgL_new1081z00_3853;

					{	/* Llib/error.scm 557 */
						BgL_z62errorz62_bglt BgL_new1080z00_3854;

						BgL_new1080z00_3854 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 557 */
							long BgL_arg1521z00_3855;

							BgL_arg1521z00_3855 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1080z00_3854),
								BgL_arg1521z00_3855);
						}
						BgL_new1081z00_3853 = BgL_new1080z00_3854;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1081z00_3853)))->
							BgL_fnamez00) =
						((obj_t) string_to_bstring(BgL_fnamez00_39)), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1081z00_3853)))->BgL_locationz00) =
						((obj_t) BINT(BgL_locz00_40)), BUNSPEC);
					{
						obj_t BgL_auxz00_6291;

						{	/* Llib/error.scm 558 */
							obj_t BgL_arg1519z00_3856;

							{	/* Llib/error.scm 558 */
								obj_t BgL_arg1520z00_3857;

								{	/* Llib/error.scm 558 */
									obj_t BgL_classz00_3861;

									BgL_classz00_3861 = BGl_z62errorz62zz__objectz00;
									BgL_arg1520z00_3857 = BGL_CLASS_ALL_FIELDS(BgL_classz00_3861);
								}
								BgL_arg1519z00_3856 = VECTOR_REF(BgL_arg1520z00_3857, 2L);
							}
							BgL_auxz00_6291 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1519z00_3856);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1081z00_3853)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_6291), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3853))->
							BgL_procz00) = ((obj_t) BgL_procz00_36), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3853))->BgL_msgz00) =
						((obj_t) BgL_messagez00_37), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1081z00_3853))->BgL_objz00) =
						((obj_t) BgL_objectz00_38), BUNSPEC);
					BgL_arg1518z00_3852 = BgL_new1081z00_3853;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1518z00_3852));
			}
		}

	}



/* &error/c-location */
	obj_t BGl_z62errorzf2czd2locationz42zz__errorz00(obj_t BgL_envz00_5157,
		obj_t BgL_procz00_5158, obj_t BgL_messagez00_5159, obj_t BgL_objectz00_5160,
		obj_t BgL_fnamez00_5161, obj_t BgL_locz00_5162)
	{
		{	/* Llib/error.scm 588 */
			{	/* Llib/error.scm 556 */
				long BgL_auxz00_6311;
				char *BgL_auxz00_6302;

				{	/* Llib/error.scm 556 */
					obj_t BgL_tmpz00_6312;

					if (INTEGERP(BgL_locz00_5162))
						{	/* Llib/error.scm 556 */
							BgL_tmpz00_6312 = BgL_locz00_5162;
						}
					else
						{
							obj_t BgL_auxz00_6315;

							BgL_auxz00_6315 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(22717L), BGl_string2817z00zz__errorz00,
								BGl_string2791z00zz__errorz00, BgL_locz00_5162);
							FAILURE(BgL_auxz00_6315, BFALSE, BFALSE);
						}
					BgL_auxz00_6311 = (long) CINT(BgL_tmpz00_6312);
				}
				{	/* Llib/error.scm 556 */
					obj_t BgL_tmpz00_6303;

					if (STRINGP(BgL_fnamez00_5161))
						{	/* Llib/error.scm 556 */
							BgL_tmpz00_6303 = BgL_fnamez00_5161;
						}
					else
						{
							obj_t BgL_auxz00_6306;

							BgL_auxz00_6306 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(22717L), BGl_string2817z00zz__errorz00,
								BGl_string2816z00zz__errorz00, BgL_fnamez00_5161);
							FAILURE(BgL_auxz00_6306, BFALSE, BFALSE);
						}
					BgL_auxz00_6302 = BSTRING_TO_STRING(BgL_tmpz00_6303);
				}
				return
					BGl_errorzf2czd2locationz20zz__errorz00(BgL_procz00_5158,
					BgL_messagez00_5159, BgL_objectz00_5160, BgL_auxz00_6302,
					BgL_auxz00_6311);
			}
		}

	}



/* 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 594 */
			{	/* Llib/error.scm 595 */
				obj_t BgL_list1542z00_3863;

				{	/* Llib/error.scm 595 */
					obj_t BgL_arg1544z00_3864;

					{	/* Llib/error.scm 595 */
						obj_t BgL_arg1545z00_3865;

						{	/* Llib/error.scm 595 */
							obj_t BgL_arg1546z00_3866;

							{	/* Llib/error.scm 595 */
								obj_t BgL_arg1547z00_3867;

								{	/* Llib/error.scm 595 */
									obj_t BgL_arg1548z00_3868;

									BgL_arg1548z00_3868 =
										MAKE_YOUNG_PAIR(BGl_string2818z00zz__errorz00, BNIL);
									BgL_arg1547z00_3867 =
										MAKE_YOUNG_PAIR(BgL_toz00_43, BgL_arg1548z00_3868);
								}
								BgL_arg1546z00_3866 =
									MAKE_YOUNG_PAIR(BGl_string2819z00zz__errorz00,
									BgL_arg1547z00_3867);
							}
							BgL_arg1545z00_3865 =
								MAKE_YOUNG_PAIR(BgL_fromz00_42, BgL_arg1546z00_3866);
						}
						BgL_arg1544z00_3864 =
							MAKE_YOUNG_PAIR(BGl_string2820z00zz__errorz00,
							BgL_arg1545z00_3865);
					}
					BgL_list1542z00_3863 =
						MAKE_YOUNG_PAIR(BgL_prefixz00_41, BgL_arg1544z00_3864);
				}
				return
					BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1542z00_3863);
			}
		}

	}



/* &bigloo-type-error-msg */
	obj_t BGl_z62bigloozd2typezd2errorzd2msgzb0zz__errorz00(obj_t BgL_envz00_5163,
		obj_t BgL_prefixz00_5164, obj_t BgL_fromz00_5165, obj_t BgL_toz00_5166)
	{
		{	/* Llib/error.scm 594 */
			{	/* Llib/error.scm 595 */
				obj_t BgL_auxz00_6342;
				obj_t BgL_auxz00_6335;
				obj_t BgL_auxz00_6328;

				if (STRINGP(BgL_toz00_5166))
					{	/* Llib/error.scm 595 */
						BgL_auxz00_6342 = BgL_toz00_5166;
					}
				else
					{
						obj_t BgL_auxz00_6345;

						BgL_auxz00_6345 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(24500L), BGl_string2821z00zz__errorz00,
							BGl_string2816z00zz__errorz00, BgL_toz00_5166);
						FAILURE(BgL_auxz00_6345, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_fromz00_5165))
					{	/* Llib/error.scm 595 */
						BgL_auxz00_6335 = BgL_fromz00_5165;
					}
				else
					{
						obj_t BgL_auxz00_6338;

						BgL_auxz00_6338 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(24500L), BGl_string2821z00zz__errorz00,
							BGl_string2816z00zz__errorz00, BgL_fromz00_5165);
						FAILURE(BgL_auxz00_6338, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_prefixz00_5164))
					{	/* Llib/error.scm 595 */
						BgL_auxz00_6328 = BgL_prefixz00_5164;
					}
				else
					{
						obj_t BgL_auxz00_6331;

						BgL_auxz00_6331 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(24500L), BGl_string2821z00zz__errorz00,
							BGl_string2816z00zz__errorz00, BgL_prefixz00_5164);
						FAILURE(BgL_auxz00_6331, BFALSE, BFALSE);
					}
				return
					BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(BgL_auxz00_6328,
					BgL_auxz00_6335, BgL_auxz00_6342);
			}
		}

	}



/* 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 600 */
			{	/* Llib/error.scm 601 */
				obj_t BgL_tyz00_1906;

				if (STRINGP(BgL_typez00_45))
					{	/* Llib/error.scm 602 */
						BgL_tyz00_1906 = BgL_typez00_45;
					}
				else
					{	/* Llib/error.scm 602 */
						if (SYMBOLP(BgL_typez00_45))
							{	/* Llib/error.scm 605 */
								obj_t BgL_arg2302z00_3870;

								BgL_arg2302z00_3870 = SYMBOL_TO_STRING(BgL_typez00_45);
								BgL_tyz00_1906 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2302z00_3870);
							}
						else
							{	/* Llib/error.scm 604 */
								BgL_tyz00_1906 = BGl_string2787z00zz__errorz00;
							}
					}
				{	/* Llib/error.scm 601 */
					obj_t BgL_msgz00_1907;

					{	/* Llib/error.scm 608 */
						obj_t BgL_arg1555z00_1914;

						BgL_arg1555z00_1914 = bgl_typeof(BgL_objz00_46);
						{	/* Llib/error.scm 595 */
							obj_t BgL_list1542z00_3874;

							{	/* Llib/error.scm 595 */
								obj_t BgL_arg1544z00_3875;

								{	/* Llib/error.scm 595 */
									obj_t BgL_arg1545z00_3876;

									{	/* Llib/error.scm 595 */
										obj_t BgL_arg1546z00_3877;

										{	/* Llib/error.scm 595 */
											obj_t BgL_arg1547z00_3878;

											{	/* Llib/error.scm 595 */
												obj_t BgL_arg1548z00_3879;

												BgL_arg1548z00_3879 =
													MAKE_YOUNG_PAIR(BGl_string2818z00zz__errorz00, BNIL);
												BgL_arg1547z00_3878 =
													MAKE_YOUNG_PAIR(BgL_arg1555z00_1914,
													BgL_arg1548z00_3879);
											}
											BgL_arg1546z00_3877 =
												MAKE_YOUNG_PAIR(BGl_string2819z00zz__errorz00,
												BgL_arg1547z00_3878);
										}
										BgL_arg1545z00_3876 =
											MAKE_YOUNG_PAIR(BgL_tyz00_1906, BgL_arg1546z00_3877);
									}
									BgL_arg1544z00_3875 =
										MAKE_YOUNG_PAIR(BGl_string2820z00zz__errorz00,
										BgL_arg1545z00_3876);
								}
								BgL_list1542z00_3874 =
									MAKE_YOUNG_PAIR(BGl_string2788z00zz__errorz00,
									BgL_arg1544z00_3875);
							}
							BgL_msgz00_1907 =
								BGl_stringzd2appendzd2zz__r4_strings_6_7z00
								(BgL_list1542z00_3874);
						}
					}
					{	/* Llib/error.scm 608 */

						{	/* Llib/error.scm 610 */
							BgL_z62typezd2errorzb0_bglt BgL_arg1550z00_1908;

							{	/* Llib/error.scm 610 */
								BgL_z62typezd2errorzb0_bglt BgL_new1083z00_1909;

								{	/* Llib/error.scm 610 */
									BgL_z62typezd2errorzb0_bglt BgL_new1082z00_1912;

									BgL_new1082z00_1912 =
										((BgL_z62typezd2errorzb0_bglt)
										BOBJECT(GC_MALLOC(sizeof(struct
													BgL_z62typezd2errorzb0_bgl))));
									{	/* Llib/error.scm 610 */
										long BgL_arg1554z00_1913;

										BgL_arg1554z00_1913 =
											BGL_CLASS_NUM(BGl_z62typezd2errorzb0zz__objectz00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1082z00_1912),
											BgL_arg1554z00_1913);
									}
									BgL_new1083z00_1909 = BgL_new1082z00_1912;
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1083z00_1909)))->
										BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
								((((BgL_z62exceptionz62_bglt)
											COBJECT(((BgL_z62exceptionz62_bglt)
													BgL_new1083z00_1909)))->BgL_locationz00) =
									((obj_t) BFALSE), BUNSPEC);
								{
									obj_t BgL_auxz00_6372;

									{	/* Llib/error.scm 610 */
										obj_t BgL_arg1552z00_1910;

										{	/* Llib/error.scm 610 */
											obj_t BgL_arg1553z00_1911;

											{	/* Llib/error.scm 610 */
												obj_t BgL_classz00_3883;

												BgL_classz00_3883 = BGl_z62typezd2errorzb0zz__objectz00;
												BgL_arg1553z00_1911 =
													BGL_CLASS_ALL_FIELDS(BgL_classz00_3883);
											}
											BgL_arg1552z00_1910 = VECTOR_REF(BgL_arg1553z00_1911, 2L);
										}
										BgL_auxz00_6372 =
											BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
											(BgL_arg1552z00_1910);
									}
									((((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_new1083z00_1909)))->
											BgL_stackz00) = ((obj_t) BgL_auxz00_6372), BUNSPEC);
								}
								((((BgL_z62errorz62_bglt) COBJECT(
												((BgL_z62errorz62_bglt) BgL_new1083z00_1909)))->
										BgL_procz00) = ((obj_t) BgL_procz00_44), BUNSPEC);
								((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
													BgL_new1083z00_1909)))->BgL_msgz00) =
									((obj_t) BgL_msgz00_1907), BUNSPEC);
								((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
													BgL_new1083z00_1909)))->BgL_objz00) =
									((obj_t) BgL_objz00_46), BUNSPEC);
								((((BgL_z62typezd2errorzb0_bglt) COBJECT(BgL_new1083z00_1909))->
										BgL_typez00) = ((obj_t) BgL_typez00_45), BUNSPEC);
								BgL_arg1550z00_1908 = BgL_new1083z00_1909;
							}
							return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1550z00_1908));
						}
					}
				}
			}
		}

	}



/* &bigloo-type-error */
	obj_t BGl_z62bigloozd2typezd2errorz62zz__errorz00(obj_t BgL_envz00_5167,
		obj_t BgL_procz00_5168, obj_t BgL_typez00_5169, obj_t BgL_objz00_5170)
	{
		{	/* Llib/error.scm 600 */
			return
				BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procz00_5168,
				BgL_typez00_5169, BgL_objz00_5170);
		}

	}



/* 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 619 */
			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_5171, obj_t BgL_procz00_5172, obj_t BgL_typez00_5173,
		obj_t BgL_objz00_5174, obj_t BgL_fnamez00_5175, obj_t BgL_locz00_5176)
	{
		{	/* Llib/error.scm 619 */
			return
				BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BgL_procz00_5172,
				BgL_typez00_5173, BgL_objz00_5174, BgL_fnamez00_5175, BgL_locz00_5176);
		}

	}



/* 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 625 */
			{	/* Llib/error.scm 626 */
				obj_t BgL_tyz00_1918;

				if (STRINGP(BgL_typez00_55))
					{	/* Llib/error.scm 627 */
						BgL_tyz00_1918 = BgL_typez00_55;
					}
				else
					{	/* Llib/error.scm 627 */
						if (SYMBOLP(BgL_typez00_55))
							{	/* Llib/error.scm 628 */
								obj_t BgL_arg2302z00_3887;

								BgL_arg2302z00_3887 = SYMBOL_TO_STRING(BgL_typez00_55);
								BgL_tyz00_1918 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2302z00_3887);
							}
						else
							{	/* Llib/error.scm 628 */
								BgL_tyz00_1918 = BGl_string2787z00zz__errorz00;
							}
					}
				{	/* Llib/error.scm 626 */
					obj_t BgL_msgz00_1919;

					{	/* Llib/error.scm 630 */
						obj_t BgL_arg1564z00_1925;

						BgL_arg1564z00_1925 = bgl_typeof(BgL_objz00_56);
						{	/* Llib/error.scm 595 */
							obj_t BgL_list1542z00_3891;

							{	/* Llib/error.scm 595 */
								obj_t BgL_arg1544z00_3892;

								{	/* Llib/error.scm 595 */
									obj_t BgL_arg1545z00_3893;

									{	/* Llib/error.scm 595 */
										obj_t BgL_arg1546z00_3894;

										{	/* Llib/error.scm 595 */
											obj_t BgL_arg1547z00_3895;

											{	/* Llib/error.scm 595 */
												obj_t BgL_arg1548z00_3896;

												BgL_arg1548z00_3896 =
													MAKE_YOUNG_PAIR(BGl_string2818z00zz__errorz00, BNIL);
												BgL_arg1547z00_3895 =
													MAKE_YOUNG_PAIR(BgL_arg1564z00_1925,
													BgL_arg1548z00_3896);
											}
											BgL_arg1546z00_3894 =
												MAKE_YOUNG_PAIR(BGl_string2819z00zz__errorz00,
												BgL_arg1547z00_3895);
										}
										BgL_arg1545z00_3893 =
											MAKE_YOUNG_PAIR(BgL_tyz00_1918, BgL_arg1546z00_3894);
									}
									BgL_arg1544z00_3892 =
										MAKE_YOUNG_PAIR(BGl_string2820z00zz__errorz00,
										BgL_arg1545z00_3893);
								}
								BgL_list1542z00_3891 =
									MAKE_YOUNG_PAIR(BGl_string2788z00zz__errorz00,
									BgL_arg1544z00_3892);
							}
							BgL_msgz00_1919 =
								BGl_stringzd2appendzd2zz__r4_strings_6_7z00
								(BgL_list1542z00_3891);
						}
					}
					{	/* Llib/error.scm 630 */

						{	/* Llib/error.scm 631 */
							BgL_z62typezd2errorzb0_bglt BgL_new1085z00_1920;

							{	/* Llib/error.scm 632 */
								BgL_z62typezd2errorzb0_bglt BgL_new1084z00_1923;

								BgL_new1084z00_1923 =
									((BgL_z62typezd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_z62typezd2errorzb0_bgl))));
								{	/* Llib/error.scm 632 */
									long BgL_arg1563z00_1924;

									BgL_arg1563z00_1924 =
										BGL_CLASS_NUM(BGl_z62typezd2errorzb0zz__objectz00);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1084z00_1923),
										BgL_arg1563z00_1924);
								}
								BgL_new1085z00_1920 = BgL_new1084z00_1923;
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1085z00_1920)))->
									BgL_fnamez00) = ((obj_t) BgL_fnamez00_52), BUNSPEC);
							((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
												BgL_new1085z00_1920)))->BgL_locationz00) =
								((obj_t) BgL_locz00_53), BUNSPEC);
							{
								obj_t BgL_auxz00_6413;

								{	/* Llib/error.scm 633 */
									obj_t BgL_arg1559z00_1921;

									{	/* Llib/error.scm 633 */
										obj_t BgL_arg1560z00_1922;

										{	/* Llib/error.scm 633 */
											obj_t BgL_classz00_3900;

											BgL_classz00_3900 = BGl_z62typezd2errorzb0zz__objectz00;
											BgL_arg1560z00_1922 =
												BGL_CLASS_ALL_FIELDS(BgL_classz00_3900);
										}
										BgL_arg1559z00_1921 = VECTOR_REF(BgL_arg1560z00_1922, 2L);
									}
									BgL_auxz00_6413 =
										BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
										(BgL_arg1559z00_1921);
								}
								((((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt) BgL_new1085z00_1920)))->
										BgL_stackz00) = ((obj_t) BgL_auxz00_6413), BUNSPEC);
							}
							((((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_new1085z00_1920)))->
									BgL_procz00) = ((obj_t) BgL_procz00_54), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1085z00_1920)))->BgL_msgz00) =
								((obj_t) BgL_msgz00_1919), BUNSPEC);
							((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
												BgL_new1085z00_1920)))->BgL_objz00) =
								((obj_t) BgL_objz00_56), BUNSPEC);
							((((BgL_z62typezd2errorzb0_bglt) COBJECT(BgL_new1085z00_1920))->
									BgL_typez00) = ((obj_t) BgL_typez00_55), BUNSPEC);
							return ((obj_t) BgL_new1085z00_1920);
						}
					}
				}
			}
		}

	}



/* &type-error2737 */
	obj_t BGl_z62typezd2error2737zb0zz__errorz00(obj_t BgL_envz00_5177,
		obj_t BgL_fnamez00_5178, obj_t BgL_locz00_5179, obj_t BgL_procz00_5180,
		obj_t BgL_typez00_5181, obj_t BgL_objz00_5182)
	{
		{	/* Llib/error.scm 625 */
			return
				BGl_typezd2errorzd2zz__errorz00(BgL_fnamez00_5178, BgL_locz00_5179,
				BgL_procz00_5180, BgL_typez00_5181, BgL_objz00_5182);
		}

	}



/* 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 659 */
			{	/* Llib/error.scm 660 */
				obj_t BgL_msgz00_1938;

				{	/* Llib/error.scm 665 */
					obj_t BgL_arg1578z00_1944;
					obj_t BgL_arg1579z00_1945;

					{	/* Ieee/fixnum.scm 1000 */

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

						BgL_arg1579z00_1945 =
							BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
							((long) (BgL_lenz00_66) - 1L), 10L);
					}
					{	/* Llib/error.scm 664 */
						obj_t BgL_list1580z00_1946;

						{	/* Llib/error.scm 664 */
							obj_t BgL_arg1581z00_1947;

							{	/* Llib/error.scm 664 */
								obj_t BgL_arg1582z00_1948;

								{	/* Llib/error.scm 664 */
									obj_t BgL_arg1583z00_1949;

									{	/* Llib/error.scm 664 */
										obj_t BgL_arg1584z00_1950;

										BgL_arg1584z00_1950 =
											MAKE_YOUNG_PAIR(BGl_string2822z00zz__errorz00, BNIL);
										BgL_arg1583z00_1949 =
											MAKE_YOUNG_PAIR(BgL_arg1579z00_1945, BgL_arg1584z00_1950);
									}
									BgL_arg1582z00_1948 =
										MAKE_YOUNG_PAIR(BGl_string2823z00zz__errorz00,
										BgL_arg1583z00_1949);
								}
								BgL_arg1581z00_1947 =
									MAKE_YOUNG_PAIR(BgL_arg1578z00_1944, BgL_arg1582z00_1948);
							}
							BgL_list1580z00_1946 =
								MAKE_YOUNG_PAIR(BGl_string2824z00zz__errorz00,
								BgL_arg1581z00_1947);
						}
						BgL_msgz00_1938 =
							BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1580z00_1946);
				}}
				{	/* Llib/error.scm 664 */

					{	/* Llib/error.scm 668 */
						BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt
							BgL_new1089z00_1939;
						{	/* Llib/error.scm 669 */
							BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt
								BgL_new1088z00_1942;
							BgL_new1088z00_1942 =
								((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)
								BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bgl))));
							{	/* Llib/error.scm 669 */
								long BgL_arg1577z00_1943;

								BgL_arg1577z00_1943 =
									BGL_CLASS_NUM
									(BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00);
								BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
										BgL_new1088z00_1942), BgL_arg1577z00_1943);
							}
							BgL_new1089z00_1939 = BgL_new1088z00_1942;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1089z00_1939)))->
								BgL_fnamez00) = ((obj_t) BgL_fnamez00_62), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1089z00_1939)))->BgL_locationz00) =
							((obj_t) BgL_locz00_63), BUNSPEC);
						{
							obj_t BgL_auxz00_6447;

							{	/* Llib/error.scm 670 */
								obj_t BgL_arg1575z00_1940;

								{	/* Llib/error.scm 670 */
									obj_t BgL_arg1576z00_1941;

									{	/* Llib/error.scm 670 */
										obj_t BgL_classz00_3922;

										BgL_classz00_3922 =
											BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00;
										BgL_arg1576z00_1941 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_3922);
									}
									BgL_arg1575z00_1940 = VECTOR_REF(BgL_arg1576z00_1941, 2L);
								}
								BgL_auxz00_6447 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg1575z00_1940);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1089z00_1939)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_6447), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1089z00_1939)))->
								BgL_procz00) = ((obj_t) BgL_procz00_64), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1089z00_1939)))->BgL_msgz00) =
							((obj_t) BgL_msgz00_1938), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1089z00_1939)))->BgL_objz00) =
							((obj_t) BgL_objz00_65), BUNSPEC);
						((((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)
									COBJECT(BgL_new1089z00_1939))->BgL_indexz00) =
							((obj_t) BINT(BgL_lenz00_66)), BUNSPEC);
						return ((obj_t) BgL_new1089z00_1939);
					}
				}
			}
		}

	}



/* &index-out-of-bounds2738 */
	obj_t BGl_z62indexzd2outzd2ofzd2bounds2738zb0zz__errorz00(obj_t
		BgL_envz00_5183, obj_t BgL_fnamez00_5184, obj_t BgL_locz00_5185,
		obj_t BgL_procz00_5186, obj_t BgL_objz00_5187, obj_t BgL_lenz00_5188,
		obj_t BgL_iz00_5189)
	{
		{	/* Llib/error.scm 659 */
			{	/* Llib/error.scm 660 */
				int BgL_auxz00_6471;
				int BgL_auxz00_6462;

				{	/* Llib/error.scm 660 */
					obj_t BgL_tmpz00_6472;

					if (INTEGERP(BgL_iz00_5189))
						{	/* Llib/error.scm 660 */
							BgL_tmpz00_6472 = BgL_iz00_5189;
						}
					else
						{
							obj_t BgL_auxz00_6475;

							BgL_auxz00_6475 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(26842L), BGl_string2825z00zz__errorz00,
								BGl_string2791z00zz__errorz00, BgL_iz00_5189);
							FAILURE(BgL_auxz00_6475, BFALSE, BFALSE);
						}
					BgL_auxz00_6471 = CINT(BgL_tmpz00_6472);
				}
				{	/* Llib/error.scm 660 */
					obj_t BgL_tmpz00_6463;

					if (INTEGERP(BgL_lenz00_5188))
						{	/* Llib/error.scm 660 */
							BgL_tmpz00_6463 = BgL_lenz00_5188;
						}
					else
						{
							obj_t BgL_auxz00_6466;

							BgL_auxz00_6466 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(26842L), BGl_string2825z00zz__errorz00,
								BGl_string2791z00zz__errorz00, BgL_lenz00_5188);
							FAILURE(BgL_auxz00_6466, BFALSE, BFALSE);
						}
					BgL_auxz00_6462 = CINT(BgL_tmpz00_6463);
				}
				return
					BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00
					(BgL_fnamez00_5184, BgL_locz00_5185, BgL_procz00_5186,
					BgL_objz00_5187, BgL_auxz00_6462, BgL_auxz00_6471);
			}
		}

	}



/* warning */
	BGL_EXPORTED_DEF obj_t BGl_warningz00zz__errorz00(obj_t BgL_argsz00_68)
	{
		{	/* Llib/error.scm 679 */
			{	/* Llib/error.scm 681 */
				BgL_z62warningz62_bglt BgL_arg1589z00_1961;

				{	/* Llib/error.scm 681 */
					BgL_z62warningz62_bglt BgL_new1091z00_1962;

					{	/* Llib/error.scm 681 */
						BgL_z62warningz62_bglt BgL_new1090z00_1965;

						BgL_new1090z00_1965 =
							((BgL_z62warningz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62warningz62_bgl))));
						{	/* Llib/error.scm 681 */
							long BgL_arg1592z00_1966;

							BgL_arg1592z00_1966 =
								BGL_CLASS_NUM(BGl_z62warningz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1090z00_1965),
								BgL_arg1592z00_1966);
						}
						BgL_new1091z00_1962 = BgL_new1090z00_1965;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1091z00_1962)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1091z00_1962)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_6489;

						{	/* Llib/error.scm 681 */
							obj_t BgL_arg1590z00_1963;

							{	/* Llib/error.scm 681 */
								obj_t BgL_arg1591z00_1964;

								{	/* Llib/error.scm 681 */
									obj_t BgL_classz00_3927;

									BgL_classz00_3927 = BGl_z62warningz62zz__objectz00;
									BgL_arg1591z00_1964 = BGL_CLASS_ALL_FIELDS(BgL_classz00_3927);
								}
								BgL_arg1590z00_1963 = VECTOR_REF(BgL_arg1591z00_1964, 2L);
							}
							BgL_auxz00_6489 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1590z00_1963);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1091z00_1962)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_6489), BUNSPEC);
					}
					((((BgL_z62warningz62_bglt) COBJECT(BgL_new1091z00_1962))->
							BgL_argsz00) = ((obj_t) BgL_argsz00_68), BUNSPEC);
					BgL_arg1589z00_1961 = BgL_new1091z00_1962;
				}
				BGL_TAIL return
					BGl_warningzd2notifyzd2zz__errorz00(((obj_t) BgL_arg1589z00_1961));
			}
		}

	}



/* &warning2739 */
	obj_t BGl_z62warning2739z62zz__errorz00(obj_t BgL_envz00_5190,
		obj_t BgL_argsz00_5191)
	{
		{	/* Llib/error.scm 679 */
			return BGl_warningz00zz__errorz00(BgL_argsz00_5191);
		}

	}



/* 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 686 */
			{	/* Llib/error.scm 688 */
				BgL_z62warningz62_bglt BgL_arg1595z00_3929;

				{	/* Llib/error.scm 688 */
					BgL_z62warningz62_bglt BgL_new1093z00_3930;

					{	/* Llib/error.scm 688 */
						BgL_z62warningz62_bglt BgL_new1092z00_3931;

						BgL_new1092z00_3931 =
							((BgL_z62warningz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62warningz62_bgl))));
						{	/* Llib/error.scm 688 */
							long BgL_arg1600z00_3932;

							BgL_arg1600z00_3932 =
								BGL_CLASS_NUM(BGl_z62warningz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1092z00_3931),
								BgL_arg1600z00_3932);
						}
						BgL_new1093z00_3930 = BgL_new1092z00_3931;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1093z00_3930)))->
							BgL_fnamez00) = ((obj_t) BgL_fnamez00_69), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1093z00_3930)))->BgL_locationz00) =
						((obj_t) BgL_locz00_70), BUNSPEC);
					{
						obj_t BgL_auxz00_6507;

						{	/* Llib/error.scm 688 */
							obj_t BgL_arg1597z00_3933;

							{	/* Llib/error.scm 688 */
								obj_t BgL_arg1598z00_3934;

								{	/* Llib/error.scm 688 */
									obj_t BgL_classz00_3938;

									BgL_classz00_3938 = BGl_z62warningz62zz__objectz00;
									BgL_arg1598z00_3934 = BGL_CLASS_ALL_FIELDS(BgL_classz00_3938);
								}
								BgL_arg1597z00_3933 = VECTOR_REF(BgL_arg1598z00_3934, 2L);
							}
							BgL_auxz00_6507 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1597z00_3933);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1093z00_3930)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_6507), BUNSPEC);
					}
					((((BgL_z62warningz62_bglt) COBJECT(BgL_new1093z00_3930))->
							BgL_argsz00) = ((obj_t) BgL_argsz00_71), BUNSPEC);
					BgL_arg1595z00_3929 = BgL_new1093z00_3930;
				}
				return
					BGl_warningzd2notifyzd2zz__errorz00(((obj_t) BgL_arg1595z00_3929));
			}
		}

	}



/* &warning/location */
	obj_t BGl_z62warningzf2locationz90zz__errorz00(obj_t BgL_envz00_5192,
		obj_t BgL_fnamez00_5193, obj_t BgL_locz00_5194, obj_t BgL_argsz00_5195)
	{
		{	/* Llib/error.scm 686 */
			return
				BGl_warningzf2locationzf2zz__errorz00(BgL_fnamez00_5193,
				BgL_locz00_5194, BgL_argsz00_5195);
		}

	}



/* warning/loc */
	BGL_EXPORTED_DEF obj_t BGl_warningzf2loczf2zz__errorz00(obj_t BgL_locz00_72,
		obj_t BgL_argsz00_73)
	{
		{	/* Llib/error.scm 693 */
			if (PAIRP(BgL_locz00_72))
				{	/* Llib/error.scm 694 */
					obj_t BgL_cdrzd2204zd2_1979;

					BgL_cdrzd2204zd2_1979 = CDR(((obj_t) BgL_locz00_72));
					if ((CAR(((obj_t) BgL_locz00_72)) == BGl_symbol2793z00zz__errorz00))
						{	/* Llib/error.scm 694 */
							if (PAIRP(BgL_cdrzd2204zd2_1979))
								{	/* Llib/error.scm 694 */
									obj_t BgL_cdrzd2208zd2_1983;

									BgL_cdrzd2208zd2_1983 = CDR(BgL_cdrzd2204zd2_1979);
									if (PAIRP(BgL_cdrzd2208zd2_1983))
										{	/* Llib/error.scm 694 */
											if (NULLP(CDR(BgL_cdrzd2208zd2_1983)))
												{	/* Llib/error.scm 694 */
													obj_t BgL_arg1608z00_1987;
													obj_t BgL_arg1609z00_1988;

													BgL_arg1608z00_1987 = CAR(BgL_cdrzd2204zd2_1979);
													BgL_arg1609z00_1988 = CAR(BgL_cdrzd2208zd2_1983);
													{	/* Llib/error.scm 696 */
														obj_t BgL_list1612z00_3950;

														{	/* Llib/error.scm 696 */
															obj_t BgL_arg1613z00_3951;

															BgL_arg1613z00_3951 =
																MAKE_YOUNG_PAIR(BgL_argsz00_73, BNIL);
															BgL_list1612z00_3950 =
																MAKE_YOUNG_PAIR(BgL_arg1609z00_1988,
																BgL_arg1613z00_3951);
														}
														return
															BGl_applyz00zz__r4_control_features_6_9z00
															(BGl_warningzf2locationzd2envz20zz__errorz00,
															BgL_arg1608z00_1987, BgL_list1612z00_3950);
													}
												}
											else
												{	/* Llib/error.scm 694 */
													return BGl_warningz00zz__errorz00(BgL_argsz00_73);
												}
										}
									else
										{	/* Llib/error.scm 694 */
											return BGl_warningz00zz__errorz00(BgL_argsz00_73);
										}
								}
							else
								{	/* Llib/error.scm 694 */
									return BGl_warningz00zz__errorz00(BgL_argsz00_73);
								}
						}
					else
						{	/* Llib/error.scm 694 */
							return BGl_warningz00zz__errorz00(BgL_argsz00_73);
						}
				}
			else
				{	/* Llib/error.scm 694 */
					return BGl_warningz00zz__errorz00(BgL_argsz00_73);
				}
		}

	}



/* &warning/loc */
	obj_t BGl_z62warningzf2locz90zz__errorz00(obj_t BgL_envz00_5196,
		obj_t BgL_locz00_5197, obj_t BgL_argsz00_5198)
	{
		{	/* Llib/error.scm 693 */
			return
				BGl_warningzf2loczf2zz__errorz00(BgL_locz00_5197, BgL_argsz00_5198);
		}

	}



/* 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 707 */
			{	/* Llib/error.scm 708 */
				obj_t BgL_list1615z00_3957;

				{	/* Llib/error.scm 708 */
					obj_t BgL_arg1616z00_3958;

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

	}



/* &warning/c-location */
	obj_t BGl_z62warningzf2czd2locationz42zz__errorz00(obj_t BgL_envz00_5199,
		obj_t BgL_fnamez00_5200, obj_t BgL_locz00_5201, obj_t BgL_argsz00_5202)
	{
		{	/* Llib/error.scm 707 */
			{	/* Llib/error.scm 708 */
				long BgL_auxz00_6558;
				char *BgL_auxz00_6549;

				{	/* Llib/error.scm 708 */
					obj_t BgL_tmpz00_6559;

					if (INTEGERP(BgL_locz00_5201))
						{	/* Llib/error.scm 708 */
							BgL_tmpz00_6559 = BgL_locz00_5201;
						}
					else
						{
							obj_t BgL_auxz00_6562;

							BgL_auxz00_6562 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(28829L), BGl_string2826z00zz__errorz00,
								BGl_string2791z00zz__errorz00, BgL_locz00_5201);
							FAILURE(BgL_auxz00_6562, BFALSE, BFALSE);
						}
					BgL_auxz00_6558 = (long) CINT(BgL_tmpz00_6559);
				}
				{	/* Llib/error.scm 708 */
					obj_t BgL_tmpz00_6550;

					if (STRINGP(BgL_fnamez00_5200))
						{	/* Llib/error.scm 708 */
							BgL_tmpz00_6550 = BgL_fnamez00_5200;
						}
					else
						{
							obj_t BgL_auxz00_6553;

							BgL_auxz00_6553 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(28829L), BGl_string2826z00zz__errorz00,
								BGl_string2816z00zz__errorz00, BgL_fnamez00_5200);
							FAILURE(BgL_auxz00_6553, BFALSE, BFALSE);
						}
					BgL_auxz00_6549 = BSTRING_TO_STRING(BgL_tmpz00_6550);
				}
				return
					BGl_warningzf2czd2locationz20zz__errorz00(BgL_auxz00_6549,
					BgL_auxz00_6558, BgL_argsz00_5202);
			}
		}

	}



/* notify-&error */
	obj_t BGl_notifyzd2z62errorzb0zz__errorz00(obj_t BgL_errz00_77)
	{
		{	/* Llib/error.scm 713 */
			{	/* Llib/error.scm 714 */
				obj_t BgL_portz00_1996;

				{	/* Llib/error.scm 714 */
					obj_t BgL_tmpz00_6568;

					BgL_tmpz00_6568 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_portz00_1996 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6568);
				}
				bgl_flush_output_port(BgL_portz00_1996);
				{	/* Llib/error.scm 717 */
					obj_t BgL_list1617z00_1998;

					BgL_list1617z00_1998 = MAKE_YOUNG_PAIR(BgL_portz00_1996, BNIL);
					BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2814z00zz__errorz00,
						BgL_list1617z00_1998);
				}
				{	/* Llib/error.scm 718 */
					obj_t BgL_arg1618z00_1999;

					BgL_arg1618z00_1999 =
						(((BgL_z62errorz62_bglt) COBJECT(
								((BgL_z62errorz62_bglt) BgL_errz00_77)))->BgL_procz00);
					BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1618z00_1999,
						BgL_portz00_1996);
				}
				{	/* Llib/error.scm 719 */
					obj_t BgL_list1619z00_2000;

					BgL_list1619z00_2000 = MAKE_YOUNG_PAIR(BgL_portz00_1996, BNIL);
					BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2827z00zz__errorz00,
						BgL_list1619z00_2000);
				}
				{	/* Llib/error.scm 720 */
					obj_t BgL_arg1620z00_2001;

					BgL_arg1620z00_2001 =
						(((BgL_z62errorz62_bglt) COBJECT(
								((BgL_z62errorz62_bglt) BgL_errz00_77)))->BgL_msgz00);
					BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1620z00_2001,
						BgL_portz00_1996);
				}
				if (
					((((BgL_z62errorz62_bglt) COBJECT(
									((BgL_z62errorz62_bglt) BgL_errz00_77)))->BgL_objz00) ==
						BGl_symbol2828z00zz__errorz00))
					{	/* Llib/error.scm 721 */
						BFALSE;
					}
				else
					{	/* Llib/error.scm 721 */
						{	/* Llib/error.scm 722 */
							obj_t BgL_list1623z00_2004;

							BgL_list1623z00_2004 = MAKE_YOUNG_PAIR(BgL_portz00_1996, BNIL);
							BGl_displayz00zz__r4_output_6_10_3z00
								(BGl_string2830z00zz__errorz00, BgL_list1623z00_2004);
						}
						{	/* Llib/error.scm 723 */
							obj_t BgL_arg1625z00_2005;

							BgL_arg1625z00_2005 =
								(((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_errz00_77)))->BgL_objz00);
							BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1625z00_2005,
								BgL_portz00_1996);
						}
					}
				{	/* Llib/error.scm 724 */
					obj_t BgL_list1627z00_2007;

					BgL_list1627z00_2007 = MAKE_YOUNG_PAIR(BgL_portz00_1996, BNIL);
					BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1627z00_2007);
				}
				{	/* Llib/error.scm 725 */
					obj_t BgL_arg1628z00_2008;

					{	/* Llib/error.scm 725 */
						obj_t BgL__ortest_1095z00_2012;

						BgL__ortest_1095z00_2012 =
							(((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt)
										((BgL_z62errorz62_bglt) BgL_errz00_77))))->BgL_stackz00);
						if (CBOOL(BgL__ortest_1095z00_2012))
							{	/* Llib/error.scm 725 */
								BgL_arg1628z00_2008 = BgL__ortest_1095z00_2012;
							}
						else
							{	/* Llib/error.scm 725 */

								{	/* Llib/error.scm 725 */

									BgL_arg1628z00_2008 =
										BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE);
								}
							}
					}
					{	/* Llib/error.scm 273 */

						BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_arg1628z00_2008,
							BgL_portz00_1996, BINT(1L));
					}
				}
				return bgl_flush_output_port(BgL_portz00_1996);
			}
		}

	}



/* notify-&error/location-no-loc */
	obj_t BGl_notifyzd2z62errorzf2locationzd2nozd2locz42zz__errorz00(obj_t
		BgL_errz00_78)
	{
		{	/* Llib/error.scm 731 */
			{	/* Llib/error.scm 732 */
				obj_t BgL_portz00_2014;

				{	/* Llib/error.scm 732 */
					obj_t BgL_tmpz00_6602;

					BgL_tmpz00_6602 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_portz00_2014 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6602);
				}
				bgl_flush_output_port(BgL_portz00_2014);
				{	/* Llib/error.scm 735 */
					obj_t BgL_list1629z00_2016;

					BgL_list1629z00_2016 = MAKE_YOUNG_PAIR(BgL_portz00_2014, BNIL);
					BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1629z00_2016);
				}
				{	/* Llib/error.scm 736 */
					obj_t BgL_arg1630z00_2017;
					obj_t BgL_arg1632z00_2018;

					BgL_arg1630z00_2017 =
						(((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62errorz62_bglt) BgL_errz00_78))))->BgL_fnamez00);
					BgL_arg1632z00_2018 =
						(((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62errorz62_bglt) BgL_errz00_78))))->BgL_locationz00);
					{	/* Llib/error.scm 736 */
						obj_t BgL_list1633z00_2019;

						{	/* Llib/error.scm 736 */
							obj_t BgL_arg1634z00_2020;

							{	/* Llib/error.scm 736 */
								obj_t BgL_arg1635z00_2021;

								{	/* Llib/error.scm 736 */
									obj_t BgL_arg1636z00_2022;

									{	/* Llib/error.scm 736 */
										obj_t BgL_arg1637z00_2023;

										BgL_arg1637z00_2023 =
											MAKE_YOUNG_PAIR(BCHAR(((unsigned char) ':')), BNIL);
										BgL_arg1636z00_2022 =
											MAKE_YOUNG_PAIR(BgL_arg1632z00_2018, BgL_arg1637z00_2023);
									}
									BgL_arg1635z00_2021 =
										MAKE_YOUNG_PAIR(BGl_string2831z00zz__errorz00,
										BgL_arg1636z00_2022);
								}
								BgL_arg1634z00_2020 =
									MAKE_YOUNG_PAIR(BgL_arg1630z00_2017, BgL_arg1635z00_2021);
							}
							BgL_list1633z00_2019 =
								MAKE_YOUNG_PAIR(BGl_string2832z00zz__errorz00,
								BgL_arg1634z00_2020);
						}
						BGl_fprintz00zz__r4_output_6_10_3z00(BgL_portz00_2014,
							BgL_list1633z00_2019);
				}}
				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 742 */
		BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00:
			{	/* Llib/error.scm 743 */
				long BgL_lenz00_2024;

				BgL_lenz00_2024 = STRING_LENGTH(((obj_t) BgL_stringz00_83));
				if ((BgL_lenz00_2024 > 256L))
					{	/* Llib/error.scm 745 */
						obj_t BgL_nstringz00_2027;

						BgL_nstringz00_2027 =
							BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_83,
							((long) CINT(BgL_colz00_84) - 60L),
							((long) CINT(BgL_colz00_84) + 10L));
						{	/* Llib/error.scm 746 */

							{	/* Llib/error.scm 748 */
								obj_t BgL_arg1639z00_2028;
								long BgL_arg1640z00_2029;

								{	/* Llib/error.scm 748 */
									obj_t BgL_list1641z00_2030;

									{	/* Llib/error.scm 748 */
										obj_t BgL_arg1642z00_2031;

										{	/* Llib/error.scm 748 */
											obj_t BgL_arg1643z00_2032;

											BgL_arg1643z00_2032 =
												MAKE_YOUNG_PAIR(BGl_string2833z00zz__errorz00, BNIL);
											BgL_arg1642z00_2031 =
												MAKE_YOUNG_PAIR(BgL_nstringz00_2027,
												BgL_arg1643z00_2032);
										}
										BgL_list1641z00_2030 =
											MAKE_YOUNG_PAIR(BGl_string2833z00zz__errorz00,
											BgL_arg1642z00_2031);
									}
									BgL_arg1639z00_2028 =
										BGl_stringzd2appendzd2zz__r4_strings_6_7z00
										(BgL_list1641z00_2030);
								}
								BgL_arg1640z00_2029 = (60L + 3L);
								{
									obj_t BgL_colz00_6637;
									obj_t BgL_stringz00_6636;

									BgL_stringz00_6636 = BgL_arg1639z00_2028;
									BgL_colz00_6637 = BINT(BgL_arg1640z00_2029);
									BgL_colz00_84 = BgL_colz00_6637;
									BgL_stringz00_83 = BgL_stringz00_6636;
									goto BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00;
								}
							}
						}
					}
				else
					{	/* Llib/error.scm 751 */
						obj_t BgL_portz00_2036;

						{	/* Llib/error.scm 751 */
							obj_t BgL_tmpz00_6639;

							BgL_tmpz00_6639 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_portz00_2036 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6639);
						}
						bgl_flush_output_port(BgL_portz00_2036);
						{	/* Llib/error.scm 754 */
							obj_t BgL_list1646z00_2037;

							BgL_list1646z00_2037 = MAKE_YOUNG_PAIR(BgL_portz00_2036, BNIL);
							BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1646z00_2037);
						}
						{	/* Llib/error.scm 755 */
							obj_t BgL_spacezd2stringzd2_2038;

							if (((long) CINT(BgL_colz00_84) > 0L))
								{	/* Llib/error.scm 755 */
									BgL_spacezd2stringzd2_2038 =
										make_string(
										(long) CINT(BgL_colz00_84), ((unsigned char) ' '));
								}
							else
								{	/* Llib/error.scm 755 */
									BgL_spacezd2stringzd2_2038 = BGl_string2834z00zz__errorz00;
								}
							{	/* Llib/error.scm 755 */
								long BgL_lz00_2039;

								BgL_lz00_2039 = STRING_LENGTH(((obj_t) BgL_stringz00_83));
								{	/* Llib/error.scm 756 */
									obj_t BgL_nzd2colzd2_2040;

									if (((long) CINT(BgL_colz00_84) >= BgL_lz00_2039))
										{	/* Llib/error.scm 757 */
											BgL_nzd2colzd2_2040 = BINT(BgL_lz00_2039);
										}
									else
										{	/* Llib/error.scm 757 */
											BgL_nzd2colzd2_2040 = BgL_colz00_84;
										}
									{	/* Llib/error.scm 757 */

										BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_nzd2colzd2_2040,
											BgL_stringz00_83, BgL_spacezd2stringzd2_2038);
										BGl_printzd2cursorzd2zz__errorz00(BgL_fnamez00_80,
											BgL_linez00_81, BgL_locz00_82, BgL_stringz00_83,
											BgL_spacezd2stringzd2_2038);
										{	/* Llib/error.scm 763 */
											obj_t BgL_list1647z00_2041;

											BgL_list1647z00_2041 =
												MAKE_YOUNG_PAIR(BgL_portz00_2036, BNIL);
											BGl_displayz00zz__r4_output_6_10_3z00
												(BGl_string2814z00zz__errorz00, BgL_list1647z00_2041);
										}
										{	/* Llib/error.scm 764 */
											obj_t BgL_arg1649z00_2042;

											BgL_arg1649z00_2042 =
												(((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_errz00_79)))->
												BgL_procz00);
											BGl_displayzd2circlezd2zz__pp_circlez00
												(BgL_arg1649z00_2042, BgL_portz00_2036);
										}
										{	/* Llib/error.scm 765 */
											obj_t BgL_list1650z00_2043;

											BgL_list1650z00_2043 =
												MAKE_YOUNG_PAIR(BgL_portz00_2036, BNIL);
											BGl_newlinez00zz__r4_output_6_10_3z00
												(BgL_list1650z00_2043);
										}
										{	/* Llib/error.scm 766 */
											obj_t BgL_arg1651z00_2044;

											BgL_arg1651z00_2044 =
												(((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_errz00_79)))->
												BgL_msgz00);
											BGl_displayzd2circlezd2zz__pp_circlez00
												(BgL_arg1651z00_2044, BgL_portz00_2036);
										}
										if (
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_errz00_79)))->
													BgL_objz00) == BGl_symbol2828z00zz__errorz00))
											{	/* Llib/error.scm 767 */
												BFALSE;
											}
										else
											{	/* Llib/error.scm 767 */
												{	/* Llib/error.scm 768 */
													obj_t BgL_list1656z00_2047;

													BgL_list1656z00_2047 =
														MAKE_YOUNG_PAIR(BgL_portz00_2036, BNIL);
													BGl_displayz00zz__r4_output_6_10_3z00
														(BGl_string2830z00zz__errorz00,
														BgL_list1656z00_2047);
												}
												{	/* Llib/error.scm 769 */
													obj_t BgL_arg1658z00_2048;

													BgL_arg1658z00_2048 =
														(((BgL_z62errorz62_bglt) COBJECT(
																((BgL_z62errorz62_bglt) BgL_errz00_79)))->
														BgL_objz00);
													BGl_displayzd2circlezd2zz__pp_circlez00
														(BgL_arg1658z00_2048, BgL_portz00_2036);
												}
											}
										{	/* Llib/error.scm 770 */
											obj_t BgL_list1660z00_2050;

											BgL_list1660z00_2050 =
												MAKE_YOUNG_PAIR(BgL_portz00_2036, BNIL);
											BGl_newlinez00zz__r4_output_6_10_3z00
												(BgL_list1660z00_2050);
										}
										{	/* Llib/error.scm 771 */
											obj_t BgL_arg1661z00_2051;

											{	/* Llib/error.scm 771 */
												obj_t BgL__ortest_1098z00_2055;

												BgL__ortest_1098z00_2055 =
													(((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																((BgL_z62errorz62_bglt) BgL_errz00_79))))->
													BgL_stackz00);
												if (CBOOL(BgL__ortest_1098z00_2055))
													{	/* Llib/error.scm 771 */
														BgL_arg1661z00_2051 = BgL__ortest_1098z00_2055;
													}
												else
													{	/* Llib/error.scm 771 */

														{	/* Llib/error.scm 771 */

															BgL_arg1661z00_2051 =
																BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE);
														}
													}
											}
											{	/* Llib/error.scm 273 */

												BGl_displayzd2tracezd2stackz00zz__errorz00
													(BgL_arg1661z00_2051, BgL_portz00_2036, BINT(1L));
											}
										}
										return bgl_flush_output_port(BgL_portz00_2036);
									}
								}
							}
						}
					}
			}
		}

	}



/* 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 778 */
			{	/* Llib/error.scm 779 */
				bool_t BgL_test3219z00_6688;

				if (STRINGP(BgL_fnamez00_86))
					{	/* Llib/error.scm 779 */
						if (INTEGERP(BgL_locz00_87))
							{	/* Llib/error.scm 779 */
								BgL_test3219z00_6688 = ((bool_t) 0);
							}
						else
							{	/* Llib/error.scm 779 */
								BgL_test3219z00_6688 = ((bool_t) 1);
							}
					}
				else
					{	/* Llib/error.scm 779 */
						BgL_test3219z00_6688 = ((bool_t) 1);
					}
				if (BgL_test3219z00_6688)
					{	/* Llib/error.scm 779 */
						return BGl_notifyzd2z62errorzb0zz__errorz00(BgL_errz00_85);
					}
				else
					{	/* Llib/error.scm 781 */
						obj_t BgL_filez00_2062;

						{	/* Llib/error.scm 782 */
							obj_t BgL_arg1668z00_2066;

							{	/* Llib/error.scm 782 */
								obj_t BgL_list1669z00_2067;

								{	/* Llib/error.scm 782 */
									obj_t BgL_arg1670z00_2068;

									{	/* Llib/error.scm 782 */
										obj_t BgL_arg1671z00_2069;

										BgL_arg1671z00_2069 = MAKE_YOUNG_PAIR(BNIL, BNIL);
										BgL_arg1670z00_2068 =
											MAKE_YOUNG_PAIR(BgL_locz00_87, BgL_arg1671z00_2069);
									}
									BgL_list1669z00_2067 =
										MAKE_YOUNG_PAIR(BgL_fnamez00_86, BgL_arg1670z00_2068);
								}
								BgL_arg1668z00_2066 =
									BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
									(BGl_symbol2793z00zz__errorz00, BgL_list1669z00_2067);
							}
							BgL_filez00_2062 =
								BGl_locationzd2linezd2numz00zz__errorz00(BgL_arg1668z00_2066);
						}
						{	/* Llib/error.scm 782 */
							obj_t BgL_lnumz00_2063;
							obj_t BgL_lpointz00_2064;
							obj_t BgL_lstringz00_2065;

							{	/* Llib/error.scm 783 */
								obj_t BgL_tmpz00_3980;

								{	/* Llib/error.scm 783 */
									int BgL_tmpz00_6699;

									BgL_tmpz00_6699 = (int) (1L);
									BgL_tmpz00_3980 = BGL_MVALUES_VAL(BgL_tmpz00_6699);
								}
								{	/* Llib/error.scm 783 */
									int BgL_tmpz00_6702;

									BgL_tmpz00_6702 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_6702, BUNSPEC);
								}
								BgL_lnumz00_2063 = BgL_tmpz00_3980;
							}
							{	/* Llib/error.scm 783 */
								obj_t BgL_tmpz00_3981;

								{	/* Llib/error.scm 783 */
									int BgL_tmpz00_6705;

									BgL_tmpz00_6705 = (int) (2L);
									BgL_tmpz00_3981 = BGL_MVALUES_VAL(BgL_tmpz00_6705);
								}
								{	/* Llib/error.scm 783 */
									int BgL_tmpz00_6708;

									BgL_tmpz00_6708 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_6708, BUNSPEC);
								}
								BgL_lpointz00_2064 = BgL_tmpz00_3981;
							}
							{	/* Llib/error.scm 783 */
								obj_t BgL_tmpz00_3982;

								{	/* Llib/error.scm 783 */
									int BgL_tmpz00_6711;

									BgL_tmpz00_6711 = (int) (3L);
									BgL_tmpz00_3982 = BGL_MVALUES_VAL(BgL_tmpz00_6711);
								}
								{	/* Llib/error.scm 783 */
									int BgL_tmpz00_6714;

									BgL_tmpz00_6714 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_6714, BUNSPEC);
								}
								BgL_lstringz00_2065 = BgL_tmpz00_3982;
							}
							if (CBOOL(BgL_lnumz00_2063))
								{	/* Llib/error.scm 783 */
									return
										BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00
										(BgL_errz00_85, BgL_fnamez00_86, BgL_lnumz00_2063,
										BgL_locz00_87, BgL_lstringz00_2065, BgL_lpointz00_2064);
								}
							else
								{	/* Llib/error.scm 783 */
									return
										BGl_notifyzd2z62errorzf2locationzd2nozd2locz42zz__errorz00
										(BgL_errz00_85);
								}
						}
					}
			}
		}

	}



/* open-for-error */
	obj_t BGl_openzd2forzd2errorz00zz__errorz00(obj_t BgL_fnamez00_88)
	{
		{	/* Llib/error.scm 790 */
			if (fexists(BSTRING_TO_STRING(BgL_fnamez00_88)))
				{	/* Llib/error.scm 792 */
					if (bgl_directoryp(BSTRING_TO_STRING(BgL_fnamez00_88)))
						{	/* Llib/error.scm 793 */
							return BFALSE;
						}
					else
						{	/* Llib/error.scm 794 */
							obj_t BgL_env1107z00_2075;

							BgL_env1107z00_2075 = BGL_CURRENT_DYNAMIC_ENV();
							{	/* Llib/error.scm 794 */
								obj_t BgL_cell1102z00_2076;

								BgL_cell1102z00_2076 = MAKE_STACK_CELL(BUNSPEC);
								{	/* Llib/error.scm 794 */
									obj_t BgL_val1106z00_2077;

									BgL_val1106z00_2077 =
										BGl_zc3z04exitza31676ze3ze70z60zz__errorz00(BgL_fnamez00_88,
										BgL_cell1102z00_2076, BgL_env1107z00_2075);
									if ((BgL_val1106z00_2077 == BgL_cell1102z00_2076))
										{	/* Llib/error.scm 794 */
											{	/* Llib/error.scm 794 */
												int BgL_tmpz00_6732;

												BgL_tmpz00_6732 = (int) (0L);
												BGL_SIGSETMASK(BgL_tmpz00_6732);
											}
											{	/* Llib/error.scm 794 */
												obj_t BgL_arg1675z00_2079;

												BgL_arg1675z00_2079 =
													CELL_REF(((obj_t) BgL_val1106z00_2077));
												return BFALSE;
											}
										}
									else
										{	/* Llib/error.scm 794 */
											return BgL_val1106z00_2077;
										}
								}
							}
						}
				}
			else
				{	/* Llib/error.scm 797 */
					bool_t BgL_test3226z00_6737;

					{	/* Llib/error.scm 797 */
						long BgL_l1z00_3993;

						BgL_l1z00_3993 = STRING_LENGTH(((obj_t) BgL_fnamez00_88));
						if ((BgL_l1z00_3993 == 5L))
							{	/* Llib/error.scm 797 */
								int BgL_arg2296z00_3996;

								{	/* Llib/error.scm 797 */
									char *BgL_auxz00_6745;
									char *BgL_tmpz00_6742;

									BgL_auxz00_6745 =
										BSTRING_TO_STRING(BGl_string2835z00zz__errorz00);
									BgL_tmpz00_6742 =
										BSTRING_TO_STRING(((obj_t) BgL_fnamez00_88));
									BgL_arg2296z00_3996 =
										memcmp(BgL_tmpz00_6742, BgL_auxz00_6745, BgL_l1z00_3993);
								}
								BgL_test3226z00_6737 = ((long) (BgL_arg2296z00_3996) == 0L);
							}
						else
							{	/* Llib/error.scm 797 */
								BgL_test3226z00_6737 = ((bool_t) 0);
							}
					}
					if (BgL_test3226z00_6737)
						{	/* Llib/error.scm 798 */
							obj_t BgL_arg1681z00_2097;

							{	/* Llib/error.scm 798 */
								obj_t BgL_arg1684z00_2101;

								{	/* Llib/error.scm 798 */
									obj_t BgL_tmpz00_6750;

									BgL_tmpz00_6750 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_arg1684z00_2101 =
										BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_6750);
								}
								BgL_arg1681z00_2097 =
									BGL_INPUT_PORT_BUFFER(BgL_arg1684z00_2101);
							}
							{	/* Ieee/port.scm 463 */
								long BgL_endz00_2100;

								BgL_endz00_2100 = STRING_LENGTH(BgL_arg1681z00_2097);
								{	/* Ieee/port.scm 463 */

									return
										BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
										(BgL_arg1681z00_2097, BINT(0L), BINT(BgL_endz00_2100));
								}
							}
						}
					else
						{	/* Llib/error.scm 799 */
							bool_t BgL_test3228z00_6758;

							{	/* Llib/error.scm 799 */

								BgL_test3228z00_6758 =
									BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00
									(BGl_string2836z00zz__errorz00, BgL_fnamez00_88, BFALSE,
									BFALSE, BFALSE, BFALSE);
							}
							if (BgL_test3228z00_6758)
								{	/* Llib/error.scm 800 */
									obj_t BgL_arg1686z00_2109;

									{	/* Ieee/string.scm 190 */
										long BgL_endz00_2115;

										BgL_endz00_2115 = STRING_LENGTH(((obj_t) BgL_fnamez00_88));
										{	/* Ieee/string.scm 190 */

											BgL_arg1686z00_2109 =
												BGl_substringz00zz__r4_strings_6_7z00(BgL_fnamez00_88,
												9L, BgL_endz00_2115);
									}}
									{	/* Ieee/port.scm 463 */
										long BgL_endz00_2112;

										BgL_endz00_2112 = STRING_LENGTH(BgL_arg1686z00_2109);
										{	/* Ieee/port.scm 463 */

											return
												BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
												(BgL_arg1686z00_2109, BINT(0L), BINT(BgL_endz00_2112));
										}
									}
								}
							else
								{	/* Llib/error.scm 799 */
									return BFALSE;
								}
						}
				}
		}

	}



/* <@exit:1676>~0 */
	obj_t BGl_zc3z04exitza31676ze3ze70z60zz__errorz00(obj_t BgL_fnamez00_5272,
		obj_t BgL_cell1102z00_5271, obj_t BgL_env1107z00_5270)
	{
		{	/* Llib/error.scm 794 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1111z00_2081;

			if (SET_EXIT(BgL_an_exit1111z00_2081))
				{
					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_2081 = (void *) jmpbuf;
					PUSH_ENV_EXIT(BgL_env1107z00_5270, BgL_an_exit1111z00_2081, 1L);
					{	/* Llib/error.scm 794 */
						obj_t BgL_escape1103z00_2082;

						BgL_escape1103z00_2082 =
							BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1107z00_5270);
						{	/* Llib/error.scm 794 */
							obj_t BgL_res1114z00_2083;

							{	/* Llib/error.scm 794 */
								obj_t BgL_ohs1099z00_2084;

								BgL_ohs1099z00_2084 =
									BGL_ENV_ERROR_HANDLER_GET(BgL_env1107z00_5270);
								{	/* Llib/error.scm 794 */
									obj_t BgL_hds1100z00_2085;

									BgL_hds1100z00_2085 =
										MAKE_STACK_PAIR(BgL_escape1103z00_2082,
										BgL_cell1102z00_5271);
									BGL_ENV_ERROR_HANDLER_SET(BgL_env1107z00_5270,
										BgL_hds1100z00_2085);
									BUNSPEC;
									{	/* Llib/error.scm 794 */
										obj_t BgL_exitd1108z00_2086;

										BgL_exitd1108z00_2086 =
											BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1107z00_5270);
										{	/* Llib/error.scm 794 */
											obj_t BgL_tmp1110z00_2087;

											{	/* Llib/error.scm 794 */
												obj_t BgL_arg1678z00_2092;

												BgL_arg1678z00_2092 =
													BGL_EXITD_PROTECT(BgL_exitd1108z00_2086);
												BgL_tmp1110z00_2087 =
													MAKE_YOUNG_PAIR(BgL_ohs1099z00_2084,
													BgL_arg1678z00_2092);
											}
											{	/* Llib/error.scm 794 */

												BGL_EXITD_PROTECT_SET(BgL_exitd1108z00_2086,
													BgL_tmp1110z00_2087);
												BUNSPEC;
												{	/* Llib/error.scm 796 */
													obj_t BgL_tmp1109z00_2088;

													{	/* Ieee/port.scm 460 */

														BgL_tmp1109z00_2088 =
															BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00
															(BgL_fnamez00_5272, BTRUE, BINT(5000000L));
													}
													{	/* Llib/error.scm 794 */
														bool_t BgL_test3229z00_6780;

														{	/* Llib/error.scm 794 */
															obj_t BgL_arg2583z00_3986;

															BgL_arg2583z00_3986 =
																BGL_EXITD_PROTECT(BgL_exitd1108z00_2086);
															BgL_test3229z00_6780 = PAIRP(BgL_arg2583z00_3986);
														}
														if (BgL_test3229z00_6780)
															{	/* Llib/error.scm 794 */
																obj_t BgL_arg2581z00_3987;

																{	/* Llib/error.scm 794 */
																	obj_t BgL_arg2582z00_3988;

																	BgL_arg2582z00_3988 =
																		BGL_EXITD_PROTECT(BgL_exitd1108z00_2086);
																	BgL_arg2581z00_3987 =
																		CDR(((obj_t) BgL_arg2582z00_3988));
																}
																BGL_EXITD_PROTECT_SET(BgL_exitd1108z00_2086,
																	BgL_arg2581z00_3987);
																BUNSPEC;
															}
														else
															{	/* Llib/error.scm 794 */
																BFALSE;
															}
													}
													BGL_ENV_ERROR_HANDLER_SET(BgL_env1107z00_5270,
														BgL_ohs1099z00_2084);
													BUNSPEC;
													BgL_res1114z00_2083 = BgL_tmp1109z00_2088;
												}
											}
										}
									}
								}
							}
							POP_ENV_EXIT(BgL_env1107z00_5270);
							return BgL_res1114z00_2083;
						}
					}
				}
		}

	}



/* filename-for-error */
	obj_t BGl_filenamezd2forzd2errorz00zz__errorz00(obj_t BgL_filez00_89,
		long BgL_sza7za7_90)
	{
		{	/* Llib/error.scm 807 */
			if ((BgL_sza7za7_90 < 0L))
				{	/* Llib/error.scm 809 */
					return BGl_string2833z00zz__errorz00;
				}
			else
				{	/* Llib/error.scm 809 */
					if (fexists(BSTRING_TO_STRING(BgL_filez00_89)))
						{	/* Llib/error.scm 811 */
							return BGl_relativezd2filezd2namez00zz__errorz00(BgL_filez00_89);
						}
					else
						{	/* Llib/error.scm 813 */
							bool_t BgL_test3232z00_6795;

							{	/* Llib/error.scm 813 */

								BgL_test3232z00_6795 =
									BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00
									(BGl_string2836z00zz__errorz00, BgL_filez00_89, BFALSE,
									BFALSE, BFALSE, BFALSE);
							}
							if (BgL_test3232z00_6795)
								{	/* Llib/error.scm 813 */
									if (
										(STRING_LENGTH(
												((obj_t) BgL_filez00_89)) <= (9L + BgL_sza7za7_90)))
										{	/* Ieee/string.scm 190 */
											long BgL_endz00_2141;

											BgL_endz00_2141 = STRING_LENGTH(((obj_t) BgL_filez00_89));
											{	/* Ieee/string.scm 190 */

												return
													BGl_substringz00zz__r4_strings_6_7z00(BgL_filez00_89,
													9L, BgL_endz00_2141);
											}
										}
									else
										{	/* Llib/error.scm 816 */
											obj_t BgL_arg1698z00_2142;

											BgL_arg1698z00_2142 =
												BGl_substringz00zz__r4_strings_6_7z00(BgL_filez00_89,
												9L, (BgL_sza7za7_90 + 6L));
											{	/* Llib/error.scm 816 */
												obj_t BgL_list1699z00_2143;

												{	/* Llib/error.scm 816 */
													obj_t BgL_arg1703z00_2144;

													BgL_arg1703z00_2144 =
														MAKE_YOUNG_PAIR(BGl_string2833z00zz__errorz00,
														BNIL);
													BgL_list1699z00_2143 =
														MAKE_YOUNG_PAIR(BgL_arg1698z00_2142,
														BgL_arg1703z00_2144);
												}
												return
													BGl_stringzd2appendzd2zz__r4_strings_6_7z00
													(BgL_list1699z00_2143);
											}
										}
								}
							else
								{	/* Llib/error.scm 813 */
									if (
										(STRING_LENGTH(((obj_t) BgL_filez00_89)) <= BgL_sza7za7_90))
										{	/* Llib/error.scm 817 */
											return BgL_filez00_89;
										}
									else
										{	/* Llib/error.scm 817 */
											if ((BgL_sza7za7_90 < 4L))
												{	/* Llib/error.scm 819 */
													return BGl_string2833z00zz__errorz00;
												}
											else
												{	/* Llib/error.scm 822 */
													obj_t BgL_arg1712z00_2151;

													BgL_arg1712z00_2151 =
														BGl_substringz00zz__r4_strings_6_7z00
														(BgL_filez00_89, 0L, (BgL_sza7za7_90 - 3L));
													{	/* Llib/error.scm 822 */
														obj_t BgL_list1713z00_2152;

														{	/* Llib/error.scm 822 */
															obj_t BgL_arg1714z00_2153;

															BgL_arg1714z00_2153 =
																MAKE_YOUNG_PAIR(BGl_string2833z00zz__errorz00,
																BNIL);
															BgL_list1713z00_2152 =
																MAKE_YOUNG_PAIR(BgL_arg1712z00_2151,
																BgL_arg1714z00_2153);
														}
														return
															BGl_stringzd2appendzd2zz__r4_strings_6_7z00
															(BgL_list1713z00_2152);
													}
												}
										}
								}
						}
				}
		}

	}



/* location-line-num */
	obj_t BGl_locationzd2linezd2numz00zz__errorz00(obj_t BgL_locz00_93)
	{
		{	/* Llib/error.scm 827 */
			{
				obj_t BgL_filez00_2270;
				obj_t BgL_linez00_2271;
				obj_t BgL_colz00_2272;
				obj_t BgL_filez00_2220;
				obj_t BgL_pointz00_2221;

				{

					if (PAIRP(BgL_locz00_93))
						{	/* Llib/error.scm 875 */
							obj_t BgL_cdrzd2226zd2_2177;

							BgL_cdrzd2226zd2_2177 = CDR(((obj_t) BgL_locz00_93));
							if (
								(CAR(((obj_t) BgL_locz00_93)) == BGl_symbol2793z00zz__errorz00))
								{	/* Llib/error.scm 875 */
									if (PAIRP(BgL_cdrzd2226zd2_2177))
										{	/* Llib/error.scm 875 */
											obj_t BgL_cdrzd2230zd2_2181;

											BgL_cdrzd2230zd2_2181 = CDR(BgL_cdrzd2226zd2_2177);
											if (PAIRP(BgL_cdrzd2230zd2_2181))
												{	/* Llib/error.scm 875 */
													if (NULLP(CDR(BgL_cdrzd2230zd2_2181)))
														{	/* Llib/error.scm 875 */
															BgL_filez00_2220 = CAR(BgL_cdrzd2226zd2_2177);
															BgL_pointz00_2221 = CAR(BgL_cdrzd2230zd2_2181);
															{	/* Llib/error.scm 830 */
																bool_t BgL_test3241z00_6837;

																if (STRINGP(BgL_filez00_2220))
																	{	/* Llib/error.scm 830 */
																		BgL_test3241z00_6837 =
																			BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
																			(BgL_pointz00_2221);
																	}
																else
																	{	/* Llib/error.scm 830 */
																		BgL_test3241z00_6837 = ((bool_t) 0);
																	}
																if (BgL_test3241z00_6837)
																	{	/* Llib/error.scm 831 */
																		obj_t BgL_fnamez00_2225;

																		{	/* Llib/error.scm 831 */
																			bool_t BgL_test3243z00_6841;

																			{	/* Llib/error.scm 831 */
																				obj_t BgL_string1z00_4020;

																				BgL_string1z00_4020 =
																					string_to_bstring(OS_CLASS);
																				{	/* Llib/error.scm 831 */
																					long BgL_l1z00_4022;

																					BgL_l1z00_4022 =
																						STRING_LENGTH(BgL_string1z00_4020);
																					if ((BgL_l1z00_4022 == 5L))
																						{	/* Llib/error.scm 831 */
																							int BgL_arg2296z00_4025;

																							{	/* Llib/error.scm 831 */
																								char *BgL_auxz00_6848;
																								char *BgL_tmpz00_6846;

																								BgL_auxz00_6848 =
																									BSTRING_TO_STRING
																									(BGl_string2837z00zz__errorz00);
																								BgL_tmpz00_6846 =
																									BSTRING_TO_STRING
																									(BgL_string1z00_4020);
																								BgL_arg2296z00_4025 =
																									memcmp(BgL_tmpz00_6846,
																									BgL_auxz00_6848,
																									BgL_l1z00_4022);
																							}
																							BgL_test3243z00_6841 =
																								(
																								(long) (BgL_arg2296z00_4025) ==
																								0L);
																						}
																					else
																						{	/* Llib/error.scm 831 */
																							BgL_test3243z00_6841 =
																								((bool_t) 0);
																						}
																				}
																			}
																			if (BgL_test3243z00_6841)
																				{	/* Llib/error.scm 831 */
																					BgL_fnamez00_2225 =
																						BGl_stringzd2replacezd2zz__r4_strings_6_7z00
																						(BGl_uncygdrivez00zz__errorz00
																						(BgL_filez00_2220),
																						(char) (((unsigned char) '/')),
																						(char) (((unsigned char) '\\')));
																				}
																			else
																				{	/* Llib/error.scm 831 */
																					BgL_fnamez00_2225 = BgL_filez00_2220;
																				}
																		}
																		{	/* Llib/error.scm 831 */
																			obj_t BgL_portz00_2226;

																			BgL_portz00_2226 =
																				BGl_openzd2forzd2errorz00zz__errorz00
																				(BgL_fnamez00_2225);
																			{	/* Llib/error.scm 834 */

																				if (INPUT_PORTP(BgL_portz00_2226))
																					{	/* Llib/error.scm 836 */
																						obj_t BgL_exitd1117z00_2228;

																						BgL_exitd1117z00_2228 =
																							BGL_EXITD_TOP_AS_OBJ();
																						{	/* Llib/error.scm 850 */
																							obj_t
																								BgL_zc3z04anonymousza31782ze3z87_5204;
																							BgL_zc3z04anonymousza31782ze3z87_5204
																								=
																								MAKE_FX_PROCEDURE
																								(BGl_z62zc3z04anonymousza31782ze3ze5zz__errorz00,
																								(int) (0L), (int) (1L));
																							PROCEDURE_SET
																								(BgL_zc3z04anonymousza31782ze3z87_5204,
																								(int) (0L), BgL_portz00_2226);
																							{	/* Llib/error.scm 836 */
																								obj_t BgL_arg2585z00_4032;

																								{	/* Llib/error.scm 836 */
																									obj_t BgL_arg2586z00_4033;

																									BgL_arg2586z00_4033 =
																										BGL_EXITD_PROTECT
																										(BgL_exitd1117z00_2228);
																									BgL_arg2585z00_4032 =
																										MAKE_YOUNG_PAIR
																										(BgL_zc3z04anonymousza31782ze3z87_5204,
																										BgL_arg2586z00_4033);
																								}
																								BGL_EXITD_PROTECT_SET
																									(BgL_exitd1117z00_2228,
																									BgL_arg2585z00_4032);
																								BUNSPEC;
																							}
																							{	/* Llib/error.scm 840 */
																								obj_t BgL_tmp1119z00_2230;

																								{
																									obj_t BgL_ostringz00_2232;
																									long BgL_lnumz00_2233;
																									long BgL_oposz00_2234;

																									BgL_ostringz00_2232 = BFALSE;
																									BgL_lnumz00_2233 = 1L;
																									BgL_oposz00_2234 = 0L;
																								BgL_zc3z04anonymousza31759ze3z87_2235:
																									{	/* Llib/error.scm 840 */
																										obj_t BgL_lstringz00_2236;

																										BgL_lstringz00_2236 =
																											BGl_readzd2linezd2zz__r4_input_6_10_2z00
																											(BgL_portz00_2226);
																										if (EOF_OBJECTP
																											(BgL_lstringz00_2236))
																											{	/* Llib/error.scm 842 */
																												long
																													BgL_arg1761z00_2238;
																												obj_t
																													BgL_arg1762z00_2239;
																												BgL_arg1761z00_2238 =
																													(1L +
																													((long)
																														CINT
																														(BgL_pointz00_2221)
																														-
																														BgL_oposz00_2234));
																												if (STRINGP
																													(BgL_ostringz00_2232))
																													{	/* Llib/error.scm 844 */
																														obj_t
																															BgL_list1770z00_2246;
																														{	/* Llib/error.scm 844 */
																															obj_t
																																BgL_arg1771z00_2247;
																															BgL_arg1771z00_2247
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_string2838z00zz__errorz00,
																																BNIL);
																															BgL_list1770z00_2246
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_ostringz00_2232,
																																BgL_arg1771z00_2247);
																														}
																														BgL_arg1762z00_2239
																															=
																															BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																															(BgL_list1770z00_2246);
																													}
																												else
																													{	/* Llib/error.scm 843 */
																														BgL_arg1762z00_2239
																															=
																															BGl_string2838z00zz__errorz00;
																													}
																												{	/* Llib/error.scm 842 */
																													obj_t
																														BgL_list1763z00_2240;
																													{	/* Llib/error.scm 842 */
																														obj_t
																															BgL_arg1765z00_2241;
																														{	/* Llib/error.scm 842 */
																															obj_t
																																BgL_arg1766z00_2242;
																															{	/* Llib/error.scm 842 */
																																obj_t
																																	BgL_arg1767z00_2243;
																																BgL_arg1767z00_2243
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1762z00_2239,
																																	BNIL);
																																BgL_arg1766z00_2242
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BINT
																																	(BgL_arg1761z00_2238),
																																	BgL_arg1767z00_2243);
																															}
																															BgL_arg1765z00_2241
																																=
																																MAKE_YOUNG_PAIR
																																(BINT
																																(BgL_lnumz00_2233),
																																BgL_arg1766z00_2242);
																														}
																														BgL_list1763z00_2240
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_fnamez00_2225,
																															BgL_arg1765z00_2241);
																													}
																													BgL_tmp1119z00_2230 =
																														BGl_valuesz00zz__r5_control_features_6_4z00
																														(BgL_list1763z00_2240);
																												}
																											}
																										else
																											{	/* Llib/error.scm 846 */
																												bool_t
																													BgL_test3248z00_6887;
																												{	/* Llib/error.scm 846 */
																													long
																														BgL_arg1781z00_2257;
																													{	/* Llib/error.scm 846 */
																														obj_t
																															BgL_tmpz00_6888;
																														BgL_tmpz00_6888 =
																															((obj_t)
																															BgL_portz00_2226);
																														BgL_arg1781z00_2257
																															=
																															INPUT_PORT_FILEPOS
																															(BgL_tmpz00_6888);
																													}
																													BgL_test3248z00_6887 =
																														(BgL_arg1781z00_2257
																														>
																														(long)
																														CINT
																														(BgL_pointz00_2221));
																												}
																												if (BgL_test3248z00_6887)
																													{	/* Llib/error.scm 847 */
																														long
																															BgL_arg1775z00_2250;
																														BgL_arg1775z00_2250
																															=
																															((long)
																															CINT
																															(BgL_pointz00_2221)
																															-
																															BgL_oposz00_2234);
																														{	/* Llib/error.scm 847 */
																															obj_t
																																BgL_list1776z00_2251;
																															{	/* Llib/error.scm 847 */
																																obj_t
																																	BgL_arg1777z00_2252;
																																{	/* Llib/error.scm 847 */
																																	obj_t
																																		BgL_arg1778z00_2253;
																																	{	/* Llib/error.scm 847 */
																																		obj_t
																																			BgL_arg1779z00_2254;
																																		BgL_arg1779z00_2254
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_lstringz00_2236,
																																			BNIL);
																																		BgL_arg1778z00_2253
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BINT
																																			(BgL_arg1775z00_2250),
																																			BgL_arg1779z00_2254);
																																	}
																																	BgL_arg1777z00_2252
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BINT
																																		(BgL_lnumz00_2233),
																																		BgL_arg1778z00_2253);
																																}
																																BgL_list1776z00_2251
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_filez00_2220,
																																	BgL_arg1777z00_2252);
																															}
																															BgL_tmp1119z00_2230
																																=
																																BGl_valuesz00zz__r5_control_features_6_4z00
																																(BgL_list1776z00_2251);
																													}}
																												else
																													{	/* Llib/error.scm 848 */
																														long
																															BgL_oposz00_2255;
																														{	/* Llib/error.scm 848 */
																															obj_t
																																BgL_tmpz00_6902;
																															BgL_tmpz00_6902 =
																																((obj_t)
																																BgL_portz00_2226);
																															BgL_oposz00_2255 =
																																INPUT_PORT_FILEPOS
																																(BgL_tmpz00_6902);
																														}
																														{
																															long
																																BgL_oposz00_6908;
																															long
																																BgL_lnumz00_6906;
																															obj_t
																																BgL_ostringz00_6905;
																															BgL_ostringz00_6905
																																=
																																BgL_lstringz00_2236;
																															BgL_lnumz00_6906 =
																																(BgL_lnumz00_2233
																																+ 1L);
																															BgL_oposz00_6908 =
																																BgL_oposz00_2255;
																															BgL_oposz00_2234 =
																																BgL_oposz00_6908;
																															BgL_lnumz00_2233 =
																																BgL_lnumz00_6906;
																															BgL_ostringz00_2232
																																=
																																BgL_ostringz00_6905;
																															goto
																																BgL_zc3z04anonymousza31759ze3z87_2235;
																														}
																													}
																											}
																									}
																								}
																								{	/* Llib/error.scm 836 */
																									bool_t BgL_test3249z00_6909;

																									{	/* Llib/error.scm 836 */
																										obj_t BgL_arg2583z00_4045;

																										BgL_arg2583z00_4045 =
																											BGL_EXITD_PROTECT
																											(BgL_exitd1117z00_2228);
																										BgL_test3249z00_6909 =
																											PAIRP
																											(BgL_arg2583z00_4045);
																									}
																									if (BgL_test3249z00_6909)
																										{	/* Llib/error.scm 836 */
																											obj_t BgL_arg2581z00_4046;

																											{	/* Llib/error.scm 836 */
																												obj_t
																													BgL_arg2582z00_4047;
																												BgL_arg2582z00_4047 =
																													BGL_EXITD_PROTECT
																													(BgL_exitd1117z00_2228);
																												BgL_arg2581z00_4046 =
																													CDR(((obj_t)
																														BgL_arg2582z00_4047));
																											}
																											BGL_EXITD_PROTECT_SET
																												(BgL_exitd1117z00_2228,
																												BgL_arg2581z00_4046);
																											BUNSPEC;
																										}
																									else
																										{	/* Llib/error.scm 836 */
																											BFALSE;
																										}
																								}
																								bgl_close_input_port
																									(BgL_portz00_2226);
																								return BgL_tmp1119z00_2230;
																							}
																						}
																					}
																				else
																					{	/* Llib/error.scm 851 */
																						obj_t BgL_list1783z00_2261;

																						{	/* Llib/error.scm 851 */
																							obj_t BgL_arg1784z00_2262;

																							{	/* Llib/error.scm 851 */
																								obj_t BgL_arg1785z00_2263;

																								{	/* Llib/error.scm 851 */
																									obj_t BgL_arg1786z00_2264;

																									BgL_arg1786z00_2264 =
																										MAKE_YOUNG_PAIR(BFALSE,
																										BNIL);
																									BgL_arg1785z00_2263 =
																										MAKE_YOUNG_PAIR
																										(BgL_pointz00_2221,
																										BgL_arg1786z00_2264);
																								}
																								BgL_arg1784z00_2262 =
																									MAKE_YOUNG_PAIR(BFALSE,
																									BgL_arg1785z00_2263);
																							}
																							BgL_list1783z00_2261 =
																								MAKE_YOUNG_PAIR
																								(BgL_filez00_2220,
																								BgL_arg1784z00_2262);
																						}
																						BGL_TAIL return
																							BGl_valuesz00zz__r5_control_features_6_4z00
																							(BgL_list1783z00_2261);
																					}
																			}
																		}
																	}
																else
																	{	/* Llib/error.scm 830 */
																		return BFALSE;
																	}
															}
														}
													else
														{	/* Llib/error.scm 875 */
														BgL_tagzd2217zd2_2174:
															{	/* Llib/error.scm 886 */
																obj_t BgL_list1751z00_2216;

																{	/* Llib/error.scm 886 */
																	obj_t BgL_arg1752z00_2217;

																	{	/* Llib/error.scm 886 */
																		obj_t BgL_arg1753z00_2218;

																		{	/* Llib/error.scm 886 */
																			obj_t BgL_arg1754z00_2219;

																			BgL_arg1754z00_2219 =
																				MAKE_YOUNG_PAIR(BFALSE, BNIL);
																			BgL_arg1753z00_2218 =
																				MAKE_YOUNG_PAIR(BFALSE,
																				BgL_arg1754z00_2219);
																		}
																		BgL_arg1752z00_2217 =
																			MAKE_YOUNG_PAIR(BFALSE,
																			BgL_arg1753z00_2218);
																	}
																	BgL_list1751z00_2216 =
																		MAKE_YOUNG_PAIR(BFALSE,
																		BgL_arg1752z00_2217);
																}
																BGL_TAIL return
																	BGl_valuesz00zz__r5_control_features_6_4z00
																	(BgL_list1751z00_2216);
															}
														}
												}
											else
												{	/* Llib/error.scm 875 */
													goto BgL_tagzd2217zd2_2174;
												}
										}
									else
										{	/* Llib/error.scm 875 */
											goto BgL_tagzd2217zd2_2174;
										}
								}
							else
								{	/* Llib/error.scm 875 */
									if (
										(CAR(
												((obj_t) BgL_locz00_93)) ==
											BGl_symbol2839z00zz__errorz00))
										{	/* Llib/error.scm 875 */
											if (PAIRP(BgL_cdrzd2226zd2_2177))
												{	/* Llib/error.scm 875 */
													obj_t BgL_cdrzd2282zd2_2192;

													BgL_cdrzd2282zd2_2192 = CDR(BgL_cdrzd2226zd2_2177);
													if (PAIRP(BgL_cdrzd2282zd2_2192))
														{	/* Llib/error.scm 875 */
															obj_t BgL_cdrzd2287zd2_2194;

															BgL_cdrzd2287zd2_2194 =
																CDR(BgL_cdrzd2282zd2_2192);
															if (PAIRP(BgL_cdrzd2287zd2_2194))
																{	/* Llib/error.scm 875 */
																	if (NULLP(CDR(BgL_cdrzd2287zd2_2194)))
																		{	/* Llib/error.scm 875 */
																			BgL_filez00_2270 =
																				CAR(BgL_cdrzd2226zd2_2177);
																			BgL_linez00_2271 =
																				CAR(BgL_cdrzd2282zd2_2192);
																			BgL_colz00_2272 =
																				CAR(BgL_cdrzd2287zd2_2194);
																		BgL_zc3z04anonymousza31791ze3z87_2273:
																			{	/* Llib/error.scm 854 */
																				bool_t BgL_test3255z00_6944;

																				if (
																					((long) CINT(BgL_linez00_2271) >= 0L))
																					{	/* Llib/error.scm 854 */
																						BgL_test3255z00_6944 =
																							(
																							(long) CINT(BgL_colz00_2272) >=
																							0L);
																					}
																				else
																					{	/* Llib/error.scm 854 */
																						BgL_test3255z00_6944 = ((bool_t) 0);
																					}
																				if (BgL_test3255z00_6944)
																					{	/* Llib/error.scm 855 */
																						obj_t BgL_fnamez00_2276;

																						{	/* Llib/error.scm 855 */
																							bool_t BgL_test3257z00_6950;

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

																								BgL_string1z00_4052 =
																									string_to_bstring(OS_CLASS);
																								{	/* Llib/error.scm 855 */
																									long BgL_l1z00_4054;

																									BgL_l1z00_4054 =
																										STRING_LENGTH
																										(BgL_string1z00_4052);
																									if ((BgL_l1z00_4054 == 5L))
																										{	/* Llib/error.scm 855 */
																											int BgL_arg2296z00_4057;

																											{	/* Llib/error.scm 855 */
																												char *BgL_auxz00_6957;
																												char *BgL_tmpz00_6955;

																												BgL_auxz00_6957 =
																													BSTRING_TO_STRING
																													(BGl_string2837z00zz__errorz00);
																												BgL_tmpz00_6955 =
																													BSTRING_TO_STRING
																													(BgL_string1z00_4052);
																												BgL_arg2296z00_4057 =
																													memcmp
																													(BgL_tmpz00_6955,
																													BgL_auxz00_6957,
																													BgL_l1z00_4054);
																											}
																											BgL_test3257z00_6950 =
																												(
																												(long)
																												(BgL_arg2296z00_4057) ==
																												0L);
																										}
																									else
																										{	/* Llib/error.scm 855 */
																											BgL_test3257z00_6950 =
																												((bool_t) 0);
																										}
																								}
																							}
																							if (BgL_test3257z00_6950)
																								{	/* Llib/error.scm 855 */
																									BgL_fnamez00_2276 =
																										BGl_stringzd2replacezd2zz__r4_strings_6_7z00
																										(BGl_uncygdrivez00zz__errorz00
																										(BgL_filez00_2270),
																										(char) (((unsigned char)
																												'/')),
																										(char) (((unsigned char)
																												'\\')));
																								}
																							else
																								{	/* Llib/error.scm 855 */
																									BgL_fnamez00_2276 =
																										BgL_filez00_2270;
																								}
																						}
																						{	/* Llib/error.scm 855 */
																							obj_t BgL_portz00_2277;

																							BgL_portz00_2277 =
																								BGl_openzd2forzd2errorz00zz__errorz00
																								(BgL_fnamez00_2276);
																							{	/* Llib/error.scm 858 */

																								if (INPUT_PORTP
																									(BgL_portz00_2277))
																									{	/* Llib/error.scm 860 */
																										obj_t BgL_exitd1121z00_2279;

																										BgL_exitd1121z00_2279 =
																											BGL_EXITD_TOP_AS_OBJ();
																										{	/* Llib/error.scm 871 */
																											obj_t
																												BgL_zc3z04anonymousza31811ze3z87_5203;
																											BgL_zc3z04anonymousza31811ze3z87_5203
																												=
																												MAKE_FX_PROCEDURE
																												(BGl_z62zc3z04anonymousza31811ze3ze5zz__errorz00,
																												(int) (0L), (int) (1L));
																											PROCEDURE_SET
																												(BgL_zc3z04anonymousza31811ze3z87_5203,
																												(int) (0L),
																												BgL_portz00_2277);
																											{	/* Llib/error.scm 860 */
																												obj_t
																													BgL_arg2585z00_4064;
																												{	/* Llib/error.scm 860 */
																													obj_t
																														BgL_arg2586z00_4065;
																													BgL_arg2586z00_4065 =
																														BGL_EXITD_PROTECT
																														(BgL_exitd1121z00_2279);
																													BgL_arg2585z00_4064 =
																														MAKE_YOUNG_PAIR
																														(BgL_zc3z04anonymousza31811ze3z87_5203,
																														BgL_arg2586z00_4065);
																												}
																												BGL_EXITD_PROTECT_SET
																													(BgL_exitd1121z00_2279,
																													BgL_arg2585z00_4064);
																												BUNSPEC;
																											}
																											{	/* Llib/error.scm 863 */
																												obj_t
																													BgL_tmp1123z00_2281;
																												{
																													obj_t
																														BgL_ostringz00_2283;
																													obj_t
																														BgL_lnumz00_2284;
																													BgL_ostringz00_2283 =
																														BFALSE;
																													BgL_lnumz00_2284 =
																														BgL_linez00_2271;
																												BgL_zc3z04anonymousza31795ze3z87_2285:
																													{	/* Llib/error.scm 863 */
																														obj_t
																															BgL_lstringz00_2286;
																														BgL_lstringz00_2286
																															=
																															BGl_readzd2linezd2zz__r4_input_6_10_2z00
																															(BgL_portz00_2277);
																														if (EOF_OBJECTP
																															(BgL_lstringz00_2286))
																															{	/* Llib/error.scm 865 */
																																long
																																	BgL_arg1797z00_2288;
																																obj_t
																																	BgL_arg1798z00_2289;
																																BgL_arg1797z00_2288
																																	=
																																	((long)
																																	CINT
																																	(BgL_colz00_2272)
																																	+ 1L);
																																{	/* Llib/error.scm 866 */
																																	obj_t
																																		BgL_list1803z00_2294;
																																	{	/* Llib/error.scm 866 */
																																		obj_t
																																			BgL_arg1804z00_2295;
																																		BgL_arg1804z00_2295
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_string2838z00zz__errorz00,
																																			BNIL);
																																		BgL_list1803z00_2294
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_ostringz00_2283,
																																			BgL_arg1804z00_2295);
																																	}
																																	BgL_arg1798z00_2289
																																		=
																																		BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																																		(BgL_list1803z00_2294);
																																}
																																{	/* Llib/error.scm 865 */
																																	obj_t
																																		BgL_list1799z00_2290;
																																	{	/* Llib/error.scm 865 */
																																		obj_t
																																			BgL_arg1800z00_2291;
																																		{	/* Llib/error.scm 865 */
																																			obj_t
																																				BgL_arg1801z00_2292;
																																			{	/* Llib/error.scm 865 */
																																				obj_t
																																					BgL_arg1802z00_2293;
																																				BgL_arg1802z00_2293
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1798z00_2289,
																																					BNIL);
																																				BgL_arg1801z00_2292
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BINT
																																					(BgL_arg1797z00_2288),
																																					BgL_arg1802z00_2293);
																																			}
																																			BgL_arg1800z00_2291
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_linez00_2271,
																																				BgL_arg1801z00_2292);
																																		}
																																		BgL_list1799z00_2290
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_filez00_2270,
																																			BgL_arg1800z00_2291);
																																	}
																																	BgL_tmp1123z00_2281
																																		=
																																		BGl_valuesz00zz__r5_control_features_6_4z00
																																		(BgL_list1799z00_2290);
																															}}
																														else
																															{	/* Llib/error.scm 864 */
																																if (
																																	((long)
																																		CINT
																																		(BgL_lnumz00_2284)
																																		== 0L))
																																	{	/* Llib/error.scm 868 */
																																		obj_t
																																			BgL_list1806z00_2297;
																																		{	/* Llib/error.scm 868 */
																																			obj_t
																																				BgL_arg1807z00_2298;
																																			{	/* Llib/error.scm 868 */
																																				obj_t
																																					BgL_arg1808z00_2299;
																																				{	/* Llib/error.scm 868 */
																																					obj_t
																																						BgL_arg1809z00_2300;
																																					BgL_arg1809z00_2300
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_lstringz00_2286,
																																						BNIL);
																																					BgL_arg1808z00_2299
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_colz00_2272,
																																						BgL_arg1809z00_2300);
																																				}
																																				BgL_arg1807z00_2298
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_linez00_2271,
																																					BgL_arg1808z00_2299);
																																			}
																																			BgL_list1806z00_2297
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_filez00_2270,
																																				BgL_arg1807z00_2298);
																																		}
																																		BgL_tmp1123z00_2281
																																			=
																																			BGl_valuesz00zz__r5_control_features_6_4z00
																																			(BgL_list1806z00_2297);
																																	}
																																else
																																	{	/* Llib/error.scm 869 */
																																		long
																																			BgL_oposz00_2301;
																																		{	/* Llib/error.scm 869 */
																																			obj_t
																																				BgL_tmpz00_7000;
																																			BgL_tmpz00_7000
																																				=
																																				((obj_t)
																																				BgL_portz00_2277);
																																			BgL_oposz00_2301
																																				=
																																				INPUT_PORT_FILEPOS
																																				(BgL_tmpz00_7000);
																																		}
																																		{	/* Llib/error.scm 870 */
																																			long
																																				BgL_arg1810z00_2302;
																																			BgL_arg1810z00_2302
																																				=
																																				((long)
																																				CINT
																																				(BgL_lnumz00_2284)
																																				- 1L);
																																			{
																																				obj_t
																																					BgL_lnumz00_7006;
																																				obj_t
																																					BgL_ostringz00_7005;
																																				BgL_ostringz00_7005
																																					=
																																					BgL_lstringz00_2286;
																																				BgL_lnumz00_7006
																																					=
																																					BINT
																																					(BgL_arg1810z00_2302);
																																				BgL_lnumz00_2284
																																					=
																																					BgL_lnumz00_7006;
																																				BgL_ostringz00_2283
																																					=
																																					BgL_ostringz00_7005;
																																				goto
																																					BgL_zc3z04anonymousza31795ze3z87_2285;
																																			}
																																		}
																																	}
																															}
																													}
																												}
																												{	/* Llib/error.scm 860 */
																													bool_t
																														BgL_test3262z00_7008;
																													{	/* Llib/error.scm 860 */
																														obj_t
																															BgL_arg2583z00_4071;
																														BgL_arg2583z00_4071
																															=
																															BGL_EXITD_PROTECT
																															(BgL_exitd1121z00_2279);
																														BgL_test3262z00_7008
																															=
																															PAIRP
																															(BgL_arg2583z00_4071);
																													}
																													if (BgL_test3262z00_7008)
																														{	/* Llib/error.scm 860 */
																															obj_t
																																BgL_arg2581z00_4072;
																															{	/* Llib/error.scm 860 */
																																obj_t
																																	BgL_arg2582z00_4073;
																																BgL_arg2582z00_4073
																																	=
																																	BGL_EXITD_PROTECT
																																	(BgL_exitd1121z00_2279);
																																BgL_arg2581z00_4072
																																	=
																																	CDR(((obj_t)
																																		BgL_arg2582z00_4073));
																															}
																															BGL_EXITD_PROTECT_SET
																																(BgL_exitd1121z00_2279,
																																BgL_arg2581z00_4072);
																															BUNSPEC;
																														}
																													else
																														{	/* Llib/error.scm 860 */
																															BFALSE;
																														}
																												}
																												bgl_close_input_port
																													(BgL_portz00_2277);
																												return
																													BgL_tmp1123z00_2281;
																											}
																										}
																									}
																								else
																									{	/* Llib/error.scm 872 */
																										obj_t BgL_list1812z00_2306;

																										{	/* Llib/error.scm 872 */
																											obj_t BgL_arg1814z00_2307;

																											{	/* Llib/error.scm 872 */
																												obj_t
																													BgL_arg1816z00_2308;
																												{	/* Llib/error.scm 872 */
																													obj_t
																														BgL_arg1817z00_2309;
																													BgL_arg1817z00_2309 =
																														MAKE_YOUNG_PAIR
																														(BFALSE, BNIL);
																													BgL_arg1816z00_2308 =
																														MAKE_YOUNG_PAIR
																														(BgL_colz00_2272,
																														BgL_arg1817z00_2309);
																												}
																												BgL_arg1814z00_2307 =
																													MAKE_YOUNG_PAIR
																													(BgL_linez00_2271,
																													BgL_arg1816z00_2308);
																											}
																											BgL_list1812z00_2306 =
																												MAKE_YOUNG_PAIR
																												(BgL_filez00_2270,
																												BgL_arg1814z00_2307);
																										}
																										BGL_TAIL return
																											BGl_valuesz00zz__r5_control_features_6_4z00
																											(BgL_list1812z00_2306);
																									}
																							}
																						}
																					}
																				else
																					{	/* Llib/error.scm 873 */
																						obj_t BgL_list1823z00_2314;

																						{	/* Llib/error.scm 873 */
																							obj_t BgL_arg1824z00_2315;

																							{	/* Llib/error.scm 873 */
																								obj_t BgL_arg1825z00_2316;

																								{	/* Llib/error.scm 873 */
																									obj_t BgL_arg1826z00_2317;

																									BgL_arg1826z00_2317 =
																										MAKE_YOUNG_PAIR(BFALSE,
																										BNIL);
																									BgL_arg1825z00_2316 =
																										MAKE_YOUNG_PAIR
																										(BgL_colz00_2272,
																										BgL_arg1826z00_2317);
																								}
																								BgL_arg1824z00_2315 =
																									MAKE_YOUNG_PAIR
																									(BgL_linez00_2271,
																									BgL_arg1825z00_2316);
																							}
																							BgL_list1823z00_2314 =
																								MAKE_YOUNG_PAIR
																								(BgL_filez00_2270,
																								BgL_arg1824z00_2315);
																						}
																						BGL_TAIL return
																							BGl_valuesz00zz__r5_control_features_6_4z00
																							(BgL_list1823z00_2314);
																					}
																			}
																		}
																	else
																		{	/* Llib/error.scm 875 */
																			goto BgL_tagzd2217zd2_2174;
																		}
																}
															else
																{	/* Llib/error.scm 875 */
																	goto BgL_tagzd2217zd2_2174;
																}
														}
													else
														{	/* Llib/error.scm 875 */
															goto BgL_tagzd2217zd2_2174;
														}
												}
											else
												{	/* Llib/error.scm 875 */
													goto BgL_tagzd2217zd2_2174;
												}
										}
									else
										{	/* Llib/error.scm 875 */
											obj_t BgL_cdrzd2314zd2_2202;

											BgL_cdrzd2314zd2_2202 = CDR(((obj_t) BgL_locz00_93));
											if (
												(CAR(
														((obj_t) BgL_locz00_93)) ==
													BGl_symbol2841z00zz__errorz00))
												{	/* Llib/error.scm 875 */
													if (PAIRP(BgL_cdrzd2314zd2_2202))
														{	/* Llib/error.scm 875 */
															obj_t BgL_cdrzd2318zd2_2206;

															BgL_cdrzd2318zd2_2206 =
																CDR(BgL_cdrzd2314zd2_2202);
															if (PAIRP(BgL_cdrzd2318zd2_2206))
																{	/* Llib/error.scm 875 */
																	if (NULLP(CDR(BgL_cdrzd2318zd2_2206)))
																		{
																			obj_t BgL_colz00_7047;
																			obj_t BgL_linez00_7045;
																			obj_t BgL_filez00_7043;

																			BgL_filez00_7043 =
																				CAR(BgL_cdrzd2314zd2_2202);
																			BgL_linez00_7045 =
																				CAR(BgL_cdrzd2318zd2_2206);
																			BgL_colz00_7047 = BINT(0L);
																			BgL_colz00_2272 = BgL_colz00_7047;
																			BgL_linez00_2271 = BgL_linez00_7045;
																			BgL_filez00_2270 = BgL_filez00_7043;
																			goto
																				BgL_zc3z04anonymousza31791ze3z87_2273;
																		}
																	else
																		{	/* Llib/error.scm 875 */
																			goto BgL_tagzd2217zd2_2174;
																		}
																}
															else
																{	/* Llib/error.scm 875 */
																	goto BgL_tagzd2217zd2_2174;
																}
														}
													else
														{	/* Llib/error.scm 875 */
															goto BgL_tagzd2217zd2_2174;
														}
												}
											else
												{	/* Llib/error.scm 875 */
													goto BgL_tagzd2217zd2_2174;
												}
										}
								}
						}
					else
						{	/* Llib/error.scm 875 */
							goto BgL_tagzd2217zd2_2174;
						}
				}
			}
		}

	}



/* &<@anonymous:1811> */
	obj_t BGl_z62zc3z04anonymousza31811ze3ze5zz__errorz00(obj_t BgL_envz00_5205)
	{
		{	/* Llib/error.scm 860 */
			{	/* Llib/error.scm 871 */
				obj_t BgL_portz00_5206;

				BgL_portz00_5206 = PROCEDURE_REF(BgL_envz00_5205, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_portz00_5206));
			}
		}

	}



/* &<@anonymous:1782> */
	obj_t BGl_z62zc3z04anonymousza31782ze3ze5zz__errorz00(obj_t BgL_envz00_5207)
	{
		{	/* Llib/error.scm 836 */
			{	/* Llib/error.scm 850 */
				obj_t BgL_portz00_5208;

				BgL_portz00_5208 = PROCEDURE_REF(BgL_envz00_5207, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_portz00_5208));
			}
		}

	}



/* error-notify */
	BGL_EXPORTED_DEF obj_t BGl_errorzd2notifyzd2zz__errorz00(obj_t BgL_ez00_95)
	{
		{	/* Llib/error.scm 898 */
			{	/* Llib/error.scm 900 */
				bool_t BgL_test3267z00_7057;

				{	/* Llib/error.scm 900 */
					obj_t BgL_classz00_4103;

					BgL_classz00_4103 = BGl_z62errorz62zz__objectz00;
					if (BGL_OBJECTP(BgL_ez00_95))
						{	/* Llib/error.scm 900 */
							BgL_objectz00_bglt BgL_arg2702z00_4105;

							BgL_arg2702z00_4105 = (BgL_objectz00_bglt) (BgL_ez00_95);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Llib/error.scm 900 */
									long BgL_idxz00_4111;

									BgL_idxz00_4111 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2702z00_4105);
									BgL_test3267z00_7057 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_4111 + 3L)) == BgL_classz00_4103);
								}
							else
								{	/* Llib/error.scm 900 */
									bool_t BgL_res2720z00_4133;

									{	/* Llib/error.scm 900 */
										obj_t BgL_oclassz00_4119;

										{	/* Llib/error.scm 900 */
											long BgL_arg2709z00_4125;

											{	/* Llib/error.scm 900 */
												long BgL_arg2710z00_4126;

												BgL_arg2710z00_4126 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2702z00_4105);
												BgL_arg2709z00_4125 =
													(BgL_arg2710z00_4126 - OBJECT_TYPE);
											}
											BgL_oclassz00_4119 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg2709z00_4125);
										}
										{	/* Llib/error.scm 900 */
											bool_t BgL__ortest_1198z00_4120;

											BgL__ortest_1198z00_4120 =
												(BgL_classz00_4103 == BgL_oclassz00_4119);
											if (BgL__ortest_1198z00_4120)
												{	/* Llib/error.scm 900 */
													BgL_res2720z00_4133 = BgL__ortest_1198z00_4120;
												}
											else
												{	/* Llib/error.scm 900 */
													long BgL_odepthz00_4121;

													BgL_odepthz00_4121 =
														BGL_CLASS_DEPTH(BgL_oclassz00_4119);
													if ((3L < BgL_odepthz00_4121))
														{	/* Llib/error.scm 900 */
															obj_t BgL_arg2699z00_4123;

															BgL_arg2699z00_4123 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4119, 3L);
															BgL_res2720z00_4133 =
																(BgL_arg2699z00_4123 == BgL_classz00_4103);
														}
													else
														{	/* Llib/error.scm 900 */
															BgL_res2720z00_4133 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test3267z00_7057 = BgL_res2720z00_4133;
								}
						}
					else
						{	/* Llib/error.scm 900 */
							BgL_test3267z00_7057 = ((bool_t) 0);
						}
				}
				if (BgL_test3267z00_7057)
					{	/* Llib/error.scm 901 */
						bool_t BgL_test3272z00_7077;

						{	/* Llib/error.scm 893 */
							bool_t BgL_test3273z00_7078;

							{	/* Llib/error.scm 893 */
								obj_t BgL_tmpz00_7079;

								BgL_tmpz00_7079 =
									(((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_ez00_95)))->BgL_fnamez00);
								BgL_test3273z00_7078 = STRINGP(BgL_tmpz00_7079);
							}
							if (BgL_test3273z00_7078)
								{	/* Llib/error.scm 893 */
									BgL_test3272z00_7077 =
										BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(
										(((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_ez00_95)))->
											BgL_locationz00));
								}
							else
								{	/* Llib/error.scm 893 */
									BgL_test3272z00_7077 = ((bool_t) 0);
								}
						}
						if (BgL_test3272z00_7077)
							{	/* Llib/error.scm 903 */
								obj_t BgL_arg1831z00_2328;
								obj_t BgL_arg1832z00_2329;

								BgL_arg1831z00_2328 =
									(((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_ez00_95)))->BgL_fnamez00);
								BgL_arg1832z00_2329 =
									(((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_ez00_95)))->
									BgL_locationz00);
								return BGl_notifyzd2z62errorzf2locz42zz__errorz00(BgL_ez00_95,
									BgL_arg1831z00_2328, BgL_arg1832z00_2329);
							}
						else
							{	/* Llib/error.scm 901 */
								BGL_TAIL return
									BGl_notifyzd2z62errorzb0zz__errorz00(BgL_ez00_95);
							}
					}
				else
					{	/* Llib/error.scm 905 */
						bool_t BgL_test3274z00_7092;

						{	/* Llib/error.scm 905 */
							obj_t BgL_classz00_4138;

							BgL_classz00_4138 = BGl_z62conditionz62zz__objectz00;
							if (BGL_OBJECTP(BgL_ez00_95))
								{	/* Llib/error.scm 905 */
									BgL_objectz00_bglt BgL_arg2702z00_4140;

									BgL_arg2702z00_4140 = (BgL_objectz00_bglt) (BgL_ez00_95);
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Llib/error.scm 905 */
											long BgL_idxz00_4146;

											BgL_idxz00_4146 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg2702z00_4140);
											BgL_test3274z00_7092 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_4146 + 1L)) == BgL_classz00_4138);
										}
									else
										{	/* Llib/error.scm 905 */
											bool_t BgL_res2721z00_4168;

											{	/* Llib/error.scm 905 */
												obj_t BgL_oclassz00_4154;

												{	/* Llib/error.scm 905 */
													long BgL_arg2709z00_4160;

													{	/* Llib/error.scm 905 */
														long BgL_arg2710z00_4161;

														BgL_arg2710z00_4161 =
															BGL_OBJECT_CLASS_NUM(BgL_arg2702z00_4140);
														BgL_arg2709z00_4160 =
															(BgL_arg2710z00_4161 - OBJECT_TYPE);
													}
													BgL_oclassz00_4154 =
														VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
														BgL_arg2709z00_4160);
												}
												{	/* Llib/error.scm 905 */
													bool_t BgL__ortest_1198z00_4155;

													BgL__ortest_1198z00_4155 =
														(BgL_classz00_4138 == BgL_oclassz00_4154);
													if (BgL__ortest_1198z00_4155)
														{	/* Llib/error.scm 905 */
															BgL_res2721z00_4168 = BgL__ortest_1198z00_4155;
														}
													else
														{	/* Llib/error.scm 905 */
															long BgL_odepthz00_4156;

															BgL_odepthz00_4156 =
																BGL_CLASS_DEPTH(BgL_oclassz00_4154);
															if ((1L < BgL_odepthz00_4156))
																{	/* Llib/error.scm 905 */
																	obj_t BgL_arg2699z00_4158;

																	BgL_arg2699z00_4158 =
																		BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4154,
																		1L);
																	BgL_res2721z00_4168 =
																		(BgL_arg2699z00_4158 == BgL_classz00_4138);
																}
															else
																{	/* Llib/error.scm 905 */
																	BgL_res2721z00_4168 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test3274z00_7092 = BgL_res2721z00_4168;
										}
								}
							else
								{	/* Llib/error.scm 905 */
									BgL_test3274z00_7092 = ((bool_t) 0);
								}
						}
						if (BgL_test3274z00_7092)
							{	/* Llib/error.scm 906 */
								obj_t BgL_arg1834z00_2331;

								{	/* Llib/error.scm 906 */
									obj_t BgL_tmpz00_7112;

									BgL_tmpz00_7112 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_arg1834z00_2331 =
										BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7112);
								}
								{	/* Llib/error.scm 906 */
									obj_t BgL_list1835z00_2332;

									{	/* Llib/error.scm 906 */
										obj_t BgL_arg1836z00_2333;

										BgL_arg1836z00_2333 = MAKE_YOUNG_PAIR(BgL_ez00_95, BNIL);
										BgL_list1835z00_2332 =
											MAKE_YOUNG_PAIR(BGl_string2843z00zz__errorz00,
											BgL_arg1836z00_2333);
									}
									return
										BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg1834z00_2331,
										BgL_list1835z00_2332);
								}
							}
						else
							{	/* Llib/error.scm 905 */
								return BFALSE;
							}
					}
			}
		}

	}



/* &error-notify */
	obj_t BGl_z62errorzd2notifyzb0zz__errorz00(obj_t BgL_envz00_5209,
		obj_t BgL_ez00_5210)
	{
		{	/* Llib/error.scm 898 */
			return BGl_errorzd2notifyzd2zz__errorz00(BgL_ez00_5210);
		}

	}



/* 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 911 */
			{	/* Llib/error.scm 912 */
				bool_t BgL_test3279z00_7119;

				{	/* Llib/error.scm 912 */
					obj_t BgL_classz00_4171;

					BgL_classz00_4171 = BGl_z62errorz62zz__objectz00;
					if (BGL_OBJECTP(BgL_ez00_96))
						{	/* Llib/error.scm 912 */
							BgL_objectz00_bglt BgL_arg2702z00_4173;

							BgL_arg2702z00_4173 = (BgL_objectz00_bglt) (BgL_ez00_96);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Llib/error.scm 912 */
									long BgL_idxz00_4179;

									BgL_idxz00_4179 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2702z00_4173);
									BgL_test3279z00_7119 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_4179 + 3L)) == BgL_classz00_4171);
								}
							else
								{	/* Llib/error.scm 912 */
									bool_t BgL_res2722z00_4201;

									{	/* Llib/error.scm 912 */
										obj_t BgL_oclassz00_4187;

										{	/* Llib/error.scm 912 */
											long BgL_arg2709z00_4193;

											{	/* Llib/error.scm 912 */
												long BgL_arg2710z00_4194;

												BgL_arg2710z00_4194 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2702z00_4173);
												BgL_arg2709z00_4193 =
													(BgL_arg2710z00_4194 - OBJECT_TYPE);
											}
											BgL_oclassz00_4187 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg2709z00_4193);
										}
										{	/* Llib/error.scm 912 */
											bool_t BgL__ortest_1198z00_4188;

											BgL__ortest_1198z00_4188 =
												(BgL_classz00_4171 == BgL_oclassz00_4187);
											if (BgL__ortest_1198z00_4188)
												{	/* Llib/error.scm 912 */
													BgL_res2722z00_4201 = BgL__ortest_1198z00_4188;
												}
											else
												{	/* Llib/error.scm 912 */
													long BgL_odepthz00_4189;

													BgL_odepthz00_4189 =
														BGL_CLASS_DEPTH(BgL_oclassz00_4187);
													if ((3L < BgL_odepthz00_4189))
														{	/* Llib/error.scm 912 */
															obj_t BgL_arg2699z00_4191;

															BgL_arg2699z00_4191 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4187, 3L);
															BgL_res2722z00_4201 =
																(BgL_arg2699z00_4191 == BgL_classz00_4171);
														}
													else
														{	/* Llib/error.scm 912 */
															BgL_res2722z00_4201 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test3279z00_7119 = BgL_res2722z00_4201;
								}
						}
					else
						{	/* Llib/error.scm 912 */
							BgL_test3279z00_7119 = ((bool_t) 0);
						}
				}
				if (BgL_test3279z00_7119)
					{	/* Llib/error.scm 912 */
						return
							BGl_notifyzd2z62errorzf2locz42zz__errorz00(BgL_ez00_96,
							BgL_fnamez00_97, BINT(BgL_locationz00_98));
					}
				else
					{	/* Llib/error.scm 912 */
						return BFALSE;
					}
			}
		}

	}



/* &error-notify/location */
	obj_t BGl_z62errorzd2notifyzf2locationz42zz__errorz00(obj_t BgL_envz00_5211,
		obj_t BgL_ez00_5212, obj_t BgL_fnamez00_5213, obj_t BgL_locationz00_5214)
	{
		{	/* Llib/error.scm 911 */
			{	/* Llib/error.scm 912 */
				int BgL_auxz00_7148;
				obj_t BgL_auxz00_7141;

				{	/* Llib/error.scm 912 */
					obj_t BgL_tmpz00_7149;

					if (INTEGERP(BgL_locationz00_5214))
						{	/* Llib/error.scm 912 */
							BgL_tmpz00_7149 = BgL_locationz00_5214;
						}
					else
						{
							obj_t BgL_auxz00_7152;

							BgL_auxz00_7152 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(36725L), BGl_string2844z00zz__errorz00,
								BGl_string2791z00zz__errorz00, BgL_locationz00_5214);
							FAILURE(BgL_auxz00_7152, BFALSE, BFALSE);
						}
					BgL_auxz00_7148 = CINT(BgL_tmpz00_7149);
				}
				if (STRINGP(BgL_fnamez00_5213))
					{	/* Llib/error.scm 912 */
						BgL_auxz00_7141 = BgL_fnamez00_5213;
					}
				else
					{
						obj_t BgL_auxz00_7144;

						BgL_auxz00_7144 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(36725L), BGl_string2844z00zz__errorz00,
							BGl_string2816z00zz__errorz00, BgL_fnamez00_5213);
						FAILURE(BgL_auxz00_7144, BFALSE, BFALSE);
					}
				return
					BGl_errorzd2notifyzf2locationz20zz__errorz00(BgL_ez00_5212,
					BgL_auxz00_7141, BgL_auxz00_7148);
			}
		}

	}



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

				{	/* Llib/error.scm 932 */
					bool_t BgL_test3286z00_7158;

					{	/* Llib/error.scm 932 */
						int BgL_arg1855z00_2356;

						BgL_arg1855z00_2356 = BGl_bigloozd2warningzd2zz__paramz00();
						BgL_test3286z00_7158 = ((long) (BgL_arg1855z00_2356) > 0L);
					}
					if (BgL_test3286z00_7158)
						{	/* Llib/error.scm 932 */
							{	/* Llib/error.scm 933 */
								bool_t BgL_test3287z00_7162;

								{	/* Llib/error.scm 893 */
									bool_t BgL_test3288z00_7163;

									{	/* Llib/error.scm 893 */
										obj_t BgL_tmpz00_7164;

										BgL_tmpz00_7164 =
											(((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_ez00_99)))->
											BgL_fnamez00);
										BgL_test3288z00_7163 = STRINGP(BgL_tmpz00_7164);
									}
									if (BgL_test3288z00_7163)
										{	/* Llib/error.scm 893 */
											BgL_test3287z00_7162 =
												BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(
												(((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt) BgL_ez00_99)))->
													BgL_locationz00));
										}
									else
										{	/* Llib/error.scm 893 */
											BgL_test3287z00_7162 = ((bool_t) 0);
										}
								}
								if (BgL_test3287z00_7162)
									{	/* Llib/error.scm 936 */
										bool_t BgL_test3289z00_7171;

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

											BgL_arg1851z00_2348 =
												(((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt)
															((BgL_z62warningz62_bglt) BgL_ez00_99))))->
												BgL_fnamez00);
											{	/* Llib/error.scm 936 */
												long BgL_l1z00_4221;

												BgL_l1z00_4221 =
													STRING_LENGTH(((obj_t) BgL_arg1851z00_2348));
												if ((BgL_l1z00_4221 == 8L))
													{	/* Llib/error.scm 936 */
														int BgL_arg2296z00_4224;

														{	/* Llib/error.scm 936 */
															char *BgL_auxz00_7182;
															char *BgL_tmpz00_7179;

															BgL_auxz00_7182 =
																BSTRING_TO_STRING
																(BGl_string2847z00zz__errorz00);
															BgL_tmpz00_7179 =
																BSTRING_TO_STRING(((obj_t)
																	BgL_arg1851z00_2348));
															BgL_arg2296z00_4224 =
																memcmp(BgL_tmpz00_7179, BgL_auxz00_7182,
																BgL_l1z00_4221);
														}
														BgL_test3289z00_7171 =
															((long) (BgL_arg2296z00_4224) == 0L);
													}
												else
													{	/* Llib/error.scm 936 */
														BgL_test3289z00_7171 = ((bool_t) 0);
													}
											}
										}
										if (BgL_test3289z00_7171)
											{	/* Llib/error.scm 936 */
												BgL_ez00_2357 = BgL_ez00_99;
											BgL_zc3z04anonymousza31856ze3z87_2358:
												{	/* Llib/error.scm 920 */
													obj_t BgL_arg1857z00_2359;

													{	/* Llib/error.scm 920 */
														obj_t BgL_tmpz00_7187;

														BgL_tmpz00_7187 = BGL_CURRENT_DYNAMIC_ENV();
														BgL_arg1857z00_2359 =
															BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_7187);
													}
													bgl_flush_output_port(BgL_arg1857z00_2359);
												}
												{	/* Llib/error.scm 921 */
													obj_t BgL_arg1860z00_2360;

													{	/* Llib/error.scm 921 */
														obj_t BgL_tmpz00_7191;

														BgL_tmpz00_7191 = BGL_CURRENT_DYNAMIC_ENV();
														BgL_arg1860z00_2360 =
															BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7191);
													}
													{	/* Llib/error.scm 921 */
														obj_t BgL_list1861z00_2361;

														BgL_list1861z00_2361 =
															MAKE_YOUNG_PAIR(BgL_arg1860z00_2360, BNIL);
														BGl_displayz00zz__r4_output_6_10_3z00
															(BGl_string2845z00zz__errorz00,
															BgL_list1861z00_2361);
													}
												}
												if (NULLP(
														(((BgL_z62warningz62_bglt) COBJECT(
																	((BgL_z62warningz62_bglt) BgL_ez00_2357)))->
															BgL_argsz00)))
													{	/* Llib/error.scm 923 */
														BFALSE;
													}
												else
													{	/* Llib/error.scm 923 */
														{	/* Llib/error.scm 925 */
															obj_t BgL_arg1866z00_2365;
															obj_t BgL_arg1867z00_2366;

															{	/* Llib/error.scm 925 */
																obj_t BgL_pairz00_4205;

																BgL_pairz00_4205 =
																	(((BgL_z62warningz62_bglt) COBJECT(
																			((BgL_z62warningz62_bglt)
																				BgL_ez00_2357)))->BgL_argsz00);
																BgL_arg1866z00_2365 = CAR(BgL_pairz00_4205);
															}
															{	/* Llib/error.scm 925 */
																obj_t BgL_tmpz00_7203;

																BgL_tmpz00_7203 = BGL_CURRENT_DYNAMIC_ENV();
																BgL_arg1867z00_2366 =
																	BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7203);
															}
															BGl_displayzd2circlezd2zz__pp_circlez00
																(BgL_arg1866z00_2365, BgL_arg1867z00_2366);
														}
														{	/* Llib/error.scm 926 */
															obj_t BgL_arg1870z00_2368;

															{	/* Llib/error.scm 926 */
																obj_t BgL_tmpz00_7207;

																BgL_tmpz00_7207 = BGL_CURRENT_DYNAMIC_ENV();
																BgL_arg1870z00_2368 =
																	BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7207);
															}
															{	/* Llib/error.scm 926 */
																obj_t BgL_list1871z00_2369;

																BgL_list1871z00_2369 =
																	MAKE_YOUNG_PAIR(BgL_arg1870z00_2368, BNIL);
																BGl_newlinez00zz__r4_output_6_10_3z00
																	(BgL_list1871z00_2369);
															}
														}
														{	/* Llib/error.scm 927 */
															obj_t BgL_arg1873z00_2371;

															{	/* Llib/error.scm 929 */
																obj_t BgL_pairz00_4208;

																BgL_pairz00_4208 =
																	(((BgL_z62warningz62_bglt) COBJECT(
																			((BgL_z62warningz62_bglt)
																				BgL_ez00_2357)))->BgL_argsz00);
																BgL_arg1873z00_2371 = CDR(BgL_pairz00_4208);
															}
															{	/* Llib/error.scm 927 */
																obj_t BgL_list1874z00_2372;

																BgL_list1874z00_2372 =
																	MAKE_YOUNG_PAIR(BgL_arg1873z00_2371, BNIL);
																BGl_forzd2eachzd2zz__r4_control_features_6_9z00
																	(BGl_proc2846z00zz__errorz00,
																	BgL_list1874z00_2372);
															}
														}
													}
												{	/* Llib/error.scm 930 */
													obj_t BgL_arg1880z00_2379;

													{	/* Llib/error.scm 930 */
														obj_t BgL_tmpz00_7217;

														BgL_tmpz00_7217 = BGL_CURRENT_DYNAMIC_ENV();
														BgL_arg1880z00_2379 =
															BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7217);
													}
													{	/* Llib/error.scm 930 */
														obj_t BgL_list1881z00_2380;

														BgL_list1881z00_2380 =
															MAKE_YOUNG_PAIR(BgL_arg1880z00_2379, BNIL);
														BGl_newlinez00zz__r4_output_6_10_3z00
															(BgL_list1881z00_2380);
													}
												}
												{	/* Llib/error.scm 931 */
													obj_t BgL_arg1882z00_2381;

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

														BgL_tmpz00_7222 = BGL_CURRENT_DYNAMIC_ENV();
														BgL_arg1882z00_2381 =
															BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7222);
													}
													bgl_flush_output_port(BgL_arg1882z00_2381);
												}
											}
										else
											{	/* Llib/error.scm 938 */
												bool_t BgL_test3292z00_7226;

												{	/* Llib/error.scm 938 */
													obj_t BgL_arg1850z00_2347;

													BgL_arg1850z00_2347 =
														(((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	((BgL_z62warningz62_bglt) BgL_ez00_99))))->
														BgL_fnamez00);
													{	/* Llib/error.scm 938 */
														long BgL_l1z00_4232;

														BgL_l1z00_4232 =
															STRING_LENGTH(((obj_t) BgL_arg1850z00_2347));
														if ((BgL_l1z00_4232 == 7L))
															{	/* Llib/error.scm 938 */
																int BgL_arg2296z00_4235;

																{	/* Llib/error.scm 938 */
																	char *BgL_auxz00_7237;
																	char *BgL_tmpz00_7234;

																	BgL_auxz00_7237 =
																		BSTRING_TO_STRING
																		(BGl_string2848z00zz__errorz00);
																	BgL_tmpz00_7234 =
																		BSTRING_TO_STRING(((obj_t)
																			BgL_arg1850z00_2347));
																	BgL_arg2296z00_4235 =
																		memcmp(BgL_tmpz00_7234, BgL_auxz00_7237,
																		BgL_l1z00_4232);
																}
																BgL_test3292z00_7226 =
																	((long) (BgL_arg2296z00_4235) == 0L);
															}
														else
															{	/* Llib/error.scm 938 */
																BgL_test3292z00_7226 = ((bool_t) 0);
															}
													}
												}
												if (BgL_test3292z00_7226)
													{
														obj_t BgL_ez00_7242;

														BgL_ez00_7242 = BgL_ez00_99;
														BgL_ez00_2357 = BgL_ez00_7242;
														goto BgL_zc3z04anonymousza31856ze3z87_2358;
													}
												else
													{	/* Llib/error.scm 941 */
														obj_t BgL_arg1845z00_2344;
														obj_t BgL_arg1846z00_2345;
														obj_t BgL_arg1848z00_2346;

														BgL_arg1845z00_2344 =
															(((BgL_z62exceptionz62_bglt) COBJECT(
																	((BgL_z62exceptionz62_bglt)
																		((BgL_z62warningz62_bglt) BgL_ez00_99))))->
															BgL_fnamez00);
														BgL_arg1846z00_2345 =
															(((BgL_z62exceptionz62_bglt)
																COBJECT(((BgL_z62exceptionz62_bglt) (
																			(BgL_z62warningz62_bglt) BgL_ez00_99))))->
															BgL_locationz00);
														BgL_arg1848z00_2346 =
															(((BgL_z62warningz62_bglt)
																COBJECT(((BgL_z62warningz62_bglt)
																		BgL_ez00_99)))->BgL_argsz00);
														BGl_warningzf2locationzd2filez20zz__errorz00
															(BgL_arg1845z00_2344, BgL_arg1846z00_2345,
															BgL_arg1848z00_2346);
													}
											}
									}
								else
									{
										obj_t BgL_ez00_7252;

										BgL_ez00_7252 = BgL_ez00_99;
										BgL_ez00_2357 = BgL_ez00_7252;
										goto BgL_zc3z04anonymousza31856ze3z87_2358;
									}
							}
							if (CBOOL(
									(((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt)
													((BgL_z62warningz62_bglt) BgL_ez00_99))))->
										BgL_stackz00)))
								{	/* Llib/error.scm 946 */
									obj_t BgL_arg1853z00_2351;
									obj_t BgL_arg1854z00_2352;

									BgL_arg1853z00_2351 =
										(((BgL_z62exceptionz62_bglt) COBJECT(
												((BgL_z62exceptionz62_bglt)
													((BgL_z62warningz62_bglt) BgL_ez00_99))))->
										BgL_stackz00);
									{	/* Llib/error.scm 946 */
										obj_t BgL_tmpz00_7261;

										BgL_tmpz00_7261 = BGL_CURRENT_DYNAMIC_ENV();
										BgL_arg1854z00_2352 =
											BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7261);
									}
									{	/* Llib/error.scm 273 */

										BGl_displayzd2tracezd2stackz00zz__errorz00
											(BgL_arg1853z00_2351, BgL_arg1854z00_2352, BINT(1L));
									}
								}
							else
								{	/* Llib/error.scm 945 */
									BFALSE;
								}
						}
					else
						{	/* Llib/error.scm 932 */
							BFALSE;
						}
				}
				return BFALSE;
			}
		}

	}



/* &warning-notify */
	obj_t BGl_z62warningzd2notifyzb0zz__errorz00(obj_t BgL_envz00_5216,
		obj_t BgL_ez00_5217)
	{
		{	/* Llib/error.scm 918 */
			return BGl_warningzd2notifyzd2zz__errorz00(BgL_ez00_5217);
		}

	}



/* &<@anonymous:1875> */
	obj_t BGl_z62zc3z04anonymousza31875ze3ze5zz__errorz00(obj_t BgL_envz00_5218,
		obj_t BgL_az00_5219)
	{
		{	/* Llib/error.scm 927 */
			{	/* Llib/error.scm 928 */
				obj_t BgL_arg1876z00_5319;

				{	/* Llib/error.scm 928 */
					obj_t BgL_tmpz00_7267;

					BgL_tmpz00_7267 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1876z00_5319 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7267);
				}
				return
					BGl_displayzd2circlezd2zz__pp_circlez00(BgL_az00_5219,
					BgL_arg1876z00_5319);
			}
		}

	}



/* 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 952 */
			{	/* Llib/error.scm 953 */
				bool_t BgL_test3295z00_7271;

				{	/* Llib/error.scm 953 */
					int BgL_arg1886z00_4243;

					BgL_arg1886z00_4243 = BGl_bigloozd2warningzd2zz__paramz00();
					BgL_test3295z00_7271 = ((long) (BgL_arg1886z00_4243) > 0L);
				}
				if (BgL_test3295z00_7271)
					{	/* Llib/error.scm 955 */
						obj_t BgL_arg1885z00_4245;

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

	}



/* &warning-notify/location */
	obj_t BGl_z62warningzd2notifyzf2locationz42zz__errorz00(obj_t BgL_envz00_5220,
		obj_t BgL_ez00_5221, obj_t BgL_fnamez00_5222, obj_t BgL_locationz00_5223)
	{
		{	/* Llib/error.scm 952 */
			{	/* Llib/error.scm 953 */
				int BgL_auxz00_7286;
				obj_t BgL_auxz00_7279;

				{	/* Llib/error.scm 953 */
					obj_t BgL_tmpz00_7287;

					if (INTEGERP(BgL_locationz00_5223))
						{	/* Llib/error.scm 953 */
							BgL_tmpz00_7287 = BgL_locationz00_5223;
						}
					else
						{
							obj_t BgL_auxz00_7290;

							BgL_auxz00_7290 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(38238L), BGl_string2849z00zz__errorz00,
								BGl_string2791z00zz__errorz00, BgL_locationz00_5223);
							FAILURE(BgL_auxz00_7290, BFALSE, BFALSE);
						}
					BgL_auxz00_7286 = CINT(BgL_tmpz00_7287);
				}
				if (STRINGP(BgL_fnamez00_5222))
					{	/* Llib/error.scm 953 */
						BgL_auxz00_7279 = BgL_fnamez00_5222;
					}
				else
					{
						obj_t BgL_auxz00_7282;

						BgL_auxz00_7282 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(38238L), BGl_string2849z00zz__errorz00,
							BGl_string2816z00zz__errorz00, BgL_fnamez00_5222);
						FAILURE(BgL_auxz00_7282, BFALSE, BFALSE);
					}
				return
					BGl_warningzd2notifyzf2locationz20zz__errorz00(BgL_ez00_5221,
					BgL_auxz00_7279, BgL_auxz00_7286);
			}
		}

	}



/* 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 960 */
			{	/* Llib/error.scm 962 */
				obj_t BgL_portz00_2388;

				BgL_portz00_2388 =
					BGl_openzd2forzd2errorz00zz__errorz00(BgL_fnamez00_103);
				if (INPUT_PORTP(BgL_portz00_2388))
					{	/* Llib/error.scm 968 */
						obj_t BgL_filez00_2390;

						{	/* Llib/error.scm 969 */
							obj_t BgL_arg1889z00_2395;

							{	/* Llib/error.scm 969 */
								obj_t BgL_list1890z00_2396;

								{	/* Llib/error.scm 969 */
									obj_t BgL_arg1892z00_2397;

									{	/* Llib/error.scm 969 */
										obj_t BgL_arg1893z00_2398;

										BgL_arg1893z00_2398 = MAKE_YOUNG_PAIR(BNIL, BNIL);
										BgL_arg1892z00_2397 =
											MAKE_YOUNG_PAIR(BgL_locz00_104, BgL_arg1893z00_2398);
									}
									BgL_list1890z00_2396 =
										MAKE_YOUNG_PAIR(BgL_fnamez00_103, BgL_arg1892z00_2397);
								}
								BgL_arg1889z00_2395 =
									BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
									(BGl_symbol2793z00zz__errorz00, BgL_list1890z00_2396);
							}
							BgL_filez00_2390 =
								BGl_locationzd2linezd2numz00zz__errorz00(BgL_arg1889z00_2395);
						}
						{	/* Llib/error.scm 969 */
							obj_t BgL_lnumz00_2391;
							obj_t BgL_lpointz00_2392;
							obj_t BgL_lstringz00_2393;

							{	/* Llib/error.scm 970 */
								obj_t BgL_tmpz00_4247;

								{	/* Llib/error.scm 970 */
									int BgL_tmpz00_7304;

									BgL_tmpz00_7304 = (int) (1L);
									BgL_tmpz00_4247 = BGL_MVALUES_VAL(BgL_tmpz00_7304);
								}
								{	/* Llib/error.scm 970 */
									int BgL_tmpz00_7307;

									BgL_tmpz00_7307 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_7307, BUNSPEC);
								}
								BgL_lnumz00_2391 = BgL_tmpz00_4247;
							}
							{	/* Llib/error.scm 970 */
								obj_t BgL_tmpz00_4248;

								{	/* Llib/error.scm 970 */
									int BgL_tmpz00_7310;

									BgL_tmpz00_7310 = (int) (2L);
									BgL_tmpz00_4248 = BGL_MVALUES_VAL(BgL_tmpz00_7310);
								}
								{	/* Llib/error.scm 970 */
									int BgL_tmpz00_7313;

									BgL_tmpz00_7313 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_7313, BUNSPEC);
								}
								BgL_lpointz00_2392 = BgL_tmpz00_4248;
							}
							{	/* Llib/error.scm 970 */
								obj_t BgL_tmpz00_4249;

								{	/* Llib/error.scm 970 */
									int BgL_tmpz00_7316;

									BgL_tmpz00_7316 = (int) (3L);
									BgL_tmpz00_4249 = BGL_MVALUES_VAL(BgL_tmpz00_7316);
								}
								{	/* Llib/error.scm 970 */
									int BgL_tmpz00_7319;

									BgL_tmpz00_7319 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_7319, BUNSPEC);
								}
								BgL_lstringz00_2393 = BgL_tmpz00_4249;
							}
							if (CBOOL(BgL_lnumz00_2391))
								{	/* Llib/error.scm 970 */
									return
										BGl_dozd2warnzf2locationz20zz__errorz00(BgL_fnamez00_103,
										BgL_lnumz00_2391, BgL_locz00_104, BgL_lstringz00_2393,
										BgL_lpointz00_2392, BgL_argsz00_105);
								}
							else
								{	/* Llib/error.scm 970 */
									return BGl_warningz00zz__errorz00(BgL_argsz00_105);
								}
						}
					}
				else
					{	/* Llib/error.scm 963 */
						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 977 */
			{	/* Llib/error.scm 978 */
				obj_t BgL_arg1895z00_2400;

				{	/* Llib/error.scm 978 */
					obj_t BgL_tmpz00_7327;

					BgL_tmpz00_7327 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1895z00_2400 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_7327);
				}
				bgl_flush_output_port(BgL_arg1895z00_2400);
			}
			{	/* Llib/error.scm 979 */
				obj_t BgL_arg1896z00_2401;

				{	/* Llib/error.scm 979 */
					obj_t BgL_tmpz00_7331;

					BgL_tmpz00_7331 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1896z00_2401 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7331);
				}
				{	/* Llib/error.scm 979 */
					obj_t BgL_list1897z00_2402;

					BgL_list1897z00_2402 = MAKE_YOUNG_PAIR(BgL_arg1896z00_2401, BNIL);
					BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1897z00_2402);
				}
			}
			{	/* Llib/error.scm 980 */
				obj_t BgL_spacezd2stringzd2_2403;

				if (((long) CINT(BgL_markerz00_110) > 0L))
					{	/* Llib/error.scm 980 */
						BgL_spacezd2stringzd2_2403 =
							make_string(
							(long) CINT(BgL_markerz00_110), ((unsigned char) ' '));
					}
				else
					{	/* Llib/error.scm 980 */
						BgL_spacezd2stringzd2_2403 = BGl_string2834z00zz__errorz00;
					}
				{	/* Llib/error.scm 980 */
					long BgL_lz00_2404;

					BgL_lz00_2404 = STRING_LENGTH(((obj_t) BgL_stringz00_109));
					{	/* Llib/error.scm 983 */
						obj_t BgL_nzd2markerzd2_2405;

						if (((long) CINT(BgL_markerz00_110) >= BgL_lz00_2404))
							{	/* Llib/error.scm 984 */
								BgL_nzd2markerzd2_2405 = BINT(BgL_lz00_2404);
							}
						else
							{	/* Llib/error.scm 984 */
								BgL_nzd2markerzd2_2405 = BgL_markerz00_110;
							}
						{	/* Llib/error.scm 984 */

							BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_nzd2markerzd2_2405,
								BgL_stringz00_109, BgL_spacezd2stringzd2_2403);
							BGl_printzd2cursorzd2zz__errorz00(BgL_fnamez00_106,
								BgL_linez00_107, BgL_charz00_108, BgL_stringz00_109,
								BgL_spacezd2stringzd2_2403);
							{	/* Llib/error.scm 990 */
								obj_t BgL_arg1898z00_2406;

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

									BgL_tmpz00_7349 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_arg1898z00_2406 =
										BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7349);
								}
								{	/* Llib/error.scm 990 */
									obj_t BgL_list1899z00_2407;

									BgL_list1899z00_2407 =
										MAKE_YOUNG_PAIR(BgL_arg1898z00_2406, BNIL);
									BGl_displayz00zz__r4_output_6_10_3z00
										(BGl_string2845z00zz__errorz00, BgL_list1899z00_2407);
								}
							}
							if (NULLP(BgL_argsz00_111))
								{	/* Llib/error.scm 991 */
									BFALSE;
								}
							else
								{	/* Llib/error.scm 992 */
									obj_t BgL_portz00_2409;

									{	/* Llib/error.scm 992 */
										obj_t BgL_tmpz00_7356;

										BgL_tmpz00_7356 = BGL_CURRENT_DYNAMIC_ENV();
										BgL_portz00_2409 =
											BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7356);
									}
									{	/* Llib/error.scm 993 */
										obj_t BgL_arg1901z00_2410;

										BgL_arg1901z00_2410 = CAR(((obj_t) BgL_argsz00_111));
										BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1901z00_2410,
											BgL_portz00_2409);
									}
									{	/* Llib/error.scm 994 */
										obj_t BgL_list1902z00_2411;

										BgL_list1902z00_2411 =
											MAKE_YOUNG_PAIR(BgL_portz00_2409, BNIL);
										BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1902z00_2411);
									}
									{	/* Llib/error.scm 995 */
										obj_t BgL_arg1908z00_2413;

										BgL_arg1908z00_2413 = CDR(((obj_t) BgL_argsz00_111));
										{	/* Llib/error.scm 995 */
											obj_t BgL_list1909z00_2414;

											BgL_list1909z00_2414 =
												MAKE_YOUNG_PAIR(BgL_arg1908z00_2413, BNIL);
											BGl_forzd2eachzd2zz__r4_control_features_6_9z00
												(BGl_proc2850z00zz__errorz00, BgL_list1909z00_2414);
										}
									}
								}
							{	/* Llib/error.scm 998 */
								obj_t BgL_arg1914z00_2419;

								{	/* Llib/error.scm 998 */
									obj_t BgL_tmpz00_7368;

									BgL_tmpz00_7368 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_arg1914z00_2419 =
										BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7368);
								}
								{	/* Llib/error.scm 998 */
									obj_t BgL_list1915z00_2420;

									BgL_list1915z00_2420 =
										MAKE_YOUNG_PAIR(BgL_arg1914z00_2419, BNIL);
									BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1915z00_2420);
								}
							}
							{	/* Llib/error.scm 999 */
								obj_t BgL_arg1916z00_2421;

								{	/* Llib/error.scm 999 */
									obj_t BgL_tmpz00_7373;

									BgL_tmpz00_7373 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_arg1916z00_2421 =
										BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7373);
								}
								return bgl_flush_output_port(BgL_arg1916z00_2421);
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1910> */
	obj_t BGl_z62zc3z04anonymousza31910ze3ze5zz__errorz00(obj_t BgL_envz00_5225,
		obj_t BgL_az00_5226)
	{
		{	/* Llib/error.scm 995 */
			{	/* Llib/error.scm 996 */
				obj_t BgL_arg1911z00_5320;

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

					BgL_tmpz00_7377 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg1911z00_5320 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7377);
				}
				return
					BGl_displayzd2circlezd2zz__pp_circlez00(BgL_az00_5226,
					BgL_arg1911z00_5320);
			}
		}

	}



/* _display-trace-stack */
	obj_t BGl__displayzd2tracezd2stackz00zz__errorz00(obj_t BgL_env1216z00_117,
		obj_t BgL_opt1215z00_116)
	{
		{	/* Llib/error.scm 1012 */
			{	/* Llib/error.scm 1012 */
				obj_t BgL_g1217z00_2426;
				obj_t BgL_g1218z00_2427;

				BgL_g1217z00_2426 = VECTOR_REF(BgL_opt1215z00_116, 0L);
				BgL_g1218z00_2427 = VECTOR_REF(BgL_opt1215z00_116, 1L);
				switch (VECTOR_LENGTH(BgL_opt1215z00_116))
					{
					case 2L:

						{	/* Llib/error.scm 1012 */

							{	/* Llib/error.scm 1012 */
								obj_t BgL_auxz00_7383;

								if (OUTPUT_PORTP(BgL_g1218z00_2427))
									{	/* Llib/error.scm 1012 */
										BgL_auxz00_7383 = BgL_g1218z00_2427;
									}
								else
									{
										obj_t BgL_auxz00_7386;

										BgL_auxz00_7386 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2789z00zz__errorz00, BINT(40874L),
											BGl_string2851z00zz__errorz00,
											BGl_string2852z00zz__errorz00, BgL_g1218z00_2427);
										FAILURE(BgL_auxz00_7386, BFALSE, BFALSE);
									}
								return
									BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_g1217z00_2426,
									BgL_auxz00_7383, BINT(1L));
							}
						}
						break;
					case 3L:

						{	/* Llib/error.scm 1012 */
							obj_t BgL_offsetz00_2431;

							BgL_offsetz00_2431 = VECTOR_REF(BgL_opt1215z00_116, 2L);
							{	/* Llib/error.scm 1012 */

								{	/* Llib/error.scm 1012 */
									obj_t BgL_auxz00_7393;

									if (OUTPUT_PORTP(BgL_g1218z00_2427))
										{	/* Llib/error.scm 1012 */
											BgL_auxz00_7393 = BgL_g1218z00_2427;
										}
									else
										{
											obj_t BgL_auxz00_7396;

											BgL_auxz00_7396 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2789z00zz__errorz00, BINT(40874L),
												BGl_string2851z00zz__errorz00,
												BGl_string2852z00zz__errorz00, BgL_g1218z00_2427);
											FAILURE(BgL_auxz00_7396, BFALSE, BFALSE);
										}
									return
										BGl_displayzd2tracezd2stackz00zz__errorz00
										(BgL_g1217z00_2426, BgL_auxz00_7393, BgL_offsetz00_2431);
								}
							}
						}
						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 1012 */
			if (PAIRP(BgL_stackz00_113))
				{	/* Llib/error.scm 1096 */
					obj_t BgL_g1134z00_2435;
					obj_t BgL_g1135z00_2436;

					BgL_g1134z00_2435 = CDR(BgL_stackz00_113);
					BgL_g1135z00_2436 = CAR(BgL_stackz00_113);
					{
						obj_t BgL_iz00_2438;
						obj_t BgL_stkz00_2439;
						obj_t BgL_hdsz00_2440;
						long BgL_hdnz00_2441;

						BgL_iz00_2438 = BgL_offsetz00_115;
						BgL_stkz00_2439 = BgL_g1134z00_2435;
						BgL_hdsz00_2440 = BgL_g1135z00_2436;
						BgL_hdnz00_2441 = 1L;
					BgL_zc3z04anonymousza31921ze3z87_2442:
						if (NULLP(BgL_stkz00_2439))
							{	/* Llib/error.scm 1101 */
								BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00
									(BgL_portz00_114, BgL_hdsz00_2440, BgL_iz00_2438,
									BgL_hdnz00_2441);
								return bgl_flush_output_port(BgL_portz00_114);
							}
						else
							{	/* Llib/error.scm 1101 */
								if (PAIRP(BgL_stkz00_2439))
									{	/* Llib/error.scm 1104 */
										if ((CAR(BgL_stkz00_2439) == BgL_hdsz00_2440))
											{	/* Llib/error.scm 1109 */
												long BgL_arg1926z00_2447;
												obj_t BgL_arg1927z00_2448;
												long BgL_arg1928z00_2449;

												BgL_arg1926z00_2447 = ((long) CINT(BgL_iz00_2438) + 1L);
												BgL_arg1927z00_2448 = CDR(BgL_stkz00_2439);
												BgL_arg1928z00_2449 = (BgL_hdnz00_2441 + 1L);
												{
													long BgL_hdnz00_7423;
													obj_t BgL_stkz00_7422;
													obj_t BgL_iz00_7420;

													BgL_iz00_7420 = BINT(BgL_arg1926z00_2447);
													BgL_stkz00_7422 = BgL_arg1927z00_2448;
													BgL_hdnz00_7423 = BgL_arg1928z00_2449;
													BgL_hdnz00_2441 = BgL_hdnz00_7423;
													BgL_stkz00_2439 = BgL_stkz00_7422;
													BgL_iz00_2438 = BgL_iz00_7420;
													goto BgL_zc3z04anonymousza31921ze3z87_2442;
												}
											}
										else
											{
												long BgL_hdnz00_7430;
												obj_t BgL_hdsz00_7428;
												obj_t BgL_stkz00_7426;
												obj_t BgL_iz00_7424;

												BgL_iz00_7424 =
													BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00
													(BgL_portz00_114, BgL_hdsz00_2440, BgL_iz00_2438,
													BgL_hdnz00_2441);
												BgL_stkz00_7426 = CDR(BgL_stkz00_2439);
												BgL_hdsz00_7428 = CAR(BgL_stkz00_2439);
												BgL_hdnz00_7430 = 1L;
												BgL_hdnz00_2441 = BgL_hdnz00_7430;
												BgL_hdsz00_2440 = BgL_hdsz00_7428;
												BgL_stkz00_2439 = BgL_stkz00_7426;
												BgL_iz00_2438 = BgL_iz00_7424;
												goto BgL_zc3z04anonymousza31921ze3z87_2442;
											}
									}
								else
									{	/* Llib/error.scm 1104 */
										{	/* Llib/error.scm 1105 */
											obj_t BgL_arg1933z00_2454;

											{	/* Llib/error.scm 1105 */
												obj_t BgL_tmpz00_7431;

												BgL_tmpz00_7431 = BGL_CURRENT_DYNAMIC_ENV();
												BgL_arg1933z00_2454 =
													BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7431);
											}
											{	/* Llib/error.scm 1105 */
												obj_t BgL_list1934z00_2455;

												BgL_list1934z00_2455 =
													MAKE_YOUNG_PAIR(BgL_stackz00_113, BNIL);
												BGl_fprintfz00zz__r4_output_6_10_3z00
													(BgL_arg1933z00_2454, BGl_string2853z00zz__errorz00,
													BgL_list1934z00_2455);
											}
										}
										return bgl_flush_output_port(BgL_portz00_114);
									}
							}
					}
				}
			else
				{	/* Llib/error.scm 1095 */
					return BFALSE;
				}
		}

	}



/* display-trace-stack-frame~0 */
	obj_t BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00(obj_t
		BgL_portz00_5269, obj_t BgL_framez00_2463, obj_t BgL_levelz00_2464,
		long BgL_numz00_2465)
	{
		{	/* Llib/error.scm 1093 */
			{
				obj_t BgL_namez00_2467;
				obj_t BgL_locz00_2468;
				obj_t BgL_restz00_2469;
				obj_t BgL_namez00_2471;

				if (PAIRP(BgL_framez00_2463))
					{	/* Llib/error.scm 1093 */
						obj_t BgL_cdrzd2347zd2_2477;

						BgL_cdrzd2347zd2_2477 = CDR(((obj_t) BgL_framez00_2463));
						if (PAIRP(BgL_cdrzd2347zd2_2477))
							{	/* Llib/error.scm 1093 */
								obj_t BgL_cdrzd2352zd2_2479;

								BgL_cdrzd2352zd2_2479 = CDR(BgL_cdrzd2347zd2_2477);
								{	/* Llib/error.scm 1093 */
									bool_t BgL_test3311z00_7444;

									if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
										(BgL_cdrzd2352zd2_2479))
										{	/* Llib/error.scm 1007 */
											obj_t BgL_list1919z00_4301;

											BgL_list1919z00_4301 =
												MAKE_YOUNG_PAIR(BgL_cdrzd2352zd2_2479, BNIL);
											BgL_test3311z00_7444 =
												CBOOL(BGl_everyz00zz__r4_pairs_and_lists_6_3z00
												(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
													BgL_list1919z00_4301));
										}
									else
										{	/* Llib/error.scm 1007 */
											BgL_test3311z00_7444 = ((bool_t) 0);
										}
									if (BgL_test3311z00_7444)
										{	/* Llib/error.scm 1093 */
											obj_t BgL_arg1942z00_2481;
											obj_t BgL_arg1943z00_2482;

											BgL_arg1942z00_2481 = CAR(((obj_t) BgL_framez00_2463));
											BgL_arg1943z00_2482 = CAR(BgL_cdrzd2347zd2_2477);
											{	/* Llib/error.scm 1093 */
												long BgL_tmpz00_7453;

												BgL_namez00_2467 = BgL_arg1942z00_2481;
												BgL_locz00_2468 = BgL_arg1943z00_2482;
												BgL_restz00_2469 = BgL_cdrzd2352zd2_2479;
												{	/* Llib/error.scm 1026 */
													obj_t BgL_marginz00_2490;

													BgL_marginz00_2490 =
														BGl_assqz00zz__r4_pairs_and_lists_6_3z00
														(BGl_symbol2859z00zz__errorz00, BgL_restz00_2469);
													{	/* Llib/error.scm 1026 */
														obj_t BgL_fmtz00_2491;

														BgL_fmtz00_2491 =
															BGl_assqz00zz__r4_pairs_and_lists_6_3z00
															(BGl_symbol2861z00zz__errorz00, BgL_restz00_2469);
														{	/* Llib/error.scm 1027 */
															obj_t BgL_nmz00_2492;

															{	/* Llib/error.scm 1028 */
																bool_t BgL_test3313z00_7456;

																if (PAIRP(BgL_fmtz00_2491))
																	{	/* Llib/error.scm 1028 */
																		obj_t BgL_tmpz00_7459;

																		BgL_tmpz00_7459 = CDR(BgL_fmtz00_2491);
																		BgL_test3313z00_7456 =
																			STRINGP(BgL_tmpz00_7459);
																	}
																else
																	{	/* Llib/error.scm 1028 */
																		BgL_test3313z00_7456 = ((bool_t) 0);
																	}
																if (BgL_test3313z00_7456)
																	{	/* Llib/error.scm 1029 */
																		obj_t BgL_arg1990z00_2539;

																		BgL_arg1990z00_2539 = CDR(BgL_fmtz00_2491);
																		{	/* Llib/error.scm 1029 */
																			obj_t BgL_list1991z00_2540;

																			BgL_list1991z00_2540 =
																				MAKE_YOUNG_PAIR(BgL_namez00_2467, BNIL);
																			BgL_nmz00_2492 =
																				BGl_formatz00zz__r4_output_6_10_3z00
																				(BgL_arg1990z00_2539,
																				BgL_list1991z00_2540);
																		}
																	}
																else
																	{	/* Llib/error.scm 1028 */
																		BgL_nmz00_2492 = BgL_namez00_2467;
																	}
															}
															{	/* Llib/error.scm 1028 */

																{	/* Llib/error.scm 1032 */
																	bool_t BgL_test3315z00_7465;

																	if (PAIRP(BgL_marginz00_2490))
																		{	/* Llib/error.scm 1032 */
																			obj_t BgL_tmpz00_7468;

																			BgL_tmpz00_7468 = CDR(BgL_marginz00_2490);
																			BgL_test3315z00_7465 =
																				CHARP(BgL_tmpz00_7468);
																		}
																	else
																		{	/* Llib/error.scm 1032 */
																			BgL_test3315z00_7465 = ((bool_t) 0);
																		}
																	if (BgL_test3315z00_7465)
																		{	/* Llib/error.scm 1033 */
																			obj_t BgL_arg1954z00_2496;

																			BgL_arg1954z00_2496 =
																				CDR(BgL_marginz00_2490);
																			{	/* Llib/error.scm 1033 */
																				obj_t BgL_list1955z00_2497;

																				BgL_list1955z00_2497 =
																					MAKE_YOUNG_PAIR(BgL_portz00_5269,
																					BNIL);
																				BGl_displayz00zz__r4_output_6_10_3z00
																					(BgL_arg1954z00_2496,
																					BgL_list1955z00_2497);
																			}
																		}
																	else
																		{	/* Llib/error.scm 1034 */
																			obj_t BgL_list1956z00_2498;

																			BgL_list1956z00_2498 =
																				MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
																			BGl_displayz00zz__r4_output_6_10_3z00
																				(BGl_string2863z00zz__errorz00,
																				BgL_list1956z00_2498);
																		}
																}
																if (((long) CINT(BgL_levelz00_2464) < 10L))
																	{	/* Llib/error.scm 1036 */
																		obj_t BgL_list1959z00_2502;

																		BgL_list1959z00_2502 =
																			MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
																		BGl_displayz00zz__r4_output_6_10_3z00
																			(BGl_string2856z00zz__errorz00,
																			BgL_list1959z00_2502);
																	}
																else
																	{	/* Llib/error.scm 1036 */
																		if (((long) CINT(BgL_levelz00_2464) < 100L))
																			{	/* Llib/error.scm 1037 */
																				obj_t BgL_list1961z00_2504;

																				BgL_list1961z00_2504 =
																					MAKE_YOUNG_PAIR(BgL_portz00_5269,
																					BNIL);
																				BGl_displayz00zz__r4_output_6_10_3z00
																					(BGl_string2857z00zz__errorz00,
																					BgL_list1961z00_2504);
																			}
																		else
																			{	/* Llib/error.scm 1037 */
																				if (
																					((long) CINT(BgL_levelz00_2464) <
																						1000L))
																					{	/* Llib/error.scm 1038 */
																						obj_t BgL_list1963z00_2506;

																						BgL_list1963z00_2506 =
																							MAKE_YOUNG_PAIR(BgL_portz00_5269,
																							BNIL);
																						BGl_displayz00zz__r4_output_6_10_3z00
																							(BGl_string2863z00zz__errorz00,
																							BgL_list1963z00_2506);
																					}
																				else
																					{	/* Llib/error.scm 1038 */
																						BFALSE;
																					}
																			}
																	}
																{	/* Llib/error.scm 1040 */
																	obj_t BgL_list1964z00_2507;

																	BgL_list1964z00_2507 =
																		MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
																	BGl_displayz00zz__r4_output_6_10_3z00
																		(BgL_levelz00_2464, BgL_list1964z00_2507);
																}
																{	/* Llib/error.scm 1041 */
																	obj_t BgL_list1965z00_2508;

																	BgL_list1965z00_2508 =
																		MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
																	BGl_displayz00zz__r4_output_6_10_3z00
																		(BGl_string2858z00zz__errorz00,
																		BgL_list1965z00_2508);
																}
																{	/* Llib/error.scm 1043 */
																	obj_t BgL_list1966z00_2509;

																	BgL_list1966z00_2509 =
																		MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
																	BGl_displayz00zz__r4_output_6_10_3z00
																		(BgL_namez00_2467, BgL_list1966z00_2509);
																}
																if ((BgL_numz00_2465 > 1L))
																	{	/* Llib/error.scm 1045 */
																		{	/* Llib/error.scm 1046 */
																			obj_t BgL_list1968z00_2511;

																			BgL_list1968z00_2511 =
																				MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
																			BGl_displayz00zz__r4_output_6_10_3z00
																				(BGl_string2864z00zz__errorz00,
																				BgL_list1968z00_2511);
																		}
																		{	/* Llib/error.scm 1047 */
																			obj_t BgL_list1969z00_2512;

																			BgL_list1969z00_2512 =
																				MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
																			BGl_displayz00zz__r4_output_6_10_3z00(BINT
																				(BgL_numz00_2465),
																				BgL_list1969z00_2512);
																		}
																		{	/* Llib/error.scm 1048 */
																			obj_t BgL_list1970z00_2513;

																			BgL_list1970z00_2513 =
																				MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
																			BGl_displayz00zz__r4_output_6_10_3z00
																				(BGl_string2865z00zz__errorz00,
																				BgL_list1970z00_2513);
																		}
																	}
																else
																	{	/* Llib/error.scm 1045 */
																		if (CBOOL(BgL_locz00_2468))
																			{	/* Llib/error.scm 1050 */
																				obj_t BgL_filez00_2514;

																				BgL_filez00_2514 =
																					BGl_locationzd2linezd2numz00zz__errorz00
																					(BgL_locz00_2468);
																				{	/* Llib/error.scm 1051 */
																					obj_t BgL_lnumz00_2515;
																					obj_t BgL_lpointz00_2516;
																					obj_t BgL_lstringz00_2517;

																					{	/* Llib/error.scm 1059 */
																						obj_t BgL_tmpz00_4281;

																						{	/* Llib/error.scm 1059 */
																							int BgL_tmpz00_7509;

																							BgL_tmpz00_7509 = (int) (1L);
																							BgL_tmpz00_4281 =
																								BGL_MVALUES_VAL
																								(BgL_tmpz00_7509);
																						}
																						{	/* Llib/error.scm 1059 */
																							int BgL_tmpz00_7512;

																							BgL_tmpz00_7512 = (int) (1L);
																							BGL_MVALUES_VAL_SET
																								(BgL_tmpz00_7512, BUNSPEC);
																						}
																						BgL_lnumz00_2515 = BgL_tmpz00_4281;
																					}
																					{	/* Llib/error.scm 1059 */
																						obj_t BgL_tmpz00_4282;

																						{	/* Llib/error.scm 1059 */
																							int BgL_tmpz00_7515;

																							BgL_tmpz00_7515 = (int) (2L);
																							BgL_tmpz00_4282 =
																								BGL_MVALUES_VAL
																								(BgL_tmpz00_7515);
																						}
																						{	/* Llib/error.scm 1059 */
																							int BgL_tmpz00_7518;

																							BgL_tmpz00_7518 = (int) (2L);
																							BGL_MVALUES_VAL_SET
																								(BgL_tmpz00_7518, BUNSPEC);
																						}
																						BgL_lpointz00_2516 =
																							BgL_tmpz00_4282;
																					}
																					{	/* Llib/error.scm 1059 */
																						obj_t BgL_tmpz00_4283;

																						{	/* Llib/error.scm 1059 */
																							int BgL_tmpz00_7521;

																							BgL_tmpz00_7521 = (int) (3L);
																							BgL_tmpz00_4283 =
																								BGL_MVALUES_VAL
																								(BgL_tmpz00_7521);
																						}
																						{	/* Llib/error.scm 1059 */
																							int BgL_tmpz00_7524;

																							BgL_tmpz00_7524 = (int) (3L);
																							BGL_MVALUES_VAL_SET
																								(BgL_tmpz00_7524, BUNSPEC);
																						}
																						BgL_lstringz00_2517 =
																							BgL_tmpz00_4283;
																					}
																					{	/* Llib/error.scm 1053 */
																						bool_t BgL_test3322z00_7527;

																						if (CBOOL(BgL_filez00_2514))
																							{	/* Llib/error.scm 1053 */
																								if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_filez00_2514, BGl_string2866z00zz__errorz00))
																									{	/* Llib/error.scm 1053 */
																										BgL_test3322z00_7527 =
																											((bool_t) 0);
																									}
																								else
																									{	/* Llib/error.scm 1053 */
																										BgL_test3322z00_7527 =
																											((bool_t) 1);
																									}
																							}
																						else
																							{	/* Llib/error.scm 1053 */
																								BgL_test3322z00_7527 =
																									((bool_t) 0);
																							}
																						if (BgL_test3322z00_7527)
																							{	/* Llib/error.scm 1053 */
																								{	/* Llib/error.scm 1054 */
																									obj_t BgL_list1973z00_2520;

																									BgL_list1973z00_2520 =
																										MAKE_YOUNG_PAIR
																										(BgL_portz00_5269, BNIL);
																									BGl_displayz00zz__r4_output_6_10_3z00
																										(BGl_string2867z00zz__errorz00,
																										BgL_list1973z00_2520);
																								}
																								{	/* Llib/error.scm 1056 */
																									obj_t BgL_arg1974z00_2521;

																									{	/* Llib/error.scm 1056 */
																										long BgL_arg1976z00_2523;

																										if (STRINGP(BgL_nmz00_2492))
																											{	/* Llib/error.scm 1056 */
																												BgL_arg1976z00_2523 =
																													(
																													(80L - 4L) -
																													STRING_LENGTH
																													(BgL_nmz00_2492));
																											}
																										else
																											{	/* Llib/error.scm 1056 */
																												BgL_arg1976z00_2523 =
																													60L;
																											}
																										if ((BgL_numz00_2465 == 1L))
																											{	/* Llib/error.scm 1016 */
																												BgL_arg1974z00_2521 =
																													BGl_filenamezd2forzd2errorz00zz__errorz00
																													(BgL_filez00_2514,
																													BgL_arg1976z00_2523);
																											}
																										else
																											{	/* Llib/error.scm 1016 */
																												if (fexists
																													(BSTRING_TO_STRING
																														(BgL_filez00_2514)))
																													{	/* Llib/error.scm 1018 */
																														BgL_arg1974z00_2521
																															=
																															BgL_filez00_2514;
																													}
																												else
																													{	/* Llib/error.scm 1018 */
																														BgL_arg1974z00_2521
																															=
																															BGl_string2834z00zz__errorz00;
																													}
																											}
																									}
																									{	/* Llib/error.scm 1055 */
																										obj_t BgL_list1975z00_2522;

																										BgL_list1975z00_2522 =
																											MAKE_YOUNG_PAIR
																											(BgL_portz00_5269, BNIL);
																										BGl_displayz00zz__r4_output_6_10_3z00
																											(BgL_arg1974z00_2521,
																											BgL_list1975z00_2522);
																									}
																								}
																							}
																						else
																							{	/* Llib/error.scm 1053 */
																								BFALSE;
																							}
																					}
																					{	/* Llib/error.scm 1062 */
																						bool_t BgL_test3328z00_7547;

																						if (INTEGERP(BgL_lpointz00_2516))
																							{	/* Llib/error.scm 1062 */
																								BgL_test3328z00_7547 =
																									(
																									(long)
																									CINT(BgL_lpointz00_2516) ==
																									0L);
																							}
																						else
																							{	/* Llib/error.scm 1062 */
																								BgL_test3328z00_7547 =
																									((bool_t) 0);
																							}
																						if (BgL_test3328z00_7547)
																							{	/* Llib/error.scm 1062 */
																								BUNSPEC;
																							}
																						else
																							{	/* Llib/error.scm 1062 */
																								if (CBOOL(BgL_lnumz00_2515))
																									{	/* Llib/error.scm 1064 */
																										{	/* Llib/error.scm 1065 */
																											obj_t
																												BgL_list1982z00_2530;
																											BgL_list1982z00_2530 =
																												MAKE_YOUNG_PAIR
																												(BgL_portz00_5269,
																												BNIL);
																											BGl_displayz00zz__r4_output_6_10_3z00
																												(BGl_string2802z00zz__errorz00,
																												BgL_list1982z00_2530);
																										}
																										{	/* Llib/error.scm 1066 */
																											obj_t
																												BgL_list1983z00_2531;
																											BgL_list1983z00_2531 =
																												MAKE_YOUNG_PAIR
																												(BgL_portz00_5269,
																												BNIL);
																											BGl_displayz00zz__r4_output_6_10_3z00
																												(BgL_lnumz00_2515,
																												BgL_list1983z00_2531);
																										}
																									}
																								else
																									{	/* Llib/error.scm 1064 */
																										if (CBOOL
																											(BgL_lpointz00_2516))
																											{	/* Llib/error.scm 1067 */
																												{	/* Llib/error.scm 1068 */
																													obj_t
																														BgL_list1984z00_2532;
																													BgL_list1984z00_2532 =
																														MAKE_YOUNG_PAIR
																														(BgL_portz00_5269,
																														BNIL);
																													BGl_displayz00zz__r4_output_6_10_3z00
																														(BGl_string2868z00zz__errorz00,
																														BgL_list1984z00_2532);
																												}
																												{	/* Llib/error.scm 1069 */
																													obj_t
																														BgL_list1985z00_2533;
																													BgL_list1985z00_2533 =
																														MAKE_YOUNG_PAIR
																														(BgL_portz00_5269,
																														BNIL);
																													BGl_displayz00zz__r4_output_6_10_3z00
																														(BgL_lpointz00_2516,
																														BgL_list1985z00_2533);
																												}
																											}
																										else
																											{	/* Llib/error.scm 1067 */
																												BFALSE;
																											}
																									}
																							}
																					}
																				}
																			}
																		else
																			{	/* Llib/error.scm 1049 */
																				BFALSE;
																			}
																	}
																{	/* Llib/error.scm 1070 */
																	obj_t BgL_list1986z00_2535;

																	BgL_list1986z00_2535 =
																		MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
																	BGl_newlinez00zz__r4_output_6_10_3z00
																		(BgL_list1986z00_2535);
																}
															}
														}
													}
												}
												BgL_tmpz00_7453 = ((long) CINT(BgL_levelz00_2464) + 1L);
												return BINT(BgL_tmpz00_7453);
											}
										}
									else
										{	/* Llib/error.scm 1093 */
											long BgL_tmpz00_7569;

										BgL_tagzd2338zd2_2474:
											{	/* Llib/error.scm 1090 */
												obj_t BgL_list2008z00_2559;

												BgL_list2008z00_2559 =
													MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
												BGl_displayz00zz__r4_output_6_10_3z00
													(BGl_string2854z00zz__errorz00, BgL_list2008z00_2559);
											}
											{	/* Llib/error.scm 1091 */
												obj_t BgL_list2009z00_2560;

												BgL_list2009z00_2560 =
													MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
												BGl_displayz00zz__r4_output_6_10_3z00(BgL_framez00_2463,
													BgL_list2009z00_2560);
											}
											{	/* Llib/error.scm 1092 */
												obj_t BgL_list2010z00_2561;

												BgL_list2010z00_2561 =
													MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
												BGl_newlinez00zz__r4_output_6_10_3z00
													(BgL_list2010z00_2561);
											}
											BgL_tmpz00_7569 = ((long) CINT(BgL_levelz00_2464) + 1L);
											return BINT(BgL_tmpz00_7569);
										}
								}
							}
						else
							{	/* Llib/error.scm 1093 */
								if (NULLP(BgL_cdrzd2347zd2_2477))
									{	/* Llib/error.scm 1093 */
										obj_t BgL_arg1947z00_2486;

										BgL_arg1947z00_2486 = CAR(((obj_t) BgL_framez00_2463));
										{	/* Llib/error.scm 1093 */
											long BgL_tmpz00_7583;

											BgL_namez00_2471 = BgL_arg1947z00_2486;
											if (((long) CINT(BgL_levelz00_2464) < 10L))
												{	/* Llib/error.scm 1074 */
													obj_t BgL_list1994z00_2544;

													BgL_list1994z00_2544 =
														MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
													BGl_displayz00zz__r4_output_6_10_3z00
														(BGl_string2855z00zz__errorz00,
														BgL_list1994z00_2544);
												}
											else
												{	/* Llib/error.scm 1074 */
													if (((long) CINT(BgL_levelz00_2464) < 100L))
														{	/* Llib/error.scm 1075 */
															obj_t BgL_list1996z00_2546;

															BgL_list1996z00_2546 =
																MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
															BGl_displayz00zz__r4_output_6_10_3z00
																(BGl_string2856z00zz__errorz00,
																BgL_list1996z00_2546);
														}
													else
														{	/* Llib/error.scm 1075 */
															if (((long) CINT(BgL_levelz00_2464) < 1000L))
																{	/* Llib/error.scm 1076 */
																	obj_t BgL_list1998z00_2548;

																	BgL_list1998z00_2548 =
																		MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
																	BGl_displayz00zz__r4_output_6_10_3z00
																		(BGl_string2857z00zz__errorz00,
																		BgL_list1998z00_2548);
																}
															else
																{	/* Llib/error.scm 1076 */
																	BFALSE;
																}
														}
												}
											{	/* Llib/error.scm 1078 */
												obj_t BgL_list1999z00_2549;

												BgL_list1999z00_2549 =
													MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
												BGl_displayz00zz__r4_output_6_10_3z00(BgL_levelz00_2464,
													BgL_list1999z00_2549);
											}
											{	/* Llib/error.scm 1079 */
												obj_t BgL_arg2000z00_2550;

												{	/* Llib/error.scm 1079 */
													bool_t BgL_test3336z00_7601;

													if (SYMBOLP(BgL_namez00_2471))
														{	/* Llib/error.scm 1079 */
															BgL_test3336z00_7601 = ((bool_t) 1);
														}
													else
														{	/* Llib/error.scm 1079 */
															BgL_test3336z00_7601 = STRINGP(BgL_namez00_2471);
														}
													if (BgL_test3336z00_7601)
														{	/* Llib/error.scm 1079 */
															BgL_arg2000z00_2550 =
																BGl_string2858z00zz__errorz00;
														}
													else
														{	/* Llib/error.scm 1079 */
															BgL_arg2000z00_2550 =
																BGl_string2854z00zz__errorz00;
														}
												}
												{	/* Llib/error.scm 1079 */
													obj_t BgL_list2001z00_2551;

													BgL_list2001z00_2551 =
														MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
													BGl_displayz00zz__r4_output_6_10_3z00
														(BgL_arg2000z00_2550, BgL_list2001z00_2551);
												}
											}
											{	/* Llib/error.scm 1080 */
												obj_t BgL_list2004z00_2555;

												BgL_list2004z00_2555 =
													MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
												BGl_displayz00zz__r4_output_6_10_3z00(BgL_namez00_2471,
													BgL_list2004z00_2555);
											}
											{	/* Llib/error.scm 1081 */
												obj_t BgL_list2005z00_2556;

												BgL_list2005z00_2556 =
													MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
												BGl_newlinez00zz__r4_output_6_10_3z00
													(BgL_list2005z00_2556);
											}
											BgL_tmpz00_7583 = ((long) CINT(BgL_levelz00_2464) + 1L);
											return BINT(BgL_tmpz00_7583);
										}
									}
								else
									{	/* Llib/error.scm 1093 */
										long BgL_tmpz00_7614;

										goto BgL_tagzd2338zd2_2474;
										return BINT(BgL_tmpz00_7614);
									}
							}
					}
				else
					{	/* Llib/error.scm 1093 */
						if (STRINGP(BgL_framez00_2463))
							{	/* Llib/error.scm 1093 */
								{	/* Llib/error.scm 1085 */
									obj_t BgL_list2006z00_2557;

									BgL_list2006z00_2557 =
										MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
									BGl_displayz00zz__r4_output_6_10_3z00(BgL_framez00_2463,
										BgL_list2006z00_2557);
								}
								{	/* Llib/error.scm 1086 */
									obj_t BgL_list2007z00_2558;

									BgL_list2007z00_2558 =
										MAKE_YOUNG_PAIR(BgL_portz00_5269, BNIL);
									BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2007z00_2558);
								}
								return BgL_levelz00_2464;
							}
						else
							{	/* Llib/error.scm 1093 */
								long BgL_tmpz00_7622;

								goto BgL_tagzd2338zd2_2474;
								return BINT(BgL_tmpz00_7622);
							}
					}
			}
		}

	}



/* 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 1120 */
			{
				obj_t BgL_stackz00_2566;

				BgL_stackz00_2566 = BgL_stackz00_118;
			BgL_zc3z04anonymousza32011ze3z87_2567:
				if (PAIRP(BgL_stackz00_2566))
					{
						obj_t BgL_namez00_2569;
						obj_t BgL_locz00_2570;
						obj_t BgL_restz00_2571;

						{	/* Llib/error.scm 1133 */
							obj_t BgL_ezd2371zd2_2574;

							BgL_ezd2371zd2_2574 = CAR(BgL_stackz00_2566);
							if (PAIRP(BgL_ezd2371zd2_2574))
								{	/* Llib/error.scm 1133 */
									obj_t BgL_cdrzd2379zd2_2576;

									BgL_cdrzd2379zd2_2576 = CDR(BgL_ezd2371zd2_2574);
									if (PAIRP(BgL_cdrzd2379zd2_2576))
										{	/* Llib/error.scm 1133 */
											obj_t BgL_cdrzd2384zd2_2578;

											BgL_cdrzd2384zd2_2578 = CDR(BgL_cdrzd2379zd2_2576);
											{	/* Llib/error.scm 1133 */
												bool_t BgL_test3342z00_7633;

												if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
													(BgL_cdrzd2384zd2_2578))
													{	/* Llib/error.scm 1007 */
														obj_t BgL_list1919z00_4349;

														BgL_list1919z00_4349 =
															MAKE_YOUNG_PAIR(BgL_cdrzd2384zd2_2578, BNIL);
														BgL_test3342z00_7633 =
															CBOOL(BGl_everyz00zz__r4_pairs_and_lists_6_3z00
															(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
																BgL_list1919z00_4349));
													}
												else
													{	/* Llib/error.scm 1007 */
														BgL_test3342z00_7633 = ((bool_t) 0);
													}
												if (BgL_test3342z00_7633)
													{	/* Llib/error.scm 1133 */
														BgL_namez00_2569 = CAR(BgL_ezd2371zd2_2574);
														BgL_locz00_2570 = CAR(BgL_cdrzd2379zd2_2576);
														BgL_restz00_2571 = BgL_cdrzd2384zd2_2578;
														{	/* Llib/error.scm 1136 */
															obj_t BgL_filez00_2582;

															BgL_filez00_2582 =
																BGl_locationzd2linezd2numz00zz__errorz00
																(BgL_locz00_2570);
															{	/* Llib/error.scm 1137 */
																obj_t BgL_lnumz00_2583;
																obj_t BgL_lpointz00_2584;
																obj_t BgL_lstringz00_2585;

																{	/* Llib/error.scm 1139 */
																	obj_t BgL_tmpz00_4327;

																	{	/* Llib/error.scm 1139 */
																		int BgL_tmpz00_7640;

																		BgL_tmpz00_7640 = (int) (1L);
																		BgL_tmpz00_4327 =
																			BGL_MVALUES_VAL(BgL_tmpz00_7640);
																	}
																	{	/* Llib/error.scm 1139 */
																		int BgL_tmpz00_7643;

																		BgL_tmpz00_7643 = (int) (1L);
																		BGL_MVALUES_VAL_SET(BgL_tmpz00_7643,
																			BUNSPEC);
																	}
																	BgL_lnumz00_2583 = BgL_tmpz00_4327;
																}
																{	/* Llib/error.scm 1139 */
																	obj_t BgL_tmpz00_4328;

																	{	/* Llib/error.scm 1139 */
																		int BgL_tmpz00_7646;

																		BgL_tmpz00_7646 = (int) (2L);
																		BgL_tmpz00_4328 =
																			BGL_MVALUES_VAL(BgL_tmpz00_7646);
																	}
																	{	/* Llib/error.scm 1139 */
																		int BgL_tmpz00_7649;

																		BgL_tmpz00_7649 = (int) (2L);
																		BGL_MVALUES_VAL_SET(BgL_tmpz00_7649,
																			BUNSPEC);
																	}
																	BgL_lpointz00_2584 = BgL_tmpz00_4328;
																}
																{	/* Llib/error.scm 1139 */
																	obj_t BgL_tmpz00_4329;

																	{	/* Llib/error.scm 1139 */
																		int BgL_tmpz00_7652;

																		BgL_tmpz00_7652 = (int) (3L);
																		BgL_tmpz00_4329 =
																			BGL_MVALUES_VAL(BgL_tmpz00_7652);
																	}
																	{	/* Llib/error.scm 1139 */
																		int BgL_tmpz00_7655;

																		BgL_tmpz00_7655 = (int) (3L);
																		BGL_MVALUES_VAL_SET(BgL_tmpz00_7655,
																			BUNSPEC);
																	}
																	BgL_lstringz00_2585 = BgL_tmpz00_4329;
																}
																{	/* Llib/error.scm 1139 */
																	bool_t BgL_test3344z00_7658;

																	if (STRINGP(BgL_filez00_2582))
																		{	/* Llib/error.scm 1139 */
																			BgL_test3344z00_7658 =
																				STRINGP(BgL_lstringz00_2585);
																		}
																	else
																		{	/* Llib/error.scm 1139 */
																			BgL_test3344z00_7658 = ((bool_t) 0);
																		}
																	if (BgL_test3344z00_7658)
																		{	/* Llib/error.scm 1123 */
																			obj_t BgL_tabsz00_4330;

																			if (
																				((long) CINT(BgL_lpointz00_2584) > 0L))
																				{	/* Llib/error.scm 1123 */
																					BgL_tabsz00_4330 =
																						make_string(
																						(long) CINT(BgL_lpointz00_2584),
																						((unsigned char) ' '));
																				}
																			else
																				{	/* Llib/error.scm 1123 */
																					BgL_tabsz00_4330 =
																						BGl_string2834z00zz__errorz00;
																				}
																			{	/* Llib/error.scm 1123 */
																				long BgL_lz00_4332;

																				BgL_lz00_4332 =
																					STRING_LENGTH(BgL_lstringz00_2585);
																				{	/* Llib/error.scm 1124 */
																					obj_t BgL_ncolz00_4333;

																					if (
																						((long) CINT(BgL_lpointz00_2584) >=
																							BgL_lz00_4332))
																						{	/* Llib/error.scm 1125 */
																							BgL_ncolz00_4333 =
																								BINT(BgL_lz00_4332);
																						}
																					else
																						{	/* Llib/error.scm 1125 */
																							BgL_ncolz00_4333 =
																								BgL_lpointz00_2584;
																						}
																					{	/* Llib/error.scm 1125 */

																						BGl_fixzd2tabulationz12zc0zz__errorz00
																							(BgL_ncolz00_4333,
																							BgL_lstringz00_2585,
																							BgL_tabsz00_4330);
																						return
																							BGl_printzd2cursorzd2zz__errorz00
																							(BgL_filez00_2582,
																							BgL_lnumz00_2583,
																							BgL_lpointz00_2584,
																							BgL_lstringz00_2585,
																							BgL_tabsz00_4330);
																					}
																				}
																			}
																		}
																	else
																		{	/* Llib/error.scm 1141 */
																			bool_t BgL_test3348z00_7674;

																			if (STRINGP(BgL_filez00_2582))
																				{	/* Llib/error.scm 1141 */
																					BgL_test3348z00_7674 =
																						BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
																						(BgL_lpointz00_2584);
																				}
																			else
																				{	/* Llib/error.scm 1141 */
																					BgL_test3348z00_7674 = ((bool_t) 0);
																				}
																			if (BgL_test3348z00_7674)
																				{	/* Llib/error.scm 1141 */
																					if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_lnumz00_2583))
																						{	/* Llib/error.scm 1143 */
																							obj_t BgL_arg2024z00_2591;
																							obj_t BgL_arg2025z00_2592;

																							{	/* Llib/error.scm 1143 */
																								obj_t BgL_tmpz00_7680;

																								BgL_tmpz00_7680 =
																									BGL_CURRENT_DYNAMIC_ENV();
																								BgL_arg2024z00_2591 =
																									BGL_ENV_CURRENT_ERROR_PORT
																									(BgL_tmpz00_7680);
																							}
																							{	/* Llib/error.scm 1145 */

																								BgL_arg2025z00_2592 =
																									BGl_filenamezd2forzd2errorz00zz__errorz00
																									(BgL_filez00_2582, 255L);
																							}
																							{	/* Llib/error.scm 1143 */
																								obj_t BgL_list2026z00_2593;

																								{	/* Llib/error.scm 1143 */
																									obj_t BgL_arg2028z00_2594;

																									{	/* Llib/error.scm 1143 */
																										obj_t BgL_arg2029z00_2595;

																										BgL_arg2029z00_2595 =
																											MAKE_YOUNG_PAIR
																											(BgL_lpointz00_2584,
																											BNIL);
																										BgL_arg2028z00_2594 =
																											MAKE_YOUNG_PAIR
																											(BgL_lnumz00_2583,
																											BgL_arg2029z00_2595);
																									}
																									BgL_list2026z00_2593 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg2025z00_2592,
																										BgL_arg2028z00_2594);
																								}
																								return
																									BGl_fprintfz00zz__r4_output_6_10_3z00
																									(BgL_arg2024z00_2591,
																									BGl_string2869z00zz__errorz00,
																									BgL_list2026z00_2593);
																							}
																						}
																					else
																						{	/* Llib/error.scm 1148 */
																							obj_t BgL_arg2031z00_2598;
																							obj_t BgL_arg2032z00_2599;

																							{	/* Llib/error.scm 1148 */
																								obj_t BgL_tmpz00_7688;

																								BgL_tmpz00_7688 =
																									BGL_CURRENT_DYNAMIC_ENV();
																								BgL_arg2031z00_2598 =
																									BGL_ENV_CURRENT_ERROR_PORT
																									(BgL_tmpz00_7688);
																							}
																							{	/* Llib/error.scm 1150 */

																								BgL_arg2032z00_2599 =
																									BGl_filenamezd2forzd2errorz00zz__errorz00
																									(BgL_filez00_2582, 255L);
																							}
																							{	/* Llib/error.scm 1148 */
																								obj_t BgL_list2033z00_2600;

																								{	/* Llib/error.scm 1148 */
																									obj_t BgL_arg2034z00_2601;

																									BgL_arg2034z00_2601 =
																										MAKE_YOUNG_PAIR
																										(BgL_lpointz00_2584, BNIL);
																									BgL_list2033z00_2600 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg2032z00_2599,
																										BgL_arg2034z00_2601);
																								}
																								return
																									BGl_fprintfz00zz__r4_output_6_10_3z00
																									(BgL_arg2031z00_2598,
																									BGl_string2870z00zz__errorz00,
																									BgL_list2033z00_2600);
																							}
																						}
																				}
																			else
																				{	/* Llib/error.scm 1153 */
																					obj_t BgL_arg2036z00_2604;

																					BgL_arg2036z00_2604 =
																						CDR(((obj_t) BgL_stackz00_2566));
																					{
																						obj_t BgL_stackz00_7697;

																						BgL_stackz00_7697 =
																							BgL_arg2036z00_2604;
																						BgL_stackz00_2566 =
																							BgL_stackz00_7697;
																						goto
																							BgL_zc3z04anonymousza32011ze3z87_2567;
																					}
																				}
																		}
																}
															}
														}
													}
												else
													{
														obj_t BgL_stackz00_7700;

														BgL_stackz00_7700 = CDR(BgL_stackz00_2566);
														BgL_stackz00_2566 = BgL_stackz00_7700;
														goto BgL_zc3z04anonymousza32011ze3z87_2567;
													}
											}
										}
									else
										{
											obj_t BgL_stackz00_7702;

											BgL_stackz00_7702 = CDR(BgL_stackz00_2566);
											BgL_stackz00_2566 = BgL_stackz00_7702;
											goto BgL_zc3z04anonymousza32011ze3z87_2567;
										}
								}
							else
								{
									obj_t BgL_stackz00_7704;

									BgL_stackz00_7704 = CDR(BgL_stackz00_2566);
									BgL_stackz00_2566 = BgL_stackz00_7704;
									goto BgL_zc3z04anonymousza32011ze3z87_2567;
								}
						}
					}
				else
					{	/* Llib/error.scm 1132 */
						return BFALSE;
					}
			}
		}

	}



/* &display-trace-stack-source */
	obj_t BGl_z62displayzd2tracezd2stackzd2sourcezb0zz__errorz00(obj_t
		BgL_envz00_5229, obj_t BgL_stackz00_5230, obj_t BgL_portz00_5231)
	{
		{	/* Llib/error.scm 1120 */
			{	/* Llib/error.scm 1132 */
				obj_t BgL_auxz00_7706;

				if (OUTPUT_PORTP(BgL_portz00_5231))
					{	/* Llib/error.scm 1132 */
						BgL_auxz00_7706 = BgL_portz00_5231;
					}
				else
					{
						obj_t BgL_auxz00_7709;

						BgL_auxz00_7709 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(44396L), BGl_string2871z00zz__errorz00,
							BGl_string2852z00zz__errorz00, BgL_portz00_5231);
						FAILURE(BgL_auxz00_7709, BFALSE, BFALSE);
					}
				return
					BGl_displayzd2tracezd2stackzd2sourcezd2zz__errorz00(BgL_stackz00_5230,
					BgL_auxz00_7706);
			}
		}

	}



/* dump-trace-stack */
	BGL_EXPORTED_DEF obj_t BGl_dumpzd2tracezd2stackz00zz__errorz00(obj_t
		BgL_portz00_120, obj_t BgL_depthz00_121)
	{
		{	/* Llib/error.scm 1160 */
			{	/* Llib/error.scm 1161 */
				obj_t BgL_arg2041z00_4358;

				BgL_arg2041z00_4358 =
					BGl_getzd2tracezd2stackz00zz__errorz00(BgL_depthz00_121);
				{	/* Llib/error.scm 273 */

					return
						BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_arg2041z00_4358,
						BgL_portz00_120, BINT(1L));
				}
			}
		}

	}



/* &dump-trace-stack */
	obj_t BGl_z62dumpzd2tracezd2stackz62zz__errorz00(obj_t BgL_envz00_5232,
		obj_t BgL_portz00_5233, obj_t BgL_depthz00_5234)
	{
		{	/* Llib/error.scm 1160 */
			return
				BGl_dumpzd2tracezd2stackz00zz__errorz00(BgL_portz00_5233,
				BgL_depthz00_5234);
		}

	}



/* 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 1166 */
			{	/* Llib/error.scm 1167 */
				long BgL_g1136z00_2624;

				BgL_g1136z00_2624 = ((long) CINT(BgL_markerz00_122) - 1L);
				{
					long BgL_readz00_2626;

					BgL_readz00_2626 = BgL_g1136z00_2624;
				BgL_zc3z04anonymousza32042ze3z87_2627:
					if ((BgL_readz00_2626 == -1L))
						{	/* Llib/error.scm 1169 */
							return BGl_symbol2872z00zz__errorz00;
						}
					else
						{	/* Llib/error.scm 1169 */
							if (
								(STRING_REF(
										((obj_t) BgL_srcz00_123),
										BgL_readz00_2626) == ((unsigned char) 9)))
								{	/* Llib/error.scm 1171 */
									STRING_SET(BgL_dstz00_124, BgL_readz00_2626,
										((unsigned char) 9));
									{
										long BgL_readz00_7727;

										BgL_readz00_7727 = (BgL_readz00_2626 - 1L);
										BgL_readz00_2626 = BgL_readz00_7727;
										goto BgL_zc3z04anonymousza32042ze3z87_2627;
									}
								}
							else
								{
									long BgL_readz00_7729;

									BgL_readz00_7729 = (BgL_readz00_2626 - 1L);
									BgL_readz00_2626 = BgL_readz00_7729;
									goto BgL_zc3z04anonymousza32042ze3z87_2627;
								}
						}
				}
			}
		}

	}



/* 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 1180 */
			{	/* Llib/error.scm 1181 */
				obj_t BgL_arg2049z00_2635;
				obj_t BgL_arg2050z00_2636;

				{	/* Llib/error.scm 1181 */
					obj_t BgL_tmpz00_7731;

					BgL_tmpz00_7731 = BGL_CURRENT_DYNAMIC_ENV();
					BgL_arg2049z00_2635 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7731);
				}
				{	/* Llib/error.scm 1182 */

					BgL_arg2050z00_2636 =
						BGl_filenamezd2forzd2errorz00zz__errorz00(BgL_fnamez00_125, 255L);
				}
				{	/* Llib/error.scm 1181 */
					obj_t BgL_list2051z00_2637;

					{	/* Llib/error.scm 1181 */
						obj_t BgL_arg2053z00_2638;

						{	/* Llib/error.scm 1181 */
							obj_t BgL_arg2054z00_2639;

							{	/* Llib/error.scm 1181 */
								obj_t BgL_arg2055z00_2640;

								{	/* Llib/error.scm 1181 */
									obj_t BgL_arg2056z00_2641;

									{	/* Llib/error.scm 1181 */
										obj_t BgL_arg2057z00_2642;

										{	/* Llib/error.scm 1181 */
											obj_t BgL_arg2058z00_2643;

											{	/* Llib/error.scm 1181 */
												obj_t BgL_arg2059z00_2644;

												{	/* Llib/error.scm 1181 */
													obj_t BgL_arg2060z00_2645;

													{	/* Llib/error.scm 1181 */
														obj_t BgL_arg2061z00_2646;

														{	/* Llib/error.scm 1181 */
															obj_t BgL_arg2062z00_2647;

															{	/* Llib/error.scm 1181 */
																obj_t BgL_arg2063z00_2648;

																{	/* Llib/error.scm 1181 */
																	obj_t BgL_arg2066z00_2649;

																	{	/* Llib/error.scm 1181 */
																		obj_t BgL_arg2067z00_2650;

																		BgL_arg2067z00_2650 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2874z00zz__errorz00, BNIL);
																		BgL_arg2066z00_2649 =
																			MAKE_YOUNG_PAIR(BgL_spacezd2stringzd2_129,
																			BgL_arg2067z00_2650);
																	}
																	BgL_arg2063z00_2648 =
																		MAKE_YOUNG_PAIR
																		(BGl_string2875z00zz__errorz00,
																		BgL_arg2066z00_2649);
																}
																BgL_arg2062z00_2647 =
																	MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 10)),
																	BgL_arg2063z00_2648);
															}
															BgL_arg2061z00_2646 =
																MAKE_YOUNG_PAIR(BgL_stringz00_128,
																BgL_arg2062z00_2647);
														}
														BgL_arg2060z00_2645 =
															MAKE_YOUNG_PAIR(BGl_string2875z00zz__errorz00,
															BgL_arg2061z00_2646);
													}
													BgL_arg2059z00_2644 =
														MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 10)),
														BgL_arg2060z00_2645);
												}
												BgL_arg2058z00_2643 =
													MAKE_YOUNG_PAIR(BGl_string2802z00zz__errorz00,
													BgL_arg2059z00_2644);
											}
											BgL_arg2057z00_2642 =
												MAKE_YOUNG_PAIR(BgL_charz00_127, BgL_arg2058z00_2643);
										}
										BgL_arg2056z00_2641 =
											MAKE_YOUNG_PAIR(BGl_string2876z00zz__errorz00,
											BgL_arg2057z00_2642);
									}
									BgL_arg2055z00_2640 =
										MAKE_YOUNG_PAIR(BgL_linez00_126, BgL_arg2056z00_2641);
								}
								BgL_arg2054z00_2639 =
									MAKE_YOUNG_PAIR(BGl_string2877z00zz__errorz00,
									BgL_arg2055z00_2640);
							}
							BgL_arg2053z00_2638 =
								MAKE_YOUNG_PAIR(BgL_arg2050z00_2636, BgL_arg2054z00_2639);
						}
						BgL_list2051z00_2637 =
							MAKE_YOUNG_PAIR(BGl_string2832z00zz__errorz00,
							BgL_arg2053z00_2638);
					}
					return
						BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg2049z00_2635,
						BgL_list2051z00_2637);
				}
			}
		}

	}



/* relative-file-name */
	obj_t BGl_relativezd2filezd2namez00zz__errorz00(obj_t BgL_fnamez00_130)
	{
		{	/* Llib/error.scm 1195 */
			{	/* Llib/error.scm 1196 */
				obj_t BgL_pwdz00_2653;
				obj_t BgL_dnamez00_2654;

				BgL_pwdz00_2653 = BGl_pwdz00zz__osz00();
				BgL_dnamez00_2654 = BGl_dirnamez00zz__osz00(BgL_fnamez00_130);
				{	/* Llib/error.scm 1198 */
					bool_t BgL_test3354z00_7754;

					if (STRINGP(BgL_pwdz00_2653))
						{	/* Llib/error.scm 1199 */
							bool_t BgL_test3356z00_7757;

							{	/* Llib/error.scm 1199 */
								long BgL_l1z00_4376;

								BgL_l1z00_4376 = STRING_LENGTH(BgL_dnamez00_2654);
								if ((BgL_l1z00_4376 == 1L))
									{	/* Llib/error.scm 1199 */
										int BgL_arg2296z00_4379;

										{	/* Llib/error.scm 1199 */
											char *BgL_auxz00_7763;
											char *BgL_tmpz00_7761;

											BgL_auxz00_7763 =
												BSTRING_TO_STRING(BGl_string2866z00zz__errorz00);
											BgL_tmpz00_7761 = BSTRING_TO_STRING(BgL_dnamez00_2654);
											BgL_arg2296z00_4379 =
												memcmp(BgL_tmpz00_7761, BgL_auxz00_7763,
												BgL_l1z00_4376);
										}
										BgL_test3356z00_7757 = ((long) (BgL_arg2296z00_4379) == 0L);
									}
								else
									{	/* Llib/error.scm 1199 */
										BgL_test3356z00_7757 = ((bool_t) 0);
									}
							}
							if (BgL_test3356z00_7757)
								{	/* Llib/error.scm 1199 */
									BgL_test3354z00_7754 = ((bool_t) 1);
								}
							else
								{	/* Llib/error.scm 1199 */
									if (
										(STRING_REF(
												((obj_t) BgL_fnamez00_130),
												0L) == ((unsigned char) '/')))
										{	/* Llib/error.scm 1200 */
											BgL_test3354z00_7754 = ((bool_t) 0);
										}
									else
										{	/* Llib/error.scm 1200 */
											BgL_test3354z00_7754 = ((bool_t) 1);
										}
								}
						}
					else
						{	/* Llib/error.scm 1198 */
							BgL_test3354z00_7754 = ((bool_t) 1);
						}
					if (BgL_test3354z00_7754)
						{	/* Llib/error.scm 1198 */
							return BgL_fnamez00_130;
						}
					else
						{	/* Llib/error.scm 1203 */
							obj_t BgL_originalzd2cmpzd2pathz00_2661;

							BgL_originalzd2cmpzd2pathz00_2661 =
								BGl_dirnamezd2ze3listz31zz__errorz00(BgL_dnamez00_2654);
							{	/* Llib/error.scm 1204 */
								obj_t BgL_g1137z00_2662;

								BgL_g1137z00_2662 =
									BGl_dirnamezd2ze3listz31zz__errorz00(BgL_pwdz00_2653);
								{
									obj_t BgL_cmpzd2pathzd2_2664;
									obj_t BgL_curzd2pathzd2_2665;

									BgL_cmpzd2pathzd2_2664 = BgL_originalzd2cmpzd2pathz00_2661;
									BgL_curzd2pathzd2_2665 = BgL_g1137z00_2662;
								BgL_zc3z04anonymousza32074ze3z87_2666:
									if (NULLP(BgL_cmpzd2pathzd2_2664))
										{	/* Llib/error.scm 1207 */
											if (NULLP(BgL_curzd2pathzd2_2665))
												{	/* Llib/error.scm 1208 */
													return BGl_basenamez00zz__osz00(BgL_fnamez00_130);
												}
											else
												{	/* Llib/error.scm 1211 */
													long BgL_g1138z00_2669;
													obj_t BgL_g1139z00_2670;

													BgL_g1138z00_2669 =
														bgl_list_length(BgL_curzd2pathzd2_2665);
													BgL_g1139z00_2670 =
														BGl_basenamez00zz__osz00(BgL_fnamez00_130);
													{
														long BgL_lenz00_4403;
														obj_t BgL_resz00_4404;

														BgL_lenz00_4403 = BgL_g1138z00_2669;
														BgL_resz00_4404 = BgL_g1139z00_2670;
													BgL_loopz00_4402:
														if ((BgL_lenz00_4403 == 0L))
															{	/* Llib/error.scm 1213 */
																return BgL_resz00_4404;
															}
														else
															{	/* Llib/error.scm 1215 */
																long BgL_arg2079z00_4411;
																obj_t BgL_arg2080z00_4412;

																BgL_arg2079z00_4411 = (BgL_lenz00_4403 - 1L);
																{	/* Llib/error.scm 1215 */
																	obj_t BgL_list2081z00_4413;

																	{	/* Llib/error.scm 1215 */
																		obj_t BgL_arg2082z00_4414;

																		BgL_arg2082z00_4414 =
																			MAKE_YOUNG_PAIR(BgL_resz00_4404, BNIL);
																		BgL_list2081z00_4413 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2878z00zz__errorz00,
																			BgL_arg2082z00_4414);
																	}
																	BgL_arg2080z00_4412 =
																		BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																		(BgL_list2081z00_4413);
																}
																{
																	obj_t BgL_resz00_7788;
																	long BgL_lenz00_7787;

																	BgL_lenz00_7787 = BgL_arg2079z00_4411;
																	BgL_resz00_7788 = BgL_arg2080z00_4412;
																	BgL_resz00_4404 = BgL_resz00_7788;
																	BgL_lenz00_4403 = BgL_lenz00_7787;
																	goto BgL_loopz00_4402;
																}
															}
													}
												}
										}
									else
										{	/* Llib/error.scm 1207 */
											if (NULLP(BgL_curzd2pathzd2_2665))
												{	/* Llib/error.scm 1217 */
													obj_t BgL_g1140z00_2682;
													obj_t BgL_g1141z00_2683;

													BgL_g1140z00_2682 =
														bgl_reverse_bang(BgL_cmpzd2pathzd2_2664);
													BgL_g1141z00_2683 =
														BGl_basenamez00zz__osz00(BgL_fnamez00_130);
													{
														obj_t BgL_pathz00_4436;
														obj_t BgL_resz00_4437;

														BgL_pathz00_4436 = BgL_g1140z00_2682;
														BgL_resz00_4437 = BgL_g1141z00_2683;
													BgL_loopz00_4435:
														if (NULLP(BgL_pathz00_4436))
															{	/* Llib/error.scm 1219 */
																return BgL_resz00_4437;
															}
														else
															{	/* Llib/error.scm 1221 */
																obj_t BgL_arg2086z00_4446;
																obj_t BgL_arg2087z00_4447;

																BgL_arg2086z00_4446 =
																	CDR(((obj_t) BgL_pathz00_4436));
																{	/* Llib/error.scm 1222 */
																	obj_t BgL_arg2088z00_4448;

																	BgL_arg2088z00_4448 =
																		CAR(((obj_t) BgL_pathz00_4436));
																	{	/* Llib/error.scm 1222 */
																		obj_t BgL_list2089z00_4449;

																		{	/* Llib/error.scm 1222 */
																			obj_t BgL_arg2090z00_4450;

																			{	/* Llib/error.scm 1222 */
																				obj_t BgL_arg2091z00_4451;

																				BgL_arg2091z00_4451 =
																					MAKE_YOUNG_PAIR(BgL_resz00_4437,
																					BNIL);
																				BgL_arg2090z00_4450 =
																					MAKE_YOUNG_PAIR
																					(BGl_string2879z00zz__errorz00,
																					BgL_arg2091z00_4451);
																			}
																			BgL_list2089z00_4449 =
																				MAKE_YOUNG_PAIR(BgL_arg2088z00_4448,
																				BgL_arg2090z00_4450);
																		}
																		BgL_arg2087z00_4447 =
																			BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																			(BgL_list2089z00_4449);
																	}
																}
																{
																	obj_t BgL_resz00_7804;
																	obj_t BgL_pathz00_7803;

																	BgL_pathz00_7803 = BgL_arg2086z00_4446;
																	BgL_resz00_7804 = BgL_arg2087z00_4447;
																	BgL_resz00_4437 = BgL_resz00_7804;
																	BgL_pathz00_4436 = BgL_pathz00_7803;
																	goto BgL_loopz00_4435;
																}
															}
													}
												}
											else
												{	/* Llib/error.scm 1223 */
													bool_t BgL_test3364z00_7805;

													{	/* Llib/error.scm 1223 */
														obj_t BgL_arg2115z00_2729;
														obj_t BgL_arg2116z00_2730;

														BgL_arg2115z00_2729 =
															CAR(((obj_t) BgL_curzd2pathzd2_2665));
														BgL_arg2116z00_2730 =
															CAR(((obj_t) BgL_cmpzd2pathzd2_2664));
														{	/* Llib/error.scm 1223 */
															long BgL_l1z00_4458;

															BgL_l1z00_4458 =
																STRING_LENGTH(((obj_t) BgL_arg2115z00_2729));
															if (
																(BgL_l1z00_4458 ==
																	STRING_LENGTH(((obj_t) BgL_arg2116z00_2730))))
																{	/* Llib/error.scm 1223 */
																	int BgL_arg2296z00_4461;

																	{	/* Llib/error.scm 1223 */
																		char *BgL_auxz00_7819;
																		char *BgL_tmpz00_7816;

																		BgL_auxz00_7819 =
																			BSTRING_TO_STRING(
																			((obj_t) BgL_arg2116z00_2730));
																		BgL_tmpz00_7816 =
																			BSTRING_TO_STRING(
																			((obj_t) BgL_arg2115z00_2729));
																		BgL_arg2296z00_4461 =
																			memcmp(BgL_tmpz00_7816, BgL_auxz00_7819,
																			BgL_l1z00_4458);
																	}
																	BgL_test3364z00_7805 =
																		((long) (BgL_arg2296z00_4461) == 0L);
																}
															else
																{	/* Llib/error.scm 1223 */
																	BgL_test3364z00_7805 = ((bool_t) 0);
																}
														}
													}
													if (BgL_test3364z00_7805)
														{	/* Llib/error.scm 1224 */
															obj_t BgL_arg2096z00_2699;
															obj_t BgL_arg2097z00_2700;

															BgL_arg2096z00_2699 =
																CDR(((obj_t) BgL_cmpzd2pathzd2_2664));
															BgL_arg2097z00_2700 =
																CDR(((obj_t) BgL_curzd2pathzd2_2665));
															{
																obj_t BgL_curzd2pathzd2_7830;
																obj_t BgL_cmpzd2pathzd2_7829;

																BgL_cmpzd2pathzd2_7829 = BgL_arg2096z00_2699;
																BgL_curzd2pathzd2_7830 = BgL_arg2097z00_2700;
																BgL_curzd2pathzd2_2665 = BgL_curzd2pathzd2_7830;
																BgL_cmpzd2pathzd2_2664 = BgL_cmpzd2pathzd2_7829;
																goto BgL_zc3z04anonymousza32074ze3z87_2666;
															}
														}
													else
														{	/* Llib/error.scm 1226 */
															obj_t BgL_g1142z00_2701;
															obj_t BgL_g1143z00_2702;

															BgL_g1142z00_2701 =
																bgl_reverse(BgL_cmpzd2pathzd2_2664);
															BgL_g1143z00_2702 =
																BGl_basenamez00zz__osz00(BgL_fnamez00_130);
															{
																obj_t BgL_pathz00_2704;
																obj_t BgL_resz00_2705;

																BgL_pathz00_2704 = BgL_g1142z00_2701;
																BgL_resz00_2705 = BgL_g1143z00_2702;
															BgL_zc3z04anonymousza32098ze3z87_2706:
																if (NULLP(BgL_pathz00_2704))
																	{	/* Llib/error.scm 1228 */
																		if (
																			(BgL_cmpzd2pathzd2_2664 ==
																				BgL_originalzd2cmpzd2pathz00_2661))
																			{	/* Llib/error.scm 1230 */
																				obj_t BgL_list2101z00_2709;

																				{	/* Llib/error.scm 1230 */
																					obj_t BgL_arg2102z00_2710;

																					BgL_arg2102z00_2710 =
																						MAKE_YOUNG_PAIR(BgL_resz00_2705,
																						BNIL);
																					BgL_list2101z00_2709 =
																						MAKE_YOUNG_PAIR
																						(BGl_string2879z00zz__errorz00,
																						BgL_arg2102z00_2710);
																				}
																				BGL_TAIL return
																					BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																					(BgL_list2101z00_2709);
																			}
																		else
																			{	/* Llib/error.scm 1231 */
																				long BgL_g1144z00_2711;

																				BgL_g1144z00_2711 =
																					bgl_list_length
																					(BgL_curzd2pathzd2_2665);
																				{
																					long BgL_lenz00_4484;
																					obj_t BgL_resz00_4485;

																					BgL_lenz00_4484 = BgL_g1144z00_2711;
																					BgL_resz00_4485 = BgL_resz00_2705;
																				BgL_loopz00_4483:
																					if ((BgL_lenz00_4484 == 0L))
																						{	/* Llib/error.scm 1233 */
																							return BgL_resz00_4485;
																						}
																					else
																						{	/* Llib/error.scm 1235 */
																							long BgL_arg2105z00_4492;
																							obj_t BgL_arg2106z00_4493;

																							BgL_arg2105z00_4492 =
																								(BgL_lenz00_4484 - 1L);
																							{	/* Llib/error.scm 1236 */
																								obj_t BgL_list2107z00_4494;

																								{	/* Llib/error.scm 1236 */
																									obj_t BgL_arg2108z00_4495;

																									BgL_arg2108z00_4495 =
																										MAKE_YOUNG_PAIR
																										(BgL_resz00_4485, BNIL);
																									BgL_list2107z00_4494 =
																										MAKE_YOUNG_PAIR
																										(BGl_string2878z00zz__errorz00,
																										BgL_arg2108z00_4495);
																								}
																								BgL_arg2106z00_4493 =
																									BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																									(BgL_list2107z00_4494);
																							}
																							{
																								obj_t BgL_resz00_7848;
																								long BgL_lenz00_7847;

																								BgL_lenz00_7847 =
																									BgL_arg2105z00_4492;
																								BgL_resz00_7848 =
																									BgL_arg2106z00_4493;
																								BgL_resz00_4485 =
																									BgL_resz00_7848;
																								BgL_lenz00_4484 =
																									BgL_lenz00_7847;
																								goto BgL_loopz00_4483;
																							}
																						}
																				}
																			}
																	}
																else
																	{	/* Llib/error.scm 1237 */
																		obj_t BgL_arg2109z00_2722;
																		obj_t BgL_arg2110z00_2723;

																		BgL_arg2109z00_2722 =
																			CDR(((obj_t) BgL_pathz00_2704));
																		{	/* Llib/error.scm 1238 */
																			obj_t BgL_arg2111z00_2724;

																			BgL_arg2111z00_2724 =
																				CAR(((obj_t) BgL_pathz00_2704));
																			{	/* Llib/error.scm 1238 */
																				obj_t BgL_list2112z00_2725;

																				{	/* Llib/error.scm 1238 */
																					obj_t BgL_arg2113z00_2726;

																					{	/* Llib/error.scm 1238 */
																						obj_t BgL_arg2114z00_2727;

																						BgL_arg2114z00_2727 =
																							MAKE_YOUNG_PAIR(BgL_resz00_2705,
																							BNIL);
																						BgL_arg2113z00_2726 =
																							MAKE_YOUNG_PAIR
																							(BGl_string2879z00zz__errorz00,
																							BgL_arg2114z00_2727);
																					}
																					BgL_list2112z00_2725 =
																						MAKE_YOUNG_PAIR(BgL_arg2111z00_2724,
																						BgL_arg2113z00_2726);
																				}
																				BgL_arg2110z00_2723 =
																					BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																					(BgL_list2112z00_2725);
																			}
																		}
																		{
																			obj_t BgL_resz00_7858;
																			obj_t BgL_pathz00_7857;

																			BgL_pathz00_7857 = BgL_arg2109z00_2722;
																			BgL_resz00_7858 = BgL_arg2110z00_2723;
																			BgL_resz00_2705 = BgL_resz00_7858;
																			BgL_pathz00_2704 = BgL_pathz00_7857;
																			goto
																				BgL_zc3z04anonymousza32098ze3z87_2706;
																		}
																	}
															}
														}
												}
										}
								}
							}
						}
				}
			}
		}

	}



/* uncygdrive */
	obj_t BGl_uncygdrivez00zz__errorz00(obj_t BgL_strz00_131)
	{
		{	/* Llib/error.scm 1246 */
			if (bigloo_strncmp(BGl_string2880z00zz__errorz00, BgL_strz00_131, 10L))
				{	/* Llib/error.scm 1248 */
					bool_t BgL_test3370z00_7861;

					if ((STRING_LENGTH(BgL_strz00_131) > 12L))
						{	/* Llib/error.scm 1249 */
							bool_t BgL_test3372z00_7865;

							{	/* Llib/error.scm 1249 */
								unsigned char BgL_tmpz00_7866;

								BgL_tmpz00_7866 = STRING_REF(BgL_strz00_131, 10L);
								BgL_test3372z00_7865 = isalpha(BgL_tmpz00_7866);
							}
							if (BgL_test3372z00_7865)
								{	/* Llib/error.scm 1249 */
									BgL_test3370z00_7861 =
										(STRING_REF(BgL_strz00_131, 11L) == ((unsigned char) '/'));
								}
							else
								{	/* Llib/error.scm 1249 */
									BgL_test3370z00_7861 = ((bool_t) 0);
								}
						}
					else
						{	/* Llib/error.scm 1248 */
							BgL_test3370z00_7861 = ((bool_t) 0);
						}
					if (BgL_test3370z00_7861)
						{	/* Llib/error.scm 1251 */
							obj_t BgL_arg2128z00_2745;
							obj_t BgL_arg2129z00_2746;

							{	/* Llib/error.scm 1251 */
								unsigned char BgL_arg2132z00_2749;

								BgL_arg2132z00_2749 = STRING_REF(BgL_strz00_131, 10L);
								{	/* Llib/error.scm 1251 */
									obj_t BgL_list2133z00_2750;

									{	/* Llib/error.scm 1251 */
										obj_t BgL_arg2134z00_2751;

										{	/* Llib/error.scm 1251 */
											obj_t BgL_arg2135z00_2752;

											BgL_arg2135z00_2752 =
												MAKE_YOUNG_PAIR(BCHAR(((unsigned char) '/')), BNIL);
											BgL_arg2134z00_2751 =
												MAKE_YOUNG_PAIR(BCHAR(((unsigned char) ':')),
												BgL_arg2135z00_2752);
										}
										BgL_list2133z00_2750 =
											MAKE_YOUNG_PAIR(BCHAR(BgL_arg2132z00_2749),
											BgL_arg2134z00_2751);
									}
									BgL_arg2128z00_2745 =
										BGl_listzd2ze3stringz31zz__r4_strings_6_7z00
										(BgL_list2133z00_2750);
							}}
							BgL_arg2129z00_2746 =
								BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_131, 12L,
								STRING_LENGTH(BgL_strz00_131));
							{	/* Llib/error.scm 1251 */
								obj_t BgL_list2130z00_2747;

								{	/* Llib/error.scm 1251 */
									obj_t BgL_arg2131z00_2748;

									BgL_arg2131z00_2748 =
										MAKE_YOUNG_PAIR(BgL_arg2129z00_2746, BNIL);
									BgL_list2130z00_2747 =
										MAKE_YOUNG_PAIR(BgL_arg2128z00_2745, BgL_arg2131z00_2748);
								}
								return
									BGl_stringzd2appendzd2zz__r4_strings_6_7z00
									(BgL_list2130z00_2747);
							}
						}
					else
						{	/* Llib/error.scm 1248 */
							return BgL_strz00_131;
						}
				}
			else
				{	/* Llib/error.scm 1247 */
					return BgL_strz00_131;
				}
		}

	}



/* dirname->list */
	obj_t BGl_dirnamezd2ze3listz31zz__errorz00(obj_t BgL_pathz00_132)
	{
		{	/* Llib/error.scm 1259 */
			{	/* Llib/error.scm 1260 */
				long BgL_lenz00_2759;
				long BgL_initz00_2760;

				{	/* Llib/error.scm 1260 */
					long BgL_lenz00_2782;

					BgL_lenz00_2782 = STRING_LENGTH(((obj_t) BgL_pathz00_132));
					if (
						(STRING_REF(
								((obj_t) BgL_pathz00_132),
								(BgL_lenz00_2782 - 1L)) == (unsigned char) (FILE_SEPARATOR)))
						{	/* Llib/error.scm 1261 */
							BgL_lenz00_2759 = (BgL_lenz00_2782 - 1L);
						}
					else
						{	/* Llib/error.scm 1261 */
							BgL_lenz00_2759 = BgL_lenz00_2782;
						}
				}
				if (
					(STRING_REF(
							((obj_t) BgL_pathz00_132), 0L) ==
						(unsigned char) (FILE_SEPARATOR)))
					{	/* Llib/error.scm 1264 */
						BgL_initz00_2760 = 1L;
					}
				else
					{	/* Llib/error.scm 1264 */
						BgL_initz00_2760 = 0L;
					}
				{	/* Llib/error.scm 1265 */
					bool_t BgL_test3375z00_7898;

					{	/* Llib/error.scm 1265 */
						long BgL_l1z00_4523;

						BgL_l1z00_4523 = STRING_LENGTH(((obj_t) BgL_pathz00_132));
						if ((BgL_l1z00_4523 == 1L))
							{	/* Llib/error.scm 1265 */
								int BgL_arg2296z00_4526;

								{	/* Llib/error.scm 1265 */
									char *BgL_auxz00_7906;
									char *BgL_tmpz00_7903;

									BgL_auxz00_7906 =
										BSTRING_TO_STRING(BGl_string2879z00zz__errorz00);
									BgL_tmpz00_7903 =
										BSTRING_TO_STRING(((obj_t) BgL_pathz00_132));
									BgL_arg2296z00_4526 =
										memcmp(BgL_tmpz00_7903, BgL_auxz00_7906, BgL_l1z00_4523);
								}
								BgL_test3375z00_7898 = ((long) (BgL_arg2296z00_4526) == 0L);
							}
						else
							{	/* Llib/error.scm 1265 */
								BgL_test3375z00_7898 = ((bool_t) 0);
							}
					}
					if (BgL_test3375z00_7898)
						{	/* Llib/error.scm 1265 */
							return BNIL;
						}
					else
						{
							long BgL_readz00_2764;
							long BgL_prevz00_2765;
							obj_t BgL_listz00_2766;

							BgL_readz00_2764 = BgL_initz00_2760;
							BgL_prevz00_2765 = BgL_initz00_2760;
							BgL_listz00_2766 = BNIL;
						BgL_zc3z04anonymousza32141ze3z87_2767:
							if ((BgL_readz00_2764 == BgL_lenz00_2759))
								{	/* Llib/error.scm 1272 */
									obj_t BgL_arg2143z00_2769;

									BgL_arg2143z00_2769 =
										MAKE_YOUNG_PAIR(BGl_substringz00zz__r4_strings_6_7z00
										(BgL_pathz00_132, BgL_prevz00_2765, BgL_readz00_2764),
										BgL_listz00_2766);
									return bgl_reverse_bang(BgL_arg2143z00_2769);
								}
							else
								{	/* Llib/error.scm 1271 */
									if (
										(STRING_REF(
												((obj_t) BgL_pathz00_132), BgL_readz00_2764) ==
											(unsigned char) (FILE_SEPARATOR)))
										{	/* Llib/error.scm 1274 */
											long BgL_arg2148z00_2774;
											long BgL_arg2149z00_2775;
											obj_t BgL_arg2150z00_2776;

											BgL_arg2148z00_2774 = (BgL_readz00_2764 + 1L);
											BgL_arg2149z00_2775 = (BgL_readz00_2764 + 1L);
											BgL_arg2150z00_2776 =
												MAKE_YOUNG_PAIR(BGl_substringz00zz__r4_strings_6_7z00
												(BgL_pathz00_132, BgL_prevz00_2765, BgL_readz00_2764),
												BgL_listz00_2766);
											{
												obj_t BgL_listz00_7927;
												long BgL_prevz00_7926;
												long BgL_readz00_7925;

												BgL_readz00_7925 = BgL_arg2148z00_2774;
												BgL_prevz00_7926 = BgL_arg2149z00_2775;
												BgL_listz00_7927 = BgL_arg2150z00_2776;
												BgL_listz00_2766 = BgL_listz00_7927;
												BgL_prevz00_2765 = BgL_prevz00_7926;
												BgL_readz00_2764 = BgL_readz00_7925;
												goto BgL_zc3z04anonymousza32141ze3z87_2767;
											}
										}
									else
										{
											long BgL_readz00_7928;

											BgL_readz00_7928 = (BgL_readz00_2764 + 1L);
											BgL_readz00_2764 = BgL_readz00_7928;
											goto BgL_zc3z04anonymousza32141ze3z87_2767;
										}
								}
						}
				}
			}
		}

	}



/* typeof */
	BGL_EXPORTED_DEF obj_t bgl_typeof(obj_t BgL_objz00_133)
	{
		{	/* Llib/error.scm 1286 */
			if (INTEGERP(BgL_objz00_133))
				{	/* Llib/error.scm 1288 */
					return BGl_string2791z00zz__errorz00;
				}
			else
				{	/* Llib/error.scm 1288 */
					if (REALP(BgL_objz00_133))
						{	/* Llib/error.scm 1290 */
							return BGl_string2881z00zz__errorz00;
						}
					else
						{	/* Llib/error.scm 1290 */
							if (STRINGP(BgL_objz00_133))
								{	/* Llib/error.scm 1292 */
									return BGl_string2816z00zz__errorz00;
								}
							else
								{	/* Llib/error.scm 1292 */
									if (SYMBOLP(BgL_objz00_133))
										{	/* Llib/error.scm 1294 */
											return BGl_string2882z00zz__errorz00;
										}
									else
										{	/* Llib/error.scm 1294 */
											if (KEYWORDP(BgL_objz00_133))
												{	/* Llib/error.scm 1296 */
													return BGl_string2883z00zz__errorz00;
												}
											else
												{	/* Llib/error.scm 1296 */
													if (CHARP(BgL_objz00_133))
														{	/* Llib/error.scm 1298 */
															return BGl_string2884z00zz__errorz00;
														}
													else
														{	/* Llib/error.scm 1298 */
															if (BOOLEANP(BgL_objz00_133))
																{	/* Llib/error.scm 1300 */
																	return BGl_string2885z00zz__errorz00;
																}
															else
																{	/* Llib/error.scm 1300 */
																	if (NULLP(BgL_objz00_133))
																		{	/* Llib/error.scm 1302 */
																			return BGl_string2886z00zz__errorz00;
																		}
																	else
																		{	/* Llib/error.scm 1302 */
																			if ((BgL_objz00_133 == BUNSPEC))
																				{	/* Llib/error.scm 1304 */
																					return BGl_string2887z00zz__errorz00;
																				}
																			else
																				{	/* Llib/error.scm 1304 */
																					if (EPAIRP(BgL_objz00_133))
																						{	/* Llib/error.scm 1306 */
																							return
																								BGl_string2888z00zz__errorz00;
																						}
																					else
																						{	/* Llib/error.scm 1306 */
																							if (PAIRP(BgL_objz00_133))
																								{	/* Llib/error.scm 1308 */
																									return
																										BGl_string2889z00zz__errorz00;
																								}
																							else
																								{	/* Llib/error.scm 1308 */
																									if (BGl_classzf3zf3zz__objectz00(BgL_objz00_133))
																										{	/* Llib/error.scm 1310 */
																											return
																												BGl_string2890z00zz__errorz00;
																										}
																									else
																										{	/* Llib/error.scm 1310 */
																											if (VECTORP
																												(BgL_objz00_133))
																												{	/* Llib/error.scm 1312 */
																													return
																														BGl_string2891z00zz__errorz00;
																												}
																											else
																												{	/* Llib/error.scm 1312 */
																													if (TVECTORP
																														(BgL_objz00_133))
																														{	/* Llib/error.scm 1314 */
																															return
																																BGl_string2892z00zz__errorz00;
																														}
																													else
																														{	/* Llib/error.scm 1314 */
																															if (STRUCTP
																																(BgL_objz00_133))
																																{	/* Llib/error.scm 1317 */
																																	obj_t
																																		BgL_arg2182z00_2810;
																																	BgL_arg2182z00_2810
																																		=
																																		SYMBOL_TO_STRING
																																		(STRUCT_KEY
																																		(BgL_objz00_133));
																																	{	/* Llib/error.scm 1317 */
																																		obj_t
																																			BgL_list2183z00_2811;
																																		{	/* Llib/error.scm 1317 */
																																			obj_t
																																				BgL_arg2184z00_2812;
																																			BgL_arg2184z00_2812
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg2182z00_2810,
																																				BNIL);
																																			BgL_list2183z00_2811
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_string2893z00zz__errorz00,
																																				BgL_arg2184z00_2812);
																																		}
																																		BGL_TAIL
																																			return
																																			BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																																			(BgL_list2183z00_2811);
																																	}
																																}
																															else
																																{	/* Llib/error.scm 1316 */
																																	if (PROCEDUREP
																																		(BgL_objz00_133))
																																		{	/* Llib/error.scm 1318 */
																																			return
																																				BGl_string2799z00zz__errorz00;
																																		}
																																	else
																																		{	/* Llib/error.scm 1318 */
																																			if (INPUT_PORTP(BgL_objz00_133))
																																				{	/* Llib/error.scm 1320 */
																																					return
																																						BGl_string2894z00zz__errorz00;
																																				}
																																			else
																																				{	/* Llib/error.scm 1320 */
																																					if (OUTPUT_PORTP(BgL_objz00_133))
																																						{	/* Llib/error.scm 1322 */
																																							return
																																								BGl_string2852z00zz__errorz00;
																																						}
																																					else
																																						{	/* Llib/error.scm 1322 */
																																							if (BINARY_PORTP(BgL_objz00_133))
																																								{	/* Llib/error.scm 1324 */
																																									return
																																										BGl_string2895z00zz__errorz00;
																																								}
																																							else
																																								{	/* Llib/error.scm 1324 */
																																									if (CELLP(BgL_objz00_133))
																																										{	/* Llib/error.scm 1326 */
																																											return
																																												BGl_string2896z00zz__errorz00;
																																										}
																																									else
																																										{	/* Llib/error.scm 1326 */
																																											if (FOREIGNP(BgL_objz00_133))
																																												{	/* Llib/error.scm 1329 */
																																													obj_t
																																														BgL_arg2192z00_2820;
																																													{	/* Llib/error.scm 1329 */
																																														obj_t
																																															BgL_arg2195z00_2823;
																																														BgL_arg2195z00_2823
																																															=
																																															FOREIGN_ID
																																															(BgL_objz00_133);
																																														{	/* Llib/error.scm 1329 */
																																															obj_t
																																																BgL_arg2302z00_4545;
																																															BgL_arg2302z00_4545
																																																=
																																																SYMBOL_TO_STRING
																																																(BgL_arg2195z00_2823);
																																															BgL_arg2192z00_2820
																																																=
																																																BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																(BgL_arg2302z00_4545);
																																														}
																																													}
																																													{	/* Llib/error.scm 1329 */
																																														obj_t
																																															BgL_list2193z00_2821;
																																														{	/* Llib/error.scm 1329 */
																																															obj_t
																																																BgL_arg2194z00_2822;
																																															BgL_arg2194z00_2822
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BgL_arg2192z00_2820,
																																																BNIL);
																																															BgL_list2193z00_2821
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BGl_string2897z00zz__errorz00,
																																																BgL_arg2194z00_2822);
																																														}
																																														BGL_TAIL
																																															return
																																															BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																																															(BgL_list2193z00_2821);
																																													}
																																												}
																																											else
																																												{	/* Llib/error.scm 1328 */
																																													if (SOCKETP(BgL_objz00_133))
																																														{	/* Llib/error.scm 1330 */
																																															return
																																																BGl_string2898z00zz__errorz00;
																																														}
																																													else
																																														{	/* Llib/error.scm 1330 */
																																															if (BGL_DATAGRAM_SOCKETP(BgL_objz00_133))
																																																{	/* Llib/error.scm 1332 */
																																																	return
																																																		BGl_string2899z00zz__errorz00;
																																																}
																																															else
																																																{	/* Llib/error.scm 1332 */
																																																	if (PROCESSP(BgL_objz00_133))
																																																		{	/* Llib/error.scm 1334 */
																																																			return
																																																				BGl_string2900z00zz__errorz00;
																																																		}
																																																	else
																																																		{	/* Llib/error.scm 1334 */
																																																			if (CUSTOMP(BgL_objz00_133))
																																																				{	/* Llib/error.scm 1336 */
																																																					return
																																																						BGl_string2901z00zz__errorz00;
																																																				}
																																																			else
																																																				{	/* Llib/error.scm 1336 */
																																																					if (OPAQUEP(BgL_objz00_133))
																																																						{	/* Llib/error.scm 1338 */
																																																							return
																																																								BGl_string2902z00zz__errorz00;
																																																						}
																																																					else
																																																						{	/* Llib/error.scm 1338 */
																																																							if (BGL_OBJECTP(BgL_objz00_133))
																																																								{	/* Llib/error.scm 1341 */
																																																									obj_t
																																																										BgL_classz00_2830;
																																																									{	/* Llib/error.scm 1341 */
																																																										long
																																																											BgL_arg2709z00_4547;
																																																										{	/* Llib/error.scm 1341 */
																																																											long
																																																												BgL_arg2710z00_4548;
																																																											BgL_arg2710z00_4548
																																																												=
																																																												BGL_OBJECT_CLASS_NUM
																																																												(
																																																												((BgL_objectz00_bglt) BgL_objz00_133));
																																																											BgL_arg2709z00_4547
																																																												=
																																																												(BgL_arg2710z00_4548
																																																												-
																																																												OBJECT_TYPE);
																																																										}
																																																										BgL_classz00_2830
																																																											=
																																																											VECTOR_REF
																																																											(BGl_za2classesza2z00zz__objectz00,
																																																											BgL_arg2709z00_4547);
																																																									}
																																																									if (BGl_classzf3zf3zz__objectz00(BgL_classz00_2830))
																																																										{	/* Llib/error.scm 1346 */
																																																											obj_t
																																																												BgL_symz00_2832;
																																																											BgL_symz00_2832
																																																												=
																																																												BGl_classzd2namezd2zz__objectz00
																																																												(BgL_classz00_2830);
																																																											{	/* Llib/error.scm 1348 */
																																																												obj_t
																																																													BgL_arg2302z00_4555;
																																																												BgL_arg2302z00_4555
																																																													=
																																																													SYMBOL_TO_STRING
																																																													(BgL_symz00_2832);
																																																												return
																																																													BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																													(BgL_arg2302z00_4555);
																																																											}
																																																										}
																																																									else
																																																										{	/* Llib/error.scm 1345 */
																																																											return
																																																												BGl_string2903z00zz__errorz00;
																																																										}
																																																								}
																																																							else
																																																								{	/* Llib/error.scm 1340 */
																																																									if (UCS2_STRINGP(BgL_objz00_133))
																																																										{	/* Llib/error.scm 1351 */
																																																											return
																																																												BGl_string2904z00zz__errorz00;
																																																										}
																																																									else
																																																										{	/* Llib/error.scm 1351 */
																																																											if (UCS2P(BgL_objz00_133))
																																																												{	/* Llib/error.scm 1353 */
																																																													return
																																																														BGl_string2905z00zz__errorz00;
																																																												}
																																																											else
																																																												{	/* Llib/error.scm 1353 */
																																																													if (ELONGP(BgL_objz00_133))
																																																														{	/* Llib/error.scm 1355 */
																																																															return
																																																																BGl_string2906z00zz__errorz00;
																																																														}
																																																													else
																																																														{	/* Llib/error.scm 1355 */
																																																															if (LLONGP(BgL_objz00_133))
																																																																{	/* Llib/error.scm 1357 */
																																																																	return
																																																																		BGl_string2907z00zz__errorz00;
																																																																}
																																																															else
																																																																{	/* Llib/error.scm 1357 */
																																																																	if (BGL_MUTEXP(BgL_objz00_133))
																																																																		{	/* Llib/error.scm 1359 */
																																																																			return
																																																																				BGl_string2908z00zz__errorz00;
																																																																		}
																																																																	else
																																																																		{	/* Llib/error.scm 1359 */
																																																																			if (BGL_CONDVARP(BgL_objz00_133))
																																																																				{	/* Llib/error.scm 1361 */
																																																																					return
																																																																						BGl_string2909z00zz__errorz00;
																																																																				}
																																																																			else
																																																																				{	/* Llib/error.scm 1361 */
																																																																					if (BGL_DATEP(BgL_objz00_133))
																																																																						{	/* Llib/error.scm 1363 */
																																																																							return
																																																																								BGl_string2910z00zz__errorz00;
																																																																						}
																																																																					else
																																																																						{	/* Llib/error.scm 1363 */
																																																																							if (BGL_HVECTORP(BgL_objz00_133))
																																																																								{	/* Llib/error.scm 1366 */
																																																																									obj_t
																																																																										BgL_tagz00_2842;
																																																																									BgL_tagz00_2842
																																																																										=
																																																																										BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00
																																																																										(BgL_objz00_133);
																																																																									{	/* Llib/error.scm 1367 */
																																																																										obj_t
																																																																											BgL__z00_2843;
																																																																										obj_t
																																																																											BgL__z00_2844;
																																																																										obj_t
																																																																											BgL__z00_2845;
																																																																										{	/* Llib/error.scm 1368 */
																																																																											obj_t
																																																																												BgL_tmpz00_4556;
																																																																											{	/* Llib/error.scm 1368 */
																																																																												int
																																																																													BgL_tmpz00_8021;
																																																																												BgL_tmpz00_8021
																																																																													=
																																																																													(int)
																																																																													(1L);
																																																																												BgL_tmpz00_4556
																																																																													=
																																																																													BGL_MVALUES_VAL
																																																																													(BgL_tmpz00_8021);
																																																																											}
																																																																											{	/* Llib/error.scm 1368 */
																																																																												int
																																																																													BgL_tmpz00_8024;
																																																																												BgL_tmpz00_8024
																																																																													=
																																																																													(int)
																																																																													(1L);
																																																																												BGL_MVALUES_VAL_SET
																																																																													(BgL_tmpz00_8024,
																																																																													BUNSPEC);
																																																																											}
																																																																											BgL__z00_2843
																																																																												=
																																																																												BgL_tmpz00_4556;
																																																																										}
																																																																										{	/* Llib/error.scm 1368 */
																																																																											obj_t
																																																																												BgL_tmpz00_4557;
																																																																											{	/* Llib/error.scm 1368 */
																																																																												int
																																																																													BgL_tmpz00_8027;
																																																																												BgL_tmpz00_8027
																																																																													=
																																																																													(int)
																																																																													(2L);
																																																																												BgL_tmpz00_4557
																																																																													=
																																																																													BGL_MVALUES_VAL
																																																																													(BgL_tmpz00_8027);
																																																																											}
																																																																											{	/* Llib/error.scm 1368 */
																																																																												int
																																																																													BgL_tmpz00_8030;
																																																																												BgL_tmpz00_8030
																																																																													=
																																																																													(int)
																																																																													(2L);
																																																																												BGL_MVALUES_VAL_SET
																																																																													(BgL_tmpz00_8030,
																																																																													BUNSPEC);
																																																																											}
																																																																											BgL__z00_2844
																																																																												=
																																																																												BgL_tmpz00_4557;
																																																																										}
																																																																										{	/* Llib/error.scm 1368 */
																																																																											obj_t
																																																																												BgL_tmpz00_4558;
																																																																											{	/* Llib/error.scm 1368 */
																																																																												int
																																																																													BgL_tmpz00_8033;
																																																																												BgL_tmpz00_8033
																																																																													=
																																																																													(int)
																																																																													(3L);
																																																																												BgL_tmpz00_4558
																																																																													=
																																																																													BGL_MVALUES_VAL
																																																																													(BgL_tmpz00_8033);
																																																																											}
																																																																											{	/* Llib/error.scm 1368 */
																																																																												int
																																																																													BgL_tmpz00_8036;
																																																																												BgL_tmpz00_8036
																																																																													=
																																																																													(int)
																																																																													(3L);
																																																																												BGL_MVALUES_VAL_SET
																																																																													(BgL_tmpz00_8036,
																																																																													BUNSPEC);
																																																																											}
																																																																											BgL__z00_2845
																																																																												=
																																																																												BgL_tmpz00_4558;
																																																																										}
																																																																										{	/* Llib/error.scm 1368 */
																																																																											obj_t
																																																																												BgL_arg2212z00_2846;
																																																																											{	/* Llib/error.scm 1368 */
																																																																												obj_t
																																																																													BgL_arg2302z00_4560;
																																																																												BgL_arg2302z00_4560
																																																																													=
																																																																													SYMBOL_TO_STRING
																																																																													(
																																																																													((obj_t) BgL_tagz00_2842));
																																																																												BgL_arg2212z00_2846
																																																																													=
																																																																													BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																																																													(BgL_arg2302z00_4560);
																																																																											}
																																																																											{	/* Llib/error.scm 1368 */
																																																																												obj_t
																																																																													BgL_list2213z00_2847;
																																																																												{	/* Llib/error.scm 1368 */
																																																																													obj_t
																																																																														BgL_arg2214z00_2848;
																																																																													BgL_arg2214z00_2848
																																																																														=
																																																																														MAKE_YOUNG_PAIR
																																																																														(BGl_string2891z00zz__errorz00,
																																																																														BNIL);
																																																																													BgL_list2213z00_2847
																																																																														=
																																																																														MAKE_YOUNG_PAIR
																																																																														(BgL_arg2212z00_2846,
																																																																														BgL_arg2214z00_2848);
																																																																												}
																																																																												BGL_TAIL
																																																																													return
																																																																													BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																																																																													(BgL_list2213z00_2847);
																																																																											}
																																																																										}
																																																																									}
																																																																								}
																																																																							else
																																																																								{	/* Llib/error.scm 1365 */
																																																																									if (BIGNUMP(BgL_objz00_133))
																																																																										{	/* Llib/error.scm 1369 */
																																																																											return
																																																																												BGl_string2911z00zz__errorz00;
																																																																										}
																																																																									else
																																																																										{	/* Llib/error.scm 1369 */
																																																																											if (BGL_MMAPP(BgL_objz00_133))
																																																																												{	/* Llib/error.scm 1371 */
																																																																													return
																																																																														BGl_string2912z00zz__errorz00;
																																																																												}
																																																																											else
																																																																												{	/* Llib/error.scm 1371 */
																																																																													if (BGL_REGEXPP(BgL_objz00_133))
																																																																														{	/* Llib/error.scm 1373 */
																																																																															return
																																																																																BGl_string2913z00zz__errorz00;
																																																																														}
																																																																													else
																																																																														{	/* Llib/error.scm 1373 */
																																																																															if (BGL_INT8P(BgL_objz00_133))
																																																																																{	/* Llib/error.scm 1375 */
																																																																																	return
																																																																																		BGl_string2914z00zz__errorz00;
																																																																																}
																																																																															else
																																																																																{	/* Llib/error.scm 1375 */
																																																																																	if (BGL_UINT8P(BgL_objz00_133))
																																																																																		{	/* Llib/error.scm 1377 */
																																																																																			return
																																																																																				BGl_string2915z00zz__errorz00;
																																																																																		}
																																																																																	else
																																																																																		{	/* Llib/error.scm 1377 */
																																																																																			if (BGL_INT16P(BgL_objz00_133))
																																																																																				{	/* Llib/error.scm 1379 */
																																																																																					return
																																																																																						BGl_string2916z00zz__errorz00;
																																																																																				}
																																																																																			else
																																																																																				{	/* Llib/error.scm 1379 */
																																																																																					if (BGL_UINT16P(BgL_objz00_133))
																																																																																						{	/* Llib/error.scm 1381 */
																																																																																							return
																																																																																								BGl_string2917z00zz__errorz00;
																																																																																						}
																																																																																					else
																																																																																						{	/* Llib/error.scm 1381 */
																																																																																							if (BGL_INT32P(BgL_objz00_133))
																																																																																								{	/* Llib/error.scm 1383 */
																																																																																									return
																																																																																										BGl_string2918z00zz__errorz00;
																																																																																								}
																																																																																							else
																																																																																								{	/* Llib/error.scm 1383 */
																																																																																									if (BGL_UINT32P(BgL_objz00_133))
																																																																																										{	/* Llib/error.scm 1385 */
																																																																																											return
																																																																																												BGl_string2919z00zz__errorz00;
																																																																																										}
																																																																																									else
																																																																																										{	/* Llib/error.scm 1385 */
																																																																																											if (BGL_INT64P(BgL_objz00_133))
																																																																																												{	/* Llib/error.scm 1387 */
																																																																																													return
																																																																																														BGl_string2920z00zz__errorz00;
																																																																																												}
																																																																																											else
																																																																																												{	/* Llib/error.scm 1387 */
																																																																																													if (BGL_UINT64P(BgL_objz00_133))
																																																																																														{	/* Llib/error.scm 1389 */
																																																																																															return
																																																																																																BGl_string2921z00zz__errorz00;
																																																																																														}
																																																																																													else
																																																																																														{	/* Llib/error.scm 1389 */
																																																																																															if (CNSTP(BgL_objz00_133))
																																																																																																{	/* Llib/error.scm 1391 */
																																																																																																	return
																																																																																																		BGl_string2922z00zz__errorz00;
																																																																																																}
																																																																																															else
																																																																																																{	/* Llib/error.scm 1391 */
																																																																																																	return
																																																																																																		string_to_bstring
																																																																																																		(FOREIGN_TYPE_NAME
																																																																																																		(BgL_objz00_133));
																																																																																																}
																																																																																														}
																																																																																												}
																																																																																										}
																																																																																								}
																																																																																						}
																																																																																				}
																																																																																		}
																																																																																}
																																																																														}
																																																																												}
																																																																										}
																																																																								}
																																																																						}
																																																																				}
																																																																		}
																																																																}
																																																														}
																																																												}
																																																										}
																																																								}
																																																						}
																																																				}
																																																		}
																																																}
																																														}
																																												}
																																										}
																																								}
																																						}
																																				}
																																		}
																																}
																														}
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
		}

	}



/* &typeof */
	obj_t BGl_z62typeofz62zz__errorz00(obj_t BgL_envz00_5235,
		obj_t BgL_objz00_5236)
	{
		{	/* Llib/error.scm 1286 */
			return bgl_typeof(BgL_objz00_5236);
		}

	}



/* find-runtime-type */
	BGL_EXPORTED_DEF obj_t bgl_find_runtime_type(obj_t BgL_oz00_134)
	{
		{	/* Llib/error.scm 1399 */
			BGL_TAIL return bgl_typeof(BgL_oz00_134);
		}

	}



/* &find-runtime-type */
	obj_t BGl_z62findzd2runtimezd2typez62zz__errorz00(obj_t BgL_envz00_5237,
		obj_t BgL_oz00_5238)
	{
		{	/* Llib/error.scm 1399 */
			return bgl_find_runtime_type(BgL_oz00_5238);
		}

	}



/* c-debugging-show-type */
	BGL_EXPORTED_DEF char *bgl_show_type(obj_t BgL_objz00_135)
	{
		{	/* Llib/error.scm 1407 */
			{	/* Llib/error.scm 1408 */
				obj_t BgL_tz00_4561;

				BgL_tz00_4561 = bgl_typeof(BgL_objz00_135);
				{	/* Llib/error.scm 1409 */
					obj_t BgL_arg2227z00_4562;

					{	/* Llib/error.scm 1409 */
						obj_t BgL_tmpz00_8075;

						BgL_tmpz00_8075 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_arg2227z00_4562 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_8075);
					}
					{	/* Llib/error.scm 1409 */
						obj_t BgL_list2228z00_4563;

						BgL_list2228z00_4563 = MAKE_YOUNG_PAIR(BgL_tz00_4561, BNIL);
						BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg2227z00_4562,
							BgL_list2228z00_4563);
				}}
				return BSTRING_TO_STRING(BgL_tz00_4561);
			}
		}

	}



/* &c-debugging-show-type */
	obj_t BGl_z62czd2debuggingzd2showzd2typezb0zz__errorz00(obj_t BgL_envz00_5239,
		obj_t BgL_objz00_5240)
	{
		{	/* Llib/error.scm 1407 */
			return string_to_bstring(bgl_show_type(BgL_objz00_5240));
		}

	}



/* &try */
	BGL_EXPORTED_DEF obj_t BGl_z62tryz62zz__errorz00(obj_t BgL_thunkz00_136,
		obj_t BgL_handlerz00_137)
	{
		{	/* Llib/error.scm 1415 */
			BGL_TAIL return
				BGl_zc3z04exitza32229ze3ze70z60zz__errorz00(BgL_thunkz00_136,
				BgL_handlerz00_137);
		}

	}



/* <@exit:2229>~0 */
	obj_t BGl_zc3z04exitza32229ze3ze70z60zz__errorz00(obj_t BgL_thunkz00_5268,
		obj_t BgL_handlerz00_5267)
	{
		{	/* Llib/error.scm 1416 */
			jmp_buf_t jmpbuf;
			void *BgL_an_exit1147z00_2865;

			if (SET_EXIT(BgL_an_exit1147z00_2865))
				{
					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_2865 = (void *) jmpbuf;
					{	/* Llib/error.scm 1416 */
						obj_t BgL_env1151z00_2866;

						BgL_env1151z00_2866 = BGL_CURRENT_DYNAMIC_ENV();
						PUSH_ENV_EXIT(BgL_env1151z00_2866, BgL_an_exit1147z00_2865, 1L);
						{	/* Llib/error.scm 1416 */
							obj_t BgL_an_exitd1148z00_2867;

							BgL_an_exitd1148z00_2867 =
								BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1151z00_2866);
							{	/* Llib/error.scm 1416 */
								obj_t BgL_escz00_5241;

								BgL_escz00_5241 =
									MAKE_FX_PROCEDURE(BGl_z62escz62zz__errorz00,
									(int) (1L), (int) (1L));
								PROCEDURE_SET(BgL_escz00_5241,
									(int) (0L), BgL_an_exitd1148z00_2867);
								{	/* Llib/error.scm 1416 */
									obj_t BgL_res1150z00_2870;

									{	/* Llib/error.scm 1419 */
										obj_t BgL_zc3z04anonymousza32231ze3z87_5242;

										BgL_zc3z04anonymousza32231ze3z87_5242 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32231ze3ze5zz__errorz00,
											(int) (1L), (int) (3L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32231ze3z87_5242,
											(int) (0L), BgL_an_exitd1148z00_2867);
										PROCEDURE_SET(BgL_zc3z04anonymousza32231ze3z87_5242,
											(int) (1L), BgL_handlerz00_5267);
										PROCEDURE_SET(BgL_zc3z04anonymousza32231ze3z87_5242,
											(int) (2L), BgL_escz00_5241);
										BgL_res1150z00_2870 =
											BGl_withzd2exceptionzd2handlerz00zz__errorz00
											(BgL_zc3z04anonymousza32231ze3z87_5242,
											BgL_thunkz00_5268);
									}
									POP_ENV_EXIT(BgL_env1151z00_2866);
									return BgL_res1150z00_2870;
								}
							}
						}
					}
				}
		}

	}



/* &&try */
	obj_t BGl_z62z62tryz00zz__errorz00(obj_t BgL_envz00_5243,
		obj_t BgL_thunkz00_5244, obj_t BgL_handlerz00_5245)
	{
		{	/* Llib/error.scm 1415 */
			{	/* Llib/error.scm 1416 */
				obj_t BgL_auxz00_8112;
				obj_t BgL_auxz00_8105;

				if (PROCEDUREP(BgL_handlerz00_5245))
					{	/* Llib/error.scm 1416 */
						BgL_auxz00_8112 = BgL_handlerz00_5245;
					}
				else
					{
						obj_t BgL_auxz00_8115;

						BgL_auxz00_8115 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(53696L), BGl_string2923z00zz__errorz00,
							BGl_string2799z00zz__errorz00, BgL_handlerz00_5245);
						FAILURE(BgL_auxz00_8115, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_thunkz00_5244))
					{	/* Llib/error.scm 1416 */
						BgL_auxz00_8105 = BgL_thunkz00_5244;
					}
				else
					{
						obj_t BgL_auxz00_8108;

						BgL_auxz00_8108 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(53696L), BGl_string2923z00zz__errorz00,
							BGl_string2799z00zz__errorz00, BgL_thunkz00_5244);
						FAILURE(BgL_auxz00_8108, BFALSE, BFALSE);
					}
				return BGl_z62tryz62zz__errorz00(BgL_auxz00_8105, BgL_auxz00_8112);
			}
		}

	}



/* &<@anonymous:2231> */
	obj_t BGl_z62zc3z04anonymousza32231ze3ze5zz__errorz00(obj_t BgL_envz00_5246,
		obj_t BgL_ez00_5250)
	{
		{	/* Llib/error.scm 1418 */
			{	/* Llib/error.scm 1419 */
				obj_t BgL_handlerz00_5248;
				obj_t BgL_escz00_5249;

				BgL_handlerz00_5248 =
					((obj_t) PROCEDURE_REF(BgL_envz00_5246, (int) (1L)));
				BgL_escz00_5249 = ((obj_t) PROCEDURE_REF(BgL_envz00_5246, (int) (2L)));
				{	/* Llib/error.scm 1419 */
					bool_t BgL_test3429z00_8126;

					{	/* Llib/error.scm 1419 */
						obj_t BgL_classz00_5321;

						BgL_classz00_5321 = BGl_z62errorz62zz__objectz00;
						if (BGL_OBJECTP(BgL_ez00_5250))
							{	/* Llib/error.scm 1419 */
								BgL_objectz00_bglt BgL_arg2702z00_5322;

								BgL_arg2702z00_5322 = (BgL_objectz00_bglt) (BgL_ez00_5250);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Llib/error.scm 1419 */
										long BgL_idxz00_5323;

										BgL_idxz00_5323 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg2702z00_5322);
										BgL_test3429z00_8126 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_5323 + 3L)) == BgL_classz00_5321);
									}
								else
									{	/* Llib/error.scm 1419 */
										bool_t BgL_res2724z00_5326;

										{	/* Llib/error.scm 1419 */
											obj_t BgL_oclassz00_5327;

											{	/* Llib/error.scm 1419 */
												long BgL_arg2709z00_5328;

												{	/* Llib/error.scm 1419 */
													long BgL_arg2710z00_5329;

													BgL_arg2710z00_5329 =
														BGL_OBJECT_CLASS_NUM(BgL_arg2702z00_5322);
													BgL_arg2709z00_5328 =
														(BgL_arg2710z00_5329 - OBJECT_TYPE);
												}
												BgL_oclassz00_5327 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg2709z00_5328);
											}
											{	/* Llib/error.scm 1419 */
												bool_t BgL__ortest_1198z00_5330;

												BgL__ortest_1198z00_5330 =
													(BgL_classz00_5321 == BgL_oclassz00_5327);
												if (BgL__ortest_1198z00_5330)
													{	/* Llib/error.scm 1419 */
														BgL_res2724z00_5326 = BgL__ortest_1198z00_5330;
													}
												else
													{	/* Llib/error.scm 1419 */
														long BgL_odepthz00_5331;

														BgL_odepthz00_5331 =
															BGL_CLASS_DEPTH(BgL_oclassz00_5327);
														if ((3L < BgL_odepthz00_5331))
															{	/* Llib/error.scm 1419 */
																obj_t BgL_arg2699z00_5332;

																BgL_arg2699z00_5332 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_5327,
																	3L);
																BgL_res2724z00_5326 =
																	(BgL_arg2699z00_5332 == BgL_classz00_5321);
															}
														else
															{	/* Llib/error.scm 1419 */
																BgL_res2724z00_5326 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test3429z00_8126 = BgL_res2724z00_5326;
									}
							}
						else
							{	/* Llib/error.scm 1419 */
								BgL_test3429z00_8126 = ((bool_t) 0);
							}
					}
					if (BgL_test3429z00_8126)
						{	/* Llib/error.scm 1419 */
							{	/* Llib/error.scm 1421 */
								obj_t BgL_arg2233z00_5333;
								obj_t BgL_arg2234z00_5334;
								obj_t BgL_arg2235z00_5335;

								BgL_arg2233z00_5333 =
									(((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_ez00_5250)))->BgL_procz00);
								BgL_arg2234z00_5334 =
									(((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_ez00_5250)))->BgL_msgz00);
								BgL_arg2235z00_5335 =
									(((BgL_z62errorz62_bglt) COBJECT(
											((BgL_z62errorz62_bglt) BgL_ez00_5250)))->BgL_objz00);
								(VA_PROCEDUREP(BgL_handlerz00_5248) ? ((obj_t(*)(obj_t,
												...))
										PROCEDURE_ENTRY(BgL_handlerz00_5248)) (BgL_handlerz00_5248,
										BgL_escz00_5249, BgL_arg2233z00_5333, BgL_arg2234z00_5334,
										BgL_arg2235z00_5335, BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t,
												obj_t,
												obj_t))
										PROCEDURE_ENTRY(BgL_handlerz00_5248)) (BgL_handlerz00_5248,
										BgL_escz00_5249, BgL_arg2233z00_5333, BgL_arg2234z00_5334,
										BgL_arg2235z00_5335));
							}
							{	/* Llib/error.scm 1422 */
								obj_t BgL_list2236z00_5336;

								BgL_list2236z00_5336 = MAKE_YOUNG_PAIR(BINT(4L), BNIL);
								return BGl_exitz00zz__errorz00(BgL_list2236z00_5336);
							}
						}
					else
						{	/* Llib/error.scm 1419 */
							return BGl_raisez00zz__errorz00(BgL_ez00_5250);
						}
				}
			}
		}

	}



/* &esc */
	obj_t BGl_z62escz62zz__errorz00(obj_t BgL_envz00_5251,
		obj_t BgL_val1149z00_5253)
	{
		{	/* Llib/error.scm 1416 */
			return
				unwind_stack_until(PROCEDURE_REF(BgL_envz00_5251,
					(int) (0L)), BFALSE, BgL_val1149z00_5253, 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 1429 */
			BGL_ERROR_HANDLER_PUSH(BgL_hdlz00_138, BgL_exitz00_139);
			return BUNSPEC;
		}

	}



/* &push-error-handler! */
	obj_t BGl_z62pushzd2errorzd2handlerz12z70zz__errorz00(obj_t BgL_envz00_5254,
		obj_t BgL_hdlz00_5255, obj_t BgL_exitz00_5256)
	{
		{	/* Llib/error.scm 1429 */
			{	/* Llib/error.scm 1429 */
				obj_t BgL_auxz00_8167;

				if (PROCEDUREP(BgL_hdlz00_5255))
					{	/* Llib/error.scm 1429 */
						BgL_auxz00_8167 = BgL_hdlz00_5255;
					}
				else
					{
						obj_t BgL_auxz00_8170;

						BgL_auxz00_8170 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(54117L), BGl_string2924z00zz__errorz00,
							BGl_string2799z00zz__errorz00, BgL_hdlz00_5255);
						FAILURE(BgL_auxz00_8170, BFALSE, BFALSE);
					}
				return
					BGl_pushzd2errorzd2handlerz12z12zz__errorz00(BgL_auxz00_8167,
					BgL_exitz00_5256);
			}
		}

	}



/* set-error-handler! */
	BGL_EXPORTED_DEF obj_t BGl_setzd2errorzd2handlerz12z12zz__errorz00(obj_t
		BgL_ehdlz00_140)
	{
		{	/* Llib/error.scm 1435 */
			BGL_ERROR_HANDLER_SET(BgL_ehdlz00_140);
			return BUNSPEC;
		}

	}



/* &set-error-handler! */
	obj_t BGl_z62setzd2errorzd2handlerz12z70zz__errorz00(obj_t BgL_envz00_5257,
		obj_t BgL_ehdlz00_5258)
	{
		{	/* Llib/error.scm 1435 */
			return BGl_setzd2errorzd2handlerz12z12zz__errorz00(BgL_ehdlz00_5258);
		}

	}



/* 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 1441 */
			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_5259, obj_t BgL_envz00_5260, obj_t BgL_ehdlz00_5261)
	{
		{	/* Llib/error.scm 1441 */
			{	/* Llib/error.scm 1441 */
				obj_t BgL_auxz00_8178;

				if (BGL_DYNAMIC_ENVP(BgL_envz00_5260))
					{	/* Llib/error.scm 1441 */
						BgL_auxz00_8178 = BgL_envz00_5260;
					}
				else
					{
						obj_t BgL_auxz00_8181;

						BgL_auxz00_8181 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(54717L), BGl_string2925z00zz__errorz00,
							BGl_string2926z00zz__errorz00, BgL_envz00_5260);
						FAILURE(BgL_auxz00_8181, BFALSE, BFALSE);
					}
				return
					BGl_envzd2setzd2errorzd2handlerz12zc0zz__errorz00(BgL_auxz00_8178,
					BgL_ehdlz00_5261);
			}
		}

	}



/* get-error-handler */
	BGL_EXPORTED_DEF obj_t BGl_getzd2errorzd2handlerz00zz__errorz00(void)
	{
		{	/* Llib/error.scm 1447 */
			return BGL_ERROR_HANDLER_GET();
		}

	}



/* &get-error-handler */
	obj_t BGl_z62getzd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5262)
	{
		{	/* Llib/error.scm 1447 */
			return BGl_getzd2errorzd2handlerz00zz__errorz00();
		}

	}



/* env-get-error-handler */
	BGL_EXPORTED_DEF obj_t BGl_envzd2getzd2errorzd2handlerzd2zz__errorz00(obj_t
		BgL_envz00_143)
	{
		{	/* Llib/error.scm 1453 */
			return BGL_ENV_ERROR_HANDLER_GET(BgL_envz00_143);
		}

	}



/* &env-get-error-handler */
	obj_t BGl_z62envzd2getzd2errorzd2handlerzb0zz__errorz00(obj_t BgL_envz00_5263,
		obj_t BgL_envz00_5264)
	{
		{	/* Llib/error.scm 1453 */
			{	/* Llib/error.scm 1454 */
				obj_t BgL_auxz00_8189;

				if (BGL_DYNAMIC_ENVP(BgL_envz00_5264))
					{	/* Llib/error.scm 1454 */
						BgL_auxz00_8189 = BgL_envz00_5264;
					}
				else
					{
						obj_t BgL_auxz00_8192;

						BgL_auxz00_8192 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
							BINT(55357L), BGl_string2927z00zz__errorz00,
							BGl_string2926z00zz__errorz00, BgL_envz00_5264);
						FAILURE(BgL_auxz00_8192, BFALSE, BFALSE);
					}
				return BGl_envzd2getzd2errorzd2handlerzd2zz__errorz00(BgL_auxz00_8189);
			}
		}

	}



/* notify-interrupt */
	BGL_EXPORTED_DEF obj_t BGl_notifyzd2interruptzd2zz__errorz00(int
		BgL_sigz00_144)
	{
		{	/* Llib/error.scm 1459 */
			{	/* Llib/error.scm 1460 */
				obj_t BgL_notifyz00_4596;

				BgL_notifyz00_4596 = BGL_INTERRUPT_NOTIFIER_GET();
				if (PROCEDUREP(BgL_notifyz00_4596))
					{	/* Llib/error.scm 1461 */
						return
							(VA_PROCEDUREP(BgL_notifyz00_4596) ? ((obj_t(*)(obj_t,
										...))
								PROCEDURE_ENTRY(BgL_notifyz00_4596)) (BgL_notifyz00_4596,
								BINT(BgL_sigz00_144), BEOA) : ((obj_t(*)(obj_t,
										obj_t))
								PROCEDURE_ENTRY(BgL_notifyz00_4596)) (BgL_notifyz00_4596,
								BINT(BgL_sigz00_144)));
					}
				else
					{	/* Llib/error.scm 1470 */
						obj_t BgL_portz00_4598;

						{	/* Llib/error.scm 1470 */
							obj_t BgL_tmpz00_8205;

							BgL_tmpz00_8205 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_portz00_4598 = BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_8205);
						}
						{	/* Llib/error.scm 1471 */
							obj_t BgL_list2238z00_4599;

							BgL_list2238z00_4599 = MAKE_YOUNG_PAIR(BgL_portz00_4598, BNIL);
							BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2238z00_4599);
						}
						{	/* Llib/error.scm 1472 */
							obj_t BgL_list2239z00_4600;

							BgL_list2239z00_4600 =
								MAKE_YOUNG_PAIR(BGl_string2928z00zz__errorz00, BNIL);
							BGl_fprintz00zz__r4_output_6_10_3z00(BgL_portz00_4598,
								BgL_list2239z00_4600);
						}
						return bgl_flush_output_port(BgL_portz00_4598);
					}
			}
		}

	}



/* &notify-interrupt */
	obj_t BGl_z62notifyzd2interruptzb0zz__errorz00(obj_t BgL_envz00_5265,
		obj_t BgL_sigz00_5266)
	{
		{	/* Llib/error.scm 1459 */
			{	/* Llib/error.scm 1460 */
				int BgL_auxz00_8213;

				{	/* Llib/error.scm 1460 */
					obj_t BgL_tmpz00_8214;

					if (INTEGERP(BgL_sigz00_5266))
						{	/* Llib/error.scm 1460 */
							BgL_tmpz00_8214 = BgL_sigz00_5266;
						}
					else
						{
							obj_t BgL_auxz00_8217;

							BgL_auxz00_8217 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2789z00zz__errorz00,
								BINT(55644L), BGl_string2929z00zz__errorz00,
								BGl_string2791z00zz__errorz00, BgL_sigz00_5266);
							FAILURE(BgL_auxz00_8217, BFALSE, BFALSE);
						}
					BgL_auxz00_8213 = CINT(BgL_tmpz00_8214);
				}
				return BGl_notifyzd2interruptzd2zz__errorz00(BgL_auxz00_8213);
			}
		}

	}



/* &sigfpe-error-handler */
	obj_t BGl_z62sigfpezd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5096,
		obj_t BgL_nz00_5097)
	{
		{	/* Llib/error.scm 1478 */
			{	/* Llib/error.scm 546 */
				BgL_z62errorz62_bglt BgL_arg1509z00_5337;

				{	/* Llib/error.scm 546 */
					BgL_z62errorz62_bglt BgL_new1079z00_5338;

					{	/* Llib/error.scm 546 */
						BgL_z62errorz62_bglt BgL_new1078z00_5339;

						BgL_new1078z00_5339 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 546 */
							long BgL_arg1516z00_5340;

							BgL_arg1516z00_5340 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_5339),
								BgL_arg1516z00_5340);
						}
						BgL_new1079z00_5338 = BgL_new1078z00_5339;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1079z00_5338)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1079z00_5338)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_8231;

						{	/* Llib/error.scm 546 */
							obj_t BgL_arg1512z00_5341;

							{	/* Llib/error.scm 546 */
								obj_t BgL_arg1515z00_5342;

								{	/* Llib/error.scm 546 */
									obj_t BgL_classz00_5343;

									BgL_classz00_5343 = BGl_z62errorz62zz__objectz00;
									BgL_arg1515z00_5342 = BGL_CLASS_ALL_FIELDS(BgL_classz00_5343);
								}
								BgL_arg1512z00_5341 = VECTOR_REF(BgL_arg1515z00_5342, 2L);
							}
							BgL_auxz00_8231 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1512z00_5341);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_5338)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_8231), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5338))->
							BgL_procz00) = ((obj_t) BGl_string2930z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5338))->BgL_msgz00) =
						((obj_t) BGl_string2931z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5338))->BgL_objz00) =
						((obj_t) BGl_string2932z00zz__errorz00), BUNSPEC);
					BgL_arg1509z00_5337 = BgL_new1079z00_5338;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1509z00_5337));
			}
		}

	}



/* &sigill-error-handler */
	obj_t BGl_z62sigillzd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5098,
		obj_t BgL_nz00_5099)
	{
		{	/* Llib/error.scm 1484 */
			{	/* Llib/error.scm 546 */
				BgL_z62errorz62_bglt BgL_arg1509z00_5344;

				{	/* Llib/error.scm 546 */
					BgL_z62errorz62_bglt BgL_new1079z00_5345;

					{	/* Llib/error.scm 546 */
						BgL_z62errorz62_bglt BgL_new1078z00_5346;

						BgL_new1078z00_5346 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 546 */
							long BgL_arg1516z00_5347;

							BgL_arg1516z00_5347 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_5346),
								BgL_arg1516z00_5347);
						}
						BgL_new1079z00_5345 = BgL_new1078z00_5346;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1079z00_5345)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1079z00_5345)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_8250;

						{	/* Llib/error.scm 546 */
							obj_t BgL_arg1512z00_5348;

							{	/* Llib/error.scm 546 */
								obj_t BgL_arg1515z00_5349;

								{	/* Llib/error.scm 546 */
									obj_t BgL_classz00_5350;

									BgL_classz00_5350 = BGl_z62errorz62zz__objectz00;
									BgL_arg1515z00_5349 = BGL_CLASS_ALL_FIELDS(BgL_classz00_5350);
								}
								BgL_arg1512z00_5348 = VECTOR_REF(BgL_arg1515z00_5349, 2L);
							}
							BgL_auxz00_8250 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1512z00_5348);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_5345)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_8250), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5345))->
							BgL_procz00) = ((obj_t) BGl_string2933z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5345))->BgL_msgz00) =
						((obj_t) BGl_string2934z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5345))->BgL_objz00) =
						((obj_t) BGl_string2932z00zz__errorz00), BUNSPEC);
					BgL_arg1509z00_5344 = BgL_new1079z00_5345;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1509z00_5344));
			}
		}

	}



/* &sigbus-error-handler */
	obj_t BGl_z62sigbuszd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5100,
		obj_t BgL_nz00_5101)
	{
		{	/* Llib/error.scm 1490 */
			{	/* Llib/error.scm 546 */
				BgL_z62errorz62_bglt BgL_arg1509z00_5351;

				{	/* Llib/error.scm 546 */
					BgL_z62errorz62_bglt BgL_new1079z00_5352;

					{	/* Llib/error.scm 546 */
						BgL_z62errorz62_bglt BgL_new1078z00_5353;

						BgL_new1078z00_5353 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 546 */
							long BgL_arg1516z00_5354;

							BgL_arg1516z00_5354 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_5353),
								BgL_arg1516z00_5354);
						}
						BgL_new1079z00_5352 = BgL_new1078z00_5353;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1079z00_5352)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1079z00_5352)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_8269;

						{	/* Llib/error.scm 546 */
							obj_t BgL_arg1512z00_5355;

							{	/* Llib/error.scm 546 */
								obj_t BgL_arg1515z00_5356;

								{	/* Llib/error.scm 546 */
									obj_t BgL_classz00_5357;

									BgL_classz00_5357 = BGl_z62errorz62zz__objectz00;
									BgL_arg1515z00_5356 = BGL_CLASS_ALL_FIELDS(BgL_classz00_5357);
								}
								BgL_arg1512z00_5355 = VECTOR_REF(BgL_arg1515z00_5356, 2L);
							}
							BgL_auxz00_8269 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1512z00_5355);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_5352)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_8269), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5352))->
							BgL_procz00) = ((obj_t) BGl_string2933z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5352))->BgL_msgz00) =
						((obj_t) BGl_string2935z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5352))->BgL_objz00) =
						((obj_t) BGl_string2932z00zz__errorz00), BUNSPEC);
					BgL_arg1509z00_5351 = BgL_new1079z00_5352;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1509z00_5351));
			}
		}

	}



/* &sigsegv-error-handler */
	obj_t BGl_z62sigsegvzd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5102,
		obj_t BgL_nz00_5103)
	{
		{	/* Llib/error.scm 1496 */
			{	/* Llib/error.scm 546 */
				BgL_z62errorz62_bglt BgL_arg1509z00_5358;

				{	/* Llib/error.scm 546 */
					BgL_z62errorz62_bglt BgL_new1079z00_5359;

					{	/* Llib/error.scm 546 */
						BgL_z62errorz62_bglt BgL_new1078z00_5360;

						BgL_new1078z00_5360 =
							((BgL_z62errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62errorz62_bgl))));
						{	/* Llib/error.scm 546 */
							long BgL_arg1516z00_5361;

							BgL_arg1516z00_5361 = BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_5360),
								BgL_arg1516z00_5361);
						}
						BgL_new1079z00_5359 = BgL_new1078z00_5360;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1079z00_5359)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1079z00_5359)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_8288;

						{	/* Llib/error.scm 546 */
							obj_t BgL_arg1512z00_5362;

							{	/* Llib/error.scm 546 */
								obj_t BgL_arg1515z00_5363;

								{	/* Llib/error.scm 546 */
									obj_t BgL_classz00_5364;

									BgL_classz00_5364 = BGl_z62errorz62zz__objectz00;
									BgL_arg1515z00_5363 = BGL_CLASS_ALL_FIELDS(BgL_classz00_5364);
								}
								BgL_arg1512z00_5362 = VECTOR_REF(BgL_arg1515z00_5363, 2L);
							}
							BgL_auxz00_8288 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1512z00_5362);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1079z00_5359)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_8288), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5359))->
							BgL_procz00) = ((obj_t) BGl_string2933z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5359))->BgL_msgz00) =
						((obj_t) BGl_string2936z00zz__errorz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(BgL_new1079z00_5359))->BgL_objz00) =
						((obj_t) BGl_string2932z00zz__errorz00), BUNSPEC);
					BgL_arg1509z00_5358 = BgL_new1079z00_5359;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1509z00_5358));
			}
		}

	}



/* 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_string2937z00zz__errorz00));
			return
				BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2937z00zz__errorz00));
		}

	}

#ifdef __cplusplus
}
#endif
