/*===========================================================================*/
/*   (Ieee/flonum.scm)                                                       */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c Ieee/flonum.scm -indent -o objs/obj_s/Ieee/flonum.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

#include <bigloo.h>
#include <signal.h>

BGL_EXPORTED_DECL double BGl_sqrtflzd2urzd2zz__r4_numbers_6_5_flonumz00(double);
BGL_EXPORTED_DECL obj_t BGl_floatzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(float);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl__ieeezd2stringzd2ze3double1896ze3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_atanflz00zz__r4_numbers_6_5_flonumz00(double, obj_t);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t the_failure(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_doublezd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(double);
BGL_EXPORTED_DECL bool_t BGl_realzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t);
BGL_EXPORTED_DECL double BGl_remainderflz00zz__r4_numbers_6_5_flonumz00(double, double);
static obj_t BGl__roundfl1856z00zz__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__exptfl1886z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_minzd22flzd2zz__r4_numbers_6_5_flonumz00(double, double);
extern obj_t bgl_double_to_ieee_string(double);
BGL_EXPORTED_DECL double BGl_maxzd22flzd2zz__r4_numbers_6_5_flonumz00(double, double);
static obj_t BGl__absfl1848z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_sinflz00zz__r4_numbers_6_5_flonumz00(double);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3flz10zz__r4_numbers_6_5_flonumz00(double, double);
BGL_EXPORTED_DECL double BGl_asinflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl__atanzd22flzd2ur1880z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2893z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2891z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2890z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2889z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2888z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2887z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2886z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_cnstzd2initzd2zz__r4_numbers_6_5_flonumz00();
static obj_t BGl_symbol2885z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2884z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_negativeflzf3zf3zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl_symbol2883z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2882z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
BGL_EXPORTED_DECL double BGl_atanzd22flzd2zz__r4_numbers_6_5_flonumz00(double, double);
static obj_t BGl_symbol2880z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2879z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl__stringzd2ze3real1888z31zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl__za7eroflzf31824z54zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_zd2flzd2zz__r4_numbers_6_5_flonumz00(double, double);
static obj_t BGl_symbol2877z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2876z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2874z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2873z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2872z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2871z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2870z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2869z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
extern double bgl_ieee_string_to_double(obj_t);
static obj_t BGl_symbol2868z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
extern obj_t real_to_string(double);
extern obj_t string_to_symbol(char *);
static obj_t BGl_symbol2866z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2865z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2864z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
BGL_EXPORTED_DECL double BGl_za2flza2zz__r4_numbers_6_5_flonumz00(double, double);
BGL_EXPORTED_DECL double BGl_floorflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl_symbol2863z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2862z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2861z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_zd3flzd3zz__r4_numbers_6_5_flonumz00(double, double);
static obj_t BGl_symbol2860z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2859z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl__ze3zd3fl1822z30zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2855z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
BGL_EXPORTED_DECL double BGl_sqrtflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl_symbol2854z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2853z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2852z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2851z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2850z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2849z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2848z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2847z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2846z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2845z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl__zc3zd3fl1820z10zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2844z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl__ieeezd2stringzd2ze3float1900ze3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_minflz00zz__r4_numbers_6_5_flonumz00(double, obj_t);
static obj_t BGl_symbol2843z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl__flonumzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl_symbol2842z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2841z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2840z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2839z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2838z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2837z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
BGL_EXPORTED_DECL double BGl_negflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl_symbol2836z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2835z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2834z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2833z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2832z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2831z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2830z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2829z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl__tanfl1868z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl__cosfl1866z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl_symbol2828z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2827z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2826z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2825z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2824z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2823z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2822z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl__logfl1862z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl_symbol2820z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2819z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2818z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2817z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
BGL_EXPORTED_DECL double BGl_truncateflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl_symbol2816z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2815z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_flonumzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t);
BGL_EXPORTED_DECL double BGl_absflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl_symbol2814z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2813z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2812z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_flonumz00();
static obj_t BGl_symbol2811z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl__asinfl1870z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl_symbol2810z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2809z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2799z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2808z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2798z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl__floatzd2ze3ieeezd2string1902ze3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl__minfl1846z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2807z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2797z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2806z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2796z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2805z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl__expfl1860z00zz__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_symbol2804z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2803z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2793z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2802z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2792z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2801z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2791z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl_symbol2800z00zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
static obj_t BGl__realzd2ze3ieeezd2string1894ze3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__remainderfl1858z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl__ieeezd2stringzd2ze3real1892ze3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_positiveflzf3zf3zz__r4_numbers_6_5_flonumz00(double);
BGL_EXPORTED_DECL double BGl_logflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl__floorfl1850z00zz__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 bool_t BGl_ze3flze3zz__r4_numbers_6_5_flonumz00(double, double);
BGL_EXPORTED_DECL bool_t BGl_za7eroflzf3z54zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl__zf2fl1836zf2zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
static obj_t BGl__atanzd21fl1876zd2zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_expflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl__ze3fl1818ze3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl__atanzd22fl1878zd2zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl__negfl1838z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_cosflz00zz__r4_numbers_6_5_flonumz00(double);
BGL_EXPORTED_DECL double BGl_maxflz00zz__r4_numbers_6_5_flonumz00(double, obj_t);
static obj_t BGl__realzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl__zd2fl1832zd2zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl__zd3fl1814zd3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl__minzd22fl1844zd2zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_acosflz00zz__r4_numbers_6_5_flonumz00(double);
BGL_EXPORTED_DECL double BGl_exptflz00zz__r4_numbers_6_5_flonumz00(double, double);
static obj_t BGl__ceilingfl1852z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_stringzd2ze3realz31zz__r4_numbers_6_5_flonumz00(char *);
static obj_t BGl__doublezd2ze3ieeezd2string1898ze3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl__zc3fl1816zc3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl__negativeflzf31828zf3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_ieeezd2stringzd2ze3doubleze3zz__r4_numbers_6_5_flonumz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3flz30zz__r4_numbers_6_5_flonumz00(double, double);
BGL_EXPORTED_DECL float BGl_ieeezd2stringzd2ze3floatze3zz__r4_numbers_6_5_flonumz00(obj_t);
static obj_t BGl__realzd2ze3string1890z31zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl__zb2fl1830zb2zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_zf2flzf2zz__r4_numbers_6_5_flonumz00(double, double);
static obj_t BGl__maxfl1840z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ieeezd2stringzd2ze3realze3zz__r4_numbers_6_5_flonumz00(obj_t);
static obj_t BGl__sqrtflzd2ur1884zd2zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_ceilingflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl__sinfl1864z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_realzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(obj_t);
BGL_EXPORTED_DECL double BGl_atanzd21flzd2zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl__sqrtfl1882z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_realzd2ze3stringz31zz__r4_numbers_6_5_flonumz00(obj_t);
static obj_t BGl__za2fl1834za2zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl__positiveflzf31826zf3zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl__truncatefl1854z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl__atanfl1874z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
static obj_t BGl__acosfl1872z00zz__r4_numbers_6_5_flonumz00(obj_t, obj_t);
static obj_t BGl__maxzd22fl1842zd2zz__r4_numbers_6_5_flonumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_tanflz00zz__r4_numbers_6_5_flonumz00(double);
BGL_EXPORTED_DECL bool_t BGl_zc3flzc3zz__r4_numbers_6_5_flonumz00(double, double);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_remainderflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__remainderfl1858za700za7za7__r4_numbers_6_5_flonumza7002941z00, BGl__remainderfl1858z00zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_zd2flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl__za7d2fl1832za7d2za7za7__r4_numbers_6_5_flonumza7002942za7, BGl__zd2fl1832zd2zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3flzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl__za7e3fl1818za7e3za7za7__r4_numbers_6_5_flonumza7002943za7, BGl__ze3fl1818ze3zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_sinflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__sinfl1864za700za7za7__r4_numbers_6_5_flonumza7002944z00, BGl__sinfl1864z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_flonumzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl__flonumza7f3za7f3za7za7__r4_numbers_6_5_flonumza7002945za7, BGl__flonumzf3zf3zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_exptflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__exptfl1886za700za7za7__r4_numbers_6_5_flonumza7002946z00, BGl__exptfl1886z00zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_REAL( BGl_real2858z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_real2858za700za7za7__r4_numbers_6_5_flonumza7002947z00, 0.0 );
DEFINE_EXPORT_PROCEDURE( BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00, BgL_bgl__za7d3fl1814za7d3za7za7__r4_numbers_6_5_flonumza7002948za7, BGl__zd3fl1814zd3zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_atanzd21flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl__atanza7d21fl1876za7d2za7za7__r4_numbers_6_5_flonumza7002949za7, BGl__atanzd21fl1876zd2zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zb2flzd2envz60zz__r4_numbers_6_5_flonumz00, BgL_bgl__za7b2fl1830za7b2za7za7__r4_numbers_6_5_flonumza7002950za7, BGl__zb2fl1830zb2zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3flzd2envz11zz__r4_numbers_6_5_flonumz00, BgL_bgl__za7c3fl1816za7c3za7za7__r4_numbers_6_5_flonumza7002951za7, BGl__zc3fl1816zc3zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_maxflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__maxfl1840za700za7za7__r4_numbers_6_5_flonumza7002952z00, va_generic_entry, BGl__maxfl1840z00zz__r4_numbers_6_5_flonumz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_ieeezd2stringzd2ze3realzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl__ieeeza7d2stringza7d2za7e3real1892za7e3za7za7__r4_numbers_6_5_flonumza7002953za7, BGl__ieeezd2stringzd2ze3real1892ze3zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_atanzd22flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl__atanza7d22fl1878za7d2za7za7__r4_numbers_6_5_flonumza7002954za7, BGl__atanzd22fl1878zd2zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_atanflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__atanfl1874za700za7za7__r4_numbers_6_5_flonumza7002955z00, va_generic_entry, BGl__atanfl1874z00zz__r4_numbers_6_5_flonumz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_realzd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl__realza7d2za7e3ieeeza7d2string1894za7e3za7za7__r4_numbers_6_5_flonumza7002956za7, BGl__realzd2ze3ieeezd2string1894ze3zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_za2flzd2envz70zz__r4_numbers_6_5_flonumz00, BgL_bgl__za7a2fl1834za7a2za7za7__r4_numbers_6_5_flonumza7002957za7, BGl__za2fl1834za2zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_realzd2ze3stringzd2envze3zz__r4_numbers_6_5_flonumz00, BgL_bgl__realza7d2za7e3string1890za731za7za7__r4_numbers_6_5_flonumza7002958z00, BGl__realzd2ze3string1890z31zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_roundflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__roundfl1856za700za7za7__r4_numbers_6_5_flonumza7002959z00, BGl__roundfl1856z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_STRING( BGl_string2892z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string2892za700za7za7__r4_numbers_6_5_flonumza7002960z00, "float", 5 );
DEFINE_EXPORT_PROCEDURE( BGl_negflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__negfl1838za700za7za7__r4_numbers_6_5_flonumza7002961z00, BGl__negfl1838z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_realzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl__realza7f3za7f3za7za7__r4_numbers_6_5_flonumza7002962za7, BGl__realzf3zf3zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_STRING( BGl_string2881z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string2881za700za7za7__r4_numbers_6_5_flonumza7002963z00, "bstring", 7 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze3realzd2envze3zz__r4_numbers_6_5_flonumz00, BgL_bgl__stringza7d2za7e3real1888za731za7za7__r4_numbers_6_5_flonumza7002964z00, BGl__stringzd2ze3real1888z31zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_STRING( BGl_string2878z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string2878za700za7za7__r4_numbers_6_5_flonumza7002965z00, "real", 4 );
DEFINE_STRING( BGl_string2875z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string2875za700za7za7__r4_numbers_6_5_flonumza7002966z00, "string", 6 );
DEFINE_STRING( BGl_string2867z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string2867za700za7za7__r4_numbers_6_5_flonumza7002967z00, "sqrtfl", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_ieeezd2stringzd2ze3floatzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl__ieeeza7d2stringza7d2za7e3float1900za7e3za7za7__r4_numbers_6_5_flonumza7002968za7, BGl__ieeezd2stringzd2ze3float1900ze3zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3zd3flzd2envze2zz__r4_numbers_6_5_flonumz00, BgL_bgl__za7e3za7d3fl1822za730za7za7__r4_numbers_6_5_flonumza7002969z00, BGl__ze3zd3fl1822z30zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_atanzd22flzd2urzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__atanza7d22flza7d2ur1880za700za7za7__r4_numbers_6_5_flonumza7002970z00, BGl__atanzd22flzd2ur1880z00zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_STRING( BGl_string2857z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string2857za700za7za7__r4_numbers_6_5_flonumza7002971z00, "Domain error", 12 );
DEFINE_STRING( BGl_string2856z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string2856za700za7za7__r4_numbers_6_5_flonumza7002972z00, "atanfl", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_floatzd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl__floatza7d2za7e3ieeeza7d2string1902za7e3za7za7__r4_numbers_6_5_flonumza7002973za7, BGl__floatzd2ze3ieeezd2string1902ze3zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ceilingflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__ceilingfl1852za700za7za7__r4_numbers_6_5_flonumza7002974z00, BGl__ceilingfl1852z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ieeezd2stringzd2ze3doublezd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl__ieeeza7d2stringza7d2za7e3double1896za7e3za7za7__r4_numbers_6_5_flonumza7002975za7, BGl__ieeezd2stringzd2ze3double1896ze3zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3zd3flzd2envzc2zz__r4_numbers_6_5_flonumz00, BgL_bgl__za7c3za7d3fl1820za710za7za7__r4_numbers_6_5_flonumza7002976z00, BGl__zc3zd3fl1820z10zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_positiveflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl__positiveflza7f31826za7f3za7za7__r4_numbers_6_5_flonumza7002977za7, BGl__positiveflzf31826zf3zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_expflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__expfl1860za700za7za7__r4_numbers_6_5_flonumza7002978z00, BGl__expfl1860z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_logflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__logfl1862za700za7za7__r4_numbers_6_5_flonumza7002979z00, BGl__logfl1862z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_tanflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__tanfl1868za700za7za7__r4_numbers_6_5_flonumza7002980z00, BGl__tanfl1868z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_minflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__minfl1846za700za7za7__r4_numbers_6_5_flonumza7002981z00, va_generic_entry, BGl__minfl1846z00zz__r4_numbers_6_5_flonumz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_cosflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__cosfl1866za700za7za7__r4_numbers_6_5_flonumza7002982z00, BGl__cosfl1866z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_sqrtflzd2urzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl__sqrtflza7d2ur1884za7d2za7za7__r4_numbers_6_5_flonumza7002983za7, BGl__sqrtflzd2ur1884zd2zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_STRING( BGl_string2821z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string2821za700za7za7__r4_numbers_6_5_flonumza7002984z00, "pair", 4 );
DEFINE_STRING( BGl_string2795z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string2795za700za7za7__r4_numbers_6_5_flonumza7002985z00, "/tmp/bigloo/runtime/./Ieee/flonum.scm", 37 );
DEFINE_STRING( BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_bgl_string2794za700za7za7__r4_numbers_6_5_flonumza7002986z00, "double", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_minzd22flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl__minza7d22fl1844za7d2za7za7__r4_numbers_6_5_flonumza7002987za7, BGl__minzd22fl1844zd2zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_za7eroflzf3zd2envz86zz__r4_numbers_6_5_flonumz00, BgL_bgl__za7a7eroflza7f31824za754za7za7__r4_numbers_6_5_flonumza7002988z00, BGl__za7eroflzf31824z54zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_negativeflzf3zd2envz21zz__r4_numbers_6_5_flonumz00, BgL_bgl__negativeflza7f31828za7f3za7za7__r4_numbers_6_5_flonumza7002989za7, BGl__negativeflzf31828zf3zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_doublezd2ze3ieeezd2stringzd2envz31zz__r4_numbers_6_5_flonumz00, BgL_bgl__doubleza7d2za7e3ieeeza7d2string1898za7e3za7za7__r4_numbers_6_5_flonumza7002990za7, BGl__doublezd2ze3ieeezd2string1898ze3zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_asinflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__asinfl1870za700za7za7__r4_numbers_6_5_flonumza7002991z00, BGl__asinfl1870z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_sqrtflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__sqrtfl1882za700za7za7__r4_numbers_6_5_flonumza7002992z00, BGl__sqrtfl1882z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_floorflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__floorfl1850za700za7za7__r4_numbers_6_5_flonumza7002993z00, BGl__floorfl1850z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_acosflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__acosfl1872za700za7za7__r4_numbers_6_5_flonumza7002994z00, BGl__acosfl1872z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_maxzd22flzd2envz00zz__r4_numbers_6_5_flonumz00, BgL_bgl__maxza7d22fl1842za7d2za7za7__r4_numbers_6_5_flonumza7002995za7, BGl__maxzd22fl1842zd2zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_absflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__absfl1848za700za7za7__r4_numbers_6_5_flonumza7002996z00, BGl__absfl1848z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zf2flzd2envz20zz__r4_numbers_6_5_flonumz00, BgL_bgl__za7f2fl1836za7f2za7za7__r4_numbers_6_5_flonumza7002997za7, BGl__zf2fl1836zf2zz__r4_numbers_6_5_flonumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_truncateflzd2envzd2zz__r4_numbers_6_5_flonumz00, BgL_bgl__truncatefl1854za700za7za7__r4_numbers_6_5_flonumza7002998z00, BGl__truncatefl1854z00zz__r4_numbers_6_5_flonumz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long BgL_checksumz00_1184, char * BgL_fromz00_1185)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__r4_numbers_6_5_flonumz00(); 
BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_flonumz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_numbers_6_5_flonumz00()
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 14 */
BGl_symbol2791z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("real?"); 
BGl_symbol2792z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("=fl"); 
BGl_symbol2793z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_=fl1814"); 
BGl_symbol2796z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("<fl"); 
BGl_symbol2797z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_<fl1816"); 
BGl_symbol2798z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol(">fl"); 
BGl_symbol2799z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_>fl1818"); 
BGl_symbol2800z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("<=fl"); 
BGl_symbol2801z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_<=fl1820"); 
BGl_symbol2802z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol(">=fl"); 
BGl_symbol2803z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_>=fl1822"); 
BGl_symbol2804z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("zerofl?"); 
BGl_symbol2805z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_zerofl?1824"); 
BGl_symbol2806z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("positivefl?"); 
BGl_symbol2807z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_positivefl?1826"); 
BGl_symbol2808z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("negativefl?"); 
BGl_symbol2809z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_negativefl?1828"); 
BGl_symbol2810z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("+fl"); 
BGl_symbol2811z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_+fl1830"); 
BGl_symbol2812z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("-fl"); 
BGl_symbol2813z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_-fl1832"); 
BGl_symbol2814z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("*fl"); 
BGl_symbol2815z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_*fl1834"); 
BGl_symbol2816z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("/fl"); 
BGl_symbol2817z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_/fl1836"); 
BGl_symbol2818z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("negfl"); 
BGl_symbol2819z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_negfl1838"); 
BGl_symbol2820z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("maxfl"); 
BGl_symbol2822z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_maxfl1840"); 
BGl_symbol2823z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("max-2fl"); 
BGl_symbol2824z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_max-2fl1842"); 
BGl_symbol2825z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("min-2fl"); 
BGl_symbol2826z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_min-2fl1844"); 
BGl_symbol2827z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("minfl"); 
BGl_symbol2828z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_minfl1846"); 
BGl_symbol2829z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("absfl"); 
BGl_symbol2830z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_absfl1848"); 
BGl_symbol2831z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("floorfl"); 
BGl_symbol2832z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_floorfl1850"); 
BGl_symbol2833z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("ceilingfl"); 
BGl_symbol2834z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_ceilingfl1852"); 
BGl_symbol2835z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("truncatefl"); 
BGl_symbol2836z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_truncatefl1854"); 
BGl_symbol2837z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("roundfl"); 
BGl_symbol2838z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_roundfl1856"); 
BGl_symbol2839z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("remainderfl"); 
BGl_symbol2840z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_remainderfl1858"); 
BGl_symbol2841z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("expfl"); 
BGl_symbol2842z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_expfl1860"); 
BGl_symbol2843z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("logfl"); 
BGl_symbol2844z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_logfl1862"); 
BGl_symbol2845z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("sinfl"); 
BGl_symbol2846z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_sinfl1864"); 
BGl_symbol2847z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("cosfl"); 
BGl_symbol2848z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_cosfl1866"); 
BGl_symbol2849z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("tanfl"); 
BGl_symbol2850z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_tanfl1868"); 
BGl_symbol2851z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("asinfl"); 
BGl_symbol2852z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_asinfl1870"); 
BGl_symbol2853z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("acosfl"); 
BGl_symbol2854z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_acosfl1872"); 
BGl_symbol2855z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("atanfl"); 
BGl_symbol2859z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_atanfl1874"); 
BGl_symbol2860z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("atan-1fl"); 
BGl_symbol2861z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_atan-1fl1876"); 
BGl_symbol2862z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("atan-2fl"); 
BGl_symbol2863z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_atan-2fl1878"); 
BGl_symbol2864z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("atan-2fl-ur"); 
BGl_symbol2865z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_atan-2fl-ur1880"); 
BGl_symbol2866z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("sqrtfl"); 
BGl_symbol2868z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_sqrtfl1882"); 
BGl_symbol2869z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("sqrtfl-ur"); 
BGl_symbol2870z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_sqrtfl-ur1884"); 
BGl_symbol2871z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("exptfl"); 
BGl_symbol2872z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_exptfl1886"); 
BGl_symbol2873z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("string->real"); 
BGl_symbol2874z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_string->real1888"); 
BGl_symbol2876z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("real->string"); 
BGl_symbol2877z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_real->string1890"); 
BGl_symbol2879z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("ieee-string->real"); 
BGl_symbol2880z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_ieee-string->real1892"); 
BGl_symbol2882z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("real->ieee-string"); 
BGl_symbol2883z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_real->ieee-string1894"); 
BGl_symbol2884z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("ieee-string->double"); 
BGl_symbol2885z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_ieee-string->double1896"); 
BGl_symbol2886z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("double->ieee-string"); 
BGl_symbol2887z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_double->ieee-string1898"); 
BGl_symbol2888z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("ieee-string->float"); 
BGl_symbol2889z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_ieee-string->float1900"); 
BGl_symbol2890z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("float->ieee-string"); 
BGl_symbol2891z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("_float->ieee-string1902"); 
return ( 
BGl_symbol2893z00zz__r4_numbers_6_5_flonumz00 = 
string_to_symbol("%import@__r4_numbers_6_5_flonum"), BUNSPEC) ;} 
}



/* real? */
BGL_EXPORTED_DEF bool_t BGl_realzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 217 */
{ /* ./Ieee/flonum.scm 218 */
obj_t BgL_symbol1624z00_894;
BgL_symbol1624z00_894 = BGl_symbol2791z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 218 */

PUSH_TRACE(BgL_symbol1624z00_894); BUNSPEC; 
{ /* ./Ieee/flonum.scm 218 */
bool_t BgL_aux1623z00_895;
if(
INTEGERP(BgL_objz00_1))
{ /* ./Ieee/flonum.scm 218 */
BgL_aux1623z00_895 = ((bool_t)1); }  else 
{ /* ./Ieee/flonum.scm 218 */
BgL_aux1623z00_895 = 
REALP(BgL_objz00_1); } 
POP_TRACE(); 
return BgL_aux1623z00_895;} } } } 
}



