/*===========================================================================*/
/*   (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-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Ieee/flonum.scm -indent -o objs/obj_s/Ieee/flonum.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* 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__r1665za7, BGl_z62ze3flz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_atanzd21flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762atanza7d21flza7b01666za7, BGl_z62atanzd21flzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_sqrtflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762sqrtflza762za7za7__1667z00, BGl_z62sqrtflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_doublezd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762doubleza7d2za7e3i1668za7, BGl_z62doublezd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_logflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762logflza762za7za7__r1669z00, BGl_z62logflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cosflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762cosflza762za7za7__r1670z00, BGl_z62cosflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_signbitflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762signbitflza762za71671za7, BGl_z62signbitflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ieeezd2stringzd2ze3realzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762ieeeza7d2string1672z00, BGl_z62ieeezd2stringzd2ze3realz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_acosflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762acosflza762za7za7__1673z00, BGl_z62acosflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ze3zd3flzd2envze2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7e3za7d3flza752za7za71674z00, BGl_z62ze3zd3flz52zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ieeezd2stringzd2ze3floatzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762ieeeza7d2string1675z00, BGl_z62ieeezd2stringzd2ze3floatz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_positiveflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762positiveflza7f31676z00, BGl_z62positiveflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ceilingflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762ceilingflza762za71677za7, BGl_z62ceilingflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_zc3flzd2envz11zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7c3flza7a1za7za7__r1678za7, BGl_z62zc3flza1zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_floorflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762floorflza762za7za7_1679z00, BGl_z62floorflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_truncateflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762truncateflza7621680z00, BGl_z62truncateflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_integerflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762integerflza7f3za71681za7, BGl_z62integerflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1600z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1600za700za7za7_1682za7, "&zerofl?", 8 );
BGL_DEFINE_STRING(BGl_string1601z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1601za700za7za7_1683za7, "&positivefl?", 12 );
BGL_DEFINE_STRING(BGl_string1602z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1602za700za7za7_1684za7, "&negativefl?", 12 );
BGL_DEFINE_STRING(BGl_string1603z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1603za700za7za7_1685za7, "&+fl", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_zc3zd3flzd2envzc2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7c3za7d3flza772za7za71686z00, BGl_z62zc3zd3flz72zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1604z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1604za700za7za7_1687za7, "&-fl", 4 );
BGL_DEFINE_STRING(BGl_string1605z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1605za700za7za7_1688za7, "&*fl", 4 );
BGL_DEFINE_STRING(BGl_string1606z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1606za700za7za7_1689za7, "&/fl", 4 );
BGL_DEFINE_STRING(BGl_string1607z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1607za700za7za7_1690za7, "&negfl", 6 );
BGL_DEFINE_STRING(BGl_string1608z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1608za700za7za7_1691za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string1609z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1609za700za7za7_1692za7, "pair", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_minzd22flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762minza7d22flza7b0za71693z00, BGl_z62minzd22flzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_doublezd2ze3llongzd2bitszd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762doubleza7d2za7e3l1694za7, BGl_z62doublezd2ze3llongzd2bitsz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_zf2flzd2envz20zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7f2flza790za7za7__r1695za7, BGl_z62zf2flz90zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_log2flzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762log2flza762za7za7__1696z00, BGl_z62log2flz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_oddflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762oddflza7f3za791za7za71697za7, BGl_z62oddflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_absflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762absflza762za7za7__r1698z00, BGl_z62absflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1610z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1610za700za7za7_1699za7, "&maxfl", 6 );
BGL_DEFINE_STRING(BGl_string1611z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1611za700za7za7_1700za7, "&max-2fl", 8 );
BGL_DEFINE_STRING(BGl_string1612z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1612za700za7za7_1701za7, "&min-2fl", 8 );
BGL_DEFINE_STRING(BGl_string1613z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1613za700za7za7_1702za7, "&minfl", 6 );
BGL_DEFINE_STRING(BGl_string1614z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1614za700za7za7_1703za7, "&absfl", 6 );
BGL_DEFINE_STRING(BGl_string1615z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1615za700za7za7_1704za7, "&floorfl", 8 );
BGL_DEFINE_STRING(BGl_string1616z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1616za700za7za7_1705za7, "&ceilingfl", 10 );
BGL_DEFINE_STRING(BGl_string1617z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1617za700za7za7_1706za7, "&truncatefl", 11 );
BGL_DEFINE_STRING(BGl_string1618z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1618za700za7za7_1707za7, "&roundfl", 8 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_za7eroflzf3zd2envz86zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7a7eroflza7f3za731708z00, BGl_z62za7eroflzf3z36zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1619z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1619za700za7za7_1709za7, "&remainderfl", 12 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_atanzd22flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762atanza7d22flza7b01710za7, BGl_z62atanzd22flzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
BGL_DEFINE_REAL(BGl_real1631z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_real1631za700za7za7__r1711za7, 0.0);
BGL_DEFINE_STRING(BGl_string1620z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1620za700za7za7_1712za7, "&expfl", 6 );
BGL_DEFINE_STRING(BGl_string1621z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1621za700za7za7_1713za7, "&logfl", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_intzd2bitszd2ze3floatzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762intza7d2bitsza7d21714za7, BGl_z62intzd2bitszd2ze3floatz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1622z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1622za700za7za7_1715za7, "&log2fl", 7 );
BGL_DEFINE_STRING(BGl_string1623z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1623za700za7za7_1716za7, "&log10fl", 8 );
BGL_DEFINE_STRING(BGl_string1624z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1624za700za7za7_1717za7, "&sinfl", 6 );
BGL_DEFINE_STRING(BGl_string1625z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1625za700za7za7_1718za7, "&cosfl", 6 );
BGL_DEFINE_STRING(BGl_string1626z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1626za700za7za7_1719za7, "&tanfl", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_finiteflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762finiteflza7f3za791720za7, BGl_z62finiteflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1627z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1627za700za7za7_1721za7, "&asinfl", 7 );
BGL_DEFINE_STRING(BGl_string1628z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1628za700za7za7_1722za7, "&acosfl", 7 );
BGL_DEFINE_STRING(BGl_string1629z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1629za700za7za7_1723za7, "atanfl", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_za2flzd2envz70zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7a2flza7c0za7za7__r1724za7, BGl_z62za2flzc0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1630z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1630za700za7za7_1725za7, "Domain error", 12 );
BGL_DEFINE_STRING(BGl_string1632z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1632za700za7za7_1726za7, "&atanfl", 7 );
BGL_DEFINE_STRING(BGl_string1633z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1633za700za7za7_1727za7, "&atan-1fl", 9 );
BGL_DEFINE_STRING(BGl_string1634z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1634za700za7za7_1728za7, "&atan-2fl", 9 );
BGL_DEFINE_STRING(BGl_string1635z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1635za700za7za7_1729za7, "&atan-2fl-ur", 12 );
BGL_DEFINE_STRING(BGl_string1636z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1636za700za7za7_1730za7, "sqrtfl", 6 );
BGL_DEFINE_STRING(BGl_string1637z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1637za700za7za7_1731za7, "&sqrtfl", 7 );
BGL_DEFINE_STRING(BGl_string1638z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1638za700za7za7_1732za7, "&sqrtfl-ur", 10 );
BGL_DEFINE_STRING(BGl_string1639z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1639za700za7za7_1733za7, "&exptfl", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2ze3realzd2envze3zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762stringza7d2za7e3r1734za7, BGl_z62stringzd2ze3realz53zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1640z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1640za700za7za7_1735za7, "&signbitfl", 10 );
BGL_DEFINE_STRING(BGl_string1641z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1641za700za7za7_1736za7, "&integerfl?", 11 );
BGL_DEFINE_STRING(BGl_string1642z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1642za700za7za7_1737za7, "&evenfl?", 8 );
BGL_DEFINE_STRING(BGl_string1643z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1643za700za7za7_1738za7, "&oddfl?", 7 );
BGL_DEFINE_STRING(BGl_string1644z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1644za700za7za7_1739za7, "&finitefl?", 10 );
BGL_DEFINE_STRING(BGl_string1645z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1645za700za7za7_1740za7, "&infinitefl?", 12 );
BGL_DEFINE_STRING(BGl_string1646z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1646za700za7za7_1741za7, "&nanfl?", 7 );
BGL_DEFINE_STRING(BGl_string1647z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1647za700za7za7_1742za7, "+nan.0", 6 );
BGL_DEFINE_STRING(BGl_string1648z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1648za700za7za7_1743za7, "+inf.0", 6 );
BGL_DEFINE_STRING(BGl_string1649z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1649za700za7za7_1744za7, "-inf.0", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tanflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762tanflza762za7za7__r1745z00, BGl_z62tanflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_log10flzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762log10flza762za7za7_1746z00, BGl_z62log10flz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_minflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762minflza762za7za7__r1747z00, 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__r1748z00, BGl_z62sinflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_zd2flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7d2flza7b0za7za7__r1749za7, BGl_z62zd2flzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1650z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1650za700za7za7_1750za7, "&string->real", 13 );
BGL_DEFINE_STRING(BGl_string1651z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1651za700za7za7_1751za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string1652z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1652za700za7za7_1752za7, "&ieee-string->real", 18 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7d3flza7b1za7za7__r1753za7, BGl_z62zd3flzb1zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1653z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1653za700za7za7_1754za7, "&real->ieee-string", 18 );
BGL_DEFINE_STRING(BGl_string1654z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1654za700za7za7_1755za7, "&ieee-string->double", 20 );
BGL_DEFINE_STRING(BGl_string1655z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1655za700za7za7_1756za7, "&double->ieee-string", 20 );
BGL_DEFINE_STRING(BGl_string1656z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1656za700za7za7_1757za7, "&ieee-string->float", 19 );
BGL_DEFINE_STRING(BGl_string1657z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1657za700za7za7_1758za7, "&float->ieee-string", 19 );
BGL_DEFINE_STRING(BGl_string1658z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1658za700za7za7_1759za7, "&double->llong-bits", 19 );
BGL_DEFINE_STRING(BGl_string1659z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1659za700za7za7_1760za7, "&llong-bits->double", 19 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_atanflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762atanflza762za7za7__1761z00, va_generic_entry, BGl_z62atanflz62zz__r4_numbers_6_5_flonumz00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_asinflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762asinflza762za7za7__1762z00, BGl_z62asinflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ieeezd2stringzd2ze3doublezd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762ieeeza7d2string1763z00, BGl_z62ieeezd2stringzd2ze3doublez81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_remainderflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762remainderflza761764z00, BGl_z62remainderflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_realzd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762realza7d2za7e3iee1765za7, BGl_z62realzd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_negflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762negflza762za7za7__r1766z00, BGl_z62negflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1660z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1660za700za7za7_1767za7, "bllong", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_nanflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762nanflza7f3za791za7za71768za7, BGl_z62nanflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1661z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1661za700za7za7_1769za7, "&float->int-bits", 16 );
BGL_DEFINE_STRING(BGl_string1662z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1662za700za7za7_1770za7, "&int-bits->float", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_sqrtflzd2urzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762sqrtflza7d2urza7b1771za7, BGl_z62sqrtflzd2urzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1663z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1663za700za7za7_1772za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string1664z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1664za700za7za7_1773za7, "__r4_numbers_6_5_flonum", 23 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_infiniteflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762infiniteflza7f31774z00, BGl_z62infiniteflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_atanzd22flzd2urzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762atanza7d22flza7d21775za7, BGl_z62atanzd22flzd2urz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1593za700za7za7_1776za7, "/tmp/bigloo/runtime/Ieee/flonum.scm", 35 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_randomflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762randomflza762za7za71777z00, BGl_z62randomflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_exptflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762exptflza762za7za7__1778z00, BGl_z62exptflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1594z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1594za700za7za7_1779za7, "&=fl", 4 );
BGL_DEFINE_STRING(BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1595za700za7za7_1780za7, "real", 4 );
BGL_DEFINE_STRING(BGl_string1596z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1596za700za7za7_1781za7, "&<fl", 4 );
BGL_DEFINE_STRING(BGl_string1597z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1597za700za7za7_1782za7, "&>fl", 4 );
BGL_DEFINE_STRING(BGl_string1598z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1598za700za7za7_1783za7, "&<=fl", 5 );
BGL_DEFINE_STRING(BGl_string1599z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1599za700za7za7_1784za7, "&>=fl", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_roundflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762roundflza762za7za7_1785z00, BGl_z62roundflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_negativeflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762negativeflza7f31786z00, BGl_z62negativeflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_flonumzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762flonumza7f3za791za71787z00, BGl_z62flonumzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_maxzd22flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762maxza7d22flza7b0za71788z00, BGl_z62maxzd22flzb0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_maxflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762maxflza762za7za7__r1789z00, 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__r1790za7, BGl_z62zb2flzd0zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_evenflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762evenflza7f3za791za71791z00, BGl_z62evenflzf3z91zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_llongzd2bitszd2ze3doublezd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762llongza7d2bitsza71792za7, BGl_z62llongzd2bitszd2ze3doublez81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_floatzd2ze3intzd2bitszd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762floatza7d2za7e3in1793za7, BGl_z62floatzd2ze3intzd2bitsz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_expflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762expflza762za7za7__r1794z00, BGl_z62expflz62zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_floatzd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762floatza7d2za7e3ie1795za7, BGl_z62floatzd2ze3ieeezd2stringz81zz__r4_numbers_6_5_flonumz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_realzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762realza7f3za791za7za7_1796za7, 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_1796za7);
BGL_BIND_PROCEDURE(BGl_floatzd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762floatza7d2za7e3ie1795za7);
BGL_BIND_PROCEDURE(BGl_expflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762expflza762za7za7__r1794z00);
BGL_BIND_PROCEDURE(BGl_floatzd2ze3intzd2bitszd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762floatza7d2za7e3in1793za7);
BGL_BIND_PROCEDURE(BGl_llongzd2bitszd2ze3doublezd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762llongza7d2bitsza71792za7);
BGL_BIND_PROCEDURE(BGl_evenflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762evenflza7f3za791za71791z00);
BGL_BIND_PROCEDURE(BGl_zb2flzd2envz60zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7b2flza7d0za7za7__r1790za7);
BGL_BIND_PROCEDURE(BGl_maxflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762maxflza762za7za7__r1789z00);
BGL_BIND_PROCEDURE(BGl_maxzd22flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762maxza7d22flza7b0za71788z00);
BGL_BIND_PROCEDURE(BGl_flonumzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762flonumza7f3za791za71787z00);
BGL_BIND_PROCEDURE(BGl_negativeflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762negativeflza7f31786z00);
BGL_BIND_PROCEDURE(BGl_roundflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762roundflza762za7za7_1785z00);
BGL_BIND_STRING(BGl_string1599z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1599za700za7za7_1784za7);
BGL_BIND_STRING(BGl_string1598z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1598za700za7za7_1783za7);
BGL_BIND_STRING(BGl_string1597z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1597za700za7za7_1782za7);
BGL_BIND_STRING(BGl_string1596z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1596za700za7za7_1781za7);
BGL_BIND_STRING(BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1595za700za7za7_1780za7);
BGL_BIND_STRING(BGl_string1594z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1594za700za7za7_1779za7);
BGL_BIND_PROCEDURE(BGl_exptflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762exptflza762za7za7__1778z00);
BGL_BIND_PROCEDURE(BGl_randomflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762randomflza762za7za71777z00);
BGL_BIND_STRING(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1593za700za7za7_1776za7);
BGL_BIND_PROCEDURE(BGl_atanzd22flzd2urzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762atanza7d22flza7d21775za7);
BGL_BIND_PROCEDURE(BGl_infiniteflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762infiniteflza7f31774z00);
BGL_BIND_STRING(BGl_string1664z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1664za700za7za7_1773za7);
BGL_BIND_STRING(BGl_string1663z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1663za700za7za7_1772za7);
BGL_BIND_PROCEDURE(BGl_sqrtflzd2urzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762sqrtflza7d2urza7b1771za7);
BGL_BIND_STRING(BGl_string1662z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1662za700za7za7_1770za7);
BGL_BIND_STRING(BGl_string1661z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1661za700za7za7_1769za7);
BGL_BIND_PROCEDURE(BGl_nanflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762nanflza7f3za791za7za71768za7);
BGL_BIND_STRING(BGl_string1660z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1660za700za7za7_1767za7);
BGL_BIND_PROCEDURE(BGl_negflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762negflza762za7za7__r1766z00);
BGL_BIND_PROCEDURE(BGl_realzd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762realza7d2za7e3iee1765za7);
BGL_BIND_PROCEDURE(BGl_remainderflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762remainderflza761764z00);
BGL_BIND_PROCEDURE(BGl_ieeezd2stringzd2ze3doublezd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762ieeeza7d2string1763z00);
BGL_BIND_PROCEDURE(BGl_asinflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762asinflza762za7za7__1762z00);
BGL_BIND_PROCEDURE(BGl_atanflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762atanflza762za7za7__1761z00);
BGL_BIND_STRING(BGl_string1659z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1659za700za7za7_1760za7);
BGL_BIND_STRING(BGl_string1658z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1658za700za7za7_1759za7);
BGL_BIND_STRING(BGl_string1657z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1657za700za7za7_1758za7);
BGL_BIND_STRING(BGl_string1656z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1656za700za7za7_1757za7);
BGL_BIND_STRING(BGl_string1655z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1655za700za7za7_1756za7);
BGL_BIND_STRING(BGl_string1654z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1654za700za7za7_1755za7);
BGL_BIND_STRING(BGl_string1653z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1653za700za7za7_1754za7);
BGL_BIND_PROCEDURE(BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7d3flza7b1za7za7__r1753za7);
BGL_BIND_STRING(BGl_string1652z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1652za700za7za7_1752za7);
BGL_BIND_STRING(BGl_string1651z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1651za700za7za7_1751za7);
BGL_BIND_STRING(BGl_string1650z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1650za700za7za7_1750za7);
BGL_BIND_PROCEDURE(BGl_zd2flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7d2flza7b0za7za7__r1749za7);
BGL_BIND_PROCEDURE(BGl_sinflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762sinflza762za7za7__r1748z00);
BGL_BIND_PROCEDURE(BGl_minflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762minflza762za7za7__r1747z00);
BGL_BIND_PROCEDURE(BGl_log10flzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762log10flza762za7za7_1746z00);
BGL_BIND_PROCEDURE(BGl_tanflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762tanflza762za7za7__r1745z00);
BGL_BIND_STRING(BGl_string1649z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1649za700za7za7_1744za7);
BGL_BIND_STRING(BGl_string1648z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1648za700za7za7_1743za7);
BGL_BIND_STRING(BGl_string1647z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1647za700za7za7_1742za7);
BGL_BIND_STRING(BGl_string1646z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1646za700za7za7_1741za7);
BGL_BIND_STRING(BGl_string1645z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1645za700za7za7_1740za7);
BGL_BIND_STRING(BGl_string1644z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1644za700za7za7_1739za7);
BGL_BIND_STRING(BGl_string1643z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1643za700za7za7_1738za7);
BGL_BIND_STRING(BGl_string1642z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1642za700za7za7_1737za7);
BGL_BIND_STRING(BGl_string1641z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1641za700za7za7_1736za7);
BGL_BIND_STRING(BGl_string1640z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1640za700za7za7_1735za7);
BGL_BIND_PROCEDURE(BGl_stringzd2ze3realzd2envze3zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762stringza7d2za7e3r1734za7);
BGL_BIND_STRING(BGl_string1639z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1639za700za7za7_1733za7);
BGL_BIND_STRING(BGl_string1638z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1638za700za7za7_1732za7);
BGL_BIND_STRING(BGl_string1637z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1637za700za7za7_1731za7);
BGL_BIND_STRING(BGl_string1636z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1636za700za7za7_1730za7);
BGL_BIND_STRING(BGl_string1635z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1635za700za7za7_1729za7);
BGL_BIND_STRING(BGl_string1634z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1634za700za7za7_1728za7);
BGL_BIND_STRING(BGl_string1633z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1633za700za7za7_1727za7);
BGL_BIND_STRING(BGl_string1632z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1632za700za7za7_1726za7);
BGL_BIND_STRING(BGl_string1630z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1630za700za7za7_1725za7);
BGL_BIND_PROCEDURE(BGl_za2flzd2envz70zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7a2flza7c0za7za7__r1724za7);
BGL_BIND_STRING(BGl_string1629z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1629za700za7za7_1723za7);
BGL_BIND_STRING(BGl_string1628z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1628za700za7za7_1722za7);
BGL_BIND_STRING(BGl_string1627z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1627za700za7za7_1721za7);
BGL_BIND_PROCEDURE(BGl_finiteflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762finiteflza7f3za791720za7);
BGL_BIND_STRING(BGl_string1626z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1626za700za7za7_1719za7);
BGL_BIND_STRING(BGl_string1625z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1625za700za7za7_1718za7);
BGL_BIND_STRING(BGl_string1624z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1624za700za7za7_1717za7);
BGL_BIND_STRING(BGl_string1623z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1623za700za7za7_1716za7);
BGL_BIND_STRING(BGl_string1622z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1622za700za7za7_1715za7);
BGL_BIND_PROCEDURE(BGl_intzd2bitszd2ze3floatzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762intza7d2bitsza7d21714za7);
BGL_BIND_STRING(BGl_string1621z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1621za700za7za7_1713za7);
BGL_BIND_STRING(BGl_string1620z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1620za700za7za7_1712za7);
BGL_BIND_REAL(BGl_real1631z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_real1631za700za7za7__r1711za7);
BGL_BIND_PROCEDURE(BGl_atanzd22flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762atanza7d22flza7b01710za7);
BGL_BIND_STRING(BGl_string1619z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1619za700za7za7_1709za7);
BGL_BIND_PROCEDURE(BGl_za7eroflzf3zd2envz86zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7a7eroflza7f3za731708z00);
BGL_BIND_STRING(BGl_string1618z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1618za700za7za7_1707za7);
BGL_BIND_STRING(BGl_string1617z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1617za700za7za7_1706za7);
BGL_BIND_STRING(BGl_string1616z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1616za700za7za7_1705za7);
BGL_BIND_STRING(BGl_string1615z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1615za700za7za7_1704za7);
BGL_BIND_STRING(BGl_string1614z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1614za700za7za7_1703za7);
BGL_BIND_STRING(BGl_string1613z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1613za700za7za7_1702za7);
BGL_BIND_STRING(BGl_string1612z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1612za700za7za7_1701za7);
BGL_BIND_STRING(BGl_string1611z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1611za700za7za7_1700za7);
BGL_BIND_STRING(BGl_string1610z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1610za700za7za7_1699za7);
BGL_BIND_PROCEDURE(BGl_absflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762absflza762za7za7__r1698z00);
BGL_BIND_PROCEDURE(BGl_oddflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762oddflza7f3za791za7za71697za7);
BGL_BIND_PROCEDURE(BGl_log2flzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762log2flza762za7za7__1696z00);
BGL_BIND_PROCEDURE(BGl_zf2flzd2envz20zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7f2flza790za7za7__r1695za7);
BGL_BIND_PROCEDURE(BGl_doublezd2ze3llongzd2bitszd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762doubleza7d2za7e3l1694za7);
BGL_BIND_PROCEDURE(BGl_minzd22flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762minza7d22flza7b0za71693z00);
BGL_BIND_STRING(BGl_string1609z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1609za700za7za7_1692za7);
BGL_BIND_STRING(BGl_string1608z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1608za700za7za7_1691za7);
BGL_BIND_STRING(BGl_string1607z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1607za700za7za7_1690za7);
BGL_BIND_STRING(BGl_string1606z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1606za700za7za7_1689za7);
BGL_BIND_STRING(BGl_string1605z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1605za700za7za7_1688za7);
BGL_BIND_STRING(BGl_string1604z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1604za700za7za7_1687za7);
BGL_BIND_PROCEDURE(BGl_zc3zd3flzd2envzc2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7c3za7d3flza772za7za71686z00);
BGL_BIND_STRING(BGl_string1603z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1603za700za7za7_1685za7);
BGL_BIND_STRING(BGl_string1602z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1602za700za7za7_1684za7);
BGL_BIND_STRING(BGl_string1601z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1601za700za7za7_1683za7);
BGL_BIND_STRING(BGl_string1600z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string1600za700za7za7_1682za7);
BGL_BIND_PROCEDURE(BGl_integerflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762integerflza7f3za71681za7);
BGL_BIND_PROCEDURE(BGl_truncateflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762truncateflza7621680z00);
BGL_BIND_PROCEDURE(BGl_floorflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762floorflza762za7za7_1679z00);
BGL_BIND_PROCEDURE(BGl_zc3flzd2envz11zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7c3flza7a1za7za7__r1678za7);
BGL_BIND_PROCEDURE(BGl_ceilingflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762ceilingflza762za71677za7);
BGL_BIND_PROCEDURE(BGl_positiveflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762positiveflza7f31676z00);
BGL_BIND_PROCEDURE(BGl_ieeezd2stringzd2ze3floatzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762ieeeza7d2string1675z00);
BGL_BIND_PROCEDURE(BGl_ze3zd3flzd2envze2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7e3za7d3flza752za7za71674z00);
BGL_BIND_PROCEDURE(BGl_acosflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762acosflza762za7za7__1673z00);
BGL_BIND_PROCEDURE(BGl_ieeezd2stringzd2ze3realzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762ieeeza7d2string1672z00);
BGL_BIND_PROCEDURE(BGl_signbitflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762signbitflza762za71671za7);
BGL_BIND_PROCEDURE(BGl_cosflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762cosflza762za7za7__r1670z00);
BGL_BIND_PROCEDURE(BGl_logflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762logflza762za7za7__r1669z00);
BGL_BIND_PROCEDURE(BGl_doublezd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762doubleza7d2za7e3i1668za7);
BGL_BIND_PROCEDURE(BGl_sqrtflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762sqrtflza762za7za7__1667z00);
BGL_BIND_PROCEDURE(BGl_atanzd21flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762atanza7d21flza7b01666za7);
BGL_BIND_PROCEDURE(BGl_ze3flzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl_za762za7e3flza781za7za7__r1665za7);
}

/* 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_1587, char * BgL_fromz00_1588)
{
{ 
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_1273, obj_t BgL_objz00_1274)
{
{ /* Ieee/flonum.scm 330 */
return 
BBOOL(
BGl_realzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_objz00_1274));} 

}



