/*===========================================================================*/
/*   (Ieee/flonum.scm)                                                       */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Ieee/flonum.scm -indent -o objs/obj_u/Ieee/flonum.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___R4_NUMBERS_6_5_FLONUM_TYPE_DEFINITIONS
#define BGL___R4_NUMBERS_6_5_FLONUM_TYPE_DEFINITIONS
#endif													// BGL___R4_NUMBERS_6_5_FLONUM_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	BGL_EXPORTED_DECL obj_t
		BGl_realzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(obj_t);
	static obj_t BGl_z62stringzd2ze3realz53zz__r4_numbers_6_5_flonumz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ze3zd3flz30zz__r4_numbers_6_5_flonumz00(double,
		double);
	static obj_t BGl_z62remainderflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62negflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL float
		BGl_ieeezd2stringzd2ze3floatze3zz__r4_numbers_6_5_flonumz00(obj_t);
	static obj_t BGl_z62za2flzc0zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
	extern float bgl_ieee_string_to_float(obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_infiniteflzf3zf3zz__r4_numbers_6_5_flonumz00(double);
	extern obj_t the_failure(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL double BGl_ceilingflz00zz__r4_numbers_6_5_flonumz00(double);
	static obj_t BGl_z62oddflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t BGl_z62atanzd22flzd2urz62zz__r4_numbers_6_5_flonumz00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ze3flze3zz__r4_numbers_6_5_flonumz00(double,
		double);
	static obj_t BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00 =
		BUNSPEC;
	BGL_EXPORTED_DECL double BGl_randomflz00zz__r4_numbers_6_5_flonumz00(void);
	BGL_EXPORTED_DECL double BGl_exptflz00zz__r4_numbers_6_5_flonumz00(double,
		double);
	BGL_EXPORTED_DECL double
		BGl_atanzd21flzd2zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL double BGl_sqrtflz00zz__r4_numbers_6_5_flonumz00(double);
	static obj_t BGl_z62asinflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL double
		BGl_stringzd2ze3realz31zz__r4_numbers_6_5_flonumz00(obj_t);
	static obj_t
		BGl_z62doublezd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL double BGl_logflz00zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL double BGl_minzd22flzd2zz__r4_numbers_6_5_flonumz00(double,
		double);
	BGL_EXPORTED_DECL double BGl_minflz00zz__r4_numbers_6_5_flonumz00(double,
		obj_t);
	BGL_EXPORTED_DECL double BGl_maxzd22flzd2zz__r4_numbers_6_5_flonumz00(double,
		double);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62minzd22flzb0zz__r4_numbers_6_5_flonumz00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl_z62maxzd22flzb0zz__r4_numbers_6_5_flonumz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62maxflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_evenflzf3zf3zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL BGL_LONGLONG_T
		BGl_doublezd2ze3llongzd2bitsze3zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL double BGl_zf2flzf2zz__r4_numbers_6_5_flonumz00(double,
		double);
	static obj_t
		BGl_z62ieeezd2stringzd2ze3floatz81zz__r4_numbers_6_5_flonumz00(obj_t,
		obj_t);
	static obj_t BGl_z62zb2flzd0zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62evenflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL int
		BGl_floatzd2ze3intzd2bitsze3zz__r4_numbers_6_5_flonumz00(float);
	static obj_t
		BGl_z62floatzd2ze3intzd2bitsz81zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t
		BGl_z62ieeezd2stringzd2ze3realz81zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_za7eroflzf3z54zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL double BGl_atanzd22flzd2zz__r4_numbers_6_5_flonumz00(double,
		double);
	BGL_EXPORTED_DECL double BGl_atanflz00zz__r4_numbers_6_5_flonumz00(double,
		obj_t);
	static obj_t BGl_z62za7eroflzf3z36zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL double BGl_acosflz00zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL double BGl_expflz00zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL double
		BGl_ieeezd2stringzd2ze3doubleze3zz__r4_numbers_6_5_flonumz00(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_nanflzf3zf3zz__r4_numbers_6_5_flonumz00(double);
	static obj_t BGl_z62finiteflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_realzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_positiveflzf3zf3zz__r4_numbers_6_5_flonumz00(double);
	static obj_t
		BGl_z62doublezd2ze3llongzd2bitsz81zz__r4_numbers_6_5_flonumz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3flza1zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL double BGl_floorflz00zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL double
		BGl_truncateflz00zz__r4_numbers_6_5_flonumz00(double);
	static obj_t BGl_z62floorflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL double BGl_roundflz00zz__r4_numbers_6_5_flonumz00(double);
	static obj_t BGl_z62roundflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t BGl_z62negativeflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t,
		obj_t);
	static obj_t
		BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_flonumz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__r4_numbers_6_5_flonumz00(void);
	BGL_EXPORTED_DECL double BGl_tanflz00zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL double BGl_log10flz00zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL double BGl_cosflz00zz__r4_numbers_6_5_flonumz00(double);
	static obj_t BGl_z62logflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t BGl_z62log10flz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t BGl_z62minflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zd2flzb0zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62signbitflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_oddflzf3zf3zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL double BGl_absflz00zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL obj_t
		BGl_ieeezd2stringzd2ze3realze3zz__r4_numbers_6_5_flonumz00(obj_t);
	static obj_t BGl_z62zd3flzb1zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62randomflz62zz__r4_numbers_6_5_flonumz00(obj_t);
	static obj_t BGl_z62atanzd21flzb0zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL double BGl_asinflz00zz__r4_numbers_6_5_flonumz00(double);
	static obj_t BGl_z62truncateflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t BGl_z62expflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL double
		BGl_remainderflz00zz__r4_numbers_6_5_flonumz00(double, double);
	BGL_EXPORTED_DECL bool_t
		BGl_finiteflzf3zf3zz__r4_numbers_6_5_flonumz00(double);
	static obj_t BGl_z62zc3zd3flz72zz__r4_numbers_6_5_flonumz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62sqrtflzd2urzb0zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL double BGl_za2flza2zz__r4_numbers_6_5_flonumz00(double,
		double);
	extern double bgl_ieee_string_to_double(obj_t);
	static obj_t BGl_z62realzf3z91zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL double
		BGl_atanzd22flzd2urz00zz__r4_numbers_6_5_flonumz00(double, double);
	static obj_t BGl_z62log2flz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t BGl_z62infiniteflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t,
		obj_t);
	static obj_t BGl_z62ze3flz81zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62atanzd22flzb0zz__r4_numbers_6_5_flonumz00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_integerflzf3zf3zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL obj_t
		BGl_doublezd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL bool_t BGl_zc3zd3flz10zz__r4_numbers_6_5_flonumz00(double,
		double);
	static obj_t BGl_z62tanflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL double BGl_sinflz00zz__r4_numbers_6_5_flonumz00(double);
	static obj_t BGl_z62cosflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL double BGl_zb2flzb2zz__r4_numbers_6_5_flonumz00(double,
		double);
	BGL_EXPORTED_DECL double
		BGl_llongzd2bitszd2ze3doubleze3zz__r4_numbers_6_5_flonumz00(BGL_LONGLONG_T);
	BGL_EXPORTED_DECL long BGl_signbitflz00zz__r4_numbers_6_5_flonumz00(double);
	static obj_t BGl_z62zf2flz90zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62absflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t BGl_z62exptflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62sqrtflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t BGl_z62integerflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t
		BGl_z62ieeezd2stringzd2ze3doublez81zz__r4_numbers_6_5_flonumz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL float
		BGl_intzd2bitszd2ze3floatze3zz__r4_numbers_6_5_flonumz00(int);
	BGL_EXPORTED_DECL double BGl_negflz00zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL double
		BGl_sqrtflzd2urzd2zz__r4_numbers_6_5_flonumz00(double);
	static obj_t
		BGl_z62intzd2bitszd2ze3floatz81zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t
		BGl_z62realzd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_floatzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(float);
	extern obj_t bgl_float_to_ieee_string(float);
	static obj_t
		BGl_z62llongzd2bitszd2ze3doublez81zz__r4_numbers_6_5_flonumz00(obj_t,
		obj_t);
	static obj_t BGl_z62positiveflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t BGl_zc3flzc3zz__r4_numbers_6_5_flonumz00(double,
		double);
	static obj_t BGl_z62ceilingflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t BGl_z62atanflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62acosflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_negativeflzf3zf3zz__r4_numbers_6_5_flonumz00(double);
	BGL_EXPORTED_DECL bool_t BGl_flonumzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t);
	static obj_t BGl_z62ze3zd3flz52zz__r4_numbers_6_5_flonumz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62nanflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t BGl_z62flonumzf3z91zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	BGL_EXPORTED_DECL double BGl_maxflz00zz__r4_numbers_6_5_flonumz00(double,
		obj_t);
	BGL_EXPORTED_DECL double BGl_zd2flzd2zz__r4_numbers_6_5_flonumz00(double,
		double);
	static obj_t BGl_z62sinflz62zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
	static obj_t
		BGl_z62floatzd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL double BGl_log2flz00zz__r4_numbers_6_5_flonumz00(double);
	extern obj_t bgl_double_to_ieee_string(double);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_zd3flzd3zz__r4_numbers_6_5_flonumz00(double,
		double);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_ze3flzd2envz31zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762za7e3flza781za7za7__r1643za7,
		BGl_z62ze3flz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_atanzd21flzd2envz00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762atanza7d21flza7b01644za7,
		BGl_z62atanzd21flzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_sqrtflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762sqrtflza762za7za7__1645z00,
		BGl_z62sqrtflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_doublezd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762doubleza7d2za7e3i1646za7,
		BGl_z62doublezd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_logflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762logflza762za7za7__r1647z00,
		BGl_z62logflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cosflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762cosflza762za7za7__r1648z00,
		BGl_z62cosflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_signbitflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762signbitflza762za71649za7,
		BGl_z62signbitflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_ieeezd2stringzd2ze3realzd2envz31zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762ieeeza7d2string1650z00,
		BGl_z62ieeezd2stringzd2ze3realz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_acosflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762acosflza762za7za7__1651z00,
		BGl_z62acosflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_ze3zd3flzd2envze2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762za7e3za7d3flza752za7za71652z00,
		BGl_z62ze3zd3flz52zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_ieeezd2stringzd2ze3floatzd2envz31zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762ieeeza7d2string1653z00,
		BGl_z62ieeezd2stringzd2ze3floatz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_positiveflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762positiveflza7f31654z00,
		BGl_z62positiveflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_ceilingflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762ceilingflza762za71655za7,
		BGl_z62ceilingflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_zc3flzd2envz11zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762za7c3flza7a1za7za7__r1656za7,
		BGl_z62zc3flza1zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_floorflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762floorflza762za7za7_1657z00,
		BGl_z62floorflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_REAL(BGl_real1611z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_real1611za700za7za7__r1658za7, 0.0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_truncateflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762truncateflza7621659z00,
		BGl_z62truncateflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_integerflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762integerflza7f3za71660za7,
		BGl_z62integerflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1600z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1600za700za7za7_1661za7, "&log2fl", 7);
	      BGL_DEFINE_STRING(BGl_string1601z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1601za700za7za7_1662za7, "&log10fl", 8);
	      BGL_DEFINE_STRING(BGl_string1602z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1602za700za7za7_1663za7, "&sinfl", 6);
	      BGL_DEFINE_STRING(BGl_string1603z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1603za700za7za7_1664za7, "&cosfl", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_zc3zd3flzd2envzc2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762za7c3za7d3flza772za7za71665z00,
		BGl_z62zc3zd3flz72zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1604z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1604za700za7za7_1666za7, "&tanfl", 6);
	      BGL_DEFINE_STRING(BGl_string1605z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1605za700za7za7_1667za7, "&asinfl", 7);
	      BGL_DEFINE_STRING(BGl_string1606z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1606za700za7za7_1668za7, "&acosfl", 7);
	      BGL_DEFINE_STRING(BGl_string1607z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1607za700za7za7_1669za7, "&atanfl", 7);
	      BGL_DEFINE_STRING(BGl_string1608z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1608za700za7za7_1670za7, "&atan-1fl", 9);
	      BGL_DEFINE_STRING(BGl_string1609z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1609za700za7za7_1671za7, "atanfl", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_minzd22flzd2envz00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762minza7d22flza7b0za71672z00,
		BGl_z62minzd22flzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_doublezd2ze3llongzd2bitszd2envz31zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762doubleza7d2za7e3l1673za7,
		BGl_z62doublezd2ze3llongzd2bitsz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_zf2flzd2envz20zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762za7f2flza790za7za7__r1674za7,
		BGl_z62zf2flz90zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_log2flzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762log2flza762za7za7__1675z00,
		BGl_z62log2flz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_oddflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762oddflza7f3za791za7za71676za7,
		BGl_z62oddflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_absflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762absflza762za7za7__r1677z00,
		BGl_z62absflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1610z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1610za700za7za7_1678za7, "Domain error", 12);
	      BGL_DEFINE_STRING(BGl_string1612z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1612za700za7za7_1679za7, "&atan-2fl", 9);
	      BGL_DEFINE_STRING(BGl_string1613z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1613za700za7za7_1680za7, "&atan-2fl-ur", 12);
	      BGL_DEFINE_STRING(BGl_string1614z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1614za700za7za7_1681za7, "sqrtfl", 6);
	      BGL_DEFINE_STRING(BGl_string1615z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1615za700za7za7_1682za7, "&sqrtfl", 7);
	      BGL_DEFINE_STRING(BGl_string1616z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1616za700za7za7_1683za7, "&sqrtfl-ur", 10);
	      BGL_DEFINE_STRING(BGl_string1617z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1617za700za7za7_1684za7, "&exptfl", 7);
	      BGL_DEFINE_STRING(BGl_string1618z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1618za700za7za7_1685za7, "&signbitfl", 10);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_za7eroflzf3zd2envz86zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762za7a7eroflza7f3za731686z00,
		BGl_z62za7eroflzf3z36zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1619z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1619za700za7za7_1687za7, "&integerfl?", 11);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_atanzd22flzd2envz00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762atanza7d22flza7b01688za7,
		BGl_z62atanzd22flzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1620z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1620za700za7za7_1689za7, "&evenfl?", 8);
	      BGL_DEFINE_STRING(BGl_string1621z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1621za700za7za7_1690za7, "&oddfl?", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_intzd2bitszd2ze3floatzd2envz31zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762intza7d2bitsza7d21691za7,
		BGl_z62intzd2bitszd2ze3floatz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string1622z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1622za700za7za7_1692za7, "&finitefl?", 10);
	      BGL_DEFINE_STRING(BGl_string1623z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1623za700za7za7_1693za7, "&infinitefl?", 12);
	      BGL_DEFINE_STRING(BGl_string1624z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1624za700za7za7_1694za7, "&nanfl?", 7);
	      BGL_DEFINE_STRING(BGl_string1625z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1625za700za7za7_1695za7, "+nan.0", 6);
	      BGL_DEFINE_STRING(BGl_string1626z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1626za700za7za7_1696za7, "+inf.0", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_finiteflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762finiteflza7f3za791697za7,
		BGl_z62finiteflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1627z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1627za700za7za7_1698za7, "-inf.0", 6);
	      BGL_DEFINE_STRING(BGl_string1628z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1628za700za7za7_1699za7, "&string->real", 13);
	      BGL_DEFINE_STRING(BGl_string1629z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1629za700za7za7_1700za7, "bstring", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_za2flzd2envz70zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762za7a2flza7c0za7za7__r1701za7,
		BGl_z62za2flzc0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1630z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1630za700za7za7_1702za7, "&ieee-string->real", 18);
	      BGL_DEFINE_STRING(BGl_string1631z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1631za700za7za7_1703za7, "&real->ieee-string", 18);
	      BGL_DEFINE_STRING(BGl_string1632z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1632za700za7za7_1704za7, "&ieee-string->double", 20);
	      BGL_DEFINE_STRING(BGl_string1633z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1633za700za7za7_1705za7, "&double->ieee-string", 20);
	      BGL_DEFINE_STRING(BGl_string1634z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1634za700za7za7_1706za7, "&ieee-string->float", 19);
	      BGL_DEFINE_STRING(BGl_string1635z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1635za700za7za7_1707za7, "&float->ieee-string", 19);
	      BGL_DEFINE_STRING(BGl_string1636z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1636za700za7za7_1708za7, "&double->llong-bits", 19);
	      BGL_DEFINE_STRING(BGl_string1637z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1637za700za7za7_1709za7, "&llong-bits->double", 19);
	      BGL_DEFINE_STRING(BGl_string1638z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1638za700za7za7_1710za7, "bllong", 6);
	      BGL_DEFINE_STRING(BGl_string1639z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1639za700za7za7_1711za7, "&float->int-bits", 16);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2ze3realzd2envze3zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762stringza7d2za7e3r1712za7,
		BGl_z62stringzd2ze3realz53zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1640z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1640za700za7za7_1713za7, "&int-bits->float", 16);
	      BGL_DEFINE_STRING(BGl_string1641z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1641za700za7za7_1714za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string1642z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1642za700za7za7_1715za7, "__r4_numbers_6_5_flonum", 23);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_tanflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762tanflza762za7za7__r1716z00,
		BGl_z62tanflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_log10flzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762log10flza762za7za7_1717z00,
		BGl_z62log10flz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_minflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762minflza762za7za7__r1718z00, va_generic_entry,
		BGl_z62minflz62zz__r4_numbers_6_5_flonumz00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_sinflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762sinflza762za7za7__r1719z00,
		BGl_z62sinflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_zd2flzd2envz00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762za7d2flza7b0za7za7__r1720za7,
		BGl_z62zd2flzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762za7d3flza7b1za7za7__r1721za7,
		BGl_z62zd3flzb1zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1573z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1573za700za7za7_1722za7,
		"/tmp/bigloo/runtime/Ieee/flonum.scm", 35);
	      BGL_DEFINE_STRING(BGl_string1574z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1574za700za7za7_1723za7, "&=fl", 4);
	      BGL_DEFINE_STRING(BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1575za700za7za7_1724za7, "real", 4);
	      BGL_DEFINE_STRING(BGl_string1576z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1576za700za7za7_1725za7, "&<fl", 4);
	      BGL_DEFINE_STRING(BGl_string1577z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1577za700za7za7_1726za7, "&>fl", 4);
	      BGL_DEFINE_STRING(BGl_string1578z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1578za700za7za7_1727za7, "&<=fl", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_atanflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762atanflza762za7za7__1728z00, va_generic_entry,
		BGl_z62atanflz62zz__r4_numbers_6_5_flonumz00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string1579z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1579za700za7za7_1729za7, "&>=fl", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_asinflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762asinflza762za7za7__1730z00,
		BGl_z62asinflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_ieeezd2stringzd2ze3doublezd2envz31zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762ieeeza7d2string1731z00,
		BGl_z62ieeezd2stringzd2ze3doublez81zz__r4_numbers_6_5_flonumz00, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_remainderflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762remainderflza761732z00,
		BGl_z62remainderflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_realzd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762realza7d2za7e3iee1733za7,
		BGl_z62realzd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_negflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762negflza762za7za7__r1734z00,
		BGl_z62negflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_nanflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762nanflza7f3za791za7za71735za7,
		BGl_z62nanflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1580z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1580za700za7za7_1736za7, "&zerofl?", 8);
	      BGL_DEFINE_STRING(BGl_string1581z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1581za700za7za7_1737za7, "&positivefl?", 12);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_sqrtflzd2urzd2envz00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762sqrtflza7d2urza7b1738za7,
		BGl_z62sqrtflzd2urzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1582z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1582za700za7za7_1739za7, "&negativefl?", 12);
	      BGL_DEFINE_STRING(BGl_string1583z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1583za700za7za7_1740za7, "&+fl", 4);
	      BGL_DEFINE_STRING(BGl_string1584z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1584za700za7za7_1741za7, "&-fl", 4);
	      BGL_DEFINE_STRING(BGl_string1585z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1585za700za7za7_1742za7, "&*fl", 4);
	      BGL_DEFINE_STRING(BGl_string1586z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1586za700za7za7_1743za7, "&/fl", 4);
	      BGL_DEFINE_STRING(BGl_string1587z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1587za700za7za7_1744za7, "&negfl", 6);
	      BGL_DEFINE_STRING(BGl_string1588z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1588za700za7za7_1745za7, "&maxfl", 6);
	      BGL_DEFINE_STRING(BGl_string1589z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1589za700za7za7_1746za7, "&max-2fl", 8);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_infiniteflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762infiniteflza7f31747z00,
		BGl_z62infiniteflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_atanzd22flzd2urzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762atanza7d22flza7d21748za7,
		BGl_z62atanzd22flzd2urz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1590z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1590za700za7za7_1749za7, "&min-2fl", 8);
	      BGL_DEFINE_STRING(BGl_string1591z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1591za700za7za7_1750za7, "&minfl", 6);
	      BGL_DEFINE_STRING(BGl_string1592z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1592za700za7za7_1751za7, "&absfl", 6);
	      BGL_DEFINE_STRING(BGl_string1593z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1593za700za7za7_1752za7, "&floorfl", 8);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_randomflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762randomflza762za7za71753z00,
		BGl_z62randomflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_exptflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762exptflza762za7za7__1754z00,
		BGl_z62exptflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1594z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1594za700za7za7_1755za7, "&ceilingfl", 10);
	      BGL_DEFINE_STRING(BGl_string1595z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1595za700za7za7_1756za7, "&truncatefl", 11);
	      BGL_DEFINE_STRING(BGl_string1596z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1596za700za7za7_1757za7, "&roundfl", 8);
	      BGL_DEFINE_STRING(BGl_string1597z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1597za700za7za7_1758za7, "&remainderfl", 12);
	      BGL_DEFINE_STRING(BGl_string1598z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1598za700za7za7_1759za7, "&expfl", 6);
	      BGL_DEFINE_STRING(BGl_string1599z00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_string1599za700za7za7_1760za7, "&logfl", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_roundflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762roundflza762za7za7_1761z00,
		BGl_z62roundflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_negativeflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762negativeflza7f31762z00,
		BGl_z62negativeflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_flonumzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762flonumza7f3za791za71763z00,
		BGl_z62flonumzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_maxzd22flzd2envz00zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762maxza7d22flza7b0za71764z00,
		BGl_z62maxzd22flzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_maxflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762maxflza762za7za7__r1765z00, va_generic_entry,
		BGl_z62maxflz62zz__r4_numbers_6_5_flonumz00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_zb2flzd2envz60zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762za7b2flza7d0za7za7__r1766za7,
		BGl_z62zb2flzd0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evenflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762evenflza7f3za791za71767z00,
		BGl_z62evenflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_llongzd2bitszd2ze3doublezd2envz31zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762llongza7d2bitsza71768za7,
		BGl_z62llongzd2bitszd2ze3doublez81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_floatzd2ze3intzd2bitszd2envz31zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762floatza7d2za7e3in1769za7,
		BGl_z62floatzd2ze3intzd2bitsz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_expflzd2envzd2zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762expflza762za7za7__r1770z00,
		BGl_z62expflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_floatzd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762floatza7d2za7e3ie1771za7,
		BGl_z62floatzd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_realzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
		BgL_bgl_za762realza7f3za791za7za7_1772za7,
		BGl_z62realzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_realzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762realza7f3za791za7za7_1772za7);
		BGL_BIND_PROCEDURE
			(BGl_floatzd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762floatza7d2za7e3ie1771za7);
		BGL_BIND_PROCEDURE(BGl_expflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762expflza762za7za7__r1770z00);
		BGL_BIND_PROCEDURE
			(BGl_floatzd2ze3intzd2bitszd2envz31zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762floatza7d2za7e3in1769za7);
		BGL_BIND_PROCEDURE
			(BGl_llongzd2bitszd2ze3doublezd2envz31zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762llongza7d2bitsza71768za7);
		BGL_BIND_PROCEDURE(BGl_evenflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762evenflza7f3za791za71767z00);
		BGL_BIND_PROCEDURE(BGl_zb2flzd2envz60zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762za7b2flza7d0za7za7__r1766za7);
		BGL_BIND_PROCEDURE(BGl_maxflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762maxflza762za7za7__r1765z00);
		BGL_BIND_PROCEDURE(BGl_maxzd22flzd2envz00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762maxza7d22flza7b0za71764z00);
		BGL_BIND_PROCEDURE(BGl_flonumzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762flonumza7f3za791za71763z00);
		BGL_BIND_PROCEDURE(BGl_negativeflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762negativeflza7f31762z00);
		BGL_BIND_PROCEDURE(BGl_roundflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762roundflza762za7za7_1761z00);
		BGL_BIND_STRING(BGl_string1599z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1599za700za7za7_1760za7);
		BGL_BIND_STRING(BGl_string1598z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1598za700za7za7_1759za7);
		BGL_BIND_STRING(BGl_string1597z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1597za700za7za7_1758za7);
		BGL_BIND_STRING(BGl_string1596z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1596za700za7za7_1757za7);
		BGL_BIND_STRING(BGl_string1595z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1595za700za7za7_1756za7);
		BGL_BIND_STRING(BGl_string1594z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1594za700za7za7_1755za7);
		BGL_BIND_PROCEDURE(BGl_exptflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762exptflza762za7za7__1754z00);
		BGL_BIND_PROCEDURE(BGl_randomflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762randomflza762za7za71753z00);
		BGL_BIND_STRING(BGl_string1593z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1593za700za7za7_1752za7);
		BGL_BIND_STRING(BGl_string1592z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1592za700za7za7_1751za7);
		BGL_BIND_STRING(BGl_string1591z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1591za700za7za7_1750za7);
		BGL_BIND_STRING(BGl_string1590z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1590za700za7za7_1749za7);
		BGL_BIND_PROCEDURE(BGl_atanzd22flzd2urzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762atanza7d22flza7d21748za7);
		BGL_BIND_PROCEDURE(BGl_infiniteflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762infiniteflza7f31747z00);
		BGL_BIND_STRING(BGl_string1589z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1589za700za7za7_1746za7);
		BGL_BIND_STRING(BGl_string1588z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1588za700za7za7_1745za7);
		BGL_BIND_STRING(BGl_string1587z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1587za700za7za7_1744za7);
		BGL_BIND_STRING(BGl_string1586z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1586za700za7za7_1743za7);
		BGL_BIND_STRING(BGl_string1585z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1585za700za7za7_1742za7);
		BGL_BIND_STRING(BGl_string1584z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1584za700za7za7_1741za7);
		BGL_BIND_STRING(BGl_string1583z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1583za700za7za7_1740za7);
		BGL_BIND_STRING(BGl_string1582z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1582za700za7za7_1739za7);
		BGL_BIND_PROCEDURE(BGl_sqrtflzd2urzd2envz00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762sqrtflza7d2urza7b1738za7);
		BGL_BIND_STRING(BGl_string1581z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1581za700za7za7_1737za7);
		BGL_BIND_STRING(BGl_string1580z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1580za700za7za7_1736za7);
		BGL_BIND_PROCEDURE(BGl_nanflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762nanflza7f3za791za7za71735za7);
		BGL_BIND_PROCEDURE(BGl_negflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762negflza762za7za7__r1734z00);
		BGL_BIND_PROCEDURE
			(BGl_realzd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762realza7d2za7e3iee1733za7);
		BGL_BIND_PROCEDURE(BGl_remainderflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762remainderflza761732z00);
		BGL_BIND_PROCEDURE
			(BGl_ieeezd2stringzd2ze3doublezd2envz31zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762ieeeza7d2string1731z00);
		BGL_BIND_PROCEDURE(BGl_asinflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762asinflza762za7za7__1730z00);
		BGL_BIND_STRING(BGl_string1579z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1579za700za7za7_1729za7);
		BGL_BIND_PROCEDURE(BGl_atanflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762atanflza762za7za7__1728z00);
		BGL_BIND_STRING(BGl_string1578z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1578za700za7za7_1727za7);
		BGL_BIND_STRING(BGl_string1577z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1577za700za7za7_1726za7);
		BGL_BIND_STRING(BGl_string1576z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1576za700za7za7_1725za7);
		BGL_BIND_STRING(BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1575za700za7za7_1724za7);
		BGL_BIND_STRING(BGl_string1574z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1574za700za7za7_1723za7);
		BGL_BIND_STRING(BGl_string1573z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1573za700za7za7_1722za7);
		BGL_BIND_PROCEDURE(BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762za7d3flza7b1za7za7__r1721za7);
		BGL_BIND_PROCEDURE(BGl_zd2flzd2envz00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762za7d2flza7b0za7za7__r1720za7);
		BGL_BIND_PROCEDURE(BGl_sinflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762sinflza762za7za7__r1719z00);
		BGL_BIND_PROCEDURE(BGl_minflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762minflza762za7za7__r1718z00);
		BGL_BIND_PROCEDURE(BGl_log10flzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762log10flza762za7za7_1717z00);
		BGL_BIND_PROCEDURE(BGl_tanflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762tanflza762za7za7__r1716z00);
		BGL_BIND_STRING(BGl_string1642z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1642za700za7za7_1715za7);
		BGL_BIND_STRING(BGl_string1641z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1641za700za7za7_1714za7);
		BGL_BIND_STRING(BGl_string1640z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1640za700za7za7_1713za7);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2ze3realzd2envze3zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762stringza7d2za7e3r1712za7);
		BGL_BIND_STRING(BGl_string1639z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1639za700za7za7_1711za7);
		BGL_BIND_STRING(BGl_string1638z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1638za700za7za7_1710za7);
		BGL_BIND_STRING(BGl_string1637z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1637za700za7za7_1709za7);
		BGL_BIND_STRING(BGl_string1636z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1636za700za7za7_1708za7);
		BGL_BIND_STRING(BGl_string1635z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1635za700za7za7_1707za7);
		BGL_BIND_STRING(BGl_string1634z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1634za700za7za7_1706za7);
		BGL_BIND_STRING(BGl_string1633z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1633za700za7za7_1705za7);
		BGL_BIND_STRING(BGl_string1632z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1632za700za7za7_1704za7);
		BGL_BIND_STRING(BGl_string1631z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1631za700za7za7_1703za7);
		BGL_BIND_STRING(BGl_string1630z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1630za700za7za7_1702za7);
		BGL_BIND_PROCEDURE(BGl_za2flzd2envz70zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762za7a2flza7c0za7za7__r1701za7);
		BGL_BIND_STRING(BGl_string1629z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1629za700za7za7_1700za7);
		BGL_BIND_STRING(BGl_string1628z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1628za700za7za7_1699za7);
		BGL_BIND_STRING(BGl_string1627z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1627za700za7za7_1698za7);
		BGL_BIND_PROCEDURE(BGl_finiteflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762finiteflza7f3za791697za7);
		BGL_BIND_STRING(BGl_string1626z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1626za700za7za7_1696za7);
		BGL_BIND_STRING(BGl_string1625z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1625za700za7za7_1695za7);
		BGL_BIND_STRING(BGl_string1624z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1624za700za7za7_1694za7);
		BGL_BIND_STRING(BGl_string1623z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1623za700za7za7_1693za7);
		BGL_BIND_STRING(BGl_string1622z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1622za700za7za7_1692za7);
		BGL_BIND_PROCEDURE
			(BGl_intzd2bitszd2ze3floatzd2envz31zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762intza7d2bitsza7d21691za7);
		BGL_BIND_STRING(BGl_string1621z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1621za700za7za7_1690za7);
		BGL_BIND_STRING(BGl_string1620z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1620za700za7za7_1689za7);
		BGL_BIND_PROCEDURE(BGl_atanzd22flzd2envz00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762atanza7d22flza7b01688za7);
		BGL_BIND_STRING(BGl_string1619z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1619za700za7za7_1687za7);
		BGL_BIND_PROCEDURE(BGl_za7eroflzf3zd2envz86zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762za7a7eroflza7f3za731686z00);
		BGL_BIND_STRING(BGl_string1618z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1618za700za7za7_1685za7);
		BGL_BIND_STRING(BGl_string1617z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1617za700za7za7_1684za7);
		BGL_BIND_STRING(BGl_string1616z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1616za700za7za7_1683za7);
		BGL_BIND_STRING(BGl_string1615z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1615za700za7za7_1682za7);
		BGL_BIND_STRING(BGl_string1614z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1614za700za7za7_1681za7);
		BGL_BIND_STRING(BGl_string1613z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1613za700za7za7_1680za7);
		BGL_BIND_STRING(BGl_string1612z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1612za700za7za7_1679za7);
		BGL_BIND_STRING(BGl_string1610z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1610za700za7za7_1678za7);
		BGL_BIND_PROCEDURE(BGl_absflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762absflza762za7za7__r1677z00);
		BGL_BIND_PROCEDURE(BGl_oddflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762oddflza7f3za791za7za71676za7);
		BGL_BIND_PROCEDURE(BGl_log2flzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762log2flza762za7za7__1675z00);
		BGL_BIND_PROCEDURE(BGl_zf2flzd2envz20zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762za7f2flza790za7za7__r1674za7);
		BGL_BIND_PROCEDURE
			(BGl_doublezd2ze3llongzd2bitszd2envz31zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762doubleza7d2za7e3l1673za7);
		BGL_BIND_PROCEDURE(BGl_minzd22flzd2envz00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762minza7d22flza7b0za71672z00);
		BGL_BIND_STRING(BGl_string1609z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1609za700za7za7_1671za7);
		BGL_BIND_STRING(BGl_string1608z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1608za700za7za7_1670za7);
		BGL_BIND_STRING(BGl_string1607z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1607za700za7za7_1669za7);
		BGL_BIND_STRING(BGl_string1606z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1606za700za7za7_1668za7);
		BGL_BIND_STRING(BGl_string1605z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1605za700za7za7_1667za7);
		BGL_BIND_STRING(BGl_string1604z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1604za700za7za7_1666za7);
		BGL_BIND_PROCEDURE(BGl_zc3zd3flzd2envzc2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762za7c3za7d3flza772za7za71665z00);
		BGL_BIND_STRING(BGl_string1603z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1603za700za7za7_1664za7);
		BGL_BIND_STRING(BGl_string1602z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1602za700za7za7_1663za7);
		BGL_BIND_STRING(BGl_string1601z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1601za700za7za7_1662za7);
		BGL_BIND_STRING(BGl_string1600z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_string1600za700za7za7_1661za7);
		BGL_BIND_PROCEDURE(BGl_integerflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762integerflza7f3za71660za7);
		BGL_BIND_PROCEDURE(BGl_truncateflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762truncateflza7621659z00);
		BGL_BIND_REAL(BGl_real1611z00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_real1611za700za7za7__r1658za7);
		BGL_BIND_PROCEDURE(BGl_floorflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762floorflza762za7za7_1657z00);
		BGL_BIND_PROCEDURE(BGl_zc3flzd2envz11zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762za7c3flza7a1za7za7__r1656za7);
		BGL_BIND_PROCEDURE(BGl_ceilingflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762ceilingflza762za71655za7);
		BGL_BIND_PROCEDURE(BGl_positiveflzf3zd2envz21zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762positiveflza7f31654z00);
		BGL_BIND_PROCEDURE
			(BGl_ieeezd2stringzd2ze3floatzd2envz31zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762ieeeza7d2string1653z00);
		BGL_BIND_PROCEDURE(BGl_ze3zd3flzd2envze2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762za7e3za7d3flza752za7za71652z00);
		BGL_BIND_PROCEDURE(BGl_acosflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762acosflza762za7za7__1651z00);
		BGL_BIND_PROCEDURE
			(BGl_ieeezd2stringzd2ze3realzd2envz31zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762ieeeza7d2string1650z00);
		BGL_BIND_PROCEDURE(BGl_signbitflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762signbitflza762za71649za7);
		BGL_BIND_PROCEDURE(BGl_cosflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762cosflza762za7za7__r1648z00);
		BGL_BIND_PROCEDURE(BGl_logflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762logflza762za7za7__r1647z00);
		BGL_BIND_PROCEDURE
			(BGl_doublezd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762doubleza7d2za7e3i1646za7);
		BGL_BIND_PROCEDURE(BGl_sqrtflzd2envzd2zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762sqrtflza762za7za7__1645z00);
		BGL_BIND_PROCEDURE(BGl_atanzd21flzd2envz00zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762atanza7d21flza7b01644za7);
		BGL_BIND_PROCEDURE(BGl_ze3flzd2envz31zz__r4_numbers_6_5_flonumz00,
			BgL_bgl_za762za7e3flza781za7za7__r1643za7);
	}

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;

		ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00));