/* _real? */
obj_t BGl__realzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_628, obj_t BgL_objz00_629)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 217 */
{ /* ./Ieee/flonum.scm 218 */
bool_t BgL_auxz00_1288;
{ /* ./Ieee/flonum.scm 218 */
bool_t BgL_res2894z00_899;
{ /* ./Ieee/flonum.scm 218 */
obj_t BgL_symbol1624z00_897;
BgL_symbol1624z00_897 = BGl_symbol2791z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 218 */

PUSH_TRACE(BgL_symbol1624z00_897); BUNSPEC; 
{ /* ./Ieee/flonum.scm 218 */
bool_t BgL_aux1623z00_898;
if(
INTEGERP(BgL_objz00_629))
{ /* ./Ieee/flonum.scm 218 */
BgL_aux1623z00_898 = ((bool_t)1); }  else 
{ /* ./Ieee/flonum.scm 218 */
BgL_aux1623z00_898 = 
REALP(BgL_objz00_629); } 
POP_TRACE(); 
BgL_res2894z00_899 = BgL_aux1623z00_898; } } } 
BgL_auxz00_1288 = BgL_res2894z00_899; } 
return 
BBOOL(BgL_auxz00_1288);} } 
}



/* flonum? */
BGL_EXPORTED_DEF bool_t BGl_flonumzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t BgL_objz00_2)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 225 */
return 
REALP(BgL_objz00_2);} 
}



/* _flonum? */
obj_t BGl__flonumzf3zf3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_630, obj_t BgL_objz00_631)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 225 */
{ /* ./Ieee/flonum.scm 226 */
bool_t BgL_auxz00_1296;
BgL_auxz00_1296 = 
REALP(BgL_objz00_631); 
return 
BBOOL(BgL_auxz00_1296);} } 
}



/* =fl */
BGL_EXPORTED_DEF bool_t BGl_zd3flzd3zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_3, double BgL_r2z00_4)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 231 */
{ /* ./Ieee/flonum.scm 232 */
obj_t BgL_symbol1628z00_901;
BgL_symbol1628z00_901 = BGl_symbol2792z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 232 */

PUSH_TRACE(BgL_symbol1628z00_901); BUNSPEC; 
{ /* ./Ieee/flonum.scm 232 */
bool_t BgL_aux1627z00_902;
BgL_aux1627z00_902 = 
(BgL_r1z00_3==BgL_r2z00_4); 
POP_TRACE(); 
return BgL_aux1627z00_902;} } } } 
}



/* _=fl1814 */
obj_t BGl__zd3fl1814zd3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_632, obj_t BgL_r1z00_633, obj_t BgL_r2z00_634)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 231 */
{ /* ./Ieee/flonum.scm 232 */
bool_t BgL_auxz00_1302;
{ /* ./Ieee/flonum.scm 232 */
bool_t BgL_res2895z00_907;
{ /* ./Ieee/flonum.scm 232 */
double BgL_r1z00_903;double BgL_r2z00_904;
{ /* ./Ieee/flonum.scm 232 */
obj_t BgL_auxz00_1303;
if(
REALP(BgL_r1z00_633))
{ /* ./Ieee/flonum.scm 232 */
BgL_auxz00_1303 = BgL_r1z00_633
; }  else 
{ /* ./Ieee/flonum.scm 232 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2793z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_633, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)9984))); 
exit( -1 );} 
BgL_r1z00_903 = 
REAL_TO_DOUBLE(BgL_auxz00_1303); } 
{ /* ./Ieee/flonum.scm 232 */
obj_t BgL_auxz00_1310;
if(
REALP(BgL_r2z00_634))
{ /* ./Ieee/flonum.scm 232 */
BgL_auxz00_1310 = BgL_r2z00_634
; }  else 
{ /* ./Ieee/flonum.scm 232 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2793z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_634, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)9984))); 
exit( -1 );} 
BgL_r2z00_904 = 
REAL_TO_DOUBLE(BgL_auxz00_1310); } 
{ /* ./Ieee/flonum.scm 232 */
obj_t BgL_symbol1628z00_905;
BgL_symbol1628z00_905 = BGl_symbol2792z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 232 */

PUSH_TRACE(BgL_symbol1628z00_905); BUNSPEC; 
{ /* ./Ieee/flonum.scm 232 */
bool_t BgL_aux1627z00_906;
BgL_aux1627z00_906 = 
(BgL_r1z00_903==BgL_r2z00_904); 
POP_TRACE(); 
BgL_res2895z00_907 = BgL_aux1627z00_906; } } } } 
BgL_auxz00_1302 = BgL_res2895z00_907; } 
return 
BBOOL(BgL_auxz00_1302);} } 
}



/* <fl */
BGL_EXPORTED_DEF bool_t BGl_zc3flzc3zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_5, double BgL_r2z00_6)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 237 */
{ /* ./Ieee/flonum.scm 238 */
obj_t BgL_symbol1632z00_908;
BgL_symbol1632z00_908 = BGl_symbol2796z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 238 */

PUSH_TRACE(BgL_symbol1632z00_908); BUNSPEC; 
{ /* ./Ieee/flonum.scm 238 */
bool_t BgL_aux1631z00_909;
BgL_aux1631z00_909 = 
(BgL_r1z00_5<BgL_r2z00_6); 
POP_TRACE(); 
return BgL_aux1631z00_909;} } } } 
}



/* _<fl1816 */
obj_t BGl__zc3fl1816zc3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_635, obj_t BgL_r1z00_636, obj_t BgL_r2z00_637)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 237 */
{ /* ./Ieee/flonum.scm 238 */
bool_t BgL_auxz00_1324;
{ /* ./Ieee/flonum.scm 238 */
bool_t BgL_res2896z00_914;
{ /* ./Ieee/flonum.scm 238 */
double BgL_r1z00_910;double BgL_r2z00_911;
{ /* ./Ieee/flonum.scm 238 */
obj_t BgL_auxz00_1325;
if(
REALP(BgL_r1z00_636))
{ /* ./Ieee/flonum.scm 238 */
BgL_auxz00_1325 = BgL_r1z00_636
; }  else 
{ /* ./Ieee/flonum.scm 238 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2797z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_636, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)10252))); 
exit( -1 );} 
BgL_r1z00_910 = 
REAL_TO_DOUBLE(BgL_auxz00_1325); } 
{ /* ./Ieee/flonum.scm 238 */
obj_t BgL_auxz00_1332;
if(
REALP(BgL_r2z00_637))
{ /* ./Ieee/flonum.scm 238 */
BgL_auxz00_1332 = BgL_r2z00_637
; }  else 
{ /* ./Ieee/flonum.scm 238 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2797z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_637, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)10252))); 
exit( -1 );} 
BgL_r2z00_911 = 
REAL_TO_DOUBLE(BgL_auxz00_1332); } 
{ /* ./Ieee/flonum.scm 238 */
obj_t BgL_symbol1632z00_912;
BgL_symbol1632z00_912 = BGl_symbol2796z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 238 */

PUSH_TRACE(BgL_symbol1632z00_912); BUNSPEC; 
{ /* ./Ieee/flonum.scm 238 */
bool_t BgL_aux1631z00_913;
BgL_aux1631z00_913 = 
(BgL_r1z00_910<BgL_r2z00_911); 
POP_TRACE(); 
BgL_res2896z00_914 = BgL_aux1631z00_913; } } } } 
BgL_auxz00_1324 = BgL_res2896z00_914; } 
return 
BBOOL(BgL_auxz00_1324);} } 
}



/* >fl */
BGL_EXPORTED_DEF bool_t BGl_ze3flze3zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_7, double BgL_r2z00_8)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 243 */
{ /* ./Ieee/flonum.scm 244 */
obj_t BgL_symbol1636z00_915;
BgL_symbol1636z00_915 = BGl_symbol2798z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 244 */

PUSH_TRACE(BgL_symbol1636z00_915); BUNSPEC; 
{ /* ./Ieee/flonum.scm 244 */
bool_t BgL_aux1635z00_916;
BgL_aux1635z00_916 = 
(BgL_r1z00_7>BgL_r2z00_8); 
POP_TRACE(); 
return BgL_aux1635z00_916;} } } } 
}



/* _>fl1818 */
obj_t BGl__ze3fl1818ze3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_638, obj_t BgL_r1z00_639, obj_t BgL_r2z00_640)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 243 */
{ /* ./Ieee/flonum.scm 244 */
bool_t BgL_auxz00_1346;
{ /* ./Ieee/flonum.scm 244 */
bool_t BgL_res2897z00_921;
{ /* ./Ieee/flonum.scm 244 */
double BgL_r1z00_917;double BgL_r2z00_918;
{ /* ./Ieee/flonum.scm 244 */
obj_t BgL_auxz00_1347;
if(
REALP(BgL_r1z00_639))
{ /* ./Ieee/flonum.scm 244 */
BgL_auxz00_1347 = BgL_r1z00_639
; }  else 
{ /* ./Ieee/flonum.scm 244 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2799z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_639, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)10520))); 
exit( -1 );} 
BgL_r1z00_917 = 
REAL_TO_DOUBLE(BgL_auxz00_1347); } 
{ /* ./Ieee/flonum.scm 244 */
obj_t BgL_auxz00_1354;
if(
REALP(BgL_r2z00_640))
{ /* ./Ieee/flonum.scm 244 */
BgL_auxz00_1354 = BgL_r2z00_640
; }  else 
{ /* ./Ieee/flonum.scm 244 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2799z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_640, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)10520))); 
exit( -1 );} 
BgL_r2z00_918 = 
REAL_TO_DOUBLE(BgL_auxz00_1354); } 
{ /* ./Ieee/flonum.scm 244 */
obj_t BgL_symbol1636z00_919;
BgL_symbol1636z00_919 = BGl_symbol2798z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 244 */

PUSH_TRACE(BgL_symbol1636z00_919); BUNSPEC; 
{ /* ./Ieee/flonum.scm 244 */
bool_t BgL_aux1635z00_920;
BgL_aux1635z00_920 = 
(BgL_r1z00_917>BgL_r2z00_918); 
POP_TRACE(); 
BgL_res2897z00_921 = BgL_aux1635z00_920; } } } } 
BgL_auxz00_1346 = BgL_res2897z00_921; } 
return 
BBOOL(BgL_auxz00_1346);} } 
}



/* <=fl */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3flz10zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_9, double BgL_r2z00_10)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 249 */
{ /* ./Ieee/flonum.scm 250 */
obj_t BgL_symbol1640z00_922;
BgL_symbol1640z00_922 = BGl_symbol2800z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 250 */

PUSH_TRACE(BgL_symbol1640z00_922); BUNSPEC; 
{ /* ./Ieee/flonum.scm 250 */
bool_t BgL_aux1639z00_923;
BgL_aux1639z00_923 = 
(BgL_r1z00_9<=BgL_r2z00_10); 
POP_TRACE(); 
return BgL_aux1639z00_923;} } } } 
}



/* _<=fl1820 */
obj_t BGl__zc3zd3fl1820z10zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_641, obj_t BgL_r1z00_642, obj_t BgL_r2z00_643)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 249 */
{ /* ./Ieee/flonum.scm 250 */
bool_t BgL_auxz00_1368;
{ /* ./Ieee/flonum.scm 250 */
bool_t BgL_res2898z00_928;
{ /* ./Ieee/flonum.scm 250 */
double BgL_r1z00_924;double BgL_r2z00_925;
{ /* ./Ieee/flonum.scm 250 */
obj_t BgL_auxz00_1369;
if(
REALP(BgL_r1z00_642))
{ /* ./Ieee/flonum.scm 250 */
BgL_auxz00_1369 = BgL_r1z00_642
; }  else 
{ /* ./Ieee/flonum.scm 250 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2801z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_642, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)10789))); 
exit( -1 );} 
BgL_r1z00_924 = 
REAL_TO_DOUBLE(BgL_auxz00_1369); } 
{ /* ./Ieee/flonum.scm 250 */
obj_t BgL_auxz00_1376;
if(
REALP(BgL_r2z00_643))
{ /* ./Ieee/flonum.scm 250 */
BgL_auxz00_1376 = BgL_r2z00_643
; }  else 
{ /* ./Ieee/flonum.scm 250 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2801z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_643, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)10789))); 
exit( -1 );} 
BgL_r2z00_925 = 
REAL_TO_DOUBLE(BgL_auxz00_1376); } 
{ /* ./Ieee/flonum.scm 250 */
obj_t BgL_symbol1640z00_926;
BgL_symbol1640z00_926 = BGl_symbol2800z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 250 */

PUSH_TRACE(BgL_symbol1640z00_926); BUNSPEC; 
{ /* ./Ieee/flonum.scm 250 */
bool_t BgL_aux1639z00_927;
BgL_aux1639z00_927 = 
(BgL_r1z00_924<=BgL_r2z00_925); 
POP_TRACE(); 
BgL_res2898z00_928 = BgL_aux1639z00_927; } } } } 
BgL_auxz00_1368 = BgL_res2898z00_928; } 
return 
BBOOL(BgL_auxz00_1368);} } 
}



/* >=fl */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3flz30zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_11, double BgL_r2z00_12)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 255 */
{ /* ./Ieee/flonum.scm 256 */
obj_t BgL_symbol1644z00_929;
BgL_symbol1644z00_929 = BGl_symbol2802z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 256 */

PUSH_TRACE(BgL_symbol1644z00_929); BUNSPEC; 
{ /* ./Ieee/flonum.scm 256 */
bool_t BgL_aux1643z00_930;
BgL_aux1643z00_930 = 
(BgL_r1z00_11>=BgL_r2z00_12); 
POP_TRACE(); 
return BgL_aux1643z00_930;} } } } 
}



/* _>=fl1822 */
obj_t BGl__ze3zd3fl1822z30zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_644, obj_t BgL_r1z00_645, obj_t BgL_r2z00_646)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 255 */
{ /* ./Ieee/flonum.scm 256 */
bool_t BgL_auxz00_1390;
{ /* ./Ieee/flonum.scm 256 */
bool_t BgL_res2899z00_935;
{ /* ./Ieee/flonum.scm 256 */
double BgL_r1z00_931;double BgL_r2z00_932;
{ /* ./Ieee/flonum.scm 256 */
obj_t BgL_auxz00_1391;
if(
REALP(BgL_r1z00_645))
{ /* ./Ieee/flonum.scm 256 */
BgL_auxz00_1391 = BgL_r1z00_645
; }  else 
{ /* ./Ieee/flonum.scm 256 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2803z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_645, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)11059))); 
exit( -1 );} 
BgL_r1z00_931 = 
REAL_TO_DOUBLE(BgL_auxz00_1391); } 
{ /* ./Ieee/flonum.scm 256 */
obj_t BgL_auxz00_1398;
if(
REALP(BgL_r2z00_646))
{ /* ./Ieee/flonum.scm 256 */
BgL_auxz00_1398 = BgL_r2z00_646
; }  else 
{ /* ./Ieee/flonum.scm 256 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2803z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_646, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)11059))); 
exit( -1 );} 
BgL_r2z00_932 = 
REAL_TO_DOUBLE(BgL_auxz00_1398); } 
{ /* ./Ieee/flonum.scm 256 */
obj_t BgL_symbol1644z00_933;
BgL_symbol1644z00_933 = BGl_symbol2802z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 256 */

PUSH_TRACE(BgL_symbol1644z00_933); BUNSPEC; 
{ /* ./Ieee/flonum.scm 256 */
bool_t BgL_aux1643z00_934;
BgL_aux1643z00_934 = 
(BgL_r1z00_931>=BgL_r2z00_932); 
POP_TRACE(); 
BgL_res2899z00_935 = BgL_aux1643z00_934; } } } } 
BgL_auxz00_1390 = BgL_res2899z00_935; } 
return 
BBOOL(BgL_auxz00_1390);} } 
}