/* 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_1275, obj_t BgL_objz00_1276)
{
{ /* Ieee/flonum.scm 338 */
return 
BBOOL(
BGl_flonumzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_objz00_1276));} 

}



/* =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_1277, obj_t BgL_r1z00_1278, obj_t BgL_r2z00_1279)
{
{ /* Ieee/flonum.scm 344 */
{ /* Ieee/flonum.scm 345 */
 bool_t BgL_tmpz00_1605;
{ /* Ieee/flonum.scm 345 */
 double BgL_auxz00_1615; double BgL_auxz00_1606;
{ /* Ieee/flonum.scm 345 */
 obj_t BgL_tmpz00_1616;
if(
REALP(BgL_r2z00_1279))
{ /* Ieee/flonum.scm 345 */
BgL_tmpz00_1616 = BgL_r2z00_1279
; }  else 
{ 
 obj_t BgL_auxz00_1619;
BgL_auxz00_1619 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(15948L), BGl_string1594z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1279); 
FAILURE(BgL_auxz00_1619,BFALSE,BFALSE);} 
BgL_auxz00_1615 = 
REAL_TO_DOUBLE(BgL_tmpz00_1616); } 
{ /* Ieee/flonum.scm 345 */
 obj_t BgL_tmpz00_1607;
if(
REALP(BgL_r1z00_1278))
{ /* Ieee/flonum.scm 345 */
BgL_tmpz00_1607 = BgL_r1z00_1278
; }  else 
{ 
 obj_t BgL_auxz00_1610;
BgL_auxz00_1610 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(15948L), BGl_string1594z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1278); 
FAILURE(BgL_auxz00_1610,BFALSE,BFALSE);} 
BgL_auxz00_1606 = 
REAL_TO_DOUBLE(BgL_tmpz00_1607); } 
BgL_tmpz00_1605 = 
BGl_zd3flzd3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1606, BgL_auxz00_1615); } 
return 
BBOOL(BgL_tmpz00_1605);} } 

}



