/*===========================================================================*/
/*   (Ieee/number.scm)                                                       */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Ieee/number.scm -indent -o objs/obj_u/Ieee/number.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

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

BGL_EXPORTED_DECL bool_t BGl_2zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__2zf2zf2zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__logz00zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL obj_t BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_exactzf3zf3zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl__sinz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__2zc3zc3zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl__2zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl__2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_roundz00zz__r4_numbers_6_5z00(obj_t);
extern long BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl__tanz00zz__r4_numbers_6_5z00(obj_t, obj_t);
extern double BGl_roundflz00zz__r4_numbers_6_5_flonumz00(double);
BGL_EXPORTED_DECL obj_t bgl_exact_to_inexact(obj_t);
BGL_EXPORTED_DECL bool_t BGl_rationalzf3zf3zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl__absz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__minz00zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl__expz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__negativezf3zf3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_za2za2zz__r4_numbers_6_5z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_floorz00zz__r4_numbers_6_5z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_2zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_zb2zb2zz__r4_numbers_6_5z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_flonumzd2ze3llongz31zz__r4_numbers_6_5z00(double);
BGL_EXPORTED_DECL obj_t BGl_zf2zf2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_llongzd2ze3flonumz31zz__r4_numbers_6_5z00(BGL_LONGLONG_T);
BGL_EXPORTED_DECL bool_t BGl_inexactzf3zf3zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl__cosz00zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zc3zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_2ze3zd3z30zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl__exactzd2ze3inexactz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__za7erozf3z54zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__flonumzd2ze3llongz31zz__r4_numbers_6_5z00(obj_t, obj_t);
extern obj_t real_to_string(double);
static obj_t BGl__inexactzf3zf3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__positivezf3zf3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_maxz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3z30zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl__sqrtz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__exactzf3zf3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__asinz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__ze3zd3z30zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_logz00zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5z00();
static obj_t BGl__elongzd2ze3flonumz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_sinz00zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl__atanz00zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_fixnumzd2ze3flonumz31zz__r4_numbers_6_5z00(long);
BGL_EXPORTED_DECL char * BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl__zf2zf2zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl__numberzf3zf3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_tanz00zz__r4_numbers_6_5z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7erozf3z54zz__r4_numbers_6_5z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_positivezf3zf3zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl__zc3zc3zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl__zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_flonumzd2ze3elongz31zz__r4_numbers_6_5z00(double);
BGL_EXPORTED_DECL obj_t BGl_absz00zz__r4_numbers_6_5z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_minz00zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_expz00zz__r4_numbers_6_5z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl__acosz00zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_truncatez00zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl__llongzd2ze3flonumz31zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_complexzf3zf3zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl__numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_cosz00zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl__2zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl__fixnumzd2ze3flonumz31zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_sqrtz00zz__r4_numbers_6_5z00(obj_t);
extern obj_t string_to_bstring(char *);
static obj_t BGl__exptz00zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_asinz00zz__r4_numbers_6_5z00(obj_t);
extern obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, obj_t);
BGL_EXPORTED_DECL bool_t BGl_negativezf3zf3zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl__2ze3zd3z30zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_atanz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__truncatez00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__complexzf3zf3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__roundz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__flonumzd2ze3fixnumz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__rationalzf3zf3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__stringzd2ze3numberz31zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl__ceilingz00zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bgl_inexact_to_exact(obj_t);
static obj_t BGl__flonumzd2ze3elongz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__floorz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__maxz00zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_acosz00zz__r4_numbers_6_5z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_2zf2zf2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__inexactzd2ze3exactz31zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ceilingz00zz__r4_numbers_6_5z00(obj_t);
BGL_EXPORTED_DECL double BGl_elongzd2ze3flonumz31zz__r4_numbers_6_5z00(long);
BGL_EXPORTED_DECL obj_t BGl_exptz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_flonumzd2ze3fixnumz31zz__r4_numbers_6_5z00(double);
static obj_t BGl__2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl__2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_2zc3zc3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_2zf2zd2envz20zz__r4_numbers_6_5z00, BgL_bgl__2za7f2za7f2za7za7__r4_numbers_6_5za7002869za7, BGl__2zf2zf2zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_exptzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__exptza700za7za7__r4_numbers_6_5za7002870z00, BGl__exptz00zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_asinzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__asinza700za7za7__r4_numbers_6_5za7002871z00, BGl__asinz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_numberzf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__numberza7f3za7f3za7za7__r4_numbers_6_5za7002872za7, BGl__numberzf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_acoszd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__acosza700za7za7__r4_numbers_6_5za7002873z00, BGl__acosz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_REAL( BGl_real2856z00zz__r4_numbers_6_5z00, BgL_bgl_real2856za700za7za7__r4_numbers_6_5za7002874z00, 1.0 );
DEFINE_EXPORT_PROCEDURE( BGl_rationalzf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__rationalza7f3za7f3za7za7__r4_numbers_6_5za7002875za7, BGl__rationalzf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_logzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__logza700za7za7__r4_numbers_6_5za7002876z00, BGl__logz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_truncatezd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__truncateza700za7za7__r4_numbers_6_5za7002877z00, BGl__truncatez00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3zd2envz11zz__r4_numbers_6_5z00, BgL_bgl__za7c3za7c3za7za7__r4_numbers_6_5za7002878za7, va_generic_entry, BGl__zc3zc3zz__r4_numbers_6_5z00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_expzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__expza700za7za7__r4_numbers_6_5za7002879z00, BGl__expz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_2zc3zd2envz11zz__r4_numbers_6_5z00, BgL_bgl__2za7c3za7c3za7za7__r4_numbers_6_5za7002880za7, BGl__2zc3zc3zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_sinzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__sinza700za7za7__r4_numbers_6_5za7002881z00, BGl__sinz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_numberzd2ze3stringzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__numberza7d2za7e3stringza731za7za7__r4_numbers_6_5za7002882z00, va_generic_entry, BGl__numberzd2ze3stringz31zz__r4_numbers_6_5z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_coszd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__cosza700za7za7__r4_numbers_6_5za7002883z00, BGl__cosz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_flonumzd2ze3llongzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__flonumza7d2za7e3llongza731za7za7__r4_numbers_6_5za7002884z00, BGl__flonumzd2ze3llongz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_positivezf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__positiveza7f3za7f3za7za7__r4_numbers_6_5za7002885za7, BGl__positivezf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_za7erozf3zd2envz86zz__r4_numbers_6_5z00, BgL_bgl__za7a7eroza7f3za754za7za7__r4_numbers_6_5za7002886z00, BGl__za7erozf3z54zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_sqrtzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__sqrtza700za7za7__r4_numbers_6_5za7002887z00, BGl__sqrtz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_llongzd2ze3flonumzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__llongza7d2za7e3flonumza731za7za7__r4_numbers_6_5za7002888z00, BGl__llongzd2ze3flonumz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3zd3zd2envzc2zz__r4_numbers_6_5z00, BgL_bgl__za7c3za7d3za710za7za7__r4_numbers_6_5za7002889z00, va_generic_entry, BGl__zc3zd3z10zz__r4_numbers_6_5z00, -3 );
DEFINE_STRING( BGl_string2863z00zz__r4_numbers_6_5z00, BgL_bgl_string2863za700za7za7__r4_numbers_6_5za7002890z00, "Only radix `10' is legal for floating point number", 50 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3zd2envz31zz__r4_numbers_6_5z00, BgL_bgl__za7e3za7e3za7za7__r4_numbers_6_5za7002891za7, va_generic_entry, BGl__ze3ze3zz__r4_numbers_6_5z00, -3 );
DEFINE_STRING( BGl_string2862z00zz__r4_numbers_6_5z00, BgL_bgl_string2862za700za7za7__r4_numbers_6_5za7002892z00, "Illegal number of optional arguments", 36 );
DEFINE_STRING( BGl_string2861z00zz__r4_numbers_6_5z00, BgL_bgl_string2861za700za7za7__r4_numbers_6_5za7002893z00, "Illegal radix", 13 );
DEFINE_EXPORT_PROCEDURE( BGl_2ze3zd2envz31zz__r4_numbers_6_5z00, BgL_bgl__2za7e3za7e3za7za7__r4_numbers_6_5za7002894za7, BGl__2ze3ze3zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_STRING( BGl_string2860z00zz__r4_numbers_6_5z00, BgL_bgl_string2860za700za7za7__r4_numbers_6_5za7002895z00, "string->number", 14 );
DEFINE_STRING( BGl_string2859z00zz__r4_numbers_6_5z00, BgL_bgl_string2859za700za7za7__r4_numbers_6_5za7002896z00, "Argument not a number", 21 );
DEFINE_STRING( BGl_string2858z00zz__r4_numbers_6_5z00, BgL_bgl_string2858za700za7za7__r4_numbers_6_5za7002897z00, "number->string", 14 );
DEFINE_EXPORT_PROCEDURE( BGl_negativezf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__negativeza7f3za7f3za7za7__r4_numbers_6_5za7002898za7, BGl__negativezf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_STRING( BGl_string2857z00zz__r4_numbers_6_5z00, BgL_bgl_string2857za700za7za7__r4_numbers_6_5za7002899z00, "expt", 4 );
DEFINE_STRING( BGl_string2855z00zz__r4_numbers_6_5z00, BgL_bgl_string2855za700za7za7__r4_numbers_6_5za7002900z00, "sqrt", 4 );
DEFINE_STRING( BGl_string2854z00zz__r4_numbers_6_5z00, BgL_bgl_string2854za700za7za7__r4_numbers_6_5za7002901z00, "atan", 4 );
DEFINE_STRING( BGl_string2853z00zz__r4_numbers_6_5z00, BgL_bgl_string2853za700za7za7__r4_numbers_6_5za7002902z00, "acos", 4 );
DEFINE_STRING( BGl_string2852z00zz__r4_numbers_6_5z00, BgL_bgl_string2852za700za7za7__r4_numbers_6_5za7002903z00, "asin", 4 );
DEFINE_STRING( BGl_string2851z00zz__r4_numbers_6_5z00, BgL_bgl_string2851za700za7za7__r4_numbers_6_5za7002904z00, "tan", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_flonumzd2ze3elongzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__flonumza7d2za7e3elongza731za7za7__r4_numbers_6_5za7002905z00, BGl__flonumzd2ze3elongz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_STRING( BGl_string2850z00zz__r4_numbers_6_5z00, BgL_bgl_string2850za700za7za7__r4_numbers_6_5za7002906z00, "cos", 3 );
DEFINE_STRING( BGl_string2849z00zz__r4_numbers_6_5z00, BgL_bgl_string2849za700za7za7__r4_numbers_6_5za7002907z00, "sin", 3 );
DEFINE_STRING( BGl_string2848z00zz__r4_numbers_6_5z00, BgL_bgl_string2848za700za7za7__r4_numbers_6_5za7002908z00, "log", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_zb2zd2envz60zz__r4_numbers_6_5z00, BgL_bgl__za7b2za7b2za7za7__r4_numbers_6_5za7002909za7, va_generic_entry, BGl__zb2zb2zz__r4_numbers_6_5z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_2zc3zd3zd2envzc2zz__r4_numbers_6_5z00, BgL_bgl__2za7c3za7d3za710za7za7__r4_numbers_6_5za7002910z00, BGl__2zc3zd3z10zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_STRING( BGl_string2847z00zz__r4_numbers_6_5z00, BgL_bgl_string2847za700za7za7__r4_numbers_6_5za7002911z00, "exp", 3 );
DEFINE_STRING( BGl_string2846z00zz__r4_numbers_6_5z00, BgL_bgl_string2846za700za7za7__r4_numbers_6_5za7002912z00, "round", 5 );
DEFINE_EXPORT_PROCEDURE( BGl_2zb2zd2envz60zz__r4_numbers_6_5z00, BgL_bgl__2za7b2za7b2za7za7__r4_numbers_6_5za7002913za7, BGl__2zb2zb2zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_STRING( BGl_string2845z00zz__r4_numbers_6_5z00, BgL_bgl_string2845za700za7za7__r4_numbers_6_5za7002914z00, "truncate", 8 );
DEFINE_STRING( BGl_string2844z00zz__r4_numbers_6_5z00, BgL_bgl_string2844za700za7za7__r4_numbers_6_5za7002915z00, "ceiling", 7 );
DEFINE_EXPORT_PROCEDURE( BGl_inexactzf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__inexactza7f3za7f3za7za7__r4_numbers_6_5za7002916za7, BGl__inexactzf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_STRING( BGl_string2843z00zz__r4_numbers_6_5z00, BgL_bgl_string2843za700za7za7__r4_numbers_6_5za7002917z00, "floor", 5 );
DEFINE_EXPORT_PROCEDURE( BGl_roundzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__roundza700za7za7__r4_numbers_6_5za7002918z00, BGl__roundz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_STRING( BGl_string2842z00zz__r4_numbers_6_5z00, BgL_bgl_string2842za700za7za7__r4_numbers_6_5za7002919z00, "abs", 3 );
DEFINE_STRING( BGl_string2841z00zz__r4_numbers_6_5z00, BgL_bgl_string2841za700za7za7__r4_numbers_6_5za7002920z00, "/", 1 );
DEFINE_STRING( BGl_string2840z00zz__r4_numbers_6_5z00, BgL_bgl_string2840za700za7za7__r4_numbers_6_5za7002921z00, "-", 1 );
DEFINE_STRING( BGl_string2839z00zz__r4_numbers_6_5z00, BgL_bgl_string2839za700za7za7__r4_numbers_6_5za7002922z00, "*", 1 );
DEFINE_STRING( BGl_string2838z00zz__r4_numbers_6_5z00, BgL_bgl_string2838za700za7za7__r4_numbers_6_5za7002923z00, "+", 1 );
DEFINE_STRING( BGl_string2837z00zz__r4_numbers_6_5z00, BgL_bgl_string2837za700za7za7__r4_numbers_6_5za7002924z00, "negative", 8 );
DEFINE_STRING( BGl_string2836z00zz__r4_numbers_6_5z00, BgL_bgl_string2836za700za7za7__r4_numbers_6_5za7002925z00, "positive", 8 );
DEFINE_STRING( BGl_string2835z00zz__r4_numbers_6_5z00, BgL_bgl_string2835za700za7za7__r4_numbers_6_5za7002926z00, "zero", 4 );
DEFINE_STRING( BGl_string2834z00zz__r4_numbers_6_5z00, BgL_bgl_string2834za700za7za7__r4_numbers_6_5za7002927z00, ">=", 2 );
DEFINE_STRING( BGl_string2833z00zz__r4_numbers_6_5z00, BgL_bgl_string2833za700za7za7__r4_numbers_6_5za7002928z00, "<=", 2 );
DEFINE_STRING( BGl_string2832z00zz__r4_numbers_6_5z00, BgL_bgl_string2832za700za7za7__r4_numbers_6_5za7002929z00, ">", 1 );
DEFINE_STRING( BGl_string2831z00zz__r4_numbers_6_5z00, BgL_bgl_string2831za700za7za7__r4_numbers_6_5za7002930z00, "<", 1 );
DEFINE_EXPORT_PROCEDURE( BGl_complexzf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__complexza7f3za7f3za7za7__r4_numbers_6_5za7002931za7, BGl__complexzf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_STRING( BGl_string2830z00zz__r4_numbers_6_5z00, BgL_bgl_string2830za700za7za7__r4_numbers_6_5za7002932z00, "not a number", 12 );
DEFINE_STRING( BGl_string2829z00zz__r4_numbers_6_5z00, BgL_bgl_string2829za700za7za7__r4_numbers_6_5za7002933z00, "=", 1 );
DEFINE_EXPORT_PROCEDURE( BGl_minzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__minza700za7za7__r4_numbers_6_5za7002934z00, va_generic_entry, BGl__minz00zz__r4_numbers_6_5z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_maxzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__maxza700za7za7__r4_numbers_6_5za7002935z00, va_generic_entry, BGl__maxz00zz__r4_numbers_6_5z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_flonumzd2ze3fixnumzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__flonumza7d2za7e3fixnumza731za7za7__r4_numbers_6_5za7002936z00, BGl__flonumzd2ze3fixnumz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_atanzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__atanza700za7za7__r4_numbers_6_5za7002937z00, va_generic_entry, BGl__atanz00zz__r4_numbers_6_5z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze3numberzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__stringza7d2za7e3numberza731za7za7__r4_numbers_6_5za7002938z00, va_generic_entry, BGl__stringzd2ze3numberz31zz__r4_numbers_6_5z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3zd3zd2envze2zz__r4_numbers_6_5z00, BgL_bgl__za7e3za7d3za730za7za7__r4_numbers_6_5za7002939z00, va_generic_entry, BGl__ze3zd3z30zz__r4_numbers_6_5z00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_zd2zd2envz00zz__r4_numbers_6_5z00, BgL_bgl__za7d2za7d2za7za7__r4_numbers_6_5za7002940za7, va_generic_entry, BGl__zd2zd2zz__r4_numbers_6_5z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_ceilingzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__ceilingza700za7za7__r4_numbers_6_5za7002941z00, BGl__ceilingz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_2zd2zd2envz00zz__r4_numbers_6_5z00, BgL_bgl__2za7d2za7d2za7za7__r4_numbers_6_5za7002942za7, BGl__2zd2zd2zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_abszd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__absza700za7za7__r4_numbers_6_5za7002943z00, BGl__absz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_inexactzd2ze3exactzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__inexactza7d2za7e3exactza731za7za7__r4_numbers_6_5za7002944z00, BGl__inexactzd2ze3exactz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_2ze3zd3zd2envze2zz__r4_numbers_6_5z00, BgL_bgl__2za7e3za7d3za730za7za7__r4_numbers_6_5za7002945z00, BGl__2ze3zd3z30zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_zd3zd2envz01zz__r4_numbers_6_5z00, BgL_bgl__za7d3za7d3za7za7__r4_numbers_6_5za7002946za7, va_generic_entry, BGl__zd3zd3zz__r4_numbers_6_5z00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_2zd3zd2envz01zz__r4_numbers_6_5z00, BgL_bgl__2za7d3za7d3za7za7__r4_numbers_6_5za7002947za7, BGl__2zd3zd3zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fixnumzd2ze3flonumzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__fixnumza7d2za7e3flonumza731za7za7__r4_numbers_6_5za7002948z00, BGl__fixnumzd2ze3flonumz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_floorzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__floorza700za7za7__r4_numbers_6_5za7002949z00, BGl__floorz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_za2zd2envz70zz__r4_numbers_6_5z00, BgL_bgl__za7a2za7a2za7za7__r4_numbers_6_5za7002950za7, va_generic_entry, BGl__za2za2zz__r4_numbers_6_5z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_tanzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__tanza700za7za7__r4_numbers_6_5za7002951z00, BGl__tanz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_2za2zd2envz70zz__r4_numbers_6_5z00, BgL_bgl__2za7a2za7a2za7za7__r4_numbers_6_5za7002952za7, BGl__2za2za2zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_elongzd2ze3flonumzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__elongza7d2za7e3flonumza731za7za7__r4_numbers_6_5za7002953z00, BGl__elongzd2ze3flonumz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_exactzf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__exactza7f3za7f3za7za7__r4_numbers_6_5za7002954za7, BGl__exactzf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_exactzd2ze3inexactzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__exactza7d2za7e3inexactza731za7za7__r4_numbers_6_5za7002955z00, BGl__exactzd2ze3inexactz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zf2zd2envz20zz__r4_numbers_6_5z00, BgL_bgl__za7f2za7f2za7za7__r4_numbers_6_5za7002956za7, va_generic_entry, BGl__zf2zf2zz__r4_numbers_6_5z00, -2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long BgL_checksumz00_2087, char * BgL_fromz00_2088)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5z00 = 
BBOOL(((bool_t)0)); 
BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* number? */
BGL_EXPORTED_DEF bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 166 */
if(
INTEGERP(BgL_objz00_1))
{ /* ./Ieee/number.scm 167 */
return ((bool_t)1);}  else 
{ /* ./Ieee/number.scm 167 */
return 
REALP(BgL_objz00_1);} } 
}



/* _number? */
obj_t BGl__numberzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1942, obj_t BgL_objz00_1943)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 166 */
{ /* ./Ieee/number.scm 167 */
bool_t BgL_auxz00_2096;
if(
INTEGERP(BgL_objz00_1943))
{ /* ./Ieee/number.scm 167 */
BgL_auxz00_2096 = ((bool_t)1)
; }  else 
{ /* ./Ieee/number.scm 167 */
BgL_auxz00_2096 = 
REALP(BgL_objz00_1943)
; } 
return 
BBOOL(BgL_auxz00_2096);} } 
}



/* exact? */
BGL_EXPORTED_DEF bool_t BGl_exactzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_za7za7_2)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 174 */
return 
INTEGERP(BgL_za7za7_2);} 
}