#undef ADD_ROOT
		if (roots_max > 0)
			GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		return BUNSPEC;
	}



/* module-initialization */
	BGL_EXPORTED_DEF obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long
		BgL_checksumz00_1568, char *BgL_fromz00_1569)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00))
				{
					BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__r4_numbers_6_5_flonumz00();
					return BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_flonumz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__r4_numbers_6_5_flonumz00(void)
	{
		{	/* Ieee/flonum.scm 14 */
			return bgl_gc_roots_register();
		}

	}



/* real? */
	BGL_EXPORTED_DEF bool_t BGl_realzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_objz00_3)
	{
		{	/* Ieee/flonum.scm 330 */
			if (INTEGERP(BgL_objz00_3))
				{	/* Ieee/flonum.scm 331 */
					return ((bool_t) 1);
				}
			else
				{	/* Ieee/flonum.scm 331 */
					return REALP(BgL_objz00_3);
				}
		}

	}



/* &real? */
	obj_t BGl_z62realzf3z91zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1270,
		obj_t BgL_objz00_1271)
	{
		{	/* Ieee/flonum.scm 330 */
			return BBOOL(BGl_realzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_objz00_1271));
		}

	}



/* flonum? */
	BGL_EXPORTED_DEF bool_t BGl_flonumzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_objz00_4)
	{
		{	/* Ieee/flonum.scm 338 */
			return REALP(BgL_objz00_4);
		}

	}