/* <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_1280, obj_t BgL_r1z00_1281, obj_t BgL_r2z00_1282)
{
{ /* Ieee/flonum.scm 350 */
{ /* Ieee/flonum.scm 351 */
 bool_t BgL_tmpz00_1627;
{ /* Ieee/flonum.scm 351 */
 double BgL_auxz00_1637; double BgL_auxz00_1628;
{ /* Ieee/flonum.scm 351 */
 obj_t BgL_tmpz00_1638;
if(
REALP(BgL_r2z00_1282))
{ /* Ieee/flonum.scm 351 */
BgL_tmpz00_1638 = BgL_r2z00_1282
; }  else 
{ 
 obj_t BgL_auxz00_1641;
BgL_auxz00_1641 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(16215L), BGl_string1596z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1282); 
FAILURE(BgL_auxz00_1641,BFALSE,BFALSE);} 
BgL_auxz00_1637 = 
REAL_TO_DOUBLE(BgL_tmpz00_1638); } 
{ /* Ieee/flonum.scm 351 */
 obj_t BgL_tmpz00_1629;
if(
REALP(BgL_r1z00_1281))
{ /* Ieee/flonum.scm 351 */
BgL_tmpz00_1629 = BgL_r1z00_1281
; }  else 
{ 
 obj_t BgL_auxz00_1632;
BgL_auxz00_1632 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(16215L), BGl_string1596z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1281); 
FAILURE(BgL_auxz00_1632,BFALSE,BFALSE);} 
BgL_auxz00_1628 = 
REAL_TO_DOUBLE(BgL_tmpz00_1629); } 
BgL_tmpz00_1627 = 
BGl_zc3flzc3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1628, BgL_auxz00_1637); } 
return 
BBOOL(BgL_tmpz00_1627);} } 

}



/* >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_1283, obj_t BgL_r1z00_1284, obj_t BgL_r2z00_1285)
{
{ /* Ieee/flonum.scm 356 */
{ /* Ieee/flonum.scm 357 */
 bool_t BgL_tmpz00_1649;
{ /* Ieee/flonum.scm 357 */
 double BgL_auxz00_1659; double BgL_auxz00_1650;
{ /* Ieee/flonum.scm 357 */
 obj_t BgL_tmpz00_1660;
if(
REALP(BgL_r2z00_1285))
{ /* Ieee/flonum.scm 357 */
BgL_tmpz00_1660 = BgL_r2z00_1285
; }  else 
{ 
 obj_t BgL_auxz00_1663;
BgL_auxz00_1663 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(16482L), BGl_string1597z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1285); 
FAILURE(BgL_auxz00_1663,BFALSE,BFALSE);} 
BgL_auxz00_1659 = 
REAL_TO_DOUBLE(BgL_tmpz00_1660); } 
{ /* Ieee/flonum.scm 357 */
 obj_t BgL_tmpz00_1651;
if(
REALP(BgL_r1z00_1284))
{ /* Ieee/flonum.scm 357 */
BgL_tmpz00_1651 = BgL_r1z00_1284
; }  else 
{ 
 obj_t BgL_auxz00_1654;
BgL_auxz00_1654 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(16482L), BGl_string1597z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1284); 
FAILURE(BgL_auxz00_1654,BFALSE,BFALSE);} 
BgL_auxz00_1650 = 
REAL_TO_DOUBLE(BgL_tmpz00_1651); } 
BgL_tmpz00_1649 = 
BGl_ze3flze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1650, BgL_auxz00_1659); } 
return 
BBOOL(BgL_tmpz00_1649);} } 

}



/* <=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_1286, obj_t BgL_r1z00_1287, obj_t BgL_r2z00_1288)
{
{ /* Ieee/flonum.scm 362 */
{ /* Ieee/flonum.scm 363 */
 bool_t BgL_tmpz00_1671;
{ /* Ieee/flonum.scm 363 */
 double BgL_auxz00_1681; double BgL_auxz00_1672;
{ /* Ieee/flonum.scm 363 */
 obj_t BgL_tmpz00_1682;
if(
REALP(BgL_r2z00_1288))
{ /* Ieee/flonum.scm 363 */
BgL_tmpz00_1682 = BgL_r2z00_1288
; }  else 
{ 
 obj_t BgL_auxz00_1685;
BgL_auxz00_1685 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(16750L), BGl_string1598z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1288); 
FAILURE(BgL_auxz00_1685,BFALSE,BFALSE);} 
BgL_auxz00_1681 = 
REAL_TO_DOUBLE(BgL_tmpz00_1682); } 
{ /* Ieee/flonum.scm 363 */
 obj_t BgL_tmpz00_1673;
if(
REALP(BgL_r1z00_1287))
{ /* Ieee/flonum.scm 363 */
BgL_tmpz00_1673 = BgL_r1z00_1287
; }  else 
{ 
 obj_t BgL_auxz00_1676;
BgL_auxz00_1676 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(16750L), BGl_string1598z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1287); 
FAILURE(BgL_auxz00_1676,BFALSE,BFALSE);} 
BgL_auxz00_1672 = 
REAL_TO_DOUBLE(BgL_tmpz00_1673); } 
BgL_tmpz00_1671 = 
BGl_zc3zd3flz10zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1672, BgL_auxz00_1681); } 
return 
BBOOL(BgL_tmpz00_1671);} } 

}



/* >=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_1289, obj_t BgL_r1z00_1290, obj_t BgL_r2z00_1291)
{
{ /* Ieee/flonum.scm 368 */
{ /* Ieee/flonum.scm 369 */
 bool_t BgL_tmpz00_1693;
{ /* Ieee/flonum.scm 369 */
 double BgL_auxz00_1703; double BgL_auxz00_1694;
{ /* Ieee/flonum.scm 369 */
 obj_t BgL_tmpz00_1704;
if(
REALP(BgL_r2z00_1291))
{ /* Ieee/flonum.scm 369 */
BgL_tmpz00_1704 = BgL_r2z00_1291
; }  else 
{ 
 obj_t BgL_auxz00_1707;
BgL_auxz00_1707 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(17019L), BGl_string1599z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1291); 
FAILURE(BgL_auxz00_1707,BFALSE,BFALSE);} 
BgL_auxz00_1703 = 
REAL_TO_DOUBLE(BgL_tmpz00_1704); } 
{ /* Ieee/flonum.scm 369 */
 obj_t BgL_tmpz00_1695;
if(
REALP(BgL_r1z00_1290))
{ /* Ieee/flonum.scm 369 */
BgL_tmpz00_1695 = BgL_r1z00_1290
; }  else 
{ 
 obj_t BgL_auxz00_1698;
BgL_auxz00_1698 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(17019L), BGl_string1599z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1290); 
FAILURE(BgL_auxz00_1698,BFALSE,BFALSE);} 
BgL_auxz00_1694 = 
REAL_TO_DOUBLE(BgL_tmpz00_1695); } 
BgL_tmpz00_1693 = 
BGl_ze3zd3flz30zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1694, BgL_auxz00_1703); } 
return 
BBOOL(BgL_tmpz00_1693);} } 

}



/* 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_1292, obj_t BgL_rz00_1293)
{
{ /* Ieee/flonum.scm 374 */
{ /* Ieee/flonum.scm 345 */
 bool_t BgL_tmpz00_1715;
{ /* Ieee/flonum.scm 345 */
 double BgL_auxz00_1716;
{ /* Ieee/flonum.scm 345 */
 obj_t BgL_tmpz00_1717;
if(
REALP(BgL_rz00_1293))
{ /* Ieee/flonum.scm 345 */
BgL_tmpz00_1717 = BgL_rz00_1293
; }  else 
{ 
 obj_t BgL_auxz00_1720;
BgL_auxz00_1720 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(15948L), BGl_string1600z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1293); 
FAILURE(BgL_auxz00_1720,BFALSE,BFALSE);} 
BgL_auxz00_1716 = 
REAL_TO_DOUBLE(BgL_tmpz00_1717); } 
BgL_tmpz00_1715 = 
BGl_za7eroflzf3z54zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1716); } 
return 
BBOOL(BgL_tmpz00_1715);} } 

}



/* 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_1294, obj_t BgL_rz00_1295)
{
{ /* Ieee/flonum.scm 380 */
{ /* Ieee/flonum.scm 357 */
 bool_t BgL_tmpz00_1728;
{ /* Ieee/flonum.scm 357 */
 double BgL_auxz00_1729;
{ /* Ieee/flonum.scm 357 */
 obj_t BgL_tmpz00_1730;
if(
REALP(BgL_rz00_1295))
{ /* Ieee/flonum.scm 357 */
BgL_tmpz00_1730 = BgL_rz00_1295
; }  else 
{ 
 obj_t BgL_auxz00_1733;
BgL_auxz00_1733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(16482L), BGl_string1601z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1295); 
FAILURE(BgL_auxz00_1733,BFALSE,BFALSE);} 
BgL_auxz00_1729 = 
REAL_TO_DOUBLE(BgL_tmpz00_1730); } 
BgL_tmpz00_1728 = 
BGl_positiveflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1729); } 
return 
BBOOL(BgL_tmpz00_1728);} } 

}



/* 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_1296, obj_t BgL_rz00_1297)
{
{ /* Ieee/flonum.scm 386 */
{ /* Ieee/flonum.scm 351 */
 bool_t BgL_tmpz00_1741;
{ /* Ieee/flonum.scm 351 */
 double BgL_auxz00_1742;
{ /* Ieee/flonum.scm 351 */
 obj_t BgL_tmpz00_1743;
if(
REALP(BgL_rz00_1297))
{ /* Ieee/flonum.scm 351 */
BgL_tmpz00_1743 = BgL_rz00_1297
; }  else 
{ 
 obj_t BgL_auxz00_1746;
BgL_auxz00_1746 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(16215L), BGl_string1602z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1297); 
FAILURE(BgL_auxz00_1746,BFALSE,BFALSE);} 
BgL_auxz00_1742 = 
REAL_TO_DOUBLE(BgL_tmpz00_1743); } 
BgL_tmpz00_1741 = 
BGl_negativeflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1742); } 
return 
BBOOL(BgL_tmpz00_1741);} } 

}



/* +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_1298, obj_t BgL_r1z00_1299, obj_t BgL_r2z00_1300)
{
{ /* Ieee/flonum.scm 392 */
{ /* Ieee/flonum.scm 393 */
 double BgL_tmpz00_1754;
{ /* Ieee/flonum.scm 393 */
 double BgL_auxz00_1764; double BgL_auxz00_1755;
{ /* Ieee/flonum.scm 393 */
 obj_t BgL_tmpz00_1765;
if(
REALP(BgL_r2z00_1300))
{ /* Ieee/flonum.scm 393 */
BgL_tmpz00_1765 = BgL_r2z00_1300
; }  else 
{ 
 obj_t BgL_auxz00_1768;
BgL_auxz00_1768 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18093L), BGl_string1603z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1300); 
FAILURE(BgL_auxz00_1768,BFALSE,BFALSE);} 
BgL_auxz00_1764 = 
REAL_TO_DOUBLE(BgL_tmpz00_1765); } 
{ /* Ieee/flonum.scm 393 */
 obj_t BgL_tmpz00_1756;
if(
REALP(BgL_r1z00_1299))
{ /* Ieee/flonum.scm 393 */
BgL_tmpz00_1756 = BgL_r1z00_1299
; }  else 
{ 
 obj_t BgL_auxz00_1759;
BgL_auxz00_1759 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18093L), BGl_string1603z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1299); 
FAILURE(BgL_auxz00_1759,BFALSE,BFALSE);} 
BgL_auxz00_1755 = 
REAL_TO_DOUBLE(BgL_tmpz00_1756); } 
BgL_tmpz00_1754 = 
BGl_zb2flzb2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1755, BgL_auxz00_1764); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_1754);} } 

}



/* -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_1301, obj_t BgL_r1z00_1302, obj_t BgL_r2z00_1303)
{
{ /* Ieee/flonum.scm 394 */
{ /* Ieee/flonum.scm 395 */
 double BgL_tmpz00_1776;
{ /* Ieee/flonum.scm 395 */
 double BgL_auxz00_1786; double BgL_auxz00_1777;
{ /* Ieee/flonum.scm 395 */
 obj_t BgL_tmpz00_1787;
if(
REALP(BgL_r2z00_1303))
{ /* Ieee/flonum.scm 395 */
BgL_tmpz00_1787 = BgL_r2z00_1303
; }  else 
{ 
 obj_t BgL_auxz00_1790;
BgL_auxz00_1790 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18137L), BGl_string1604z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1303); 
FAILURE(BgL_auxz00_1790,BFALSE,BFALSE);} 
BgL_auxz00_1786 = 
REAL_TO_DOUBLE(BgL_tmpz00_1787); } 
{ /* Ieee/flonum.scm 395 */
 obj_t BgL_tmpz00_1778;
if(
REALP(BgL_r1z00_1302))
{ /* Ieee/flonum.scm 395 */
BgL_tmpz00_1778 = BgL_r1z00_1302
; }  else 
{ 
 obj_t BgL_auxz00_1781;
BgL_auxz00_1781 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18137L), BGl_string1604z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1302); 
FAILURE(BgL_auxz00_1781,BFALSE,BFALSE);} 
BgL_auxz00_1777 = 
REAL_TO_DOUBLE(BgL_tmpz00_1778); } 
BgL_tmpz00_1776 = 
BGl_zd2flzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1777, BgL_auxz00_1786); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_1776);} } 

}