/* _exact? */
obj_t BGl__exactzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1944, obj_t BgL_za7za7_1945)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 174 */
{ /* ./Ieee/number.scm 175 */
bool_t BgL_auxz00_2102;
BgL_auxz00_2102 = 
INTEGERP(BgL_za7za7_1945); 
return 
BBOOL(BgL_auxz00_2102);} } 
}



/* inexact? */
BGL_EXPORTED_DEF bool_t BGl_inexactzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_za7za7_3)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 180 */
return 
REALP(BgL_za7za7_3);} 
}



/* _inexact? */
obj_t BGl__inexactzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1946, obj_t BgL_za7za7_1947)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 180 */
{ /* ./Ieee/number.scm 181 */
bool_t BgL_auxz00_2106;
BgL_auxz00_2106 = 
REALP(BgL_za7za7_1947); 
return 
BBOOL(BgL_auxz00_2106);} } 
}



/* complex? */
BGL_EXPORTED_DEF bool_t BGl_complexzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_xz00_4)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 186 */
if(
INTEGERP(BgL_xz00_4))
{ /* ./Ieee/number.scm 187 */
return ((bool_t)1);}  else 
{ /* ./Ieee/number.scm 187 */
return 
REALP(BgL_xz00_4);} } 
}



/* _complex? */
obj_t BGl__complexzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1948, obj_t BgL_xz00_1949)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 186 */
{ /* ./Ieee/number.scm 187 */
bool_t BgL_auxz00_2112;
BgL_auxz00_2112 = 
BGl_complexzf3zf3zz__r4_numbers_6_5z00(BgL_xz00_1949); 
return 
BBOOL(BgL_auxz00_2112);} } 
}



/* rational? */
BGL_EXPORTED_DEF bool_t BGl_rationalzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_xz00_5)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 192 */
if(
INTEGERP(BgL_xz00_5))
{ /* ./Ieee/number.scm 193 */
return ((bool_t)1);}  else 
{ /* ./Ieee/number.scm 193 */
return 
REALP(BgL_xz00_5);} } 
}



/* _rational? */
obj_t BGl__rationalzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1950, obj_t BgL_xz00_1951)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 192 */
{ /* ./Ieee/number.scm 193 */
bool_t BgL_auxz00_2118;
BgL_auxz00_2118 = 
BGl_rationalzf3zf3zz__r4_numbers_6_5z00(BgL_xz00_1951); 
return 
BBOOL(BgL_auxz00_2118);} } 
}



/* flonum->fixnum */
BGL_EXPORTED_DEF long BGl_flonumzd2ze3fixnumz31zz__r4_numbers_6_5z00(double BgL_xz00_6)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 198 */
return 
(long)(BgL_xz00_6);} 
}



/* _flonum->fixnum */
obj_t BGl__flonumzd2ze3fixnumz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1952, obj_t BgL_xz00_1953)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 198 */
{ /* ./Ieee/number.scm 199 */
long BgL_auxz00_2122;
{ /* ./Ieee/number.scm 199 */
double BgL_auxz00_2123;
BgL_auxz00_2123 = 
REAL_TO_DOUBLE(BgL_xz00_1953); 
BgL_auxz00_2122 = 
(long)(BgL_auxz00_2123); } 
return 
BINT(BgL_auxz00_2122);} } 
}



/* fixnum->flonum */
BGL_EXPORTED_DEF double BGl_fixnumzd2ze3flonumz31zz__r4_numbers_6_5z00(long BgL_xz00_7)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 204 */
return 
(double)(BgL_xz00_7);} 
}



/* _fixnum->flonum */
obj_t BGl__fixnumzd2ze3flonumz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1954, obj_t BgL_xz00_1955)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 204 */
{ /* ./Ieee/number.scm 205 */
double BgL_auxz00_2128;
{ /* ./Ieee/number.scm 205 */
long BgL_auxz00_2129;
BgL_auxz00_2129 = 
(long)CINT(BgL_xz00_1955); 
BgL_auxz00_2128 = 
(double)(BgL_auxz00_2129); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2128);} } 
}



/* flonum->elong */
BGL_EXPORTED_DEF long BGl_flonumzd2ze3elongz31zz__r4_numbers_6_5z00(double BgL_xz00_8)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 210 */
return 
(long)(BgL_xz00_8);} 
}



/* _flonum->elong */
obj_t BGl__flonumzd2ze3elongz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1956, obj_t BgL_xz00_1957)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 210 */
{ /* ./Ieee/number.scm 211 */
long BgL_auxz00_2134;
{ /* ./Ieee/number.scm 211 */
double BgL_auxz00_2135;
BgL_auxz00_2135 = 
REAL_TO_DOUBLE(BgL_xz00_1957); 
BgL_auxz00_2134 = 
(long)(BgL_auxz00_2135); } 
return 
LONG_TO_BELONG(BgL_auxz00_2134);} } 
}



/* elong->flonum */
BGL_EXPORTED_DEF double BGl_elongzd2ze3flonumz31zz__r4_numbers_6_5z00(long BgL_xz00_9)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 216 */
return 
(double)(BgL_xz00_9);} 
}



/* _elong->flonum */
obj_t BGl__elongzd2ze3flonumz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1958, obj_t BgL_xz00_1959)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 216 */
{ /* ./Ieee/number.scm 217 */
double BgL_auxz00_2140;
{ /* ./Ieee/number.scm 217 */
long BgL_xz00_2082;
BgL_xz00_2082 = 
BELONG_TO_LONG(BgL_xz00_1959); 
BgL_auxz00_2140 = 
(double)(BgL_xz00_2082); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2140);} } 
}



/* flonum->llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_flonumzd2ze3llongz31zz__r4_numbers_6_5z00(double BgL_xz00_10)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 222 */
return 
DOUBLE_TO_LLONG(BgL_xz00_10);} 
}



/* _flonum->llong */
obj_t BGl__flonumzd2ze3llongz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1960, obj_t BgL_xz00_1961)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 222 */
{ /* ./Ieee/number.scm 223 */
BGL_LONGLONG_T BgL_auxz00_2145;
{ /* ./Ieee/number.scm 223 */
double BgL_auxz00_2146;
BgL_auxz00_2146 = 
REAL_TO_DOUBLE(BgL_xz00_1961); 
BgL_auxz00_2145 = 
DOUBLE_TO_LLONG(BgL_auxz00_2146); } 
return 
LLONG_TO_BLLONG(BgL_auxz00_2145);} } 
}



/* llong->flonum */
BGL_EXPORTED_DEF double BGl_llongzd2ze3flonumz31zz__r4_numbers_6_5z00(BGL_LONGLONG_T BgL_xz00_11)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 228 */
return 
(double)(BgL_xz00_11);} 
}



/* _llong->flonum */
obj_t BGl__llongzd2ze3flonumz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1962, obj_t BgL_xz00_1963)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 228 */
{ /* ./Ieee/number.scm 229 */
double BgL_auxz00_2151;
{ /* ./Ieee/number.scm 229 */
BGL_LONGLONG_T BgL_auxz00_2152;
BgL_auxz00_2152 = 
BLLONG_TO_LLONG(BgL_xz00_1963); 
BgL_auxz00_2151 = 
(double)(BgL_auxz00_2152); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2151);} } 
}



/* 2= */
BGL_EXPORTED_DEF bool_t BGl_2zd3zd3zz__r4_numbers_6_5z00(obj_t BgL_xz00_12, obj_t BgL_yz00_13)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 234 */
if(
INTEGERP(BgL_xz00_12))
{ /* ./Ieee/number.scm 236 */
if(
INTEGERP(BgL_yz00_13))
{ /* ./Ieee/number.scm 238 */
{ /* ./Ieee/number.scm 239 */
long BgL_auxz00_2162;long BgL_auxz00_2160;
BgL_auxz00_2162 = 
(long)CINT(BgL_yz00_13); 
BgL_auxz00_2160 = 
(long)CINT(BgL_xz00_12); 
return 
(BgL_auxz00_2160==BgL_auxz00_2162);} }  else 
{ /* ./Ieee/number.scm 238 */
if(
REALP(BgL_yz00_13))
{ /* ./Ieee/number.scm 240 */
{ /* ./Ieee/number.scm 241 */
double BgL_auxz00_2171;double BgL_auxz00_2167;
BgL_auxz00_2171 = 
REAL_TO_DOUBLE(BgL_yz00_13); 
{ /* ./Ieee/number.scm 241 */
long BgL_auxz00_2168;
BgL_auxz00_2168 = 
(long)CINT(BgL_xz00_12); 
BgL_auxz00_2167 = 
(double)(BgL_auxz00_2168); } 
return 
(BgL_auxz00_2167==BgL_auxz00_2171);} }  else 
{ /* ./Ieee/number.scm 240 */
FAILURE(BGl_string2829z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_13);} } }  else 
{ /* ./Ieee/number.scm 236 */
if(
REALP(BgL_xz00_12))
{ /* ./Ieee/number.scm 244 */
if(
REALP(BgL_yz00_13))
{ /* ./Ieee/number.scm 246 */
{ /* ./Ieee/number.scm 247 */
double BgL_auxz00_2181;double BgL_auxz00_2179;
BgL_auxz00_2181 = 
REAL_TO_DOUBLE(BgL_yz00_13); 
BgL_auxz00_2179 = 
REAL_TO_DOUBLE(BgL_xz00_12); 
return 
(BgL_auxz00_2179==BgL_auxz00_2181);} }  else 
{ /* ./Ieee/number.scm 246 */
if(
INTEGERP(BgL_yz00_13))
{ /* ./Ieee/number.scm 248 */
{ /* ./Ieee/number.scm 249 */
double BgL_auxz00_2188;double BgL_auxz00_2186;
{ /* ./Ieee/number.scm 249 */
long BgL_auxz00_2189;
BgL_auxz00_2189 = 
(long)CINT(BgL_yz00_13); 
BgL_auxz00_2188 = 
(double)(BgL_auxz00_2189); } 
BgL_auxz00_2186 = 
REAL_TO_DOUBLE(BgL_xz00_12); 
return 
(BgL_auxz00_2186==BgL_auxz00_2188);} }  else 
{ /* ./Ieee/number.scm 248 */
FAILURE(BGl_string2829z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_13);} } }  else 
{ /* ./Ieee/number.scm 244 */
FAILURE(BGl_string2829z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_12);} } } 
}



/* _2= */
obj_t BGl__2zd3zd3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1964, obj_t BgL_xz00_1965, obj_t BgL_yz00_1966)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 234 */
{ /* ./Ieee/number.scm 236 */
bool_t BgL_auxz00_2195;
BgL_auxz00_2195 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_xz00_1965, BgL_yz00_1966); 
return 
BBOOL(BgL_auxz00_2195);} } 
}



/* = */
BGL_EXPORTED_DEF bool_t BGl_zd3zd3zz__r4_numbers_6_5z00(obj_t BgL_xz00_14, obj_t BgL_yz00_15, obj_t BgL_za7za7_16)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 258 */
if(
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_xz00_14, BgL_yz00_15))
{ 
obj_t BgL_za7za7_898;
BgL_za7za7_898 = BgL_za7za7_16; 
BgL_zd3zd2listz01_897:
if(
NULLP(BgL_za7za7_898))
{ /* ./Ieee/number.scm 261 */
return ((bool_t)1);}  else 
{ /* ./Ieee/number.scm 261 */
if(
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_yz00_15, 
CAR(BgL_za7za7_898)))
{ /* ./Ieee/number.scm 261 */
{ 
obj_t BgL_za7za7_2205;
BgL_za7za7_2205 = 
CDR(BgL_za7za7_898); 
BgL_za7za7_898 = BgL_za7za7_2205; 
goto BgL_zd3zd2listz01_897;} }  else 
{ /* ./Ieee/number.scm 261 */
return ((bool_t)0);} } }  else 
{ /* ./Ieee/number.scm 261 */
return ((bool_t)0);} } 
}



/* _= */
obj_t BGl__zd3zd3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1967, obj_t BgL_xz00_1968, obj_t BgL_yz00_1969, obj_t BgL_za7za7_1970)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 258 */
{ /* ./Ieee/number.scm 264 */
bool_t BgL_auxz00_2207;
BgL_auxz00_2207 = 
BGl_zd3zd3zz__r4_numbers_6_5z00(BgL_xz00_1968, BgL_yz00_1969, BgL_za7za7_1970); 
return 
BBOOL(BgL_auxz00_2207);} } 
}



/* 2< */
BGL_EXPORTED_DEF bool_t BGl_2zc3zc3zz__r4_numbers_6_5z00(obj_t BgL_xz00_17, obj_t BgL_yz00_18)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 271 */
if(
INTEGERP(BgL_xz00_17))
{ /* ./Ieee/number.scm 273 */
if(
INTEGERP(BgL_yz00_18))
{ /* ./Ieee/number.scm 275 */
{ /* ./Ieee/number.scm 276 */
long BgL_auxz00_2216;long BgL_auxz00_2214;
BgL_auxz00_2216 = 
(long)CINT(BgL_yz00_18); 
BgL_auxz00_2214 = 
(long)CINT(BgL_xz00_17); 
return 
(BgL_auxz00_2214<BgL_auxz00_2216);} }  else 
{ /* ./Ieee/number.scm 275 */
if(
REALP(BgL_yz00_18))
{ /* ./Ieee/number.scm 277 */
{ /* ./Ieee/number.scm 278 */
double BgL_auxz00_2225;double BgL_auxz00_2221;
BgL_auxz00_2225 = 
REAL_TO_DOUBLE(BgL_yz00_18); 
{ /* ./Ieee/number.scm 278 */
long BgL_auxz00_2222;
BgL_auxz00_2222 = 
(long)CINT(BgL_xz00_17); 
BgL_auxz00_2221 = 
(double)(BgL_auxz00_2222); } 
return 
(BgL_auxz00_2221<BgL_auxz00_2225);} }  else 
{ /* ./Ieee/number.scm 277 */
FAILURE(BGl_string2831z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_18);} } }  else 
{ /* ./Ieee/number.scm 273 */
if(
REALP(BgL_xz00_17))
{ /* ./Ieee/number.scm 281 */
if(
REALP(BgL_yz00_18))
{ /* ./Ieee/number.scm 283 */
{ /* ./Ieee/number.scm 284 */
double BgL_auxz00_2235;double BgL_auxz00_2233;
BgL_auxz00_2235 = 
REAL_TO_DOUBLE(BgL_yz00_18); 
BgL_auxz00_2233 = 
REAL_TO_DOUBLE(BgL_xz00_17); 
return 
(BgL_auxz00_2233<BgL_auxz00_2235);} }  else 
{ /* ./Ieee/number.scm 283 */
if(
INTEGERP(BgL_yz00_18))
{ /* ./Ieee/number.scm 285 */
{ /* ./Ieee/number.scm 286 */
double BgL_auxz00_2242;double BgL_auxz00_2240;
{ /* ./Ieee/number.scm 286 */
long BgL_auxz00_2243;
BgL_auxz00_2243 = 
(long)CINT(BgL_yz00_18); 
BgL_auxz00_2242 = 
(double)(BgL_auxz00_2243); } 
BgL_auxz00_2240 = 
REAL_TO_DOUBLE(BgL_xz00_17); 
return 
(BgL_auxz00_2240<BgL_auxz00_2242);} }  else 
{ /* ./Ieee/number.scm 285 */
FAILURE(BGl_string2831z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_18);} } }  else 
{ /* ./Ieee/number.scm 281 */
FAILURE(BGl_string2831z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_17);} } } 
}