/* &flonum? */
	obj_t BGl_z62flonumzf3z91zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1272,
		obj_t BgL_objz00_1273)
	{
		{	/* Ieee/flonum.scm 338 */
			return
				BBOOL(BGl_flonumzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_objz00_1273));
		}

	}



/* =fl */
	BGL_EXPORTED_DEF bool_t BGl_zd3flzd3zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_5, double BgL_r2z00_6)
	{
		{	/* Ieee/flonum.scm 344 */
			return (BgL_r1z00_5 == BgL_r2z00_6);
		}

	}



/* &=fl */
	obj_t BGl_z62zd3flzb1zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1274,
		obj_t BgL_r1z00_1275, obj_t BgL_r2z00_1276)
	{
		{	/* Ieee/flonum.scm 344 */
			{	/* Ieee/flonum.scm 345 */
				bool_t BgL_tmpz00_1586;

				{	/* Ieee/flonum.scm 345 */
					double BgL_auxz00_1596;
					double BgL_auxz00_1587;

					{	/* Ieee/flonum.scm 345 */
						obj_t BgL_tmpz00_1597;

						if (REALP(BgL_r2z00_1276))
							{	/* Ieee/flonum.scm 345 */
								BgL_tmpz00_1597 = BgL_r2z00_1276;
							}
						else
							{
								obj_t BgL_auxz00_1600;

								BgL_auxz00_1600 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(15948L),
									BGl_string1574z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1276);
								FAILURE(BgL_auxz00_1600, BFALSE, BFALSE);
							}
						BgL_auxz00_1596 = REAL_TO_DOUBLE(BgL_tmpz00_1597);
					}
					{	/* Ieee/flonum.scm 345 */
						obj_t BgL_tmpz00_1588;

						if (REALP(BgL_r1z00_1275))
							{	/* Ieee/flonum.scm 345 */
								BgL_tmpz00_1588 = BgL_r1z00_1275;
							}
						else
							{
								obj_t BgL_auxz00_1591;

								BgL_auxz00_1591 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(15948L),
									BGl_string1574z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1275);
								FAILURE(BgL_auxz00_1591, BFALSE, BFALSE);
							}
						BgL_auxz00_1587 = REAL_TO_DOUBLE(BgL_tmpz00_1588);
					}
					BgL_tmpz00_1586 =
						BGl_zd3flzd3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1587,
						BgL_auxz00_1596);
				}
				return BBOOL(BgL_tmpz00_1586);
			}
		}

	}



/* <fl */
	BGL_EXPORTED_DEF bool_t BGl_zc3flzc3zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_7, double BgL_r2z00_8)
	{
		{	/* Ieee/flonum.scm 350 */
			return (BgL_r1z00_7 < BgL_r2z00_8);
		}

	}



/* &<fl */
	obj_t BGl_z62zc3flza1zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1277,
		obj_t BgL_r1z00_1278, obj_t BgL_r2z00_1279)
	{
		{	/* Ieee/flonum.scm 350 */
			{	/* Ieee/flonum.scm 351 */
				bool_t BgL_tmpz00_1608;

				{	/* Ieee/flonum.scm 351 */
					double BgL_auxz00_1618;
					double BgL_auxz00_1609;

					{	/* Ieee/flonum.scm 351 */
						obj_t BgL_tmpz00_1619;

						if (REALP(BgL_r2z00_1279))
							{	/* Ieee/flonum.scm 351 */
								BgL_tmpz00_1619 = BgL_r2z00_1279;
							}
						else
							{
								obj_t BgL_auxz00_1622;

								BgL_auxz00_1622 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(16215L),
									BGl_string1576z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1279);
								FAILURE(BgL_auxz00_1622, BFALSE, BFALSE);
							}
						BgL_auxz00_1618 = REAL_TO_DOUBLE(BgL_tmpz00_1619);
					}
					{	/* Ieee/flonum.scm 351 */
						obj_t BgL_tmpz00_1610;

						if (REALP(BgL_r1z00_1278))
							{	/* Ieee/flonum.scm 351 */
								BgL_tmpz00_1610 = BgL_r1z00_1278;
							}
						else
							{
								obj_t BgL_auxz00_1613;

								BgL_auxz00_1613 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(16215L),
									BGl_string1576z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1278);
								FAILURE(BgL_auxz00_1613, BFALSE, BFALSE);
							}
						BgL_auxz00_1609 = REAL_TO_DOUBLE(BgL_tmpz00_1610);
					}
					BgL_tmpz00_1608 =
						BGl_zc3flzc3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1609,
						BgL_auxz00_1618);
				}
				return BBOOL(BgL_tmpz00_1608);
			}
		}

	}



/* >fl */
	BGL_EXPORTED_DEF bool_t BGl_ze3flze3zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_9, double BgL_r2z00_10)
	{
		{	/* Ieee/flonum.scm 356 */
			return (BgL_r1z00_9 > BgL_r2z00_10);
		}

	}



/* &>fl */
	obj_t BGl_z62ze3flz81zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1280,
		obj_t BgL_r1z00_1281, obj_t BgL_r2z00_1282)
	{
		{	/* Ieee/flonum.scm 356 */
			{	/* Ieee/flonum.scm 357 */
				bool_t BgL_tmpz00_1630;

				{	/* Ieee/flonum.scm 357 */
					double BgL_auxz00_1640;
					double BgL_auxz00_1631;

					{	/* Ieee/flonum.scm 357 */
						obj_t BgL_tmpz00_1641;

						if (REALP(BgL_r2z00_1282))
							{	/* Ieee/flonum.scm 357 */
								BgL_tmpz00_1641 = BgL_r2z00_1282;
							}
						else
							{
								obj_t BgL_auxz00_1644;

								BgL_auxz00_1644 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(16482L),
									BGl_string1577z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1282);
								FAILURE(BgL_auxz00_1644, BFALSE, BFALSE);
							}
						BgL_auxz00_1640 = REAL_TO_DOUBLE(BgL_tmpz00_1641);
					}
					{	/* Ieee/flonum.scm 357 */
						obj_t BgL_tmpz00_1632;

						if (REALP(BgL_r1z00_1281))
							{	/* Ieee/flonum.scm 357 */
								BgL_tmpz00_1632 = BgL_r1z00_1281;
							}
						else
							{
								obj_t BgL_auxz00_1635;

								BgL_auxz00_1635 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(16482L),
									BGl_string1577z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1281);
								FAILURE(BgL_auxz00_1635, BFALSE, BFALSE);
							}
						BgL_auxz00_1631 = REAL_TO_DOUBLE(BgL_tmpz00_1632);
					}
					BgL_tmpz00_1630 =
						BGl_ze3flze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1631,
						BgL_auxz00_1640);
				}
				return BBOOL(BgL_tmpz00_1630);
			}
		}

	}



/* <=fl */
	BGL_EXPORTED_DEF bool_t BGl_zc3zd3flz10zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_11, double BgL_r2z00_12)
	{
		{	/* Ieee/flonum.scm 362 */
			return (BgL_r1z00_11 <= BgL_r2z00_12);
		}

	}



/* &<=fl */
	obj_t BGl_z62zc3zd3flz72zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1283,
		obj_t BgL_r1z00_1284, obj_t BgL_r2z00_1285)
	{
		{	/* Ieee/flonum.scm 362 */
			{	/* Ieee/flonum.scm 363 */
				bool_t BgL_tmpz00_1652;

				{	/* Ieee/flonum.scm 363 */
					double BgL_auxz00_1662;
					double BgL_auxz00_1653;

					{	/* Ieee/flonum.scm 363 */
						obj_t BgL_tmpz00_1663;

						if (REALP(BgL_r2z00_1285))
							{	/* Ieee/flonum.scm 363 */
								BgL_tmpz00_1663 = BgL_r2z00_1285;
							}
						else
							{
								obj_t BgL_auxz00_1666;

								BgL_auxz00_1666 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(16750L),
									BGl_string1578z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1285);
								FAILURE(BgL_auxz00_1666, BFALSE, BFALSE);
							}
						BgL_auxz00_1662 = REAL_TO_DOUBLE(BgL_tmpz00_1663);
					}
					{	/* Ieee/flonum.scm 363 */
						obj_t BgL_tmpz00_1654;

						if (REALP(BgL_r1z00_1284))
							{	/* Ieee/flonum.scm 363 */
								BgL_tmpz00_1654 = BgL_r1z00_1284;
							}
						else
							{
								obj_t BgL_auxz00_1657;

								BgL_auxz00_1657 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(16750L),
									BGl_string1578z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1284);
								FAILURE(BgL_auxz00_1657, BFALSE, BFALSE);
							}
						BgL_auxz00_1653 = REAL_TO_DOUBLE(BgL_tmpz00_1654);
					}
					BgL_tmpz00_1652 =
						BGl_zc3zd3flz10zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1653,
						BgL_auxz00_1662);
				}
				return BBOOL(BgL_tmpz00_1652);
			}
		}

	}



/* >=fl */
	BGL_EXPORTED_DEF bool_t BGl_ze3zd3flz30zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_13, double BgL_r2z00_14)
	{
		{	/* Ieee/flonum.scm 368 */
			return (BgL_r1z00_13 >= BgL_r2z00_14);
		}

	}



/* &>=fl */
	obj_t BGl_z62ze3zd3flz52zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1286,
		obj_t BgL_r1z00_1287, obj_t BgL_r2z00_1288)
	{
		{	/* Ieee/flonum.scm 368 */
			{	/* Ieee/flonum.scm 369 */
				bool_t BgL_tmpz00_1674;

				{	/* Ieee/flonum.scm 369 */
					double BgL_auxz00_1684;
					double BgL_auxz00_1675;

					{	/* Ieee/flonum.scm 369 */
						obj_t BgL_tmpz00_1685;

						if (REALP(BgL_r2z00_1288))
							{	/* Ieee/flonum.scm 369 */
								BgL_tmpz00_1685 = BgL_r2z00_1288;
							}
						else
							{
								obj_t BgL_auxz00_1688;

								BgL_auxz00_1688 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(17019L),
									BGl_string1579z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1288);
								FAILURE(BgL_auxz00_1688, BFALSE, BFALSE);
							}
						BgL_auxz00_1684 = REAL_TO_DOUBLE(BgL_tmpz00_1685);
					}
					{	/* Ieee/flonum.scm 369 */
						obj_t BgL_tmpz00_1676;

						if (REALP(BgL_r1z00_1287))
							{	/* Ieee/flonum.scm 369 */
								BgL_tmpz00_1676 = BgL_r1z00_1287;
							}
						else
							{
								obj_t BgL_auxz00_1679;

								BgL_auxz00_1679 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(17019L),
									BGl_string1579z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1287);
								FAILURE(BgL_auxz00_1679, BFALSE, BFALSE);
							}
						BgL_auxz00_1675 = REAL_TO_DOUBLE(BgL_tmpz00_1676);
					}
					BgL_tmpz00_1674 =
						BGl_ze3zd3flz30zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1675,
						BgL_auxz00_1684);
				}
				return BBOOL(BgL_tmpz00_1674);
			}
		}

	}



/* zerofl? */
	BGL_EXPORTED_DEF bool_t BGl_za7eroflzf3z54zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_15)
	{
		{	/* Ieee/flonum.scm 374 */
			return (BgL_rz00_15 == 0.0);
		}

	}



/* &zerofl? */
	obj_t BGl_z62za7eroflzf3z36zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1289,
		obj_t BgL_rz00_1290)
	{
		{	/* Ieee/flonum.scm 374 */
			{	/* Ieee/flonum.scm 345 */
				bool_t BgL_tmpz00_1696;

				{	/* Ieee/flonum.scm 345 */
					double BgL_auxz00_1697;

					{	/* Ieee/flonum.scm 345 */
						obj_t BgL_tmpz00_1698;

						if (REALP(BgL_rz00_1290))
							{	/* Ieee/flonum.scm 345 */
								BgL_tmpz00_1698 = BgL_rz00_1290;
							}
						else
							{
								obj_t BgL_auxz00_1701;

								BgL_auxz00_1701 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(15948L),
									BGl_string1580z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1290);
								FAILURE(BgL_auxz00_1701, BFALSE, BFALSE);
							}
						BgL_auxz00_1697 = REAL_TO_DOUBLE(BgL_tmpz00_1698);
					}
					BgL_tmpz00_1696 =
						BGl_za7eroflzf3z54zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1697);
				}
				return BBOOL(BgL_tmpz00_1696);
			}
		}

	}



/* positivefl? */
	BGL_EXPORTED_DEF bool_t
		BGl_positiveflzf3zf3zz__r4_numbers_6_5_flonumz00(double BgL_rz00_16)
	{
		{	/* Ieee/flonum.scm 380 */
			return (BgL_rz00_16 > 0.0);
		}

	}



/* &positivefl? */
	obj_t BGl_z62positiveflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1291, obj_t BgL_rz00_1292)
	{
		{	/* Ieee/flonum.scm 380 */
			{	/* Ieee/flonum.scm 357 */
				bool_t BgL_tmpz00_1709;

				{	/* Ieee/flonum.scm 357 */
					double BgL_auxz00_1710;

					{	/* Ieee/flonum.scm 357 */
						obj_t BgL_tmpz00_1711;

						if (REALP(BgL_rz00_1292))
							{	/* Ieee/flonum.scm 357 */
								BgL_tmpz00_1711 = BgL_rz00_1292;
							}
						else
							{
								obj_t BgL_auxz00_1714;

								BgL_auxz00_1714 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(16482L),
									BGl_string1581z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1292);
								FAILURE(BgL_auxz00_1714, BFALSE, BFALSE);
							}
						BgL_auxz00_1710 = REAL_TO_DOUBLE(BgL_tmpz00_1711);
					}
					BgL_tmpz00_1709 =
						BGl_positiveflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1710);
				}
				return BBOOL(BgL_tmpz00_1709);
			}
		}

	}



/* negativefl? */
	BGL_EXPORTED_DEF bool_t
		BGl_negativeflzf3zf3zz__r4_numbers_6_5_flonumz00(double BgL_rz00_17)
	{
		{	/* Ieee/flonum.scm 386 */
			return (BgL_rz00_17 < 0.0);
		}

	}



/* &negativefl? */
	obj_t BGl_z62negativeflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1293, obj_t BgL_rz00_1294)
	{
		{	/* Ieee/flonum.scm 386 */
			{	/* Ieee/flonum.scm 351 */
				bool_t BgL_tmpz00_1722;

				{	/* Ieee/flonum.scm 351 */
					double BgL_auxz00_1723;

					{	/* Ieee/flonum.scm 351 */
						obj_t BgL_tmpz00_1724;

						if (REALP(BgL_rz00_1294))
							{	/* Ieee/flonum.scm 351 */
								BgL_tmpz00_1724 = BgL_rz00_1294;
							}
						else
							{
								obj_t BgL_auxz00_1727;

								BgL_auxz00_1727 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(16215L),
									BGl_string1582z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1294);
								FAILURE(BgL_auxz00_1727, BFALSE, BFALSE);
							}
						BgL_auxz00_1723 = REAL_TO_DOUBLE(BgL_tmpz00_1724);
					}
					BgL_tmpz00_1722 =
						BGl_negativeflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1723);
				}
				return BBOOL(BgL_tmpz00_1722);
			}
		}

	}