/* *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_1304, obj_t BgL_r1z00_1305, obj_t BgL_r2z00_1306)
{
{ /* Ieee/flonum.scm 396 */
{ /* Ieee/flonum.scm 397 */
 double BgL_tmpz00_1798;
{ /* Ieee/flonum.scm 397 */
 double BgL_auxz00_1808; double BgL_auxz00_1799;
{ /* Ieee/flonum.scm 397 */
 obj_t BgL_tmpz00_1809;
if(
REALP(BgL_r2z00_1306))
{ /* Ieee/flonum.scm 397 */
BgL_tmpz00_1809 = BgL_r2z00_1306
; }  else 
{ 
 obj_t BgL_auxz00_1812;
BgL_auxz00_1812 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18181L), BGl_string1605z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1306); 
FAILURE(BgL_auxz00_1812,BFALSE,BFALSE);} 
BgL_auxz00_1808 = 
REAL_TO_DOUBLE(BgL_tmpz00_1809); } 
{ /* Ieee/flonum.scm 397 */
 obj_t BgL_tmpz00_1800;
if(
REALP(BgL_r1z00_1305))
{ /* Ieee/flonum.scm 397 */
BgL_tmpz00_1800 = BgL_r1z00_1305
; }  else 
{ 
 obj_t BgL_auxz00_1803;
BgL_auxz00_1803 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18181L), BGl_string1605z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1305); 
FAILURE(BgL_auxz00_1803,BFALSE,BFALSE);} 
BgL_auxz00_1799 = 
REAL_TO_DOUBLE(BgL_tmpz00_1800); } 
BgL_tmpz00_1798 = 
BGl_za2flza2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1799, BgL_auxz00_1808); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_1798);} } 

}



/* /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_1307, obj_t BgL_r1z00_1308, obj_t BgL_r2z00_1309)
{
{ /* Ieee/flonum.scm 398 */
{ /* Ieee/flonum.scm 399 */
 double BgL_tmpz00_1820;
{ /* Ieee/flonum.scm 399 */
 double BgL_auxz00_1830; double BgL_auxz00_1821;
{ /* Ieee/flonum.scm 399 */
 obj_t BgL_tmpz00_1831;
if(
REALP(BgL_r2z00_1309))
{ /* Ieee/flonum.scm 399 */
BgL_tmpz00_1831 = BgL_r2z00_1309
; }  else 
{ 
 obj_t BgL_auxz00_1834;
BgL_auxz00_1834 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18225L), BGl_string1606z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1309); 
FAILURE(BgL_auxz00_1834,BFALSE,BFALSE);} 
BgL_auxz00_1830 = 
REAL_TO_DOUBLE(BgL_tmpz00_1831); } 
{ /* Ieee/flonum.scm 399 */
 obj_t BgL_tmpz00_1822;
if(
REALP(BgL_r1z00_1308))
{ /* Ieee/flonum.scm 399 */
BgL_tmpz00_1822 = BgL_r1z00_1308
; }  else 
{ 
 obj_t BgL_auxz00_1825;
BgL_auxz00_1825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18225L), BGl_string1606z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1308); 
FAILURE(BgL_auxz00_1825,BFALSE,BFALSE);} 
BgL_auxz00_1821 = 
REAL_TO_DOUBLE(BgL_tmpz00_1822); } 
BgL_tmpz00_1820 = 
BGl_zf2flzf2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1821, BgL_auxz00_1830); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_1820);} } 

}



/* 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_1310, obj_t BgL_r1z00_1311)
{
{ /* Ieee/flonum.scm 404 */
{ /* Ieee/flonum.scm 405 */
 double BgL_tmpz00_1842;
{ /* Ieee/flonum.scm 405 */
 double BgL_auxz00_1843;
{ /* Ieee/flonum.scm 405 */
 obj_t BgL_tmpz00_1844;
if(
REALP(BgL_r1z00_1311))
{ /* Ieee/flonum.scm 405 */
BgL_tmpz00_1844 = BgL_r1z00_1311
; }  else 
{ 
 obj_t BgL_auxz00_1847;
BgL_auxz00_1847 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18491L), BGl_string1607z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1311); 
FAILURE(BgL_auxz00_1847,BFALSE,BFALSE);} 
BgL_auxz00_1843 = 
REAL_TO_DOUBLE(BgL_tmpz00_1844); } 
BgL_tmpz00_1842 = 
BGl_negflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1843); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_1842);} } 

}



/* 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_1055; obj_t BgL_rnz00_1056;
BgL_maxz00_1055 = BgL_r1z00_27; 
BgL_rnz00_1056 = BgL_rnz00_28; 
BgL_loopz00_1054:
if(
NULLP(BgL_rnz00_1056))
{ /* Ieee/flonum.scm 413 */
return BgL_maxz00_1055;}  else 
{ 
 obj_t BgL_rnz00_1873; double BgL_maxz00_1856;
{ /* Ieee/flonum.scm 415 */
 double BgL_r1z00_1066;
{ /* Ieee/flonum.scm 415 */
 obj_t BgL_pairz00_1065;
if(
PAIRP(BgL_rnz00_1056))
{ /* Ieee/flonum.scm 415 */
BgL_pairz00_1065 = BgL_rnz00_1056; }  else 
{ 
 obj_t BgL_auxz00_1859;
BgL_auxz00_1859 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18846L), BGl_string1608z00zz__r4_numbers_6_5_flonumz00, BGl_string1609z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_1056); 
FAILURE(BgL_auxz00_1859,BFALSE,BFALSE);} 
{ /* Ieee/flonum.scm 415 */
 obj_t BgL_tmpz00_1863;
{ /* Ieee/flonum.scm 415 */
 obj_t BgL_aux1480z00_1456;
BgL_aux1480z00_1456 = 
CAR(BgL_pairz00_1065); 
if(
REALP(BgL_aux1480z00_1456))
{ /* Ieee/flonum.scm 415 */
BgL_tmpz00_1863 = BgL_aux1480z00_1456
; }  else 
{ 
 obj_t BgL_auxz00_1867;
BgL_auxz00_1867 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18841L), BGl_string1608z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_aux1480z00_1456); 
FAILURE(BgL_auxz00_1867,BFALSE,BFALSE);} } 
BgL_r1z00_1066 = 
REAL_TO_DOUBLE(BgL_tmpz00_1863); } } 
BgL_maxz00_1856 = 
BGL_FL_MAX2(BgL_r1z00_1066, BgL_maxz00_1055); } 
{ /* Ieee/flonum.scm 415 */
 obj_t BgL_pairz00_1068;
if(
PAIRP(BgL_rnz00_1056))
{ /* Ieee/flonum.scm 415 */
BgL_pairz00_1068 = BgL_rnz00_1056; }  else 
{ 
 obj_t BgL_auxz00_1876;
BgL_auxz00_1876 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18860L), BGl_string1608z00zz__r4_numbers_6_5_flonumz00, BGl_string1609z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_1056); 
FAILURE(BgL_auxz00_1876,BFALSE,BFALSE);} 
BgL_rnz00_1873 = 
CDR(BgL_pairz00_1068); } 
BgL_rnz00_1056 = BgL_rnz00_1873; 
BgL_maxz00_1055 = BgL_maxz00_1856; 
goto BgL_loopz00_1054;} } } 

}



/* &maxfl */
obj_t BGl_z62maxflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1312, obj_t BgL_r1z00_1313, obj_t BgL_rnz00_1314)
{
{ /* Ieee/flonum.scm 410 */
{ /* Ieee/flonum.scm 411 */
 double BgL_tmpz00_1881;
{ /* Ieee/flonum.scm 411 */
 double BgL_auxz00_1882;
{ /* Ieee/flonum.scm 411 */
 obj_t BgL_tmpz00_1883;
if(
REALP(BgL_r1z00_1313))
{ /* Ieee/flonum.scm 411 */
BgL_tmpz00_1883 = BgL_r1z00_1313
; }  else 
{ 
 obj_t BgL_auxz00_1886;
BgL_auxz00_1886 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(18758L), BGl_string1610z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1313); 
FAILURE(BgL_auxz00_1886,BFALSE,BFALSE);} 
BgL_auxz00_1882 = 
REAL_TO_DOUBLE(BgL_tmpz00_1883); } 
BgL_tmpz00_1881 = 
BGl_maxflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1882, BgL_rnz00_1314); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_1881);} } 

}



/* 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_1315, obj_t BgL_r1z00_1316, obj_t BgL_r2z00_1317)
{
{ /* Ieee/flonum.scm 420 */
{ /* Ieee/flonum.scm 421 */
 double BgL_tmpz00_1894;
{ /* Ieee/flonum.scm 421 */
 double BgL_auxz00_1904; double BgL_auxz00_1895;
{ /* Ieee/flonum.scm 421 */
 obj_t BgL_tmpz00_1905;
if(
REALP(BgL_r2z00_1317))
{ /* Ieee/flonum.scm 421 */
BgL_tmpz00_1905 = BgL_r2z00_1317
; }  else 
{ 
 obj_t BgL_auxz00_1908;
BgL_auxz00_1908 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(19125L), BGl_string1611z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1317); 
FAILURE(BgL_auxz00_1908,BFALSE,BFALSE);} 
BgL_auxz00_1904 = 
REAL_TO_DOUBLE(BgL_tmpz00_1905); } 
{ /* Ieee/flonum.scm 421 */
 obj_t BgL_tmpz00_1896;
if(
REALP(BgL_r1z00_1316))
{ /* Ieee/flonum.scm 421 */
BgL_tmpz00_1896 = BgL_r1z00_1316
; }  else 
{ 
 obj_t BgL_auxz00_1899;
BgL_auxz00_1899 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(19125L), BGl_string1611z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1316); 
FAILURE(BgL_auxz00_1899,BFALSE,BFALSE);} 
BgL_auxz00_1895 = 
REAL_TO_DOUBLE(BgL_tmpz00_1896); } 
BgL_tmpz00_1894 = 
BGl_maxzd22flzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1895, BgL_auxz00_1904); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_1894);} } 

}



/* 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_1318, obj_t BgL_r1z00_1319, obj_t BgL_r2z00_1320)
{
{ /* Ieee/flonum.scm 426 */
{ /* Ieee/flonum.scm 427 */
 double BgL_tmpz00_1916;
{ /* Ieee/flonum.scm 427 */
 double BgL_auxz00_1926; double BgL_auxz00_1917;
{ /* Ieee/flonum.scm 427 */
 obj_t BgL_tmpz00_1927;
if(
REALP(BgL_r2z00_1320))
{ /* Ieee/flonum.scm 427 */
BgL_tmpz00_1927 = BgL_r2z00_1320
; }  else 
{ 
 obj_t BgL_auxz00_1930;
BgL_auxz00_1930 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(19398L), BGl_string1612z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1320); 
FAILURE(BgL_auxz00_1930,BFALSE,BFALSE);} 
BgL_auxz00_1926 = 
REAL_TO_DOUBLE(BgL_tmpz00_1927); } 
{ /* Ieee/flonum.scm 427 */
 obj_t BgL_tmpz00_1918;
if(
REALP(BgL_r1z00_1319))
{ /* Ieee/flonum.scm 427 */
BgL_tmpz00_1918 = BgL_r1z00_1319
; }  else 
{ 
 obj_t BgL_auxz00_1921;
BgL_auxz00_1921 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(19398L), BGl_string1612z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1319); 
FAILURE(BgL_auxz00_1921,BFALSE,BFALSE);} 
BgL_auxz00_1917 = 
REAL_TO_DOUBLE(BgL_tmpz00_1918); } 
BgL_tmpz00_1916 = 
BGl_minzd22flzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1917, BgL_auxz00_1926); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_1916);} } 

}



/* 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_1086; obj_t BgL_rnz00_1087;
BgL_minz00_1086 = BgL_r1z00_33; 
BgL_rnz00_1087 = BgL_rnz00_34; 
BgL_loopz00_1085:
if(
NULLP(BgL_rnz00_1087))
{ /* Ieee/flonum.scm 435 */
return BgL_minz00_1086;}  else 
{ 
 obj_t BgL_rnz00_1956; double BgL_minz00_1939;
{ /* Ieee/flonum.scm 437 */
 double BgL_r1z00_1097;
{ /* Ieee/flonum.scm 437 */
 obj_t BgL_pairz00_1096;
if(
PAIRP(BgL_rnz00_1087))
{ /* Ieee/flonum.scm 437 */
BgL_pairz00_1096 = BgL_rnz00_1087; }  else 
{ 
 obj_t BgL_auxz00_1942;
BgL_auxz00_1942 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(19755L), BGl_string1608z00zz__r4_numbers_6_5_flonumz00, BGl_string1609z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_1087); 
FAILURE(BgL_auxz00_1942,BFALSE,BFALSE);} 
{ /* Ieee/flonum.scm 437 */
 obj_t BgL_tmpz00_1946;
{ /* Ieee/flonum.scm 437 */
 obj_t BgL_aux1496z00_1472;
BgL_aux1496z00_1472 = 
CAR(BgL_pairz00_1096); 
if(
REALP(BgL_aux1496z00_1472))
{ /* Ieee/flonum.scm 437 */
BgL_tmpz00_1946 = BgL_aux1496z00_1472
; }  else 
{ 
 obj_t BgL_auxz00_1950;
BgL_auxz00_1950 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(19750L), BGl_string1608z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_aux1496z00_1472); 
FAILURE(BgL_auxz00_1950,BFALSE,BFALSE);} } 
BgL_r1z00_1097 = 
REAL_TO_DOUBLE(BgL_tmpz00_1946); } } 
BgL_minz00_1939 = 
BGL_FL_MIN2(BgL_r1z00_1097, BgL_minz00_1086); } 
{ /* Ieee/flonum.scm 437 */
 obj_t BgL_pairz00_1099;
if(
PAIRP(BgL_rnz00_1087))
{ /* Ieee/flonum.scm 437 */
BgL_pairz00_1099 = BgL_rnz00_1087; }  else 
{ 
 obj_t BgL_auxz00_1959;
BgL_auxz00_1959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(19769L), BGl_string1608z00zz__r4_numbers_6_5_flonumz00, BGl_string1609z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_1087); 
FAILURE(BgL_auxz00_1959,BFALSE,BFALSE);} 
BgL_rnz00_1956 = 
CDR(BgL_pairz00_1099); } 
BgL_rnz00_1087 = BgL_rnz00_1956; 
BgL_minz00_1086 = BgL_minz00_1939; 
goto BgL_loopz00_1085;} } } 

}