/* zerofl? */
BGL_EXPORTED_DEF bool_t BGl_za7eroflzf3z54zz__r4_numbers_6_5_flonumz00(double BgL_rz00_13)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 261 */
{ /* ./Ieee/flonum.scm 262 */
obj_t BgL_symbol1648z00_936;
BgL_symbol1648z00_936 = BGl_symbol2804z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 262 */

PUSH_TRACE(BgL_symbol1648z00_936); BUNSPEC; 
{ /* ./Ieee/flonum.scm 262 */
bool_t BgL_aux1647z00_937;
BgL_aux1647z00_937 = 
(BgL_rz00_13==((double)0.0)); 
POP_TRACE(); 
return BgL_aux1647z00_937;} } } } 
}



/* _zerofl?1824 */
obj_t BGl__za7eroflzf31824z54zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_647, obj_t BgL_rz00_648)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 261 */
{ /* ./Ieee/flonum.scm 262 */
bool_t BgL_auxz00_1412;
{ /* ./Ieee/flonum.scm 262 */
bool_t BgL_res2900z00_941;
{ /* ./Ieee/flonum.scm 262 */
double BgL_rz00_938;
{ /* ./Ieee/flonum.scm 262 */
obj_t BgL_auxz00_1413;
if(
REALP(BgL_rz00_648))
{ /* ./Ieee/flonum.scm 262 */
BgL_auxz00_1413 = BgL_rz00_648
; }  else 
{ /* ./Ieee/flonum.scm 262 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2805z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_648, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)11328))); 
exit( -1 );} 
BgL_rz00_938 = 
REAL_TO_DOUBLE(BgL_auxz00_1413); } 
{ /* ./Ieee/flonum.scm 262 */
obj_t BgL_symbol1648z00_939;
BgL_symbol1648z00_939 = BGl_symbol2804z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 262 */

PUSH_TRACE(BgL_symbol1648z00_939); BUNSPEC; 
{ /* ./Ieee/flonum.scm 262 */
bool_t BgL_aux1647z00_940;
BgL_aux1647z00_940 = 
(BgL_rz00_938==((double)0.0)); 
POP_TRACE(); 
BgL_res2900z00_941 = BgL_aux1647z00_940; } } } } 
BgL_auxz00_1412 = BgL_res2900z00_941; } 
return 
BBOOL(BgL_auxz00_1412);} } 
}



/* positivefl? */
BGL_EXPORTED_DEF bool_t BGl_positiveflzf3zf3zz__r4_numbers_6_5_flonumz00(double BgL_rz00_14)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 267 */
{ /* ./Ieee/flonum.scm 268 */
obj_t BgL_symbol1652z00_942;
BgL_symbol1652z00_942 = BGl_symbol2806z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 268 */

PUSH_TRACE(BgL_symbol1652z00_942); BUNSPEC; 
{ /* ./Ieee/flonum.scm 268 */
bool_t BgL_aux1651z00_943;
BgL_aux1651z00_943 = 
(BgL_rz00_14>((double)0.0)); 
POP_TRACE(); 
return BgL_aux1651z00_943;} } } } 
}



/* _positivefl?1826 */
obj_t BGl__positiveflzf31826zf3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_649, obj_t BgL_rz00_650)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 267 */
{ /* ./Ieee/flonum.scm 268 */
bool_t BgL_auxz00_1427;
{ /* ./Ieee/flonum.scm 268 */
bool_t BgL_res2901z00_947;
{ /* ./Ieee/flonum.scm 268 */
double BgL_rz00_944;
{ /* ./Ieee/flonum.scm 268 */
obj_t BgL_auxz00_1428;
if(
REALP(BgL_rz00_650))
{ /* ./Ieee/flonum.scm 268 */
BgL_auxz00_1428 = BgL_rz00_650
; }  else 
{ /* ./Ieee/flonum.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2807z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_650, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)11598))); 
exit( -1 );} 
BgL_rz00_944 = 
REAL_TO_DOUBLE(BgL_auxz00_1428); } 
{ /* ./Ieee/flonum.scm 268 */
obj_t BgL_symbol1652z00_945;
BgL_symbol1652z00_945 = BGl_symbol2806z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 268 */

PUSH_TRACE(BgL_symbol1652z00_945); BUNSPEC; 
{ /* ./Ieee/flonum.scm 268 */
bool_t BgL_aux1651z00_946;
BgL_aux1651z00_946 = 
(BgL_rz00_944>((double)0.0)); 
POP_TRACE(); 
BgL_res2901z00_947 = BgL_aux1651z00_946; } } } } 
BgL_auxz00_1427 = BgL_res2901z00_947; } 
return 
BBOOL(BgL_auxz00_1427);} } 
}



/* negativefl? */
BGL_EXPORTED_DEF bool_t BGl_negativeflzf3zf3zz__r4_numbers_6_5_flonumz00(double BgL_rz00_15)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 273 */
{ /* ./Ieee/flonum.scm 274 */
obj_t BgL_symbol1656z00_948;
BgL_symbol1656z00_948 = BGl_symbol2808z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 274 */

PUSH_TRACE(BgL_symbol1656z00_948); BUNSPEC; 
{ /* ./Ieee/flonum.scm 274 */
bool_t BgL_aux1655z00_949;
BgL_aux1655z00_949 = 
(BgL_rz00_15<((double)0.0)); 
POP_TRACE(); 
return BgL_aux1655z00_949;} } } } 
}



/* _negativefl?1828 */
obj_t BGl__negativeflzf31828zf3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_651, obj_t BgL_rz00_652)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 273 */
{ /* ./Ieee/flonum.scm 274 */
bool_t BgL_auxz00_1442;
{ /* ./Ieee/flonum.scm 274 */
bool_t BgL_res2902z00_953;
{ /* ./Ieee/flonum.scm 274 */
double BgL_rz00_950;
{ /* ./Ieee/flonum.scm 274 */
obj_t BgL_auxz00_1443;
if(
REALP(BgL_rz00_652))
{ /* ./Ieee/flonum.scm 274 */
BgL_auxz00_1443 = BgL_rz00_652
; }  else 
{ /* ./Ieee/flonum.scm 274 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2809z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_652, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)11868))); 
exit( -1 );} 
BgL_rz00_950 = 
REAL_TO_DOUBLE(BgL_auxz00_1443); } 
{ /* ./Ieee/flonum.scm 274 */
obj_t BgL_symbol1656z00_951;
BgL_symbol1656z00_951 = BGl_symbol2808z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 274 */

PUSH_TRACE(BgL_symbol1656z00_951); BUNSPEC; 
{ /* ./Ieee/flonum.scm 274 */
bool_t BgL_aux1655z00_952;
BgL_aux1655z00_952 = 
(BgL_rz00_950<((double)0.0)); 
POP_TRACE(); 
BgL_res2902z00_953 = BgL_aux1655z00_952; } } } } 
BgL_auxz00_1442 = BgL_res2902z00_953; } 
return 
BBOOL(BgL_auxz00_1442);} } 
}



/* +fl */
BGL_EXPORTED_DEF double BGl_zb2flzb2zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_16, double BgL_r2z00_17)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 279 */
{ /* ./Ieee/flonum.scm 280 */
obj_t BgL_symbol1660z00_954;
BgL_symbol1660z00_954 = BGl_symbol2810z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 280 */

PUSH_TRACE(BgL_symbol1660z00_954); BUNSPEC; 
{ /* ./Ieee/flonum.scm 280 */
double BgL_aux1659z00_955;
BgL_aux1659z00_955 = 
(BgL_r1z00_16+BgL_r2z00_17); 
POP_TRACE(); 
return BgL_aux1659z00_955;} } } } 
}



/* _+fl1830 */
obj_t BGl__zb2fl1830zb2zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_653, obj_t BgL_r1z00_654, obj_t BgL_r2z00_655)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 279 */
{ /* ./Ieee/flonum.scm 280 */
double BgL_auxz00_1457;
{ /* ./Ieee/flonum.scm 280 */
double BgL_res2903z00_960;
{ /* ./Ieee/flonum.scm 280 */
double BgL_r1z00_956;double BgL_r2z00_957;
{ /* ./Ieee/flonum.scm 280 */
obj_t BgL_auxz00_1458;
if(
REALP(BgL_r1z00_654))
{ /* ./Ieee/flonum.scm 280 */
BgL_auxz00_1458 = BgL_r1z00_654
; }  else 
{ /* ./Ieee/flonum.scm 280 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2811z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_654, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)12134))); 
exit( -1 );} 
BgL_r1z00_956 = 
REAL_TO_DOUBLE(BgL_auxz00_1458); } 
{ /* ./Ieee/flonum.scm 280 */
obj_t BgL_auxz00_1465;
if(
REALP(BgL_r2z00_655))
{ /* ./Ieee/flonum.scm 280 */
BgL_auxz00_1465 = BgL_r2z00_655
; }  else 
{ /* ./Ieee/flonum.scm 280 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2811z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_655, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)12134))); 
exit( -1 );} 
BgL_r2z00_957 = 
REAL_TO_DOUBLE(BgL_auxz00_1465); } 
{ /* ./Ieee/flonum.scm 280 */
obj_t BgL_symbol1660z00_958;
BgL_symbol1660z00_958 = BGl_symbol2810z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 280 */

PUSH_TRACE(BgL_symbol1660z00_958); BUNSPEC; 
{ /* ./Ieee/flonum.scm 280 */
double BgL_aux1659z00_959;
BgL_aux1659z00_959 = 
(BgL_r1z00_956+BgL_r2z00_957); 
POP_TRACE(); 
BgL_res2903z00_960 = BgL_aux1659z00_959; } } } } 
BgL_auxz00_1457 = BgL_res2903z00_960; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1457);} } 
}



/* -fl */
BGL_EXPORTED_DEF double BGl_zd2flzd2zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_18, double BgL_r2z00_19)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 285 */
{ /* ./Ieee/flonum.scm 286 */
obj_t BgL_symbol1664z00_961;
BgL_symbol1664z00_961 = BGl_symbol2812z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 286 */

PUSH_TRACE(BgL_symbol1664z00_961); BUNSPEC; 
{ /* ./Ieee/flonum.scm 286 */
double BgL_aux1663z00_962;
BgL_aux1663z00_962 = 
(BgL_r1z00_18-BgL_r2z00_19); 
POP_TRACE(); 
return BgL_aux1663z00_962;} } } } 
}



/* _-fl1832 */
obj_t BGl__zd2fl1832zd2zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_656, obj_t BgL_r1z00_657, obj_t BgL_r2z00_658)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 285 */
{ /* ./Ieee/flonum.scm 286 */
double BgL_auxz00_1479;
{ /* ./Ieee/flonum.scm 286 */
double BgL_res2904z00_967;
{ /* ./Ieee/flonum.scm 286 */
double BgL_r1z00_963;double BgL_r2z00_964;
{ /* ./Ieee/flonum.scm 286 */
obj_t BgL_auxz00_1480;
if(
REALP(BgL_r1z00_657))
{ /* ./Ieee/flonum.scm 286 */
BgL_auxz00_1480 = BgL_r1z00_657
; }  else 
{ /* ./Ieee/flonum.scm 286 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2813z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_657, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)12407))); 
exit( -1 );} 
BgL_r1z00_963 = 
REAL_TO_DOUBLE(BgL_auxz00_1480); } 
{ /* ./Ieee/flonum.scm 286 */
obj_t BgL_auxz00_1487;
if(
REALP(BgL_r2z00_658))
{ /* ./Ieee/flonum.scm 286 */
BgL_auxz00_1487 = BgL_r2z00_658
; }  else 
{ /* ./Ieee/flonum.scm 286 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2813z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_658, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)12407))); 
exit( -1 );} 
BgL_r2z00_964 = 
REAL_TO_DOUBLE(BgL_auxz00_1487); } 
{ /* ./Ieee/flonum.scm 286 */
obj_t BgL_symbol1664z00_965;
BgL_symbol1664z00_965 = BGl_symbol2812z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 286 */

PUSH_TRACE(BgL_symbol1664z00_965); BUNSPEC; 
{ /* ./Ieee/flonum.scm 286 */
double BgL_aux1663z00_966;
BgL_aux1663z00_966 = 
(BgL_r1z00_963-BgL_r2z00_964); 
POP_TRACE(); 
BgL_res2904z00_967 = BgL_aux1663z00_966; } } } } 
BgL_auxz00_1479 = BgL_res2904z00_967; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1479);} } 
}



/* *fl */
BGL_EXPORTED_DEF double BGl_za2flza2zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_20, double BgL_r2z00_21)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 291 */
{ /* ./Ieee/flonum.scm 292 */
obj_t BgL_symbol1668z00_968;
BgL_symbol1668z00_968 = BGl_symbol2814z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 292 */

PUSH_TRACE(BgL_symbol1668z00_968); BUNSPEC; 
{ /* ./Ieee/flonum.scm 292 */
double BgL_aux1667z00_969;
BgL_aux1667z00_969 = 
(BgL_r1z00_20*BgL_r2z00_21); 
POP_TRACE(); 
return BgL_aux1667z00_969;} } } } 
}



/* _*fl1834 */
obj_t BGl__za2fl1834za2zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_659, obj_t BgL_r1z00_660, obj_t BgL_r2z00_661)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 291 */
{ /* ./Ieee/flonum.scm 292 */
double BgL_auxz00_1501;
{ /* ./Ieee/flonum.scm 292 */
double BgL_res2905z00_974;
{ /* ./Ieee/flonum.scm 292 */
double BgL_r1z00_970;double BgL_r2z00_971;
{ /* ./Ieee/flonum.scm 292 */
obj_t BgL_auxz00_1502;
if(
REALP(BgL_r1z00_660))
{ /* ./Ieee/flonum.scm 292 */
BgL_auxz00_1502 = BgL_r1z00_660
; }  else 
{ /* ./Ieee/flonum.scm 292 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2815z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_660, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)12675))); 
exit( -1 );} 
BgL_r1z00_970 = 
REAL_TO_DOUBLE(BgL_auxz00_1502); } 
{ /* ./Ieee/flonum.scm 292 */
obj_t BgL_auxz00_1509;
if(
REALP(BgL_r2z00_661))
{ /* ./Ieee/flonum.scm 292 */
BgL_auxz00_1509 = BgL_r2z00_661
; }  else 
{ /* ./Ieee/flonum.scm 292 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2815z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_661, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)12675))); 
exit( -1 );} 
BgL_r2z00_971 = 
REAL_TO_DOUBLE(BgL_auxz00_1509); } 
{ /* ./Ieee/flonum.scm 292 */
obj_t BgL_symbol1668z00_972;
BgL_symbol1668z00_972 = BGl_symbol2814z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 292 */

PUSH_TRACE(BgL_symbol1668z00_972); BUNSPEC; 
{ /* ./Ieee/flonum.scm 292 */
double BgL_aux1667z00_973;
BgL_aux1667z00_973 = 
(BgL_r1z00_970*BgL_r2z00_971); 
POP_TRACE(); 
BgL_res2905z00_974 = BgL_aux1667z00_973; } } } } 
BgL_auxz00_1501 = BgL_res2905z00_974; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1501);} } 
}



/* /fl */
BGL_EXPORTED_DEF double BGl_zf2flzf2zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_22, double BgL_r2z00_23)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 297 */
{ /* ./Ieee/flonum.scm 298 */
obj_t BgL_symbol1672z00_975;
BgL_symbol1672z00_975 = BGl_symbol2816z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 298 */

PUSH_TRACE(BgL_symbol1672z00_975); BUNSPEC; 
{ /* ./Ieee/flonum.scm 298 */
double BgL_aux1671z00_976;
BgL_aux1671z00_976 = 
(BgL_r1z00_22/BgL_r2z00_23); 
POP_TRACE(); 
return BgL_aux1671z00_976;} } } } 
}



/* _/fl1836 */
obj_t BGl__zf2fl1836zf2zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_662, obj_t BgL_r1z00_663, obj_t BgL_r2z00_664)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 297 */
{ /* ./Ieee/flonum.scm 298 */
double BgL_auxz00_1523;
{ /* ./Ieee/flonum.scm 298 */
double BgL_res2906z00_981;
{ /* ./Ieee/flonum.scm 298 */
double BgL_r1z00_977;double BgL_r2z00_978;
{ /* ./Ieee/flonum.scm 298 */
obj_t BgL_auxz00_1524;
if(
REALP(BgL_r1z00_663))
{ /* ./Ieee/flonum.scm 298 */
BgL_auxz00_1524 = BgL_r1z00_663
; }  else 
{ /* ./Ieee/flonum.scm 298 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2817z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_663, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)12943))); 
exit( -1 );} 
BgL_r1z00_977 = 
REAL_TO_DOUBLE(BgL_auxz00_1524); } 
{ /* ./Ieee/flonum.scm 298 */
obj_t BgL_auxz00_1531;
if(
REALP(BgL_r2z00_664))
{ /* ./Ieee/flonum.scm 298 */
BgL_auxz00_1531 = BgL_r2z00_664
; }  else 
{ /* ./Ieee/flonum.scm 298 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2817z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_664, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)12943))); 
exit( -1 );} 
BgL_r2z00_978 = 
REAL_TO_DOUBLE(BgL_auxz00_1531); } 
{ /* ./Ieee/flonum.scm 298 */
obj_t BgL_symbol1672z00_979;
BgL_symbol1672z00_979 = BGl_symbol2816z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 298 */

PUSH_TRACE(BgL_symbol1672z00_979); BUNSPEC; 
{ /* ./Ieee/flonum.scm 298 */
double BgL_aux1671z00_980;
BgL_aux1671z00_980 = 
(BgL_r1z00_977/BgL_r2z00_978); 
POP_TRACE(); 
BgL_res2906z00_981 = BgL_aux1671z00_980; } } } } 
BgL_auxz00_1523 = BgL_res2906z00_981; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1523);} } 
}



/* negfl */
BGL_EXPORTED_DEF double BGl_negflz00zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_24)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 303 */
{ /* ./Ieee/flonum.scm 304 */
obj_t BgL_symbol1676z00_982;
BgL_symbol1676z00_982 = BGl_symbol2818z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 304 */

PUSH_TRACE(BgL_symbol1676z00_982); BUNSPEC; 
{ /* ./Ieee/flonum.scm 304 */
double BgL_aux1675z00_983;
BgL_aux1675z00_983 = 
NEG(BgL_r1z00_24); 
POP_TRACE(); 
return BgL_aux1675z00_983;} } } } 
}