/* +fl */
	BGL_EXPORTED_DEF double BGl_zb2flzb2zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_18, double BgL_r2z00_19)
	{
		{	/* Ieee/flonum.scm 392 */
			return (BgL_r1z00_18 + BgL_r2z00_19);
		}

	}



/* &+fl */
	obj_t BGl_z62zb2flzd0zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1295,
		obj_t BgL_r1z00_1296, obj_t BgL_r2z00_1297)
	{
		{	/* Ieee/flonum.scm 392 */
			{	/* Ieee/flonum.scm 393 */
				double BgL_tmpz00_1735;

				{	/* Ieee/flonum.scm 393 */
					double BgL_auxz00_1745;
					double BgL_auxz00_1736;

					{	/* Ieee/flonum.scm 393 */
						obj_t BgL_tmpz00_1746;

						if (REALP(BgL_r2z00_1297))
							{	/* Ieee/flonum.scm 393 */
								BgL_tmpz00_1746 = BgL_r2z00_1297;
							}
						else
							{
								obj_t BgL_auxz00_1749;

								BgL_auxz00_1749 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(18093L),
									BGl_string1583z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1297);
								FAILURE(BgL_auxz00_1749, BFALSE, BFALSE);
							}
						BgL_auxz00_1745 = REAL_TO_DOUBLE(BgL_tmpz00_1746);
					}
					{	/* Ieee/flonum.scm 393 */
						obj_t BgL_tmpz00_1737;

						if (REALP(BgL_r1z00_1296))
							{	/* Ieee/flonum.scm 393 */
								BgL_tmpz00_1737 = BgL_r1z00_1296;
							}
						else
							{
								obj_t BgL_auxz00_1740;

								BgL_auxz00_1740 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(18093L),
									BGl_string1583z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1296);
								FAILURE(BgL_auxz00_1740, BFALSE, BFALSE);
							}
						BgL_auxz00_1736 = REAL_TO_DOUBLE(BgL_tmpz00_1737);
					}
					BgL_tmpz00_1735 =
						BGl_zb2flzb2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1736,
						BgL_auxz00_1745);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1735);
			}
		}

	}



/* -fl */
	BGL_EXPORTED_DEF double BGl_zd2flzd2zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_20, double BgL_r2z00_21)
	{
		{	/* Ieee/flonum.scm 394 */
			return (BgL_r1z00_20 - BgL_r2z00_21);
		}

	}



/* &-fl */
	obj_t BGl_z62zd2flzb0zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1298,
		obj_t BgL_r1z00_1299, obj_t BgL_r2z00_1300)
	{
		{	/* Ieee/flonum.scm 394 */
			{	/* Ieee/flonum.scm 395 */
				double BgL_tmpz00_1757;

				{	/* Ieee/flonum.scm 395 */
					double BgL_auxz00_1767;
					double BgL_auxz00_1758;

					{	/* Ieee/flonum.scm 395 */
						obj_t BgL_tmpz00_1768;

						if (REALP(BgL_r2z00_1300))
							{	/* Ieee/flonum.scm 395 */
								BgL_tmpz00_1768 = BgL_r2z00_1300;
							}
						else
							{
								obj_t BgL_auxz00_1771;

								BgL_auxz00_1771 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(18137L),
									BGl_string1584z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1300);
								FAILURE(BgL_auxz00_1771, BFALSE, BFALSE);
							}
						BgL_auxz00_1767 = REAL_TO_DOUBLE(BgL_tmpz00_1768);
					}
					{	/* Ieee/flonum.scm 395 */
						obj_t BgL_tmpz00_1759;

						if (REALP(BgL_r1z00_1299))
							{	/* Ieee/flonum.scm 395 */
								BgL_tmpz00_1759 = BgL_r1z00_1299;
							}
						else
							{
								obj_t BgL_auxz00_1762;

								BgL_auxz00_1762 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(18137L),
									BGl_string1584z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1299);
								FAILURE(BgL_auxz00_1762, BFALSE, BFALSE);
							}
						BgL_auxz00_1758 = REAL_TO_DOUBLE(BgL_tmpz00_1759);
					}
					BgL_tmpz00_1757 =
						BGl_zd2flzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1758,
						BgL_auxz00_1767);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1757);
			}
		}

	}



/* *fl */
	BGL_EXPORTED_DEF double BGl_za2flza2zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_22, double BgL_r2z00_23)
	{
		{	/* Ieee/flonum.scm 396 */
			return (BgL_r1z00_22 * BgL_r2z00_23);
		}

	}



/* &*fl */
	obj_t BGl_z62za2flzc0zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1301,
		obj_t BgL_r1z00_1302, obj_t BgL_r2z00_1303)
	{
		{	/* Ieee/flonum.scm 396 */
			{	/* Ieee/flonum.scm 397 */
				double BgL_tmpz00_1779;

				{	/* Ieee/flonum.scm 397 */
					double BgL_auxz00_1789;
					double BgL_auxz00_1780;

					{	/* Ieee/flonum.scm 397 */
						obj_t BgL_tmpz00_1790;

						if (REALP(BgL_r2z00_1303))
							{	/* Ieee/flonum.scm 397 */
								BgL_tmpz00_1790 = BgL_r2z00_1303;
							}
						else
							{
								obj_t BgL_auxz00_1793;

								BgL_auxz00_1793 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(18181L),
									BGl_string1585z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1303);
								FAILURE(BgL_auxz00_1793, BFALSE, BFALSE);
							}
						BgL_auxz00_1789 = REAL_TO_DOUBLE(BgL_tmpz00_1790);
					}
					{	/* Ieee/flonum.scm 397 */
						obj_t BgL_tmpz00_1781;

						if (REALP(BgL_r1z00_1302))
							{	/* Ieee/flonum.scm 397 */
								BgL_tmpz00_1781 = BgL_r1z00_1302;
							}
						else
							{
								obj_t BgL_auxz00_1784;

								BgL_auxz00_1784 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(18181L),
									BGl_string1585z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1302);
								FAILURE(BgL_auxz00_1784, BFALSE, BFALSE);
							}
						BgL_auxz00_1780 = REAL_TO_DOUBLE(BgL_tmpz00_1781);
					}
					BgL_tmpz00_1779 =
						BGl_za2flza2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1780,
						BgL_auxz00_1789);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1779);
			}
		}

	}



/* /fl */
	BGL_EXPORTED_DEF double BGl_zf2flzf2zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_24, double BgL_r2z00_25)
	{
		{	/* Ieee/flonum.scm 398 */
			return (BgL_r1z00_24 / BgL_r2z00_25);
		}

	}



/* &/fl */
	obj_t BGl_z62zf2flz90zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1304,
		obj_t BgL_r1z00_1305, obj_t BgL_r2z00_1306)
	{
		{	/* Ieee/flonum.scm 398 */
			{	/* Ieee/flonum.scm 399 */
				double BgL_tmpz00_1801;

				{	/* Ieee/flonum.scm 399 */
					double BgL_auxz00_1811;
					double BgL_auxz00_1802;

					{	/* Ieee/flonum.scm 399 */
						obj_t BgL_tmpz00_1812;

						if (REALP(BgL_r2z00_1306))
							{	/* Ieee/flonum.scm 399 */
								BgL_tmpz00_1812 = BgL_r2z00_1306;
							}
						else
							{
								obj_t BgL_auxz00_1815;

								BgL_auxz00_1815 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(18225L),
									BGl_string1586z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1306);
								FAILURE(BgL_auxz00_1815, BFALSE, BFALSE);
							}
						BgL_auxz00_1811 = REAL_TO_DOUBLE(BgL_tmpz00_1812);
					}
					{	/* Ieee/flonum.scm 399 */
						obj_t BgL_tmpz00_1803;

						if (REALP(BgL_r1z00_1305))
							{	/* Ieee/flonum.scm 399 */
								BgL_tmpz00_1803 = BgL_r1z00_1305;
							}
						else
							{
								obj_t BgL_auxz00_1806;

								BgL_auxz00_1806 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(18225L),
									BGl_string1586z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1305);
								FAILURE(BgL_auxz00_1806, BFALSE, BFALSE);
							}
						BgL_auxz00_1802 = REAL_TO_DOUBLE(BgL_tmpz00_1803);
					}
					BgL_tmpz00_1801 =
						BGl_zf2flzf2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1802,
						BgL_auxz00_1811);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1801);
			}
		}

	}



/* negfl */
	BGL_EXPORTED_DEF double BGl_negflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_26)
	{
		{	/* Ieee/flonum.scm 404 */
			return NEG(BgL_r1z00_26);
		}

	}



/* &negfl */
	obj_t BGl_z62negflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1307,
		obj_t BgL_r1z00_1308)
	{
		{	/* Ieee/flonum.scm 404 */
			{	/* Ieee/flonum.scm 405 */
				double BgL_tmpz00_1823;

				{	/* Ieee/flonum.scm 405 */
					double BgL_auxz00_1824;

					{	/* Ieee/flonum.scm 405 */
						obj_t BgL_tmpz00_1825;

						if (REALP(BgL_r1z00_1308))
							{	/* Ieee/flonum.scm 405 */
								BgL_tmpz00_1825 = BgL_r1z00_1308;
							}
						else
							{
								obj_t BgL_auxz00_1828;

								BgL_auxz00_1828 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(18491L),
									BGl_string1587z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1308);
								FAILURE(BgL_auxz00_1828, BFALSE, BFALSE);
							}
						BgL_auxz00_1824 = REAL_TO_DOUBLE(BgL_tmpz00_1825);
					}
					BgL_tmpz00_1823 =
						BGl_negflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1824);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1823);
			}
		}

	}



/* maxfl */
	BGL_EXPORTED_DEF double BGl_maxflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_27, obj_t BgL_rnz00_28)
	{
		{	/* Ieee/flonum.scm 410 */
			{
				double BgL_maxz00_1058;
				obj_t BgL_rnz00_1059;

				BgL_maxz00_1058 = BgL_r1z00_27;
				BgL_rnz00_1059 = BgL_rnz00_28;
			BgL_loopz00_1057:
				if (NULLP(BgL_rnz00_1059))
					{	/* Ieee/flonum.scm 413 */
						return BgL_maxz00_1058;
					}
				else
					{
						obj_t BgL_rnz00_1844;
						double BgL_maxz00_1837;

						{	/* Ieee/flonum.scm 421 */
							double BgL_tmpz00_1838;

							{	/* Ieee/flonum.scm 415 */
								obj_t BgL_tmpz00_1839;

								BgL_tmpz00_1839 = CAR(((obj_t) BgL_rnz00_1059));
								BgL_tmpz00_1838 = REAL_TO_DOUBLE(BgL_tmpz00_1839);
							}
							BgL_maxz00_1837 = BGL_FL_MAX2(BgL_tmpz00_1838, BgL_maxz00_1058);
						}
						BgL_rnz00_1844 = CDR(((obj_t) BgL_rnz00_1059));
						BgL_rnz00_1059 = BgL_rnz00_1844;
						BgL_maxz00_1058 = BgL_maxz00_1837;
						goto BgL_loopz00_1057;
					}
			}
		}

	}



/* &maxfl */
	obj_t BGl_z62maxflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1309,
		obj_t BgL_r1z00_1310, obj_t BgL_rnz00_1311)
	{
		{	/* Ieee/flonum.scm 410 */
			{	/* Ieee/flonum.scm 411 */
				double BgL_tmpz00_1847;

				{	/* Ieee/flonum.scm 411 */
					double BgL_auxz00_1848;

					{	/* Ieee/flonum.scm 411 */
						obj_t BgL_tmpz00_1849;

						if (REALP(BgL_r1z00_1310))
							{	/* Ieee/flonum.scm 411 */
								BgL_tmpz00_1849 = BgL_r1z00_1310;
							}
						else
							{
								obj_t BgL_auxz00_1852;

								BgL_auxz00_1852 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(18758L),
									BGl_string1588z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1310);
								FAILURE(BgL_auxz00_1852, BFALSE, BFALSE);
							}
						BgL_auxz00_1848 = REAL_TO_DOUBLE(BgL_tmpz00_1849);
					}
					BgL_tmpz00_1847 =
						BGl_maxflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1848,
						BgL_rnz00_1311);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1847);
			}
		}

	}



/* max-2fl */
	BGL_EXPORTED_DEF double BGl_maxzd22flzd2zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_29, double BgL_r2z00_30)
	{
		{	/* Ieee/flonum.scm 420 */
			return BGL_FL_MAX2(BgL_r1z00_29, BgL_r2z00_30);
		}

	}



/* &max-2fl */
	obj_t BGl_z62maxzd22flzb0zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1312,
		obj_t BgL_r1z00_1313, obj_t BgL_r2z00_1314)
	{
		{	/* Ieee/flonum.scm 420 */
			{	/* Ieee/flonum.scm 421 */
				double BgL_tmpz00_1860;

				{	/* Ieee/flonum.scm 421 */
					double BgL_auxz00_1870;
					double BgL_auxz00_1861;

					{	/* Ieee/flonum.scm 421 */
						obj_t BgL_tmpz00_1871;

						if (REALP(BgL_r2z00_1314))
							{	/* Ieee/flonum.scm 421 */
								BgL_tmpz00_1871 = BgL_r2z00_1314;
							}
						else
							{
								obj_t BgL_auxz00_1874;

								BgL_auxz00_1874 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(19125L),
									BGl_string1589z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1314);
								FAILURE(BgL_auxz00_1874, BFALSE, BFALSE);
							}
						BgL_auxz00_1870 = REAL_TO_DOUBLE(BgL_tmpz00_1871);
					}
					{	/* Ieee/flonum.scm 421 */
						obj_t BgL_tmpz00_1862;

						if (REALP(BgL_r1z00_1313))
							{	/* Ieee/flonum.scm 421 */
								BgL_tmpz00_1862 = BgL_r1z00_1313;
							}
						else
							{
								obj_t BgL_auxz00_1865;

								BgL_auxz00_1865 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(19125L),
									BGl_string1589z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1313);
								FAILURE(BgL_auxz00_1865, BFALSE, BFALSE);
							}
						BgL_auxz00_1861 = REAL_TO_DOUBLE(BgL_tmpz00_1862);
					}
					BgL_tmpz00_1860 =
						BGl_maxzd22flzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1861,
						BgL_auxz00_1870);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1860);
			}
		}

	}



/* min-2fl */
	BGL_EXPORTED_DEF double BGl_minzd22flzd2zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_31, double BgL_r2z00_32)
	{
		{	/* Ieee/flonum.scm 426 */
			return BGL_FL_MIN2(BgL_r1z00_31, BgL_r2z00_32);
		}

	}



/* &min-2fl */
	obj_t BGl_z62minzd22flzb0zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1315,
		obj_t BgL_r1z00_1316, obj_t BgL_r2z00_1317)
	{
		{	/* Ieee/flonum.scm 426 */
			{	/* Ieee/flonum.scm 427 */
				double BgL_tmpz00_1882;

				{	/* Ieee/flonum.scm 427 */
					double BgL_auxz00_1892;
					double BgL_auxz00_1883;

					{	/* Ieee/flonum.scm 427 */
						obj_t BgL_tmpz00_1893;

						if (REALP(BgL_r2z00_1317))
							{	/* Ieee/flonum.scm 427 */
								BgL_tmpz00_1893 = BgL_r2z00_1317;
							}
						else
							{
								obj_t BgL_auxz00_1896;

								BgL_auxz00_1896 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(19398L),
									BGl_string1590z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1317);
								FAILURE(BgL_auxz00_1896, BFALSE, BFALSE);
							}
						BgL_auxz00_1892 = REAL_TO_DOUBLE(BgL_tmpz00_1893);
					}
					{	/* Ieee/flonum.scm 427 */
						obj_t BgL_tmpz00_1884;

						if (REALP(BgL_r1z00_1316))
							{	/* Ieee/flonum.scm 427 */
								BgL_tmpz00_1884 = BgL_r1z00_1316;
							}
						else
							{
								obj_t BgL_auxz00_1887;

								BgL_auxz00_1887 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(19398L),
									BGl_string1590z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1316);
								FAILURE(BgL_auxz00_1887, BFALSE, BFALSE);
							}
						BgL_auxz00_1883 = REAL_TO_DOUBLE(BgL_tmpz00_1884);
					}
					BgL_tmpz00_1882 =
						BGl_minzd22flzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1883,
						BgL_auxz00_1892);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1882);
			}
		}

	}



/* minfl */
	BGL_EXPORTED_DEF double BGl_minflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_33, obj_t BgL_rnz00_34)
	{
		{	/* Ieee/flonum.scm 432 */
			{
				double BgL_minz00_1096;
				obj_t BgL_rnz00_1097;

				BgL_minz00_1096 = BgL_r1z00_33;
				BgL_rnz00_1097 = BgL_rnz00_34;
			BgL_loopz00_1095:
				if (NULLP(BgL_rnz00_1097))
					{	/* Ieee/flonum.scm 435 */
						return BgL_minz00_1096;
					}
				else
					{
						obj_t BgL_rnz00_1912;
						double BgL_minz00_1905;

						{	/* Ieee/flonum.scm 427 */
							double BgL_tmpz00_1906;

							{	/* Ieee/flonum.scm 437 */
								obj_t BgL_tmpz00_1907;

								BgL_tmpz00_1907 = CAR(((obj_t) BgL_rnz00_1097));
								BgL_tmpz00_1906 = REAL_TO_DOUBLE(BgL_tmpz00_1907);
							}
							BgL_minz00_1905 = BGL_FL_MIN2(BgL_tmpz00_1906, BgL_minz00_1096);
						}
						BgL_rnz00_1912 = CDR(((obj_t) BgL_rnz00_1097));
						BgL_rnz00_1097 = BgL_rnz00_1912;
						BgL_minz00_1096 = BgL_minz00_1905;
						goto BgL_loopz00_1095;
					}
			}
		}

	}