/* &minfl */
obj_t BGl_z62minflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1321, obj_t BgL_r1z00_1322, obj_t BgL_rnz00_1323)
{
{ /* Ieee/flonum.scm 432 */
{ /* Ieee/flonum.scm 433 */
 double BgL_tmpz00_1964;
{ /* Ieee/flonum.scm 433 */
 double BgL_auxz00_1965;
{ /* Ieee/flonum.scm 433 */
 obj_t BgL_tmpz00_1966;
if(
REALP(BgL_r1z00_1322))
{ /* Ieee/flonum.scm 433 */
BgL_tmpz00_1966 = BgL_r1z00_1322
; }  else 
{ 
 obj_t BgL_auxz00_1969;
BgL_auxz00_1969 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(19667L), BGl_string1613z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1322); 
FAILURE(BgL_auxz00_1969,BFALSE,BFALSE);} 
BgL_auxz00_1965 = 
REAL_TO_DOUBLE(BgL_tmpz00_1966); } 
BgL_tmpz00_1964 = 
BGl_minflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1965, BgL_rnz00_1323); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_1964);} } 

}



/* 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_1324, obj_t BgL_rz00_1325)
{
{ /* Ieee/flonum.scm 442 */
{ /* Ieee/flonum.scm 443 */
 double BgL_tmpz00_1977;
{ /* Ieee/flonum.scm 443 */
 double BgL_auxz00_1978;
{ /* Ieee/flonum.scm 443 */
 obj_t BgL_tmpz00_1979;
if(
REALP(BgL_rz00_1325))
{ /* Ieee/flonum.scm 443 */
BgL_tmpz00_1979 = BgL_rz00_1325
; }  else 
{ 
 obj_t BgL_auxz00_1982;
BgL_auxz00_1982 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(20031L), BGl_string1614z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1325); 
FAILURE(BgL_auxz00_1982,BFALSE,BFALSE);} 
BgL_auxz00_1978 = 
REAL_TO_DOUBLE(BgL_tmpz00_1979); } 
BgL_tmpz00_1977 = 
BGl_absflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1978); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_1977);} } 

}



/* 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_1326, obj_t BgL_rz00_1327)
{
{ /* Ieee/flonum.scm 448 */
{ /* Ieee/flonum.scm 449 */
 double BgL_tmpz00_1990;
{ /* Ieee/flonum.scm 449 */
 double BgL_auxz00_1991;
{ /* Ieee/flonum.scm 449 */
 obj_t BgL_tmpz00_1992;
if(
REALP(BgL_rz00_1327))
{ /* Ieee/flonum.scm 449 */
BgL_tmpz00_1992 = BgL_rz00_1327
; }  else 
{ 
 obj_t BgL_auxz00_1995;
BgL_auxz00_1995 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(20296L), BGl_string1615z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1327); 
FAILURE(BgL_auxz00_1995,BFALSE,BFALSE);} 
BgL_auxz00_1991 = 
REAL_TO_DOUBLE(BgL_tmpz00_1992); } 
BgL_tmpz00_1990 = 
BGl_floorflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1991); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_1990);} } 

}



/* 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_1328, obj_t BgL_rz00_1329)
{
{ /* Ieee/flonum.scm 454 */
{ /* Ieee/flonum.scm 455 */
 double BgL_tmpz00_2003;
{ /* Ieee/flonum.scm 455 */
 double BgL_auxz00_2004;
{ /* Ieee/flonum.scm 455 */
 obj_t BgL_tmpz00_2005;
if(
REALP(BgL_rz00_1329))
{ /* Ieee/flonum.scm 455 */
BgL_tmpz00_2005 = BgL_rz00_1329
; }  else 
{ 
 obj_t BgL_auxz00_2008;
BgL_auxz00_2008 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(20563L), BGl_string1616z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1329); 
FAILURE(BgL_auxz00_2008,BFALSE,BFALSE);} 
BgL_auxz00_2004 = 
REAL_TO_DOUBLE(BgL_tmpz00_2005); } 
BgL_tmpz00_2003 = 
BGl_ceilingflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2004); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2003);} } 

}



/* 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_1330, obj_t BgL_rz00_1331)
{
{ /* Ieee/flonum.scm 460 */
{ /* Ieee/flonum.scm 461 */
 double BgL_tmpz00_2019;
{ /* Ieee/flonum.scm 461 */
 double BgL_auxz00_2020;
{ /* Ieee/flonum.scm 461 */
 obj_t BgL_tmpz00_2021;
if(
REALP(BgL_rz00_1331))
{ /* Ieee/flonum.scm 461 */
BgL_tmpz00_2021 = BgL_rz00_1331
; }  else 
{ 
 obj_t BgL_auxz00_2024;
BgL_auxz00_2024 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(20833L), BGl_string1617z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1331); 
FAILURE(BgL_auxz00_2024,BFALSE,BFALSE);} 
BgL_auxz00_2020 = 
REAL_TO_DOUBLE(BgL_tmpz00_2021); } 
BgL_tmpz00_2019 = 
BGl_truncateflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2020); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2019);} } 

}



/* 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_1332, obj_t BgL_rz00_1333)
{
{ /* Ieee/flonum.scm 468 */
{ /* Ieee/flonum.scm 469 */
 double BgL_tmpz00_2032;
{ /* Ieee/flonum.scm 469 */
 double BgL_auxz00_2033;
{ /* Ieee/flonum.scm 469 */
 obj_t BgL_tmpz00_2034;
if(
REALP(BgL_rz00_1333))
{ /* Ieee/flonum.scm 469 */
BgL_tmpz00_2034 = BgL_rz00_1333
; }  else 
{ 
 obj_t BgL_auxz00_2037;
BgL_auxz00_2037 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(21141L), BGl_string1618z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1333); 
FAILURE(BgL_auxz00_2037,BFALSE,BFALSE);} 
BgL_auxz00_2033 = 
REAL_TO_DOUBLE(BgL_tmpz00_2034); } 
BgL_tmpz00_2032 = 
BGl_roundflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2033); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2032);} } 

}



/* 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_1334, obj_t BgL_n1z00_1335, obj_t BgL_n2z00_1336)
{
{ /* Ieee/flonum.scm 474 */
{ /* Ieee/flonum.scm 475 */
 double BgL_tmpz00_2045;
{ /* Ieee/flonum.scm 475 */
 double BgL_auxz00_2055; double BgL_auxz00_2046;
{ /* Ieee/flonum.scm 475 */
 obj_t BgL_tmpz00_2056;
if(
REALP(BgL_n2z00_1336))
{ /* Ieee/flonum.scm 475 */
BgL_tmpz00_2056 = BgL_n2z00_1336
; }  else 
{ 
 obj_t BgL_auxz00_2059;
BgL_auxz00_2059 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(21416L), BGl_string1619z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_n2z00_1336); 
FAILURE(BgL_auxz00_2059,BFALSE,BFALSE);} 
BgL_auxz00_2055 = 
REAL_TO_DOUBLE(BgL_tmpz00_2056); } 
{ /* Ieee/flonum.scm 475 */
 obj_t BgL_tmpz00_2047;
if(
REALP(BgL_n1z00_1335))
{ /* Ieee/flonum.scm 475 */
BgL_tmpz00_2047 = BgL_n1z00_1335
; }  else 
{ 
 obj_t BgL_auxz00_2050;
BgL_auxz00_2050 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(21416L), BGl_string1619z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_n1z00_1335); 
FAILURE(BgL_auxz00_2050,BFALSE,BFALSE);} 
BgL_auxz00_2046 = 
REAL_TO_DOUBLE(BgL_tmpz00_2047); } 
BgL_tmpz00_2045 = 
BGl_remainderflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2046, BgL_auxz00_2055); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2045);} } 

}



/* 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_1337, obj_t BgL_xz00_1338)
{
{ /* Ieee/flonum.scm 480 */
{ /* Ieee/flonum.scm 481 */
 double BgL_tmpz00_2067;
{ /* Ieee/flonum.scm 481 */
 double BgL_auxz00_2068;
{ /* Ieee/flonum.scm 481 */
 obj_t BgL_tmpz00_2069;
if(
REALP(BgL_xz00_1338))
{ /* Ieee/flonum.scm 481 */
BgL_tmpz00_2069 = BgL_xz00_1338
; }  else 
{ 
 obj_t BgL_auxz00_2072;
BgL_auxz00_2072 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(21682L), BGl_string1620z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1338); 
FAILURE(BgL_auxz00_2072,BFALSE,BFALSE);} 
BgL_auxz00_2068 = 
REAL_TO_DOUBLE(BgL_tmpz00_2069); } 
BgL_tmpz00_2067 = 
BGl_expflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2068); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2067);} } 

}



/* 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_1339, obj_t BgL_xz00_1340)
{
{ /* Ieee/flonum.scm 486 */
{ /* Ieee/flonum.scm 487 */
 double BgL_tmpz00_2080;
{ /* Ieee/flonum.scm 487 */
 double BgL_auxz00_2081;
{ /* Ieee/flonum.scm 487 */
 obj_t BgL_tmpz00_2082;
if(
REALP(BgL_xz00_1340))
{ /* Ieee/flonum.scm 487 */
BgL_tmpz00_2082 = BgL_xz00_1340
; }  else 
{ 
 obj_t BgL_auxz00_2085;
BgL_auxz00_2085 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(21943L), BGl_string1621z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1340); 
FAILURE(BgL_auxz00_2085,BFALSE,BFALSE);} 
BgL_auxz00_2081 = 
REAL_TO_DOUBLE(BgL_tmpz00_2082); } 
BgL_tmpz00_2080 = 
BGl_logflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2081); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2080);} } 

}



/* 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_1341, obj_t BgL_xz00_1342)
{
{ /* Ieee/flonum.scm 492 */
{ /* Ieee/flonum.scm 493 */
 double BgL_tmpz00_2093;
{ /* Ieee/flonum.scm 493 */
 double BgL_auxz00_2094;
{ /* Ieee/flonum.scm 493 */
 obj_t BgL_tmpz00_2095;
if(
REALP(BgL_xz00_1342))
{ /* Ieee/flonum.scm 493 */
BgL_tmpz00_2095 = BgL_xz00_1342
; }  else 
{ 
 obj_t BgL_auxz00_2098;
BgL_auxz00_2098 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(22206L), BGl_string1622z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1342); 
FAILURE(BgL_auxz00_2098,BFALSE,BFALSE);} 
BgL_auxz00_2094 = 
REAL_TO_DOUBLE(BgL_tmpz00_2095); } 
BgL_tmpz00_2093 = 
BGl_log2flz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2094); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2093);} } 

}



/* 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_1343, obj_t BgL_xz00_1344)
{
{ /* Ieee/flonum.scm 498 */
{ /* Ieee/flonum.scm 499 */
 double BgL_tmpz00_2106;
{ /* Ieee/flonum.scm 499 */
 double BgL_auxz00_2107;
{ /* Ieee/flonum.scm 499 */
 obj_t BgL_tmpz00_2108;
if(
REALP(BgL_xz00_1344))
{ /* Ieee/flonum.scm 499 */
BgL_tmpz00_2108 = BgL_xz00_1344
; }  else 
{ 
 obj_t BgL_auxz00_2111;
BgL_auxz00_2111 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(22471L), BGl_string1623z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1344); 
FAILURE(BgL_auxz00_2111,BFALSE,BFALSE);} 
BgL_auxz00_2107 = 
REAL_TO_DOUBLE(BgL_tmpz00_2108); } 
BgL_tmpz00_2106 = 
BGl_log10flz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2107); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2106);} } 

}



/* 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_1345, obj_t BgL_xz00_1346)
{
{ /* Ieee/flonum.scm 504 */
{ /* Ieee/flonum.scm 505 */
 double BgL_tmpz00_2119;
{ /* Ieee/flonum.scm 505 */
 double BgL_auxz00_2120;
{ /* Ieee/flonum.scm 505 */
 obj_t BgL_tmpz00_2121;
if(
REALP(BgL_xz00_1346))
{ /* Ieee/flonum.scm 505 */
BgL_tmpz00_2121 = BgL_xz00_1346
; }  else 
{ 
 obj_t BgL_auxz00_2124;
BgL_auxz00_2124 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(22735L), BGl_string1624z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1346); 
FAILURE(BgL_auxz00_2124,BFALSE,BFALSE);} 
BgL_auxz00_2120 = 
REAL_TO_DOUBLE(BgL_tmpz00_2121); } 
BgL_tmpz00_2119 = 
BGl_sinflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2120); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2119);} } 

}



/* 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_1347, obj_t BgL_xz00_1348)
{
{ /* Ieee/flonum.scm 510 */
{ /* Ieee/flonum.scm 511 */
 double BgL_tmpz00_2132;
{ /* Ieee/flonum.scm 511 */
 double BgL_auxz00_2133;
{ /* Ieee/flonum.scm 511 */
 obj_t BgL_tmpz00_2134;
if(
REALP(BgL_xz00_1348))
{ /* Ieee/flonum.scm 511 */
BgL_tmpz00_2134 = BgL_xz00_1348
; }  else 
{ 
 obj_t BgL_auxz00_2137;
BgL_auxz00_2137 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(22996L), BGl_string1625z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1348); 
FAILURE(BgL_auxz00_2137,BFALSE,BFALSE);} 
BgL_auxz00_2133 = 
REAL_TO_DOUBLE(BgL_tmpz00_2134); } 
BgL_tmpz00_2132 = 
BGl_cosflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2133); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2132);} } 

}