/* _negfl1838 */
obj_t BGl__negfl1838z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_665, obj_t BgL_r1z00_666)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 303 */
{ /* ./Ieee/flonum.scm 304 */
double BgL_auxz00_1545;
{ /* ./Ieee/flonum.scm 304 */
double BgL_res2907z00_987;
{ /* ./Ieee/flonum.scm 304 */
double BgL_r1z00_984;
{ /* ./Ieee/flonum.scm 304 */
obj_t BgL_auxz00_1546;
if(
REALP(BgL_r1z00_666))
{ /* ./Ieee/flonum.scm 304 */
BgL_auxz00_1546 = BgL_r1z00_666
; }  else 
{ /* ./Ieee/flonum.scm 304 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2819z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_666, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)13210))); 
exit( -1 );} 
BgL_r1z00_984 = 
REAL_TO_DOUBLE(BgL_auxz00_1546); } 
{ /* ./Ieee/flonum.scm 304 */
obj_t BgL_symbol1676z00_985;
BgL_symbol1676z00_985 = BGl_symbol2818z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 304 */

PUSH_TRACE(BgL_symbol1676z00_985); BUNSPEC; 
{ /* ./Ieee/flonum.scm 304 */
double BgL_aux1675z00_986;
BgL_aux1675z00_986 = 
NEG(BgL_r1z00_984); 
POP_TRACE(); 
BgL_res2907z00_987 = BgL_aux1675z00_986; } } } } 
BgL_auxz00_1545 = BgL_res2907z00_987; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1545);} } 
}



/* maxfl */
BGL_EXPORTED_DEF double BGl_maxflz00zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_25, obj_t BgL_rnz00_26)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 309 */
{ /* ./Ieee/flonum.scm 310 */
obj_t BgL_symbol1680z00_562;
BgL_symbol1680z00_562 = BGl_symbol2820z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 310 */

PUSH_TRACE(BgL_symbol1680z00_562); BUNSPEC; 
{ /* ./Ieee/flonum.scm 310 */
double BgL_aux1679z00_563;
{ 
obj_t BgL_maxz00_285;obj_t BgL_rnz00_286;
{ /* ./Ieee/flonum.scm 310 */
obj_t BgL_auxz00_1558;
{ /* ./Ieee/flonum.scm 310 */
obj_t BgL_aux2224z00_796;
BgL_maxz00_285 = 
DOUBLE_TO_REAL(BgL_r1z00_25); 
BgL_rnz00_286 = BgL_rnz00_26; 
BgL_loopz00_287:
if(
NULLP(BgL_rnz00_286))
{ /* ./Ieee/flonum.scm 312 */
BgL_aux2224z00_796 = BgL_maxz00_285; }  else 
{ /* ./Ieee/flonum.scm 314 */
bool_t BgL_test1022z00_289;
{ /* ./Ieee/flonum.scm 314 */
obj_t BgL_arg1034z00_293;
{ /* ./Ieee/flonum.scm 314 */
obj_t BgL_pairz00_454;
if(
PAIRP(BgL_rnz00_286))
{ /* ./Ieee/flonum.scm 314 */
BgL_pairz00_454 = BgL_rnz00_286; }  else 
{ /* ./Ieee/flonum.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2820z00zz__r4_numbers_6_5_flonumz00, BGl_string2821z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_286, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)13561))); 
exit( -1 );} 
BgL_arg1034z00_293 = 
CAR(BgL_pairz00_454); } 
{ /* ./Ieee/flonum.scm 314 */
double BgL_r1z00_455;double BgL_r2z00_456;
{ /* ./Ieee/flonum.scm 314 */
obj_t BgL_auxz00_1567;
if(
REALP(BgL_arg1034z00_293))
{ /* ./Ieee/flonum.scm 314 */
BgL_auxz00_1567 = BgL_arg1034z00_293
; }  else 
{ /* ./Ieee/flonum.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2820z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_arg1034z00_293, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)13562))); 
exit( -1 );} 
BgL_r1z00_455 = 
REAL_TO_DOUBLE(BgL_auxz00_1567); } 
{ /* ./Ieee/flonum.scm 314 */
obj_t BgL_auxz00_1574;
if(
REALP(BgL_maxz00_285))
{ /* ./Ieee/flonum.scm 314 */
BgL_auxz00_1574 = BgL_maxz00_285
; }  else 
{ /* ./Ieee/flonum.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2820z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_maxz00_285, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)13566))); 
exit( -1 );} 
BgL_r2z00_456 = 
REAL_TO_DOUBLE(BgL_auxz00_1574); } 
BgL_test1022z00_289 = 
(BgL_r1z00_455>BgL_r2z00_456); } } 
if(BgL_test1022z00_289)
{ /* ./Ieee/flonum.scm 315 */
obj_t BgL_arg1024z00_290;obj_t BgL_arg1025z00_291;
{ /* ./Ieee/flonum.scm 315 */
obj_t BgL_pairz00_457;
if(
PAIRP(BgL_rnz00_286))
{ /* ./Ieee/flonum.scm 315 */
BgL_pairz00_457 = BgL_rnz00_286; }  else 
{ /* ./Ieee/flonum.scm 315 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2820z00zz__r4_numbers_6_5_flonumz00, BGl_string2821z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_286, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)13588))); 
exit( -1 );} 
BgL_arg1024z00_290 = 
CAR(BgL_pairz00_457); } 
{ /* ./Ieee/flonum.scm 315 */
obj_t BgL_pairz00_458;
if(
PAIRP(BgL_rnz00_286))
{ /* ./Ieee/flonum.scm 315 */
BgL_pairz00_458 = BgL_rnz00_286; }  else 
{ /* ./Ieee/flonum.scm 315 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2820z00zz__r4_numbers_6_5_flonumz00, BGl_string2821z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_286, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)13597))); 
exit( -1 );} 
BgL_arg1025z00_291 = 
CDR(BgL_pairz00_458); } 
{ 
obj_t BgL_rnz00_1596;obj_t BgL_maxz00_1595;
BgL_maxz00_1595 = BgL_arg1024z00_290; 
BgL_rnz00_1596 = BgL_arg1025z00_291; 
BgL_rnz00_286 = BgL_rnz00_1596; 
BgL_maxz00_285 = BgL_maxz00_1595; 
goto BgL_loopz00_287;} }  else 
{ /* ./Ieee/flonum.scm 316 */
obj_t BgL_arg1030z00_292;
{ /* ./Ieee/flonum.scm 316 */
obj_t BgL_pairz00_459;
if(
PAIRP(BgL_rnz00_286))
{ /* ./Ieee/flonum.scm 316 */
BgL_pairz00_459 = BgL_rnz00_286; }  else 
{ /* ./Ieee/flonum.scm 316 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2820z00zz__r4_numbers_6_5_flonumz00, BGl_string2821z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_286, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)13624))); 
exit( -1 );} 
BgL_arg1030z00_292 = 
CDR(BgL_pairz00_459); } 
{ 
obj_t BgL_rnz00_1603;
BgL_rnz00_1603 = BgL_arg1030z00_292; 
BgL_rnz00_286 = BgL_rnz00_1603; 
goto BgL_loopz00_287;} } } 
if(
REALP(BgL_aux2224z00_796))
{ /* ./Ieee/flonum.scm 310 */
BgL_auxz00_1558 = BgL_aux2224z00_796
; }  else 
{ /* ./Ieee/flonum.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2820z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_aux2224z00_796, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)13478))); 
exit( -1 );} } 
BgL_aux1679z00_563 = 
REAL_TO_DOUBLE(BgL_auxz00_1558); } } 
POP_TRACE(); 
return BgL_aux1679z00_563;} } } } 
}



/* _maxfl1840 */
obj_t BGl__maxfl1840z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_667, obj_t BgL_r1z00_668, obj_t BgL_rnz00_669)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 309 */
{ /* ./Ieee/flonum.scm 310 */
double BgL_auxz00_1612;
{ /* ./Ieee/flonum.scm 310 */
double BgL_auxz00_1613;
{ /* ./Ieee/flonum.scm 310 */
obj_t BgL_auxz00_1614;
if(
REALP(BgL_r1z00_668))
{ /* ./Ieee/flonum.scm 310 */
BgL_auxz00_1614 = BgL_r1z00_668
; }  else 
{ /* ./Ieee/flonum.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2822z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_668, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)13478))); 
exit( -1 );} 
BgL_auxz00_1613 = 
REAL_TO_DOUBLE(BgL_auxz00_1614); } 
BgL_auxz00_1612 = 
BGl_maxflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1613, BgL_rnz00_669); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1612);} } 
}



/* max-2fl */
BGL_EXPORTED_DEF double BGl_maxzd22flzd2zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_27, double BgL_r2z00_28)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 321 */
{ /* ./Ieee/flonum.scm 322 */
obj_t BgL_symbol1684z00_988;
BgL_symbol1684z00_988 = BGl_symbol2823z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 322 */

PUSH_TRACE(BgL_symbol1684z00_988); BUNSPEC; 
{ /* ./Ieee/flonum.scm 322 */
double BgL_aux1683z00_989;
if(
(BgL_r1z00_27>BgL_r2z00_28))
{ /* ./Ieee/flonum.scm 322 */
BgL_aux1683z00_989 = BgL_r1z00_27; }  else 
{ /* ./Ieee/flonum.scm 322 */
BgL_aux1683z00_989 = BgL_r2z00_28; } 
POP_TRACE(); 
return BgL_aux1683z00_989;} } } } 
}



/* _max-2fl1842 */
obj_t BGl__maxzd22fl1842zd2zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_670, obj_t BgL_r1z00_671, obj_t BgL_r2z00_672)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 321 */
{ /* ./Ieee/flonum.scm 322 */
double BgL_auxz00_1627;
{ /* ./Ieee/flonum.scm 322 */
double BgL_res2908z00_994;
{ /* ./Ieee/flonum.scm 322 */
double BgL_r1z00_990;double BgL_r2z00_991;
{ /* ./Ieee/flonum.scm 322 */
obj_t BgL_auxz00_1628;
if(
REALP(BgL_r1z00_671))
{ /* ./Ieee/flonum.scm 322 */
BgL_auxz00_1628 = BgL_r1z00_671
; }  else 
{ /* ./Ieee/flonum.scm 322 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2824z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_671, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)13889))); 
exit( -1 );} 
BgL_r1z00_990 = 
REAL_TO_DOUBLE(BgL_auxz00_1628); } 
{ /* ./Ieee/flonum.scm 322 */
obj_t BgL_auxz00_1635;
if(
REALP(BgL_r2z00_672))
{ /* ./Ieee/flonum.scm 322 */
BgL_auxz00_1635 = BgL_r2z00_672
; }  else 
{ /* ./Ieee/flonum.scm 322 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2824z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_672, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)13889))); 
exit( -1 );} 
BgL_r2z00_991 = 
REAL_TO_DOUBLE(BgL_auxz00_1635); } 
{ /* ./Ieee/flonum.scm 322 */
obj_t BgL_symbol1684z00_992;
BgL_symbol1684z00_992 = BGl_symbol2823z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 322 */

PUSH_TRACE(BgL_symbol1684z00_992); BUNSPEC; 
{ /* ./Ieee/flonum.scm 322 */
double BgL_aux1683z00_993;
if(
(BgL_r1z00_990>BgL_r2z00_991))
{ /* ./Ieee/flonum.scm 322 */
BgL_aux1683z00_993 = BgL_r1z00_990; }  else 
{ /* ./Ieee/flonum.scm 322 */
BgL_aux1683z00_993 = BgL_r2z00_991; } 
POP_TRACE(); 
BgL_res2908z00_994 = BgL_aux1683z00_993; } } } } 
BgL_auxz00_1627 = BgL_res2908z00_994; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1627);} } 
}



/* min-2fl */
BGL_EXPORTED_DEF double BGl_minzd22flzd2zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_29, double BgL_r2z00_30)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 329 */
{ /* ./Ieee/flonum.scm 330 */
obj_t BgL_symbol1688z00_995;
BgL_symbol1688z00_995 = BGl_symbol2825z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 330 */

PUSH_TRACE(BgL_symbol1688z00_995); BUNSPEC; 
{ /* ./Ieee/flonum.scm 330 */
double BgL_aux1687z00_996;
if(
(BgL_r1z00_29>BgL_r2z00_30))
{ /* ./Ieee/flonum.scm 330 */
BgL_aux1687z00_996 = BgL_r2z00_30; }  else 
{ /* ./Ieee/flonum.scm 330 */
BgL_aux1687z00_996 = BgL_r1z00_29; } 
POP_TRACE(); 
return BgL_aux1687z00_996;} } } } 
}



/* _min-2fl1844 */
obj_t BGl__minzd22fl1844zd2zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_673, obj_t BgL_r1z00_674, obj_t BgL_r2z00_675)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 329 */
{ /* ./Ieee/flonum.scm 330 */
double BgL_auxz00_1651;
{ /* ./Ieee/flonum.scm 330 */
double BgL_res2909z00_1001;
{ /* ./Ieee/flonum.scm 330 */
double BgL_r1z00_997;double BgL_r2z00_998;
{ /* ./Ieee/flonum.scm 330 */
obj_t BgL_auxz00_1652;
if(
REALP(BgL_r1z00_674))
{ /* ./Ieee/flonum.scm 330 */
BgL_auxz00_1652 = BgL_r1z00_674
; }  else 
{ /* ./Ieee/flonum.scm 330 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2826z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_674, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)14184))); 
exit( -1 );} 
BgL_r1z00_997 = 
REAL_TO_DOUBLE(BgL_auxz00_1652); } 
{ /* ./Ieee/flonum.scm 330 */
obj_t BgL_auxz00_1659;
if(
REALP(BgL_r2z00_675))
{ /* ./Ieee/flonum.scm 330 */
BgL_auxz00_1659 = BgL_r2z00_675
; }  else 
{ /* ./Ieee/flonum.scm 330 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2826z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_675, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)14184))); 
exit( -1 );} 
BgL_r2z00_998 = 
REAL_TO_DOUBLE(BgL_auxz00_1659); } 
{ /* ./Ieee/flonum.scm 330 */
obj_t BgL_symbol1688z00_999;
BgL_symbol1688z00_999 = BGl_symbol2825z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 330 */

PUSH_TRACE(BgL_symbol1688z00_999); BUNSPEC; 
{ /* ./Ieee/flonum.scm 330 */
double BgL_aux1687z00_1000;
if(
(BgL_r1z00_997>BgL_r2z00_998))
{ /* ./Ieee/flonum.scm 330 */
BgL_aux1687z00_1000 = BgL_r2z00_998; }  else 
{ /* ./Ieee/flonum.scm 330 */
BgL_aux1687z00_1000 = BgL_r1z00_997; } 
POP_TRACE(); 
BgL_res2909z00_1001 = BgL_aux1687z00_1000; } } } } 
BgL_auxz00_1651 = BgL_res2909z00_1001; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1651);} } 
}



/* minfl */
BGL_EXPORTED_DEF double BGl_minflz00zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_31, obj_t BgL_rnz00_32)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 337 */
{ /* ./Ieee/flonum.scm 338 */
obj_t BgL_symbol1692z00_568;
BgL_symbol1692z00_568 = BGl_symbol2827z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 338 */

PUSH_TRACE(BgL_symbol1692z00_568); BUNSPEC; 
{ /* ./Ieee/flonum.scm 338 */
double BgL_aux1691z00_569;
{ 
obj_t BgL_minz00_296;obj_t BgL_rnz00_297;
{ /* ./Ieee/flonum.scm 338 */
obj_t BgL_auxz00_1672;
{ /* ./Ieee/flonum.scm 338 */
obj_t BgL_aux2356z00_820;
BgL_minz00_296 = 
DOUBLE_TO_REAL(BgL_r1z00_31); 
BgL_rnz00_297 = BgL_rnz00_32; 
BgL_loopz00_298:
if(
NULLP(BgL_rnz00_297))
{ /* ./Ieee/flonum.scm 340 */
BgL_aux2356z00_820 = BgL_minz00_296; }  else 
{ /* ./Ieee/flonum.scm 342 */
bool_t BgL_test1044z00_300;
{ /* ./Ieee/flonum.scm 342 */
obj_t BgL_arg1058z00_304;
{ /* ./Ieee/flonum.scm 342 */
obj_t BgL_pairz00_467;
if(
PAIRP(BgL_rnz00_297))
{ /* ./Ieee/flonum.scm 342 */
BgL_pairz00_467 = BgL_rnz00_297; }  else 
{ /* ./Ieee/flonum.scm 342 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2827z00zz__r4_numbers_6_5_flonumz00, BGl_string2821z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_297, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)14558))); 
exit( -1 );} 
BgL_arg1058z00_304 = 
CAR(BgL_pairz00_467); } 
{ /* ./Ieee/flonum.scm 342 */
double BgL_r1z00_468;double BgL_r2z00_469;
{ /* ./Ieee/flonum.scm 342 */
obj_t BgL_auxz00_1681;
if(
REALP(BgL_arg1058z00_304))
{ /* ./Ieee/flonum.scm 342 */
BgL_auxz00_1681 = BgL_arg1058z00_304
; }  else 
{ /* ./Ieee/flonum.scm 342 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2827z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_arg1058z00_304, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)14559))); 
exit( -1 );} 
BgL_r1z00_468 = 
REAL_TO_DOUBLE(BgL_auxz00_1681); } 
{ /* ./Ieee/flonum.scm 342 */
obj_t BgL_auxz00_1688;
if(
REALP(BgL_minz00_296))
{ /* ./Ieee/flonum.scm 342 */
BgL_auxz00_1688 = BgL_minz00_296
; }  else 
{ /* ./Ieee/flonum.scm 342 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2827z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_minz00_296, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)14563))); 
exit( -1 );} 
BgL_r2z00_469 = 
REAL_TO_DOUBLE(BgL_auxz00_1688); } 
BgL_test1044z00_300 = 
(BgL_r1z00_468<BgL_r2z00_469); } } 
if(BgL_test1044z00_300)
{ /* ./Ieee/flonum.scm 343 */
obj_t BgL_arg1046z00_301;obj_t BgL_arg1047z00_302;
{ /* ./Ieee/flonum.scm 343 */
obj_t BgL_pairz00_470;
if(
PAIRP(BgL_rnz00_297))
{ /* ./Ieee/flonum.scm 343 */
BgL_pairz00_470 = BgL_rnz00_297; }  else 
{ /* ./Ieee/flonum.scm 343 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2827z00zz__r4_numbers_6_5_flonumz00, BGl_string2821z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_297, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)14585))); 
exit( -1 );} 
BgL_arg1046z00_301 = 
CAR(BgL_pairz00_470); } 
{ /* ./Ieee/flonum.scm 343 */
obj_t BgL_pairz00_471;
if(
PAIRP(BgL_rnz00_297))
{ /* ./Ieee/flonum.scm 343 */
BgL_pairz00_471 = BgL_rnz00_297; }  else 
{ /* ./Ieee/flonum.scm 343 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2827z00zz__r4_numbers_6_5_flonumz00, BGl_string2821z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_297, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)14594))); 
exit( -1 );} 
BgL_arg1047z00_302 = 
CDR(BgL_pairz00_471); } 
{ 
obj_t BgL_rnz00_1710;obj_t BgL_minz00_1709;
BgL_minz00_1709 = BgL_arg1046z00_301; 
BgL_rnz00_1710 = BgL_arg1047z00_302; 
BgL_rnz00_297 = BgL_rnz00_1710; 
BgL_minz00_296 = BgL_minz00_1709; 
goto BgL_loopz00_298;} }  else 
{ /* ./Ieee/flonum.scm 344 */
obj_t BgL_arg1052z00_303;
{ /* ./Ieee/flonum.scm 344 */
obj_t BgL_pairz00_472;
if(
PAIRP(BgL_rnz00_297))
{ /* ./Ieee/flonum.scm 344 */
BgL_pairz00_472 = BgL_rnz00_297; }  else 
{ /* ./Ieee/flonum.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2827z00zz__r4_numbers_6_5_flonumz00, BGl_string2821z00zz__r4_numbers_6_5_flonumz00, BgL_rnz00_297, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)14621))); 
exit( -1 );} 
BgL_arg1052z00_303 = 
CDR(BgL_pairz00_472); } 
{ 
obj_t BgL_rnz00_1717;
BgL_rnz00_1717 = BgL_arg1052z00_303; 
BgL_rnz00_297 = BgL_rnz00_1717; 
goto BgL_loopz00_298;} } } 
if(
REALP(BgL_aux2356z00_820))
{ /* ./Ieee/flonum.scm 338 */
BgL_auxz00_1672 = BgL_aux2356z00_820
; }  else 
{ /* ./Ieee/flonum.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2827z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_aux2356z00_820, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)14475))); 
exit( -1 );} } 
BgL_aux1691z00_569 = 
REAL_TO_DOUBLE(BgL_auxz00_1672); } } 
POP_TRACE(); 
return BgL_aux1691z00_569;} } } } 
}



/* _minfl1846 */
obj_t BGl__minfl1846z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_676, obj_t BgL_r1z00_677, obj_t BgL_rnz00_678)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 337 */
{ /* ./Ieee/flonum.scm 338 */
double BgL_auxz00_1726;
{ /* ./Ieee/flonum.scm 338 */
double BgL_auxz00_1727;
{ /* ./Ieee/flonum.scm 338 */
obj_t BgL_auxz00_1728;
if(
REALP(BgL_r1z00_677))
{ /* ./Ieee/flonum.scm 338 */
BgL_auxz00_1728 = BgL_r1z00_677
; }  else 
{ /* ./Ieee/flonum.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2828z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_677, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)14475))); 
exit( -1 );} 
BgL_auxz00_1727 = 
REAL_TO_DOUBLE(BgL_auxz00_1728); } 
BgL_auxz00_1726 = 
BGl_minflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1727, BgL_rnz00_678); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1726);} } 
}



/* absfl */
BGL_EXPORTED_DEF double BGl_absflz00zz__r4_numbers_6_5_flonumz00(double BgL_rz00_33)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 349 */
{ /* ./Ieee/flonum.scm 350 */
obj_t BgL_symbol1696z00_1002;
BgL_symbol1696z00_1002 = BGl_symbol2829z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 350 */

PUSH_TRACE(BgL_symbol1696z00_1002); BUNSPEC; 
{ /* ./Ieee/flonum.scm 350 */
double BgL_aux1695z00_1003;
if(
(BgL_rz00_33<((double)0.0)))
{ /* ./Ieee/flonum.scm 350 */
BgL_aux1695z00_1003 = 
NEG(BgL_rz00_33); }  else 
{ /* ./Ieee/flonum.scm 350 */
BgL_aux1695z00_1003 = BgL_rz00_33; } 
POP_TRACE(); 
return BgL_aux1695z00_1003;} } } } 
}



/* _absfl1848 */
obj_t BGl__absfl1848z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_679, obj_t BgL_rz00_680)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 349 */
{ /* ./Ieee/flonum.scm 350 */
double BgL_auxz00_1742;
{ /* ./Ieee/flonum.scm 350 */
double BgL_res2910z00_1007;
{ /* ./Ieee/flonum.scm 350 */
double BgL_rz00_1004;
{ /* ./Ieee/flonum.scm 350 */
obj_t BgL_auxz00_1743;
if(
REALP(BgL_rz00_680))
{ /* ./Ieee/flonum.scm 350 */
BgL_auxz00_1743 = BgL_rz00_680
; }  else 
{ /* ./Ieee/flonum.scm 350 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2830z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_680, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)14883))); 
exit( -1 );} 
BgL_rz00_1004 = 
REAL_TO_DOUBLE(BgL_auxz00_1743); } 
{ /* ./Ieee/flonum.scm 350 */
obj_t BgL_symbol1696z00_1005;
BgL_symbol1696z00_1005 = BGl_symbol2829z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 350 */

PUSH_TRACE(BgL_symbol1696z00_1005); BUNSPEC; 
{ /* ./Ieee/flonum.scm 350 */
double BgL_aux1695z00_1006;
if(
(BgL_rz00_1004<((double)0.0)))
{ /* ./Ieee/flonum.scm 350 */
BgL_aux1695z00_1006 = 
NEG(BgL_rz00_1004); }  else 
{ /* ./Ieee/flonum.scm 350 */
BgL_aux1695z00_1006 = BgL_rz00_1004; } 
POP_TRACE(); 
BgL_res2910z00_1007 = BgL_aux1695z00_1006; } } } } 
BgL_auxz00_1742 = BgL_res2910z00_1007; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1742);} } 
}



/* floorfl */
BGL_EXPORTED_DEF double BGl_floorflz00zz__r4_numbers_6_5_flonumz00(double BgL_rz00_34)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 357 */
{ /* ./Ieee/flonum.scm 358 */
obj_t BgL_symbol1700z00_1008;
BgL_symbol1700z00_1008 = BGl_symbol2831z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 358 */

PUSH_TRACE(BgL_symbol1700z00_1008); BUNSPEC; 
{ /* ./Ieee/flonum.scm 358 */
double BgL_aux1699z00_1009;
BgL_aux1699z00_1009 = 
floor(BgL_rz00_34); 
POP_TRACE(); 
return BgL_aux1699z00_1009;} } } } 
}



/* _floorfl1850 */
obj_t BGl__floorfl1850z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_681, obj_t BgL_rz00_682)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 357 */
{ /* ./Ieee/flonum.scm 358 */
double BgL_auxz00_1759;
{ /* ./Ieee/flonum.scm 358 */
double BgL_res2911z00_1013;
{ /* ./Ieee/flonum.scm 358 */
double BgL_rz00_1010;
{ /* ./Ieee/flonum.scm 358 */
obj_t BgL_auxz00_1760;
if(
REALP(BgL_rz00_682))
{ /* ./Ieee/flonum.scm 358 */
BgL_auxz00_1760 = BgL_rz00_682
; }  else 
{ /* ./Ieee/flonum.scm 358 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2832z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_682, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)15180))); 
exit( -1 );} 
BgL_rz00_1010 = 
REAL_TO_DOUBLE(BgL_auxz00_1760); } 
{ /* ./Ieee/flonum.scm 358 */
obj_t BgL_symbol1700z00_1011;
BgL_symbol1700z00_1011 = BGl_symbol2831z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 358 */

PUSH_TRACE(BgL_symbol1700z00_1011); BUNSPEC; 
{ /* ./Ieee/flonum.scm 358 */
double BgL_aux1699z00_1012;
BgL_aux1699z00_1012 = 
floor(BgL_rz00_1010); 
POP_TRACE(); 
BgL_res2911z00_1013 = BgL_aux1699z00_1012; } } } } 
BgL_auxz00_1759 = BgL_res2911z00_1013; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1759);} } 
}



/* ceilingfl */
BGL_EXPORTED_DEF double BGl_ceilingflz00zz__r4_numbers_6_5_flonumz00(double BgL_rz00_35)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 363 */
{ /* ./Ieee/flonum.scm 364 */
obj_t BgL_symbol1704z00_1014;
BgL_symbol1704z00_1014 = BGl_symbol2833z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 364 */

PUSH_TRACE(BgL_symbol1704z00_1014); BUNSPEC; 
{ /* ./Ieee/flonum.scm 364 */
double BgL_aux1703z00_1015;
BgL_aux1703z00_1015 = 
ceil(BgL_rz00_35); 
POP_TRACE(); 
return BgL_aux1703z00_1015;} } } } 
}



/* _ceilingfl1852 */
obj_t BGl__ceilingfl1852z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_683, obj_t BgL_rz00_684)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 363 */
{ /* ./Ieee/flonum.scm 364 */
double BgL_auxz00_1774;
{ /* ./Ieee/flonum.scm 364 */
double BgL_res2912z00_1019;
{ /* ./Ieee/flonum.scm 364 */
double BgL_rz00_1016;
{ /* ./Ieee/flonum.scm 364 */
obj_t BgL_auxz00_1775;
if(
REALP(BgL_rz00_684))
{ /* ./Ieee/flonum.scm 364 */
BgL_auxz00_1775 = BgL_rz00_684
; }  else 
{ /* ./Ieee/flonum.scm 364 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2834z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_684, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)15448))); 
exit( -1 );} 
BgL_rz00_1016 = 
REAL_TO_DOUBLE(BgL_auxz00_1775); } 
{ /* ./Ieee/flonum.scm 364 */
obj_t BgL_symbol1704z00_1017;
BgL_symbol1704z00_1017 = BGl_symbol2833z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 364 */

PUSH_TRACE(BgL_symbol1704z00_1017); BUNSPEC; 
{ /* ./Ieee/flonum.scm 364 */
double BgL_aux1703z00_1018;
BgL_aux1703z00_1018 = 
ceil(BgL_rz00_1016); 
POP_TRACE(); 
BgL_res2912z00_1019 = BgL_aux1703z00_1018; } } } } 
BgL_auxz00_1774 = BgL_res2912z00_1019; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1774);} } 
}



/* truncatefl */
BGL_EXPORTED_DEF double BGl_truncateflz00zz__r4_numbers_6_5_flonumz00(double BgL_rz00_36)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 369 */
{ /* ./Ieee/flonum.scm 370 */
obj_t BgL_symbol1708z00_1020;
BgL_symbol1708z00_1020 = BGl_symbol2835z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 370 */

PUSH_TRACE(BgL_symbol1708z00_1020); BUNSPEC; 
{ /* ./Ieee/flonum.scm 370 */
double BgL_aux1707z00_1021;
if(
(BgL_rz00_36<((double)0.0)))
{ /* ./Ieee/flonum.scm 370 */
BgL_aux1707z00_1021 = 
ceil(BgL_rz00_36); }  else 
{ /* ./Ieee/flonum.scm 370 */
BgL_aux1707z00_1021 = 
floor(BgL_rz00_36); } 
POP_TRACE(); 
return BgL_aux1707z00_1021;} } } } 
}



/* _truncatefl1854 */
obj_t BGl__truncatefl1854z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_685, obj_t BgL_rz00_686)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 369 */
{ /* ./Ieee/flonum.scm 370 */
double BgL_auxz00_1792;
{ /* ./Ieee/flonum.scm 370 */
double BgL_res2913z00_1025;
{ /* ./Ieee/flonum.scm 370 */
double BgL_rz00_1022;
{ /* ./Ieee/flonum.scm 370 */
obj_t BgL_auxz00_1793;
if(
REALP(BgL_rz00_686))
{ /* ./Ieee/flonum.scm 370 */
BgL_auxz00_1793 = BgL_rz00_686
; }  else 
{ /* ./Ieee/flonum.scm 370 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2836z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_686, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)15719))); 
exit( -1 );} 
BgL_rz00_1022 = 
REAL_TO_DOUBLE(BgL_auxz00_1793); } 
{ /* ./Ieee/flonum.scm 370 */
obj_t BgL_symbol1708z00_1023;
BgL_symbol1708z00_1023 = BGl_symbol2835z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 370 */

PUSH_TRACE(BgL_symbol1708z00_1023); BUNSPEC; 
{ /* ./Ieee/flonum.scm 370 */
double BgL_aux1707z00_1024;
if(
(BgL_rz00_1022<((double)0.0)))
{ /* ./Ieee/flonum.scm 370 */
BgL_aux1707z00_1024 = 
ceil(BgL_rz00_1022); }  else 
{ /* ./Ieee/flonum.scm 370 */
BgL_aux1707z00_1024 = 
floor(BgL_rz00_1022); } 
POP_TRACE(); 
BgL_res2913z00_1025 = BgL_aux1707z00_1024; } } } } 
BgL_auxz00_1792 = BgL_res2913z00_1025; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1792);} } 
}



/* roundfl */
BGL_EXPORTED_DEF double BGl_roundflz00zz__r4_numbers_6_5_flonumz00(double BgL_rz00_37)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 377 */
{ /* ./Ieee/flonum.scm 378 */
obj_t BgL_symbol1712z00_578;
BgL_symbol1712z00_578 = BGl_symbol2837z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 378 */

PUSH_TRACE(BgL_symbol1712z00_578); BUNSPEC; 
{ /* ./Ieee/flonum.scm 378 */
double BgL_aux1711z00_579;
{ /* ./Ieee/flonum.scm 378 */
double BgL_intz00_307;
BgL_intz00_307 = 
floor(BgL_rz00_37); 
{ /* ./Ieee/flonum.scm 378 */
double BgL_fracz00_308;
BgL_fracz00_308 = 
(BgL_rz00_37-BgL_intz00_307); 
{ /* ./Ieee/flonum.scm 379 */

if(
(BgL_fracz00_308<((double)0.5)))
{ /* ./Ieee/flonum.scm 380 */
BgL_aux1711z00_579 = BgL_intz00_307; }  else 
{ /* ./Ieee/flonum.scm 380 */
if(
(BgL_fracz00_308>((double)0.5)))
{ /* ./Ieee/flonum.scm 381 */
BgL_aux1711z00_579 = 
(BgL_intz00_307+((double)1.0)); }  else 
{ /* ./Ieee/flonum.scm 381 */
{ /* ./Ieee/flonum.scm 382 */
double BgL_arg1076z00_312;
{ /* ./Ieee/flonum.scm 382 */
double BgL_auxz00_1815;
BgL_auxz00_1815 = 
(BgL_intz00_307/((double)2.0)); 
BgL_arg1076z00_312 = 
ceil(BgL_auxz00_1815); } 
BgL_aux1711z00_579 = 
(((double)2.0)*BgL_arg1076z00_312); } } } } } } 
POP_TRACE(); 
return BgL_aux1711z00_579;} } } } 
}