/* &minfl */
	obj_t BGl_z62minflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1318,
		obj_t BgL_r1z00_1319, obj_t BgL_rnz00_1320)
	{
		{	/* Ieee/flonum.scm 432 */
			{	/* Ieee/flonum.scm 433 */
				double BgL_tmpz00_1915;

				{	/* Ieee/flonum.scm 433 */
					double BgL_auxz00_1916;

					{	/* Ieee/flonum.scm 433 */
						obj_t BgL_tmpz00_1917;

						if (REALP(BgL_r1z00_1319))
							{	/* Ieee/flonum.scm 433 */
								BgL_tmpz00_1917 = BgL_r1z00_1319;
							}
						else
							{
								obj_t BgL_auxz00_1920;

								BgL_auxz00_1920 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(19667L),
									BGl_string1591z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1319);
								FAILURE(BgL_auxz00_1920, BFALSE, BFALSE);
							}
						BgL_auxz00_1916 = REAL_TO_DOUBLE(BgL_tmpz00_1917);
					}
					BgL_tmpz00_1915 =
						BGl_minflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1916,
						BgL_rnz00_1320);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1915);
			}
		}

	}



/* absfl */
	BGL_EXPORTED_DEF double BGl_absflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_35)
	{
		{	/* Ieee/flonum.scm 442 */
			return fabs(BgL_rz00_35);
		}

	}



/* &absfl */
	obj_t BGl_z62absflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1321,
		obj_t BgL_rz00_1322)
	{
		{	/* Ieee/flonum.scm 442 */
			{	/* Ieee/flonum.scm 443 */
				double BgL_tmpz00_1928;

				{	/* Ieee/flonum.scm 443 */
					double BgL_auxz00_1929;

					{	/* Ieee/flonum.scm 443 */
						obj_t BgL_tmpz00_1930;

						if (REALP(BgL_rz00_1322))
							{	/* Ieee/flonum.scm 443 */
								BgL_tmpz00_1930 = BgL_rz00_1322;
							}
						else
							{
								obj_t BgL_auxz00_1933;

								BgL_auxz00_1933 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(20031L),
									BGl_string1592z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1322);
								FAILURE(BgL_auxz00_1933, BFALSE, BFALSE);
							}
						BgL_auxz00_1929 = REAL_TO_DOUBLE(BgL_tmpz00_1930);
					}
					BgL_tmpz00_1928 =
						BGl_absflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1929);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1928);
			}
		}

	}



/* floorfl */
	BGL_EXPORTED_DEF double BGl_floorflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_36)
	{
		{	/* Ieee/flonum.scm 448 */
			return floor(BgL_rz00_36);
		}

	}



/* &floorfl */
	obj_t BGl_z62floorflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1323,
		obj_t BgL_rz00_1324)
	{
		{	/* Ieee/flonum.scm 448 */
			{	/* Ieee/flonum.scm 449 */
				double BgL_tmpz00_1941;

				{	/* Ieee/flonum.scm 449 */
					double BgL_auxz00_1942;

					{	/* Ieee/flonum.scm 449 */
						obj_t BgL_tmpz00_1943;

						if (REALP(BgL_rz00_1324))
							{	/* Ieee/flonum.scm 449 */
								BgL_tmpz00_1943 = BgL_rz00_1324;
							}
						else
							{
								obj_t BgL_auxz00_1946;

								BgL_auxz00_1946 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(20296L),
									BGl_string1593z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1324);
								FAILURE(BgL_auxz00_1946, BFALSE, BFALSE);
							}
						BgL_auxz00_1942 = REAL_TO_DOUBLE(BgL_tmpz00_1943);
					}
					BgL_tmpz00_1941 =
						BGl_floorflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1942);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1941);
			}
		}

	}



/* ceilingfl */
	BGL_EXPORTED_DEF double BGl_ceilingflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_37)
	{
		{	/* Ieee/flonum.scm 454 */
			return ceil(BgL_rz00_37);
		}

	}



/* &ceilingfl */
	obj_t BGl_z62ceilingflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1325,
		obj_t BgL_rz00_1326)
	{
		{	/* Ieee/flonum.scm 454 */
			{	/* Ieee/flonum.scm 455 */
				double BgL_tmpz00_1954;

				{	/* Ieee/flonum.scm 455 */
					double BgL_auxz00_1955;

					{	/* Ieee/flonum.scm 455 */
						obj_t BgL_tmpz00_1956;

						if (REALP(BgL_rz00_1326))
							{	/* Ieee/flonum.scm 455 */
								BgL_tmpz00_1956 = BgL_rz00_1326;
							}
						else
							{
								obj_t BgL_auxz00_1959;

								BgL_auxz00_1959 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(20563L),
									BGl_string1594z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1326);
								FAILURE(BgL_auxz00_1959, BFALSE, BFALSE);
							}
						BgL_auxz00_1955 = REAL_TO_DOUBLE(BgL_tmpz00_1956);
					}
					BgL_tmpz00_1954 =
						BGl_ceilingflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1955);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1954);
			}
		}

	}



/* truncatefl */
	BGL_EXPORTED_DEF double BGl_truncateflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_38)
	{
		{	/* Ieee/flonum.scm 460 */
			if ((BgL_rz00_38 < 0.0))
				{	/* Ieee/flonum.scm 461 */
					return ceil(BgL_rz00_38);
				}
			else
				{	/* Ieee/flonum.scm 461 */
					return floor(BgL_rz00_38);
				}
		}

	}



/* &truncatefl */
	obj_t BGl_z62truncateflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1327,
		obj_t BgL_rz00_1328)
	{
		{	/* Ieee/flonum.scm 460 */
			{	/* Ieee/flonum.scm 461 */
				double BgL_tmpz00_1970;

				{	/* Ieee/flonum.scm 461 */
					double BgL_auxz00_1971;

					{	/* Ieee/flonum.scm 461 */
						obj_t BgL_tmpz00_1972;

						if (REALP(BgL_rz00_1328))
							{	/* Ieee/flonum.scm 461 */
								BgL_tmpz00_1972 = BgL_rz00_1328;
							}
						else
							{
								obj_t BgL_auxz00_1975;

								BgL_auxz00_1975 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(20833L),
									BGl_string1595z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1328);
								FAILURE(BgL_auxz00_1975, BFALSE, BFALSE);
							}
						BgL_auxz00_1971 = REAL_TO_DOUBLE(BgL_tmpz00_1972);
					}
					BgL_tmpz00_1970 =
						BGl_truncateflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1971);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1970);
			}
		}

	}



/* roundfl */
	BGL_EXPORTED_DEF double BGl_roundflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_39)
	{
		{	/* Ieee/flonum.scm 468 */
			return BGL_FL_ROUND(BgL_rz00_39);
		}

	}



/* &roundfl */
	obj_t BGl_z62roundflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1329,
		obj_t BgL_rz00_1330)
	{
		{	/* Ieee/flonum.scm 468 */
			{	/* Ieee/flonum.scm 469 */
				double BgL_tmpz00_1983;

				{	/* Ieee/flonum.scm 469 */
					double BgL_auxz00_1984;

					{	/* Ieee/flonum.scm 469 */
						obj_t BgL_tmpz00_1985;

						if (REALP(BgL_rz00_1330))
							{	/* Ieee/flonum.scm 469 */
								BgL_tmpz00_1985 = BgL_rz00_1330;
							}
						else
							{
								obj_t BgL_auxz00_1988;

								BgL_auxz00_1988 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(21141L),
									BGl_string1596z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1330);
								FAILURE(BgL_auxz00_1988, BFALSE, BFALSE);
							}
						BgL_auxz00_1984 = REAL_TO_DOUBLE(BgL_tmpz00_1985);
					}
					BgL_tmpz00_1983 =
						BGl_roundflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1984);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1983);
			}
		}

	}



/* remainderfl */
	BGL_EXPORTED_DEF double BGl_remainderflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_n1z00_40, double BgL_n2z00_41)
	{
		{	/* Ieee/flonum.scm 474 */
			return fmod(BgL_n1z00_40, BgL_n2z00_41);
		}

	}



/* &remainderfl */
	obj_t BGl_z62remainderflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1331,
		obj_t BgL_n1z00_1332, obj_t BgL_n2z00_1333)
	{
		{	/* Ieee/flonum.scm 474 */
			{	/* Ieee/flonum.scm 475 */
				double BgL_tmpz00_1996;

				{	/* Ieee/flonum.scm 475 */
					double BgL_auxz00_2006;
					double BgL_auxz00_1997;

					{	/* Ieee/flonum.scm 475 */
						obj_t BgL_tmpz00_2007;

						if (REALP(BgL_n2z00_1333))
							{	/* Ieee/flonum.scm 475 */
								BgL_tmpz00_2007 = BgL_n2z00_1333;
							}
						else
							{
								obj_t BgL_auxz00_2010;

								BgL_auxz00_2010 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(21416L),
									BGl_string1597z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_n2z00_1333);
								FAILURE(BgL_auxz00_2010, BFALSE, BFALSE);
							}
						BgL_auxz00_2006 = REAL_TO_DOUBLE(BgL_tmpz00_2007);
					}
					{	/* Ieee/flonum.scm 475 */
						obj_t BgL_tmpz00_1998;

						if (REALP(BgL_n1z00_1332))
							{	/* Ieee/flonum.scm 475 */
								BgL_tmpz00_1998 = BgL_n1z00_1332;
							}
						else
							{
								obj_t BgL_auxz00_2001;

								BgL_auxz00_2001 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(21416L),
									BGl_string1597z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_n1z00_1332);
								FAILURE(BgL_auxz00_2001, BFALSE, BFALSE);
							}
						BgL_auxz00_1997 = REAL_TO_DOUBLE(BgL_tmpz00_1998);
					}
					BgL_tmpz00_1996 =
						BGl_remainderflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1997,
						BgL_auxz00_2006);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_1996);
			}
		}

	}



/* expfl */
	BGL_EXPORTED_DEF double BGl_expflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_42)
	{
		{	/* Ieee/flonum.scm 480 */
			return exp(BgL_xz00_42);
		}

	}



/* &expfl */
	obj_t BGl_z62expflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1334,
		obj_t BgL_xz00_1335)
	{
		{	/* Ieee/flonum.scm 480 */
			{	/* Ieee/flonum.scm 481 */
				double BgL_tmpz00_2018;

				{	/* Ieee/flonum.scm 481 */
					double BgL_auxz00_2019;

					{	/* Ieee/flonum.scm 481 */
						obj_t BgL_tmpz00_2020;

						if (REALP(BgL_xz00_1335))
							{	/* Ieee/flonum.scm 481 */
								BgL_tmpz00_2020 = BgL_xz00_1335;
							}
						else
							{
								obj_t BgL_auxz00_2023;

								BgL_auxz00_2023 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(21682L),
									BGl_string1598z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1335);
								FAILURE(BgL_auxz00_2023, BFALSE, BFALSE);
							}
						BgL_auxz00_2019 = REAL_TO_DOUBLE(BgL_tmpz00_2020);
					}
					BgL_tmpz00_2018 =
						BGl_expflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2019);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2018);
			}
		}

	}



/* logfl */
	BGL_EXPORTED_DEF double BGl_logflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_43)
	{
		{	/* Ieee/flonum.scm 486 */
			return log(BgL_xz00_43);
		}

	}



/* &logfl */
	obj_t BGl_z62logflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1336,
		obj_t BgL_xz00_1337)
	{
		{	/* Ieee/flonum.scm 486 */
			{	/* Ieee/flonum.scm 487 */
				double BgL_tmpz00_2031;

				{	/* Ieee/flonum.scm 487 */
					double BgL_auxz00_2032;

					{	/* Ieee/flonum.scm 487 */
						obj_t BgL_tmpz00_2033;

						if (REALP(BgL_xz00_1337))
							{	/* Ieee/flonum.scm 487 */
								BgL_tmpz00_2033 = BgL_xz00_1337;
							}
						else
							{
								obj_t BgL_auxz00_2036;

								BgL_auxz00_2036 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(21943L),
									BGl_string1599z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1337);
								FAILURE(BgL_auxz00_2036, BFALSE, BFALSE);
							}
						BgL_auxz00_2032 = REAL_TO_DOUBLE(BgL_tmpz00_2033);
					}
					BgL_tmpz00_2031 =
						BGl_logflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2032);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2031);
			}
		}

	}



/* log2fl */
	BGL_EXPORTED_DEF double BGl_log2flz00zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_44)
	{
		{	/* Ieee/flonum.scm 492 */
			return log2(BgL_xz00_44);
		}

	}



/* &log2fl */
	obj_t BGl_z62log2flz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1338,
		obj_t BgL_xz00_1339)
	{
		{	/* Ieee/flonum.scm 492 */
			{	/* Ieee/flonum.scm 493 */
				double BgL_tmpz00_2044;

				{	/* Ieee/flonum.scm 493 */
					double BgL_auxz00_2045;

					{	/* Ieee/flonum.scm 493 */
						obj_t BgL_tmpz00_2046;

						if (REALP(BgL_xz00_1339))
							{	/* Ieee/flonum.scm 493 */
								BgL_tmpz00_2046 = BgL_xz00_1339;
							}
						else
							{
								obj_t BgL_auxz00_2049;

								BgL_auxz00_2049 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(22206L),
									BGl_string1600z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1339);
								FAILURE(BgL_auxz00_2049, BFALSE, BFALSE);
							}
						BgL_auxz00_2045 = REAL_TO_DOUBLE(BgL_tmpz00_2046);
					}
					BgL_tmpz00_2044 =
						BGl_log2flz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2045);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2044);
			}
		}

	}



/* log10fl */
	BGL_EXPORTED_DEF double BGl_log10flz00zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_45)
	{
		{	/* Ieee/flonum.scm 498 */
			return log10(BgL_xz00_45);
		}

	}



/* &log10fl */
	obj_t BGl_z62log10flz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1340,
		obj_t BgL_xz00_1341)
	{
		{	/* Ieee/flonum.scm 498 */
			{	/* Ieee/flonum.scm 499 */
				double BgL_tmpz00_2057;

				{	/* Ieee/flonum.scm 499 */
					double BgL_auxz00_2058;

					{	/* Ieee/flonum.scm 499 */
						obj_t BgL_tmpz00_2059;

						if (REALP(BgL_xz00_1341))
							{	/* Ieee/flonum.scm 499 */
								BgL_tmpz00_2059 = BgL_xz00_1341;
							}
						else
							{
								obj_t BgL_auxz00_2062;

								BgL_auxz00_2062 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(22471L),
									BGl_string1601z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1341);
								FAILURE(BgL_auxz00_2062, BFALSE, BFALSE);
							}
						BgL_auxz00_2058 = REAL_TO_DOUBLE(BgL_tmpz00_2059);
					}
					BgL_tmpz00_2057 =
						BGl_log10flz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2058);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2057);
			}
		}

	}



/* sinfl */
	BGL_EXPORTED_DEF double BGl_sinflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_46)
	{
		{	/* Ieee/flonum.scm 504 */
			return sin(BgL_xz00_46);
		}

	}



/* &sinfl */
	obj_t BGl_z62sinflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1342,
		obj_t BgL_xz00_1343)
	{
		{	/* Ieee/flonum.scm 504 */
			{	/* Ieee/flonum.scm 505 */
				double BgL_tmpz00_2070;

				{	/* Ieee/flonum.scm 505 */
					double BgL_auxz00_2071;

					{	/* Ieee/flonum.scm 505 */
						obj_t BgL_tmpz00_2072;

						if (REALP(BgL_xz00_1343))
							{	/* Ieee/flonum.scm 505 */
								BgL_tmpz00_2072 = BgL_xz00_1343;
							}
						else
							{
								obj_t BgL_auxz00_2075;

								BgL_auxz00_2075 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(22735L),
									BGl_string1602z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1343);
								FAILURE(BgL_auxz00_2075, BFALSE, BFALSE);
							}
						BgL_auxz00_2071 = REAL_TO_DOUBLE(BgL_tmpz00_2072);
					}
					BgL_tmpz00_2070 =
						BGl_sinflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2071);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2070);
			}
		}

	}



/* cosfl */
	BGL_EXPORTED_DEF double BGl_cosflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_47)
	{
		{	/* Ieee/flonum.scm 510 */
			return cos(BgL_xz00_47);
		}

	}



/* &cosfl */
	obj_t BGl_z62cosflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1344,
		obj_t BgL_xz00_1345)
	{
		{	/* Ieee/flonum.scm 510 */
			{	/* Ieee/flonum.scm 511 */
				double BgL_tmpz00_2083;

				{	/* Ieee/flonum.scm 511 */
					double BgL_auxz00_2084;

					{	/* Ieee/flonum.scm 511 */
						obj_t BgL_tmpz00_2085;

						if (REALP(BgL_xz00_1345))
							{	/* Ieee/flonum.scm 511 */
								BgL_tmpz00_2085 = BgL_xz00_1345;
							}
						else
							{
								obj_t BgL_auxz00_2088;

								BgL_auxz00_2088 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(22996L),
									BGl_string1603z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1345);
								FAILURE(BgL_auxz00_2088, BFALSE, BFALSE);
							}
						BgL_auxz00_2084 = REAL_TO_DOUBLE(BgL_tmpz00_2085);
					}
					BgL_tmpz00_2083 =
						BGl_cosflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2084);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2083);
			}
		}

	}