/* _2< */
obj_t BGl__2zc3zc3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1971, obj_t BgL_xz00_1972, obj_t BgL_yz00_1973)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 271 */
{ /* ./Ieee/number.scm 273 */
bool_t BgL_auxz00_2249;
BgL_auxz00_2249 = 
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_1972, BgL_yz00_1973); 
return 
BBOOL(BgL_auxz00_2249);} } 
}



/* < */
BGL_EXPORTED_DEF bool_t BGl_zc3zc3zz__r4_numbers_6_5z00(obj_t BgL_xz00_19, obj_t BgL_yz00_20, obj_t BgL_za7za7_21)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 295 */
if(
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_19, BgL_yz00_20))
{ 
obj_t BgL_xz00_957;obj_t BgL_za7za7_958;
BgL_xz00_957 = BgL_yz00_20; 
BgL_za7za7_958 = BgL_za7za7_21; 
BgL_zc3zd2listz11_956:
if(
NULLP(BgL_za7za7_958))
{ /* ./Ieee/number.scm 298 */
return ((bool_t)1);}  else 
{ /* ./Ieee/number.scm 298 */
if(
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_957, 
CAR(BgL_za7za7_958)))
{ /* ./Ieee/number.scm 298 */
{ 
obj_t BgL_za7za7_2261;obj_t BgL_xz00_2259;
BgL_xz00_2259 = 
CAR(BgL_za7za7_958); 
BgL_za7za7_2261 = 
CDR(BgL_za7za7_958); 
BgL_za7za7_958 = BgL_za7za7_2261; 
BgL_xz00_957 = BgL_xz00_2259; 
goto BgL_zc3zd2listz11_956;} }  else 
{ /* ./Ieee/number.scm 298 */
return ((bool_t)0);} } }  else 
{ /* ./Ieee/number.scm 298 */
return ((bool_t)0);} } 
}



/* _< */
obj_t BGl__zc3zc3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1974, obj_t BgL_xz00_1975, obj_t BgL_yz00_1976, obj_t BgL_za7za7_1977)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 295 */
{ /* ./Ieee/number.scm 301 */
bool_t BgL_auxz00_2263;
BgL_auxz00_2263 = 
BGl_zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_1975, BgL_yz00_1976, BgL_za7za7_1977); 
return 
BBOOL(BgL_auxz00_2263);} } 
}



/* 2> */
BGL_EXPORTED_DEF bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t BgL_xz00_22, obj_t BgL_yz00_23)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 309 */
if(
INTEGERP(BgL_xz00_22))
{ /* ./Ieee/number.scm 311 */
if(
INTEGERP(BgL_yz00_23))
{ /* ./Ieee/number.scm 313 */
{ /* ./Ieee/number.scm 314 */
long BgL_auxz00_2272;long BgL_auxz00_2270;
BgL_auxz00_2272 = 
(long)CINT(BgL_yz00_23); 
BgL_auxz00_2270 = 
(long)CINT(BgL_xz00_22); 
return 
(BgL_auxz00_2270>BgL_auxz00_2272);} }  else 
{ /* ./Ieee/number.scm 313 */
if(
REALP(BgL_yz00_23))
{ /* ./Ieee/number.scm 315 */
{ /* ./Ieee/number.scm 316 */
double BgL_auxz00_2281;double BgL_auxz00_2277;
BgL_auxz00_2281 = 
REAL_TO_DOUBLE(BgL_yz00_23); 
{ /* ./Ieee/number.scm 316 */
long BgL_auxz00_2278;
BgL_auxz00_2278 = 
(long)CINT(BgL_xz00_22); 
BgL_auxz00_2277 = 
(double)(BgL_auxz00_2278); } 
return 
(BgL_auxz00_2277>BgL_auxz00_2281);} }  else 
{ /* ./Ieee/number.scm 315 */
FAILURE(BGl_string2832z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_23);} } }  else 
{ /* ./Ieee/number.scm 311 */
if(
REALP(BgL_xz00_22))
{ /* ./Ieee/number.scm 319 */
if(
REALP(BgL_yz00_23))
{ /* ./Ieee/number.scm 321 */
{ /* ./Ieee/number.scm 322 */
double BgL_auxz00_2291;double BgL_auxz00_2289;
BgL_auxz00_2291 = 
REAL_TO_DOUBLE(BgL_yz00_23); 
BgL_auxz00_2289 = 
REAL_TO_DOUBLE(BgL_xz00_22); 
return 
(BgL_auxz00_2289>BgL_auxz00_2291);} }  else 
{ /* ./Ieee/number.scm 321 */
if(
INTEGERP(BgL_yz00_23))
{ /* ./Ieee/number.scm 323 */
{ /* ./Ieee/number.scm 324 */
double BgL_auxz00_2298;double BgL_auxz00_2296;
{ /* ./Ieee/number.scm 324 */
long BgL_auxz00_2299;
BgL_auxz00_2299 = 
(long)CINT(BgL_yz00_23); 
BgL_auxz00_2298 = 
(double)(BgL_auxz00_2299); } 
BgL_auxz00_2296 = 
REAL_TO_DOUBLE(BgL_xz00_22); 
return 
(BgL_auxz00_2296>BgL_auxz00_2298);} }  else 
{ /* ./Ieee/number.scm 323 */
FAILURE(BGl_string2832z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_23);} } }  else 
{ /* ./Ieee/number.scm 319 */
FAILURE(BGl_string2832z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_22);} } } 
}



/* _2> */
obj_t BGl__2ze3ze3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1978, obj_t BgL_xz00_1979, obj_t BgL_yz00_1980)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 309 */
{ /* ./Ieee/number.scm 311 */
bool_t BgL_auxz00_2305;
BgL_auxz00_2305 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_1979, BgL_yz00_1980); 
return 
BBOOL(BgL_auxz00_2305);} } 
}



/* > */
BGL_EXPORTED_DEF bool_t BGl_ze3ze3zz__r4_numbers_6_5z00(obj_t BgL_xz00_24, obj_t BgL_yz00_25, obj_t BgL_za7za7_26)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 333 */
if(
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_24, BgL_yz00_25))
{ 
obj_t BgL_xz00_1028;obj_t BgL_za7za7_1029;
BgL_xz00_1028 = BgL_yz00_25; 
BgL_za7za7_1029 = BgL_za7za7_26; 
BgL_ze3zd2listz31_1027:
if(
NULLP(BgL_za7za7_1029))
{ /* ./Ieee/number.scm 336 */
return ((bool_t)1);}  else 
{ /* ./Ieee/number.scm 336 */
if(
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_1028, 
CAR(BgL_za7za7_1029)))
{ /* ./Ieee/number.scm 336 */
{ 
obj_t BgL_za7za7_2317;obj_t BgL_xz00_2315;
BgL_xz00_2315 = 
CAR(BgL_za7za7_1029); 
BgL_za7za7_2317 = 
CDR(BgL_za7za7_1029); 
BgL_za7za7_1029 = BgL_za7za7_2317; 
BgL_xz00_1028 = BgL_xz00_2315; 
goto BgL_ze3zd2listz31_1027;} }  else 
{ /* ./Ieee/number.scm 336 */
return ((bool_t)0);} } }  else 
{ /* ./Ieee/number.scm 336 */
return ((bool_t)0);} } 
}



/* _> */
obj_t BGl__ze3ze3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1981, obj_t BgL_xz00_1982, obj_t BgL_yz00_1983, obj_t BgL_za7za7_1984)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 333 */
{ /* ./Ieee/number.scm 339 */
bool_t BgL_auxz00_2319;
BgL_auxz00_2319 = 
BGl_ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_1982, BgL_yz00_1983, BgL_za7za7_1984); 
return 
BBOOL(BgL_auxz00_2319);} } 
}



/* 2<= */
BGL_EXPORTED_DEF bool_t BGl_2zc3zd3z10zz__r4_numbers_6_5z00(obj_t BgL_xz00_27, obj_t BgL_yz00_28)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 346 */
if(
INTEGERP(BgL_xz00_27))
{ /* ./Ieee/number.scm 348 */
if(
INTEGERP(BgL_yz00_28))
{ /* ./Ieee/number.scm 350 */
{ /* ./Ieee/number.scm 351 */
long BgL_auxz00_2328;long BgL_auxz00_2326;
BgL_auxz00_2328 = 
(long)CINT(BgL_yz00_28); 
BgL_auxz00_2326 = 
(long)CINT(BgL_xz00_27); 
return 
(BgL_auxz00_2326<=BgL_auxz00_2328);} }  else 
{ /* ./Ieee/number.scm 350 */
if(
REALP(BgL_yz00_28))
{ /* ./Ieee/number.scm 352 */
{ /* ./Ieee/number.scm 353 */
double BgL_auxz00_2337;double BgL_auxz00_2333;
BgL_auxz00_2337 = 
REAL_TO_DOUBLE(BgL_yz00_28); 
{ /* ./Ieee/number.scm 353 */
long BgL_auxz00_2334;
BgL_auxz00_2334 = 
(long)CINT(BgL_xz00_27); 
BgL_auxz00_2333 = 
(double)(BgL_auxz00_2334); } 
return 
(BgL_auxz00_2333<=BgL_auxz00_2337);} }  else 
{ /* ./Ieee/number.scm 352 */
FAILURE(BGl_string2833z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_28);} } }  else 
{ /* ./Ieee/number.scm 348 */
if(
REALP(BgL_xz00_27))
{ /* ./Ieee/number.scm 356 */
if(
REALP(BgL_yz00_28))
{ /* ./Ieee/number.scm 358 */
{ /* ./Ieee/number.scm 359 */
double BgL_auxz00_2347;double BgL_auxz00_2345;
BgL_auxz00_2347 = 
REAL_TO_DOUBLE(BgL_yz00_28); 
BgL_auxz00_2345 = 
REAL_TO_DOUBLE(BgL_xz00_27); 
return 
(BgL_auxz00_2345<=BgL_auxz00_2347);} }  else 
{ /* ./Ieee/number.scm 358 */
if(
INTEGERP(BgL_yz00_28))
{ /* ./Ieee/number.scm 360 */
{ /* ./Ieee/number.scm 361 */
double BgL_auxz00_2354;double BgL_auxz00_2352;
{ /* ./Ieee/number.scm 361 */
long BgL_auxz00_2355;
BgL_auxz00_2355 = 
(long)CINT(BgL_yz00_28); 
BgL_auxz00_2354 = 
(double)(BgL_auxz00_2355); } 
BgL_auxz00_2352 = 
REAL_TO_DOUBLE(BgL_xz00_27); 
return 
(BgL_auxz00_2352<=BgL_auxz00_2354);} }  else 
{ /* ./Ieee/number.scm 360 */
FAILURE(BGl_string2833z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_28);} } }  else 
{ /* ./Ieee/number.scm 356 */
FAILURE(BGl_string2833z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_27);} } } 
}



/* _2<= */
obj_t BGl__2zc3zd3z10zz__r4_numbers_6_5z00(obj_t BgL_envz00_1985, obj_t BgL_xz00_1986, obj_t BgL_yz00_1987)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 346 */
{ /* ./Ieee/number.scm 348 */
bool_t BgL_auxz00_2361;
BgL_auxz00_2361 = 
BGl_2zc3zd3z10zz__r4_numbers_6_5z00(BgL_xz00_1986, BgL_yz00_1987); 
return 
BBOOL(BgL_auxz00_2361);} } 
}



/* <= */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3z10zz__r4_numbers_6_5z00(obj_t BgL_xz00_29, obj_t BgL_yz00_30, obj_t BgL_za7za7_31)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 370 */
if(
BGl_2zc3zd3z10zz__r4_numbers_6_5z00(BgL_xz00_29, BgL_yz00_30))
{ 
obj_t BgL_xz00_1099;obj_t BgL_za7za7_1100;
BgL_xz00_1099 = BgL_yz00_30; 
BgL_za7za7_1100 = BgL_za7za7_31; 
BgL_zc3zd3zd2listzc2_1098:
if(
NULLP(BgL_za7za7_1100))
{ /* ./Ieee/number.scm 373 */
return ((bool_t)1);}  else 
{ /* ./Ieee/number.scm 373 */
if(
BGl_2zc3zd3z10zz__r4_numbers_6_5z00(BgL_xz00_1099, 
CAR(BgL_za7za7_1100)))
{ /* ./Ieee/number.scm 373 */
{ 
obj_t BgL_za7za7_2373;obj_t BgL_xz00_2371;
BgL_xz00_2371 = 
CAR(BgL_za7za7_1100); 
BgL_za7za7_2373 = 
CDR(BgL_za7za7_1100); 
BgL_za7za7_1100 = BgL_za7za7_2373; 
BgL_xz00_1099 = BgL_xz00_2371; 
goto BgL_zc3zd3zd2listzc2_1098;} }  else 
{ /* ./Ieee/number.scm 373 */
return ((bool_t)0);} } }  else 
{ /* ./Ieee/number.scm 373 */
return ((bool_t)0);} } 
}



/* _<= */
obj_t BGl__zc3zd3z10zz__r4_numbers_6_5z00(obj_t BgL_envz00_1988, obj_t BgL_xz00_1989, obj_t BgL_yz00_1990, obj_t BgL_za7za7_1991)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 370 */
{ /* ./Ieee/number.scm 376 */
bool_t BgL_auxz00_2375;
BgL_auxz00_2375 = 
BGl_zc3zd3z10zz__r4_numbers_6_5z00(BgL_xz00_1989, BgL_yz00_1990, BgL_za7za7_1991); 
return 
BBOOL(BgL_auxz00_2375);} } 
}



/* 2>= */
BGL_EXPORTED_DEF bool_t BGl_2ze3zd3z30zz__r4_numbers_6_5z00(obj_t BgL_xz00_32, obj_t BgL_yz00_33)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 383 */
if(
INTEGERP(BgL_xz00_32))
{ /* ./Ieee/number.scm 385 */
if(
INTEGERP(BgL_yz00_33))
{ /* ./Ieee/number.scm 387 */
{ /* ./Ieee/number.scm 388 */
long BgL_auxz00_2384;long BgL_auxz00_2382;
BgL_auxz00_2384 = 
(long)CINT(BgL_yz00_33); 
BgL_auxz00_2382 = 
(long)CINT(BgL_xz00_32); 
return 
(BgL_auxz00_2382>=BgL_auxz00_2384);} }  else 
{ /* ./Ieee/number.scm 387 */
if(
REALP(BgL_yz00_33))
{ /* ./Ieee/number.scm 389 */
{ /* ./Ieee/number.scm 390 */
double BgL_auxz00_2393;double BgL_auxz00_2389;
BgL_auxz00_2393 = 
REAL_TO_DOUBLE(BgL_yz00_33); 
{ /* ./Ieee/number.scm 390 */
long BgL_auxz00_2390;
BgL_auxz00_2390 = 
(long)CINT(BgL_xz00_32); 
BgL_auxz00_2389 = 
(double)(BgL_auxz00_2390); } 
return 
(BgL_auxz00_2389>=BgL_auxz00_2393);} }  else 
{ /* ./Ieee/number.scm 389 */
FAILURE(BGl_string2834z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_33);} } }  else 
{ /* ./Ieee/number.scm 385 */
if(
REALP(BgL_xz00_32))
{ /* ./Ieee/number.scm 393 */
if(
REALP(BgL_yz00_33))
{ /* ./Ieee/number.scm 395 */
{ /* ./Ieee/number.scm 396 */
double BgL_auxz00_2403;double BgL_auxz00_2401;
BgL_auxz00_2403 = 
REAL_TO_DOUBLE(BgL_yz00_33); 
BgL_auxz00_2401 = 
REAL_TO_DOUBLE(BgL_xz00_32); 
return 
(BgL_auxz00_2401>=BgL_auxz00_2403);} }  else 
{ /* ./Ieee/number.scm 395 */
if(
INTEGERP(BgL_yz00_33))
{ /* ./Ieee/number.scm 397 */
{ /* ./Ieee/number.scm 398 */
double BgL_auxz00_2410;double BgL_auxz00_2408;
{ /* ./Ieee/number.scm 398 */
long BgL_auxz00_2411;
BgL_auxz00_2411 = 
(long)CINT(BgL_yz00_33); 
BgL_auxz00_2410 = 
(double)(BgL_auxz00_2411); } 
BgL_auxz00_2408 = 
REAL_TO_DOUBLE(BgL_xz00_32); 
return 
(BgL_auxz00_2408>=BgL_auxz00_2410);} }  else 
{ /* ./Ieee/number.scm 397 */
FAILURE(BGl_string2834z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_33);} } }  else 
{ /* ./Ieee/number.scm 393 */
FAILURE(BGl_string2834z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_32);} } } 
}



/* _2>= */
obj_t BGl__2ze3zd3z30zz__r4_numbers_6_5z00(obj_t BgL_envz00_1992, obj_t BgL_xz00_1993, obj_t BgL_yz00_1994)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 383 */
{ /* ./Ieee/number.scm 385 */
bool_t BgL_auxz00_2417;
BgL_auxz00_2417 = 
BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_xz00_1993, BgL_yz00_1994); 
return 
BBOOL(BgL_auxz00_2417);} } 
}



/* >= */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3z30zz__r4_numbers_6_5z00(obj_t BgL_xz00_34, obj_t BgL_yz00_35, obj_t BgL_za7za7_36)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 407 */
if(
BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_xz00_34, BgL_yz00_35))
{ 
obj_t BgL_xz00_1170;obj_t BgL_za7za7_1171;
BgL_xz00_1170 = BgL_yz00_35; 
BgL_za7za7_1171 = BgL_za7za7_36; 
BgL_ze3zd3zd2listze2_1169:
if(
NULLP(BgL_za7za7_1171))
{ /* ./Ieee/number.scm 410 */
return ((bool_t)1);}  else 
{ /* ./Ieee/number.scm 410 */
if(
BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_xz00_1170, 
CAR(BgL_za7za7_1171)))
{ /* ./Ieee/number.scm 410 */
{ 
obj_t BgL_za7za7_2429;obj_t BgL_xz00_2427;
BgL_xz00_2427 = 
CAR(BgL_za7za7_1171); 
BgL_za7za7_2429 = 
CDR(BgL_za7za7_1171); 
BgL_za7za7_1171 = BgL_za7za7_2429; 
BgL_xz00_1170 = BgL_xz00_2427; 
goto BgL_ze3zd3zd2listze2_1169;} }  else 
{ /* ./Ieee/number.scm 410 */
return ((bool_t)0);} } }  else 
{ /* ./Ieee/number.scm 410 */
return ((bool_t)0);} } 
}