/* _roundfl1856 */
obj_t BGl__roundfl1856z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_687, obj_t BgL_rz00_688)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 377 */
{ /* ./Ieee/flonum.scm 378 */
double BgL_auxz00_1820;
{ /* ./Ieee/flonum.scm 378 */
double BgL_auxz00_1821;
{ /* ./Ieee/flonum.scm 378 */
obj_t BgL_auxz00_1822;
if(
REALP(BgL_rz00_688))
{ /* ./Ieee/flonum.scm 378 */
BgL_auxz00_1822 = BgL_rz00_688
; }  else 
{ /* ./Ieee/flonum.scm 378 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2838z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_688, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)16027))); 
exit( -1 );} 
BgL_auxz00_1821 = 
REAL_TO_DOUBLE(BgL_auxz00_1822); } 
BgL_auxz00_1820 = 
BGl_roundflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1821); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1820);} } 
}



/* remainderfl */
BGL_EXPORTED_DEF double BGl_remainderflz00zz__r4_numbers_6_5_flonumz00(double BgL_n1z00_38, double BgL_n2z00_39)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 387 */
{ /* ./Ieee/flonum.scm 388 */
obj_t BgL_symbol1716z00_1026;
BgL_symbol1716z00_1026 = BGl_symbol2839z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 388 */

PUSH_TRACE(BgL_symbol1716z00_1026); BUNSPEC; 
{ /* ./Ieee/flonum.scm 388 */
double BgL_aux1715z00_1027;
BgL_aux1715z00_1027 = 
fmod(BgL_n1z00_38, BgL_n2z00_39); 
POP_TRACE(); 
return BgL_aux1715z00_1027;} } } } 
}



/* _remainderfl1858 */
obj_t BGl__remainderfl1858z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_689, obj_t BgL_n1z00_690, obj_t BgL_n2z00_691)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 387 */
{ /* ./Ieee/flonum.scm 388 */
double BgL_auxz00_1834;
{ /* ./Ieee/flonum.scm 388 */
double BgL_res2914z00_1032;
{ /* ./Ieee/flonum.scm 388 */
double BgL_n1z00_1028;double BgL_n2z00_1029;
{ /* ./Ieee/flonum.scm 388 */
obj_t BgL_auxz00_1835;
if(
REALP(BgL_n1z00_690))
{ /* ./Ieee/flonum.scm 388 */
BgL_auxz00_1835 = BgL_n1z00_690
; }  else 
{ /* ./Ieee/flonum.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2840z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_n1z00_690, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)16477))); 
exit( -1 );} 
BgL_n1z00_1028 = 
REAL_TO_DOUBLE(BgL_auxz00_1835); } 
{ /* ./Ieee/flonum.scm 388 */
obj_t BgL_auxz00_1842;
if(
REALP(BgL_n2z00_691))
{ /* ./Ieee/flonum.scm 388 */
BgL_auxz00_1842 = BgL_n2z00_691
; }  else 
{ /* ./Ieee/flonum.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2840z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_n2z00_691, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)16477))); 
exit( -1 );} 
BgL_n2z00_1029 = 
REAL_TO_DOUBLE(BgL_auxz00_1842); } 
{ /* ./Ieee/flonum.scm 388 */
obj_t BgL_symbol1716z00_1030;
BgL_symbol1716z00_1030 = BGl_symbol2839z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 388 */

PUSH_TRACE(BgL_symbol1716z00_1030); BUNSPEC; 
{ /* ./Ieee/flonum.scm 388 */
double BgL_aux1715z00_1031;
BgL_aux1715z00_1031 = 
fmod(BgL_n1z00_1028, BgL_n2z00_1029); 
POP_TRACE(); 
BgL_res2914z00_1032 = BgL_aux1715z00_1031; } } } } 
BgL_auxz00_1834 = BgL_res2914z00_1032; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1834);} } 
}



/* expfl */
BGL_EXPORTED_DEF double BGl_expflz00zz__r4_numbers_6_5_flonumz00(double BgL_xz00_40)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 393 */
{ /* ./Ieee/flonum.scm 394 */
obj_t BgL_symbol1720z00_1033;
BgL_symbol1720z00_1033 = BGl_symbol2841z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 394 */

PUSH_TRACE(BgL_symbol1720z00_1033); BUNSPEC; 
{ /* ./Ieee/flonum.scm 394 */
double BgL_aux1719z00_1034;
BgL_aux1719z00_1034 = 
exp(BgL_xz00_40); 
POP_TRACE(); 
return BgL_aux1719z00_1034;} } } } 
}



/* _expfl1860 */
obj_t BGl__expfl1860z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_692, obj_t BgL_xz00_693)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 393 */
{ /* ./Ieee/flonum.scm 394 */
double BgL_auxz00_1856;
{ /* ./Ieee/flonum.scm 394 */
double BgL_res2915z00_1038;
{ /* ./Ieee/flonum.scm 394 */
double BgL_xz00_1035;
{ /* ./Ieee/flonum.scm 394 */
obj_t BgL_auxz00_1857;
if(
REALP(BgL_xz00_693))
{ /* ./Ieee/flonum.scm 394 */
BgL_auxz00_1857 = BgL_xz00_693
; }  else 
{ /* ./Ieee/flonum.scm 394 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2842z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_693, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)16744))); 
exit( -1 );} 
BgL_xz00_1035 = 
REAL_TO_DOUBLE(BgL_auxz00_1857); } 
{ /* ./Ieee/flonum.scm 394 */
obj_t BgL_symbol1720z00_1036;
BgL_symbol1720z00_1036 = BGl_symbol2841z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 394 */

PUSH_TRACE(BgL_symbol1720z00_1036); BUNSPEC; 
{ /* ./Ieee/flonum.scm 394 */
double BgL_aux1719z00_1037;
BgL_aux1719z00_1037 = 
exp(BgL_xz00_1035); 
POP_TRACE(); 
BgL_res2915z00_1038 = BgL_aux1719z00_1037; } } } } 
BgL_auxz00_1856 = BgL_res2915z00_1038; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1856);} } 
}