/* 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_1349, obj_t BgL_xz00_1350)
{
{ /* Ieee/flonum.scm 516 */
{ /* Ieee/flonum.scm 517 */
 double BgL_tmpz00_2145;
{ /* Ieee/flonum.scm 517 */
 double BgL_auxz00_2146;
{ /* Ieee/flonum.scm 517 */
 obj_t BgL_tmpz00_2147;
if(
REALP(BgL_xz00_1350))
{ /* Ieee/flonum.scm 517 */
BgL_tmpz00_2147 = BgL_xz00_1350
; }  else 
{ 
 obj_t BgL_auxz00_2150;
BgL_auxz00_2150 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(23257L), BGl_string1626z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1350); 
FAILURE(BgL_auxz00_2150,BFALSE,BFALSE);} 
BgL_auxz00_2146 = 
REAL_TO_DOUBLE(BgL_tmpz00_2147); } 
BgL_tmpz00_2145 = 
BGl_tanflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2146); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2145);} } 

}



/* 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_1351, obj_t BgL_xz00_1352)
{
{ /* Ieee/flonum.scm 522 */
{ /* Ieee/flonum.scm 523 */
 double BgL_tmpz00_2158;
{ /* Ieee/flonum.scm 523 */
 double BgL_auxz00_2159;
{ /* Ieee/flonum.scm 523 */
 obj_t BgL_tmpz00_2160;
if(
REALP(BgL_xz00_1352))
{ /* Ieee/flonum.scm 523 */
BgL_tmpz00_2160 = BgL_xz00_1352
; }  else 
{ 
 obj_t BgL_auxz00_2163;
BgL_auxz00_2163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(23519L), BGl_string1627z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1352); 
FAILURE(BgL_auxz00_2163,BFALSE,BFALSE);} 
BgL_auxz00_2159 = 
REAL_TO_DOUBLE(BgL_tmpz00_2160); } 
BgL_tmpz00_2158 = 
BGl_asinflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2159); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2158);} } 

}



/* 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_1353, obj_t BgL_xz00_1354)
{
{ /* Ieee/flonum.scm 528 */
{ /* Ieee/flonum.scm 529 */
 double BgL_tmpz00_2171;
{ /* Ieee/flonum.scm 529 */
 double BgL_auxz00_2172;
{ /* Ieee/flonum.scm 529 */
 obj_t BgL_tmpz00_2173;
if(
REALP(BgL_xz00_1354))
{ /* Ieee/flonum.scm 529 */
BgL_tmpz00_2173 = BgL_xz00_1354
; }  else 
{ 
 obj_t BgL_auxz00_2176;
BgL_auxz00_2176 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(23782L), BGl_string1628z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1354); 
FAILURE(BgL_auxz00_2176,BFALSE,BFALSE);} 
BgL_auxz00_2172 = 
REAL_TO_DOUBLE(BgL_tmpz00_2173); } 
BgL_tmpz00_2171 = 
BGl_acosflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2172); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2171);} } 

}



/* 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_1107;
{ /* Ieee/flonum.scm 537 */
 obj_t BgL_pairz00_1108;
if(
PAIRP(BgL_yz00_52))
{ /* Ieee/flonum.scm 537 */
BgL_pairz00_1108 = BgL_yz00_52; }  else 
{ 
 obj_t BgL_auxz00_2188;
BgL_auxz00_2188 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(24094L), BGl_string1629z00zz__r4_numbers_6_5_flonumz00, BGl_string1609z00zz__r4_numbers_6_5_flonumz00, BgL_yz00_52); 
FAILURE(BgL_auxz00_2188,BFALSE,BFALSE);} 
BgL_yz00_1107 = 
CAR(BgL_pairz00_1108); } 
{ /* Ieee/flonum.scm 538 */
 double BgL_yz00_1110;
{ /* Ieee/flonum.scm 538 */
 obj_t BgL_tmpz00_2193;
if(
REALP(BgL_yz00_1107))
{ /* Ieee/flonum.scm 538 */
BgL_tmpz00_2193 = BgL_yz00_1107
; }  else 
{ 
 obj_t BgL_auxz00_2196;
BgL_auxz00_2196 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(24102L), BGl_string1629z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_yz00_1107); 
FAILURE(BgL_auxz00_2196,BFALSE,BFALSE);} 
BgL_yz00_1110 = 
REAL_TO_DOUBLE(BgL_tmpz00_2193); } 
{ /* Ieee/flonum.scm 553 */
 bool_t BgL_test1855z00_2201;
if(
(BgL_xz00_51==0.0))
{ /* Ieee/flonum.scm 550 */
BgL_test1855z00_2201 = 
(BgL_yz00_1110==0.0)
; }  else 
{ /* Ieee/flonum.scm 550 */
BgL_test1855z00_2201 = ((bool_t)0)
; } 
if(BgL_test1855z00_2201)
{ /* Ieee/flonum.scm 554 */
 obj_t BgL_procz00_1113; obj_t BgL_msgz00_1114; obj_t BgL_objz00_1115;
BgL_procz00_1113 = 
string_to_bstring(
BSTRING_TO_STRING(BGl_string1629z00zz__r4_numbers_6_5_flonumz00)); 
BgL_msgz00_1114 = 
string_to_bstring(
BSTRING_TO_STRING(BGl_string1630z00zz__r4_numbers_6_5_flonumz00)); 
BgL_objz00_1115 = BGL_REAL_CNST( BGl_real1631z00zz__r4_numbers_6_5_flonumz00); 
the_failure(BgL_procz00_1113, BgL_msgz00_1114, BgL_objz00_1115); 
return 0.0;}  else 
{ /* Ieee/flonum.scm 553 */
return 
atan2(BgL_xz00_51, BgL_yz00_1110);} } } } } 

}



/* &atanfl */
obj_t BGl_z62atanflz62zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1355, obj_t BgL_xz00_1356, obj_t BgL_yz00_1357)
{
{ /* Ieee/flonum.scm 534 */
{ /* Ieee/flonum.scm 535 */
 double BgL_tmpz00_2211;
{ /* Ieee/flonum.scm 535 */
 double BgL_auxz00_2212;
{ /* Ieee/flonum.scm 535 */
 obj_t BgL_tmpz00_2213;
if(
REALP(BgL_xz00_1356))
{ /* Ieee/flonum.scm 535 */
BgL_tmpz00_2213 = BgL_xz00_1356
; }  else 
{ 
 obj_t BgL_auxz00_2216;
BgL_auxz00_2216 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(24042L), BGl_string1632z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1356); 
FAILURE(BgL_auxz00_2216,BFALSE,BFALSE);} 
BgL_auxz00_2212 = 
REAL_TO_DOUBLE(BgL_tmpz00_2213); } 
BgL_tmpz00_2211 = 
BGl_atanflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2212, BgL_yz00_1357); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2211);} } 

}



/* 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_1358, obj_t BgL_xz00_1359)
{
{ /* Ieee/flonum.scm 543 */
{ /* Ieee/flonum.scm 544 */
 double BgL_tmpz00_2224;
{ /* Ieee/flonum.scm 544 */
 double BgL_auxz00_2225;
{ /* Ieee/flonum.scm 544 */
 obj_t BgL_tmpz00_2226;
if(
REALP(BgL_xz00_1359))
{ /* Ieee/flonum.scm 544 */
BgL_tmpz00_2226 = BgL_xz00_1359
; }  else 
{ 
 obj_t BgL_auxz00_2229;
BgL_auxz00_2229 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(24374L), BGl_string1633z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1359); 
FAILURE(BgL_auxz00_2229,BFALSE,BFALSE);} 
BgL_auxz00_2225 = 
REAL_TO_DOUBLE(BgL_tmpz00_2226); } 
BgL_tmpz00_2224 = 
BGl_atanzd21flzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2225); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2224);} } 

}



/* 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_test1859z00_2236;
if(
(BgL_xz00_54==0.0))
{ /* Ieee/flonum.scm 550 */
BgL_test1859z00_2236 = 
(BgL_yz00_55==0.0)
; }  else 
{ /* Ieee/flonum.scm 550 */
BgL_test1859z00_2236 = ((bool_t)0)
; } 
if(BgL_test1859z00_2236)
{ /* Ieee/flonum.scm 554 */
 obj_t BgL_procz00_1569; obj_t BgL_msgz00_1570; obj_t BgL_objz00_1571;
BgL_procz00_1569 = 
string_to_bstring(
BSTRING_TO_STRING(BGl_string1629z00zz__r4_numbers_6_5_flonumz00)); 
BgL_msgz00_1570 = 
string_to_bstring(
BSTRING_TO_STRING(BGl_string1630z00zz__r4_numbers_6_5_flonumz00)); 
BgL_objz00_1571 = BGL_REAL_CNST( BGl_real1631z00zz__r4_numbers_6_5_flonumz00); 
the_failure(BgL_procz00_1569, BgL_msgz00_1570, BgL_objz00_1571); 
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_1360, obj_t BgL_xz00_1361, obj_t BgL_yz00_1362)
{
{ /* Ieee/flonum.scm 549 */
{ /* Ieee/flonum.scm 550 */
 double BgL_tmpz00_2246;
{ /* Ieee/flonum.scm 550 */
 double BgL_auxz00_2256; double BgL_auxz00_2247;
{ /* Ieee/flonum.scm 550 */
 obj_t BgL_tmpz00_2257;
if(
REALP(BgL_yz00_1362))
{ /* Ieee/flonum.scm 550 */
BgL_tmpz00_2257 = BgL_yz00_1362
; }  else 
{ 
 obj_t BgL_auxz00_2260;
BgL_auxz00_2260 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(24641L), BGl_string1634z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_yz00_1362); 
FAILURE(BgL_auxz00_2260,BFALSE,BFALSE);} 
BgL_auxz00_2256 = 
REAL_TO_DOUBLE(BgL_tmpz00_2257); } 
{ /* Ieee/flonum.scm 550 */
 obj_t BgL_tmpz00_2248;
if(
REALP(BgL_xz00_1361))
{ /* Ieee/flonum.scm 550 */
BgL_tmpz00_2248 = BgL_xz00_1361
; }  else 
{ 
 obj_t BgL_auxz00_2251;
BgL_auxz00_2251 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(24641L), BGl_string1634z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1361); 
FAILURE(BgL_auxz00_2251,BFALSE,BFALSE);} 
BgL_auxz00_2247 = 
REAL_TO_DOUBLE(BgL_tmpz00_2248); } 
BgL_tmpz00_2246 = 
BGl_atanzd22flzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2247, BgL_auxz00_2256); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2246);} } 

}



/* 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_1363, obj_t BgL_xz00_1364, obj_t BgL_yz00_1365)
{
{ /* Ieee/flonum.scm 567 */
{ /* Ieee/flonum.scm 568 */
 double BgL_tmpz00_2268;
{ /* Ieee/flonum.scm 568 */
 double BgL_auxz00_2278; double BgL_auxz00_2269;
{ /* Ieee/flonum.scm 568 */
 obj_t BgL_tmpz00_2279;
if(
REALP(BgL_yz00_1365))
{ /* Ieee/flonum.scm 568 */
BgL_tmpz00_2279 = BgL_yz00_1365
; }  else 
{ 
 obj_t BgL_auxz00_2282;
BgL_auxz00_2282 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(25279L), BGl_string1635z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_yz00_1365); 
FAILURE(BgL_auxz00_2282,BFALSE,BFALSE);} 
BgL_auxz00_2278 = 
REAL_TO_DOUBLE(BgL_tmpz00_2279); } 
{ /* Ieee/flonum.scm 568 */
 obj_t BgL_tmpz00_2270;
if(
REALP(BgL_xz00_1364))
{ /* Ieee/flonum.scm 568 */
BgL_tmpz00_2270 = BgL_xz00_1364
; }  else 
{ 
 obj_t BgL_auxz00_2273;
BgL_auxz00_2273 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(25279L), BGl_string1635z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_1364); 
FAILURE(BgL_auxz00_2273,BFALSE,BFALSE);} 
BgL_auxz00_2269 = 
REAL_TO_DOUBLE(BgL_tmpz00_2270); } 
BgL_tmpz00_2268 = 
BGl_atanzd22flzd2urz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2269, BgL_auxz00_2278); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2268);} } 

}



/* 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_1572; obj_t BgL_msgz00_1573; obj_t BgL_objz00_1574;
BgL_procz00_1572 = 
string_to_bstring(
BSTRING_TO_STRING(BGl_string1636z00zz__r4_numbers_6_5_flonumz00)); 
BgL_msgz00_1573 = 
string_to_bstring(
BSTRING_TO_STRING(BGl_string1630z00zz__r4_numbers_6_5_flonumz00)); 
BgL_objz00_1574 = 
DOUBLE_TO_REAL(BgL_rz00_58); 
BGl_errorz00zz__errorz00(BgL_procz00_1572, BgL_msgz00_1573, BgL_objz00_1574); 
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_1366, obj_t BgL_rz00_1367)
{
{ /* Ieee/flonum.scm 573 */
{ /* Ieee/flonum.scm 574 */
 double BgL_tmpz00_2298;
{ /* Ieee/flonum.scm 574 */
 double BgL_auxz00_2299;
{ /* Ieee/flonum.scm 574 */
 obj_t BgL_tmpz00_2300;
if(
REALP(BgL_rz00_1367))
{ /* Ieee/flonum.scm 574 */
BgL_tmpz00_2300 = BgL_rz00_1367
; }  else 
{ 
 obj_t BgL_auxz00_2303;
BgL_auxz00_2303 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(25545L), BGl_string1637z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1367); 
FAILURE(BgL_auxz00_2303,BFALSE,BFALSE);} 
BgL_auxz00_2299 = 
REAL_TO_DOUBLE(BgL_tmpz00_2300); } 
BgL_tmpz00_2298 = 
BGl_sqrtflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2299); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2298);} } 

}