/* _>= */
obj_t BGl__ze3zd3z30zz__r4_numbers_6_5z00(obj_t BgL_envz00_1995, obj_t BgL_xz00_1996, obj_t BgL_yz00_1997, obj_t BgL_za7za7_1998)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 407 */
{ /* ./Ieee/number.scm 413 */
bool_t BgL_auxz00_2431;
BgL_auxz00_2431 = 
BGl_ze3zd3z30zz__r4_numbers_6_5z00(BgL_xz00_1996, BgL_yz00_1997, BgL_za7za7_1998); 
return 
BBOOL(BgL_auxz00_2431);} } 
}



/* zero? */
BGL_EXPORTED_DEF bool_t BGl_za7erozf3z54zz__r4_numbers_6_5z00(obj_t BgL_xz00_37)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 420 */
if(
INTEGERP(BgL_xz00_37))
{ /* ./Ieee/number.scm 422 */
{ /* ./Ieee/number.scm 423 */
long BgL_auxz00_2436;
BgL_auxz00_2436 = 
(long)CINT(BgL_xz00_37); 
return 
(BgL_auxz00_2436==((long)0));} }  else 
{ /* ./Ieee/number.scm 422 */
if(
REALP(BgL_xz00_37))
{ /* ./Ieee/number.scm 424 */
{ /* ./Ieee/number.scm 425 */
double BgL_auxz00_2441;
BgL_auxz00_2441 = 
REAL_TO_DOUBLE(BgL_xz00_37); 
return 
(BgL_auxz00_2441==((double)0.0));} }  else 
{ /* ./Ieee/number.scm 424 */
FAILURE(BGl_string2835z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_37);} } } 
}



/* _zero? */
obj_t BGl__za7erozf3z54zz__r4_numbers_6_5z00(obj_t BgL_envz00_1999, obj_t BgL_xz00_2000)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 420 */
{ /* ./Ieee/number.scm 422 */
bool_t BgL_auxz00_2445;
BgL_auxz00_2445 = 
BGl_za7erozf3z54zz__r4_numbers_6_5z00(BgL_xz00_2000); 
return 
BBOOL(BgL_auxz00_2445);} } 
}



/* positive? */
BGL_EXPORTED_DEF bool_t BGl_positivezf3zf3zz__r4_numbers_6_5z00(obj_t BgL_xz00_38)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 432 */
if(
INTEGERP(BgL_xz00_38))
{ /* ./Ieee/number.scm 434 */
{ /* ./Ieee/number.scm 435 */
long BgL_auxz00_2450;
BgL_auxz00_2450 = 
(long)CINT(BgL_xz00_38); 
return 
(BgL_auxz00_2450>((long)0));} }  else 
{ /* ./Ieee/number.scm 434 */
if(
REALP(BgL_xz00_38))
{ /* ./Ieee/number.scm 436 */
{ /* ./Ieee/number.scm 437 */
double BgL_auxz00_2455;
BgL_auxz00_2455 = 
REAL_TO_DOUBLE(BgL_xz00_38); 
return 
(BgL_auxz00_2455>((double)0.0));} }  else 
{ /* ./Ieee/number.scm 436 */
FAILURE(BGl_string2836z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_38);} } } 
}



/* _positive? */
obj_t BGl__positivezf3zf3zz__r4_numbers_6_5z00(obj_t BgL_envz00_2001, obj_t BgL_xz00_2002)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 432 */
{ /* ./Ieee/number.scm 434 */
bool_t BgL_auxz00_2459;
BgL_auxz00_2459 = 
BGl_positivezf3zf3zz__r4_numbers_6_5z00(BgL_xz00_2002); 
return 
BBOOL(BgL_auxz00_2459);} } 
}



/* negative? */
BGL_EXPORTED_DEF bool_t BGl_negativezf3zf3zz__r4_numbers_6_5z00(obj_t BgL_xz00_39)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 444 */
if(
INTEGERP(BgL_xz00_39))
{ /* ./Ieee/number.scm 446 */
{ /* ./Ieee/number.scm 447 */
long BgL_auxz00_2464;
BgL_auxz00_2464 = 
(long)CINT(BgL_xz00_39); 
return 
(BgL_auxz00_2464<((long)0));} }  else 
{ /* ./Ieee/number.scm 446 */
if(
REALP(BgL_xz00_39))
{ /* ./Ieee/number.scm 448 */
{ /* ./Ieee/number.scm 449 */
double BgL_auxz00_2469;
BgL_auxz00_2469 = 
REAL_TO_DOUBLE(BgL_xz00_39); 
return 
(BgL_auxz00_2469<((double)0.0));} }  else 
{ /* ./Ieee/number.scm 448 */
FAILURE(BGl_string2837z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_39);} } } 
}



/* _negative? */
obj_t BGl__negativezf3zf3zz__r4_numbers_6_5z00(obj_t BgL_envz00_2003, obj_t BgL_xz00_2004)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 444 */
{ /* ./Ieee/number.scm 446 */
bool_t BgL_auxz00_2473;
BgL_auxz00_2473 = 
BGl_negativezf3zf3zz__r4_numbers_6_5z00(BgL_xz00_2004); 
return 
BBOOL(BgL_auxz00_2473);} } 
}



/* max */
BGL_EXPORTED_DEF obj_t BGl_maxz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_40, obj_t BgL_yz00_41)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 456 */
{ 
obj_t BgL_xz00_1240;obj_t BgL_yz00_1241;
BgL_xz00_1240 = BgL_xz00_40; 
BgL_yz00_1241 = BgL_yz00_41; 
BgL_loopz00_1239:
if(
PAIRP(BgL_yz00_1241))
{ /* ./Ieee/number.scm 457 */
obj_t BgL_arg1256z00_1248;obj_t BgL_arg1258z00_1249;
if(
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_1240, 
CAR(BgL_yz00_1241)))
{ /* ./Ieee/number.scm 457 */
BgL_arg1256z00_1248 = BgL_xz00_1240; }  else 
{ /* ./Ieee/number.scm 457 */
BgL_arg1256z00_1248 = 
CAR(BgL_yz00_1241); } 
BgL_arg1258z00_1249 = 
CDR(BgL_yz00_1241); 
{ 
obj_t BgL_yz00_2484;obj_t BgL_xz00_2483;
BgL_xz00_2483 = BgL_arg1256z00_1248; 
BgL_yz00_2484 = BgL_arg1258z00_1249; 
BgL_yz00_1241 = BgL_yz00_2484; 
BgL_xz00_1240 = BgL_xz00_2483; 
goto BgL_loopz00_1239;} }  else 
{ /* ./Ieee/number.scm 457 */
return BgL_xz00_1240;} } } 
}



/* _max */
obj_t BGl__maxz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2005, obj_t BgL_xz00_2006, obj_t BgL_yz00_2007)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 456 */
return 
BGl_maxz00zz__r4_numbers_6_5z00(BgL_xz00_2006, BgL_yz00_2007);} 
}



/* min */
BGL_EXPORTED_DEF obj_t BGl_minz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_42, obj_t BgL_yz00_43)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 469 */
{ 
obj_t BgL_xz00_1277;obj_t BgL_yz00_1278;
BgL_xz00_1277 = BgL_xz00_42; 
BgL_yz00_1278 = BgL_yz00_43; 
BgL_loopz00_1276:
if(
PAIRP(BgL_yz00_1278))
{ /* ./Ieee/number.scm 470 */
obj_t BgL_arg1273z00_1285;obj_t BgL_arg1274z00_1286;
if(
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_1277, 
CAR(BgL_yz00_1278)))
{ /* ./Ieee/number.scm 470 */
BgL_arg1273z00_1285 = BgL_xz00_1277; }  else 
{ /* ./Ieee/number.scm 470 */
BgL_arg1273z00_1285 = 
CAR(BgL_yz00_1278); } 
BgL_arg1274z00_1286 = 
CDR(BgL_yz00_1278); 
{ 
obj_t BgL_yz00_2494;obj_t BgL_xz00_2493;
BgL_xz00_2493 = BgL_arg1273z00_1285; 
BgL_yz00_2494 = BgL_arg1274z00_1286; 
BgL_yz00_1278 = BgL_yz00_2494; 
BgL_xz00_1277 = BgL_xz00_2493; 
goto BgL_loopz00_1276;} }  else 
{ /* ./Ieee/number.scm 470 */
return BgL_xz00_1277;} } } 
}



/* _min */
obj_t BGl__minz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2008, obj_t BgL_xz00_2009, obj_t BgL_yz00_2010)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 469 */
return 
BGl_minz00zz__r4_numbers_6_5z00(BgL_xz00_2009, BgL_yz00_2010);} 
}



/* 2+ */
BGL_EXPORTED_DEF obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t BgL_xz00_44, obj_t BgL_yz00_45)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 482 */
if(
INTEGERP(BgL_xz00_44))
{ /* ./Ieee/number.scm 484 */
if(
INTEGERP(BgL_yz00_45))
{ /* ./Ieee/number.scm 486 */
{ /* ./Ieee/number.scm 487 */
long BgL_auxz00_2500;
{ /* ./Ieee/number.scm 487 */
long BgL_auxz00_2503;long BgL_auxz00_2501;
BgL_auxz00_2503 = 
(long)CINT(BgL_yz00_45); 
BgL_auxz00_2501 = 
(long)CINT(BgL_xz00_44); 
BgL_auxz00_2500 = 
(BgL_auxz00_2501+BgL_auxz00_2503); } 
return 
BINT(BgL_auxz00_2500);} }  else 
{ /* ./Ieee/number.scm 486 */
if(
REALP(BgL_yz00_45))
{ /* ./Ieee/number.scm 488 */
{ /* ./Ieee/number.scm 489 */
double BgL_auxz00_2509;
{ /* ./Ieee/number.scm 489 */
double BgL_auxz00_2514;double BgL_auxz00_2510;
BgL_auxz00_2514 = 
REAL_TO_DOUBLE(BgL_yz00_45); 
{ /* ./Ieee/number.scm 489 */
long BgL_auxz00_2511;
BgL_auxz00_2511 = 
(long)CINT(BgL_xz00_44); 
BgL_auxz00_2510 = 
(double)(BgL_auxz00_2511); } 
BgL_auxz00_2509 = 
(BgL_auxz00_2510+BgL_auxz00_2514); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2509);} }  else 
{ /* ./Ieee/number.scm 488 */
FAILURE(BGl_string2838z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_45);} } }  else 
{ /* ./Ieee/number.scm 484 */
if(
REALP(BgL_xz00_44))
{ /* ./Ieee/number.scm 492 */
if(
REALP(BgL_yz00_45))
{ /* ./Ieee/number.scm 494 */
{ /* ./Ieee/number.scm 495 */
double BgL_auxz00_2523;
{ /* ./Ieee/number.scm 495 */
double BgL_auxz00_2526;double BgL_auxz00_2524;
BgL_auxz00_2526 = 
REAL_TO_DOUBLE(BgL_yz00_45); 
BgL_auxz00_2524 = 
REAL_TO_DOUBLE(BgL_xz00_44); 
BgL_auxz00_2523 = 
(BgL_auxz00_2524+BgL_auxz00_2526); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2523);} }  else 
{ /* ./Ieee/number.scm 494 */
if(
INTEGERP(BgL_yz00_45))
{ /* ./Ieee/number.scm 496 */
{ /* ./Ieee/number.scm 497 */
double BgL_auxz00_2532;
{ /* ./Ieee/number.scm 497 */
double BgL_auxz00_2535;double BgL_auxz00_2533;
{ /* ./Ieee/number.scm 497 */
long BgL_auxz00_2536;
BgL_auxz00_2536 = 
(long)CINT(BgL_yz00_45); 
BgL_auxz00_2535 = 
(double)(BgL_auxz00_2536); } 
BgL_auxz00_2533 = 
REAL_TO_DOUBLE(BgL_xz00_44); 
BgL_auxz00_2532 = 
(BgL_auxz00_2533+BgL_auxz00_2535); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2532);} }  else 
{ /* ./Ieee/number.scm 496 */
FAILURE(BGl_string2838z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_45);} } }  else 
{ /* ./Ieee/number.scm 492 */
FAILURE(BGl_string2838z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_44);} } } 
}



/* _2+ */
obj_t BGl__2zb2zb2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2011, obj_t BgL_xz00_2012, obj_t BgL_yz00_2013)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 482 */
return 
BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_xz00_2012, BgL_yz00_2013);} 
}



/* + */
BGL_EXPORTED_DEF obj_t BGl_zb2zb2zz__r4_numbers_6_5z00(obj_t BgL_xz00_46)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 506 */
{ 
obj_t BgL_sumz00_1339;obj_t BgL_xz00_1340;
BgL_sumz00_1339 = 
BINT(((long)0)); 
BgL_xz00_1340 = BgL_xz00_46; 
BgL_loopz00_1338:
if(
PAIRP(BgL_xz00_1340))
{ 
obj_t BgL_xz00_2549;obj_t BgL_sumz00_2546;
BgL_sumz00_2546 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_sumz00_1339, 
CAR(BgL_xz00_1340)); 
BgL_xz00_2549 = 
CDR(BgL_xz00_1340); 
BgL_xz00_1340 = BgL_xz00_2549; 
BgL_sumz00_1339 = BgL_sumz00_2546; 
goto BgL_loopz00_1338;}  else 
{ /* ./Ieee/number.scm 507 */
return BgL_sumz00_1339;} } } 
}



/* _+ */
obj_t BGl__zb2zb2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2014, obj_t BgL_xz00_2015)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 506 */
return 
BGl_zb2zb2zz__r4_numbers_6_5z00(BgL_xz00_2015);} 
}



/* 2* */
BGL_EXPORTED_DEF obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t BgL_xz00_47, obj_t BgL_yz00_48)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 517 */
if(
INTEGERP(BgL_xz00_47))
{ /* ./Ieee/number.scm 519 */
if(
INTEGERP(BgL_yz00_48))
{ /* ./Ieee/number.scm 521 */
{ /* ./Ieee/number.scm 522 */
long BgL_auxz00_2557;
{ /* ./Ieee/number.scm 522 */
long BgL_auxz00_2560;long BgL_auxz00_2558;
BgL_auxz00_2560 = 
(long)CINT(BgL_yz00_48); 
BgL_auxz00_2558 = 
(long)CINT(BgL_xz00_47); 
BgL_auxz00_2557 = 
(BgL_auxz00_2558*BgL_auxz00_2560); } 
return 
BINT(BgL_auxz00_2557);} }  else 
{ /* ./Ieee/number.scm 521 */
if(
REALP(BgL_yz00_48))
{ /* ./Ieee/number.scm 523 */
{ /* ./Ieee/number.scm 524 */
double BgL_auxz00_2566;
{ /* ./Ieee/number.scm 524 */
double BgL_auxz00_2571;double BgL_auxz00_2567;
BgL_auxz00_2571 = 
REAL_TO_DOUBLE(BgL_yz00_48); 
{ /* ./Ieee/number.scm 524 */
long BgL_auxz00_2568;
BgL_auxz00_2568 = 
(long)CINT(BgL_xz00_47); 
BgL_auxz00_2567 = 
(double)(BgL_auxz00_2568); } 
BgL_auxz00_2566 = 
(BgL_auxz00_2567*BgL_auxz00_2571); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2566);} }  else 
{ /* ./Ieee/number.scm 523 */
FAILURE(BGl_string2839z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_48);} } }  else 
{ /* ./Ieee/number.scm 519 */
if(
REALP(BgL_xz00_47))
{ /* ./Ieee/number.scm 527 */
if(
REALP(BgL_yz00_48))
{ /* ./Ieee/number.scm 529 */
{ /* ./Ieee/number.scm 530 */
double BgL_auxz00_2580;
{ /* ./Ieee/number.scm 530 */
double BgL_auxz00_2583;double BgL_auxz00_2581;
BgL_auxz00_2583 = 
REAL_TO_DOUBLE(BgL_yz00_48); 
BgL_auxz00_2581 = 
REAL_TO_DOUBLE(BgL_xz00_47); 
BgL_auxz00_2580 = 
(BgL_auxz00_2581*BgL_auxz00_2583); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2580);} }  else 
{ /* ./Ieee/number.scm 529 */
if(
INTEGERP(BgL_yz00_48))
{ /* ./Ieee/number.scm 531 */
{ /* ./Ieee/number.scm 532 */
double BgL_auxz00_2589;
{ /* ./Ieee/number.scm 532 */
double BgL_auxz00_2592;double BgL_auxz00_2590;
{ /* ./Ieee/number.scm 532 */
long BgL_auxz00_2593;
BgL_auxz00_2593 = 
(long)CINT(BgL_yz00_48); 
BgL_auxz00_2592 = 
(double)(BgL_auxz00_2593); } 
BgL_auxz00_2590 = 
REAL_TO_DOUBLE(BgL_xz00_47); 
BgL_auxz00_2589 = 
(BgL_auxz00_2590*BgL_auxz00_2592); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2589);} }  else 
{ /* ./Ieee/number.scm 531 */
FAILURE(BGl_string2839z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_48);} } }  else 
{ /* ./Ieee/number.scm 527 */
FAILURE(BGl_string2839z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_47);} } } 
}



/* _2* */
obj_t BGl__2za2za2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2016, obj_t BgL_xz00_2017, obj_t BgL_yz00_2018)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 517 */
return 
BGl_2za2za2zz__r4_numbers_6_5z00(BgL_xz00_2017, BgL_yz00_2018);} 
}