/* logfl */
BGL_EXPORTED_DEF double BGl_logflz00zz__r4_numbers_6_5_flonumz00(double BgL_xz00_41)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 399 */
{ /* ./Ieee/flonum.scm 400 */
obj_t BgL_symbol1724z00_1039;
BgL_symbol1724z00_1039 = BGl_symbol2843z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 400 */

PUSH_TRACE(BgL_symbol1724z00_1039); BUNSPEC; 
{ /* ./Ieee/flonum.scm 400 */
double BgL_aux1723z00_1040;
BgL_aux1723z00_1040 = 
log(BgL_xz00_41); 
POP_TRACE(); 
return BgL_aux1723z00_1040;} } } } 
}



/* _logfl1862 */
obj_t BGl__logfl1862z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_694, obj_t BgL_xz00_695)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 399 */
{ /* ./Ieee/flonum.scm 400 */
double BgL_auxz00_1871;
{ /* ./Ieee/flonum.scm 400 */
double BgL_res2916z00_1044;
{ /* ./Ieee/flonum.scm 400 */
double BgL_xz00_1041;
{ /* ./Ieee/flonum.scm 400 */
obj_t BgL_auxz00_1872;
if(
REALP(BgL_xz00_695))
{ /* ./Ieee/flonum.scm 400 */
BgL_auxz00_1872 = BgL_xz00_695
; }  else 
{ /* ./Ieee/flonum.scm 400 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2844z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_695, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)17006))); 
exit( -1 );} 
BgL_xz00_1041 = 
REAL_TO_DOUBLE(BgL_auxz00_1872); } 
{ /* ./Ieee/flonum.scm 400 */
obj_t BgL_symbol1724z00_1042;
BgL_symbol1724z00_1042 = BGl_symbol2843z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 400 */

PUSH_TRACE(BgL_symbol1724z00_1042); BUNSPEC; 
{ /* ./Ieee/flonum.scm 400 */
double BgL_aux1723z00_1043;
BgL_aux1723z00_1043 = 
log(BgL_xz00_1041); 
POP_TRACE(); 
BgL_res2916z00_1044 = BgL_aux1723z00_1043; } } } } 
BgL_auxz00_1871 = BgL_res2916z00_1044; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1871);} } 
}



/* sinfl */
BGL_EXPORTED_DEF double BGl_sinflz00zz__r4_numbers_6_5_flonumz00(double BgL_xz00_42)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 405 */
{ /* ./Ieee/flonum.scm 406 */
obj_t BgL_symbol1728z00_1045;
BgL_symbol1728z00_1045 = BGl_symbol2845z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 406 */

PUSH_TRACE(BgL_symbol1728z00_1045); BUNSPEC; 
{ /* ./Ieee/flonum.scm 406 */
double BgL_aux1727z00_1046;
BgL_aux1727z00_1046 = 
sin(BgL_xz00_42); 
POP_TRACE(); 
return BgL_aux1727z00_1046;} } } } 
}



/* _sinfl1864 */
obj_t BGl__sinfl1864z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_696, obj_t BgL_xz00_697)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 405 */
{ /* ./Ieee/flonum.scm 406 */
double BgL_auxz00_1886;
{ /* ./Ieee/flonum.scm 406 */
double BgL_res2917z00_1050;
{ /* ./Ieee/flonum.scm 406 */
double BgL_xz00_1047;
{ /* ./Ieee/flonum.scm 406 */
obj_t BgL_auxz00_1887;
if(
REALP(BgL_xz00_697))
{ /* ./Ieee/flonum.scm 406 */
BgL_auxz00_1887 = BgL_xz00_697
; }  else 
{ /* ./Ieee/flonum.scm 406 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2846z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_697, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)17269))); 
exit( -1 );} 
BgL_xz00_1047 = 
REAL_TO_DOUBLE(BgL_auxz00_1887); } 
{ /* ./Ieee/flonum.scm 406 */
obj_t BgL_symbol1728z00_1048;
BgL_symbol1728z00_1048 = BGl_symbol2845z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 406 */

PUSH_TRACE(BgL_symbol1728z00_1048); BUNSPEC; 
{ /* ./Ieee/flonum.scm 406 */
double BgL_aux1727z00_1049;
BgL_aux1727z00_1049 = 
sin(BgL_xz00_1047); 
POP_TRACE(); 
BgL_res2917z00_1050 = BgL_aux1727z00_1049; } } } } 
BgL_auxz00_1886 = BgL_res2917z00_1050; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1886);} } 
}



/* cosfl */
BGL_EXPORTED_DEF double BGl_cosflz00zz__r4_numbers_6_5_flonumz00(double BgL_xz00_43)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 411 */
{ /* ./Ieee/flonum.scm 412 */
obj_t BgL_symbol1732z00_1051;
BgL_symbol1732z00_1051 = BGl_symbol2847z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 412 */

PUSH_TRACE(BgL_symbol1732z00_1051); BUNSPEC; 
{ /* ./Ieee/flonum.scm 412 */
double BgL_aux1731z00_1052;
BgL_aux1731z00_1052 = 
cos(BgL_xz00_43); 
POP_TRACE(); 
return BgL_aux1731z00_1052;} } } } 
}



/* _cosfl1866 */
obj_t BGl__cosfl1866z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_698, obj_t BgL_xz00_699)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 411 */
{ /* ./Ieee/flonum.scm 412 */
double BgL_auxz00_1901;
{ /* ./Ieee/flonum.scm 412 */
double BgL_res2918z00_1056;
{ /* ./Ieee/flonum.scm 412 */
double BgL_xz00_1053;
{ /* ./Ieee/flonum.scm 412 */
obj_t BgL_auxz00_1902;
if(
REALP(BgL_xz00_699))
{ /* ./Ieee/flonum.scm 412 */
BgL_auxz00_1902 = BgL_xz00_699
; }  else 
{ /* ./Ieee/flonum.scm 412 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2848z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_699, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)17531))); 
exit( -1 );} 
BgL_xz00_1053 = 
REAL_TO_DOUBLE(BgL_auxz00_1902); } 
{ /* ./Ieee/flonum.scm 412 */
obj_t BgL_symbol1732z00_1054;
BgL_symbol1732z00_1054 = BGl_symbol2847z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 412 */

PUSH_TRACE(BgL_symbol1732z00_1054); BUNSPEC; 
{ /* ./Ieee/flonum.scm 412 */
double BgL_aux1731z00_1055;
BgL_aux1731z00_1055 = 
cos(BgL_xz00_1053); 
POP_TRACE(); 
BgL_res2918z00_1056 = BgL_aux1731z00_1055; } } } } 
BgL_auxz00_1901 = BgL_res2918z00_1056; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1901);} } 
}



/* tanfl */
BGL_EXPORTED_DEF double BGl_tanflz00zz__r4_numbers_6_5_flonumz00(double BgL_xz00_44)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 417 */
{ /* ./Ieee/flonum.scm 418 */
obj_t BgL_symbol1736z00_1057;
BgL_symbol1736z00_1057 = BGl_symbol2849z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 418 */

PUSH_TRACE(BgL_symbol1736z00_1057); BUNSPEC; 
{ /* ./Ieee/flonum.scm 418 */
double BgL_aux1735z00_1058;
BgL_aux1735z00_1058 = 
tan(BgL_xz00_44); 
POP_TRACE(); 
return BgL_aux1735z00_1058;} } } } 
}



/* _tanfl1868 */
obj_t BGl__tanfl1868z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_700, obj_t BgL_xz00_701)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 417 */
{ /* ./Ieee/flonum.scm 418 */
double BgL_auxz00_1916;
{ /* ./Ieee/flonum.scm 418 */
double BgL_res2919z00_1062;
{ /* ./Ieee/flonum.scm 418 */
double BgL_xz00_1059;
{ /* ./Ieee/flonum.scm 418 */
obj_t BgL_auxz00_1917;
if(
REALP(BgL_xz00_701))
{ /* ./Ieee/flonum.scm 418 */
BgL_auxz00_1917 = BgL_xz00_701
; }  else 
{ /* ./Ieee/flonum.scm 418 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2850z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_701, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)17793))); 
exit( -1 );} 
BgL_xz00_1059 = 
REAL_TO_DOUBLE(BgL_auxz00_1917); } 
{ /* ./Ieee/flonum.scm 418 */
obj_t BgL_symbol1736z00_1060;
BgL_symbol1736z00_1060 = BGl_symbol2849z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 418 */

PUSH_TRACE(BgL_symbol1736z00_1060); BUNSPEC; 
{ /* ./Ieee/flonum.scm 418 */
double BgL_aux1735z00_1061;
BgL_aux1735z00_1061 = 
tan(BgL_xz00_1059); 
POP_TRACE(); 
BgL_res2919z00_1062 = BgL_aux1735z00_1061; } } } } 
BgL_auxz00_1916 = BgL_res2919z00_1062; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1916);} } 
}



/* asinfl */
BGL_EXPORTED_DEF double BGl_asinflz00zz__r4_numbers_6_5_flonumz00(double BgL_xz00_45)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 423 */
{ /* ./Ieee/flonum.scm 424 */
obj_t BgL_symbol1740z00_1063;
BgL_symbol1740z00_1063 = BGl_symbol2851z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 424 */

PUSH_TRACE(BgL_symbol1740z00_1063); BUNSPEC; 
{ /* ./Ieee/flonum.scm 424 */
double BgL_aux1739z00_1064;
BgL_aux1739z00_1064 = 
asin(BgL_xz00_45); 
POP_TRACE(); 
return BgL_aux1739z00_1064;} } } } 
}



/* _asinfl1870 */
obj_t BGl__asinfl1870z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_702, obj_t BgL_xz00_703)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 423 */
{ /* ./Ieee/flonum.scm 424 */
double BgL_auxz00_1931;
{ /* ./Ieee/flonum.scm 424 */
double BgL_res2920z00_1068;
{ /* ./Ieee/flonum.scm 424 */
double BgL_xz00_1065;
{ /* ./Ieee/flonum.scm 424 */
obj_t BgL_auxz00_1932;
if(
REALP(BgL_xz00_703))
{ /* ./Ieee/flonum.scm 424 */
BgL_auxz00_1932 = BgL_xz00_703
; }  else 
{ /* ./Ieee/flonum.scm 424 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2852z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_703, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)18056))); 
exit( -1 );} 
BgL_xz00_1065 = 
REAL_TO_DOUBLE(BgL_auxz00_1932); } 
{ /* ./Ieee/flonum.scm 424 */
obj_t BgL_symbol1740z00_1066;
BgL_symbol1740z00_1066 = BGl_symbol2851z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 424 */

PUSH_TRACE(BgL_symbol1740z00_1066); BUNSPEC; 
{ /* ./Ieee/flonum.scm 424 */
double BgL_aux1739z00_1067;
BgL_aux1739z00_1067 = 
asin(BgL_xz00_1065); 
POP_TRACE(); 
BgL_res2920z00_1068 = BgL_aux1739z00_1067; } } } } 
BgL_auxz00_1931 = BgL_res2920z00_1068; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1931);} } 
}



/* acosfl */
BGL_EXPORTED_DEF double BGl_acosflz00zz__r4_numbers_6_5_flonumz00(double BgL_xz00_46)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 429 */
{ /* ./Ieee/flonum.scm 430 */
obj_t BgL_symbol1744z00_1069;
BgL_symbol1744z00_1069 = BGl_symbol2853z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 430 */

PUSH_TRACE(BgL_symbol1744z00_1069); BUNSPEC; 
{ /* ./Ieee/flonum.scm 430 */
double BgL_aux1743z00_1070;
BgL_aux1743z00_1070 = 
acos(BgL_xz00_46); 
POP_TRACE(); 
return BgL_aux1743z00_1070;} } } } 
}



/* _acosfl1872 */
obj_t BGl__acosfl1872z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_704, obj_t BgL_xz00_705)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 429 */
{ /* ./Ieee/flonum.scm 430 */
double BgL_auxz00_1946;
{ /* ./Ieee/flonum.scm 430 */
double BgL_res2921z00_1074;
{ /* ./Ieee/flonum.scm 430 */
double BgL_xz00_1071;
{ /* ./Ieee/flonum.scm 430 */
obj_t BgL_auxz00_1947;
if(
REALP(BgL_xz00_705))
{ /* ./Ieee/flonum.scm 430 */
BgL_auxz00_1947 = BgL_xz00_705
; }  else 
{ /* ./Ieee/flonum.scm 430 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2854z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_705, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)18320))); 
exit( -1 );} 
BgL_xz00_1071 = 
REAL_TO_DOUBLE(BgL_auxz00_1947); } 
{ /* ./Ieee/flonum.scm 430 */
obj_t BgL_symbol1744z00_1072;
BgL_symbol1744z00_1072 = BGl_symbol2853z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 430 */

PUSH_TRACE(BgL_symbol1744z00_1072); BUNSPEC; 
{ /* ./Ieee/flonum.scm 430 */
double BgL_aux1743z00_1073;
BgL_aux1743z00_1073 = 
acos(BgL_xz00_1071); 
POP_TRACE(); 
BgL_res2921z00_1074 = BgL_aux1743z00_1073; } } } } 
BgL_auxz00_1946 = BgL_res2921z00_1074; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1946);} } 
}



/* atanfl */
BGL_EXPORTED_DEF double BGl_atanflz00zz__r4_numbers_6_5_flonumz00(double BgL_xz00_47, obj_t BgL_yz00_48)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 435 */
{ /* ./Ieee/flonum.scm 436 */
obj_t BgL_symbol1748z00_596;
BgL_symbol1748z00_596 = BGl_symbol2855z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 436 */

PUSH_TRACE(BgL_symbol1748z00_596); BUNSPEC; 
{ /* ./Ieee/flonum.scm 436 */
double BgL_aux1747z00_597;
if(
NULLP(BgL_yz00_48))
{ /* ./Ieee/flonum.scm 436 */
BgL_aux1747z00_597 = 
atan(BgL_xz00_47); }  else 
{ /* ./Ieee/flonum.scm 436 */
obj_t BgL_yz00_498;
{ /* ./Ieee/flonum.scm 436 */
obj_t BgL_pairz00_500;
if(
PAIRP(BgL_yz00_48))
{ /* ./Ieee/flonum.scm 436 */
BgL_pairz00_500 = BgL_yz00_48; }  else 
{ /* ./Ieee/flonum.scm 436 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2855z00zz__r4_numbers_6_5_flonumz00, BGl_string2821z00zz__r4_numbers_6_5_flonumz00, BgL_yz00_48, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)18581))); 
exit( -1 );} 
BgL_yz00_498 = 
CAR(BgL_pairz00_500); } 
{ /* ./Ieee/flonum.scm 436 */
double BgL_res1622z00_512;
{ /* ./Ieee/flonum.scm 436 */
double BgL_yz00_502;
{ /* ./Ieee/flonum.scm 436 */
obj_t BgL_auxz00_1968;
if(
REALP(BgL_yz00_498))
{ /* ./Ieee/flonum.scm 436 */
BgL_auxz00_1968 = BgL_yz00_498
; }  else 
{ /* ./Ieee/flonum.scm 436 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2855z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_yz00_498, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)18581))); 
exit( -1 );} 
BgL_yz00_502 = 
REAL_TO_DOUBLE(BgL_auxz00_1968); } 
{ /* ./Ieee/flonum.scm 436 */
bool_t BgL_tz00_503;
if(
(BgL_xz00_47==((double)0.0)))
{ /* ./Ieee/flonum.scm 436 */
BgL_tz00_503 = 
(BgL_yz00_502==((double)0.0)); }  else 
{ /* ./Ieee/flonum.scm 436 */
BgL_tz00_503 = ((bool_t)0); } 
if(BgL_tz00_503)
{ /* ./Ieee/flonum.scm 436 */
the_failure(BGl_string2856z00zz__r4_numbers_6_5_flonumz00, BGl_string2857z00zz__r4_numbers_6_5_flonumz00, BGl_real2858z00zz__r4_numbers_6_5_flonumz00); 
BgL_res1622z00_512 = ((double)0.0); }  else 
{ /* ./Ieee/flonum.scm 436 */
BgL_res1622z00_512 = 
atan2(BgL_xz00_47, BgL_yz00_502); } } } 
BgL_aux1747z00_597 = BgL_res1622z00_512; } } 
POP_TRACE(); 
return BgL_aux1747z00_597;} } } } 
}



/* _atanfl1874 */
obj_t BGl__atanfl1874z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_706, obj_t BgL_xz00_707, obj_t BgL_yz00_708)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 435 */
{ /* ./Ieee/flonum.scm 436 */
double BgL_auxz00_1982;
{ /* ./Ieee/flonum.scm 436 */
double BgL_auxz00_1983;
{ /* ./Ieee/flonum.scm 436 */
obj_t BgL_auxz00_1984;
if(
REALP(BgL_xz00_707))
{ /* ./Ieee/flonum.scm 436 */
BgL_auxz00_1984 = BgL_xz00_707
; }  else 
{ /* ./Ieee/flonum.scm 436 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2859z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_707, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)18581))); 
exit( -1 );} 
BgL_auxz00_1983 = 
REAL_TO_DOUBLE(BgL_auxz00_1984); } 
BgL_auxz00_1982 = 
BGl_atanflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1983, BgL_yz00_708); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1982);} } 
}



/* atan-1fl */
BGL_EXPORTED_DEF double BGl_atanzd21flzd2zz__r4_numbers_6_5_flonumz00(double BgL_xz00_49)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 444 */
{ /* ./Ieee/flonum.scm 445 */
obj_t BgL_symbol1752z00_1075;
BgL_symbol1752z00_1075 = BGl_symbol2860z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 445 */

PUSH_TRACE(BgL_symbol1752z00_1075); BUNSPEC; 
{ /* ./Ieee/flonum.scm 445 */
double BgL_aux1751z00_1076;
BgL_aux1751z00_1076 = 
atan(BgL_xz00_49); 
POP_TRACE(); 
return BgL_aux1751z00_1076;} } } } 
}



/* _atan-1fl1876 */
obj_t BGl__atanzd21fl1876zd2zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_709, obj_t BgL_xz00_710)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 444 */
{ /* ./Ieee/flonum.scm 445 */
double BgL_auxz00_1996;
{ /* ./Ieee/flonum.scm 445 */
double BgL_res2922z00_1080;
{ /* ./Ieee/flonum.scm 445 */
double BgL_xz00_1077;
{ /* ./Ieee/flonum.scm 445 */
obj_t BgL_auxz00_1997;
if(
REALP(BgL_xz00_710))
{ /* ./Ieee/flonum.scm 445 */
BgL_auxz00_1997 = BgL_xz00_710
; }  else 
{ /* ./Ieee/flonum.scm 445 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2861z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_710, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)18914))); 
exit( -1 );} 
BgL_xz00_1077 = 
REAL_TO_DOUBLE(BgL_auxz00_1997); } 
{ /* ./Ieee/flonum.scm 445 */
obj_t BgL_symbol1752z00_1078;
BgL_symbol1752z00_1078 = BGl_symbol2860z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 445 */

PUSH_TRACE(BgL_symbol1752z00_1078); BUNSPEC; 
{ /* ./Ieee/flonum.scm 445 */
double BgL_aux1751z00_1079;
BgL_aux1751z00_1079 = 
atan(BgL_xz00_1077); 
POP_TRACE(); 
BgL_res2922z00_1080 = BgL_aux1751z00_1079; } } } } 
BgL_auxz00_1996 = BgL_res2922z00_1080; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_1996);} } 
}