/* tanfl */
	BGL_EXPORTED_DEF double BGl_tanflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_48)
	{
		{	/* Ieee/flonum.scm 516 */
			return tan(BgL_xz00_48);
		}

	}



/* &tanfl */
	obj_t BGl_z62tanflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1346,
		obj_t BgL_xz00_1347)
	{
		{	/* Ieee/flonum.scm 516 */
			{	/* Ieee/flonum.scm 517 */
				double BgL_tmpz00_2096;

				{	/* Ieee/flonum.scm 517 */
					double BgL_auxz00_2097;

					{	/* Ieee/flonum.scm 517 */
						obj_t BgL_tmpz00_2098;

						if (REALP(BgL_xz00_1347))
							{	/* Ieee/flonum.scm 517 */
								BgL_tmpz00_2098 = BgL_xz00_1347;
							}
						else
							{
								obj_t BgL_auxz00_2101;

								BgL_auxz00_2101 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(23257L),
									BGl_string1604z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1347);
								FAILURE(BgL_auxz00_2101, BFALSE, BFALSE);
							}
						BgL_auxz00_2097 = REAL_TO_DOUBLE(BgL_tmpz00_2098);
					}
					BgL_tmpz00_2096 =
						BGl_tanflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2097);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2096);
			}
		}

	}



/* asinfl */
	BGL_EXPORTED_DEF double BGl_asinflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_49)
	{
		{	/* Ieee/flonum.scm 522 */
			return asin(BgL_xz00_49);
		}

	}



/* &asinfl */
	obj_t BGl_z62asinflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1348,
		obj_t BgL_xz00_1349)
	{
		{	/* Ieee/flonum.scm 522 */
			{	/* Ieee/flonum.scm 523 */
				double BgL_tmpz00_2109;

				{	/* Ieee/flonum.scm 523 */
					double BgL_auxz00_2110;

					{	/* Ieee/flonum.scm 523 */
						obj_t BgL_tmpz00_2111;

						if (REALP(BgL_xz00_1349))
							{	/* Ieee/flonum.scm 523 */
								BgL_tmpz00_2111 = BgL_xz00_1349;
							}
						else
							{
								obj_t BgL_auxz00_2114;

								BgL_auxz00_2114 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(23519L),
									BGl_string1605z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1349);
								FAILURE(BgL_auxz00_2114, BFALSE, BFALSE);
							}
						BgL_auxz00_2110 = REAL_TO_DOUBLE(BgL_tmpz00_2111);
					}
					BgL_tmpz00_2109 =
						BGl_asinflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2110);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2109);
			}
		}

	}



/* acosfl */
	BGL_EXPORTED_DEF double BGl_acosflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_50)
	{
		{	/* Ieee/flonum.scm 528 */
			return acos(BgL_xz00_50);
		}

	}



/* &acosfl */
	obj_t BGl_z62acosflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1350,
		obj_t BgL_xz00_1351)
	{
		{	/* Ieee/flonum.scm 528 */
			{	/* Ieee/flonum.scm 529 */
				double BgL_tmpz00_2122;

				{	/* Ieee/flonum.scm 529 */
					double BgL_auxz00_2123;

					{	/* Ieee/flonum.scm 529 */
						obj_t BgL_tmpz00_2124;

						if (REALP(BgL_xz00_1351))
							{	/* Ieee/flonum.scm 529 */
								BgL_tmpz00_2124 = BgL_xz00_1351;
							}
						else
							{
								obj_t BgL_auxz00_2127;

								BgL_auxz00_2127 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(23782L),
									BGl_string1606z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1351);
								FAILURE(BgL_auxz00_2127, BFALSE, BFALSE);
							}
						BgL_auxz00_2123 = REAL_TO_DOUBLE(BgL_tmpz00_2124);
					}
					BgL_tmpz00_2122 =
						BGl_acosflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2123);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2122);
			}
		}

	}



/* atanfl */
	BGL_EXPORTED_DEF double BGl_atanflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_51, obj_t BgL_yz00_52)
	{
		{	/* Ieee/flonum.scm 534 */
			if (NULLP(BgL_yz00_52))
				{	/* Ieee/flonum.scm 535 */
					return atan(BgL_xz00_51);
				}
			else
				{	/* Ieee/flonum.scm 537 */
					obj_t BgL_yz00_1117;

					BgL_yz00_1117 = CAR(((obj_t) BgL_yz00_52));
					{	/* Ieee/flonum.scm 538 */
						double BgL_yz00_1120;

						BgL_yz00_1120 = REAL_TO_DOUBLE(BgL_yz00_1117);
						return atan2(BgL_xz00_51, BgL_yz00_1120);
					}
				}
		}

	}



/* &atanfl */
	obj_t BGl_z62atanflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1352,
		obj_t BgL_xz00_1353, obj_t BgL_yz00_1354)
	{
		{	/* Ieee/flonum.scm 534 */
			{	/* Ieee/flonum.scm 535 */
				double BgL_tmpz00_2141;

				{	/* Ieee/flonum.scm 535 */
					double BgL_auxz00_2142;

					{	/* Ieee/flonum.scm 535 */
						obj_t BgL_tmpz00_2143;

						if (REALP(BgL_xz00_1353))
							{	/* Ieee/flonum.scm 535 */
								BgL_tmpz00_2143 = BgL_xz00_1353;
							}
						else
							{
								obj_t BgL_auxz00_2146;

								BgL_auxz00_2146 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(24042L),
									BGl_string1607z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1353);
								FAILURE(BgL_auxz00_2146, BFALSE, BFALSE);
							}
						BgL_auxz00_2142 = REAL_TO_DOUBLE(BgL_tmpz00_2143);
					}
					BgL_tmpz00_2141 =
						BGl_atanflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2142,
						BgL_yz00_1354);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2141);
			}
		}

	}



/* atan-1fl */
	BGL_EXPORTED_DEF double BGl_atanzd21flzd2zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_53)
	{
		{	/* Ieee/flonum.scm 543 */
			return atan(BgL_xz00_53);
		}

	}



/* &atan-1fl */
	obj_t BGl_z62atanzd21flzb0zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1355,
		obj_t BgL_xz00_1356)
	{
		{	/* Ieee/flonum.scm 543 */
			{	/* Ieee/flonum.scm 544 */
				double BgL_tmpz00_2154;

				{	/* Ieee/flonum.scm 544 */
					double BgL_auxz00_2155;

					{	/* Ieee/flonum.scm 544 */
						obj_t BgL_tmpz00_2156;

						if (REALP(BgL_xz00_1356))
							{	/* Ieee/flonum.scm 544 */
								BgL_tmpz00_2156 = BgL_xz00_1356;
							}
						else
							{
								obj_t BgL_auxz00_2159;

								BgL_auxz00_2159 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(24374L),
									BGl_string1608z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1356);
								FAILURE(BgL_auxz00_2159, BFALSE, BFALSE);
							}
						BgL_auxz00_2155 = REAL_TO_DOUBLE(BgL_tmpz00_2156);
					}
					BgL_tmpz00_2154 =
						BGl_atanzd21flzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2155);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2154);
			}
		}

	}



/* atan-2fl */
	BGL_EXPORTED_DEF double BGl_atanzd22flzd2zz__r4_numbers_6_5_flonumz00(double
		BgL_xz00_54, double BgL_yz00_55)
	{
		{	/* Ieee/flonum.scm 549 */
			{	/* Ieee/flonum.scm 553 */
				bool_t BgL_test1825z00_2166;

				if ((BgL_xz00_54 == 0.0))
					{	/* Ieee/flonum.scm 550 */
						BgL_test1825z00_2166 = (BgL_yz00_55 == 0.0);
					}
				else
					{	/* Ieee/flonum.scm 550 */
						BgL_test1825z00_2166 = ((bool_t) 0);
					}
				if (BgL_test1825z00_2166)
					{	/* Ieee/flonum.scm 554 */
						obj_t BgL_procz00_1550;
						obj_t BgL_msgz00_1551;
						obj_t BgL_objz00_1552;

						BgL_procz00_1550 =
							string_to_bstring(BSTRING_TO_STRING
							(BGl_string1609z00zz__r4_numbers_6_5_flonumz00));
						BgL_msgz00_1551 =
							string_to_bstring(BSTRING_TO_STRING
							(BGl_string1610z00zz__r4_numbers_6_5_flonumz00));
						BgL_objz00_1552 =
							BGL_REAL_CNST(BGl_real1611z00zz__r4_numbers_6_5_flonumz00);
						the_failure(BgL_procz00_1550, BgL_msgz00_1551, BgL_objz00_1552);
						return 0.0;
					}
				else
					{	/* Ieee/flonum.scm 553 */
						return atan2(BgL_xz00_54, BgL_yz00_55);
					}
			}
		}

	}



/* &atan-2fl */
	obj_t BGl_z62atanzd22flzb0zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1357,
		obj_t BgL_xz00_1358, obj_t BgL_yz00_1359)
	{
		{	/* Ieee/flonum.scm 549 */
			{	/* Ieee/flonum.scm 550 */
				double BgL_tmpz00_2176;

				{	/* Ieee/flonum.scm 550 */
					double BgL_auxz00_2186;
					double BgL_auxz00_2177;

					{	/* Ieee/flonum.scm 550 */
						obj_t BgL_tmpz00_2187;

						if (REALP(BgL_yz00_1359))
							{	/* Ieee/flonum.scm 550 */
								BgL_tmpz00_2187 = BgL_yz00_1359;
							}
						else
							{
								obj_t BgL_auxz00_2190;

								BgL_auxz00_2190 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(24641L),
									BGl_string1612z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_yz00_1359);
								FAILURE(BgL_auxz00_2190, BFALSE, BFALSE);
							}
						BgL_auxz00_2186 = REAL_TO_DOUBLE(BgL_tmpz00_2187);
					}
					{	/* Ieee/flonum.scm 550 */
						obj_t BgL_tmpz00_2178;

						if (REALP(BgL_xz00_1358))
							{	/* Ieee/flonum.scm 550 */
								BgL_tmpz00_2178 = BgL_xz00_1358;
							}
						else
							{
								obj_t BgL_auxz00_2181;

								BgL_auxz00_2181 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(24641L),
									BGl_string1612z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1358);
								FAILURE(BgL_auxz00_2181, BFALSE, BFALSE);
							}
						BgL_auxz00_2177 = REAL_TO_DOUBLE(BgL_tmpz00_2178);
					}
					BgL_tmpz00_2176 =
						BGl_atanzd22flzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2177,
						BgL_auxz00_2186);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2176);
			}
		}

	}



/* atan-2fl-ur */
	BGL_EXPORTED_DEF double
		BGl_atanzd22flzd2urz00zz__r4_numbers_6_5_flonumz00(double BgL_xz00_56,
		double BgL_yz00_57)
	{
		{	/* Ieee/flonum.scm 567 */
			return atan2(BgL_xz00_56, BgL_yz00_57);
		}

	}



/* &atan-2fl-ur */
	obj_t BGl_z62atanzd22flzd2urz62zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1360, obj_t BgL_xz00_1361, obj_t BgL_yz00_1362)
	{
		{	/* Ieee/flonum.scm 567 */
			{	/* Ieee/flonum.scm 568 */
				double BgL_tmpz00_2198;

				{	/* Ieee/flonum.scm 568 */
					double BgL_auxz00_2208;
					double BgL_auxz00_2199;

					{	/* Ieee/flonum.scm 568 */
						obj_t BgL_tmpz00_2209;

						if (REALP(BgL_yz00_1362))
							{	/* Ieee/flonum.scm 568 */
								BgL_tmpz00_2209 = BgL_yz00_1362;
							}
						else
							{
								obj_t BgL_auxz00_2212;

								BgL_auxz00_2212 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(25279L),
									BGl_string1613z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_yz00_1362);
								FAILURE(BgL_auxz00_2212, BFALSE, BFALSE);
							}
						BgL_auxz00_2208 = REAL_TO_DOUBLE(BgL_tmpz00_2209);
					}
					{	/* Ieee/flonum.scm 568 */
						obj_t BgL_tmpz00_2200;

						if (REALP(BgL_xz00_1361))
							{	/* Ieee/flonum.scm 568 */
								BgL_tmpz00_2200 = BgL_xz00_1361;
							}
						else
							{
								obj_t BgL_auxz00_2203;

								BgL_auxz00_2203 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(25279L),
									BGl_string1613z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1361);
								FAILURE(BgL_auxz00_2203, BFALSE, BFALSE);
							}
						BgL_auxz00_2199 = REAL_TO_DOUBLE(BgL_tmpz00_2200);
					}
					BgL_tmpz00_2198 =
						BGl_atanzd22flzd2urz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2199,
						BgL_auxz00_2208);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2198);
			}
		}

	}



/* sqrtfl */
	BGL_EXPORTED_DEF double BGl_sqrtflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_58)
	{
		{	/* Ieee/flonum.scm 573 */
			if ((BgL_rz00_58 < 0.0))
				{	/* Ieee/flonum.scm 575 */
					obj_t BgL_procz00_1553;
					obj_t BgL_msgz00_1554;
					obj_t BgL_objz00_1555;

					BgL_procz00_1553 =
						string_to_bstring(BSTRING_TO_STRING
						(BGl_string1614z00zz__r4_numbers_6_5_flonumz00));
					BgL_msgz00_1554 =
						string_to_bstring(BSTRING_TO_STRING
						(BGl_string1610z00zz__r4_numbers_6_5_flonumz00));
					BgL_objz00_1555 = DOUBLE_TO_REAL(BgL_rz00_58);
					BGl_errorz00zz__errorz00(BgL_procz00_1553, BgL_msgz00_1554,
						BgL_objz00_1555);
					return 0.0;
				}
			else
				{	/* Ieee/flonum.scm 574 */
					return sqrt(BgL_rz00_58);
				}
		}

	}



/* &sqrtfl */
	obj_t BGl_z62sqrtflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1363,
		obj_t BgL_rz00_1364)
	{
		{	/* Ieee/flonum.scm 573 */
			{	/* Ieee/flonum.scm 574 */
				double BgL_tmpz00_2228;

				{	/* Ieee/flonum.scm 574 */
					double BgL_auxz00_2229;

					{	/* Ieee/flonum.scm 574 */
						obj_t BgL_tmpz00_2230;

						if (REALP(BgL_rz00_1364))
							{	/* Ieee/flonum.scm 574 */
								BgL_tmpz00_2230 = BgL_rz00_1364;
							}
						else
							{
								obj_t BgL_auxz00_2233;

								BgL_auxz00_2233 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(25545L),
									BGl_string1615z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1364);
								FAILURE(BgL_auxz00_2233, BFALSE, BFALSE);
							}
						BgL_auxz00_2229 = REAL_TO_DOUBLE(BgL_tmpz00_2230);
					}
					BgL_tmpz00_2228 =
						BGl_sqrtflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2229);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2228);
			}
		}

	}



/* sqrtfl-ur */
	BGL_EXPORTED_DEF double BGl_sqrtflzd2urzd2zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_59)
	{
		{	/* Ieee/flonum.scm 586 */
			return sqrt(BgL_rz00_59);
		}

	}



/* &sqrtfl-ur */
	obj_t BGl_z62sqrtflzd2urzb0zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1365,
		obj_t BgL_rz00_1366)
	{
		{	/* Ieee/flonum.scm 586 */
			{	/* Ieee/flonum.scm 587 */
				double BgL_tmpz00_2241;

				{	/* Ieee/flonum.scm 587 */
					double BgL_auxz00_2242;

					{	/* Ieee/flonum.scm 587 */
						obj_t BgL_tmpz00_2243;

						if (REALP(BgL_rz00_1366))
							{	/* Ieee/flonum.scm 587 */
								BgL_tmpz00_2243 = BgL_rz00_1366;
							}
						else
							{
								obj_t BgL_auxz00_2246;

								BgL_auxz00_2246 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(26024L),
									BGl_string1616z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1366);
								FAILURE(BgL_auxz00_2246, BFALSE, BFALSE);
							}
						BgL_auxz00_2242 = REAL_TO_DOUBLE(BgL_tmpz00_2243);
					}
					BgL_tmpz00_2241 =
						BGl_sqrtflzd2urzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2242);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2241);
			}
		}

	}



/* exptfl */
	BGL_EXPORTED_DEF double BGl_exptflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_r1z00_60, double BgL_r2z00_61)
	{
		{	/* Ieee/flonum.scm 592 */
			return pow(BgL_r1z00_60, BgL_r2z00_61);
		}

	}