/* * */
BGL_EXPORTED_DEF obj_t BGl_za2za2zz__r4_numbers_6_5z00(obj_t BgL_xz00_49)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 541 */
{ 
obj_t BgL_productz00_1394;obj_t BgL_xz00_1395;
BgL_productz00_1394 = 
BINT(((long)1)); 
BgL_xz00_1395 = BgL_xz00_49; 
BgL_loopz00_1393:
if(
PAIRP(BgL_xz00_1395))
{ 
obj_t BgL_xz00_2606;obj_t BgL_productz00_2603;
BgL_productz00_2603 = 
BGl_2za2za2zz__r4_numbers_6_5z00(BgL_productz00_1394, 
CAR(BgL_xz00_1395)); 
BgL_xz00_2606 = 
CDR(BgL_xz00_1395); 
BgL_xz00_1395 = BgL_xz00_2606; 
BgL_productz00_1394 = BgL_productz00_2603; 
goto BgL_loopz00_1393;}  else 
{ /* ./Ieee/number.scm 542 */
return BgL_productz00_1394;} } } 
}



/* _* */
obj_t BGl__za2za2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2019, obj_t BgL_xz00_2020)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 541 */
return 
BGl_za2za2zz__r4_numbers_6_5z00(BgL_xz00_2020);} 
}



/* 2- */
BGL_EXPORTED_DEF obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t BgL_xz00_50, obj_t BgL_yz00_51)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 551 */
if(
INTEGERP(BgL_xz00_50))
{ /* ./Ieee/number.scm 553 */
if(
INTEGERP(BgL_yz00_51))
{ /* ./Ieee/number.scm 555 */
{ /* ./Ieee/number.scm 556 */
long BgL_auxz00_2614;
{ /* ./Ieee/number.scm 556 */
long BgL_auxz00_2617;long BgL_auxz00_2615;
BgL_auxz00_2617 = 
(long)CINT(BgL_yz00_51); 
BgL_auxz00_2615 = 
(long)CINT(BgL_xz00_50); 
BgL_auxz00_2614 = 
(BgL_auxz00_2615-BgL_auxz00_2617); } 
return 
BINT(BgL_auxz00_2614);} }  else 
{ /* ./Ieee/number.scm 555 */
if(
REALP(BgL_yz00_51))
{ /* ./Ieee/number.scm 557 */
{ /* ./Ieee/number.scm 558 */
double BgL_auxz00_2623;
{ /* ./Ieee/number.scm 558 */
double BgL_auxz00_2628;double BgL_auxz00_2624;
BgL_auxz00_2628 = 
REAL_TO_DOUBLE(BgL_yz00_51); 
{ /* ./Ieee/number.scm 558 */
long BgL_auxz00_2625;
BgL_auxz00_2625 = 
(long)CINT(BgL_xz00_50); 
BgL_auxz00_2624 = 
(double)(BgL_auxz00_2625); } 
BgL_auxz00_2623 = 
(BgL_auxz00_2624-BgL_auxz00_2628); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2623);} }  else 
{ /* ./Ieee/number.scm 557 */
FAILURE(BGl_string2840z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_51);} } }  else 
{ /* ./Ieee/number.scm 553 */
if(
REALP(BgL_xz00_50))
{ /* ./Ieee/number.scm 561 */
if(
REALP(BgL_yz00_51))
{ /* ./Ieee/number.scm 563 */
{ /* ./Ieee/number.scm 564 */
double BgL_auxz00_2637;
{ /* ./Ieee/number.scm 564 */
double BgL_auxz00_2640;double BgL_auxz00_2638;
BgL_auxz00_2640 = 
REAL_TO_DOUBLE(BgL_yz00_51); 
BgL_auxz00_2638 = 
REAL_TO_DOUBLE(BgL_xz00_50); 
BgL_auxz00_2637 = 
(BgL_auxz00_2638-BgL_auxz00_2640); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2637);} }  else 
{ /* ./Ieee/number.scm 563 */
if(
INTEGERP(BgL_yz00_51))
{ /* ./Ieee/number.scm 565 */
{ /* ./Ieee/number.scm 566 */
double BgL_auxz00_2646;
{ /* ./Ieee/number.scm 566 */
double BgL_auxz00_2649;double BgL_auxz00_2647;
{ /* ./Ieee/number.scm 566 */
long BgL_auxz00_2650;
BgL_auxz00_2650 = 
(long)CINT(BgL_yz00_51); 
BgL_auxz00_2649 = 
(double)(BgL_auxz00_2650); } 
BgL_auxz00_2647 = 
REAL_TO_DOUBLE(BgL_xz00_50); 
BgL_auxz00_2646 = 
(BgL_auxz00_2647-BgL_auxz00_2649); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2646);} }  else 
{ /* ./Ieee/number.scm 565 */
FAILURE(BGl_string2840z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_51);} } }  else 
{ /* ./Ieee/number.scm 561 */
FAILURE(BGl_string2840z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_50);} } } 
}



/* _2- */
obj_t BGl__2zd2zd2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2021, obj_t BgL_xz00_2022, obj_t BgL_yz00_2023)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 551 */
return 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_xz00_2022, BgL_yz00_2023);} 
}



/* - */
BGL_EXPORTED_DEF obj_t BGl_zd2zd2zz__r4_numbers_6_5z00(obj_t BgL_xz00_52, obj_t BgL_yz00_53)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 575 */
if(
PAIRP(BgL_yz00_53))
{ /* ./Ieee/number.scm 577 */
obj_t BgL_arg1387z00_518;obj_t BgL_arg1388z00_519;
BgL_arg1387z00_518 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_xz00_52, 
CAR(BgL_yz00_53)); 
BgL_arg1388z00_519 = 
CDR(BgL_yz00_53); 
{ 
obj_t BgL_resultz00_1452;obj_t BgL_argsz00_1453;
BgL_resultz00_1452 = BgL_arg1387z00_518; 
BgL_argsz00_1453 = BgL_arg1388z00_519; 
BgL_loopz00_1451:
if(
PAIRP(BgL_argsz00_1453))
{ 
obj_t BgL_argsz00_2668;obj_t BgL_resultz00_2665;
BgL_resultz00_2665 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_resultz00_1452, 
CAR(BgL_argsz00_1453)); 
BgL_argsz00_2668 = 
CDR(BgL_argsz00_1453); 
BgL_argsz00_1453 = BgL_argsz00_2668; 
BgL_resultz00_1452 = BgL_resultz00_2665; 
goto BgL_loopz00_1451;}  else 
{ /* ./Ieee/number.scm 577 */
return BgL_resultz00_1452;} } }  else 
{ /* ./Ieee/number.scm 576 */
return 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
BINT(((long)0)), BgL_xz00_52);} } 
}



/* _- */
obj_t BGl__zd2zd2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2024, obj_t BgL_xz00_2025, obj_t BgL_yz00_2026)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 575 */
return 
BGl_zd2zd2zz__r4_numbers_6_5z00(BgL_xz00_2025, BgL_yz00_2026);} 
}



/* 2/ */
BGL_EXPORTED_DEF obj_t BGl_2zf2zf2zz__r4_numbers_6_5z00(obj_t BgL_xz00_54, obj_t BgL_yz00_55)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 587 */
if(
INTEGERP(BgL_xz00_54))
{ /* ./Ieee/number.scm 589 */
if(
INTEGERP(BgL_yz00_55))
{ /* ./Ieee/number.scm 591 */
{ /* ./Ieee/number.scm 592 */
bool_t BgL_test1411z00_527;
{ /* ./Ieee/number.scm 592 */
long BgL_arg1420z00_530;
{ /* ./Ieee/number.scm 592 */
long BgL_auxz00_2679;long BgL_auxz00_2677;
BgL_auxz00_2679 = 
(long)CINT(BgL_yz00_55); 
BgL_auxz00_2677 = 
(long)CINT(BgL_xz00_54); 
BgL_arg1420z00_530 = 
(BgL_auxz00_2677%BgL_auxz00_2679); } 
BgL_test1411z00_527 = 
(BgL_arg1420z00_530==((long)0)); } 
if(BgL_test1411z00_527)
{ /* ./Ieee/number.scm 593 */
long BgL_auxz00_2684;
{ /* ./Ieee/number.scm 593 */
long BgL_auxz00_2687;long BgL_auxz00_2685;
BgL_auxz00_2687 = 
(long)CINT(BgL_yz00_55); 
BgL_auxz00_2685 = 
(long)CINT(BgL_xz00_54); 
BgL_auxz00_2684 = 
(BgL_auxz00_2685/BgL_auxz00_2687); } 
return 
BINT(BgL_auxz00_2684);}  else 
{ /* ./Ieee/number.scm 594 */
double BgL_auxz00_2691;
{ /* ./Ieee/number.scm 594 */
double BgL_auxz00_2696;double BgL_auxz00_2692;
{ /* ./Ieee/number.scm 594 */
long BgL_auxz00_2697;
BgL_auxz00_2697 = 
(long)CINT(BgL_yz00_55); 
BgL_auxz00_2696 = 
(double)(BgL_auxz00_2697); } 
{ /* ./Ieee/number.scm 594 */
long BgL_auxz00_2693;
BgL_auxz00_2693 = 
(long)CINT(BgL_xz00_54); 
BgL_auxz00_2692 = 
(double)(BgL_auxz00_2693); } 
BgL_auxz00_2691 = 
(BgL_auxz00_2692/BgL_auxz00_2696); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2691);} } }  else 
{ /* ./Ieee/number.scm 591 */
if(
REALP(BgL_yz00_55))
{ /* ./Ieee/number.scm 595 */
{ /* ./Ieee/number.scm 596 */
double BgL_auxz00_2704;
{ /* ./Ieee/number.scm 596 */
double BgL_auxz00_2709;double BgL_auxz00_2705;
BgL_auxz00_2709 = 
REAL_TO_DOUBLE(BgL_yz00_55); 
{ /* ./Ieee/number.scm 596 */
long BgL_auxz00_2706;
BgL_auxz00_2706 = 
(long)CINT(BgL_xz00_54); 
BgL_auxz00_2705 = 
(double)(BgL_auxz00_2706); } 
BgL_auxz00_2704 = 
(BgL_auxz00_2705/BgL_auxz00_2709); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2704);} }  else 
{ /* ./Ieee/number.scm 595 */
FAILURE(BGl_string2841z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_55);} } }  else 
{ /* ./Ieee/number.scm 589 */
if(
REALP(BgL_xz00_54))
{ /* ./Ieee/number.scm 599 */
if(
REALP(BgL_yz00_55))
{ /* ./Ieee/number.scm 601 */
{ /* ./Ieee/number.scm 602 */
double BgL_auxz00_2718;
{ /* ./Ieee/number.scm 602 */
double BgL_auxz00_2721;double BgL_auxz00_2719;
BgL_auxz00_2721 = 
REAL_TO_DOUBLE(BgL_yz00_55); 
BgL_auxz00_2719 = 
REAL_TO_DOUBLE(BgL_xz00_54); 
BgL_auxz00_2718 = 
(BgL_auxz00_2719/BgL_auxz00_2721); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2718);} }  else 
{ /* ./Ieee/number.scm 601 */
if(
INTEGERP(BgL_yz00_55))
{ /* ./Ieee/number.scm 603 */
{ /* ./Ieee/number.scm 604 */
double BgL_auxz00_2727;
{ /* ./Ieee/number.scm 604 */
double BgL_auxz00_2730;double BgL_auxz00_2728;
{ /* ./Ieee/number.scm 604 */
long BgL_auxz00_2731;
BgL_auxz00_2731 = 
(long)CINT(BgL_yz00_55); 
BgL_auxz00_2730 = 
(double)(BgL_auxz00_2731); } 
BgL_auxz00_2728 = 
REAL_TO_DOUBLE(BgL_xz00_54); 
BgL_auxz00_2727 = 
(BgL_auxz00_2728/BgL_auxz00_2730); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2727);} }  else 
{ /* ./Ieee/number.scm 603 */
FAILURE(BGl_string2841z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_55);} } }  else 
{ /* ./Ieee/number.scm 599 */
FAILURE(BGl_string2841z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_54);} } } 
}



/* _2/ */
obj_t BGl__2zf2zf2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2027, obj_t BgL_xz00_2028, obj_t BgL_yz00_2029)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 587 */
return 
BGl_2zf2zf2zz__r4_numbers_6_5z00(BgL_xz00_2028, BgL_yz00_2029);} 
}



/* / */
BGL_EXPORTED_DEF obj_t BGl_zf2zf2zz__r4_numbers_6_5z00(obj_t BgL_xz00_56, obj_t BgL_yz00_57)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 613 */
if(
PAIRP(BgL_yz00_57))
{ /* ./Ieee/number.scm 615 */
obj_t BgL_arg1448z00_542;obj_t BgL_arg1449z00_543;
BgL_arg1448z00_542 = 
BGl_2zf2zf2zz__r4_numbers_6_5z00(BgL_xz00_56, 
CAR(BgL_yz00_57)); 
BgL_arg1449z00_543 = 
CDR(BgL_yz00_57); 
{ 
obj_t BgL_resultz00_1518;obj_t BgL_za7za7_1519;
BgL_resultz00_1518 = BgL_arg1448z00_542; 
BgL_za7za7_1519 = BgL_arg1449z00_543; 
BgL_loopz00_1517:
if(
PAIRP(BgL_za7za7_1519))
{ 
obj_t BgL_za7za7_2749;obj_t BgL_resultz00_2746;
BgL_resultz00_2746 = 
BGl_2zf2zf2zz__r4_numbers_6_5z00(BgL_resultz00_1518, 
CAR(BgL_za7za7_1519)); 
BgL_za7za7_2749 = 
CDR(BgL_za7za7_1519); 
BgL_za7za7_1519 = BgL_za7za7_2749; 
BgL_resultz00_1518 = BgL_resultz00_2746; 
goto BgL_loopz00_1517;}  else 
{ /* ./Ieee/number.scm 615 */
return BgL_resultz00_1518;} } }  else 
{ /* ./Ieee/number.scm 614 */
return 
BGl_2zf2zf2zz__r4_numbers_6_5z00(
BINT(((long)1)), BgL_xz00_56);} } 
}



/* _/ */
obj_t BGl__zf2zf2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2030, obj_t BgL_xz00_2031, obj_t BgL_yz00_2032)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 613 */
return 
BGl_zf2zf2zz__r4_numbers_6_5z00(BgL_xz00_2031, BgL_yz00_2032);} 
}



/* abs */
BGL_EXPORTED_DEF obj_t BGl_absz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_58)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 626 */
if(
INTEGERP(BgL_xz00_58))
{ /* ./Ieee/number.scm 628 */
{ /* ./Ieee/number.scm 629 */
long BgL_auxz00_2756;
{ /* ./Ieee/number.scm 629 */
long BgL_nz00_1548;
BgL_nz00_1548 = 
(long)CINT(BgL_xz00_58); 
if(
(BgL_nz00_1548<((long)0)))
{ /* ./Ieee/number.scm 629 */
BgL_auxz00_2756 = 
NEG(BgL_nz00_1548)
; }  else 
{ /* ./Ieee/number.scm 629 */
BgL_auxz00_2756 = BgL_nz00_1548
; } } 
return 
BINT(BgL_auxz00_2756);} }  else 
{ /* ./Ieee/number.scm 628 */
if(
REALP(BgL_xz00_58))
{ /* ./Ieee/number.scm 630 */
{ /* ./Ieee/number.scm 631 */
double BgL_auxz00_2764;
{ /* ./Ieee/number.scm 631 */
double BgL_rz00_1555;
BgL_rz00_1555 = 
REAL_TO_DOUBLE(BgL_xz00_58); 
if(
(BgL_rz00_1555<((double)0.0)))
{ /* ./Ieee/number.scm 631 */
BgL_auxz00_2764 = 
NEG(BgL_rz00_1555)
; }  else 
{ /* ./Ieee/number.scm 631 */
BgL_auxz00_2764 = BgL_rz00_1555
; } } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2764);} }  else 
{ /* ./Ieee/number.scm 630 */
FAILURE(BGl_string2842z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_58);} } } 
}



/* _abs */
obj_t BGl__absz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2033, obj_t BgL_xz00_2034)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 626 */
return 
BGl_absz00zz__r4_numbers_6_5z00(BgL_xz00_2034);} 
}



/* floor */
BGL_EXPORTED_DEF obj_t BGl_floorz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_59)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 638 */
if(
INTEGERP(BgL_xz00_59))
{ /* ./Ieee/number.scm 640 */
return BgL_xz00_59;}  else 
{ /* ./Ieee/number.scm 640 */
if(
REALP(BgL_xz00_59))
{ /* ./Ieee/number.scm 640 */
{ /* ./Ieee/number.scm 640 */
double BgL_rz00_1568;
BgL_rz00_1568 = 
REAL_TO_DOUBLE(BgL_xz00_59); 
{ /* ./Ieee/number.scm 640 */
double BgL_auxz00_2777;
BgL_auxz00_2777 = 
floor(BgL_rz00_1568); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2777);} } }  else 
{ /* ./Ieee/number.scm 640 */
FAILURE(BGl_string2843z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_59);} } } 
}



/* _floor */
obj_t BGl__floorz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2035, obj_t BgL_xz00_2036)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 638 */
return 
BGl_floorz00zz__r4_numbers_6_5z00(BgL_xz00_2036);} 
}



/* ceiling */
BGL_EXPORTED_DEF obj_t BGl_ceilingz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_60)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 650 */
if(
INTEGERP(BgL_xz00_60))
{ /* ./Ieee/number.scm 652 */
return BgL_xz00_60;}  else 
{ /* ./Ieee/number.scm 652 */
if(
REALP(BgL_xz00_60))
{ /* ./Ieee/number.scm 652 */
{ /* ./Ieee/number.scm 652 */
double BgL_rz00_1576;
BgL_rz00_1576 = 
REAL_TO_DOUBLE(BgL_xz00_60); 
{ /* ./Ieee/number.scm 652 */
double BgL_auxz00_2787;
BgL_auxz00_2787 = 
ceil(BgL_rz00_1576); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2787);} } }  else 
{ /* ./Ieee/number.scm 652 */
FAILURE(BGl_string2844z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_60);} } } 
}



/* _ceiling */
obj_t BGl__ceilingz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2037, obj_t BgL_xz00_2038)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 650 */
return 
BGl_ceilingz00zz__r4_numbers_6_5z00(BgL_xz00_2038);} 
}