/* 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_1368, obj_t BgL_rz00_1369)
{
{ /* Ieee/flonum.scm 586 */
{ /* Ieee/flonum.scm 587 */
 double BgL_tmpz00_2311;
{ /* Ieee/flonum.scm 587 */
 double BgL_auxz00_2312;
{ /* Ieee/flonum.scm 587 */
 obj_t BgL_tmpz00_2313;
if(
REALP(BgL_rz00_1369))
{ /* Ieee/flonum.scm 587 */
BgL_tmpz00_2313 = BgL_rz00_1369
; }  else 
{ 
 obj_t BgL_auxz00_2316;
BgL_auxz00_2316 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(26024L), BGl_string1638z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1369); 
FAILURE(BgL_auxz00_2316,BFALSE,BFALSE);} 
BgL_auxz00_2312 = 
REAL_TO_DOUBLE(BgL_tmpz00_2313); } 
BgL_tmpz00_2311 = 
BGl_sqrtflzd2urzd2zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2312); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2311);} } 

}



/* 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_1370, obj_t BgL_r1z00_1371, obj_t BgL_r2z00_1372)
{
{ /* Ieee/flonum.scm 592 */
{ /* Ieee/flonum.scm 593 */
 double BgL_tmpz00_2324;
{ /* Ieee/flonum.scm 593 */
 double BgL_auxz00_2334; double BgL_auxz00_2325;
{ /* Ieee/flonum.scm 593 */
 obj_t BgL_tmpz00_2335;
if(
REALP(BgL_r2z00_1372))
{ /* Ieee/flonum.scm 593 */
BgL_tmpz00_2335 = BgL_r2z00_1372
; }  else 
{ 
 obj_t BgL_auxz00_2338;
BgL_auxz00_2338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(26291L), BGl_string1639z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_1372); 
FAILURE(BgL_auxz00_2338,BFALSE,BFALSE);} 
BgL_auxz00_2334 = 
REAL_TO_DOUBLE(BgL_tmpz00_2335); } 
{ /* Ieee/flonum.scm 593 */
 obj_t BgL_tmpz00_2326;
if(
REALP(BgL_r1z00_1371))
{ /* Ieee/flonum.scm 593 */
BgL_tmpz00_2326 = BgL_r1z00_1371
; }  else 
{ 
 obj_t BgL_auxz00_2329;
BgL_auxz00_2329 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(26291L), BGl_string1639z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_1371); 
FAILURE(BgL_auxz00_2329,BFALSE,BFALSE);} 
BgL_auxz00_2325 = 
REAL_TO_DOUBLE(BgL_tmpz00_2326); } 
BgL_tmpz00_2324 = 
BGl_exptflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2325, BgL_auxz00_2334); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2324);} } 

}



/* 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_1373, obj_t BgL_rz00_1374)
{
{ /* Ieee/flonum.scm 598 */
{ /* Ieee/flonum.scm 599 */
 long BgL_tmpz00_2346;
{ /* Ieee/flonum.scm 599 */
 double BgL_auxz00_2347;
{ /* Ieee/flonum.scm 599 */
 obj_t BgL_tmpz00_2348;
if(
REALP(BgL_rz00_1374))
{ /* Ieee/flonum.scm 599 */
BgL_tmpz00_2348 = BgL_rz00_1374
; }  else 
{ 
 obj_t BgL_auxz00_2351;
BgL_auxz00_2351 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(26560L), BGl_string1640z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1374); 
FAILURE(BgL_auxz00_2351,BFALSE,BFALSE);} 
BgL_auxz00_2347 = 
REAL_TO_DOUBLE(BgL_tmpz00_2348); } 
BgL_tmpz00_2346 = 
BGl_signbitflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2347); } 
return 
BINT(BgL_tmpz00_2346);} } 

}



/* 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_1575;
BgL_arg1070z00_1575 = 
floor(BgL_rz00_63); 
return 
(BgL_rz00_63==BgL_arg1070z00_1575);}  else 
{ /* Ieee/flonum.scm 605 */
return ((bool_t)0);} } 

}



/* &integerfl? */
obj_t BGl_z62integerflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1375, obj_t BgL_rz00_1376)
{
{ /* Ieee/flonum.scm 604 */
{ /* Ieee/flonum.scm 605 */
 bool_t BgL_tmpz00_2362;
{ /* Ieee/flonum.scm 605 */
 double BgL_auxz00_2363;
{ /* Ieee/flonum.scm 605 */
 obj_t BgL_tmpz00_2364;
if(
REALP(BgL_rz00_1376))
{ /* Ieee/flonum.scm 605 */
BgL_tmpz00_2364 = BgL_rz00_1376
; }  else 
{ 
 obj_t BgL_auxz00_2367;
BgL_auxz00_2367 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(26835L), BGl_string1641z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1376); 
FAILURE(BgL_auxz00_2367,BFALSE,BFALSE);} 
BgL_auxz00_2363 = 
REAL_TO_DOUBLE(BgL_tmpz00_2364); } 
BgL_tmpz00_2362 = 
BGl_integerflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2363); } 
return 
BBOOL(BgL_tmpz00_2362);} } 

}



/* 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_1576;
BgL_arg1072z00_1576 = 
(BgL_rz00_64/2.0); 
if(
BGL_IS_FINITE(BgL_arg1072z00_1576))
{ /* Ieee/flonum.scm 605 */
 double BgL_arg1070z00_1577;
BgL_arg1070z00_1577 = 
floor(BgL_arg1072z00_1576); 
return 
(BgL_arg1072z00_1576==BgL_arg1070z00_1577);}  else 
{ /* Ieee/flonum.scm 605 */
return ((bool_t)0);} } } 

}



/* &evenfl? */
obj_t BGl_z62evenflzf3z91zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1377, obj_t BgL_rz00_1378)
{
{ /* Ieee/flonum.scm 610 */
{ /* Ieee/flonum.scm 611 */
 bool_t BgL_tmpz00_2379;
{ /* Ieee/flonum.scm 611 */
 double BgL_auxz00_2380;
{ /* Ieee/flonum.scm 611 */
 obj_t BgL_tmpz00_2381;
if(
REALP(BgL_rz00_1378))
{ /* Ieee/flonum.scm 611 */
BgL_tmpz00_2381 = BgL_rz00_1378
; }  else 
{ 
 obj_t BgL_auxz00_2384;
BgL_auxz00_2384 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(27136L), BGl_string1642z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1378); 
FAILURE(BgL_auxz00_2384,BFALSE,BFALSE);} 
BgL_auxz00_2380 = 
REAL_TO_DOUBLE(BgL_tmpz00_2381); } 
BgL_tmpz00_2379 = 
BGl_evenflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2380); } 
return 
BBOOL(BgL_tmpz00_2379);} } 

}



/* 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_test1875z00_2391;
if(
BGL_IS_FINITE(BgL_rz00_65))
{ /* Ieee/flonum.scm 605 */
 double BgL_arg1070z00_1578;
BgL_arg1070z00_1578 = 
floor(BgL_rz00_65); 
BgL_test1875z00_2391 = 
(BgL_rz00_65==BgL_arg1070z00_1578); }  else 
{ /* Ieee/flonum.scm 605 */
BgL_test1875z00_2391 = ((bool_t)0)
; } 
if(BgL_test1875z00_2391)
{ /* Ieee/flonum.scm 618 */
 bool_t BgL_test1877z00_2396;
{ /* Ieee/flonum.scm 611 */
 double BgL_arg1072z00_1579;
BgL_arg1072z00_1579 = 
(BgL_rz00_65/2.0); 
if(
BGL_IS_FINITE(BgL_arg1072z00_1579))
{ /* Ieee/flonum.scm 605 */
 double BgL_arg1070z00_1580;
BgL_arg1070z00_1580 = 
floor(BgL_arg1072z00_1579); 
BgL_test1877z00_2396 = 
(BgL_arg1072z00_1579==BgL_arg1070z00_1580); }  else 
{ /* Ieee/flonum.scm 605 */
BgL_test1877z00_2396 = ((bool_t)0)
; } } 
if(BgL_test1877z00_2396)
{ /* 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_1379, obj_t BgL_rz00_1380)
{
{ /* Ieee/flonum.scm 616 */
{ /* Ieee/flonum.scm 617 */
 bool_t BgL_tmpz00_2402;
{ /* Ieee/flonum.scm 617 */
 double BgL_auxz00_2403;
{ /* Ieee/flonum.scm 617 */
 obj_t BgL_tmpz00_2404;
if(
REALP(BgL_rz00_1380))
{ /* Ieee/flonum.scm 617 */
BgL_tmpz00_2404 = BgL_rz00_1380
; }  else 
{ 
 obj_t BgL_auxz00_2407;
BgL_auxz00_2407 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(27407L), BGl_string1643z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1380); 
FAILURE(BgL_auxz00_2407,BFALSE,BFALSE);} 
BgL_auxz00_2403 = 
REAL_TO_DOUBLE(BgL_tmpz00_2404); } 
BgL_tmpz00_2402 = 
BGl_oddflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2403); } 
return 
BBOOL(BgL_tmpz00_2402);} } 

}



/* 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_1381, obj_t BgL_rz00_1382)
{
{ /* Ieee/flonum.scm 623 */
{ /* Ieee/flonum.scm 624 */
 bool_t BgL_tmpz00_2415;
{ /* Ieee/flonum.scm 624 */
 double BgL_auxz00_2416;
{ /* Ieee/flonum.scm 624 */
 obj_t BgL_tmpz00_2417;
if(
REALP(BgL_rz00_1382))
{ /* Ieee/flonum.scm 624 */
BgL_tmpz00_2417 = BgL_rz00_1382
; }  else 
{ 
 obj_t BgL_auxz00_2420;
BgL_auxz00_2420 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(27698L), BGl_string1644z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1382); 
FAILURE(BgL_auxz00_2420,BFALSE,BFALSE);} 
BgL_auxz00_2416 = 
REAL_TO_DOUBLE(BgL_tmpz00_2417); } 
BgL_tmpz00_2415 = 
BGl_finiteflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2416); } 
return 
BBOOL(BgL_tmpz00_2415);} } 

}



/* 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_1383, obj_t BgL_rz00_1384)
{
{ /* Ieee/flonum.scm 629 */
{ /* Ieee/flonum.scm 630 */
 bool_t BgL_tmpz00_2428;
{ /* Ieee/flonum.scm 630 */
 double BgL_auxz00_2429;
{ /* Ieee/flonum.scm 630 */
 obj_t BgL_tmpz00_2430;
if(
REALP(BgL_rz00_1384))
{ /* Ieee/flonum.scm 630 */
BgL_tmpz00_2430 = BgL_rz00_1384
; }  else 
{ 
 obj_t BgL_auxz00_2433;
BgL_auxz00_2433 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(27970L), BGl_string1645z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1384); 
FAILURE(BgL_auxz00_2433,BFALSE,BFALSE);} 
BgL_auxz00_2429 = 
REAL_TO_DOUBLE(BgL_tmpz00_2430); } 
BgL_tmpz00_2428 = 
BGl_infiniteflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2429); } 
return 
BBOOL(BgL_tmpz00_2428);} } 

}



/* 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_1385, obj_t BgL_rz00_1386)
{
{ /* Ieee/flonum.scm 635 */
{ /* Ieee/flonum.scm 636 */
 bool_t BgL_tmpz00_2441;
{ /* Ieee/flonum.scm 636 */
 double BgL_auxz00_2442;
{ /* Ieee/flonum.scm 636 */
 obj_t BgL_tmpz00_2443;
if(
REALP(BgL_rz00_1386))
{ /* Ieee/flonum.scm 636 */
BgL_tmpz00_2443 = BgL_rz00_1386
; }  else 
{ 
 obj_t BgL_auxz00_2446;
BgL_auxz00_2446 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(28234L), BGl_string1646z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_1386); 
FAILURE(BgL_auxz00_2446,BFALSE,BFALSE);} 
BgL_auxz00_2442 = 
REAL_TO_DOUBLE(BgL_tmpz00_2443); } 
BgL_tmpz00_2441 = 
BGl_nanflzf3zf3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2442); } 
return 
BBOOL(BgL_tmpz00_2441);} } 

}



/* 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_test1883z00_2453;
{ /* Ieee/flonum.scm 643 */
 long BgL_l1z00_1581;