/* &exptfl */
	obj_t BGl_z62exptflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1367,
		obj_t BgL_r1z00_1368, obj_t BgL_r2z00_1369)
	{
		{	/* Ieee/flonum.scm 592 */
			{	/* Ieee/flonum.scm 593 */
				double BgL_tmpz00_2254;

				{	/* Ieee/flonum.scm 593 */
					double BgL_auxz00_2264;
					double BgL_auxz00_2255;

					{	/* Ieee/flonum.scm 593 */
						obj_t BgL_tmpz00_2265;

						if (REALP(BgL_r2z00_1369))
							{	/* Ieee/flonum.scm 593 */
								BgL_tmpz00_2265 = BgL_r2z00_1369;
							}
						else
							{
								obj_t BgL_auxz00_2268;

								BgL_auxz00_2268 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(26291L),
									BGl_string1617z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r2z00_1369);
								FAILURE(BgL_auxz00_2268, BFALSE, BFALSE);
							}
						BgL_auxz00_2264 = REAL_TO_DOUBLE(BgL_tmpz00_2265);
					}
					{	/* Ieee/flonum.scm 593 */
						obj_t BgL_tmpz00_2256;

						if (REALP(BgL_r1z00_1368))
							{	/* Ieee/flonum.scm 593 */
								BgL_tmpz00_2256 = BgL_r1z00_1368;
							}
						else
							{
								obj_t BgL_auxz00_2259;

								BgL_auxz00_2259 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(26291L),
									BGl_string1617z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
									BgL_r1z00_1368);
								FAILURE(BgL_auxz00_2259, BFALSE, BFALSE);
							}
						BgL_auxz00_2255 = REAL_TO_DOUBLE(BgL_tmpz00_2256);
					}
					BgL_tmpz00_2254 =
						BGl_exptflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2255,
						BgL_auxz00_2264);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2254);
			}
		}

	}



/* signbitfl */
	BGL_EXPORTED_DEF long BGl_signbitflz00zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_62)
	{
		{	/* Ieee/flonum.scm 598 */
			return BGL_SIGNBIT(BgL_rz00_62);
		}

	}



/* &signbitfl */
	obj_t BGl_z62signbitflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1370,
		obj_t BgL_rz00_1371)
	{
		{	/* Ieee/flonum.scm 598 */
			{	/* Ieee/flonum.scm 599 */
				long BgL_tmpz00_2276;

				{	/* Ieee/flonum.scm 599 */
					double BgL_auxz00_2277;

					{	/* Ieee/flonum.scm 599 */
						obj_t BgL_tmpz00_2278;

						if (REALP(BgL_rz00_1371))
							{	/* Ieee/flonum.scm 599 */
								BgL_tmpz00_2278 = BgL_rz00_1371;
							}
						else
							{
								obj_t BgL_auxz00_2281;

								BgL_auxz00_2281 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(26560L),
									BGl_string1618z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1371);
								FAILURE(BgL_auxz00_2281, BFALSE, BFALSE);
							}
						BgL_auxz00_2277 = REAL_TO_DOUBLE(BgL_tmpz00_2278);
					}
					BgL_tmpz00_2276 =
						BGl_signbitflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2277);
				}
				return BINT(BgL_tmpz00_2276);
			}
		}

	}



/* integerfl? */
	BGL_EXPORTED_DEF bool_t BGl_integerflzf3zf3zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_63)
	{
		{	/* Ieee/flonum.scm 604 */
			if (BGL_IS_FINITE(BgL_rz00_63))
				{	/* Ieee/flonum.scm 605 */
					double BgL_arg1070z00_1556;

					BgL_arg1070z00_1556 = floor(BgL_rz00_63);
					return (BgL_rz00_63 == BgL_arg1070z00_1556);
				}
			else
				{	/* Ieee/flonum.scm 605 */
					return ((bool_t) 0);
				}
		}

	}



/* &integerfl? */
	obj_t BGl_z62integerflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1372, obj_t BgL_rz00_1373)
	{
		{	/* Ieee/flonum.scm 604 */
			{	/* Ieee/flonum.scm 605 */
				bool_t BgL_tmpz00_2292;

				{	/* Ieee/flonum.scm 605 */
					double BgL_auxz00_2293;

					{	/* Ieee/flonum.scm 605 */
						obj_t BgL_tmpz00_2294;

						if (REALP(BgL_rz00_1373))
							{	/* Ieee/flonum.scm 605 */
								BgL_tmpz00_2294 = BgL_rz00_1373;
							}
						else
							{
								obj_t BgL_auxz00_2297;

								BgL_auxz00_2297 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(26835L),
									BGl_string1619z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1373);
								FAILURE(BgL_auxz00_2297, BFALSE, BFALSE);
							}
						BgL_auxz00_2293 = REAL_TO_DOUBLE(BgL_tmpz00_2294);
					}
					BgL_tmpz00_2292 =
						BGl_integerflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2293);
				}
				return BBOOL(BgL_tmpz00_2292);
			}
		}

	}



/* evenfl? */
	BGL_EXPORTED_DEF bool_t BGl_evenflzf3zf3zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_64)
	{
		{	/* Ieee/flonum.scm 610 */
			{	/* Ieee/flonum.scm 611 */
				double BgL_arg1072z00_1557;

				BgL_arg1072z00_1557 = (BgL_rz00_64 / 2.0);
				if (BGL_IS_FINITE(BgL_arg1072z00_1557))
					{	/* Ieee/flonum.scm 605 */
						double BgL_arg1070z00_1558;

						BgL_arg1070z00_1558 = floor(BgL_arg1072z00_1557);
						return (BgL_arg1072z00_1557 == BgL_arg1070z00_1558);
					}
				else
					{	/* Ieee/flonum.scm 605 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &evenfl? */
	obj_t BGl_z62evenflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1374,
		obj_t BgL_rz00_1375)
	{
		{	/* Ieee/flonum.scm 610 */
			{	/* Ieee/flonum.scm 611 */
				bool_t BgL_tmpz00_2309;

				{	/* Ieee/flonum.scm 611 */
					double BgL_auxz00_2310;

					{	/* Ieee/flonum.scm 611 */
						obj_t BgL_tmpz00_2311;

						if (REALP(BgL_rz00_1375))
							{	/* Ieee/flonum.scm 611 */
								BgL_tmpz00_2311 = BgL_rz00_1375;
							}
						else
							{
								obj_t BgL_auxz00_2314;

								BgL_auxz00_2314 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(27136L),
									BGl_string1620z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1375);
								FAILURE(BgL_auxz00_2314, BFALSE, BFALSE);
							}
						BgL_auxz00_2310 = REAL_TO_DOUBLE(BgL_tmpz00_2311);
					}
					BgL_tmpz00_2309 =
						BGl_evenflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2310);
				}
				return BBOOL(BgL_tmpz00_2309);
			}
		}

	}



/* oddfl? */
	BGL_EXPORTED_DEF bool_t BGl_oddflzf3zf3zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_65)
	{
		{	/* Ieee/flonum.scm 616 */
			{	/* Ieee/flonum.scm 617 */
				bool_t BgL_test1841z00_2321;

				if (BGL_IS_FINITE(BgL_rz00_65))
					{	/* Ieee/flonum.scm 605 */
						double BgL_arg1070z00_1559;

						BgL_arg1070z00_1559 = floor(BgL_rz00_65);
						BgL_test1841z00_2321 = (BgL_rz00_65 == BgL_arg1070z00_1559);
					}
				else
					{	/* Ieee/flonum.scm 605 */
						BgL_test1841z00_2321 = ((bool_t) 0);
					}
				if (BgL_test1841z00_2321)
					{	/* Ieee/flonum.scm 618 */
						bool_t BgL_test1843z00_2326;

						{	/* Ieee/flonum.scm 611 */
							double BgL_arg1072z00_1560;

							BgL_arg1072z00_1560 = (BgL_rz00_65 / 2.0);
							if (BGL_IS_FINITE(BgL_arg1072z00_1560))
								{	/* Ieee/flonum.scm 605 */
									double BgL_arg1070z00_1561;

									BgL_arg1070z00_1561 = floor(BgL_arg1072z00_1560);
									BgL_test1843z00_2326 =
										(BgL_arg1072z00_1560 == BgL_arg1070z00_1561);
								}
							else
								{	/* Ieee/flonum.scm 605 */
									BgL_test1843z00_2326 = ((bool_t) 0);
								}
						}
						if (BgL_test1843z00_2326)
							{	/* Ieee/flonum.scm 618 */
								return ((bool_t) 0);
							}
						else
							{	/* Ieee/flonum.scm 618 */
								return ((bool_t) 1);
							}
					}
				else
					{	/* Ieee/flonum.scm 617 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &oddfl? */
	obj_t BGl_z62oddflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1376,
		obj_t BgL_rz00_1377)
	{
		{	/* Ieee/flonum.scm 616 */
			{	/* Ieee/flonum.scm 617 */
				bool_t BgL_tmpz00_2332;

				{	/* Ieee/flonum.scm 617 */
					double BgL_auxz00_2333;

					{	/* Ieee/flonum.scm 617 */
						obj_t BgL_tmpz00_2334;

						if (REALP(BgL_rz00_1377))
							{	/* Ieee/flonum.scm 617 */
								BgL_tmpz00_2334 = BgL_rz00_1377;
							}
						else
							{
								obj_t BgL_auxz00_2337;

								BgL_auxz00_2337 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(27407L),
									BGl_string1621z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1377);
								FAILURE(BgL_auxz00_2337, BFALSE, BFALSE);
							}
						BgL_auxz00_2333 = REAL_TO_DOUBLE(BgL_tmpz00_2334);
					}
					BgL_tmpz00_2332 =
						BGl_oddflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2333);
				}
				return BBOOL(BgL_tmpz00_2332);
			}
		}

	}



/* finitefl? */
	BGL_EXPORTED_DEF bool_t BGl_finiteflzf3zf3zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_66)
	{
		{	/* Ieee/flonum.scm 623 */
			return BGL_IS_FINITE(BgL_rz00_66);
		}

	}



/* &finitefl? */
	obj_t BGl_z62finiteflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1378,
		obj_t BgL_rz00_1379)
	{
		{	/* Ieee/flonum.scm 623 */
			{	/* Ieee/flonum.scm 624 */
				bool_t BgL_tmpz00_2345;

				{	/* Ieee/flonum.scm 624 */
					double BgL_auxz00_2346;

					{	/* Ieee/flonum.scm 624 */
						obj_t BgL_tmpz00_2347;

						if (REALP(BgL_rz00_1379))
							{	/* Ieee/flonum.scm 624 */
								BgL_tmpz00_2347 = BgL_rz00_1379;
							}
						else
							{
								obj_t BgL_auxz00_2350;

								BgL_auxz00_2350 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(27698L),
									BGl_string1622z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1379);
								FAILURE(BgL_auxz00_2350, BFALSE, BFALSE);
							}
						BgL_auxz00_2346 = REAL_TO_DOUBLE(BgL_tmpz00_2347);
					}
					BgL_tmpz00_2345 =
						BGl_finiteflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2346);
				}
				return BBOOL(BgL_tmpz00_2345);
			}
		}

	}



/* infinitefl? */
	BGL_EXPORTED_DEF bool_t
		BGl_infiniteflzf3zf3zz__r4_numbers_6_5_flonumz00(double BgL_rz00_67)
	{
		{	/* Ieee/flonum.scm 629 */
			return BGL_IS_INF(BgL_rz00_67);
		}

	}



/* &infinitefl? */
	obj_t BGl_z62infiniteflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1380, obj_t BgL_rz00_1381)
	{
		{	/* Ieee/flonum.scm 629 */
			{	/* Ieee/flonum.scm 630 */
				bool_t BgL_tmpz00_2358;

				{	/* Ieee/flonum.scm 630 */
					double BgL_auxz00_2359;

					{	/* Ieee/flonum.scm 630 */
						obj_t BgL_tmpz00_2360;

						if (REALP(BgL_rz00_1381))
							{	/* Ieee/flonum.scm 630 */
								BgL_tmpz00_2360 = BgL_rz00_1381;
							}
						else
							{
								obj_t BgL_auxz00_2363;

								BgL_auxz00_2363 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(27970L),
									BGl_string1623z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1381);
								FAILURE(BgL_auxz00_2363, BFALSE, BFALSE);
							}
						BgL_auxz00_2359 = REAL_TO_DOUBLE(BgL_tmpz00_2360);
					}
					BgL_tmpz00_2358 =
						BGl_infiniteflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2359);
				}
				return BBOOL(BgL_tmpz00_2358);
			}
		}

	}



/* nanfl? */
	BGL_EXPORTED_DEF bool_t BGl_nanflzf3zf3zz__r4_numbers_6_5_flonumz00(double
		BgL_rz00_68)
	{
		{	/* Ieee/flonum.scm 635 */
			return BGL_IS_NAN(BgL_rz00_68);
		}

	}



/* &nanfl? */
	obj_t BGl_z62nanflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1382,
		obj_t BgL_rz00_1383)
	{
		{	/* Ieee/flonum.scm 635 */
			{	/* Ieee/flonum.scm 636 */
				bool_t BgL_tmpz00_2371;

				{	/* Ieee/flonum.scm 636 */
					double BgL_auxz00_2372;

					{	/* Ieee/flonum.scm 636 */
						obj_t BgL_tmpz00_2373;

						if (REALP(BgL_rz00_1383))
							{	/* Ieee/flonum.scm 636 */
								BgL_tmpz00_2373 = BgL_rz00_1383;
							}
						else
							{
								obj_t BgL_auxz00_2376;

								BgL_auxz00_2376 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(28234L),
									BGl_string1624z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1383);
								FAILURE(BgL_auxz00_2376, BFALSE, BFALSE);
							}
						BgL_auxz00_2372 = REAL_TO_DOUBLE(BgL_tmpz00_2373);
					}
					BgL_tmpz00_2371 =
						BGl_nanflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2372);
				}
				return BBOOL(BgL_tmpz00_2371);
			}
		}

	}



/* string->real */
	BGL_EXPORTED_DEF double
		BGl_stringzd2ze3realz31zz__r4_numbers_6_5_flonumz00(obj_t BgL_stringz00_69)
	{
		{	/* Ieee/flonum.scm 641 */
			{	/* Ieee/flonum.scm 643 */
				bool_t BgL_test1849z00_2383;

				{	/* Ieee/flonum.scm 643 */
					long BgL_l1z00_1562;

					BgL_l1z00_1562 = STRING_LENGTH(BgL_stringz00_69);
					if ((BgL_l1z00_1562 == 6L))
						{	/* Ieee/flonum.scm 643 */
							int BgL_arg1419z00_1563;

							{	/* Ieee/flonum.scm 643 */
								char *BgL_auxz00_2389;
								char *BgL_tmpz00_2387;

								BgL_auxz00_2389 =
									BSTRING_TO_STRING
									(BGl_string1625z00zz__r4_numbers_6_5_flonumz00);
								BgL_tmpz00_2387 = BSTRING_TO_STRING(BgL_stringz00_69);
								BgL_arg1419z00_1563 =
									memcmp(BgL_tmpz00_2387, BgL_auxz00_2389, BgL_l1z00_1562);
							}
							BgL_test1849z00_2383 = ((long) (BgL_arg1419z00_1563) == 0L);
						}
					else
						{	/* Ieee/flonum.scm 643 */
							BgL_test1849z00_2383 = ((bool_t) 0);
						}
				}
				if (BgL_test1849z00_2383)
					{	/* Ieee/flonum.scm 643 */
						return BGL_NAN;
					}
				else
					{	/* Ieee/flonum.scm 645 */
						bool_t BgL_test1851z00_2394;

						{	/* Ieee/flonum.scm 645 */
							long BgL_l1z00_1564;

							BgL_l1z00_1564 = STRING_LENGTH(BgL_stringz00_69);
							if ((BgL_l1z00_1564 == 6L))
								{	/* Ieee/flonum.scm 645 */
									int BgL_arg1419z00_1565;

									{	/* Ieee/flonum.scm 645 */
										char *BgL_auxz00_2400;
										char *BgL_tmpz00_2398;

										BgL_auxz00_2400 =
											BSTRING_TO_STRING
											(BGl_string1626z00zz__r4_numbers_6_5_flonumz00);
										BgL_tmpz00_2398 = BSTRING_TO_STRING(BgL_stringz00_69);
										BgL_arg1419z00_1565 =
											memcmp(BgL_tmpz00_2398, BgL_auxz00_2400, BgL_l1z00_1564);
									}
									BgL_test1851z00_2394 = ((long) (BgL_arg1419z00_1565) == 0L);
								}
							else
								{	/* Ieee/flonum.scm 645 */
									BgL_test1851z00_2394 = ((bool_t) 0);
								}
						}
						if (BgL_test1851z00_2394)
							{	/* Ieee/flonum.scm 645 */
								return BGL_INFINITY;
							}
						else
							{	/* Ieee/flonum.scm 647 */
								bool_t BgL_test1853z00_2405;

								{	/* Ieee/flonum.scm 647 */
									long BgL_l1z00_1566;

									BgL_l1z00_1566 = STRING_LENGTH(BgL_stringz00_69);
									if ((BgL_l1z00_1566 == 6L))
										{	/* Ieee/flonum.scm 647 */
											int BgL_arg1419z00_1567;

											{	/* Ieee/flonum.scm 647 */
												char *BgL_auxz00_2411;
												char *BgL_tmpz00_2409;

												BgL_auxz00_2411 =
													BSTRING_TO_STRING
													(BGl_string1627z00zz__r4_numbers_6_5_flonumz00);
												BgL_tmpz00_2409 = BSTRING_TO_STRING(BgL_stringz00_69);
												BgL_arg1419z00_1567 =
													memcmp(BgL_tmpz00_2409, BgL_auxz00_2411,
													BgL_l1z00_1566);
											}
											BgL_test1853z00_2405 =
												((long) (BgL_arg1419z00_1567) == 0L);
										}
									else
										{	/* Ieee/flonum.scm 647 */
											BgL_test1853z00_2405 = ((bool_t) 0);
										}
								}
								if (BgL_test1853z00_2405)
									{	/* Ieee/flonum.scm 647 */
										return (-BGL_INFINITY);
									}
								else
									{	/* Ieee/flonum.scm 650 */
										char *BgL_tmpz00_2416;

										BgL_tmpz00_2416 = BSTRING_TO_STRING(BgL_stringz00_69);
										return STRTOD(BgL_tmpz00_2416);
									}
							}
					}
			}
		}

	}