/* truncate */
BGL_EXPORTED_DEF obj_t BGl_truncatez00zz__r4_numbers_6_5z00(obj_t BgL_xz00_61)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 662 */
if(
INTEGERP(BgL_xz00_61))
{ /* ./Ieee/number.scm 664 */
return BgL_xz00_61;}  else 
{ /* ./Ieee/number.scm 664 */
if(
REALP(BgL_xz00_61))
{ /* ./Ieee/number.scm 664 */
{ /* ./Ieee/number.scm 664 */
double BgL_res2426z00_1591;
{ /* ./Ieee/number.scm 664 */
double BgL_rz00_1584;
BgL_rz00_1584 = 
REAL_TO_DOUBLE(BgL_xz00_61); 
if(
(BgL_rz00_1584<((double)0.0)))
{ /* ./Ieee/number.scm 664 */
BgL_res2426z00_1591 = 
ceil(BgL_rz00_1584); }  else 
{ /* ./Ieee/number.scm 664 */
BgL_res2426z00_1591 = 
floor(BgL_rz00_1584); } } 
return 
DOUBLE_TO_REAL(BgL_res2426z00_1591);} }  else 
{ /* ./Ieee/number.scm 664 */
FAILURE(BGl_string2845z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_61);} } } 
}



/* _truncate */
obj_t BGl__truncatez00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2039, obj_t BgL_xz00_2040)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 662 */
return 
BGl_truncatez00zz__r4_numbers_6_5z00(BgL_xz00_2040);} 
}



/* round */
BGL_EXPORTED_DEF obj_t BGl_roundz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_62)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 674 */
if(
INTEGERP(BgL_xz00_62))
{ /* ./Ieee/number.scm 676 */
return BgL_xz00_62;}  else 
{ /* ./Ieee/number.scm 676 */
if(
REALP(BgL_xz00_62))
{ /* ./Ieee/number.scm 676 */
{ /* ./Ieee/number.scm 676 */
double BgL_auxz00_2808;
BgL_auxz00_2808 = 
BGl_roundflz00zz__r4_numbers_6_5_flonumz00(
REAL_TO_DOUBLE(BgL_xz00_62)); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2808);} }  else 
{ /* ./Ieee/number.scm 676 */
FAILURE(BGl_string2846z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_62);} } } 
}



/* _round */
obj_t BGl__roundz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2041, obj_t BgL_xz00_2042)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 674 */
return 
BGl_roundz00zz__r4_numbers_6_5z00(BgL_xz00_2042);} 
}



/* exp */
BGL_EXPORTED_DEF double BGl_expz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_63)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 686 */
if(
INTEGERP(BgL_xz00_63))
{ /* ./Ieee/number.scm 688 */
{ /* ./Ieee/number.scm 689 */
double BgL_auxz00_2816;
{ /* ./Ieee/number.scm 689 */
long BgL_auxz00_2817;
BgL_auxz00_2817 = 
(long)CINT(BgL_xz00_63); 
BgL_auxz00_2816 = 
(double)(BgL_auxz00_2817); } 
return 
exp(BgL_auxz00_2816);} }  else 
{ /* ./Ieee/number.scm 688 */
if(
REALP(BgL_xz00_63))
{ /* ./Ieee/number.scm 690 */
{ /* ./Ieee/number.scm 691 */
double BgL_auxz00_2823;
BgL_auxz00_2823 = 
REAL_TO_DOUBLE(BgL_xz00_63); 
return 
exp(BgL_auxz00_2823);} }  else 
{ /* ./Ieee/number.scm 690 */
FAILURE(BGl_string2847z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_63);} } } 
}



/* _exp */
obj_t BGl__expz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2043, obj_t BgL_xz00_2044)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 686 */
{ /* ./Ieee/number.scm 688 */
double BgL_auxz00_2827;
BgL_auxz00_2827 = 
BGl_expz00zz__r4_numbers_6_5z00(BgL_xz00_2044); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2827);} } 
}



/* log */
BGL_EXPORTED_DEF double BGl_logz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_64)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 698 */
if(
INTEGERP(BgL_xz00_64))
{ /* ./Ieee/number.scm 700 */
{ /* ./Ieee/number.scm 701 */
double BgL_auxz00_2832;
{ /* ./Ieee/number.scm 701 */
long BgL_auxz00_2833;
BgL_auxz00_2833 = 
(long)CINT(BgL_xz00_64); 
BgL_auxz00_2832 = 
(double)(BgL_auxz00_2833); } 
return 
log(BgL_auxz00_2832);} }  else 
{ /* ./Ieee/number.scm 700 */
if(
REALP(BgL_xz00_64))
{ /* ./Ieee/number.scm 702 */
{ /* ./Ieee/number.scm 703 */
double BgL_auxz00_2839;
BgL_auxz00_2839 = 
REAL_TO_DOUBLE(BgL_xz00_64); 
return 
log(BgL_auxz00_2839);} }  else 
{ /* ./Ieee/number.scm 702 */
FAILURE(BGl_string2848z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_64);} } } 
}



/* _log */
obj_t BGl__logz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2045, obj_t BgL_xz00_2046)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 698 */
{ /* ./Ieee/number.scm 700 */
double BgL_auxz00_2843;
BgL_auxz00_2843 = 
BGl_logz00zz__r4_numbers_6_5z00(BgL_xz00_2046); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2843);} } 
}



/* sin */
BGL_EXPORTED_DEF double BGl_sinz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_65)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 710 */
if(
INTEGERP(BgL_xz00_65))
{ /* ./Ieee/number.scm 712 */
{ /* ./Ieee/number.scm 713 */
double BgL_auxz00_2848;
{ /* ./Ieee/number.scm 713 */
long BgL_auxz00_2849;
BgL_auxz00_2849 = 
(long)CINT(BgL_xz00_65); 
BgL_auxz00_2848 = 
(double)(BgL_auxz00_2849); } 
return 
sin(BgL_auxz00_2848);} }  else 
{ /* ./Ieee/number.scm 712 */
if(
REALP(BgL_xz00_65))
{ /* ./Ieee/number.scm 714 */
{ /* ./Ieee/number.scm 715 */
double BgL_auxz00_2855;
BgL_auxz00_2855 = 
REAL_TO_DOUBLE(BgL_xz00_65); 
return 
sin(BgL_auxz00_2855);} }  else 
{ /* ./Ieee/number.scm 714 */
FAILURE(BGl_string2849z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_65);} } } 
}



/* _sin */
obj_t BGl__sinz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2047, obj_t BgL_xz00_2048)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 710 */
{ /* ./Ieee/number.scm 712 */
double BgL_auxz00_2859;
BgL_auxz00_2859 = 
BGl_sinz00zz__r4_numbers_6_5z00(BgL_xz00_2048); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2859);} } 
}



/* cos */
BGL_EXPORTED_DEF double BGl_cosz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_66)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 722 */
if(
INTEGERP(BgL_xz00_66))
{ /* ./Ieee/number.scm 724 */
{ /* ./Ieee/number.scm 725 */
double BgL_auxz00_2864;
{ /* ./Ieee/number.scm 725 */
long BgL_auxz00_2865;
BgL_auxz00_2865 = 
(long)CINT(BgL_xz00_66); 
BgL_auxz00_2864 = 
(double)(BgL_auxz00_2865); } 
return 
cos(BgL_auxz00_2864);} }  else 
{ /* ./Ieee/number.scm 724 */
if(
REALP(BgL_xz00_66))
{ /* ./Ieee/number.scm 726 */
{ /* ./Ieee/number.scm 727 */
double BgL_auxz00_2871;
BgL_auxz00_2871 = 
REAL_TO_DOUBLE(BgL_xz00_66); 
return 
cos(BgL_auxz00_2871);} }  else 
{ /* ./Ieee/number.scm 726 */
FAILURE(BGl_string2850z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_66);} } } 
}



/* _cos */
obj_t BGl__cosz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2049, obj_t BgL_xz00_2050)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 722 */
{ /* ./Ieee/number.scm 724 */
double BgL_auxz00_2875;
BgL_auxz00_2875 = 
BGl_cosz00zz__r4_numbers_6_5z00(BgL_xz00_2050); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2875);} } 
}



/* tan */
BGL_EXPORTED_DEF double BGl_tanz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_67)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 734 */
if(
INTEGERP(BgL_xz00_67))
{ /* ./Ieee/number.scm 736 */
{ /* ./Ieee/number.scm 737 */
double BgL_auxz00_2880;
{ /* ./Ieee/number.scm 737 */
long BgL_auxz00_2881;
BgL_auxz00_2881 = 
(long)CINT(BgL_xz00_67); 
BgL_auxz00_2880 = 
(double)(BgL_auxz00_2881); } 
return 
tan(BgL_auxz00_2880);} }  else 
{ /* ./Ieee/number.scm 736 */
if(
REALP(BgL_xz00_67))
{ /* ./Ieee/number.scm 738 */
{ /* ./Ieee/number.scm 739 */
double BgL_auxz00_2887;
BgL_auxz00_2887 = 
REAL_TO_DOUBLE(BgL_xz00_67); 
return 
tan(BgL_auxz00_2887);} }  else 
{ /* ./Ieee/number.scm 738 */
FAILURE(BGl_string2851z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_67);} } } 
}



/* _tan */
obj_t BGl__tanz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2051, obj_t BgL_xz00_2052)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 734 */
{ /* ./Ieee/number.scm 736 */
double BgL_auxz00_2891;
BgL_auxz00_2891 = 
BGl_tanz00zz__r4_numbers_6_5z00(BgL_xz00_2052); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2891);} } 
}



/* asin */
BGL_EXPORTED_DEF double BGl_asinz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_68)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 746 */
if(
INTEGERP(BgL_xz00_68))
{ /* ./Ieee/number.scm 748 */
{ /* ./Ieee/number.scm 749 */
double BgL_auxz00_2896;
{ /* ./Ieee/number.scm 749 */
long BgL_auxz00_2897;
BgL_auxz00_2897 = 
(long)CINT(BgL_xz00_68); 
BgL_auxz00_2896 = 
(double)(BgL_auxz00_2897); } 
return 
asin(BgL_auxz00_2896);} }  else 
{ /* ./Ieee/number.scm 748 */
if(
REALP(BgL_xz00_68))
{ /* ./Ieee/number.scm 750 */
{ /* ./Ieee/number.scm 751 */
double BgL_auxz00_2903;
BgL_auxz00_2903 = 
REAL_TO_DOUBLE(BgL_xz00_68); 
return 
asin(BgL_auxz00_2903);} }  else 
{ /* ./Ieee/number.scm 750 */
FAILURE(BGl_string2852z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_68);} } } 
}



/* _asin */
obj_t BGl__asinz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2053, obj_t BgL_xz00_2054)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 746 */
{ /* ./Ieee/number.scm 748 */
double BgL_auxz00_2907;
BgL_auxz00_2907 = 
BGl_asinz00zz__r4_numbers_6_5z00(BgL_xz00_2054); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2907);} } 
}



/* acos */
BGL_EXPORTED_DEF double BGl_acosz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_69)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 758 */
if(
INTEGERP(BgL_xz00_69))
{ /* ./Ieee/number.scm 760 */
{ /* ./Ieee/number.scm 761 */
double BgL_auxz00_2912;
{ /* ./Ieee/number.scm 761 */
long BgL_auxz00_2913;
BgL_auxz00_2913 = 
(long)CINT(BgL_xz00_69); 
BgL_auxz00_2912 = 
(double)(BgL_auxz00_2913); } 
return 
acos(BgL_auxz00_2912);} }  else 
{ /* ./Ieee/number.scm 760 */
if(
REALP(BgL_xz00_69))
{ /* ./Ieee/number.scm 762 */
{ /* ./Ieee/number.scm 763 */
double BgL_auxz00_2919;
BgL_auxz00_2919 = 
REAL_TO_DOUBLE(BgL_xz00_69); 
return 
acos(BgL_auxz00_2919);} }  else 
{ /* ./Ieee/number.scm 762 */
FAILURE(BGl_string2853z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_69);} } } 
}



/* _acos */
obj_t BGl__acosz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2055, obj_t BgL_xz00_2056)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 758 */
{ /* ./Ieee/number.scm 760 */
double BgL_auxz00_2923;
BgL_auxz00_2923 = 
BGl_acosz00zz__r4_numbers_6_5z00(BgL_xz00_2056); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2923);} } 
}



/* atan */
BGL_EXPORTED_DEF double BGl_atanz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_70, obj_t BgL_yz00_71)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 770 */
{ /* ./Ieee/number.scm 771 */
obj_t BgL_yz00_580;
if(
PAIRP(BgL_yz00_71))
{ /* ./Ieee/number.scm 772 */
obj_t BgL_yz00_590;
BgL_yz00_590 = 
CAR(BgL_yz00_71); 
if(
INTEGERP(BgL_yz00_590))
{ /* ./Ieee/number.scm 774 */
{ /* ./Ieee/number.scm 775 */
double BgL_auxz00_2931;
{ /* ./Ieee/number.scm 775 */
long BgL_auxz00_2932;
BgL_auxz00_2932 = 
(long)CINT(BgL_yz00_590); 
BgL_auxz00_2931 = 
(double)(BgL_auxz00_2932); } 
BgL_yz00_580 = 
DOUBLE_TO_REAL(BgL_auxz00_2931); } }  else 
{ /* ./Ieee/number.scm 774 */
if(
REALP(BgL_yz00_590))
{ /* ./Ieee/number.scm 776 */
BgL_yz00_580 = BgL_yz00_590; }  else 
{ /* ./Ieee/number.scm 776 */
FAILURE(BGl_string2854z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_590);} } }  else 
{ /* ./Ieee/number.scm 771 */
BgL_yz00_580 = BFALSE; } 
if(
INTEGERP(BgL_xz00_70))
{ /* ./Ieee/number.scm 786 */
{ /* ./Ieee/number.scm 787 */
double BgL_arg1572z00_583;
{ /* ./Ieee/number.scm 787 */
long BgL_auxz00_2941;
BgL_auxz00_2941 = 
(long)CINT(BgL_xz00_70); 
BgL_arg1572z00_583 = 
(double)(BgL_auxz00_2941); } 
{ /* ./Ieee/number.scm 787 */
bool_t BgL_test1581z00_1669;
if(
INTEGERP(BgL_yz00_580))
{ /* ./Ieee/number.scm 787 */
BgL_test1581z00_1669 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 787 */
BgL_test1581z00_1669 = 
REALP(BgL_yz00_580); } 
if(BgL_test1581z00_1669)
{ /* ./Ieee/number.scm 787 */
double BgL_yz00_1676;
BgL_yz00_1676 = 
REAL_TO_DOUBLE(BgL_yz00_580); 
return 
atan2(BgL_arg1572z00_583, BgL_yz00_1676);}  else 
{ /* ./Ieee/number.scm 787 */
return 
atan(BgL_arg1572z00_583);} } } }  else 
{ /* ./Ieee/number.scm 786 */
if(
REALP(BgL_xz00_70))
{ /* ./Ieee/number.scm 788 */
{ /* ./Ieee/number.scm 789 */
bool_t BgL_test1581z00_1680;
if(
INTEGERP(BgL_yz00_580))
{ /* ./Ieee/number.scm 789 */
BgL_test1581z00_1680 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 789 */
BgL_test1581z00_1680 = 
REALP(BgL_yz00_580); } 
if(BgL_test1581z00_1680)
{ /* ./Ieee/number.scm 789 */
double BgL_xz00_1686;double BgL_yz00_1687;
BgL_xz00_1686 = 
REAL_TO_DOUBLE(BgL_xz00_70); 
BgL_yz00_1687 = 
REAL_TO_DOUBLE(BgL_yz00_580); 
return 
atan2(BgL_xz00_1686, BgL_yz00_1687);}  else 
{ /* ./Ieee/number.scm 789 */
double BgL_auxz00_2960;
BgL_auxz00_2960 = 
REAL_TO_DOUBLE(BgL_xz00_70); 
return 
atan(BgL_auxz00_2960);} } }  else 
{ /* ./Ieee/number.scm 788 */
FAILURE(BGl_string2854z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_70);} } } } 
}



/* _atan */
obj_t BGl__atanz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2057, obj_t BgL_xz00_2058, obj_t BgL_yz00_2059)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 770 */
{ /* ./Ieee/number.scm 771 */
double BgL_auxz00_2964;
BgL_auxz00_2964 = 
BGl_atanz00zz__r4_numbers_6_5z00(BgL_xz00_2058, BgL_yz00_2059); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2964);} } 
}



/* sqrt */
BGL_EXPORTED_DEF double BGl_sqrtz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_72)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 796 */
if(
INTEGERP(BgL_xz00_72))
{ /* ./Ieee/number.scm 798 */
{ /* ./Ieee/number.scm 799 */
double BgL_auxz00_2969;
{ /* ./Ieee/number.scm 799 */
long BgL_auxz00_2970;
BgL_auxz00_2970 = 
(long)CINT(BgL_xz00_72); 
BgL_auxz00_2969 = 
(double)(BgL_auxz00_2970); } 
return 
sqrt(BgL_auxz00_2969);} }  else 
{ /* ./Ieee/number.scm 798 */
if(
REALP(BgL_xz00_72))
{ /* ./Ieee/number.scm 800 */
{ /* ./Ieee/number.scm 801 */
double BgL_auxz00_2976;
BgL_auxz00_2976 = 
REAL_TO_DOUBLE(BgL_xz00_72); 
return 
sqrt(BgL_auxz00_2976);} }  else 
{ /* ./Ieee/number.scm 800 */
FAILURE(BGl_string2855z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_72);} } } 
}



/* _sqrt */
obj_t BGl__sqrtz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2060, obj_t BgL_xz00_2061)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 796 */
{ /* ./Ieee/number.scm 798 */
double BgL_auxz00_2980;
BgL_auxz00_2980 = 
BGl_sqrtz00zz__r4_numbers_6_5z00(BgL_xz00_2061); 
return 
DOUBLE_TO_REAL(BgL_auxz00_2980);} } 
}