/* atan-2fl */
BGL_EXPORTED_DEF double BGl_atanzd22flzd2zz__r4_numbers_6_5_flonumz00(double BgL_xz00_50, double BgL_yz00_51)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 450 */
{ /* ./Ieee/flonum.scm 451 */
obj_t BgL_symbol1756z00_1081;
BgL_symbol1756z00_1081 = BGl_symbol2862z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 451 */

PUSH_TRACE(BgL_symbol1756z00_1081); BUNSPEC; 
{ /* ./Ieee/flonum.scm 451 */
double BgL_aux1755z00_1082;
{ /* ./Ieee/flonum.scm 451 */
bool_t BgL_tz00_1083;
if(
(BgL_xz00_50==((double)0.0)))
{ /* ./Ieee/flonum.scm 451 */
BgL_tz00_1083 = 
(BgL_yz00_51==((double)0.0)); }  else 
{ /* ./Ieee/flonum.scm 451 */
BgL_tz00_1083 = ((bool_t)0); } 
if(BgL_tz00_1083)
{ /* ./Ieee/flonum.scm 451 */
the_failure(BGl_string2856z00zz__r4_numbers_6_5_flonumz00, BGl_string2857z00zz__r4_numbers_6_5_flonumz00, BGl_real2858z00zz__r4_numbers_6_5_flonumz00); 
BgL_aux1755z00_1082 = ((double)0.0); }  else 
{ /* ./Ieee/flonum.scm 451 */
BgL_aux1755z00_1082 = 
atan2(BgL_xz00_50, BgL_yz00_51); } } 
POP_TRACE(); 
return BgL_aux1755z00_1082;} } } } 
}



/* _atan-2fl1878 */
obj_t BGl__atanzd22fl1878zd2zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_711, obj_t BgL_xz00_712, obj_t BgL_yz00_713)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 450 */
{ /* ./Ieee/flonum.scm 451 */
double BgL_auxz00_2016;
{ /* ./Ieee/flonum.scm 451 */
double BgL_res2923z00_1095;
{ /* ./Ieee/flonum.scm 451 */
double BgL_xz00_1087;double BgL_yz00_1088;
{ /* ./Ieee/flonum.scm 451 */
obj_t BgL_auxz00_2017;
if(
REALP(BgL_xz00_712))
{ /* ./Ieee/flonum.scm 451 */
BgL_auxz00_2017 = BgL_xz00_712
; }  else 
{ /* ./Ieee/flonum.scm 451 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2863z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_712, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)19191))); 
exit( -1 );} 
BgL_xz00_1087 = 
REAL_TO_DOUBLE(BgL_auxz00_2017); } 
{ /* ./Ieee/flonum.scm 451 */
obj_t BgL_auxz00_2024;
if(
REALP(BgL_yz00_713))
{ /* ./Ieee/flonum.scm 451 */
BgL_auxz00_2024 = BgL_yz00_713
; }  else 
{ /* ./Ieee/flonum.scm 451 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2863z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_yz00_713, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)19191))); 
exit( -1 );} 
BgL_yz00_1088 = 
REAL_TO_DOUBLE(BgL_auxz00_2024); } 
{ /* ./Ieee/flonum.scm 451 */
obj_t BgL_symbol1756z00_1089;
BgL_symbol1756z00_1089 = BGl_symbol2862z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 451 */

PUSH_TRACE(BgL_symbol1756z00_1089); BUNSPEC; 
{ /* ./Ieee/flonum.scm 451 */
double BgL_aux1755z00_1090;
{ /* ./Ieee/flonum.scm 451 */
bool_t BgL_tz00_1091;
if(
(BgL_xz00_1087==((double)0.0)))
{ /* ./Ieee/flonum.scm 451 */
BgL_tz00_1091 = 
(BgL_yz00_1088==((double)0.0)); }  else 
{ /* ./Ieee/flonum.scm 451 */
BgL_tz00_1091 = ((bool_t)0); } 
if(BgL_tz00_1091)
{ /* ./Ieee/flonum.scm 451 */
the_failure(BGl_string2856z00zz__r4_numbers_6_5_flonumz00, BGl_string2857z00zz__r4_numbers_6_5_flonumz00, BGl_real2858z00zz__r4_numbers_6_5_flonumz00); 
BgL_aux1755z00_1090 = ((double)0.0); }  else 
{ /* ./Ieee/flonum.scm 451 */
BgL_aux1755z00_1090 = 
atan2(BgL_xz00_1087, BgL_yz00_1088); } } 
POP_TRACE(); 
BgL_res2923z00_1095 = BgL_aux1755z00_1090; } } } } 
BgL_auxz00_2016 = BgL_res2923z00_1095; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2016);} } 
}



/* atan-2fl-ur */
BGL_EXPORTED_DEF double BGl_atanzd22flzd2urz00zz__r4_numbers_6_5_flonumz00(double BgL_xz00_52, double BgL_yz00_53)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 468 */
{ /* ./Ieee/flonum.scm 469 */
obj_t BgL_symbol1760z00_1096;
BgL_symbol1760z00_1096 = BGl_symbol2864z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 469 */

PUSH_TRACE(BgL_symbol1760z00_1096); BUNSPEC; 
{ /* ./Ieee/flonum.scm 469 */
double BgL_aux1759z00_1097;
BgL_aux1759z00_1097 = 
atan2(BgL_xz00_52, BgL_yz00_53); 
POP_TRACE(); 
return BgL_aux1759z00_1097;} } } } 
}



/* _atan-2fl-ur1880 */
obj_t BGl__atanzd22flzd2ur1880z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_714, obj_t BgL_xz00_715, obj_t BgL_yz00_716)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 468 */
{ /* ./Ieee/flonum.scm 469 */
double BgL_auxz00_2043;
{ /* ./Ieee/flonum.scm 469 */
double BgL_res2924z00_1102;
{ /* ./Ieee/flonum.scm 469 */
double BgL_xz00_1098;double BgL_yz00_1099;
{ /* ./Ieee/flonum.scm 469 */
obj_t BgL_auxz00_2044;
if(
REALP(BgL_xz00_715))
{ /* ./Ieee/flonum.scm 469 */
BgL_auxz00_2044 = BgL_xz00_715
; }  else 
{ /* ./Ieee/flonum.scm 469 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2865z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_xz00_715, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)19818))); 
exit( -1 );} 
BgL_xz00_1098 = 
REAL_TO_DOUBLE(BgL_auxz00_2044); } 
{ /* ./Ieee/flonum.scm 469 */
obj_t BgL_auxz00_2051;
if(
REALP(BgL_yz00_716))
{ /* ./Ieee/flonum.scm 469 */
BgL_auxz00_2051 = BgL_yz00_716
; }  else 
{ /* ./Ieee/flonum.scm 469 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2865z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_yz00_716, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)19818))); 
exit( -1 );} 
BgL_yz00_1099 = 
REAL_TO_DOUBLE(BgL_auxz00_2051); } 
{ /* ./Ieee/flonum.scm 469 */
obj_t BgL_symbol1760z00_1100;
BgL_symbol1760z00_1100 = BGl_symbol2864z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 469 */

PUSH_TRACE(BgL_symbol1760z00_1100); BUNSPEC; 
{ /* ./Ieee/flonum.scm 469 */
double BgL_aux1759z00_1101;
BgL_aux1759z00_1101 = 
atan2(BgL_xz00_1098, BgL_yz00_1099); 
POP_TRACE(); 
BgL_res2924z00_1102 = BgL_aux1759z00_1101; } } } } 
BgL_auxz00_2043 = BgL_res2924z00_1102; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2043);} } 
}



/* sqrtfl */
BGL_EXPORTED_DEF double BGl_sqrtflz00zz__r4_numbers_6_5_flonumz00(double BgL_rz00_54)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 474 */
{ /* ./Ieee/flonum.scm 475 */
obj_t BgL_symbol1764z00_1103;
BgL_symbol1764z00_1103 = BGl_symbol2866z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 475 */

PUSH_TRACE(BgL_symbol1764z00_1103); BUNSPEC; 
{ /* ./Ieee/flonum.scm 475 */
double BgL_aux1763z00_1104;
if(
(BgL_rz00_54<((double)0.0)))
{ /* ./Ieee/flonum.scm 475 */
obj_t BgL_objz00_1107;
BgL_objz00_1107 = 
DOUBLE_TO_REAL(BgL_rz00_54); 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2867z00zz__r4_numbers_6_5_flonumz00, BGl_string2857z00zz__r4_numbers_6_5_flonumz00, BgL_objz00_1107, "./Ieee/flonum.scm", ((long)20241)); 
{ /* ./Ieee/flonum.scm 475 */
obj_t BgL_auxz00_2067;
{ /* ./Ieee/flonum.scm 475 */
obj_t BgL_aux2642z00_1111;
BgL_aux2642z00_1111 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)20085))); 
if(
REALP(BgL_aux2642z00_1111))
{ /* ./Ieee/flonum.scm 475 */
BgL_auxz00_2067 = BgL_aux2642z00_1111
; }  else 
{ /* ./Ieee/flonum.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2866z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_aux2642z00_1111, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)20085))); 
exit( -1 );} } 
BgL_aux1763z00_1104 = 
REAL_TO_DOUBLE(BgL_auxz00_2067); } }  else 
{ /* ./Ieee/flonum.scm 475 */
BgL_aux1763z00_1104 = 
sqrt(BgL_rz00_54); } 
POP_TRACE(); 
return BgL_aux1763z00_1104;} } } } 
}



/* _sqrtfl1882 */
obj_t BGl__sqrtfl1882z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_717, obj_t BgL_rz00_718)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 474 */
{ /* ./Ieee/flonum.scm 475 */
double BgL_auxz00_2078;
{ /* ./Ieee/flonum.scm 475 */
double BgL_res2925z00_1122;
{ /* ./Ieee/flonum.scm 475 */
double BgL_rz00_1112;
{ /* ./Ieee/flonum.scm 475 */
obj_t BgL_auxz00_2079;
if(
REALP(BgL_rz00_718))
{ /* ./Ieee/flonum.scm 475 */
BgL_auxz00_2079 = BgL_rz00_718
; }  else 
{ /* ./Ieee/flonum.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2868z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_718, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)20085))); 
exit( -1 );} 
BgL_rz00_1112 = 
REAL_TO_DOUBLE(BgL_auxz00_2079); } 
{ /* ./Ieee/flonum.scm 475 */
obj_t BgL_symbol1764z00_1113;
BgL_symbol1764z00_1113 = BGl_symbol2866z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 475 */

PUSH_TRACE(BgL_symbol1764z00_1113); BUNSPEC; 
{ /* ./Ieee/flonum.scm 475 */
double BgL_aux1763z00_1114;
if(
(BgL_rz00_1112<((double)0.0)))
{ /* ./Ieee/flonum.scm 475 */
obj_t BgL_objz00_1117;
BgL_objz00_1117 = 
DOUBLE_TO_REAL(BgL_rz00_1112); 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2867z00zz__r4_numbers_6_5_flonumz00, BGl_string2857z00zz__r4_numbers_6_5_flonumz00, BgL_objz00_1117, "./Ieee/flonum.scm", ((long)20241)); 
{ /* ./Ieee/flonum.scm 475 */
obj_t BgL_auxz00_2091;
{ /* ./Ieee/flonum.scm 475 */
obj_t BgL_aux2642z00_1121;
BgL_aux2642z00_1121 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)20085))); 
if(
REALP(BgL_aux2642z00_1121))
{ /* ./Ieee/flonum.scm 475 */
BgL_auxz00_2091 = BgL_aux2642z00_1121
; }  else 
{ /* ./Ieee/flonum.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2866z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_aux2642z00_1121, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)20085))); 
exit( -1 );} } 
BgL_aux1763z00_1114 = 
REAL_TO_DOUBLE(BgL_auxz00_2091); } }  else 
{ /* ./Ieee/flonum.scm 475 */
BgL_aux1763z00_1114 = 
sqrt(BgL_rz00_1112); } 
POP_TRACE(); 
BgL_res2925z00_1122 = BgL_aux1763z00_1114; } } } } 
BgL_auxz00_2078 = BgL_res2925z00_1122; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2078);} } 
}



/* sqrtfl-ur */
BGL_EXPORTED_DEF double BGl_sqrtflzd2urzd2zz__r4_numbers_6_5_flonumz00(double BgL_rz00_55)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 485 */
{ /* ./Ieee/flonum.scm 486 */
obj_t BgL_symbol1768z00_1123;
BgL_symbol1768z00_1123 = BGl_symbol2869z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 486 */

PUSH_TRACE(BgL_symbol1768z00_1123); BUNSPEC; 
{ /* ./Ieee/flonum.scm 486 */
double BgL_aux1767z00_1124;
BgL_aux1767z00_1124 = 
sqrt(BgL_rz00_55); 
POP_TRACE(); 
return BgL_aux1767z00_1124;} } } } 
}



/* _sqrtfl-ur1884 */
obj_t BGl__sqrtflzd2ur1884zd2zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_719, obj_t BgL_rz00_720)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 485 */
{ /* ./Ieee/flonum.scm 486 */
double BgL_auxz00_2106;
{ /* ./Ieee/flonum.scm 486 */
double BgL_res2926z00_1128;
{ /* ./Ieee/flonum.scm 486 */
double BgL_rz00_1125;
{ /* ./Ieee/flonum.scm 486 */
obj_t BgL_auxz00_2107;
if(
REALP(BgL_rz00_720))
{ /* ./Ieee/flonum.scm 486 */
BgL_auxz00_2107 = BgL_rz00_720
; }  else 
{ /* ./Ieee/flonum.scm 486 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2870z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_rz00_720, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)20538))); 
exit( -1 );} 
BgL_rz00_1125 = 
REAL_TO_DOUBLE(BgL_auxz00_2107); } 
{ /* ./Ieee/flonum.scm 486 */
obj_t BgL_symbol1768z00_1126;
BgL_symbol1768z00_1126 = BGl_symbol2869z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 486 */

PUSH_TRACE(BgL_symbol1768z00_1126); BUNSPEC; 
{ /* ./Ieee/flonum.scm 486 */
double BgL_aux1767z00_1127;
BgL_aux1767z00_1127 = 
sqrt(BgL_rz00_1125); 
POP_TRACE(); 
BgL_res2926z00_1128 = BgL_aux1767z00_1127; } } } } 
BgL_auxz00_2106 = BgL_res2926z00_1128; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2106);} } 
}



/* exptfl */
BGL_EXPORTED_DEF double BGl_exptflz00zz__r4_numbers_6_5_flonumz00(double BgL_r1z00_56, double BgL_r2z00_57)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 491 */
{ /* ./Ieee/flonum.scm 492 */
obj_t BgL_symbol1772z00_1129;
BgL_symbol1772z00_1129 = BGl_symbol2871z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 492 */

PUSH_TRACE(BgL_symbol1772z00_1129); BUNSPEC; 
{ /* ./Ieee/flonum.scm 492 */
double BgL_aux1771z00_1130;
BgL_aux1771z00_1130 = 
pow(BgL_r1z00_56, BgL_r2z00_57); 
POP_TRACE(); 
return BgL_aux1771z00_1130;} } } } 
}



/* _exptfl1886 */
obj_t BGl__exptfl1886z00zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_721, obj_t BgL_r1z00_722, obj_t BgL_r2z00_723)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 491 */
{ /* ./Ieee/flonum.scm 492 */
double BgL_auxz00_2121;
{ /* ./Ieee/flonum.scm 492 */
double BgL_res2927z00_1135;
{ /* ./Ieee/flonum.scm 492 */
double BgL_r1z00_1131;double BgL_r2z00_1132;
{ /* ./Ieee/flonum.scm 492 */
obj_t BgL_auxz00_2122;
if(
REALP(BgL_r1z00_722))
{ /* ./Ieee/flonum.scm 492 */
BgL_auxz00_2122 = BgL_r1z00_722
; }  else 
{ /* ./Ieee/flonum.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2872z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r1z00_722, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)20806))); 
exit( -1 );} 
BgL_r1z00_1131 = 
REAL_TO_DOUBLE(BgL_auxz00_2122); } 
{ /* ./Ieee/flonum.scm 492 */
obj_t BgL_auxz00_2129;
if(
REALP(BgL_r2z00_723))
{ /* ./Ieee/flonum.scm 492 */
BgL_auxz00_2129 = BgL_r2z00_723
; }  else 
{ /* ./Ieee/flonum.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2872z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_r2z00_723, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)20806))); 
exit( -1 );} 
BgL_r2z00_1132 = 
REAL_TO_DOUBLE(BgL_auxz00_2129); } 
{ /* ./Ieee/flonum.scm 492 */
obj_t BgL_symbol1772z00_1133;
BgL_symbol1772z00_1133 = BGl_symbol2871z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 492 */

PUSH_TRACE(BgL_symbol1772z00_1133); BUNSPEC; 
{ /* ./Ieee/flonum.scm 492 */
double BgL_aux1771z00_1134;
BgL_aux1771z00_1134 = 
pow(BgL_r1z00_1131, BgL_r2z00_1132); 
POP_TRACE(); 
BgL_res2927z00_1135 = BgL_aux1771z00_1134; } } } } 
BgL_auxz00_2121 = BgL_res2927z00_1135; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2121);} } 
}



/* string->real */
BGL_EXPORTED_DEF double BGl_stringzd2ze3realz31zz__r4_numbers_6_5_flonumz00(char * BgL_stringz00_58)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 497 */
{ /* ./Ieee/flonum.scm 498 */
obj_t BgL_symbol1776z00_1136;
BgL_symbol1776z00_1136 = BGl_symbol2873z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 498 */

PUSH_TRACE(BgL_symbol1776z00_1136); BUNSPEC; 
{ /* ./Ieee/flonum.scm 498 */
double BgL_aux1775z00_1137;
BgL_aux1775z00_1137 = 
strtod(BgL_stringz00_58, ((long)0)); 
POP_TRACE(); 
return BgL_aux1775z00_1137;} } } } 
}