BgL_l1z00_1581 = 
STRING_LENGTH(BgL_stringz00_69); 
if(
(BgL_l1z00_1581==6L))
{ /* Ieee/flonum.scm 643 */
 int BgL_arg1421z00_1582;
{ /* Ieee/flonum.scm 643 */
 char * BgL_auxz00_2459; char * BgL_tmpz00_2457;
BgL_auxz00_2459 = 
BSTRING_TO_STRING(BGl_string1647z00zz__r4_numbers_6_5_flonumz00); 
BgL_tmpz00_2457 = 
BSTRING_TO_STRING(BgL_stringz00_69); 
BgL_arg1421z00_1582 = 
memcmp(BgL_tmpz00_2457, BgL_auxz00_2459, BgL_l1z00_1581); } 
BgL_test1883z00_2453 = 
(
(long)(BgL_arg1421z00_1582)==0L); }  else 
{ /* Ieee/flonum.scm 643 */
BgL_test1883z00_2453 = ((bool_t)0)
; } } 
if(BgL_test1883z00_2453)
{ /* Ieee/flonum.scm 643 */
return BGL_NAN;}  else 
{ /* Ieee/flonum.scm 645 */
 bool_t BgL_test1885z00_2464;
{ /* Ieee/flonum.scm 645 */
 long BgL_l1z00_1583;
BgL_l1z00_1583 = 
STRING_LENGTH(BgL_stringz00_69); 
if(
(BgL_l1z00_1583==6L))
{ /* Ieee/flonum.scm 645 */
 int BgL_arg1421z00_1584;
{ /* Ieee/flonum.scm 645 */
 char * BgL_auxz00_2470; char * BgL_tmpz00_2468;
BgL_auxz00_2470 = 
BSTRING_TO_STRING(BGl_string1648z00zz__r4_numbers_6_5_flonumz00); 
BgL_tmpz00_2468 = 
BSTRING_TO_STRING(BgL_stringz00_69); 
BgL_arg1421z00_1584 = 
memcmp(BgL_tmpz00_2468, BgL_auxz00_2470, BgL_l1z00_1583); } 
BgL_test1885z00_2464 = 
(
(long)(BgL_arg1421z00_1584)==0L); }  else 
{ /* Ieee/flonum.scm 645 */
BgL_test1885z00_2464 = ((bool_t)0)
; } } 
if(BgL_test1885z00_2464)
{ /* Ieee/flonum.scm 645 */
return BGL_INFINITY;}  else 
{ /* Ieee/flonum.scm 647 */
 bool_t BgL_test1887z00_2475;
{ /* Ieee/flonum.scm 647 */
 long BgL_l1z00_1585;
BgL_l1z00_1585 = 
STRING_LENGTH(BgL_stringz00_69); 
if(
(BgL_l1z00_1585==6L))
{ /* Ieee/flonum.scm 647 */
 int BgL_arg1421z00_1586;
{ /* Ieee/flonum.scm 647 */
 char * BgL_auxz00_2481; char * BgL_tmpz00_2479;
BgL_auxz00_2481 = 
BSTRING_TO_STRING(BGl_string1649z00zz__r4_numbers_6_5_flonumz00); 
BgL_tmpz00_2479 = 
BSTRING_TO_STRING(BgL_stringz00_69); 
BgL_arg1421z00_1586 = 
memcmp(BgL_tmpz00_2479, BgL_auxz00_2481, BgL_l1z00_1585); } 
BgL_test1887z00_2475 = 
(
(long)(BgL_arg1421z00_1586)==0L); }  else 
{ /* Ieee/flonum.scm 647 */
BgL_test1887z00_2475 = ((bool_t)0)
; } } 
if(BgL_test1887z00_2475)
{ /* Ieee/flonum.scm 647 */
return (-BGL_INFINITY);}  else 
{ /* Ieee/flonum.scm 650 */
 char * BgL_tmpz00_2486;
BgL_tmpz00_2486 = 
BSTRING_TO_STRING(BgL_stringz00_69); 
return 
STRTOD(BgL_tmpz00_2486);} } } } } 

}



/* &string->real */
obj_t BGl_z62stringzd2ze3realz53zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1387, obj_t BgL_stringz00_1388)
{
{ /* Ieee/flonum.scm 641 */
{ /* Ieee/flonum.scm 643 */
 double BgL_tmpz00_2489;
{ /* Ieee/flonum.scm 643 */
 obj_t BgL_auxz00_2490;
if(
STRINGP(BgL_stringz00_1388))
{ /* Ieee/flonum.scm 643 */
BgL_auxz00_2490 = BgL_stringz00_1388
; }  else 
{ 
 obj_t BgL_auxz00_2493;
BgL_auxz00_2493 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(28521L), BGl_string1650z00zz__r4_numbers_6_5_flonumz00, BGl_string1651z00zz__r4_numbers_6_5_flonumz00, BgL_stringz00_1388); 
FAILURE(BgL_auxz00_2493,BFALSE,BFALSE);} 
BgL_tmpz00_2489 = 
BGl_stringzd2ze3realz31zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2490); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2489);} } 

}



/* 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_2499;
BgL_tmpz00_2499 = 
bgl_ieee_string_to_double(BgL_stringz00_70); 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2499);} } 

}



/* &ieee-string->real */
obj_t BGl_z62ieeezd2stringzd2ze3realz81zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_1389, obj_t BgL_stringz00_1390)
{
{ /* Ieee/flonum.scm 655 */
{ /* Ieee/flonum.scm 656 */
 obj_t BgL_auxz00_2502;
if(
STRINGP(BgL_stringz00_1390))
{ /* Ieee/flonum.scm 656 */
BgL_auxz00_2502 = BgL_stringz00_1390
; }  else 
{ 
 obj_t BgL_auxz00_2505;
BgL_auxz00_2505 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(28969L), BGl_string1652z00zz__r4_numbers_6_5_flonumz00, BGl_string1651z00zz__r4_numbers_6_5_flonumz00, BgL_stringz00_1390); 
FAILURE(BgL_auxz00_2505,BFALSE,BFALSE);} 
return 
BGl_ieeezd2stringzd2ze3realze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2502);} } 

}



/* 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_1391, obj_t BgL_realz00_1392)
{
{ /* Ieee/flonum.scm 661 */
{ /* Ieee/flonum.scm 662 */
 obj_t BgL_auxz00_2512;
if(
REALP(BgL_realz00_1392))
{ /* Ieee/flonum.scm 662 */
BgL_auxz00_2512 = BgL_realz00_1392
; }  else 
{ 
 obj_t BgL_auxz00_2515;
BgL_auxz00_2515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(29266L), BGl_string1653z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_realz00_1392); 
FAILURE(BgL_auxz00_2515,BFALSE,BFALSE);} 
return 
BGl_realzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2512);} } 

}



/* 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_1393, obj_t BgL_stringz00_1394)
{
{ /* Ieee/flonum.scm 667 */
{ /* Ieee/flonum.scm 668 */
 double BgL_tmpz00_2521;
{ /* Ieee/flonum.scm 668 */
 obj_t BgL_auxz00_2522;
if(
STRINGP(BgL_stringz00_1394))
{ /* Ieee/flonum.scm 668 */
BgL_auxz00_2522 = BgL_stringz00_1394
; }  else 
{ 
 obj_t BgL_auxz00_2525;
BgL_auxz00_2525 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(29565L), BGl_string1654z00zz__r4_numbers_6_5_flonumz00, BGl_string1651z00zz__r4_numbers_6_5_flonumz00, BgL_stringz00_1394); 
FAILURE(BgL_auxz00_2525,BFALSE,BFALSE);} 
BgL_tmpz00_2521 = 
BGl_ieeezd2stringzd2ze3doubleze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2522); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2521);} } 

}



/* 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_1395, obj_t BgL_doublez00_1396)
{
{ /* Ieee/flonum.scm 673 */
{ /* Ieee/flonum.scm 674 */
 double BgL_auxz00_2532;
{ /* Ieee/flonum.scm 674 */
 obj_t BgL_tmpz00_2533;
if(
REALP(BgL_doublez00_1396))
{ /* Ieee/flonum.scm 674 */
BgL_tmpz00_2533 = BgL_doublez00_1396
; }  else 
{ 
 obj_t BgL_auxz00_2536;
BgL_auxz00_2536 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(29866L), BGl_string1655z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_doublez00_1396); 
FAILURE(BgL_auxz00_2536,BFALSE,BFALSE);} 
BgL_auxz00_2532 = 
REAL_TO_DOUBLE(BgL_tmpz00_2533); } 
return 
BGl_doublezd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2532);} } 

}



/* 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_1397, obj_t BgL_stringz00_1398)
{
{ /* Ieee/flonum.scm 679 */
{ /* Ieee/flonum.scm 680 */
 float BgL_tmpz00_2543;
{ /* Ieee/flonum.scm 680 */
 obj_t BgL_auxz00_2544;
if(
STRINGP(BgL_stringz00_1398))
{ /* Ieee/flonum.scm 680 */
BgL_auxz00_2544 = BgL_stringz00_1398
; }  else 
{ 
 obj_t BgL_auxz00_2547;
BgL_auxz00_2547 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(30166L), BGl_string1656z00zz__r4_numbers_6_5_flonumz00, BGl_string1651z00zz__r4_numbers_6_5_flonumz00, BgL_stringz00_1398); 
FAILURE(BgL_auxz00_2547,BFALSE,BFALSE);} 
BgL_tmpz00_2543 = 
BGl_ieeezd2stringzd2ze3floatze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2544); } 
return 
FLOAT_TO_REAL(BgL_tmpz00_2543);} } 

}



/* 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_1399, obj_t BgL_floatz00_1400)
{
{ /* Ieee/flonum.scm 685 */
{ /* Ieee/flonum.scm 686 */
 float BgL_auxz00_2554;
{ /* Ieee/flonum.scm 686 */
 obj_t BgL_tmpz00_2555;
if(
REALP(BgL_floatz00_1400))
{ /* Ieee/flonum.scm 686 */
BgL_tmpz00_2555 = BgL_floatz00_1400
; }  else 
{ 
 obj_t BgL_auxz00_2558;
BgL_auxz00_2558 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(30464L), BGl_string1657z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_floatz00_1400); 
FAILURE(BgL_auxz00_2558,BFALSE,BFALSE);} 
BgL_auxz00_2554 = 
REAL_TO_FLOAT(BgL_tmpz00_2555); } 
return 
BGl_floatzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2554);} } 

}



/* 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_1401, obj_t BgL_nz00_1402)
{
{ /* Ieee/flonum.scm 691 */
{ /* Ieee/flonum.scm 692 */
 BGL_LONGLONG_T BgL_tmpz00_2565;
{ /* Ieee/flonum.scm 692 */
 double BgL_auxz00_2566;
{ /* Ieee/flonum.scm 692 */
 obj_t BgL_tmpz00_2567;
if(
REALP(BgL_nz00_1402))
{ /* Ieee/flonum.scm 692 */
BgL_tmpz00_2567 = BgL_nz00_1402
; }  else 
{ 
 obj_t BgL_auxz00_2570;
BgL_auxz00_2570 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(30772L), BGl_string1658z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_nz00_1402); 
FAILURE(BgL_auxz00_2570,BFALSE,BFALSE);} 
BgL_auxz00_2566 = 
REAL_TO_DOUBLE(BgL_tmpz00_2567); } 
BgL_tmpz00_2565 = 
BGl_doublezd2ze3llongzd2bitsze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2566); } 
return 
make_bllong(BgL_tmpz00_2565);} } 

}



/* 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_1403, obj_t BgL_nz00_1404)
{
{ /* Ieee/flonum.scm 697 */
{ /* Ieee/flonum.scm 698 */
 double BgL_tmpz00_2578;
{ /* Ieee/flonum.scm 698 */
 BGL_LONGLONG_T BgL_auxz00_2579;
{ /* Ieee/flonum.scm 698 */
 obj_t BgL_tmpz00_2580;
if(
LLONGP(BgL_nz00_1404))
{ /* Ieee/flonum.scm 698 */
BgL_tmpz00_2580 = BgL_nz00_1404
; }  else 
{ 
 obj_t BgL_auxz00_2583;
BgL_auxz00_2583 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(31076L), BGl_string1659z00zz__r4_numbers_6_5_flonumz00, BGl_string1660z00zz__r4_numbers_6_5_flonumz00, BgL_nz00_1404); 
FAILURE(BgL_auxz00_2583,BFALSE,BFALSE);} 
BgL_auxz00_2579 = 
BLLONG_TO_LLONG(BgL_tmpz00_2580); } 
BgL_tmpz00_2578 = 
BGl_llongzd2bitszd2ze3doubleze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2579); } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2578);} } 

}



/* 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_1405, obj_t BgL_nz00_1406)
{
{ /* Ieee/flonum.scm 703 */
{ /* Ieee/flonum.scm 704 */
 int BgL_tmpz00_2591;
{ /* Ieee/flonum.scm 704 */
 float BgL_auxz00_2592;
{ /* Ieee/flonum.scm 704 */
 obj_t BgL_tmpz00_2593;
if(
REALP(BgL_nz00_1406))
{ /* Ieee/flonum.scm 704 */
BgL_tmpz00_2593 = BgL_nz00_1406
; }  else 
{ 
 obj_t BgL_auxz00_2596;
BgL_auxz00_2596 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(31374L), BGl_string1661z00zz__r4_numbers_6_5_flonumz00, BGl_string1595z00zz__r4_numbers_6_5_flonumz00, BgL_nz00_1406); 
FAILURE(BgL_auxz00_2596,BFALSE,BFALSE);} 
BgL_auxz00_2592 = 
REAL_TO_FLOAT(BgL_tmpz00_2593); } 
BgL_tmpz00_2591 = 
BGl_floatzd2ze3intzd2bitsze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2592); } 
return 
BINT(BgL_tmpz00_2591);} } 

}



/* 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_1407, obj_t BgL_nz00_1408)
{
{ /* Ieee/flonum.scm 709 */
{ /* Ieee/flonum.scm 710 */
 float BgL_tmpz00_2604;
{ /* Ieee/flonum.scm 710 */
 int BgL_auxz00_2605;
{ /* Ieee/flonum.scm 710 */
 obj_t BgL_tmpz00_2606;
if(
INTEGERP(BgL_nz00_1408))
{ /* Ieee/flonum.scm 710 */
BgL_tmpz00_2606 = BgL_nz00_1408
; }  else 
{ 
 obj_t BgL_auxz00_2609;
BgL_auxz00_2609 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1593z00zz__r4_numbers_6_5_flonumz00, 
BINT(31669L), BGl_string1662z00zz__r4_numbers_6_5_flonumz00, BGl_string1663z00zz__r4_numbers_6_5_flonumz00, BgL_nz00_1408); 
FAILURE(BgL_auxz00_2609,BFALSE,BFALSE);} 
BgL_auxz00_2605 = 
CINT(BgL_tmpz00_2606); } 
BgL_tmpz00_2604 = 
BGl_intzd2bitszd2ze3floatze3zz__r4_numbers_6_5_flonumz00(BgL_auxz00_2605); } 
return 
FLOAT_TO_REAL(BgL_tmpz00_2604);} } 

}



/* 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_1409)
{
{ /* Ieee/flonum.scm 715 */
{ /* Ieee/flonum.scm 716 */
 double BgL_tmpz00_2617;
BgL_tmpz00_2617 = 
BGl_randomflz00zz__r4_numbers_6_5_flonumz00(); 
return 
DOUBLE_TO_REAL(BgL_tmpz00_2617);} } 

}



/* 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_string1664z00zz__r4_numbers_6_5_flonumz00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string1664z00zz__r4_numbers_6_5_flonumz00)); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L, 
BSTRING_TO_STRING(BGl_string1664z00zz__r4_numbers_6_5_flonumz00)); 
return 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(268155843L, 
BSTRING_TO_STRING(BGl_string1664z00zz__r4_numbers_6_5_flonumz00));} 

}

#ifdef __cplusplus
}
#endif