/* expt */
BGL_EXPORTED_DEF obj_t BGl_exptz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_73, obj_t BgL_yz00_74)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 808 */
{ /* ./Ieee/number.scm 809 */
bool_t BgL_test1604z00_596;
if(
REALP(BgL_xz00_73))
{ /* ./Ieee/number.scm 809 */
if(
REALP(BgL_yz00_74))
{ /* ./Ieee/number.scm 809 */
bool_t BgL_testz00_2987;
{ /* ./Ieee/number.scm 809 */
double BgL_auxz00_2988;
BgL_auxz00_2988 = 
REAL_TO_DOUBLE(BgL_xz00_73); 
BgL_testz00_2987 = 
(BgL_auxz00_2988==((double)0.0)); } 
if(BgL_testz00_2987)
{ /* ./Ieee/number.scm 809 */
double BgL_auxz00_2991;
BgL_auxz00_2991 = 
REAL_TO_DOUBLE(BgL_yz00_74); 
BgL_test1604z00_596 = 
(BgL_auxz00_2991==((double)0.0)); }  else 
{ /* ./Ieee/number.scm 809 */
BgL_test1604z00_596 = ((bool_t)0); } }  else 
{ /* ./Ieee/number.scm 809 */
BgL_test1604z00_596 = ((bool_t)0); } }  else 
{ /* ./Ieee/number.scm 809 */
BgL_test1604z00_596 = ((bool_t)0); } 
if(BgL_test1604z00_596)
{ /* ./Ieee/number.scm 809 */
return BGl_real2856z00zz__r4_numbers_6_5z00;}  else 
{ /* ./Ieee/number.scm 811 */
bool_t BgL_test1605z00_597;
if(
INTEGERP(BgL_xz00_73))
{ /* ./Ieee/number.scm 812 */
BgL_test1605z00_597 = 
INTEGERP(BgL_yz00_74); }  else 
{ /* ./Ieee/number.scm 812 */
BgL_test1605z00_597 = ((bool_t)0); } 
if(BgL_test1605z00_597)
{ /* ./Ieee/number.scm 811 */
{ /* ./Ieee/number.scm 818 */
double BgL_arg1607z00_598;
{ /* ./Ieee/number.scm 818 */
double BgL_arg1610z00_599;double BgL_arg1611z00_600;
{ /* ./Ieee/number.scm 818 */
long BgL_auxz00_2999;
BgL_auxz00_2999 = 
(long)CINT(BgL_xz00_73); 
BgL_arg1610z00_599 = 
(double)(BgL_auxz00_2999); } 
{ /* ./Ieee/number.scm 814 */
long BgL_auxz00_3002;
BgL_auxz00_3002 = 
(long)CINT(BgL_yz00_74); 
BgL_arg1611z00_600 = 
(double)(BgL_auxz00_3002); } 
BgL_arg1607z00_598 = 
pow(BgL_arg1610z00_599, BgL_arg1611z00_600); } 
{ /* ./Ieee/number.scm 816 */
long BgL_auxz00_3006;
BgL_auxz00_3006 = 
(long)(BgL_arg1607z00_598); 
return 
BINT(BgL_auxz00_3006);} } }  else 
{ /* ./Ieee/number.scm 811 */
if(
INTEGERP(BgL_xz00_73))
{ /* ./Ieee/number.scm 821 */
if(
REALP(BgL_yz00_74))
{ /* ./Ieee/number.scm 817 */
{ /* ./Ieee/number.scm 818 */
double BgL_arg1618z00_603;
{ /* ./Ieee/number.scm 818 */
long BgL_auxz00_3013;
BgL_auxz00_3013 = 
(long)CINT(BgL_xz00_73); 
BgL_arg1618z00_603 = 
(double)(BgL_auxz00_3013); } 
{ /* ./Ieee/number.scm 818 */
double BgL_r2z00_1726;
BgL_r2z00_1726 = 
REAL_TO_DOUBLE(BgL_yz00_74); 
{ /* ./Ieee/number.scm 818 */
double BgL_auxz00_3017;
BgL_auxz00_3017 = 
pow(BgL_arg1618z00_603, BgL_r2z00_1726); 
return 
DOUBLE_TO_REAL(BgL_auxz00_3017);} } } }  else 
{ /* ./Ieee/number.scm 817 */
FAILURE(BGl_string2857z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_74);} }  else 
{ /* ./Ieee/number.scm 821 */
if(
REALP(BgL_xz00_73))
{ /* ./Ieee/number.scm 821 */
if(
REALP(BgL_yz00_74))
{ /* ./Ieee/number.scm 823 */
{ /* ./Ieee/number.scm 824 */
double BgL_r1z00_1732;double BgL_r2z00_1733;
BgL_r1z00_1732 = 
REAL_TO_DOUBLE(BgL_xz00_73); 
BgL_r2z00_1733 = 
REAL_TO_DOUBLE(BgL_yz00_74); 
{ /* ./Ieee/number.scm 824 */
double BgL_auxz00_3027;
BgL_auxz00_3027 = 
pow(BgL_r1z00_1732, BgL_r2z00_1733); 
return 
DOUBLE_TO_REAL(BgL_auxz00_3027);} } }  else 
{ /* ./Ieee/number.scm 823 */
if(
INTEGERP(BgL_yz00_74))
{ /* ./Ieee/number.scm 825 */
{ /* ./Ieee/number.scm 826 */
double BgL_arg1628z00_607;
{ /* ./Ieee/number.scm 826 */
long BgL_auxz00_3032;
BgL_auxz00_3032 = 
(long)CINT(BgL_yz00_74); 
BgL_arg1628z00_607 = 
(double)(BgL_auxz00_3032); } 
{ /* ./Ieee/number.scm 826 */
double BgL_r1z00_1736;
BgL_r1z00_1736 = 
REAL_TO_DOUBLE(BgL_xz00_73); 
{ /* ./Ieee/number.scm 826 */
double BgL_auxz00_3036;
BgL_auxz00_3036 = 
pow(BgL_r1z00_1736, BgL_arg1628z00_607); 
return 
DOUBLE_TO_REAL(BgL_auxz00_3036);} } } }  else 
{ /* ./Ieee/number.scm 825 */
FAILURE(BGl_string2857z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_yz00_74);} } }  else 
{ /* ./Ieee/number.scm 821 */
FAILURE(BGl_string2857z00zz__r4_numbers_6_5z00,BGl_string2830z00zz__r4_numbers_6_5z00,BgL_xz00_73);} } } } } } 
}



/* _expt */
obj_t BGl__exptz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2062, obj_t BgL_xz00_2063, obj_t BgL_yz00_2064)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 808 */
return 
BGl_exptz00zz__r4_numbers_6_5z00(BgL_xz00_2063, BgL_yz00_2064);} 
}



/* exact->inexact */
BGL_EXPORTED_DEF obj_t bgl_exact_to_inexact(obj_t BgL_za7za7_75)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 835 */
if(
INTEGERP(BgL_za7za7_75))
{ /* ./Ieee/number.scm 836 */
double BgL_auxz00_3044;
{ /* ./Ieee/number.scm 836 */
long BgL_auxz00_3045;
BgL_auxz00_3045 = 
(long)CINT(BgL_za7za7_75); 
BgL_auxz00_3044 = 
(double)(BgL_auxz00_3045); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_3044);}  else 
{ /* ./Ieee/number.scm 836 */
return BgL_za7za7_75;} } 
}



/* _exact->inexact */
obj_t BGl__exactzd2ze3inexactz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_2065, obj_t BgL_za7za7_2066)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 835 */
if(
INTEGERP(BgL_za7za7_2066))
{ /* ./Ieee/number.scm 836 */
double BgL_auxz00_3051;
{ /* ./Ieee/number.scm 836 */
long BgL_auxz00_3052;
BgL_auxz00_3052 = 
(long)CINT(BgL_za7za7_2066); 
BgL_auxz00_3051 = 
(double)(BgL_auxz00_3052); } 
return 
DOUBLE_TO_REAL(BgL_auxz00_3051);}  else 
{ /* ./Ieee/number.scm 836 */
return BgL_za7za7_2066;} } 
}



/* inexact->exact */
BGL_EXPORTED_DEF obj_t bgl_inexact_to_exact(obj_t BgL_za7za7_76)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 843 */
if(
REALP(BgL_za7za7_76))
{ /* ./Ieee/number.scm 844 */
long BgL_auxz00_3058;
{ /* ./Ieee/number.scm 844 */
double BgL_auxz00_3059;
BgL_auxz00_3059 = 
REAL_TO_DOUBLE(BgL_za7za7_76); 
BgL_auxz00_3058 = 
(long)(BgL_auxz00_3059); } 
return 
BINT(BgL_auxz00_3058);}  else 
{ /* ./Ieee/number.scm 844 */
return BgL_za7za7_76;} } 
}



/* _inexact->exact */
obj_t BGl__inexactzd2ze3exactz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_2067, obj_t BgL_za7za7_2068)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 843 */
if(
REALP(BgL_za7za7_2068))
{ /* ./Ieee/number.scm 844 */
long BgL_auxz00_3065;
{ /* ./Ieee/number.scm 844 */
double BgL_auxz00_3066;
BgL_auxz00_3066 = 
REAL_TO_DOUBLE(BgL_za7za7_2068); 
BgL_auxz00_3065 = 
(long)(BgL_auxz00_3066); } 
return 
BINT(BgL_auxz00_3065);}  else 
{ /* ./Ieee/number.scm 844 */
return BgL_za7za7_2068;} } 
}



/* number->string */
BGL_EXPORTED_DEF char * BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t BgL_xz00_77, obj_t BgL_radixz00_78)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 851 */
if(
NULLP(BgL_radixz00_78))
{ /* ./Ieee/number.scm 852 */
BgL_radixz00_78 = 
BINT(((long)10)); }  else 
{ /* ./Ieee/number.scm 852 */
BgL_radixz00_78 = 
CAR(BgL_radixz00_78); } 
if(
INTEGERP(BgL_xz00_77))
{ /* ./Ieee/number.scm 856 */
{ /* ./Ieee/number.scm 857 */
obj_t BgL_list1658z00_616;
BgL_list1658z00_616 = 
MAKE_PAIR(BgL_radixz00_78, BNIL); 
{ /* ./Ieee/number.scm 857 */
obj_t BgL_auxz00_3077;
BgL_auxz00_3077 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(long)CINT(BgL_xz00_77), BgL_list1658z00_616); 
return 
BSTRING_TO_STRING(BgL_auxz00_3077);} } }  else 
{ /* ./Ieee/number.scm 856 */
if(
REALP(BgL_xz00_77))
{ /* ./Ieee/number.scm 858 */
{ /* ./Ieee/number.scm 859 */
obj_t BgL_auxz00_3083;
{ /* ./Ieee/number.scm 859 */
double BgL_auxz00_3084;
BgL_auxz00_3084 = 
REAL_TO_DOUBLE(BgL_xz00_77); 
BgL_auxz00_3083 = 
real_to_string(BgL_auxz00_3084); } 
return 
BSTRING_TO_STRING(BgL_auxz00_3083);} }  else 
{ /* ./Ieee/number.scm 858 */
FAILURE(BGl_string2858z00zz__r4_numbers_6_5z00,BGl_string2859z00zz__r4_numbers_6_5z00,BgL_xz00_77);} } } 
}



/* _number->string */
obj_t BGl__numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_2069, obj_t BgL_xz00_2070, obj_t BgL_radixz00_2071)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 851 */
{ /* ./Ieee/number.scm 852 */
char * BgL_auxz00_3089;
BgL_auxz00_3089 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_xz00_2070, BgL_radixz00_2071); 
return 
string_to_bstring(BgL_auxz00_3089);} } 
}