/* _string->real1888 */
obj_t BGl__stringzd2ze3real1888z31zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_724, obj_t BgL_stringz00_725)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 497 */
{ /* ./Ieee/flonum.scm 498 */
double BgL_auxz00_2143;
{ /* ./Ieee/flonum.scm 498 */
double BgL_res2928z00_1141;
{ /* ./Ieee/flonum.scm 498 */
char * BgL_stringz00_1138;
{ /* ./Ieee/flonum.scm 498 */
obj_t BgL_auxz00_2144;
if(
STRINGP(BgL_stringz00_725))
{ /* ./Ieee/flonum.scm 498 */
BgL_auxz00_2144 = BgL_stringz00_725
; }  else 
{ /* ./Ieee/flonum.scm 498 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2874z00zz__r4_numbers_6_5_flonumz00, BGl_string2875z00zz__r4_numbers_6_5_flonumz00, BgL_stringz00_725, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)21084))); 
exit( -1 );} 
BgL_stringz00_1138 = 
BSTRING_TO_STRING(BgL_auxz00_2144); } 
{ /* ./Ieee/flonum.scm 498 */
obj_t BgL_symbol1776z00_1139;
BgL_symbol1776z00_1139 = BGl_symbol2873z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 498 */

PUSH_TRACE(BgL_symbol1776z00_1139); BUNSPEC; 
{ /* ./Ieee/flonum.scm 498 */
double BgL_aux1775z00_1140;
BgL_aux1775z00_1140 = 
strtod(BgL_stringz00_1138, ((long)0)); 
POP_TRACE(); 
BgL_res2928z00_1141 = BgL_aux1775z00_1140; } } } } 
BgL_auxz00_2143 = BgL_res2928z00_1141; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2143);} } 
}



/* real->string */
BGL_EXPORTED_DEF obj_t BGl_realzd2ze3stringz31zz__r4_numbers_6_5_flonumz00(obj_t BgL_realz00_59)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 503 */
{ /* ./Ieee/flonum.scm 504 */
obj_t BgL_symbol1780z00_1142;
BgL_symbol1780z00_1142 = BGl_symbol2876z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 504 */

PUSH_TRACE(BgL_symbol1780z00_1142); BUNSPEC; 
{ /* ./Ieee/flonum.scm 504 */
obj_t BgL_aux1779z00_1143;
{ /* ./Ieee/flonum.scm 504 */
double BgL_auxz00_2156;
BgL_auxz00_2156 = 
REAL_TO_DOUBLE(BgL_realz00_59); 
BgL_aux1779z00_1143 = 
real_to_string(BgL_auxz00_2156); } 
POP_TRACE(); 
return BgL_aux1779z00_1143;} } } } 
}



/* _real->string1890 */
obj_t BGl__realzd2ze3string1890z31zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_726, obj_t BgL_realz00_727)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 503 */
{ /* ./Ieee/flonum.scm 504 */
obj_t BgL_res2929z00_1147;
{ /* ./Ieee/flonum.scm 504 */
obj_t BgL_realz00_1144;
if(
REALP(BgL_realz00_727))
{ /* ./Ieee/flonum.scm 504 */
BgL_realz00_1144 = BgL_realz00_727; }  else 
{ /* ./Ieee/flonum.scm 504 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2877z00zz__r4_numbers_6_5_flonumz00, BGl_string2878z00zz__r4_numbers_6_5_flonumz00, BgL_realz00_727, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)21364))); 
exit( -1 );} 
{ /* ./Ieee/flonum.scm 504 */
obj_t BgL_symbol1780z00_1145;
BgL_symbol1780z00_1145 = BGl_symbol2876z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 504 */

PUSH_TRACE(BgL_symbol1780z00_1145); BUNSPEC; 
{ /* ./Ieee/flonum.scm 504 */
obj_t BgL_aux1779z00_1146;
{ /* ./Ieee/flonum.scm 504 */
double BgL_auxz00_2166;
BgL_auxz00_2166 = 
REAL_TO_DOUBLE(BgL_realz00_1144); 
BgL_aux1779z00_1146 = 
real_to_string(BgL_auxz00_2166); } 
POP_TRACE(); 
BgL_res2929z00_1147 = BgL_aux1779z00_1146; } } } } 
return BgL_res2929z00_1147;} } 
}



/* ieee-string->real */
BGL_EXPORTED_DEF obj_t BGl_ieeezd2stringzd2ze3realze3zz__r4_numbers_6_5_flonumz00(obj_t BgL_stringz00_60)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 509 */
{ /* ./Ieee/flonum.scm 510 */
obj_t BgL_symbol1784z00_1148;
BgL_symbol1784z00_1148 = BGl_symbol2879z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 510 */

PUSH_TRACE(BgL_symbol1784z00_1148); BUNSPEC; 
{ /* ./Ieee/flonum.scm 510 */
obj_t BgL_aux1783z00_1149;
{ /* ./Ieee/flonum.scm 510 */
double BgL_auxz00_2171;
BgL_auxz00_2171 = 
bgl_ieee_string_to_double(BgL_stringz00_60); 
BgL_aux1783z00_1149 = 
DOUBLE_TO_REAL(BgL_auxz00_2171); } 
POP_TRACE(); 
return BgL_aux1783z00_1149;} } } } 
}



/* _ieee-string->real1892 */
obj_t BGl__ieeezd2stringzd2ze3real1892ze3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_728, obj_t BgL_stringz00_729)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 509 */
{ /* ./Ieee/flonum.scm 510 */
obj_t BgL_res2930z00_1153;
{ /* ./Ieee/flonum.scm 510 */
obj_t BgL_stringz00_1150;
if(
STRINGP(BgL_stringz00_729))
{ /* ./Ieee/flonum.scm 510 */
BgL_stringz00_1150 = BgL_stringz00_729; }  else 
{ /* ./Ieee/flonum.scm 510 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2880z00zz__r4_numbers_6_5_flonumz00, BGl_string2881z00zz__r4_numbers_6_5_flonumz00, BgL_stringz00_729, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)21655))); 
exit( -1 );} 
{ /* ./Ieee/flonum.scm 510 */
obj_t BgL_symbol1784z00_1151;
BgL_symbol1784z00_1151 = BGl_symbol2879z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 510 */

PUSH_TRACE(BgL_symbol1784z00_1151); BUNSPEC; 
{ /* ./Ieee/flonum.scm 510 */
obj_t BgL_aux1783z00_1152;
{ /* ./Ieee/flonum.scm 510 */
double BgL_auxz00_2181;
BgL_auxz00_2181 = 
bgl_ieee_string_to_double(BgL_stringz00_1150); 
BgL_aux1783z00_1152 = 
DOUBLE_TO_REAL(BgL_auxz00_2181); } 
POP_TRACE(); 
BgL_res2930z00_1153 = BgL_aux1783z00_1152; } } } } 
return BgL_res2930z00_1153;} } 
}



/* real->ieee-string */
BGL_EXPORTED_DEF obj_t BGl_realzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(obj_t BgL_realz00_61)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 515 */
{ /* ./Ieee/flonum.scm 516 */
obj_t BgL_symbol1788z00_1154;
BgL_symbol1788z00_1154 = BGl_symbol2882z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 516 */

PUSH_TRACE(BgL_symbol1788z00_1154); BUNSPEC; 
{ /* ./Ieee/flonum.scm 516 */
obj_t BgL_aux1787z00_1155;
{ /* ./Ieee/flonum.scm 516 */
double BgL_auxz00_2186;
BgL_auxz00_2186 = 
REAL_TO_DOUBLE(BgL_realz00_61); 
BgL_aux1787z00_1155 = 
bgl_double_to_ieee_string(BgL_auxz00_2186); } 
POP_TRACE(); 
return BgL_aux1787z00_1155;} } } } 
}



/* _real->ieee-string1894 */
obj_t BGl__realzd2ze3ieeezd2string1894ze3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_730, obj_t BgL_realz00_731)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 515 */
{ /* ./Ieee/flonum.scm 516 */
obj_t BgL_res2931z00_1159;
{ /* ./Ieee/flonum.scm 516 */
obj_t BgL_realz00_1156;
if(
REALP(BgL_realz00_731))
{ /* ./Ieee/flonum.scm 516 */
BgL_realz00_1156 = BgL_realz00_731; }  else 
{ /* ./Ieee/flonum.scm 516 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2883z00zz__r4_numbers_6_5_flonumz00, BGl_string2878z00zz__r4_numbers_6_5_flonumz00, BgL_realz00_731, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)21952))); 
exit( -1 );} 
{ /* ./Ieee/flonum.scm 516 */
obj_t BgL_symbol1788z00_1157;
BgL_symbol1788z00_1157 = BGl_symbol2882z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 516 */

PUSH_TRACE(BgL_symbol1788z00_1157); BUNSPEC; 
{ /* ./Ieee/flonum.scm 516 */
obj_t BgL_aux1787z00_1158;
{ /* ./Ieee/flonum.scm 516 */
double BgL_auxz00_2196;
BgL_auxz00_2196 = 
REAL_TO_DOUBLE(BgL_realz00_1156); 
BgL_aux1787z00_1158 = 
bgl_double_to_ieee_string(BgL_auxz00_2196); } 
POP_TRACE(); 
BgL_res2931z00_1159 = BgL_aux1787z00_1158; } } } } 
return BgL_res2931z00_1159;} } 
}



/* ieee-string->double */
BGL_EXPORTED_DEF double BGl_ieeezd2stringzd2ze3doubleze3zz__r4_numbers_6_5_flonumz00(obj_t BgL_stringz00_62)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 521 */
{ /* ./Ieee/flonum.scm 522 */
obj_t BgL_symbol1792z00_1160;
BgL_symbol1792z00_1160 = BGl_symbol2884z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 522 */

PUSH_TRACE(BgL_symbol1792z00_1160); BUNSPEC; 
{ /* ./Ieee/flonum.scm 522 */
double BgL_aux1791z00_1161;
BgL_aux1791z00_1161 = 
bgl_ieee_string_to_double(BgL_stringz00_62); 
POP_TRACE(); 
return BgL_aux1791z00_1161;} } } } 
}



/* _ieee-string->double1896 */
obj_t BGl__ieeezd2stringzd2ze3double1896ze3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_732, obj_t BgL_stringz00_733)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 521 */
{ /* ./Ieee/flonum.scm 522 */
double BgL_auxz00_2203;
{ /* ./Ieee/flonum.scm 522 */
double BgL_res2932z00_1165;
{ /* ./Ieee/flonum.scm 522 */
obj_t BgL_stringz00_1162;
if(
STRINGP(BgL_stringz00_733))
{ /* ./Ieee/flonum.scm 522 */
BgL_stringz00_1162 = BgL_stringz00_733; }  else 
{ /* ./Ieee/flonum.scm 522 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2885z00zz__r4_numbers_6_5_flonumz00, BGl_string2881z00zz__r4_numbers_6_5_flonumz00, BgL_stringz00_733, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)22251))); 
exit( -1 );} 
{ /* ./Ieee/flonum.scm 522 */
obj_t BgL_symbol1792z00_1163;
BgL_symbol1792z00_1163 = BGl_symbol2884z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 522 */

PUSH_TRACE(BgL_symbol1792z00_1163); BUNSPEC; 
{ /* ./Ieee/flonum.scm 522 */
double BgL_aux1791z00_1164;
BgL_aux1791z00_1164 = 
bgl_ieee_string_to_double(BgL_stringz00_1162); 
POP_TRACE(); 
BgL_res2932z00_1165 = BgL_aux1791z00_1164; } } } } 
BgL_auxz00_2203 = BgL_res2932z00_1165; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2203);} } 
}



/* double->ieee-string */
BGL_EXPORTED_DEF obj_t BGl_doublezd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(double BgL_doublez00_63)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 527 */
{ /* ./Ieee/flonum.scm 528 */
obj_t BgL_symbol1796z00_1166;
BgL_symbol1796z00_1166 = BGl_symbol2886z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 528 */

PUSH_TRACE(BgL_symbol1796z00_1166); BUNSPEC; 
{ /* ./Ieee/flonum.scm 528 */
obj_t BgL_aux1795z00_1167;
BgL_aux1795z00_1167 = 
bgl_double_to_ieee_string(BgL_doublez00_63); 
POP_TRACE(); 
return BgL_aux1795z00_1167;} } } } 
}



/* _double->ieee-string1898 */
obj_t BGl__doublezd2ze3ieeezd2string1898ze3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_734, obj_t BgL_doublez00_735)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 527 */
{ /* ./Ieee/flonum.scm 528 */
obj_t BgL_res2933z00_1171;
{ /* ./Ieee/flonum.scm 528 */
double BgL_doublez00_1168;
{ /* ./Ieee/flonum.scm 528 */
obj_t BgL_auxz00_2216;
if(
REALP(BgL_doublez00_735))
{ /* ./Ieee/flonum.scm 528 */
BgL_auxz00_2216 = BgL_doublez00_735
; }  else 
{ /* ./Ieee/flonum.scm 528 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2887z00zz__r4_numbers_6_5_flonumz00, BGl_string2794z00zz__r4_numbers_6_5_flonumz00, BgL_doublez00_735, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)22552))); 
exit( -1 );} 
BgL_doublez00_1168 = 
REAL_TO_DOUBLE(BgL_auxz00_2216); } 
{ /* ./Ieee/flonum.scm 528 */
obj_t BgL_symbol1796z00_1169;
BgL_symbol1796z00_1169 = BGl_symbol2886z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 528 */

PUSH_TRACE(BgL_symbol1796z00_1169); BUNSPEC; 
{ /* ./Ieee/flonum.scm 528 */
obj_t BgL_aux1795z00_1170;
BgL_aux1795z00_1170 = 
bgl_double_to_ieee_string(BgL_doublez00_1168); 
POP_TRACE(); 
BgL_res2933z00_1171 = BgL_aux1795z00_1170; } } } } 
return BgL_res2933z00_1171;} } 
}



/* ieee-string->float */
BGL_EXPORTED_DEF float BGl_ieeezd2stringzd2ze3floatze3zz__r4_numbers_6_5_flonumz00(obj_t BgL_stringz00_64)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 533 */
{ /* ./Ieee/flonum.scm 534 */
obj_t BgL_symbol1800z00_1172;
BgL_symbol1800z00_1172 = BGl_symbol2888z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 534 */

PUSH_TRACE(BgL_symbol1800z00_1172); BUNSPEC; 
{ /* ./Ieee/flonum.scm 534 */
float BgL_aux1799z00_1173;
{ /* ./Ieee/flonum.scm 534 */
double BgL_auxz00_2227;
BgL_auxz00_2227 = 
bgl_ieee_string_to_double(BgL_stringz00_64); 
BgL_aux1799z00_1173 = 
(float)(BgL_auxz00_2227); } 
POP_TRACE(); 
return BgL_aux1799z00_1173;} } } } 
}



/* _ieee-string->float1900 */
obj_t BGl__ieeezd2stringzd2ze3float1900ze3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_736, obj_t BgL_stringz00_737)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 533 */
{ /* ./Ieee/flonum.scm 534 */
float BgL_auxz00_2231;
{ /* ./Ieee/flonum.scm 534 */
float BgL_res2934z00_1177;
{ /* ./Ieee/flonum.scm 534 */
obj_t BgL_stringz00_1174;
if(
STRINGP(BgL_stringz00_737))
{ /* ./Ieee/flonum.scm 534 */
BgL_stringz00_1174 = BgL_stringz00_737; }  else 
{ /* ./Ieee/flonum.scm 534 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2889z00zz__r4_numbers_6_5_flonumz00, BGl_string2881z00zz__r4_numbers_6_5_flonumz00, BgL_stringz00_737, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)22852))); 
exit( -1 );} 
{ /* ./Ieee/flonum.scm 534 */
obj_t BgL_symbol1800z00_1175;
BgL_symbol1800z00_1175 = BGl_symbol2888z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 534 */

PUSH_TRACE(BgL_symbol1800z00_1175); BUNSPEC; 
{ /* ./Ieee/flonum.scm 534 */
float BgL_aux1799z00_1176;
{ /* ./Ieee/flonum.scm 534 */
double BgL_auxz00_2238;
BgL_auxz00_2238 = 
bgl_ieee_string_to_double(BgL_stringz00_1174); 
BgL_aux1799z00_1176 = 
(float)(BgL_auxz00_2238); } 
POP_TRACE(); 
BgL_res2934z00_1177 = BgL_aux1799z00_1176; } } } } 
BgL_auxz00_2231 = BgL_res2934z00_1177; } 
return 
FLOAT_TO_REAL(BgL_auxz00_2231);} } 
}



/* float->ieee-string */
BGL_EXPORTED_DEF obj_t BGl_floatzd2ze3ieeezd2stringze3zz__r4_numbers_6_5_flonumz00(float BgL_floatz00_65)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 539 */
{ /* ./Ieee/flonum.scm 540 */
obj_t BgL_symbol1804z00_1178;
BgL_symbol1804z00_1178 = BGl_symbol2890z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 540 */

PUSH_TRACE(BgL_symbol1804z00_1178); BUNSPEC; 
{ /* ./Ieee/flonum.scm 540 */
obj_t BgL_aux1803z00_1179;
{ /* ./Ieee/flonum.scm 540 */
double BgL_auxz00_2244;
BgL_auxz00_2244 = 
(double)(BgL_floatz00_65); 
BgL_aux1803z00_1179 = 
bgl_double_to_ieee_string(BgL_auxz00_2244); } 
POP_TRACE(); 
return BgL_aux1803z00_1179;} } } } 
}



/* _float->ieee-string1902 */
obj_t BGl__floatzd2ze3ieeezd2string1902ze3zz__r4_numbers_6_5_flonumz00(obj_t BgL_envz00_738, obj_t BgL_floatz00_739)
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 539 */
{ /* ./Ieee/flonum.scm 540 */
obj_t BgL_res2935z00_1183;
{ /* ./Ieee/flonum.scm 540 */
float BgL_floatz00_1180;
{ /* ./Ieee/flonum.scm 540 */
obj_t BgL_auxz00_2248;
if(
REALP(BgL_floatz00_739))
{ /* ./Ieee/flonum.scm 540 */
BgL_auxz00_2248 = BgL_floatz00_739
; }  else 
{ /* ./Ieee/flonum.scm 540 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2891z00zz__r4_numbers_6_5_flonumz00, BGl_string2892z00zz__r4_numbers_6_5_flonumz00, BgL_floatz00_739, BGl_string2795z00zz__r4_numbers_6_5_flonumz00, 
BINT(((long)23151))); 
exit( -1 );} 
BgL_floatz00_1180 = 
REAL_TO_FLOAT(BgL_auxz00_2248); } 
{ /* ./Ieee/flonum.scm 540 */
obj_t BgL_symbol1804z00_1181;
BgL_symbol1804z00_1181 = BGl_symbol2890z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 540 */

PUSH_TRACE(BgL_symbol1804z00_1181); BUNSPEC; 
{ /* ./Ieee/flonum.scm 540 */
obj_t BgL_aux1803z00_1182;
{ /* ./Ieee/flonum.scm 540 */
double BgL_auxz00_2256;
BgL_auxz00_2256 = 
(double)(BgL_floatz00_1180); 
BgL_aux1803z00_1182 = 
bgl_double_to_ieee_string(BgL_auxz00_2256); } 
POP_TRACE(); 
BgL_res2935z00_1183 = BgL_aux1803z00_1182; } } } } 
return BgL_res2935z00_1183;} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_flonumz00()
{ AN_OBJECT;
{ /* ./Ieee/flonum.scm 14 */
{ /* ./Ieee/flonum.scm 14 */
obj_t BgL_symbol1808z00_626;
BgL_symbol1808z00_626 = BGl_symbol2893z00zz__r4_numbers_6_5_flonumz00; 
{ /* ./Ieee/flonum.scm 14 */

PUSH_TRACE(BgL_symbol1808z00_626); BUNSPEC; 
{ /* ./Ieee/flonum.scm 14 */
obj_t BgL_aux1807z00_627;
BgL_aux1807z00_627 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_numbers_6_5_flonum"); 
POP_TRACE(); 
return BgL_aux1807z00_627;} } } } 
}