/* &string->real */
	obj_t BGl_z62stringzd2ze3realz53zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1384, obj_t BgL_stringz00_1385)
	{
		{	/* Ieee/flonum.scm 641 */
			{	/* Ieee/flonum.scm 643 */
				double BgL_tmpz00_2419;

				{	/* Ieee/flonum.scm 643 */
					obj_t BgL_auxz00_2420;

					if (STRINGP(BgL_stringz00_1385))
						{	/* Ieee/flonum.scm 643 */
							BgL_auxz00_2420 = BgL_stringz00_1385;
						}
					else
						{
							obj_t BgL_auxz00_2423;

							BgL_auxz00_2423 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(28521L),
								BGl_string1628z00zz__r4_numbers_6_5_flonumz00,
								BGl_string1629z00zz__r4_numbers_6_5_flonumz00,
								BgL_stringz00_1385);
							FAILURE(BgL_auxz00_2423, BFALSE, BFALSE);
						}
					BgL_tmpz00_2419 =
						BGl_stringzd2ze3realz31zz__r4_numbers_6_5_flonumz00
						(BgL_auxz00_2420);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2419);
			}
		}

	}



/* ieee-string->real */
	BGL_EXPORTED_DEF obj_t
		BGl_ieeezd2stringzd2ze3realze3zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_stringz00_70)
	{
		{	/* Ieee/flonum.scm 655 */
			{	/* Ieee/flonum.scm 656 */
				double BgL_tmpz00_2429;

				BgL_tmpz00_2429 = bgl_ieee_string_to_double(BgL_stringz00_70);
				return DOUBLE_TO_REAL(BgL_tmpz00_2429);
			}
		}

	}



/* &ieee-string->real */
	obj_t BGl_z62ieeezd2stringzd2ze3realz81zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1386, obj_t BgL_stringz00_1387)
	{
		{	/* Ieee/flonum.scm 655 */
			{	/* Ieee/flonum.scm 656 */
				obj_t BgL_auxz00_2432;

				if (STRINGP(BgL_stringz00_1387))
					{	/* Ieee/flonum.scm 656 */
						BgL_auxz00_2432 = BgL_stringz00_1387;
					}
				else
					{
						obj_t BgL_auxz00_2435;

						BgL_auxz00_2435 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(28969L),
							BGl_string1630z00zz__r4_numbers_6_5_flonumz00,
							BGl_string1629z00zz__r4_numbers_6_5_flonumz00,
							BgL_stringz00_1387);
						FAILURE(BgL_auxz00_2435, BFALSE, BFALSE);
					}
				return
					BGl_ieeezd2stringzd2ze3realze3zz__r4_numbers_6_5_flonumz00
					(BgL_auxz00_2432);
			}
		}

	}



/* real->ieee-string */
	BGL_EXPORTED_DEF obj_t
		BGl_realzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_realz00_71)
	{
		{	/* Ieee/flonum.scm 661 */
			return bgl_double_to_ieee_string(REAL_TO_DOUBLE(BgL_realz00_71));
		}

	}



/* &real->ieee-string */
	obj_t BGl_z62realzd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1388, obj_t BgL_realz00_1389)
	{
		{	/* Ieee/flonum.scm 661 */
			{	/* Ieee/flonum.scm 662 */
				obj_t BgL_auxz00_2442;

				if (REALP(BgL_realz00_1389))
					{	/* Ieee/flonum.scm 662 */
						BgL_auxz00_2442 = BgL_realz00_1389;
					}
				else
					{
						obj_t BgL_auxz00_2445;

						BgL_auxz00_2445 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(29266L),
							BGl_string1631z00zz__r4_numbers_6_5_flonumz00,
							BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_realz00_1389);
						FAILURE(BgL_auxz00_2445, BFALSE, BFALSE);
					}
				return
					BGl_realzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00
					(BgL_auxz00_2442);
			}
		}

	}



/* ieee-string->double */
	BGL_EXPORTED_DEF double
		BGl_ieeezd2stringzd2ze3doubleze3zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_stringz00_72)
	{
		{	/* Ieee/flonum.scm 667 */
			BGL_TAIL return bgl_ieee_string_to_double(BgL_stringz00_72);
		}

	}



/* &ieee-string->double */
	obj_t BGl_z62ieeezd2stringzd2ze3doublez81zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1390, obj_t BgL_stringz00_1391)
	{
		{	/* Ieee/flonum.scm 667 */
			{	/* Ieee/flonum.scm 668 */
				double BgL_tmpz00_2451;

				{	/* Ieee/flonum.scm 668 */
					obj_t BgL_auxz00_2452;

					if (STRINGP(BgL_stringz00_1391))
						{	/* Ieee/flonum.scm 668 */
							BgL_auxz00_2452 = BgL_stringz00_1391;
						}
					else
						{
							obj_t BgL_auxz00_2455;

							BgL_auxz00_2455 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(29565L),
								BGl_string1632z00zz__r4_numbers_6_5_flonumz00,
								BGl_string1629z00zz__r4_numbers_6_5_flonumz00,
								BgL_stringz00_1391);
							FAILURE(BgL_auxz00_2455, BFALSE, BFALSE);
						}
					BgL_tmpz00_2451 =
						BGl_ieeezd2stringzd2ze3doubleze3zz__r4_numbers_6_5_flonumz00
						(BgL_auxz00_2452);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2451);
			}
		}

	}



/* double->ieee-string */
	BGL_EXPORTED_DEF obj_t
		BGl_doublezd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(double
		BgL_doublez00_73)
	{
		{	/* Ieee/flonum.scm 673 */
			BGL_TAIL return bgl_double_to_ieee_string(BgL_doublez00_73);
		}

	}



/* &double->ieee-string */
	obj_t BGl_z62doublezd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1392, obj_t BgL_doublez00_1393)
	{
		{	/* Ieee/flonum.scm 673 */
			{	/* Ieee/flonum.scm 674 */
				double BgL_auxz00_2462;

				{	/* Ieee/flonum.scm 674 */
					obj_t BgL_tmpz00_2463;

					if (REALP(BgL_doublez00_1393))
						{	/* Ieee/flonum.scm 674 */
							BgL_tmpz00_2463 = BgL_doublez00_1393;
						}
					else
						{
							obj_t BgL_auxz00_2466;

							BgL_auxz00_2466 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(29866L),
								BGl_string1633z00zz__r4_numbers_6_5_flonumz00,
								BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
								BgL_doublez00_1393);
							FAILURE(BgL_auxz00_2466, BFALSE, BFALSE);
						}
					BgL_auxz00_2462 = REAL_TO_DOUBLE(BgL_tmpz00_2463);
				}
				return
					BGl_doublezd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00
					(BgL_auxz00_2462);
			}
		}

	}



/* ieee-string->float */
	BGL_EXPORTED_DEF float
		BGl_ieeezd2stringzd2ze3floatze3zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_stringz00_74)
	{
		{	/* Ieee/flonum.scm 679 */
			BGL_TAIL return bgl_ieee_string_to_float(BgL_stringz00_74);
		}

	}



/* &ieee-string->float */
	obj_t BGl_z62ieeezd2stringzd2ze3floatz81zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1394, obj_t BgL_stringz00_1395)
	{
		{	/* Ieee/flonum.scm 679 */
			{	/* Ieee/flonum.scm 680 */
				float BgL_tmpz00_2473;

				{	/* Ieee/flonum.scm 680 */
					obj_t BgL_auxz00_2474;

					if (STRINGP(BgL_stringz00_1395))
						{	/* Ieee/flonum.scm 680 */
							BgL_auxz00_2474 = BgL_stringz00_1395;
						}
					else
						{
							obj_t BgL_auxz00_2477;

							BgL_auxz00_2477 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(30166L),
								BGl_string1634z00zz__r4_numbers_6_5_flonumz00,
								BGl_string1629z00zz__r4_numbers_6_5_flonumz00,
								BgL_stringz00_1395);
							FAILURE(BgL_auxz00_2477, BFALSE, BFALSE);
						}
					BgL_tmpz00_2473 =
						BGl_ieeezd2stringzd2ze3floatze3zz__r4_numbers_6_5_flonumz00
						(BgL_auxz00_2474);
				}
				return FLOAT_TO_REAL(BgL_tmpz00_2473);
			}
		}

	}



/* float->ieee-string */
	BGL_EXPORTED_DEF obj_t
		BGl_floatzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(float
		BgL_floatz00_75)
	{
		{	/* Ieee/flonum.scm 685 */
			BGL_TAIL return bgl_float_to_ieee_string(BgL_floatz00_75);
		}

	}



/* &float->ieee-string */
	obj_t BGl_z62floatzd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1396, obj_t BgL_floatz00_1397)
	{
		{	/* Ieee/flonum.scm 685 */
			{	/* Ieee/flonum.scm 686 */
				float BgL_auxz00_2484;

				{	/* Ieee/flonum.scm 686 */
					obj_t BgL_tmpz00_2485;

					if (REALP(BgL_floatz00_1397))
						{	/* Ieee/flonum.scm 686 */
							BgL_tmpz00_2485 = BgL_floatz00_1397;
						}
					else
						{
							obj_t BgL_auxz00_2488;

							BgL_auxz00_2488 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(30464L),
								BGl_string1635z00zz__r4_numbers_6_5_flonumz00,
								BGl_string1575z00zz__r4_numbers_6_5_flonumz00,
								BgL_floatz00_1397);
							FAILURE(BgL_auxz00_2488, BFALSE, BFALSE);
						}
					BgL_auxz00_2484 = REAL_TO_FLOAT(BgL_tmpz00_2485);
				}
				return
					BGl_floatzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00
					(BgL_auxz00_2484);
			}
		}

	}



/* double->llong-bits */
	BGL_EXPORTED_DEF BGL_LONGLONG_T
		BGl_doublezd2ze3llongzd2bitsze3zz__r4_numbers_6_5_flonumz00(double
		BgL_nz00_76)
	{
		{	/* Ieee/flonum.scm 691 */
			return DOUBLE_TO_LLONG_BITS(BgL_nz00_76);
		}

	}



/* &double->llong-bits */
	obj_t BGl_z62doublezd2ze3llongzd2bitsz81zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1398, obj_t BgL_nz00_1399)
	{
		{	/* Ieee/flonum.scm 691 */
			{	/* Ieee/flonum.scm 692 */
				BGL_LONGLONG_T BgL_tmpz00_2495;

				{	/* Ieee/flonum.scm 692 */
					double BgL_auxz00_2496;

					{	/* Ieee/flonum.scm 692 */
						obj_t BgL_tmpz00_2497;

						if (REALP(BgL_nz00_1399))
							{	/* Ieee/flonum.scm 692 */
								BgL_tmpz00_2497 = BgL_nz00_1399;
							}
						else
							{
								obj_t BgL_auxz00_2500;

								BgL_auxz00_2500 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(30772L),
									BGl_string1636z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_nz00_1399);
								FAILURE(BgL_auxz00_2500, BFALSE, BFALSE);
							}
						BgL_auxz00_2496 = REAL_TO_DOUBLE(BgL_tmpz00_2497);
					}
					BgL_tmpz00_2495 =
						BGl_doublezd2ze3llongzd2bitsze3zz__r4_numbers_6_5_flonumz00
						(BgL_auxz00_2496);
				}
				return make_bllong(BgL_tmpz00_2495);
			}
		}

	}



/* llong-bits->double */
	BGL_EXPORTED_DEF double
		BGl_llongzd2bitszd2ze3doubleze3zz__r4_numbers_6_5_flonumz00(BGL_LONGLONG_T
		BgL_nz00_77)
	{
		{	/* Ieee/flonum.scm 697 */
			return LLONG_BITS_TO_DOUBLE(BgL_nz00_77);
		}

	}



/* &llong-bits->double */
	obj_t BGl_z62llongzd2bitszd2ze3doublez81zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1400, obj_t BgL_nz00_1401)
	{
		{	/* Ieee/flonum.scm 697 */
			{	/* Ieee/flonum.scm 698 */
				double BgL_tmpz00_2508;

				{	/* Ieee/flonum.scm 698 */
					BGL_LONGLONG_T BgL_auxz00_2509;

					{	/* Ieee/flonum.scm 698 */
						obj_t BgL_tmpz00_2510;

						if (LLONGP(BgL_nz00_1401))
							{	/* Ieee/flonum.scm 698 */
								BgL_tmpz00_2510 = BgL_nz00_1401;
							}
						else
							{
								obj_t BgL_auxz00_2513;

								BgL_auxz00_2513 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(31076L),
									BGl_string1637z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1638z00zz__r4_numbers_6_5_flonumz00, BgL_nz00_1401);
								FAILURE(BgL_auxz00_2513, BFALSE, BFALSE);
							}
						BgL_auxz00_2509 = BLLONG_TO_LLONG(BgL_tmpz00_2510);
					}
					BgL_tmpz00_2508 =
						BGl_llongzd2bitszd2ze3doubleze3zz__r4_numbers_6_5_flonumz00
						(BgL_auxz00_2509);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2508);
			}
		}

	}



/* float->int-bits */
	BGL_EXPORTED_DEF int
		BGl_floatzd2ze3intzd2bitsze3zz__r4_numbers_6_5_flonumz00(float BgL_nz00_78)
	{
		{	/* Ieee/flonum.scm 703 */
			return FLOAT_TO_INT_BITS(BgL_nz00_78);
		}

	}



/* &float->int-bits */
	obj_t BGl_z62floatzd2ze3intzd2bitsz81zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1402, obj_t BgL_nz00_1403)
	{
		{	/* Ieee/flonum.scm 703 */
			{	/* Ieee/flonum.scm 704 */
				int BgL_tmpz00_2521;

				{	/* Ieee/flonum.scm 704 */
					float BgL_auxz00_2522;

					{	/* Ieee/flonum.scm 704 */
						obj_t BgL_tmpz00_2523;

						if (REALP(BgL_nz00_1403))
							{	/* Ieee/flonum.scm 704 */
								BgL_tmpz00_2523 = BgL_nz00_1403;
							}
						else
							{
								obj_t BgL_auxz00_2526;

								BgL_auxz00_2526 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(31374L),
									BGl_string1639z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1575z00zz__r4_numbers_6_5_flonumz00, BgL_nz00_1403);
								FAILURE(BgL_auxz00_2526, BFALSE, BFALSE);
							}
						BgL_auxz00_2522 = REAL_TO_FLOAT(BgL_tmpz00_2523);
					}
					BgL_tmpz00_2521 =
						BGl_floatzd2ze3intzd2bitsze3zz__r4_numbers_6_5_flonumz00
						(BgL_auxz00_2522);
				}
				return BINT(BgL_tmpz00_2521);
			}
		}

	}



/* int-bits->float */
	BGL_EXPORTED_DEF float
		BGl_intzd2bitszd2ze3floatze3zz__r4_numbers_6_5_flonumz00(int BgL_nz00_79)
	{
		{	/* Ieee/flonum.scm 709 */
			return INT_BITS_TO_FLOAT(BgL_nz00_79);
		}

	}



/* &int-bits->float */
	obj_t BGl_z62intzd2bitszd2ze3floatz81zz__r4_numbers_6_5_flonumz00(obj_t
		BgL_envz00_1404, obj_t BgL_nz00_1405)
	{
		{	/* Ieee/flonum.scm 709 */
			{	/* Ieee/flonum.scm 710 */
				float BgL_tmpz00_2534;

				{	/* Ieee/flonum.scm 710 */
					int BgL_auxz00_2535;

					{	/* Ieee/flonum.scm 710 */
						obj_t BgL_tmpz00_2536;

						if (INTEGERP(BgL_nz00_1405))
							{	/* Ieee/flonum.scm 710 */
								BgL_tmpz00_2536 = BgL_nz00_1405;
							}
						else
							{
								obj_t BgL_auxz00_2539;

								BgL_auxz00_2539 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1573z00zz__r4_numbers_6_5_flonumz00, BINT(31669L),
									BGl_string1640z00zz__r4_numbers_6_5_flonumz00,
									BGl_string1641z00zz__r4_numbers_6_5_flonumz00, BgL_nz00_1405);
								FAILURE(BgL_auxz00_2539, BFALSE, BFALSE);
							}
						BgL_auxz00_2535 = CINT(BgL_tmpz00_2536);
					}
					BgL_tmpz00_2534 =
						BGl_intzd2bitszd2ze3floatze3zz__r4_numbers_6_5_flonumz00
						(BgL_auxz00_2535);
				}
				return FLOAT_TO_REAL(BgL_tmpz00_2534);
			}
		}

	}



/* randomfl */
	BGL_EXPORTED_DEF double BGl_randomflz00zz__r4_numbers_6_5_flonumz00(void)
	{
		{	/* Ieee/flonum.scm 715 */
			return RANDOMFL();
		}

	}



/* &randomfl */
	obj_t BGl_z62randomflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1406)
	{
		{	/* Ieee/flonum.scm 715 */
			{	/* Ieee/flonum.scm 716 */
				double BgL_tmpz00_2547;

				BgL_tmpz00_2547 = BGl_randomflz00zz__r4_numbers_6_5_flonumz00();
				return DOUBLE_TO_REAL(BgL_tmpz00_2547);
			}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_flonumz00(void)
	{
		{	/* Ieee/flonum.scm 14 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string1642z00zz__r4_numbers_6_5_flonumz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string1642z00zz__r4_numbers_6_5_flonumz00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L,
				BSTRING_TO_STRING(BGl_string1642z00zz__r4_numbers_6_5_flonumz00));
			return
				BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L,
				BSTRING_TO_STRING(BGl_string1642z00zz__r4_numbers_6_5_flonumz00));
		}

	}

#ifdef __cplusplus
}
#endif