/* string->number */
BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(obj_t BgL_xz00_79, obj_t BgL_radixz00_80)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 866 */
{ 
obj_t BgL_xz00_673;obj_t BgL_rz00_674;obj_t BgL_xz00_641;
{ /* ./Ieee/number.scm 925 */
obj_t BgL_rxz00_620;
{ 
obj_t BgL_valz00_629;
if(
NULLP(BgL_radixz00_80))
{ /* ./Ieee/number.scm 925 */
BgL_rxz00_620 = 
BINT(((long)10)); }  else 
{ /* ./Ieee/number.scm 925 */
if(
PAIRP(BgL_radixz00_80))
{ /* ./Ieee/number.scm 925 */
bool_t BgL_testz00_3097;
{ /* ./Ieee/number.scm 925 */
obj_t BgL_auxz00_3098;
BgL_auxz00_3098 = 
CDR(BgL_radixz00_80); 
BgL_testz00_3097 = 
NULLP(BgL_auxz00_3098); } 
if(BgL_testz00_3097)
{ /* ./Ieee/number.scm 925 */
BgL_valz00_629 = 
CAR(BgL_radixz00_80); 
if(
INTEGERP(BgL_valz00_629))
{ /* ./Ieee/number.scm 928 */
switch( 
(long)CINT(BgL_valz00_629)) { case ((long)2) : 
case ((long)8) : 
case ((long)10) : 
case ((long)16) : 

BgL_rxz00_620 = BgL_valz00_629; break;
default: 
FAILURE(BGl_string2860z00zz__r4_numbers_6_5z00,BGl_string2861z00zz__r4_numbers_6_5z00,BgL_valz00_629);} }  else 
{ /* ./Ieee/number.scm 928 */
FAILURE(BGl_string2860z00zz__r4_numbers_6_5z00,BGl_string2861z00zz__r4_numbers_6_5z00,BgL_valz00_629);} }  else 
{ /* ./Ieee/number.scm 925 */
FAILURE(BGl_string2860z00zz__r4_numbers_6_5z00,BGl_string2862z00zz__r4_numbers_6_5z00,BgL_radixz00_80);} }  else 
{ /* ./Ieee/number.scm 925 */
FAILURE(BGl_string2860z00zz__r4_numbers_6_5z00,BGl_string2862z00zz__r4_numbers_6_5z00,BgL_radixz00_80);} } } 
{ /* ./Ieee/number.scm 937 */
bool_t BgL_testz00_3110;
{ /* ./Ieee/number.scm 937 */
long BgL_auxz00_3111;
{ /* ./Ieee/number.scm 937 */
int BgL_auxz00_3112;
BgL_auxz00_3112 = 
STRING_LENGTH(BgL_xz00_79); 
BgL_auxz00_3111 = 
(long)(BgL_auxz00_3112); } 
BgL_testz00_3110 = 
(BgL_auxz00_3111==((long)0)); } 
if(BgL_testz00_3110)
{ /* ./Ieee/number.scm 937 */
return BFALSE;}  else 
{ /* ./Ieee/number.scm 939 */
bool_t BgL_testz00_3116;
BgL_xz00_673 = BgL_xz00_79; 
BgL_rz00_674 = BgL_rxz00_620; 
{ 
long BgL_iz00_676;
{ /* ./Ieee/number.scm 868 */
long BgL_auxz00_3222;
{ /* ./Ieee/number.scm 868 */
int BgL_auxz00_3223;
BgL_auxz00_3223 = 
STRING_LENGTH(BgL_xz00_673); 
BgL_auxz00_3222 = 
(long)(BgL_auxz00_3223); } 
BgL_iz00_676 = 
(BgL_auxz00_3222-((long)1)); } 
BgL_loopz00_677:
if(
(((long)-1)==BgL_iz00_676))
{ /* ./Ieee/number.scm 869 */
BgL_testz00_3116 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 871 */
bool_t BgL_testz00_3119;
{ /* ./Ieee/number.scm 871 */
bool_t BgL_testz00_3120;
{ /* ./Ieee/number.scm 871 */
unsigned char BgL_auxz00_3121;
{ /* ./Ieee/number.scm 871 */
int BgL_auxz00_3122;
BgL_auxz00_3122 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3121 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3122); } 
BgL_testz00_3120 = 
(BgL_auxz00_3121>=((unsigned char)'0')); } 
if(BgL_testz00_3120)
{ /* ./Ieee/number.scm 872 */
bool_t BgL_testz00_3126;
{ /* ./Ieee/number.scm 872 */
unsigned char BgL_auxz00_3127;
{ /* ./Ieee/number.scm 872 */
int BgL_auxz00_3128;
BgL_auxz00_3128 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3127 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3128); } 
BgL_testz00_3126 = 
(BgL_auxz00_3127<=((unsigned char)'1')); } 
if(BgL_testz00_3126)
{ /* ./Ieee/number.scm 873 */
long BgL_auxz00_3132;
BgL_auxz00_3132 = 
(long)CINT(BgL_rz00_674); 
BgL_testz00_3119 = 
(BgL_auxz00_3132>=((long)2)); }  else 
{ /* ./Ieee/number.scm 872 */
BgL_testz00_3119 = ((bool_t)0)
; } }  else 
{ /* ./Ieee/number.scm 871 */
BgL_testz00_3119 = ((bool_t)0)
; } } 
if(BgL_testz00_3119)
{ /* ./Ieee/number.scm 871 */
{ 
long BgL_iz00_3135;
BgL_iz00_3135 = 
(BgL_iz00_676-((long)1)); 
BgL_iz00_676 = BgL_iz00_3135; 
goto BgL_loopz00_677;} }  else 
{ /* ./Ieee/number.scm 875 */
bool_t BgL_testz00_3137;
{ /* ./Ieee/number.scm 875 */
bool_t BgL_testz00_3138;
{ /* ./Ieee/number.scm 875 */
unsigned char BgL_auxz00_3139;
{ /* ./Ieee/number.scm 875 */
int BgL_auxz00_3140;
BgL_auxz00_3140 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3139 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3140); } 
BgL_testz00_3138 = 
(BgL_auxz00_3139>=((unsigned char)'2')); } 
if(BgL_testz00_3138)
{ /* ./Ieee/number.scm 876 */
bool_t BgL_testz00_3144;
{ /* ./Ieee/number.scm 876 */
unsigned char BgL_auxz00_3145;
{ /* ./Ieee/number.scm 876 */
int BgL_auxz00_3146;
BgL_auxz00_3146 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3145 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3146); } 
BgL_testz00_3144 = 
(BgL_auxz00_3145<=((unsigned char)'7')); } 
if(BgL_testz00_3144)
{ /* ./Ieee/number.scm 877 */
long BgL_auxz00_3150;
BgL_auxz00_3150 = 
(long)CINT(BgL_rz00_674); 
BgL_testz00_3137 = 
(BgL_auxz00_3150>=((long)8)); }  else 
{ /* ./Ieee/number.scm 876 */
BgL_testz00_3137 = ((bool_t)0)
; } }  else 
{ /* ./Ieee/number.scm 875 */
BgL_testz00_3137 = ((bool_t)0)
; } } 
if(BgL_testz00_3137)
{ /* ./Ieee/number.scm 875 */
{ 
long BgL_iz00_3153;
BgL_iz00_3153 = 
(BgL_iz00_676-((long)1)); 
BgL_iz00_676 = BgL_iz00_3153; 
goto BgL_loopz00_677;} }  else 
{ /* ./Ieee/number.scm 879 */
bool_t BgL_testz00_3155;
{ /* ./Ieee/number.scm 879 */
bool_t BgL_testz00_3156;
{ /* ./Ieee/number.scm 879 */
unsigned char BgL_auxz00_3157;
{ /* ./Ieee/number.scm 879 */
int BgL_auxz00_3158;
BgL_auxz00_3158 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3157 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3158); } 
BgL_testz00_3156 = 
(BgL_auxz00_3157>=((unsigned char)'8')); } 
if(BgL_testz00_3156)
{ /* ./Ieee/number.scm 880 */
bool_t BgL_testz00_3162;
{ /* ./Ieee/number.scm 880 */
unsigned char BgL_auxz00_3163;
{ /* ./Ieee/number.scm 880 */
int BgL_auxz00_3164;
BgL_auxz00_3164 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3163 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3164); } 
BgL_testz00_3162 = 
(BgL_auxz00_3163<=((unsigned char)'9')); } 
if(BgL_testz00_3162)
{ /* ./Ieee/number.scm 881 */
long BgL_auxz00_3168;
BgL_auxz00_3168 = 
(long)CINT(BgL_rz00_674); 
BgL_testz00_3155 = 
(BgL_auxz00_3168>=((long)10)); }  else 
{ /* ./Ieee/number.scm 880 */
BgL_testz00_3155 = ((bool_t)0)
; } }  else 
{ /* ./Ieee/number.scm 879 */
BgL_testz00_3155 = ((bool_t)0)
; } } 
if(BgL_testz00_3155)
{ /* ./Ieee/number.scm 879 */
{ 
long BgL_iz00_3171;
BgL_iz00_3171 = 
(BgL_iz00_676-((long)1)); 
BgL_iz00_676 = BgL_iz00_3171; 
goto BgL_loopz00_677;} }  else 
{ /* ./Ieee/number.scm 883 */
bool_t BgL_testz00_3173;
{ /* ./Ieee/number.scm 883 */
bool_t BgL_testz00_3174;
{ /* ./Ieee/number.scm 883 */
unsigned char BgL_auxz00_3175;
{ /* ./Ieee/number.scm 883 */
int BgL_auxz00_3176;
BgL_auxz00_3176 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3175 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3176); } 
BgL_testz00_3174 = 
(BgL_auxz00_3175>=((unsigned char)'a')); } 
if(BgL_testz00_3174)
{ /* ./Ieee/number.scm 884 */
bool_t BgL_testz00_3180;
{ /* ./Ieee/number.scm 884 */
unsigned char BgL_auxz00_3181;
{ /* ./Ieee/number.scm 884 */
int BgL_auxz00_3182;
BgL_auxz00_3182 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3181 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3182); } 
BgL_testz00_3180 = 
(BgL_auxz00_3181<=((unsigned char)'f')); } 
if(BgL_testz00_3180)
{ /* ./Ieee/number.scm 885 */
long BgL_auxz00_3186;
BgL_auxz00_3186 = 
(long)CINT(BgL_rz00_674); 
BgL_testz00_3173 = 
(BgL_auxz00_3186==((long)16)); }  else 
{ /* ./Ieee/number.scm 884 */
BgL_testz00_3173 = ((bool_t)0)
; } }  else 
{ /* ./Ieee/number.scm 883 */
BgL_testz00_3173 = ((bool_t)0)
; } } 
if(BgL_testz00_3173)
{ /* ./Ieee/number.scm 883 */
{ 
long BgL_iz00_3189;
BgL_iz00_3189 = 
(BgL_iz00_676-((long)1)); 
BgL_iz00_676 = BgL_iz00_3189; 
goto BgL_loopz00_677;} }  else 
{ /* ./Ieee/number.scm 887 */
bool_t BgL_testz00_3191;
{ /* ./Ieee/number.scm 887 */
bool_t BgL_testz00_3192;
{ /* ./Ieee/number.scm 887 */
unsigned char BgL_auxz00_3193;
{ /* ./Ieee/number.scm 887 */
int BgL_auxz00_3194;
BgL_auxz00_3194 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3193 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3194); } 
BgL_testz00_3192 = 
(BgL_auxz00_3193>=((unsigned char)'A')); } 
if(BgL_testz00_3192)
{ /* ./Ieee/number.scm 888 */
bool_t BgL_testz00_3198;
{ /* ./Ieee/number.scm 888 */
unsigned char BgL_auxz00_3199;
{ /* ./Ieee/number.scm 888 */
int BgL_auxz00_3200;
BgL_auxz00_3200 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3199 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3200); } 
BgL_testz00_3198 = 
(BgL_auxz00_3199<=((unsigned char)'F')); } 
if(BgL_testz00_3198)
{ /* ./Ieee/number.scm 889 */
long BgL_auxz00_3204;
BgL_auxz00_3204 = 
(long)CINT(BgL_rz00_674); 
BgL_testz00_3191 = 
(BgL_auxz00_3204==((long)16)); }  else 
{ /* ./Ieee/number.scm 888 */
BgL_testz00_3191 = ((bool_t)0)
; } }  else 
{ /* ./Ieee/number.scm 887 */
BgL_testz00_3191 = ((bool_t)0)
; } } 
if(BgL_testz00_3191)
{ /* ./Ieee/number.scm 887 */
{ 
long BgL_iz00_3207;
BgL_iz00_3207 = 
(BgL_iz00_676-((long)1)); 
BgL_iz00_676 = BgL_iz00_3207; 
goto BgL_loopz00_677;} }  else 
{ /* ./Ieee/number.scm 891 */
bool_t BgL_testz00_3209;
{ /* ./Ieee/number.scm 891 */
bool_t BgL_testz00_3210;
{ /* ./Ieee/number.scm 891 */
unsigned char BgL_auxz00_3211;
{ /* ./Ieee/number.scm 891 */
int BgL_auxz00_3212;
BgL_auxz00_3212 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3211 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3212); } 
BgL_testz00_3210 = 
(BgL_auxz00_3211==((unsigned char)'-')); } 
if(BgL_testz00_3210)
{ /* ./Ieee/number.scm 891 */
BgL_testz00_3209 = ((bool_t)1)
; }  else 
{ /* ./Ieee/number.scm 892 */
unsigned char BgL_auxz00_3216;
{ /* ./Ieee/number.scm 892 */
int BgL_auxz00_3217;
BgL_auxz00_3217 = 
(int)(BgL_iz00_676); 
BgL_auxz00_3216 = 
STRING_REF(BgL_xz00_673, BgL_auxz00_3217); } 
BgL_testz00_3209 = 
(BgL_auxz00_3216==((unsigned char)'+')); } } 
if(BgL_testz00_3209)
{ /* ./Ieee/number.scm 891 */
BgL_testz00_3116 = 
(BgL_iz00_676==((long)0)); }  else 
{ /* ./Ieee/number.scm 891 */
BgL_testz00_3116 = ((bool_t)0); } } } } } } } } 
if(BgL_testz00_3116)
{ /* ./Ieee/number.scm 939 */
{ /* ./Ieee/number.scm 940 */
obj_t BgL_list1668z00_623;
BgL_list1668z00_623 = 
MAKE_PAIR(BgL_rxz00_620, BNIL); 
{ /* ./Ieee/number.scm 940 */
long BgL_auxz00_3228;
BgL_auxz00_3228 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_xz00_79, BgL_list1668z00_623); 
return 
BINT(BgL_auxz00_3228);} } }  else 
{ /* ./Ieee/number.scm 941 */
bool_t BgL_testz00_3231;
BgL_xz00_641 = BgL_xz00_79; 
{ /* ./Ieee/number.scm 896 */
int BgL_lenz00_643;
BgL_lenz00_643 = 
STRING_LENGTH(BgL_xz00_641); 
{ 
long BgL_iz00_644;bool_t BgL_ez00_645;long BgL_pz00_646;
BgL_iz00_644 = ((long)0); 
BgL_ez00_645 = ((bool_t)0); 
BgL_pz00_646 = ((long)0); 
BgL_loopz00_647:
{ /* ./Ieee/number.scm 900 */
bool_t BgL_testz00_3233;
{ /* ./Ieee/number.scm 900 */
long BgL_auxz00_3234;
BgL_auxz00_3234 = 
(long)(BgL_lenz00_643); 
BgL_testz00_3233 = 
(BgL_iz00_644==BgL_auxz00_3234); } 
if(BgL_testz00_3233)
{ /* ./Ieee/number.scm 900 */
BgL_testz00_3231 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 902 */
bool_t BgL_testz00_3237;
{ /* ./Ieee/number.scm 902 */
bool_t BgL_testz00_3238;
{ /* ./Ieee/number.scm 902 */
unsigned char BgL_auxz00_3239;
{ /* ./Ieee/number.scm 902 */
int BgL_auxz00_3240;
BgL_auxz00_3240 = 
(int)(BgL_iz00_644); 
BgL_auxz00_3239 = 
STRING_REF(BgL_xz00_641, BgL_auxz00_3240); } 
BgL_testz00_3238 = 
(BgL_auxz00_3239>=((unsigned char)'0')); } 
if(BgL_testz00_3238)
{ /* ./Ieee/number.scm 903 */
unsigned char BgL_auxz00_3244;
{ /* ./Ieee/number.scm 903 */
int BgL_auxz00_3245;
BgL_auxz00_3245 = 
(int)(BgL_iz00_644); 
BgL_auxz00_3244 = 
STRING_REF(BgL_xz00_641, BgL_auxz00_3245); } 
BgL_testz00_3237 = 
(BgL_auxz00_3244<=((unsigned char)'9')); }  else 
{ /* ./Ieee/number.scm 902 */
BgL_testz00_3237 = ((bool_t)0)
; } } 
if(BgL_testz00_3237)
{ /* ./Ieee/number.scm 902 */
{ 
long BgL_pz00_3251;long BgL_iz00_3249;
BgL_iz00_3249 = 
(BgL_iz00_644+((long)1)); 
BgL_pz00_3251 = ((long)0); 
BgL_pz00_646 = BgL_pz00_3251; 
BgL_iz00_644 = BgL_iz00_3249; 
goto BgL_loopz00_647;} }  else 
{ /* ./Ieee/number.scm 907 */
bool_t BgL_testz00_3252;
{ /* ./Ieee/number.scm 907 */
unsigned char BgL_auxz00_3253;
{ /* ./Ieee/number.scm 907 */
int BgL_auxz00_3254;
BgL_auxz00_3254 = 
(int)(BgL_iz00_644); 
BgL_auxz00_3253 = 
STRING_REF(BgL_xz00_641, BgL_auxz00_3254); } 
BgL_testz00_3252 = 
(BgL_auxz00_3253==((unsigned char)'.')); } 
if(BgL_testz00_3252)
{ /* ./Ieee/number.scm 907 */
{ 
long BgL_pz00_3260;long BgL_iz00_3258;
BgL_iz00_3258 = 
(BgL_iz00_644+((long)1)); 
BgL_pz00_3260 = ((long)0); 
BgL_pz00_646 = BgL_pz00_3260; 
BgL_iz00_644 = BgL_iz00_3258; 
goto BgL_loopz00_647;} }  else 
{ /* ./Ieee/number.scm 911 */
bool_t BgL_testz00_3261;
{ /* ./Ieee/number.scm 911 */
bool_t BgL_testz00_3262;
{ /* ./Ieee/number.scm 911 */
unsigned char BgL_auxz00_3263;
{ /* ./Ieee/number.scm 911 */
int BgL_auxz00_3264;
BgL_auxz00_3264 = 
(int)(BgL_iz00_644); 
BgL_auxz00_3263 = 
STRING_REF(BgL_xz00_641, BgL_auxz00_3264); } 
BgL_testz00_3262 = 
(BgL_auxz00_3263==((unsigned char)'e')); } 
if(BgL_testz00_3262)
{ /* ./Ieee/number.scm 911 */
BgL_testz00_3261 = ((bool_t)1)
; }  else 
{ /* ./Ieee/number.scm 912 */
unsigned char BgL_auxz00_3268;
{ /* ./Ieee/number.scm 912 */
int BgL_auxz00_3269;
BgL_auxz00_3269 = 
(int)(BgL_iz00_644); 
BgL_auxz00_3268 = 
STRING_REF(BgL_xz00_641, BgL_auxz00_3269); } 
BgL_testz00_3261 = 
(BgL_auxz00_3268==((unsigned char)'E')); } } 
if(BgL_testz00_3261)
{ /* ./Ieee/number.scm 911 */
if(BgL_ez00_645)
{ /* ./Ieee/number.scm 913 */
BgL_testz00_3231 = ((bool_t)0)
; }  else 
{ 
long BgL_pz00_3277;bool_t BgL_ez00_3276;long BgL_iz00_3274;
BgL_iz00_3274 = 
(BgL_iz00_644+((long)1)); 
BgL_ez00_3276 = ((bool_t)1); 
BgL_pz00_3277 = 
(BgL_iz00_644+((long)1)); 
BgL_pz00_646 = BgL_pz00_3277; 
BgL_ez00_645 = BgL_ez00_3276; 
BgL_iz00_644 = BgL_iz00_3274; 
goto BgL_loopz00_647;} }  else 
{ /* ./Ieee/number.scm 918 */
bool_t BgL_testz00_3279;
{ /* ./Ieee/number.scm 918 */
bool_t BgL_testz00_3280;
{ /* ./Ieee/number.scm 918 */
unsigned char BgL_auxz00_3281;
{ /* ./Ieee/number.scm 918 */
int BgL_auxz00_3282;
BgL_auxz00_3282 = 
(int)(BgL_iz00_644); 
BgL_auxz00_3281 = 
STRING_REF(BgL_xz00_641, BgL_auxz00_3282); } 
BgL_testz00_3280 = 
(BgL_auxz00_3281==((unsigned char)'-')); } 
if(BgL_testz00_3280)
{ /* ./Ieee/number.scm 918 */
BgL_testz00_3279 = ((bool_t)1)
; }  else 
{ /* ./Ieee/number.scm 919 */
unsigned char BgL_auxz00_3286;
{ /* ./Ieee/number.scm 919 */
int BgL_auxz00_3287;
BgL_auxz00_3287 = 
(int)(BgL_iz00_644); 
BgL_auxz00_3286 = 
STRING_REF(BgL_xz00_641, BgL_auxz00_3287); } 
BgL_testz00_3279 = 
(BgL_auxz00_3286==((unsigned char)'+')); } } 
if(BgL_testz00_3279)
{ /* ./Ieee/number.scm 918 */
{ /* ./Ieee/number.scm 920 */
bool_t BgL_testz00_3291;
{ /* ./Ieee/number.scm 920 */
bool_t BgL__ortest_1009z00_662;
BgL__ortest_1009z00_662 = 
(BgL_iz00_644==((long)0)); 
if(BgL__ortest_1009z00_662)
{ /* ./Ieee/number.scm 920 */
BgL_testz00_3291 = BgL__ortest_1009z00_662
; }  else 
{ /* ./Ieee/number.scm 920 */
BgL_testz00_3291 = 
(BgL_iz00_644==BgL_pz00_646)
; } } 
if(BgL_testz00_3291)
{ 
long BgL_pz00_3297;long BgL_iz00_3295;
BgL_iz00_3295 = 
(BgL_iz00_644+((long)1)); 
BgL_pz00_3297 = ((long)0); 
BgL_pz00_646 = BgL_pz00_3297; 
BgL_iz00_644 = BgL_iz00_3295; 
goto BgL_loopz00_647;}  else 
{ /* ./Ieee/number.scm 920 */
BgL_testz00_3231 = ((bool_t)0)
; } } }  else 
{ /* ./Ieee/number.scm 918 */
BgL_testz00_3231 = ((bool_t)0); } } } } } } } } 
if(BgL_testz00_3231)
{ /* ./Ieee/number.scm 941 */
{ /* ./Ieee/number.scm 942 */
bool_t BgL_testz00_3298;
{ /* ./Ieee/number.scm 942 */
long BgL_auxz00_3299;
BgL_auxz00_3299 = 
(long)CINT(BgL_rxz00_620); 
BgL_testz00_3298 = 
(BgL_auxz00_3299==((long)10)); } 
if(BgL_testz00_3298)
{ /* ./Ieee/number.scm 943 */
char * BgL_stringz00_1788;
BgL_stringz00_1788 = 
BSTRING_TO_STRING(BgL_xz00_79); 
{ /* ./Ieee/number.scm 943 */
double BgL_auxz00_3303;
BgL_auxz00_3303 = 
strtod(BgL_stringz00_1788, ((long)0)); 
return 
DOUBLE_TO_REAL(BgL_auxz00_3303);} }  else 
{ /* ./Ieee/number.scm 942 */
FAILURE(BGl_string2860z00zz__r4_numbers_6_5z00,BGl_string2863z00zz__r4_numbers_6_5z00,BgL_rxz00_620);} } }  else 
{ /* ./Ieee/number.scm 941 */
return BFALSE;} } } } } } } 
}



/* _string->number */
obj_t BGl__stringzd2ze3numberz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_2072, obj_t BgL_xz00_2073, obj_t BgL_radixz00_2074)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 866 */
return 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(BgL_xz00_2073, BgL_radixz00_2074);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5z00()
{ AN_OBJECT;
{ /* ./Ieee/number.scm 18 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_numbers_6_5");} 
}

